pic32mx575f256l.pp 2.6 MB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657165816591660166116621663166416651666166716681669167016711672167316741675167616771678167916801681168216831684168516861687168816891690169116921693169416951696169716981699170017011702170317041705170617071708170917101711171217131714171517161717171817191720172117221723172417251726172717281729173017311732173317341735173617371738173917401741174217431744174517461747174817491750175117521753175417551756175717581759176017611762176317641765176617671768176917701771177217731774177517761777177817791780178117821783178417851786178717881789179017911792179317941795179617971798179918001801180218031804180518061807180818091810181118121813181418151816181718181819182018211822182318241825182618271828182918301831183218331834183518361837183818391840184118421843184418451846184718481849185018511852185318541855185618571858185918601861186218631864186518661867186818691870187118721873187418751876187718781879188018811882188318841885188618871888188918901891189218931894189518961897189818991900190119021903190419051906190719081909191019111912191319141915191619171918191919201921192219231924192519261927192819291930193119321933193419351936193719381939194019411942194319441945194619471948194919501951195219531954195519561957195819591960196119621963196419651966196719681969197019711972197319741975197619771978197919801981198219831984198519861987198819891990199119921993199419951996199719981999200020012002200320042005200620072008200920102011201220132014201520162017201820192020202120222023202420252026202720282029203020312032203320342035203620372038203920402041204220432044204520462047204820492050205120522053205420552056205720582059206020612062206320642065206620672068206920702071207220732074207520762077207820792080208120822083208420852086208720882089209020912092209320942095209620972098209921002101210221032104210521062107210821092110211121122113211421152116211721182119212021212122212321242125212621272128212921302131213221332134213521362137213821392140214121422143214421452146214721482149215021512152215321542155215621572158215921602161216221632164216521662167216821692170217121722173217421752176217721782179218021812182218321842185218621872188218921902191219221932194219521962197219821992200220122022203220422052206220722082209221022112212221322142215221622172218221922202221222222232224222522262227222822292230223122322233223422352236223722382239224022412242224322442245224622472248224922502251225222532254225522562257225822592260226122622263226422652266226722682269227022712272227322742275227622772278227922802281228222832284228522862287228822892290229122922293229422952296229722982299230023012302230323042305230623072308230923102311231223132314231523162317231823192320232123222323232423252326232723282329233023312332233323342335233623372338233923402341234223432344234523462347234823492350235123522353235423552356235723582359236023612362236323642365236623672368236923702371237223732374237523762377237823792380238123822383238423852386238723882389239023912392239323942395239623972398239924002401240224032404240524062407240824092410241124122413241424152416241724182419242024212422242324242425242624272428242924302431243224332434243524362437243824392440244124422443244424452446244724482449245024512452245324542455245624572458245924602461246224632464246524662467246824692470247124722473247424752476247724782479248024812482248324842485248624872488248924902491249224932494249524962497249824992500250125022503250425052506250725082509251025112512251325142515251625172518251925202521252225232524252525262527252825292530253125322533253425352536253725382539254025412542254325442545254625472548254925502551255225532554255525562557255825592560256125622563256425652566256725682569257025712572257325742575257625772578257925802581258225832584258525862587258825892590259125922593259425952596259725982599260026012602260326042605260626072608260926102611261226132614261526162617261826192620262126222623262426252626262726282629263026312632263326342635263626372638263926402641264226432644264526462647264826492650265126522653265426552656265726582659266026612662266326642665266626672668266926702671267226732674267526762677267826792680268126822683268426852686268726882689269026912692269326942695269626972698269927002701270227032704270527062707270827092710271127122713271427152716271727182719272027212722272327242725272627272728272927302731273227332734273527362737273827392740274127422743274427452746274727482749275027512752275327542755275627572758275927602761276227632764276527662767276827692770277127722773277427752776277727782779278027812782278327842785278627872788278927902791279227932794279527962797279827992800280128022803280428052806280728082809281028112812281328142815281628172818281928202821282228232824282528262827282828292830283128322833283428352836283728382839284028412842284328442845284628472848284928502851285228532854285528562857285828592860286128622863286428652866286728682869287028712872287328742875287628772878287928802881288228832884288528862887288828892890289128922893289428952896289728982899290029012902290329042905290629072908290929102911291229132914291529162917291829192920292129222923292429252926292729282929293029312932293329342935293629372938293929402941294229432944294529462947294829492950295129522953295429552956295729582959296029612962296329642965296629672968296929702971297229732974297529762977297829792980298129822983298429852986298729882989299029912992299329942995299629972998299930003001300230033004300530063007300830093010301130123013301430153016301730183019302030213022302330243025302630273028302930303031303230333034303530363037303830393040304130423043304430453046304730483049305030513052305330543055305630573058305930603061306230633064306530663067306830693070307130723073307430753076307730783079308030813082308330843085308630873088308930903091309230933094309530963097309830993100310131023103310431053106310731083109311031113112311331143115311631173118311931203121312231233124312531263127312831293130313131323133313431353136313731383139314031413142314331443145314631473148314931503151315231533154315531563157315831593160316131623163316431653166316731683169317031713172317331743175317631773178317931803181318231833184318531863187318831893190319131923193319431953196319731983199320032013202320332043205320632073208320932103211321232133214321532163217321832193220322132223223322432253226322732283229323032313232323332343235323632373238323932403241324232433244324532463247324832493250325132523253325432553256325732583259326032613262326332643265326632673268326932703271327232733274327532763277327832793280328132823283328432853286328732883289329032913292329332943295329632973298329933003301330233033304330533063307330833093310331133123313331433153316331733183319332033213322332333243325332633273328332933303331333233333334333533363337333833393340334133423343334433453346334733483349335033513352335333543355335633573358335933603361336233633364336533663367336833693370337133723373337433753376337733783379338033813382338333843385338633873388338933903391339233933394339533963397339833993400340134023403340434053406340734083409341034113412341334143415341634173418341934203421342234233424342534263427342834293430343134323433343434353436343734383439344034413442344334443445344634473448344934503451345234533454345534563457345834593460346134623463346434653466346734683469347034713472347334743475347634773478347934803481348234833484348534863487348834893490349134923493349434953496349734983499350035013502350335043505350635073508350935103511351235133514351535163517351835193520352135223523352435253526352735283529353035313532353335343535353635373538353935403541354235433544354535463547354835493550355135523553355435553556355735583559356035613562356335643565356635673568356935703571357235733574357535763577357835793580358135823583358435853586358735883589359035913592359335943595359635973598359936003601360236033604360536063607360836093610361136123613361436153616361736183619362036213622362336243625362636273628362936303631363236333634363536363637363836393640364136423643364436453646364736483649365036513652365336543655365636573658365936603661366236633664366536663667366836693670367136723673367436753676367736783679368036813682368336843685368636873688368936903691369236933694369536963697369836993700370137023703370437053706370737083709371037113712371337143715371637173718371937203721372237233724372537263727372837293730373137323733373437353736373737383739374037413742374337443745374637473748374937503751375237533754375537563757375837593760376137623763376437653766376737683769377037713772377337743775377637773778377937803781378237833784378537863787378837893790379137923793379437953796379737983799380038013802380338043805380638073808380938103811381238133814381538163817381838193820382138223823382438253826382738283829383038313832383338343835383638373838383938403841384238433844384538463847384838493850385138523853385438553856385738583859386038613862386338643865386638673868386938703871387238733874387538763877387838793880388138823883388438853886388738883889389038913892389338943895389638973898389939003901390239033904390539063907390839093910391139123913391439153916391739183919392039213922392339243925392639273928392939303931393239333934393539363937393839393940394139423943394439453946394739483949395039513952395339543955395639573958395939603961396239633964396539663967396839693970397139723973397439753976397739783979398039813982398339843985398639873988398939903991399239933994399539963997399839994000400140024003400440054006400740084009401040114012401340144015401640174018401940204021402240234024402540264027402840294030403140324033403440354036403740384039404040414042404340444045404640474048404940504051405240534054405540564057405840594060406140624063406440654066406740684069407040714072407340744075407640774078407940804081408240834084408540864087408840894090409140924093409440954096409740984099410041014102410341044105410641074108410941104111411241134114411541164117411841194120412141224123412441254126412741284129413041314132413341344135413641374138413941404141414241434144414541464147414841494150415141524153415441554156415741584159416041614162416341644165416641674168416941704171417241734174417541764177417841794180418141824183418441854186418741884189419041914192419341944195419641974198419942004201420242034204420542064207420842094210421142124213421442154216421742184219422042214222422342244225422642274228422942304231423242334234423542364237423842394240424142424243424442454246424742484249425042514252425342544255425642574258425942604261426242634264426542664267426842694270427142724273427442754276427742784279428042814282428342844285428642874288428942904291429242934294429542964297429842994300430143024303430443054306430743084309431043114312431343144315431643174318431943204321432243234324432543264327432843294330433143324333433443354336433743384339434043414342434343444345434643474348434943504351435243534354435543564357435843594360436143624363436443654366436743684369437043714372437343744375437643774378437943804381438243834384438543864387438843894390439143924393439443954396439743984399440044014402440344044405440644074408440944104411441244134414441544164417441844194420442144224423442444254426442744284429443044314432443344344435443644374438443944404441444244434444444544464447444844494450445144524453445444554456445744584459446044614462446344644465446644674468446944704471447244734474447544764477447844794480448144824483448444854486448744884489449044914492449344944495449644974498449945004501450245034504450545064507450845094510451145124513451445154516451745184519452045214522452345244525452645274528452945304531453245334534453545364537453845394540454145424543454445454546454745484549455045514552455345544555455645574558455945604561456245634564456545664567456845694570457145724573457445754576457745784579458045814582458345844585458645874588458945904591459245934594459545964597459845994600460146024603460446054606460746084609461046114612461346144615461646174618461946204621462246234624462546264627462846294630463146324633463446354636463746384639464046414642464346444645464646474648464946504651465246534654465546564657465846594660466146624663466446654666466746684669467046714672467346744675467646774678467946804681468246834684468546864687468846894690469146924693469446954696469746984699470047014702470347044705470647074708470947104711471247134714471547164717471847194720472147224723472447254726472747284729473047314732473347344735473647374738473947404741474247434744474547464747474847494750475147524753475447554756475747584759476047614762476347644765476647674768476947704771477247734774477547764777477847794780478147824783478447854786478747884789479047914792479347944795479647974798479948004801480248034804480548064807480848094810481148124813481448154816481748184819482048214822482348244825482648274828482948304831483248334834483548364837483848394840484148424843484448454846484748484849485048514852485348544855485648574858485948604861486248634864486548664867486848694870487148724873487448754876487748784879488048814882488348844885488648874888488948904891489248934894489548964897489848994900490149024903490449054906490749084909491049114912491349144915491649174918491949204921492249234924492549264927492849294930493149324933493449354936493749384939494049414942494349444945494649474948494949504951495249534954495549564957495849594960496149624963496449654966496749684969497049714972497349744975497649774978497949804981498249834984498549864987498849894990499149924993499449954996499749984999500050015002500350045005500650075008500950105011501250135014501550165017501850195020502150225023502450255026502750285029503050315032503350345035503650375038503950405041504250435044504550465047504850495050505150525053505450555056505750585059506050615062506350645065506650675068506950705071507250735074507550765077507850795080508150825083508450855086508750885089509050915092509350945095509650975098509951005101510251035104510551065107510851095110511151125113511451155116511751185119512051215122512351245125512651275128512951305131513251335134513551365137513851395140514151425143514451455146514751485149515051515152515351545155515651575158515951605161516251635164516551665167516851695170517151725173517451755176517751785179518051815182518351845185518651875188518951905191519251935194519551965197519851995200520152025203520452055206520752085209521052115212521352145215521652175218521952205221522252235224522552265227522852295230523152325233523452355236523752385239524052415242524352445245524652475248524952505251525252535254525552565257525852595260526152625263526452655266526752685269527052715272527352745275527652775278527952805281528252835284528552865287528852895290529152925293529452955296529752985299530053015302530353045305530653075308530953105311531253135314531553165317531853195320532153225323532453255326532753285329533053315332533353345335533653375338533953405341534253435344534553465347534853495350535153525353535453555356535753585359536053615362536353645365536653675368536953705371537253735374537553765377537853795380538153825383538453855386538753885389539053915392539353945395539653975398539954005401540254035404540554065407540854095410541154125413541454155416541754185419542054215422542354245425542654275428542954305431543254335434543554365437543854395440544154425443544454455446544754485449545054515452545354545455545654575458545954605461546254635464546554665467546854695470547154725473547454755476547754785479548054815482548354845485548654875488548954905491549254935494549554965497549854995500550155025503550455055506550755085509551055115512551355145515551655175518551955205521552255235524552555265527552855295530553155325533553455355536553755385539554055415542554355445545554655475548554955505551555255535554555555565557555855595560556155625563556455655566556755685569557055715572557355745575557655775578557955805581558255835584558555865587558855895590559155925593559455955596559755985599560056015602560356045605560656075608560956105611561256135614561556165617561856195620562156225623562456255626562756285629563056315632563356345635563656375638563956405641564256435644564556465647564856495650565156525653565456555656565756585659566056615662566356645665566656675668566956705671567256735674567556765677567856795680568156825683568456855686568756885689569056915692569356945695569656975698569957005701570257035704570557065707570857095710571157125713571457155716571757185719572057215722572357245725572657275728572957305731573257335734573557365737573857395740574157425743574457455746574757485749575057515752575357545755575657575758575957605761576257635764576557665767576857695770577157725773577457755776577757785779578057815782578357845785578657875788578957905791579257935794579557965797579857995800580158025803580458055806580758085809581058115812581358145815581658175818581958205821582258235824582558265827582858295830583158325833583458355836583758385839584058415842584358445845584658475848584958505851585258535854585558565857585858595860586158625863586458655866586758685869587058715872587358745875587658775878587958805881588258835884588558865887588858895890589158925893589458955896589758985899590059015902590359045905590659075908590959105911591259135914591559165917591859195920592159225923592459255926592759285929593059315932593359345935593659375938593959405941594259435944594559465947594859495950595159525953595459555956595759585959596059615962596359645965596659675968596959705971597259735974597559765977597859795980598159825983598459855986598759885989599059915992599359945995599659975998599960006001600260036004600560066007600860096010601160126013601460156016601760186019602060216022602360246025602660276028602960306031603260336034603560366037603860396040604160426043604460456046604760486049605060516052605360546055605660576058605960606061606260636064606560666067606860696070607160726073607460756076607760786079608060816082608360846085608660876088608960906091609260936094609560966097609860996100610161026103610461056106610761086109611061116112611361146115611661176118611961206121612261236124612561266127612861296130613161326133613461356136613761386139614061416142614361446145614661476148614961506151615261536154615561566157615861596160616161626163616461656166616761686169617061716172617361746175617661776178617961806181618261836184618561866187618861896190619161926193619461956196619761986199620062016202620362046205620662076208620962106211621262136214621562166217621862196220622162226223622462256226622762286229623062316232623362346235623662376238623962406241624262436244624562466247624862496250625162526253625462556256625762586259626062616262626362646265626662676268626962706271627262736274627562766277627862796280628162826283628462856286628762886289629062916292629362946295629662976298629963006301630263036304630563066307630863096310631163126313631463156316631763186319632063216322632363246325632663276328632963306331633263336334633563366337633863396340634163426343634463456346634763486349635063516352635363546355635663576358635963606361636263636364636563666367636863696370637163726373637463756376637763786379638063816382638363846385638663876388638963906391639263936394639563966397639863996400640164026403640464056406640764086409641064116412641364146415641664176418641964206421642264236424642564266427642864296430643164326433643464356436643764386439644064416442644364446445644664476448644964506451645264536454645564566457645864596460646164626463646464656466646764686469647064716472647364746475647664776478647964806481648264836484648564866487648864896490649164926493649464956496649764986499650065016502650365046505650665076508650965106511651265136514651565166517651865196520652165226523652465256526652765286529653065316532653365346535653665376538653965406541654265436544654565466547654865496550655165526553655465556556655765586559656065616562656365646565656665676568656965706571657265736574657565766577657865796580658165826583658465856586658765886589659065916592659365946595659665976598659966006601660266036604660566066607660866096610661166126613661466156616661766186619662066216622662366246625662666276628662966306631663266336634663566366637663866396640664166426643664466456646664766486649665066516652665366546655665666576658665966606661666266636664666566666667666866696670667166726673667466756676667766786679668066816682668366846685668666876688668966906691669266936694669566966697669866996700670167026703670467056706670767086709671067116712671367146715671667176718671967206721672267236724672567266727672867296730673167326733673467356736673767386739674067416742674367446745674667476748674967506751675267536754675567566757675867596760676167626763676467656766676767686769677067716772677367746775677667776778677967806781678267836784678567866787678867896790679167926793679467956796679767986799680068016802680368046805680668076808680968106811681268136814681568166817681868196820682168226823682468256826682768286829683068316832683368346835683668376838683968406841684268436844684568466847684868496850685168526853685468556856685768586859686068616862686368646865686668676868686968706871687268736874687568766877687868796880688168826883688468856886688768886889689068916892689368946895689668976898689969006901690269036904690569066907690869096910691169126913691469156916691769186919692069216922692369246925692669276928692969306931693269336934693569366937693869396940694169426943694469456946694769486949695069516952695369546955695669576958695969606961696269636964696569666967696869696970697169726973697469756976697769786979698069816982698369846985698669876988698969906991699269936994699569966997699869997000700170027003700470057006700770087009701070117012701370147015701670177018701970207021702270237024702570267027702870297030703170327033703470357036703770387039704070417042704370447045704670477048704970507051705270537054705570567057705870597060706170627063706470657066706770687069707070717072707370747075707670777078707970807081708270837084708570867087708870897090709170927093709470957096709770987099710071017102710371047105710671077108710971107111711271137114711571167117711871197120712171227123712471257126712771287129713071317132713371347135713671377138713971407141714271437144714571467147714871497150715171527153715471557156715771587159716071617162716371647165716671677168716971707171717271737174717571767177717871797180718171827183718471857186718771887189719071917192719371947195719671977198719972007201720272037204720572067207720872097210721172127213721472157216721772187219722072217222722372247225722672277228722972307231723272337234723572367237723872397240724172427243724472457246724772487249725072517252725372547255725672577258725972607261726272637264726572667267726872697270727172727273727472757276727772787279728072817282728372847285728672877288728972907291729272937294729572967297729872997300730173027303730473057306730773087309731073117312731373147315731673177318731973207321732273237324732573267327732873297330733173327333733473357336733773387339734073417342734373447345734673477348734973507351735273537354735573567357735873597360736173627363736473657366736773687369737073717372737373747375737673777378737973807381738273837384738573867387738873897390739173927393739473957396739773987399740074017402740374047405740674077408740974107411741274137414741574167417741874197420742174227423742474257426742774287429743074317432743374347435743674377438743974407441744274437444744574467447744874497450745174527453745474557456745774587459746074617462746374647465746674677468746974707471747274737474747574767477747874797480748174827483748474857486748774887489749074917492749374947495749674977498749975007501750275037504750575067507750875097510751175127513751475157516751775187519752075217522752375247525752675277528752975307531753275337534753575367537753875397540754175427543754475457546754775487549755075517552755375547555755675577558755975607561756275637564756575667567756875697570757175727573757475757576757775787579758075817582758375847585758675877588758975907591759275937594759575967597759875997600760176027603760476057606760776087609761076117612761376147615761676177618761976207621762276237624762576267627762876297630763176327633763476357636763776387639764076417642764376447645764676477648764976507651765276537654765576567657765876597660766176627663766476657666766776687669767076717672767376747675767676777678767976807681768276837684768576867687768876897690769176927693769476957696769776987699770077017702770377047705770677077708770977107711771277137714771577167717771877197720772177227723772477257726772777287729773077317732773377347735773677377738773977407741774277437744774577467747774877497750775177527753775477557756775777587759776077617762776377647765776677677768776977707771777277737774777577767777777877797780778177827783778477857786778777887789779077917792779377947795779677977798779978007801780278037804780578067807780878097810781178127813781478157816781778187819782078217822782378247825782678277828782978307831783278337834783578367837783878397840784178427843784478457846784778487849785078517852785378547855785678577858785978607861786278637864786578667867786878697870787178727873787478757876787778787879788078817882788378847885788678877888788978907891789278937894789578967897789878997900790179027903790479057906790779087909791079117912791379147915791679177918791979207921792279237924792579267927792879297930793179327933793479357936793779387939794079417942794379447945794679477948794979507951795279537954795579567957795879597960796179627963796479657966796779687969797079717972797379747975797679777978797979807981798279837984798579867987798879897990799179927993799479957996799779987999800080018002800380048005800680078008800980108011801280138014801580168017801880198020802180228023802480258026802780288029803080318032803380348035803680378038803980408041804280438044804580468047804880498050805180528053805480558056805780588059806080618062806380648065806680678068806980708071807280738074807580768077807880798080808180828083808480858086808780888089809080918092809380948095809680978098809981008101810281038104810581068107810881098110811181128113811481158116811781188119812081218122812381248125812681278128812981308131813281338134813581368137813881398140814181428143814481458146814781488149815081518152815381548155815681578158815981608161816281638164816581668167816881698170817181728173817481758176817781788179818081818182818381848185818681878188818981908191819281938194819581968197819881998200820182028203820482058206820782088209821082118212821382148215821682178218821982208221822282238224822582268227822882298230823182328233823482358236823782388239824082418242824382448245824682478248824982508251825282538254825582568257825882598260826182628263826482658266826782688269827082718272827382748275827682778278827982808281828282838284828582868287828882898290829182928293829482958296829782988299830083018302830383048305830683078308830983108311831283138314831583168317831883198320832183228323832483258326832783288329833083318332833383348335833683378338833983408341834283438344834583468347834883498350835183528353835483558356835783588359836083618362836383648365836683678368836983708371837283738374837583768377837883798380838183828383838483858386838783888389839083918392839383948395839683978398839984008401840284038404840584068407840884098410841184128413841484158416841784188419842084218422842384248425842684278428842984308431843284338434843584368437843884398440844184428443844484458446844784488449845084518452845384548455845684578458845984608461846284638464846584668467846884698470847184728473847484758476847784788479848084818482848384848485848684878488848984908491849284938494849584968497849884998500850185028503850485058506850785088509851085118512851385148515851685178518851985208521852285238524852585268527852885298530853185328533853485358536853785388539854085418542854385448545854685478548854985508551855285538554855585568557855885598560856185628563856485658566856785688569857085718572857385748575857685778578857985808581858285838584858585868587858885898590859185928593859485958596859785988599860086018602860386048605860686078608860986108611861286138614861586168617861886198620862186228623862486258626862786288629863086318632863386348635863686378638863986408641864286438644864586468647864886498650865186528653865486558656865786588659866086618662866386648665866686678668866986708671867286738674867586768677867886798680868186828683868486858686868786888689869086918692869386948695869686978698869987008701870287038704870587068707870887098710871187128713871487158716871787188719872087218722872387248725872687278728872987308731873287338734873587368737873887398740874187428743874487458746874787488749875087518752875387548755875687578758875987608761876287638764876587668767876887698770877187728773877487758776877787788779878087818782878387848785878687878788878987908791879287938794879587968797879887998800880188028803880488058806880788088809881088118812881388148815881688178818881988208821882288238824882588268827882888298830883188328833883488358836883788388839884088418842884388448845884688478848884988508851885288538854885588568857885888598860886188628863886488658866886788688869887088718872887388748875887688778878887988808881888288838884888588868887888888898890889188928893889488958896889788988899890089018902890389048905890689078908890989108911891289138914891589168917891889198920892189228923892489258926892789288929893089318932893389348935893689378938893989408941894289438944894589468947894889498950895189528953895489558956895789588959896089618962896389648965896689678968896989708971897289738974897589768977897889798980898189828983898489858986898789888989899089918992899389948995899689978998899990009001900290039004900590069007900890099010901190129013901490159016901790189019902090219022902390249025902690279028902990309031903290339034903590369037903890399040904190429043904490459046904790489049905090519052905390549055905690579058905990609061906290639064906590669067906890699070907190729073907490759076907790789079908090819082908390849085908690879088908990909091909290939094909590969097909890999100910191029103910491059106910791089109911091119112911391149115911691179118911991209121912291239124912591269127912891299130913191329133913491359136913791389139914091419142914391449145914691479148914991509151915291539154915591569157915891599160916191629163916491659166916791689169917091719172917391749175917691779178917991809181918291839184918591869187918891899190919191929193919491959196919791989199920092019202920392049205920692079208920992109211921292139214921592169217921892199220922192229223922492259226922792289229923092319232923392349235923692379238923992409241924292439244924592469247924892499250925192529253925492559256925792589259926092619262926392649265926692679268926992709271927292739274927592769277927892799280928192829283928492859286928792889289929092919292929392949295929692979298929993009301930293039304930593069307930893099310931193129313931493159316931793189319932093219322932393249325932693279328932993309331933293339334933593369337933893399340934193429343934493459346934793489349935093519352935393549355935693579358935993609361936293639364936593669367936893699370937193729373937493759376937793789379938093819382938393849385938693879388938993909391939293939394939593969397939893999400940194029403940494059406940794089409941094119412941394149415941694179418941994209421942294239424942594269427942894299430943194329433943494359436943794389439944094419442944394449445944694479448944994509451945294539454945594569457945894599460946194629463946494659466946794689469947094719472947394749475947694779478947994809481948294839484948594869487948894899490949194929493949494959496949794989499950095019502950395049505950695079508950995109511951295139514951595169517951895199520952195229523952495259526952795289529953095319532953395349535953695379538953995409541954295439544954595469547954895499550955195529553955495559556955795589559956095619562956395649565956695679568956995709571957295739574957595769577957895799580958195829583958495859586958795889589959095919592959395949595959695979598959996009601960296039604960596069607960896099610961196129613961496159616961796189619962096219622962396249625962696279628962996309631963296339634963596369637963896399640964196429643964496459646964796489649965096519652965396549655965696579658965996609661966296639664966596669667966896699670967196729673967496759676967796789679968096819682968396849685968696879688968996909691969296939694969596969697969896999700970197029703970497059706970797089709971097119712971397149715971697179718971997209721972297239724972597269727972897299730973197329733973497359736973797389739974097419742974397449745974697479748974997509751975297539754975597569757975897599760976197629763976497659766976797689769977097719772977397749775977697779778977997809781978297839784978597869787978897899790979197929793979497959796979797989799980098019802980398049805980698079808980998109811981298139814981598169817981898199820982198229823982498259826982798289829983098319832983398349835983698379838983998409841984298439844984598469847984898499850985198529853985498559856985798589859986098619862986398649865986698679868986998709871987298739874987598769877987898799880988198829883988498859886988798889889989098919892989398949895989698979898989999009901990299039904990599069907990899099910991199129913991499159916991799189919992099219922992399249925992699279928992999309931993299339934993599369937993899399940994199429943994499459946994799489949995099519952995399549955995699579958995999609961996299639964996599669967996899699970997199729973997499759976997799789979998099819982998399849985998699879988998999909991999299939994999599969997999899991000010001100021000310004100051000610007100081000910010100111001210013100141001510016100171001810019100201002110022100231002410025100261002710028100291003010031100321003310034100351003610037100381003910040100411004210043100441004510046100471004810049100501005110052100531005410055100561005710058100591006010061100621006310064100651006610067100681006910070100711007210073100741007510076100771007810079100801008110082100831008410085100861008710088100891009010091100921009310094100951009610097100981009910100101011010210103101041010510106101071010810109101101011110112101131011410115101161011710118101191012010121101221012310124101251012610127101281012910130101311013210133101341013510136101371013810139101401014110142101431014410145101461014710148101491015010151101521015310154101551015610157101581015910160101611016210163101641016510166101671016810169101701017110172101731017410175101761017710178101791018010181101821018310184101851018610187101881018910190101911019210193101941019510196101971019810199102001020110202102031020410205102061020710208102091021010211102121021310214102151021610217102181021910220102211022210223102241022510226102271022810229102301023110232102331023410235102361023710238102391024010241102421024310244102451024610247102481024910250102511025210253102541025510256102571025810259102601026110262102631026410265102661026710268102691027010271102721027310274102751027610277102781027910280102811028210283102841028510286102871028810289102901029110292102931029410295102961029710298102991030010301103021030310304103051030610307103081030910310103111031210313103141031510316103171031810319103201032110322103231032410325103261032710328103291033010331103321033310334103351033610337103381033910340103411034210343103441034510346103471034810349103501035110352103531035410355103561035710358103591036010361103621036310364103651036610367103681036910370103711037210373103741037510376103771037810379103801038110382103831038410385103861038710388103891039010391103921039310394103951039610397103981039910400104011040210403104041040510406104071040810409104101041110412104131041410415104161041710418104191042010421104221042310424104251042610427104281042910430104311043210433104341043510436104371043810439104401044110442104431044410445104461044710448104491045010451104521045310454104551045610457104581045910460104611046210463104641046510466104671046810469104701047110472104731047410475104761047710478104791048010481104821048310484104851048610487104881048910490104911049210493104941049510496104971049810499105001050110502105031050410505105061050710508105091051010511105121051310514105151051610517105181051910520105211052210523105241052510526105271052810529105301053110532105331053410535105361053710538105391054010541105421054310544105451054610547105481054910550105511055210553105541055510556105571055810559105601056110562105631056410565105661056710568105691057010571105721057310574105751057610577105781057910580105811058210583105841058510586105871058810589105901059110592105931059410595105961059710598105991060010601106021060310604106051060610607106081060910610106111061210613106141061510616106171061810619106201062110622106231062410625106261062710628106291063010631106321063310634106351063610637106381063910640106411064210643106441064510646106471064810649106501065110652106531065410655106561065710658106591066010661106621066310664106651066610667106681066910670106711067210673106741067510676106771067810679106801068110682106831068410685106861068710688106891069010691106921069310694106951069610697106981069910700107011070210703107041070510706107071070810709107101071110712107131071410715107161071710718107191072010721107221072310724107251072610727107281072910730107311073210733107341073510736107371073810739107401074110742107431074410745107461074710748107491075010751107521075310754107551075610757107581075910760107611076210763107641076510766107671076810769107701077110772107731077410775107761077710778107791078010781107821078310784107851078610787107881078910790107911079210793107941079510796107971079810799108001080110802108031080410805108061080710808108091081010811108121081310814108151081610817108181081910820108211082210823108241082510826108271082810829108301083110832108331083410835108361083710838108391084010841108421084310844108451084610847108481084910850108511085210853108541085510856108571085810859108601086110862108631086410865108661086710868108691087010871108721087310874108751087610877108781087910880108811088210883108841088510886108871088810889108901089110892108931089410895108961089710898108991090010901109021090310904109051090610907109081090910910109111091210913109141091510916109171091810919109201092110922109231092410925109261092710928109291093010931109321093310934109351093610937109381093910940109411094210943109441094510946109471094810949109501095110952109531095410955109561095710958109591096010961109621096310964109651096610967109681096910970109711097210973109741097510976109771097810979109801098110982109831098410985109861098710988109891099010991109921099310994109951099610997109981099911000110011100211003110041100511006110071100811009110101101111012110131101411015110161101711018110191102011021110221102311024110251102611027110281102911030110311103211033110341103511036110371103811039110401104111042110431104411045110461104711048110491105011051110521105311054110551105611057110581105911060110611106211063110641106511066110671106811069110701107111072110731107411075110761107711078110791108011081110821108311084110851108611087110881108911090110911109211093110941109511096110971109811099111001110111102111031110411105111061110711108111091111011111111121111311114111151111611117111181111911120111211112211123111241112511126111271112811129111301113111132111331113411135111361113711138111391114011141111421114311144111451114611147111481114911150111511115211153111541115511156111571115811159111601116111162111631116411165111661116711168111691117011171111721117311174111751117611177111781117911180111811118211183111841118511186111871118811189111901119111192111931119411195111961119711198111991120011201112021120311204112051120611207112081120911210112111121211213112141121511216112171121811219112201122111222112231122411225112261122711228112291123011231112321123311234112351123611237112381123911240112411124211243112441124511246112471124811249112501125111252112531125411255112561125711258112591126011261112621126311264112651126611267112681126911270112711127211273112741127511276112771127811279112801128111282112831128411285112861128711288112891129011291112921129311294112951129611297112981129911300113011130211303113041130511306113071130811309113101131111312113131131411315113161131711318113191132011321113221132311324113251132611327113281132911330113311133211333113341133511336113371133811339113401134111342113431134411345113461134711348113491135011351113521135311354113551135611357113581135911360113611136211363113641136511366113671136811369113701137111372113731137411375113761137711378113791138011381113821138311384113851138611387113881138911390113911139211393113941139511396113971139811399114001140111402114031140411405114061140711408114091141011411114121141311414114151141611417114181141911420114211142211423114241142511426114271142811429114301143111432114331143411435114361143711438114391144011441114421144311444114451144611447114481144911450114511145211453114541145511456114571145811459114601146111462114631146411465114661146711468114691147011471114721147311474114751147611477114781147911480114811148211483114841148511486114871148811489114901149111492114931149411495114961149711498114991150011501115021150311504115051150611507115081150911510115111151211513115141151511516115171151811519115201152111522115231152411525115261152711528115291153011531115321153311534115351153611537115381153911540115411154211543115441154511546115471154811549115501155111552115531155411555115561155711558115591156011561115621156311564115651156611567115681156911570115711157211573115741157511576115771157811579115801158111582115831158411585115861158711588115891159011591115921159311594115951159611597115981159911600116011160211603116041160511606116071160811609116101161111612116131161411615116161161711618116191162011621116221162311624116251162611627116281162911630116311163211633116341163511636116371163811639116401164111642116431164411645116461164711648116491165011651116521165311654116551165611657116581165911660116611166211663116641166511666116671166811669116701167111672116731167411675116761167711678116791168011681116821168311684116851168611687116881168911690116911169211693116941169511696116971169811699117001170111702117031170411705117061170711708117091171011711117121171311714117151171611717117181171911720117211172211723117241172511726117271172811729117301173111732117331173411735117361173711738117391174011741117421174311744117451174611747117481174911750117511175211753117541175511756117571175811759117601176111762117631176411765117661176711768117691177011771117721177311774117751177611777117781177911780117811178211783117841178511786117871178811789117901179111792117931179411795117961179711798117991180011801118021180311804118051180611807118081180911810118111181211813118141181511816118171181811819118201182111822118231182411825118261182711828118291183011831118321183311834118351183611837118381183911840118411184211843118441184511846118471184811849118501185111852118531185411855118561185711858118591186011861118621186311864118651186611867118681186911870118711187211873118741187511876118771187811879118801188111882118831188411885118861188711888118891189011891118921189311894118951189611897118981189911900119011190211903119041190511906119071190811909119101191111912119131191411915119161191711918119191192011921119221192311924119251192611927119281192911930119311193211933119341193511936119371193811939119401194111942119431194411945119461194711948119491195011951119521195311954119551195611957119581195911960119611196211963119641196511966119671196811969119701197111972119731197411975119761197711978119791198011981119821198311984119851198611987119881198911990119911199211993119941199511996119971199811999120001200112002120031200412005120061200712008120091201012011120121201312014120151201612017120181201912020120211202212023120241202512026120271202812029120301203112032120331203412035120361203712038120391204012041120421204312044120451204612047120481204912050120511205212053120541205512056120571205812059120601206112062120631206412065120661206712068120691207012071120721207312074120751207612077120781207912080120811208212083120841208512086120871208812089120901209112092120931209412095120961209712098120991210012101121021210312104121051210612107121081210912110121111211212113121141211512116121171211812119121201212112122121231212412125121261212712128121291213012131121321213312134121351213612137121381213912140121411214212143121441214512146121471214812149121501215112152121531215412155121561215712158121591216012161121621216312164121651216612167121681216912170121711217212173121741217512176121771217812179121801218112182121831218412185121861218712188121891219012191121921219312194121951219612197121981219912200122011220212203122041220512206122071220812209122101221112212122131221412215122161221712218122191222012221122221222312224122251222612227122281222912230122311223212233122341223512236122371223812239122401224112242122431224412245122461224712248122491225012251122521225312254122551225612257122581225912260122611226212263122641226512266122671226812269122701227112272122731227412275122761227712278122791228012281122821228312284122851228612287122881228912290122911229212293122941229512296122971229812299123001230112302123031230412305123061230712308123091231012311123121231312314123151231612317123181231912320123211232212323123241232512326123271232812329123301233112332123331233412335123361233712338123391234012341123421234312344123451234612347123481234912350123511235212353123541235512356123571235812359123601236112362123631236412365123661236712368123691237012371123721237312374123751237612377123781237912380123811238212383123841238512386123871238812389123901239112392123931239412395123961239712398123991240012401124021240312404124051240612407124081240912410124111241212413124141241512416124171241812419124201242112422124231242412425124261242712428124291243012431124321243312434124351243612437124381243912440124411244212443124441244512446124471244812449124501245112452124531245412455124561245712458124591246012461124621246312464124651246612467124681246912470124711247212473124741247512476124771247812479124801248112482124831248412485124861248712488124891249012491124921249312494124951249612497124981249912500125011250212503125041250512506125071250812509125101251112512125131251412515125161251712518125191252012521125221252312524125251252612527125281252912530125311253212533125341253512536125371253812539125401254112542125431254412545125461254712548125491255012551125521255312554125551255612557125581255912560125611256212563125641256512566125671256812569125701257112572125731257412575125761257712578125791258012581125821258312584125851258612587125881258912590125911259212593125941259512596125971259812599126001260112602126031260412605126061260712608126091261012611126121261312614126151261612617126181261912620126211262212623126241262512626126271262812629126301263112632126331263412635126361263712638126391264012641126421264312644126451264612647126481264912650126511265212653126541265512656126571265812659126601266112662126631266412665126661266712668126691267012671126721267312674126751267612677126781267912680126811268212683126841268512686126871268812689126901269112692126931269412695126961269712698126991270012701127021270312704127051270612707127081270912710127111271212713127141271512716127171271812719127201272112722127231272412725127261272712728127291273012731127321273312734127351273612737127381273912740127411274212743127441274512746127471274812749127501275112752127531275412755127561275712758127591276012761127621276312764127651276612767127681276912770127711277212773127741277512776127771277812779127801278112782127831278412785127861278712788127891279012791127921279312794127951279612797127981279912800128011280212803128041280512806128071280812809128101281112812128131281412815128161281712818128191282012821128221282312824128251282612827128281282912830128311283212833128341283512836128371283812839128401284112842128431284412845128461284712848128491285012851128521285312854128551285612857128581285912860128611286212863128641286512866128671286812869128701287112872128731287412875128761287712878128791288012881128821288312884128851288612887128881288912890128911289212893128941289512896128971289812899129001290112902129031290412905129061290712908129091291012911129121291312914129151291612917129181291912920129211292212923129241292512926129271292812929129301293112932129331293412935129361293712938129391294012941129421294312944129451294612947129481294912950129511295212953129541295512956129571295812959129601296112962129631296412965129661296712968129691297012971129721297312974129751297612977129781297912980129811298212983129841298512986129871298812989129901299112992129931299412995129961299712998129991300013001130021300313004130051300613007130081300913010130111301213013130141301513016130171301813019130201302113022130231302413025130261302713028130291303013031130321303313034130351303613037130381303913040130411304213043130441304513046130471304813049130501305113052130531305413055130561305713058130591306013061130621306313064130651306613067130681306913070130711307213073130741307513076130771307813079130801308113082130831308413085130861308713088130891309013091130921309313094130951309613097130981309913100131011310213103131041310513106131071310813109131101311113112131131311413115131161311713118131191312013121131221312313124131251312613127131281312913130131311313213133131341313513136131371313813139131401314113142131431314413145131461314713148131491315013151131521315313154131551315613157131581315913160131611316213163131641316513166131671316813169131701317113172131731317413175131761317713178131791318013181131821318313184131851318613187131881318913190131911319213193131941319513196131971319813199132001320113202132031320413205132061320713208132091321013211132121321313214132151321613217132181321913220132211322213223132241322513226132271322813229132301323113232132331323413235132361323713238132391324013241132421324313244132451324613247132481324913250132511325213253132541325513256132571325813259132601326113262132631326413265132661326713268132691327013271132721327313274132751327613277132781327913280132811328213283132841328513286132871328813289132901329113292132931329413295132961329713298132991330013301133021330313304133051330613307133081330913310133111331213313133141331513316133171331813319133201332113322133231332413325133261332713328133291333013331133321333313334133351333613337133381333913340133411334213343133441334513346133471334813349133501335113352133531335413355133561335713358133591336013361133621336313364133651336613367133681336913370133711337213373133741337513376133771337813379133801338113382133831338413385133861338713388133891339013391133921339313394133951339613397133981339913400134011340213403134041340513406134071340813409134101341113412134131341413415134161341713418134191342013421134221342313424134251342613427134281342913430134311343213433134341343513436134371343813439134401344113442134431344413445134461344713448134491345013451134521345313454134551345613457134581345913460134611346213463134641346513466134671346813469134701347113472134731347413475134761347713478134791348013481134821348313484134851348613487134881348913490134911349213493134941349513496134971349813499135001350113502135031350413505135061350713508135091351013511135121351313514135151351613517135181351913520135211352213523135241352513526135271352813529135301353113532135331353413535135361353713538135391354013541135421354313544135451354613547135481354913550135511355213553135541355513556135571355813559135601356113562135631356413565135661356713568135691357013571135721357313574135751357613577135781357913580135811358213583135841358513586135871358813589135901359113592135931359413595135961359713598135991360013601136021360313604136051360613607136081360913610136111361213613136141361513616136171361813619136201362113622136231362413625136261362713628136291363013631136321363313634136351363613637136381363913640136411364213643136441364513646136471364813649136501365113652136531365413655136561365713658136591366013661136621366313664136651366613667136681366913670136711367213673136741367513676136771367813679136801368113682136831368413685136861368713688136891369013691136921369313694136951369613697136981369913700137011370213703137041370513706137071370813709137101371113712137131371413715137161371713718137191372013721137221372313724137251372613727137281372913730137311373213733137341373513736137371373813739137401374113742137431374413745137461374713748137491375013751137521375313754137551375613757137581375913760137611376213763137641376513766137671376813769137701377113772137731377413775137761377713778137791378013781137821378313784137851378613787137881378913790137911379213793137941379513796137971379813799138001380113802138031380413805138061380713808138091381013811138121381313814138151381613817138181381913820138211382213823138241382513826138271382813829138301383113832138331383413835138361383713838138391384013841138421384313844138451384613847138481384913850138511385213853138541385513856138571385813859138601386113862138631386413865138661386713868138691387013871138721387313874138751387613877138781387913880138811388213883138841388513886138871388813889138901389113892138931389413895138961389713898138991390013901139021390313904139051390613907139081390913910139111391213913139141391513916139171391813919139201392113922139231392413925139261392713928139291393013931139321393313934139351393613937139381393913940139411394213943139441394513946139471394813949139501395113952139531395413955139561395713958139591396013961139621396313964139651396613967139681396913970139711397213973139741397513976139771397813979139801398113982139831398413985139861398713988139891399013991139921399313994139951399613997139981399914000140011400214003140041400514006140071400814009140101401114012140131401414015140161401714018140191402014021140221402314024140251402614027140281402914030140311403214033140341403514036140371403814039140401404114042140431404414045140461404714048140491405014051140521405314054140551405614057140581405914060140611406214063140641406514066140671406814069140701407114072140731407414075140761407714078140791408014081140821408314084140851408614087140881408914090140911409214093140941409514096140971409814099141001410114102141031410414105141061410714108141091411014111141121411314114141151411614117141181411914120141211412214123141241412514126141271412814129141301413114132141331413414135141361413714138141391414014141141421414314144141451414614147141481414914150141511415214153141541415514156141571415814159141601416114162141631416414165141661416714168141691417014171141721417314174141751417614177141781417914180141811418214183141841418514186141871418814189141901419114192141931419414195141961419714198141991420014201142021420314204142051420614207142081420914210142111421214213142141421514216142171421814219142201422114222142231422414225142261422714228142291423014231142321423314234142351423614237142381423914240142411424214243142441424514246142471424814249142501425114252142531425414255142561425714258142591426014261142621426314264142651426614267142681426914270142711427214273142741427514276142771427814279142801428114282142831428414285142861428714288142891429014291142921429314294142951429614297142981429914300143011430214303143041430514306143071430814309143101431114312143131431414315143161431714318143191432014321143221432314324143251432614327143281432914330143311433214333143341433514336143371433814339143401434114342143431434414345143461434714348143491435014351143521435314354143551435614357143581435914360143611436214363143641436514366143671436814369143701437114372143731437414375143761437714378143791438014381143821438314384143851438614387143881438914390143911439214393143941439514396143971439814399144001440114402144031440414405144061440714408144091441014411144121441314414144151441614417144181441914420144211442214423144241442514426144271442814429144301443114432144331443414435144361443714438144391444014441144421444314444144451444614447144481444914450144511445214453144541445514456144571445814459144601446114462144631446414465144661446714468144691447014471144721447314474144751447614477144781447914480144811448214483144841448514486144871448814489144901449114492144931449414495144961449714498144991450014501145021450314504145051450614507145081450914510145111451214513145141451514516145171451814519145201452114522145231452414525145261452714528145291453014531145321453314534145351453614537145381453914540145411454214543145441454514546145471454814549145501455114552145531455414555145561455714558145591456014561145621456314564145651456614567145681456914570145711457214573145741457514576145771457814579145801458114582145831458414585145861458714588145891459014591145921459314594145951459614597145981459914600146011460214603146041460514606146071460814609146101461114612146131461414615146161461714618146191462014621146221462314624146251462614627146281462914630146311463214633146341463514636146371463814639146401464114642146431464414645146461464714648146491465014651146521465314654146551465614657146581465914660146611466214663146641466514666146671466814669146701467114672146731467414675146761467714678146791468014681146821468314684146851468614687146881468914690146911469214693146941469514696146971469814699147001470114702147031470414705147061470714708147091471014711147121471314714147151471614717147181471914720147211472214723147241472514726147271472814729147301473114732147331473414735147361473714738147391474014741147421474314744147451474614747147481474914750147511475214753147541475514756147571475814759147601476114762147631476414765147661476714768147691477014771147721477314774147751477614777147781477914780147811478214783147841478514786147871478814789147901479114792147931479414795147961479714798147991480014801148021480314804148051480614807148081480914810148111481214813148141481514816148171481814819148201482114822148231482414825148261482714828148291483014831148321483314834148351483614837148381483914840148411484214843148441484514846148471484814849148501485114852148531485414855148561485714858148591486014861148621486314864148651486614867148681486914870148711487214873148741487514876148771487814879148801488114882148831488414885148861488714888148891489014891148921489314894148951489614897148981489914900149011490214903149041490514906149071490814909149101491114912149131491414915149161491714918149191492014921149221492314924149251492614927149281492914930149311493214933149341493514936149371493814939149401494114942149431494414945149461494714948149491495014951149521495314954149551495614957149581495914960149611496214963149641496514966149671496814969149701497114972149731497414975149761497714978149791498014981149821498314984149851498614987149881498914990149911499214993149941499514996149971499814999150001500115002150031500415005150061500715008150091501015011150121501315014150151501615017150181501915020150211502215023150241502515026150271502815029150301503115032150331503415035150361503715038150391504015041150421504315044150451504615047150481504915050150511505215053150541505515056150571505815059150601506115062150631506415065150661506715068150691507015071150721507315074150751507615077150781507915080150811508215083150841508515086150871508815089150901509115092150931509415095150961509715098150991510015101151021510315104151051510615107151081510915110151111511215113151141511515116151171511815119151201512115122151231512415125151261512715128151291513015131151321513315134151351513615137151381513915140151411514215143151441514515146151471514815149151501515115152151531515415155151561515715158151591516015161151621516315164151651516615167151681516915170151711517215173151741517515176151771517815179151801518115182151831518415185151861518715188151891519015191151921519315194151951519615197151981519915200152011520215203152041520515206152071520815209152101521115212152131521415215152161521715218152191522015221152221522315224152251522615227152281522915230152311523215233152341523515236152371523815239152401524115242152431524415245152461524715248152491525015251152521525315254152551525615257152581525915260152611526215263152641526515266152671526815269152701527115272152731527415275152761527715278152791528015281152821528315284152851528615287152881528915290152911529215293152941529515296152971529815299153001530115302153031530415305153061530715308153091531015311153121531315314153151531615317153181531915320153211532215323153241532515326153271532815329153301533115332153331533415335153361533715338153391534015341153421534315344153451534615347153481534915350153511535215353153541535515356153571535815359153601536115362153631536415365153661536715368153691537015371153721537315374153751537615377153781537915380153811538215383153841538515386153871538815389153901539115392153931539415395153961539715398153991540015401154021540315404154051540615407154081540915410154111541215413154141541515416154171541815419154201542115422154231542415425154261542715428154291543015431154321543315434154351543615437154381543915440154411544215443154441544515446154471544815449154501545115452154531545415455154561545715458154591546015461154621546315464154651546615467154681546915470154711547215473154741547515476154771547815479154801548115482154831548415485154861548715488154891549015491154921549315494154951549615497154981549915500155011550215503155041550515506155071550815509155101551115512155131551415515155161551715518155191552015521155221552315524155251552615527155281552915530155311553215533155341553515536155371553815539155401554115542155431554415545155461554715548155491555015551155521555315554155551555615557155581555915560155611556215563155641556515566155671556815569155701557115572155731557415575155761557715578155791558015581155821558315584155851558615587155881558915590155911559215593155941559515596155971559815599156001560115602156031560415605156061560715608156091561015611156121561315614156151561615617156181561915620156211562215623156241562515626156271562815629156301563115632156331563415635156361563715638156391564015641156421564315644156451564615647156481564915650156511565215653156541565515656156571565815659156601566115662156631566415665156661566715668156691567015671156721567315674156751567615677156781567915680156811568215683156841568515686156871568815689156901569115692156931569415695156961569715698156991570015701157021570315704157051570615707157081570915710157111571215713157141571515716157171571815719157201572115722157231572415725157261572715728157291573015731157321573315734157351573615737157381573915740157411574215743157441574515746157471574815749157501575115752157531575415755157561575715758157591576015761157621576315764157651576615767157681576915770157711577215773157741577515776157771577815779157801578115782157831578415785157861578715788157891579015791157921579315794157951579615797157981579915800158011580215803158041580515806158071580815809158101581115812158131581415815158161581715818158191582015821158221582315824158251582615827158281582915830158311583215833158341583515836158371583815839158401584115842158431584415845158461584715848158491585015851158521585315854158551585615857158581585915860158611586215863158641586515866158671586815869158701587115872158731587415875158761587715878158791588015881158821588315884158851588615887158881588915890158911589215893158941589515896158971589815899159001590115902159031590415905159061590715908159091591015911159121591315914159151591615917159181591915920159211592215923159241592515926159271592815929159301593115932159331593415935159361593715938159391594015941159421594315944159451594615947159481594915950159511595215953159541595515956159571595815959159601596115962159631596415965159661596715968159691597015971159721597315974159751597615977159781597915980159811598215983159841598515986159871598815989159901599115992159931599415995159961599715998159991600016001160021600316004160051600616007160081600916010160111601216013160141601516016160171601816019160201602116022160231602416025160261602716028160291603016031160321603316034160351603616037160381603916040160411604216043160441604516046160471604816049160501605116052160531605416055160561605716058160591606016061160621606316064160651606616067160681606916070160711607216073160741607516076160771607816079160801608116082160831608416085160861608716088160891609016091160921609316094160951609616097160981609916100161011610216103161041610516106161071610816109161101611116112161131611416115161161611716118161191612016121161221612316124161251612616127161281612916130161311613216133161341613516136161371613816139161401614116142161431614416145161461614716148161491615016151161521615316154161551615616157161581615916160161611616216163161641616516166161671616816169161701617116172161731617416175161761617716178161791618016181161821618316184161851618616187161881618916190161911619216193161941619516196161971619816199162001620116202162031620416205162061620716208162091621016211162121621316214162151621616217162181621916220162211622216223162241622516226162271622816229162301623116232162331623416235162361623716238162391624016241162421624316244162451624616247162481624916250162511625216253162541625516256162571625816259162601626116262162631626416265162661626716268162691627016271162721627316274162751627616277162781627916280162811628216283162841628516286162871628816289162901629116292162931629416295162961629716298162991630016301163021630316304163051630616307163081630916310163111631216313163141631516316163171631816319163201632116322163231632416325163261632716328163291633016331163321633316334163351633616337163381633916340163411634216343163441634516346163471634816349163501635116352163531635416355163561635716358163591636016361163621636316364163651636616367163681636916370163711637216373163741637516376163771637816379163801638116382163831638416385163861638716388163891639016391163921639316394163951639616397163981639916400164011640216403164041640516406164071640816409164101641116412164131641416415164161641716418164191642016421164221642316424164251642616427164281642916430164311643216433164341643516436164371643816439164401644116442164431644416445164461644716448164491645016451164521645316454164551645616457164581645916460164611646216463164641646516466164671646816469164701647116472164731647416475164761647716478164791648016481164821648316484164851648616487164881648916490164911649216493164941649516496164971649816499165001650116502165031650416505165061650716508165091651016511165121651316514165151651616517165181651916520165211652216523165241652516526165271652816529165301653116532165331653416535165361653716538165391654016541165421654316544165451654616547165481654916550165511655216553165541655516556165571655816559165601656116562165631656416565165661656716568165691657016571165721657316574165751657616577165781657916580165811658216583165841658516586165871658816589165901659116592165931659416595165961659716598165991660016601166021660316604166051660616607166081660916610166111661216613166141661516616166171661816619166201662116622166231662416625166261662716628166291663016631166321663316634166351663616637166381663916640166411664216643166441664516646166471664816649166501665116652166531665416655166561665716658166591666016661166621666316664166651666616667166681666916670166711667216673166741667516676166771667816679166801668116682166831668416685166861668716688166891669016691166921669316694166951669616697166981669916700167011670216703167041670516706167071670816709167101671116712167131671416715167161671716718167191672016721167221672316724167251672616727167281672916730167311673216733167341673516736167371673816739167401674116742167431674416745167461674716748167491675016751167521675316754167551675616757167581675916760167611676216763167641676516766167671676816769167701677116772167731677416775167761677716778167791678016781167821678316784167851678616787167881678916790167911679216793167941679516796167971679816799168001680116802168031680416805168061680716808168091681016811168121681316814168151681616817168181681916820168211682216823168241682516826168271682816829168301683116832168331683416835168361683716838168391684016841168421684316844168451684616847168481684916850168511685216853168541685516856168571685816859168601686116862168631686416865168661686716868168691687016871168721687316874168751687616877168781687916880168811688216883168841688516886168871688816889168901689116892168931689416895168961689716898168991690016901169021690316904169051690616907169081690916910169111691216913169141691516916169171691816919169201692116922169231692416925169261692716928169291693016931169321693316934169351693616937169381693916940169411694216943169441694516946169471694816949169501695116952169531695416955169561695716958169591696016961169621696316964169651696616967169681696916970169711697216973169741697516976169771697816979169801698116982169831698416985169861698716988169891699016991169921699316994169951699616997169981699917000170011700217003170041700517006170071700817009170101701117012170131701417015170161701717018170191702017021170221702317024170251702617027170281702917030170311703217033170341703517036170371703817039170401704117042170431704417045170461704717048170491705017051170521705317054170551705617057170581705917060170611706217063170641706517066170671706817069170701707117072170731707417075170761707717078170791708017081170821708317084170851708617087170881708917090170911709217093170941709517096170971709817099171001710117102171031710417105171061710717108171091711017111171121711317114171151711617117171181711917120171211712217123171241712517126171271712817129171301713117132171331713417135171361713717138171391714017141171421714317144171451714617147171481714917150171511715217153171541715517156171571715817159171601716117162171631716417165171661716717168171691717017171171721717317174171751717617177171781717917180171811718217183171841718517186171871718817189171901719117192171931719417195171961719717198171991720017201172021720317204172051720617207172081720917210172111721217213172141721517216172171721817219172201722117222172231722417225172261722717228172291723017231172321723317234172351723617237172381723917240172411724217243172441724517246172471724817249172501725117252172531725417255172561725717258172591726017261172621726317264172651726617267172681726917270172711727217273172741727517276172771727817279172801728117282172831728417285172861728717288172891729017291172921729317294172951729617297172981729917300173011730217303173041730517306173071730817309173101731117312173131731417315173161731717318173191732017321173221732317324173251732617327173281732917330173311733217333173341733517336173371733817339173401734117342173431734417345173461734717348173491735017351173521735317354173551735617357173581735917360173611736217363173641736517366173671736817369173701737117372173731737417375173761737717378173791738017381173821738317384173851738617387173881738917390173911739217393173941739517396173971739817399174001740117402174031740417405174061740717408174091741017411174121741317414174151741617417174181741917420174211742217423174241742517426174271742817429174301743117432174331743417435174361743717438174391744017441174421744317444174451744617447174481744917450174511745217453174541745517456174571745817459174601746117462174631746417465174661746717468174691747017471174721747317474174751747617477174781747917480174811748217483174841748517486174871748817489174901749117492174931749417495174961749717498174991750017501175021750317504175051750617507175081750917510175111751217513175141751517516175171751817519175201752117522175231752417525175261752717528175291753017531175321753317534175351753617537175381753917540175411754217543175441754517546175471754817549175501755117552175531755417555175561755717558175591756017561175621756317564175651756617567175681756917570175711757217573175741757517576175771757817579175801758117582175831758417585175861758717588175891759017591175921759317594175951759617597175981759917600176011760217603176041760517606176071760817609176101761117612176131761417615176161761717618176191762017621176221762317624176251762617627176281762917630176311763217633176341763517636176371763817639176401764117642176431764417645176461764717648176491765017651176521765317654176551765617657176581765917660176611766217663176641766517666176671766817669176701767117672176731767417675176761767717678176791768017681176821768317684176851768617687176881768917690176911769217693176941769517696176971769817699177001770117702177031770417705177061770717708177091771017711177121771317714177151771617717177181771917720177211772217723177241772517726177271772817729177301773117732177331773417735177361773717738177391774017741177421774317744177451774617747177481774917750177511775217753177541775517756177571775817759177601776117762177631776417765177661776717768177691777017771177721777317774177751777617777177781777917780177811778217783177841778517786177871778817789177901779117792177931779417795177961779717798177991780017801178021780317804178051780617807178081780917810178111781217813178141781517816178171781817819178201782117822178231782417825178261782717828178291783017831178321783317834178351783617837178381783917840178411784217843178441784517846178471784817849178501785117852178531785417855178561785717858178591786017861178621786317864178651786617867178681786917870178711787217873178741787517876178771787817879178801788117882178831788417885178861788717888178891789017891178921789317894178951789617897178981789917900179011790217903179041790517906179071790817909179101791117912179131791417915179161791717918179191792017921179221792317924179251792617927179281792917930179311793217933179341793517936179371793817939179401794117942179431794417945179461794717948179491795017951179521795317954179551795617957179581795917960179611796217963179641796517966179671796817969179701797117972179731797417975179761797717978179791798017981179821798317984179851798617987179881798917990179911799217993179941799517996179971799817999180001800118002180031800418005180061800718008180091801018011180121801318014180151801618017180181801918020180211802218023180241802518026180271802818029180301803118032180331803418035180361803718038180391804018041180421804318044180451804618047180481804918050180511805218053180541805518056180571805818059180601806118062180631806418065180661806718068180691807018071180721807318074180751807618077180781807918080180811808218083180841808518086180871808818089180901809118092180931809418095180961809718098180991810018101181021810318104181051810618107181081810918110181111811218113181141811518116181171811818119181201812118122181231812418125181261812718128181291813018131181321813318134181351813618137181381813918140181411814218143181441814518146181471814818149181501815118152181531815418155181561815718158181591816018161181621816318164181651816618167181681816918170181711817218173181741817518176181771817818179181801818118182181831818418185181861818718188181891819018191181921819318194181951819618197181981819918200182011820218203182041820518206182071820818209182101821118212182131821418215182161821718218182191822018221182221822318224182251822618227182281822918230182311823218233182341823518236182371823818239182401824118242182431824418245182461824718248182491825018251182521825318254182551825618257182581825918260182611826218263182641826518266182671826818269182701827118272182731827418275182761827718278182791828018281182821828318284182851828618287182881828918290182911829218293182941829518296182971829818299183001830118302183031830418305183061830718308183091831018311183121831318314183151831618317183181831918320183211832218323183241832518326183271832818329183301833118332183331833418335183361833718338183391834018341183421834318344183451834618347183481834918350183511835218353183541835518356183571835818359183601836118362183631836418365183661836718368183691837018371183721837318374183751837618377183781837918380183811838218383183841838518386183871838818389183901839118392183931839418395183961839718398183991840018401184021840318404184051840618407184081840918410184111841218413184141841518416184171841818419184201842118422184231842418425184261842718428184291843018431184321843318434184351843618437184381843918440184411844218443184441844518446184471844818449184501845118452184531845418455184561845718458184591846018461184621846318464184651846618467184681846918470184711847218473184741847518476184771847818479184801848118482184831848418485184861848718488184891849018491184921849318494184951849618497184981849918500185011850218503185041850518506185071850818509185101851118512185131851418515185161851718518185191852018521185221852318524185251852618527185281852918530185311853218533185341853518536185371853818539185401854118542185431854418545185461854718548185491855018551185521855318554185551855618557185581855918560185611856218563185641856518566185671856818569185701857118572185731857418575185761857718578185791858018581185821858318584185851858618587185881858918590185911859218593185941859518596185971859818599186001860118602186031860418605186061860718608186091861018611186121861318614186151861618617186181861918620186211862218623186241862518626186271862818629186301863118632186331863418635186361863718638186391864018641186421864318644186451864618647186481864918650186511865218653186541865518656186571865818659186601866118662186631866418665186661866718668186691867018671186721867318674186751867618677186781867918680186811868218683186841868518686186871868818689186901869118692186931869418695186961869718698186991870018701187021870318704187051870618707187081870918710187111871218713187141871518716187171871818719187201872118722187231872418725187261872718728187291873018731187321873318734187351873618737187381873918740187411874218743187441874518746187471874818749187501875118752187531875418755187561875718758187591876018761187621876318764187651876618767187681876918770187711877218773187741877518776187771877818779187801878118782187831878418785187861878718788187891879018791187921879318794187951879618797187981879918800188011880218803188041880518806188071880818809188101881118812188131881418815188161881718818188191882018821188221882318824188251882618827188281882918830188311883218833188341883518836188371883818839188401884118842188431884418845188461884718848188491885018851188521885318854188551885618857188581885918860188611886218863188641886518866188671886818869188701887118872188731887418875188761887718878188791888018881188821888318884188851888618887188881888918890188911889218893188941889518896188971889818899189001890118902189031890418905189061890718908189091891018911189121891318914189151891618917189181891918920189211892218923189241892518926189271892818929189301893118932189331893418935189361893718938189391894018941189421894318944189451894618947189481894918950189511895218953189541895518956189571895818959189601896118962189631896418965189661896718968189691897018971189721897318974189751897618977189781897918980189811898218983189841898518986189871898818989189901899118992189931899418995189961899718998189991900019001190021900319004190051900619007190081900919010190111901219013190141901519016190171901819019190201902119022190231902419025190261902719028190291903019031190321903319034190351903619037190381903919040190411904219043190441904519046190471904819049190501905119052190531905419055190561905719058190591906019061190621906319064190651906619067190681906919070190711907219073190741907519076190771907819079190801908119082190831908419085190861908719088190891909019091190921909319094190951909619097190981909919100191011910219103191041910519106191071910819109191101911119112191131911419115191161911719118191191912019121191221912319124191251912619127191281912919130191311913219133191341913519136191371913819139191401914119142191431914419145191461914719148191491915019151191521915319154191551915619157191581915919160191611916219163191641916519166191671916819169191701917119172191731917419175191761917719178191791918019181191821918319184191851918619187191881918919190191911919219193191941919519196191971919819199192001920119202192031920419205192061920719208192091921019211192121921319214192151921619217192181921919220192211922219223192241922519226192271922819229192301923119232192331923419235192361923719238192391924019241192421924319244192451924619247192481924919250192511925219253192541925519256192571925819259192601926119262192631926419265192661926719268192691927019271192721927319274192751927619277192781927919280192811928219283192841928519286192871928819289192901929119292192931929419295192961929719298192991930019301193021930319304193051930619307193081930919310193111931219313193141931519316193171931819319193201932119322193231932419325193261932719328193291933019331193321933319334193351933619337193381933919340193411934219343193441934519346193471934819349193501935119352193531935419355193561935719358193591936019361193621936319364193651936619367193681936919370193711937219373193741937519376193771937819379193801938119382193831938419385193861938719388193891939019391193921939319394193951939619397193981939919400194011940219403194041940519406194071940819409194101941119412194131941419415194161941719418194191942019421194221942319424194251942619427194281942919430194311943219433194341943519436194371943819439194401944119442194431944419445194461944719448194491945019451194521945319454194551945619457194581945919460194611946219463194641946519466194671946819469194701947119472194731947419475194761947719478194791948019481194821948319484194851948619487194881948919490194911949219493194941949519496194971949819499195001950119502195031950419505195061950719508195091951019511195121951319514195151951619517195181951919520195211952219523195241952519526195271952819529195301953119532195331953419535195361953719538195391954019541195421954319544195451954619547195481954919550195511955219553195541955519556195571955819559195601956119562195631956419565195661956719568195691957019571195721957319574195751957619577195781957919580195811958219583195841958519586195871958819589195901959119592195931959419595195961959719598195991960019601196021960319604196051960619607196081960919610196111961219613196141961519616196171961819619196201962119622196231962419625196261962719628196291963019631196321963319634196351963619637196381963919640196411964219643196441964519646196471964819649196501965119652196531965419655196561965719658196591966019661196621966319664196651966619667196681966919670196711967219673196741967519676196771967819679196801968119682196831968419685196861968719688196891969019691196921969319694196951969619697196981969919700197011970219703197041970519706197071970819709197101971119712197131971419715197161971719718197191972019721197221972319724197251972619727197281972919730197311973219733197341973519736197371973819739197401974119742197431974419745197461974719748197491975019751197521975319754197551975619757197581975919760197611976219763197641976519766197671976819769197701977119772197731977419775197761977719778197791978019781197821978319784197851978619787197881978919790197911979219793197941979519796197971979819799198001980119802198031980419805198061980719808198091981019811198121981319814198151981619817198181981919820198211982219823198241982519826198271982819829198301983119832198331983419835198361983719838198391984019841198421984319844198451984619847198481984919850198511985219853198541985519856198571985819859198601986119862198631986419865198661986719868198691987019871198721987319874198751987619877198781987919880198811988219883198841988519886198871988819889198901989119892198931989419895198961989719898198991990019901199021990319904199051990619907199081990919910199111991219913199141991519916199171991819919199201992119922199231992419925199261992719928199291993019931199321993319934199351993619937199381993919940199411994219943199441994519946199471994819949199501995119952199531995419955199561995719958199591996019961199621996319964199651996619967199681996919970199711997219973199741997519976199771997819979199801998119982199831998419985199861998719988199891999019991199921999319994199951999619997199981999920000200012000220003200042000520006200072000820009200102001120012200132001420015200162001720018200192002020021200222002320024200252002620027200282002920030200312003220033200342003520036200372003820039200402004120042200432004420045200462004720048200492005020051200522005320054200552005620057200582005920060200612006220063200642006520066200672006820069200702007120072200732007420075200762007720078200792008020081200822008320084200852008620087200882008920090200912009220093200942009520096200972009820099201002010120102201032010420105201062010720108201092011020111201122011320114201152011620117201182011920120201212012220123201242012520126201272012820129201302013120132201332013420135201362013720138201392014020141201422014320144201452014620147201482014920150201512015220153201542015520156201572015820159201602016120162201632016420165201662016720168201692017020171201722017320174201752017620177201782017920180201812018220183201842018520186201872018820189201902019120192201932019420195201962019720198201992020020201202022020320204202052020620207202082020920210202112021220213202142021520216202172021820219202202022120222202232022420225202262022720228202292023020231202322023320234202352023620237202382023920240202412024220243202442024520246202472024820249202502025120252202532025420255202562025720258202592026020261202622026320264202652026620267202682026920270202712027220273202742027520276202772027820279202802028120282202832028420285202862028720288202892029020291202922029320294202952029620297202982029920300203012030220303203042030520306203072030820309203102031120312203132031420315203162031720318203192032020321203222032320324203252032620327203282032920330203312033220333203342033520336203372033820339203402034120342203432034420345203462034720348203492035020351203522035320354203552035620357203582035920360203612036220363203642036520366203672036820369203702037120372203732037420375203762037720378203792038020381203822038320384203852038620387203882038920390203912039220393203942039520396203972039820399204002040120402204032040420405204062040720408204092041020411204122041320414204152041620417204182041920420204212042220423204242042520426204272042820429204302043120432204332043420435204362043720438204392044020441204422044320444204452044620447204482044920450204512045220453204542045520456204572045820459204602046120462204632046420465204662046720468204692047020471204722047320474204752047620477204782047920480204812048220483204842048520486204872048820489204902049120492204932049420495204962049720498204992050020501205022050320504205052050620507205082050920510205112051220513205142051520516205172051820519205202052120522205232052420525205262052720528205292053020531205322053320534205352053620537205382053920540205412054220543205442054520546205472054820549205502055120552205532055420555205562055720558205592056020561205622056320564205652056620567205682056920570205712057220573205742057520576205772057820579205802058120582205832058420585205862058720588205892059020591205922059320594205952059620597205982059920600206012060220603206042060520606206072060820609206102061120612206132061420615206162061720618206192062020621206222062320624206252062620627206282062920630206312063220633206342063520636206372063820639206402064120642206432064420645206462064720648206492065020651206522065320654206552065620657206582065920660206612066220663206642066520666206672066820669206702067120672206732067420675206762067720678206792068020681206822068320684206852068620687206882068920690206912069220693206942069520696206972069820699207002070120702207032070420705207062070720708207092071020711207122071320714207152071620717207182071920720207212072220723207242072520726207272072820729207302073120732207332073420735207362073720738207392074020741207422074320744207452074620747207482074920750207512075220753207542075520756207572075820759207602076120762207632076420765207662076720768207692077020771207722077320774207752077620777207782077920780207812078220783207842078520786207872078820789207902079120792207932079420795207962079720798207992080020801208022080320804208052080620807208082080920810208112081220813208142081520816208172081820819208202082120822208232082420825208262082720828208292083020831208322083320834208352083620837208382083920840208412084220843208442084520846208472084820849208502085120852208532085420855208562085720858208592086020861208622086320864208652086620867208682086920870208712087220873208742087520876208772087820879208802088120882208832088420885208862088720888208892089020891208922089320894208952089620897208982089920900209012090220903209042090520906209072090820909209102091120912209132091420915209162091720918209192092020921209222092320924209252092620927209282092920930209312093220933209342093520936209372093820939209402094120942209432094420945209462094720948209492095020951209522095320954209552095620957209582095920960209612096220963209642096520966209672096820969209702097120972209732097420975209762097720978209792098020981209822098320984209852098620987209882098920990209912099220993209942099520996209972099820999210002100121002210032100421005210062100721008210092101021011210122101321014210152101621017210182101921020210212102221023210242102521026210272102821029210302103121032210332103421035210362103721038210392104021041210422104321044210452104621047210482104921050210512105221053210542105521056210572105821059210602106121062210632106421065210662106721068210692107021071210722107321074210752107621077210782107921080210812108221083210842108521086210872108821089210902109121092210932109421095210962109721098210992110021101211022110321104211052110621107211082110921110211112111221113211142111521116211172111821119211202112121122211232112421125211262112721128211292113021131211322113321134211352113621137211382113921140211412114221143211442114521146211472114821149211502115121152211532115421155211562115721158211592116021161211622116321164211652116621167211682116921170211712117221173211742117521176211772117821179211802118121182211832118421185211862118721188211892119021191211922119321194211952119621197211982119921200212012120221203212042120521206212072120821209212102121121212212132121421215212162121721218212192122021221212222122321224212252122621227212282122921230212312123221233212342123521236212372123821239212402124121242212432124421245212462124721248212492125021251212522125321254212552125621257212582125921260212612126221263212642126521266212672126821269212702127121272212732127421275212762127721278212792128021281212822128321284212852128621287212882128921290212912129221293212942129521296212972129821299213002130121302213032130421305213062130721308213092131021311213122131321314213152131621317213182131921320213212132221323213242132521326213272132821329213302133121332213332133421335213362133721338213392134021341213422134321344213452134621347213482134921350213512135221353213542135521356213572135821359213602136121362213632136421365213662136721368213692137021371213722137321374213752137621377213782137921380213812138221383213842138521386213872138821389213902139121392213932139421395213962139721398213992140021401214022140321404214052140621407214082140921410214112141221413214142141521416214172141821419214202142121422214232142421425214262142721428214292143021431214322143321434214352143621437214382143921440214412144221443214442144521446214472144821449214502145121452214532145421455214562145721458214592146021461214622146321464214652146621467214682146921470214712147221473214742147521476214772147821479214802148121482214832148421485214862148721488214892149021491214922149321494214952149621497214982149921500215012150221503215042150521506215072150821509215102151121512215132151421515215162151721518215192152021521215222152321524215252152621527215282152921530215312153221533215342153521536215372153821539215402154121542215432154421545215462154721548215492155021551215522155321554215552155621557215582155921560215612156221563215642156521566215672156821569215702157121572215732157421575215762157721578215792158021581215822158321584215852158621587215882158921590215912159221593215942159521596215972159821599216002160121602216032160421605216062160721608216092161021611216122161321614216152161621617216182161921620216212162221623216242162521626216272162821629216302163121632216332163421635216362163721638216392164021641216422164321644216452164621647216482164921650216512165221653216542165521656216572165821659216602166121662216632166421665216662166721668216692167021671216722167321674216752167621677216782167921680216812168221683216842168521686216872168821689216902169121692216932169421695216962169721698216992170021701217022170321704217052170621707217082170921710217112171221713217142171521716217172171821719217202172121722217232172421725217262172721728217292173021731217322173321734217352173621737217382173921740217412174221743217442174521746217472174821749217502175121752217532175421755217562175721758217592176021761217622176321764217652176621767217682176921770217712177221773217742177521776217772177821779217802178121782217832178421785217862178721788217892179021791217922179321794217952179621797217982179921800218012180221803218042180521806218072180821809218102181121812218132181421815218162181721818218192182021821218222182321824218252182621827218282182921830218312183221833218342183521836218372183821839218402184121842218432184421845218462184721848218492185021851218522185321854218552185621857218582185921860218612186221863218642186521866218672186821869218702187121872218732187421875218762187721878218792188021881218822188321884218852188621887218882188921890218912189221893218942189521896218972189821899219002190121902219032190421905219062190721908219092191021911219122191321914219152191621917219182191921920219212192221923219242192521926219272192821929219302193121932219332193421935219362193721938219392194021941219422194321944219452194621947219482194921950219512195221953219542195521956219572195821959219602196121962219632196421965219662196721968219692197021971219722197321974219752197621977219782197921980219812198221983219842198521986219872198821989219902199121992219932199421995219962199721998219992200022001220022200322004220052200622007220082200922010220112201222013220142201522016220172201822019220202202122022220232202422025220262202722028220292203022031220322203322034220352203622037220382203922040220412204222043220442204522046220472204822049220502205122052220532205422055220562205722058220592206022061220622206322064220652206622067220682206922070220712207222073220742207522076220772207822079220802208122082220832208422085220862208722088220892209022091220922209322094220952209622097220982209922100221012210222103221042210522106221072210822109221102211122112221132211422115221162211722118221192212022121221222212322124221252212622127221282212922130221312213222133221342213522136221372213822139221402214122142221432214422145221462214722148221492215022151221522215322154221552215622157221582215922160221612216222163221642216522166221672216822169221702217122172221732217422175221762217722178221792218022181221822218322184221852218622187221882218922190221912219222193221942219522196221972219822199222002220122202222032220422205222062220722208222092221022211222122221322214222152221622217222182221922220222212222222223222242222522226222272222822229222302223122232222332223422235222362223722238222392224022241222422224322244222452224622247222482224922250222512225222253222542225522256222572225822259222602226122262222632226422265222662226722268222692227022271222722227322274222752227622277222782227922280222812228222283222842228522286222872228822289222902229122292222932229422295222962229722298222992230022301223022230322304223052230622307223082230922310223112231222313223142231522316223172231822319223202232122322223232232422325223262232722328223292233022331223322233322334223352233622337223382233922340223412234222343223442234522346223472234822349223502235122352223532235422355223562235722358223592236022361223622236322364223652236622367223682236922370223712237222373223742237522376223772237822379223802238122382223832238422385223862238722388223892239022391223922239322394223952239622397223982239922400224012240222403224042240522406224072240822409224102241122412224132241422415224162241722418224192242022421224222242322424224252242622427224282242922430224312243222433224342243522436224372243822439224402244122442224432244422445224462244722448224492245022451224522245322454224552245622457224582245922460224612246222463224642246522466224672246822469224702247122472224732247422475224762247722478224792248022481224822248322484224852248622487224882248922490224912249222493224942249522496224972249822499225002250122502225032250422505225062250722508225092251022511225122251322514225152251622517225182251922520225212252222523225242252522526225272252822529225302253122532225332253422535225362253722538225392254022541225422254322544225452254622547225482254922550225512255222553225542255522556225572255822559225602256122562225632256422565225662256722568225692257022571225722257322574225752257622577225782257922580225812258222583225842258522586225872258822589225902259122592225932259422595225962259722598225992260022601226022260322604226052260622607226082260922610226112261222613226142261522616226172261822619226202262122622226232262422625226262262722628226292263022631226322263322634226352263622637226382263922640226412264222643226442264522646226472264822649226502265122652226532265422655226562265722658226592266022661226622266322664226652266622667226682266922670226712267222673226742267522676226772267822679226802268122682226832268422685226862268722688226892269022691226922269322694226952269622697226982269922700227012270222703227042270522706227072270822709227102271122712227132271422715227162271722718227192272022721227222272322724227252272622727227282272922730227312273222733227342273522736227372273822739227402274122742227432274422745227462274722748227492275022751227522275322754227552275622757227582275922760227612276222763227642276522766227672276822769227702277122772227732277422775227762277722778227792278022781227822278322784227852278622787227882278922790227912279222793227942279522796227972279822799228002280122802228032280422805228062280722808228092281022811228122281322814228152281622817228182281922820228212282222823228242282522826228272282822829228302283122832228332283422835228362283722838228392284022841228422284322844228452284622847228482284922850228512285222853228542285522856228572285822859228602286122862228632286422865228662286722868228692287022871228722287322874228752287622877228782287922880228812288222883228842288522886228872288822889228902289122892228932289422895228962289722898228992290022901229022290322904229052290622907229082290922910229112291222913229142291522916229172291822919229202292122922229232292422925229262292722928229292293022931229322293322934229352293622937229382293922940229412294222943229442294522946229472294822949229502295122952229532295422955229562295722958229592296022961229622296322964229652296622967229682296922970229712297222973229742297522976229772297822979229802298122982229832298422985229862298722988229892299022991229922299322994229952299622997229982299923000230012300223003230042300523006230072300823009230102301123012230132301423015230162301723018230192302023021230222302323024230252302623027230282302923030230312303223033230342303523036230372303823039230402304123042230432304423045230462304723048230492305023051230522305323054230552305623057230582305923060230612306223063230642306523066230672306823069230702307123072230732307423075230762307723078230792308023081230822308323084230852308623087230882308923090230912309223093230942309523096230972309823099231002310123102231032310423105231062310723108231092311023111231122311323114231152311623117231182311923120231212312223123231242312523126231272312823129231302313123132231332313423135231362313723138231392314023141231422314323144231452314623147231482314923150231512315223153231542315523156231572315823159231602316123162231632316423165231662316723168231692317023171231722317323174231752317623177231782317923180231812318223183231842318523186231872318823189231902319123192231932319423195231962319723198231992320023201232022320323204232052320623207232082320923210232112321223213232142321523216232172321823219232202322123222232232322423225232262322723228232292323023231232322323323234232352323623237232382323923240232412324223243232442324523246232472324823249232502325123252232532325423255232562325723258232592326023261232622326323264232652326623267232682326923270232712327223273232742327523276232772327823279232802328123282232832328423285232862328723288232892329023291232922329323294232952329623297232982329923300233012330223303233042330523306233072330823309233102331123312233132331423315233162331723318233192332023321233222332323324233252332623327233282332923330233312333223333233342333523336233372333823339233402334123342233432334423345233462334723348233492335023351233522335323354233552335623357233582335923360233612336223363233642336523366233672336823369233702337123372233732337423375233762337723378233792338023381233822338323384233852338623387233882338923390233912339223393233942339523396233972339823399234002340123402234032340423405234062340723408234092341023411234122341323414234152341623417234182341923420234212342223423234242342523426234272342823429234302343123432234332343423435234362343723438234392344023441234422344323444234452344623447234482344923450234512345223453234542345523456234572345823459234602346123462234632346423465234662346723468234692347023471234722347323474234752347623477234782347923480234812348223483234842348523486234872348823489234902349123492234932349423495234962349723498234992350023501235022350323504235052350623507235082350923510235112351223513235142351523516235172351823519235202352123522235232352423525235262352723528235292353023531235322353323534235352353623537235382353923540235412354223543235442354523546235472354823549235502355123552235532355423555235562355723558235592356023561235622356323564235652356623567235682356923570235712357223573235742357523576235772357823579235802358123582235832358423585235862358723588235892359023591235922359323594235952359623597235982359923600236012360223603236042360523606236072360823609236102361123612236132361423615236162361723618236192362023621236222362323624236252362623627236282362923630236312363223633236342363523636236372363823639236402364123642236432364423645236462364723648236492365023651236522365323654236552365623657236582365923660236612366223663236642366523666236672366823669236702367123672236732367423675236762367723678236792368023681236822368323684236852368623687236882368923690236912369223693236942369523696236972369823699237002370123702237032370423705237062370723708237092371023711237122371323714237152371623717237182371923720237212372223723237242372523726237272372823729237302373123732237332373423735237362373723738237392374023741237422374323744237452374623747237482374923750237512375223753237542375523756237572375823759237602376123762237632376423765237662376723768237692377023771237722377323774237752377623777237782377923780237812378223783237842378523786237872378823789237902379123792237932379423795237962379723798237992380023801238022380323804238052380623807238082380923810238112381223813238142381523816238172381823819238202382123822238232382423825238262382723828238292383023831238322383323834238352383623837238382383923840238412384223843238442384523846238472384823849238502385123852238532385423855238562385723858238592386023861238622386323864238652386623867238682386923870238712387223873238742387523876238772387823879238802388123882238832388423885238862388723888238892389023891238922389323894238952389623897238982389923900239012390223903239042390523906239072390823909239102391123912239132391423915239162391723918239192392023921239222392323924239252392623927239282392923930239312393223933239342393523936239372393823939239402394123942239432394423945239462394723948239492395023951239522395323954239552395623957239582395923960239612396223963239642396523966239672396823969239702397123972239732397423975239762397723978239792398023981239822398323984239852398623987239882398923990239912399223993239942399523996239972399823999240002400124002240032400424005240062400724008240092401024011240122401324014240152401624017240182401924020240212402224023240242402524026240272402824029240302403124032240332403424035240362403724038240392404024041240422404324044240452404624047240482404924050240512405224053240542405524056240572405824059240602406124062240632406424065240662406724068240692407024071240722407324074240752407624077240782407924080240812408224083240842408524086240872408824089240902409124092240932409424095240962409724098240992410024101241022410324104241052410624107241082410924110241112411224113241142411524116241172411824119241202412124122241232412424125241262412724128241292413024131241322413324134241352413624137241382413924140241412414224143241442414524146241472414824149241502415124152241532415424155241562415724158241592416024161241622416324164241652416624167241682416924170241712417224173241742417524176241772417824179241802418124182241832418424185241862418724188241892419024191241922419324194241952419624197241982419924200242012420224203242042420524206242072420824209242102421124212242132421424215242162421724218242192422024221242222422324224242252422624227242282422924230242312423224233242342423524236242372423824239242402424124242242432424424245242462424724248242492425024251242522425324254242552425624257242582425924260242612426224263242642426524266242672426824269242702427124272242732427424275242762427724278242792428024281242822428324284242852428624287242882428924290242912429224293242942429524296242972429824299243002430124302243032430424305243062430724308243092431024311243122431324314243152431624317243182431924320243212432224323243242432524326243272432824329243302433124332243332433424335243362433724338243392434024341243422434324344243452434624347243482434924350243512435224353243542435524356243572435824359243602436124362243632436424365243662436724368243692437024371243722437324374243752437624377243782437924380243812438224383243842438524386243872438824389243902439124392243932439424395243962439724398243992440024401244022440324404244052440624407244082440924410244112441224413244142441524416244172441824419244202442124422244232442424425244262442724428244292443024431244322443324434244352443624437244382443924440244412444224443244442444524446244472444824449244502445124452244532445424455244562445724458244592446024461244622446324464244652446624467244682446924470244712447224473244742447524476244772447824479244802448124482244832448424485244862448724488244892449024491244922449324494244952449624497244982449924500245012450224503245042450524506245072450824509245102451124512245132451424515245162451724518245192452024521245222452324524245252452624527245282452924530245312453224533245342453524536245372453824539245402454124542245432454424545245462454724548245492455024551245522455324554245552455624557245582455924560245612456224563245642456524566245672456824569245702457124572245732457424575245762457724578245792458024581245822458324584245852458624587245882458924590245912459224593245942459524596245972459824599246002460124602246032460424605246062460724608246092461024611246122461324614246152461624617246182461924620246212462224623246242462524626246272462824629246302463124632246332463424635246362463724638246392464024641246422464324644246452464624647246482464924650246512465224653246542465524656246572465824659246602466124662246632466424665246662466724668246692467024671246722467324674246752467624677246782467924680246812468224683246842468524686246872468824689246902469124692246932469424695246962469724698246992470024701247022470324704247052470624707247082470924710247112471224713247142471524716247172471824719247202472124722247232472424725247262472724728247292473024731247322473324734247352473624737247382473924740247412474224743247442474524746247472474824749247502475124752247532475424755247562475724758247592476024761247622476324764247652476624767247682476924770247712477224773247742477524776247772477824779247802478124782247832478424785247862478724788247892479024791247922479324794247952479624797247982479924800248012480224803248042480524806248072480824809248102481124812248132481424815248162481724818248192482024821248222482324824248252482624827248282482924830248312483224833248342483524836248372483824839248402484124842248432484424845248462484724848248492485024851248522485324854248552485624857248582485924860248612486224863248642486524866248672486824869248702487124872248732487424875248762487724878248792488024881248822488324884248852488624887248882488924890248912489224893248942489524896248972489824899249002490124902249032490424905249062490724908249092491024911249122491324914249152491624917249182491924920249212492224923249242492524926249272492824929249302493124932249332493424935249362493724938249392494024941249422494324944249452494624947249482494924950249512495224953249542495524956249572495824959249602496124962249632496424965249662496724968249692497024971249722497324974249752497624977249782497924980249812498224983249842498524986249872498824989249902499124992249932499424995249962499724998249992500025001250022500325004250052500625007250082500925010250112501225013250142501525016250172501825019250202502125022250232502425025250262502725028250292503025031250322503325034250352503625037250382503925040250412504225043250442504525046250472504825049250502505125052250532505425055250562505725058250592506025061250622506325064250652506625067250682506925070250712507225073250742507525076250772507825079250802508125082250832508425085250862508725088250892509025091250922509325094250952509625097250982509925100251012510225103251042510525106251072510825109251102511125112251132511425115251162511725118251192512025121251222512325124251252512625127251282512925130251312513225133251342513525136251372513825139251402514125142251432514425145251462514725148251492515025151251522515325154251552515625157251582515925160251612516225163251642516525166251672516825169251702517125172251732517425175251762517725178251792518025181251822518325184251852518625187251882518925190251912519225193251942519525196251972519825199252002520125202252032520425205252062520725208252092521025211252122521325214252152521625217252182521925220252212522225223252242522525226252272522825229252302523125232252332523425235252362523725238252392524025241252422524325244252452524625247252482524925250252512525225253252542525525256252572525825259252602526125262252632526425265252662526725268252692527025271252722527325274252752527625277252782527925280252812528225283252842528525286252872528825289252902529125292252932529425295252962529725298252992530025301253022530325304253052530625307253082530925310253112531225313253142531525316253172531825319253202532125322253232532425325253262532725328253292533025331253322533325334253352533625337253382533925340253412534225343253442534525346253472534825349253502535125352253532535425355253562535725358253592536025361253622536325364253652536625367253682536925370253712537225373253742537525376253772537825379253802538125382253832538425385253862538725388253892539025391253922539325394253952539625397253982539925400254012540225403254042540525406254072540825409254102541125412254132541425415254162541725418254192542025421254222542325424254252542625427254282542925430254312543225433254342543525436254372543825439254402544125442254432544425445254462544725448254492545025451254522545325454254552545625457254582545925460254612546225463254642546525466254672546825469254702547125472254732547425475254762547725478254792548025481254822548325484254852548625487254882548925490254912549225493254942549525496254972549825499255002550125502255032550425505255062550725508255092551025511255122551325514255152551625517255182551925520255212552225523255242552525526255272552825529255302553125532255332553425535255362553725538255392554025541255422554325544255452554625547255482554925550255512555225553255542555525556255572555825559255602556125562255632556425565255662556725568255692557025571255722557325574255752557625577255782557925580255812558225583255842558525586255872558825589255902559125592255932559425595255962559725598255992560025601256022560325604256052560625607256082560925610256112561225613256142561525616256172561825619256202562125622256232562425625256262562725628256292563025631256322563325634256352563625637256382563925640256412564225643256442564525646256472564825649256502565125652256532565425655256562565725658256592566025661256622566325664256652566625667256682566925670256712567225673256742567525676256772567825679256802568125682256832568425685256862568725688256892569025691256922569325694256952569625697256982569925700257012570225703257042570525706257072570825709257102571125712257132571425715257162571725718257192572025721257222572325724257252572625727257282572925730257312573225733257342573525736257372573825739257402574125742257432574425745257462574725748257492575025751257522575325754257552575625757257582575925760257612576225763257642576525766257672576825769257702577125772257732577425775257762577725778257792578025781257822578325784257852578625787257882578925790257912579225793257942579525796257972579825799258002580125802258032580425805258062580725808258092581025811258122581325814258152581625817258182581925820258212582225823258242582525826258272582825829258302583125832258332583425835258362583725838258392584025841258422584325844258452584625847258482584925850258512585225853258542585525856258572585825859258602586125862258632586425865258662586725868258692587025871258722587325874258752587625877258782587925880258812588225883258842588525886258872588825889258902589125892258932589425895258962589725898258992590025901259022590325904259052590625907259082590925910259112591225913259142591525916259172591825919259202592125922259232592425925259262592725928259292593025931259322593325934259352593625937259382593925940259412594225943259442594525946259472594825949259502595125952259532595425955259562595725958259592596025961259622596325964259652596625967259682596925970259712597225973259742597525976259772597825979259802598125982259832598425985259862598725988259892599025991259922599325994259952599625997259982599926000260012600226003260042600526006260072600826009260102601126012260132601426015260162601726018260192602026021260222602326024260252602626027260282602926030260312603226033260342603526036260372603826039260402604126042260432604426045260462604726048260492605026051260522605326054260552605626057260582605926060260612606226063260642606526066260672606826069260702607126072260732607426075260762607726078260792608026081260822608326084260852608626087260882608926090260912609226093260942609526096260972609826099261002610126102261032610426105261062610726108261092611026111261122611326114261152611626117261182611926120261212612226123261242612526126261272612826129261302613126132261332613426135261362613726138261392614026141261422614326144261452614626147261482614926150261512615226153261542615526156261572615826159261602616126162261632616426165261662616726168261692617026171261722617326174261752617626177261782617926180261812618226183261842618526186261872618826189261902619126192261932619426195261962619726198261992620026201262022620326204262052620626207262082620926210262112621226213262142621526216262172621826219262202622126222262232622426225262262622726228262292623026231262322623326234262352623626237262382623926240262412624226243262442624526246262472624826249262502625126252262532625426255262562625726258262592626026261262622626326264262652626626267262682626926270262712627226273262742627526276262772627826279262802628126282262832628426285262862628726288262892629026291262922629326294262952629626297262982629926300263012630226303263042630526306263072630826309263102631126312263132631426315263162631726318263192632026321263222632326324263252632626327263282632926330263312633226333263342633526336263372633826339263402634126342263432634426345263462634726348263492635026351263522635326354263552635626357263582635926360263612636226363263642636526366263672636826369263702637126372263732637426375263762637726378263792638026381263822638326384263852638626387263882638926390263912639226393263942639526396263972639826399264002640126402264032640426405264062640726408264092641026411264122641326414264152641626417264182641926420264212642226423264242642526426264272642826429264302643126432264332643426435264362643726438264392644026441264422644326444264452644626447264482644926450264512645226453264542645526456264572645826459264602646126462264632646426465264662646726468264692647026471264722647326474264752647626477264782647926480264812648226483264842648526486264872648826489264902649126492264932649426495264962649726498264992650026501265022650326504265052650626507265082650926510265112651226513265142651526516265172651826519265202652126522265232652426525265262652726528265292653026531265322653326534265352653626537265382653926540265412654226543265442654526546265472654826549265502655126552265532655426555265562655726558265592656026561265622656326564265652656626567265682656926570265712657226573265742657526576265772657826579265802658126582265832658426585265862658726588265892659026591265922659326594265952659626597265982659926600266012660226603266042660526606266072660826609266102661126612266132661426615266162661726618266192662026621266222662326624266252662626627266282662926630266312663226633266342663526636266372663826639266402664126642266432664426645266462664726648266492665026651266522665326654266552665626657266582665926660266612666226663266642666526666266672666826669266702667126672266732667426675266762667726678266792668026681266822668326684266852668626687266882668926690266912669226693266942669526696266972669826699267002670126702267032670426705267062670726708267092671026711267122671326714267152671626717267182671926720267212672226723267242672526726267272672826729267302673126732267332673426735267362673726738267392674026741267422674326744267452674626747267482674926750267512675226753267542675526756267572675826759267602676126762267632676426765267662676726768267692677026771267722677326774267752677626777267782677926780267812678226783267842678526786267872678826789267902679126792267932679426795267962679726798267992680026801268022680326804268052680626807268082680926810268112681226813268142681526816268172681826819268202682126822268232682426825268262682726828268292683026831268322683326834268352683626837268382683926840268412684226843268442684526846268472684826849268502685126852268532685426855268562685726858268592686026861268622686326864268652686626867268682686926870268712687226873268742687526876268772687826879268802688126882268832688426885268862688726888268892689026891268922689326894268952689626897268982689926900269012690226903269042690526906269072690826909269102691126912269132691426915269162691726918269192692026921269222692326924269252692626927269282692926930269312693226933269342693526936269372693826939269402694126942269432694426945269462694726948269492695026951269522695326954269552695626957269582695926960269612696226963269642696526966269672696826969269702697126972269732697426975269762697726978269792698026981269822698326984269852698626987269882698926990269912699226993269942699526996269972699826999270002700127002270032700427005270062700727008270092701027011270122701327014270152701627017270182701927020270212702227023270242702527026270272702827029270302703127032270332703427035270362703727038270392704027041270422704327044270452704627047270482704927050270512705227053270542705527056270572705827059270602706127062270632706427065270662706727068270692707027071270722707327074270752707627077270782707927080270812708227083270842708527086270872708827089270902709127092270932709427095270962709727098270992710027101271022710327104271052710627107271082710927110271112711227113271142711527116271172711827119271202712127122271232712427125271262712727128271292713027131271322713327134271352713627137271382713927140271412714227143271442714527146271472714827149271502715127152271532715427155271562715727158271592716027161271622716327164271652716627167271682716927170271712717227173271742717527176271772717827179271802718127182271832718427185271862718727188271892719027191271922719327194271952719627197271982719927200272012720227203272042720527206272072720827209272102721127212272132721427215272162721727218272192722027221272222722327224272252722627227272282722927230272312723227233272342723527236272372723827239272402724127242272432724427245272462724727248272492725027251272522725327254272552725627257272582725927260272612726227263272642726527266272672726827269272702727127272272732727427275272762727727278272792728027281272822728327284272852728627287272882728927290272912729227293272942729527296272972729827299273002730127302273032730427305273062730727308273092731027311273122731327314273152731627317273182731927320273212732227323273242732527326273272732827329273302733127332273332733427335273362733727338273392734027341273422734327344273452734627347273482734927350273512735227353273542735527356273572735827359273602736127362273632736427365273662736727368273692737027371273722737327374273752737627377273782737927380273812738227383273842738527386273872738827389273902739127392273932739427395273962739727398273992740027401274022740327404274052740627407274082740927410274112741227413274142741527416274172741827419274202742127422274232742427425274262742727428274292743027431274322743327434274352743627437274382743927440274412744227443274442744527446274472744827449274502745127452274532745427455274562745727458274592746027461274622746327464274652746627467274682746927470274712747227473274742747527476274772747827479274802748127482274832748427485274862748727488274892749027491274922749327494274952749627497274982749927500275012750227503275042750527506275072750827509275102751127512275132751427515275162751727518275192752027521275222752327524275252752627527275282752927530275312753227533275342753527536275372753827539275402754127542275432754427545275462754727548275492755027551275522755327554275552755627557275582755927560275612756227563275642756527566275672756827569275702757127572275732757427575275762757727578275792758027581275822758327584275852758627587275882758927590275912759227593275942759527596275972759827599276002760127602276032760427605276062760727608276092761027611276122761327614276152761627617276182761927620276212762227623276242762527626276272762827629276302763127632276332763427635276362763727638276392764027641276422764327644276452764627647276482764927650276512765227653276542765527656276572765827659276602766127662276632766427665276662766727668276692767027671276722767327674276752767627677276782767927680276812768227683276842768527686276872768827689276902769127692276932769427695276962769727698276992770027701277022770327704277052770627707277082770927710277112771227713277142771527716277172771827719277202772127722277232772427725277262772727728277292773027731277322773327734277352773627737277382773927740277412774227743277442774527746277472774827749277502775127752277532775427755277562775727758277592776027761277622776327764277652776627767277682776927770277712777227773277742777527776277772777827779277802778127782277832778427785277862778727788277892779027791277922779327794277952779627797277982779927800278012780227803278042780527806278072780827809278102781127812278132781427815278162781727818278192782027821278222782327824278252782627827278282782927830278312783227833278342783527836278372783827839278402784127842278432784427845278462784727848278492785027851278522785327854278552785627857278582785927860278612786227863278642786527866278672786827869278702787127872278732787427875278762787727878278792788027881278822788327884278852788627887278882788927890278912789227893278942789527896278972789827899279002790127902279032790427905279062790727908279092791027911279122791327914279152791627917279182791927920279212792227923279242792527926279272792827929279302793127932279332793427935279362793727938279392794027941279422794327944279452794627947279482794927950279512795227953279542795527956279572795827959279602796127962279632796427965279662796727968279692797027971279722797327974279752797627977279782797927980279812798227983279842798527986279872798827989279902799127992279932799427995279962799727998279992800028001280022800328004280052800628007280082800928010280112801228013280142801528016280172801828019280202802128022280232802428025280262802728028280292803028031280322803328034280352803628037280382803928040280412804228043280442804528046280472804828049280502805128052280532805428055280562805728058280592806028061280622806328064280652806628067280682806928070280712807228073280742807528076280772807828079280802808128082280832808428085280862808728088280892809028091280922809328094280952809628097280982809928100281012810228103281042810528106281072810828109281102811128112281132811428115281162811728118281192812028121281222812328124281252812628127281282812928130281312813228133281342813528136281372813828139281402814128142281432814428145281462814728148281492815028151281522815328154281552815628157281582815928160281612816228163281642816528166281672816828169281702817128172281732817428175281762817728178281792818028181281822818328184281852818628187281882818928190281912819228193281942819528196281972819828199282002820128202282032820428205282062820728208282092821028211282122821328214282152821628217282182821928220282212822228223282242822528226282272822828229282302823128232282332823428235282362823728238282392824028241282422824328244282452824628247282482824928250282512825228253282542825528256282572825828259282602826128262282632826428265282662826728268282692827028271282722827328274282752827628277282782827928280282812828228283282842828528286282872828828289282902829128292282932829428295282962829728298282992830028301283022830328304283052830628307283082830928310283112831228313283142831528316283172831828319283202832128322283232832428325283262832728328283292833028331283322833328334283352833628337283382833928340283412834228343283442834528346283472834828349283502835128352283532835428355283562835728358283592836028361283622836328364283652836628367283682836928370283712837228373283742837528376283772837828379283802838128382283832838428385283862838728388283892839028391283922839328394283952839628397283982839928400284012840228403284042840528406284072840828409284102841128412284132841428415284162841728418284192842028421284222842328424284252842628427284282842928430284312843228433284342843528436284372843828439284402844128442284432844428445284462844728448284492845028451284522845328454284552845628457284582845928460284612846228463284642846528466284672846828469284702847128472284732847428475284762847728478284792848028481284822848328484284852848628487284882848928490284912849228493284942849528496284972849828499285002850128502285032850428505285062850728508285092851028511285122851328514285152851628517285182851928520285212852228523285242852528526285272852828529285302853128532285332853428535285362853728538285392854028541285422854328544285452854628547285482854928550285512855228553285542855528556285572855828559285602856128562285632856428565285662856728568285692857028571285722857328574285752857628577285782857928580285812858228583285842858528586285872858828589285902859128592285932859428595285962859728598285992860028601286022860328604286052860628607286082860928610286112861228613286142861528616286172861828619286202862128622286232862428625286262862728628286292863028631286322863328634286352863628637286382863928640286412864228643286442864528646286472864828649286502865128652286532865428655286562865728658286592866028661286622866328664286652866628667286682866928670286712867228673286742867528676286772867828679286802868128682286832868428685286862868728688286892869028691286922869328694286952869628697286982869928700287012870228703287042870528706287072870828709287102871128712287132871428715287162871728718287192872028721287222872328724287252872628727287282872928730287312873228733287342873528736287372873828739287402874128742287432874428745287462874728748287492875028751287522875328754287552875628757287582875928760287612876228763287642876528766287672876828769287702877128772287732877428775287762877728778287792878028781287822878328784287852878628787287882878928790287912879228793287942879528796287972879828799288002880128802288032880428805288062880728808288092881028811288122881328814288152881628817288182881928820288212882228823288242882528826288272882828829288302883128832288332883428835288362883728838288392884028841288422884328844288452884628847288482884928850288512885228853288542885528856288572885828859288602886128862288632886428865288662886728868288692887028871288722887328874288752887628877288782887928880288812888228883288842888528886288872888828889288902889128892288932889428895288962889728898288992890028901289022890328904289052890628907289082890928910289112891228913289142891528916289172891828919289202892128922289232892428925289262892728928289292893028931289322893328934289352893628937289382893928940289412894228943289442894528946289472894828949289502895128952289532895428955289562895728958289592896028961289622896328964289652896628967289682896928970289712897228973289742897528976289772897828979289802898128982289832898428985289862898728988289892899028991289922899328994289952899628997289982899929000290012900229003290042900529006290072900829009290102901129012290132901429015290162901729018290192902029021290222902329024290252902629027290282902929030290312903229033290342903529036290372903829039290402904129042290432904429045290462904729048290492905029051290522905329054290552905629057290582905929060290612906229063290642906529066290672906829069290702907129072290732907429075290762907729078290792908029081290822908329084290852908629087290882908929090290912909229093290942909529096290972909829099291002910129102291032910429105291062910729108291092911029111291122911329114291152911629117291182911929120291212912229123291242912529126291272912829129291302913129132291332913429135291362913729138291392914029141291422914329144291452914629147291482914929150291512915229153291542915529156291572915829159291602916129162291632916429165291662916729168291692917029171291722917329174291752917629177291782917929180291812918229183291842918529186291872918829189291902919129192291932919429195291962919729198291992920029201292022920329204292052920629207292082920929210292112921229213292142921529216292172921829219292202922129222292232922429225292262922729228292292923029231292322923329234292352923629237292382923929240292412924229243292442924529246292472924829249292502925129252292532925429255292562925729258292592926029261292622926329264292652926629267292682926929270292712927229273292742927529276292772927829279292802928129282292832928429285292862928729288292892929029291292922929329294292952929629297292982929929300293012930229303293042930529306293072930829309293102931129312293132931429315293162931729318293192932029321293222932329324293252932629327293282932929330293312933229333293342933529336293372933829339293402934129342293432934429345293462934729348293492935029351293522935329354293552935629357293582935929360293612936229363293642936529366293672936829369293702937129372293732937429375293762937729378293792938029381293822938329384293852938629387293882938929390293912939229393293942939529396293972939829399294002940129402294032940429405294062940729408294092941029411294122941329414294152941629417294182941929420294212942229423294242942529426294272942829429294302943129432294332943429435294362943729438294392944029441294422944329444294452944629447294482944929450294512945229453294542945529456294572945829459294602946129462294632946429465294662946729468294692947029471294722947329474294752947629477294782947929480294812948229483294842948529486294872948829489294902949129492294932949429495294962949729498294992950029501295022950329504295052950629507295082950929510295112951229513295142951529516295172951829519295202952129522295232952429525295262952729528295292953029531295322953329534295352953629537295382953929540295412954229543295442954529546295472954829549295502955129552295532955429555295562955729558295592956029561295622956329564295652956629567295682956929570295712957229573295742957529576295772957829579295802958129582295832958429585295862958729588295892959029591295922959329594295952959629597295982959929600296012960229603296042960529606296072960829609296102961129612296132961429615296162961729618296192962029621296222962329624296252962629627296282962929630296312963229633296342963529636296372963829639296402964129642296432964429645296462964729648296492965029651296522965329654296552965629657296582965929660296612966229663296642966529666296672966829669296702967129672296732967429675296762967729678296792968029681296822968329684296852968629687296882968929690296912969229693296942969529696296972969829699297002970129702297032970429705297062970729708297092971029711297122971329714297152971629717297182971929720297212972229723297242972529726297272972829729297302973129732297332973429735297362973729738297392974029741297422974329744297452974629747297482974929750297512975229753297542975529756297572975829759297602976129762297632976429765297662976729768297692977029771297722977329774297752977629777297782977929780297812978229783297842978529786297872978829789297902979129792297932979429795297962979729798297992980029801298022980329804298052980629807298082980929810298112981229813298142981529816298172981829819298202982129822298232982429825298262982729828298292983029831298322983329834298352983629837298382983929840298412984229843298442984529846298472984829849298502985129852298532985429855298562985729858298592986029861298622986329864298652986629867298682986929870298712987229873298742987529876298772987829879298802988129882298832988429885298862988729888298892989029891298922989329894298952989629897298982989929900299012990229903299042990529906299072990829909299102991129912299132991429915299162991729918299192992029921299222992329924299252992629927299282992929930299312993229933299342993529936299372993829939299402994129942299432994429945299462994729948299492995029951299522995329954299552995629957299582995929960299612996229963299642996529966299672996829969299702997129972299732997429975299762997729978299792998029981299822998329984299852998629987299882998929990299912999229993299942999529996299972999829999300003000130002300033000430005300063000730008300093001030011300123001330014300153001630017300183001930020300213002230023300243002530026300273002830029300303003130032300333003430035300363003730038300393004030041300423004330044300453004630047300483004930050300513005230053300543005530056300573005830059300603006130062300633006430065300663006730068300693007030071300723007330074300753007630077300783007930080300813008230083300843008530086300873008830089300903009130092300933009430095300963009730098300993010030101301023010330104301053010630107301083010930110301113011230113301143011530116301173011830119301203012130122301233012430125301263012730128301293013030131301323013330134301353013630137301383013930140301413014230143301443014530146301473014830149301503015130152301533015430155301563015730158301593016030161301623016330164301653016630167301683016930170301713017230173301743017530176301773017830179301803018130182301833018430185301863018730188301893019030191301923019330194301953019630197301983019930200302013020230203302043020530206302073020830209302103021130212302133021430215302163021730218302193022030221302223022330224302253022630227302283022930230302313023230233302343023530236302373023830239302403024130242302433024430245302463024730248302493025030251302523025330254302553025630257302583025930260302613026230263302643026530266302673026830269302703027130272302733027430275302763027730278302793028030281302823028330284302853028630287302883028930290302913029230293302943029530296302973029830299303003030130302303033030430305303063030730308303093031030311303123031330314303153031630317303183031930320303213032230323303243032530326303273032830329303303033130332303333033430335303363033730338303393034030341303423034330344303453034630347303483034930350303513035230353303543035530356303573035830359303603036130362303633036430365303663036730368303693037030371303723037330374303753037630377303783037930380303813038230383303843038530386303873038830389303903039130392303933039430395303963039730398303993040030401304023040330404304053040630407304083040930410304113041230413304143041530416304173041830419304203042130422304233042430425304263042730428304293043030431304323043330434304353043630437304383043930440304413044230443304443044530446304473044830449304503045130452304533045430455304563045730458304593046030461304623046330464304653046630467304683046930470304713047230473304743047530476304773047830479304803048130482304833048430485304863048730488304893049030491304923049330494304953049630497304983049930500305013050230503305043050530506305073050830509305103051130512305133051430515305163051730518305193052030521305223052330524305253052630527305283052930530305313053230533305343053530536305373053830539305403054130542305433054430545305463054730548305493055030551305523055330554305553055630557305583055930560305613056230563305643056530566305673056830569305703057130572305733057430575305763057730578305793058030581305823058330584305853058630587305883058930590305913059230593305943059530596305973059830599306003060130602306033060430605306063060730608306093061030611306123061330614306153061630617306183061930620306213062230623306243062530626306273062830629306303063130632306333063430635306363063730638306393064030641306423064330644306453064630647306483064930650306513065230653306543065530656306573065830659306603066130662306633066430665306663066730668306693067030671306723067330674306753067630677306783067930680306813068230683306843068530686306873068830689306903069130692306933069430695306963069730698306993070030701307023070330704307053070630707307083070930710307113071230713307143071530716307173071830719307203072130722307233072430725307263072730728307293073030731307323073330734307353073630737307383073930740307413074230743307443074530746307473074830749307503075130752307533075430755307563075730758307593076030761307623076330764307653076630767307683076930770307713077230773307743077530776307773077830779307803078130782307833078430785307863078730788307893079030791307923079330794307953079630797307983079930800308013080230803308043080530806308073080830809308103081130812308133081430815308163081730818308193082030821308223082330824308253082630827308283082930830308313083230833308343083530836308373083830839308403084130842308433084430845308463084730848308493085030851308523085330854308553085630857308583085930860308613086230863308643086530866308673086830869308703087130872308733087430875308763087730878308793088030881308823088330884308853088630887308883088930890308913089230893308943089530896308973089830899309003090130902309033090430905309063090730908309093091030911309123091330914309153091630917309183091930920309213092230923309243092530926309273092830929309303093130932309333093430935309363093730938309393094030941309423094330944309453094630947309483094930950309513095230953309543095530956309573095830959309603096130962309633096430965309663096730968309693097030971309723097330974309753097630977309783097930980309813098230983309843098530986309873098830989309903099130992309933099430995309963099730998309993100031001310023100331004310053100631007310083100931010310113101231013310143101531016310173101831019310203102131022310233102431025310263102731028310293103031031310323103331034310353103631037310383103931040310413104231043310443104531046310473104831049310503105131052310533105431055310563105731058310593106031061310623106331064310653106631067310683106931070310713107231073310743107531076310773107831079310803108131082310833108431085310863108731088310893109031091310923109331094310953109631097310983109931100311013110231103311043110531106311073110831109311103111131112311133111431115311163111731118311193112031121311223112331124311253112631127311283112931130311313113231133311343113531136311373113831139311403114131142311433114431145311463114731148311493115031151311523115331154311553115631157311583115931160311613116231163311643116531166311673116831169311703117131172311733117431175311763117731178311793118031181311823118331184311853118631187311883118931190311913119231193311943119531196311973119831199312003120131202312033120431205312063120731208312093121031211312123121331214312153121631217312183121931220312213122231223312243122531226312273122831229312303123131232312333123431235312363123731238312393124031241312423124331244312453124631247312483124931250312513125231253312543125531256312573125831259312603126131262312633126431265312663126731268312693127031271312723127331274312753127631277312783127931280312813128231283312843128531286312873128831289312903129131292312933129431295312963129731298312993130031301313023130331304313053130631307313083130931310313113131231313313143131531316313173131831319313203132131322313233132431325313263132731328313293133031331313323133331334313353133631337313383133931340313413134231343313443134531346313473134831349313503135131352313533135431355313563135731358313593136031361313623136331364313653136631367313683136931370313713137231373313743137531376313773137831379313803138131382313833138431385313863138731388313893139031391313923139331394313953139631397313983139931400314013140231403314043140531406314073140831409314103141131412314133141431415314163141731418314193142031421314223142331424314253142631427314283142931430314313143231433314343143531436314373143831439314403144131442314433144431445314463144731448314493145031451314523145331454314553145631457314583145931460314613146231463314643146531466314673146831469314703147131472314733147431475314763147731478314793148031481314823148331484314853148631487314883148931490314913149231493314943149531496314973149831499315003150131502315033150431505315063150731508315093151031511315123151331514315153151631517315183151931520315213152231523315243152531526315273152831529315303153131532315333153431535315363153731538315393154031541315423154331544315453154631547315483154931550315513155231553315543155531556315573155831559315603156131562315633156431565315663156731568315693157031571315723157331574315753157631577315783157931580315813158231583315843158531586315873158831589315903159131592315933159431595315963159731598315993160031601316023160331604316053160631607316083160931610316113161231613316143161531616316173161831619316203162131622316233162431625316263162731628316293163031631316323163331634316353163631637316383163931640316413164231643316443164531646316473164831649316503165131652316533165431655316563165731658316593166031661316623166331664316653166631667316683166931670316713167231673316743167531676316773167831679316803168131682316833168431685316863168731688316893169031691316923169331694316953169631697316983169931700317013170231703317043170531706317073170831709317103171131712317133171431715317163171731718317193172031721317223172331724317253172631727317283172931730317313173231733317343173531736317373173831739317403174131742317433174431745317463174731748317493175031751317523175331754317553175631757317583175931760317613176231763317643176531766317673176831769317703177131772317733177431775317763177731778317793178031781317823178331784317853178631787317883178931790317913179231793317943179531796317973179831799318003180131802318033180431805318063180731808318093181031811318123181331814318153181631817318183181931820318213182231823318243182531826318273182831829318303183131832318333183431835318363183731838318393184031841318423184331844318453184631847318483184931850318513185231853318543185531856318573185831859318603186131862318633186431865318663186731868318693187031871318723187331874318753187631877318783187931880318813188231883318843188531886318873188831889318903189131892318933189431895318963189731898318993190031901319023190331904319053190631907319083190931910319113191231913319143191531916319173191831919319203192131922319233192431925319263192731928319293193031931319323193331934319353193631937319383193931940319413194231943319443194531946319473194831949319503195131952319533195431955319563195731958319593196031961319623196331964319653196631967319683196931970319713197231973319743197531976319773197831979319803198131982319833198431985319863198731988319893199031991319923199331994319953199631997319983199932000320013200232003320043200532006320073200832009320103201132012320133201432015320163201732018320193202032021320223202332024320253202632027320283202932030320313203232033320343203532036320373203832039320403204132042320433204432045320463204732048320493205032051320523205332054320553205632057320583205932060320613206232063320643206532066320673206832069320703207132072320733207432075320763207732078320793208032081320823208332084320853208632087320883208932090320913209232093320943209532096320973209832099321003210132102321033210432105321063210732108321093211032111321123211332114321153211632117321183211932120321213212232123321243212532126321273212832129321303213132132321333213432135321363213732138321393214032141321423214332144321453214632147321483214932150321513215232153321543215532156321573215832159321603216132162321633216432165321663216732168321693217032171321723217332174321753217632177321783217932180321813218232183321843218532186321873218832189321903219132192321933219432195321963219732198321993220032201322023220332204322053220632207322083220932210322113221232213322143221532216322173221832219322203222132222322233222432225322263222732228322293223032231322323223332234322353223632237322383223932240322413224232243322443224532246322473224832249322503225132252322533225432255322563225732258322593226032261322623226332264322653226632267322683226932270322713227232273322743227532276322773227832279322803228132282322833228432285322863228732288322893229032291322923229332294322953229632297322983229932300323013230232303323043230532306323073230832309323103231132312323133231432315323163231732318323193232032321323223232332324323253232632327323283232932330323313233232333323343233532336323373233832339323403234132342323433234432345323463234732348323493235032351323523235332354323553235632357323583235932360323613236232363323643236532366323673236832369323703237132372323733237432375323763237732378323793238032381323823238332384323853238632387323883238932390323913239232393323943239532396323973239832399324003240132402324033240432405324063240732408324093241032411324123241332414324153241632417324183241932420324213242232423324243242532426324273242832429324303243132432324333243432435324363243732438324393244032441324423244332444324453244632447324483244932450324513245232453324543245532456324573245832459324603246132462324633246432465324663246732468324693247032471324723247332474324753247632477324783247932480324813248232483324843248532486324873248832489324903249132492324933249432495324963249732498324993250032501325023250332504325053250632507325083250932510325113251232513325143251532516325173251832519325203252132522325233252432525325263252732528325293253032531325323253332534325353253632537325383253932540325413254232543325443254532546325473254832549325503255132552325533255432555325563255732558325593256032561325623256332564325653256632567325683256932570325713257232573325743257532576325773257832579325803258132582325833258432585325863258732588325893259032591325923259332594325953259632597325983259932600326013260232603326043260532606326073260832609326103261132612326133261432615326163261732618326193262032621326223262332624326253262632627326283262932630326313263232633326343263532636326373263832639326403264132642326433264432645326463264732648326493265032651326523265332654326553265632657326583265932660326613266232663326643266532666326673266832669326703267132672326733267432675326763267732678326793268032681326823268332684326853268632687326883268932690326913269232693326943269532696326973269832699327003270132702327033270432705327063270732708327093271032711327123271332714327153271632717327183271932720327213272232723327243272532726327273272832729327303273132732327333273432735327363273732738327393274032741327423274332744327453274632747327483274932750327513275232753327543275532756327573275832759327603276132762327633276432765327663276732768327693277032771327723277332774327753277632777327783277932780327813278232783327843278532786327873278832789327903279132792327933279432795327963279732798327993280032801328023280332804328053280632807328083280932810328113281232813328143281532816328173281832819328203282132822328233282432825328263282732828328293283032831328323283332834328353283632837328383283932840328413284232843328443284532846328473284832849328503285132852328533285432855328563285732858328593286032861328623286332864328653286632867328683286932870328713287232873328743287532876328773287832879328803288132882328833288432885328863288732888328893289032891328923289332894328953289632897328983289932900329013290232903329043290532906329073290832909329103291132912329133291432915329163291732918329193292032921329223292332924329253292632927329283292932930329313293232933329343293532936329373293832939329403294132942329433294432945329463294732948329493295032951329523295332954329553295632957329583295932960329613296232963329643296532966329673296832969329703297132972329733297432975329763297732978329793298032981329823298332984329853298632987329883298932990329913299232993329943299532996329973299832999330003300133002330033300433005330063300733008330093301033011330123301333014330153301633017330183301933020330213302233023330243302533026330273302833029330303303133032330333303433035330363303733038330393304033041330423304333044330453304633047330483304933050330513305233053330543305533056330573305833059330603306133062330633306433065330663306733068330693307033071330723307333074330753307633077330783307933080330813308233083330843308533086330873308833089330903309133092330933309433095330963309733098330993310033101331023310333104331053310633107331083310933110331113311233113331143311533116331173311833119331203312133122331233312433125331263312733128331293313033131331323313333134331353313633137331383313933140331413314233143331443314533146331473314833149331503315133152331533315433155331563315733158331593316033161331623316333164331653316633167331683316933170331713317233173331743317533176331773317833179331803318133182331833318433185331863318733188331893319033191331923319333194331953319633197331983319933200332013320233203332043320533206332073320833209332103321133212332133321433215332163321733218332193322033221332223322333224332253322633227332283322933230332313323233233332343323533236332373323833239332403324133242332433324433245332463324733248332493325033251332523325333254332553325633257332583325933260332613326233263332643326533266332673326833269332703327133272332733327433275332763327733278332793328033281332823328333284332853328633287332883328933290332913329233293332943329533296332973329833299333003330133302333033330433305333063330733308333093331033311333123331333314333153331633317333183331933320333213332233323333243332533326333273332833329333303333133332333333333433335333363333733338333393334033341333423334333344333453334633347333483334933350333513335233353333543335533356333573335833359333603336133362333633336433365333663336733368333693337033371333723337333374333753337633377333783337933380333813338233383333843338533386333873338833389333903339133392333933339433395333963339733398333993340033401334023340333404334053340633407334083340933410334113341233413334143341533416334173341833419334203342133422334233342433425334263342733428334293343033431334323343333434334353343633437334383343933440334413344233443334443344533446334473344833449334503345133452334533345433455334563345733458334593346033461334623346333464334653346633467334683346933470334713347233473334743347533476334773347833479334803348133482334833348433485334863348733488334893349033491334923349333494334953349633497334983349933500335013350233503335043350533506335073350833509335103351133512335133351433515335163351733518335193352033521335223352333524335253352633527335283352933530335313353233533335343353533536335373353833539335403354133542335433354433545335463354733548335493355033551335523355333554335553355633557335583355933560335613356233563335643356533566335673356833569335703357133572335733357433575335763357733578335793358033581335823358333584335853358633587335883358933590335913359233593335943359533596335973359833599336003360133602336033360433605336063360733608336093361033611336123361333614336153361633617336183361933620336213362233623336243362533626336273362833629336303363133632336333363433635336363363733638336393364033641336423364333644336453364633647336483364933650336513365233653336543365533656336573365833659336603366133662336633366433665336663366733668336693367033671336723367333674336753367633677336783367933680336813368233683336843368533686336873368833689336903369133692336933369433695336963369733698336993370033701337023370333704337053370633707337083370933710337113371233713337143371533716337173371833719337203372133722337233372433725337263372733728337293373033731337323373333734337353373633737337383373933740337413374233743337443374533746337473374833749337503375133752337533375433755337563375733758337593376033761337623376333764337653376633767337683376933770337713377233773337743377533776337773377833779337803378133782337833378433785337863378733788337893379033791337923379333794337953379633797337983379933800338013380233803338043380533806338073380833809338103381133812338133381433815338163381733818338193382033821338223382333824338253382633827338283382933830338313383233833338343383533836338373383833839338403384133842338433384433845338463384733848338493385033851338523385333854338553385633857338583385933860338613386233863338643386533866338673386833869338703387133872338733387433875338763387733878338793388033881338823388333884338853388633887338883388933890338913389233893338943389533896338973389833899339003390133902339033390433905339063390733908339093391033911339123391333914339153391633917339183391933920339213392233923339243392533926339273392833929339303393133932339333393433935339363393733938339393394033941339423394333944339453394633947339483394933950339513395233953339543395533956339573395833959339603396133962339633396433965339663396733968339693397033971339723397333974339753397633977339783397933980339813398233983339843398533986339873398833989339903399133992339933399433995339963399733998339993400034001340023400334004340053400634007340083400934010340113401234013340143401534016340173401834019340203402134022340233402434025340263402734028340293403034031340323403334034340353403634037340383403934040340413404234043340443404534046340473404834049340503405134052340533405434055340563405734058340593406034061340623406334064340653406634067340683406934070340713407234073340743407534076340773407834079340803408134082340833408434085340863408734088340893409034091340923409334094340953409634097340983409934100341013410234103341043410534106341073410834109341103411134112341133411434115341163411734118341193412034121341223412334124341253412634127341283412934130341313413234133341343413534136341373413834139341403414134142341433414434145341463414734148341493415034151341523415334154341553415634157341583415934160341613416234163341643416534166341673416834169341703417134172341733417434175341763417734178341793418034181341823418334184341853418634187341883418934190341913419234193341943419534196341973419834199342003420134202342033420434205342063420734208342093421034211342123421334214342153421634217342183421934220342213422234223342243422534226342273422834229342303423134232342333423434235342363423734238342393424034241342423424334244342453424634247342483424934250342513425234253342543425534256342573425834259342603426134262342633426434265342663426734268342693427034271342723427334274342753427634277342783427934280342813428234283342843428534286342873428834289342903429134292342933429434295342963429734298342993430034301343023430334304343053430634307343083430934310343113431234313343143431534316343173431834319343203432134322343233432434325343263432734328343293433034331343323433334334343353433634337343383433934340343413434234343343443434534346343473434834349343503435134352343533435434355343563435734358343593436034361343623436334364343653436634367343683436934370343713437234373343743437534376343773437834379343803438134382343833438434385343863438734388343893439034391343923439334394343953439634397343983439934400344013440234403344043440534406344073440834409344103441134412344133441434415344163441734418344193442034421344223442334424344253442634427344283442934430344313443234433344343443534436344373443834439344403444134442344433444434445344463444734448344493445034451344523445334454344553445634457344583445934460344613446234463344643446534466344673446834469344703447134472344733447434475344763447734478344793448034481344823448334484344853448634487344883448934490344913449234493344943449534496344973449834499345003450134502345033450434505345063450734508345093451034511345123451334514345153451634517345183451934520345213452234523345243452534526345273452834529345303453134532345333453434535345363453734538345393454034541345423454334544345453454634547345483454934550345513455234553345543455534556345573455834559345603456134562345633456434565345663456734568345693457034571345723457334574345753457634577345783457934580345813458234583345843458534586345873458834589345903459134592345933459434595345963459734598345993460034601346023460334604346053460634607346083460934610346113461234613346143461534616346173461834619346203462134622346233462434625346263462734628346293463034631346323463334634346353463634637346383463934640346413464234643346443464534646346473464834649346503465134652346533465434655346563465734658346593466034661346623466334664346653466634667346683466934670346713467234673346743467534676346773467834679346803468134682346833468434685346863468734688346893469034691346923469334694346953469634697346983469934700347013470234703347043470534706347073470834709347103471134712347133471434715347163471734718347193472034721347223472334724347253472634727347283472934730347313473234733347343473534736347373473834739347403474134742347433474434745347463474734748347493475034751347523475334754347553475634757347583475934760347613476234763347643476534766347673476834769347703477134772347733477434775347763477734778347793478034781347823478334784347853478634787347883478934790347913479234793347943479534796347973479834799348003480134802348033480434805348063480734808348093481034811348123481334814348153481634817348183481934820348213482234823348243482534826348273482834829348303483134832348333483434835348363483734838348393484034841348423484334844348453484634847348483484934850348513485234853348543485534856348573485834859348603486134862348633486434865348663486734868348693487034871348723487334874348753487634877348783487934880348813488234883348843488534886348873488834889348903489134892348933489434895348963489734898348993490034901349023490334904349053490634907349083490934910349113491234913349143491534916349173491834919349203492134922349233492434925349263492734928349293493034931349323493334934349353493634937349383493934940349413494234943349443494534946349473494834949349503495134952349533495434955349563495734958349593496034961349623496334964349653496634967349683496934970349713497234973349743497534976349773497834979349803498134982349833498434985349863498734988349893499034991349923499334994349953499634997349983499935000350013500235003350043500535006350073500835009350103501135012350133501435015350163501735018350193502035021350223502335024350253502635027350283502935030350313503235033350343503535036350373503835039350403504135042350433504435045350463504735048350493505035051350523505335054350553505635057350583505935060350613506235063350643506535066350673506835069350703507135072350733507435075350763507735078350793508035081350823508335084350853508635087350883508935090350913509235093350943509535096350973509835099351003510135102351033510435105351063510735108351093511035111351123511335114351153511635117351183511935120351213512235123351243512535126351273512835129351303513135132351333513435135351363513735138351393514035141351423514335144351453514635147351483514935150351513515235153351543515535156351573515835159351603516135162351633516435165351663516735168351693517035171351723517335174351753517635177351783517935180351813518235183351843518535186351873518835189351903519135192351933519435195351963519735198351993520035201352023520335204352053520635207352083520935210352113521235213352143521535216352173521835219352203522135222352233522435225352263522735228352293523035231352323523335234352353523635237352383523935240352413524235243352443524535246352473524835249352503525135252352533525435255352563525735258352593526035261352623526335264352653526635267352683526935270352713527235273352743527535276352773527835279352803528135282352833528435285352863528735288352893529035291352923529335294352953529635297352983529935300353013530235303353043530535306353073530835309353103531135312353133531435315353163531735318353193532035321353223532335324353253532635327353283532935330353313533235333353343533535336353373533835339353403534135342353433534435345353463534735348353493535035351353523535335354353553535635357353583535935360353613536235363353643536535366353673536835369353703537135372353733537435375353763537735378353793538035381353823538335384353853538635387353883538935390353913539235393353943539535396353973539835399354003540135402354033540435405354063540735408354093541035411354123541335414354153541635417354183541935420354213542235423354243542535426354273542835429354303543135432354333543435435354363543735438354393544035441354423544335444354453544635447354483544935450354513545235453354543545535456354573545835459354603546135462354633546435465354663546735468354693547035471354723547335474354753547635477354783547935480354813548235483354843548535486354873548835489354903549135492354933549435495354963549735498354993550035501355023550335504355053550635507355083550935510355113551235513355143551535516355173551835519355203552135522355233552435525355263552735528355293553035531355323553335534355353553635537355383553935540355413554235543355443554535546355473554835549355503555135552355533555435555355563555735558355593556035561355623556335564355653556635567355683556935570355713557235573355743557535576355773557835579355803558135582355833558435585355863558735588355893559035591355923559335594355953559635597355983559935600356013560235603356043560535606356073560835609356103561135612356133561435615356163561735618356193562035621356223562335624356253562635627356283562935630356313563235633356343563535636356373563835639356403564135642356433564435645356463564735648356493565035651356523565335654356553565635657356583565935660356613566235663356643566535666356673566835669356703567135672356733567435675356763567735678356793568035681356823568335684356853568635687356883568935690356913569235693356943569535696356973569835699357003570135702357033570435705357063570735708357093571035711357123571335714357153571635717357183571935720357213572235723357243572535726357273572835729357303573135732357333573435735357363573735738357393574035741357423574335744357453574635747357483574935750357513575235753357543575535756357573575835759357603576135762357633576435765357663576735768357693577035771357723577335774357753577635777357783577935780357813578235783357843578535786357873578835789357903579135792357933579435795357963579735798357993580035801358023580335804358053580635807358083580935810358113581235813358143581535816358173581835819358203582135822358233582435825358263582735828358293583035831358323583335834358353583635837358383583935840358413584235843358443584535846358473584835849358503585135852358533585435855358563585735858358593586035861358623586335864358653586635867358683586935870358713587235873358743587535876358773587835879358803588135882358833588435885358863588735888358893589035891358923589335894358953589635897358983589935900359013590235903359043590535906359073590835909359103591135912359133591435915359163591735918359193592035921359223592335924359253592635927359283592935930359313593235933359343593535936359373593835939359403594135942359433594435945359463594735948359493595035951359523595335954359553595635957359583595935960359613596235963359643596535966359673596835969359703597135972359733597435975359763597735978359793598035981359823598335984359853598635987359883598935990359913599235993359943599535996359973599835999360003600136002360033600436005360063600736008360093601036011360123601336014360153601636017360183601936020360213602236023360243602536026360273602836029360303603136032360333603436035360363603736038360393604036041360423604336044360453604636047360483604936050360513605236053360543605536056360573605836059360603606136062360633606436065360663606736068360693607036071360723607336074360753607636077360783607936080360813608236083360843608536086360873608836089360903609136092360933609436095360963609736098360993610036101361023610336104361053610636107361083610936110361113611236113361143611536116361173611836119361203612136122361233612436125361263612736128361293613036131361323613336134361353613636137361383613936140361413614236143361443614536146361473614836149361503615136152361533615436155361563615736158361593616036161361623616336164361653616636167361683616936170361713617236173361743617536176361773617836179361803618136182361833618436185361863618736188361893619036191361923619336194361953619636197361983619936200362013620236203362043620536206362073620836209362103621136212362133621436215362163621736218362193622036221362223622336224362253622636227362283622936230362313623236233362343623536236362373623836239362403624136242362433624436245362463624736248362493625036251362523625336254362553625636257362583625936260362613626236263362643626536266362673626836269362703627136272362733627436275362763627736278362793628036281362823628336284362853628636287362883628936290362913629236293362943629536296362973629836299363003630136302363033630436305363063630736308363093631036311363123631336314363153631636317363183631936320363213632236323363243632536326363273632836329363303633136332363333633436335363363633736338363393634036341363423634336344363453634636347363483634936350363513635236353363543635536356363573635836359363603636136362363633636436365363663636736368363693637036371363723637336374363753637636377363783637936380363813638236383363843638536386363873638836389363903639136392363933639436395363963639736398363993640036401364023640336404364053640636407364083640936410364113641236413364143641536416364173641836419364203642136422364233642436425364263642736428364293643036431364323643336434364353643636437364383643936440364413644236443364443644536446364473644836449364503645136452364533645436455364563645736458364593646036461364623646336464364653646636467364683646936470364713647236473364743647536476364773647836479364803648136482364833648436485364863648736488364893649036491364923649336494364953649636497364983649936500365013650236503365043650536506365073650836509365103651136512365133651436515365163651736518365193652036521365223652336524365253652636527365283652936530365313653236533365343653536536365373653836539365403654136542365433654436545365463654736548365493655036551365523655336554365553655636557365583655936560365613656236563365643656536566365673656836569365703657136572365733657436575365763657736578365793658036581365823658336584365853658636587365883658936590365913659236593365943659536596365973659836599366003660136602366033660436605366063660736608366093661036611366123661336614366153661636617366183661936620366213662236623366243662536626366273662836629366303663136632366333663436635366363663736638366393664036641366423664336644366453664636647366483664936650366513665236653366543665536656366573665836659366603666136662366633666436665366663666736668366693667036671366723667336674366753667636677366783667936680366813668236683366843668536686366873668836689366903669136692366933669436695366963669736698366993670036701367023670336704367053670636707367083670936710367113671236713367143671536716367173671836719367203672136722367233672436725367263672736728367293673036731367323673336734367353673636737367383673936740367413674236743367443674536746367473674836749367503675136752367533675436755367563675736758367593676036761367623676336764367653676636767367683676936770367713677236773367743677536776367773677836779367803678136782367833678436785367863678736788367893679036791367923679336794367953679636797367983679936800368013680236803368043680536806368073680836809368103681136812368133681436815368163681736818368193682036821368223682336824368253682636827368283682936830368313683236833368343683536836368373683836839368403684136842368433684436845368463684736848368493685036851368523685336854368553685636857368583685936860368613686236863368643686536866368673686836869368703687136872368733687436875368763687736878368793688036881368823688336884368853688636887368883688936890368913689236893368943689536896368973689836899369003690136902369033690436905369063690736908369093691036911369123691336914369153691636917369183691936920369213692236923369243692536926369273692836929369303693136932369333693436935369363693736938369393694036941369423694336944369453694636947369483694936950369513695236953369543695536956369573695836959369603696136962369633696436965369663696736968369693697036971369723697336974369753697636977369783697936980369813698236983369843698536986369873698836989369903699136992369933699436995369963699736998369993700037001370023700337004370053700637007370083700937010370113701237013370143701537016370173701837019370203702137022370233702437025370263702737028370293703037031370323703337034370353703637037370383703937040370413704237043370443704537046370473704837049370503705137052370533705437055370563705737058370593706037061370623706337064370653706637067370683706937070370713707237073370743707537076370773707837079370803708137082370833708437085370863708737088370893709037091370923709337094370953709637097370983709937100371013710237103371043710537106371073710837109371103711137112371133711437115371163711737118371193712037121371223712337124371253712637127371283712937130371313713237133371343713537136371373713837139371403714137142371433714437145371463714737148371493715037151371523715337154371553715637157371583715937160371613716237163371643716537166371673716837169371703717137172371733717437175371763717737178371793718037181371823718337184371853718637187371883718937190371913719237193371943719537196371973719837199372003720137202372033720437205372063720737208372093721037211372123721337214372153721637217372183721937220372213722237223372243722537226372273722837229372303723137232372333723437235372363723737238372393724037241372423724337244372453724637247372483724937250372513725237253372543725537256372573725837259372603726137262372633726437265372663726737268372693727037271372723727337274372753727637277372783727937280372813728237283372843728537286372873728837289372903729137292372933729437295372963729737298372993730037301373023730337304373053730637307373083730937310373113731237313373143731537316373173731837319373203732137322373233732437325373263732737328373293733037331373323733337334373353733637337373383733937340373413734237343373443734537346373473734837349373503735137352373533735437355373563735737358373593736037361373623736337364373653736637367373683736937370373713737237373373743737537376373773737837379373803738137382373833738437385373863738737388373893739037391373923739337394373953739637397373983739937400374013740237403374043740537406374073740837409374103741137412374133741437415374163741737418374193742037421374223742337424374253742637427374283742937430374313743237433374343743537436374373743837439374403744137442374433744437445374463744737448374493745037451374523745337454374553745637457374583745937460374613746237463374643746537466374673746837469374703747137472374733747437475374763747737478374793748037481374823748337484374853748637487374883748937490374913749237493374943749537496374973749837499375003750137502375033750437505375063750737508375093751037511375123751337514375153751637517375183751937520375213752237523375243752537526375273752837529375303753137532375333753437535375363753737538375393754037541375423754337544375453754637547375483754937550375513755237553375543755537556375573755837559375603756137562375633756437565375663756737568375693757037571375723757337574375753757637577375783757937580375813758237583375843758537586375873758837589375903759137592375933759437595375963759737598375993760037601376023760337604376053760637607376083760937610376113761237613376143761537616376173761837619376203762137622376233762437625376263762737628376293763037631376323763337634376353763637637376383763937640376413764237643376443764537646376473764837649376503765137652376533765437655376563765737658376593766037661376623766337664376653766637667376683766937670376713767237673376743767537676376773767837679376803768137682376833768437685376863768737688376893769037691376923769337694376953769637697376983769937700377013770237703377043770537706377073770837709377103771137712377133771437715377163771737718377193772037721377223772337724377253772637727377283772937730377313773237733377343773537736377373773837739377403774137742377433774437745377463774737748377493775037751377523775337754377553775637757377583775937760377613776237763377643776537766377673776837769377703777137772377733777437775377763777737778377793778037781377823778337784377853778637787377883778937790377913779237793377943779537796377973779837799378003780137802378033780437805378063780737808378093781037811378123781337814378153781637817378183781937820378213782237823378243782537826378273782837829378303783137832378333783437835378363783737838378393784037841378423784337844378453784637847378483784937850378513785237853378543785537856378573785837859378603786137862378633786437865378663786737868378693787037871378723787337874378753787637877378783787937880378813788237883378843788537886378873788837889378903789137892378933789437895378963789737898378993790037901379023790337904379053790637907379083790937910379113791237913379143791537916379173791837919379203792137922379233792437925379263792737928379293793037931379323793337934379353793637937379383793937940379413794237943379443794537946379473794837949379503795137952379533795437955379563795737958379593796037961379623796337964379653796637967379683796937970379713797237973379743797537976379773797837979379803798137982379833798437985379863798737988379893799037991379923799337994379953799637997379983799938000380013800238003380043800538006380073800838009380103801138012380133801438015380163801738018380193802038021380223802338024380253802638027380283802938030380313803238033380343803538036380373803838039380403804138042380433804438045380463804738048380493805038051380523805338054380553805638057380583805938060380613806238063380643806538066380673806838069380703807138072380733807438075380763807738078380793808038081380823808338084380853808638087380883808938090380913809238093380943809538096380973809838099381003810138102381033810438105381063810738108381093811038111381123811338114381153811638117381183811938120381213812238123381243812538126381273812838129381303813138132381333813438135381363813738138381393814038141381423814338144381453814638147381483814938150381513815238153381543815538156381573815838159381603816138162381633816438165381663816738168381693817038171381723817338174381753817638177381783817938180381813818238183381843818538186381873818838189381903819138192381933819438195381963819738198381993820038201382023820338204382053820638207382083820938210382113821238213382143821538216382173821838219382203822138222382233822438225382263822738228382293823038231382323823338234382353823638237382383823938240382413824238243382443824538246382473824838249382503825138252382533825438255382563825738258382593826038261382623826338264382653826638267382683826938270382713827238273382743827538276382773827838279382803828138282382833828438285382863828738288382893829038291382923829338294382953829638297382983829938300383013830238303383043830538306383073830838309383103831138312383133831438315383163831738318383193832038321383223832338324383253832638327383283832938330383313833238333383343833538336383373833838339383403834138342383433834438345383463834738348383493835038351383523835338354383553835638357383583835938360383613836238363383643836538366383673836838369383703837138372383733837438375383763837738378383793838038381383823838338384383853838638387383883838938390383913839238393383943839538396383973839838399384003840138402384033840438405384063840738408384093841038411384123841338414384153841638417384183841938420384213842238423384243842538426384273842838429384303843138432384333843438435384363843738438384393844038441384423844338444384453844638447384483844938450384513845238453384543845538456384573845838459384603846138462384633846438465384663846738468384693847038471384723847338474384753847638477384783847938480384813848238483384843848538486384873848838489384903849138492384933849438495384963849738498384993850038501385023850338504385053850638507385083850938510385113851238513385143851538516385173851838519385203852138522385233852438525385263852738528385293853038531385323853338534385353853638537385383853938540385413854238543385443854538546385473854838549385503855138552385533855438555385563855738558385593856038561385623856338564385653856638567385683856938570385713857238573385743857538576385773857838579385803858138582385833858438585385863858738588385893859038591385923859338594385953859638597385983859938600386013860238603386043860538606386073860838609386103861138612386133861438615386163861738618386193862038621386223862338624386253862638627386283862938630386313863238633386343863538636386373863838639386403864138642386433864438645386463864738648386493865038651386523865338654386553865638657386583865938660386613866238663386643866538666386673866838669386703867138672386733867438675386763867738678386793868038681386823868338684386853868638687386883868938690386913869238693386943869538696386973869838699387003870138702387033870438705387063870738708387093871038711387123871338714387153871638717387183871938720387213872238723387243872538726387273872838729387303873138732387333873438735387363873738738387393874038741387423874338744387453874638747387483874938750387513875238753387543875538756387573875838759387603876138762387633876438765387663876738768387693877038771387723877338774387753877638777387783877938780387813878238783387843878538786387873878838789387903879138792387933879438795387963879738798387993880038801388023880338804388053880638807388083880938810388113881238813388143881538816388173881838819388203882138822388233882438825388263882738828388293883038831388323883338834388353883638837388383883938840388413884238843388443884538846388473884838849388503885138852388533885438855388563885738858388593886038861388623886338864388653886638867388683886938870388713887238873388743887538876388773887838879388803888138882388833888438885388863888738888388893889038891388923889338894388953889638897388983889938900389013890238903389043890538906389073890838909389103891138912389133891438915389163891738918389193892038921389223892338924389253892638927389283892938930389313893238933389343893538936389373893838939389403894138942389433894438945389463894738948389493895038951389523895338954389553895638957389583895938960389613896238963389643896538966389673896838969389703897138972389733897438975389763897738978389793898038981389823898338984389853898638987389883898938990389913899238993389943899538996389973899838999390003900139002390033900439005390063900739008390093901039011390123901339014390153901639017390183901939020390213902239023390243902539026390273902839029390303903139032390333903439035390363903739038390393904039041390423904339044390453904639047390483904939050390513905239053390543905539056390573905839059390603906139062390633906439065390663906739068390693907039071390723907339074390753907639077390783907939080390813908239083390843908539086390873908839089390903909139092390933909439095390963909739098390993910039101391023910339104391053910639107391083910939110391113911239113391143911539116391173911839119391203912139122391233912439125391263912739128391293913039131391323913339134391353913639137391383913939140391413914239143391443914539146391473914839149391503915139152391533915439155391563915739158391593916039161391623916339164391653916639167391683916939170391713917239173391743917539176391773917839179391803918139182391833918439185391863918739188391893919039191391923919339194391953919639197391983919939200392013920239203392043920539206392073920839209392103921139212392133921439215392163921739218392193922039221392223922339224392253922639227392283922939230392313923239233392343923539236392373923839239392403924139242392433924439245392463924739248392493925039251392523925339254392553925639257392583925939260392613926239263392643926539266392673926839269392703927139272392733927439275392763927739278392793928039281392823928339284392853928639287392883928939290392913929239293392943929539296392973929839299393003930139302393033930439305393063930739308393093931039311393123931339314393153931639317393183931939320393213932239323393243932539326393273932839329393303933139332393333933439335393363933739338393393934039341393423934339344393453934639347393483934939350393513935239353393543935539356393573935839359393603936139362393633936439365393663936739368393693937039371393723937339374393753937639377393783937939380393813938239383393843938539386393873938839389393903939139392393933939439395393963939739398393993940039401394023940339404394053940639407394083940939410394113941239413394143941539416394173941839419394203942139422394233942439425394263942739428394293943039431394323943339434394353943639437394383943939440394413944239443394443944539446394473944839449394503945139452394533945439455394563945739458394593946039461394623946339464394653946639467394683946939470394713947239473394743947539476394773947839479394803948139482394833948439485394863948739488394893949039491394923949339494394953949639497394983949939500395013950239503395043950539506395073950839509395103951139512395133951439515395163951739518395193952039521395223952339524395253952639527395283952939530395313953239533395343953539536395373953839539395403954139542395433954439545395463954739548395493955039551395523955339554395553955639557395583955939560395613956239563395643956539566395673956839569395703957139572395733957439575395763957739578395793958039581395823958339584395853958639587395883958939590395913959239593395943959539596395973959839599396003960139602396033960439605396063960739608396093961039611396123961339614396153961639617396183961939620396213962239623396243962539626396273962839629396303963139632396333963439635396363963739638396393964039641396423964339644396453964639647396483964939650396513965239653396543965539656396573965839659396603966139662396633966439665396663966739668396693967039671396723967339674396753967639677396783967939680396813968239683396843968539686396873968839689396903969139692396933969439695396963969739698396993970039701397023970339704397053970639707397083970939710397113971239713397143971539716397173971839719397203972139722397233972439725397263972739728397293973039731397323973339734397353973639737397383973939740397413974239743397443974539746397473974839749397503975139752397533975439755397563975739758397593976039761397623976339764397653976639767397683976939770397713977239773397743977539776397773977839779397803978139782397833978439785397863978739788397893979039791397923979339794397953979639797397983979939800398013980239803398043980539806398073980839809398103981139812398133981439815398163981739818398193982039821398223982339824398253982639827398283982939830398313983239833398343983539836398373983839839398403984139842398433984439845398463984739848398493985039851398523985339854398553985639857398583985939860398613986239863398643986539866398673986839869398703987139872398733987439875398763987739878398793988039881398823988339884398853988639887398883988939890398913989239893398943989539896398973989839899399003990139902399033990439905399063990739908399093991039911399123991339914399153991639917399183991939920399213992239923399243992539926399273992839929399303993139932399333993439935399363993739938399393994039941399423994339944399453994639947399483994939950399513995239953399543995539956399573995839959399603996139962399633996439965399663996739968399693997039971399723997339974399753997639977399783997939980399813998239983399843998539986399873998839989399903999139992399933999439995399963999739998399994000040001400024000340004400054000640007400084000940010400114001240013400144001540016400174001840019400204002140022400234002440025400264002740028400294003040031400324003340034400354003640037400384003940040400414004240043400444004540046400474004840049400504005140052400534005440055400564005740058400594006040061400624006340064400654006640067400684006940070400714007240073400744007540076400774007840079400804008140082400834008440085400864008740088400894009040091400924009340094400954009640097400984009940100401014010240103401044010540106401074010840109401104011140112401134011440115401164011740118401194012040121401224012340124401254012640127401284012940130401314013240133401344013540136401374013840139401404014140142401434014440145401464014740148401494015040151401524015340154401554015640157401584015940160401614016240163401644016540166401674016840169401704017140172401734017440175401764017740178401794018040181401824018340184401854018640187401884018940190401914019240193401944019540196401974019840199402004020140202402034020440205402064020740208402094021040211402124021340214402154021640217402184021940220402214022240223402244022540226402274022840229402304023140232402334023440235402364023740238402394024040241402424024340244402454024640247402484024940250402514025240253402544025540256402574025840259402604026140262402634026440265402664026740268402694027040271402724027340274402754027640277402784027940280402814028240283402844028540286402874028840289402904029140292402934029440295402964029740298402994030040301403024030340304403054030640307403084030940310403114031240313403144031540316403174031840319403204032140322403234032440325403264032740328403294033040331403324033340334403354033640337403384033940340403414034240343403444034540346403474034840349403504035140352403534035440355403564035740358403594036040361403624036340364403654036640367403684036940370403714037240373403744037540376403774037840379403804038140382403834038440385403864038740388403894039040391403924039340394403954039640397403984039940400404014040240403404044040540406404074040840409404104041140412404134041440415404164041740418404194042040421404224042340424404254042640427404284042940430404314043240433404344043540436404374043840439404404044140442404434044440445404464044740448404494045040451404524045340454404554045640457404584045940460404614046240463404644046540466404674046840469404704047140472404734047440475404764047740478404794048040481404824048340484404854048640487404884048940490404914049240493404944049540496404974049840499405004050140502405034050440505405064050740508405094051040511405124051340514405154051640517405184051940520405214052240523405244052540526405274052840529405304053140532405334053440535405364053740538405394054040541405424054340544405454054640547405484054940550405514055240553405544055540556405574055840559405604056140562405634056440565405664056740568405694057040571405724057340574405754057640577405784057940580405814058240583405844058540586405874058840589405904059140592405934059440595405964059740598405994060040601406024060340604406054060640607406084060940610406114061240613406144061540616406174061840619406204062140622406234062440625406264062740628406294063040631406324063340634406354063640637406384063940640406414064240643406444064540646406474064840649406504065140652406534065440655406564065740658406594066040661406624066340664406654066640667406684066940670406714067240673406744067540676406774067840679406804068140682406834068440685406864068740688406894069040691406924069340694406954069640697406984069940700407014070240703407044070540706407074070840709407104071140712407134071440715407164071740718407194072040721407224072340724407254072640727407284072940730407314073240733407344073540736407374073840739407404074140742407434074440745407464074740748407494075040751407524075340754407554075640757407584075940760407614076240763407644076540766407674076840769407704077140772407734077440775407764077740778407794078040781407824078340784407854078640787407884078940790407914079240793407944079540796407974079840799408004080140802408034080440805408064080740808408094081040811408124081340814408154081640817408184081940820408214082240823408244082540826408274082840829408304083140832408334083440835408364083740838408394084040841408424084340844408454084640847408484084940850408514085240853408544085540856408574085840859408604086140862408634086440865408664086740868408694087040871408724087340874408754087640877408784087940880408814088240883408844088540886408874088840889408904089140892408934089440895408964089740898408994090040901409024090340904409054090640907409084090940910409114091240913409144091540916409174091840919409204092140922409234092440925409264092740928409294093040931409324093340934409354093640937409384093940940409414094240943409444094540946409474094840949409504095140952409534095440955409564095740958409594096040961409624096340964409654096640967409684096940970409714097240973409744097540976409774097840979409804098140982409834098440985409864098740988409894099040991409924099340994409954099640997409984099941000410014100241003410044100541006410074100841009410104101141012410134101441015410164101741018410194102041021410224102341024410254102641027410284102941030410314103241033410344103541036410374103841039410404104141042410434104441045410464104741048410494105041051410524105341054410554105641057410584105941060410614106241063410644106541066410674106841069410704107141072410734107441075410764107741078410794108041081410824108341084410854108641087410884108941090410914109241093410944109541096410974109841099411004110141102411034110441105411064110741108411094111041111411124111341114411154111641117411184111941120411214112241123411244112541126411274112841129411304113141132411334113441135411364113741138411394114041141411424114341144411454114641147411484114941150411514115241153411544115541156411574115841159411604116141162411634116441165411664116741168411694117041171411724117341174411754117641177411784117941180411814118241183411844118541186411874118841189411904119141192411934119441195411964119741198411994120041201412024120341204412054120641207412084120941210412114121241213412144121541216412174121841219412204122141222412234122441225412264122741228412294123041231412324123341234412354123641237412384123941240412414124241243412444124541246412474124841249412504125141252412534125441255412564125741258412594126041261412624126341264412654126641267412684126941270412714127241273412744127541276412774127841279412804128141282412834128441285412864128741288412894129041291412924129341294412954129641297412984129941300413014130241303413044130541306413074130841309413104131141312413134131441315413164131741318413194132041321413224132341324413254132641327413284132941330413314133241333413344133541336413374133841339413404134141342413434134441345413464134741348413494135041351413524135341354413554135641357413584135941360413614136241363413644136541366413674136841369413704137141372413734137441375413764137741378413794138041381413824138341384413854138641387413884138941390413914139241393413944139541396413974139841399414004140141402414034140441405414064140741408414094141041411414124141341414414154141641417414184141941420414214142241423414244142541426414274142841429414304143141432414334143441435414364143741438414394144041441414424144341444414454144641447414484144941450414514145241453414544145541456414574145841459414604146141462414634146441465414664146741468414694147041471414724147341474414754147641477414784147941480414814148241483414844148541486414874148841489414904149141492414934149441495414964149741498414994150041501415024150341504415054150641507415084150941510415114151241513415144151541516415174151841519415204152141522415234152441525415264152741528415294153041531415324153341534415354153641537415384153941540415414154241543415444154541546415474154841549415504155141552415534155441555415564155741558415594156041561415624156341564415654156641567415684156941570415714157241573415744157541576415774157841579415804158141582415834158441585415864158741588415894159041591415924159341594415954159641597415984159941600416014160241603416044160541606416074160841609416104161141612416134161441615416164161741618416194162041621416224162341624416254162641627416284162941630416314163241633416344163541636416374163841639416404164141642416434164441645416464164741648416494165041651416524165341654416554165641657416584165941660416614166241663416644166541666416674166841669416704167141672416734167441675416764167741678416794168041681416824168341684416854168641687416884168941690416914169241693416944169541696416974169841699417004170141702417034170441705417064170741708417094171041711417124171341714417154171641717417184171941720417214172241723417244172541726417274172841729417304173141732417334173441735417364173741738417394174041741417424174341744417454174641747417484174941750417514175241753417544175541756417574175841759417604176141762417634176441765417664176741768417694177041771417724177341774417754177641777417784177941780417814178241783417844178541786417874178841789417904179141792417934179441795417964179741798417994180041801418024180341804418054180641807418084180941810418114181241813418144181541816418174181841819418204182141822418234182441825418264182741828418294183041831418324183341834418354183641837418384183941840418414184241843418444184541846418474184841849418504185141852418534185441855418564185741858418594186041861418624186341864418654186641867418684186941870418714187241873418744187541876418774187841879418804188141882418834188441885418864188741888418894189041891418924189341894418954189641897418984189941900419014190241903419044190541906419074190841909419104191141912419134191441915419164191741918419194192041921419224192341924419254192641927419284192941930419314193241933419344193541936419374193841939419404194141942419434194441945419464194741948419494195041951419524195341954419554195641957419584195941960419614196241963419644196541966419674196841969419704197141972419734197441975419764197741978419794198041981419824198341984419854198641987419884198941990419914199241993419944199541996419974199841999420004200142002420034200442005420064200742008420094201042011420124201342014420154201642017420184201942020420214202242023420244202542026420274202842029420304203142032420334203442035420364203742038420394204042041420424204342044420454204642047420484204942050420514205242053420544205542056420574205842059420604206142062420634206442065420664206742068420694207042071420724207342074420754207642077420784207942080420814208242083420844208542086420874208842089420904209142092420934209442095420964209742098420994210042101421024210342104421054210642107421084210942110421114211242113421144211542116421174211842119421204212142122421234212442125421264212742128421294213042131421324213342134421354213642137421384213942140421414214242143421444214542146421474214842149421504215142152421534215442155421564215742158421594216042161421624216342164421654216642167421684216942170421714217242173421744217542176421774217842179421804218142182421834218442185421864218742188421894219042191421924219342194421954219642197421984219942200422014220242203422044220542206422074220842209422104221142212422134221442215422164221742218422194222042221422224222342224422254222642227422284222942230422314223242233422344223542236422374223842239422404224142242422434224442245422464224742248422494225042251422524225342254422554225642257422584225942260422614226242263422644226542266422674226842269422704227142272422734227442275422764227742278422794228042281422824228342284422854228642287422884228942290422914229242293422944229542296422974229842299423004230142302423034230442305423064230742308423094231042311423124231342314423154231642317423184231942320423214232242323423244232542326423274232842329423304233142332423334233442335423364233742338423394234042341423424234342344423454234642347423484234942350423514235242353423544235542356423574235842359423604236142362423634236442365423664236742368423694237042371423724237342374423754237642377423784237942380423814238242383423844238542386423874238842389423904239142392423934239442395423964239742398423994240042401424024240342404424054240642407424084240942410424114241242413424144241542416424174241842419424204242142422424234242442425424264242742428424294243042431424324243342434424354243642437424384243942440424414244242443424444244542446424474244842449424504245142452424534245442455424564245742458424594246042461424624246342464424654246642467424684246942470424714247242473424744247542476424774247842479424804248142482424834248442485424864248742488424894249042491424924249342494424954249642497424984249942500425014250242503425044250542506425074250842509425104251142512425134251442515425164251742518425194252042521425224252342524425254252642527425284252942530425314253242533425344253542536425374253842539425404254142542425434254442545425464254742548425494255042551425524255342554425554255642557425584255942560425614256242563425644256542566425674256842569425704257142572425734257442575425764257742578425794258042581425824258342584425854258642587425884258942590425914259242593425944259542596425974259842599426004260142602426034260442605426064260742608426094261042611426124261342614426154261642617426184261942620426214262242623426244262542626426274262842629426304263142632426334263442635426364263742638426394264042641426424264342644426454264642647426484264942650426514265242653426544265542656426574265842659426604266142662426634266442665426664266742668426694267042671426724267342674426754267642677426784267942680426814268242683426844268542686426874268842689426904269142692426934269442695426964269742698426994270042701427024270342704427054270642707427084270942710427114271242713427144271542716427174271842719427204272142722427234272442725427264272742728427294273042731427324273342734427354273642737427384273942740427414274242743427444274542746427474274842749427504275142752427534275442755427564275742758427594276042761427624276342764427654276642767427684276942770427714277242773427744277542776427774277842779427804278142782427834278442785427864278742788427894279042791427924279342794427954279642797427984279942800428014280242803428044280542806428074280842809428104281142812428134281442815428164281742818428194282042821428224282342824428254282642827428284282942830428314283242833428344283542836428374283842839428404284142842428434284442845428464284742848428494285042851428524285342854428554285642857428584285942860428614286242863428644286542866428674286842869428704287142872428734287442875428764287742878428794288042881428824288342884428854288642887428884288942890428914289242893428944289542896428974289842899429004290142902429034290442905429064290742908429094291042911429124291342914429154291642917429184291942920429214292242923429244292542926429274292842929429304293142932429334293442935429364293742938429394294042941429424294342944429454294642947429484294942950429514295242953429544295542956429574295842959429604296142962429634296442965429664296742968429694297042971429724297342974429754297642977429784297942980429814298242983429844298542986429874298842989429904299142992429934299442995429964299742998429994300043001430024300343004430054300643007430084300943010430114301243013430144301543016430174301843019430204302143022430234302443025430264302743028430294303043031430324303343034430354303643037430384303943040430414304243043430444304543046430474304843049430504305143052430534305443055430564305743058430594306043061430624306343064430654306643067430684306943070430714307243073430744307543076430774307843079430804308143082430834308443085430864308743088430894309043091430924309343094430954309643097430984309943100431014310243103431044310543106431074310843109431104311143112431134311443115431164311743118431194312043121431224312343124431254312643127431284312943130431314313243133431344313543136431374313843139431404314143142431434314443145431464314743148431494315043151431524315343154431554315643157431584315943160431614316243163431644316543166431674316843169431704317143172431734317443175431764317743178431794318043181431824318343184431854318643187431884318943190431914319243193431944319543196431974319843199432004320143202432034320443205432064320743208432094321043211432124321343214432154321643217432184321943220432214322243223432244322543226432274322843229432304323143232432334323443235432364323743238432394324043241432424324343244432454324643247432484324943250432514325243253432544325543256432574325843259432604326143262432634326443265432664326743268432694327043271432724327343274432754327643277432784327943280432814328243283432844328543286432874328843289432904329143292432934329443295432964329743298432994330043301433024330343304433054330643307433084330943310433114331243313433144331543316433174331843319433204332143322433234332443325433264332743328433294333043331433324333343334433354333643337433384333943340433414334243343433444334543346433474334843349433504335143352433534335443355433564335743358433594336043361433624336343364433654336643367433684336943370433714337243373433744337543376433774337843379433804338143382433834338443385433864338743388433894339043391433924339343394433954339643397433984339943400434014340243403434044340543406434074340843409434104341143412434134341443415434164341743418434194342043421434224342343424434254342643427434284342943430434314343243433434344343543436434374343843439434404344143442434434344443445434464344743448434494345043451434524345343454434554345643457434584345943460434614346243463434644346543466434674346843469434704347143472434734347443475434764347743478434794348043481434824348343484434854348643487434884348943490434914349243493434944349543496434974349843499435004350143502435034350443505435064350743508435094351043511435124351343514435154351643517435184351943520435214352243523435244352543526435274352843529435304353143532435334353443535435364353743538435394354043541435424354343544435454354643547435484354943550435514355243553435544355543556435574355843559435604356143562435634356443565435664356743568435694357043571435724357343574435754357643577435784357943580435814358243583435844358543586435874358843589435904359143592435934359443595435964359743598435994360043601436024360343604436054360643607436084360943610436114361243613436144361543616436174361843619436204362143622436234362443625436264362743628436294363043631436324363343634436354363643637436384363943640436414364243643436444364543646436474364843649436504365143652436534365443655436564365743658436594366043661436624366343664436654366643667436684366943670436714367243673436744367543676436774367843679436804368143682436834368443685436864368743688436894369043691436924369343694436954369643697436984369943700437014370243703437044370543706437074370843709437104371143712437134371443715437164371743718437194372043721437224372343724437254372643727437284372943730437314373243733437344373543736437374373843739437404374143742437434374443745437464374743748437494375043751437524375343754437554375643757437584375943760437614376243763437644376543766437674376843769437704377143772437734377443775437764377743778437794378043781437824378343784437854378643787437884378943790437914379243793437944379543796437974379843799438004380143802438034380443805438064380743808438094381043811438124381343814438154381643817438184381943820438214382243823438244382543826438274382843829438304383143832438334383443835438364383743838438394384043841438424384343844438454384643847438484384943850438514385243853438544385543856438574385843859438604386143862438634386443865438664386743868438694387043871438724387343874438754387643877438784387943880438814388243883438844388543886438874388843889438904389143892438934389443895438964389743898438994390043901439024390343904439054390643907439084390943910439114391243913439144391543916439174391843919439204392143922439234392443925439264392743928439294393043931439324393343934439354393643937439384393943940439414394243943439444394543946439474394843949439504395143952439534395443955439564395743958439594396043961439624396343964439654396643967439684396943970439714397243973439744397543976439774397843979439804398143982439834398443985439864398743988439894399043991439924399343994439954399643997439984399944000440014400244003440044400544006440074400844009440104401144012440134401444015440164401744018440194402044021440224402344024440254402644027440284402944030440314403244033440344403544036440374403844039440404404144042440434404444045440464404744048440494405044051440524405344054440554405644057440584405944060440614406244063440644406544066440674406844069440704407144072440734407444075440764407744078440794408044081440824408344084440854408644087440884408944090440914409244093440944409544096440974409844099441004410144102441034410444105441064410744108441094411044111441124411344114441154411644117441184411944120441214412244123441244412544126441274412844129441304413144132441334413444135441364413744138441394414044141441424414344144441454414644147441484414944150441514415244153441544415544156441574415844159441604416144162441634416444165441664416744168441694417044171441724417344174441754417644177441784417944180441814418244183441844418544186441874418844189441904419144192441934419444195441964419744198441994420044201442024420344204442054420644207442084420944210442114421244213442144421544216442174421844219442204422144222442234422444225442264422744228442294423044231442324423344234442354423644237442384423944240442414424244243442444424544246442474424844249442504425144252442534425444255442564425744258442594426044261442624426344264442654426644267442684426944270442714427244273442744427544276442774427844279442804428144282442834428444285442864428744288442894429044291442924429344294442954429644297442984429944300443014430244303443044430544306443074430844309443104431144312443134431444315443164431744318443194432044321443224432344324443254432644327443284432944330443314433244333443344433544336443374433844339443404434144342443434434444345443464434744348443494435044351443524435344354443554435644357443584435944360443614436244363443644436544366443674436844369443704437144372443734437444375443764437744378443794438044381443824438344384443854438644387443884438944390443914439244393443944439544396443974439844399444004440144402444034440444405444064440744408444094441044411444124441344414444154441644417444184441944420444214442244423444244442544426444274442844429444304443144432444334443444435444364443744438444394444044441444424444344444444454444644447444484444944450444514445244453444544445544456444574445844459444604446144462444634446444465444664446744468444694447044471444724447344474444754447644477444784447944480444814448244483444844448544486444874448844489444904449144492444934449444495444964449744498444994450044501445024450344504445054450644507445084450944510445114451244513445144451544516445174451844519445204452144522445234452444525445264452744528445294453044531445324453344534445354453644537445384453944540445414454244543445444454544546445474454844549445504455144552445534455444555445564455744558445594456044561445624456344564445654456644567445684456944570445714457244573445744457544576445774457844579445804458144582445834458444585445864458744588445894459044591445924459344594445954459644597445984459944600446014460244603446044460544606446074460844609446104461144612446134461444615446164461744618446194462044621446224462344624446254462644627446284462944630446314463244633446344463544636446374463844639446404464144642446434464444645446464464744648446494465044651446524465344654446554465644657446584465944660446614466244663446644466544666446674466844669446704467144672446734467444675446764467744678446794468044681446824468344684446854468644687446884468944690446914469244693446944469544696446974469844699447004470144702447034470444705447064470744708447094471044711447124471344714447154471644717447184471944720447214472244723447244472544726447274472844729447304473144732447334473444735447364473744738447394474044741447424474344744447454474644747447484474944750447514475244753447544475544756447574475844759447604476144762447634476444765447664476744768447694477044771447724477344774447754477644777447784477944780447814478244783447844478544786447874478844789447904479144792447934479444795447964479744798447994480044801448024480344804448054480644807448084480944810448114481244813448144481544816448174481844819448204482144822448234482444825448264482744828448294483044831448324483344834448354483644837448384483944840448414484244843448444484544846448474484844849448504485144852448534485444855448564485744858448594486044861448624486344864448654486644867448684486944870448714487244873448744487544876448774487844879448804488144882448834488444885448864488744888448894489044891448924489344894448954489644897448984489944900449014490244903449044490544906449074490844909449104491144912449134491444915449164491744918449194492044921449224492344924449254492644927449284492944930449314493244933449344493544936449374493844939449404494144942449434494444945449464494744948449494495044951449524495344954449554495644957449584495944960449614496244963449644496544966449674496844969449704497144972449734497444975449764497744978449794498044981449824498344984449854498644987449884498944990449914499244993449944499544996449974499844999450004500145002450034500445005450064500745008450094501045011450124501345014450154501645017450184501945020450214502245023450244502545026450274502845029450304503145032450334503445035450364503745038450394504045041450424504345044450454504645047450484504945050450514505245053450544505545056450574505845059450604506145062450634506445065450664506745068450694507045071450724507345074450754507645077450784507945080450814508245083450844508545086450874508845089450904509145092450934509445095450964509745098450994510045101451024510345104451054510645107451084510945110451114511245113451144511545116451174511845119451204512145122451234512445125451264512745128451294513045131451324513345134451354513645137451384513945140451414514245143451444514545146451474514845149451504515145152451534515445155451564515745158451594516045161451624516345164451654516645167451684516945170451714517245173451744517545176451774517845179451804518145182451834518445185451864518745188451894519045191451924519345194451954519645197451984519945200452014520245203452044520545206452074520845209452104521145212452134521445215452164521745218452194522045221452224522345224452254522645227452284522945230452314523245233452344523545236452374523845239452404524145242452434524445245452464524745248452494525045251452524525345254452554525645257452584525945260452614526245263452644526545266452674526845269452704527145272452734527445275452764527745278452794528045281452824528345284452854528645287452884528945290452914529245293452944529545296452974529845299453004530145302453034530445305453064530745308453094531045311453124531345314453154531645317453184531945320453214532245323453244532545326453274532845329453304533145332453334533445335453364533745338453394534045341453424534345344453454534645347453484534945350453514535245353453544535545356453574535845359453604536145362453634536445365453664536745368453694537045371453724537345374453754537645377453784537945380453814538245383453844538545386453874538845389453904539145392453934539445395453964539745398453994540045401454024540345404454054540645407454084540945410454114541245413454144541545416454174541845419454204542145422454234542445425454264542745428454294543045431454324543345434454354543645437454384543945440454414544245443454444544545446454474544845449454504545145452454534545445455454564545745458454594546045461454624546345464454654546645467454684546945470454714547245473454744547545476454774547845479454804548145482454834548445485454864548745488454894549045491454924549345494454954549645497454984549945500455014550245503455044550545506455074550845509455104551145512455134551445515455164551745518455194552045521455224552345524455254552645527455284552945530455314553245533455344553545536455374553845539455404554145542455434554445545455464554745548455494555045551455524555345554455554555645557455584555945560455614556245563455644556545566455674556845569455704557145572455734557445575455764557745578455794558045581455824558345584455854558645587455884558945590455914559245593455944559545596455974559845599456004560145602456034560445605456064560745608456094561045611456124561345614456154561645617456184561945620456214562245623456244562545626456274562845629456304563145632456334563445635456364563745638456394564045641456424564345644456454564645647456484564945650456514565245653456544565545656456574565845659456604566145662456634566445665456664566745668456694567045671456724567345674456754567645677456784567945680456814568245683456844568545686456874568845689456904569145692456934569445695456964569745698456994570045701457024570345704457054570645707457084570945710457114571245713457144571545716457174571845719457204572145722457234572445725457264572745728457294573045731457324573345734457354573645737457384573945740457414574245743457444574545746457474574845749457504575145752457534575445755457564575745758457594576045761457624576345764457654576645767457684576945770457714577245773457744577545776457774577845779457804578145782457834578445785457864578745788457894579045791457924579345794457954579645797457984579945800458014580245803458044580545806458074580845809458104581145812458134581445815458164581745818458194582045821458224582345824458254582645827458284582945830458314583245833458344583545836458374583845839458404584145842458434584445845458464584745848458494585045851458524585345854458554585645857458584585945860458614586245863458644586545866458674586845869458704587145872458734587445875458764587745878458794588045881458824588345884458854588645887458884588945890458914589245893458944589545896458974589845899459004590145902459034590445905459064590745908459094591045911459124591345914459154591645917459184591945920459214592245923459244592545926459274592845929459304593145932459334593445935459364593745938459394594045941459424594345944459454594645947459484594945950459514595245953459544595545956459574595845959459604596145962459634596445965459664596745968459694597045971459724597345974459754597645977459784597945980459814598245983459844598545986459874598845989459904599145992459934599445995459964599745998459994600046001460024600346004460054600646007460084600946010460114601246013460144601546016460174601846019460204602146022460234602446025460264602746028460294603046031460324603346034460354603646037460384603946040460414604246043460444604546046460474604846049460504605146052460534605446055460564605746058460594606046061460624606346064460654606646067460684606946070460714607246073460744607546076460774607846079460804608146082460834608446085460864608746088460894609046091460924609346094460954609646097460984609946100461014610246103461044610546106461074610846109461104611146112461134611446115461164611746118461194612046121461224612346124461254612646127461284612946130461314613246133461344613546136461374613846139461404614146142461434614446145461464614746148461494615046151461524615346154461554615646157461584615946160461614616246163461644616546166461674616846169461704617146172461734617446175461764617746178461794618046181461824618346184461854618646187461884618946190461914619246193461944619546196461974619846199462004620146202462034620446205462064620746208462094621046211462124621346214462154621646217462184621946220462214622246223462244622546226462274622846229462304623146232462334623446235462364623746238462394624046241462424624346244462454624646247462484624946250462514625246253462544625546256462574625846259462604626146262462634626446265462664626746268462694627046271462724627346274462754627646277462784627946280462814628246283462844628546286462874628846289462904629146292462934629446295462964629746298462994630046301463024630346304463054630646307463084630946310463114631246313463144631546316463174631846319463204632146322463234632446325463264632746328463294633046331463324633346334463354633646337463384633946340463414634246343463444634546346463474634846349463504635146352463534635446355463564635746358463594636046361463624636346364463654636646367463684636946370463714637246373463744637546376463774637846379463804638146382463834638446385463864638746388463894639046391463924639346394463954639646397463984639946400464014640246403464044640546406464074640846409464104641146412464134641446415464164641746418464194642046421464224642346424464254642646427464284642946430464314643246433464344643546436464374643846439464404644146442464434644446445464464644746448464494645046451464524645346454464554645646457464584645946460464614646246463464644646546466464674646846469464704647146472464734647446475464764647746478464794648046481464824648346484464854648646487464884648946490464914649246493464944649546496464974649846499465004650146502465034650446505465064650746508465094651046511465124651346514465154651646517465184651946520465214652246523465244652546526465274652846529465304653146532465334653446535465364653746538465394654046541465424654346544465454654646547465484654946550465514655246553465544655546556465574655846559465604656146562465634656446565465664656746568465694657046571465724657346574465754657646577465784657946580465814658246583465844658546586465874658846589465904659146592465934659446595465964659746598465994660046601466024660346604466054660646607466084660946610466114661246613466144661546616466174661846619466204662146622466234662446625466264662746628466294663046631466324663346634466354663646637466384663946640466414664246643466444664546646466474664846649466504665146652466534665446655466564665746658466594666046661466624666346664466654666646667466684666946670466714667246673466744667546676466774667846679466804668146682466834668446685466864668746688466894669046691466924669346694466954669646697466984669946700467014670246703467044670546706467074670846709467104671146712467134671446715467164671746718467194672046721467224672346724467254672646727467284672946730467314673246733467344673546736467374673846739467404674146742467434674446745467464674746748467494675046751467524675346754467554675646757467584675946760467614676246763467644676546766467674676846769467704677146772467734677446775467764677746778467794678046781467824678346784467854678646787467884678946790467914679246793467944679546796467974679846799468004680146802468034680446805468064680746808468094681046811468124681346814468154681646817468184681946820468214682246823468244682546826468274682846829468304683146832468334683446835468364683746838468394684046841468424684346844468454684646847468484684946850468514685246853468544685546856468574685846859468604686146862468634686446865468664686746868468694687046871468724687346874468754687646877468784687946880468814688246883468844688546886468874688846889468904689146892468934689446895468964689746898468994690046901469024690346904469054690646907469084690946910469114691246913469144691546916469174691846919469204692146922469234692446925469264692746928469294693046931469324693346934469354693646937469384693946940469414694246943469444694546946469474694846949469504695146952469534695446955469564695746958469594696046961469624696346964469654696646967469684696946970469714697246973469744697546976469774697846979469804698146982469834698446985469864698746988469894699046991469924699346994469954699646997469984699947000470014700247003470044700547006470074700847009470104701147012470134701447015470164701747018470194702047021470224702347024470254702647027470284702947030470314703247033470344703547036470374703847039470404704147042470434704447045470464704747048470494705047051470524705347054470554705647057470584705947060470614706247063470644706547066470674706847069470704707147072470734707447075470764707747078470794708047081470824708347084470854708647087470884708947090470914709247093470944709547096470974709847099471004710147102471034710447105471064710747108471094711047111471124711347114471154711647117471184711947120471214712247123471244712547126471274712847129471304713147132471334713447135471364713747138471394714047141471424714347144471454714647147471484714947150471514715247153471544715547156471574715847159471604716147162471634716447165471664716747168471694717047171471724717347174471754717647177471784717947180471814718247183471844718547186471874718847189471904719147192471934719447195471964719747198471994720047201472024720347204472054720647207472084720947210472114721247213472144721547216472174721847219472204722147222472234722447225472264722747228472294723047231472324723347234472354723647237472384723947240472414724247243472444724547246472474724847249472504725147252472534725447255472564725747258472594726047261472624726347264472654726647267472684726947270472714727247273472744727547276472774727847279472804728147282472834728447285472864728747288472894729047291472924729347294472954729647297472984729947300473014730247303473044730547306473074730847309473104731147312473134731447315473164731747318473194732047321473224732347324473254732647327473284732947330473314733247333473344733547336473374733847339473404734147342473434734447345473464734747348473494735047351473524735347354473554735647357473584735947360473614736247363473644736547366473674736847369473704737147372473734737447375473764737747378473794738047381473824738347384473854738647387473884738947390473914739247393473944739547396473974739847399474004740147402474034740447405474064740747408474094741047411474124741347414474154741647417474184741947420474214742247423474244742547426474274742847429474304743147432474334743447435474364743747438474394744047441474424744347444474454744647447474484744947450474514745247453474544745547456474574745847459474604746147462474634746447465474664746747468474694747047471474724747347474474754747647477474784747947480474814748247483474844748547486474874748847489474904749147492474934749447495474964749747498474994750047501475024750347504475054750647507475084750947510475114751247513475144751547516475174751847519475204752147522475234752447525475264752747528475294753047531475324753347534475354753647537475384753947540475414754247543475444754547546475474754847549475504755147552475534755447555475564755747558475594756047561475624756347564475654756647567475684756947570475714757247573475744757547576475774757847579475804758147582475834758447585475864758747588475894759047591475924759347594475954759647597475984759947600476014760247603476044760547606476074760847609476104761147612476134761447615476164761747618476194762047621476224762347624476254762647627476284762947630476314763247633476344763547636476374763847639476404764147642476434764447645476464764747648476494765047651476524765347654476554765647657476584765947660476614766247663476644766547666476674766847669476704767147672476734767447675476764767747678476794768047681476824768347684476854768647687476884768947690476914769247693476944769547696476974769847699477004770147702477034770447705477064770747708477094771047711477124771347714477154771647717477184771947720477214772247723477244772547726477274772847729477304773147732477334773447735477364773747738477394774047741477424774347744477454774647747477484774947750477514775247753477544775547756477574775847759477604776147762477634776447765477664776747768477694777047771477724777347774477754777647777477784777947780477814778247783477844778547786477874778847789477904779147792477934779447795477964779747798477994780047801478024780347804478054780647807478084780947810478114781247813478144781547816478174781847819478204782147822478234782447825478264782747828478294783047831478324783347834478354783647837478384783947840478414784247843478444784547846478474784847849478504785147852478534785447855478564785747858478594786047861478624786347864478654786647867478684786947870478714787247873478744787547876478774787847879478804788147882478834788447885478864788747888478894789047891478924789347894478954789647897478984789947900479014790247903479044790547906479074790847909479104791147912479134791447915479164791747918479194792047921479224792347924479254792647927479284792947930479314793247933479344793547936479374793847939479404794147942479434794447945479464794747948479494795047951479524795347954479554795647957479584795947960479614796247963479644796547966479674796847969479704797147972479734797447975479764797747978479794798047981479824798347984479854798647987479884798947990479914799247993479944799547996479974799847999480004800148002480034800448005480064800748008480094801048011480124801348014480154801648017480184801948020480214802248023480244802548026480274802848029480304803148032480334803448035480364803748038480394804048041480424804348044480454804648047480484804948050480514805248053480544805548056480574805848059480604806148062480634806448065480664806748068480694807048071480724807348074480754807648077480784807948080480814808248083480844808548086480874808848089480904809148092480934809448095480964809748098480994810048101481024810348104481054810648107481084810948110481114811248113481144811548116481174811848119481204812148122481234812448125481264812748128481294813048131481324813348134481354813648137481384813948140481414814248143481444814548146481474814848149481504815148152481534815448155481564815748158481594816048161481624816348164481654816648167481684816948170481714817248173481744817548176481774817848179481804818148182481834818448185481864818748188481894819048191481924819348194481954819648197481984819948200482014820248203482044820548206482074820848209482104821148212482134821448215482164821748218482194822048221482224822348224482254822648227482284822948230482314823248233482344823548236482374823848239482404824148242482434824448245482464824748248482494825048251482524825348254482554825648257482584825948260482614826248263482644826548266482674826848269482704827148272482734827448275482764827748278482794828048281482824828348284482854828648287482884828948290482914829248293482944829548296482974829848299483004830148302483034830448305483064830748308483094831048311483124831348314483154831648317483184831948320483214832248323483244832548326483274832848329483304833148332483334833448335483364833748338483394834048341483424834348344483454834648347483484834948350483514835248353483544835548356483574835848359483604836148362483634836448365483664836748368483694837048371483724837348374483754837648377483784837948380483814838248383483844838548386483874838848389483904839148392483934839448395483964839748398483994840048401484024840348404484054840648407484084840948410484114841248413484144841548416484174841848419484204842148422484234842448425484264842748428484294843048431484324843348434484354843648437484384843948440484414844248443484444844548446484474844848449484504845148452484534845448455484564845748458484594846048461484624846348464484654846648467484684846948470484714847248473484744847548476484774847848479484804848148482484834848448485484864848748488484894849048491484924849348494484954849648497484984849948500485014850248503485044850548506485074850848509485104851148512485134851448515485164851748518485194852048521485224852348524485254852648527485284852948530485314853248533485344853548536485374853848539485404854148542485434854448545485464854748548485494855048551485524855348554485554855648557485584855948560485614856248563485644856548566485674856848569485704857148572485734857448575485764857748578485794858048581485824858348584485854858648587485884858948590485914859248593485944859548596485974859848599486004860148602486034860448605486064860748608486094861048611486124861348614486154861648617486184861948620486214862248623486244862548626486274862848629486304863148632486334863448635486364863748638486394864048641486424864348644486454864648647486484864948650486514865248653486544865548656486574865848659486604866148662486634866448665486664866748668486694867048671486724867348674486754867648677486784867948680486814868248683486844868548686486874868848689486904869148692486934869448695486964869748698486994870048701487024870348704487054870648707487084870948710487114871248713487144871548716487174871848719487204872148722487234872448725487264872748728487294873048731487324873348734487354873648737487384873948740487414874248743487444874548746487474874848749487504875148752487534875448755487564875748758487594876048761487624876348764487654876648767487684876948770487714877248773487744877548776487774877848779487804878148782487834878448785487864878748788487894879048791487924879348794487954879648797487984879948800488014880248803488044880548806488074880848809488104881148812488134881448815488164881748818488194882048821488224882348824488254882648827488284882948830488314883248833488344883548836488374883848839488404884148842488434884448845488464884748848488494885048851488524885348854488554885648857488584885948860488614886248863488644886548866488674886848869488704887148872488734887448875488764887748878488794888048881488824888348884488854888648887488884888948890488914889248893488944889548896488974889848899489004890148902489034890448905489064890748908489094891048911489124891348914489154891648917489184891948920489214892248923489244892548926489274892848929489304893148932489334893448935489364893748938489394894048941489424894348944489454894648947489484894948950489514895248953489544895548956489574895848959489604896148962489634896448965489664896748968489694897048971489724897348974489754897648977489784897948980489814898248983489844898548986489874898848989489904899148992489934899448995489964899748998489994900049001490024900349004490054900649007490084900949010490114901249013490144901549016490174901849019490204902149022490234902449025490264902749028490294903049031490324903349034490354903649037490384903949040490414904249043490444904549046490474904849049490504905149052490534905449055490564905749058490594906049061490624906349064490654906649067490684906949070490714907249073490744907549076490774907849079490804908149082490834908449085490864908749088490894909049091490924909349094490954909649097490984909949100491014910249103491044910549106491074910849109491104911149112491134911449115491164911749118491194912049121491224912349124491254912649127491284912949130491314913249133491344913549136491374913849139491404914149142491434914449145491464914749148491494915049151491524915349154491554915649157491584915949160491614916249163491644916549166491674916849169491704917149172491734917449175491764917749178491794918049181491824918349184491854918649187491884918949190491914919249193491944919549196491974919849199492004920149202492034920449205492064920749208492094921049211492124921349214492154921649217492184921949220492214922249223492244922549226492274922849229492304923149232492334923449235492364923749238492394924049241492424924349244492454924649247492484924949250492514925249253492544925549256492574925849259492604926149262492634926449265492664926749268492694927049271492724927349274492754927649277492784927949280492814928249283492844928549286492874928849289492904929149292492934929449295492964929749298492994930049301493024930349304493054930649307493084930949310493114931249313493144931549316493174931849319493204932149322493234932449325493264932749328493294933049331493324933349334493354933649337493384933949340493414934249343493444934549346493474934849349493504935149352493534935449355493564935749358493594936049361493624936349364493654936649367493684936949370493714937249373493744937549376493774937849379493804938149382493834938449385493864938749388493894939049391493924939349394493954939649397493984939949400494014940249403494044940549406494074940849409494104941149412494134941449415494164941749418494194942049421494224942349424494254942649427494284942949430494314943249433494344943549436494374943849439494404944149442494434944449445494464944749448494494945049451494524945349454494554945649457494584945949460494614946249463494644946549466494674946849469494704947149472494734947449475494764947749478494794948049481494824948349484494854948649487494884948949490494914949249493494944949549496494974949849499495004950149502495034950449505495064950749508495094951049511495124951349514495154951649517495184951949520495214952249523495244952549526495274952849529495304953149532495334953449535495364953749538495394954049541495424954349544495454954649547495484954949550495514955249553495544955549556495574955849559495604956149562495634956449565495664956749568495694957049571495724957349574495754957649577495784957949580495814958249583495844958549586495874958849589495904959149592495934959449595495964959749598495994960049601496024960349604496054960649607496084960949610496114961249613496144961549616496174961849619496204962149622496234962449625496264962749628496294963049631496324963349634496354963649637496384963949640496414964249643496444964549646496474964849649496504965149652496534965449655496564965749658496594966049661496624966349664496654966649667496684966949670496714967249673496744967549676496774967849679496804968149682496834968449685496864968749688496894969049691496924969349694496954969649697496984969949700497014970249703497044970549706497074970849709497104971149712497134971449715497164971749718497194972049721497224972349724497254972649727497284972949730497314973249733497344973549736497374973849739497404974149742497434974449745497464974749748497494975049751497524975349754497554975649757497584975949760497614976249763497644976549766497674976849769497704977149772497734977449775497764977749778497794978049781497824978349784497854978649787497884978949790497914979249793497944979549796497974979849799498004980149802498034980449805498064980749808498094981049811498124981349814498154981649817498184981949820498214982249823498244982549826498274982849829498304983149832498334983449835498364983749838498394984049841498424984349844498454984649847498484984949850498514985249853498544985549856498574985849859498604986149862498634986449865498664986749868498694987049871498724987349874498754987649877498784987949880498814988249883498844988549886498874988849889498904989149892498934989449895498964989749898498994990049901499024990349904499054990649907499084990949910499114991249913499144991549916499174991849919499204992149922499234992449925499264992749928499294993049931499324993349934499354993649937499384993949940499414994249943499444994549946499474994849949499504995149952499534995449955499564995749958499594996049961499624996349964499654996649967499684996949970499714997249973499744997549976499774997849979499804998149982499834998449985499864998749988499894999049991499924999349994499954999649997499984999950000500015000250003500045000550006500075000850009500105001150012500135001450015500165001750018500195002050021500225002350024500255002650027500285002950030500315003250033500345003550036500375003850039500405004150042500435004450045500465004750048500495005050051500525005350054500555005650057500585005950060500615006250063500645006550066500675006850069500705007150072500735007450075500765007750078500795008050081500825008350084500855008650087500885008950090500915009250093500945009550096500975009850099501005010150102501035010450105501065010750108501095011050111501125011350114501155011650117501185011950120501215012250123501245012550126501275012850129501305013150132501335013450135501365013750138501395014050141501425014350144501455014650147501485014950150501515015250153501545015550156501575015850159501605016150162501635016450165501665016750168501695017050171501725017350174501755017650177501785017950180501815018250183501845018550186501875018850189501905019150192501935019450195501965019750198501995020050201502025020350204502055020650207502085020950210502115021250213502145021550216502175021850219502205022150222502235022450225502265022750228502295023050231502325023350234502355023650237502385023950240502415024250243502445024550246502475024850249502505025150252502535025450255502565025750258502595026050261502625026350264502655026650267502685026950270502715027250273502745027550276502775027850279502805028150282502835028450285502865028750288502895029050291502925029350294502955029650297502985029950300503015030250303503045030550306503075030850309503105031150312503135031450315503165031750318503195032050321503225032350324503255032650327503285032950330503315033250333503345033550336503375033850339503405034150342503435034450345503465034750348503495035050351503525035350354503555035650357503585035950360503615036250363503645036550366503675036850369503705037150372503735037450375503765037750378503795038050381503825038350384503855038650387503885038950390503915039250393503945039550396503975039850399504005040150402504035040450405504065040750408504095041050411504125041350414504155041650417504185041950420504215042250423504245042550426504275042850429504305043150432504335043450435504365043750438504395044050441504425044350444504455044650447504485044950450504515045250453504545045550456504575045850459504605046150462504635046450465504665046750468504695047050471504725047350474504755047650477504785047950480504815048250483504845048550486504875048850489504905049150492504935049450495504965049750498504995050050501505025050350504505055050650507505085050950510505115051250513505145051550516505175051850519505205052150522505235052450525505265052750528505295053050531505325053350534505355053650537505385053950540505415054250543505445054550546505475054850549505505055150552505535055450555505565055750558505595056050561505625056350564505655056650567505685056950570505715057250573505745057550576505775057850579505805058150582505835058450585505865058750588505895059050591505925059350594505955059650597505985059950600506015060250603506045060550606506075060850609506105061150612506135061450615506165061750618506195062050621506225062350624506255062650627506285062950630506315063250633506345063550636506375063850639506405064150642506435064450645506465064750648506495065050651506525065350654506555065650657506585065950660506615066250663506645066550666506675066850669506705067150672506735067450675506765067750678506795068050681506825068350684506855068650687506885068950690506915069250693506945069550696506975069850699507005070150702507035070450705507065070750708507095071050711507125071350714507155071650717507185071950720507215072250723507245072550726507275072850729507305073150732507335073450735507365073750738507395074050741507425074350744507455074650747507485074950750507515075250753507545075550756507575075850759507605076150762507635076450765507665076750768507695077050771507725077350774507755077650777507785077950780507815078250783507845078550786507875078850789507905079150792507935079450795507965079750798507995080050801508025080350804508055080650807508085080950810508115081250813508145081550816508175081850819508205082150822508235082450825508265082750828508295083050831508325083350834508355083650837508385083950840508415084250843508445084550846508475084850849508505085150852508535085450855508565085750858508595086050861508625086350864508655086650867508685086950870508715087250873508745087550876508775087850879508805088150882508835088450885508865088750888508895089050891508925089350894508955089650897508985089950900509015090250903509045090550906509075090850909509105091150912509135091450915509165091750918509195092050921509225092350924509255092650927509285092950930509315093250933509345093550936509375093850939509405094150942509435094450945509465094750948509495095050951509525095350954509555095650957509585095950960509615096250963509645096550966509675096850969509705097150972509735097450975509765097750978509795098050981509825098350984509855098650987509885098950990509915099250993509945099550996509975099850999510005100151002510035100451005510065100751008510095101051011510125101351014510155101651017510185101951020510215102251023510245102551026510275102851029510305103151032510335103451035510365103751038510395104051041510425104351044510455104651047510485104951050510515105251053510545105551056510575105851059510605106151062510635106451065510665106751068510695107051071510725107351074510755107651077510785107951080510815108251083510845108551086510875108851089510905109151092510935109451095510965109751098510995110051101511025110351104511055110651107511085110951110511115111251113511145111551116511175111851119511205112151122511235112451125511265112751128511295113051131511325113351134511355113651137511385113951140511415114251143511445114551146511475114851149511505115151152511535115451155511565115751158511595116051161511625116351164511655116651167511685116951170511715117251173511745117551176511775117851179511805118151182511835118451185511865118751188511895119051191511925119351194511955119651197511985119951200512015120251203512045120551206512075120851209512105121151212512135121451215512165121751218512195122051221512225122351224512255122651227512285122951230512315123251233512345123551236512375123851239512405124151242512435124451245512465124751248512495125051251512525125351254512555125651257512585125951260512615126251263512645126551266512675126851269512705127151272512735127451275512765127751278512795128051281512825128351284512855128651287512885128951290512915129251293512945129551296512975129851299513005130151302513035130451305513065130751308513095131051311513125131351314513155131651317513185131951320513215132251323513245132551326513275132851329513305133151332513335133451335513365133751338513395134051341513425134351344513455134651347513485134951350513515135251353513545135551356513575135851359513605136151362513635136451365513665136751368513695137051371513725137351374513755137651377513785137951380513815138251383513845138551386513875138851389513905139151392513935139451395513965139751398513995140051401514025140351404514055140651407514085140951410514115141251413514145141551416514175141851419514205142151422514235142451425514265142751428514295143051431514325143351434514355143651437514385143951440514415144251443514445144551446514475144851449514505145151452514535145451455514565145751458514595146051461514625146351464514655146651467514685146951470514715147251473514745147551476514775147851479514805148151482514835148451485514865148751488514895149051491514925149351494514955149651497514985149951500515015150251503515045150551506515075150851509515105151151512515135151451515515165151751518515195152051521515225152351524515255152651527515285152951530515315153251533515345153551536515375153851539515405154151542515435154451545515465154751548515495155051551515525155351554515555155651557515585155951560515615156251563515645156551566515675156851569515705157151572515735157451575515765157751578515795158051581515825158351584515855158651587515885158951590515915159251593515945159551596515975159851599516005160151602516035160451605516065160751608516095161051611516125161351614516155161651617516185161951620516215162251623516245162551626516275162851629516305163151632516335163451635516365163751638516395164051641516425164351644516455164651647516485164951650516515165251653516545165551656516575165851659516605166151662516635166451665516665166751668516695167051671516725167351674516755167651677516785167951680516815168251683516845168551686516875168851689516905169151692516935169451695516965169751698516995170051701517025170351704517055170651707517085170951710517115171251713517145171551716517175171851719517205172151722517235172451725517265172751728517295173051731517325173351734517355173651737517385173951740517415174251743517445174551746517475174851749517505175151752517535175451755517565175751758517595176051761517625176351764517655176651767517685176951770517715177251773517745177551776517775177851779517805178151782517835178451785517865178751788517895179051791517925179351794517955179651797517985179951800518015180251803518045180551806518075180851809518105181151812518135181451815518165181751818518195182051821518225182351824518255182651827518285182951830518315183251833518345183551836518375183851839518405184151842518435184451845518465184751848518495185051851518525185351854518555185651857518585185951860518615186251863518645186551866518675186851869518705187151872518735187451875518765187751878518795188051881518825188351884518855188651887518885188951890518915189251893518945189551896518975189851899519005190151902519035190451905519065190751908519095191051911519125191351914519155191651917519185191951920519215192251923519245192551926519275192851929519305193151932519335193451935519365193751938519395194051941519425194351944519455194651947519485194951950519515195251953519545195551956519575195851959519605196151962519635196451965519665196751968519695197051971519725197351974519755197651977519785197951980519815198251983519845198551986519875198851989519905199151992519935199451995519965199751998519995200052001520025200352004520055200652007520085200952010520115201252013520145201552016520175201852019520205202152022520235202452025520265202752028520295203052031520325203352034520355203652037520385203952040520415204252043520445204552046520475204852049520505205152052520535205452055520565205752058520595206052061520625206352064520655206652067520685206952070520715207252073520745207552076520775207852079520805208152082520835208452085520865208752088520895209052091520925209352094520955209652097520985209952100521015210252103521045210552106521075210852109521105211152112521135211452115521165211752118521195212052121521225212352124521255212652127521285212952130521315213252133521345213552136521375213852139521405214152142521435214452145521465214752148521495215052151521525215352154521555215652157521585215952160521615216252163521645216552166521675216852169521705217152172521735217452175521765217752178521795218052181521825218352184521855218652187521885218952190521915219252193521945219552196521975219852199522005220152202522035220452205522065220752208522095221052211522125221352214522155221652217522185221952220522215222252223522245222552226522275222852229522305223152232522335223452235522365223752238522395224052241522425224352244522455224652247522485224952250522515225252253522545225552256522575225852259522605226152262522635226452265522665226752268522695227052271522725227352274522755227652277522785227952280522815228252283522845228552286522875228852289522905229152292522935229452295522965229752298522995230052301523025230352304523055230652307523085230952310523115231252313523145231552316523175231852319523205232152322523235232452325523265232752328523295233052331523325233352334523355233652337523385233952340523415234252343523445234552346523475234852349523505235152352523535235452355523565235752358523595236052361523625236352364523655236652367523685236952370523715237252373523745237552376523775237852379523805238152382523835238452385523865238752388523895239052391523925239352394523955239652397523985239952400524015240252403524045240552406524075240852409524105241152412524135241452415524165241752418524195242052421524225242352424524255242652427524285242952430524315243252433524345243552436524375243852439524405244152442524435244452445524465244752448524495245052451524525245352454524555245652457524585245952460524615246252463524645246552466524675246852469524705247152472524735247452475524765247752478524795248052481524825248352484524855248652487524885248952490524915249252493524945249552496524975249852499525005250152502525035250452505525065250752508525095251052511525125251352514525155251652517525185251952520525215252252523525245252552526525275252852529525305253152532525335253452535525365253752538525395254052541525425254352544525455254652547525485254952550525515255252553525545255552556525575255852559525605256152562525635256452565525665256752568525695257052571525725257352574525755257652577525785257952580525815258252583525845258552586525875258852589525905259152592525935259452595525965259752598525995260052601526025260352604526055260652607526085260952610526115261252613526145261552616526175261852619526205262152622526235262452625526265262752628526295263052631526325263352634526355263652637526385263952640526415264252643526445264552646526475264852649526505265152652526535265452655526565265752658526595266052661526625266352664526655266652667526685266952670526715267252673526745267552676526775267852679526805268152682526835268452685526865268752688526895269052691526925269352694526955269652697526985269952700527015270252703527045270552706527075270852709527105271152712527135271452715527165271752718527195272052721527225272352724527255272652727527285272952730527315273252733527345273552736527375273852739527405274152742527435274452745527465274752748527495275052751527525275352754527555275652757527585275952760527615276252763527645276552766527675276852769527705277152772527735277452775527765277752778527795278052781527825278352784527855278652787527885278952790527915279252793527945279552796527975279852799528005280152802528035280452805528065280752808528095281052811528125281352814528155281652817528185281952820528215282252823528245282552826528275282852829528305283152832528335283452835528365283752838528395284052841528425284352844528455284652847528485284952850528515285252853528545285552856528575285852859528605286152862528635286452865528665286752868528695287052871528725287352874528755287652877528785287952880528815288252883528845288552886528875288852889528905289152892528935289452895528965289752898528995290052901529025290352904529055290652907529085290952910529115291252913529145291552916529175291852919529205292152922529235292452925529265292752928529295293052931529325293352934529355293652937529385293952940529415294252943529445294552946529475294852949529505295152952529535295452955529565295752958529595296052961529625296352964529655296652967529685296952970529715297252973529745297552976529775297852979529805298152982529835298452985529865298752988529895299052991529925299352994529955299652997529985299953000530015300253003530045300553006530075300853009530105301153012530135301453015530165301753018530195302053021530225302353024530255302653027530285302953030530315303253033530345303553036530375303853039530405304153042530435304453045530465304753048530495305053051530525305353054530555305653057530585305953060530615306253063530645306553066530675306853069530705307153072530735307453075530765307753078530795308053081530825308353084530855308653087530885308953090530915309253093530945309553096530975309853099531005310153102531035310453105531065310753108531095311053111531125311353114531155311653117531185311953120531215312253123531245312553126531275312853129531305313153132531335313453135531365313753138531395314053141531425314353144531455314653147531485314953150531515315253153531545315553156531575315853159531605316153162531635316453165531665316753168531695317053171531725317353174531755317653177531785317953180531815318253183531845318553186531875318853189531905319153192531935319453195531965319753198531995320053201532025320353204532055320653207532085320953210532115321253213532145321553216532175321853219532205322153222532235322453225532265322753228532295323053231532325323353234532355323653237532385323953240532415324253243532445324553246532475324853249532505325153252532535325453255532565325753258532595326053261532625326353264532655326653267532685326953270532715327253273532745327553276532775327853279532805328153282532835328453285532865328753288532895329053291532925329353294532955329653297532985329953300533015330253303533045330553306533075330853309533105331153312533135331453315533165331753318533195332053321533225332353324533255332653327533285332953330533315333253333533345333553336533375333853339533405334153342533435334453345533465334753348533495335053351533525335353354533555335653357533585335953360533615336253363533645336553366533675336853369533705337153372533735337453375533765337753378533795338053381533825338353384533855338653387533885338953390533915339253393533945339553396533975339853399534005340153402534035340453405534065340753408534095341053411534125341353414534155341653417534185341953420534215342253423534245342553426534275342853429534305343153432534335343453435534365343753438534395344053441534425344353444534455344653447534485344953450534515345253453534545345553456534575345853459534605346153462534635346453465534665346753468534695347053471534725347353474534755347653477534785347953480534815348253483534845348553486534875348853489534905349153492534935349453495534965349753498534995350053501535025350353504535055350653507535085350953510535115351253513535145351553516535175351853519535205352153522535235352453525535265352753528535295353053531535325353353534535355353653537535385353953540535415354253543535445354553546535475354853549535505355153552535535355453555535565355753558535595356053561535625356353564535655356653567535685356953570535715357253573535745357553576535775357853579535805358153582535835358453585535865358753588535895359053591535925359353594535955359653597535985359953600536015360253603536045360553606536075360853609536105361153612536135361453615536165361753618536195362053621536225362353624536255362653627536285362953630536315363253633536345363553636536375363853639536405364153642536435364453645536465364753648536495365053651536525365353654536555365653657536585365953660536615366253663536645366553666536675366853669536705367153672536735367453675536765367753678536795368053681536825368353684536855368653687536885368953690536915369253693536945369553696536975369853699537005370153702537035370453705537065370753708537095371053711537125371353714537155371653717537185371953720537215372253723537245372553726537275372853729537305373153732537335373453735537365373753738537395374053741537425374353744537455374653747537485374953750537515375253753537545375553756537575375853759537605376153762537635376453765537665376753768537695377053771537725377353774537755377653777537785377953780537815378253783537845378553786537875378853789537905379153792537935379453795537965379753798537995380053801538025380353804538055380653807538085380953810538115381253813538145381553816538175381853819538205382153822538235382453825538265382753828538295383053831538325383353834538355383653837538385383953840538415384253843538445384553846538475384853849538505385153852538535385453855538565385753858538595386053861538625386353864538655386653867538685386953870538715387253873538745387553876538775387853879538805388153882538835388453885538865388753888538895389053891538925389353894538955389653897538985389953900539015390253903539045390553906539075390853909539105391153912539135391453915539165391753918539195392053921539225392353924539255392653927539285392953930539315393253933539345393553936539375393853939539405394153942539435394453945539465394753948539495395053951539525395353954539555395653957539585395953960539615396253963539645396553966539675396853969539705397153972539735397453975539765397753978539795398053981539825398353984539855398653987539885398953990539915399253993539945399553996539975399853999540005400154002540035400454005540065400754008540095401054011540125401354014540155401654017540185401954020540215402254023540245402554026540275402854029540305403154032540335403454035540365403754038540395404054041540425404354044540455404654047540485404954050540515405254053540545405554056540575405854059540605406154062540635406454065540665406754068540695407054071540725407354074540755407654077540785407954080540815408254083540845408554086540875408854089540905409154092540935409454095540965409754098540995410054101541025410354104541055410654107541085410954110541115411254113541145411554116541175411854119541205412154122541235412454125541265412754128541295413054131541325413354134541355413654137541385413954140541415414254143541445414554146541475414854149541505415154152541535415454155541565415754158541595416054161541625416354164541655416654167541685416954170541715417254173541745417554176541775417854179541805418154182541835418454185541865418754188541895419054191541925419354194541955419654197541985419954200542015420254203542045420554206542075420854209542105421154212542135421454215542165421754218542195422054221542225422354224542255422654227542285422954230542315423254233542345423554236542375423854239542405424154242542435424454245542465424754248542495425054251542525425354254542555425654257542585425954260542615426254263542645426554266542675426854269542705427154272542735427454275542765427754278542795428054281542825428354284542855428654287542885428954290542915429254293542945429554296542975429854299543005430154302543035430454305543065430754308543095431054311543125431354314543155431654317543185431954320543215432254323543245432554326543275432854329543305433154332543335433454335543365433754338543395434054341543425434354344543455434654347543485434954350543515435254353543545435554356543575435854359543605436154362543635436454365543665436754368543695437054371543725437354374543755437654377543785437954380543815438254383543845438554386543875438854389543905439154392543935439454395543965439754398543995440054401544025440354404544055440654407544085440954410544115441254413544145441554416544175441854419544205442154422544235442454425544265442754428544295443054431544325443354434544355443654437544385443954440544415444254443544445444554446544475444854449544505445154452544535445454455544565445754458544595446054461544625446354464544655446654467544685446954470544715447254473544745447554476544775447854479544805448154482544835448454485544865448754488544895449054491544925449354494544955449654497544985449954500545015450254503545045450554506545075450854509545105451154512545135451454515545165451754518545195452054521545225452354524545255452654527545285452954530545315453254533545345453554536545375453854539545405454154542545435454454545545465454754548545495455054551545525455354554545555455654557545585455954560545615456254563545645456554566545675456854569545705457154572545735457454575545765457754578545795458054581545825458354584545855458654587545885458954590545915459254593545945459554596545975459854599546005460154602546035460454605546065460754608546095461054611546125461354614546155461654617546185461954620546215462254623546245462554626546275462854629546305463154632546335463454635546365463754638546395464054641546425464354644546455464654647546485464954650546515465254653546545465554656546575465854659546605466154662546635466454665546665466754668546695467054671546725467354674546755467654677546785467954680546815468254683546845468554686546875468854689546905469154692546935469454695546965469754698546995470054701547025470354704547055470654707547085470954710547115471254713547145471554716547175471854719547205472154722547235472454725547265472754728547295473054731547325473354734547355473654737547385473954740547415474254743547445474554746547475474854749547505475154752547535475454755547565475754758547595476054761547625476354764547655476654767547685476954770547715477254773547745477554776547775477854779547805478154782547835478454785547865478754788547895479054791547925479354794547955479654797547985479954800548015480254803548045480554806548075480854809548105481154812548135481454815548165481754818548195482054821548225482354824548255482654827548285482954830548315483254833548345483554836548375483854839548405484154842548435484454845548465484754848548495485054851548525485354854548555485654857548585485954860548615486254863548645486554866548675486854869548705487154872548735487454875548765487754878548795488054881548825488354884548855488654887548885488954890548915489254893548945489554896548975489854899549005490154902549035490454905549065490754908549095491054911549125491354914549155491654917549185491954920549215492254923549245492554926549275492854929549305493154932549335493454935549365493754938549395494054941549425494354944549455494654947549485494954950549515495254953549545495554956549575495854959549605496154962549635496454965549665496754968549695497054971549725497354974549755497654977549785497954980549815498254983549845498554986549875498854989549905499154992549935499454995549965499754998549995500055001550025500355004550055500655007550085500955010550115501255013550145501555016550175501855019550205502155022550235502455025550265502755028550295503055031550325503355034550355503655037550385503955040550415504255043550445504555046550475504855049550505505155052550535505455055550565505755058550595506055061550625506355064550655506655067550685506955070550715507255073550745507555076550775507855079550805508155082550835508455085550865508755088550895509055091550925509355094550955509655097550985509955100551015510255103551045510555106551075510855109551105511155112551135511455115551165511755118551195512055121551225512355124551255512655127551285512955130551315513255133551345513555136551375513855139551405514155142551435514455145551465514755148551495515055151551525515355154551555515655157551585515955160551615516255163551645516555166551675516855169551705517155172551735517455175551765517755178551795518055181551825518355184551855518655187551885518955190551915519255193551945519555196551975519855199552005520155202552035520455205552065520755208552095521055211552125521355214552155521655217552185521955220552215522255223552245522555226552275522855229552305523155232552335523455235552365523755238552395524055241552425524355244552455524655247552485524955250552515525255253552545525555256552575525855259552605526155262552635526455265552665526755268552695527055271552725527355274552755527655277552785527955280552815528255283552845528555286552875528855289552905529155292552935529455295552965529755298552995530055301553025530355304553055530655307553085530955310553115531255313553145531555316553175531855319553205532155322553235532455325553265532755328553295533055331553325533355334553355533655337553385533955340553415534255343553445534555346553475534855349553505535155352553535535455355553565535755358553595536055361553625536355364553655536655367553685536955370553715537255373553745537555376553775537855379553805538155382553835538455385553865538755388553895539055391553925539355394553955539655397553985539955400554015540255403554045540555406554075540855409554105541155412554135541455415554165541755418554195542055421554225542355424554255542655427554285542955430554315543255433554345543555436554375543855439554405544155442554435544455445554465544755448554495545055451554525545355454554555545655457554585545955460554615546255463554645546555466554675546855469554705547155472554735547455475554765547755478554795548055481554825548355484554855548655487554885548955490554915549255493554945549555496554975549855499555005550155502555035550455505555065550755508555095551055511555125551355514555155551655517555185551955520555215552255523555245552555526555275552855529555305553155532555335553455535555365553755538555395554055541555425554355544555455554655547555485554955550555515555255553555545555555556555575555855559555605556155562555635556455565555665556755568555695557055571555725557355574555755557655577555785557955580555815558255583555845558555586555875558855589555905559155592555935559455595555965559755598555995560055601556025560355604556055560655607556085560955610556115561255613556145561555616556175561855619556205562155622556235562455625556265562755628556295563055631556325563355634556355563655637556385563955640556415564255643556445564555646556475564855649556505565155652556535565455655556565565755658556595566055661556625566355664556655566655667556685566955670556715567255673556745567555676556775567855679556805568155682556835568455685556865568755688556895569055691556925569355694556955569655697556985569955700557015570255703557045570555706557075570855709557105571155712557135571455715557165571755718557195572055721557225572355724557255572655727557285572955730557315573255733557345573555736557375573855739557405574155742557435574455745557465574755748557495575055751557525575355754557555575655757557585575955760557615576255763557645576555766557675576855769557705577155772557735577455775557765577755778557795578055781557825578355784557855578655787557885578955790557915579255793557945579555796557975579855799558005580155802558035580455805558065580755808558095581055811558125581355814558155581655817558185581955820558215582255823558245582555826558275582855829558305583155832558335583455835558365583755838558395584055841558425584355844558455584655847558485584955850558515585255853558545585555856558575585855859558605586155862558635586455865558665586755868558695587055871558725587355874558755587655877558785587955880558815588255883558845588555886558875588855889558905589155892558935589455895558965589755898558995590055901559025590355904559055590655907559085590955910559115591255913559145591555916559175591855919559205592155922559235592455925559265592755928559295593055931559325593355934559355593655937559385593955940559415594255943559445594555946559475594855949559505595155952559535595455955559565595755958559595596055961559625596355964559655596655967559685596955970559715597255973559745597555976559775597855979559805598155982559835598455985559865598755988559895599055991559925599355994559955599655997559985599956000560015600256003560045600556006560075600856009560105601156012560135601456015560165601756018560195602056021560225602356024560255602656027560285602956030560315603256033560345603556036560375603856039560405604156042560435604456045560465604756048560495605056051560525605356054560555605656057560585605956060560615606256063560645606556066560675606856069560705607156072560735607456075560765607756078560795608056081560825608356084560855608656087560885608956090560915609256093560945609556096560975609856099561005610156102561035610456105561065610756108561095611056111561125611356114561155611656117561185611956120561215612256123561245612556126561275612856129561305613156132561335613456135561365613756138561395614056141561425614356144561455614656147561485614956150561515615256153561545615556156561575615856159561605616156162561635616456165561665616756168561695617056171561725617356174561755617656177561785617956180561815618256183561845618556186561875618856189561905619156192561935619456195561965619756198561995620056201562025620356204562055620656207562085620956210562115621256213562145621556216562175621856219562205622156222562235622456225562265622756228562295623056231562325623356234562355623656237562385623956240562415624256243562445624556246562475624856249562505625156252562535625456255562565625756258562595626056261562625626356264562655626656267562685626956270562715627256273562745627556276562775627856279562805628156282562835628456285562865628756288562895629056291562925629356294562955629656297562985629956300563015630256303563045630556306563075630856309563105631156312563135631456315563165631756318563195632056321563225632356324563255632656327563285632956330563315633256333563345633556336563375633856339563405634156342563435634456345563465634756348563495635056351563525635356354563555635656357563585635956360563615636256363563645636556366563675636856369563705637156372563735637456375563765637756378563795638056381563825638356384563855638656387563885638956390563915639256393563945639556396563975639856399564005640156402564035640456405564065640756408564095641056411564125641356414564155641656417564185641956420564215642256423564245642556426564275642856429564305643156432564335643456435564365643756438564395644056441564425644356444564455644656447564485644956450564515645256453564545645556456564575645856459564605646156462564635646456465564665646756468564695647056471564725647356474564755647656477564785647956480564815648256483564845648556486564875648856489564905649156492564935649456495564965649756498564995650056501565025650356504565055650656507565085650956510565115651256513565145651556516565175651856519565205652156522565235652456525565265652756528565295653056531565325653356534565355653656537565385653956540565415654256543565445654556546565475654856549565505655156552565535655456555565565655756558565595656056561565625656356564565655656656567565685656956570565715657256573565745657556576565775657856579565805658156582565835658456585565865658756588565895659056591565925659356594565955659656597565985659956600566015660256603566045660556606566075660856609566105661156612566135661456615566165661756618566195662056621566225662356624566255662656627566285662956630566315663256633566345663556636566375663856639566405664156642566435664456645566465664756648566495665056651566525665356654566555665656657566585665956660566615666256663566645666556666566675666856669566705667156672566735667456675566765667756678566795668056681566825668356684566855668656687566885668956690566915669256693566945669556696566975669856699567005670156702567035670456705567065670756708567095671056711567125671356714567155671656717567185671956720567215672256723567245672556726567275672856729567305673156732567335673456735567365673756738567395674056741567425674356744567455674656747567485674956750567515675256753567545675556756567575675856759567605676156762567635676456765567665676756768567695677056771567725677356774567755677656777567785677956780567815678256783567845678556786567875678856789567905679156792567935679456795567965679756798567995680056801568025680356804568055680656807568085680956810568115681256813568145681556816568175681856819568205682156822568235682456825568265682756828568295683056831568325683356834568355683656837568385683956840568415684256843568445684556846568475684856849568505685156852568535685456855568565685756858568595686056861568625686356864568655686656867568685686956870568715687256873568745687556876568775687856879568805688156882568835688456885568865688756888568895689056891568925689356894568955689656897568985689956900569015690256903569045690556906569075690856909569105691156912569135691456915569165691756918569195692056921569225692356924569255692656927569285692956930569315693256933569345693556936569375693856939569405694156942569435694456945569465694756948569495695056951569525695356954569555695656957569585695956960569615696256963569645696556966569675696856969569705697156972569735697456975569765697756978569795698056981569825698356984569855698656987569885698956990569915699256993569945699556996569975699856999570005700157002570035700457005570065700757008570095701057011570125701357014570155701657017570185701957020570215702257023570245702557026570275702857029570305703157032570335703457035570365703757038570395704057041570425704357044570455704657047570485704957050570515705257053570545705557056570575705857059570605706157062570635706457065570665706757068570695707057071570725707357074570755707657077570785707957080570815708257083570845708557086570875708857089570905709157092570935709457095570965709757098570995710057101571025710357104571055710657107571085710957110571115711257113571145711557116571175711857119571205712157122571235712457125571265712757128571295713057131571325713357134571355713657137571385713957140571415714257143571445714557146571475714857149571505715157152571535715457155571565715757158571595716057161571625716357164571655716657167571685716957170571715717257173571745717557176571775717857179571805718157182571835718457185571865718757188571895719057191571925719357194571955719657197571985719957200572015720257203572045720557206572075720857209572105721157212572135721457215572165721757218572195722057221572225722357224572255722657227572285722957230572315723257233572345723557236572375723857239572405724157242572435724457245572465724757248572495725057251572525725357254572555725657257572585725957260572615726257263572645726557266572675726857269572705727157272572735727457275572765727757278572795728057281572825728357284572855728657287572885728957290572915729257293572945729557296572975729857299573005730157302573035730457305573065730757308573095731057311573125731357314573155731657317573185731957320573215732257323573245732557326573275732857329573305733157332573335733457335573365733757338573395734057341573425734357344573455734657347573485734957350573515735257353573545735557356573575735857359573605736157362573635736457365573665736757368573695737057371573725737357374573755737657377573785737957380573815738257383573845738557386573875738857389573905739157392573935739457395573965739757398573995740057401574025740357404574055740657407574085740957410574115741257413574145741557416574175741857419574205742157422574235742457425574265742757428574295743057431574325743357434574355743657437574385743957440574415744257443574445744557446574475744857449574505745157452574535745457455574565745757458574595746057461574625746357464574655746657467574685746957470574715747257473574745747557476574775747857479574805748157482574835748457485574865748757488574895749057491574925749357494574955749657497574985749957500575015750257503575045750557506575075750857509575105751157512575135751457515575165751757518575195752057521575225752357524575255752657527575285752957530575315753257533575345753557536575375753857539575405754157542575435754457545575465754757548575495755057551575525755357554575555755657557575585755957560575615756257563575645756557566575675756857569575705757157572575735757457575575765757757578575795758057581575825758357584575855758657587575885758957590575915759257593575945759557596575975759857599576005760157602576035760457605576065760757608576095761057611576125761357614576155761657617576185761957620576215762257623576245762557626576275762857629576305763157632576335763457635576365763757638576395764057641576425764357644576455764657647576485764957650576515765257653576545765557656576575765857659576605766157662576635766457665576665766757668576695767057671576725767357674576755767657677576785767957680576815768257683576845768557686576875768857689576905769157692576935769457695576965769757698576995770057701577025770357704577055770657707577085770957710577115771257713577145771557716577175771857719577205772157722577235772457725577265772757728577295773057731577325773357734577355773657737577385773957740577415774257743577445774557746577475774857749577505775157752577535775457755577565775757758577595776057761577625776357764577655776657767577685776957770577715777257773577745777557776577775777857779577805778157782577835778457785577865778757788577895779057791577925779357794577955779657797577985779957800578015780257803578045780557806578075780857809578105781157812578135781457815578165781757818578195782057821578225782357824578255782657827578285782957830578315783257833578345783557836578375783857839578405784157842578435784457845578465784757848578495785057851578525785357854578555785657857578585785957860578615786257863578645786557866578675786857869578705787157872578735787457875578765787757878578795788057881578825788357884578855788657887578885788957890578915789257893578945789557896578975789857899579005790157902579035790457905579065790757908579095791057911579125791357914579155791657917579185791957920579215792257923579245792557926579275792857929579305793157932579335793457935579365793757938579395794057941579425794357944579455794657947579485794957950579515795257953579545795557956579575795857959579605796157962579635796457965579665796757968579695797057971579725797357974579755797657977579785797957980579815798257983579845798557986579875798857989579905799157992579935799457995579965799757998579995800058001580025800358004580055800658007580085800958010580115801258013580145801558016580175801858019580205802158022580235802458025580265802758028580295803058031580325803358034580355803658037580385803958040580415804258043580445804558046580475804858049580505805158052580535805458055580565805758058580595806058061580625806358064580655806658067580685806958070580715807258073580745807558076580775807858079580805808158082580835808458085580865808758088580895809058091580925809358094580955809658097580985809958100581015810258103581045810558106581075810858109581105811158112581135811458115581165811758118581195812058121581225812358124581255812658127581285812958130581315813258133581345813558136581375813858139581405814158142581435814458145581465814758148581495815058151581525815358154581555815658157581585815958160581615816258163581645816558166581675816858169581705817158172581735817458175581765817758178581795818058181581825818358184581855818658187581885818958190581915819258193581945819558196581975819858199582005820158202582035820458205582065820758208582095821058211582125821358214582155821658217582185821958220582215822258223582245822558226582275822858229582305823158232582335823458235582365823758238582395824058241582425824358244582455824658247582485824958250582515825258253582545825558256582575825858259582605826158262582635826458265582665826758268582695827058271582725827358274582755827658277582785827958280582815828258283582845828558286582875828858289582905829158292582935829458295582965829758298582995830058301583025830358304583055830658307583085830958310583115831258313583145831558316583175831858319583205832158322583235832458325583265832758328583295833058331583325833358334583355833658337583385833958340583415834258343583445834558346583475834858349583505835158352583535835458355583565835758358583595836058361583625836358364583655836658367583685836958370583715837258373583745837558376583775837858379583805838158382583835838458385583865838758388583895839058391583925839358394583955839658397583985839958400584015840258403584045840558406584075840858409584105841158412584135841458415584165841758418584195842058421584225842358424584255842658427584285842958430584315843258433584345843558436584375843858439584405844158442584435844458445584465844758448584495845058451584525845358454584555845658457584585845958460584615846258463584645846558466584675846858469584705847158472584735847458475584765847758478584795848058481584825848358484584855848658487584885848958490584915849258493584945849558496584975849858499585005850158502585035850458505585065850758508585095851058511585125851358514585155851658517585185851958520585215852258523585245852558526585275852858529585305853158532585335853458535585365853758538585395854058541585425854358544585455854658547585485854958550585515855258553585545855558556585575855858559585605856158562585635856458565585665856758568585695857058571585725857358574585755857658577585785857958580585815858258583585845858558586585875858858589585905859158592585935859458595585965859758598585995860058601586025860358604586055860658607586085860958610586115861258613586145861558616586175861858619586205862158622586235862458625586265862758628586295863058631586325863358634586355863658637586385863958640586415864258643586445864558646586475864858649586505865158652586535865458655586565865758658586595866058661586625866358664586655866658667586685866958670586715867258673586745867558676586775867858679586805868158682586835868458685586865868758688586895869058691586925869358694586955869658697586985869958700587015870258703587045870558706587075870858709587105871158712587135871458715587165871758718587195872058721587225872358724587255872658727587285872958730587315873258733587345873558736587375873858739587405874158742587435874458745587465874758748587495875058751587525875358754587555875658757587585875958760587615876258763587645876558766587675876858769587705877158772587735877458775587765877758778587795878058781587825878358784587855878658787587885878958790587915879258793587945879558796587975879858799588005880158802588035880458805588065880758808588095881058811588125881358814588155881658817588185881958820588215882258823588245882558826588275882858829588305883158832588335883458835588365883758838588395884058841588425884358844588455884658847588485884958850588515885258853588545885558856588575885858859588605886158862588635886458865588665886758868588695887058871588725887358874588755887658877588785887958880588815888258883588845888558886588875888858889588905889158892588935889458895588965889758898588995890058901589025890358904589055890658907589085890958910589115891258913589145891558916589175891858919589205892158922589235892458925589265892758928589295893058931589325893358934589355893658937589385893958940589415894258943589445894558946589475894858949589505895158952589535895458955589565895758958589595896058961589625896358964589655896658967589685896958970589715897258973589745897558976589775897858979589805898158982589835898458985589865898758988589895899058991589925899358994589955899658997589985899959000590015900259003590045900559006590075900859009590105901159012590135901459015590165901759018590195902059021590225902359024590255902659027590285902959030590315903259033590345903559036590375903859039590405904159042590435904459045590465904759048590495905059051590525905359054590555905659057590585905959060590615906259063590645906559066590675906859069590705907159072590735907459075590765907759078590795908059081590825908359084590855908659087590885908959090590915909259093590945909559096590975909859099591005910159102591035910459105591065910759108591095911059111591125911359114591155911659117591185911959120591215912259123591245912559126591275912859129591305913159132591335913459135591365913759138591395914059141591425914359144591455914659147591485914959150591515915259153591545915559156591575915859159591605916159162591635916459165591665916759168591695917059171591725917359174591755917659177591785917959180591815918259183591845918559186591875918859189591905919159192591935919459195591965919759198591995920059201592025920359204592055920659207592085920959210592115921259213592145921559216592175921859219592205922159222592235922459225592265922759228592295923059231592325923359234592355923659237592385923959240592415924259243592445924559246592475924859249592505925159252592535925459255592565925759258592595926059261592625926359264592655926659267592685926959270592715927259273592745927559276592775927859279592805928159282592835928459285592865928759288592895929059291592925929359294592955929659297592985929959300593015930259303593045930559306593075930859309593105931159312593135931459315593165931759318593195932059321593225932359324593255932659327593285932959330593315933259333593345933559336593375933859339593405934159342593435934459345593465934759348593495935059351593525935359354593555935659357593585935959360593615936259363593645936559366593675936859369593705937159372593735937459375593765937759378593795938059381593825938359384593855938659387593885938959390593915939259393593945939559396593975939859399594005940159402594035940459405594065940759408594095941059411594125941359414594155941659417594185941959420594215942259423594245942559426594275942859429594305943159432594335943459435594365943759438594395944059441594425944359444594455944659447594485944959450594515945259453594545945559456594575945859459594605946159462594635946459465594665946759468594695947059471594725947359474594755947659477594785947959480594815948259483594845948559486594875948859489594905949159492594935949459495594965949759498594995950059501595025950359504595055950659507595085950959510595115951259513595145951559516595175951859519595205952159522595235952459525595265952759528595295953059531595325953359534595355953659537595385953959540595415954259543595445954559546595475954859549595505955159552595535955459555595565955759558595595956059561595625956359564595655956659567595685956959570595715957259573595745957559576595775957859579595805958159582595835958459585595865958759588595895959059591595925959359594595955959659597595985959959600596015960259603596045960559606596075960859609596105961159612596135961459615596165961759618596195962059621596225962359624596255962659627596285962959630596315963259633596345963559636596375963859639596405964159642596435964459645596465964759648596495965059651596525965359654596555965659657596585965959660596615966259663596645966559666596675966859669596705967159672596735967459675596765967759678596795968059681596825968359684596855968659687596885968959690596915969259693596945969559696596975969859699597005970159702597035970459705597065970759708597095971059711597125971359714597155971659717597185971959720597215972259723597245972559726597275972859729597305973159732597335973459735597365973759738597395974059741597425974359744597455974659747597485974959750597515975259753597545975559756597575975859759597605976159762597635976459765597665976759768597695977059771597725977359774597755977659777597785977959780597815978259783597845978559786597875978859789597905979159792597935979459795597965979759798597995980059801598025980359804598055980659807598085980959810598115981259813598145981559816598175981859819598205982159822598235982459825598265982759828598295983059831598325983359834598355983659837598385983959840598415984259843598445984559846598475984859849598505985159852598535985459855598565985759858598595986059861598625986359864598655986659867598685986959870598715987259873598745987559876598775987859879598805988159882598835988459885598865988759888598895989059891598925989359894598955989659897598985989959900599015990259903599045990559906599075990859909599105991159912599135991459915599165991759918599195992059921599225992359924599255992659927599285992959930599315993259933599345993559936599375993859939599405994159942599435994459945599465994759948599495995059951599525995359954599555995659957599585995959960599615996259963599645996559966599675996859969599705997159972599735997459975599765997759978599795998059981599825998359984599855998659987599885998959990599915999259993599945999559996599975999859999600006000160002600036000460005600066000760008600096001060011600126001360014600156001660017600186001960020600216002260023600246002560026600276002860029600306003160032600336003460035600366003760038600396004060041600426004360044600456004660047600486004960050600516005260053600546005560056600576005860059600606006160062600636006460065600666006760068600696007060071600726007360074600756007660077600786007960080600816008260083600846008560086600876008860089600906009160092600936009460095600966009760098600996010060101601026010360104601056010660107601086010960110601116011260113601146011560116601176011860119601206012160122601236012460125601266012760128601296013060131601326013360134601356013660137601386013960140601416014260143601446014560146601476014860149601506015160152601536015460155601566015760158601596016060161601626016360164601656016660167601686016960170601716017260173601746017560176601776017860179601806018160182601836018460185601866018760188601896019060191601926019360194601956019660197601986019960200602016020260203602046020560206602076020860209602106021160212602136021460215602166021760218602196022060221602226022360224602256022660227602286022960230602316023260233602346023560236602376023860239602406024160242602436024460245602466024760248602496025060251602526025360254602556025660257602586025960260602616026260263602646026560266602676026860269602706027160272602736027460275602766027760278602796028060281602826028360284602856028660287602886028960290602916029260293602946029560296602976029860299603006030160302603036030460305603066030760308603096031060311603126031360314603156031660317603186031960320603216032260323603246032560326603276032860329603306033160332603336033460335603366033760338603396034060341603426034360344603456034660347603486034960350603516035260353603546035560356603576035860359603606036160362603636036460365603666036760368603696037060371603726037360374603756037660377603786037960380603816038260383603846038560386603876038860389603906039160392603936039460395603966039760398603996040060401604026040360404604056040660407604086040960410604116041260413604146041560416604176041860419604206042160422604236042460425604266042760428604296043060431604326043360434604356043660437604386043960440604416044260443604446044560446604476044860449604506045160452604536045460455604566045760458604596046060461604626046360464604656046660467604686046960470604716047260473604746047560476604776047860479604806048160482604836048460485604866048760488604896049060491604926049360494604956049660497604986049960500605016050260503605046050560506605076050860509605106051160512605136051460515605166051760518605196052060521605226052360524605256052660527605286052960530605316053260533605346053560536605376053860539605406054160542605436054460545605466054760548605496055060551605526055360554605556055660557605586055960560605616056260563605646056560566605676056860569605706057160572605736057460575605766057760578605796058060581605826058360584605856058660587605886058960590605916059260593605946059560596605976059860599606006060160602606036060460605606066060760608606096061060611606126061360614606156061660617606186061960620606216062260623606246062560626606276062860629606306063160632606336063460635606366063760638606396064060641606426064360644606456064660647606486064960650606516065260653606546065560656606576065860659606606066160662606636066460665606666066760668606696067060671606726067360674606756067660677606786067960680606816068260683606846068560686606876068860689606906069160692606936069460695606966069760698606996070060701607026070360704607056070660707607086070960710607116071260713607146071560716607176071860719607206072160722607236072460725607266072760728607296073060731607326073360734607356073660737607386073960740607416074260743607446074560746607476074860749607506075160752607536075460755607566075760758607596076060761607626076360764607656076660767607686076960770607716077260773607746077560776607776077860779607806078160782607836078460785607866078760788607896079060791607926079360794607956079660797607986079960800608016080260803608046080560806608076080860809608106081160812608136081460815608166081760818608196082060821608226082360824608256082660827608286082960830608316083260833608346083560836608376083860839608406084160842608436084460845608466084760848608496085060851608526085360854608556085660857608586085960860608616086260863608646086560866608676086860869608706087160872608736087460875608766087760878608796088060881608826088360884608856088660887608886088960890608916089260893608946089560896608976089860899609006090160902609036090460905609066090760908609096091060911609126091360914609156091660917609186091960920609216092260923609246092560926609276092860929609306093160932609336093460935609366093760938609396094060941609426094360944609456094660947609486094960950609516095260953609546095560956609576095860959609606096160962609636096460965609666096760968609696097060971609726097360974609756097660977609786097960980609816098260983609846098560986609876098860989609906099160992609936099460995609966099760998609996100061001610026100361004610056100661007610086100961010610116101261013610146101561016610176101861019610206102161022610236102461025610266102761028610296103061031610326103361034610356103661037610386103961040610416104261043610446104561046610476104861049610506105161052610536105461055610566105761058610596106061061610626106361064610656106661067610686106961070610716107261073610746107561076610776107861079610806108161082610836108461085610866108761088610896109061091610926109361094610956109661097610986109961100611016110261103611046110561106611076110861109611106111161112611136111461115611166111761118611196112061121611226112361124611256112661127611286112961130611316113261133611346113561136611376113861139611406114161142611436114461145611466114761148611496115061151611526115361154611556115661157611586115961160611616116261163611646116561166611676116861169611706117161172611736117461175611766117761178611796118061181611826118361184611856118661187611886118961190611916119261193611946119561196611976119861199612006120161202612036120461205612066120761208612096121061211612126121361214612156121661217612186121961220612216122261223612246122561226612276122861229612306123161232612336123461235612366123761238612396124061241612426124361244612456124661247612486124961250612516125261253612546125561256612576125861259612606126161262612636126461265612666126761268612696127061271612726127361274612756127661277612786127961280612816128261283612846128561286612876128861289612906129161292612936129461295612966129761298612996130061301613026130361304613056130661307613086130961310613116131261313613146131561316613176131861319613206132161322613236132461325613266132761328613296133061331613326133361334613356133661337613386133961340613416134261343613446134561346613476134861349613506135161352613536135461355613566135761358613596136061361613626136361364613656136661367613686136961370613716137261373613746137561376613776137861379613806138161382613836138461385613866138761388613896139061391613926139361394613956139661397613986139961400614016140261403614046140561406614076140861409614106141161412614136141461415614166141761418614196142061421614226142361424614256142661427614286142961430614316143261433614346143561436614376143861439614406144161442614436144461445614466144761448614496145061451614526145361454614556145661457614586145961460614616146261463614646146561466614676146861469614706147161472614736147461475614766147761478614796148061481614826148361484614856148661487614886148961490614916149261493614946149561496614976149861499615006150161502615036150461505615066150761508615096151061511615126151361514615156151661517615186151961520615216152261523615246152561526615276152861529615306153161532615336153461535615366153761538615396154061541615426154361544615456154661547615486154961550615516155261553615546155561556615576155861559615606156161562615636156461565615666156761568615696157061571615726157361574615756157661577615786157961580615816158261583615846158561586615876158861589615906159161592615936159461595615966159761598615996160061601616026160361604616056160661607616086160961610616116161261613616146161561616616176161861619616206162161622616236162461625616266162761628616296163061631616326163361634616356163661637616386163961640616416164261643616446164561646616476164861649616506165161652616536165461655616566165761658616596166061661616626166361664616656166661667616686166961670616716167261673616746167561676616776167861679616806168161682616836168461685616866168761688616896169061691616926169361694616956169661697616986169961700617016170261703617046170561706617076170861709617106171161712617136171461715617166171761718617196172061721617226172361724617256172661727617286172961730617316173261733617346173561736617376173861739617406174161742617436174461745617466174761748617496175061751617526175361754617556175661757617586175961760617616176261763617646176561766617676176861769617706177161772617736177461775617766177761778617796178061781617826178361784617856178661787617886178961790617916179261793617946179561796617976179861799618006180161802618036180461805618066180761808618096181061811618126181361814618156181661817618186181961820618216182261823618246182561826618276182861829618306183161832618336183461835618366183761838618396184061841618426184361844618456184661847618486184961850618516185261853618546185561856618576185861859618606186161862618636186461865618666186761868618696187061871618726187361874618756187661877618786187961880618816188261883618846188561886618876188861889618906189161892618936189461895618966189761898618996190061901619026190361904619056190661907619086190961910619116191261913619146191561916619176191861919619206192161922619236192461925619266192761928619296193061931619326193361934619356193661937619386193961940619416194261943619446194561946619476194861949619506195161952619536195461955619566195761958619596196061961619626196361964619656196661967619686196961970619716197261973619746197561976619776197861979619806198161982619836198461985619866198761988619896199061991619926199361994619956199661997619986199962000620016200262003620046200562006620076200862009620106201162012620136201462015620166201762018620196202062021620226202362024620256202662027620286202962030620316203262033620346203562036620376203862039620406204162042620436204462045620466204762048620496205062051620526205362054620556205662057620586205962060620616206262063620646206562066620676206862069620706207162072620736207462075620766207762078620796208062081620826208362084620856208662087620886208962090620916209262093620946209562096620976209862099621006210162102621036210462105621066210762108621096211062111621126211362114621156211662117621186211962120621216212262123621246212562126621276212862129621306213162132621336213462135621366213762138621396214062141621426214362144621456214662147621486214962150621516215262153621546215562156621576215862159621606216162162621636216462165621666216762168621696217062171621726217362174621756217662177621786217962180621816218262183621846218562186621876218862189621906219162192621936219462195621966219762198621996220062201622026220362204622056220662207622086220962210622116221262213622146221562216622176221862219622206222162222622236222462225622266222762228622296223062231622326223362234622356223662237622386223962240622416224262243622446224562246622476224862249622506225162252622536225462255622566225762258622596226062261622626226362264622656226662267622686226962270622716227262273622746227562276622776227862279622806228162282622836228462285622866228762288622896229062291622926229362294622956229662297622986229962300623016230262303623046230562306623076230862309623106231162312623136231462315623166231762318623196232062321623226232362324623256232662327623286232962330623316233262333623346233562336623376233862339623406234162342623436234462345623466234762348623496235062351623526235362354623556235662357623586235962360623616236262363623646236562366623676236862369623706237162372623736237462375623766237762378623796238062381623826238362384623856238662387623886238962390623916239262393623946239562396623976239862399624006240162402624036240462405624066240762408624096241062411624126241362414624156241662417624186241962420624216242262423624246242562426624276242862429624306243162432624336243462435624366243762438624396244062441624426244362444624456244662447624486244962450624516245262453624546245562456624576245862459624606246162462624636246462465624666246762468624696247062471624726247362474624756247662477624786247962480624816248262483624846248562486624876248862489624906249162492624936249462495624966249762498624996250062501625026250362504625056250662507625086250962510625116251262513625146251562516625176251862519625206252162522625236252462525625266252762528625296253062531625326253362534625356253662537625386253962540625416254262543625446254562546625476254862549625506255162552625536255462555625566255762558625596256062561625626256362564625656256662567625686256962570625716257262573625746257562576625776257862579625806258162582625836258462585625866258762588625896259062591625926259362594625956259662597625986259962600626016260262603626046260562606626076260862609626106261162612626136261462615626166261762618626196262062621626226262362624626256262662627626286262962630626316263262633626346263562636626376263862639626406264162642626436264462645626466264762648626496265062651626526265362654626556265662657626586265962660626616266262663626646266562666626676266862669626706267162672626736267462675626766267762678626796268062681626826268362684626856268662687626886268962690626916269262693626946269562696626976269862699627006270162702627036270462705627066270762708627096271062711627126271362714627156271662717627186271962720627216272262723627246272562726627276272862729627306273162732627336273462735627366273762738627396274062741627426274362744627456274662747627486274962750627516275262753627546275562756627576275862759627606276162762627636276462765627666276762768627696277062771627726277362774627756277662777627786277962780627816278262783627846278562786627876278862789627906279162792627936279462795627966279762798627996280062801628026280362804628056280662807628086280962810628116281262813628146281562816628176281862819628206282162822628236282462825628266282762828628296283062831628326283362834628356283662837628386283962840628416284262843628446284562846628476284862849628506285162852628536285462855628566285762858628596286062861628626286362864628656286662867628686286962870628716287262873628746287562876628776287862879628806288162882628836288462885628866288762888628896289062891628926289362894628956289662897628986289962900629016290262903629046290562906629076290862909629106291162912629136291462915629166291762918629196292062921629226292362924629256292662927629286292962930629316293262933629346293562936629376293862939629406294162942629436294462945629466294762948629496295062951629526295362954629556295662957629586295962960629616296262963629646296562966629676296862969629706297162972629736297462975629766297762978629796298062981629826298362984629856298662987629886298962990629916299262993629946299562996629976299862999630006300163002630036300463005630066300763008630096301063011630126301363014630156301663017630186301963020630216302263023630246302563026630276302863029630306303163032630336303463035630366303763038630396304063041630426304363044630456304663047630486304963050630516305263053630546305563056630576305863059630606306163062630636306463065630666306763068630696307063071630726307363074630756307663077630786307963080630816308263083630846308563086630876308863089630906309163092630936309463095630966309763098630996310063101631026310363104631056310663107631086310963110631116311263113631146311563116631176311863119631206312163122631236312463125631266312763128631296313063131631326313363134631356313663137631386313963140631416314263143631446314563146631476314863149631506315163152631536315463155631566315763158631596316063161631626316363164631656316663167631686316963170631716317263173631746317563176631776317863179631806318163182631836318463185631866318763188631896319063191631926319363194631956319663197631986319963200632016320263203632046320563206632076320863209632106321163212632136321463215632166321763218632196322063221632226322363224632256322663227632286322963230632316323263233632346323563236632376323863239632406324163242632436324463245632466324763248632496325063251632526325363254632556325663257632586325963260632616326263263632646326563266632676326863269632706327163272632736327463275632766327763278632796328063281632826328363284632856328663287632886328963290632916329263293632946329563296632976329863299633006330163302633036330463305633066330763308633096331063311633126331363314633156331663317633186331963320633216332263323633246332563326633276332863329633306333163332633336333463335633366333763338633396334063341633426334363344633456334663347633486334963350633516335263353633546335563356633576335863359633606336163362633636336463365633666336763368633696337063371633726337363374633756337663377633786337963380633816338263383633846338563386633876338863389633906339163392633936339463395633966339763398633996340063401634026340363404634056340663407634086340963410634116341263413634146341563416634176341863419634206342163422634236342463425634266342763428634296343063431634326343363434634356343663437634386343963440634416344263443634446344563446634476344863449634506345163452634536345463455634566345763458634596346063461634626346363464634656346663467634686346963470634716347263473634746347563476634776347863479634806348163482634836348463485634866348763488634896349063491634926349363494634956349663497634986349963500635016350263503635046350563506635076350863509635106351163512635136351463515635166351763518635196352063521635226352363524635256352663527635286352963530635316353263533635346353563536635376353863539635406354163542635436354463545635466354763548635496355063551635526355363554635556355663557635586355963560635616356263563635646356563566635676356863569635706357163572635736357463575635766357763578635796358063581635826358363584635856358663587635886358963590635916359263593635946359563596635976359863599636006360163602636036360463605636066360763608636096361063611636126361363614636156361663617636186361963620636216362263623636246362563626636276362863629636306363163632636336363463635636366363763638636396364063641636426364363644636456364663647636486364963650636516365263653636546365563656636576365863659636606366163662636636366463665636666366763668636696367063671636726367363674636756367663677636786367963680636816368263683636846368563686636876368863689636906369163692636936369463695636966369763698636996370063701637026370363704637056370663707637086370963710637116371263713637146371563716637176371863719637206372163722637236372463725637266372763728637296373063731637326373363734637356373663737637386373963740637416374263743637446374563746637476374863749637506375163752637536375463755637566375763758637596376063761637626376363764637656376663767637686376963770637716377263773637746377563776637776377863779637806378163782637836378463785637866378763788637896379063791637926379363794637956379663797637986379963800638016380263803638046380563806638076380863809638106381163812638136381463815638166381763818638196382063821638226382363824638256382663827638286382963830638316383263833638346383563836638376383863839638406384163842638436384463845638466384763848638496385063851638526385363854638556385663857638586385963860638616386263863638646386563866638676386863869638706387163872638736387463875638766387763878638796388063881638826388363884638856388663887638886388963890638916389263893638946389563896638976389863899639006390163902639036390463905639066390763908639096391063911639126391363914639156391663917639186391963920639216392263923639246392563926639276392863929639306393163932639336393463935639366393763938639396394063941639426394363944639456394663947639486394963950639516395263953639546395563956639576395863959639606396163962639636396463965639666396763968639696397063971639726397363974639756397663977639786397963980639816398263983639846398563986639876398863989639906399163992639936399463995639966399763998639996400064001640026400364004640056400664007640086400964010640116401264013640146401564016640176401864019640206402164022640236402464025640266402764028640296403064031640326403364034640356403664037640386403964040640416404264043640446404564046640476404864049640506405164052640536405464055640566405764058640596406064061640626406364064640656406664067640686406964070640716407264073640746407564076640776407864079640806408164082640836408464085640866408764088640896409064091640926409364094640956409664097640986409964100641016410264103641046410564106641076410864109641106411164112641136411464115641166411764118641196412064121641226412364124641256412664127641286412964130641316413264133641346413564136641376413864139641406414164142641436414464145641466414764148641496415064151641526415364154641556415664157641586415964160641616416264163641646416564166641676416864169641706417164172641736417464175641766417764178641796418064181641826418364184641856418664187641886418964190641916419264193641946419564196641976419864199642006420164202642036420464205642066420764208642096421064211642126421364214642156421664217642186421964220642216422264223642246422564226642276422864229642306423164232642336423464235642366423764238642396424064241642426424364244642456424664247642486424964250642516425264253642546425564256642576425864259642606426164262642636426464265642666426764268642696427064271642726427364274642756427664277642786427964280642816428264283642846428564286642876428864289642906429164292642936429464295642966429764298642996430064301643026430364304643056430664307643086430964310643116431264313643146431564316643176431864319643206432164322643236432464325643266432764328643296433064331643326433364334643356433664337643386433964340643416434264343643446434564346643476434864349643506435164352643536435464355643566435764358643596436064361643626436364364643656436664367643686436964370643716437264373643746437564376643776437864379643806438164382643836438464385643866438764388643896439064391643926439364394643956439664397643986439964400644016440264403644046440564406644076440864409644106441164412644136441464415644166441764418644196442064421644226442364424644256442664427644286442964430644316443264433644346443564436644376443864439644406444164442644436444464445644466444764448644496445064451644526445364454644556445664457644586445964460644616446264463644646446564466644676446864469644706447164472644736447464475644766447764478644796448064481644826448364484644856448664487644886448964490644916449264493644946449564496644976449864499645006450164502645036450464505645066450764508645096451064511645126451364514645156451664517645186451964520645216452264523645246452564526645276452864529645306453164532645336453464535645366453764538645396454064541645426454364544645456454664547645486454964550645516455264553645546455564556645576455864559645606456164562645636456464565645666456764568645696457064571645726457364574645756457664577645786457964580645816458264583645846458564586645876458864589645906459164592645936459464595645966459764598645996460064601646026460364604646056460664607646086460964610646116461264613646146461564616646176461864619646206462164622646236462464625646266462764628646296463064631646326463364634646356463664637646386463964640646416464264643646446464564646646476464864649646506465164652646536465464655646566465764658646596466064661646626466364664646656466664667646686466964670646716467264673646746467564676646776467864679646806468164682646836468464685646866468764688646896469064691646926469364694646956469664697646986469964700647016470264703647046470564706647076470864709647106471164712647136471464715647166471764718647196472064721647226472364724647256472664727647286472964730647316473264733647346473564736647376473864739647406474164742647436474464745647466474764748647496475064751647526475364754647556475664757647586475964760647616476264763647646476564766647676476864769647706477164772647736477464775647766477764778647796478064781647826478364784647856478664787647886478964790647916479264793647946479564796647976479864799648006480164802648036480464805648066480764808648096481064811648126481364814648156481664817648186481964820648216482264823648246482564826648276482864829648306483164832648336483464835648366483764838648396484064841648426484364844648456484664847648486484964850648516485264853648546485564856648576485864859648606486164862648636486464865648666486764868648696487064871648726487364874648756487664877648786487964880648816488264883648846488564886648876488864889648906489164892648936489464895648966489764898648996490064901649026490364904649056490664907649086490964910649116491264913649146491564916649176491864919649206492164922649236492464925649266492764928649296493064931649326493364934649356493664937649386493964940649416494264943649446494564946649476494864949649506495164952649536495464955649566495764958649596496064961649626496364964649656496664967649686496964970649716497264973649746497564976649776497864979649806498164982649836498464985649866498764988649896499064991649926499364994649956499664997649986499965000650016500265003650046500565006650076500865009650106501165012650136501465015650166501765018650196502065021650226502365024650256502665027650286502965030650316503265033650346503565036650376503865039650406504165042650436504465045650466504765048650496505065051650526505365054650556505665057650586505965060650616506265063650646506565066650676506865069650706507165072650736507465075650766507765078650796508065081650826508365084650856508665087650886508965090650916509265093650946509565096650976509865099651006510165102651036510465105651066510765108651096511065111651126511365114651156511665117651186511965120651216512265123651246512565126651276512865129651306513165132651336513465135651366513765138651396514065141651426514365144651456514665147651486514965150651516515265153651546515565156651576515865159651606516165162651636516465165651666516765168651696517065171651726517365174651756517665177651786517965180651816518265183651846518565186651876518865189651906519165192651936519465195651966519765198651996520065201652026520365204652056520665207652086520965210652116521265213652146521565216652176521865219652206522165222652236522465225652266522765228652296523065231652326523365234652356523665237652386523965240652416524265243652446524565246652476524865249652506525165252652536525465255652566525765258652596526065261652626526365264652656526665267652686526965270652716527265273652746527565276652776527865279652806528165282652836528465285652866528765288652896529065291652926529365294652956529665297652986529965300653016530265303653046530565306653076530865309653106531165312653136531465315653166531765318653196532065321653226532365324653256532665327653286532965330653316533265333653346533565336653376533865339653406534165342653436534465345653466534765348653496535065351653526535365354653556535665357653586535965360653616536265363653646536565366653676536865369653706537165372653736537465375653766537765378653796538065381653826538365384653856538665387653886538965390653916539265393653946539565396653976539865399654006540165402654036540465405654066540765408654096541065411654126541365414654156541665417654186541965420654216542265423654246542565426654276542865429654306543165432654336543465435654366543765438654396544065441654426544365444654456544665447654486544965450654516545265453654546545565456654576545865459654606546165462654636546465465654666546765468654696547065471654726547365474654756547665477654786547965480654816548265483654846548565486654876548865489654906549165492654936549465495654966549765498654996550065501655026550365504655056550665507655086550965510655116551265513655146551565516655176551865519655206552165522655236552465525655266552765528655296553065531655326553365534655356553665537655386553965540655416554265543655446554565546655476554865549655506555165552655536555465555655566555765558655596556065561655626556365564655656556665567655686556965570655716557265573655746557565576655776557865579655806558165582655836558465585655866558765588655896559065591655926559365594655956559665597655986559965600656016560265603656046560565606656076560865609656106561165612656136561465615656166561765618656196562065621656226562365624656256562665627656286562965630656316563265633656346563565636656376563865639656406564165642656436564465645656466564765648656496565065651656526565365654656556565665657656586565965660656616566265663656646566565666656676566865669656706567165672656736567465675656766567765678656796568065681656826568365684656856568665687656886568965690656916569265693656946569565696656976569865699657006570165702657036570465705657066570765708657096571065711657126571365714657156571665717657186571965720657216572265723657246572565726657276572865729657306573165732657336573465735657366573765738657396574065741657426574365744657456574665747657486574965750657516575265753657546575565756657576575865759657606576165762657636576465765657666576765768657696577065771657726577365774657756577665777657786577965780657816578265783657846578565786657876578865789657906579165792657936579465795657966579765798657996580065801658026580365804658056580665807658086580965810658116581265813658146581565816658176581865819658206582165822658236582465825658266582765828658296583065831658326583365834658356583665837658386583965840658416584265843658446584565846658476584865849658506585165852658536585465855658566585765858658596586065861658626586365864658656586665867658686586965870658716587265873658746587565876658776587865879658806588165882658836588465885658866588765888658896589065891658926589365894658956589665897658986589965900659016590265903659046590565906659076590865909659106591165912659136591465915659166591765918659196592065921659226592365924659256592665927659286592965930659316593265933659346593565936659376593865939659406594165942659436594465945659466594765948659496595065951659526595365954659556595665957659586595965960659616596265963659646596565966659676596865969659706597165972659736597465975659766597765978659796598065981659826598365984659856598665987659886598965990659916599265993659946599565996659976599865999660006600166002660036600466005660066600766008660096601066011660126601366014660156601666017660186601966020660216602266023660246602566026660276602866029660306603166032660336603466035660366603766038660396604066041660426604366044660456604666047660486604966050660516605266053660546605566056660576605866059660606606166062660636606466065660666606766068660696607066071660726607366074660756607666077660786607966080660816608266083660846608566086660876608866089660906609166092660936609466095660966609766098660996610066101661026610366104661056610666107661086610966110661116611266113661146611566116661176611866119661206612166122661236612466125661266612766128661296613066131661326613366134661356613666137661386613966140661416614266143661446614566146661476614866149661506615166152661536615466155661566615766158661596616066161661626616366164661656616666167661686616966170661716617266173661746617566176661776617866179661806618166182661836618466185661866618766188661896619066191661926619366194661956619666197661986619966200662016620266203662046620566206662076620866209662106621166212662136621466215662166621766218662196622066221662226622366224662256622666227662286622966230662316623266233662346623566236662376623866239662406624166242662436624466245662466624766248662496625066251662526625366254662556625666257662586625966260662616626266263662646626566266662676626866269662706627166272662736627466275662766627766278662796628066281662826628366284662856628666287662886628966290662916629266293662946629566296662976629866299663006630166302663036630466305663066630766308663096631066311663126631366314663156631666317663186631966320663216632266323663246632566326663276632866329663306633166332663336633466335663366633766338663396634066341663426634366344663456634666347663486634966350663516635266353663546635566356663576635866359663606636166362663636636466365663666636766368663696637066371663726637366374663756637666377663786637966380663816638266383663846638566386663876638866389663906639166392663936639466395663966639766398663996640066401664026640366404664056640666407664086640966410664116641266413664146641566416664176641866419664206642166422664236642466425664266642766428664296643066431664326643366434664356643666437664386643966440664416644266443664446644566446664476644866449664506645166452664536645466455664566645766458664596646066461664626646366464664656646666467664686646966470664716647266473664746647566476664776647866479664806648166482664836648466485664866648766488664896649066491664926649366494664956649666497664986649966500665016650266503665046650566506665076650866509665106651166512665136651466515665166651766518665196652066521665226652366524665256652666527665286652966530665316653266533665346653566536665376653866539665406654166542665436654466545665466654766548665496655066551665526655366554665556655666557665586655966560665616656266563665646656566566665676656866569665706657166572665736657466575665766657766578665796658066581665826658366584665856658666587665886658966590665916659266593665946659566596665976659866599666006660166602666036660466605666066660766608666096661066611666126661366614666156661666617666186661966620666216662266623666246662566626666276662866629666306663166632666336663466635666366663766638666396664066641666426664366644666456664666647666486664966650666516665266653666546665566656666576665866659666606666166662666636666466665666666666766668666696667066671666726667366674666756667666677666786667966680666816668266683666846668566686666876668866689666906669166692666936669466695666966669766698666996670066701667026670366704667056670666707667086670966710667116671266713667146671566716667176671866719667206672166722667236672466725667266672766728667296673066731667326673366734667356673666737667386673966740667416674266743667446674566746667476674866749667506675166752667536675466755667566675766758667596676066761667626676366764667656676666767667686676966770667716677266773667746677566776667776677866779667806678166782667836678466785667866678766788667896679066791667926679366794667956679666797667986679966800668016680266803668046680566806668076680866809668106681166812668136681466815668166681766818668196682066821668226682366824668256682666827668286682966830668316683266833668346683566836668376683866839668406684166842668436684466845668466684766848668496685066851668526685366854668556685666857668586685966860668616686266863668646686566866668676686866869668706687166872668736687466875668766687766878668796688066881668826688366884668856688666887668886688966890668916689266893668946689566896668976689866899669006690166902669036690466905669066690766908669096691066911669126691366914669156691666917669186691966920669216692266923669246692566926669276692866929669306693166932669336693466935669366693766938669396694066941669426694366944669456694666947669486694966950669516695266953669546695566956669576695866959669606696166962669636696466965669666696766968669696697066971669726697366974669756697666977669786697966980669816698266983669846698566986669876698866989669906699166992669936699466995669966699766998669996700067001670026700367004670056700667007670086700967010670116701267013670146701567016670176701867019670206702167022670236702467025670266702767028670296703067031670326703367034670356703667037670386703967040670416704267043670446704567046670476704867049670506705167052670536705467055670566705767058670596706067061670626706367064670656706667067670686706967070670716707267073670746707567076670776707867079670806708167082670836708467085670866708767088670896709067091670926709367094670956709667097670986709967100671016710267103671046710567106671076710867109671106711167112671136711467115671166711767118671196712067121671226712367124671256712667127671286712967130671316713267133671346713567136671376713867139671406714167142671436714467145671466714767148671496715067151671526715367154671556715667157671586715967160671616716267163671646716567166671676716867169671706717167172671736717467175671766717767178671796718067181671826718367184671856718667187671886718967190671916719267193671946719567196671976719867199672006720167202672036720467205672066720767208672096721067211672126721367214672156721667217672186721967220672216722267223672246722567226672276722867229672306723167232672336723467235672366723767238672396724067241672426724367244672456724667247672486724967250672516725267253672546725567256672576725867259672606726167262672636726467265672666726767268672696727067271672726727367274672756727667277672786727967280672816728267283672846728567286672876728867289672906729167292672936729467295672966729767298672996730067301673026730367304673056730667307673086730967310673116731267313673146731567316673176731867319673206732167322673236732467325673266732767328673296733067331673326733367334673356733667337673386733967340673416734267343673446734567346673476734867349673506735167352673536735467355673566735767358673596736067361673626736367364673656736667367673686736967370673716737267373673746737567376673776737867379673806738167382673836738467385673866738767388673896739067391673926739367394673956739667397673986739967400674016740267403674046740567406674076740867409674106741167412674136741467415674166741767418674196742067421674226742367424674256742667427674286742967430674316743267433674346743567436674376743867439674406744167442674436744467445674466744767448674496745067451674526745367454674556745667457674586745967460674616746267463674646746567466674676746867469674706747167472674736747467475674766747767478674796748067481674826748367484674856748667487674886748967490674916749267493674946749567496674976749867499675006750167502675036750467505675066750767508675096751067511675126751367514675156751667517675186751967520675216752267523675246752567526675276752867529675306753167532675336753467535675366753767538675396754067541675426754367544675456754667547675486754967550675516755267553675546755567556675576755867559675606756167562675636756467565675666756767568675696757067571675726757367574675756757667577675786757967580675816758267583675846758567586675876758867589675906759167592675936759467595675966759767598675996760067601676026760367604676056760667607676086760967610676116761267613676146761567616676176761867619676206762167622676236762467625676266762767628676296763067631676326763367634676356763667637676386763967640676416764267643676446764567646676476764867649676506765167652676536765467655676566765767658676596766067661676626766367664676656766667667676686766967670676716767267673676746767567676676776767867679676806768167682676836768467685676866768767688676896769067691676926769367694676956769667697676986769967700677016770267703677046770567706677076770867709677106771167712677136771467715677166771767718677196772067721677226772367724677256772667727677286772967730677316773267733677346773567736677376773867739677406774167742677436774467745677466774767748677496775067751677526775367754677556775667757677586775967760677616776267763677646776567766677676776867769677706777167772677736777467775677766777767778677796778067781677826778367784677856778667787677886778967790677916779267793677946779567796677976779867799678006780167802678036780467805678066780767808678096781067811678126781367814678156781667817678186781967820678216782267823678246782567826678276782867829678306783167832678336783467835678366783767838678396784067841678426784367844678456784667847678486784967850678516785267853678546785567856678576785867859678606786167862678636786467865678666786767868678696787067871678726787367874678756787667877678786787967880678816788267883678846788567886678876788867889678906789167892678936789467895678966789767898678996790067901679026790367904679056790667907679086790967910679116791267913679146791567916679176791867919679206792167922679236792467925679266792767928679296793067931679326793367934679356793667937679386793967940679416794267943679446794567946679476794867949679506795167952679536795467955679566795767958679596796067961679626796367964679656796667967679686796967970679716797267973679746797567976679776797867979679806798167982679836798467985679866798767988679896799067991679926799367994679956799667997679986799968000680016800268003680046800568006680076800868009680106801168012680136801468015680166801768018680196802068021680226802368024680256802668027680286802968030680316803268033680346803568036680376803868039680406804168042680436804468045680466804768048680496805068051680526805368054680556805668057680586805968060680616806268063680646806568066680676806868069680706807168072680736807468075680766807768078680796808068081680826808368084680856808668087680886808968090680916809268093680946809568096680976809868099681006810168102681036810468105681066810768108681096811068111681126811368114681156811668117681186811968120681216812268123681246812568126681276812868129681306813168132681336813468135681366813768138681396814068141681426814368144681456814668147681486814968150681516815268153681546815568156681576815868159681606816168162681636816468165681666816768168681696817068171681726817368174681756817668177681786817968180681816818268183681846818568186681876818868189681906819168192681936819468195681966819768198681996820068201682026820368204682056820668207682086820968210682116821268213682146821568216682176821868219682206822168222682236822468225682266822768228682296823068231682326823368234682356823668237682386823968240682416824268243682446824568246682476824868249682506825168252682536825468255682566825768258682596826068261682626826368264682656826668267682686826968270682716827268273682746827568276682776827868279682806828168282682836828468285682866828768288682896829068291682926829368294682956829668297682986829968300683016830268303683046830568306683076830868309683106831168312683136831468315683166831768318683196832068321683226832368324683256832668327683286832968330683316833268333683346833568336683376833868339683406834168342683436834468345683466834768348683496835068351683526835368354683556835668357683586835968360683616836268363683646836568366683676836868369683706837168372683736837468375683766837768378683796838068381683826838368384683856838668387683886838968390683916839268393683946839568396683976839868399684006840168402684036840468405684066840768408684096841068411684126841368414684156841668417684186841968420684216842268423684246842568426684276842868429684306843168432684336843468435684366843768438684396844068441684426844368444684456844668447684486844968450684516845268453684546845568456684576845868459684606846168462684636846468465684666846768468684696847068471684726847368474684756847668477684786847968480684816848268483684846848568486684876848868489684906849168492684936849468495684966849768498684996850068501685026850368504685056850668507685086850968510685116851268513685146851568516685176851868519685206852168522685236852468525685266852768528685296853068531685326853368534685356853668537685386853968540685416854268543685446854568546685476854868549685506855168552685536855468555685566855768558685596856068561685626856368564685656856668567685686856968570685716857268573685746857568576685776857868579685806858168582685836858468585685866858768588685896859068591685926859368594685956859668597685986859968600686016860268603686046860568606686076860868609686106861168612686136861468615686166861768618686196862068621686226862368624686256862668627686286862968630686316863268633686346863568636686376863868639686406864168642686436864468645686466864768648686496865068651686526865368654686556865668657686586865968660686616866268663686646866568666686676866868669686706867168672686736867468675686766867768678686796868068681686826868368684686856868668687686886868968690686916869268693686946869568696686976869868699687006870168702687036870468705687066870768708687096871068711687126871368714687156871668717687186871968720687216872268723687246872568726687276872868729687306873168732687336873468735687366873768738687396874068741687426874368744687456874668747687486874968750687516875268753687546875568756687576875868759687606876168762687636876468765687666876768768687696877068771687726877368774687756877668777687786877968780687816878268783687846878568786687876878868789687906879168792687936879468795687966879768798687996880068801688026880368804688056880668807688086880968810688116881268813688146881568816688176881868819688206882168822688236882468825688266882768828688296883068831688326883368834688356883668837688386883968840688416884268843688446884568846688476884868849688506885168852688536885468855688566885768858688596886068861688626886368864688656886668867688686886968870688716887268873688746887568876688776887868879688806888168882688836888468885688866888768888688896889068891688926889368894688956889668897688986889968900689016890268903689046890568906689076890868909689106891168912689136891468915689166891768918689196892068921689226892368924689256892668927689286892968930689316893268933689346893568936689376893868939689406894168942689436894468945689466894768948689496895068951689526895368954689556895668957689586895968960689616896268963689646896568966689676896868969689706897168972689736897468975689766897768978689796898068981689826898368984689856898668987689886898968990689916899268993689946899568996689976899868999690006900169002690036900469005690066900769008690096901069011690126901369014690156901669017690186901969020690216902269023690246902569026690276902869029690306903169032690336903469035690366903769038690396904069041690426904369044690456904669047690486904969050690516905269053690546905569056690576905869059690606906169062690636906469065690666906769068690696907069071690726907369074690756907669077690786907969080690816908269083690846908569086690876908869089690906909169092690936909469095690966909769098690996910069101691026910369104691056910669107691086910969110691116911269113691146911569116691176911869119691206912169122691236912469125691266912769128691296913069131691326913369134691356913669137691386913969140691416914269143691446914569146691476914869149691506915169152691536915469155691566915769158691596916069161691626916369164691656916669167691686916969170691716917269173691746917569176691776917869179691806918169182691836918469185691866918769188691896919069191691926919369194691956919669197691986919969200692016920269203692046920569206692076920869209692106921169212692136921469215692166921769218692196922069221692226922369224692256922669227692286922969230692316923269233692346923569236692376923869239692406924169242692436924469245692466924769248692496925069251692526925369254692556925669257692586925969260692616926269263692646926569266692676926869269692706927169272692736927469275692766927769278692796928069281692826928369284692856928669287692886928969290692916929269293692946929569296692976929869299693006930169302693036930469305693066930769308693096931069311693126931369314693156931669317693186931969320693216932269323693246932569326693276932869329693306933169332693336933469335693366933769338693396934069341693426934369344693456934669347693486934969350693516935269353693546935569356693576935869359693606936169362693636936469365693666936769368693696937069371693726937369374693756937669377693786937969380693816938269383693846938569386693876938869389693906939169392693936939469395693966939769398693996940069401694026940369404694056940669407694086940969410694116941269413694146941569416694176941869419694206942169422694236942469425694266942769428694296943069431694326943369434694356943669437694386943969440694416944269443694446944569446694476944869449694506945169452694536945469455694566945769458694596946069461694626946369464694656946669467694686946969470694716947269473694746947569476694776947869479694806948169482694836948469485694866948769488694896949069491694926949369494694956949669497694986949969500695016950269503695046950569506695076950869509695106951169512695136951469515695166951769518695196952069521695226952369524695256952669527695286952969530695316953269533695346953569536695376953869539695406954169542695436954469545695466954769548695496955069551695526955369554695556955669557695586955969560695616956269563695646956569566695676956869569695706957169572695736957469575695766957769578695796958069581695826958369584695856958669587695886958969590695916959269593695946959569596695976959869599696006960169602696036960469605696066960769608696096961069611696126961369614696156961669617696186961969620696216962269623696246962569626696276962869629696306963169632696336963469635696366963769638696396964069641696426964369644696456964669647696486964969650696516965269653696546965569656696576965869659696606966169662696636966469665696666966769668696696967069671696726967369674696756967669677696786967969680696816968269683696846968569686696876968869689696906969169692696936969469695696966969769698696996970069701697026970369704697056970669707697086970969710697116971269713697146971569716697176971869719697206972169722697236972469725697266972769728697296973069731697326973369734697356973669737697386973969740697416974269743697446974569746697476974869749697506975169752697536975469755697566975769758697596976069761697626976369764697656976669767697686976969770697716977269773697746977569776697776977869779697806978169782697836978469785697866978769788697896979069791697926979369794697956979669797697986979969800698016980269803698046980569806698076980869809698106981169812698136981469815698166981769818698196982069821698226982369824698256982669827698286982969830698316983269833698346983569836698376983869839698406984169842698436984469845698466984769848698496985069851698526985369854698556985669857698586985969860698616986269863698646986569866698676986869869698706987169872698736987469875698766987769878698796988069881698826988369884698856988669887698886988969890698916989269893698946989569896698976989869899699006990169902699036990469905699066990769908699096991069911699126991369914699156991669917699186991969920699216992269923699246992569926699276992869929699306993169932699336993469935699366993769938699396994069941699426994369944699456994669947699486994969950699516995269953699546995569956699576995869959699606996169962699636996469965699666996769968699696997069971699726997369974699756997669977699786997969980699816998269983699846998569986699876998869989699906999169992699936999469995699966999769998699997000070001700027000370004700057000670007700087000970010700117001270013700147001570016700177001870019700207002170022700237002470025700267002770028700297003070031700327003370034700357003670037700387003970040700417004270043700447004570046700477004870049700507005170052700537005470055700567005770058700597006070061700627006370064700657006670067700687006970070700717007270073700747007570076700777007870079700807008170082700837008470085700867008770088700897009070091700927009370094700957009670097700987009970100701017010270103701047010570106701077010870109701107011170112701137011470115701167011770118701197012070121701227012370124701257012670127701287012970130701317013270133701347013570136701377013870139701407014170142701437014470145701467014770148701497015070151701527015370154701557015670157701587015970160701617016270163701647016570166701677016870169701707017170172701737017470175701767017770178701797018070181701827018370184701857018670187701887018970190701917019270193701947019570196701977019870199702007020170202702037020470205702067020770208702097021070211702127021370214702157021670217702187021970220702217022270223702247022570226702277022870229702307023170232702337023470235702367023770238702397024070241702427024370244702457024670247702487024970250702517025270253702547025570256702577025870259702607026170262702637026470265702667026770268702697027070271702727027370274702757027670277702787027970280702817028270283702847028570286702877028870289702907029170292702937029470295702967029770298702997030070301703027030370304703057030670307703087030970310703117031270313703147031570316703177031870319703207032170322703237032470325703267032770328703297033070331703327033370334703357033670337703387033970340703417034270343703447034570346703477034870349703507035170352703537035470355703567035770358703597036070361703627036370364703657036670367703687036970370703717037270373703747037570376703777037870379703807038170382703837038470385703867038770388703897039070391703927039370394703957039670397703987039970400704017040270403704047040570406704077040870409704107041170412704137041470415704167041770418704197042070421704227042370424704257042670427704287042970430704317043270433704347043570436704377043870439704407044170442704437044470445704467044770448704497045070451704527045370454704557045670457704587045970460704617046270463704647046570466704677046870469704707047170472704737047470475704767047770478704797048070481704827048370484704857048670487704887048970490704917049270493704947049570496704977049870499705007050170502705037050470505705067050770508705097051070511705127051370514705157051670517705187051970520705217052270523705247052570526705277052870529705307053170532705337053470535705367053770538705397054070541705427054370544705457054670547705487054970550705517055270553705547055570556705577055870559705607056170562705637056470565705667056770568705697057070571705727057370574705757057670577705787057970580705817058270583705847058570586705877058870589705907059170592705937059470595705967059770598705997060070601706027060370604706057060670607706087060970610706117061270613706147061570616706177061870619706207062170622706237062470625706267062770628706297063070631706327063370634706357063670637706387063970640706417064270643706447064570646706477064870649706507065170652706537065470655706567065770658706597066070661706627066370664706657066670667706687066970670706717067270673706747067570676706777067870679706807068170682706837068470685706867068770688706897069070691706927069370694706957069670697706987069970700707017070270703707047070570706707077070870709707107071170712707137071470715707167071770718707197072070721707227072370724707257072670727707287072970730707317073270733707347073570736707377073870739707407074170742707437074470745707467074770748707497075070751707527075370754707557075670757707587075970760707617076270763707647076570766707677076870769707707077170772707737077470775707767077770778707797078070781707827078370784707857078670787707887078970790707917079270793707947079570796707977079870799708007080170802708037080470805708067080770808708097081070811708127081370814708157081670817708187081970820708217082270823708247082570826708277082870829708307083170832708337083470835708367083770838708397084070841708427084370844708457084670847708487084970850708517085270853708547085570856708577085870859708607086170862708637086470865708667086770868708697087070871708727087370874708757087670877708787087970880708817088270883708847088570886708877088870889708907089170892708937089470895708967089770898708997090070901709027090370904709057090670907709087090970910709117091270913709147091570916709177091870919709207092170922709237092470925709267092770928709297093070931709327093370934709357093670937709387093970940709417094270943709447094570946709477094870949709507095170952709537095470955709567095770958709597096070961709627096370964709657096670967709687096970970709717097270973709747097570976709777097870979709807098170982709837098470985709867098770988709897099070991709927099370994709957099670997709987099971000710017100271003710047100571006710077100871009710107101171012710137101471015710167101771018710197102071021710227102371024710257102671027710287102971030710317103271033710347103571036710377103871039710407104171042710437104471045710467104771048710497105071051710527105371054710557105671057710587105971060710617106271063710647106571066710677106871069710707107171072710737107471075710767107771078710797108071081710827108371084710857108671087710887108971090710917109271093710947109571096710977109871099711007110171102711037110471105711067110771108711097111071111711127111371114711157111671117711187111971120711217112271123711247112571126711277112871129711307113171132711337113471135711367113771138711397114071141711427114371144711457114671147711487114971150711517115271153711547115571156711577115871159711607116171162711637116471165711667116771168711697117071171711727117371174711757117671177711787117971180711817118271183711847118571186711877118871189711907119171192711937119471195711967119771198711997120071201712027120371204712057120671207712087120971210712117121271213712147121571216712177121871219712207122171222712237122471225712267122771228712297123071231712327123371234712357123671237712387123971240712417124271243712447124571246712477124871249712507125171252712537125471255712567125771258712597126071261712627126371264712657126671267712687126971270712717127271273712747127571276712777127871279712807128171282712837128471285712867128771288712897129071291712927129371294712957129671297712987129971300713017130271303713047130571306713077130871309713107131171312713137131471315713167131771318713197132071321713227132371324713257132671327713287132971330713317133271333713347133571336713377133871339713407134171342713437134471345713467134771348713497135071351713527135371354713557135671357713587135971360713617136271363713647136571366713677136871369713707137171372713737137471375713767137771378713797138071381713827138371384713857138671387713887138971390713917139271393713947139571396713977139871399714007140171402714037140471405714067140771408714097141071411714127141371414714157141671417714187141971420714217142271423714247142571426714277142871429714307143171432714337143471435714367143771438714397144071441714427144371444714457144671447714487144971450714517145271453714547145571456714577145871459714607146171462714637146471465714667146771468714697147071471714727147371474714757147671477714787147971480714817148271483714847148571486714877148871489714907149171492714937149471495714967149771498714997150071501715027150371504715057150671507715087150971510715117151271513715147151571516715177151871519715207152171522715237152471525715267152771528715297153071531715327153371534715357153671537715387153971540715417154271543715447154571546715477154871549715507155171552715537155471555715567155771558715597156071561715627156371564715657156671567715687156971570715717157271573715747157571576715777157871579715807158171582715837158471585715867158771588715897159071591715927159371594715957159671597715987159971600716017160271603716047160571606716077160871609716107161171612716137161471615716167161771618716197162071621716227162371624716257162671627716287162971630716317163271633716347163571636716377163871639716407164171642716437164471645716467164771648716497165071651716527165371654716557165671657716587165971660716617166271663716647166571666716677166871669716707167171672716737167471675716767167771678716797168071681716827168371684716857168671687716887168971690716917169271693716947169571696716977169871699717007170171702717037170471705717067170771708717097171071711717127171371714717157171671717717187171971720717217172271723717247172571726717277172871729717307173171732717337173471735717367173771738717397174071741717427174371744717457174671747717487174971750717517175271753717547175571756717577175871759717607176171762717637176471765717667176771768717697177071771717727177371774717757177671777717787177971780717817178271783717847178571786717877178871789717907179171792717937179471795717967179771798717997180071801718027180371804718057180671807718087180971810718117181271813718147181571816718177181871819718207182171822718237182471825718267182771828718297183071831718327183371834718357183671837718387183971840718417184271843718447184571846718477184871849718507185171852718537185471855718567185771858718597186071861718627186371864718657186671867718687186971870718717187271873718747187571876718777187871879718807188171882718837188471885718867188771888718897189071891718927189371894718957189671897718987189971900719017190271903719047190571906719077190871909719107191171912719137191471915719167191771918719197192071921719227192371924719257192671927719287192971930719317193271933719347193571936719377193871939719407194171942719437194471945719467194771948719497195071951719527195371954719557195671957719587195971960719617196271963719647196571966719677196871969719707197171972719737197471975719767197771978719797198071981719827198371984719857198671987719887198971990719917199271993719947199571996719977199871999720007200172002720037200472005720067200772008720097201072011720127201372014720157201672017720187201972020720217202272023720247202572026720277202872029720307203172032720337203472035720367203772038720397204072041720427204372044720457204672047720487204972050720517205272053720547205572056720577205872059720607206172062720637206472065720667206772068720697207072071720727207372074720757207672077720787207972080720817208272083720847208572086720877208872089720907209172092720937209472095720967209772098720997210072101721027210372104721057210672107721087210972110721117211272113721147211572116721177211872119721207212172122721237212472125721267212772128721297213072131721327213372134721357213672137721387213972140721417214272143721447214572146721477214872149721507215172152721537215472155721567215772158721597216072161721627216372164721657216672167721687216972170721717217272173721747217572176721777217872179721807218172182721837218472185721867218772188721897219072191721927219372194721957219672197721987219972200722017220272203722047220572206722077220872209722107221172212722137221472215722167221772218722197222072221722227222372224722257222672227722287222972230722317223272233722347223572236722377223872239722407224172242722437224472245722467224772248722497225072251722527225372254722557225672257722587225972260722617226272263722647226572266722677226872269722707227172272722737227472275722767227772278722797228072281722827228372284722857228672287722887228972290722917229272293722947229572296722977229872299723007230172302723037230472305723067230772308723097231072311723127231372314723157231672317723187231972320723217232272323723247232572326723277232872329723307233172332723337233472335723367233772338723397234072341723427234372344723457234672347723487234972350723517235272353723547235572356723577235872359723607236172362723637236472365723667236772368723697237072371723727237372374723757237672377723787237972380723817238272383723847238572386723877238872389723907239172392723937239472395723967239772398723997240072401724027240372404724057240672407724087240972410724117241272413724147241572416724177241872419724207242172422724237242472425724267242772428724297243072431724327243372434724357243672437724387243972440724417244272443724447244572446724477244872449724507245172452724537245472455724567245772458724597246072461724627246372464724657246672467724687246972470724717247272473724747247572476724777247872479724807248172482724837248472485724867248772488724897249072491724927249372494724957249672497724987249972500725017250272503725047250572506725077250872509725107251172512725137251472515725167251772518725197252072521725227252372524725257252672527725287252972530725317253272533725347253572536725377253872539725407254172542725437254472545725467254772548725497255072551725527255372554725557255672557725587255972560725617256272563725647256572566725677256872569725707257172572725737257472575725767257772578725797258072581725827258372584725857258672587725887258972590725917259272593725947259572596725977259872599726007260172602726037260472605726067260772608726097261072611726127261372614726157261672617726187261972620726217262272623726247262572626726277262872629726307263172632726337263472635726367263772638726397264072641726427264372644726457264672647726487264972650726517265272653726547265572656726577265872659726607266172662726637266472665726667266772668726697267072671726727267372674726757267672677726787267972680726817268272683726847268572686726877268872689726907269172692726937269472695726967269772698726997270072701727027270372704727057270672707727087270972710727117271272713727147271572716727177271872719727207272172722727237272472725727267272772728727297273072731727327273372734727357273672737727387273972740727417274272743727447274572746727477274872749727507275172752727537275472755727567275772758727597276072761727627276372764727657276672767727687276972770727717277272773727747277572776727777277872779727807278172782727837278472785727867278772788727897279072791727927279372794727957279672797727987279972800728017280272803728047280572806728077280872809728107281172812728137281472815728167281772818728197282072821728227282372824728257282672827728287282972830728317283272833728347283572836728377283872839728407284172842728437284472845728467284772848728497285072851728527285372854728557285672857728587285972860728617286272863728647286572866728677286872869728707287172872728737287472875728767287772878728797288072881728827288372884728857288672887728887288972890728917289272893728947289572896728977289872899729007290172902729037290472905729067290772908729097291072911729127291372914729157291672917729187291972920729217292272923729247292572926729277292872929729307293172932729337293472935729367293772938729397294072941729427294372944729457294672947729487294972950729517295272953729547295572956729577295872959729607296172962729637296472965729667296772968729697297072971729727297372974729757297672977729787297972980729817298272983729847298572986729877298872989729907299172992729937299472995729967299772998729997300073001730027300373004730057300673007730087300973010730117301273013730147301573016730177301873019730207302173022730237302473025730267302773028730297303073031730327303373034730357303673037730387303973040730417304273043730447304573046730477304873049730507305173052730537305473055730567305773058730597306073061730627306373064730657306673067730687306973070730717307273073730747307573076730777307873079730807308173082730837308473085730867308773088730897309073091730927309373094730957309673097730987309973100731017310273103731047310573106731077310873109731107311173112731137311473115731167311773118731197312073121731227312373124731257312673127731287312973130731317313273133731347313573136731377313873139731407314173142731437314473145731467314773148731497315073151731527315373154731557315673157731587315973160731617316273163731647316573166731677316873169731707317173172731737317473175731767317773178731797318073181731827318373184731857318673187731887318973190731917319273193731947319573196731977319873199732007320173202732037320473205732067320773208732097321073211732127321373214732157321673217732187321973220732217322273223732247322573226732277322873229732307323173232732337323473235732367323773238732397324073241732427324373244732457324673247732487324973250732517325273253732547325573256732577325873259732607326173262732637326473265732667326773268732697327073271732727327373274732757327673277732787327973280732817328273283732847328573286732877328873289732907329173292732937329473295732967329773298732997330073301733027330373304733057330673307733087330973310733117331273313733147331573316733177331873319733207332173322733237332473325733267332773328733297333073331733327333373334733357333673337733387333973340733417334273343733447334573346733477334873349733507335173352733537335473355733567335773358733597336073361733627336373364733657336673367733687336973370733717337273373733747337573376733777337873379733807338173382733837338473385733867338773388733897339073391733927339373394733957339673397733987339973400734017340273403734047340573406734077340873409734107341173412734137341473415734167341773418734197342073421734227342373424734257342673427734287342973430734317343273433734347343573436734377343873439734407344173442734437344473445734467344773448734497345073451734527345373454734557345673457734587345973460734617346273463734647346573466734677346873469734707347173472734737347473475734767347773478734797348073481734827348373484734857348673487734887348973490734917349273493734947349573496734977349873499735007350173502735037350473505735067350773508735097351073511735127351373514735157351673517735187351973520735217352273523735247352573526735277352873529735307353173532735337353473535735367353773538735397354073541735427354373544735457354673547735487354973550735517355273553735547355573556735577355873559735607356173562735637356473565735667356773568735697357073571735727357373574735757357673577735787357973580735817358273583735847358573586735877358873589735907359173592735937359473595735967359773598735997360073601736027360373604736057360673607736087360973610736117361273613736147361573616736177361873619736207362173622736237362473625736267362773628736297363073631736327363373634736357363673637736387363973640736417364273643736447364573646736477364873649736507365173652736537365473655736567365773658736597366073661736627366373664736657366673667736687366973670736717367273673736747367573676736777367873679736807368173682736837368473685736867368773688736897369073691736927369373694736957369673697736987369973700737017370273703737047370573706737077370873709737107371173712737137371473715737167371773718737197372073721737227372373724737257372673727737287372973730737317373273733737347373573736737377373873739737407374173742737437374473745737467374773748737497375073751737527375373754737557375673757737587375973760737617376273763737647376573766737677376873769737707377173772737737377473775737767377773778737797378073781737827378373784737857378673787737887378973790737917379273793737947379573796737977379873799738007380173802738037380473805738067380773808738097381073811738127381373814738157381673817738187381973820738217382273823738247382573826738277382873829738307383173832738337383473835738367383773838738397384073841738427384373844738457384673847738487384973850738517385273853738547385573856738577385873859738607386173862738637386473865738667386773868738697387073871738727387373874738757387673877738787387973880738817388273883738847388573886738877388873889738907389173892738937389473895738967389773898738997390073901739027390373904739057390673907739087390973910739117391273913739147391573916739177391873919739207392173922739237392473925739267392773928739297393073931739327393373934739357393673937739387393973940739417394273943739447394573946739477394873949739507395173952739537395473955739567395773958739597396073961739627396373964739657396673967739687396973970739717397273973739747397573976739777397873979739807398173982739837398473985739867398773988739897399073991739927399373994739957399673997739987399974000740017400274003740047400574006740077400874009740107401174012740137401474015740167401774018740197402074021740227402374024740257402674027740287402974030740317403274033740347403574036740377403874039740407404174042740437404474045740467404774048740497405074051740527405374054740557405674057740587405974060740617406274063740647406574066740677406874069740707407174072740737407474075740767407774078740797408074081740827408374084740857408674087740887408974090740917409274093740947409574096740977409874099741007410174102741037410474105741067410774108741097411074111741127411374114741157411674117741187411974120741217412274123741247412574126741277412874129741307413174132741337413474135741367413774138741397414074141741427414374144741457414674147741487414974150741517415274153741547415574156741577415874159741607416174162741637416474165741667416774168741697417074171741727417374174741757417674177741787417974180741817418274183741847418574186741877418874189741907419174192741937419474195741967419774198741997420074201742027420374204742057420674207742087420974210742117421274213742147421574216742177421874219742207422174222742237422474225742267422774228742297423074231742327423374234742357423674237742387423974240742417424274243742447424574246742477424874249742507425174252742537425474255742567425774258742597426074261742627426374264742657426674267742687426974270742717427274273742747427574276742777427874279742807428174282742837428474285742867428774288742897429074291742927429374294742957429674297742987429974300743017430274303743047430574306743077430874309743107431174312743137431474315743167431774318743197432074321743227432374324743257432674327743287432974330743317433274333743347433574336743377433874339743407434174342743437434474345743467434774348743497435074351743527435374354743557435674357743587435974360743617436274363743647436574366743677436874369743707437174372743737437474375743767437774378743797438074381743827438374384743857438674387743887438974390743917439274393743947439574396743977439874399744007440174402744037440474405744067440774408744097441074411744127441374414744157441674417744187441974420744217442274423744247442574426744277442874429744307443174432744337443474435744367443774438744397444074441744427444374444744457444674447744487444974450744517445274453744547445574456744577445874459744607446174462744637446474465744667446774468744697447074471744727447374474744757447674477744787447974480744817448274483744847448574486744877448874489744907449174492744937449474495744967449774498744997450074501745027450374504745057450674507745087450974510745117451274513745147451574516745177451874519745207452174522745237452474525745267452774528745297453074531745327453374534745357453674537745387453974540745417454274543745447454574546745477454874549745507455174552745537455474555745567455774558745597456074561745627456374564745657456674567745687456974570745717457274573745747457574576745777457874579745807458174582745837458474585745867458774588745897459074591745927459374594745957459674597745987459974600746017460274603746047460574606746077460874609746107461174612746137461474615746167461774618746197462074621746227462374624746257462674627746287462974630746317463274633746347463574636746377463874639746407464174642746437464474645746467464774648746497465074651746527465374654746557465674657746587465974660746617466274663746647466574666746677466874669746707467174672746737467474675746767467774678746797468074681746827468374684746857468674687746887468974690746917469274693746947469574696746977469874699747007470174702747037470474705747067470774708747097471074711747127471374714747157471674717747187471974720747217472274723747247472574726747277472874729747307473174732747337473474735747367473774738747397474074741747427474374744747457474674747747487474974750747517475274753747547475574756747577475874759747607476174762747637476474765747667476774768747697477074771747727477374774747757477674777747787477974780747817478274783747847478574786747877478874789747907479174792747937479474795747967479774798747997480074801748027480374804748057480674807748087480974810748117481274813748147481574816748177481874819748207482174822748237482474825748267482774828748297483074831748327483374834748357483674837748387483974840748417484274843748447484574846748477484874849748507485174852748537485474855748567485774858748597486074861748627486374864748657486674867748687486974870748717487274873748747487574876748777487874879748807488174882748837488474885748867488774888748897489074891748927489374894748957489674897748987489974900749017490274903749047490574906749077490874909749107491174912749137491474915749167491774918749197492074921749227492374924749257492674927749287492974930749317493274933749347493574936749377493874939749407494174942749437494474945749467494774948749497495074951749527495374954749557495674957749587495974960749617496274963749647496574966749677496874969749707497174972749737497474975749767497774978749797498074981749827498374984749857498674987749887498974990749917499274993749947499574996749977499874999750007500175002750037500475005750067500775008750097501075011750127501375014750157501675017750187501975020750217502275023750247502575026750277502875029750307503175032750337503475035750367503775038750397504075041750427504375044750457504675047750487504975050750517505275053750547505575056750577505875059750607506175062750637506475065750667506775068750697507075071750727507375074750757507675077750787507975080750817508275083750847508575086750877508875089750907509175092750937509475095750967509775098750997510075101751027510375104751057510675107751087510975110751117511275113751147511575116751177511875119751207512175122751237512475125751267512775128751297513075131751327513375134751357513675137751387513975140751417514275143751447514575146751477514875149751507515175152751537515475155751567515775158751597516075161751627516375164751657516675167751687516975170751717517275173751747517575176751777517875179751807518175182751837518475185751867518775188751897519075191751927519375194751957519675197751987519975200752017520275203752047520575206752077520875209752107521175212752137521475215752167521775218752197522075221752227522375224752257522675227752287522975230752317523275233752347523575236752377523875239752407524175242752437524475245752467524775248752497525075251752527525375254752557525675257752587525975260752617526275263752647526575266752677526875269752707527175272752737527475275752767527775278752797528075281752827528375284752857528675287752887528975290752917529275293752947529575296752977529875299753007530175302753037530475305753067530775308753097531075311753127531375314753157531675317753187531975320753217532275323753247532575326753277532875329753307533175332753337533475335753367533775338753397534075341753427534375344753457534675347753487534975350753517535275353753547535575356753577535875359753607536175362753637536475365753667536775368753697537075371753727537375374753757537675377753787537975380753817538275383753847538575386753877538875389753907539175392753937539475395753967539775398753997540075401754027540375404754057540675407754087540975410754117541275413754147541575416754177541875419754207542175422754237542475425754267542775428754297543075431754327543375434754357543675437754387543975440754417544275443754447544575446754477544875449754507545175452754537545475455754567545775458754597546075461754627546375464754657546675467754687546975470754717547275473754747547575476754777547875479754807548175482754837548475485754867548775488754897549075491754927549375494754957549675497754987549975500755017550275503755047550575506755077550875509755107551175512755137551475515755167551775518755197552075521755227552375524755257552675527755287552975530755317553275533755347553575536755377553875539755407554175542755437554475545755467554775548755497555075551755527555375554755557555675557755587555975560755617556275563755647556575566755677556875569755707557175572755737557475575755767557775578755797558075581755827558375584755857558675587755887558975590755917559275593755947559575596755977559875599756007560175602756037560475605756067560775608756097561075611756127561375614756157561675617756187561975620756217562275623756247562575626756277562875629756307563175632756337563475635756367563775638756397564075641756427564375644756457564675647756487564975650756517565275653756547565575656756577565875659756607566175662756637566475665756667566775668756697567075671756727567375674756757567675677756787567975680756817568275683756847568575686756877568875689756907569175692756937569475695756967569775698756997570075701757027570375704757057570675707757087570975710757117571275713757147571575716757177571875719757207572175722757237572475725757267572775728757297573075731757327573375734757357573675737757387573975740757417574275743757447574575746757477574875749757507575175752757537575475755757567575775758757597576075761757627576375764757657576675767757687576975770757717577275773757747577575776757777577875779757807578175782757837578475785757867578775788757897579075791757927579375794757957579675797757987579975800758017580275803758047580575806758077580875809758107581175812758137581475815758167581775818758197582075821758227582375824758257582675827758287582975830758317583275833758347583575836758377583875839758407584175842758437584475845758467584775848758497585075851758527585375854758557585675857758587585975860758617586275863758647586575866758677586875869758707587175872758737587475875758767587775878758797588075881758827588375884758857588675887758887588975890758917589275893758947589575896758977589875899759007590175902759037590475905759067590775908759097591075911759127591375914759157591675917759187591975920759217592275923759247592575926759277592875929759307593175932759337593475935759367593775938759397594075941759427594375944759457594675947759487594975950759517595275953759547595575956759577595875959759607596175962759637596475965759667596775968759697597075971759727597375974759757597675977759787597975980759817598275983759847598575986759877598875989759907599175992759937599475995759967599775998759997600076001760027600376004760057600676007760087600976010760117601276013760147601576016760177601876019760207602176022760237602476025760267602776028760297603076031760327603376034760357603676037760387603976040760417604276043760447604576046760477604876049760507605176052760537605476055760567605776058760597606076061760627606376064760657606676067760687606976070760717607276073760747607576076760777607876079760807608176082760837608476085760867608776088760897609076091760927609376094760957609676097760987609976100761017610276103761047610576106761077610876109761107611176112761137611476115761167611776118761197612076121761227612376124761257612676127761287612976130761317613276133761347613576136761377613876139761407614176142761437614476145761467614776148761497615076151761527615376154761557615676157761587615976160761617616276163761647616576166761677616876169761707617176172761737617476175761767617776178761797618076181761827618376184761857618676187761887618976190761917619276193761947619576196761977619876199762007620176202762037620476205762067620776208762097621076211762127621376214762157621676217762187621976220762217622276223762247622576226762277622876229762307623176232762337623476235762367623776238762397624076241762427624376244762457624676247762487624976250762517625276253762547625576256762577625876259762607626176262762637626476265762667626776268762697627076271762727627376274762757627676277762787627976280762817628276283762847628576286762877628876289762907629176292762937629476295762967629776298762997630076301763027630376304763057630676307763087630976310763117631276313763147631576316763177631876319763207632176322763237632476325763267632776328763297633076331763327633376334763357633676337763387633976340763417634276343763447634576346763477634876349763507635176352763537635476355763567635776358763597636076361763627636376364763657636676367763687636976370763717637276373763747637576376763777637876379763807638176382763837638476385763867638776388763897639076391763927639376394763957639676397763987639976400764017640276403764047640576406764077640876409764107641176412764137641476415764167641776418764197642076421764227642376424764257642676427764287642976430764317643276433764347643576436764377643876439764407644176442764437644476445764467644776448764497645076451764527645376454764557645676457764587645976460764617646276463764647646576466764677646876469764707647176472764737647476475764767647776478764797648076481764827648376484764857648676487764887648976490764917649276493764947649576496764977649876499765007650176502765037650476505765067650776508765097651076511765127651376514765157651676517765187651976520765217652276523765247652576526765277652876529765307653176532765337653476535765367653776538765397654076541765427654376544765457654676547765487654976550765517655276553765547655576556765577655876559765607656176562765637656476565765667656776568765697657076571765727657376574765757657676577765787657976580765817658276583765847658576586765877658876589765907659176592765937659476595765967659776598765997660076601766027660376604766057660676607766087660976610766117661276613766147661576616766177661876619766207662176622766237662476625766267662776628766297663076631766327663376634766357663676637766387663976640766417664276643766447664576646766477664876649766507665176652766537665476655766567665776658766597666076661766627666376664766657666676667766687666976670766717667276673766747667576676766777667876679766807668176682766837668476685766867668776688766897669076691766927669376694766957669676697766987669976700767017670276703767047670576706767077670876709767107671176712767137671476715767167671776718767197672076721767227672376724767257672676727767287672976730767317673276733767347673576736767377673876739767407674176742767437674476745767467674776748767497675076751767527675376754767557675676757767587675976760767617676276763767647676576766767677676876769767707677176772767737677476775767767677776778767797678076781767827678376784767857678676787767887678976790767917679276793767947679576796767977679876799768007680176802768037680476805768067680776808768097681076811768127681376814768157681676817768187681976820768217682276823768247682576826768277682876829768307683176832768337683476835768367683776838768397684076841768427684376844768457684676847768487684976850768517685276853768547685576856768577685876859768607686176862768637686476865768667686776868768697687076871768727687376874768757687676877768787687976880768817688276883768847688576886768877688876889768907689176892768937689476895768967689776898768997690076901769027690376904769057690676907769087690976910769117691276913769147691576916769177691876919769207692176922769237692476925769267692776928769297693076931769327693376934769357693676937769387693976940769417694276943769447694576946769477694876949769507695176952769537695476955769567695776958769597696076961769627696376964769657696676967769687696976970769717697276973769747697576976769777697876979769807698176982769837698476985769867698776988769897699076991769927699376994769957699676997769987699977000770017700277003770047700577006770077700877009770107701177012770137701477015770167701777018770197702077021770227702377024770257702677027770287702977030770317703277033770347703577036770377703877039770407704177042770437704477045770467704777048770497705077051770527705377054770557705677057770587705977060770617706277063770647706577066770677706877069770707707177072770737707477075770767707777078770797708077081770827708377084770857708677087770887708977090770917709277093770947709577096770977709877099771007710177102771037710477105771067710777108771097711077111771127711377114771157711677117771187711977120771217712277123771247712577126771277712877129771307713177132771337713477135771367713777138771397714077141771427714377144771457714677147771487714977150771517715277153771547715577156771577715877159771607716177162771637716477165771667716777168771697717077171771727717377174771757717677177771787717977180771817718277183771847718577186771877718877189771907719177192771937719477195771967719777198771997720077201772027720377204772057720677207772087720977210772117721277213772147721577216772177721877219772207722177222772237722477225772267722777228772297723077231772327723377234772357723677237772387723977240772417724277243772447724577246772477724877249772507725177252772537725477255772567725777258772597726077261772627726377264772657726677267772687726977270772717727277273772747727577276772777727877279772807728177282772837728477285772867728777288772897729077291772927729377294772957729677297772987729977300773017730277303773047730577306773077730877309773107731177312773137731477315773167731777318773197732077321773227732377324773257732677327773287732977330773317733277333773347733577336773377733877339773407734177342773437734477345773467734777348773497735077351773527735377354773557735677357773587735977360773617736277363773647736577366773677736877369773707737177372773737737477375773767737777378773797738077381773827738377384773857738677387773887738977390773917739277393773947739577396773977739877399774007740177402774037740477405774067740777408774097741077411774127741377414774157741677417774187741977420774217742277423774247742577426774277742877429774307743177432774337743477435774367743777438774397744077441774427744377444774457744677447774487744977450774517745277453774547745577456774577745877459774607746177462774637746477465774667746777468774697747077471774727747377474774757747677477774787747977480774817748277483774847748577486774877748877489774907749177492774937749477495774967749777498774997750077501775027750377504775057750677507775087750977510775117751277513775147751577516775177751877519775207752177522775237752477525775267752777528775297753077531775327753377534775357753677537775387753977540775417754277543775447754577546775477754877549775507755177552775537755477555775567755777558775597756077561775627756377564775657756677567775687756977570775717757277573775747757577576775777757877579775807758177582775837758477585775867758777588775897759077591775927759377594775957759677597775987759977600776017760277603776047760577606776077760877609776107761177612776137761477615776167761777618776197762077621776227762377624776257762677627776287762977630776317763277633776347763577636776377763877639776407764177642776437764477645776467764777648776497765077651776527765377654776557765677657776587765977660776617766277663776647766577666776677766877669776707767177672776737767477675776767767777678776797768077681776827768377684776857768677687776887768977690776917769277693776947769577696776977769877699777007770177702777037770477705777067770777708777097771077711777127771377714777157771677717777187771977720777217772277723777247772577726777277772877729777307773177732777337773477735777367773777738777397774077741777427774377744777457774677747777487774977750777517775277753777547775577756777577775877759777607776177762777637776477765777667776777768777697777077771777727777377774777757777677777777787777977780777817778277783777847778577786777877778877789777907779177792777937779477795777967779777798777997780077801778027780377804778057780677807778087780977810778117781277813778147781577816778177781877819778207782177822778237782477825778267782777828778297783077831778327783377834778357783677837778387783977840778417784277843778447784577846778477784877849778507785177852778537785477855778567785777858778597786077861778627786377864778657786677867778687786977870778717787277873778747787577876778777787877879778807788177882778837788477885778867788777888778897789077891778927789377894778957789677897778987789977900779017790277903779047790577906779077790877909779107791177912779137791477915779167791777918779197792077921779227792377924779257792677927779287792977930779317793277933779347793577936779377793877939779407794177942779437794477945779467794777948779497795077951779527795377954779557795677957779587795977960779617796277963779647796577966779677796877969779707797177972779737797477975779767797777978779797798077981779827798377984779857798677987779887798977990779917799277993779947799577996779977799877999780007800178002780037800478005780067800778008780097801078011780127801378014780157801678017780187801978020780217802278023780247802578026780277802878029780307803178032780337803478035780367803778038780397804078041780427804378044780457804678047780487804978050780517805278053780547805578056780577805878059780607806178062780637806478065780667806778068780697807078071780727807378074780757807678077780787807978080780817808278083780847808578086780877808878089780907809178092780937809478095780967809778098780997810078101781027810378104781057810678107781087810978110781117811278113781147811578116781177811878119781207812178122781237812478125781267812778128781297813078131781327813378134781357813678137781387813978140781417814278143781447814578146781477814878149781507815178152781537815478155781567815778158781597816078161781627816378164781657816678167781687816978170781717817278173781747817578176781777817878179781807818178182781837818478185781867818778188781897819078191781927819378194781957819678197781987819978200782017820278203782047820578206782077820878209782107821178212782137821478215782167821778218782197822078221782227822378224782257822678227782287822978230782317823278233782347823578236782377823878239782407824178242782437824478245782467824778248782497825078251782527825378254782557825678257782587825978260782617826278263782647826578266782677826878269782707827178272782737827478275782767827778278782797828078281782827828378284782857828678287782887828978290782917829278293782947829578296782977829878299783007830178302783037830478305783067830778308783097831078311783127831378314783157831678317783187831978320783217832278323783247832578326783277832878329783307833178332783337833478335783367833778338783397834078341783427834378344783457834678347783487834978350783517835278353783547835578356783577835878359783607836178362783637836478365783667836778368783697837078371783727837378374783757837678377783787837978380783817838278383783847838578386783877838878389783907839178392783937839478395783967839778398783997840078401784027840378404784057840678407784087840978410784117841278413784147841578416784177841878419784207842178422784237842478425784267842778428784297843078431784327843378434784357843678437784387843978440784417844278443784447844578446784477844878449784507845178452784537845478455784567845778458784597846078461784627846378464784657846678467784687846978470784717847278473784747847578476784777847878479784807848178482784837848478485784867848778488784897849078491784927849378494784957849678497784987849978500785017850278503785047850578506785077850878509785107851178512785137851478515785167851778518785197852078521785227852378524785257852678527785287852978530785317853278533785347853578536785377853878539785407854178542785437854478545785467854778548785497855078551785527855378554785557855678557785587855978560785617856278563785647856578566785677856878569785707857178572785737857478575785767857778578785797858078581785827858378584785857858678587785887858978590785917859278593785947859578596785977859878599786007860178602786037860478605786067860778608786097861078611786127861378614786157861678617786187861978620786217862278623786247862578626786277862878629786307863178632786337863478635786367863778638786397864078641786427864378644786457864678647786487864978650786517865278653786547865578656786577865878659786607866178662786637866478665786667866778668786697867078671786727867378674786757867678677786787867978680786817868278683786847868578686786877868878689786907869178692786937869478695786967869778698786997870078701787027870378704787057870678707787087870978710787117871278713787147871578716787177871878719787207872178722787237872478725787267872778728787297873078731787327873378734787357873678737787387873978740787417874278743787447874578746787477874878749787507875178752787537875478755787567875778758787597876078761787627876378764787657876678767787687876978770787717877278773787747877578776787777877878779787807878178782787837878478785787867878778788787897879078791787927879378794787957879678797787987879978800788017880278803788047880578806788077880878809788107881178812788137881478815788167881778818788197882078821788227882378824788257882678827788287882978830788317883278833788347883578836788377883878839788407884178842788437884478845788467884778848788497885078851788527885378854788557885678857788587885978860788617886278863788647886578866788677886878869788707887178872788737887478875788767887778878788797888078881788827888378884788857888678887788887888978890788917889278893788947889578896788977889878899789007890178902789037890478905789067890778908789097891078911789127891378914789157891678917789187891978920789217892278923789247892578926789277892878929789307893178932789337893478935789367893778938789397894078941789427894378944789457894678947789487894978950789517895278953789547895578956789577895878959789607896178962789637896478965789667896778968789697897078971789727897378974789757897678977789787897978980789817898278983789847898578986789877898878989789907899178992789937899478995789967899778998789997900079001790027900379004790057900679007790087900979010790117901279013790147901579016790177901879019790207902179022790237902479025790267902779028790297903079031790327903379034790357903679037790387903979040790417904279043790447904579046790477904879049790507905179052790537905479055790567905779058790597906079061790627906379064790657906679067790687906979070790717907279073790747907579076790777907879079790807908179082790837908479085790867908779088790897909079091790927909379094790957909679097790987909979100791017910279103791047910579106791077910879109791107911179112791137911479115791167911779118791197912079121791227912379124791257912679127791287912979130791317913279133791347913579136791377913879139791407914179142791437914479145791467914779148791497915079151791527915379154791557915679157791587915979160791617916279163791647916579166791677916879169791707917179172791737917479175791767917779178791797918079181791827918379184791857918679187791887918979190791917919279193791947919579196791977919879199792007920179202792037920479205792067920779208792097921079211792127921379214792157921679217792187921979220792217922279223792247922579226792277922879229792307923179232792337923479235792367923779238792397924079241792427924379244792457924679247792487924979250792517925279253792547925579256792577925879259792607926179262792637926479265792667926779268792697927079271792727927379274792757927679277792787927979280792817928279283792847928579286792877928879289792907929179292792937929479295792967929779298792997930079301793027930379304793057930679307793087930979310793117931279313793147931579316793177931879319793207932179322793237932479325793267932779328793297933079331793327933379334793357933679337793387933979340793417934279343793447934579346793477934879349793507935179352793537935479355793567935779358793597936079361793627936379364793657936679367793687936979370793717937279373793747937579376793777937879379793807938179382793837938479385793867938779388793897939079391793927939379394793957939679397793987939979400794017940279403794047940579406794077940879409794107941179412794137941479415794167941779418794197942079421794227942379424794257942679427794287942979430794317943279433794347943579436794377943879439794407944179442794437944479445794467944779448794497945079451794527945379454794557945679457794587945979460794617946279463794647946579466794677946879469794707947179472794737947479475794767947779478794797948079481794827948379484794857948679487794887948979490794917949279493794947949579496794977949879499795007950179502795037950479505795067950779508795097951079511795127951379514795157951679517795187951979520795217952279523795247952579526795277952879529795307953179532795337953479535795367953779538795397954079541795427954379544795457954679547795487954979550795517955279553795547955579556795577955879559795607956179562795637956479565795667956779568795697957079571795727957379574795757957679577795787957979580795817958279583795847958579586795877958879589795907959179592795937959479595795967959779598795997960079601796027960379604796057960679607796087960979610796117961279613796147961579616796177961879619796207962179622796237962479625796267962779628796297963079631796327963379634796357963679637796387963979640796417964279643796447964579646796477964879649796507965179652796537965479655796567965779658796597966079661796627966379664796657966679667796687966979670796717967279673796747967579676796777967879679796807968179682796837968479685796867968779688796897969079691796927969379694796957969679697796987969979700797017970279703797047970579706797077970879709797107971179712797137971479715797167971779718797197972079721797227972379724797257972679727797287972979730797317973279733797347973579736797377973879739797407974179742797437974479745797467974779748797497975079751797527975379754797557975679757797587975979760797617976279763797647976579766797677976879769797707977179772797737977479775797767977779778797797978079781797827978379784797857978679787797887978979790797917979279793797947979579796797977979879799798007980179802798037980479805798067980779808798097981079811798127981379814798157981679817798187981979820798217982279823798247982579826798277982879829798307983179832798337983479835798367983779838798397984079841798427984379844798457984679847798487984979850798517985279853798547985579856798577985879859798607986179862798637986479865798667986779868798697987079871798727987379874798757987679877798787987979880798817988279883798847988579886798877988879889798907989179892798937989479895798967989779898798997990079901799027990379904799057990679907799087990979910799117991279913799147991579916799177991879919799207992179922799237992479925799267992779928799297993079931799327993379934799357993679937799387993979940799417994279943799447994579946799477994879949799507995179952799537995479955799567995779958799597996079961799627996379964799657996679967799687996979970799717997279973799747997579976799777997879979799807998179982799837998479985799867998779988799897999079991799927999379994799957999679997799987999980000800018000280003800048000580006800078000880009800108001180012800138001480015800168001780018800198002080021800228002380024800258002680027800288002980030800318003280033800348003580036800378003880039800408004180042800438004480045800468004780048800498005080051800528005380054800558005680057800588005980060800618006280063800648006580066800678006880069800708007180072800738007480075800768007780078800798008080081800828008380084800858008680087800888008980090800918009280093800948009580096800978009880099801008010180102801038010480105801068010780108801098011080111801128011380114801158011680117801188011980120801218012280123801248012580126801278012880129801308013180132801338013480135801368013780138801398014080141801428014380144801458014680147801488014980150801518015280153801548015580156801578015880159801608016180162801638016480165801668016780168801698017080171801728017380174801758017680177801788017980180801818018280183801848018580186801878018880189801908019180192801938019480195801968019780198801998020080201802028020380204802058020680207802088020980210802118021280213802148021580216802178021880219802208022180222802238022480225802268022780228802298023080231802328023380234802358023680237802388023980240802418024280243802448024580246802478024880249802508025180252802538025480255802568025780258802598026080261802628026380264802658026680267802688026980270802718027280273802748027580276802778027880279802808028180282802838028480285802868028780288802898029080291802928029380294802958029680297802988029980300803018030280303803048030580306803078030880309803108031180312803138031480315803168031780318803198032080321803228032380324803258032680327803288032980330803318033280333803348033580336803378033880339803408034180342803438034480345803468034780348803498035080351803528035380354803558035680357803588035980360803618036280363803648036580366803678036880369803708037180372803738037480375803768037780378803798038080381803828038380384803858038680387803888038980390803918039280393803948039580396803978039880399804008040180402804038040480405804068040780408804098041080411804128041380414804158041680417804188041980420804218042280423804248042580426804278042880429804308043180432804338043480435804368043780438804398044080441804428044380444804458044680447804488044980450804518045280453804548045580456804578045880459804608046180462804638046480465804668046780468804698047080471804728047380474804758047680477804788047980480804818048280483804848048580486804878048880489804908049180492804938049480495804968049780498804998050080501805028050380504805058050680507805088050980510805118051280513805148051580516805178051880519805208052180522805238052480525805268052780528805298053080531805328053380534805358053680537805388053980540805418054280543805448054580546805478054880549805508055180552805538055480555805568055780558805598056080561805628056380564805658056680567805688056980570805718057280573805748057580576805778057880579805808058180582805838058480585805868058780588805898059080591805928059380594805958059680597805988059980600806018060280603806048060580606806078060880609806108061180612806138061480615806168061780618806198062080621806228062380624806258062680627806288062980630806318063280633806348063580636806378063880639806408064180642806438064480645806468064780648806498065080651806528065380654806558065680657806588065980660806618066280663806648066580666806678066880669806708067180672806738067480675806768067780678806798068080681806828068380684806858068680687806888068980690806918069280693806948069580696806978069880699807008070180702807038070480705807068070780708807098071080711807128071380714807158071680717807188071980720807218072280723807248072580726807278072880729807308073180732807338073480735807368073780738807398074080741807428074380744807458074680747807488074980750807518075280753807548075580756807578075880759807608076180762807638076480765807668076780768807698077080771807728077380774807758077680777807788077980780807818078280783807848078580786807878078880789807908079180792807938079480795807968079780798807998080080801808028080380804808058080680807808088080980810808118081280813808148081580816808178081880819808208082180822808238082480825808268082780828808298083080831808328083380834808358083680837808388083980840808418084280843808448084580846808478084880849808508085180852808538085480855808568085780858808598086080861808628086380864808658086680867808688086980870808718087280873808748087580876808778087880879808808088180882808838088480885808868088780888808898089080891808928089380894808958089680897808988089980900809018090280903809048090580906809078090880909809108091180912809138091480915809168091780918809198092080921809228092380924809258092680927809288092980930809318093280933809348093580936809378093880939809408094180942809438094480945809468094780948809498095080951809528095380954809558095680957809588095980960809618096280963809648096580966809678096880969809708097180972809738097480975809768097780978809798098080981809828098380984809858098680987809888098980990809918099280993809948099580996809978099880999810008100181002810038100481005810068100781008810098101081011810128101381014810158101681017810188101981020810218102281023810248102581026810278102881029810308103181032810338103481035810368103781038810398104081041810428104381044810458104681047810488104981050810518105281053810548105581056810578105881059810608106181062810638106481065810668106781068810698107081071810728107381074810758107681077810788107981080810818108281083810848108581086810878108881089810908109181092810938109481095810968109781098810998110081101811028110381104811058110681107811088110981110811118111281113811148111581116811178111881119811208112181122811238112481125811268112781128811298113081131811328113381134811358113681137811388113981140811418114281143811448114581146811478114881149811508115181152811538115481155811568115781158811598116081161811628116381164811658116681167811688116981170811718117281173811748117581176811778117881179811808118181182811838118481185811868118781188811898119081191811928119381194811958119681197811988119981200812018120281203812048120581206812078120881209812108121181212812138121481215812168121781218812198122081221812228122381224812258122681227812288122981230812318123281233812348123581236812378123881239812408124181242812438124481245812468124781248812498125081251812528125381254812558125681257812588125981260812618126281263812648126581266812678126881269812708127181272812738127481275812768127781278812798128081281812828128381284812858128681287812888128981290812918129281293812948129581296812978129881299813008130181302813038130481305813068130781308813098131081311813128131381314813158131681317813188131981320813218132281323813248132581326813278132881329813308133181332813338133481335813368133781338813398134081341813428134381344813458134681347813488134981350813518135281353813548135581356813578135881359813608136181362813638136481365813668136781368813698137081371813728137381374813758137681377813788137981380813818138281383813848138581386813878138881389813908139181392813938139481395813968139781398813998140081401814028140381404814058140681407814088140981410814118141281413814148141581416814178141881419814208142181422814238142481425814268142781428814298143081431814328143381434814358143681437814388143981440814418144281443814448144581446814478144881449814508145181452814538145481455814568145781458814598146081461814628146381464814658146681467814688146981470814718147281473814748147581476814778147881479814808148181482814838148481485814868148781488814898149081491814928149381494814958149681497814988149981500815018150281503815048150581506815078150881509815108151181512815138151481515815168151781518815198152081521815228152381524815258152681527815288152981530815318153281533815348153581536815378153881539815408154181542815438154481545815468154781548815498155081551815528155381554815558155681557815588155981560815618156281563815648156581566815678156881569815708157181572815738157481575815768157781578815798158081581815828158381584815858158681587815888158981590815918159281593815948159581596815978159881599816008160181602816038160481605816068160781608816098161081611816128161381614816158161681617816188161981620816218162281623816248162581626816278162881629816308163181632816338163481635816368163781638816398164081641816428164381644816458164681647816488164981650816518165281653816548165581656816578165881659816608166181662816638166481665816668166781668816698167081671816728167381674816758167681677816788167981680816818168281683816848168581686816878168881689816908169181692816938169481695816968169781698816998170081701817028170381704817058170681707817088170981710817118171281713817148171581716817178171881719817208172181722817238172481725817268172781728817298173081731817328173381734817358173681737817388173981740817418174281743817448174581746817478174881749817508175181752817538175481755817568175781758817598176081761817628176381764817658176681767817688176981770817718177281773817748177581776817778177881779817808178181782817838178481785817868178781788817898179081791817928179381794817958179681797817988179981800818018180281803818048180581806818078180881809818108181181812818138181481815818168181781818818198182081821818228182381824818258182681827818288182981830818318183281833818348183581836818378183881839818408184181842818438184481845818468184781848818498185081851818528185381854818558185681857818588185981860818618186281863818648186581866818678186881869818708187181872818738187481875818768187781878818798188081881818828188381884818858188681887818888188981890818918189281893818948189581896818978189881899819008190181902819038190481905819068190781908819098191081911819128191381914819158191681917819188191981920819218192281923819248192581926819278192881929819308193181932819338193481935819368193781938819398194081941819428194381944819458194681947819488194981950819518195281953819548195581956819578195881959819608196181962819638196481965819668196781968819698197081971819728197381974819758197681977819788197981980819818198281983819848198581986819878198881989819908199181992819938199481995819968199781998819998200082001820028200382004820058200682007820088200982010820118201282013820148201582016820178201882019820208202182022820238202482025820268202782028820298203082031820328203382034820358203682037820388203982040820418204282043820448204582046820478204882049820508205182052820538205482055820568205782058820598206082061820628206382064820658206682067820688206982070820718207282073820748207582076820778207882079820808208182082820838208482085820868208782088820898209082091820928209382094820958209682097820988209982100821018210282103821048210582106821078210882109821108211182112821138211482115821168211782118821198212082121821228212382124821258212682127821288212982130821318213282133821348213582136821378213882139821408214182142821438214482145821468214782148821498215082151821528215382154821558215682157821588215982160821618216282163821648216582166821678216882169821708217182172821738217482175821768217782178821798218082181821828218382184821858218682187821888218982190821918219282193821948219582196821978219882199822008220182202822038220482205822068220782208822098221082211822128221382214822158221682217822188221982220822218222282223822248222582226822278222882229822308223182232822338223482235822368223782238822398224082241822428224382244822458224682247822488224982250822518225282253822548225582256822578225882259822608226182262822638226482265822668226782268822698227082271822728227382274822758227682277822788227982280822818228282283822848228582286822878228882289822908229182292822938229482295822968229782298822998230082301823028230382304823058230682307823088230982310823118231282313823148231582316823178231882319823208232182322823238232482325823268232782328823298233082331823328233382334823358233682337823388233982340823418234282343823448234582346823478234882349823508235182352823538235482355823568235782358823598236082361823628236382364823658236682367823688236982370823718237282373823748237582376823778237882379823808238182382823838238482385823868238782388823898239082391823928239382394823958239682397823988239982400824018240282403824048240582406824078240882409824108241182412824138241482415824168241782418824198242082421824228242382424824258242682427824288242982430824318243282433824348243582436824378243882439824408244182442824438244482445824468244782448824498245082451824528245382454824558245682457824588245982460824618246282463824648246582466824678246882469824708247182472824738247482475824768247782478824798248082481824828248382484824858248682487824888248982490824918249282493824948249582496824978249882499825008250182502825038250482505825068250782508825098251082511825128251382514825158251682517825188251982520825218252282523825248252582526825278252882529825308253182532825338253482535825368253782538825398254082541825428254382544825458254682547825488254982550825518255282553825548255582556825578255882559825608256182562825638256482565825668256782568825698257082571825728257382574825758257682577825788257982580825818258282583825848258582586825878258882589825908259182592825938259482595825968259782598825998260082601826028260382604826058260682607826088260982610826118261282613826148261582616826178261882619826208262182622826238262482625826268262782628826298263082631826328263382634826358263682637826388263982640826418264282643826448264582646826478264882649826508265182652826538265482655826568265782658826598266082661826628266382664826658266682667826688266982670826718267282673826748267582676826778267882679826808268182682826838268482685826868268782688826898269082691826928269382694826958269682697826988269982700827018270282703827048270582706827078270882709827108271182712827138271482715827168271782718827198272082721827228272382724827258272682727827288272982730827318273282733827348273582736827378273882739827408274182742827438274482745827468274782748827498275082751827528275382754827558275682757827588275982760827618276282763827648276582766827678276882769827708277182772827738277482775827768277782778827798278082781827828278382784827858278682787827888278982790827918279282793827948279582796827978279882799828008280182802828038280482805828068280782808828098281082811828128281382814828158281682817828188281982820828218282282823828248282582826828278282882829828308283182832828338283482835828368283782838828398284082841828428284382844828458284682847828488284982850828518285282853828548285582856828578285882859828608286182862828638286482865828668286782868828698287082871828728287382874828758287682877828788287982880828818288282883828848288582886828878288882889828908289182892828938289482895828968289782898828998290082901829028290382904829058290682907829088290982910829118291282913829148291582916829178291882919829208292182922829238292482925829268292782928829298293082931829328293382934829358293682937829388293982940829418294282943829448294582946829478294882949829508295182952829538295482955829568295782958829598296082961829628296382964829658296682967829688296982970829718297282973829748297582976829778297882979829808298182982829838298482985829868298782988829898299082991829928299382994829958299682997829988299983000830018300283003830048300583006830078300883009830108301183012830138301483015830168301783018830198302083021830228302383024830258302683027830288302983030830318303283033830348303583036830378303883039830408304183042830438304483045830468304783048830498305083051830528305383054830558305683057830588305983060830618306283063830648306583066830678306883069830708307183072830738307483075830768307783078830798308083081830828308383084830858308683087830888308983090830918309283093830948309583096830978309883099831008310183102831038310483105831068310783108831098311083111831128311383114831158311683117831188311983120831218312283123831248312583126831278312883129831308313183132831338313483135831368313783138831398314083141831428314383144831458314683147831488314983150831518315283153831548315583156831578315883159831608316183162831638316483165831668316783168831698317083171831728317383174831758317683177831788317983180831818318283183831848318583186831878318883189831908319183192831938319483195831968319783198831998320083201832028320383204832058320683207832088320983210832118321283213832148321583216832178321883219832208322183222832238322483225832268322783228832298323083231832328323383234832358323683237832388323983240832418324283243832448324583246832478324883249832508325183252832538325483255832568325783258832598326083261832628326383264832658326683267832688326983270832718327283273832748327583276832778327883279832808328183282832838328483285832868328783288832898329083291832928329383294832958329683297832988329983300833018330283303833048330583306833078330883309833108331183312833138331483315833168331783318833198332083321833228332383324833258332683327833288332983330833318333283333833348333583336833378333883339833408334183342833438334483345833468334783348833498335083351833528335383354833558335683357833588335983360833618336283363833648336583366833678336883369833708337183372833738337483375833768337783378833798338083381833828338383384833858338683387833888338983390833918339283393833948339583396833978339883399834008340183402834038340483405834068340783408834098341083411834128341383414834158341683417834188341983420834218342283423834248342583426834278342883429834308343183432834338343483435834368343783438834398344083441834428344383444834458344683447834488344983450834518345283453834548345583456834578345883459834608346183462834638346483465834668346783468834698347083471834728347383474834758347683477834788347983480834818348283483834848348583486834878348883489834908349183492834938349483495834968349783498834998350083501835028350383504835058350683507835088350983510835118351283513835148351583516835178351883519835208352183522835238352483525835268352783528835298353083531835328353383534835358353683537835388353983540835418354283543835448354583546835478354883549835508355183552835538355483555835568355783558835598356083561835628356383564835658356683567835688356983570835718357283573835748357583576835778357883579835808358183582835838358483585835868358783588835898359083591835928359383594835958359683597835988359983600836018360283603836048360583606836078360883609836108361183612836138361483615836168361783618836198362083621836228362383624836258362683627836288362983630836318363283633836348363583636836378363883639836408364183642836438364483645836468364783648836498365083651836528365383654836558365683657836588365983660836618366283663836648366583666836678366883669836708367183672836738367483675836768367783678836798368083681836828368383684836858368683687836888368983690836918369283693836948369583696836978369883699837008370183702837038370483705837068370783708837098371083711837128371383714837158371683717837188371983720837218372283723837248372583726837278372883729837308373183732837338373483735837368373783738837398374083741837428374383744837458374683747837488374983750837518375283753837548375583756837578375883759837608376183762837638376483765837668376783768837698377083771837728377383774837758377683777837788377983780837818378283783837848378583786837878378883789837908379183792837938379483795837968379783798837998380083801838028380383804838058380683807838088380983810838118381283813838148381583816838178381883819838208382183822838238382483825838268382783828838298383083831838328383383834838358383683837838388383983840838418384283843838448384583846838478384883849838508385183852838538385483855838568385783858838598386083861838628386383864838658386683867838688386983870838718387283873838748387583876838778387883879838808388183882838838388483885838868388783888838898389083891838928389383894838958389683897838988389983900839018390283903839048390583906839078390883909839108391183912839138391483915839168391783918839198392083921839228392383924839258392683927839288392983930839318393283933839348393583936839378393883939839408394183942839438394483945839468394783948839498395083951839528395383954839558395683957839588395983960839618396283963839648396583966839678396883969839708397183972839738397483975839768397783978839798398083981839828398383984839858398683987839888398983990839918399283993839948399583996839978399883999840008400184002840038400484005840068400784008840098401084011840128401384014840158401684017840188401984020840218402284023840248402584026840278402884029840308403184032840338403484035840368403784038840398404084041840428404384044840458404684047840488404984050840518405284053840548405584056840578405884059840608406184062840638406484065840668406784068840698407084071840728407384074840758407684077840788407984080840818408284083840848408584086840878408884089840908409184092840938409484095840968409784098840998410084101841028410384104841058410684107841088410984110841118411284113841148411584116841178411884119841208412184122841238412484125841268412784128841298413084131841328413384134841358413684137841388413984140841418414284143841448414584146841478414884149841508415184152841538415484155841568415784158841598416084161841628416384164841658416684167841688416984170841718417284173841748417584176841778417884179841808418184182841838418484185841868418784188841898419084191841928419384194841958419684197841988419984200842018420284203842048420584206842078420884209842108421184212842138421484215842168421784218842198422084221842228422384224842258422684227842288422984230842318423284233842348423584236842378423884239842408424184242842438424484245842468424784248842498425084251842528425384254842558425684257842588425984260842618426284263842648426584266842678426884269842708427184272842738427484275842768427784278842798428084281842828428384284842858428684287842888428984290842918429284293842948429584296842978429884299843008430184302843038430484305843068430784308843098431084311843128431384314843158431684317843188431984320843218432284323843248432584326843278432884329843308433184332843338433484335843368433784338843398434084341843428434384344843458434684347843488434984350843518435284353843548435584356843578435884359843608436184362843638436484365843668436784368843698437084371843728437384374843758437684377843788437984380843818438284383843848438584386843878438884389843908439184392843938439484395843968439784398843998440084401844028440384404844058440684407844088440984410844118441284413844148441584416844178441884419844208442184422844238442484425844268442784428844298443084431844328443384434844358443684437844388443984440844418444284443844448444584446844478444884449844508445184452844538445484455844568445784458844598446084461844628446384464844658446684467844688446984470844718447284473844748447584476844778447884479844808448184482844838448484485844868448784488844898449084491844928449384494844958449684497844988449984500845018450284503845048450584506845078450884509845108451184512845138451484515845168451784518845198452084521845228452384524845258452684527845288452984530845318453284533845348453584536845378453884539845408454184542845438454484545845468454784548845498455084551845528455384554845558455684557845588455984560845618456284563845648456584566845678456884569845708457184572845738457484575845768457784578845798458084581845828458384584845858458684587845888458984590845918459284593845948459584596845978459884599846008460184602846038460484605846068460784608846098461084611846128461384614846158461684617846188461984620846218462284623846248462584626846278462884629846308463184632846338463484635846368463784638846398464084641846428464384644846458464684647846488464984650846518465284653846548465584656846578465884659846608466184662846638466484665846668466784668846698467084671846728467384674846758467684677846788467984680846818468284683846848468584686846878468884689846908469184692846938469484695846968469784698846998470084701847028470384704847058470684707847088470984710847118471284713847148471584716847178471884719847208472184722847238472484725847268472784728847298473084731847328473384734847358473684737847388473984740847418474284743847448474584746847478474884749847508475184752847538475484755847568475784758847598476084761847628476384764847658476684767847688476984770847718477284773847748477584776847778477884779847808478184782847838478484785847868478784788847898479084791847928479384794847958479684797847988479984800848018480284803848048480584806848078480884809848108481184812848138481484815848168481784818848198482084821848228482384824848258482684827848288482984830848318483284833848348483584836848378483884839848408484184842848438484484845848468484784848848498485084851848528485384854848558485684857848588485984860848618486284863848648486584866848678486884869848708487184872848738487484875848768487784878848798488084881848828488384884848858488684887848888488984890848918489284893848948489584896848978489884899849008490184902849038490484905849068490784908849098491084911849128491384914849158491684917849188491984920849218492284923849248492584926849278492884929849308493184932849338493484935849368493784938849398494084941849428494384944849458494684947849488494984950849518495284953849548495584956849578495884959849608496184962849638496484965849668496784968849698497084971849728497384974849758497684977849788497984980849818498284983849848498584986849878498884989849908499184992849938499484995849968499784998849998500085001850028500385004850058500685007850088500985010850118501285013850148501585016850178501885019850208502185022850238502485025850268502785028850298503085031850328503385034850358503685037850388503985040850418504285043850448504585046850478504885049850508505185052850538505485055850568505785058850598506085061850628506385064850658506685067850688506985070850718507285073850748507585076850778507885079850808508185082850838508485085850868508785088850898509085091850928509385094850958509685097850988509985100851018510285103851048510585106851078510885109851108511185112851138511485115851168511785118851198512085121851228512385124851258512685127851288512985130851318513285133851348513585136851378513885139851408514185142851438514485145851468514785148851498515085151851528515385154851558515685157851588515985160851618516285163851648516585166851678516885169851708517185172851738517485175851768517785178851798518085181851828518385184851858518685187851888518985190851918519285193851948519585196851978519885199852008520185202852038520485205852068520785208852098521085211852128521385214852158521685217852188521985220852218522285223852248522585226852278522885229852308523185232852338523485235852368523785238852398524085241852428524385244852458524685247852488524985250852518525285253852548525585256852578525885259852608526185262852638526485265852668526785268852698527085271852728527385274852758527685277852788527985280852818528285283852848528585286852878528885289852908529185292852938529485295852968529785298852998530085301853028530385304853058530685307853088530985310853118531285313853148531585316853178531885319853208532185322853238532485325853268532785328853298533085331853328533385334853358533685337853388533985340853418534285343853448534585346853478534885349853508535185352853538535485355853568535785358853598536085361853628536385364853658536685367853688536985370853718537285373853748537585376853778537885379853808538185382853838538485385853868538785388853898539085391853928539385394853958539685397853988539985400854018540285403854048540585406854078540885409854108541185412854138541485415854168541785418854198542085421854228542385424854258542685427854288542985430854318543285433854348543585436854378543885439854408544185442854438544485445854468544785448854498545085451854528545385454854558545685457854588545985460854618546285463854648546585466854678546885469854708547185472854738547485475854768547785478854798548085481854828548385484854858548685487854888548985490854918549285493854948549585496854978549885499855008550185502855038550485505855068550785508855098551085511855128551385514855158551685517855188551985520855218552285523855248552585526855278552885529855308553185532855338553485535855368553785538855398554085541855428554385544855458554685547855488554985550855518555285553855548555585556855578555885559855608556185562855638556485565855668556785568855698557085571855728557385574855758557685577855788557985580855818558285583855848558585586855878558885589855908559185592855938559485595855968559785598855998560085601856028560385604856058560685607856088560985610856118561285613856148561585616856178561885619856208562185622856238562485625856268562785628856298563085631856328563385634856358563685637856388563985640856418564285643856448564585646856478564885649856508565185652856538565485655856568565785658856598566085661856628566385664856658566685667856688566985670856718567285673856748567585676856778567885679856808568185682856838568485685856868568785688856898569085691856928569385694856958569685697856988569985700857018570285703857048570585706857078570885709857108571185712857138571485715857168571785718857198572085721857228572385724857258572685727857288572985730857318573285733857348573585736857378573885739857408574185742857438574485745857468574785748857498575085751857528575385754857558575685757857588575985760857618576285763857648576585766857678576885769857708577185772857738577485775857768577785778857798578085781857828578385784857858578685787857888578985790857918579285793857948579585796857978579885799858008580185802858038580485805858068580785808858098581085811858128581385814858158581685817858188581985820858218582285823858248582585826858278582885829858308583185832858338583485835858368583785838858398584085841858428584385844858458584685847858488584985850858518585285853858548585585856858578585885859858608586185862858638586485865858668586785868858698587085871858728587385874858758587685877858788587985880858818588285883858848588585886858878588885889858908589185892858938589485895858968589785898858998590085901859028590385904859058590685907859088590985910859118591285913859148591585916859178591885919859208592185922859238592485925859268592785928859298593085931859328593385934859358593685937859388593985940859418594285943859448594585946859478594885949859508595185952859538595485955859568595785958859598596085961859628596385964859658596685967859688596985970859718597285973859748597585976859778597885979859808598185982859838598485985859868598785988859898599085991859928599385994859958599685997859988599986000860018600286003860048600586006860078600886009860108601186012860138601486015860168601786018860198602086021860228602386024860258602686027860288602986030860318603286033860348603586036860378603886039860408604186042860438604486045860468604786048860498605086051860528605386054860558605686057860588605986060860618606286063860648606586066860678606886069860708607186072860738607486075860768607786078860798608086081860828608386084860858608686087860888608986090860918609286093860948609586096860978609886099861008610186102861038610486105861068610786108861098611086111861128611386114861158611686117861188611986120861218612286123861248612586126861278612886129861308613186132861338613486135861368613786138861398614086141861428614386144861458614686147861488614986150861518615286153861548615586156861578615886159861608616186162861638616486165861668616786168861698617086171861728617386174861758617686177861788617986180861818618286183861848618586186861878618886189861908619186192861938619486195861968619786198861998620086201862028620386204862058620686207862088620986210862118621286213862148621586216862178621886219862208622186222862238622486225862268622786228862298623086231862328623386234862358623686237862388623986240862418624286243862448624586246862478624886249862508625186252862538625486255862568625786258862598626086261862628626386264862658626686267862688626986270862718627286273862748627586276862778627886279862808628186282862838628486285862868628786288862898629086291862928629386294862958629686297862988629986300863018630286303863048630586306863078630886309863108631186312863138631486315863168631786318863198632086321863228632386324863258632686327863288632986330863318633286333863348633586336863378633886339863408634186342863438634486345863468634786348863498635086351863528635386354863558635686357863588635986360863618636286363863648636586366863678636886369863708637186372863738637486375863768637786378863798638086381863828638386384863858638686387863888638986390863918639286393863948639586396863978639886399864008640186402864038640486405864068640786408864098641086411864128641386414864158641686417864188641986420864218642286423864248642586426864278642886429864308643186432864338643486435864368643786438864398644086441864428644386444864458644686447864488644986450864518645286453864548645586456864578645886459864608646186462864638646486465864668646786468864698647086471864728647386474864758647686477864788647986480864818648286483864848648586486864878648886489864908649186492864938649486495864968649786498864998650086501865028650386504865058650686507865088650986510865118651286513865148651586516865178651886519865208652186522865238652486525865268652786528865298653086531865328653386534865358653686537865388653986540865418654286543865448654586546865478654886549865508655186552865538655486555865568655786558865598656086561865628656386564865658656686567865688656986570865718657286573865748657586576865778657886579865808658186582865838658486585865868658786588865898659086591865928659386594865958659686597865988659986600866018660286603866048660586606866078660886609866108661186612866138661486615866168661786618866198662086621866228662386624866258662686627866288662986630866318663286633866348663586636866378663886639866408664186642866438664486645866468664786648866498665086651866528665386654866558665686657866588665986660866618666286663866648666586666866678666886669866708667186672866738667486675866768667786678866798668086681866828668386684866858668686687866888668986690866918669286693866948669586696866978669886699867008670186702867038670486705867068670786708867098671086711867128671386714867158671686717867188671986720867218672286723867248672586726867278672886729867308673186732867338673486735867368673786738867398674086741867428674386744867458674686747867488674986750867518675286753867548675586756867578675886759867608676186762867638676486765867668676786768867698677086771867728677386774867758677686777867788677986780867818678286783867848678586786867878678886789867908679186792867938679486795867968679786798867998680086801868028680386804868058680686807868088680986810868118681286813868148681586816868178681886819868208682186822868238682486825868268682786828868298683086831868328683386834868358683686837868388683986840868418684286843868448684586846868478684886849868508685186852868538685486855868568685786858868598686086861868628686386864868658686686867868688686986870868718687286873868748687586876868778687886879868808688186882868838688486885868868688786888868898689086891868928689386894868958689686897868988689986900869018690286903869048690586906869078690886909869108691186912869138691486915869168691786918869198692086921869228692386924869258692686927869288692986930869318693286933869348693586936869378693886939869408694186942869438694486945869468694786948869498695086951869528695386954869558695686957869588695986960869618696286963869648696586966869678696886969869708697186972869738697486975869768697786978869798698086981869828698386984869858698686987869888698986990869918699286993869948699586996869978699886999870008700187002870038700487005870068700787008870098701087011870128701387014870158701687017870188701987020870218702287023870248702587026870278702887029870308703187032870338703487035870368703787038870398704087041870428704387044870458704687047870488704987050870518705287053870548705587056870578705887059870608706187062870638706487065870668706787068870698707087071870728707387074870758707687077870788707987080870818708287083870848708587086870878708887089870908709187092870938709487095870968709787098870998710087101871028710387104871058710687107871088710987110871118711287113871148711587116871178711887119871208712187122871238712487125871268712787128871298713087131871328713387134871358713687137871388713987140871418714287143871448714587146871478714887149871508715187152871538715487155871568715787158871598716087161871628716387164871658716687167871688716987170871718717287173871748717587176871778717887179871808718187182871838718487185871868718787188871898719087191871928719387194871958719687197871988719987200872018720287203872048720587206872078720887209872108721187212872138721487215872168721787218872198722087221872228722387224872258722687227872288722987230872318723287233872348723587236872378723887239872408724187242872438724487245872468724787248872498725087251872528725387254872558725687257872588725987260872618726287263872648726587266872678726887269872708727187272872738727487275872768727787278872798728087281872828728387284872858728687287872888728987290872918729287293872948729587296872978729887299873008730187302873038730487305873068730787308873098731087311873128731387314873158731687317873188731987320873218732287323873248732587326873278732887329873308733187332873338733487335873368733787338873398734087341873428734387344873458734687347873488734987350873518735287353873548735587356873578735887359873608736187362873638736487365873668736787368873698737087371873728737387374873758737687377873788737987380873818738287383873848738587386873878738887389873908739187392873938739487395873968739787398873998740087401874028740387404874058740687407874088740987410874118741287413874148741587416874178741887419874208742187422874238742487425874268742787428874298743087431874328743387434874358743687437874388743987440874418744287443874448744587446874478744887449874508745187452874538745487455874568745787458874598746087461874628746387464874658746687467874688746987470874718747287473874748747587476874778747887479874808748187482874838748487485874868748787488874898749087491874928749387494874958749687497874988749987500875018750287503875048750587506875078750887509875108751187512875138751487515875168751787518875198752087521875228752387524875258752687527875288752987530875318753287533875348753587536875378753887539875408754187542875438754487545875468754787548875498755087551875528755387554875558755687557875588755987560875618756287563875648756587566875678756887569875708757187572875738757487575875768757787578875798758087581875828758387584875858758687587875888758987590875918759287593875948759587596875978759887599876008760187602876038760487605876068760787608876098761087611876128761387614876158761687617876188761987620876218762287623876248762587626876278762887629876308763187632876338763487635876368763787638876398764087641876428764387644876458764687647876488764987650876518765287653876548765587656876578765887659876608766187662876638766487665876668766787668876698767087671876728767387674876758767687677876788767987680876818768287683876848768587686876878768887689876908769187692876938769487695876968769787698876998770087701877028770387704877058770687707877088770987710877118771287713877148771587716877178771887719877208772187722877238772487725877268772787728877298773087731877328773387734877358773687737877388773987740877418774287743877448774587746877478774887749877508775187752877538775487755877568775787758877598776087761877628776387764877658776687767877688776987770877718777287773877748777587776877778777887779877808778187782877838778487785877868778787788877898779087791877928779387794877958779687797877988779987800878018780287803878048780587806878078780887809878108781187812878138781487815878168781787818878198782087821878228782387824878258782687827878288782987830878318783287833878348783587836878378783887839878408784187842878438784487845878468784787848878498785087851878528785387854878558785687857878588785987860878618786287863878648786587866878678786887869878708787187872878738787487875878768787787878878798788087881878828788387884878858788687887878888788987890878918789287893878948789587896878978789887899879008790187902879038790487905879068790787908879098791087911879128791387914879158791687917879188791987920879218792287923879248792587926879278792887929879308793187932879338793487935879368793787938879398794087941879428794387944879458794687947879488794987950879518795287953879548795587956879578795887959879608796187962879638796487965879668796787968879698797087971879728797387974879758797687977879788797987980879818798287983879848798587986879878798887989879908799187992879938799487995879968799787998879998800088001880028800388004880058800688007880088800988010880118801288013880148801588016880178801888019880208802188022880238802488025880268802788028880298803088031880328803388034880358803688037880388803988040880418804288043880448804588046880478804888049880508805188052880538805488055880568805788058880598806088061880628806388064880658806688067880688806988070880718807288073880748807588076880778807888079880808808188082880838808488085880868808788088880898809088091880928809388094880958809688097880988809988100881018810288103881048810588106881078810888109881108811188112881138811488115881168811788118881198812088121881228812388124881258812688127881288812988130881318813288133881348813588136881378813888139881408814188142881438814488145881468814788148881498815088151881528815388154881558815688157881588815988160881618816288163881648816588166881678816888169881708817188172881738817488175881768817788178881798818088181881828818388184881858818688187881888818988190881918819288193881948819588196881978819888199882008820188202882038820488205882068820788208882098821088211882128821388214882158821688217882188821988220882218822288223882248822588226882278822888229882308823188232882338823488235882368823788238882398824088241882428824388244882458824688247882488824988250882518825288253882548825588256882578825888259882608826188262882638826488265882668826788268882698827088271882728827388274882758827688277882788827988280882818828288283882848828588286882878828888289882908829188292882938829488295882968829788298882998830088301883028830388304883058830688307883088830988310883118831288313883148831588316883178831888319883208832188322883238832488325883268832788328883298833088331883328833388334883358833688337883388833988340883418834288343883448834588346883478834888349883508835188352883538835488355883568835788358883598836088361883628836388364883658836688367883688836988370883718837288373883748837588376883778837888379883808838188382883838838488385883868838788388883898839088391883928839388394883958839688397883988839988400884018840288403884048840588406884078840888409884108841188412884138841488415884168841788418884198842088421884228842388424884258842688427884288842988430884318843288433884348843588436884378843888439884408844188442884438844488445884468844788448884498845088451884528845388454884558845688457884588845988460884618846288463884648846588466884678846888469884708847188472884738847488475884768847788478884798848088481884828848388484884858848688487884888848988490884918849288493884948849588496884978849888499885008850188502885038850488505885068850788508885098851088511885128851388514885158851688517885188851988520885218852288523885248852588526885278852888529885308853188532885338853488535885368853788538885398854088541885428854388544885458854688547885488854988550885518855288553885548855588556885578855888559885608856188562885638856488565885668856788568885698857088571885728857388574885758857688577885788857988580885818858288583885848858588586885878858888589885908859188592885938859488595885968859788598885998860088601886028860388604886058860688607886088860988610886118861288613886148861588616886178861888619886208862188622886238862488625886268862788628886298863088631886328863388634886358863688637886388863988640886418864288643886448864588646886478864888649886508865188652886538865488655886568865788658886598866088661886628866388664886658866688667886688866988670886718867288673886748867588676886778867888679886808868188682886838868488685886868868788688886898869088691886928869388694886958869688697886988869988700887018870288703887048870588706887078870888709887108871188712887138871488715887168871788718887198872088721887228872388724887258872688727887288872988730887318873288733887348873588736887378873888739887408874188742887438874488745887468874788748887498875088751887528875388754887558875688757887588875988760887618876288763887648876588766887678876888769887708877188772887738877488775887768877788778887798878088781887828878388784887858878688787887888878988790887918879288793887948879588796887978879888799888008880188802888038880488805888068880788808888098881088811888128881388814888158881688817888188881988820888218882288823888248882588826888278882888829888308883188832888338883488835888368883788838888398884088841888428884388844888458884688847888488884988850888518885288853888548885588856888578885888859888608886188862888638886488865888668886788868888698887088871888728887388874888758887688877888788887988880888818888288883888848888588886888878888888889888908889188892888938889488895888968889788898888998890088901889028890388904889058890688907889088890988910889118891288913889148891588916889178891888919889208892188922889238892488925889268892788928889298893088931889328893388934889358893688937889388893988940889418894288943889448894588946889478894888949889508895188952889538895488955889568895788958889598896088961889628896388964889658896688967889688896988970889718897288973889748897588976889778897888979889808898188982889838898488985889868898788988889898899088991889928899388994889958899688997889988899989000890018900289003890048900589006890078900889009890108901189012890138901489015890168901789018890198902089021890228902389024890258902689027890288902989030890318903289033890348903589036890378903889039890408904189042890438904489045890468904789048890498905089051890528905389054890558905689057890588905989060890618906289063890648906589066890678906889069890708907189072890738907489075890768907789078890798908089081890828908389084890858908689087890888908989090890918909289093890948909589096890978909889099891008910189102891038910489105891068910789108891098911089111891128911389114891158911689117891188911989120891218912289123891248912589126891278912889129891308913189132891338913489135891368913789138891398914089141891428914389144891458914689147891488914989150891518915289153891548915589156891578915889159891608916189162891638916489165891668916789168891698917089171891728917389174891758917689177891788917989180891818918289183891848918589186891878918889189891908919189192891938919489195891968919789198891998920089201892028920389204892058920689207892088920989210892118921289213892148921589216892178921889219892208922189222892238922489225892268922789228892298923089231892328923389234892358923689237892388923989240892418924289243892448924589246892478924889249892508925189252892538925489255892568925789258892598926089261892628926389264892658926689267892688926989270892718927289273892748927589276892778927889279892808928189282892838928489285892868928789288892898929089291892928929389294892958929689297892988929989300893018930289303893048930589306893078930889309893108931189312893138931489315893168931789318893198932089321893228932389324893258932689327893288932989330893318933289333893348933589336893378933889339893408934189342893438934489345893468934789348893498935089351893528935389354893558935689357893588935989360893618936289363893648936589366893678936889369893708937189372893738937489375893768937789378893798938089381893828938389384893858938689387893888938989390893918939289393893948939589396893978939889399894008940189402894038940489405894068940789408894098941089411894128941389414894158941689417894188941989420894218942289423894248942589426894278942889429894308943189432894338943489435894368943789438894398944089441894428944389444894458944689447894488944989450894518945289453894548945589456894578945889459894608946189462894638946489465894668946789468894698947089471894728947389474894758947689477894788947989480894818948289483894848948589486894878948889489894908949189492894938949489495894968949789498894998950089501895028950389504895058950689507895088950989510895118951289513895148951589516895178951889519895208952189522895238952489525895268952789528895298953089531895328953389534895358953689537895388953989540895418954289543895448954589546895478954889549895508955189552895538955489555895568955789558895598956089561895628956389564895658956689567895688956989570895718957289573895748957589576895778957889579895808958189582895838958489585895868958789588895898959089591895928959389594895958959689597895988959989600896018960289603896048960589606896078960889609896108961189612896138961489615896168961789618896198962089621896228962389624896258962689627896288962989630896318963289633896348963589636896378963889639896408964189642896438964489645896468964789648896498965089651896528965389654896558965689657896588965989660896618966289663896648966589666896678966889669896708967189672896738967489675896768967789678896798968089681896828968389684896858968689687896888968989690896918969289693896948969589696896978969889699897008970189702897038970489705897068970789708897098971089711897128971389714897158971689717897188971989720897218972289723897248972589726897278972889729897308973189732897338973489735897368973789738897398974089741897428974389744897458974689747897488974989750897518975289753897548975589756897578975889759897608976189762897638976489765897668976789768897698977089771897728977389774897758977689777897788977989780897818978289783897848978589786897878978889789897908979189792897938979489795897968979789798897998980089801898028980389804898058980689807898088980989810898118981289813898148981589816898178981889819898208982189822898238982489825898268982789828898298983089831898328983389834898358983689837898388983989840898418984289843898448984589846898478984889849898508985189852898538985489855898568985789858898598986089861898628986389864898658986689867898688986989870898718987289873898748987589876898778987889879898808988189882898838988489885898868988789888898898989089891898928989389894898958989689897898988989989900899018990289903899048990589906899078990889909899108991189912899138991489915899168991789918899198992089921899228992389924899258992689927899288992989930899318993289933899348993589936899378993889939899408994189942899438994489945899468994789948899498995089951899528995389954899558995689957899588995989960899618996289963899648996589966899678996889969899708997189972899738997489975899768997789978899798998089981899828998389984899858998689987899888998989990899918999289993899948999589996899978999889999900009000190002900039000490005900069000790008900099001090011900129001390014900159001690017900189001990020900219002290023900249002590026900279002890029900309003190032900339003490035900369003790038900399004090041900429004390044900459004690047900489004990050900519005290053900549005590056900579005890059900609006190062900639006490065900669006790068900699007090071900729007390074900759007690077
  1. unit pic32mx575f256l;
  2. interface
  3. {$goto on}
  4. {$modeswitch advancedrecords}
  5. {$INLINE ON}
  6. {$OPTIMIZATION STACKFRAME}
  7. {$L startup.o}
  8. {$PACKRECORDS 2}
  9. type
  10. TBits_1 = 0..1;
  11. TBits_2 = 0..3;
  12. TBits_3 = 0..7;
  13. TBits_4 = 0..15;
  14. TBits_5 = 0..31;
  15. TBits_6 = 0..63;
  16. TBits_7 = 0..127;
  17. TBits_8 = 0..255;
  18. TBits_9 = 0..511;
  19. TBits_10 = 0..1023;
  20. TBits_11 = 0..2047;
  21. TBits_12 = 0..4095;
  22. TBits_13 = 0..8191;
  23. TBits_14 = 0..16383;
  24. TBits_15 = 0..32767;
  25. TBits_16 = 0..65535;
  26. TBits_17 = 0..131071;
  27. TBits_18 = 0..262143;
  28. TBits_19 = 0..524287;
  29. TBits_20 = 0..1048575;
  30. TBits_21 = 0..2097151;
  31. TBits_22 = 0..4194303;
  32. TBits_23 = 0..8388607;
  33. TBits_24 = 0..16777215;
  34. TBits_25 = 0..33554431;
  35. TBits_26 = 0..67108863;
  36. TBits_27 = 0..134217727;
  37. TBits_28 = 0..268435455;
  38. TBits_29 = 0..536870911;
  39. TBits_30 = 0..1073741823;
  40. TBits_31 = 0..2147483647;
  41. TBits_32 = 0..4294967295;
  42. TWDT_WDTCON = record
  43. private
  44. function getON : TBits_1; inline;
  45. function getSWDTPS : TBits_5; inline;
  46. function getSWDTPS0 : TBits_1; inline;
  47. function getSWDTPS1 : TBits_1; inline;
  48. function getSWDTPS2 : TBits_1; inline;
  49. function getSWDTPS3 : TBits_1; inline;
  50. function getSWDTPS4 : TBits_1; inline;
  51. function getWDTCLR : TBits_1; inline;
  52. function getWDTPS : TBits_5; inline;
  53. function getWDTPSTA : TBits_5; inline;
  54. function getw : TBits_32; inline;
  55. procedure setON(thebits : TBits_1); inline;
  56. procedure setSWDTPS(thebits : TBits_5); inline;
  57. procedure setSWDTPS0(thebits : TBits_1); inline;
  58. procedure setSWDTPS1(thebits : TBits_1); inline;
  59. procedure setSWDTPS2(thebits : TBits_1); inline;
  60. procedure setSWDTPS3(thebits : TBits_1); inline;
  61. procedure setSWDTPS4(thebits : TBits_1); inline;
  62. procedure setWDTCLR(thebits : TBits_1); inline;
  63. procedure setWDTPS(thebits : TBits_5); inline;
  64. procedure setWDTPSTA(thebits : TBits_5); inline;
  65. procedure setw(thebits : TBits_32); inline;
  66. public
  67. procedure clearON; inline;
  68. procedure clearSWDTPS0; inline;
  69. procedure clearSWDTPS1; inline;
  70. procedure clearSWDTPS2; inline;
  71. procedure clearSWDTPS3; inline;
  72. procedure clearSWDTPS4; inline;
  73. procedure clearWDTCLR; inline;
  74. procedure setON; inline;
  75. procedure setSWDTPS0; inline;
  76. procedure setSWDTPS1; inline;
  77. procedure setSWDTPS2; inline;
  78. procedure setSWDTPS3; inline;
  79. procedure setSWDTPS4; inline;
  80. procedure setWDTCLR; inline;
  81. property ON : TBits_1 read getON write setON;
  82. property SWDTPS : TBits_5 read getSWDTPS write setSWDTPS;
  83. property SWDTPS0 : TBits_1 read getSWDTPS0 write setSWDTPS0;
  84. property SWDTPS1 : TBits_1 read getSWDTPS1 write setSWDTPS1;
  85. property SWDTPS2 : TBits_1 read getSWDTPS2 write setSWDTPS2;
  86. property SWDTPS3 : TBits_1 read getSWDTPS3 write setSWDTPS3;
  87. property SWDTPS4 : TBits_1 read getSWDTPS4 write setSWDTPS4;
  88. property WDTCLR : TBits_1 read getWDTCLR write setWDTCLR;
  89. property WDTPS : TBits_5 read getWDTPS write setWDTPS;
  90. property WDTPSTA : TBits_5 read getWDTPSTA write setWDTPSTA;
  91. property w : TBits_32 read getw write setw;
  92. end;
  93. type
  94. TWDTRegisters = record
  95. WDTCONbits : TWDT_WDTCON;
  96. WDTCON : longWord;
  97. WDTCONCLR : longWord;
  98. WDTCONSET : longWord;
  99. WDTCONINV : longWord;
  100. end;
  101. TRTCC_RTCCON = record
  102. private
  103. function getCAL : TBits_10; inline;
  104. function getHALFSEC : TBits_1; inline;
  105. function getON : TBits_1; inline;
  106. function getRTCCLKON : TBits_1; inline;
  107. function getRTCOE : TBits_1; inline;
  108. function getRTCSYNC : TBits_1; inline;
  109. function getRTCWREN : TBits_1; inline;
  110. function getRTSECSEL : TBits_1; inline;
  111. function getSIDL : TBits_1; inline;
  112. function getw : TBits_32; inline;
  113. procedure setCAL(thebits : TBits_10); inline;
  114. procedure setHALFSEC(thebits : TBits_1); inline;
  115. procedure setON(thebits : TBits_1); inline;
  116. procedure setRTCCLKON(thebits : TBits_1); inline;
  117. procedure setRTCOE(thebits : TBits_1); inline;
  118. procedure setRTCSYNC(thebits : TBits_1); inline;
  119. procedure setRTCWREN(thebits : TBits_1); inline;
  120. procedure setRTSECSEL(thebits : TBits_1); inline;
  121. procedure setSIDL(thebits : TBits_1); inline;
  122. procedure setw(thebits : TBits_32); inline;
  123. public
  124. procedure clearHALFSEC; inline;
  125. procedure clearON; inline;
  126. procedure clearRTCCLKON; inline;
  127. procedure clearRTCOE; inline;
  128. procedure clearRTCSYNC; inline;
  129. procedure clearRTCWREN; inline;
  130. procedure clearRTSECSEL; inline;
  131. procedure clearSIDL; inline;
  132. procedure setHALFSEC; inline;
  133. procedure setON; inline;
  134. procedure setRTCCLKON; inline;
  135. procedure setRTCOE; inline;
  136. procedure setRTCSYNC; inline;
  137. procedure setRTCWREN; inline;
  138. procedure setRTSECSEL; inline;
  139. procedure setSIDL; inline;
  140. property CAL : TBits_10 read getCAL write setCAL;
  141. property HALFSEC : TBits_1 read getHALFSEC write setHALFSEC;
  142. property ON : TBits_1 read getON write setON;
  143. property RTCCLKON : TBits_1 read getRTCCLKON write setRTCCLKON;
  144. property RTCOE : TBits_1 read getRTCOE write setRTCOE;
  145. property RTCSYNC : TBits_1 read getRTCSYNC write setRTCSYNC;
  146. property RTCWREN : TBits_1 read getRTCWREN write setRTCWREN;
  147. property RTSECSEL : TBits_1 read getRTSECSEL write setRTSECSEL;
  148. property SIDL : TBits_1 read getSIDL write setSIDL;
  149. property w : TBits_32 read getw write setw;
  150. end;
  151. TRTCC_RTCALRM = record
  152. private
  153. function getALRMEN : TBits_1; inline;
  154. function getALRMSYNC : TBits_1; inline;
  155. function getAMASK : TBits_4; inline;
  156. function getARPT : TBits_8; inline;
  157. function getCHIME : TBits_1; inline;
  158. function getPIV : TBits_1; inline;
  159. function getw : TBits_32; inline;
  160. procedure setALRMEN(thebits : TBits_1); inline;
  161. procedure setALRMSYNC(thebits : TBits_1); inline;
  162. procedure setAMASK(thebits : TBits_4); inline;
  163. procedure setARPT(thebits : TBits_8); inline;
  164. procedure setCHIME(thebits : TBits_1); inline;
  165. procedure setPIV(thebits : TBits_1); inline;
  166. procedure setw(thebits : TBits_32); inline;
  167. public
  168. procedure clearALRMEN; inline;
  169. procedure clearALRMSYNC; inline;
  170. procedure clearCHIME; inline;
  171. procedure clearPIV; inline;
  172. procedure setALRMEN; inline;
  173. procedure setALRMSYNC; inline;
  174. procedure setCHIME; inline;
  175. procedure setPIV; inline;
  176. property ALRMEN : TBits_1 read getALRMEN write setALRMEN;
  177. property ALRMSYNC : TBits_1 read getALRMSYNC write setALRMSYNC;
  178. property AMASK : TBits_4 read getAMASK write setAMASK;
  179. property ARPT : TBits_8 read getARPT write setARPT;
  180. property CHIME : TBits_1 read getCHIME write setCHIME;
  181. property PIV : TBits_1 read getPIV write setPIV;
  182. property w : TBits_32 read getw write setw;
  183. end;
  184. TRTCC_RTCTIME = record
  185. private
  186. function getHR01 : TBits_4; inline;
  187. function getHR10 : TBits_4; inline;
  188. function getMIN01 : TBits_4; inline;
  189. function getMIN10 : TBits_4; inline;
  190. function getSEC01 : TBits_4; inline;
  191. function getSEC10 : TBits_4; inline;
  192. function getw : TBits_32; inline;
  193. procedure setHR01(thebits : TBits_4); inline;
  194. procedure setHR10(thebits : TBits_4); inline;
  195. procedure setMIN01(thebits : TBits_4); inline;
  196. procedure setMIN10(thebits : TBits_4); inline;
  197. procedure setSEC01(thebits : TBits_4); inline;
  198. procedure setSEC10(thebits : TBits_4); inline;
  199. procedure setw(thebits : TBits_32); inline;
  200. public
  201. property HR01 : TBits_4 read getHR01 write setHR01;
  202. property HR10 : TBits_4 read getHR10 write setHR10;
  203. property MIN01 : TBits_4 read getMIN01 write setMIN01;
  204. property MIN10 : TBits_4 read getMIN10 write setMIN10;
  205. property SEC01 : TBits_4 read getSEC01 write setSEC01;
  206. property SEC10 : TBits_4 read getSEC10 write setSEC10;
  207. property w : TBits_32 read getw write setw;
  208. end;
  209. TRTCC_RTCDATE = record
  210. private
  211. function getDAY01 : TBits_4; inline;
  212. function getDAY10 : TBits_4; inline;
  213. function getMONTH01 : TBits_4; inline;
  214. function getMONTH10 : TBits_4; inline;
  215. function getWDAY01 : TBits_4; inline;
  216. function getYEAR01 : TBits_4; inline;
  217. function getYEAR10 : TBits_4; inline;
  218. function getw : TBits_32; inline;
  219. procedure setDAY01(thebits : TBits_4); inline;
  220. procedure setDAY10(thebits : TBits_4); inline;
  221. procedure setMONTH01(thebits : TBits_4); inline;
  222. procedure setMONTH10(thebits : TBits_4); inline;
  223. procedure setWDAY01(thebits : TBits_4); inline;
  224. procedure setYEAR01(thebits : TBits_4); inline;
  225. procedure setYEAR10(thebits : TBits_4); inline;
  226. procedure setw(thebits : TBits_32); inline;
  227. public
  228. property DAY01 : TBits_4 read getDAY01 write setDAY01;
  229. property DAY10 : TBits_4 read getDAY10 write setDAY10;
  230. property MONTH01 : TBits_4 read getMONTH01 write setMONTH01;
  231. property MONTH10 : TBits_4 read getMONTH10 write setMONTH10;
  232. property WDAY01 : TBits_4 read getWDAY01 write setWDAY01;
  233. property YEAR01 : TBits_4 read getYEAR01 write setYEAR01;
  234. property YEAR10 : TBits_4 read getYEAR10 write setYEAR10;
  235. property w : TBits_32 read getw write setw;
  236. end;
  237. TRTCC_ALRMTIME = record
  238. private
  239. function getHR01 : TBits_4; inline;
  240. function getHR10 : TBits_4; inline;
  241. function getMIN01 : TBits_4; inline;
  242. function getMIN10 : TBits_4; inline;
  243. function getSEC01 : TBits_4; inline;
  244. function getSEC10 : TBits_4; inline;
  245. function getw : TBits_32; inline;
  246. procedure setHR01(thebits : TBits_4); inline;
  247. procedure setHR10(thebits : TBits_4); inline;
  248. procedure setMIN01(thebits : TBits_4); inline;
  249. procedure setMIN10(thebits : TBits_4); inline;
  250. procedure setSEC01(thebits : TBits_4); inline;
  251. procedure setSEC10(thebits : TBits_4); inline;
  252. procedure setw(thebits : TBits_32); inline;
  253. public
  254. property HR01 : TBits_4 read getHR01 write setHR01;
  255. property HR10 : TBits_4 read getHR10 write setHR10;
  256. property MIN01 : TBits_4 read getMIN01 write setMIN01;
  257. property MIN10 : TBits_4 read getMIN10 write setMIN10;
  258. property SEC01 : TBits_4 read getSEC01 write setSEC01;
  259. property SEC10 : TBits_4 read getSEC10 write setSEC10;
  260. property w : TBits_32 read getw write setw;
  261. end;
  262. TRTCC_ALRMDATE = record
  263. private
  264. function getDAY01 : TBits_4; inline;
  265. function getDAY10 : TBits_4; inline;
  266. function getMONTH01 : TBits_4; inline;
  267. function getMONTH10 : TBits_4; inline;
  268. function getWDAY01 : TBits_4; inline;
  269. function getw : TBits_32; inline;
  270. procedure setDAY01(thebits : TBits_4); inline;
  271. procedure setDAY10(thebits : TBits_4); inline;
  272. procedure setMONTH01(thebits : TBits_4); inline;
  273. procedure setMONTH10(thebits : TBits_4); inline;
  274. procedure setWDAY01(thebits : TBits_4); inline;
  275. procedure setw(thebits : TBits_32); inline;
  276. public
  277. property DAY01 : TBits_4 read getDAY01 write setDAY01;
  278. property DAY10 : TBits_4 read getDAY10 write setDAY10;
  279. property MONTH01 : TBits_4 read getMONTH01 write setMONTH01;
  280. property MONTH10 : TBits_4 read getMONTH10 write setMONTH10;
  281. property WDAY01 : TBits_4 read getWDAY01 write setWDAY01;
  282. property w : TBits_32 read getw write setw;
  283. end;
  284. type
  285. TRTCCRegisters = record
  286. RTCCONbits : TRTCC_RTCCON;
  287. RTCCON : longWord;
  288. RTCCONCLR : longWord;
  289. RTCCONSET : longWord;
  290. RTCCONINV : longWord;
  291. RTCALRMbits : TRTCC_RTCALRM;
  292. RTCALRM : longWord;
  293. RTCALRMCLR : longWord;
  294. RTCALRMSET : longWord;
  295. RTCALRMINV : longWord;
  296. RTCTIMEbits : TRTCC_RTCTIME;
  297. RTCTIME : longWord;
  298. RTCTIMECLR : longWord;
  299. RTCTIMESET : longWord;
  300. RTCTIMEINV : longWord;
  301. RTCDATEbits : TRTCC_RTCDATE;
  302. RTCDATE : longWord;
  303. RTCDATECLR : longWord;
  304. RTCDATESET : longWord;
  305. RTCDATEINV : longWord;
  306. ALRMTIMEbits : TRTCC_ALRMTIME;
  307. ALRMTIME : longWord;
  308. ALRMTIMECLR : longWord;
  309. ALRMTIMESET : longWord;
  310. ALRMTIMEINV : longWord;
  311. ALRMDATEbits : TRTCC_ALRMDATE;
  312. ALRMDATE : longWord;
  313. ALRMDATECLR : longWord;
  314. ALRMDATESET : longWord;
  315. ALRMDATEINV : longWord;
  316. end;
  317. TTMR1_T1CON = record
  318. private
  319. function getON : TBits_1; inline;
  320. function getSIDL : TBits_1; inline;
  321. function getTCKPS : TBits_2; inline;
  322. function getTCKPS0 : TBits_1; inline;
  323. function getTCKPS1 : TBits_1; inline;
  324. function getTCS : TBits_1; inline;
  325. function getTGATE : TBits_1; inline;
  326. function getTON : TBits_1; inline;
  327. function getTSIDL : TBits_1; inline;
  328. function getTSYNC : TBits_1; inline;
  329. function getTWDIS : TBits_1; inline;
  330. function getTWIP : TBits_1; inline;
  331. function getw : TBits_32; inline;
  332. procedure setON(thebits : TBits_1); inline;
  333. procedure setSIDL(thebits : TBits_1); inline;
  334. procedure setTCKPS(thebits : TBits_2); inline;
  335. procedure setTCKPS0(thebits : TBits_1); inline;
  336. procedure setTCKPS1(thebits : TBits_1); inline;
  337. procedure setTCS(thebits : TBits_1); inline;
  338. procedure setTGATE(thebits : TBits_1); inline;
  339. procedure setTON(thebits : TBits_1); inline;
  340. procedure setTSIDL(thebits : TBits_1); inline;
  341. procedure setTSYNC(thebits : TBits_1); inline;
  342. procedure setTWDIS(thebits : TBits_1); inline;
  343. procedure setTWIP(thebits : TBits_1); inline;
  344. procedure setw(thebits : TBits_32); inline;
  345. public
  346. procedure clearON; inline;
  347. procedure clearSIDL; inline;
  348. procedure clearTCKPS0; inline;
  349. procedure clearTCKPS1; inline;
  350. procedure clearTCS; inline;
  351. procedure clearTGATE; inline;
  352. procedure clearTON; inline;
  353. procedure clearTSIDL; inline;
  354. procedure clearTSYNC; inline;
  355. procedure clearTWDIS; inline;
  356. procedure clearTWIP; inline;
  357. procedure setON; inline;
  358. procedure setSIDL; inline;
  359. procedure setTCKPS0; inline;
  360. procedure setTCKPS1; inline;
  361. procedure setTCS; inline;
  362. procedure setTGATE; inline;
  363. procedure setTON; inline;
  364. procedure setTSIDL; inline;
  365. procedure setTSYNC; inline;
  366. procedure setTWDIS; inline;
  367. procedure setTWIP; inline;
  368. property ON : TBits_1 read getON write setON;
  369. property SIDL : TBits_1 read getSIDL write setSIDL;
  370. property TCKPS : TBits_2 read getTCKPS write setTCKPS;
  371. property TCKPS0 : TBits_1 read getTCKPS0 write setTCKPS0;
  372. property TCKPS1 : TBits_1 read getTCKPS1 write setTCKPS1;
  373. property TCS : TBits_1 read getTCS write setTCS;
  374. property TGATE : TBits_1 read getTGATE write setTGATE;
  375. property TON : TBits_1 read getTON write setTON;
  376. property TSIDL : TBits_1 read getTSIDL write setTSIDL;
  377. property TSYNC : TBits_1 read getTSYNC write setTSYNC;
  378. property TWDIS : TBits_1 read getTWDIS write setTWDIS;
  379. property TWIP : TBits_1 read getTWIP write setTWIP;
  380. property w : TBits_32 read getw write setw;
  381. end;
  382. type
  383. TTMR1Registers = record
  384. T1CONbits : TTMR1_T1CON;
  385. T1CON : longWord;
  386. T1CONCLR : longWord;
  387. T1CONSET : longWord;
  388. T1CONINV : longWord;
  389. TMR1 : longWord;
  390. TMR1CLR : longWord;
  391. TMR1SET : longWord;
  392. TMR1INV : longWord;
  393. PR1 : longWord;
  394. PR1CLR : longWord;
  395. PR1SET : longWord;
  396. PR1INV : longWord;
  397. end;
  398. TTMR2_T2CON = record
  399. private
  400. function getON : TBits_1; inline;
  401. function getSIDL : TBits_1; inline;
  402. function getT32 : TBits_1; inline;
  403. function getTCKPS : TBits_3; inline;
  404. function getTCKPS0 : TBits_1; inline;
  405. function getTCKPS1 : TBits_1; inline;
  406. function getTCKPS2 : TBits_1; inline;
  407. function getTCS : TBits_1; inline;
  408. function getTGATE : TBits_1; inline;
  409. function getTON : TBits_1; inline;
  410. function getTSIDL : TBits_1; inline;
  411. function getw : TBits_32; inline;
  412. procedure setON(thebits : TBits_1); inline;
  413. procedure setSIDL(thebits : TBits_1); inline;
  414. procedure setT32(thebits : TBits_1); inline;
  415. procedure setTCKPS(thebits : TBits_3); inline;
  416. procedure setTCKPS0(thebits : TBits_1); inline;
  417. procedure setTCKPS1(thebits : TBits_1); inline;
  418. procedure setTCKPS2(thebits : TBits_1); inline;
  419. procedure setTCS(thebits : TBits_1); inline;
  420. procedure setTGATE(thebits : TBits_1); inline;
  421. procedure setTON(thebits : TBits_1); inline;
  422. procedure setTSIDL(thebits : TBits_1); inline;
  423. procedure setw(thebits : TBits_32); inline;
  424. public
  425. procedure clearON; inline;
  426. procedure clearSIDL; inline;
  427. procedure clearT32; inline;
  428. procedure clearTCKPS0; inline;
  429. procedure clearTCKPS1; inline;
  430. procedure clearTCKPS2; inline;
  431. procedure clearTCS; inline;
  432. procedure clearTGATE; inline;
  433. procedure clearTON; inline;
  434. procedure clearTSIDL; inline;
  435. procedure setON; inline;
  436. procedure setSIDL; inline;
  437. procedure setT32; inline;
  438. procedure setTCKPS0; inline;
  439. procedure setTCKPS1; inline;
  440. procedure setTCKPS2; inline;
  441. procedure setTCS; inline;
  442. procedure setTGATE; inline;
  443. procedure setTON; inline;
  444. procedure setTSIDL; inline;
  445. property ON : TBits_1 read getON write setON;
  446. property SIDL : TBits_1 read getSIDL write setSIDL;
  447. property T32 : TBits_1 read getT32 write setT32;
  448. property TCKPS : TBits_3 read getTCKPS write setTCKPS;
  449. property TCKPS0 : TBits_1 read getTCKPS0 write setTCKPS0;
  450. property TCKPS1 : TBits_1 read getTCKPS1 write setTCKPS1;
  451. property TCKPS2 : TBits_1 read getTCKPS2 write setTCKPS2;
  452. property TCS : TBits_1 read getTCS write setTCS;
  453. property TGATE : TBits_1 read getTGATE write setTGATE;
  454. property TON : TBits_1 read getTON write setTON;
  455. property TSIDL : TBits_1 read getTSIDL write setTSIDL;
  456. property w : TBits_32 read getw write setw;
  457. end;
  458. type
  459. TTMR2Registers = record
  460. T2CONbits : TTMR2_T2CON;
  461. T2CON : longWord;
  462. T2CONCLR : longWord;
  463. T2CONSET : longWord;
  464. T2CONINV : longWord;
  465. TMR2 : longWord;
  466. TMR2CLR : longWord;
  467. TMR2SET : longWord;
  468. TMR2INV : longWord;
  469. PR2 : longWord;
  470. PR2CLR : longWord;
  471. PR2SET : longWord;
  472. PR2INV : longWord;
  473. end;
  474. TTMR3_T3CON = record
  475. private
  476. function getON : TBits_1; inline;
  477. function getSIDL : TBits_1; inline;
  478. function getTCKPS : TBits_3; inline;
  479. function getTCKPS0 : TBits_1; inline;
  480. function getTCKPS1 : TBits_1; inline;
  481. function getTCKPS2 : TBits_1; inline;
  482. function getTCS : TBits_1; inline;
  483. function getTGATE : TBits_1; inline;
  484. function getTON : TBits_1; inline;
  485. function getTSIDL : TBits_1; inline;
  486. function getw : TBits_32; inline;
  487. procedure setON(thebits : TBits_1); inline;
  488. procedure setSIDL(thebits : TBits_1); inline;
  489. procedure setTCKPS(thebits : TBits_3); inline;
  490. procedure setTCKPS0(thebits : TBits_1); inline;
  491. procedure setTCKPS1(thebits : TBits_1); inline;
  492. procedure setTCKPS2(thebits : TBits_1); inline;
  493. procedure setTCS(thebits : TBits_1); inline;
  494. procedure setTGATE(thebits : TBits_1); inline;
  495. procedure setTON(thebits : TBits_1); inline;
  496. procedure setTSIDL(thebits : TBits_1); inline;
  497. procedure setw(thebits : TBits_32); inline;
  498. public
  499. procedure clearON; inline;
  500. procedure clearSIDL; inline;
  501. procedure clearTCKPS0; inline;
  502. procedure clearTCKPS1; inline;
  503. procedure clearTCKPS2; inline;
  504. procedure clearTCS; inline;
  505. procedure clearTGATE; inline;
  506. procedure clearTON; inline;
  507. procedure clearTSIDL; inline;
  508. procedure setON; inline;
  509. procedure setSIDL; inline;
  510. procedure setTCKPS0; inline;
  511. procedure setTCKPS1; inline;
  512. procedure setTCKPS2; inline;
  513. procedure setTCS; inline;
  514. procedure setTGATE; inline;
  515. procedure setTON; inline;
  516. procedure setTSIDL; inline;
  517. property ON : TBits_1 read getON write setON;
  518. property SIDL : TBits_1 read getSIDL write setSIDL;
  519. property TCKPS : TBits_3 read getTCKPS write setTCKPS;
  520. property TCKPS0 : TBits_1 read getTCKPS0 write setTCKPS0;
  521. property TCKPS1 : TBits_1 read getTCKPS1 write setTCKPS1;
  522. property TCKPS2 : TBits_1 read getTCKPS2 write setTCKPS2;
  523. property TCS : TBits_1 read getTCS write setTCS;
  524. property TGATE : TBits_1 read getTGATE write setTGATE;
  525. property TON : TBits_1 read getTON write setTON;
  526. property TSIDL : TBits_1 read getTSIDL write setTSIDL;
  527. property w : TBits_32 read getw write setw;
  528. end;
  529. type
  530. TTMR3Registers = record
  531. T3CONbits : TTMR3_T3CON;
  532. T3CON : longWord;
  533. T3CONCLR : longWord;
  534. T3CONSET : longWord;
  535. T3CONINV : longWord;
  536. TMR3 : longWord;
  537. TMR3CLR : longWord;
  538. TMR3SET : longWord;
  539. TMR3INV : longWord;
  540. PR3 : longWord;
  541. PR3CLR : longWord;
  542. PR3SET : longWord;
  543. PR3INV : longWord;
  544. end;
  545. TTMR4_T4CON = record
  546. private
  547. function getON : TBits_1; inline;
  548. function getSIDL : TBits_1; inline;
  549. function getT32 : TBits_1; inline;
  550. function getTCKPS : TBits_3; inline;
  551. function getTCKPS0 : TBits_1; inline;
  552. function getTCKPS1 : TBits_1; inline;
  553. function getTCKPS2 : TBits_1; inline;
  554. function getTCS : TBits_1; inline;
  555. function getTGATE : TBits_1; inline;
  556. function getTON : TBits_1; inline;
  557. function getTSIDL : TBits_1; inline;
  558. function getw : TBits_32; inline;
  559. procedure setON(thebits : TBits_1); inline;
  560. procedure setSIDL(thebits : TBits_1); inline;
  561. procedure setT32(thebits : TBits_1); inline;
  562. procedure setTCKPS(thebits : TBits_3); inline;
  563. procedure setTCKPS0(thebits : TBits_1); inline;
  564. procedure setTCKPS1(thebits : TBits_1); inline;
  565. procedure setTCKPS2(thebits : TBits_1); inline;
  566. procedure setTCS(thebits : TBits_1); inline;
  567. procedure setTGATE(thebits : TBits_1); inline;
  568. procedure setTON(thebits : TBits_1); inline;
  569. procedure setTSIDL(thebits : TBits_1); inline;
  570. procedure setw(thebits : TBits_32); inline;
  571. public
  572. procedure clearON; inline;
  573. procedure clearSIDL; inline;
  574. procedure clearT32; inline;
  575. procedure clearTCKPS0; inline;
  576. procedure clearTCKPS1; inline;
  577. procedure clearTCKPS2; inline;
  578. procedure clearTCS; inline;
  579. procedure clearTGATE; inline;
  580. procedure clearTON; inline;
  581. procedure clearTSIDL; inline;
  582. procedure setON; inline;
  583. procedure setSIDL; inline;
  584. procedure setT32; inline;
  585. procedure setTCKPS0; inline;
  586. procedure setTCKPS1; inline;
  587. procedure setTCKPS2; inline;
  588. procedure setTCS; inline;
  589. procedure setTGATE; inline;
  590. procedure setTON; inline;
  591. procedure setTSIDL; inline;
  592. property ON : TBits_1 read getON write setON;
  593. property SIDL : TBits_1 read getSIDL write setSIDL;
  594. property T32 : TBits_1 read getT32 write setT32;
  595. property TCKPS : TBits_3 read getTCKPS write setTCKPS;
  596. property TCKPS0 : TBits_1 read getTCKPS0 write setTCKPS0;
  597. property TCKPS1 : TBits_1 read getTCKPS1 write setTCKPS1;
  598. property TCKPS2 : TBits_1 read getTCKPS2 write setTCKPS2;
  599. property TCS : TBits_1 read getTCS write setTCS;
  600. property TGATE : TBits_1 read getTGATE write setTGATE;
  601. property TON : TBits_1 read getTON write setTON;
  602. property TSIDL : TBits_1 read getTSIDL write setTSIDL;
  603. property w : TBits_32 read getw write setw;
  604. end;
  605. type
  606. TTMR4Registers = record
  607. T4CONbits : TTMR4_T4CON;
  608. T4CON : longWord;
  609. T4CONCLR : longWord;
  610. T4CONSET : longWord;
  611. T4CONINV : longWord;
  612. TMR4 : longWord;
  613. TMR4CLR : longWord;
  614. TMR4SET : longWord;
  615. TMR4INV : longWord;
  616. PR4 : longWord;
  617. PR4CLR : longWord;
  618. PR4SET : longWord;
  619. PR4INV : longWord;
  620. end;
  621. TTMR5_T5CON = record
  622. private
  623. function getON : TBits_1; inline;
  624. function getSIDL : TBits_1; inline;
  625. function getTCKPS : TBits_3; inline;
  626. function getTCKPS0 : TBits_1; inline;
  627. function getTCKPS1 : TBits_1; inline;
  628. function getTCKPS2 : TBits_1; inline;
  629. function getTCS : TBits_1; inline;
  630. function getTGATE : TBits_1; inline;
  631. function getTON : TBits_1; inline;
  632. function getTSIDL : TBits_1; inline;
  633. function getw : TBits_32; inline;
  634. procedure setON(thebits : TBits_1); inline;
  635. procedure setSIDL(thebits : TBits_1); inline;
  636. procedure setTCKPS(thebits : TBits_3); inline;
  637. procedure setTCKPS0(thebits : TBits_1); inline;
  638. procedure setTCKPS1(thebits : TBits_1); inline;
  639. procedure setTCKPS2(thebits : TBits_1); inline;
  640. procedure setTCS(thebits : TBits_1); inline;
  641. procedure setTGATE(thebits : TBits_1); inline;
  642. procedure setTON(thebits : TBits_1); inline;
  643. procedure setTSIDL(thebits : TBits_1); inline;
  644. procedure setw(thebits : TBits_32); inline;
  645. public
  646. procedure clearON; inline;
  647. procedure clearSIDL; inline;
  648. procedure clearTCKPS0; inline;
  649. procedure clearTCKPS1; inline;
  650. procedure clearTCKPS2; inline;
  651. procedure clearTCS; inline;
  652. procedure clearTGATE; inline;
  653. procedure clearTON; inline;
  654. procedure clearTSIDL; inline;
  655. procedure setON; inline;
  656. procedure setSIDL; inline;
  657. procedure setTCKPS0; inline;
  658. procedure setTCKPS1; inline;
  659. procedure setTCKPS2; inline;
  660. procedure setTCS; inline;
  661. procedure setTGATE; inline;
  662. procedure setTON; inline;
  663. procedure setTSIDL; inline;
  664. property ON : TBits_1 read getON write setON;
  665. property SIDL : TBits_1 read getSIDL write setSIDL;
  666. property TCKPS : TBits_3 read getTCKPS write setTCKPS;
  667. property TCKPS0 : TBits_1 read getTCKPS0 write setTCKPS0;
  668. property TCKPS1 : TBits_1 read getTCKPS1 write setTCKPS1;
  669. property TCKPS2 : TBits_1 read getTCKPS2 write setTCKPS2;
  670. property TCS : TBits_1 read getTCS write setTCS;
  671. property TGATE : TBits_1 read getTGATE write setTGATE;
  672. property TON : TBits_1 read getTON write setTON;
  673. property TSIDL : TBits_1 read getTSIDL write setTSIDL;
  674. property w : TBits_32 read getw write setw;
  675. end;
  676. type
  677. TTMR5Registers = record
  678. T5CONbits : TTMR5_T5CON;
  679. T5CON : longWord;
  680. T5CONCLR : longWord;
  681. T5CONSET : longWord;
  682. T5CONINV : longWord;
  683. TMR5 : longWord;
  684. TMR5CLR : longWord;
  685. TMR5SET : longWord;
  686. TMR5INV : longWord;
  687. PR5 : longWord;
  688. PR5CLR : longWord;
  689. PR5SET : longWord;
  690. PR5INV : longWord;
  691. end;
  692. TICAP1_IC1CON = record
  693. private
  694. function getC32 : TBits_1; inline;
  695. function getFEDGE : TBits_1; inline;
  696. function getICBNE : TBits_1; inline;
  697. function getICI : TBits_2; inline;
  698. function getICI0 : TBits_1; inline;
  699. function getICI1 : TBits_1; inline;
  700. function getICM : TBits_3; inline;
  701. function getICM0 : TBits_1; inline;
  702. function getICM1 : TBits_1; inline;
  703. function getICM2 : TBits_1; inline;
  704. function getICOV : TBits_1; inline;
  705. function getICSIDL : TBits_1; inline;
  706. function getICTMR : TBits_1; inline;
  707. function getON : TBits_1; inline;
  708. function getSIDL : TBits_1; inline;
  709. function getw : TBits_32; inline;
  710. procedure setC32(thebits : TBits_1); inline;
  711. procedure setFEDGE(thebits : TBits_1); inline;
  712. procedure setICBNE(thebits : TBits_1); inline;
  713. procedure setICI(thebits : TBits_2); inline;
  714. procedure setICI0(thebits : TBits_1); inline;
  715. procedure setICI1(thebits : TBits_1); inline;
  716. procedure setICM(thebits : TBits_3); inline;
  717. procedure setICM0(thebits : TBits_1); inline;
  718. procedure setICM1(thebits : TBits_1); inline;
  719. procedure setICM2(thebits : TBits_1); inline;
  720. procedure setICOV(thebits : TBits_1); inline;
  721. procedure setICSIDL(thebits : TBits_1); inline;
  722. procedure setICTMR(thebits : TBits_1); inline;
  723. procedure setON(thebits : TBits_1); inline;
  724. procedure setSIDL(thebits : TBits_1); inline;
  725. procedure setw(thebits : TBits_32); inline;
  726. public
  727. procedure clearC32; inline;
  728. procedure clearFEDGE; inline;
  729. procedure clearICBNE; inline;
  730. procedure clearICI0; inline;
  731. procedure clearICI1; inline;
  732. procedure clearICM0; inline;
  733. procedure clearICM1; inline;
  734. procedure clearICM2; inline;
  735. procedure clearICOV; inline;
  736. procedure clearICSIDL; inline;
  737. procedure clearICTMR; inline;
  738. procedure clearON; inline;
  739. procedure clearSIDL; inline;
  740. procedure setC32; inline;
  741. procedure setFEDGE; inline;
  742. procedure setICBNE; inline;
  743. procedure setICI0; inline;
  744. procedure setICI1; inline;
  745. procedure setICM0; inline;
  746. procedure setICM1; inline;
  747. procedure setICM2; inline;
  748. procedure setICOV; inline;
  749. procedure setICSIDL; inline;
  750. procedure setICTMR; inline;
  751. procedure setON; inline;
  752. procedure setSIDL; inline;
  753. property C32 : TBits_1 read getC32 write setC32;
  754. property FEDGE : TBits_1 read getFEDGE write setFEDGE;
  755. property ICBNE : TBits_1 read getICBNE write setICBNE;
  756. property ICI : TBits_2 read getICI write setICI;
  757. property ICI0 : TBits_1 read getICI0 write setICI0;
  758. property ICI1 : TBits_1 read getICI1 write setICI1;
  759. property ICM : TBits_3 read getICM write setICM;
  760. property ICM0 : TBits_1 read getICM0 write setICM0;
  761. property ICM1 : TBits_1 read getICM1 write setICM1;
  762. property ICM2 : TBits_1 read getICM2 write setICM2;
  763. property ICOV : TBits_1 read getICOV write setICOV;
  764. property ICSIDL : TBits_1 read getICSIDL write setICSIDL;
  765. property ICTMR : TBits_1 read getICTMR write setICTMR;
  766. property ON : TBits_1 read getON write setON;
  767. property SIDL : TBits_1 read getSIDL write setSIDL;
  768. property w : TBits_32 read getw write setw;
  769. end;
  770. type
  771. TICAP1Registers = record
  772. IC1CONbits : TICAP1_IC1CON;
  773. IC1CON : longWord;
  774. IC1CONCLR : longWord;
  775. IC1CONSET : longWord;
  776. IC1CONINV : longWord;
  777. IC1BUF : longWord;
  778. end;
  779. TICAP2_IC2CON = record
  780. private
  781. function getC32 : TBits_1; inline;
  782. function getFEDGE : TBits_1; inline;
  783. function getICBNE : TBits_1; inline;
  784. function getICI : TBits_2; inline;
  785. function getICI0 : TBits_1; inline;
  786. function getICI1 : TBits_1; inline;
  787. function getICM : TBits_3; inline;
  788. function getICM0 : TBits_1; inline;
  789. function getICM1 : TBits_1; inline;
  790. function getICM2 : TBits_1; inline;
  791. function getICOV : TBits_1; inline;
  792. function getICSIDL : TBits_1; inline;
  793. function getICTMR : TBits_1; inline;
  794. function getON : TBits_1; inline;
  795. function getSIDL : TBits_1; inline;
  796. function getw : TBits_32; inline;
  797. procedure setC32(thebits : TBits_1); inline;
  798. procedure setFEDGE(thebits : TBits_1); inline;
  799. procedure setICBNE(thebits : TBits_1); inline;
  800. procedure setICI(thebits : TBits_2); inline;
  801. procedure setICI0(thebits : TBits_1); inline;
  802. procedure setICI1(thebits : TBits_1); inline;
  803. procedure setICM(thebits : TBits_3); inline;
  804. procedure setICM0(thebits : TBits_1); inline;
  805. procedure setICM1(thebits : TBits_1); inline;
  806. procedure setICM2(thebits : TBits_1); inline;
  807. procedure setICOV(thebits : TBits_1); inline;
  808. procedure setICSIDL(thebits : TBits_1); inline;
  809. procedure setICTMR(thebits : TBits_1); inline;
  810. procedure setON(thebits : TBits_1); inline;
  811. procedure setSIDL(thebits : TBits_1); inline;
  812. procedure setw(thebits : TBits_32); inline;
  813. public
  814. procedure clearC32; inline;
  815. procedure clearFEDGE; inline;
  816. procedure clearICBNE; inline;
  817. procedure clearICI0; inline;
  818. procedure clearICI1; inline;
  819. procedure clearICM0; inline;
  820. procedure clearICM1; inline;
  821. procedure clearICM2; inline;
  822. procedure clearICOV; inline;
  823. procedure clearICSIDL; inline;
  824. procedure clearICTMR; inline;
  825. procedure clearON; inline;
  826. procedure clearSIDL; inline;
  827. procedure setC32; inline;
  828. procedure setFEDGE; inline;
  829. procedure setICBNE; inline;
  830. procedure setICI0; inline;
  831. procedure setICI1; inline;
  832. procedure setICM0; inline;
  833. procedure setICM1; inline;
  834. procedure setICM2; inline;
  835. procedure setICOV; inline;
  836. procedure setICSIDL; inline;
  837. procedure setICTMR; inline;
  838. procedure setON; inline;
  839. procedure setSIDL; inline;
  840. property C32 : TBits_1 read getC32 write setC32;
  841. property FEDGE : TBits_1 read getFEDGE write setFEDGE;
  842. property ICBNE : TBits_1 read getICBNE write setICBNE;
  843. property ICI : TBits_2 read getICI write setICI;
  844. property ICI0 : TBits_1 read getICI0 write setICI0;
  845. property ICI1 : TBits_1 read getICI1 write setICI1;
  846. property ICM : TBits_3 read getICM write setICM;
  847. property ICM0 : TBits_1 read getICM0 write setICM0;
  848. property ICM1 : TBits_1 read getICM1 write setICM1;
  849. property ICM2 : TBits_1 read getICM2 write setICM2;
  850. property ICOV : TBits_1 read getICOV write setICOV;
  851. property ICSIDL : TBits_1 read getICSIDL write setICSIDL;
  852. property ICTMR : TBits_1 read getICTMR write setICTMR;
  853. property ON : TBits_1 read getON write setON;
  854. property SIDL : TBits_1 read getSIDL write setSIDL;
  855. property w : TBits_32 read getw write setw;
  856. end;
  857. type
  858. TICAP2Registers = record
  859. IC2CONbits : TICAP2_IC2CON;
  860. IC2CON : longWord;
  861. IC2CONCLR : longWord;
  862. IC2CONSET : longWord;
  863. IC2CONINV : longWord;
  864. IC2BUF : longWord;
  865. end;
  866. TICAP3_IC3CON = record
  867. private
  868. function getC32 : TBits_1; inline;
  869. function getFEDGE : TBits_1; inline;
  870. function getICBNE : TBits_1; inline;
  871. function getICI : TBits_2; inline;
  872. function getICI0 : TBits_1; inline;
  873. function getICI1 : TBits_1; inline;
  874. function getICM : TBits_3; inline;
  875. function getICM0 : TBits_1; inline;
  876. function getICM1 : TBits_1; inline;
  877. function getICM2 : TBits_1; inline;
  878. function getICOV : TBits_1; inline;
  879. function getICSIDL : TBits_1; inline;
  880. function getICTMR : TBits_1; inline;
  881. function getON : TBits_1; inline;
  882. function getSIDL : TBits_1; inline;
  883. function getw : TBits_32; inline;
  884. procedure setC32(thebits : TBits_1); inline;
  885. procedure setFEDGE(thebits : TBits_1); inline;
  886. procedure setICBNE(thebits : TBits_1); inline;
  887. procedure setICI(thebits : TBits_2); inline;
  888. procedure setICI0(thebits : TBits_1); inline;
  889. procedure setICI1(thebits : TBits_1); inline;
  890. procedure setICM(thebits : TBits_3); inline;
  891. procedure setICM0(thebits : TBits_1); inline;
  892. procedure setICM1(thebits : TBits_1); inline;
  893. procedure setICM2(thebits : TBits_1); inline;
  894. procedure setICOV(thebits : TBits_1); inline;
  895. procedure setICSIDL(thebits : TBits_1); inline;
  896. procedure setICTMR(thebits : TBits_1); inline;
  897. procedure setON(thebits : TBits_1); inline;
  898. procedure setSIDL(thebits : TBits_1); inline;
  899. procedure setw(thebits : TBits_32); inline;
  900. public
  901. procedure clearC32; inline;
  902. procedure clearFEDGE; inline;
  903. procedure clearICBNE; inline;
  904. procedure clearICI0; inline;
  905. procedure clearICI1; inline;
  906. procedure clearICM0; inline;
  907. procedure clearICM1; inline;
  908. procedure clearICM2; inline;
  909. procedure clearICOV; inline;
  910. procedure clearICSIDL; inline;
  911. procedure clearICTMR; inline;
  912. procedure clearON; inline;
  913. procedure clearSIDL; inline;
  914. procedure setC32; inline;
  915. procedure setFEDGE; inline;
  916. procedure setICBNE; inline;
  917. procedure setICI0; inline;
  918. procedure setICI1; inline;
  919. procedure setICM0; inline;
  920. procedure setICM1; inline;
  921. procedure setICM2; inline;
  922. procedure setICOV; inline;
  923. procedure setICSIDL; inline;
  924. procedure setICTMR; inline;
  925. procedure setON; inline;
  926. procedure setSIDL; inline;
  927. property C32 : TBits_1 read getC32 write setC32;
  928. property FEDGE : TBits_1 read getFEDGE write setFEDGE;
  929. property ICBNE : TBits_1 read getICBNE write setICBNE;
  930. property ICI : TBits_2 read getICI write setICI;
  931. property ICI0 : TBits_1 read getICI0 write setICI0;
  932. property ICI1 : TBits_1 read getICI1 write setICI1;
  933. property ICM : TBits_3 read getICM write setICM;
  934. property ICM0 : TBits_1 read getICM0 write setICM0;
  935. property ICM1 : TBits_1 read getICM1 write setICM1;
  936. property ICM2 : TBits_1 read getICM2 write setICM2;
  937. property ICOV : TBits_1 read getICOV write setICOV;
  938. property ICSIDL : TBits_1 read getICSIDL write setICSIDL;
  939. property ICTMR : TBits_1 read getICTMR write setICTMR;
  940. property ON : TBits_1 read getON write setON;
  941. property SIDL : TBits_1 read getSIDL write setSIDL;
  942. property w : TBits_32 read getw write setw;
  943. end;
  944. type
  945. TICAP3Registers = record
  946. IC3CONbits : TICAP3_IC3CON;
  947. IC3CON : longWord;
  948. IC3CONCLR : longWord;
  949. IC3CONSET : longWord;
  950. IC3CONINV : longWord;
  951. IC3BUF : longWord;
  952. end;
  953. TICAP4_IC4CON = record
  954. private
  955. function getC32 : TBits_1; inline;
  956. function getFEDGE : TBits_1; inline;
  957. function getICBNE : TBits_1; inline;
  958. function getICI : TBits_2; inline;
  959. function getICI0 : TBits_1; inline;
  960. function getICI1 : TBits_1; inline;
  961. function getICM : TBits_3; inline;
  962. function getICM0 : TBits_1; inline;
  963. function getICM1 : TBits_1; inline;
  964. function getICM2 : TBits_1; inline;
  965. function getICOV : TBits_1; inline;
  966. function getICSIDL : TBits_1; inline;
  967. function getICTMR : TBits_1; inline;
  968. function getON : TBits_1; inline;
  969. function getSIDL : TBits_1; inline;
  970. function getw : TBits_32; inline;
  971. procedure setC32(thebits : TBits_1); inline;
  972. procedure setFEDGE(thebits : TBits_1); inline;
  973. procedure setICBNE(thebits : TBits_1); inline;
  974. procedure setICI(thebits : TBits_2); inline;
  975. procedure setICI0(thebits : TBits_1); inline;
  976. procedure setICI1(thebits : TBits_1); inline;
  977. procedure setICM(thebits : TBits_3); inline;
  978. procedure setICM0(thebits : TBits_1); inline;
  979. procedure setICM1(thebits : TBits_1); inline;
  980. procedure setICM2(thebits : TBits_1); inline;
  981. procedure setICOV(thebits : TBits_1); inline;
  982. procedure setICSIDL(thebits : TBits_1); inline;
  983. procedure setICTMR(thebits : TBits_1); inline;
  984. procedure setON(thebits : TBits_1); inline;
  985. procedure setSIDL(thebits : TBits_1); inline;
  986. procedure setw(thebits : TBits_32); inline;
  987. public
  988. procedure clearC32; inline;
  989. procedure clearFEDGE; inline;
  990. procedure clearICBNE; inline;
  991. procedure clearICI0; inline;
  992. procedure clearICI1; inline;
  993. procedure clearICM0; inline;
  994. procedure clearICM1; inline;
  995. procedure clearICM2; inline;
  996. procedure clearICOV; inline;
  997. procedure clearICSIDL; inline;
  998. procedure clearICTMR; inline;
  999. procedure clearON; inline;
  1000. procedure clearSIDL; inline;
  1001. procedure setC32; inline;
  1002. procedure setFEDGE; inline;
  1003. procedure setICBNE; inline;
  1004. procedure setICI0; inline;
  1005. procedure setICI1; inline;
  1006. procedure setICM0; inline;
  1007. procedure setICM1; inline;
  1008. procedure setICM2; inline;
  1009. procedure setICOV; inline;
  1010. procedure setICSIDL; inline;
  1011. procedure setICTMR; inline;
  1012. procedure setON; inline;
  1013. procedure setSIDL; inline;
  1014. property C32 : TBits_1 read getC32 write setC32;
  1015. property FEDGE : TBits_1 read getFEDGE write setFEDGE;
  1016. property ICBNE : TBits_1 read getICBNE write setICBNE;
  1017. property ICI : TBits_2 read getICI write setICI;
  1018. property ICI0 : TBits_1 read getICI0 write setICI0;
  1019. property ICI1 : TBits_1 read getICI1 write setICI1;
  1020. property ICM : TBits_3 read getICM write setICM;
  1021. property ICM0 : TBits_1 read getICM0 write setICM0;
  1022. property ICM1 : TBits_1 read getICM1 write setICM1;
  1023. property ICM2 : TBits_1 read getICM2 write setICM2;
  1024. property ICOV : TBits_1 read getICOV write setICOV;
  1025. property ICSIDL : TBits_1 read getICSIDL write setICSIDL;
  1026. property ICTMR : TBits_1 read getICTMR write setICTMR;
  1027. property ON : TBits_1 read getON write setON;
  1028. property SIDL : TBits_1 read getSIDL write setSIDL;
  1029. property w : TBits_32 read getw write setw;
  1030. end;
  1031. type
  1032. TICAP4Registers = record
  1033. IC4CONbits : TICAP4_IC4CON;
  1034. IC4CON : longWord;
  1035. IC4CONCLR : longWord;
  1036. IC4CONSET : longWord;
  1037. IC4CONINV : longWord;
  1038. IC4BUF : longWord;
  1039. end;
  1040. TICAP5_IC5CON = record
  1041. private
  1042. function getC32 : TBits_1; inline;
  1043. function getFEDGE : TBits_1; inline;
  1044. function getICBNE : TBits_1; inline;
  1045. function getICI : TBits_2; inline;
  1046. function getICI0 : TBits_1; inline;
  1047. function getICI1 : TBits_1; inline;
  1048. function getICM : TBits_3; inline;
  1049. function getICM0 : TBits_1; inline;
  1050. function getICM1 : TBits_1; inline;
  1051. function getICM2 : TBits_1; inline;
  1052. function getICOV : TBits_1; inline;
  1053. function getICSIDL : TBits_1; inline;
  1054. function getICTMR : TBits_1; inline;
  1055. function getON : TBits_1; inline;
  1056. function getSIDL : TBits_1; inline;
  1057. function getw : TBits_32; inline;
  1058. procedure setC32(thebits : TBits_1); inline;
  1059. procedure setFEDGE(thebits : TBits_1); inline;
  1060. procedure setICBNE(thebits : TBits_1); inline;
  1061. procedure setICI(thebits : TBits_2); inline;
  1062. procedure setICI0(thebits : TBits_1); inline;
  1063. procedure setICI1(thebits : TBits_1); inline;
  1064. procedure setICM(thebits : TBits_3); inline;
  1065. procedure setICM0(thebits : TBits_1); inline;
  1066. procedure setICM1(thebits : TBits_1); inline;
  1067. procedure setICM2(thebits : TBits_1); inline;
  1068. procedure setICOV(thebits : TBits_1); inline;
  1069. procedure setICSIDL(thebits : TBits_1); inline;
  1070. procedure setICTMR(thebits : TBits_1); inline;
  1071. procedure setON(thebits : TBits_1); inline;
  1072. procedure setSIDL(thebits : TBits_1); inline;
  1073. procedure setw(thebits : TBits_32); inline;
  1074. public
  1075. procedure clearC32; inline;
  1076. procedure clearFEDGE; inline;
  1077. procedure clearICBNE; inline;
  1078. procedure clearICI0; inline;
  1079. procedure clearICI1; inline;
  1080. procedure clearICM0; inline;
  1081. procedure clearICM1; inline;
  1082. procedure clearICM2; inline;
  1083. procedure clearICOV; inline;
  1084. procedure clearICSIDL; inline;
  1085. procedure clearICTMR; inline;
  1086. procedure clearON; inline;
  1087. procedure clearSIDL; inline;
  1088. procedure setC32; inline;
  1089. procedure setFEDGE; inline;
  1090. procedure setICBNE; inline;
  1091. procedure setICI0; inline;
  1092. procedure setICI1; inline;
  1093. procedure setICM0; inline;
  1094. procedure setICM1; inline;
  1095. procedure setICM2; inline;
  1096. procedure setICOV; inline;
  1097. procedure setICSIDL; inline;
  1098. procedure setICTMR; inline;
  1099. procedure setON; inline;
  1100. procedure setSIDL; inline;
  1101. property C32 : TBits_1 read getC32 write setC32;
  1102. property FEDGE : TBits_1 read getFEDGE write setFEDGE;
  1103. property ICBNE : TBits_1 read getICBNE write setICBNE;
  1104. property ICI : TBits_2 read getICI write setICI;
  1105. property ICI0 : TBits_1 read getICI0 write setICI0;
  1106. property ICI1 : TBits_1 read getICI1 write setICI1;
  1107. property ICM : TBits_3 read getICM write setICM;
  1108. property ICM0 : TBits_1 read getICM0 write setICM0;
  1109. property ICM1 : TBits_1 read getICM1 write setICM1;
  1110. property ICM2 : TBits_1 read getICM2 write setICM2;
  1111. property ICOV : TBits_1 read getICOV write setICOV;
  1112. property ICSIDL : TBits_1 read getICSIDL write setICSIDL;
  1113. property ICTMR : TBits_1 read getICTMR write setICTMR;
  1114. property ON : TBits_1 read getON write setON;
  1115. property SIDL : TBits_1 read getSIDL write setSIDL;
  1116. property w : TBits_32 read getw write setw;
  1117. end;
  1118. type
  1119. TICAP5Registers = record
  1120. IC5CONbits : TICAP5_IC5CON;
  1121. IC5CON : longWord;
  1122. IC5CONCLR : longWord;
  1123. IC5CONSET : longWord;
  1124. IC5CONINV : longWord;
  1125. IC5BUF : longWord;
  1126. end;
  1127. TOCMP1_OC1CON = record
  1128. private
  1129. function getOC32 : TBits_1; inline;
  1130. function getOCFLT : TBits_1; inline;
  1131. function getOCM : TBits_3; inline;
  1132. function getOCM0 : TBits_1; inline;
  1133. function getOCM1 : TBits_1; inline;
  1134. function getOCM2 : TBits_1; inline;
  1135. function getOCSIDL : TBits_1; inline;
  1136. function getOCTSEL : TBits_1; inline;
  1137. function getON : TBits_1; inline;
  1138. function getSIDL : TBits_1; inline;
  1139. function getw : TBits_32; inline;
  1140. procedure setOC32(thebits : TBits_1); inline;
  1141. procedure setOCFLT(thebits : TBits_1); inline;
  1142. procedure setOCM(thebits : TBits_3); inline;
  1143. procedure setOCM0(thebits : TBits_1); inline;
  1144. procedure setOCM1(thebits : TBits_1); inline;
  1145. procedure setOCM2(thebits : TBits_1); inline;
  1146. procedure setOCSIDL(thebits : TBits_1); inline;
  1147. procedure setOCTSEL(thebits : TBits_1); inline;
  1148. procedure setON(thebits : TBits_1); inline;
  1149. procedure setSIDL(thebits : TBits_1); inline;
  1150. procedure setw(thebits : TBits_32); inline;
  1151. public
  1152. procedure clearOC32; inline;
  1153. procedure clearOCFLT; inline;
  1154. procedure clearOCM0; inline;
  1155. procedure clearOCM1; inline;
  1156. procedure clearOCM2; inline;
  1157. procedure clearOCSIDL; inline;
  1158. procedure clearOCTSEL; inline;
  1159. procedure clearON; inline;
  1160. procedure clearSIDL; inline;
  1161. procedure setOC32; inline;
  1162. procedure setOCFLT; inline;
  1163. procedure setOCM0; inline;
  1164. procedure setOCM1; inline;
  1165. procedure setOCM2; inline;
  1166. procedure setOCSIDL; inline;
  1167. procedure setOCTSEL; inline;
  1168. procedure setON; inline;
  1169. procedure setSIDL; inline;
  1170. property OC32 : TBits_1 read getOC32 write setOC32;
  1171. property OCFLT : TBits_1 read getOCFLT write setOCFLT;
  1172. property OCM : TBits_3 read getOCM write setOCM;
  1173. property OCM0 : TBits_1 read getOCM0 write setOCM0;
  1174. property OCM1 : TBits_1 read getOCM1 write setOCM1;
  1175. property OCM2 : TBits_1 read getOCM2 write setOCM2;
  1176. property OCSIDL : TBits_1 read getOCSIDL write setOCSIDL;
  1177. property OCTSEL : TBits_1 read getOCTSEL write setOCTSEL;
  1178. property ON : TBits_1 read getON write setON;
  1179. property SIDL : TBits_1 read getSIDL write setSIDL;
  1180. property w : TBits_32 read getw write setw;
  1181. end;
  1182. type
  1183. TOCMP1Registers = record
  1184. OC1CONbits : TOCMP1_OC1CON;
  1185. OC1CON : longWord;
  1186. OC1CONCLR : longWord;
  1187. OC1CONSET : longWord;
  1188. OC1CONINV : longWord;
  1189. OC1R : longWord;
  1190. OC1RCLR : longWord;
  1191. OC1RSET : longWord;
  1192. OC1RINV : longWord;
  1193. OC1RS : longWord;
  1194. OC1RSCLR : longWord;
  1195. OC1RSSET : longWord;
  1196. OC1RSINV : longWord;
  1197. end;
  1198. TOCMP2_OC2CON = record
  1199. private
  1200. function getOC32 : TBits_1; inline;
  1201. function getOCFLT : TBits_1; inline;
  1202. function getOCM : TBits_3; inline;
  1203. function getOCM0 : TBits_1; inline;
  1204. function getOCM1 : TBits_1; inline;
  1205. function getOCM2 : TBits_1; inline;
  1206. function getOCSIDL : TBits_1; inline;
  1207. function getOCTSEL : TBits_1; inline;
  1208. function getON : TBits_1; inline;
  1209. function getSIDL : TBits_1; inline;
  1210. function getw : TBits_32; inline;
  1211. procedure setOC32(thebits : TBits_1); inline;
  1212. procedure setOCFLT(thebits : TBits_1); inline;
  1213. procedure setOCM(thebits : TBits_3); inline;
  1214. procedure setOCM0(thebits : TBits_1); inline;
  1215. procedure setOCM1(thebits : TBits_1); inline;
  1216. procedure setOCM2(thebits : TBits_1); inline;
  1217. procedure setOCSIDL(thebits : TBits_1); inline;
  1218. procedure setOCTSEL(thebits : TBits_1); inline;
  1219. procedure setON(thebits : TBits_1); inline;
  1220. procedure setSIDL(thebits : TBits_1); inline;
  1221. procedure setw(thebits : TBits_32); inline;
  1222. public
  1223. procedure clearOC32; inline;
  1224. procedure clearOCFLT; inline;
  1225. procedure clearOCM0; inline;
  1226. procedure clearOCM1; inline;
  1227. procedure clearOCM2; inline;
  1228. procedure clearOCSIDL; inline;
  1229. procedure clearOCTSEL; inline;
  1230. procedure clearON; inline;
  1231. procedure clearSIDL; inline;
  1232. procedure setOC32; inline;
  1233. procedure setOCFLT; inline;
  1234. procedure setOCM0; inline;
  1235. procedure setOCM1; inline;
  1236. procedure setOCM2; inline;
  1237. procedure setOCSIDL; inline;
  1238. procedure setOCTSEL; inline;
  1239. procedure setON; inline;
  1240. procedure setSIDL; inline;
  1241. property OC32 : TBits_1 read getOC32 write setOC32;
  1242. property OCFLT : TBits_1 read getOCFLT write setOCFLT;
  1243. property OCM : TBits_3 read getOCM write setOCM;
  1244. property OCM0 : TBits_1 read getOCM0 write setOCM0;
  1245. property OCM1 : TBits_1 read getOCM1 write setOCM1;
  1246. property OCM2 : TBits_1 read getOCM2 write setOCM2;
  1247. property OCSIDL : TBits_1 read getOCSIDL write setOCSIDL;
  1248. property OCTSEL : TBits_1 read getOCTSEL write setOCTSEL;
  1249. property ON : TBits_1 read getON write setON;
  1250. property SIDL : TBits_1 read getSIDL write setSIDL;
  1251. property w : TBits_32 read getw write setw;
  1252. end;
  1253. type
  1254. TOCMP2Registers = record
  1255. OC2CONbits : TOCMP2_OC2CON;
  1256. OC2CON : longWord;
  1257. OC2CONCLR : longWord;
  1258. OC2CONSET : longWord;
  1259. OC2CONINV : longWord;
  1260. OC2R : longWord;
  1261. OC2RCLR : longWord;
  1262. OC2RSET : longWord;
  1263. OC2RINV : longWord;
  1264. OC2RS : longWord;
  1265. OC2RSCLR : longWord;
  1266. OC2RSSET : longWord;
  1267. OC2RSINV : longWord;
  1268. end;
  1269. TOCMP3_OC3CON = record
  1270. private
  1271. function getOC32 : TBits_1; inline;
  1272. function getOCFLT : TBits_1; inline;
  1273. function getOCM : TBits_3; inline;
  1274. function getOCM0 : TBits_1; inline;
  1275. function getOCM1 : TBits_1; inline;
  1276. function getOCM2 : TBits_1; inline;
  1277. function getOCSIDL : TBits_1; inline;
  1278. function getOCTSEL : TBits_1; inline;
  1279. function getON : TBits_1; inline;
  1280. function getSIDL : TBits_1; inline;
  1281. function getw : TBits_32; inline;
  1282. procedure setOC32(thebits : TBits_1); inline;
  1283. procedure setOCFLT(thebits : TBits_1); inline;
  1284. procedure setOCM(thebits : TBits_3); inline;
  1285. procedure setOCM0(thebits : TBits_1); inline;
  1286. procedure setOCM1(thebits : TBits_1); inline;
  1287. procedure setOCM2(thebits : TBits_1); inline;
  1288. procedure setOCSIDL(thebits : TBits_1); inline;
  1289. procedure setOCTSEL(thebits : TBits_1); inline;
  1290. procedure setON(thebits : TBits_1); inline;
  1291. procedure setSIDL(thebits : TBits_1); inline;
  1292. procedure setw(thebits : TBits_32); inline;
  1293. public
  1294. procedure clearOC32; inline;
  1295. procedure clearOCFLT; inline;
  1296. procedure clearOCM0; inline;
  1297. procedure clearOCM1; inline;
  1298. procedure clearOCM2; inline;
  1299. procedure clearOCSIDL; inline;
  1300. procedure clearOCTSEL; inline;
  1301. procedure clearON; inline;
  1302. procedure clearSIDL; inline;
  1303. procedure setOC32; inline;
  1304. procedure setOCFLT; inline;
  1305. procedure setOCM0; inline;
  1306. procedure setOCM1; inline;
  1307. procedure setOCM2; inline;
  1308. procedure setOCSIDL; inline;
  1309. procedure setOCTSEL; inline;
  1310. procedure setON; inline;
  1311. procedure setSIDL; inline;
  1312. property OC32 : TBits_1 read getOC32 write setOC32;
  1313. property OCFLT : TBits_1 read getOCFLT write setOCFLT;
  1314. property OCM : TBits_3 read getOCM write setOCM;
  1315. property OCM0 : TBits_1 read getOCM0 write setOCM0;
  1316. property OCM1 : TBits_1 read getOCM1 write setOCM1;
  1317. property OCM2 : TBits_1 read getOCM2 write setOCM2;
  1318. property OCSIDL : TBits_1 read getOCSIDL write setOCSIDL;
  1319. property OCTSEL : TBits_1 read getOCTSEL write setOCTSEL;
  1320. property ON : TBits_1 read getON write setON;
  1321. property SIDL : TBits_1 read getSIDL write setSIDL;
  1322. property w : TBits_32 read getw write setw;
  1323. end;
  1324. type
  1325. TOCMP3Registers = record
  1326. OC3CONbits : TOCMP3_OC3CON;
  1327. OC3CON : longWord;
  1328. OC3CONCLR : longWord;
  1329. OC3CONSET : longWord;
  1330. OC3CONINV : longWord;
  1331. OC3R : longWord;
  1332. OC3RCLR : longWord;
  1333. OC3RSET : longWord;
  1334. OC3RINV : longWord;
  1335. OC3RS : longWord;
  1336. OC3RSCLR : longWord;
  1337. OC3RSSET : longWord;
  1338. OC3RSINV : longWord;
  1339. end;
  1340. TOCMP4_OC4CON = record
  1341. private
  1342. function getOC32 : TBits_1; inline;
  1343. function getOCFLT : TBits_1; inline;
  1344. function getOCM : TBits_3; inline;
  1345. function getOCM0 : TBits_1; inline;
  1346. function getOCM1 : TBits_1; inline;
  1347. function getOCM2 : TBits_1; inline;
  1348. function getOCSIDL : TBits_1; inline;
  1349. function getOCTSEL : TBits_1; inline;
  1350. function getON : TBits_1; inline;
  1351. function getSIDL : TBits_1; inline;
  1352. function getw : TBits_32; inline;
  1353. procedure setOC32(thebits : TBits_1); inline;
  1354. procedure setOCFLT(thebits : TBits_1); inline;
  1355. procedure setOCM(thebits : TBits_3); inline;
  1356. procedure setOCM0(thebits : TBits_1); inline;
  1357. procedure setOCM1(thebits : TBits_1); inline;
  1358. procedure setOCM2(thebits : TBits_1); inline;
  1359. procedure setOCSIDL(thebits : TBits_1); inline;
  1360. procedure setOCTSEL(thebits : TBits_1); inline;
  1361. procedure setON(thebits : TBits_1); inline;
  1362. procedure setSIDL(thebits : TBits_1); inline;
  1363. procedure setw(thebits : TBits_32); inline;
  1364. public
  1365. procedure clearOC32; inline;
  1366. procedure clearOCFLT; inline;
  1367. procedure clearOCM0; inline;
  1368. procedure clearOCM1; inline;
  1369. procedure clearOCM2; inline;
  1370. procedure clearOCSIDL; inline;
  1371. procedure clearOCTSEL; inline;
  1372. procedure clearON; inline;
  1373. procedure clearSIDL; inline;
  1374. procedure setOC32; inline;
  1375. procedure setOCFLT; inline;
  1376. procedure setOCM0; inline;
  1377. procedure setOCM1; inline;
  1378. procedure setOCM2; inline;
  1379. procedure setOCSIDL; inline;
  1380. procedure setOCTSEL; inline;
  1381. procedure setON; inline;
  1382. procedure setSIDL; inline;
  1383. property OC32 : TBits_1 read getOC32 write setOC32;
  1384. property OCFLT : TBits_1 read getOCFLT write setOCFLT;
  1385. property OCM : TBits_3 read getOCM write setOCM;
  1386. property OCM0 : TBits_1 read getOCM0 write setOCM0;
  1387. property OCM1 : TBits_1 read getOCM1 write setOCM1;
  1388. property OCM2 : TBits_1 read getOCM2 write setOCM2;
  1389. property OCSIDL : TBits_1 read getOCSIDL write setOCSIDL;
  1390. property OCTSEL : TBits_1 read getOCTSEL write setOCTSEL;
  1391. property ON : TBits_1 read getON write setON;
  1392. property SIDL : TBits_1 read getSIDL write setSIDL;
  1393. property w : TBits_32 read getw write setw;
  1394. end;
  1395. type
  1396. TOCMP4Registers = record
  1397. OC4CONbits : TOCMP4_OC4CON;
  1398. OC4CON : longWord;
  1399. OC4CONCLR : longWord;
  1400. OC4CONSET : longWord;
  1401. OC4CONINV : longWord;
  1402. OC4R : longWord;
  1403. OC4RCLR : longWord;
  1404. OC4RSET : longWord;
  1405. OC4RINV : longWord;
  1406. OC4RS : longWord;
  1407. OC4RSCLR : longWord;
  1408. OC4RSSET : longWord;
  1409. OC4RSINV : longWord;
  1410. end;
  1411. TOCMP5_OC5CON = record
  1412. private
  1413. function getOC32 : TBits_1; inline;
  1414. function getOCFLT : TBits_1; inline;
  1415. function getOCM : TBits_3; inline;
  1416. function getOCM0 : TBits_1; inline;
  1417. function getOCM1 : TBits_1; inline;
  1418. function getOCM2 : TBits_1; inline;
  1419. function getOCSIDL : TBits_1; inline;
  1420. function getOCTSEL : TBits_1; inline;
  1421. function getON : TBits_1; inline;
  1422. function getSIDL : TBits_1; inline;
  1423. function getw : TBits_32; inline;
  1424. procedure setOC32(thebits : TBits_1); inline;
  1425. procedure setOCFLT(thebits : TBits_1); inline;
  1426. procedure setOCM(thebits : TBits_3); inline;
  1427. procedure setOCM0(thebits : TBits_1); inline;
  1428. procedure setOCM1(thebits : TBits_1); inline;
  1429. procedure setOCM2(thebits : TBits_1); inline;
  1430. procedure setOCSIDL(thebits : TBits_1); inline;
  1431. procedure setOCTSEL(thebits : TBits_1); inline;
  1432. procedure setON(thebits : TBits_1); inline;
  1433. procedure setSIDL(thebits : TBits_1); inline;
  1434. procedure setw(thebits : TBits_32); inline;
  1435. public
  1436. procedure clearOC32; inline;
  1437. procedure clearOCFLT; inline;
  1438. procedure clearOCM0; inline;
  1439. procedure clearOCM1; inline;
  1440. procedure clearOCM2; inline;
  1441. procedure clearOCSIDL; inline;
  1442. procedure clearOCTSEL; inline;
  1443. procedure clearON; inline;
  1444. procedure clearSIDL; inline;
  1445. procedure setOC32; inline;
  1446. procedure setOCFLT; inline;
  1447. procedure setOCM0; inline;
  1448. procedure setOCM1; inline;
  1449. procedure setOCM2; inline;
  1450. procedure setOCSIDL; inline;
  1451. procedure setOCTSEL; inline;
  1452. procedure setON; inline;
  1453. procedure setSIDL; inline;
  1454. property OC32 : TBits_1 read getOC32 write setOC32;
  1455. property OCFLT : TBits_1 read getOCFLT write setOCFLT;
  1456. property OCM : TBits_3 read getOCM write setOCM;
  1457. property OCM0 : TBits_1 read getOCM0 write setOCM0;
  1458. property OCM1 : TBits_1 read getOCM1 write setOCM1;
  1459. property OCM2 : TBits_1 read getOCM2 write setOCM2;
  1460. property OCSIDL : TBits_1 read getOCSIDL write setOCSIDL;
  1461. property OCTSEL : TBits_1 read getOCTSEL write setOCTSEL;
  1462. property ON : TBits_1 read getON write setON;
  1463. property SIDL : TBits_1 read getSIDL write setSIDL;
  1464. property w : TBits_32 read getw write setw;
  1465. end;
  1466. type
  1467. TOCMP5Registers = record
  1468. OC5CONbits : TOCMP5_OC5CON;
  1469. OC5CON : longWord;
  1470. OC5CONCLR : longWord;
  1471. OC5CONSET : longWord;
  1472. OC5CONINV : longWord;
  1473. OC5R : longWord;
  1474. OC5RCLR : longWord;
  1475. OC5RSET : longWord;
  1476. OC5RINV : longWord;
  1477. OC5RS : longWord;
  1478. OC5RSCLR : longWord;
  1479. OC5RSSET : longWord;
  1480. OC5RSINV : longWord;
  1481. end;
  1482. TI2C3_I2C1ACON = record
  1483. private
  1484. function getA10M : TBits_1; inline;
  1485. function getACKDT : TBits_1; inline;
  1486. function getACKEN : TBits_1; inline;
  1487. function getDISSLW : TBits_1; inline;
  1488. function getGCEN : TBits_1; inline;
  1489. function getI2CEN : TBits_1; inline;
  1490. function getI2CSIDL : TBits_1; inline;
  1491. function getIPMIEN : TBits_1; inline;
  1492. function getON : TBits_1; inline;
  1493. function getPEN : TBits_1; inline;
  1494. function getRCEN : TBits_1; inline;
  1495. function getRSEN : TBits_1; inline;
  1496. function getSCLREL : TBits_1; inline;
  1497. function getSEN : TBits_1; inline;
  1498. function getSIDL : TBits_1; inline;
  1499. function getSMEN : TBits_1; inline;
  1500. function getSTREN : TBits_1; inline;
  1501. function getSTRICT : TBits_1; inline;
  1502. function getw : TBits_32; inline;
  1503. procedure setA10M(thebits : TBits_1); inline;
  1504. procedure setACKDT(thebits : TBits_1); inline;
  1505. procedure setACKEN(thebits : TBits_1); inline;
  1506. procedure setDISSLW(thebits : TBits_1); inline;
  1507. procedure setGCEN(thebits : TBits_1); inline;
  1508. procedure setI2CEN(thebits : TBits_1); inline;
  1509. procedure setI2CSIDL(thebits : TBits_1); inline;
  1510. procedure setIPMIEN(thebits : TBits_1); inline;
  1511. procedure setON(thebits : TBits_1); inline;
  1512. procedure setPEN(thebits : TBits_1); inline;
  1513. procedure setRCEN(thebits : TBits_1); inline;
  1514. procedure setRSEN(thebits : TBits_1); inline;
  1515. procedure setSCLREL(thebits : TBits_1); inline;
  1516. procedure setSEN(thebits : TBits_1); inline;
  1517. procedure setSIDL(thebits : TBits_1); inline;
  1518. procedure setSMEN(thebits : TBits_1); inline;
  1519. procedure setSTREN(thebits : TBits_1); inline;
  1520. procedure setSTRICT(thebits : TBits_1); inline;
  1521. procedure setw(thebits : TBits_32); inline;
  1522. public
  1523. procedure clearA10M; inline;
  1524. procedure clearACKDT; inline;
  1525. procedure clearACKEN; inline;
  1526. procedure clearDISSLW; inline;
  1527. procedure clearGCEN; inline;
  1528. procedure clearI2CEN; inline;
  1529. procedure clearI2CSIDL; inline;
  1530. procedure clearIPMIEN; inline;
  1531. procedure clearON; inline;
  1532. procedure clearPEN; inline;
  1533. procedure clearRCEN; inline;
  1534. procedure clearRSEN; inline;
  1535. procedure clearSCLREL; inline;
  1536. procedure clearSEN; inline;
  1537. procedure clearSIDL; inline;
  1538. procedure clearSMEN; inline;
  1539. procedure clearSTREN; inline;
  1540. procedure clearSTRICT; inline;
  1541. procedure setA10M; inline;
  1542. procedure setACKDT; inline;
  1543. procedure setACKEN; inline;
  1544. procedure setDISSLW; inline;
  1545. procedure setGCEN; inline;
  1546. procedure setI2CEN; inline;
  1547. procedure setI2CSIDL; inline;
  1548. procedure setIPMIEN; inline;
  1549. procedure setON; inline;
  1550. procedure setPEN; inline;
  1551. procedure setRCEN; inline;
  1552. procedure setRSEN; inline;
  1553. procedure setSCLREL; inline;
  1554. procedure setSEN; inline;
  1555. procedure setSIDL; inline;
  1556. procedure setSMEN; inline;
  1557. procedure setSTREN; inline;
  1558. procedure setSTRICT; inline;
  1559. property A10M : TBits_1 read getA10M write setA10M;
  1560. property ACKDT : TBits_1 read getACKDT write setACKDT;
  1561. property ACKEN : TBits_1 read getACKEN write setACKEN;
  1562. property DISSLW : TBits_1 read getDISSLW write setDISSLW;
  1563. property GCEN : TBits_1 read getGCEN write setGCEN;
  1564. property I2CEN : TBits_1 read getI2CEN write setI2CEN;
  1565. property I2CSIDL : TBits_1 read getI2CSIDL write setI2CSIDL;
  1566. property IPMIEN : TBits_1 read getIPMIEN write setIPMIEN;
  1567. property ON : TBits_1 read getON write setON;
  1568. property PEN : TBits_1 read getPEN write setPEN;
  1569. property RCEN : TBits_1 read getRCEN write setRCEN;
  1570. property RSEN : TBits_1 read getRSEN write setRSEN;
  1571. property SCLREL : TBits_1 read getSCLREL write setSCLREL;
  1572. property SEN : TBits_1 read getSEN write setSEN;
  1573. property SIDL : TBits_1 read getSIDL write setSIDL;
  1574. property SMEN : TBits_1 read getSMEN write setSMEN;
  1575. property STREN : TBits_1 read getSTREN write setSTREN;
  1576. property STRICT : TBits_1 read getSTRICT write setSTRICT;
  1577. property w : TBits_32 read getw write setw;
  1578. end;
  1579. TI2C3_I2C3CON = record
  1580. private
  1581. function getA10M : TBits_1; inline;
  1582. function getACKDT : TBits_1; inline;
  1583. function getACKEN : TBits_1; inline;
  1584. function getDISSLW : TBits_1; inline;
  1585. function getGCEN : TBits_1; inline;
  1586. function getI2CEN : TBits_1; inline;
  1587. function getI2CSIDL : TBits_1; inline;
  1588. function getIPMIEN : TBits_1; inline;
  1589. function getON : TBits_1; inline;
  1590. function getPEN : TBits_1; inline;
  1591. function getRCEN : TBits_1; inline;
  1592. function getRSEN : TBits_1; inline;
  1593. function getSCLREL : TBits_1; inline;
  1594. function getSEN : TBits_1; inline;
  1595. function getSIDL : TBits_1; inline;
  1596. function getSMEN : TBits_1; inline;
  1597. function getSTREN : TBits_1; inline;
  1598. function getSTRICT : TBits_1; inline;
  1599. function getw : TBits_32; inline;
  1600. procedure setA10M(thebits : TBits_1); inline;
  1601. procedure setACKDT(thebits : TBits_1); inline;
  1602. procedure setACKEN(thebits : TBits_1); inline;
  1603. procedure setDISSLW(thebits : TBits_1); inline;
  1604. procedure setGCEN(thebits : TBits_1); inline;
  1605. procedure setI2CEN(thebits : TBits_1); inline;
  1606. procedure setI2CSIDL(thebits : TBits_1); inline;
  1607. procedure setIPMIEN(thebits : TBits_1); inline;
  1608. procedure setON(thebits : TBits_1); inline;
  1609. procedure setPEN(thebits : TBits_1); inline;
  1610. procedure setRCEN(thebits : TBits_1); inline;
  1611. procedure setRSEN(thebits : TBits_1); inline;
  1612. procedure setSCLREL(thebits : TBits_1); inline;
  1613. procedure setSEN(thebits : TBits_1); inline;
  1614. procedure setSIDL(thebits : TBits_1); inline;
  1615. procedure setSMEN(thebits : TBits_1); inline;
  1616. procedure setSTREN(thebits : TBits_1); inline;
  1617. procedure setSTRICT(thebits : TBits_1); inline;
  1618. procedure setw(thebits : TBits_32); inline;
  1619. public
  1620. procedure clearA10M; inline;
  1621. procedure clearACKDT; inline;
  1622. procedure clearACKEN; inline;
  1623. procedure clearDISSLW; inline;
  1624. procedure clearGCEN; inline;
  1625. procedure clearI2CEN; inline;
  1626. procedure clearI2CSIDL; inline;
  1627. procedure clearIPMIEN; inline;
  1628. procedure clearON; inline;
  1629. procedure clearPEN; inline;
  1630. procedure clearRCEN; inline;
  1631. procedure clearRSEN; inline;
  1632. procedure clearSCLREL; inline;
  1633. procedure clearSEN; inline;
  1634. procedure clearSIDL; inline;
  1635. procedure clearSMEN; inline;
  1636. procedure clearSTREN; inline;
  1637. procedure clearSTRICT; inline;
  1638. procedure setA10M; inline;
  1639. procedure setACKDT; inline;
  1640. procedure setACKEN; inline;
  1641. procedure setDISSLW; inline;
  1642. procedure setGCEN; inline;
  1643. procedure setI2CEN; inline;
  1644. procedure setI2CSIDL; inline;
  1645. procedure setIPMIEN; inline;
  1646. procedure setON; inline;
  1647. procedure setPEN; inline;
  1648. procedure setRCEN; inline;
  1649. procedure setRSEN; inline;
  1650. procedure setSCLREL; inline;
  1651. procedure setSEN; inline;
  1652. procedure setSIDL; inline;
  1653. procedure setSMEN; inline;
  1654. procedure setSTREN; inline;
  1655. procedure setSTRICT; inline;
  1656. property A10M : TBits_1 read getA10M write setA10M;
  1657. property ACKDT : TBits_1 read getACKDT write setACKDT;
  1658. property ACKEN : TBits_1 read getACKEN write setACKEN;
  1659. property DISSLW : TBits_1 read getDISSLW write setDISSLW;
  1660. property GCEN : TBits_1 read getGCEN write setGCEN;
  1661. property I2CEN : TBits_1 read getI2CEN write setI2CEN;
  1662. property I2CSIDL : TBits_1 read getI2CSIDL write setI2CSIDL;
  1663. property IPMIEN : TBits_1 read getIPMIEN write setIPMIEN;
  1664. property ON : TBits_1 read getON write setON;
  1665. property PEN : TBits_1 read getPEN write setPEN;
  1666. property RCEN : TBits_1 read getRCEN write setRCEN;
  1667. property RSEN : TBits_1 read getRSEN write setRSEN;
  1668. property SCLREL : TBits_1 read getSCLREL write setSCLREL;
  1669. property SEN : TBits_1 read getSEN write setSEN;
  1670. property SIDL : TBits_1 read getSIDL write setSIDL;
  1671. property SMEN : TBits_1 read getSMEN write setSMEN;
  1672. property STREN : TBits_1 read getSTREN write setSTREN;
  1673. property STRICT : TBits_1 read getSTRICT write setSTRICT;
  1674. property w : TBits_32 read getw write setw;
  1675. end;
  1676. TI2C3_I2C1ASTAT = record
  1677. private
  1678. function getACKSTAT : TBits_1; inline;
  1679. function getADD10 : TBits_1; inline;
  1680. function getBCL : TBits_1; inline;
  1681. function getD_A : TBits_1; inline;
  1682. function getGCSTAT : TBits_1; inline;
  1683. function getI2COV : TBits_1; inline;
  1684. function getI2CPOV : TBits_1; inline;
  1685. function getIWCOL : TBits_1; inline;
  1686. function getP : TBits_1; inline;
  1687. function getRBF : TBits_1; inline;
  1688. function getR_W : TBits_1; inline;
  1689. function getS : TBits_1; inline;
  1690. function getTBF : TBits_1; inline;
  1691. function getTRSTAT : TBits_1; inline;
  1692. function getw : TBits_32; inline;
  1693. procedure setACKSTAT(thebits : TBits_1); inline;
  1694. procedure setADD10(thebits : TBits_1); inline;
  1695. procedure setBCL(thebits : TBits_1); inline;
  1696. procedure setD_A(thebits : TBits_1); inline;
  1697. procedure setGCSTAT(thebits : TBits_1); inline;
  1698. procedure setI2COV(thebits : TBits_1); inline;
  1699. procedure setI2CPOV(thebits : TBits_1); inline;
  1700. procedure setIWCOL(thebits : TBits_1); inline;
  1701. procedure setP(thebits : TBits_1); inline;
  1702. procedure setRBF(thebits : TBits_1); inline;
  1703. procedure setR_W(thebits : TBits_1); inline;
  1704. procedure setS(thebits : TBits_1); inline;
  1705. procedure setTBF(thebits : TBits_1); inline;
  1706. procedure setTRSTAT(thebits : TBits_1); inline;
  1707. procedure setw(thebits : TBits_32); inline;
  1708. public
  1709. procedure clearACKSTAT; inline;
  1710. procedure clearADD10; inline;
  1711. procedure clearBCL; inline;
  1712. procedure clearD_A; inline;
  1713. procedure clearGCSTAT; inline;
  1714. procedure clearI2COV; inline;
  1715. procedure clearI2CPOV; inline;
  1716. procedure clearIWCOL; inline;
  1717. procedure clearP; inline;
  1718. procedure clearRBF; inline;
  1719. procedure clearR_W; inline;
  1720. procedure clearS; inline;
  1721. procedure clearTBF; inline;
  1722. procedure clearTRSTAT; inline;
  1723. procedure setACKSTAT; inline;
  1724. procedure setADD10; inline;
  1725. procedure setBCL; inline;
  1726. procedure setD_A; inline;
  1727. procedure setGCSTAT; inline;
  1728. procedure setI2COV; inline;
  1729. procedure setI2CPOV; inline;
  1730. procedure setIWCOL; inline;
  1731. procedure setP; inline;
  1732. procedure setRBF; inline;
  1733. procedure setR_W; inline;
  1734. procedure setS; inline;
  1735. procedure setTBF; inline;
  1736. procedure setTRSTAT; inline;
  1737. property ACKSTAT : TBits_1 read getACKSTAT write setACKSTAT;
  1738. property ADD10 : TBits_1 read getADD10 write setADD10;
  1739. property BCL : TBits_1 read getBCL write setBCL;
  1740. property D_A : TBits_1 read getD_A write setD_A;
  1741. property GCSTAT : TBits_1 read getGCSTAT write setGCSTAT;
  1742. property I2COV : TBits_1 read getI2COV write setI2COV;
  1743. property I2CPOV : TBits_1 read getI2CPOV write setI2CPOV;
  1744. property IWCOL : TBits_1 read getIWCOL write setIWCOL;
  1745. property P : TBits_1 read getP write setP;
  1746. property RBF : TBits_1 read getRBF write setRBF;
  1747. property R_W : TBits_1 read getR_W write setR_W;
  1748. property S : TBits_1 read getS write setS;
  1749. property TBF : TBits_1 read getTBF write setTBF;
  1750. property TRSTAT : TBits_1 read getTRSTAT write setTRSTAT;
  1751. property w : TBits_32 read getw write setw;
  1752. end;
  1753. TI2C3_I2C3STAT = record
  1754. private
  1755. function getACKSTAT : TBits_1; inline;
  1756. function getADD10 : TBits_1; inline;
  1757. function getBCL : TBits_1; inline;
  1758. function getD_A : TBits_1; inline;
  1759. function getGCSTAT : TBits_1; inline;
  1760. function getI2COV : TBits_1; inline;
  1761. function getI2CPOV : TBits_1; inline;
  1762. function getIWCOL : TBits_1; inline;
  1763. function getP : TBits_1; inline;
  1764. function getRBF : TBits_1; inline;
  1765. function getR_W : TBits_1; inline;
  1766. function getS : TBits_1; inline;
  1767. function getTBF : TBits_1; inline;
  1768. function getTRSTAT : TBits_1; inline;
  1769. function getw : TBits_32; inline;
  1770. procedure setACKSTAT(thebits : TBits_1); inline;
  1771. procedure setADD10(thebits : TBits_1); inline;
  1772. procedure setBCL(thebits : TBits_1); inline;
  1773. procedure setD_A(thebits : TBits_1); inline;
  1774. procedure setGCSTAT(thebits : TBits_1); inline;
  1775. procedure setI2COV(thebits : TBits_1); inline;
  1776. procedure setI2CPOV(thebits : TBits_1); inline;
  1777. procedure setIWCOL(thebits : TBits_1); inline;
  1778. procedure setP(thebits : TBits_1); inline;
  1779. procedure setRBF(thebits : TBits_1); inline;
  1780. procedure setR_W(thebits : TBits_1); inline;
  1781. procedure setS(thebits : TBits_1); inline;
  1782. procedure setTBF(thebits : TBits_1); inline;
  1783. procedure setTRSTAT(thebits : TBits_1); inline;
  1784. procedure setw(thebits : TBits_32); inline;
  1785. public
  1786. procedure clearACKSTAT; inline;
  1787. procedure clearADD10; inline;
  1788. procedure clearBCL; inline;
  1789. procedure clearD_A; inline;
  1790. procedure clearGCSTAT; inline;
  1791. procedure clearI2COV; inline;
  1792. procedure clearI2CPOV; inline;
  1793. procedure clearIWCOL; inline;
  1794. procedure clearP; inline;
  1795. procedure clearRBF; inline;
  1796. procedure clearR_W; inline;
  1797. procedure clearS; inline;
  1798. procedure clearTBF; inline;
  1799. procedure clearTRSTAT; inline;
  1800. procedure setACKSTAT; inline;
  1801. procedure setADD10; inline;
  1802. procedure setBCL; inline;
  1803. procedure setD_A; inline;
  1804. procedure setGCSTAT; inline;
  1805. procedure setI2COV; inline;
  1806. procedure setI2CPOV; inline;
  1807. procedure setIWCOL; inline;
  1808. procedure setP; inline;
  1809. procedure setRBF; inline;
  1810. procedure setR_W; inline;
  1811. procedure setS; inline;
  1812. procedure setTBF; inline;
  1813. procedure setTRSTAT; inline;
  1814. property ACKSTAT : TBits_1 read getACKSTAT write setACKSTAT;
  1815. property ADD10 : TBits_1 read getADD10 write setADD10;
  1816. property BCL : TBits_1 read getBCL write setBCL;
  1817. property D_A : TBits_1 read getD_A write setD_A;
  1818. property GCSTAT : TBits_1 read getGCSTAT write setGCSTAT;
  1819. property I2COV : TBits_1 read getI2COV write setI2COV;
  1820. property I2CPOV : TBits_1 read getI2CPOV write setI2CPOV;
  1821. property IWCOL : TBits_1 read getIWCOL write setIWCOL;
  1822. property P : TBits_1 read getP write setP;
  1823. property RBF : TBits_1 read getRBF write setRBF;
  1824. property R_W : TBits_1 read getR_W write setR_W;
  1825. property S : TBits_1 read getS write setS;
  1826. property TBF : TBits_1 read getTBF write setTBF;
  1827. property TRSTAT : TBits_1 read getTRSTAT write setTRSTAT;
  1828. property w : TBits_32 read getw write setw;
  1829. end;
  1830. type
  1831. TI2C3Registers = record
  1832. I2C1ACONbits : TI2C3_I2C1ACON;
  1833. I2C1ACON : longWord;
  1834. I2C3CONbits : TI2C3_I2C3CON;
  1835. I2C3CON : longWord;
  1836. I2C1ACONCLR : longWord;
  1837. I2C3CONCLR : longWord;
  1838. I2C1ACONSET : longWord;
  1839. I2C3CONSET : longWord;
  1840. I2C1ACONINV : longWord;
  1841. I2C3CONINV : longWord;
  1842. I2C1ASTATbits : TI2C3_I2C1ASTAT;
  1843. I2C1ASTAT : longWord;
  1844. I2C3STATbits : TI2C3_I2C3STAT;
  1845. I2C3STAT : longWord;
  1846. I2C1ASTATCLR : longWord;
  1847. I2C3STATCLR : longWord;
  1848. I2C1ASTATSET : longWord;
  1849. I2C3STATSET : longWord;
  1850. I2C1ASTATINV : longWord;
  1851. I2C3STATINV : longWord;
  1852. I2C1AADD : longWord;
  1853. I2C3ADD : longWord;
  1854. I2C1AADDCLR : longWord;
  1855. I2C3ADDCLR : longWord;
  1856. I2C1AADDSET : longWord;
  1857. I2C3ADDSET : longWord;
  1858. I2C1AADDINV : longWord;
  1859. I2C3ADDINV : longWord;
  1860. I2C1AMSK : longWord;
  1861. I2C3MSK : longWord;
  1862. I2C1AMSKCLR : longWord;
  1863. I2C3MSKCLR : longWord;
  1864. I2C1AMSKSET : longWord;
  1865. I2C3MSKSET : longWord;
  1866. I2C1AMSKINV : longWord;
  1867. I2C3MSKINV : longWord;
  1868. I2C1ABRG : longWord;
  1869. I2C3BRG : longWord;
  1870. I2C1ABRGCLR : longWord;
  1871. I2C3BRGCLR : longWord;
  1872. I2C1ABRGSET : longWord;
  1873. I2C3BRGSET : longWord;
  1874. I2C1ABRGINV : longWord;
  1875. I2C3BRGINV : longWord;
  1876. I2C1ATRN : longWord;
  1877. I2C3TRN : longWord;
  1878. I2C1ATRNCLR : longWord;
  1879. I2C3TRNCLR : longWord;
  1880. I2C1ATRNSET : longWord;
  1881. I2C3TRNSET : longWord;
  1882. I2C1ATRNINV : longWord;
  1883. I2C3TRNINV : longWord;
  1884. I2C1ARCV : longWord;
  1885. I2C3RCV : longWord;
  1886. end;
  1887. TI2C4_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. TI2C4_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. TI2C4_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. TI2C4_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. TI2C4Registers = record
  2237. I2C2ACONbits : TI2C4_I2C2ACON;
  2238. I2C2ACON : longWord;
  2239. I2C4CONbits : TI2C4_I2C4CON;
  2240. I2C4CON : longWord;
  2241. I2C2ACONCLR : longWord;
  2242. I2C4CONCLR : longWord;
  2243. I2C2ACONSET : longWord;
  2244. I2C4CONSET : longWord;
  2245. I2C2ACONINV : longWord;
  2246. I2C4CONINV : longWord;
  2247. I2C2ASTATbits : TI2C4_I2C2ASTAT;
  2248. I2C2ASTAT : longWord;
  2249. I2C4STATbits : TI2C4_I2C4STAT;
  2250. I2C4STAT : longWord;
  2251. I2C2ASTATCLR : longWord;
  2252. I2C4STATCLR : longWord;
  2253. I2C2ASTATSET : longWord;
  2254. I2C4STATSET : longWord;
  2255. I2C2ASTATINV : longWord;
  2256. I2C4STATINV : longWord;
  2257. I2C2AADD : longWord;
  2258. I2C4ADD : longWord;
  2259. I2C2AADDCLR : longWord;
  2260. I2C4ADDCLR : longWord;
  2261. I2C2AADDSET : longWord;
  2262. I2C4ADDSET : longWord;
  2263. I2C2AADDINV : longWord;
  2264. I2C4ADDINV : longWord;
  2265. I2C2AMSK : longWord;
  2266. I2C4MSK : longWord;
  2267. I2C2AMSKCLR : longWord;
  2268. I2C4MSKCLR : longWord;
  2269. I2C2AMSKSET : longWord;
  2270. I2C4MSKSET : longWord;
  2271. I2C2AMSKINV : longWord;
  2272. I2C4MSKINV : longWord;
  2273. I2C2ABRG : longWord;
  2274. I2C4BRG : longWord;
  2275. I2C2ABRGCLR : longWord;
  2276. I2C4BRGCLR : longWord;
  2277. I2C2ABRGSET : longWord;
  2278. I2C4BRGSET : longWord;
  2279. I2C2ABRGINV : longWord;
  2280. I2C4BRGINV : longWord;
  2281. I2C2ATRN : longWord;
  2282. I2C4TRN : longWord;
  2283. I2C2ATRNCLR : longWord;
  2284. I2C4TRNCLR : longWord;
  2285. I2C2ATRNSET : longWord;
  2286. I2C4TRNSET : longWord;
  2287. I2C2ATRNINV : longWord;
  2288. I2C4TRNINV : longWord;
  2289. I2C2ARCV : longWord;
  2290. I2C4RCV : longWord;
  2291. end;
  2292. TI2C5_I2C3ACON = record
  2293. private
  2294. function getA10M : TBits_1; inline;
  2295. function getACKDT : TBits_1; inline;
  2296. function getACKEN : TBits_1; inline;
  2297. function getDISSLW : TBits_1; inline;
  2298. function getGCEN : TBits_1; inline;
  2299. function getI2CEN : TBits_1; inline;
  2300. function getI2CSIDL : TBits_1; inline;
  2301. function getIPMIEN : TBits_1; inline;
  2302. function getON : TBits_1; inline;
  2303. function getPEN : TBits_1; inline;
  2304. function getRCEN : TBits_1; inline;
  2305. function getRSEN : TBits_1; inline;
  2306. function getSCLREL : TBits_1; inline;
  2307. function getSEN : TBits_1; inline;
  2308. function getSIDL : TBits_1; inline;
  2309. function getSMEN : TBits_1; inline;
  2310. function getSTREN : TBits_1; inline;
  2311. function getSTRICT : TBits_1; inline;
  2312. function getw : TBits_32; inline;
  2313. procedure setA10M(thebits : TBits_1); inline;
  2314. procedure setACKDT(thebits : TBits_1); inline;
  2315. procedure setACKEN(thebits : TBits_1); inline;
  2316. procedure setDISSLW(thebits : TBits_1); inline;
  2317. procedure setGCEN(thebits : TBits_1); inline;
  2318. procedure setI2CEN(thebits : TBits_1); inline;
  2319. procedure setI2CSIDL(thebits : TBits_1); inline;
  2320. procedure setIPMIEN(thebits : TBits_1); inline;
  2321. procedure setON(thebits : TBits_1); inline;
  2322. procedure setPEN(thebits : TBits_1); inline;
  2323. procedure setRCEN(thebits : TBits_1); inline;
  2324. procedure setRSEN(thebits : TBits_1); inline;
  2325. procedure setSCLREL(thebits : TBits_1); inline;
  2326. procedure setSEN(thebits : TBits_1); inline;
  2327. procedure setSIDL(thebits : TBits_1); inline;
  2328. procedure setSMEN(thebits : TBits_1); inline;
  2329. procedure setSTREN(thebits : TBits_1); inline;
  2330. procedure setSTRICT(thebits : TBits_1); inline;
  2331. procedure setw(thebits : TBits_32); inline;
  2332. public
  2333. procedure clearA10M; inline;
  2334. procedure clearACKDT; inline;
  2335. procedure clearACKEN; inline;
  2336. procedure clearDISSLW; inline;
  2337. procedure clearGCEN; inline;
  2338. procedure clearI2CEN; inline;
  2339. procedure clearI2CSIDL; inline;
  2340. procedure clearIPMIEN; inline;
  2341. procedure clearON; inline;
  2342. procedure clearPEN; inline;
  2343. procedure clearRCEN; inline;
  2344. procedure clearRSEN; inline;
  2345. procedure clearSCLREL; inline;
  2346. procedure clearSEN; inline;
  2347. procedure clearSIDL; inline;
  2348. procedure clearSMEN; inline;
  2349. procedure clearSTREN; inline;
  2350. procedure clearSTRICT; inline;
  2351. procedure setA10M; inline;
  2352. procedure setACKDT; inline;
  2353. procedure setACKEN; inline;
  2354. procedure setDISSLW; inline;
  2355. procedure setGCEN; inline;
  2356. procedure setI2CEN; inline;
  2357. procedure setI2CSIDL; inline;
  2358. procedure setIPMIEN; inline;
  2359. procedure setON; inline;
  2360. procedure setPEN; inline;
  2361. procedure setRCEN; inline;
  2362. procedure setRSEN; inline;
  2363. procedure setSCLREL; inline;
  2364. procedure setSEN; inline;
  2365. procedure setSIDL; inline;
  2366. procedure setSMEN; inline;
  2367. procedure setSTREN; inline;
  2368. procedure setSTRICT; inline;
  2369. property A10M : TBits_1 read getA10M write setA10M;
  2370. property ACKDT : TBits_1 read getACKDT write setACKDT;
  2371. property ACKEN : TBits_1 read getACKEN write setACKEN;
  2372. property DISSLW : TBits_1 read getDISSLW write setDISSLW;
  2373. property GCEN : TBits_1 read getGCEN write setGCEN;
  2374. property I2CEN : TBits_1 read getI2CEN write setI2CEN;
  2375. property I2CSIDL : TBits_1 read getI2CSIDL write setI2CSIDL;
  2376. property IPMIEN : TBits_1 read getIPMIEN write setIPMIEN;
  2377. property ON : TBits_1 read getON write setON;
  2378. property PEN : TBits_1 read getPEN write setPEN;
  2379. property RCEN : TBits_1 read getRCEN write setRCEN;
  2380. property RSEN : TBits_1 read getRSEN write setRSEN;
  2381. property SCLREL : TBits_1 read getSCLREL write setSCLREL;
  2382. property SEN : TBits_1 read getSEN write setSEN;
  2383. property SIDL : TBits_1 read getSIDL write setSIDL;
  2384. property SMEN : TBits_1 read getSMEN write setSMEN;
  2385. property STREN : TBits_1 read getSTREN write setSTREN;
  2386. property STRICT : TBits_1 read getSTRICT write setSTRICT;
  2387. property w : TBits_32 read getw write setw;
  2388. end;
  2389. TI2C5_I2C5CON = record
  2390. private
  2391. function getA10M : TBits_1; inline;
  2392. function getACKDT : TBits_1; inline;
  2393. function getACKEN : TBits_1; inline;
  2394. function getDISSLW : TBits_1; inline;
  2395. function getGCEN : TBits_1; inline;
  2396. function getI2CEN : TBits_1; inline;
  2397. function getI2CSIDL : TBits_1; inline;
  2398. function getIPMIEN : TBits_1; inline;
  2399. function getON : TBits_1; inline;
  2400. function getPEN : TBits_1; inline;
  2401. function getRCEN : TBits_1; inline;
  2402. function getRSEN : TBits_1; inline;
  2403. function getSCLREL : TBits_1; inline;
  2404. function getSEN : TBits_1; inline;
  2405. function getSIDL : TBits_1; inline;
  2406. function getSMEN : TBits_1; inline;
  2407. function getSTREN : TBits_1; inline;
  2408. function getSTRICT : TBits_1; inline;
  2409. function getw : TBits_32; inline;
  2410. procedure setA10M(thebits : TBits_1); inline;
  2411. procedure setACKDT(thebits : TBits_1); inline;
  2412. procedure setACKEN(thebits : TBits_1); inline;
  2413. procedure setDISSLW(thebits : TBits_1); inline;
  2414. procedure setGCEN(thebits : TBits_1); inline;
  2415. procedure setI2CEN(thebits : TBits_1); inline;
  2416. procedure setI2CSIDL(thebits : TBits_1); inline;
  2417. procedure setIPMIEN(thebits : TBits_1); inline;
  2418. procedure setON(thebits : TBits_1); inline;
  2419. procedure setPEN(thebits : TBits_1); inline;
  2420. procedure setRCEN(thebits : TBits_1); inline;
  2421. procedure setRSEN(thebits : TBits_1); inline;
  2422. procedure setSCLREL(thebits : TBits_1); inline;
  2423. procedure setSEN(thebits : TBits_1); inline;
  2424. procedure setSIDL(thebits : TBits_1); inline;
  2425. procedure setSMEN(thebits : TBits_1); inline;
  2426. procedure setSTREN(thebits : TBits_1); inline;
  2427. procedure setSTRICT(thebits : TBits_1); inline;
  2428. procedure setw(thebits : TBits_32); inline;
  2429. public
  2430. procedure clearA10M; inline;
  2431. procedure clearACKDT; inline;
  2432. procedure clearACKEN; inline;
  2433. procedure clearDISSLW; inline;
  2434. procedure clearGCEN; inline;
  2435. procedure clearI2CEN; inline;
  2436. procedure clearI2CSIDL; inline;
  2437. procedure clearIPMIEN; inline;
  2438. procedure clearON; inline;
  2439. procedure clearPEN; inline;
  2440. procedure clearRCEN; inline;
  2441. procedure clearRSEN; inline;
  2442. procedure clearSCLREL; inline;
  2443. procedure clearSEN; inline;
  2444. procedure clearSIDL; inline;
  2445. procedure clearSMEN; inline;
  2446. procedure clearSTREN; inline;
  2447. procedure clearSTRICT; inline;
  2448. procedure setA10M; inline;
  2449. procedure setACKDT; inline;
  2450. procedure setACKEN; inline;
  2451. procedure setDISSLW; inline;
  2452. procedure setGCEN; inline;
  2453. procedure setI2CEN; inline;
  2454. procedure setI2CSIDL; inline;
  2455. procedure setIPMIEN; inline;
  2456. procedure setON; inline;
  2457. procedure setPEN; inline;
  2458. procedure setRCEN; inline;
  2459. procedure setRSEN; inline;
  2460. procedure setSCLREL; inline;
  2461. procedure setSEN; inline;
  2462. procedure setSIDL; inline;
  2463. procedure setSMEN; inline;
  2464. procedure setSTREN; inline;
  2465. procedure setSTRICT; inline;
  2466. property A10M : TBits_1 read getA10M write setA10M;
  2467. property ACKDT : TBits_1 read getACKDT write setACKDT;
  2468. property ACKEN : TBits_1 read getACKEN write setACKEN;
  2469. property DISSLW : TBits_1 read getDISSLW write setDISSLW;
  2470. property GCEN : TBits_1 read getGCEN write setGCEN;
  2471. property I2CEN : TBits_1 read getI2CEN write setI2CEN;
  2472. property I2CSIDL : TBits_1 read getI2CSIDL write setI2CSIDL;
  2473. property IPMIEN : TBits_1 read getIPMIEN write setIPMIEN;
  2474. property ON : TBits_1 read getON write setON;
  2475. property PEN : TBits_1 read getPEN write setPEN;
  2476. property RCEN : TBits_1 read getRCEN write setRCEN;
  2477. property RSEN : TBits_1 read getRSEN write setRSEN;
  2478. property SCLREL : TBits_1 read getSCLREL write setSCLREL;
  2479. property SEN : TBits_1 read getSEN write setSEN;
  2480. property SIDL : TBits_1 read getSIDL write setSIDL;
  2481. property SMEN : TBits_1 read getSMEN write setSMEN;
  2482. property STREN : TBits_1 read getSTREN write setSTREN;
  2483. property STRICT : TBits_1 read getSTRICT write setSTRICT;
  2484. property w : TBits_32 read getw write setw;
  2485. end;
  2486. TI2C5_I2C3ASTAT = record
  2487. private
  2488. function getACKSTAT : TBits_1; inline;
  2489. function getADD10 : TBits_1; inline;
  2490. function getBCL : TBits_1; inline;
  2491. function getD_A : TBits_1; inline;
  2492. function getGCSTAT : TBits_1; inline;
  2493. function getI2COV : TBits_1; inline;
  2494. function getI2CPOV : TBits_1; inline;
  2495. function getIWCOL : TBits_1; inline;
  2496. function getP : TBits_1; inline;
  2497. function getRBF : TBits_1; inline;
  2498. function getR_W : TBits_1; inline;
  2499. function getS : TBits_1; inline;
  2500. function getTBF : TBits_1; inline;
  2501. function getTRSTAT : TBits_1; inline;
  2502. function getw : TBits_32; inline;
  2503. procedure setACKSTAT(thebits : TBits_1); inline;
  2504. procedure setADD10(thebits : TBits_1); inline;
  2505. procedure setBCL(thebits : TBits_1); inline;
  2506. procedure setD_A(thebits : TBits_1); inline;
  2507. procedure setGCSTAT(thebits : TBits_1); inline;
  2508. procedure setI2COV(thebits : TBits_1); inline;
  2509. procedure setI2CPOV(thebits : TBits_1); inline;
  2510. procedure setIWCOL(thebits : TBits_1); inline;
  2511. procedure setP(thebits : TBits_1); inline;
  2512. procedure setRBF(thebits : TBits_1); inline;
  2513. procedure setR_W(thebits : TBits_1); inline;
  2514. procedure setS(thebits : TBits_1); inline;
  2515. procedure setTBF(thebits : TBits_1); inline;
  2516. procedure setTRSTAT(thebits : TBits_1); inline;
  2517. procedure setw(thebits : TBits_32); inline;
  2518. public
  2519. procedure clearACKSTAT; inline;
  2520. procedure clearADD10; inline;
  2521. procedure clearBCL; inline;
  2522. procedure clearD_A; inline;
  2523. procedure clearGCSTAT; inline;
  2524. procedure clearI2COV; inline;
  2525. procedure clearI2CPOV; inline;
  2526. procedure clearIWCOL; inline;
  2527. procedure clearP; inline;
  2528. procedure clearRBF; inline;
  2529. procedure clearR_W; inline;
  2530. procedure clearS; inline;
  2531. procedure clearTBF; inline;
  2532. procedure clearTRSTAT; inline;
  2533. procedure setACKSTAT; inline;
  2534. procedure setADD10; inline;
  2535. procedure setBCL; inline;
  2536. procedure setD_A; inline;
  2537. procedure setGCSTAT; inline;
  2538. procedure setI2COV; inline;
  2539. procedure setI2CPOV; inline;
  2540. procedure setIWCOL; inline;
  2541. procedure setP; inline;
  2542. procedure setRBF; inline;
  2543. procedure setR_W; inline;
  2544. procedure setS; inline;
  2545. procedure setTBF; inline;
  2546. procedure setTRSTAT; inline;
  2547. property ACKSTAT : TBits_1 read getACKSTAT write setACKSTAT;
  2548. property ADD10 : TBits_1 read getADD10 write setADD10;
  2549. property BCL : TBits_1 read getBCL write setBCL;
  2550. property D_A : TBits_1 read getD_A write setD_A;
  2551. property GCSTAT : TBits_1 read getGCSTAT write setGCSTAT;
  2552. property I2COV : TBits_1 read getI2COV write setI2COV;
  2553. property I2CPOV : TBits_1 read getI2CPOV write setI2CPOV;
  2554. property IWCOL : TBits_1 read getIWCOL write setIWCOL;
  2555. property P : TBits_1 read getP write setP;
  2556. property RBF : TBits_1 read getRBF write setRBF;
  2557. property R_W : TBits_1 read getR_W write setR_W;
  2558. property S : TBits_1 read getS write setS;
  2559. property TBF : TBits_1 read getTBF write setTBF;
  2560. property TRSTAT : TBits_1 read getTRSTAT write setTRSTAT;
  2561. property w : TBits_32 read getw write setw;
  2562. end;
  2563. TI2C5_I2C5STAT = record
  2564. private
  2565. function getACKSTAT : TBits_1; inline;
  2566. function getADD10 : TBits_1; inline;
  2567. function getBCL : TBits_1; inline;
  2568. function getD_A : TBits_1; inline;
  2569. function getGCSTAT : TBits_1; inline;
  2570. function getI2COV : TBits_1; inline;
  2571. function getI2CPOV : TBits_1; inline;
  2572. function getIWCOL : TBits_1; inline;
  2573. function getP : TBits_1; inline;
  2574. function getRBF : TBits_1; inline;
  2575. function getR_W : TBits_1; inline;
  2576. function getS : TBits_1; inline;
  2577. function getTBF : TBits_1; inline;
  2578. function getTRSTAT : TBits_1; inline;
  2579. function getw : TBits_32; inline;
  2580. procedure setACKSTAT(thebits : TBits_1); inline;
  2581. procedure setADD10(thebits : TBits_1); inline;
  2582. procedure setBCL(thebits : TBits_1); inline;
  2583. procedure setD_A(thebits : TBits_1); inline;
  2584. procedure setGCSTAT(thebits : TBits_1); inline;
  2585. procedure setI2COV(thebits : TBits_1); inline;
  2586. procedure setI2CPOV(thebits : TBits_1); inline;
  2587. procedure setIWCOL(thebits : TBits_1); inline;
  2588. procedure setP(thebits : TBits_1); inline;
  2589. procedure setRBF(thebits : TBits_1); inline;
  2590. procedure setR_W(thebits : TBits_1); inline;
  2591. procedure setS(thebits : TBits_1); inline;
  2592. procedure setTBF(thebits : TBits_1); inline;
  2593. procedure setTRSTAT(thebits : TBits_1); inline;
  2594. procedure setw(thebits : TBits_32); inline;
  2595. public
  2596. procedure clearACKSTAT; inline;
  2597. procedure clearADD10; inline;
  2598. procedure clearBCL; inline;
  2599. procedure clearD_A; inline;
  2600. procedure clearGCSTAT; inline;
  2601. procedure clearI2COV; inline;
  2602. procedure clearI2CPOV; inline;
  2603. procedure clearIWCOL; inline;
  2604. procedure clearP; inline;
  2605. procedure clearRBF; inline;
  2606. procedure clearR_W; inline;
  2607. procedure clearS; inline;
  2608. procedure clearTBF; inline;
  2609. procedure clearTRSTAT; inline;
  2610. procedure setACKSTAT; inline;
  2611. procedure setADD10; inline;
  2612. procedure setBCL; inline;
  2613. procedure setD_A; inline;
  2614. procedure setGCSTAT; inline;
  2615. procedure setI2COV; inline;
  2616. procedure setI2CPOV; inline;
  2617. procedure setIWCOL; inline;
  2618. procedure setP; inline;
  2619. procedure setRBF; inline;
  2620. procedure setR_W; inline;
  2621. procedure setS; inline;
  2622. procedure setTBF; inline;
  2623. procedure setTRSTAT; inline;
  2624. property ACKSTAT : TBits_1 read getACKSTAT write setACKSTAT;
  2625. property ADD10 : TBits_1 read getADD10 write setADD10;
  2626. property BCL : TBits_1 read getBCL write setBCL;
  2627. property D_A : TBits_1 read getD_A write setD_A;
  2628. property GCSTAT : TBits_1 read getGCSTAT write setGCSTAT;
  2629. property I2COV : TBits_1 read getI2COV write setI2COV;
  2630. property I2CPOV : TBits_1 read getI2CPOV write setI2CPOV;
  2631. property IWCOL : TBits_1 read getIWCOL write setIWCOL;
  2632. property P : TBits_1 read getP write setP;
  2633. property RBF : TBits_1 read getRBF write setRBF;
  2634. property R_W : TBits_1 read getR_W write setR_W;
  2635. property S : TBits_1 read getS write setS;
  2636. property TBF : TBits_1 read getTBF write setTBF;
  2637. property TRSTAT : TBits_1 read getTRSTAT write setTRSTAT;
  2638. property w : TBits_32 read getw write setw;
  2639. end;
  2640. type
  2641. TI2C5Registers = record
  2642. I2C3ACONbits : TI2C5_I2C3ACON;
  2643. I2C3ACON : longWord;
  2644. I2C5CONbits : TI2C5_I2C5CON;
  2645. I2C5CON : longWord;
  2646. I2C3ACONCLR : longWord;
  2647. I2C5CONCLR : longWord;
  2648. I2C3ACONSET : longWord;
  2649. I2C5CONSET : longWord;
  2650. I2C3ACONINV : longWord;
  2651. I2C5CONINV : longWord;
  2652. I2C3ASTATbits : TI2C5_I2C3ASTAT;
  2653. I2C3ASTAT : longWord;
  2654. I2C5STATbits : TI2C5_I2C5STAT;
  2655. I2C5STAT : longWord;
  2656. I2C3ASTATCLR : longWord;
  2657. I2C5STATCLR : longWord;
  2658. I2C3ASTATSET : longWord;
  2659. I2C5STATSET : longWord;
  2660. I2C3ASTATINV : longWord;
  2661. I2C5STATINV : longWord;
  2662. I2C3AADD : longWord;
  2663. I2C5ADD : longWord;
  2664. I2C3AADDCLR : longWord;
  2665. I2C5ADDCLR : longWord;
  2666. I2C3AADDSET : longWord;
  2667. I2C5ADDSET : longWord;
  2668. I2C3AADDINV : longWord;
  2669. I2C5ADDINV : longWord;
  2670. I2C3AMSK : longWord;
  2671. I2C5MSK : longWord;
  2672. I2C3AMSKCLR : longWord;
  2673. I2C5MSKCLR : longWord;
  2674. I2C3AMSKSET : longWord;
  2675. I2C5MSKSET : longWord;
  2676. I2C3AMSKINV : longWord;
  2677. I2C5MSKINV : longWord;
  2678. I2C3ABRG : longWord;
  2679. I2C5BRG : longWord;
  2680. I2C3ABRGCLR : longWord;
  2681. I2C5BRGCLR : longWord;
  2682. I2C3ABRGSET : longWord;
  2683. I2C5BRGSET : longWord;
  2684. I2C3ABRGINV : longWord;
  2685. I2C5BRGINV : longWord;
  2686. I2C3ATRN : longWord;
  2687. I2C5TRN : longWord;
  2688. I2C3ATRNCLR : longWord;
  2689. I2C5TRNCLR : longWord;
  2690. I2C3ATRNSET : longWord;
  2691. I2C5TRNSET : longWord;
  2692. I2C3ATRNINV : longWord;
  2693. I2C5TRNINV : longWord;
  2694. I2C3ARCV : longWord;
  2695. I2C5RCV : longWord;
  2696. end;
  2697. TI2C1_I2C1CON = record
  2698. private
  2699. function getA10M : TBits_1; inline;
  2700. function getACKDT : TBits_1; inline;
  2701. function getACKEN : TBits_1; inline;
  2702. function getDISSLW : TBits_1; inline;
  2703. function getGCEN : TBits_1; inline;
  2704. function getI2CEN : TBits_1; inline;
  2705. function getI2CSIDL : TBits_1; inline;
  2706. function getIPMIEN : TBits_1; inline;
  2707. function getON : TBits_1; inline;
  2708. function getPEN : TBits_1; inline;
  2709. function getRCEN : TBits_1; inline;
  2710. function getRSEN : TBits_1; inline;
  2711. function getSCLREL : TBits_1; inline;
  2712. function getSEN : TBits_1; inline;
  2713. function getSIDL : TBits_1; inline;
  2714. function getSMEN : TBits_1; inline;
  2715. function getSTREN : TBits_1; inline;
  2716. function getSTRICT : TBits_1; inline;
  2717. function getw : TBits_32; inline;
  2718. procedure setA10M(thebits : TBits_1); inline;
  2719. procedure setACKDT(thebits : TBits_1); inline;
  2720. procedure setACKEN(thebits : TBits_1); inline;
  2721. procedure setDISSLW(thebits : TBits_1); inline;
  2722. procedure setGCEN(thebits : TBits_1); inline;
  2723. procedure setI2CEN(thebits : TBits_1); inline;
  2724. procedure setI2CSIDL(thebits : TBits_1); inline;
  2725. procedure setIPMIEN(thebits : TBits_1); inline;
  2726. procedure setON(thebits : TBits_1); inline;
  2727. procedure setPEN(thebits : TBits_1); inline;
  2728. procedure setRCEN(thebits : TBits_1); inline;
  2729. procedure setRSEN(thebits : TBits_1); inline;
  2730. procedure setSCLREL(thebits : TBits_1); inline;
  2731. procedure setSEN(thebits : TBits_1); inline;
  2732. procedure setSIDL(thebits : TBits_1); inline;
  2733. procedure setSMEN(thebits : TBits_1); inline;
  2734. procedure setSTREN(thebits : TBits_1); inline;
  2735. procedure setSTRICT(thebits : TBits_1); inline;
  2736. procedure setw(thebits : TBits_32); inline;
  2737. public
  2738. procedure clearA10M; inline;
  2739. procedure clearACKDT; inline;
  2740. procedure clearACKEN; inline;
  2741. procedure clearDISSLW; inline;
  2742. procedure clearGCEN; inline;
  2743. procedure clearI2CEN; inline;
  2744. procedure clearI2CSIDL; inline;
  2745. procedure clearIPMIEN; inline;
  2746. procedure clearON; inline;
  2747. procedure clearPEN; inline;
  2748. procedure clearRCEN; inline;
  2749. procedure clearRSEN; inline;
  2750. procedure clearSCLREL; inline;
  2751. procedure clearSEN; inline;
  2752. procedure clearSIDL; inline;
  2753. procedure clearSMEN; inline;
  2754. procedure clearSTREN; inline;
  2755. procedure clearSTRICT; inline;
  2756. procedure setA10M; inline;
  2757. procedure setACKDT; inline;
  2758. procedure setACKEN; inline;
  2759. procedure setDISSLW; inline;
  2760. procedure setGCEN; inline;
  2761. procedure setI2CEN; inline;
  2762. procedure setI2CSIDL; inline;
  2763. procedure setIPMIEN; inline;
  2764. procedure setON; inline;
  2765. procedure setPEN; inline;
  2766. procedure setRCEN; inline;
  2767. procedure setRSEN; inline;
  2768. procedure setSCLREL; inline;
  2769. procedure setSEN; inline;
  2770. procedure setSIDL; inline;
  2771. procedure setSMEN; inline;
  2772. procedure setSTREN; inline;
  2773. procedure setSTRICT; inline;
  2774. property A10M : TBits_1 read getA10M write setA10M;
  2775. property ACKDT : TBits_1 read getACKDT write setACKDT;
  2776. property ACKEN : TBits_1 read getACKEN write setACKEN;
  2777. property DISSLW : TBits_1 read getDISSLW write setDISSLW;
  2778. property GCEN : TBits_1 read getGCEN write setGCEN;
  2779. property I2CEN : TBits_1 read getI2CEN write setI2CEN;
  2780. property I2CSIDL : TBits_1 read getI2CSIDL write setI2CSIDL;
  2781. property IPMIEN : TBits_1 read getIPMIEN write setIPMIEN;
  2782. property ON : TBits_1 read getON write setON;
  2783. property PEN : TBits_1 read getPEN write setPEN;
  2784. property RCEN : TBits_1 read getRCEN write setRCEN;
  2785. property RSEN : TBits_1 read getRSEN write setRSEN;
  2786. property SCLREL : TBits_1 read getSCLREL write setSCLREL;
  2787. property SEN : TBits_1 read getSEN write setSEN;
  2788. property SIDL : TBits_1 read getSIDL write setSIDL;
  2789. property SMEN : TBits_1 read getSMEN write setSMEN;
  2790. property STREN : TBits_1 read getSTREN write setSTREN;
  2791. property STRICT : TBits_1 read getSTRICT write setSTRICT;
  2792. property w : TBits_32 read getw write setw;
  2793. end;
  2794. TI2C1_I2C1STAT = record
  2795. private
  2796. function getACKSTAT : TBits_1; inline;
  2797. function getADD10 : TBits_1; inline;
  2798. function getBCL : TBits_1; inline;
  2799. function getD_A : TBits_1; inline;
  2800. function getGCSTAT : TBits_1; inline;
  2801. function getI2COV : TBits_1; inline;
  2802. function getI2CPOV : TBits_1; inline;
  2803. function getIWCOL : TBits_1; inline;
  2804. function getP : TBits_1; inline;
  2805. function getRBF : TBits_1; inline;
  2806. function getR_W : TBits_1; inline;
  2807. function getS : TBits_1; inline;
  2808. function getTBF : TBits_1; inline;
  2809. function getTRSTAT : TBits_1; inline;
  2810. function getw : TBits_32; inline;
  2811. procedure setACKSTAT(thebits : TBits_1); inline;
  2812. procedure setADD10(thebits : TBits_1); inline;
  2813. procedure setBCL(thebits : TBits_1); inline;
  2814. procedure setD_A(thebits : TBits_1); inline;
  2815. procedure setGCSTAT(thebits : TBits_1); inline;
  2816. procedure setI2COV(thebits : TBits_1); inline;
  2817. procedure setI2CPOV(thebits : TBits_1); inline;
  2818. procedure setIWCOL(thebits : TBits_1); inline;
  2819. procedure setP(thebits : TBits_1); inline;
  2820. procedure setRBF(thebits : TBits_1); inline;
  2821. procedure setR_W(thebits : TBits_1); inline;
  2822. procedure setS(thebits : TBits_1); inline;
  2823. procedure setTBF(thebits : TBits_1); inline;
  2824. procedure setTRSTAT(thebits : TBits_1); inline;
  2825. procedure setw(thebits : TBits_32); inline;
  2826. public
  2827. procedure clearACKSTAT; inline;
  2828. procedure clearADD10; inline;
  2829. procedure clearBCL; inline;
  2830. procedure clearD_A; inline;
  2831. procedure clearGCSTAT; inline;
  2832. procedure clearI2COV; inline;
  2833. procedure clearI2CPOV; inline;
  2834. procedure clearIWCOL; inline;
  2835. procedure clearP; inline;
  2836. procedure clearRBF; inline;
  2837. procedure clearR_W; inline;
  2838. procedure clearS; inline;
  2839. procedure clearTBF; inline;
  2840. procedure clearTRSTAT; inline;
  2841. procedure setACKSTAT; inline;
  2842. procedure setADD10; inline;
  2843. procedure setBCL; inline;
  2844. procedure setD_A; inline;
  2845. procedure setGCSTAT; inline;
  2846. procedure setI2COV; inline;
  2847. procedure setI2CPOV; inline;
  2848. procedure setIWCOL; inline;
  2849. procedure setP; inline;
  2850. procedure setRBF; inline;
  2851. procedure setR_W; inline;
  2852. procedure setS; inline;
  2853. procedure setTBF; inline;
  2854. procedure setTRSTAT; inline;
  2855. property ACKSTAT : TBits_1 read getACKSTAT write setACKSTAT;
  2856. property ADD10 : TBits_1 read getADD10 write setADD10;
  2857. property BCL : TBits_1 read getBCL write setBCL;
  2858. property D_A : TBits_1 read getD_A write setD_A;
  2859. property GCSTAT : TBits_1 read getGCSTAT write setGCSTAT;
  2860. property I2COV : TBits_1 read getI2COV write setI2COV;
  2861. property I2CPOV : TBits_1 read getI2CPOV write setI2CPOV;
  2862. property IWCOL : TBits_1 read getIWCOL write setIWCOL;
  2863. property P : TBits_1 read getP write setP;
  2864. property RBF : TBits_1 read getRBF write setRBF;
  2865. property R_W : TBits_1 read getR_W write setR_W;
  2866. property S : TBits_1 read getS write setS;
  2867. property TBF : TBits_1 read getTBF write setTBF;
  2868. property TRSTAT : TBits_1 read getTRSTAT write setTRSTAT;
  2869. property w : TBits_32 read getw write setw;
  2870. end;
  2871. type
  2872. TI2C1Registers = record
  2873. I2C1CONbits : TI2C1_I2C1CON;
  2874. I2C1CON : longWord;
  2875. I2C1CONCLR : longWord;
  2876. I2C1CONSET : longWord;
  2877. I2C1CONINV : longWord;
  2878. I2C1STATbits : TI2C1_I2C1STAT;
  2879. I2C1STAT : longWord;
  2880. I2C1STATCLR : longWord;
  2881. I2C1STATSET : longWord;
  2882. I2C1STATINV : longWord;
  2883. I2C1ADD : longWord;
  2884. I2C1ADDCLR : longWord;
  2885. I2C1ADDSET : longWord;
  2886. I2C1ADDINV : longWord;
  2887. I2C1MSK : longWord;
  2888. I2C1MSKCLR : longWord;
  2889. I2C1MSKSET : longWord;
  2890. I2C1MSKINV : longWord;
  2891. I2C1BRG : longWord;
  2892. I2C1BRGCLR : longWord;
  2893. I2C1BRGSET : longWord;
  2894. I2C1BRGINV : longWord;
  2895. I2C1TRN : longWord;
  2896. I2C1TRNCLR : longWord;
  2897. I2C1TRNSET : longWord;
  2898. I2C1TRNINV : longWord;
  2899. I2C1RCV : longWord;
  2900. end;
  2901. TI2C2_I2C2CON = record
  2902. private
  2903. function getA10M : TBits_1; inline;
  2904. function getACKDT : TBits_1; inline;
  2905. function getACKEN : TBits_1; inline;
  2906. function getDISSLW : TBits_1; inline;
  2907. function getGCEN : TBits_1; inline;
  2908. function getI2CEN : TBits_1; inline;
  2909. function getI2CSIDL : TBits_1; inline;
  2910. function getIPMIEN : TBits_1; inline;
  2911. function getON : TBits_1; inline;
  2912. function getPEN : TBits_1; inline;
  2913. function getRCEN : TBits_1; inline;
  2914. function getRSEN : TBits_1; inline;
  2915. function getSCLREL : TBits_1; inline;
  2916. function getSEN : TBits_1; inline;
  2917. function getSIDL : TBits_1; inline;
  2918. function getSMEN : TBits_1; inline;
  2919. function getSTREN : TBits_1; inline;
  2920. function getSTRICT : TBits_1; inline;
  2921. function getw : TBits_32; inline;
  2922. procedure setA10M(thebits : TBits_1); inline;
  2923. procedure setACKDT(thebits : TBits_1); inline;
  2924. procedure setACKEN(thebits : TBits_1); inline;
  2925. procedure setDISSLW(thebits : TBits_1); inline;
  2926. procedure setGCEN(thebits : TBits_1); inline;
  2927. procedure setI2CEN(thebits : TBits_1); inline;
  2928. procedure setI2CSIDL(thebits : TBits_1); inline;
  2929. procedure setIPMIEN(thebits : TBits_1); inline;
  2930. procedure setON(thebits : TBits_1); inline;
  2931. procedure setPEN(thebits : TBits_1); inline;
  2932. procedure setRCEN(thebits : TBits_1); inline;
  2933. procedure setRSEN(thebits : TBits_1); inline;
  2934. procedure setSCLREL(thebits : TBits_1); inline;
  2935. procedure setSEN(thebits : TBits_1); inline;
  2936. procedure setSIDL(thebits : TBits_1); inline;
  2937. procedure setSMEN(thebits : TBits_1); inline;
  2938. procedure setSTREN(thebits : TBits_1); inline;
  2939. procedure setSTRICT(thebits : TBits_1); inline;
  2940. procedure setw(thebits : TBits_32); inline;
  2941. public
  2942. procedure clearA10M; inline;
  2943. procedure clearACKDT; inline;
  2944. procedure clearACKEN; inline;
  2945. procedure clearDISSLW; inline;
  2946. procedure clearGCEN; inline;
  2947. procedure clearI2CEN; inline;
  2948. procedure clearI2CSIDL; inline;
  2949. procedure clearIPMIEN; inline;
  2950. procedure clearON; inline;
  2951. procedure clearPEN; inline;
  2952. procedure clearRCEN; inline;
  2953. procedure clearRSEN; inline;
  2954. procedure clearSCLREL; inline;
  2955. procedure clearSEN; inline;
  2956. procedure clearSIDL; inline;
  2957. procedure clearSMEN; inline;
  2958. procedure clearSTREN; inline;
  2959. procedure clearSTRICT; inline;
  2960. procedure setA10M; inline;
  2961. procedure setACKDT; inline;
  2962. procedure setACKEN; inline;
  2963. procedure setDISSLW; inline;
  2964. procedure setGCEN; inline;
  2965. procedure setI2CEN; inline;
  2966. procedure setI2CSIDL; inline;
  2967. procedure setIPMIEN; inline;
  2968. procedure setON; inline;
  2969. procedure setPEN; inline;
  2970. procedure setRCEN; inline;
  2971. procedure setRSEN; inline;
  2972. procedure setSCLREL; inline;
  2973. procedure setSEN; inline;
  2974. procedure setSIDL; inline;
  2975. procedure setSMEN; inline;
  2976. procedure setSTREN; inline;
  2977. procedure setSTRICT; inline;
  2978. property A10M : TBits_1 read getA10M write setA10M;
  2979. property ACKDT : TBits_1 read getACKDT write setACKDT;
  2980. property ACKEN : TBits_1 read getACKEN write setACKEN;
  2981. property DISSLW : TBits_1 read getDISSLW write setDISSLW;
  2982. property GCEN : TBits_1 read getGCEN write setGCEN;
  2983. property I2CEN : TBits_1 read getI2CEN write setI2CEN;
  2984. property I2CSIDL : TBits_1 read getI2CSIDL write setI2CSIDL;
  2985. property IPMIEN : TBits_1 read getIPMIEN write setIPMIEN;
  2986. property ON : TBits_1 read getON write setON;
  2987. property PEN : TBits_1 read getPEN write setPEN;
  2988. property RCEN : TBits_1 read getRCEN write setRCEN;
  2989. property RSEN : TBits_1 read getRSEN write setRSEN;
  2990. property SCLREL : TBits_1 read getSCLREL write setSCLREL;
  2991. property SEN : TBits_1 read getSEN write setSEN;
  2992. property SIDL : TBits_1 read getSIDL write setSIDL;
  2993. property SMEN : TBits_1 read getSMEN write setSMEN;
  2994. property STREN : TBits_1 read getSTREN write setSTREN;
  2995. property STRICT : TBits_1 read getSTRICT write setSTRICT;
  2996. property w : TBits_32 read getw write setw;
  2997. end;
  2998. TI2C2_I2C2STAT = record
  2999. private
  3000. function getACKSTAT : TBits_1; inline;
  3001. function getADD10 : TBits_1; inline;
  3002. function getBCL : TBits_1; inline;
  3003. function getD_A : TBits_1; inline;
  3004. function getGCSTAT : TBits_1; inline;
  3005. function getI2COV : TBits_1; inline;
  3006. function getI2CPOV : TBits_1; inline;
  3007. function getIWCOL : TBits_1; inline;
  3008. function getP : TBits_1; inline;
  3009. function getRBF : TBits_1; inline;
  3010. function getR_W : TBits_1; inline;
  3011. function getS : TBits_1; inline;
  3012. function getTBF : TBits_1; inline;
  3013. function getTRSTAT : TBits_1; inline;
  3014. function getw : TBits_32; inline;
  3015. procedure setACKSTAT(thebits : TBits_1); inline;
  3016. procedure setADD10(thebits : TBits_1); inline;
  3017. procedure setBCL(thebits : TBits_1); inline;
  3018. procedure setD_A(thebits : TBits_1); inline;
  3019. procedure setGCSTAT(thebits : TBits_1); inline;
  3020. procedure setI2COV(thebits : TBits_1); inline;
  3021. procedure setI2CPOV(thebits : TBits_1); inline;
  3022. procedure setIWCOL(thebits : TBits_1); inline;
  3023. procedure setP(thebits : TBits_1); inline;
  3024. procedure setRBF(thebits : TBits_1); inline;
  3025. procedure setR_W(thebits : TBits_1); inline;
  3026. procedure setS(thebits : TBits_1); inline;
  3027. procedure setTBF(thebits : TBits_1); inline;
  3028. procedure setTRSTAT(thebits : TBits_1); inline;
  3029. procedure setw(thebits : TBits_32); inline;
  3030. public
  3031. procedure clearACKSTAT; inline;
  3032. procedure clearADD10; inline;
  3033. procedure clearBCL; inline;
  3034. procedure clearD_A; inline;
  3035. procedure clearGCSTAT; inline;
  3036. procedure clearI2COV; inline;
  3037. procedure clearI2CPOV; inline;
  3038. procedure clearIWCOL; inline;
  3039. procedure clearP; inline;
  3040. procedure clearRBF; inline;
  3041. procedure clearR_W; inline;
  3042. procedure clearS; inline;
  3043. procedure clearTBF; inline;
  3044. procedure clearTRSTAT; inline;
  3045. procedure setACKSTAT; inline;
  3046. procedure setADD10; inline;
  3047. procedure setBCL; inline;
  3048. procedure setD_A; inline;
  3049. procedure setGCSTAT; inline;
  3050. procedure setI2COV; inline;
  3051. procedure setI2CPOV; inline;
  3052. procedure setIWCOL; inline;
  3053. procedure setP; inline;
  3054. procedure setRBF; inline;
  3055. procedure setR_W; inline;
  3056. procedure setS; inline;
  3057. procedure setTBF; inline;
  3058. procedure setTRSTAT; inline;
  3059. property ACKSTAT : TBits_1 read getACKSTAT write setACKSTAT;
  3060. property ADD10 : TBits_1 read getADD10 write setADD10;
  3061. property BCL : TBits_1 read getBCL write setBCL;
  3062. property D_A : TBits_1 read getD_A write setD_A;
  3063. property GCSTAT : TBits_1 read getGCSTAT write setGCSTAT;
  3064. property I2COV : TBits_1 read getI2COV write setI2COV;
  3065. property I2CPOV : TBits_1 read getI2CPOV write setI2CPOV;
  3066. property IWCOL : TBits_1 read getIWCOL write setIWCOL;
  3067. property P : TBits_1 read getP write setP;
  3068. property RBF : TBits_1 read getRBF write setRBF;
  3069. property R_W : TBits_1 read getR_W write setR_W;
  3070. property S : TBits_1 read getS write setS;
  3071. property TBF : TBits_1 read getTBF write setTBF;
  3072. property TRSTAT : TBits_1 read getTRSTAT write setTRSTAT;
  3073. property w : TBits_32 read getw write setw;
  3074. end;
  3075. type
  3076. TI2C2Registers = record
  3077. I2C2CONbits : TI2C2_I2C2CON;
  3078. I2C2CON : longWord;
  3079. I2C2CONCLR : longWord;
  3080. I2C2CONSET : longWord;
  3081. I2C2CONINV : longWord;
  3082. I2C2STATbits : TI2C2_I2C2STAT;
  3083. I2C2STAT : longWord;
  3084. I2C2STATCLR : longWord;
  3085. I2C2STATSET : longWord;
  3086. I2C2STATINV : longWord;
  3087. I2C2ADD : longWord;
  3088. I2C2ADDCLR : longWord;
  3089. I2C2ADDSET : longWord;
  3090. I2C2ADDINV : longWord;
  3091. I2C2MSK : longWord;
  3092. I2C2MSKCLR : longWord;
  3093. I2C2MSKSET : longWord;
  3094. I2C2MSKINV : longWord;
  3095. I2C2BRG : longWord;
  3096. I2C2BRGCLR : longWord;
  3097. I2C2BRGSET : longWord;
  3098. I2C2BRGINV : longWord;
  3099. I2C2TRN : longWord;
  3100. I2C2TRNCLR : longWord;
  3101. I2C2TRNSET : longWord;
  3102. I2C2TRNINV : longWord;
  3103. I2C2RCV : longWord;
  3104. end;
  3105. TSPI3_SPI1ACON = record
  3106. private
  3107. function getCKE : TBits_1; inline;
  3108. function getCKP : TBits_1; inline;
  3109. function getDISSDO : TBits_1; inline;
  3110. function getENHBUF : TBits_1; inline;
  3111. function getFRMCNT : TBits_3; inline;
  3112. function getFRMEN : TBits_1; inline;
  3113. function getFRMPOL : TBits_1; inline;
  3114. function getFRMSYNC : TBits_1; inline;
  3115. function getFRMSYPW : TBits_1; inline;
  3116. function getMODE16 : TBits_1; inline;
  3117. function getMODE32 : TBits_1; inline;
  3118. function getMSSEN : TBits_1; inline;
  3119. function getMSTEN : TBits_1; inline;
  3120. function getON : TBits_1; inline;
  3121. function getSIDL : TBits_1; inline;
  3122. function getSMP : TBits_1; inline;
  3123. function getSPIFE : TBits_1; inline;
  3124. function getSRXISEL : TBits_2; inline;
  3125. function getSSEN : TBits_1; inline;
  3126. function getSTXISEL : TBits_2; inline;
  3127. function getw : TBits_32; inline;
  3128. procedure setCKE(thebits : TBits_1); inline;
  3129. procedure setCKP(thebits : TBits_1); inline;
  3130. procedure setDISSDO(thebits : TBits_1); inline;
  3131. procedure setENHBUF(thebits : TBits_1); inline;
  3132. procedure setFRMCNT(thebits : TBits_3); inline;
  3133. procedure setFRMEN(thebits : TBits_1); inline;
  3134. procedure setFRMPOL(thebits : TBits_1); inline;
  3135. procedure setFRMSYNC(thebits : TBits_1); inline;
  3136. procedure setFRMSYPW(thebits : TBits_1); inline;
  3137. procedure setMODE16(thebits : TBits_1); inline;
  3138. procedure setMODE32(thebits : TBits_1); inline;
  3139. procedure setMSSEN(thebits : TBits_1); inline;
  3140. procedure setMSTEN(thebits : TBits_1); inline;
  3141. procedure setON(thebits : TBits_1); inline;
  3142. procedure setSIDL(thebits : TBits_1); inline;
  3143. procedure setSMP(thebits : TBits_1); inline;
  3144. procedure setSPIFE(thebits : TBits_1); inline;
  3145. procedure setSRXISEL(thebits : TBits_2); inline;
  3146. procedure setSSEN(thebits : TBits_1); inline;
  3147. procedure setSTXISEL(thebits : TBits_2); inline;
  3148. procedure setw(thebits : TBits_32); inline;
  3149. public
  3150. procedure clearCKE; inline;
  3151. procedure clearCKP; inline;
  3152. procedure clearDISSDO; inline;
  3153. procedure clearENHBUF; inline;
  3154. procedure clearFRMEN; inline;
  3155. procedure clearFRMPOL; inline;
  3156. procedure clearFRMSYNC; inline;
  3157. procedure clearFRMSYPW; inline;
  3158. procedure clearMODE16; inline;
  3159. procedure clearMODE32; inline;
  3160. procedure clearMSSEN; inline;
  3161. procedure clearMSTEN; inline;
  3162. procedure clearON; inline;
  3163. procedure clearSIDL; inline;
  3164. procedure clearSMP; inline;
  3165. procedure clearSPIFE; inline;
  3166. procedure clearSSEN; inline;
  3167. procedure setCKE; inline;
  3168. procedure setCKP; inline;
  3169. procedure setDISSDO; inline;
  3170. procedure setENHBUF; inline;
  3171. procedure setFRMEN; inline;
  3172. procedure setFRMPOL; inline;
  3173. procedure setFRMSYNC; inline;
  3174. procedure setFRMSYPW; inline;
  3175. procedure setMODE16; inline;
  3176. procedure setMODE32; inline;
  3177. procedure setMSSEN; inline;
  3178. procedure setMSTEN; inline;
  3179. procedure setON; inline;
  3180. procedure setSIDL; inline;
  3181. procedure setSMP; inline;
  3182. procedure setSPIFE; inline;
  3183. procedure setSSEN; inline;
  3184. property CKE : TBits_1 read getCKE write setCKE;
  3185. property CKP : TBits_1 read getCKP write setCKP;
  3186. property DISSDO : TBits_1 read getDISSDO write setDISSDO;
  3187. property ENHBUF : TBits_1 read getENHBUF write setENHBUF;
  3188. property FRMCNT : TBits_3 read getFRMCNT write setFRMCNT;
  3189. property FRMEN : TBits_1 read getFRMEN write setFRMEN;
  3190. property FRMPOL : TBits_1 read getFRMPOL write setFRMPOL;
  3191. property FRMSYNC : TBits_1 read getFRMSYNC write setFRMSYNC;
  3192. property FRMSYPW : TBits_1 read getFRMSYPW write setFRMSYPW;
  3193. property MODE16 : TBits_1 read getMODE16 write setMODE16;
  3194. property MODE32 : TBits_1 read getMODE32 write setMODE32;
  3195. property MSSEN : TBits_1 read getMSSEN write setMSSEN;
  3196. property MSTEN : TBits_1 read getMSTEN write setMSTEN;
  3197. property ON : TBits_1 read getON write setON;
  3198. property SIDL : TBits_1 read getSIDL write setSIDL;
  3199. property SMP : TBits_1 read getSMP write setSMP;
  3200. property SPIFE : TBits_1 read getSPIFE write setSPIFE;
  3201. property SRXISEL : TBits_2 read getSRXISEL write setSRXISEL;
  3202. property SSEN : TBits_1 read getSSEN write setSSEN;
  3203. property STXISEL : TBits_2 read getSTXISEL write setSTXISEL;
  3204. property w : TBits_32 read getw write setw;
  3205. end;
  3206. TSPI3_SPI3CON = record
  3207. private
  3208. function getCKE : TBits_1; inline;
  3209. function getCKP : TBits_1; inline;
  3210. function getDISSDO : TBits_1; inline;
  3211. function getENHBUF : TBits_1; inline;
  3212. function getFRMCNT : TBits_3; inline;
  3213. function getFRMEN : TBits_1; inline;
  3214. function getFRMPOL : TBits_1; inline;
  3215. function getFRMSYNC : TBits_1; inline;
  3216. function getFRMSYPW : TBits_1; inline;
  3217. function getMODE16 : TBits_1; inline;
  3218. function getMODE32 : TBits_1; inline;
  3219. function getMSSEN : TBits_1; inline;
  3220. function getMSTEN : TBits_1; inline;
  3221. function getON : TBits_1; inline;
  3222. function getSIDL : TBits_1; inline;
  3223. function getSMP : TBits_1; inline;
  3224. function getSPIFE : TBits_1; inline;
  3225. function getSRXISEL : TBits_2; inline;
  3226. function getSSEN : TBits_1; inline;
  3227. function getSTXISEL : TBits_2; inline;
  3228. function getw : TBits_32; inline;
  3229. procedure setCKE(thebits : TBits_1); inline;
  3230. procedure setCKP(thebits : TBits_1); inline;
  3231. procedure setDISSDO(thebits : TBits_1); inline;
  3232. procedure setENHBUF(thebits : TBits_1); inline;
  3233. procedure setFRMCNT(thebits : TBits_3); inline;
  3234. procedure setFRMEN(thebits : TBits_1); inline;
  3235. procedure setFRMPOL(thebits : TBits_1); inline;
  3236. procedure setFRMSYNC(thebits : TBits_1); inline;
  3237. procedure setFRMSYPW(thebits : TBits_1); inline;
  3238. procedure setMODE16(thebits : TBits_1); inline;
  3239. procedure setMODE32(thebits : TBits_1); inline;
  3240. procedure setMSSEN(thebits : TBits_1); inline;
  3241. procedure setMSTEN(thebits : TBits_1); inline;
  3242. procedure setON(thebits : TBits_1); inline;
  3243. procedure setSIDL(thebits : TBits_1); inline;
  3244. procedure setSMP(thebits : TBits_1); inline;
  3245. procedure setSPIFE(thebits : TBits_1); inline;
  3246. procedure setSRXISEL(thebits : TBits_2); inline;
  3247. procedure setSSEN(thebits : TBits_1); inline;
  3248. procedure setSTXISEL(thebits : TBits_2); inline;
  3249. procedure setw(thebits : TBits_32); inline;
  3250. public
  3251. procedure clearCKE; inline;
  3252. procedure clearCKP; inline;
  3253. procedure clearDISSDO; inline;
  3254. procedure clearENHBUF; inline;
  3255. procedure clearFRMEN; inline;
  3256. procedure clearFRMPOL; inline;
  3257. procedure clearFRMSYNC; inline;
  3258. procedure clearFRMSYPW; inline;
  3259. procedure clearMODE16; inline;
  3260. procedure clearMODE32; inline;
  3261. procedure clearMSSEN; inline;
  3262. procedure clearMSTEN; inline;
  3263. procedure clearON; inline;
  3264. procedure clearSIDL; inline;
  3265. procedure clearSMP; inline;
  3266. procedure clearSPIFE; inline;
  3267. procedure clearSSEN; inline;
  3268. procedure setCKE; inline;
  3269. procedure setCKP; inline;
  3270. procedure setDISSDO; inline;
  3271. procedure setENHBUF; inline;
  3272. procedure setFRMEN; inline;
  3273. procedure setFRMPOL; inline;
  3274. procedure setFRMSYNC; inline;
  3275. procedure setFRMSYPW; inline;
  3276. procedure setMODE16; inline;
  3277. procedure setMODE32; inline;
  3278. procedure setMSSEN; inline;
  3279. procedure setMSTEN; inline;
  3280. procedure setON; inline;
  3281. procedure setSIDL; inline;
  3282. procedure setSMP; inline;
  3283. procedure setSPIFE; inline;
  3284. procedure setSSEN; inline;
  3285. property CKE : TBits_1 read getCKE write setCKE;
  3286. property CKP : TBits_1 read getCKP write setCKP;
  3287. property DISSDO : TBits_1 read getDISSDO write setDISSDO;
  3288. property ENHBUF : TBits_1 read getENHBUF write setENHBUF;
  3289. property FRMCNT : TBits_3 read getFRMCNT write setFRMCNT;
  3290. property FRMEN : TBits_1 read getFRMEN write setFRMEN;
  3291. property FRMPOL : TBits_1 read getFRMPOL write setFRMPOL;
  3292. property FRMSYNC : TBits_1 read getFRMSYNC write setFRMSYNC;
  3293. property FRMSYPW : TBits_1 read getFRMSYPW write setFRMSYPW;
  3294. property MODE16 : TBits_1 read getMODE16 write setMODE16;
  3295. property MODE32 : TBits_1 read getMODE32 write setMODE32;
  3296. property MSSEN : TBits_1 read getMSSEN write setMSSEN;
  3297. property MSTEN : TBits_1 read getMSTEN write setMSTEN;
  3298. property ON : TBits_1 read getON write setON;
  3299. property SIDL : TBits_1 read getSIDL write setSIDL;
  3300. property SMP : TBits_1 read getSMP write setSMP;
  3301. property SPIFE : TBits_1 read getSPIFE write setSPIFE;
  3302. property SRXISEL : TBits_2 read getSRXISEL write setSRXISEL;
  3303. property SSEN : TBits_1 read getSSEN write setSSEN;
  3304. property STXISEL : TBits_2 read getSTXISEL write setSTXISEL;
  3305. property w : TBits_32 read getw write setw;
  3306. end;
  3307. TSPI3_SPI1ASTAT = record
  3308. private
  3309. function getRXBUFELM : TBits_5; inline;
  3310. function getSPIBUSY : TBits_1; inline;
  3311. function getSPIRBE : TBits_1; inline;
  3312. function getSPIRBF : TBits_1; inline;
  3313. function getSPIROV : TBits_1; inline;
  3314. function getSPITBE : TBits_1; inline;
  3315. function getSPITBF : TBits_1; inline;
  3316. function getSPITUR : TBits_1; inline;
  3317. function getSRMT : TBits_1; inline;
  3318. function getTXBUFELM : TBits_5; inline;
  3319. function getw : TBits_32; inline;
  3320. procedure setRXBUFELM(thebits : TBits_5); inline;
  3321. procedure setSPIBUSY(thebits : TBits_1); inline;
  3322. procedure setSPIRBE(thebits : TBits_1); inline;
  3323. procedure setSPIRBF(thebits : TBits_1); inline;
  3324. procedure setSPIROV(thebits : TBits_1); inline;
  3325. procedure setSPITBE(thebits : TBits_1); inline;
  3326. procedure setSPITBF(thebits : TBits_1); inline;
  3327. procedure setSPITUR(thebits : TBits_1); inline;
  3328. procedure setSRMT(thebits : TBits_1); inline;
  3329. procedure setTXBUFELM(thebits : TBits_5); inline;
  3330. procedure setw(thebits : TBits_32); inline;
  3331. public
  3332. procedure clearSPIBUSY; inline;
  3333. procedure clearSPIRBE; inline;
  3334. procedure clearSPIRBF; inline;
  3335. procedure clearSPIROV; inline;
  3336. procedure clearSPITBE; inline;
  3337. procedure clearSPITBF; inline;
  3338. procedure clearSPITUR; inline;
  3339. procedure clearSRMT; inline;
  3340. procedure setSPIBUSY; inline;
  3341. procedure setSPIRBE; inline;
  3342. procedure setSPIRBF; inline;
  3343. procedure setSPIROV; inline;
  3344. procedure setSPITBE; inline;
  3345. procedure setSPITBF; inline;
  3346. procedure setSPITUR; inline;
  3347. procedure setSRMT; inline;
  3348. property RXBUFELM : TBits_5 read getRXBUFELM write setRXBUFELM;
  3349. property SPIBUSY : TBits_1 read getSPIBUSY write setSPIBUSY;
  3350. property SPIRBE : TBits_1 read getSPIRBE write setSPIRBE;
  3351. property SPIRBF : TBits_1 read getSPIRBF write setSPIRBF;
  3352. property SPIROV : TBits_1 read getSPIROV write setSPIROV;
  3353. property SPITBE : TBits_1 read getSPITBE write setSPITBE;
  3354. property SPITBF : TBits_1 read getSPITBF write setSPITBF;
  3355. property SPITUR : TBits_1 read getSPITUR write setSPITUR;
  3356. property SRMT : TBits_1 read getSRMT write setSRMT;
  3357. property TXBUFELM : TBits_5 read getTXBUFELM write setTXBUFELM;
  3358. property w : TBits_32 read getw write setw;
  3359. end;
  3360. TSPI3_SPI3STAT = record
  3361. private
  3362. function getRXBUFELM : TBits_5; inline;
  3363. function getSPIBUSY : TBits_1; inline;
  3364. function getSPIRBE : TBits_1; inline;
  3365. function getSPIRBF : TBits_1; inline;
  3366. function getSPIROV : TBits_1; inline;
  3367. function getSPITBE : TBits_1; inline;
  3368. function getSPITBF : TBits_1; inline;
  3369. function getSPITUR : TBits_1; inline;
  3370. function getSRMT : TBits_1; inline;
  3371. function getTXBUFELM : TBits_5; inline;
  3372. function getw : TBits_32; inline;
  3373. procedure setRXBUFELM(thebits : TBits_5); inline;
  3374. procedure setSPIBUSY(thebits : TBits_1); inline;
  3375. procedure setSPIRBE(thebits : TBits_1); inline;
  3376. procedure setSPIRBF(thebits : TBits_1); inline;
  3377. procedure setSPIROV(thebits : TBits_1); inline;
  3378. procedure setSPITBE(thebits : TBits_1); inline;
  3379. procedure setSPITBF(thebits : TBits_1); inline;
  3380. procedure setSPITUR(thebits : TBits_1); inline;
  3381. procedure setSRMT(thebits : TBits_1); inline;
  3382. procedure setTXBUFELM(thebits : TBits_5); inline;
  3383. procedure setw(thebits : TBits_32); inline;
  3384. public
  3385. procedure clearSPIBUSY; inline;
  3386. procedure clearSPIRBE; inline;
  3387. procedure clearSPIRBF; inline;
  3388. procedure clearSPIROV; inline;
  3389. procedure clearSPITBE; inline;
  3390. procedure clearSPITBF; inline;
  3391. procedure clearSPITUR; inline;
  3392. procedure clearSRMT; inline;
  3393. procedure setSPIBUSY; inline;
  3394. procedure setSPIRBE; inline;
  3395. procedure setSPIRBF; inline;
  3396. procedure setSPIROV; inline;
  3397. procedure setSPITBE; inline;
  3398. procedure setSPITBF; inline;
  3399. procedure setSPITUR; inline;
  3400. procedure setSRMT; inline;
  3401. property RXBUFELM : TBits_5 read getRXBUFELM write setRXBUFELM;
  3402. property SPIBUSY : TBits_1 read getSPIBUSY write setSPIBUSY;
  3403. property SPIRBE : TBits_1 read getSPIRBE write setSPIRBE;
  3404. property SPIRBF : TBits_1 read getSPIRBF write setSPIRBF;
  3405. property SPIROV : TBits_1 read getSPIROV write setSPIROV;
  3406. property SPITBE : TBits_1 read getSPITBE write setSPITBE;
  3407. property SPITBF : TBits_1 read getSPITBF write setSPITBF;
  3408. property SPITUR : TBits_1 read getSPITUR write setSPITUR;
  3409. property SRMT : TBits_1 read getSRMT write setSRMT;
  3410. property TXBUFELM : TBits_5 read getTXBUFELM write setTXBUFELM;
  3411. property w : TBits_32 read getw write setw;
  3412. end;
  3413. type
  3414. TSPI3Registers = record
  3415. SPI1ACONbits : TSPI3_SPI1ACON;
  3416. SPI1ACON : longWord;
  3417. SPI3CONbits : TSPI3_SPI3CON;
  3418. SPI3CON : longWord;
  3419. SPI1ACONCLR : longWord;
  3420. SPI3CONCLR : longWord;
  3421. SPI1ACONSET : longWord;
  3422. SPI3CONSET : longWord;
  3423. SPI1ACONINV : longWord;
  3424. SPI3CONINV : longWord;
  3425. SPI1ASTATbits : TSPI3_SPI1ASTAT;
  3426. SPI1ASTAT : longWord;
  3427. SPI3STATbits : TSPI3_SPI3STAT;
  3428. SPI3STAT : longWord;
  3429. SPI1ASTATCLR : longWord;
  3430. SPI3STATCLR : longWord;
  3431. SPI1ASTATSET : longWord;
  3432. SPI3STATSET : longWord;
  3433. SPI1ASTATINV : longWord;
  3434. SPI3STATINV : longWord;
  3435. SPI1ABUF : longWord;
  3436. SPI3BUF : longWord;
  3437. SPI1ABRG : longWord;
  3438. SPI3BRG : longWord;
  3439. SPI1ABRGCLR : longWord;
  3440. SPI3BRGCLR : longWord;
  3441. SPI1ABRGSET : longWord;
  3442. SPI3BRGSET : longWord;
  3443. SPI1ABRGINV : longWord;
  3444. SPI3BRGINV : longWord;
  3445. end;
  3446. TSPI2A_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. TSPI2A_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. TSPI2A_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. TSPI2A_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. TSPI2ARegisters = record
  3756. SPI2ACONbits : TSPI2A_SPI2ACON;
  3757. SPI2ACON : longWord;
  3758. SPI2CONbits : TSPI2A_SPI2CON;
  3759. SPI2CON : longWord;
  3760. SPI2ACONCLR : longWord;
  3761. SPI2CONCLR : longWord;
  3762. SPI2ACONSET : longWord;
  3763. SPI2CONSET : longWord;
  3764. SPI2ACONINV : longWord;
  3765. SPI2CONINV : longWord;
  3766. SPI2ASTATbits : TSPI2A_SPI2ASTAT;
  3767. SPI2ASTAT : longWord;
  3768. SPI2STATbits : TSPI2A_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. TSPI3A_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. TSPI3A_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. TSPI3A_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. TSPI3A_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. TSPI3ARegisters = record
  4097. SPI3ACONbits : TSPI3A_SPI3ACON;
  4098. SPI3ACON : longWord;
  4099. SPI4CONbits : TSPI3A_SPI4CON;
  4100. SPI4CON : longWord;
  4101. SPI3ACONCLR : longWord;
  4102. SPI4CONCLR : longWord;
  4103. SPI3ACONSET : longWord;
  4104. SPI4CONSET : longWord;
  4105. SPI3ACONINV : longWord;
  4106. SPI4CONINV : longWord;
  4107. SPI3ASTATbits : TSPI3A_SPI3ASTAT;
  4108. SPI3ASTAT : longWord;
  4109. SPI4STATbits : TSPI3A_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. TUART1B_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. TUART1B_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. TUART1B_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. TUART1B_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. TUART1BRegisters = record
  5089. U1BMODEbits : TUART1B_U1BMODE;
  5090. U1BMODE : longWord;
  5091. U4MODEbits : TUART1B_U4MODE;
  5092. U4MODE : longWord;
  5093. U1BMODECLR : longWord;
  5094. U4MODECLR : longWord;
  5095. U1BMODESET : longWord;
  5096. U4MODESET : longWord;
  5097. U1BMODEINV : longWord;
  5098. U4MODEINV : longWord;
  5099. U1BSTAbits : TUART1B_U1BSTA;
  5100. U1BSTA : longWord;
  5101. U4STAbits : TUART1B_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. TUART2A_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. TUART2A_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. TUART2A_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. TUART2A_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. TUART2ARegisters = record
  5518. U2AMODEbits : TUART2A_U2AMODE;
  5519. U2AMODE : longWord;
  5520. U3MODEbits : TUART2A_U3MODE;
  5521. U3MODE : longWord;
  5522. U2AMODECLR : longWord;
  5523. U3MODECLR : longWord;
  5524. U2AMODESET : longWord;
  5525. U3MODESET : longWord;
  5526. U2AMODEINV : longWord;
  5527. U3MODEINV : longWord;
  5528. U2ASTAbits : TUART2A_U2ASTA;
  5529. U2ASTA : longWord;
  5530. U3STAbits : TUART2A_U3STA;
  5531. U3STA : longWord;
  5532. U2ASTACLR : longWord;
  5533. U3STACLR : longWord;
  5534. U2ASTASET : longWord;
  5535. U3STASET : longWord;
  5536. U2ASTAINV : longWord;
  5537. U3STAINV : longWord;
  5538. U2ATXREG : longWord;
  5539. U3TXREG : longWord;
  5540. U2ARXREG : longWord;
  5541. U3RXREG : longWord;
  5542. U2ABRG : longWord;
  5543. U3BRG : longWord;
  5544. U2ABRGCLR : longWord;
  5545. U3BRGCLR : longWord;
  5546. U2ABRGSET : longWord;
  5547. U3BRGSET : longWord;
  5548. U2ABRGINV : longWord;
  5549. U3BRGINV : longWord;
  5550. end;
  5551. TUART2B_U2BMODE = record
  5552. private
  5553. function getABAUD : TBits_1; inline;
  5554. function getBRGH : TBits_1; inline;
  5555. function getIREN : TBits_1; inline;
  5556. function getLPBACK : TBits_1; inline;
  5557. function getON : TBits_1; inline;
  5558. function getPDSEL : TBits_2; inline;
  5559. function getPDSEL0 : TBits_1; inline;
  5560. function getPDSEL1 : TBits_1; inline;
  5561. function getRXINV : TBits_1; inline;
  5562. function getSIDL : TBits_1; inline;
  5563. function getSTSEL : TBits_1; inline;
  5564. function getUARTEN : TBits_1; inline;
  5565. function getUSIDL : TBits_1; inline;
  5566. function getWAKE : TBits_1; inline;
  5567. function getw : TBits_32; inline;
  5568. procedure setABAUD(thebits : TBits_1); inline;
  5569. procedure setBRGH(thebits : TBits_1); inline;
  5570. procedure setIREN(thebits : TBits_1); inline;
  5571. procedure setLPBACK(thebits : TBits_1); inline;
  5572. procedure setON(thebits : TBits_1); inline;
  5573. procedure setPDSEL(thebits : TBits_2); inline;
  5574. procedure setPDSEL0(thebits : TBits_1); inline;
  5575. procedure setPDSEL1(thebits : TBits_1); inline;
  5576. procedure setRXINV(thebits : TBits_1); inline;
  5577. procedure setSIDL(thebits : TBits_1); inline;
  5578. procedure setSTSEL(thebits : TBits_1); inline;
  5579. procedure setUARTEN(thebits : TBits_1); inline;
  5580. procedure setUSIDL(thebits : TBits_1); inline;
  5581. procedure setWAKE(thebits : TBits_1); inline;
  5582. procedure setw(thebits : TBits_32); inline;
  5583. public
  5584. procedure clearABAUD; inline;
  5585. procedure clearBRGH; inline;
  5586. procedure clearIREN; inline;
  5587. procedure clearLPBACK; inline;
  5588. procedure clearON; inline;
  5589. procedure clearPDSEL0; inline;
  5590. procedure clearPDSEL1; inline;
  5591. procedure clearRXINV; inline;
  5592. procedure clearSIDL; inline;
  5593. procedure clearSTSEL; inline;
  5594. procedure clearUARTEN; inline;
  5595. procedure clearUSIDL; inline;
  5596. procedure clearWAKE; inline;
  5597. procedure setABAUD; inline;
  5598. procedure setBRGH; inline;
  5599. procedure setIREN; inline;
  5600. procedure setLPBACK; inline;
  5601. procedure setON; inline;
  5602. procedure setPDSEL0; inline;
  5603. procedure setPDSEL1; inline;
  5604. procedure setRXINV; inline;
  5605. procedure setSIDL; inline;
  5606. procedure setSTSEL; inline;
  5607. procedure setUARTEN; inline;
  5608. procedure setUSIDL; inline;
  5609. procedure setWAKE; inline;
  5610. property ABAUD : TBits_1 read getABAUD write setABAUD;
  5611. property BRGH : TBits_1 read getBRGH write setBRGH;
  5612. property IREN : TBits_1 read getIREN write setIREN;
  5613. property LPBACK : TBits_1 read getLPBACK write setLPBACK;
  5614. property ON : TBits_1 read getON write setON;
  5615. property PDSEL : TBits_2 read getPDSEL write setPDSEL;
  5616. property PDSEL0 : TBits_1 read getPDSEL0 write setPDSEL0;
  5617. property PDSEL1 : TBits_1 read getPDSEL1 write setPDSEL1;
  5618. property RXINV : TBits_1 read getRXINV write setRXINV;
  5619. property SIDL : TBits_1 read getSIDL write setSIDL;
  5620. property STSEL : TBits_1 read getSTSEL write setSTSEL;
  5621. property UARTEN : TBits_1 read getUARTEN write setUARTEN;
  5622. property USIDL : TBits_1 read getUSIDL write setUSIDL;
  5623. property WAKE : TBits_1 read getWAKE write setWAKE;
  5624. property w : TBits_32 read getw write setw;
  5625. end;
  5626. TUART2B_U6MODE = record
  5627. private
  5628. function getABAUD : TBits_1; inline;
  5629. function getBRGH : TBits_1; inline;
  5630. function getIREN : TBits_1; inline;
  5631. function getLPBACK : TBits_1; inline;
  5632. function getON : TBits_1; inline;
  5633. function getPDSEL : TBits_2; inline;
  5634. function getPDSEL0 : TBits_1; inline;
  5635. function getPDSEL1 : TBits_1; inline;
  5636. function getRXINV : TBits_1; inline;
  5637. function getSIDL : TBits_1; inline;
  5638. function getSTSEL : TBits_1; inline;
  5639. function getUARTEN : TBits_1; inline;
  5640. function getUSIDL : TBits_1; inline;
  5641. function getWAKE : TBits_1; inline;
  5642. function getw : TBits_32; inline;
  5643. procedure setABAUD(thebits : TBits_1); inline;
  5644. procedure setBRGH(thebits : TBits_1); inline;
  5645. procedure setIREN(thebits : TBits_1); inline;
  5646. procedure setLPBACK(thebits : TBits_1); inline;
  5647. procedure setON(thebits : TBits_1); inline;
  5648. procedure setPDSEL(thebits : TBits_2); inline;
  5649. procedure setPDSEL0(thebits : TBits_1); inline;
  5650. procedure setPDSEL1(thebits : TBits_1); inline;
  5651. procedure setRXINV(thebits : TBits_1); inline;
  5652. procedure setSIDL(thebits : TBits_1); inline;
  5653. procedure setSTSEL(thebits : TBits_1); inline;
  5654. procedure setUARTEN(thebits : TBits_1); inline;
  5655. procedure setUSIDL(thebits : TBits_1); inline;
  5656. procedure setWAKE(thebits : TBits_1); inline;
  5657. procedure setw(thebits : TBits_32); inline;
  5658. public
  5659. procedure clearABAUD; inline;
  5660. procedure clearBRGH; inline;
  5661. procedure clearIREN; inline;
  5662. procedure clearLPBACK; inline;
  5663. procedure clearON; inline;
  5664. procedure clearPDSEL0; inline;
  5665. procedure clearPDSEL1; inline;
  5666. procedure clearRXINV; inline;
  5667. procedure clearSIDL; inline;
  5668. procedure clearSTSEL; inline;
  5669. procedure clearUARTEN; inline;
  5670. procedure clearUSIDL; inline;
  5671. procedure clearWAKE; inline;
  5672. procedure setABAUD; inline;
  5673. procedure setBRGH; inline;
  5674. procedure setIREN; inline;
  5675. procedure setLPBACK; inline;
  5676. procedure setON; inline;
  5677. procedure setPDSEL0; inline;
  5678. procedure setPDSEL1; inline;
  5679. procedure setRXINV; inline;
  5680. procedure setSIDL; inline;
  5681. procedure setSTSEL; inline;
  5682. procedure setUARTEN; inline;
  5683. procedure setUSIDL; inline;
  5684. procedure setWAKE; inline;
  5685. property ABAUD : TBits_1 read getABAUD write setABAUD;
  5686. property BRGH : TBits_1 read getBRGH write setBRGH;
  5687. property IREN : TBits_1 read getIREN write setIREN;
  5688. property LPBACK : TBits_1 read getLPBACK write setLPBACK;
  5689. property ON : TBits_1 read getON write setON;
  5690. property PDSEL : TBits_2 read getPDSEL write setPDSEL;
  5691. property PDSEL0 : TBits_1 read getPDSEL0 write setPDSEL0;
  5692. property PDSEL1 : TBits_1 read getPDSEL1 write setPDSEL1;
  5693. property RXINV : TBits_1 read getRXINV write setRXINV;
  5694. property SIDL : TBits_1 read getSIDL write setSIDL;
  5695. property STSEL : TBits_1 read getSTSEL write setSTSEL;
  5696. property UARTEN : TBits_1 read getUARTEN write setUARTEN;
  5697. property USIDL : TBits_1 read getUSIDL write setUSIDL;
  5698. property WAKE : TBits_1 read getWAKE write setWAKE;
  5699. property w : TBits_32 read getw write setw;
  5700. end;
  5701. TUART2B_U2BSTA = record
  5702. private
  5703. function getADDEN : TBits_1; inline;
  5704. function getADDR : TBits_8; inline;
  5705. function getADM_EN : TBits_1; inline;
  5706. function getFERR : TBits_1; inline;
  5707. function getOERR : TBits_1; inline;
  5708. function getPERR : TBits_1; inline;
  5709. function getRIDLE : TBits_1; inline;
  5710. function getTRMT : TBits_1; inline;
  5711. function getURXDA : TBits_1; inline;
  5712. function getURXEN : TBits_1; inline;
  5713. function getURXISEL : TBits_2; inline;
  5714. function getURXISEL0 : TBits_1; inline;
  5715. function getURXISEL1 : TBits_1; inline;
  5716. function getUTXBF : TBits_1; inline;
  5717. function getUTXBRK : TBits_1; inline;
  5718. function getUTXEN : TBits_1; inline;
  5719. function getUTXINV : TBits_1; inline;
  5720. function getUTXISEL : TBits_2; inline;
  5721. function getUTXISEL0 : TBits_1; inline;
  5722. function getUTXISEL1 : TBits_1; inline;
  5723. function getUTXSEL : TBits_2; inline;
  5724. function getw : TBits_32; inline;
  5725. procedure setADDEN(thebits : TBits_1); inline;
  5726. procedure setADDR(thebits : TBits_8); inline;
  5727. procedure setADM_EN(thebits : TBits_1); inline;
  5728. procedure setFERR(thebits : TBits_1); inline;
  5729. procedure setOERR(thebits : TBits_1); inline;
  5730. procedure setPERR(thebits : TBits_1); inline;
  5731. procedure setRIDLE(thebits : TBits_1); inline;
  5732. procedure setTRMT(thebits : TBits_1); inline;
  5733. procedure setURXDA(thebits : TBits_1); inline;
  5734. procedure setURXEN(thebits : TBits_1); inline;
  5735. procedure setURXISEL(thebits : TBits_2); inline;
  5736. procedure setURXISEL0(thebits : TBits_1); inline;
  5737. procedure setURXISEL1(thebits : TBits_1); inline;
  5738. procedure setUTXBF(thebits : TBits_1); inline;
  5739. procedure setUTXBRK(thebits : TBits_1); inline;
  5740. procedure setUTXEN(thebits : TBits_1); inline;
  5741. procedure setUTXINV(thebits : TBits_1); inline;
  5742. procedure setUTXISEL(thebits : TBits_2); inline;
  5743. procedure setUTXISEL0(thebits : TBits_1); inline;
  5744. procedure setUTXISEL1(thebits : TBits_1); inline;
  5745. procedure setUTXSEL(thebits : TBits_2); inline;
  5746. procedure setw(thebits : TBits_32); inline;
  5747. public
  5748. procedure clearADDEN; inline;
  5749. procedure clearADM_EN; inline;
  5750. procedure clearFERR; inline;
  5751. procedure clearOERR; inline;
  5752. procedure clearPERR; inline;
  5753. procedure clearRIDLE; inline;
  5754. procedure clearTRMT; inline;
  5755. procedure clearURXDA; inline;
  5756. procedure clearURXEN; inline;
  5757. procedure clearURXISEL0; inline;
  5758. procedure clearURXISEL1; inline;
  5759. procedure clearUTXBF; inline;
  5760. procedure clearUTXBRK; inline;
  5761. procedure clearUTXEN; inline;
  5762. procedure clearUTXINV; inline;
  5763. procedure clearUTXISEL0; inline;
  5764. procedure clearUTXISEL1; inline;
  5765. procedure setADDEN; inline;
  5766. procedure setADM_EN; inline;
  5767. procedure setFERR; inline;
  5768. procedure setOERR; inline;
  5769. procedure setPERR; inline;
  5770. procedure setRIDLE; inline;
  5771. procedure setTRMT; inline;
  5772. procedure setURXDA; inline;
  5773. procedure setURXEN; inline;
  5774. procedure setURXISEL0; inline;
  5775. procedure setURXISEL1; inline;
  5776. procedure setUTXBF; inline;
  5777. procedure setUTXBRK; inline;
  5778. procedure setUTXEN; inline;
  5779. procedure setUTXINV; inline;
  5780. procedure setUTXISEL0; inline;
  5781. procedure setUTXISEL1; inline;
  5782. property ADDEN : TBits_1 read getADDEN write setADDEN;
  5783. property ADDR : TBits_8 read getADDR write setADDR;
  5784. property ADM_EN : TBits_1 read getADM_EN write setADM_EN;
  5785. property FERR : TBits_1 read getFERR write setFERR;
  5786. property OERR : TBits_1 read getOERR write setOERR;
  5787. property PERR : TBits_1 read getPERR write setPERR;
  5788. property RIDLE : TBits_1 read getRIDLE write setRIDLE;
  5789. property TRMT : TBits_1 read getTRMT write setTRMT;
  5790. property URXDA : TBits_1 read getURXDA write setURXDA;
  5791. property URXEN : TBits_1 read getURXEN write setURXEN;
  5792. property URXISEL : TBits_2 read getURXISEL write setURXISEL;
  5793. property URXISEL0 : TBits_1 read getURXISEL0 write setURXISEL0;
  5794. property URXISEL1 : TBits_1 read getURXISEL1 write setURXISEL1;
  5795. property UTXBF : TBits_1 read getUTXBF write setUTXBF;
  5796. property UTXBRK : TBits_1 read getUTXBRK write setUTXBRK;
  5797. property UTXEN : TBits_1 read getUTXEN write setUTXEN;
  5798. property UTXINV : TBits_1 read getUTXINV write setUTXINV;
  5799. property UTXISEL : TBits_2 read getUTXISEL write setUTXISEL;
  5800. property UTXISEL0 : TBits_1 read getUTXISEL0 write setUTXISEL0;
  5801. property UTXISEL1 : TBits_1 read getUTXISEL1 write setUTXISEL1;
  5802. property UTXSEL : TBits_2 read getUTXSEL write setUTXSEL;
  5803. property w : TBits_32 read getw write setw;
  5804. end;
  5805. TUART2B_U6STA = record
  5806. private
  5807. function getADDEN : TBits_1; inline;
  5808. function getADDR : TBits_8; inline;
  5809. function getADM_EN : TBits_1; inline;
  5810. function getFERR : TBits_1; inline;
  5811. function getOERR : TBits_1; inline;
  5812. function getPERR : TBits_1; inline;
  5813. function getRIDLE : TBits_1; inline;
  5814. function getTRMT : TBits_1; inline;
  5815. function getURXDA : TBits_1; inline;
  5816. function getURXEN : TBits_1; inline;
  5817. function getURXISEL : TBits_2; inline;
  5818. function getURXISEL0 : TBits_1; inline;
  5819. function getURXISEL1 : TBits_1; inline;
  5820. function getUTXBF : TBits_1; inline;
  5821. function getUTXBRK : TBits_1; inline;
  5822. function getUTXEN : TBits_1; inline;
  5823. function getUTXINV : TBits_1; inline;
  5824. function getUTXISEL : TBits_2; inline;
  5825. function getUTXISEL0 : TBits_1; inline;
  5826. function getUTXISEL1 : TBits_1; inline;
  5827. function getUTXSEL : TBits_2; inline;
  5828. function getw : TBits_32; inline;
  5829. procedure setADDEN(thebits : TBits_1); inline;
  5830. procedure setADDR(thebits : TBits_8); inline;
  5831. procedure setADM_EN(thebits : TBits_1); inline;
  5832. procedure setFERR(thebits : TBits_1); inline;
  5833. procedure setOERR(thebits : TBits_1); inline;
  5834. procedure setPERR(thebits : TBits_1); inline;
  5835. procedure setRIDLE(thebits : TBits_1); inline;
  5836. procedure setTRMT(thebits : TBits_1); inline;
  5837. procedure setURXDA(thebits : TBits_1); inline;
  5838. procedure setURXEN(thebits : TBits_1); inline;
  5839. procedure setURXISEL(thebits : TBits_2); inline;
  5840. procedure setURXISEL0(thebits : TBits_1); inline;
  5841. procedure setURXISEL1(thebits : TBits_1); inline;
  5842. procedure setUTXBF(thebits : TBits_1); inline;
  5843. procedure setUTXBRK(thebits : TBits_1); inline;
  5844. procedure setUTXEN(thebits : TBits_1); inline;
  5845. procedure setUTXINV(thebits : TBits_1); inline;
  5846. procedure setUTXISEL(thebits : TBits_2); inline;
  5847. procedure setUTXISEL0(thebits : TBits_1); inline;
  5848. procedure setUTXISEL1(thebits : TBits_1); inline;
  5849. procedure setUTXSEL(thebits : TBits_2); inline;
  5850. procedure setw(thebits : TBits_32); inline;
  5851. public
  5852. procedure clearADDEN; inline;
  5853. procedure clearADM_EN; inline;
  5854. procedure clearFERR; inline;
  5855. procedure clearOERR; inline;
  5856. procedure clearPERR; inline;
  5857. procedure clearRIDLE; inline;
  5858. procedure clearTRMT; inline;
  5859. procedure clearURXDA; inline;
  5860. procedure clearURXEN; inline;
  5861. procedure clearURXISEL0; inline;
  5862. procedure clearURXISEL1; inline;
  5863. procedure clearUTXBF; inline;
  5864. procedure clearUTXBRK; inline;
  5865. procedure clearUTXEN; inline;
  5866. procedure clearUTXINV; inline;
  5867. procedure clearUTXISEL0; inline;
  5868. procedure clearUTXISEL1; inline;
  5869. procedure setADDEN; inline;
  5870. procedure setADM_EN; inline;
  5871. procedure setFERR; inline;
  5872. procedure setOERR; inline;
  5873. procedure setPERR; inline;
  5874. procedure setRIDLE; inline;
  5875. procedure setTRMT; inline;
  5876. procedure setURXDA; inline;
  5877. procedure setURXEN; inline;
  5878. procedure setURXISEL0; inline;
  5879. procedure setURXISEL1; inline;
  5880. procedure setUTXBF; inline;
  5881. procedure setUTXBRK; inline;
  5882. procedure setUTXEN; inline;
  5883. procedure setUTXINV; inline;
  5884. procedure setUTXISEL0; inline;
  5885. procedure setUTXISEL1; inline;
  5886. property ADDEN : TBits_1 read getADDEN write setADDEN;
  5887. property ADDR : TBits_8 read getADDR write setADDR;
  5888. property ADM_EN : TBits_1 read getADM_EN write setADM_EN;
  5889. property FERR : TBits_1 read getFERR write setFERR;
  5890. property OERR : TBits_1 read getOERR write setOERR;
  5891. property PERR : TBits_1 read getPERR write setPERR;
  5892. property RIDLE : TBits_1 read getRIDLE write setRIDLE;
  5893. property TRMT : TBits_1 read getTRMT write setTRMT;
  5894. property URXDA : TBits_1 read getURXDA write setURXDA;
  5895. property URXEN : TBits_1 read getURXEN write setURXEN;
  5896. property URXISEL : TBits_2 read getURXISEL write setURXISEL;
  5897. property URXISEL0 : TBits_1 read getURXISEL0 write setURXISEL0;
  5898. property URXISEL1 : TBits_1 read getURXISEL1 write setURXISEL1;
  5899. property UTXBF : TBits_1 read getUTXBF write setUTXBF;
  5900. property UTXBRK : TBits_1 read getUTXBRK write setUTXBRK;
  5901. property UTXEN : TBits_1 read getUTXEN write setUTXEN;
  5902. property UTXINV : TBits_1 read getUTXINV write setUTXINV;
  5903. property UTXISEL : TBits_2 read getUTXISEL write setUTXISEL;
  5904. property UTXISEL0 : TBits_1 read getUTXISEL0 write setUTXISEL0;
  5905. property UTXISEL1 : TBits_1 read getUTXISEL1 write setUTXISEL1;
  5906. property UTXSEL : TBits_2 read getUTXSEL write setUTXSEL;
  5907. property w : TBits_32 read getw write setw;
  5908. end;
  5909. type
  5910. TUART2BRegisters = record
  5911. U2BMODEbits : TUART2B_U2BMODE;
  5912. U2BMODE : longWord;
  5913. U6MODEbits : TUART2B_U6MODE;
  5914. U6MODE : longWord;
  5915. U2BMODECLR : longWord;
  5916. U6MODECLR : longWord;
  5917. U2BMODESET : longWord;
  5918. U6MODESET : longWord;
  5919. U2BMODEINV : longWord;
  5920. U6MODEINV : longWord;
  5921. U2BSTAbits : TUART2B_U2BSTA;
  5922. U2BSTA : longWord;
  5923. U6STAbits : TUART2B_U6STA;
  5924. U6STA : longWord;
  5925. U2BSTACLR : longWord;
  5926. U6STACLR : longWord;
  5927. U2BSTASET : longWord;
  5928. U6STASET : longWord;
  5929. U2BSTAINV : longWord;
  5930. U6STAINV : longWord;
  5931. U2BTXREG : longWord;
  5932. U6TXREG : longWord;
  5933. U2BRXREG : longWord;
  5934. U6RXREG : longWord;
  5935. U2BBRG : longWord;
  5936. U6BRG : longWord;
  5937. U2BBRGCLR : longWord;
  5938. U6BRGCLR : longWord;
  5939. U2BBRGSET : longWord;
  5940. U6BRGSET : longWord;
  5941. U2BBRGINV : longWord;
  5942. U6BRGINV : longWord;
  5943. end;
  5944. 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. TUART5_U3BMODE = record
  6374. private
  6375. function getABAUD : TBits_1; inline;
  6376. function getBRGH : TBits_1; inline;
  6377. function getIREN : TBits_1; inline;
  6378. function getLPBACK : TBits_1; inline;
  6379. function getON : TBits_1; inline;
  6380. function getPDSEL : TBits_2; inline;
  6381. function getPDSEL0 : TBits_1; inline;
  6382. function getPDSEL1 : TBits_1; inline;
  6383. function getRXINV : TBits_1; inline;
  6384. function getSIDL : TBits_1; inline;
  6385. function getSTSEL : TBits_1; inline;
  6386. function getUARTEN : TBits_1; inline;
  6387. function getUSIDL : TBits_1; inline;
  6388. function getWAKE : TBits_1; inline;
  6389. function getw : TBits_32; inline;
  6390. procedure setABAUD(thebits : TBits_1); inline;
  6391. procedure setBRGH(thebits : TBits_1); inline;
  6392. procedure setIREN(thebits : TBits_1); inline;
  6393. procedure setLPBACK(thebits : TBits_1); inline;
  6394. procedure setON(thebits : TBits_1); inline;
  6395. procedure setPDSEL(thebits : TBits_2); inline;
  6396. procedure setPDSEL0(thebits : TBits_1); inline;
  6397. procedure setPDSEL1(thebits : TBits_1); inline;
  6398. procedure setRXINV(thebits : TBits_1); inline;
  6399. procedure setSIDL(thebits : TBits_1); inline;
  6400. procedure setSTSEL(thebits : TBits_1); inline;
  6401. procedure setUARTEN(thebits : TBits_1); inline;
  6402. procedure setUSIDL(thebits : TBits_1); inline;
  6403. procedure setWAKE(thebits : TBits_1); inline;
  6404. procedure setw(thebits : TBits_32); inline;
  6405. public
  6406. procedure clearABAUD; inline;
  6407. procedure clearBRGH; inline;
  6408. procedure clearIREN; inline;
  6409. procedure clearLPBACK; inline;
  6410. procedure clearON; inline;
  6411. procedure clearPDSEL0; inline;
  6412. procedure clearPDSEL1; inline;
  6413. procedure clearRXINV; inline;
  6414. procedure clearSIDL; inline;
  6415. procedure clearSTSEL; inline;
  6416. procedure clearUARTEN; inline;
  6417. procedure clearUSIDL; inline;
  6418. procedure clearWAKE; inline;
  6419. procedure setABAUD; inline;
  6420. procedure setBRGH; inline;
  6421. procedure setIREN; inline;
  6422. procedure setLPBACK; inline;
  6423. procedure setON; inline;
  6424. procedure setPDSEL0; inline;
  6425. procedure setPDSEL1; inline;
  6426. procedure setRXINV; inline;
  6427. procedure setSIDL; inline;
  6428. procedure setSTSEL; inline;
  6429. procedure setUARTEN; inline;
  6430. procedure setUSIDL; inline;
  6431. procedure setWAKE; inline;
  6432. property ABAUD : TBits_1 read getABAUD write setABAUD;
  6433. property BRGH : TBits_1 read getBRGH write setBRGH;
  6434. property IREN : TBits_1 read getIREN write setIREN;
  6435. property LPBACK : TBits_1 read getLPBACK write setLPBACK;
  6436. property ON : TBits_1 read getON write setON;
  6437. property PDSEL : TBits_2 read getPDSEL write setPDSEL;
  6438. property PDSEL0 : TBits_1 read getPDSEL0 write setPDSEL0;
  6439. property PDSEL1 : TBits_1 read getPDSEL1 write setPDSEL1;
  6440. property RXINV : TBits_1 read getRXINV write setRXINV;
  6441. property SIDL : TBits_1 read getSIDL write setSIDL;
  6442. property STSEL : TBits_1 read getSTSEL write setSTSEL;
  6443. property UARTEN : TBits_1 read getUARTEN write setUARTEN;
  6444. property USIDL : TBits_1 read getUSIDL write setUSIDL;
  6445. property WAKE : TBits_1 read getWAKE write setWAKE;
  6446. property w : TBits_32 read getw write setw;
  6447. end;
  6448. TUART5_U5MODE = record
  6449. private
  6450. function getABAUD : TBits_1; inline;
  6451. function getBRGH : TBits_1; inline;
  6452. function getIREN : TBits_1; inline;
  6453. function getLPBACK : TBits_1; inline;
  6454. function getON : TBits_1; inline;
  6455. function getPDSEL : TBits_2; inline;
  6456. function getPDSEL0 : TBits_1; inline;
  6457. function getPDSEL1 : TBits_1; inline;
  6458. function getRXINV : TBits_1; inline;
  6459. function getSIDL : TBits_1; inline;
  6460. function getSTSEL : TBits_1; inline;
  6461. function getUARTEN : TBits_1; inline;
  6462. function getUSIDL : TBits_1; inline;
  6463. function getWAKE : TBits_1; inline;
  6464. function getw : TBits_32; inline;
  6465. procedure setABAUD(thebits : TBits_1); inline;
  6466. procedure setBRGH(thebits : TBits_1); inline;
  6467. procedure setIREN(thebits : TBits_1); inline;
  6468. procedure setLPBACK(thebits : TBits_1); inline;
  6469. procedure setON(thebits : TBits_1); inline;
  6470. procedure setPDSEL(thebits : TBits_2); inline;
  6471. procedure setPDSEL0(thebits : TBits_1); inline;
  6472. procedure setPDSEL1(thebits : TBits_1); inline;
  6473. procedure setRXINV(thebits : TBits_1); inline;
  6474. procedure setSIDL(thebits : TBits_1); inline;
  6475. procedure setSTSEL(thebits : TBits_1); inline;
  6476. procedure setUARTEN(thebits : TBits_1); inline;
  6477. procedure setUSIDL(thebits : TBits_1); inline;
  6478. procedure setWAKE(thebits : TBits_1); inline;
  6479. procedure setw(thebits : TBits_32); inline;
  6480. public
  6481. procedure clearABAUD; inline;
  6482. procedure clearBRGH; inline;
  6483. procedure clearIREN; inline;
  6484. procedure clearLPBACK; inline;
  6485. procedure clearON; inline;
  6486. procedure clearPDSEL0; inline;
  6487. procedure clearPDSEL1; inline;
  6488. procedure clearRXINV; inline;
  6489. procedure clearSIDL; inline;
  6490. procedure clearSTSEL; inline;
  6491. procedure clearUARTEN; inline;
  6492. procedure clearUSIDL; inline;
  6493. procedure clearWAKE; inline;
  6494. procedure setABAUD; inline;
  6495. procedure setBRGH; inline;
  6496. procedure setIREN; inline;
  6497. procedure setLPBACK; inline;
  6498. procedure setON; inline;
  6499. procedure setPDSEL0; inline;
  6500. procedure setPDSEL1; inline;
  6501. procedure setRXINV; inline;
  6502. procedure setSIDL; inline;
  6503. procedure setSTSEL; inline;
  6504. procedure setUARTEN; inline;
  6505. procedure setUSIDL; inline;
  6506. procedure setWAKE; inline;
  6507. property ABAUD : TBits_1 read getABAUD write setABAUD;
  6508. property BRGH : TBits_1 read getBRGH write setBRGH;
  6509. property IREN : TBits_1 read getIREN write setIREN;
  6510. property LPBACK : TBits_1 read getLPBACK write setLPBACK;
  6511. property ON : TBits_1 read getON write setON;
  6512. property PDSEL : TBits_2 read getPDSEL write setPDSEL;
  6513. property PDSEL0 : TBits_1 read getPDSEL0 write setPDSEL0;
  6514. property PDSEL1 : TBits_1 read getPDSEL1 write setPDSEL1;
  6515. property RXINV : TBits_1 read getRXINV write setRXINV;
  6516. property SIDL : TBits_1 read getSIDL write setSIDL;
  6517. property STSEL : TBits_1 read getSTSEL write setSTSEL;
  6518. property UARTEN : TBits_1 read getUARTEN write setUARTEN;
  6519. property USIDL : TBits_1 read getUSIDL write setUSIDL;
  6520. property WAKE : TBits_1 read getWAKE write setWAKE;
  6521. property w : TBits_32 read getw write setw;
  6522. end;
  6523. TUART5_U3BSTA = record
  6524. private
  6525. function getADDEN : TBits_1; inline;
  6526. function getADDR : TBits_8; inline;
  6527. function getADM_EN : TBits_1; inline;
  6528. function getFERR : TBits_1; inline;
  6529. function getOERR : TBits_1; inline;
  6530. function getPERR : TBits_1; inline;
  6531. function getRIDLE : TBits_1; inline;
  6532. function getTRMT : TBits_1; inline;
  6533. function getURXDA : TBits_1; inline;
  6534. function getURXEN : TBits_1; inline;
  6535. function getURXISEL : TBits_2; inline;
  6536. function getURXISEL0 : TBits_1; inline;
  6537. function getURXISEL1 : TBits_1; inline;
  6538. function getUTXBF : TBits_1; inline;
  6539. function getUTXBRK : TBits_1; inline;
  6540. function getUTXEN : TBits_1; inline;
  6541. function getUTXINV : TBits_1; inline;
  6542. function getUTXISEL : TBits_2; inline;
  6543. function getUTXISEL0 : TBits_1; inline;
  6544. function getUTXISEL1 : TBits_1; inline;
  6545. function getUTXSEL : TBits_2; inline;
  6546. function getw : TBits_32; inline;
  6547. procedure setADDEN(thebits : TBits_1); inline;
  6548. procedure setADDR(thebits : TBits_8); inline;
  6549. procedure setADM_EN(thebits : TBits_1); inline;
  6550. procedure setFERR(thebits : TBits_1); inline;
  6551. procedure setOERR(thebits : TBits_1); inline;
  6552. procedure setPERR(thebits : TBits_1); inline;
  6553. procedure setRIDLE(thebits : TBits_1); inline;
  6554. procedure setTRMT(thebits : TBits_1); inline;
  6555. procedure setURXDA(thebits : TBits_1); inline;
  6556. procedure setURXEN(thebits : TBits_1); inline;
  6557. procedure setURXISEL(thebits : TBits_2); inline;
  6558. procedure setURXISEL0(thebits : TBits_1); inline;
  6559. procedure setURXISEL1(thebits : TBits_1); inline;
  6560. procedure setUTXBF(thebits : TBits_1); inline;
  6561. procedure setUTXBRK(thebits : TBits_1); inline;
  6562. procedure setUTXEN(thebits : TBits_1); inline;
  6563. procedure setUTXINV(thebits : TBits_1); inline;
  6564. procedure setUTXISEL(thebits : TBits_2); inline;
  6565. procedure setUTXISEL0(thebits : TBits_1); inline;
  6566. procedure setUTXISEL1(thebits : TBits_1); inline;
  6567. procedure setUTXSEL(thebits : TBits_2); inline;
  6568. procedure setw(thebits : TBits_32); inline;
  6569. public
  6570. procedure clearADDEN; inline;
  6571. procedure clearADM_EN; inline;
  6572. procedure clearFERR; inline;
  6573. procedure clearOERR; inline;
  6574. procedure clearPERR; inline;
  6575. procedure clearRIDLE; inline;
  6576. procedure clearTRMT; inline;
  6577. procedure clearURXDA; inline;
  6578. procedure clearURXEN; inline;
  6579. procedure clearURXISEL0; inline;
  6580. procedure clearURXISEL1; inline;
  6581. procedure clearUTXBF; inline;
  6582. procedure clearUTXBRK; inline;
  6583. procedure clearUTXEN; inline;
  6584. procedure clearUTXINV; inline;
  6585. procedure clearUTXISEL0; inline;
  6586. procedure clearUTXISEL1; inline;
  6587. procedure setADDEN; inline;
  6588. procedure setADM_EN; inline;
  6589. procedure setFERR; inline;
  6590. procedure setOERR; inline;
  6591. procedure setPERR; inline;
  6592. procedure setRIDLE; inline;
  6593. procedure setTRMT; inline;
  6594. procedure setURXDA; inline;
  6595. procedure setURXEN; inline;
  6596. procedure setURXISEL0; inline;
  6597. procedure setURXISEL1; inline;
  6598. procedure setUTXBF; inline;
  6599. procedure setUTXBRK; inline;
  6600. procedure setUTXEN; inline;
  6601. procedure setUTXINV; inline;
  6602. procedure setUTXISEL0; inline;
  6603. procedure setUTXISEL1; inline;
  6604. property ADDEN : TBits_1 read getADDEN write setADDEN;
  6605. property ADDR : TBits_8 read getADDR write setADDR;
  6606. property ADM_EN : TBits_1 read getADM_EN write setADM_EN;
  6607. property FERR : TBits_1 read getFERR write setFERR;
  6608. property OERR : TBits_1 read getOERR write setOERR;
  6609. property PERR : TBits_1 read getPERR write setPERR;
  6610. property RIDLE : TBits_1 read getRIDLE write setRIDLE;
  6611. property TRMT : TBits_1 read getTRMT write setTRMT;
  6612. property URXDA : TBits_1 read getURXDA write setURXDA;
  6613. property URXEN : TBits_1 read getURXEN write setURXEN;
  6614. property URXISEL : TBits_2 read getURXISEL write setURXISEL;
  6615. property URXISEL0 : TBits_1 read getURXISEL0 write setURXISEL0;
  6616. property URXISEL1 : TBits_1 read getURXISEL1 write setURXISEL1;
  6617. property UTXBF : TBits_1 read getUTXBF write setUTXBF;
  6618. property UTXBRK : TBits_1 read getUTXBRK write setUTXBRK;
  6619. property UTXEN : TBits_1 read getUTXEN write setUTXEN;
  6620. property UTXINV : TBits_1 read getUTXINV write setUTXINV;
  6621. property UTXISEL : TBits_2 read getUTXISEL write setUTXISEL;
  6622. property UTXISEL0 : TBits_1 read getUTXISEL0 write setUTXISEL0;
  6623. property UTXISEL1 : TBits_1 read getUTXISEL1 write setUTXISEL1;
  6624. property UTXSEL : TBits_2 read getUTXSEL write setUTXSEL;
  6625. property w : TBits_32 read getw write setw;
  6626. end;
  6627. TUART5_U5STA = record
  6628. private
  6629. function getADDEN : TBits_1; inline;
  6630. function getADDR : TBits_8; inline;
  6631. function getADM_EN : TBits_1; inline;
  6632. function getFERR : TBits_1; inline;
  6633. function getOERR : TBits_1; inline;
  6634. function getPERR : TBits_1; inline;
  6635. function getRIDLE : TBits_1; inline;
  6636. function getTRMT : TBits_1; inline;
  6637. function getURXDA : TBits_1; inline;
  6638. function getURXEN : TBits_1; inline;
  6639. function getURXISEL : TBits_2; inline;
  6640. function getURXISEL0 : TBits_1; inline;
  6641. function getURXISEL1 : TBits_1; inline;
  6642. function getUTXBF : TBits_1; inline;
  6643. function getUTXBRK : TBits_1; inline;
  6644. function getUTXEN : TBits_1; inline;
  6645. function getUTXINV : TBits_1; inline;
  6646. function getUTXISEL : TBits_2; inline;
  6647. function getUTXISEL0 : TBits_1; inline;
  6648. function getUTXISEL1 : TBits_1; inline;
  6649. function getUTXSEL : TBits_2; inline;
  6650. function getw : TBits_32; inline;
  6651. procedure setADDEN(thebits : TBits_1); inline;
  6652. procedure setADDR(thebits : TBits_8); inline;
  6653. procedure setADM_EN(thebits : TBits_1); inline;
  6654. procedure setFERR(thebits : TBits_1); inline;
  6655. procedure setOERR(thebits : TBits_1); inline;
  6656. procedure setPERR(thebits : TBits_1); inline;
  6657. procedure setRIDLE(thebits : TBits_1); inline;
  6658. procedure setTRMT(thebits : TBits_1); inline;
  6659. procedure setURXDA(thebits : TBits_1); inline;
  6660. procedure setURXEN(thebits : TBits_1); inline;
  6661. procedure setURXISEL(thebits : TBits_2); inline;
  6662. procedure setURXISEL0(thebits : TBits_1); inline;
  6663. procedure setURXISEL1(thebits : TBits_1); inline;
  6664. procedure setUTXBF(thebits : TBits_1); inline;
  6665. procedure setUTXBRK(thebits : TBits_1); inline;
  6666. procedure setUTXEN(thebits : TBits_1); inline;
  6667. procedure setUTXINV(thebits : TBits_1); inline;
  6668. procedure setUTXISEL(thebits : TBits_2); inline;
  6669. procedure setUTXISEL0(thebits : TBits_1); inline;
  6670. procedure setUTXISEL1(thebits : TBits_1); inline;
  6671. procedure setUTXSEL(thebits : TBits_2); inline;
  6672. procedure setw(thebits : TBits_32); inline;
  6673. public
  6674. procedure clearADDEN; inline;
  6675. procedure clearADM_EN; inline;
  6676. procedure clearFERR; inline;
  6677. procedure clearOERR; inline;
  6678. procedure clearPERR; inline;
  6679. procedure clearRIDLE; inline;
  6680. procedure clearTRMT; inline;
  6681. procedure clearURXDA; inline;
  6682. procedure clearURXEN; inline;
  6683. procedure clearURXISEL0; inline;
  6684. procedure clearURXISEL1; inline;
  6685. procedure clearUTXBF; inline;
  6686. procedure clearUTXBRK; inline;
  6687. procedure clearUTXEN; inline;
  6688. procedure clearUTXINV; inline;
  6689. procedure clearUTXISEL0; inline;
  6690. procedure clearUTXISEL1; inline;
  6691. procedure setADDEN; inline;
  6692. procedure setADM_EN; inline;
  6693. procedure setFERR; inline;
  6694. procedure setOERR; inline;
  6695. procedure setPERR; inline;
  6696. procedure setRIDLE; inline;
  6697. procedure setTRMT; inline;
  6698. procedure setURXDA; inline;
  6699. procedure setURXEN; inline;
  6700. procedure setURXISEL0; inline;
  6701. procedure setURXISEL1; inline;
  6702. procedure setUTXBF; inline;
  6703. procedure setUTXBRK; inline;
  6704. procedure setUTXEN; inline;
  6705. procedure setUTXINV; inline;
  6706. procedure setUTXISEL0; inline;
  6707. procedure setUTXISEL1; inline;
  6708. property ADDEN : TBits_1 read getADDEN write setADDEN;
  6709. property ADDR : TBits_8 read getADDR write setADDR;
  6710. property ADM_EN : TBits_1 read getADM_EN write setADM_EN;
  6711. property FERR : TBits_1 read getFERR write setFERR;
  6712. property OERR : TBits_1 read getOERR write setOERR;
  6713. property PERR : TBits_1 read getPERR write setPERR;
  6714. property RIDLE : TBits_1 read getRIDLE write setRIDLE;
  6715. property TRMT : TBits_1 read getTRMT write setTRMT;
  6716. property URXDA : TBits_1 read getURXDA write setURXDA;
  6717. property URXEN : TBits_1 read getURXEN write setURXEN;
  6718. property URXISEL : TBits_2 read getURXISEL write setURXISEL;
  6719. property URXISEL0 : TBits_1 read getURXISEL0 write setURXISEL0;
  6720. property URXISEL1 : TBits_1 read getURXISEL1 write setURXISEL1;
  6721. property UTXBF : TBits_1 read getUTXBF write setUTXBF;
  6722. property UTXBRK : TBits_1 read getUTXBRK write setUTXBRK;
  6723. property UTXEN : TBits_1 read getUTXEN write setUTXEN;
  6724. property UTXINV : TBits_1 read getUTXINV write setUTXINV;
  6725. property UTXISEL : TBits_2 read getUTXISEL write setUTXISEL;
  6726. property UTXISEL0 : TBits_1 read getUTXISEL0 write setUTXISEL0;
  6727. property UTXISEL1 : TBits_1 read getUTXISEL1 write setUTXISEL1;
  6728. property UTXSEL : TBits_2 read getUTXSEL write setUTXSEL;
  6729. property w : TBits_32 read getw write setw;
  6730. end;
  6731. type
  6732. TUART5Registers = record
  6733. U3BMODEbits : TUART5_U3BMODE;
  6734. U3BMODE : longWord;
  6735. U5MODEbits : TUART5_U5MODE;
  6736. U5MODE : longWord;
  6737. U3BMODECLR : longWord;
  6738. U5MODECLR : longWord;
  6739. U3BMODESET : longWord;
  6740. U5MODESET : longWord;
  6741. U3BMODEINV : longWord;
  6742. U5MODEINV : longWord;
  6743. U3BSTAbits : TUART5_U3BSTA;
  6744. U3BSTA : longWord;
  6745. U5STAbits : TUART5_U5STA;
  6746. U5STA : longWord;
  6747. U3BSTACLR : longWord;
  6748. U5STACLR : longWord;
  6749. U3BSTASET : longWord;
  6750. U5STASET : longWord;
  6751. U3BSTAINV : longWord;
  6752. U5STAINV : longWord;
  6753. U3BTXREG : longWord;
  6754. U5TXREG : longWord;
  6755. U3BRXREG : longWord;
  6756. U5RXREG : longWord;
  6757. U3BBRG : longWord;
  6758. U5BRG : longWord;
  6759. U3BBRGCLR : longWord;
  6760. U5BRGCLR : longWord;
  6761. U3BBRGSET : longWord;
  6762. U5BRGSET : longWord;
  6763. U3BBRGINV : longWord;
  6764. U5BRGINV : longWord;
  6765. end;
  6766. TPMP_PMCON = record
  6767. private
  6768. function getADRMUX : TBits_2; inline;
  6769. function getADRMUX0 : TBits_1; inline;
  6770. function getADRMUX1 : TBits_1; inline;
  6771. function getALP : TBits_1; inline;
  6772. function getCS1P : TBits_1; inline;
  6773. function getCS2P : TBits_1; inline;
  6774. function getCSF : TBits_2; inline;
  6775. function getCSF0 : TBits_1; inline;
  6776. function getCSF1 : TBits_1; inline;
  6777. function getON : TBits_1; inline;
  6778. function getPMPEN : TBits_1; inline;
  6779. function getPMPTTL : TBits_1; inline;
  6780. function getPSIDL : TBits_1; inline;
  6781. function getPTRDEN : TBits_1; inline;
  6782. function getPTWREN : TBits_1; inline;
  6783. function getRDSP : TBits_1; inline;
  6784. function getSIDL : TBits_1; inline;
  6785. function getWRSP : TBits_1; inline;
  6786. function getw : TBits_32; inline;
  6787. procedure setADRMUX(thebits : TBits_2); inline;
  6788. procedure setADRMUX0(thebits : TBits_1); inline;
  6789. procedure setADRMUX1(thebits : TBits_1); inline;
  6790. procedure setALP(thebits : TBits_1); inline;
  6791. procedure setCS1P(thebits : TBits_1); inline;
  6792. procedure setCS2P(thebits : TBits_1); inline;
  6793. procedure setCSF(thebits : TBits_2); inline;
  6794. procedure setCSF0(thebits : TBits_1); inline;
  6795. procedure setCSF1(thebits : TBits_1); inline;
  6796. procedure setON(thebits : TBits_1); inline;
  6797. procedure setPMPEN(thebits : TBits_1); inline;
  6798. procedure setPMPTTL(thebits : TBits_1); inline;
  6799. procedure setPSIDL(thebits : TBits_1); inline;
  6800. procedure setPTRDEN(thebits : TBits_1); inline;
  6801. procedure setPTWREN(thebits : TBits_1); inline;
  6802. procedure setRDSP(thebits : TBits_1); inline;
  6803. procedure setSIDL(thebits : TBits_1); inline;
  6804. procedure setWRSP(thebits : TBits_1); inline;
  6805. procedure setw(thebits : TBits_32); inline;
  6806. public
  6807. procedure clearADRMUX0; inline;
  6808. procedure clearADRMUX1; inline;
  6809. procedure clearALP; inline;
  6810. procedure clearCS1P; inline;
  6811. procedure clearCS2P; inline;
  6812. procedure clearCSF0; inline;
  6813. procedure clearCSF1; inline;
  6814. procedure clearON; inline;
  6815. procedure clearPMPEN; inline;
  6816. procedure clearPMPTTL; inline;
  6817. procedure clearPSIDL; inline;
  6818. procedure clearPTRDEN; inline;
  6819. procedure clearPTWREN; inline;
  6820. procedure clearRDSP; inline;
  6821. procedure clearSIDL; inline;
  6822. procedure clearWRSP; inline;
  6823. procedure setADRMUX0; inline;
  6824. procedure setADRMUX1; inline;
  6825. procedure setALP; inline;
  6826. procedure setCS1P; inline;
  6827. procedure setCS2P; inline;
  6828. procedure setCSF0; inline;
  6829. procedure setCSF1; inline;
  6830. procedure setON; inline;
  6831. procedure setPMPEN; inline;
  6832. procedure setPMPTTL; inline;
  6833. procedure setPSIDL; inline;
  6834. procedure setPTRDEN; inline;
  6835. procedure setPTWREN; inline;
  6836. procedure setRDSP; inline;
  6837. procedure setSIDL; inline;
  6838. procedure setWRSP; inline;
  6839. property ADRMUX : TBits_2 read getADRMUX write setADRMUX;
  6840. property ADRMUX0 : TBits_1 read getADRMUX0 write setADRMUX0;
  6841. property ADRMUX1 : TBits_1 read getADRMUX1 write setADRMUX1;
  6842. property ALP : TBits_1 read getALP write setALP;
  6843. property CS1P : TBits_1 read getCS1P write setCS1P;
  6844. property CS2P : TBits_1 read getCS2P write setCS2P;
  6845. property CSF : TBits_2 read getCSF write setCSF;
  6846. property CSF0 : TBits_1 read getCSF0 write setCSF0;
  6847. property CSF1 : TBits_1 read getCSF1 write setCSF1;
  6848. property ON : TBits_1 read getON write setON;
  6849. property PMPEN : TBits_1 read getPMPEN write setPMPEN;
  6850. property PMPTTL : TBits_1 read getPMPTTL write setPMPTTL;
  6851. property PSIDL : TBits_1 read getPSIDL write setPSIDL;
  6852. property PTRDEN : TBits_1 read getPTRDEN write setPTRDEN;
  6853. property PTWREN : TBits_1 read getPTWREN write setPTWREN;
  6854. property RDSP : TBits_1 read getRDSP write setRDSP;
  6855. property SIDL : TBits_1 read getSIDL write setSIDL;
  6856. property WRSP : TBits_1 read getWRSP write setWRSP;
  6857. property w : TBits_32 read getw write setw;
  6858. end;
  6859. TPMP_PMMODE = record
  6860. private
  6861. function getBUSY : TBits_1; inline;
  6862. function getINCM : TBits_2; inline;
  6863. function getINCM0 : TBits_1; inline;
  6864. function getINCM1 : TBits_1; inline;
  6865. function getIRQM : TBits_2; inline;
  6866. function getIRQM0 : TBits_1; inline;
  6867. function getIRQM1 : TBits_1; inline;
  6868. function getMODE : TBits_2; inline;
  6869. function getMODE0 : TBits_1; inline;
  6870. function getMODE1 : TBits_1; inline;
  6871. function getMODE16 : TBits_1; inline;
  6872. function getWAITB : TBits_2; inline;
  6873. function getWAITB0 : TBits_1; inline;
  6874. function getWAITB1 : TBits_1; inline;
  6875. function getWAITE : TBits_2; inline;
  6876. function getWAITE0 : TBits_1; inline;
  6877. function getWAITE1 : TBits_1; inline;
  6878. function getWAITM : TBits_4; inline;
  6879. function getWAITM0 : TBits_1; inline;
  6880. function getWAITM1 : TBits_1; inline;
  6881. function getWAITM2 : TBits_1; inline;
  6882. function getWAITM3 : TBits_1; inline;
  6883. function getw : TBits_32; inline;
  6884. procedure setBUSY(thebits : TBits_1); inline;
  6885. procedure setINCM(thebits : TBits_2); inline;
  6886. procedure setINCM0(thebits : TBits_1); inline;
  6887. procedure setINCM1(thebits : TBits_1); inline;
  6888. procedure setIRQM(thebits : TBits_2); inline;
  6889. procedure setIRQM0(thebits : TBits_1); inline;
  6890. procedure setIRQM1(thebits : TBits_1); inline;
  6891. procedure setMODE(thebits : TBits_2); inline;
  6892. procedure setMODE0(thebits : TBits_1); inline;
  6893. procedure setMODE1(thebits : TBits_1); inline;
  6894. procedure setMODE16(thebits : TBits_1); inline;
  6895. procedure setWAITB(thebits : TBits_2); inline;
  6896. procedure setWAITB0(thebits : TBits_1); inline;
  6897. procedure setWAITB1(thebits : TBits_1); inline;
  6898. procedure setWAITE(thebits : TBits_2); inline;
  6899. procedure setWAITE0(thebits : TBits_1); inline;
  6900. procedure setWAITE1(thebits : TBits_1); inline;
  6901. procedure setWAITM(thebits : TBits_4); inline;
  6902. procedure setWAITM0(thebits : TBits_1); inline;
  6903. procedure setWAITM1(thebits : TBits_1); inline;
  6904. procedure setWAITM2(thebits : TBits_1); inline;
  6905. procedure setWAITM3(thebits : TBits_1); inline;
  6906. procedure setw(thebits : TBits_32); inline;
  6907. public
  6908. procedure clearBUSY; inline;
  6909. procedure clearINCM0; inline;
  6910. procedure clearINCM1; inline;
  6911. procedure clearIRQM0; inline;
  6912. procedure clearIRQM1; inline;
  6913. procedure clearMODE0; inline;
  6914. procedure clearMODE16; inline;
  6915. procedure clearMODE1; inline;
  6916. procedure clearWAITB0; inline;
  6917. procedure clearWAITB1; inline;
  6918. procedure clearWAITE0; inline;
  6919. procedure clearWAITE1; inline;
  6920. procedure clearWAITM0; inline;
  6921. procedure clearWAITM1; inline;
  6922. procedure clearWAITM2; inline;
  6923. procedure clearWAITM3; inline;
  6924. procedure setBUSY; inline;
  6925. procedure setINCM0; inline;
  6926. procedure setINCM1; inline;
  6927. procedure setIRQM0; inline;
  6928. procedure setIRQM1; inline;
  6929. procedure setMODE0; inline;
  6930. procedure setMODE16; inline;
  6931. procedure setMODE1; inline;
  6932. procedure setWAITB0; inline;
  6933. procedure setWAITB1; inline;
  6934. procedure setWAITE0; inline;
  6935. procedure setWAITE1; inline;
  6936. procedure setWAITM0; inline;
  6937. procedure setWAITM1; inline;
  6938. procedure setWAITM2; inline;
  6939. procedure setWAITM3; inline;
  6940. property BUSY : TBits_1 read getBUSY write setBUSY;
  6941. property INCM : TBits_2 read getINCM write setINCM;
  6942. property INCM0 : TBits_1 read getINCM0 write setINCM0;
  6943. property INCM1 : TBits_1 read getINCM1 write setINCM1;
  6944. property IRQM : TBits_2 read getIRQM write setIRQM;
  6945. property IRQM0 : TBits_1 read getIRQM0 write setIRQM0;
  6946. property IRQM1 : TBits_1 read getIRQM1 write setIRQM1;
  6947. property MODE : TBits_2 read getMODE write setMODE;
  6948. property MODE0 : TBits_1 read getMODE0 write setMODE0;
  6949. property MODE1 : TBits_1 read getMODE1 write setMODE1;
  6950. property MODE16 : TBits_1 read getMODE16 write setMODE16;
  6951. property WAITB : TBits_2 read getWAITB write setWAITB;
  6952. property WAITB0 : TBits_1 read getWAITB0 write setWAITB0;
  6953. property WAITB1 : TBits_1 read getWAITB1 write setWAITB1;
  6954. property WAITE : TBits_2 read getWAITE write setWAITE;
  6955. property WAITE0 : TBits_1 read getWAITE0 write setWAITE0;
  6956. property WAITE1 : TBits_1 read getWAITE1 write setWAITE1;
  6957. property WAITM : TBits_4 read getWAITM write setWAITM;
  6958. property WAITM0 : TBits_1 read getWAITM0 write setWAITM0;
  6959. property WAITM1 : TBits_1 read getWAITM1 write setWAITM1;
  6960. property WAITM2 : TBits_1 read getWAITM2 write setWAITM2;
  6961. property WAITM3 : TBits_1 read getWAITM3 write setWAITM3;
  6962. property w : TBits_32 read getw write setw;
  6963. end;
  6964. TPMP_PMADDR = record
  6965. private
  6966. function getADDR : TBits_14; inline;
  6967. function getCS : TBits_2; inline;
  6968. function getCS1 : TBits_1; inline;
  6969. function getCS2 : TBits_1; inline;
  6970. function getPADDR : TBits_14; inline;
  6971. function getw : TBits_32; inline;
  6972. procedure setADDR(thebits : TBits_14); inline;
  6973. procedure setCS(thebits : TBits_2); inline;
  6974. procedure setCS1(thebits : TBits_1); inline;
  6975. procedure setCS2(thebits : TBits_1); inline;
  6976. procedure setPADDR(thebits : TBits_14); inline;
  6977. procedure setw(thebits : TBits_32); inline;
  6978. public
  6979. procedure clearCS1; inline;
  6980. procedure clearCS2; inline;
  6981. procedure setCS1; inline;
  6982. procedure setCS2; inline;
  6983. property ADDR : TBits_14 read getADDR write setADDR;
  6984. property CS : TBits_2 read getCS write setCS;
  6985. property CS1 : TBits_1 read getCS1 write setCS1;
  6986. property CS2 : TBits_1 read getCS2 write setCS2;
  6987. property PADDR : TBits_14 read getPADDR write setPADDR;
  6988. property w : TBits_32 read getw write setw;
  6989. end;
  6990. TPMP_PMDOUT = record
  6991. private
  6992. function getDATAOUT : TBits_32; inline;
  6993. function getw : TBits_32; inline;
  6994. procedure setDATAOUT(thebits : TBits_32); inline;
  6995. procedure setw(thebits : TBits_32); inline;
  6996. public
  6997. property DATAOUT : TBits_32 read getDATAOUT write setDATAOUT;
  6998. property w : TBits_32 read getw write setw;
  6999. end;
  7000. TPMP_PMDIN = record
  7001. private
  7002. function getDATAIN : TBits_32; inline;
  7003. function getw : TBits_32; inline;
  7004. procedure setDATAIN(thebits : TBits_32); inline;
  7005. procedure setw(thebits : TBits_32); inline;
  7006. public
  7007. property DATAIN : TBits_32 read getDATAIN write setDATAIN;
  7008. property w : TBits_32 read getw write setw;
  7009. end;
  7010. TPMP_PMAEN = record
  7011. private
  7012. function getPTEN : TBits_16; inline;
  7013. function getPTEN0 : TBits_1; inline;
  7014. function getPTEN1 : TBits_1; inline;
  7015. function getPTEN10 : TBits_1; inline;
  7016. function getPTEN11 : TBits_1; inline;
  7017. function getPTEN12 : TBits_1; inline;
  7018. function getPTEN13 : TBits_1; inline;
  7019. function getPTEN14 : TBits_1; inline;
  7020. function getPTEN15 : TBits_1; inline;
  7021. function getPTEN2 : TBits_1; inline;
  7022. function getPTEN3 : TBits_1; inline;
  7023. function getPTEN4 : TBits_1; inline;
  7024. function getPTEN5 : TBits_1; inline;
  7025. function getPTEN6 : TBits_1; inline;
  7026. function getPTEN7 : TBits_1; inline;
  7027. function getPTEN8 : TBits_1; inline;
  7028. function getPTEN9 : TBits_1; inline;
  7029. function getw : TBits_32; inline;
  7030. procedure setPTEN(thebits : TBits_16); inline;
  7031. procedure setPTEN0(thebits : TBits_1); inline;
  7032. procedure setPTEN1(thebits : TBits_1); inline;
  7033. procedure setPTEN10(thebits : TBits_1); inline;
  7034. procedure setPTEN11(thebits : TBits_1); inline;
  7035. procedure setPTEN12(thebits : TBits_1); inline;
  7036. procedure setPTEN13(thebits : TBits_1); inline;
  7037. procedure setPTEN14(thebits : TBits_1); inline;
  7038. procedure setPTEN15(thebits : TBits_1); inline;
  7039. procedure setPTEN2(thebits : TBits_1); inline;
  7040. procedure setPTEN3(thebits : TBits_1); inline;
  7041. procedure setPTEN4(thebits : TBits_1); inline;
  7042. procedure setPTEN5(thebits : TBits_1); inline;
  7043. procedure setPTEN6(thebits : TBits_1); inline;
  7044. procedure setPTEN7(thebits : TBits_1); inline;
  7045. procedure setPTEN8(thebits : TBits_1); inline;
  7046. procedure setPTEN9(thebits : TBits_1); inline;
  7047. procedure setw(thebits : TBits_32); inline;
  7048. public
  7049. procedure clearPTEN0; inline;
  7050. procedure clearPTEN10; inline;
  7051. procedure clearPTEN11; inline;
  7052. procedure clearPTEN12; inline;
  7053. procedure clearPTEN13; inline;
  7054. procedure clearPTEN14; inline;
  7055. procedure clearPTEN15; inline;
  7056. procedure clearPTEN1; inline;
  7057. procedure clearPTEN2; inline;
  7058. procedure clearPTEN3; inline;
  7059. procedure clearPTEN4; inline;
  7060. procedure clearPTEN5; inline;
  7061. procedure clearPTEN6; inline;
  7062. procedure clearPTEN7; inline;
  7063. procedure clearPTEN8; inline;
  7064. procedure clearPTEN9; inline;
  7065. procedure setPTEN0; inline;
  7066. procedure setPTEN10; inline;
  7067. procedure setPTEN11; inline;
  7068. procedure setPTEN12; inline;
  7069. procedure setPTEN13; inline;
  7070. procedure setPTEN14; inline;
  7071. procedure setPTEN15; inline;
  7072. procedure setPTEN1; inline;
  7073. procedure setPTEN2; inline;
  7074. procedure setPTEN3; inline;
  7075. procedure setPTEN4; inline;
  7076. procedure setPTEN5; inline;
  7077. procedure setPTEN6; inline;
  7078. procedure setPTEN7; inline;
  7079. procedure setPTEN8; inline;
  7080. procedure setPTEN9; inline;
  7081. property PTEN : TBits_16 read getPTEN write setPTEN;
  7082. property PTEN0 : TBits_1 read getPTEN0 write setPTEN0;
  7083. property PTEN1 : TBits_1 read getPTEN1 write setPTEN1;
  7084. property PTEN10 : TBits_1 read getPTEN10 write setPTEN10;
  7085. property PTEN11 : TBits_1 read getPTEN11 write setPTEN11;
  7086. property PTEN12 : TBits_1 read getPTEN12 write setPTEN12;
  7087. property PTEN13 : TBits_1 read getPTEN13 write setPTEN13;
  7088. property PTEN14 : TBits_1 read getPTEN14 write setPTEN14;
  7089. property PTEN15 : TBits_1 read getPTEN15 write setPTEN15;
  7090. property PTEN2 : TBits_1 read getPTEN2 write setPTEN2;
  7091. property PTEN3 : TBits_1 read getPTEN3 write setPTEN3;
  7092. property PTEN4 : TBits_1 read getPTEN4 write setPTEN4;
  7093. property PTEN5 : TBits_1 read getPTEN5 write setPTEN5;
  7094. property PTEN6 : TBits_1 read getPTEN6 write setPTEN6;
  7095. property PTEN7 : TBits_1 read getPTEN7 write setPTEN7;
  7096. property PTEN8 : TBits_1 read getPTEN8 write setPTEN8;
  7097. property PTEN9 : TBits_1 read getPTEN9 write setPTEN9;
  7098. property w : TBits_32 read getw write setw;
  7099. end;
  7100. TPMP_PMSTAT = record
  7101. private
  7102. function getIB0F : TBits_1; inline;
  7103. function getIB1F : TBits_1; inline;
  7104. function getIB2F : TBits_1; inline;
  7105. function getIB3F : TBits_1; inline;
  7106. function getIBF : TBits_1; inline;
  7107. function getIBOV : TBits_1; inline;
  7108. function getOB0E : TBits_1; inline;
  7109. function getOB1E : TBits_1; inline;
  7110. function getOB2E : TBits_1; inline;
  7111. function getOB3E : TBits_1; inline;
  7112. function getOBE : TBits_1; inline;
  7113. function getOBUF : TBits_1; inline;
  7114. function getw : TBits_32; inline;
  7115. procedure setIB0F(thebits : TBits_1); inline;
  7116. procedure setIB1F(thebits : TBits_1); inline;
  7117. procedure setIB2F(thebits : TBits_1); inline;
  7118. procedure setIB3F(thebits : TBits_1); inline;
  7119. procedure setIBF(thebits : TBits_1); inline;
  7120. procedure setIBOV(thebits : TBits_1); inline;
  7121. procedure setOB0E(thebits : TBits_1); inline;
  7122. procedure setOB1E(thebits : TBits_1); inline;
  7123. procedure setOB2E(thebits : TBits_1); inline;
  7124. procedure setOB3E(thebits : TBits_1); inline;
  7125. procedure setOBE(thebits : TBits_1); inline;
  7126. procedure setOBUF(thebits : TBits_1); inline;
  7127. procedure setw(thebits : TBits_32); inline;
  7128. public
  7129. procedure clearIB0F; inline;
  7130. procedure clearIB1F; inline;
  7131. procedure clearIB2F; inline;
  7132. procedure clearIB3F; inline;
  7133. procedure clearIBF; inline;
  7134. procedure clearIBOV; inline;
  7135. procedure clearOB0E; inline;
  7136. procedure clearOB1E; inline;
  7137. procedure clearOB2E; inline;
  7138. procedure clearOB3E; inline;
  7139. procedure clearOBE; inline;
  7140. procedure clearOBUF; inline;
  7141. procedure setIB0F; inline;
  7142. procedure setIB1F; inline;
  7143. procedure setIB2F; inline;
  7144. procedure setIB3F; inline;
  7145. procedure setIBF; inline;
  7146. procedure setIBOV; inline;
  7147. procedure setOB0E; inline;
  7148. procedure setOB1E; inline;
  7149. procedure setOB2E; inline;
  7150. procedure setOB3E; inline;
  7151. procedure setOBE; inline;
  7152. procedure setOBUF; inline;
  7153. property IB0F : TBits_1 read getIB0F write setIB0F;
  7154. property IB1F : TBits_1 read getIB1F write setIB1F;
  7155. property IB2F : TBits_1 read getIB2F write setIB2F;
  7156. property IB3F : TBits_1 read getIB3F write setIB3F;
  7157. property IBF : TBits_1 read getIBF write setIBF;
  7158. property IBOV : TBits_1 read getIBOV write setIBOV;
  7159. property OB0E : TBits_1 read getOB0E write setOB0E;
  7160. property OB1E : TBits_1 read getOB1E write setOB1E;
  7161. property OB2E : TBits_1 read getOB2E write setOB2E;
  7162. property OB3E : TBits_1 read getOB3E write setOB3E;
  7163. property OBE : TBits_1 read getOBE write setOBE;
  7164. property OBUF : TBits_1 read getOBUF write setOBUF;
  7165. property w : TBits_32 read getw write setw;
  7166. end;
  7167. type
  7168. TPMPRegisters = record
  7169. PMCONbits : TPMP_PMCON;
  7170. PMCON : longWord;
  7171. PMCONCLR : longWord;
  7172. PMCONSET : longWord;
  7173. PMCONINV : longWord;
  7174. PMMODEbits : TPMP_PMMODE;
  7175. PMMODE : longWord;
  7176. PMMODECLR : longWord;
  7177. PMMODESET : longWord;
  7178. PMMODEINV : longWord;
  7179. PMADDRbits : TPMP_PMADDR;
  7180. PMADDR : longWord;
  7181. PMADDRCLR : longWord;
  7182. PMADDRSET : longWord;
  7183. PMADDRINV : longWord;
  7184. PMDOUTbits : TPMP_PMDOUT;
  7185. PMDOUT : longWord;
  7186. PMDOUTCLR : longWord;
  7187. PMDOUTSET : longWord;
  7188. PMDOUTINV : longWord;
  7189. PMDINbits : TPMP_PMDIN;
  7190. PMDIN : longWord;
  7191. PMDINCLR : longWord;
  7192. PMDINSET : longWord;
  7193. PMDININV : longWord;
  7194. PMAENbits : TPMP_PMAEN;
  7195. PMAEN : longWord;
  7196. PMAENCLR : longWord;
  7197. PMAENSET : longWord;
  7198. PMAENINV : longWord;
  7199. PMSTATbits : TPMP_PMSTAT;
  7200. PMSTAT : longWord;
  7201. PMSTATCLR : longWord;
  7202. PMSTATSET : longWord;
  7203. PMSTATINV : longWord;
  7204. end;
  7205. TADC10_AD1CON1 = record
  7206. private
  7207. function getADON : TBits_1; inline;
  7208. function getADSIDL : TBits_1; inline;
  7209. function getASAM : TBits_1; inline;
  7210. function getCLRASAM : TBits_1; inline;
  7211. function getDONE : TBits_1; inline;
  7212. function getFORM : TBits_3; inline;
  7213. function getFORM0 : TBits_1; inline;
  7214. function getFORM1 : TBits_1; inline;
  7215. function getFORM2 : TBits_1; inline;
  7216. function getON : TBits_1; inline;
  7217. function getSAMP : TBits_1; inline;
  7218. function getSIDL : TBits_1; inline;
  7219. function getSSRC : TBits_3; inline;
  7220. function getSSRC0 : TBits_1; inline;
  7221. function getSSRC1 : TBits_1; inline;
  7222. function getSSRC2 : TBits_1; inline;
  7223. function getw : TBits_32; inline;
  7224. procedure setADON(thebits : TBits_1); inline;
  7225. procedure setADSIDL(thebits : TBits_1); inline;
  7226. procedure setASAM(thebits : TBits_1); inline;
  7227. procedure setCLRASAM(thebits : TBits_1); inline;
  7228. procedure setDONE(thebits : TBits_1); inline;
  7229. procedure setFORM(thebits : TBits_3); inline;
  7230. procedure setFORM0(thebits : TBits_1); inline;
  7231. procedure setFORM1(thebits : TBits_1); inline;
  7232. procedure setFORM2(thebits : TBits_1); inline;
  7233. procedure setON(thebits : TBits_1); inline;
  7234. procedure setSAMP(thebits : TBits_1); inline;
  7235. procedure setSIDL(thebits : TBits_1); inline;
  7236. procedure setSSRC(thebits : TBits_3); inline;
  7237. procedure setSSRC0(thebits : TBits_1); inline;
  7238. procedure setSSRC1(thebits : TBits_1); inline;
  7239. procedure setSSRC2(thebits : TBits_1); inline;
  7240. procedure setw(thebits : TBits_32); inline;
  7241. public
  7242. procedure clearADON; inline;
  7243. procedure clearADSIDL; inline;
  7244. procedure clearASAM; inline;
  7245. procedure clearCLRASAM; inline;
  7246. procedure clearDONE; inline;
  7247. procedure clearFORM0; inline;
  7248. procedure clearFORM1; inline;
  7249. procedure clearFORM2; inline;
  7250. procedure clearON; inline;
  7251. procedure clearSAMP; inline;
  7252. procedure clearSIDL; inline;
  7253. procedure clearSSRC0; inline;
  7254. procedure clearSSRC1; inline;
  7255. procedure clearSSRC2; inline;
  7256. procedure setADON; inline;
  7257. procedure setADSIDL; inline;
  7258. procedure setASAM; inline;
  7259. procedure setCLRASAM; inline;
  7260. procedure setDONE; inline;
  7261. procedure setFORM0; inline;
  7262. procedure setFORM1; inline;
  7263. procedure setFORM2; inline;
  7264. procedure setON; inline;
  7265. procedure setSAMP; inline;
  7266. procedure setSIDL; inline;
  7267. procedure setSSRC0; inline;
  7268. procedure setSSRC1; inline;
  7269. procedure setSSRC2; inline;
  7270. property ADON : TBits_1 read getADON write setADON;
  7271. property ADSIDL : TBits_1 read getADSIDL write setADSIDL;
  7272. property ASAM : TBits_1 read getASAM write setASAM;
  7273. property CLRASAM : TBits_1 read getCLRASAM write setCLRASAM;
  7274. property DONE : TBits_1 read getDONE write setDONE;
  7275. property FORM : TBits_3 read getFORM write setFORM;
  7276. property FORM0 : TBits_1 read getFORM0 write setFORM0;
  7277. property FORM1 : TBits_1 read getFORM1 write setFORM1;
  7278. property FORM2 : TBits_1 read getFORM2 write setFORM2;
  7279. property ON : TBits_1 read getON write setON;
  7280. property SAMP : TBits_1 read getSAMP write setSAMP;
  7281. property SIDL : TBits_1 read getSIDL write setSIDL;
  7282. property SSRC : TBits_3 read getSSRC write setSSRC;
  7283. property SSRC0 : TBits_1 read getSSRC0 write setSSRC0;
  7284. property SSRC1 : TBits_1 read getSSRC1 write setSSRC1;
  7285. property SSRC2 : TBits_1 read getSSRC2 write setSSRC2;
  7286. property w : TBits_32 read getw write setw;
  7287. end;
  7288. TADC10_AD1CON2 = record
  7289. private
  7290. function getALTS : TBits_1; inline;
  7291. function getBUFM : TBits_1; inline;
  7292. function getBUFS : TBits_1; inline;
  7293. function getCSCNA : TBits_1; inline;
  7294. function getOFFCAL : TBits_1; inline;
  7295. function getSMPI : TBits_4; inline;
  7296. function getSMPI0 : TBits_1; inline;
  7297. function getSMPI1 : TBits_1; inline;
  7298. function getSMPI2 : TBits_1; inline;
  7299. function getSMPI3 : TBits_1; inline;
  7300. function getVCFG : TBits_3; inline;
  7301. function getVCFG0 : TBits_1; inline;
  7302. function getVCFG1 : TBits_1; inline;
  7303. function getVCFG2 : TBits_1; inline;
  7304. function getw : TBits_32; inline;
  7305. procedure setALTS(thebits : TBits_1); inline;
  7306. procedure setBUFM(thebits : TBits_1); inline;
  7307. procedure setBUFS(thebits : TBits_1); inline;
  7308. procedure setCSCNA(thebits : TBits_1); inline;
  7309. procedure setOFFCAL(thebits : TBits_1); inline;
  7310. procedure setSMPI(thebits : TBits_4); inline;
  7311. procedure setSMPI0(thebits : TBits_1); inline;
  7312. procedure setSMPI1(thebits : TBits_1); inline;
  7313. procedure setSMPI2(thebits : TBits_1); inline;
  7314. procedure setSMPI3(thebits : TBits_1); inline;
  7315. procedure setVCFG(thebits : TBits_3); inline;
  7316. procedure setVCFG0(thebits : TBits_1); inline;
  7317. procedure setVCFG1(thebits : TBits_1); inline;
  7318. procedure setVCFG2(thebits : TBits_1); inline;
  7319. procedure setw(thebits : TBits_32); inline;
  7320. public
  7321. procedure clearALTS; inline;
  7322. procedure clearBUFM; inline;
  7323. procedure clearBUFS; inline;
  7324. procedure clearCSCNA; inline;
  7325. procedure clearOFFCAL; inline;
  7326. procedure clearSMPI0; inline;
  7327. procedure clearSMPI1; inline;
  7328. procedure clearSMPI2; inline;
  7329. procedure clearSMPI3; inline;
  7330. procedure clearVCFG0; inline;
  7331. procedure clearVCFG1; inline;
  7332. procedure clearVCFG2; inline;
  7333. procedure setALTS; inline;
  7334. procedure setBUFM; inline;
  7335. procedure setBUFS; inline;
  7336. procedure setCSCNA; inline;
  7337. procedure setOFFCAL; inline;
  7338. procedure setSMPI0; inline;
  7339. procedure setSMPI1; inline;
  7340. procedure setSMPI2; inline;
  7341. procedure setSMPI3; inline;
  7342. procedure setVCFG0; inline;
  7343. procedure setVCFG1; inline;
  7344. procedure setVCFG2; inline;
  7345. property ALTS : TBits_1 read getALTS write setALTS;
  7346. property BUFM : TBits_1 read getBUFM write setBUFM;
  7347. property BUFS : TBits_1 read getBUFS write setBUFS;
  7348. property CSCNA : TBits_1 read getCSCNA write setCSCNA;
  7349. property OFFCAL : TBits_1 read getOFFCAL write setOFFCAL;
  7350. property SMPI : TBits_4 read getSMPI write setSMPI;
  7351. property SMPI0 : TBits_1 read getSMPI0 write setSMPI0;
  7352. property SMPI1 : TBits_1 read getSMPI1 write setSMPI1;
  7353. property SMPI2 : TBits_1 read getSMPI2 write setSMPI2;
  7354. property SMPI3 : TBits_1 read getSMPI3 write setSMPI3;
  7355. property VCFG : TBits_3 read getVCFG write setVCFG;
  7356. property VCFG0 : TBits_1 read getVCFG0 write setVCFG0;
  7357. property VCFG1 : TBits_1 read getVCFG1 write setVCFG1;
  7358. property VCFG2 : TBits_1 read getVCFG2 write setVCFG2;
  7359. property w : TBits_32 read getw write setw;
  7360. end;
  7361. TADC10_AD1CON3 = record
  7362. private
  7363. function getADCS : TBits_8; inline;
  7364. function getADCS0 : TBits_1; inline;
  7365. function getADCS1 : TBits_1; inline;
  7366. function getADCS2 : TBits_1; inline;
  7367. function getADCS3 : TBits_1; inline;
  7368. function getADCS4 : TBits_1; inline;
  7369. function getADCS5 : TBits_1; inline;
  7370. function getADCS6 : TBits_1; inline;
  7371. function getADCS7 : TBits_1; inline;
  7372. function getADRC : TBits_1; inline;
  7373. function getSAMC : TBits_5; inline;
  7374. function getSAMC0 : TBits_1; inline;
  7375. function getSAMC1 : TBits_1; inline;
  7376. function getSAMC2 : TBits_1; inline;
  7377. function getSAMC3 : TBits_1; inline;
  7378. function getSAMC4 : TBits_1; inline;
  7379. function getw : TBits_32; inline;
  7380. procedure setADCS(thebits : TBits_8); inline;
  7381. procedure setADCS0(thebits : TBits_1); inline;
  7382. procedure setADCS1(thebits : TBits_1); inline;
  7383. procedure setADCS2(thebits : TBits_1); inline;
  7384. procedure setADCS3(thebits : TBits_1); inline;
  7385. procedure setADCS4(thebits : TBits_1); inline;
  7386. procedure setADCS5(thebits : TBits_1); inline;
  7387. procedure setADCS6(thebits : TBits_1); inline;
  7388. procedure setADCS7(thebits : TBits_1); inline;
  7389. procedure setADRC(thebits : TBits_1); inline;
  7390. procedure setSAMC(thebits : TBits_5); inline;
  7391. procedure setSAMC0(thebits : TBits_1); inline;
  7392. procedure setSAMC1(thebits : TBits_1); inline;
  7393. procedure setSAMC2(thebits : TBits_1); inline;
  7394. procedure setSAMC3(thebits : TBits_1); inline;
  7395. procedure setSAMC4(thebits : TBits_1); inline;
  7396. procedure setw(thebits : TBits_32); inline;
  7397. public
  7398. procedure clearADCS0; inline;
  7399. procedure clearADCS1; inline;
  7400. procedure clearADCS2; inline;
  7401. procedure clearADCS3; inline;
  7402. procedure clearADCS4; inline;
  7403. procedure clearADCS5; inline;
  7404. procedure clearADCS6; inline;
  7405. procedure clearADCS7; inline;
  7406. procedure clearADRC; inline;
  7407. procedure clearSAMC0; inline;
  7408. procedure clearSAMC1; inline;
  7409. procedure clearSAMC2; inline;
  7410. procedure clearSAMC3; inline;
  7411. procedure clearSAMC4; inline;
  7412. procedure setADCS0; inline;
  7413. procedure setADCS1; inline;
  7414. procedure setADCS2; inline;
  7415. procedure setADCS3; inline;
  7416. procedure setADCS4; inline;
  7417. procedure setADCS5; inline;
  7418. procedure setADCS6; inline;
  7419. procedure setADCS7; inline;
  7420. procedure setADRC; inline;
  7421. procedure setSAMC0; inline;
  7422. procedure setSAMC1; inline;
  7423. procedure setSAMC2; inline;
  7424. procedure setSAMC3; inline;
  7425. procedure setSAMC4; inline;
  7426. property ADCS : TBits_8 read getADCS write setADCS;
  7427. property ADCS0 : TBits_1 read getADCS0 write setADCS0;
  7428. property ADCS1 : TBits_1 read getADCS1 write setADCS1;
  7429. property ADCS2 : TBits_1 read getADCS2 write setADCS2;
  7430. property ADCS3 : TBits_1 read getADCS3 write setADCS3;
  7431. property ADCS4 : TBits_1 read getADCS4 write setADCS4;
  7432. property ADCS5 : TBits_1 read getADCS5 write setADCS5;
  7433. property ADCS6 : TBits_1 read getADCS6 write setADCS6;
  7434. property ADCS7 : TBits_1 read getADCS7 write setADCS7;
  7435. property ADRC : TBits_1 read getADRC write setADRC;
  7436. property SAMC : TBits_5 read getSAMC write setSAMC;
  7437. property SAMC0 : TBits_1 read getSAMC0 write setSAMC0;
  7438. property SAMC1 : TBits_1 read getSAMC1 write setSAMC1;
  7439. property SAMC2 : TBits_1 read getSAMC2 write setSAMC2;
  7440. property SAMC3 : TBits_1 read getSAMC3 write setSAMC3;
  7441. property SAMC4 : TBits_1 read getSAMC4 write setSAMC4;
  7442. property w : TBits_32 read getw write setw;
  7443. end;
  7444. TADC10_AD1CHS = record
  7445. private
  7446. function getCH0NA : TBits_1; inline;
  7447. function getCH0NB : TBits_1; inline;
  7448. function getCH0SA : TBits_4; inline;
  7449. function getCH0SA0 : TBits_1; inline;
  7450. function getCH0SA1 : TBits_1; inline;
  7451. function getCH0SA2 : TBits_1; inline;
  7452. function getCH0SA3 : TBits_1; inline;
  7453. function getCH0SB : TBits_4; inline;
  7454. function getCH0SB0 : TBits_1; inline;
  7455. function getCH0SB1 : TBits_1; inline;
  7456. function getCH0SB2 : TBits_1; inline;
  7457. function getCH0SB3 : TBits_1; inline;
  7458. function getw : TBits_32; inline;
  7459. procedure setCH0NA(thebits : TBits_1); inline;
  7460. procedure setCH0NB(thebits : TBits_1); inline;
  7461. procedure setCH0SA(thebits : TBits_4); inline;
  7462. procedure setCH0SA0(thebits : TBits_1); inline;
  7463. procedure setCH0SA1(thebits : TBits_1); inline;
  7464. procedure setCH0SA2(thebits : TBits_1); inline;
  7465. procedure setCH0SA3(thebits : TBits_1); inline;
  7466. procedure setCH0SB(thebits : TBits_4); inline;
  7467. procedure setCH0SB0(thebits : TBits_1); inline;
  7468. procedure setCH0SB1(thebits : TBits_1); inline;
  7469. procedure setCH0SB2(thebits : TBits_1); inline;
  7470. procedure setCH0SB3(thebits : TBits_1); inline;
  7471. procedure setw(thebits : TBits_32); inline;
  7472. public
  7473. procedure clearCH0NA; inline;
  7474. procedure clearCH0NB; inline;
  7475. procedure clearCH0SA0; inline;
  7476. procedure clearCH0SA1; inline;
  7477. procedure clearCH0SA2; inline;
  7478. procedure clearCH0SA3; inline;
  7479. procedure clearCH0SB0; inline;
  7480. procedure clearCH0SB1; inline;
  7481. procedure clearCH0SB2; inline;
  7482. procedure clearCH0SB3; inline;
  7483. procedure setCH0NA; inline;
  7484. procedure setCH0NB; inline;
  7485. procedure setCH0SA0; inline;
  7486. procedure setCH0SA1; inline;
  7487. procedure setCH0SA2; inline;
  7488. procedure setCH0SA3; inline;
  7489. procedure setCH0SB0; inline;
  7490. procedure setCH0SB1; inline;
  7491. procedure setCH0SB2; inline;
  7492. procedure setCH0SB3; inline;
  7493. property CH0NA : TBits_1 read getCH0NA write setCH0NA;
  7494. property CH0NB : TBits_1 read getCH0NB write setCH0NB;
  7495. property CH0SA : TBits_4 read getCH0SA write setCH0SA;
  7496. property CH0SA0 : TBits_1 read getCH0SA0 write setCH0SA0;
  7497. property CH0SA1 : TBits_1 read getCH0SA1 write setCH0SA1;
  7498. property CH0SA2 : TBits_1 read getCH0SA2 write setCH0SA2;
  7499. property CH0SA3 : TBits_1 read getCH0SA3 write setCH0SA3;
  7500. property CH0SB : TBits_4 read getCH0SB write setCH0SB;
  7501. property CH0SB0 : TBits_1 read getCH0SB0 write setCH0SB0;
  7502. property CH0SB1 : TBits_1 read getCH0SB1 write setCH0SB1;
  7503. property CH0SB2 : TBits_1 read getCH0SB2 write setCH0SB2;
  7504. property CH0SB3 : TBits_1 read getCH0SB3 write setCH0SB3;
  7505. property w : TBits_32 read getw write setw;
  7506. end;
  7507. TADC10_AD1CSSL = record
  7508. private
  7509. function getCSSL : TBits_16; inline;
  7510. function getCSSL0 : TBits_1; inline;
  7511. function getCSSL1 : TBits_1; inline;
  7512. function getCSSL10 : TBits_1; inline;
  7513. function getCSSL11 : TBits_1; inline;
  7514. function getCSSL12 : TBits_1; inline;
  7515. function getCSSL13 : TBits_1; inline;
  7516. function getCSSL14 : TBits_1; inline;
  7517. function getCSSL15 : TBits_1; inline;
  7518. function getCSSL2 : TBits_1; inline;
  7519. function getCSSL3 : TBits_1; inline;
  7520. function getCSSL4 : TBits_1; inline;
  7521. function getCSSL5 : TBits_1; inline;
  7522. function getCSSL6 : TBits_1; inline;
  7523. function getCSSL7 : TBits_1; inline;
  7524. function getCSSL8 : TBits_1; inline;
  7525. function getCSSL9 : TBits_1; inline;
  7526. function getw : TBits_32; inline;
  7527. procedure setCSSL(thebits : TBits_16); inline;
  7528. procedure setCSSL0(thebits : TBits_1); inline;
  7529. procedure setCSSL1(thebits : TBits_1); inline;
  7530. procedure setCSSL10(thebits : TBits_1); inline;
  7531. procedure setCSSL11(thebits : TBits_1); inline;
  7532. procedure setCSSL12(thebits : TBits_1); inline;
  7533. procedure setCSSL13(thebits : TBits_1); inline;
  7534. procedure setCSSL14(thebits : TBits_1); inline;
  7535. procedure setCSSL15(thebits : TBits_1); inline;
  7536. procedure setCSSL2(thebits : TBits_1); inline;
  7537. procedure setCSSL3(thebits : TBits_1); inline;
  7538. procedure setCSSL4(thebits : TBits_1); inline;
  7539. procedure setCSSL5(thebits : TBits_1); inline;
  7540. procedure setCSSL6(thebits : TBits_1); inline;
  7541. procedure setCSSL7(thebits : TBits_1); inline;
  7542. procedure setCSSL8(thebits : TBits_1); inline;
  7543. procedure setCSSL9(thebits : TBits_1); inline;
  7544. procedure setw(thebits : TBits_32); inline;
  7545. public
  7546. procedure clearCSSL0; inline;
  7547. procedure clearCSSL10; inline;
  7548. procedure clearCSSL11; inline;
  7549. procedure clearCSSL12; inline;
  7550. procedure clearCSSL13; inline;
  7551. procedure clearCSSL14; inline;
  7552. procedure clearCSSL15; inline;
  7553. procedure clearCSSL1; inline;
  7554. procedure clearCSSL2; inline;
  7555. procedure clearCSSL3; inline;
  7556. procedure clearCSSL4; inline;
  7557. procedure clearCSSL5; inline;
  7558. procedure clearCSSL6; inline;
  7559. procedure clearCSSL7; inline;
  7560. procedure clearCSSL8; inline;
  7561. procedure clearCSSL9; inline;
  7562. procedure setCSSL0; inline;
  7563. procedure setCSSL10; inline;
  7564. procedure setCSSL11; inline;
  7565. procedure setCSSL12; inline;
  7566. procedure setCSSL13; inline;
  7567. procedure setCSSL14; inline;
  7568. procedure setCSSL15; inline;
  7569. procedure setCSSL1; inline;
  7570. procedure setCSSL2; inline;
  7571. procedure setCSSL3; inline;
  7572. procedure setCSSL4; inline;
  7573. procedure setCSSL5; inline;
  7574. procedure setCSSL6; inline;
  7575. procedure setCSSL7; inline;
  7576. procedure setCSSL8; inline;
  7577. procedure setCSSL9; inline;
  7578. property CSSL : TBits_16 read getCSSL write setCSSL;
  7579. property CSSL0 : TBits_1 read getCSSL0 write setCSSL0;
  7580. property CSSL1 : TBits_1 read getCSSL1 write setCSSL1;
  7581. property CSSL10 : TBits_1 read getCSSL10 write setCSSL10;
  7582. property CSSL11 : TBits_1 read getCSSL11 write setCSSL11;
  7583. property CSSL12 : TBits_1 read getCSSL12 write setCSSL12;
  7584. property CSSL13 : TBits_1 read getCSSL13 write setCSSL13;
  7585. property CSSL14 : TBits_1 read getCSSL14 write setCSSL14;
  7586. property CSSL15 : TBits_1 read getCSSL15 write setCSSL15;
  7587. property CSSL2 : TBits_1 read getCSSL2 write setCSSL2;
  7588. property CSSL3 : TBits_1 read getCSSL3 write setCSSL3;
  7589. property CSSL4 : TBits_1 read getCSSL4 write setCSSL4;
  7590. property CSSL5 : TBits_1 read getCSSL5 write setCSSL5;
  7591. property CSSL6 : TBits_1 read getCSSL6 write setCSSL6;
  7592. property CSSL7 : TBits_1 read getCSSL7 write setCSSL7;
  7593. property CSSL8 : TBits_1 read getCSSL8 write setCSSL8;
  7594. property CSSL9 : TBits_1 read getCSSL9 write setCSSL9;
  7595. property w : TBits_32 read getw write setw;
  7596. end;
  7597. TADC10_AD1PCFG = record
  7598. private
  7599. function getPCFG : TBits_16; inline;
  7600. function getPCFG0 : TBits_1; inline;
  7601. function getPCFG1 : TBits_1; inline;
  7602. function getPCFG10 : TBits_1; inline;
  7603. function getPCFG11 : TBits_1; inline;
  7604. function getPCFG12 : TBits_1; inline;
  7605. function getPCFG13 : TBits_1; inline;
  7606. function getPCFG14 : TBits_1; inline;
  7607. function getPCFG15 : TBits_1; inline;
  7608. function getPCFG2 : TBits_1; inline;
  7609. function getPCFG3 : TBits_1; inline;
  7610. function getPCFG4 : TBits_1; inline;
  7611. function getPCFG5 : TBits_1; inline;
  7612. function getPCFG6 : TBits_1; inline;
  7613. function getPCFG7 : TBits_1; inline;
  7614. function getPCFG8 : TBits_1; inline;
  7615. function getPCFG9 : TBits_1; inline;
  7616. function getw : TBits_32; inline;
  7617. procedure setPCFG(thebits : TBits_16); inline;
  7618. procedure setPCFG0(thebits : TBits_1); inline;
  7619. procedure setPCFG1(thebits : TBits_1); inline;
  7620. procedure setPCFG10(thebits : TBits_1); inline;
  7621. procedure setPCFG11(thebits : TBits_1); inline;
  7622. procedure setPCFG12(thebits : TBits_1); inline;
  7623. procedure setPCFG13(thebits : TBits_1); inline;
  7624. procedure setPCFG14(thebits : TBits_1); inline;
  7625. procedure setPCFG15(thebits : TBits_1); inline;
  7626. procedure setPCFG2(thebits : TBits_1); inline;
  7627. procedure setPCFG3(thebits : TBits_1); inline;
  7628. procedure setPCFG4(thebits : TBits_1); inline;
  7629. procedure setPCFG5(thebits : TBits_1); inline;
  7630. procedure setPCFG6(thebits : TBits_1); inline;
  7631. procedure setPCFG7(thebits : TBits_1); inline;
  7632. procedure setPCFG8(thebits : TBits_1); inline;
  7633. procedure setPCFG9(thebits : TBits_1); inline;
  7634. procedure setw(thebits : TBits_32); inline;
  7635. public
  7636. procedure clearPCFG0; inline;
  7637. procedure clearPCFG10; inline;
  7638. procedure clearPCFG11; inline;
  7639. procedure clearPCFG12; inline;
  7640. procedure clearPCFG13; inline;
  7641. procedure clearPCFG14; inline;
  7642. procedure clearPCFG15; inline;
  7643. procedure clearPCFG1; inline;
  7644. procedure clearPCFG2; inline;
  7645. procedure clearPCFG3; inline;
  7646. procedure clearPCFG4; inline;
  7647. procedure clearPCFG5; inline;
  7648. procedure clearPCFG6; inline;
  7649. procedure clearPCFG7; inline;
  7650. procedure clearPCFG8; inline;
  7651. procedure clearPCFG9; inline;
  7652. procedure setPCFG0; inline;
  7653. procedure setPCFG10; inline;
  7654. procedure setPCFG11; inline;
  7655. procedure setPCFG12; inline;
  7656. procedure setPCFG13; inline;
  7657. procedure setPCFG14; inline;
  7658. procedure setPCFG15; inline;
  7659. procedure setPCFG1; inline;
  7660. procedure setPCFG2; inline;
  7661. procedure setPCFG3; inline;
  7662. procedure setPCFG4; inline;
  7663. procedure setPCFG5; inline;
  7664. procedure setPCFG6; inline;
  7665. procedure setPCFG7; inline;
  7666. procedure setPCFG8; inline;
  7667. procedure setPCFG9; inline;
  7668. property PCFG : TBits_16 read getPCFG write setPCFG;
  7669. property PCFG0 : TBits_1 read getPCFG0 write setPCFG0;
  7670. property PCFG1 : TBits_1 read getPCFG1 write setPCFG1;
  7671. property PCFG10 : TBits_1 read getPCFG10 write setPCFG10;
  7672. property PCFG11 : TBits_1 read getPCFG11 write setPCFG11;
  7673. property PCFG12 : TBits_1 read getPCFG12 write setPCFG12;
  7674. property PCFG13 : TBits_1 read getPCFG13 write setPCFG13;
  7675. property PCFG14 : TBits_1 read getPCFG14 write setPCFG14;
  7676. property PCFG15 : TBits_1 read getPCFG15 write setPCFG15;
  7677. property PCFG2 : TBits_1 read getPCFG2 write setPCFG2;
  7678. property PCFG3 : TBits_1 read getPCFG3 write setPCFG3;
  7679. property PCFG4 : TBits_1 read getPCFG4 write setPCFG4;
  7680. property PCFG5 : TBits_1 read getPCFG5 write setPCFG5;
  7681. property PCFG6 : TBits_1 read getPCFG6 write setPCFG6;
  7682. property PCFG7 : TBits_1 read getPCFG7 write setPCFG7;
  7683. property PCFG8 : TBits_1 read getPCFG8 write setPCFG8;
  7684. property PCFG9 : TBits_1 read getPCFG9 write setPCFG9;
  7685. property w : TBits_32 read getw write setw;
  7686. end;
  7687. type
  7688. TADC10Registers = record
  7689. AD1CON1bits : TADC10_AD1CON1;
  7690. AD1CON1 : longWord;
  7691. AD1CON1CLR : longWord;
  7692. AD1CON1SET : longWord;
  7693. AD1CON1INV : longWord;
  7694. AD1CON2bits : TADC10_AD1CON2;
  7695. AD1CON2 : longWord;
  7696. AD1CON2CLR : longWord;
  7697. AD1CON2SET : longWord;
  7698. AD1CON2INV : longWord;
  7699. AD1CON3bits : TADC10_AD1CON3;
  7700. AD1CON3 : longWord;
  7701. AD1CON3CLR : longWord;
  7702. AD1CON3SET : longWord;
  7703. AD1CON3INV : longWord;
  7704. AD1CHSbits : TADC10_AD1CHS;
  7705. AD1CHS : longWord;
  7706. AD1CHSCLR : longWord;
  7707. AD1CHSSET : longWord;
  7708. AD1CHSINV : longWord;
  7709. AD1CSSLbits : TADC10_AD1CSSL;
  7710. AD1CSSL : longWord;
  7711. AD1CSSLCLR : longWord;
  7712. AD1CSSLSET : longWord;
  7713. AD1CSSLINV : longWord;
  7714. AD1PCFGbits : TADC10_AD1PCFG;
  7715. AD1PCFG : longWord;
  7716. AD1PCFGCLR : longWord;
  7717. AD1PCFGSET : longWord;
  7718. AD1PCFGINV : longWord;
  7719. ADC1BUF0 : longWord;
  7720. ADC1BUF1 : longWord;
  7721. ADC1BUF2 : longWord;
  7722. ADC1BUF3 : longWord;
  7723. ADC1BUF4 : longWord;
  7724. ADC1BUF5 : longWord;
  7725. ADC1BUF6 : longWord;
  7726. ADC1BUF7 : longWord;
  7727. ADC1BUF8 : longWord;
  7728. ADC1BUF9 : longWord;
  7729. ADC1BUFA : longWord;
  7730. ADC1BUFB : longWord;
  7731. ADC1BUFC : longWord;
  7732. ADC1BUFD : longWord;
  7733. ADC1BUFE : longWord;
  7734. ADC1BUFF : longWord;
  7735. end;
  7736. TCVR_CVRCON = record
  7737. private
  7738. function getCVR : TBits_4; inline;
  7739. function getCVR0 : TBits_1; inline;
  7740. function getCVR1 : TBits_1; inline;
  7741. function getCVR2 : TBits_1; inline;
  7742. function getCVR3 : TBits_1; inline;
  7743. function getCVROE : TBits_1; inline;
  7744. function getCVRR : TBits_1; inline;
  7745. function getCVRSS : TBits_1; inline;
  7746. function getON : TBits_1; inline;
  7747. function getw : TBits_32; inline;
  7748. procedure setCVR(thebits : TBits_4); inline;
  7749. procedure setCVR0(thebits : TBits_1); inline;
  7750. procedure setCVR1(thebits : TBits_1); inline;
  7751. procedure setCVR2(thebits : TBits_1); inline;
  7752. procedure setCVR3(thebits : TBits_1); inline;
  7753. procedure setCVROE(thebits : TBits_1); inline;
  7754. procedure setCVRR(thebits : TBits_1); inline;
  7755. procedure setCVRSS(thebits : TBits_1); inline;
  7756. procedure setON(thebits : TBits_1); inline;
  7757. procedure setw(thebits : TBits_32); inline;
  7758. public
  7759. procedure clearCVR0; inline;
  7760. procedure clearCVR1; inline;
  7761. procedure clearCVR2; inline;
  7762. procedure clearCVR3; inline;
  7763. procedure clearCVROE; inline;
  7764. procedure clearCVRR; inline;
  7765. procedure clearCVRSS; inline;
  7766. procedure clearON; inline;
  7767. procedure setCVR0; inline;
  7768. procedure setCVR1; inline;
  7769. procedure setCVR2; inline;
  7770. procedure setCVR3; inline;
  7771. procedure setCVROE; inline;
  7772. procedure setCVRR; inline;
  7773. procedure setCVRSS; inline;
  7774. procedure setON; inline;
  7775. property CVR : TBits_4 read getCVR write setCVR;
  7776. property CVR0 : TBits_1 read getCVR0 write setCVR0;
  7777. property CVR1 : TBits_1 read getCVR1 write setCVR1;
  7778. property CVR2 : TBits_1 read getCVR2 write setCVR2;
  7779. property CVR3 : TBits_1 read getCVR3 write setCVR3;
  7780. property CVROE : TBits_1 read getCVROE write setCVROE;
  7781. property CVRR : TBits_1 read getCVRR write setCVRR;
  7782. property CVRSS : TBits_1 read getCVRSS write setCVRSS;
  7783. property ON : TBits_1 read getON write setON;
  7784. property w : TBits_32 read getw write setw;
  7785. end;
  7786. type
  7787. TCVRRegisters = record
  7788. CVRCONbits : TCVR_CVRCON;
  7789. CVRCON : longWord;
  7790. CVRCONCLR : longWord;
  7791. CVRCONSET : longWord;
  7792. CVRCONINV : longWord;
  7793. end;
  7794. TCMP_CM1CON = record
  7795. private
  7796. function getCCH : TBits_2; inline;
  7797. function getCCH0 : TBits_1; inline;
  7798. function getCCH1 : TBits_1; inline;
  7799. function getCOE : TBits_1; inline;
  7800. function getCOUT : TBits_1; inline;
  7801. function getCPOL : TBits_1; inline;
  7802. function getCREF : TBits_1; inline;
  7803. function getEVPOL : TBits_2; inline;
  7804. function getEVPOL0 : TBits_1; inline;
  7805. function getEVPOL1 : TBits_1; inline;
  7806. function getON : TBits_1; inline;
  7807. function getw : TBits_32; inline;
  7808. procedure setCCH(thebits : TBits_2); inline;
  7809. procedure setCCH0(thebits : TBits_1); inline;
  7810. procedure setCCH1(thebits : TBits_1); inline;
  7811. procedure setCOE(thebits : TBits_1); inline;
  7812. procedure setCOUT(thebits : TBits_1); inline;
  7813. procedure setCPOL(thebits : TBits_1); inline;
  7814. procedure setCREF(thebits : TBits_1); inline;
  7815. procedure setEVPOL(thebits : TBits_2); inline;
  7816. procedure setEVPOL0(thebits : TBits_1); inline;
  7817. procedure setEVPOL1(thebits : TBits_1); inline;
  7818. procedure setON(thebits : TBits_1); inline;
  7819. procedure setw(thebits : TBits_32); inline;
  7820. public
  7821. procedure clearCCH0; inline;
  7822. procedure clearCCH1; inline;
  7823. procedure clearCOE; inline;
  7824. procedure clearCOUT; inline;
  7825. procedure clearCPOL; inline;
  7826. procedure clearCREF; inline;
  7827. procedure clearEVPOL0; inline;
  7828. procedure clearEVPOL1; inline;
  7829. procedure clearON; inline;
  7830. procedure setCCH0; inline;
  7831. procedure setCCH1; inline;
  7832. procedure setCOE; inline;
  7833. procedure setCOUT; inline;
  7834. procedure setCPOL; inline;
  7835. procedure setCREF; inline;
  7836. procedure setEVPOL0; inline;
  7837. procedure setEVPOL1; inline;
  7838. procedure setON; inline;
  7839. property CCH : TBits_2 read getCCH write setCCH;
  7840. property CCH0 : TBits_1 read getCCH0 write setCCH0;
  7841. property CCH1 : TBits_1 read getCCH1 write setCCH1;
  7842. property COE : TBits_1 read getCOE write setCOE;
  7843. property COUT : TBits_1 read getCOUT write setCOUT;
  7844. property CPOL : TBits_1 read getCPOL write setCPOL;
  7845. property CREF : TBits_1 read getCREF write setCREF;
  7846. property EVPOL : TBits_2 read getEVPOL write setEVPOL;
  7847. property EVPOL0 : TBits_1 read getEVPOL0 write setEVPOL0;
  7848. property EVPOL1 : TBits_1 read getEVPOL1 write setEVPOL1;
  7849. property ON : TBits_1 read getON write setON;
  7850. property w : TBits_32 read getw write setw;
  7851. end;
  7852. TCMP_CM2CON = record
  7853. private
  7854. function getCCH : TBits_2; inline;
  7855. function getCCH0 : TBits_1; inline;
  7856. function getCCH1 : TBits_1; inline;
  7857. function getCOE : TBits_1; inline;
  7858. function getCOUT : TBits_1; inline;
  7859. function getCPOL : TBits_1; inline;
  7860. function getCREF : TBits_1; inline;
  7861. function getEVPOL : TBits_2; inline;
  7862. function getEVPOL0 : TBits_1; inline;
  7863. function getEVPOL1 : TBits_1; inline;
  7864. function getON : TBits_1; inline;
  7865. function getw : TBits_32; inline;
  7866. procedure setCCH(thebits : TBits_2); inline;
  7867. procedure setCCH0(thebits : TBits_1); inline;
  7868. procedure setCCH1(thebits : TBits_1); inline;
  7869. procedure setCOE(thebits : TBits_1); inline;
  7870. procedure setCOUT(thebits : TBits_1); inline;
  7871. procedure setCPOL(thebits : TBits_1); inline;
  7872. procedure setCREF(thebits : TBits_1); inline;
  7873. procedure setEVPOL(thebits : TBits_2); inline;
  7874. procedure setEVPOL0(thebits : TBits_1); inline;
  7875. procedure setEVPOL1(thebits : TBits_1); inline;
  7876. procedure setON(thebits : TBits_1); inline;
  7877. procedure setw(thebits : TBits_32); inline;
  7878. public
  7879. procedure clearCCH0; inline;
  7880. procedure clearCCH1; inline;
  7881. procedure clearCOE; inline;
  7882. procedure clearCOUT; inline;
  7883. procedure clearCPOL; inline;
  7884. procedure clearCREF; inline;
  7885. procedure clearEVPOL0; inline;
  7886. procedure clearEVPOL1; inline;
  7887. procedure clearON; inline;
  7888. procedure setCCH0; inline;
  7889. procedure setCCH1; inline;
  7890. procedure setCOE; inline;
  7891. procedure setCOUT; inline;
  7892. procedure setCPOL; inline;
  7893. procedure setCREF; inline;
  7894. procedure setEVPOL0; inline;
  7895. procedure setEVPOL1; inline;
  7896. procedure setON; inline;
  7897. property CCH : TBits_2 read getCCH write setCCH;
  7898. property CCH0 : TBits_1 read getCCH0 write setCCH0;
  7899. property CCH1 : TBits_1 read getCCH1 write setCCH1;
  7900. property COE : TBits_1 read getCOE write setCOE;
  7901. property COUT : TBits_1 read getCOUT write setCOUT;
  7902. property CPOL : TBits_1 read getCPOL write setCPOL;
  7903. property CREF : TBits_1 read getCREF write setCREF;
  7904. property EVPOL : TBits_2 read getEVPOL write setEVPOL;
  7905. property EVPOL0 : TBits_1 read getEVPOL0 write setEVPOL0;
  7906. property EVPOL1 : TBits_1 read getEVPOL1 write setEVPOL1;
  7907. property ON : TBits_1 read getON write setON;
  7908. property w : TBits_32 read getw write setw;
  7909. end;
  7910. TCMP_CMSTAT = record
  7911. private
  7912. function getC1OUT : TBits_1; inline;
  7913. function getC2OUT : TBits_1; inline;
  7914. function getSIDL : TBits_1; inline;
  7915. function getw : TBits_32; inline;
  7916. procedure setC1OUT(thebits : TBits_1); inline;
  7917. procedure setC2OUT(thebits : TBits_1); inline;
  7918. procedure setSIDL(thebits : TBits_1); inline;
  7919. procedure setw(thebits : TBits_32); inline;
  7920. public
  7921. procedure clearC1OUT; inline;
  7922. procedure clearC2OUT; inline;
  7923. procedure clearSIDL; inline;
  7924. procedure setC1OUT; inline;
  7925. procedure setC2OUT; inline;
  7926. procedure setSIDL; inline;
  7927. property C1OUT : TBits_1 read getC1OUT write setC1OUT;
  7928. property C2OUT : TBits_1 read getC2OUT write setC2OUT;
  7929. property SIDL : TBits_1 read getSIDL write setSIDL;
  7930. property w : TBits_32 read getw write setw;
  7931. end;
  7932. type
  7933. TCMPRegisters = record
  7934. CM1CONbits : TCMP_CM1CON;
  7935. CM1CON : longWord;
  7936. CM1CONCLR : longWord;
  7937. CM1CONSET : longWord;
  7938. CM1CONINV : longWord;
  7939. CM2CONbits : TCMP_CM2CON;
  7940. CM2CON : longWord;
  7941. CM2CONCLR : longWord;
  7942. CM2CONSET : longWord;
  7943. CM2CONINV : longWord;
  7944. CMSTATbits : TCMP_CMSTAT;
  7945. CMSTAT : longWord;
  7946. CMSTATCLR : longWord;
  7947. CMSTATSET : longWord;
  7948. CMSTATINV : longWord;
  7949. end;
  7950. TOSC_OSCCON = record
  7951. private
  7952. function getCF : TBits_1; inline;
  7953. function getCLKLOCK : TBits_1; inline;
  7954. function getCOSC : TBits_3; inline;
  7955. function getCOSC0 : TBits_1; inline;
  7956. function getCOSC1 : TBits_1; inline;
  7957. function getCOSC2 : TBits_1; inline;
  7958. function getFRCDIV : TBits_3; inline;
  7959. function getFRCDIV0 : TBits_1; inline;
  7960. function getFRCDIV1 : TBits_1; inline;
  7961. function getFRCDIV2 : TBits_1; inline;
  7962. function getNOSC : TBits_3; inline;
  7963. function getNOSC0 : TBits_1; inline;
  7964. function getNOSC1 : TBits_1; inline;
  7965. function getNOSC2 : TBits_1; inline;
  7966. function getOSWEN : TBits_1; inline;
  7967. function getPBDIV : TBits_2; inline;
  7968. function getPBDIV0 : TBits_1; inline;
  7969. function getPBDIV1 : TBits_1; inline;
  7970. function getPLLMULT : TBits_3; inline;
  7971. function getPLLMULT0 : TBits_1; inline;
  7972. function getPLLMULT1 : TBits_1; inline;
  7973. function getPLLMULT2 : TBits_1; inline;
  7974. function getPLLODIV : TBits_3; inline;
  7975. function getPLLODIV0 : TBits_1; inline;
  7976. function getPLLODIV1 : TBits_1; inline;
  7977. function getPLLODIV2 : TBits_1; inline;
  7978. function getSLOCK : TBits_1; inline;
  7979. function getSLPEN : TBits_1; inline;
  7980. function getSOSCEN : TBits_1; inline;
  7981. function getSOSCRDY : TBits_1; inline;
  7982. function getUFRCEN : TBits_1; inline;
  7983. function getULOCK : TBits_1; inline;
  7984. function getw : TBits_32; inline;
  7985. procedure setCF(thebits : TBits_1); inline;
  7986. procedure setCLKLOCK(thebits : TBits_1); inline;
  7987. procedure setCOSC(thebits : TBits_3); inline;
  7988. procedure setCOSC0(thebits : TBits_1); inline;
  7989. procedure setCOSC1(thebits : TBits_1); inline;
  7990. procedure setCOSC2(thebits : TBits_1); inline;
  7991. procedure setFRCDIV(thebits : TBits_3); inline;
  7992. procedure setFRCDIV0(thebits : TBits_1); inline;
  7993. procedure setFRCDIV1(thebits : TBits_1); inline;
  7994. procedure setFRCDIV2(thebits : TBits_1); inline;
  7995. procedure setNOSC(thebits : TBits_3); inline;
  7996. procedure setNOSC0(thebits : TBits_1); inline;
  7997. procedure setNOSC1(thebits : TBits_1); inline;
  7998. procedure setNOSC2(thebits : TBits_1); inline;
  7999. procedure setOSWEN(thebits : TBits_1); inline;
  8000. procedure setPBDIV(thebits : TBits_2); inline;
  8001. procedure setPBDIV0(thebits : TBits_1); inline;
  8002. procedure setPBDIV1(thebits : TBits_1); inline;
  8003. procedure setPLLMULT(thebits : TBits_3); inline;
  8004. procedure setPLLMULT0(thebits : TBits_1); inline;
  8005. procedure setPLLMULT1(thebits : TBits_1); inline;
  8006. procedure setPLLMULT2(thebits : TBits_1); inline;
  8007. procedure setPLLODIV(thebits : TBits_3); inline;
  8008. procedure setPLLODIV0(thebits : TBits_1); inline;
  8009. procedure setPLLODIV1(thebits : TBits_1); inline;
  8010. procedure setPLLODIV2(thebits : TBits_1); inline;
  8011. procedure setSLOCK(thebits : TBits_1); inline;
  8012. procedure setSLPEN(thebits : TBits_1); inline;
  8013. procedure setSOSCEN(thebits : TBits_1); inline;
  8014. procedure setSOSCRDY(thebits : TBits_1); inline;
  8015. procedure setUFRCEN(thebits : TBits_1); inline;
  8016. procedure setULOCK(thebits : TBits_1); inline;
  8017. procedure setw(thebits : TBits_32); inline;
  8018. public
  8019. procedure clearCF; inline;
  8020. procedure clearCLKLOCK; inline;
  8021. procedure clearCOSC0; inline;
  8022. procedure clearCOSC1; inline;
  8023. procedure clearCOSC2; inline;
  8024. procedure clearFRCDIV0; inline;
  8025. procedure clearFRCDIV1; inline;
  8026. procedure clearFRCDIV2; inline;
  8027. procedure clearNOSC0; inline;
  8028. procedure clearNOSC1; inline;
  8029. procedure clearNOSC2; inline;
  8030. procedure clearOSWEN; inline;
  8031. procedure clearPBDIV0; inline;
  8032. procedure clearPBDIV1; inline;
  8033. procedure clearPLLMULT0; inline;
  8034. procedure clearPLLMULT1; inline;
  8035. procedure clearPLLMULT2; inline;
  8036. procedure clearPLLODIV0; inline;
  8037. procedure clearPLLODIV1; inline;
  8038. procedure clearPLLODIV2; inline;
  8039. procedure clearSLOCK; inline;
  8040. procedure clearSLPEN; inline;
  8041. procedure clearSOSCEN; inline;
  8042. procedure clearSOSCRDY; inline;
  8043. procedure clearUFRCEN; inline;
  8044. procedure clearULOCK; inline;
  8045. procedure setCF; inline;
  8046. procedure setCLKLOCK; inline;
  8047. procedure setCOSC0; inline;
  8048. procedure setCOSC1; inline;
  8049. procedure setCOSC2; inline;
  8050. procedure setFRCDIV0; inline;
  8051. procedure setFRCDIV1; inline;
  8052. procedure setFRCDIV2; inline;
  8053. procedure setNOSC0; inline;
  8054. procedure setNOSC1; inline;
  8055. procedure setNOSC2; inline;
  8056. procedure setOSWEN; inline;
  8057. procedure setPBDIV0; inline;
  8058. procedure setPBDIV1; inline;
  8059. procedure setPLLMULT0; inline;
  8060. procedure setPLLMULT1; inline;
  8061. procedure setPLLMULT2; inline;
  8062. procedure setPLLODIV0; inline;
  8063. procedure setPLLODIV1; inline;
  8064. procedure setPLLODIV2; inline;
  8065. procedure setSLOCK; inline;
  8066. procedure setSLPEN; inline;
  8067. procedure setSOSCEN; inline;
  8068. procedure setSOSCRDY; inline;
  8069. procedure setUFRCEN; inline;
  8070. procedure setULOCK; inline;
  8071. property CF : TBits_1 read getCF write setCF;
  8072. property CLKLOCK : TBits_1 read getCLKLOCK write setCLKLOCK;
  8073. property COSC : TBits_3 read getCOSC write setCOSC;
  8074. property COSC0 : TBits_1 read getCOSC0 write setCOSC0;
  8075. property COSC1 : TBits_1 read getCOSC1 write setCOSC1;
  8076. property COSC2 : TBits_1 read getCOSC2 write setCOSC2;
  8077. property FRCDIV : TBits_3 read getFRCDIV write setFRCDIV;
  8078. property FRCDIV0 : TBits_1 read getFRCDIV0 write setFRCDIV0;
  8079. property FRCDIV1 : TBits_1 read getFRCDIV1 write setFRCDIV1;
  8080. property FRCDIV2 : TBits_1 read getFRCDIV2 write setFRCDIV2;
  8081. property NOSC : TBits_3 read getNOSC write setNOSC;
  8082. property NOSC0 : TBits_1 read getNOSC0 write setNOSC0;
  8083. property NOSC1 : TBits_1 read getNOSC1 write setNOSC1;
  8084. property NOSC2 : TBits_1 read getNOSC2 write setNOSC2;
  8085. property OSWEN : TBits_1 read getOSWEN write setOSWEN;
  8086. property PBDIV : TBits_2 read getPBDIV write setPBDIV;
  8087. property PBDIV0 : TBits_1 read getPBDIV0 write setPBDIV0;
  8088. property PBDIV1 : TBits_1 read getPBDIV1 write setPBDIV1;
  8089. property PLLMULT : TBits_3 read getPLLMULT write setPLLMULT;
  8090. property PLLMULT0 : TBits_1 read getPLLMULT0 write setPLLMULT0;
  8091. property PLLMULT1 : TBits_1 read getPLLMULT1 write setPLLMULT1;
  8092. property PLLMULT2 : TBits_1 read getPLLMULT2 write setPLLMULT2;
  8093. property PLLODIV : TBits_3 read getPLLODIV write setPLLODIV;
  8094. property PLLODIV0 : TBits_1 read getPLLODIV0 write setPLLODIV0;
  8095. property PLLODIV1 : TBits_1 read getPLLODIV1 write setPLLODIV1;
  8096. property PLLODIV2 : TBits_1 read getPLLODIV2 write setPLLODIV2;
  8097. property SLOCK : TBits_1 read getSLOCK write setSLOCK;
  8098. property SLPEN : TBits_1 read getSLPEN write setSLPEN;
  8099. property SOSCEN : TBits_1 read getSOSCEN write setSOSCEN;
  8100. property SOSCRDY : TBits_1 read getSOSCRDY write setSOSCRDY;
  8101. property UFRCEN : TBits_1 read getUFRCEN write setUFRCEN;
  8102. property ULOCK : TBits_1 read getULOCK write setULOCK;
  8103. property w : TBits_32 read getw write setw;
  8104. end;
  8105. TOSC_OSCTUN = record
  8106. private
  8107. function getTUN : TBits_6; inline;
  8108. function getTUN0 : TBits_1; inline;
  8109. function getTUN1 : TBits_1; inline;
  8110. function getTUN2 : TBits_1; inline;
  8111. function getTUN3 : TBits_1; inline;
  8112. function getTUN4 : TBits_1; inline;
  8113. function getTUN5 : TBits_1; inline;
  8114. function getw : TBits_32; inline;
  8115. procedure setTUN(thebits : TBits_6); inline;
  8116. procedure setTUN0(thebits : TBits_1); inline;
  8117. procedure setTUN1(thebits : TBits_1); inline;
  8118. procedure setTUN2(thebits : TBits_1); inline;
  8119. procedure setTUN3(thebits : TBits_1); inline;
  8120. procedure setTUN4(thebits : TBits_1); inline;
  8121. procedure setTUN5(thebits : TBits_1); inline;
  8122. procedure setw(thebits : TBits_32); inline;
  8123. public
  8124. procedure clearTUN0; inline;
  8125. procedure clearTUN1; inline;
  8126. procedure clearTUN2; inline;
  8127. procedure clearTUN3; inline;
  8128. procedure clearTUN4; inline;
  8129. procedure clearTUN5; inline;
  8130. procedure setTUN0; inline;
  8131. procedure setTUN1; inline;
  8132. procedure setTUN2; inline;
  8133. procedure setTUN3; inline;
  8134. procedure setTUN4; inline;
  8135. procedure setTUN5; inline;
  8136. property TUN : TBits_6 read getTUN write setTUN;
  8137. property TUN0 : TBits_1 read getTUN0 write setTUN0;
  8138. property TUN1 : TBits_1 read getTUN1 write setTUN1;
  8139. property TUN2 : TBits_1 read getTUN2 write setTUN2;
  8140. property TUN3 : TBits_1 read getTUN3 write setTUN3;
  8141. property TUN4 : TBits_1 read getTUN4 write setTUN4;
  8142. property TUN5 : TBits_1 read getTUN5 write setTUN5;
  8143. property w : TBits_32 read getw write setw;
  8144. end;
  8145. type
  8146. TOSCRegisters = record
  8147. OSCCONbits : TOSC_OSCCON;
  8148. OSCCON : longWord;
  8149. OSCCONCLR : longWord;
  8150. OSCCONSET : longWord;
  8151. OSCCONINV : longWord;
  8152. OSCTUNbits : TOSC_OSCTUN;
  8153. OSCTUN : longWord;
  8154. OSCTUNCLR : longWord;
  8155. OSCTUNSET : longWord;
  8156. OSCTUNINV : longWord;
  8157. end;
  8158. type
  8159. TCFGRegisters = record
  8160. DDPCON : longWord;
  8161. DEVID : longWord;
  8162. SYSKEY : longWord;
  8163. SYSKEYCLR : longWord;
  8164. SYSKEYSET : longWord;
  8165. SYSKEYINV : longWord;
  8166. end;
  8167. TNVM_NVMCON = record
  8168. private
  8169. function getLVDERR : TBits_1; inline;
  8170. function getLVDSTAT : TBits_1; inline;
  8171. function getNVMOP : TBits_4; inline;
  8172. function getNVMOP0 : TBits_1; inline;
  8173. function getNVMOP1 : TBits_1; inline;
  8174. function getNVMOP2 : TBits_1; inline;
  8175. function getNVMOP3 : TBits_1; inline;
  8176. function getPROGOP : TBits_4; inline;
  8177. function getPROGOP0 : TBits_1; inline;
  8178. function getPROGOP1 : TBits_1; inline;
  8179. function getPROGOP2 : TBits_1; inline;
  8180. function getPROGOP3 : TBits_1; inline;
  8181. function getWR : TBits_1; inline;
  8182. function getWREN : TBits_1; inline;
  8183. function getWRERR : TBits_1; inline;
  8184. function getw : TBits_32; inline;
  8185. procedure setLVDERR(thebits : TBits_1); inline;
  8186. procedure setLVDSTAT(thebits : TBits_1); inline;
  8187. procedure setNVMOP(thebits : TBits_4); inline;
  8188. procedure setNVMOP0(thebits : TBits_1); inline;
  8189. procedure setNVMOP1(thebits : TBits_1); inline;
  8190. procedure setNVMOP2(thebits : TBits_1); inline;
  8191. procedure setNVMOP3(thebits : TBits_1); inline;
  8192. procedure setPROGOP(thebits : TBits_4); inline;
  8193. procedure setPROGOP0(thebits : TBits_1); inline;
  8194. procedure setPROGOP1(thebits : TBits_1); inline;
  8195. procedure setPROGOP2(thebits : TBits_1); inline;
  8196. procedure setPROGOP3(thebits : TBits_1); inline;
  8197. procedure setWR(thebits : TBits_1); inline;
  8198. procedure setWREN(thebits : TBits_1); inline;
  8199. procedure setWRERR(thebits : TBits_1); inline;
  8200. procedure setw(thebits : TBits_32); inline;
  8201. public
  8202. procedure clearLVDERR; inline;
  8203. procedure clearLVDSTAT; inline;
  8204. procedure clearNVMOP0; inline;
  8205. procedure clearNVMOP1; inline;
  8206. procedure clearNVMOP2; inline;
  8207. procedure clearNVMOP3; inline;
  8208. procedure clearPROGOP0; inline;
  8209. procedure clearPROGOP1; inline;
  8210. procedure clearPROGOP2; inline;
  8211. procedure clearPROGOP3; inline;
  8212. procedure clearWR; inline;
  8213. procedure clearWREN; inline;
  8214. procedure clearWRERR; inline;
  8215. procedure setLVDERR; inline;
  8216. procedure setLVDSTAT; inline;
  8217. procedure setNVMOP0; inline;
  8218. procedure setNVMOP1; inline;
  8219. procedure setNVMOP2; inline;
  8220. procedure setNVMOP3; inline;
  8221. procedure setPROGOP0; inline;
  8222. procedure setPROGOP1; inline;
  8223. procedure setPROGOP2; inline;
  8224. procedure setPROGOP3; inline;
  8225. procedure setWR; inline;
  8226. procedure setWREN; inline;
  8227. procedure setWRERR; inline;
  8228. property LVDERR : TBits_1 read getLVDERR write setLVDERR;
  8229. property LVDSTAT : TBits_1 read getLVDSTAT write setLVDSTAT;
  8230. property NVMOP : TBits_4 read getNVMOP write setNVMOP;
  8231. property NVMOP0 : TBits_1 read getNVMOP0 write setNVMOP0;
  8232. property NVMOP1 : TBits_1 read getNVMOP1 write setNVMOP1;
  8233. property NVMOP2 : TBits_1 read getNVMOP2 write setNVMOP2;
  8234. property NVMOP3 : TBits_1 read getNVMOP3 write setNVMOP3;
  8235. property PROGOP : TBits_4 read getPROGOP write setPROGOP;
  8236. property PROGOP0 : TBits_1 read getPROGOP0 write setPROGOP0;
  8237. property PROGOP1 : TBits_1 read getPROGOP1 write setPROGOP1;
  8238. property PROGOP2 : TBits_1 read getPROGOP2 write setPROGOP2;
  8239. property PROGOP3 : TBits_1 read getPROGOP3 write setPROGOP3;
  8240. property WR : TBits_1 read getWR write setWR;
  8241. property WREN : TBits_1 read getWREN write setWREN;
  8242. property WRERR : TBits_1 read getWRERR write setWRERR;
  8243. property w : TBits_32 read getw write setw;
  8244. end;
  8245. type
  8246. TNVMRegisters = record
  8247. NVMCONbits : TNVM_NVMCON;
  8248. NVMCON : longWord;
  8249. NVMCONCLR : longWord;
  8250. NVMCONSET : longWord;
  8251. NVMCONINV : longWord;
  8252. NVMKEY : longWord;
  8253. NVMADDR : longWord;
  8254. NVMADDRCLR : longWord;
  8255. NVMADDRSET : longWord;
  8256. NVMADDRINV : longWord;
  8257. NVMDATA : longWord;
  8258. NVMSRCADDR : longWord;
  8259. end;
  8260. TRCON_RCON = record
  8261. private
  8262. function getBOR : TBits_1; inline;
  8263. function getCMR : TBits_1; inline;
  8264. function getEXTR : TBits_1; inline;
  8265. function getIDLE : TBits_1; inline;
  8266. function getPOR : TBits_1; inline;
  8267. function getSLEEP : TBits_1; inline;
  8268. function getSWR : TBits_1; inline;
  8269. function getVREGS : TBits_1; inline;
  8270. function getWDTO : TBits_1; inline;
  8271. function getw : TBits_32; inline;
  8272. procedure setBOR(thebits : TBits_1); inline;
  8273. procedure setCMR(thebits : TBits_1); inline;
  8274. procedure setEXTR(thebits : TBits_1); inline;
  8275. procedure setIDLE(thebits : TBits_1); inline;
  8276. procedure setPOR(thebits : TBits_1); inline;
  8277. procedure setSLEEP(thebits : TBits_1); inline;
  8278. procedure setSWR(thebits : TBits_1); inline;
  8279. procedure setVREGS(thebits : TBits_1); inline;
  8280. procedure setWDTO(thebits : TBits_1); inline;
  8281. procedure setw(thebits : TBits_32); inline;
  8282. public
  8283. procedure clearBOR; inline;
  8284. procedure clearCMR; inline;
  8285. procedure clearEXTR; inline;
  8286. procedure clearIDLE; inline;
  8287. procedure clearPOR; inline;
  8288. procedure clearSLEEP; inline;
  8289. procedure clearSWR; inline;
  8290. procedure clearVREGS; inline;
  8291. procedure clearWDTO; inline;
  8292. procedure setBOR; inline;
  8293. procedure setCMR; inline;
  8294. procedure setEXTR; inline;
  8295. procedure setIDLE; inline;
  8296. procedure setPOR; inline;
  8297. procedure setSLEEP; inline;
  8298. procedure setSWR; inline;
  8299. procedure setVREGS; inline;
  8300. procedure setWDTO; inline;
  8301. property BOR : TBits_1 read getBOR write setBOR;
  8302. property CMR : TBits_1 read getCMR write setCMR;
  8303. property EXTR : TBits_1 read getEXTR write setEXTR;
  8304. property IDLE : TBits_1 read getIDLE write setIDLE;
  8305. property POR : TBits_1 read getPOR write setPOR;
  8306. property SLEEP : TBits_1 read getSLEEP write setSLEEP;
  8307. property SWR : TBits_1 read getSWR write setSWR;
  8308. property VREGS : TBits_1 read getVREGS write setVREGS;
  8309. property WDTO : TBits_1 read getWDTO write setWDTO;
  8310. property w : TBits_32 read getw write setw;
  8311. end;
  8312. TRCON_RSWRST = record
  8313. private
  8314. function getSWRST : TBits_1; inline;
  8315. function getw : TBits_32; inline;
  8316. procedure setSWRST(thebits : TBits_1); inline;
  8317. procedure setw(thebits : TBits_32); inline;
  8318. public
  8319. procedure clearSWRST; inline;
  8320. procedure setSWRST; inline;
  8321. property SWRST : TBits_1 read getSWRST write setSWRST;
  8322. property w : TBits_32 read getw write setw;
  8323. end;
  8324. type
  8325. TRCONRegisters = record
  8326. RCONbits : TRCON_RCON;
  8327. RCON : longWord;
  8328. RCONCLR : longWord;
  8329. RCONSET : longWord;
  8330. RCONINV : longWord;
  8331. RSWRSTbits : TRCON_RSWRST;
  8332. RSWRST : longWord;
  8333. RSWRSTCLR : longWord;
  8334. RSWRSTSET : longWord;
  8335. RSWRSTINV : longWord;
  8336. end;
  8337. type
  8338. T_DDPSTATRegisters = record
  8339. _DDPSTAT : longWord;
  8340. end;
  8341. type
  8342. T_STRORegisters = record
  8343. _STRO : longWord;
  8344. _STROCLR : longWord;
  8345. _STROSET : longWord;
  8346. _STROINV : longWord;
  8347. end;
  8348. type
  8349. T_APPORegisters = record
  8350. _APPO : longWord;
  8351. _APPOCLR : longWord;
  8352. _APPOSET : longWord;
  8353. _APPOINV : longWord;
  8354. end;
  8355. type
  8356. T_APPIRegisters = record
  8357. _APPI : longWord;
  8358. end;
  8359. TINT_INTCON = record
  8360. private
  8361. function getFRZ : TBits_1; inline;
  8362. function getINT0EP : TBits_1; inline;
  8363. function getINT1EP : TBits_1; inline;
  8364. function getINT2EP : TBits_1; inline;
  8365. function getINT3EP : TBits_1; inline;
  8366. function getINT4EP : TBits_1; inline;
  8367. function getMVEC : TBits_1; inline;
  8368. function getSS0 : TBits_1; inline;
  8369. function getTPC : TBits_3; inline;
  8370. function getw : TBits_32; inline;
  8371. procedure setFRZ(thebits : TBits_1); inline;
  8372. procedure setINT0EP(thebits : TBits_1); inline;
  8373. procedure setINT1EP(thebits : TBits_1); inline;
  8374. procedure setINT2EP(thebits : TBits_1); inline;
  8375. procedure setINT3EP(thebits : TBits_1); inline;
  8376. procedure setINT4EP(thebits : TBits_1); inline;
  8377. procedure setMVEC(thebits : TBits_1); inline;
  8378. procedure setSS0(thebits : TBits_1); inline;
  8379. procedure setTPC(thebits : TBits_3); inline;
  8380. procedure setw(thebits : TBits_32); inline;
  8381. public
  8382. procedure clearFRZ; inline;
  8383. procedure clearINT0EP; inline;
  8384. procedure clearINT1EP; inline;
  8385. procedure clearINT2EP; inline;
  8386. procedure clearINT3EP; inline;
  8387. procedure clearINT4EP; inline;
  8388. procedure clearMVEC; inline;
  8389. procedure clearSS0; inline;
  8390. procedure setFRZ; inline;
  8391. procedure setINT0EP; inline;
  8392. procedure setINT1EP; inline;
  8393. procedure setINT2EP; inline;
  8394. procedure setINT3EP; inline;
  8395. procedure setINT4EP; inline;
  8396. procedure setMVEC; inline;
  8397. procedure setSS0; inline;
  8398. property FRZ : TBits_1 read getFRZ write setFRZ;
  8399. property INT0EP : TBits_1 read getINT0EP write setINT0EP;
  8400. property INT1EP : TBits_1 read getINT1EP write setINT1EP;
  8401. property INT2EP : TBits_1 read getINT2EP write setINT2EP;
  8402. property INT3EP : TBits_1 read getINT3EP write setINT3EP;
  8403. property INT4EP : TBits_1 read getINT4EP write setINT4EP;
  8404. property MVEC : TBits_1 read getMVEC write setMVEC;
  8405. property SS0 : TBits_1 read getSS0 write setSS0;
  8406. property TPC : TBits_3 read getTPC write setTPC;
  8407. property w : TBits_32 read getw write setw;
  8408. end;
  8409. TINT_IFS0 = record
  8410. private
  8411. function getCS0IF : TBits_1; inline;
  8412. function getCS1IF : TBits_1; inline;
  8413. function getCTIF : TBits_1; inline;
  8414. function getI2C1ABIF : TBits_1; inline;
  8415. function getI2C1AMIF : TBits_1; inline;
  8416. function getI2C1ASIF : TBits_1; inline;
  8417. function getI2C1BIF : TBits_1; inline;
  8418. function getI2C1MIF : TBits_1; inline;
  8419. function getI2C1SIF : TBits_1; inline;
  8420. function getI2C3BIF : TBits_1; inline;
  8421. function getI2C3MIF : TBits_1; inline;
  8422. function getI2C3SIF : TBits_1; inline;
  8423. function getIC1IF : TBits_1; inline;
  8424. function getIC2IF : TBits_1; inline;
  8425. function getIC3IF : TBits_1; inline;
  8426. function getIC4IF : TBits_1; inline;
  8427. function getIC5IF : TBits_1; inline;
  8428. function getINT0IF : TBits_1; inline;
  8429. function getINT1IF : TBits_1; inline;
  8430. function getINT2IF : TBits_1; inline;
  8431. function getINT3IF : TBits_1; inline;
  8432. function getINT4IF : TBits_1; inline;
  8433. function getOC1IF : TBits_1; inline;
  8434. function getOC2IF : TBits_1; inline;
  8435. function getOC3IF : TBits_1; inline;
  8436. function getOC4IF : TBits_1; inline;
  8437. function getOC5IF : TBits_1; inline;
  8438. function getSPI1AEIF : TBits_1; inline;
  8439. function getSPI1ARXIF : TBits_1; inline;
  8440. function getSPI1ATXIF : TBits_1; inline;
  8441. function getSPI1EIF : TBits_1; inline;
  8442. function getSPI1RXIF : TBits_1; inline;
  8443. function getSPI1TXIF : TBits_1; inline;
  8444. function getSPI3EIF : TBits_1; inline;
  8445. function getSPI3RXIF : TBits_1; inline;
  8446. function getSPI3TXIF : TBits_1; inline;
  8447. function getT1IF : TBits_1; inline;
  8448. function getT2IF : TBits_1; inline;
  8449. function getT3IF : TBits_1; inline;
  8450. function getT4IF : TBits_1; inline;
  8451. function getT5IF : TBits_1; inline;
  8452. function getU1AEIF : TBits_1; inline;
  8453. function getU1ARXIF : TBits_1; inline;
  8454. function getU1ATXIF : TBits_1; inline;
  8455. function getU1EIF : TBits_1; inline;
  8456. function getU1RXIF : TBits_1; inline;
  8457. function getU1TXIF : TBits_1; inline;
  8458. function getw : TBits_32; inline;
  8459. procedure setCS0IF(thebits : TBits_1); inline;
  8460. procedure setCS1IF(thebits : TBits_1); inline;
  8461. procedure setCTIF(thebits : TBits_1); inline;
  8462. procedure setI2C1ABIF(thebits : TBits_1); inline;
  8463. procedure setI2C1AMIF(thebits : TBits_1); inline;
  8464. procedure setI2C1ASIF(thebits : TBits_1); inline;
  8465. procedure setI2C1BIF(thebits : TBits_1); inline;
  8466. procedure setI2C1MIF(thebits : TBits_1); inline;
  8467. procedure setI2C1SIF(thebits : TBits_1); inline;
  8468. procedure setI2C3BIF(thebits : TBits_1); inline;
  8469. procedure setI2C3MIF(thebits : TBits_1); inline;
  8470. procedure setI2C3SIF(thebits : TBits_1); inline;
  8471. procedure setIC1IF(thebits : TBits_1); inline;
  8472. procedure setIC2IF(thebits : TBits_1); inline;
  8473. procedure setIC3IF(thebits : TBits_1); inline;
  8474. procedure setIC4IF(thebits : TBits_1); inline;
  8475. procedure setIC5IF(thebits : TBits_1); inline;
  8476. procedure setINT0IF(thebits : TBits_1); inline;
  8477. procedure setINT1IF(thebits : TBits_1); inline;
  8478. procedure setINT2IF(thebits : TBits_1); inline;
  8479. procedure setINT3IF(thebits : TBits_1); inline;
  8480. procedure setINT4IF(thebits : TBits_1); inline;
  8481. procedure setOC1IF(thebits : TBits_1); inline;
  8482. procedure setOC2IF(thebits : TBits_1); inline;
  8483. procedure setOC3IF(thebits : TBits_1); inline;
  8484. procedure setOC4IF(thebits : TBits_1); inline;
  8485. procedure setOC5IF(thebits : TBits_1); inline;
  8486. procedure setSPI1AEIF(thebits : TBits_1); inline;
  8487. procedure setSPI1ARXIF(thebits : TBits_1); inline;
  8488. procedure setSPI1ATXIF(thebits : TBits_1); inline;
  8489. procedure setSPI1EIF(thebits : TBits_1); inline;
  8490. procedure setSPI1RXIF(thebits : TBits_1); inline;
  8491. procedure setSPI1TXIF(thebits : TBits_1); inline;
  8492. procedure setSPI3EIF(thebits : TBits_1); inline;
  8493. procedure setSPI3RXIF(thebits : TBits_1); inline;
  8494. procedure setSPI3TXIF(thebits : TBits_1); inline;
  8495. procedure setT1IF(thebits : TBits_1); inline;
  8496. procedure setT2IF(thebits : TBits_1); inline;
  8497. procedure setT3IF(thebits : TBits_1); inline;
  8498. procedure setT4IF(thebits : TBits_1); inline;
  8499. procedure setT5IF(thebits : TBits_1); inline;
  8500. procedure setU1AEIF(thebits : TBits_1); inline;
  8501. procedure setU1ARXIF(thebits : TBits_1); inline;
  8502. procedure setU1ATXIF(thebits : TBits_1); inline;
  8503. procedure setU1EIF(thebits : TBits_1); inline;
  8504. procedure setU1RXIF(thebits : TBits_1); inline;
  8505. procedure setU1TXIF(thebits : TBits_1); inline;
  8506. procedure setw(thebits : TBits_32); inline;
  8507. public
  8508. procedure clearCS0IF; inline;
  8509. procedure clearCS1IF; inline;
  8510. procedure clearCTIF; inline;
  8511. procedure clearI2C1ABIF; inline;
  8512. procedure clearI2C1AMIF; inline;
  8513. procedure clearI2C1ASIF; inline;
  8514. procedure clearI2C1BIF; inline;
  8515. procedure clearI2C1MIF; inline;
  8516. procedure clearI2C1SIF; inline;
  8517. procedure clearI2C3BIF; inline;
  8518. procedure clearI2C3MIF; inline;
  8519. procedure clearI2C3SIF; inline;
  8520. procedure clearIC1IF; inline;
  8521. procedure clearIC2IF; inline;
  8522. procedure clearIC3IF; inline;
  8523. procedure clearIC4IF; inline;
  8524. procedure clearIC5IF; inline;
  8525. procedure clearINT0IF; inline;
  8526. procedure clearINT1IF; inline;
  8527. procedure clearINT2IF; inline;
  8528. procedure clearINT3IF; inline;
  8529. procedure clearINT4IF; inline;
  8530. procedure clearOC1IF; inline;
  8531. procedure clearOC2IF; inline;
  8532. procedure clearOC3IF; inline;
  8533. procedure clearOC4IF; inline;
  8534. procedure clearOC5IF; inline;
  8535. procedure clearSPI1AEIF; inline;
  8536. procedure clearSPI1ARXIF; inline;
  8537. procedure clearSPI1ATXIF; inline;
  8538. procedure clearSPI1EIF; inline;
  8539. procedure clearSPI1RXIF; inline;
  8540. procedure clearSPI1TXIF; inline;
  8541. procedure clearSPI3EIF; inline;
  8542. procedure clearSPI3RXIF; inline;
  8543. procedure clearSPI3TXIF; inline;
  8544. procedure clearT1IF; inline;
  8545. procedure clearT2IF; inline;
  8546. procedure clearT3IF; inline;
  8547. procedure clearT4IF; inline;
  8548. procedure clearT5IF; inline;
  8549. procedure clearU1AEIF; inline;
  8550. procedure clearU1ARXIF; inline;
  8551. procedure clearU1ATXIF; inline;
  8552. procedure clearU1EIF; inline;
  8553. procedure clearU1RXIF; inline;
  8554. procedure clearU1TXIF; inline;
  8555. procedure setCS0IF; inline;
  8556. procedure setCS1IF; inline;
  8557. procedure setCTIF; inline;
  8558. procedure setI2C1ABIF; inline;
  8559. procedure setI2C1AMIF; inline;
  8560. procedure setI2C1ASIF; inline;
  8561. procedure setI2C1BIF; inline;
  8562. procedure setI2C1MIF; inline;
  8563. procedure setI2C1SIF; inline;
  8564. procedure setI2C3BIF; inline;
  8565. procedure setI2C3MIF; inline;
  8566. procedure setI2C3SIF; inline;
  8567. procedure setIC1IF; inline;
  8568. procedure setIC2IF; inline;
  8569. procedure setIC3IF; inline;
  8570. procedure setIC4IF; inline;
  8571. procedure setIC5IF; inline;
  8572. procedure setINT0IF; inline;
  8573. procedure setINT1IF; inline;
  8574. procedure setINT2IF; inline;
  8575. procedure setINT3IF; inline;
  8576. procedure setINT4IF; inline;
  8577. procedure setOC1IF; inline;
  8578. procedure setOC2IF; inline;
  8579. procedure setOC3IF; inline;
  8580. procedure setOC4IF; inline;
  8581. procedure setOC5IF; inline;
  8582. procedure setSPI1AEIF; inline;
  8583. procedure setSPI1ARXIF; inline;
  8584. procedure setSPI1ATXIF; inline;
  8585. procedure setSPI1EIF; inline;
  8586. procedure setSPI1RXIF; inline;
  8587. procedure setSPI1TXIF; inline;
  8588. procedure setSPI3EIF; inline;
  8589. procedure setSPI3RXIF; inline;
  8590. procedure setSPI3TXIF; inline;
  8591. procedure setT1IF; inline;
  8592. procedure setT2IF; inline;
  8593. procedure setT3IF; inline;
  8594. procedure setT4IF; inline;
  8595. procedure setT5IF; inline;
  8596. procedure setU1AEIF; inline;
  8597. procedure setU1ARXIF; inline;
  8598. procedure setU1ATXIF; inline;
  8599. procedure setU1EIF; inline;
  8600. procedure setU1RXIF; inline;
  8601. procedure setU1TXIF; inline;
  8602. property CS0IF : TBits_1 read getCS0IF write setCS0IF;
  8603. property CS1IF : TBits_1 read getCS1IF write setCS1IF;
  8604. property CTIF : TBits_1 read getCTIF write setCTIF;
  8605. property I2C1ABIF : TBits_1 read getI2C1ABIF write setI2C1ABIF;
  8606. property I2C1AMIF : TBits_1 read getI2C1AMIF write setI2C1AMIF;
  8607. property I2C1ASIF : TBits_1 read getI2C1ASIF write setI2C1ASIF;
  8608. property I2C1BIF : TBits_1 read getI2C1BIF write setI2C1BIF;
  8609. property I2C1MIF : TBits_1 read getI2C1MIF write setI2C1MIF;
  8610. property I2C1SIF : TBits_1 read getI2C1SIF write setI2C1SIF;
  8611. property I2C3BIF : TBits_1 read getI2C3BIF write setI2C3BIF;
  8612. property I2C3MIF : TBits_1 read getI2C3MIF write setI2C3MIF;
  8613. property I2C3SIF : TBits_1 read getI2C3SIF write setI2C3SIF;
  8614. property IC1IF : TBits_1 read getIC1IF write setIC1IF;
  8615. property IC2IF : TBits_1 read getIC2IF write setIC2IF;
  8616. property IC3IF : TBits_1 read getIC3IF write setIC3IF;
  8617. property IC4IF : TBits_1 read getIC4IF write setIC4IF;
  8618. property IC5IF : TBits_1 read getIC5IF write setIC5IF;
  8619. property INT0IF : TBits_1 read getINT0IF write setINT0IF;
  8620. property INT1IF : TBits_1 read getINT1IF write setINT1IF;
  8621. property INT2IF : TBits_1 read getINT2IF write setINT2IF;
  8622. property INT3IF : TBits_1 read getINT3IF write setINT3IF;
  8623. property INT4IF : TBits_1 read getINT4IF write setINT4IF;
  8624. property OC1IF : TBits_1 read getOC1IF write setOC1IF;
  8625. property OC2IF : TBits_1 read getOC2IF write setOC2IF;
  8626. property OC3IF : TBits_1 read getOC3IF write setOC3IF;
  8627. property OC4IF : TBits_1 read getOC4IF write setOC4IF;
  8628. property OC5IF : TBits_1 read getOC5IF write setOC5IF;
  8629. property SPI1AEIF : TBits_1 read getSPI1AEIF write setSPI1AEIF;
  8630. property SPI1ARXIF : TBits_1 read getSPI1ARXIF write setSPI1ARXIF;
  8631. property SPI1ATXIF : TBits_1 read getSPI1ATXIF write setSPI1ATXIF;
  8632. property SPI1EIF : TBits_1 read getSPI1EIF write setSPI1EIF;
  8633. property SPI1RXIF : TBits_1 read getSPI1RXIF write setSPI1RXIF;
  8634. property SPI1TXIF : TBits_1 read getSPI1TXIF write setSPI1TXIF;
  8635. property SPI3EIF : TBits_1 read getSPI3EIF write setSPI3EIF;
  8636. property SPI3RXIF : TBits_1 read getSPI3RXIF write setSPI3RXIF;
  8637. property SPI3TXIF : TBits_1 read getSPI3TXIF write setSPI3TXIF;
  8638. property T1IF : TBits_1 read getT1IF write setT1IF;
  8639. property T2IF : TBits_1 read getT2IF write setT2IF;
  8640. property T3IF : TBits_1 read getT3IF write setT3IF;
  8641. property T4IF : TBits_1 read getT4IF write setT4IF;
  8642. property T5IF : TBits_1 read getT5IF write setT5IF;
  8643. property U1AEIF : TBits_1 read getU1AEIF write setU1AEIF;
  8644. property U1ARXIF : TBits_1 read getU1ARXIF write setU1ARXIF;
  8645. property U1ATXIF : TBits_1 read getU1ATXIF write setU1ATXIF;
  8646. property U1EIF : TBits_1 read getU1EIF write setU1EIF;
  8647. property U1RXIF : TBits_1 read getU1RXIF write setU1RXIF;
  8648. property U1TXIF : TBits_1 read getU1TXIF write setU1TXIF;
  8649. property w : TBits_32 read getw write setw;
  8650. end;
  8651. TINT_IFS1 = record
  8652. private
  8653. function getAD1IF : TBits_1; inline;
  8654. function getCAN1IF : TBits_1; inline;
  8655. function getCMP1IF : TBits_1; inline;
  8656. function getCMP2IF : TBits_1; inline;
  8657. function getCNIF : TBits_1; inline;
  8658. function getDMA0IF : TBits_1; inline;
  8659. function getDMA1IF : TBits_1; inline;
  8660. function getDMA2IF : TBits_1; inline;
  8661. function getDMA3IF : TBits_1; inline;
  8662. function getDMA4IF : TBits_1; inline;
  8663. function getDMA5IF : TBits_1; inline;
  8664. function getDMA6IF : TBits_1; inline;
  8665. function getDMA7IF : TBits_1; inline;
  8666. function getFCEIF : TBits_1; inline;
  8667. function getFSCMIF : TBits_1; inline;
  8668. function getI2C2ABIF : TBits_1; inline;
  8669. function getI2C2AMIF : TBits_1; inline;
  8670. function getI2C2ASIF : TBits_1; inline;
  8671. function getI2C2BIF : TBits_1; inline;
  8672. function getI2C2MIF : TBits_1; inline;
  8673. function getI2C2SIF : TBits_1; inline;
  8674. function getI2C3ABIF : TBits_1; inline;
  8675. function getI2C3AMIF : TBits_1; inline;
  8676. function getI2C3ASIF : TBits_1; inline;
  8677. function getI2C4BIF : TBits_1; inline;
  8678. function getI2C4MIF : TBits_1; inline;
  8679. function getI2C4SIF : TBits_1; inline;
  8680. function getI2C5BIF : TBits_1; inline;
  8681. function getI2C5MIF : TBits_1; inline;
  8682. function getI2C5SIF : TBits_1; inline;
  8683. function getIC1EIF : TBits_1; inline;
  8684. function getIC2EIF : TBits_1; inline;
  8685. function getIC3EIF : TBits_1; inline;
  8686. function getPMPIF : TBits_1; inline;
  8687. function getRTCCIF : TBits_1; inline;
  8688. function getSPI2AEIF : TBits_1; inline;
  8689. function getSPI2ARXIF : TBits_1; inline;
  8690. function getSPI2ATXIF : TBits_1; inline;
  8691. function getSPI2EIF : TBits_1; inline;
  8692. function getSPI2RXIF : TBits_1; inline;
  8693. function getSPI2TXIF : TBits_1; inline;
  8694. function getSPI3AEIF : TBits_1; inline;
  8695. function getSPI3ARXIF : TBits_1; inline;
  8696. function getSPI3ATXIF : TBits_1; inline;
  8697. function getSPI4EIF : TBits_1; inline;
  8698. function getSPI4RXIF : TBits_1; inline;
  8699. function getSPI4TXIF : TBits_1; inline;
  8700. function getU2AEIF : TBits_1; inline;
  8701. function getU2ARXIF : TBits_1; inline;
  8702. function getU2ATXIF : TBits_1; inline;
  8703. function getU2EIF : TBits_1; inline;
  8704. function getU2RXIF : TBits_1; inline;
  8705. function getU2TXIF : TBits_1; inline;
  8706. function getU3AEIF : TBits_1; inline;
  8707. function getU3ARXIF : TBits_1; inline;
  8708. function getU3ATXIF : TBits_1; inline;
  8709. function getU3EIF : TBits_1; inline;
  8710. function getU3RXIF : TBits_1; inline;
  8711. function getU3TXIF : TBits_1; inline;
  8712. function getUSBIF : TBits_1; inline;
  8713. function getw : TBits_32; inline;
  8714. procedure setAD1IF(thebits : TBits_1); inline;
  8715. procedure setCAN1IF(thebits : TBits_1); inline;
  8716. procedure setCMP1IF(thebits : TBits_1); inline;
  8717. procedure setCMP2IF(thebits : TBits_1); inline;
  8718. procedure setCNIF(thebits : TBits_1); inline;
  8719. procedure setDMA0IF(thebits : TBits_1); inline;
  8720. procedure setDMA1IF(thebits : TBits_1); inline;
  8721. procedure setDMA2IF(thebits : TBits_1); inline;
  8722. procedure setDMA3IF(thebits : TBits_1); inline;
  8723. procedure setDMA4IF(thebits : TBits_1); inline;
  8724. procedure setDMA5IF(thebits : TBits_1); inline;
  8725. procedure setDMA6IF(thebits : TBits_1); inline;
  8726. procedure setDMA7IF(thebits : TBits_1); inline;
  8727. procedure setFCEIF(thebits : TBits_1); inline;
  8728. procedure setFSCMIF(thebits : TBits_1); inline;
  8729. procedure setI2C2ABIF(thebits : TBits_1); inline;
  8730. procedure setI2C2AMIF(thebits : TBits_1); inline;
  8731. procedure setI2C2ASIF(thebits : TBits_1); inline;
  8732. procedure setI2C2BIF(thebits : TBits_1); inline;
  8733. procedure setI2C2MIF(thebits : TBits_1); inline;
  8734. procedure setI2C2SIF(thebits : TBits_1); inline;
  8735. procedure setI2C3ABIF(thebits : TBits_1); inline;
  8736. procedure setI2C3AMIF(thebits : TBits_1); inline;
  8737. procedure setI2C3ASIF(thebits : TBits_1); inline;
  8738. procedure setI2C4BIF(thebits : TBits_1); inline;
  8739. procedure setI2C4MIF(thebits : TBits_1); inline;
  8740. procedure setI2C4SIF(thebits : TBits_1); inline;
  8741. procedure setI2C5BIF(thebits : TBits_1); inline;
  8742. procedure setI2C5MIF(thebits : TBits_1); inline;
  8743. procedure setI2C5SIF(thebits : TBits_1); inline;
  8744. procedure setIC1EIF(thebits : TBits_1); inline;
  8745. procedure setIC2EIF(thebits : TBits_1); inline;
  8746. procedure setIC3EIF(thebits : TBits_1); inline;
  8747. procedure setPMPIF(thebits : TBits_1); inline;
  8748. procedure setRTCCIF(thebits : TBits_1); inline;
  8749. procedure setSPI2AEIF(thebits : TBits_1); inline;
  8750. procedure setSPI2ARXIF(thebits : TBits_1); inline;
  8751. procedure setSPI2ATXIF(thebits : TBits_1); inline;
  8752. procedure setSPI2EIF(thebits : TBits_1); inline;
  8753. procedure setSPI2RXIF(thebits : TBits_1); inline;
  8754. procedure setSPI2TXIF(thebits : TBits_1); inline;
  8755. procedure setSPI3AEIF(thebits : TBits_1); inline;
  8756. procedure setSPI3ARXIF(thebits : TBits_1); inline;
  8757. procedure setSPI3ATXIF(thebits : TBits_1); inline;
  8758. procedure setSPI4EIF(thebits : TBits_1); inline;
  8759. procedure setSPI4RXIF(thebits : TBits_1); inline;
  8760. procedure setSPI4TXIF(thebits : TBits_1); inline;
  8761. procedure setU2AEIF(thebits : TBits_1); inline;
  8762. procedure setU2ARXIF(thebits : TBits_1); inline;
  8763. procedure setU2ATXIF(thebits : TBits_1); inline;
  8764. procedure setU2EIF(thebits : TBits_1); inline;
  8765. procedure setU2RXIF(thebits : TBits_1); inline;
  8766. procedure setU2TXIF(thebits : TBits_1); inline;
  8767. procedure setU3AEIF(thebits : TBits_1); inline;
  8768. procedure setU3ARXIF(thebits : TBits_1); inline;
  8769. procedure setU3ATXIF(thebits : TBits_1); inline;
  8770. procedure setU3EIF(thebits : TBits_1); inline;
  8771. procedure setU3RXIF(thebits : TBits_1); inline;
  8772. procedure setU3TXIF(thebits : TBits_1); inline;
  8773. procedure setUSBIF(thebits : TBits_1); inline;
  8774. procedure setw(thebits : TBits_32); inline;
  8775. public
  8776. procedure clearAD1IF; inline;
  8777. procedure clearCAN1IF; inline;
  8778. procedure clearCMP1IF; inline;
  8779. procedure clearCMP2IF; inline;
  8780. procedure clearCNIF; inline;
  8781. procedure clearDMA0IF; inline;
  8782. procedure clearDMA1IF; inline;
  8783. procedure clearDMA2IF; inline;
  8784. procedure clearDMA3IF; inline;
  8785. procedure clearDMA4IF; inline;
  8786. procedure clearDMA5IF; inline;
  8787. procedure clearDMA6IF; inline;
  8788. procedure clearDMA7IF; inline;
  8789. procedure clearFCEIF; inline;
  8790. procedure clearFSCMIF; inline;
  8791. procedure clearI2C2ABIF; inline;
  8792. procedure clearI2C2AMIF; inline;
  8793. procedure clearI2C2ASIF; inline;
  8794. procedure clearI2C2BIF; inline;
  8795. procedure clearI2C2MIF; inline;
  8796. procedure clearI2C2SIF; inline;
  8797. procedure clearI2C3ABIF; inline;
  8798. procedure clearI2C3AMIF; inline;
  8799. procedure clearI2C3ASIF; inline;
  8800. procedure clearI2C4BIF; inline;
  8801. procedure clearI2C4MIF; inline;
  8802. procedure clearI2C4SIF; inline;
  8803. procedure clearI2C5BIF; inline;
  8804. procedure clearI2C5MIF; inline;
  8805. procedure clearI2C5SIF; inline;
  8806. procedure clearIC1EIF; inline;
  8807. procedure clearIC2EIF; inline;
  8808. procedure clearIC3EIF; inline;
  8809. procedure clearPMPIF; inline;
  8810. procedure clearRTCCIF; inline;
  8811. procedure clearSPI2AEIF; inline;
  8812. procedure clearSPI2ARXIF; inline;
  8813. procedure clearSPI2ATXIF; inline;
  8814. procedure clearSPI2EIF; inline;
  8815. procedure clearSPI2RXIF; inline;
  8816. procedure clearSPI2TXIF; inline;
  8817. procedure clearSPI3AEIF; inline;
  8818. procedure clearSPI3ARXIF; inline;
  8819. procedure clearSPI3ATXIF; inline;
  8820. procedure clearSPI4EIF; inline;
  8821. procedure clearSPI4RXIF; inline;
  8822. procedure clearSPI4TXIF; inline;
  8823. procedure clearU2AEIF; inline;
  8824. procedure clearU2ARXIF; inline;
  8825. procedure clearU2ATXIF; inline;
  8826. procedure clearU2EIF; inline;
  8827. procedure clearU2RXIF; inline;
  8828. procedure clearU2TXIF; inline;
  8829. procedure clearU3AEIF; inline;
  8830. procedure clearU3ARXIF; inline;
  8831. procedure clearU3ATXIF; inline;
  8832. procedure clearU3EIF; inline;
  8833. procedure clearU3RXIF; inline;
  8834. procedure clearU3TXIF; inline;
  8835. procedure clearUSBIF; inline;
  8836. procedure setAD1IF; inline;
  8837. procedure setCAN1IF; inline;
  8838. procedure setCMP1IF; inline;
  8839. procedure setCMP2IF; inline;
  8840. procedure setCNIF; inline;
  8841. procedure setDMA0IF; inline;
  8842. procedure setDMA1IF; inline;
  8843. procedure setDMA2IF; inline;
  8844. procedure setDMA3IF; inline;
  8845. procedure setDMA4IF; inline;
  8846. procedure setDMA5IF; inline;
  8847. procedure setDMA6IF; inline;
  8848. procedure setDMA7IF; inline;
  8849. procedure setFCEIF; inline;
  8850. procedure setFSCMIF; inline;
  8851. procedure setI2C2ABIF; inline;
  8852. procedure setI2C2AMIF; inline;
  8853. procedure setI2C2ASIF; inline;
  8854. procedure setI2C2BIF; inline;
  8855. procedure setI2C2MIF; inline;
  8856. procedure setI2C2SIF; inline;
  8857. procedure setI2C3ABIF; inline;
  8858. procedure setI2C3AMIF; inline;
  8859. procedure setI2C3ASIF; inline;
  8860. procedure setI2C4BIF; inline;
  8861. procedure setI2C4MIF; inline;
  8862. procedure setI2C4SIF; inline;
  8863. procedure setI2C5BIF; inline;
  8864. procedure setI2C5MIF; inline;
  8865. procedure setI2C5SIF; inline;
  8866. procedure setIC1EIF; inline;
  8867. procedure setIC2EIF; inline;
  8868. procedure setIC3EIF; inline;
  8869. procedure setPMPIF; inline;
  8870. procedure setRTCCIF; inline;
  8871. procedure setSPI2AEIF; inline;
  8872. procedure setSPI2ARXIF; inline;
  8873. procedure setSPI2ATXIF; inline;
  8874. procedure setSPI2EIF; inline;
  8875. procedure setSPI2RXIF; inline;
  8876. procedure setSPI2TXIF; inline;
  8877. procedure setSPI3AEIF; inline;
  8878. procedure setSPI3ARXIF; inline;
  8879. procedure setSPI3ATXIF; inline;
  8880. procedure setSPI4EIF; inline;
  8881. procedure setSPI4RXIF; inline;
  8882. procedure setSPI4TXIF; inline;
  8883. procedure setU2AEIF; inline;
  8884. procedure setU2ARXIF; inline;
  8885. procedure setU2ATXIF; inline;
  8886. procedure setU2EIF; inline;
  8887. procedure setU2RXIF; inline;
  8888. procedure setU2TXIF; inline;
  8889. procedure setU3AEIF; inline;
  8890. procedure setU3ARXIF; inline;
  8891. procedure setU3ATXIF; inline;
  8892. procedure setU3EIF; inline;
  8893. procedure setU3RXIF; inline;
  8894. procedure setU3TXIF; inline;
  8895. procedure setUSBIF; inline;
  8896. property AD1IF : TBits_1 read getAD1IF write setAD1IF;
  8897. property CAN1IF : TBits_1 read getCAN1IF write setCAN1IF;
  8898. property CMP1IF : TBits_1 read getCMP1IF write setCMP1IF;
  8899. property CMP2IF : TBits_1 read getCMP2IF write setCMP2IF;
  8900. property CNIF : TBits_1 read getCNIF write setCNIF;
  8901. property DMA0IF : TBits_1 read getDMA0IF write setDMA0IF;
  8902. property DMA1IF : TBits_1 read getDMA1IF write setDMA1IF;
  8903. property DMA2IF : TBits_1 read getDMA2IF write setDMA2IF;
  8904. property DMA3IF : TBits_1 read getDMA3IF write setDMA3IF;
  8905. property DMA4IF : TBits_1 read getDMA4IF write setDMA4IF;
  8906. property DMA5IF : TBits_1 read getDMA5IF write setDMA5IF;
  8907. property DMA6IF : TBits_1 read getDMA6IF write setDMA6IF;
  8908. property DMA7IF : TBits_1 read getDMA7IF write setDMA7IF;
  8909. property FCEIF : TBits_1 read getFCEIF write setFCEIF;
  8910. property FSCMIF : TBits_1 read getFSCMIF write setFSCMIF;
  8911. property I2C2ABIF : TBits_1 read getI2C2ABIF write setI2C2ABIF;
  8912. property I2C2AMIF : TBits_1 read getI2C2AMIF write setI2C2AMIF;
  8913. property I2C2ASIF : TBits_1 read getI2C2ASIF write setI2C2ASIF;
  8914. property I2C2BIF : TBits_1 read getI2C2BIF write setI2C2BIF;
  8915. property I2C2MIF : TBits_1 read getI2C2MIF write setI2C2MIF;
  8916. property I2C2SIF : TBits_1 read getI2C2SIF write setI2C2SIF;
  8917. property I2C3ABIF : TBits_1 read getI2C3ABIF write setI2C3ABIF;
  8918. property I2C3AMIF : TBits_1 read getI2C3AMIF write setI2C3AMIF;
  8919. property I2C3ASIF : TBits_1 read getI2C3ASIF write setI2C3ASIF;
  8920. property I2C4BIF : TBits_1 read getI2C4BIF write setI2C4BIF;
  8921. property I2C4MIF : TBits_1 read getI2C4MIF write setI2C4MIF;
  8922. property I2C4SIF : TBits_1 read getI2C4SIF write setI2C4SIF;
  8923. property I2C5BIF : TBits_1 read getI2C5BIF write setI2C5BIF;
  8924. property I2C5MIF : TBits_1 read getI2C5MIF write setI2C5MIF;
  8925. property I2C5SIF : TBits_1 read getI2C5SIF write setI2C5SIF;
  8926. property IC1EIF : TBits_1 read getIC1EIF write setIC1EIF;
  8927. property IC2EIF : TBits_1 read getIC2EIF write setIC2EIF;
  8928. property IC3EIF : TBits_1 read getIC3EIF write setIC3EIF;
  8929. property PMPIF : TBits_1 read getPMPIF write setPMPIF;
  8930. property RTCCIF : TBits_1 read getRTCCIF write setRTCCIF;
  8931. property SPI2AEIF : TBits_1 read getSPI2AEIF write setSPI2AEIF;
  8932. property SPI2ARXIF : TBits_1 read getSPI2ARXIF write setSPI2ARXIF;
  8933. property SPI2ATXIF : TBits_1 read getSPI2ATXIF write setSPI2ATXIF;
  8934. property SPI2EIF : TBits_1 read getSPI2EIF write setSPI2EIF;
  8935. property SPI2RXIF : TBits_1 read getSPI2RXIF write setSPI2RXIF;
  8936. property SPI2TXIF : TBits_1 read getSPI2TXIF write setSPI2TXIF;
  8937. property SPI3AEIF : TBits_1 read getSPI3AEIF write setSPI3AEIF;
  8938. property SPI3ARXIF : TBits_1 read getSPI3ARXIF write setSPI3ARXIF;
  8939. property SPI3ATXIF : TBits_1 read getSPI3ATXIF write setSPI3ATXIF;
  8940. property SPI4EIF : TBits_1 read getSPI4EIF write setSPI4EIF;
  8941. property SPI4RXIF : TBits_1 read getSPI4RXIF write setSPI4RXIF;
  8942. property SPI4TXIF : TBits_1 read getSPI4TXIF write setSPI4TXIF;
  8943. property U2AEIF : TBits_1 read getU2AEIF write setU2AEIF;
  8944. property U2ARXIF : TBits_1 read getU2ARXIF write setU2ARXIF;
  8945. property U2ATXIF : TBits_1 read getU2ATXIF write setU2ATXIF;
  8946. property U2EIF : TBits_1 read getU2EIF write setU2EIF;
  8947. property U2RXIF : TBits_1 read getU2RXIF write setU2RXIF;
  8948. property U2TXIF : TBits_1 read getU2TXIF write setU2TXIF;
  8949. property U3AEIF : TBits_1 read getU3AEIF write setU3AEIF;
  8950. property U3ARXIF : TBits_1 read getU3ARXIF write setU3ARXIF;
  8951. property U3ATXIF : TBits_1 read getU3ATXIF write setU3ATXIF;
  8952. property U3EIF : TBits_1 read getU3EIF write setU3EIF;
  8953. property U3RXIF : TBits_1 read getU3RXIF write setU3RXIF;
  8954. property U3TXIF : TBits_1 read getU3TXIF write setU3TXIF;
  8955. property USBIF : TBits_1 read getUSBIF write setUSBIF;
  8956. property w : TBits_32 read getw write setw;
  8957. end;
  8958. TINT_IFS2 = record
  8959. private
  8960. function getIC4EIF : TBits_1; inline;
  8961. function getIC5EIF : TBits_1; inline;
  8962. function getPMPEIF : TBits_1; inline;
  8963. function getU1BEIF : TBits_1; inline;
  8964. function getU1BRXIF : TBits_1; inline;
  8965. function getU1BTXIF : TBits_1; inline;
  8966. function getU2BEIF : TBits_1; inline;
  8967. function getU2BRXIF : TBits_1; inline;
  8968. function getU2BTXIF : TBits_1; inline;
  8969. function getU3BEIF : TBits_1; inline;
  8970. function getU3BRXIF : TBits_1; inline;
  8971. function getU3BTXIF : TBits_1; inline;
  8972. function getU4EIF : TBits_1; inline;
  8973. function getU4RXIF : TBits_1; inline;
  8974. function getU4TXIF : TBits_1; inline;
  8975. function getU5EIF : TBits_1; inline;
  8976. function getU5RXIF : TBits_1; inline;
  8977. function getU5TXIF : TBits_1; inline;
  8978. function getU6EIF : TBits_1; inline;
  8979. function getU6RXIF : TBits_1; inline;
  8980. function getU6TXIF : TBits_1; inline;
  8981. function getw : TBits_32; inline;
  8982. procedure setIC4EIF(thebits : TBits_1); inline;
  8983. procedure setIC5EIF(thebits : TBits_1); inline;
  8984. procedure setPMPEIF(thebits : TBits_1); inline;
  8985. procedure setU1BEIF(thebits : TBits_1); inline;
  8986. procedure setU1BRXIF(thebits : TBits_1); inline;
  8987. procedure setU1BTXIF(thebits : TBits_1); inline;
  8988. procedure setU2BEIF(thebits : TBits_1); inline;
  8989. procedure setU2BRXIF(thebits : TBits_1); inline;
  8990. procedure setU2BTXIF(thebits : TBits_1); inline;
  8991. procedure setU3BEIF(thebits : TBits_1); inline;
  8992. procedure setU3BRXIF(thebits : TBits_1); inline;
  8993. procedure setU3BTXIF(thebits : TBits_1); inline;
  8994. procedure setU4EIF(thebits : TBits_1); inline;
  8995. procedure setU4RXIF(thebits : TBits_1); inline;
  8996. procedure setU4TXIF(thebits : TBits_1); inline;
  8997. procedure setU5EIF(thebits : TBits_1); inline;
  8998. procedure setU5RXIF(thebits : TBits_1); inline;
  8999. procedure setU5TXIF(thebits : TBits_1); inline;
  9000. procedure setU6EIF(thebits : TBits_1); inline;
  9001. procedure setU6RXIF(thebits : TBits_1); inline;
  9002. procedure setU6TXIF(thebits : TBits_1); inline;
  9003. procedure setw(thebits : TBits_32); inline;
  9004. public
  9005. procedure clearIC4EIF; inline;
  9006. procedure clearIC5EIF; inline;
  9007. procedure clearPMPEIF; inline;
  9008. procedure clearU1BEIF; inline;
  9009. procedure clearU1BRXIF; inline;
  9010. procedure clearU1BTXIF; inline;
  9011. procedure clearU2BEIF; inline;
  9012. procedure clearU2BRXIF; inline;
  9013. procedure clearU2BTXIF; inline;
  9014. procedure clearU3BEIF; inline;
  9015. procedure clearU3BRXIF; inline;
  9016. procedure clearU3BTXIF; inline;
  9017. procedure clearU4EIF; inline;
  9018. procedure clearU4RXIF; inline;
  9019. procedure clearU4TXIF; inline;
  9020. procedure clearU5EIF; inline;
  9021. procedure clearU5RXIF; inline;
  9022. procedure clearU5TXIF; inline;
  9023. procedure clearU6EIF; inline;
  9024. procedure clearU6RXIF; inline;
  9025. procedure clearU6TXIF; inline;
  9026. procedure setIC4EIF; inline;
  9027. procedure setIC5EIF; inline;
  9028. procedure setPMPEIF; inline;
  9029. procedure setU1BEIF; inline;
  9030. procedure setU1BRXIF; inline;
  9031. procedure setU1BTXIF; inline;
  9032. procedure setU2BEIF; inline;
  9033. procedure setU2BRXIF; inline;
  9034. procedure setU2BTXIF; inline;
  9035. procedure setU3BEIF; inline;
  9036. procedure setU3BRXIF; inline;
  9037. procedure setU3BTXIF; inline;
  9038. procedure setU4EIF; inline;
  9039. procedure setU4RXIF; inline;
  9040. procedure setU4TXIF; inline;
  9041. procedure setU5EIF; inline;
  9042. procedure setU5RXIF; inline;
  9043. procedure setU5TXIF; inline;
  9044. procedure setU6EIF; inline;
  9045. procedure setU6RXIF; inline;
  9046. procedure setU6TXIF; inline;
  9047. property IC4EIF : TBits_1 read getIC4EIF write setIC4EIF;
  9048. property IC5EIF : TBits_1 read getIC5EIF write setIC5EIF;
  9049. property PMPEIF : TBits_1 read getPMPEIF write setPMPEIF;
  9050. property U1BEIF : TBits_1 read getU1BEIF write setU1BEIF;
  9051. property U1BRXIF : TBits_1 read getU1BRXIF write setU1BRXIF;
  9052. property U1BTXIF : TBits_1 read getU1BTXIF write setU1BTXIF;
  9053. property U2BEIF : TBits_1 read getU2BEIF write setU2BEIF;
  9054. property U2BRXIF : TBits_1 read getU2BRXIF write setU2BRXIF;
  9055. property U2BTXIF : TBits_1 read getU2BTXIF write setU2BTXIF;
  9056. property U3BEIF : TBits_1 read getU3BEIF write setU3BEIF;
  9057. property U3BRXIF : TBits_1 read getU3BRXIF write setU3BRXIF;
  9058. property U3BTXIF : TBits_1 read getU3BTXIF write setU3BTXIF;
  9059. property U4EIF : TBits_1 read getU4EIF write setU4EIF;
  9060. property U4RXIF : TBits_1 read getU4RXIF write setU4RXIF;
  9061. property U4TXIF : TBits_1 read getU4TXIF write setU4TXIF;
  9062. property U5EIF : TBits_1 read getU5EIF write setU5EIF;
  9063. property U5RXIF : TBits_1 read getU5RXIF write setU5RXIF;
  9064. property U5TXIF : TBits_1 read getU5TXIF write setU5TXIF;
  9065. property U6EIF : TBits_1 read getU6EIF write setU6EIF;
  9066. property U6RXIF : TBits_1 read getU6RXIF write setU6RXIF;
  9067. property U6TXIF : TBits_1 read getU6TXIF write setU6TXIF;
  9068. property w : TBits_32 read getw write setw;
  9069. end;
  9070. TINT_IEC0 = record
  9071. private
  9072. function getCS0IE : TBits_1; inline;
  9073. function getCS1IE : TBits_1; inline;
  9074. function getCTIE : TBits_1; inline;
  9075. function getI2C1ABIE : TBits_1; inline;
  9076. function getI2C1AMIE : TBits_1; inline;
  9077. function getI2C1ASIE : TBits_1; inline;
  9078. function getI2C1BIE : TBits_1; inline;
  9079. function getI2C1MIE : TBits_1; inline;
  9080. function getI2C1SIE : TBits_1; inline;
  9081. function getI2C3BIE : TBits_1; inline;
  9082. function getI2C3MIE : TBits_1; inline;
  9083. function getI2C3SIE : TBits_1; inline;
  9084. function getIC1IE : TBits_1; inline;
  9085. function getIC2IE : TBits_1; inline;
  9086. function getIC3IE : TBits_1; inline;
  9087. function getIC4IE : TBits_1; inline;
  9088. function getIC5IE : TBits_1; inline;
  9089. function getINT0IE : TBits_1; inline;
  9090. function getINT1IE : TBits_1; inline;
  9091. function getINT2IE : TBits_1; inline;
  9092. function getINT3IE : TBits_1; inline;
  9093. function getINT4IE : TBits_1; inline;
  9094. function getOC1IE : TBits_1; inline;
  9095. function getOC2IE : TBits_1; inline;
  9096. function getOC3IE : TBits_1; inline;
  9097. function getOC4IE : TBits_1; inline;
  9098. function getOC5IE : TBits_1; inline;
  9099. function getSPI1AEIE : TBits_1; inline;
  9100. function getSPI1ARXIE : TBits_1; inline;
  9101. function getSPI1ATXIE : TBits_1; inline;
  9102. function getSPI1EIE : TBits_1; inline;
  9103. function getSPI1RXIE : TBits_1; inline;
  9104. function getSPI1TXIE : TBits_1; inline;
  9105. function getSPI3EIE : TBits_1; inline;
  9106. function getSPI3RXIE : TBits_1; inline;
  9107. function getSPI3TXIE : TBits_1; inline;
  9108. function getT1IE : TBits_1; inline;
  9109. function getT2IE : TBits_1; inline;
  9110. function getT3IE : TBits_1; inline;
  9111. function getT4IE : TBits_1; inline;
  9112. function getT5IE : TBits_1; inline;
  9113. function getU1AEIE : TBits_1; inline;
  9114. function getU1ARXIE : TBits_1; inline;
  9115. function getU1ATXIE : TBits_1; inline;
  9116. function getU1EIE : TBits_1; inline;
  9117. function getU1RXIE : TBits_1; inline;
  9118. function getU1TXIE : TBits_1; inline;
  9119. function getw : TBits_32; inline;
  9120. procedure setCS0IE(thebits : TBits_1); inline;
  9121. procedure setCS1IE(thebits : TBits_1); inline;
  9122. procedure setCTIE(thebits : TBits_1); inline;
  9123. procedure setI2C1ABIE(thebits : TBits_1); inline;
  9124. procedure setI2C1AMIE(thebits : TBits_1); inline;
  9125. procedure setI2C1ASIE(thebits : TBits_1); inline;
  9126. procedure setI2C1BIE(thebits : TBits_1); inline;
  9127. procedure setI2C1MIE(thebits : TBits_1); inline;
  9128. procedure setI2C1SIE(thebits : TBits_1); inline;
  9129. procedure setI2C3BIE(thebits : TBits_1); inline;
  9130. procedure setI2C3MIE(thebits : TBits_1); inline;
  9131. procedure setI2C3SIE(thebits : TBits_1); inline;
  9132. procedure setIC1IE(thebits : TBits_1); inline;
  9133. procedure setIC2IE(thebits : TBits_1); inline;
  9134. procedure setIC3IE(thebits : TBits_1); inline;
  9135. procedure setIC4IE(thebits : TBits_1); inline;
  9136. procedure setIC5IE(thebits : TBits_1); inline;
  9137. procedure setINT0IE(thebits : TBits_1); inline;
  9138. procedure setINT1IE(thebits : TBits_1); inline;
  9139. procedure setINT2IE(thebits : TBits_1); inline;
  9140. procedure setINT3IE(thebits : TBits_1); inline;
  9141. procedure setINT4IE(thebits : TBits_1); inline;
  9142. procedure setOC1IE(thebits : TBits_1); inline;
  9143. procedure setOC2IE(thebits : TBits_1); inline;
  9144. procedure setOC3IE(thebits : TBits_1); inline;
  9145. procedure setOC4IE(thebits : TBits_1); inline;
  9146. procedure setOC5IE(thebits : TBits_1); inline;
  9147. procedure setSPI1AEIE(thebits : TBits_1); inline;
  9148. procedure setSPI1ARXIE(thebits : TBits_1); inline;
  9149. procedure setSPI1ATXIE(thebits : TBits_1); inline;
  9150. procedure setSPI1EIE(thebits : TBits_1); inline;
  9151. procedure setSPI1RXIE(thebits : TBits_1); inline;
  9152. procedure setSPI1TXIE(thebits : TBits_1); inline;
  9153. procedure setSPI3EIE(thebits : TBits_1); inline;
  9154. procedure setSPI3RXIE(thebits : TBits_1); inline;
  9155. procedure setSPI3TXIE(thebits : TBits_1); inline;
  9156. procedure setT1IE(thebits : TBits_1); inline;
  9157. procedure setT2IE(thebits : TBits_1); inline;
  9158. procedure setT3IE(thebits : TBits_1); inline;
  9159. procedure setT4IE(thebits : TBits_1); inline;
  9160. procedure setT5IE(thebits : TBits_1); inline;
  9161. procedure setU1AEIE(thebits : TBits_1); inline;
  9162. procedure setU1ARXIE(thebits : TBits_1); inline;
  9163. procedure setU1ATXIE(thebits : TBits_1); inline;
  9164. procedure setU1EIE(thebits : TBits_1); inline;
  9165. procedure setU1RXIE(thebits : TBits_1); inline;
  9166. procedure setU1TXIE(thebits : TBits_1); inline;
  9167. procedure setw(thebits : TBits_32); inline;
  9168. public
  9169. procedure clearCS0IE; inline;
  9170. procedure clearCS1IE; inline;
  9171. procedure clearCTIE; inline;
  9172. procedure clearI2C1ABIE; inline;
  9173. procedure clearI2C1AMIE; inline;
  9174. procedure clearI2C1ASIE; inline;
  9175. procedure clearI2C1BIE; inline;
  9176. procedure clearI2C1MIE; inline;
  9177. procedure clearI2C1SIE; inline;
  9178. procedure clearI2C3BIE; inline;
  9179. procedure clearI2C3MIE; inline;
  9180. procedure clearI2C3SIE; inline;
  9181. procedure clearIC1IE; inline;
  9182. procedure clearIC2IE; inline;
  9183. procedure clearIC3IE; inline;
  9184. procedure clearIC4IE; inline;
  9185. procedure clearIC5IE; inline;
  9186. procedure clearINT0IE; inline;
  9187. procedure clearINT1IE; inline;
  9188. procedure clearINT2IE; inline;
  9189. procedure clearINT3IE; inline;
  9190. procedure clearINT4IE; inline;
  9191. procedure clearOC1IE; inline;
  9192. procedure clearOC2IE; inline;
  9193. procedure clearOC3IE; inline;
  9194. procedure clearOC4IE; inline;
  9195. procedure clearOC5IE; inline;
  9196. procedure clearSPI1AEIE; inline;
  9197. procedure clearSPI1ARXIE; inline;
  9198. procedure clearSPI1ATXIE; inline;
  9199. procedure clearSPI1EIE; inline;
  9200. procedure clearSPI1RXIE; inline;
  9201. procedure clearSPI1TXIE; inline;
  9202. procedure clearSPI3EIE; inline;
  9203. procedure clearSPI3RXIE; inline;
  9204. procedure clearSPI3TXIE; inline;
  9205. procedure clearT1IE; inline;
  9206. procedure clearT2IE; inline;
  9207. procedure clearT3IE; inline;
  9208. procedure clearT4IE; inline;
  9209. procedure clearT5IE; inline;
  9210. procedure clearU1AEIE; inline;
  9211. procedure clearU1ARXIE; inline;
  9212. procedure clearU1ATXIE; inline;
  9213. procedure clearU1EIE; inline;
  9214. procedure clearU1RXIE; inline;
  9215. procedure clearU1TXIE; inline;
  9216. procedure setCS0IE; inline;
  9217. procedure setCS1IE; inline;
  9218. procedure setCTIE; inline;
  9219. procedure setI2C1ABIE; inline;
  9220. procedure setI2C1AMIE; inline;
  9221. procedure setI2C1ASIE; inline;
  9222. procedure setI2C1BIE; inline;
  9223. procedure setI2C1MIE; inline;
  9224. procedure setI2C1SIE; inline;
  9225. procedure setI2C3BIE; inline;
  9226. procedure setI2C3MIE; inline;
  9227. procedure setI2C3SIE; inline;
  9228. procedure setIC1IE; inline;
  9229. procedure setIC2IE; inline;
  9230. procedure setIC3IE; inline;
  9231. procedure setIC4IE; inline;
  9232. procedure setIC5IE; inline;
  9233. procedure setINT0IE; inline;
  9234. procedure setINT1IE; inline;
  9235. procedure setINT2IE; inline;
  9236. procedure setINT3IE; inline;
  9237. procedure setINT4IE; inline;
  9238. procedure setOC1IE; inline;
  9239. procedure setOC2IE; inline;
  9240. procedure setOC3IE; inline;
  9241. procedure setOC4IE; inline;
  9242. procedure setOC5IE; inline;
  9243. procedure setSPI1AEIE; inline;
  9244. procedure setSPI1ARXIE; inline;
  9245. procedure setSPI1ATXIE; inline;
  9246. procedure setSPI1EIE; inline;
  9247. procedure setSPI1RXIE; inline;
  9248. procedure setSPI1TXIE; inline;
  9249. procedure setSPI3EIE; inline;
  9250. procedure setSPI3RXIE; inline;
  9251. procedure setSPI3TXIE; inline;
  9252. procedure setT1IE; inline;
  9253. procedure setT2IE; inline;
  9254. procedure setT3IE; inline;
  9255. procedure setT4IE; inline;
  9256. procedure setT5IE; inline;
  9257. procedure setU1AEIE; inline;
  9258. procedure setU1ARXIE; inline;
  9259. procedure setU1ATXIE; inline;
  9260. procedure setU1EIE; inline;
  9261. procedure setU1RXIE; inline;
  9262. procedure setU1TXIE; inline;
  9263. property CS0IE : TBits_1 read getCS0IE write setCS0IE;
  9264. property CS1IE : TBits_1 read getCS1IE write setCS1IE;
  9265. property CTIE : TBits_1 read getCTIE write setCTIE;
  9266. property I2C1ABIE : TBits_1 read getI2C1ABIE write setI2C1ABIE;
  9267. property I2C1AMIE : TBits_1 read getI2C1AMIE write setI2C1AMIE;
  9268. property I2C1ASIE : TBits_1 read getI2C1ASIE write setI2C1ASIE;
  9269. property I2C1BIE : TBits_1 read getI2C1BIE write setI2C1BIE;
  9270. property I2C1MIE : TBits_1 read getI2C1MIE write setI2C1MIE;
  9271. property I2C1SIE : TBits_1 read getI2C1SIE write setI2C1SIE;
  9272. property I2C3BIE : TBits_1 read getI2C3BIE write setI2C3BIE;
  9273. property I2C3MIE : TBits_1 read getI2C3MIE write setI2C3MIE;
  9274. property I2C3SIE : TBits_1 read getI2C3SIE write setI2C3SIE;
  9275. property IC1IE : TBits_1 read getIC1IE write setIC1IE;
  9276. property IC2IE : TBits_1 read getIC2IE write setIC2IE;
  9277. property IC3IE : TBits_1 read getIC3IE write setIC3IE;
  9278. property IC4IE : TBits_1 read getIC4IE write setIC4IE;
  9279. property IC5IE : TBits_1 read getIC5IE write setIC5IE;
  9280. property INT0IE : TBits_1 read getINT0IE write setINT0IE;
  9281. property INT1IE : TBits_1 read getINT1IE write setINT1IE;
  9282. property INT2IE : TBits_1 read getINT2IE write setINT2IE;
  9283. property INT3IE : TBits_1 read getINT3IE write setINT3IE;
  9284. property INT4IE : TBits_1 read getINT4IE write setINT4IE;
  9285. property OC1IE : TBits_1 read getOC1IE write setOC1IE;
  9286. property OC2IE : TBits_1 read getOC2IE write setOC2IE;
  9287. property OC3IE : TBits_1 read getOC3IE write setOC3IE;
  9288. property OC4IE : TBits_1 read getOC4IE write setOC4IE;
  9289. property OC5IE : TBits_1 read getOC5IE write setOC5IE;
  9290. property SPI1AEIE : TBits_1 read getSPI1AEIE write setSPI1AEIE;
  9291. property SPI1ARXIE : TBits_1 read getSPI1ARXIE write setSPI1ARXIE;
  9292. property SPI1ATXIE : TBits_1 read getSPI1ATXIE write setSPI1ATXIE;
  9293. property SPI1EIE : TBits_1 read getSPI1EIE write setSPI1EIE;
  9294. property SPI1RXIE : TBits_1 read getSPI1RXIE write setSPI1RXIE;
  9295. property SPI1TXIE : TBits_1 read getSPI1TXIE write setSPI1TXIE;
  9296. property SPI3EIE : TBits_1 read getSPI3EIE write setSPI3EIE;
  9297. property SPI3RXIE : TBits_1 read getSPI3RXIE write setSPI3RXIE;
  9298. property SPI3TXIE : TBits_1 read getSPI3TXIE write setSPI3TXIE;
  9299. property T1IE : TBits_1 read getT1IE write setT1IE;
  9300. property T2IE : TBits_1 read getT2IE write setT2IE;
  9301. property T3IE : TBits_1 read getT3IE write setT3IE;
  9302. property T4IE : TBits_1 read getT4IE write setT4IE;
  9303. property T5IE : TBits_1 read getT5IE write setT5IE;
  9304. property U1AEIE : TBits_1 read getU1AEIE write setU1AEIE;
  9305. property U1ARXIE : TBits_1 read getU1ARXIE write setU1ARXIE;
  9306. property U1ATXIE : TBits_1 read getU1ATXIE write setU1ATXIE;
  9307. property U1EIE : TBits_1 read getU1EIE write setU1EIE;
  9308. property U1RXIE : TBits_1 read getU1RXIE write setU1RXIE;
  9309. property U1TXIE : TBits_1 read getU1TXIE write setU1TXIE;
  9310. property w : TBits_32 read getw write setw;
  9311. end;
  9312. TINT_IEC1 = record
  9313. private
  9314. function getAD1IE : TBits_1; inline;
  9315. function getCAN1IE : TBits_1; inline;
  9316. function getCMP1IE : TBits_1; inline;
  9317. function getCMP2IE : TBits_1; inline;
  9318. function getCNIE : TBits_1; inline;
  9319. function getDMA0IE : TBits_1; inline;
  9320. function getDMA1IE : TBits_1; inline;
  9321. function getDMA2IE : TBits_1; inline;
  9322. function getDMA3IE : TBits_1; inline;
  9323. function getDMA4IE : TBits_1; inline;
  9324. function getDMA5IE : TBits_1; inline;
  9325. function getDMA6IE : TBits_1; inline;
  9326. function getDMA7IE : TBits_1; inline;
  9327. function getFCEIE : TBits_1; inline;
  9328. function getFSCMIE : TBits_1; inline;
  9329. function getI2C2ABIE : TBits_1; inline;
  9330. function getI2C2AMIE : TBits_1; inline;
  9331. function getI2C2ASIE : TBits_1; inline;
  9332. function getI2C2BIE : TBits_1; inline;
  9333. function getI2C2MIE : TBits_1; inline;
  9334. function getI2C2SIE : TBits_1; inline;
  9335. function getI2C3ABIE : TBits_1; inline;
  9336. function getI2C3AMIE : TBits_1; inline;
  9337. function getI2C3ASIE : TBits_1; inline;
  9338. function getI2C4BIE : TBits_1; inline;
  9339. function getI2C4MIE : TBits_1; inline;
  9340. function getI2C4SIE : TBits_1; inline;
  9341. function getI2C5BIE : TBits_1; inline;
  9342. function getI2C5MIE : TBits_1; inline;
  9343. function getI2C5SIE : TBits_1; inline;
  9344. function getIC1EIE : TBits_1; inline;
  9345. function getIC2EIE : TBits_1; inline;
  9346. function getIC3EIE : TBits_1; inline;
  9347. function getPMPIE : TBits_1; inline;
  9348. function getRTCCIE : TBits_1; inline;
  9349. function getSPI2AEIE : TBits_1; inline;
  9350. function getSPI2ARXIE : TBits_1; inline;
  9351. function getSPI2ATXIE : TBits_1; inline;
  9352. function getSPI2EIE : TBits_1; inline;
  9353. function getSPI2RXIE : TBits_1; inline;
  9354. function getSPI2TXIE : TBits_1; inline;
  9355. function getSPI3AEIE : TBits_1; inline;
  9356. function getSPI3ARXIE : TBits_1; inline;
  9357. function getSPI3ATXIE : TBits_1; inline;
  9358. function getSPI4EIE : TBits_1; inline;
  9359. function getSPI4RXIE : TBits_1; inline;
  9360. function getSPI4TXIE : TBits_1; inline;
  9361. function getU2AEIE : TBits_1; inline;
  9362. function getU2ARXIE : TBits_1; inline;
  9363. function getU2ATXIE : TBits_1; inline;
  9364. function getU2EIE : TBits_1; inline;
  9365. function getU2RXIE : TBits_1; inline;
  9366. function getU2TXIE : TBits_1; inline;
  9367. function getU3AEIE : TBits_1; inline;
  9368. function getU3ARXIE : TBits_1; inline;
  9369. function getU3ATXIE : TBits_1; inline;
  9370. function getU3EIE : TBits_1; inline;
  9371. function getU3RXIE : TBits_1; inline;
  9372. function getU3TXIE : TBits_1; inline;
  9373. function getUSBIE : TBits_1; inline;
  9374. function getw : TBits_32; inline;
  9375. procedure setAD1IE(thebits : TBits_1); inline;
  9376. procedure setCAN1IE(thebits : TBits_1); inline;
  9377. procedure setCMP1IE(thebits : TBits_1); inline;
  9378. procedure setCMP2IE(thebits : TBits_1); inline;
  9379. procedure setCNIE(thebits : TBits_1); inline;
  9380. procedure setDMA0IE(thebits : TBits_1); inline;
  9381. procedure setDMA1IE(thebits : TBits_1); inline;
  9382. procedure setDMA2IE(thebits : TBits_1); inline;
  9383. procedure setDMA3IE(thebits : TBits_1); inline;
  9384. procedure setDMA4IE(thebits : TBits_1); inline;
  9385. procedure setDMA5IE(thebits : TBits_1); inline;
  9386. procedure setDMA6IE(thebits : TBits_1); inline;
  9387. procedure setDMA7IE(thebits : TBits_1); inline;
  9388. procedure setFCEIE(thebits : TBits_1); inline;
  9389. procedure setFSCMIE(thebits : TBits_1); inline;
  9390. procedure setI2C2ABIE(thebits : TBits_1); inline;
  9391. procedure setI2C2AMIE(thebits : TBits_1); inline;
  9392. procedure setI2C2ASIE(thebits : TBits_1); inline;
  9393. procedure setI2C2BIE(thebits : TBits_1); inline;
  9394. procedure setI2C2MIE(thebits : TBits_1); inline;
  9395. procedure setI2C2SIE(thebits : TBits_1); inline;
  9396. procedure setI2C3ABIE(thebits : TBits_1); inline;
  9397. procedure setI2C3AMIE(thebits : TBits_1); inline;
  9398. procedure setI2C3ASIE(thebits : TBits_1); inline;
  9399. procedure setI2C4BIE(thebits : TBits_1); inline;
  9400. procedure setI2C4MIE(thebits : TBits_1); inline;
  9401. procedure setI2C4SIE(thebits : TBits_1); inline;
  9402. procedure setI2C5BIE(thebits : TBits_1); inline;
  9403. procedure setI2C5MIE(thebits : TBits_1); inline;
  9404. procedure setI2C5SIE(thebits : TBits_1); inline;
  9405. procedure setIC1EIE(thebits : TBits_1); inline;
  9406. procedure setIC2EIE(thebits : TBits_1); inline;
  9407. procedure setIC3EIE(thebits : TBits_1); inline;
  9408. procedure setPMPIE(thebits : TBits_1); inline;
  9409. procedure setRTCCIE(thebits : TBits_1); inline;
  9410. procedure setSPI2AEIE(thebits : TBits_1); inline;
  9411. procedure setSPI2ARXIE(thebits : TBits_1); inline;
  9412. procedure setSPI2ATXIE(thebits : TBits_1); inline;
  9413. procedure setSPI2EIE(thebits : TBits_1); inline;
  9414. procedure setSPI2RXIE(thebits : TBits_1); inline;
  9415. procedure setSPI2TXIE(thebits : TBits_1); inline;
  9416. procedure setSPI3AEIE(thebits : TBits_1); inline;
  9417. procedure setSPI3ARXIE(thebits : TBits_1); inline;
  9418. procedure setSPI3ATXIE(thebits : TBits_1); inline;
  9419. procedure setSPI4EIE(thebits : TBits_1); inline;
  9420. procedure setSPI4RXIE(thebits : TBits_1); inline;
  9421. procedure setSPI4TXIE(thebits : TBits_1); inline;
  9422. procedure setU2AEIE(thebits : TBits_1); inline;
  9423. procedure setU2ARXIE(thebits : TBits_1); inline;
  9424. procedure setU2ATXIE(thebits : TBits_1); inline;
  9425. procedure setU2EIE(thebits : TBits_1); inline;
  9426. procedure setU2RXIE(thebits : TBits_1); inline;
  9427. procedure setU2TXIE(thebits : TBits_1); inline;
  9428. procedure setU3AEIE(thebits : TBits_1); inline;
  9429. procedure setU3ARXIE(thebits : TBits_1); inline;
  9430. procedure setU3ATXIE(thebits : TBits_1); inline;
  9431. procedure setU3EIE(thebits : TBits_1); inline;
  9432. procedure setU3RXIE(thebits : TBits_1); inline;
  9433. procedure setU3TXIE(thebits : TBits_1); inline;
  9434. procedure setUSBIE(thebits : TBits_1); inline;
  9435. procedure setw(thebits : TBits_32); inline;
  9436. public
  9437. procedure clearAD1IE; inline;
  9438. procedure clearCAN1IE; inline;
  9439. procedure clearCMP1IE; inline;
  9440. procedure clearCMP2IE; inline;
  9441. procedure clearCNIE; inline;
  9442. procedure clearDMA0IE; inline;
  9443. procedure clearDMA1IE; inline;
  9444. procedure clearDMA2IE; inline;
  9445. procedure clearDMA3IE; inline;
  9446. procedure clearDMA4IE; inline;
  9447. procedure clearDMA5IE; inline;
  9448. procedure clearDMA6IE; inline;
  9449. procedure clearDMA7IE; inline;
  9450. procedure clearFCEIE; inline;
  9451. procedure clearFSCMIE; inline;
  9452. procedure clearI2C2ABIE; inline;
  9453. procedure clearI2C2AMIE; inline;
  9454. procedure clearI2C2ASIE; inline;
  9455. procedure clearI2C2BIE; inline;
  9456. procedure clearI2C2MIE; inline;
  9457. procedure clearI2C2SIE; inline;
  9458. procedure clearI2C3ABIE; inline;
  9459. procedure clearI2C3AMIE; inline;
  9460. procedure clearI2C3ASIE; inline;
  9461. procedure clearI2C4BIE; inline;
  9462. procedure clearI2C4MIE; inline;
  9463. procedure clearI2C4SIE; inline;
  9464. procedure clearI2C5BIE; inline;
  9465. procedure clearI2C5MIE; inline;
  9466. procedure clearI2C5SIE; inline;
  9467. procedure clearIC1EIE; inline;
  9468. procedure clearIC2EIE; inline;
  9469. procedure clearIC3EIE; inline;
  9470. procedure clearPMPIE; inline;
  9471. procedure clearRTCCIE; inline;
  9472. procedure clearSPI2AEIE; inline;
  9473. procedure clearSPI2ARXIE; inline;
  9474. procedure clearSPI2ATXIE; inline;
  9475. procedure clearSPI2EIE; inline;
  9476. procedure clearSPI2RXIE; inline;
  9477. procedure clearSPI2TXIE; inline;
  9478. procedure clearSPI3AEIE; inline;
  9479. procedure clearSPI3ARXIE; inline;
  9480. procedure clearSPI3ATXIE; inline;
  9481. procedure clearSPI4EIE; inline;
  9482. procedure clearSPI4RXIE; inline;
  9483. procedure clearSPI4TXIE; inline;
  9484. procedure clearU2AEIE; inline;
  9485. procedure clearU2ARXIE; inline;
  9486. procedure clearU2ATXIE; inline;
  9487. procedure clearU2EIE; inline;
  9488. procedure clearU2RXIE; inline;
  9489. procedure clearU2TXIE; inline;
  9490. procedure clearU3AEIE; inline;
  9491. procedure clearU3ARXIE; inline;
  9492. procedure clearU3ATXIE; inline;
  9493. procedure clearU3EIE; inline;
  9494. procedure clearU3RXIE; inline;
  9495. procedure clearU3TXIE; inline;
  9496. procedure clearUSBIE; inline;
  9497. procedure setAD1IE; inline;
  9498. procedure setCAN1IE; inline;
  9499. procedure setCMP1IE; inline;
  9500. procedure setCMP2IE; inline;
  9501. procedure setCNIE; inline;
  9502. procedure setDMA0IE; inline;
  9503. procedure setDMA1IE; inline;
  9504. procedure setDMA2IE; inline;
  9505. procedure setDMA3IE; inline;
  9506. procedure setDMA4IE; inline;
  9507. procedure setDMA5IE; inline;
  9508. procedure setDMA6IE; inline;
  9509. procedure setDMA7IE; inline;
  9510. procedure setFCEIE; inline;
  9511. procedure setFSCMIE; inline;
  9512. procedure setI2C2ABIE; inline;
  9513. procedure setI2C2AMIE; inline;
  9514. procedure setI2C2ASIE; inline;
  9515. procedure setI2C2BIE; inline;
  9516. procedure setI2C2MIE; inline;
  9517. procedure setI2C2SIE; inline;
  9518. procedure setI2C3ABIE; inline;
  9519. procedure setI2C3AMIE; inline;
  9520. procedure setI2C3ASIE; inline;
  9521. procedure setI2C4BIE; inline;
  9522. procedure setI2C4MIE; inline;
  9523. procedure setI2C4SIE; inline;
  9524. procedure setI2C5BIE; inline;
  9525. procedure setI2C5MIE; inline;
  9526. procedure setI2C5SIE; inline;
  9527. procedure setIC1EIE; inline;
  9528. procedure setIC2EIE; inline;
  9529. procedure setIC3EIE; inline;
  9530. procedure setPMPIE; inline;
  9531. procedure setRTCCIE; inline;
  9532. procedure setSPI2AEIE; inline;
  9533. procedure setSPI2ARXIE; inline;
  9534. procedure setSPI2ATXIE; inline;
  9535. procedure setSPI2EIE; inline;
  9536. procedure setSPI2RXIE; inline;
  9537. procedure setSPI2TXIE; inline;
  9538. procedure setSPI3AEIE; inline;
  9539. procedure setSPI3ARXIE; inline;
  9540. procedure setSPI3ATXIE; inline;
  9541. procedure setSPI4EIE; inline;
  9542. procedure setSPI4RXIE; inline;
  9543. procedure setSPI4TXIE; inline;
  9544. procedure setU2AEIE; inline;
  9545. procedure setU2ARXIE; inline;
  9546. procedure setU2ATXIE; inline;
  9547. procedure setU2EIE; inline;
  9548. procedure setU2RXIE; inline;
  9549. procedure setU2TXIE; inline;
  9550. procedure setU3AEIE; inline;
  9551. procedure setU3ARXIE; inline;
  9552. procedure setU3ATXIE; inline;
  9553. procedure setU3EIE; inline;
  9554. procedure setU3RXIE; inline;
  9555. procedure setU3TXIE; inline;
  9556. procedure setUSBIE; inline;
  9557. property AD1IE : TBits_1 read getAD1IE write setAD1IE;
  9558. property CAN1IE : TBits_1 read getCAN1IE write setCAN1IE;
  9559. property CMP1IE : TBits_1 read getCMP1IE write setCMP1IE;
  9560. property CMP2IE : TBits_1 read getCMP2IE write setCMP2IE;
  9561. property CNIE : TBits_1 read getCNIE write setCNIE;
  9562. property DMA0IE : TBits_1 read getDMA0IE write setDMA0IE;
  9563. property DMA1IE : TBits_1 read getDMA1IE write setDMA1IE;
  9564. property DMA2IE : TBits_1 read getDMA2IE write setDMA2IE;
  9565. property DMA3IE : TBits_1 read getDMA3IE write setDMA3IE;
  9566. property DMA4IE : TBits_1 read getDMA4IE write setDMA4IE;
  9567. property DMA5IE : TBits_1 read getDMA5IE write setDMA5IE;
  9568. property DMA6IE : TBits_1 read getDMA6IE write setDMA6IE;
  9569. property DMA7IE : TBits_1 read getDMA7IE write setDMA7IE;
  9570. property FCEIE : TBits_1 read getFCEIE write setFCEIE;
  9571. property FSCMIE : TBits_1 read getFSCMIE write setFSCMIE;
  9572. property I2C2ABIE : TBits_1 read getI2C2ABIE write setI2C2ABIE;
  9573. property I2C2AMIE : TBits_1 read getI2C2AMIE write setI2C2AMIE;
  9574. property I2C2ASIE : TBits_1 read getI2C2ASIE write setI2C2ASIE;
  9575. property I2C2BIE : TBits_1 read getI2C2BIE write setI2C2BIE;
  9576. property I2C2MIE : TBits_1 read getI2C2MIE write setI2C2MIE;
  9577. property I2C2SIE : TBits_1 read getI2C2SIE write setI2C2SIE;
  9578. property I2C3ABIE : TBits_1 read getI2C3ABIE write setI2C3ABIE;
  9579. property I2C3AMIE : TBits_1 read getI2C3AMIE write setI2C3AMIE;
  9580. property I2C3ASIE : TBits_1 read getI2C3ASIE write setI2C3ASIE;
  9581. property I2C4BIE : TBits_1 read getI2C4BIE write setI2C4BIE;
  9582. property I2C4MIE : TBits_1 read getI2C4MIE write setI2C4MIE;
  9583. property I2C4SIE : TBits_1 read getI2C4SIE write setI2C4SIE;
  9584. property I2C5BIE : TBits_1 read getI2C5BIE write setI2C5BIE;
  9585. property I2C5MIE : TBits_1 read getI2C5MIE write setI2C5MIE;
  9586. property I2C5SIE : TBits_1 read getI2C5SIE write setI2C5SIE;
  9587. property IC1EIE : TBits_1 read getIC1EIE write setIC1EIE;
  9588. property IC2EIE : TBits_1 read getIC2EIE write setIC2EIE;
  9589. property IC3EIE : TBits_1 read getIC3EIE write setIC3EIE;
  9590. property PMPIE : TBits_1 read getPMPIE write setPMPIE;
  9591. property RTCCIE : TBits_1 read getRTCCIE write setRTCCIE;
  9592. property SPI2AEIE : TBits_1 read getSPI2AEIE write setSPI2AEIE;
  9593. property SPI2ARXIE : TBits_1 read getSPI2ARXIE write setSPI2ARXIE;
  9594. property SPI2ATXIE : TBits_1 read getSPI2ATXIE write setSPI2ATXIE;
  9595. property SPI2EIE : TBits_1 read getSPI2EIE write setSPI2EIE;
  9596. property SPI2RXIE : TBits_1 read getSPI2RXIE write setSPI2RXIE;
  9597. property SPI2TXIE : TBits_1 read getSPI2TXIE write setSPI2TXIE;
  9598. property SPI3AEIE : TBits_1 read getSPI3AEIE write setSPI3AEIE;
  9599. property SPI3ARXIE : TBits_1 read getSPI3ARXIE write setSPI3ARXIE;
  9600. property SPI3ATXIE : TBits_1 read getSPI3ATXIE write setSPI3ATXIE;
  9601. property SPI4EIE : TBits_1 read getSPI4EIE write setSPI4EIE;
  9602. property SPI4RXIE : TBits_1 read getSPI4RXIE write setSPI4RXIE;
  9603. property SPI4TXIE : TBits_1 read getSPI4TXIE write setSPI4TXIE;
  9604. property U2AEIE : TBits_1 read getU2AEIE write setU2AEIE;
  9605. property U2ARXIE : TBits_1 read getU2ARXIE write setU2ARXIE;
  9606. property U2ATXIE : TBits_1 read getU2ATXIE write setU2ATXIE;
  9607. property U2EIE : TBits_1 read getU2EIE write setU2EIE;
  9608. property U2RXIE : TBits_1 read getU2RXIE write setU2RXIE;
  9609. property U2TXIE : TBits_1 read getU2TXIE write setU2TXIE;
  9610. property U3AEIE : TBits_1 read getU3AEIE write setU3AEIE;
  9611. property U3ARXIE : TBits_1 read getU3ARXIE write setU3ARXIE;
  9612. property U3ATXIE : TBits_1 read getU3ATXIE write setU3ATXIE;
  9613. property U3EIE : TBits_1 read getU3EIE write setU3EIE;
  9614. property U3RXIE : TBits_1 read getU3RXIE write setU3RXIE;
  9615. property U3TXIE : TBits_1 read getU3TXIE write setU3TXIE;
  9616. property USBIE : TBits_1 read getUSBIE write setUSBIE;
  9617. property w : TBits_32 read getw write setw;
  9618. end;
  9619. TINT_IEC2 = record
  9620. private
  9621. function getIC4EIE : TBits_1; inline;
  9622. function getIC5EIE : TBits_1; inline;
  9623. function getPMPEIE : TBits_1; inline;
  9624. function getU1BEIE : TBits_1; inline;
  9625. function getU1BRXIE : TBits_1; inline;
  9626. function getU1BTXIE : TBits_1; inline;
  9627. function getU2BEIE : TBits_1; inline;
  9628. function getU2BRXIE : TBits_1; inline;
  9629. function getU2BTXIE : TBits_1; inline;
  9630. function getU3BEIE : TBits_1; inline;
  9631. function getU3BRXIE : TBits_1; inline;
  9632. function getU3BTXIE : TBits_1; inline;
  9633. function getU4EIE : TBits_1; inline;
  9634. function getU4RXIE : TBits_1; inline;
  9635. function getU4TXIE : TBits_1; inline;
  9636. function getU5EIE : TBits_1; inline;
  9637. function getU5RXIE : TBits_1; inline;
  9638. function getU5TXIE : TBits_1; inline;
  9639. function getU6EIE : TBits_1; inline;
  9640. function getU6RXIE : TBits_1; inline;
  9641. function getU6TXIE : TBits_1; inline;
  9642. function getw : TBits_32; inline;
  9643. procedure setIC4EIE(thebits : TBits_1); inline;
  9644. procedure setIC5EIE(thebits : TBits_1); inline;
  9645. procedure setPMPEIE(thebits : TBits_1); inline;
  9646. procedure setU1BEIE(thebits : TBits_1); inline;
  9647. procedure setU1BRXIE(thebits : TBits_1); inline;
  9648. procedure setU1BTXIE(thebits : TBits_1); inline;
  9649. procedure setU2BEIE(thebits : TBits_1); inline;
  9650. procedure setU2BRXIE(thebits : TBits_1); inline;
  9651. procedure setU2BTXIE(thebits : TBits_1); inline;
  9652. procedure setU3BEIE(thebits : TBits_1); inline;
  9653. procedure setU3BRXIE(thebits : TBits_1); inline;
  9654. procedure setU3BTXIE(thebits : TBits_1); inline;
  9655. procedure setU4EIE(thebits : TBits_1); inline;
  9656. procedure setU4RXIE(thebits : TBits_1); inline;
  9657. procedure setU4TXIE(thebits : TBits_1); inline;
  9658. procedure setU5EIE(thebits : TBits_1); inline;
  9659. procedure setU5RXIE(thebits : TBits_1); inline;
  9660. procedure setU5TXIE(thebits : TBits_1); inline;
  9661. procedure setU6EIE(thebits : TBits_1); inline;
  9662. procedure setU6RXIE(thebits : TBits_1); inline;
  9663. procedure setU6TXIE(thebits : TBits_1); inline;
  9664. procedure setw(thebits : TBits_32); inline;
  9665. public
  9666. procedure clearIC4EIE; inline;
  9667. procedure clearIC5EIE; inline;
  9668. procedure clearPMPEIE; inline;
  9669. procedure clearU1BEIE; inline;
  9670. procedure clearU1BRXIE; inline;
  9671. procedure clearU1BTXIE; inline;
  9672. procedure clearU2BEIE; inline;
  9673. procedure clearU2BRXIE; inline;
  9674. procedure clearU2BTXIE; inline;
  9675. procedure clearU3BEIE; inline;
  9676. procedure clearU3BRXIE; inline;
  9677. procedure clearU3BTXIE; inline;
  9678. procedure clearU4EIE; inline;
  9679. procedure clearU4RXIE; inline;
  9680. procedure clearU4TXIE; inline;
  9681. procedure clearU5EIE; inline;
  9682. procedure clearU5RXIE; inline;
  9683. procedure clearU5TXIE; inline;
  9684. procedure clearU6EIE; inline;
  9685. procedure clearU6RXIE; inline;
  9686. procedure clearU6TXIE; inline;
  9687. procedure setIC4EIE; inline;
  9688. procedure setIC5EIE; inline;
  9689. procedure setPMPEIE; inline;
  9690. procedure setU1BEIE; inline;
  9691. procedure setU1BRXIE; inline;
  9692. procedure setU1BTXIE; inline;
  9693. procedure setU2BEIE; inline;
  9694. procedure setU2BRXIE; inline;
  9695. procedure setU2BTXIE; inline;
  9696. procedure setU3BEIE; inline;
  9697. procedure setU3BRXIE; inline;
  9698. procedure setU3BTXIE; inline;
  9699. procedure setU4EIE; inline;
  9700. procedure setU4RXIE; inline;
  9701. procedure setU4TXIE; inline;
  9702. procedure setU5EIE; inline;
  9703. procedure setU5RXIE; inline;
  9704. procedure setU5TXIE; inline;
  9705. procedure setU6EIE; inline;
  9706. procedure setU6RXIE; inline;
  9707. procedure setU6TXIE; inline;
  9708. property IC4EIE : TBits_1 read getIC4EIE write setIC4EIE;
  9709. property IC5EIE : TBits_1 read getIC5EIE write setIC5EIE;
  9710. property PMPEIE : TBits_1 read getPMPEIE write setPMPEIE;
  9711. property U1BEIE : TBits_1 read getU1BEIE write setU1BEIE;
  9712. property U1BRXIE : TBits_1 read getU1BRXIE write setU1BRXIE;
  9713. property U1BTXIE : TBits_1 read getU1BTXIE write setU1BTXIE;
  9714. property U2BEIE : TBits_1 read getU2BEIE write setU2BEIE;
  9715. property U2BRXIE : TBits_1 read getU2BRXIE write setU2BRXIE;
  9716. property U2BTXIE : TBits_1 read getU2BTXIE write setU2BTXIE;
  9717. property U3BEIE : TBits_1 read getU3BEIE write setU3BEIE;
  9718. property U3BRXIE : TBits_1 read getU3BRXIE write setU3BRXIE;
  9719. property U3BTXIE : TBits_1 read getU3BTXIE write setU3BTXIE;
  9720. property U4EIE : TBits_1 read getU4EIE write setU4EIE;
  9721. property U4RXIE : TBits_1 read getU4RXIE write setU4RXIE;
  9722. property U4TXIE : TBits_1 read getU4TXIE write setU4TXIE;
  9723. property U5EIE : TBits_1 read getU5EIE write setU5EIE;
  9724. property U5RXIE : TBits_1 read getU5RXIE write setU5RXIE;
  9725. property U5TXIE : TBits_1 read getU5TXIE write setU5TXIE;
  9726. property U6EIE : TBits_1 read getU6EIE write setU6EIE;
  9727. property U6RXIE : TBits_1 read getU6RXIE write setU6RXIE;
  9728. property U6TXIE : TBits_1 read getU6TXIE write setU6TXIE;
  9729. property w : TBits_32 read getw write setw;
  9730. end;
  9731. TINT_IPC0 = record
  9732. private
  9733. function getCS0IP : TBits_3; inline;
  9734. function getCS0IS : TBits_2; inline;
  9735. function getCS1IP : TBits_3; inline;
  9736. function getCS1IS : TBits_2; inline;
  9737. function getCTIP : TBits_3; inline;
  9738. function getCTIS : TBits_2; inline;
  9739. function getINT0IP : TBits_3; inline;
  9740. function getINT0IS : TBits_2; inline;
  9741. function getw : TBits_32; inline;
  9742. procedure setCS0IP(thebits : TBits_3); inline;
  9743. procedure setCS0IS(thebits : TBits_2); inline;
  9744. procedure setCS1IP(thebits : TBits_3); inline;
  9745. procedure setCS1IS(thebits : TBits_2); inline;
  9746. procedure setCTIP(thebits : TBits_3); inline;
  9747. procedure setCTIS(thebits : TBits_2); inline;
  9748. procedure setINT0IP(thebits : TBits_3); inline;
  9749. procedure setINT0IS(thebits : TBits_2); inline;
  9750. procedure setw(thebits : TBits_32); inline;
  9751. public
  9752. property CS0IP : TBits_3 read getCS0IP write setCS0IP;
  9753. property CS0IS : TBits_2 read getCS0IS write setCS0IS;
  9754. property CS1IP : TBits_3 read getCS1IP write setCS1IP;
  9755. property CS1IS : TBits_2 read getCS1IS write setCS1IS;
  9756. property CTIP : TBits_3 read getCTIP write setCTIP;
  9757. property CTIS : TBits_2 read getCTIS write setCTIS;
  9758. property INT0IP : TBits_3 read getINT0IP write setINT0IP;
  9759. property INT0IS : TBits_2 read getINT0IS write setINT0IS;
  9760. property w : TBits_32 read getw write setw;
  9761. end;
  9762. TINT_IPC1 = record
  9763. private
  9764. function getIC1IP : TBits_3; inline;
  9765. function getIC1IS : TBits_2; inline;
  9766. function getINT1IP : TBits_3; inline;
  9767. function getINT1IS : TBits_2; inline;
  9768. function getOC1IP : TBits_3; inline;
  9769. function getOC1IS : TBits_2; inline;
  9770. function getT1IP : TBits_3; inline;
  9771. function getT1IS : TBits_2; inline;
  9772. function getw : TBits_32; inline;
  9773. procedure setIC1IP(thebits : TBits_3); inline;
  9774. procedure setIC1IS(thebits : TBits_2); inline;
  9775. procedure setINT1IP(thebits : TBits_3); inline;
  9776. procedure setINT1IS(thebits : TBits_2); inline;
  9777. procedure setOC1IP(thebits : TBits_3); inline;
  9778. procedure setOC1IS(thebits : TBits_2); inline;
  9779. procedure setT1IP(thebits : TBits_3); inline;
  9780. procedure setT1IS(thebits : TBits_2); inline;
  9781. procedure setw(thebits : TBits_32); inline;
  9782. public
  9783. property IC1IP : TBits_3 read getIC1IP write setIC1IP;
  9784. property IC1IS : TBits_2 read getIC1IS write setIC1IS;
  9785. property INT1IP : TBits_3 read getINT1IP write setINT1IP;
  9786. property INT1IS : TBits_2 read getINT1IS write setINT1IS;
  9787. property OC1IP : TBits_3 read getOC1IP write setOC1IP;
  9788. property OC1IS : TBits_2 read getOC1IS write setOC1IS;
  9789. property T1IP : TBits_3 read getT1IP write setT1IP;
  9790. property T1IS : TBits_2 read getT1IS write setT1IS;
  9791. property w : TBits_32 read getw write setw;
  9792. end;
  9793. TINT_IPC2 = record
  9794. private
  9795. function getIC2IP : TBits_3; inline;
  9796. function getIC2IS : TBits_2; inline;
  9797. function getINT2IP : TBits_3; inline;
  9798. function getINT2IS : TBits_2; inline;
  9799. function getOC2IP : TBits_3; inline;
  9800. function getOC2IS : TBits_2; inline;
  9801. function getT2IP : TBits_3; inline;
  9802. function getT2IS : TBits_2; inline;
  9803. function getw : TBits_32; inline;
  9804. procedure setIC2IP(thebits : TBits_3); inline;
  9805. procedure setIC2IS(thebits : TBits_2); inline;
  9806. procedure setINT2IP(thebits : TBits_3); inline;
  9807. procedure setINT2IS(thebits : TBits_2); inline;
  9808. procedure setOC2IP(thebits : TBits_3); inline;
  9809. procedure setOC2IS(thebits : TBits_2); inline;
  9810. procedure setT2IP(thebits : TBits_3); inline;
  9811. procedure setT2IS(thebits : TBits_2); inline;
  9812. procedure setw(thebits : TBits_32); inline;
  9813. public
  9814. property IC2IP : TBits_3 read getIC2IP write setIC2IP;
  9815. property IC2IS : TBits_2 read getIC2IS write setIC2IS;
  9816. property INT2IP : TBits_3 read getINT2IP write setINT2IP;
  9817. property INT2IS : TBits_2 read getINT2IS write setINT2IS;
  9818. property OC2IP : TBits_3 read getOC2IP write setOC2IP;
  9819. property OC2IS : TBits_2 read getOC2IS write setOC2IS;
  9820. property T2IP : TBits_3 read getT2IP write setT2IP;
  9821. property T2IS : TBits_2 read getT2IS write setT2IS;
  9822. property w : TBits_32 read getw write setw;
  9823. end;
  9824. TINT_IPC3 = record
  9825. private
  9826. function getIC3IP : TBits_3; inline;
  9827. function getIC3IS : TBits_2; inline;
  9828. function getINT3IP : TBits_3; inline;
  9829. function getINT3IS : TBits_2; inline;
  9830. function getOC3IP : TBits_3; inline;
  9831. function getOC3IS : TBits_2; inline;
  9832. function getT3IP : TBits_3; inline;
  9833. function getT3IS : TBits_2; inline;
  9834. function getw : TBits_32; inline;
  9835. procedure setIC3IP(thebits : TBits_3); inline;
  9836. procedure setIC3IS(thebits : TBits_2); inline;
  9837. procedure setINT3IP(thebits : TBits_3); inline;
  9838. procedure setINT3IS(thebits : TBits_2); inline;
  9839. procedure setOC3IP(thebits : TBits_3); inline;
  9840. procedure setOC3IS(thebits : TBits_2); inline;
  9841. procedure setT3IP(thebits : TBits_3); inline;
  9842. procedure setT3IS(thebits : TBits_2); inline;
  9843. procedure setw(thebits : TBits_32); inline;
  9844. public
  9845. property IC3IP : TBits_3 read getIC3IP write setIC3IP;
  9846. property IC3IS : TBits_2 read getIC3IS write setIC3IS;
  9847. property INT3IP : TBits_3 read getINT3IP write setINT3IP;
  9848. property INT3IS : TBits_2 read getINT3IS write setINT3IS;
  9849. property OC3IP : TBits_3 read getOC3IP write setOC3IP;
  9850. property OC3IS : TBits_2 read getOC3IS write setOC3IS;
  9851. property T3IP : TBits_3 read getT3IP write setT3IP;
  9852. property T3IS : TBits_2 read getT3IS write setT3IS;
  9853. property w : TBits_32 read getw write setw;
  9854. end;
  9855. TINT_IPC4 = record
  9856. private
  9857. function getIC4IP : TBits_3; inline;
  9858. function getIC4IS : TBits_2; inline;
  9859. function getINT4IP : TBits_3; inline;
  9860. function getINT4IS : TBits_2; inline;
  9861. function getOC4IP : TBits_3; inline;
  9862. function getOC4IS : TBits_2; inline;
  9863. function getT4IP : TBits_3; inline;
  9864. function getT4IS : TBits_2; inline;
  9865. function getw : TBits_32; inline;
  9866. procedure setIC4IP(thebits : TBits_3); inline;
  9867. procedure setIC4IS(thebits : TBits_2); inline;
  9868. procedure setINT4IP(thebits : TBits_3); inline;
  9869. procedure setINT4IS(thebits : TBits_2); inline;
  9870. procedure setOC4IP(thebits : TBits_3); inline;
  9871. procedure setOC4IS(thebits : TBits_2); inline;
  9872. procedure setT4IP(thebits : TBits_3); inline;
  9873. procedure setT4IS(thebits : TBits_2); inline;
  9874. procedure setw(thebits : TBits_32); inline;
  9875. public
  9876. property IC4IP : TBits_3 read getIC4IP write setIC4IP;
  9877. property IC4IS : TBits_2 read getIC4IS write setIC4IS;
  9878. property INT4IP : TBits_3 read getINT4IP write setINT4IP;
  9879. property INT4IS : TBits_2 read getINT4IS write setINT4IS;
  9880. property OC4IP : TBits_3 read getOC4IP write setOC4IP;
  9881. property OC4IS : TBits_2 read getOC4IS write setOC4IS;
  9882. property T4IP : TBits_3 read getT4IP write setT4IP;
  9883. property T4IS : TBits_2 read getT4IS write setT4IS;
  9884. property w : TBits_32 read getw write setw;
  9885. end;
  9886. TINT_IPC5 = record
  9887. private
  9888. function getIC5IP : TBits_3; inline;
  9889. function getIC5IS : TBits_2; inline;
  9890. function getOC5IP : TBits_3; inline;
  9891. function getOC5IS : TBits_2; inline;
  9892. function getSPI1IP : TBits_3; inline;
  9893. function getSPI1IS : TBits_2; inline;
  9894. function getT5IP : TBits_3; inline;
  9895. function getT5IS : TBits_2; inline;
  9896. function getw : TBits_32; inline;
  9897. procedure setIC5IP(thebits : TBits_3); inline;
  9898. procedure setIC5IS(thebits : TBits_2); inline;
  9899. procedure setOC5IP(thebits : TBits_3); inline;
  9900. procedure setOC5IS(thebits : TBits_2); inline;
  9901. procedure setSPI1IP(thebits : TBits_3); inline;
  9902. procedure setSPI1IS(thebits : TBits_2); inline;
  9903. procedure setT5IP(thebits : TBits_3); inline;
  9904. procedure setT5IS(thebits : TBits_2); inline;
  9905. procedure setw(thebits : TBits_32); inline;
  9906. public
  9907. property IC5IP : TBits_3 read getIC5IP write setIC5IP;
  9908. property IC5IS : TBits_2 read getIC5IS write setIC5IS;
  9909. property OC5IP : TBits_3 read getOC5IP write setOC5IP;
  9910. property OC5IS : TBits_2 read getOC5IS write setOC5IS;
  9911. property SPI1IP : TBits_3 read getSPI1IP write setSPI1IP;
  9912. property SPI1IS : TBits_2 read getSPI1IS write setSPI1IS;
  9913. property T5IP : TBits_3 read getT5IP write setT5IP;
  9914. property T5IS : TBits_2 read getT5IS write setT5IS;
  9915. property w : TBits_32 read getw write setw;
  9916. end;
  9917. TINT_IPC6 = record
  9918. private
  9919. function getAD1IP : TBits_3; inline;
  9920. function getAD1IS : TBits_2; inline;
  9921. function getCNIP : TBits_3; inline;
  9922. function getCNIS : TBits_2; inline;
  9923. function getI2C1AIP : TBits_3; inline;
  9924. function getI2C1AIS : TBits_2; inline;
  9925. function getI2C1IP : TBits_3; inline;
  9926. function getI2C1IS : TBits_2; inline;
  9927. function getI2C3IP : TBits_3; inline;
  9928. function getI2C3IS : TBits_2; inline;
  9929. function getSPI1AIP : TBits_3; inline;
  9930. function getSPI1AIS : TBits_2; inline;
  9931. function getSPI3IP : TBits_3; inline;
  9932. function getSPI3IS : TBits_2; inline;
  9933. function getU1AIP : TBits_3; inline;
  9934. function getU1AIS : TBits_2; inline;
  9935. function getU1IP : TBits_3; inline;
  9936. function getU1IS : TBits_2; inline;
  9937. function getw : TBits_32; inline;
  9938. procedure setAD1IP(thebits : TBits_3); inline;
  9939. procedure setAD1IS(thebits : TBits_2); inline;
  9940. procedure setCNIP(thebits : TBits_3); inline;
  9941. procedure setCNIS(thebits : TBits_2); inline;
  9942. procedure setI2C1AIP(thebits : TBits_3); inline;
  9943. procedure setI2C1AIS(thebits : TBits_2); inline;
  9944. procedure setI2C1IP(thebits : TBits_3); inline;
  9945. procedure setI2C1IS(thebits : TBits_2); inline;
  9946. procedure setI2C3IP(thebits : TBits_3); inline;
  9947. procedure setI2C3IS(thebits : TBits_2); inline;
  9948. procedure setSPI1AIP(thebits : TBits_3); inline;
  9949. procedure setSPI1AIS(thebits : TBits_2); inline;
  9950. procedure setSPI3IP(thebits : TBits_3); inline;
  9951. procedure setSPI3IS(thebits : TBits_2); inline;
  9952. procedure setU1AIP(thebits : TBits_3); inline;
  9953. procedure setU1AIS(thebits : TBits_2); inline;
  9954. procedure setU1IP(thebits : TBits_3); inline;
  9955. procedure setU1IS(thebits : TBits_2); inline;
  9956. procedure setw(thebits : TBits_32); inline;
  9957. public
  9958. property AD1IP : TBits_3 read getAD1IP write setAD1IP;
  9959. property AD1IS : TBits_2 read getAD1IS write setAD1IS;
  9960. property CNIP : TBits_3 read getCNIP write setCNIP;
  9961. property CNIS : TBits_2 read getCNIS write setCNIS;
  9962. property I2C1AIP : TBits_3 read getI2C1AIP write setI2C1AIP;
  9963. property I2C1AIS : TBits_2 read getI2C1AIS write setI2C1AIS;
  9964. property I2C1IP : TBits_3 read getI2C1IP write setI2C1IP;
  9965. property I2C1IS : TBits_2 read getI2C1IS write setI2C1IS;
  9966. property I2C3IP : TBits_3 read getI2C3IP write setI2C3IP;
  9967. property I2C3IS : TBits_2 read getI2C3IS write setI2C3IS;
  9968. property SPI1AIP : TBits_3 read getSPI1AIP write setSPI1AIP;
  9969. property SPI1AIS : TBits_2 read getSPI1AIS write setSPI1AIS;
  9970. property SPI3IP : TBits_3 read getSPI3IP write setSPI3IP;
  9971. property SPI3IS : TBits_2 read getSPI3IS write setSPI3IS;
  9972. property U1AIP : TBits_3 read getU1AIP write setU1AIP;
  9973. property U1AIS : TBits_2 read getU1AIS write setU1AIS;
  9974. property U1IP : TBits_3 read getU1IP write setU1IP;
  9975. property U1IS : TBits_2 read getU1IS write setU1IS;
  9976. property w : TBits_32 read getw write setw;
  9977. end;
  9978. TINT_IPC7 = record
  9979. private
  9980. function getCMP1IP : TBits_3; inline;
  9981. function getCMP1IS : TBits_2; inline;
  9982. function getCMP2IP : TBits_3; inline;
  9983. function getCMP2IS : TBits_2; inline;
  9984. function getI2C2AIP : TBits_3; inline;
  9985. function getI2C2AIS : TBits_2; inline;
  9986. function getI2C4IP : TBits_3; inline;
  9987. function getI2C4IS : TBits_2; inline;
  9988. function getPMPIP : TBits_3; inline;
  9989. function getPMPIS : TBits_2; inline;
  9990. function getSPI2AIP : TBits_3; inline;
  9991. function getSPI2AIS : TBits_2; inline;
  9992. function getSPI2IP : TBits_3; inline;
  9993. function getSPI2IS : TBits_2; inline;
  9994. function getU2AIP : TBits_3; inline;
  9995. function getU2AIS : TBits_2; inline;
  9996. function getU3IP : TBits_3; inline;
  9997. function getU3IS : TBits_2; inline;
  9998. function getw : TBits_32; inline;
  9999. procedure setCMP1IP(thebits : TBits_3); inline;
  10000. procedure setCMP1IS(thebits : TBits_2); inline;
  10001. procedure setCMP2IP(thebits : TBits_3); inline;
  10002. procedure setCMP2IS(thebits : TBits_2); inline;
  10003. procedure setI2C2AIP(thebits : TBits_3); inline;
  10004. procedure setI2C2AIS(thebits : TBits_2); inline;
  10005. procedure setI2C4IP(thebits : TBits_3); inline;
  10006. procedure setI2C4IS(thebits : TBits_2); inline;
  10007. procedure setPMPIP(thebits : TBits_3); inline;
  10008. procedure setPMPIS(thebits : TBits_2); inline;
  10009. procedure setSPI2AIP(thebits : TBits_3); inline;
  10010. procedure setSPI2AIS(thebits : TBits_2); inline;
  10011. procedure setSPI2IP(thebits : TBits_3); inline;
  10012. procedure setSPI2IS(thebits : TBits_2); inline;
  10013. procedure setU2AIP(thebits : TBits_3); inline;
  10014. procedure setU2AIS(thebits : TBits_2); inline;
  10015. procedure setU3IP(thebits : TBits_3); inline;
  10016. procedure setU3IS(thebits : TBits_2); inline;
  10017. procedure setw(thebits : TBits_32); inline;
  10018. public
  10019. property CMP1IP : TBits_3 read getCMP1IP write setCMP1IP;
  10020. property CMP1IS : TBits_2 read getCMP1IS write setCMP1IS;
  10021. property CMP2IP : TBits_3 read getCMP2IP write setCMP2IP;
  10022. property CMP2IS : TBits_2 read getCMP2IS write setCMP2IS;
  10023. property I2C2AIP : TBits_3 read getI2C2AIP write setI2C2AIP;
  10024. property I2C2AIS : TBits_2 read getI2C2AIS write setI2C2AIS;
  10025. property I2C4IP : TBits_3 read getI2C4IP write setI2C4IP;
  10026. property I2C4IS : TBits_2 read getI2C4IS write setI2C4IS;
  10027. property PMPIP : TBits_3 read getPMPIP write setPMPIP;
  10028. property PMPIS : TBits_2 read getPMPIS write setPMPIS;
  10029. property SPI2AIP : TBits_3 read getSPI2AIP write setSPI2AIP;
  10030. property SPI2AIS : TBits_2 read getSPI2AIS write setSPI2AIS;
  10031. property SPI2IP : TBits_3 read getSPI2IP write setSPI2IP;
  10032. property SPI2IS : TBits_2 read getSPI2IS write setSPI2IS;
  10033. property U2AIP : TBits_3 read getU2AIP write setU2AIP;
  10034. property U2AIS : TBits_2 read getU2AIS write setU2AIS;
  10035. property U3IP : TBits_3 read getU3IP write setU3IP;
  10036. property U3IS : TBits_2 read getU3IS write setU3IS;
  10037. property w : TBits_32 read getw write setw;
  10038. end;
  10039. TINT_IPC8 = record
  10040. private
  10041. function getFSCMIP : TBits_3; inline;
  10042. function getFSCMIS : TBits_2; inline;
  10043. function getI2C2IP : TBits_3; inline;
  10044. function getI2C2IS : TBits_2; inline;
  10045. function getI2C3AIP : TBits_3; inline;
  10046. function getI2C3AIS : TBits_2; inline;
  10047. function getI2C5IP : TBits_3; inline;
  10048. function getI2C5IS : TBits_2; inline;
  10049. function getRTCCIP : TBits_3; inline;
  10050. function getRTCCIS : TBits_2; inline;
  10051. function getSPI3AIP : TBits_3; inline;
  10052. function getSPI3AIS : TBits_2; inline;
  10053. function getSPI4IP : TBits_3; inline;
  10054. function getSPI4IS : TBits_2; inline;
  10055. function getU2IP : TBits_3; inline;
  10056. function getU2IS : TBits_2; inline;
  10057. function getU3AIP : TBits_3; inline;
  10058. function getU3AIS : TBits_2; inline;
  10059. function getw : TBits_32; inline;
  10060. procedure setFSCMIP(thebits : TBits_3); inline;
  10061. procedure setFSCMIS(thebits : TBits_2); inline;
  10062. procedure setI2C2IP(thebits : TBits_3); inline;
  10063. procedure setI2C2IS(thebits : TBits_2); inline;
  10064. procedure setI2C3AIP(thebits : TBits_3); inline;
  10065. procedure setI2C3AIS(thebits : TBits_2); inline;
  10066. procedure setI2C5IP(thebits : TBits_3); inline;
  10067. procedure setI2C5IS(thebits : TBits_2); inline;
  10068. procedure setRTCCIP(thebits : TBits_3); inline;
  10069. procedure setRTCCIS(thebits : TBits_2); inline;
  10070. procedure setSPI3AIP(thebits : TBits_3); inline;
  10071. procedure setSPI3AIS(thebits : TBits_2); inline;
  10072. procedure setSPI4IP(thebits : TBits_3); inline;
  10073. procedure setSPI4IS(thebits : TBits_2); inline;
  10074. procedure setU2IP(thebits : TBits_3); inline;
  10075. procedure setU2IS(thebits : TBits_2); inline;
  10076. procedure setU3AIP(thebits : TBits_3); inline;
  10077. procedure setU3AIS(thebits : TBits_2); inline;
  10078. procedure setw(thebits : TBits_32); inline;
  10079. public
  10080. property FSCMIP : TBits_3 read getFSCMIP write setFSCMIP;
  10081. property FSCMIS : TBits_2 read getFSCMIS write setFSCMIS;
  10082. property I2C2IP : TBits_3 read getI2C2IP write setI2C2IP;
  10083. property I2C2IS : TBits_2 read getI2C2IS write setI2C2IS;
  10084. property I2C3AIP : TBits_3 read getI2C3AIP write setI2C3AIP;
  10085. property I2C3AIS : TBits_2 read getI2C3AIS write setI2C3AIS;
  10086. property I2C5IP : TBits_3 read getI2C5IP write setI2C5IP;
  10087. property I2C5IS : TBits_2 read getI2C5IS write setI2C5IS;
  10088. property RTCCIP : TBits_3 read getRTCCIP write setRTCCIP;
  10089. property RTCCIS : TBits_2 read getRTCCIS write setRTCCIS;
  10090. property SPI3AIP : TBits_3 read getSPI3AIP write setSPI3AIP;
  10091. property SPI3AIS : TBits_2 read getSPI3AIS write setSPI3AIS;
  10092. property SPI4IP : TBits_3 read getSPI4IP write setSPI4IP;
  10093. property SPI4IS : TBits_2 read getSPI4IS write setSPI4IS;
  10094. property U2IP : TBits_3 read getU2IP write setU2IP;
  10095. property U2IS : TBits_2 read getU2IS write setU2IS;
  10096. property U3AIP : TBits_3 read getU3AIP write setU3AIP;
  10097. property U3AIS : TBits_2 read getU3AIS write setU3AIS;
  10098. property w : TBits_32 read getw write setw;
  10099. end;
  10100. TINT_IPC9 = record
  10101. private
  10102. function getDMA0IP : TBits_3; inline;
  10103. function getDMA0IS : TBits_2; inline;
  10104. function getDMA1IP : TBits_3; inline;
  10105. function getDMA1IS : TBits_2; inline;
  10106. function getDMA2IP : TBits_3; inline;
  10107. function getDMA2IS : TBits_2; inline;
  10108. function getDMA3IP : TBits_3; inline;
  10109. function getDMA3IS : TBits_2; inline;
  10110. function getw : TBits_32; inline;
  10111. procedure setDMA0IP(thebits : TBits_3); inline;
  10112. procedure setDMA0IS(thebits : TBits_2); inline;
  10113. procedure setDMA1IP(thebits : TBits_3); inline;
  10114. procedure setDMA1IS(thebits : TBits_2); inline;
  10115. procedure setDMA2IP(thebits : TBits_3); inline;
  10116. procedure setDMA2IS(thebits : TBits_2); inline;
  10117. procedure setDMA3IP(thebits : TBits_3); inline;
  10118. procedure setDMA3IS(thebits : TBits_2); inline;
  10119. procedure setw(thebits : TBits_32); inline;
  10120. public
  10121. property DMA0IP : TBits_3 read getDMA0IP write setDMA0IP;
  10122. property DMA0IS : TBits_2 read getDMA0IS write setDMA0IS;
  10123. property DMA1IP : TBits_3 read getDMA1IP write setDMA1IP;
  10124. property DMA1IS : TBits_2 read getDMA1IS write setDMA1IS;
  10125. property DMA2IP : TBits_3 read getDMA2IP write setDMA2IP;
  10126. property DMA2IS : TBits_2 read getDMA2IS write setDMA2IS;
  10127. property DMA3IP : TBits_3 read getDMA3IP write setDMA3IP;
  10128. property DMA3IS : TBits_2 read getDMA3IS write setDMA3IS;
  10129. property w : TBits_32 read getw write setw;
  10130. end;
  10131. TINT_IPC10 = record
  10132. private
  10133. function getDMA4IP : TBits_3; inline;
  10134. function getDMA4IS : TBits_2; inline;
  10135. function getDMA5IP : TBits_3; inline;
  10136. function getDMA5IS : TBits_2; inline;
  10137. function getDMA6IP : TBits_3; inline;
  10138. function getDMA6IS : TBits_2; inline;
  10139. function getDMA7IP : TBits_3; inline;
  10140. function getDMA7IS : TBits_2; inline;
  10141. function getw : TBits_32; inline;
  10142. procedure setDMA4IP(thebits : TBits_3); inline;
  10143. procedure setDMA4IS(thebits : TBits_2); inline;
  10144. procedure setDMA5IP(thebits : TBits_3); inline;
  10145. procedure setDMA5IS(thebits : TBits_2); inline;
  10146. procedure setDMA6IP(thebits : TBits_3); inline;
  10147. procedure setDMA6IS(thebits : TBits_2); inline;
  10148. procedure setDMA7IP(thebits : TBits_3); inline;
  10149. procedure setDMA7IS(thebits : TBits_2); inline;
  10150. procedure setw(thebits : TBits_32); inline;
  10151. public
  10152. property DMA4IP : TBits_3 read getDMA4IP write setDMA4IP;
  10153. property DMA4IS : TBits_2 read getDMA4IS write setDMA4IS;
  10154. property DMA5IP : TBits_3 read getDMA5IP write setDMA5IP;
  10155. property DMA5IS : TBits_2 read getDMA5IS write setDMA5IS;
  10156. property DMA6IP : TBits_3 read getDMA6IP write setDMA6IP;
  10157. property DMA6IS : TBits_2 read getDMA6IS write setDMA6IS;
  10158. property DMA7IP : TBits_3 read getDMA7IP write setDMA7IP;
  10159. property DMA7IS : TBits_2 read getDMA7IS write setDMA7IS;
  10160. property w : TBits_32 read getw write setw;
  10161. end;
  10162. TINT_IPC11 = record
  10163. private
  10164. function getCAN1IP : TBits_3; inline;
  10165. function getCAN1IS : TBits_2; inline;
  10166. function getFCEIP : TBits_3; inline;
  10167. function getFCEIS : TBits_2; inline;
  10168. function getUSBIP : TBits_3; inline;
  10169. function getUSBIS : TBits_2; inline;
  10170. function getw : TBits_32; inline;
  10171. procedure setCAN1IP(thebits : TBits_3); inline;
  10172. procedure setCAN1IS(thebits : TBits_2); inline;
  10173. procedure setFCEIP(thebits : TBits_3); inline;
  10174. procedure setFCEIS(thebits : TBits_2); inline;
  10175. procedure setUSBIP(thebits : TBits_3); inline;
  10176. procedure setUSBIS(thebits : TBits_2); inline;
  10177. procedure setw(thebits : TBits_32); inline;
  10178. public
  10179. property CAN1IP : TBits_3 read getCAN1IP write setCAN1IP;
  10180. property CAN1IS : TBits_2 read getCAN1IS write setCAN1IS;
  10181. property FCEIP : TBits_3 read getFCEIP write setFCEIP;
  10182. property FCEIS : TBits_2 read getFCEIS write setFCEIS;
  10183. property USBIP : TBits_3 read getUSBIP write setUSBIP;
  10184. property USBIS : TBits_2 read getUSBIS write setUSBIS;
  10185. property w : TBits_32 read getw write setw;
  10186. end;
  10187. TINT_IPC12 = record
  10188. private
  10189. function getU1BIP : TBits_3; inline;
  10190. function getU1BIS : TBits_2; inline;
  10191. function getU2BIP : TBits_3; inline;
  10192. function getU2BIS : TBits_2; inline;
  10193. function getU3BIP : TBits_3; inline;
  10194. function getU3BIS : TBits_2; inline;
  10195. function getU4IP : TBits_3; inline;
  10196. function getU4IS : TBits_2; inline;
  10197. function getU5IP : TBits_3; inline;
  10198. function getU5IS : TBits_2; inline;
  10199. function getU6IP : TBits_3; inline;
  10200. function getU6IS : TBits_2; inline;
  10201. function getw : TBits_32; inline;
  10202. procedure setU1BIP(thebits : TBits_3); inline;
  10203. procedure setU1BIS(thebits : TBits_2); inline;
  10204. procedure setU2BIP(thebits : TBits_3); inline;
  10205. procedure setU2BIS(thebits : TBits_2); inline;
  10206. procedure setU3BIP(thebits : TBits_3); inline;
  10207. procedure setU3BIS(thebits : TBits_2); inline;
  10208. procedure setU4IP(thebits : TBits_3); inline;
  10209. procedure setU4IS(thebits : TBits_2); inline;
  10210. procedure setU5IP(thebits : TBits_3); inline;
  10211. procedure setU5IS(thebits : TBits_2); inline;
  10212. procedure setU6IP(thebits : TBits_3); inline;
  10213. procedure setU6IS(thebits : TBits_2); inline;
  10214. procedure setw(thebits : TBits_32); inline;
  10215. public
  10216. property U1BIP : TBits_3 read getU1BIP write setU1BIP;
  10217. property U1BIS : TBits_2 read getU1BIS write setU1BIS;
  10218. property U2BIP : TBits_3 read getU2BIP write setU2BIP;
  10219. property U2BIS : TBits_2 read getU2BIS write setU2BIS;
  10220. property U3BIP : TBits_3 read getU3BIP write setU3BIP;
  10221. property U3BIS : TBits_2 read getU3BIS write setU3BIS;
  10222. property U4IP : TBits_3 read getU4IP write setU4IP;
  10223. property U4IS : TBits_2 read getU4IS write setU4IS;
  10224. property U5IP : TBits_3 read getU5IP write setU5IP;
  10225. property U5IS : TBits_2 read getU5IS write setU5IS;
  10226. property U6IP : TBits_3 read getU6IP write setU6IP;
  10227. property U6IS : TBits_2 read getU6IS write setU6IS;
  10228. property w : TBits_32 read getw write setw;
  10229. end;
  10230. type
  10231. TINTRegisters = record
  10232. INTCONbits : TINT_INTCON;
  10233. INTCON : longWord;
  10234. INTCONCLR : longWord;
  10235. INTCONSET : longWord;
  10236. INTCONINV : longWord;
  10237. INTSTAT : longWord;
  10238. IPTMR : longWord;
  10239. IPTMRCLR : longWord;
  10240. IPTMRSET : longWord;
  10241. IPTMRINV : longWord;
  10242. IFS0bits : TINT_IFS0;
  10243. IFS0 : longWord;
  10244. IFS0CLR : longWord;
  10245. IFS0SET : longWord;
  10246. IFS0INV : longWord;
  10247. IFS1bits : TINT_IFS1;
  10248. IFS1 : longWord;
  10249. IFS1CLR : longWord;
  10250. IFS1SET : longWord;
  10251. IFS1INV : longWord;
  10252. IFS2bits : TINT_IFS2;
  10253. IFS2 : longWord;
  10254. IFS2CLR : longWord;
  10255. IFS2SET : longWord;
  10256. IFS2INV : longWord;
  10257. IEC0bits : TINT_IEC0;
  10258. IEC0 : longWord;
  10259. IEC0CLR : longWord;
  10260. IEC0SET : longWord;
  10261. IEC0INV : longWord;
  10262. IEC1bits : TINT_IEC1;
  10263. IEC1 : longWord;
  10264. IEC1CLR : longWord;
  10265. IEC1SET : longWord;
  10266. IEC1INV : longWord;
  10267. IEC2bits : TINT_IEC2;
  10268. IEC2 : longWord;
  10269. IEC2CLR : longWord;
  10270. IEC2SET : longWord;
  10271. IEC2INV : longWord;
  10272. IPC0bits : TINT_IPC0;
  10273. IPC0 : longWord;
  10274. IPC0CLR : longWord;
  10275. IPC0SET : longWord;
  10276. IPC0INV : longWord;
  10277. IPC1bits : TINT_IPC1;
  10278. IPC1 : longWord;
  10279. IPC1CLR : longWord;
  10280. IPC1SET : longWord;
  10281. IPC1INV : longWord;
  10282. IPC2bits : TINT_IPC2;
  10283. IPC2 : longWord;
  10284. IPC2CLR : longWord;
  10285. IPC2SET : longWord;
  10286. IPC2INV : longWord;
  10287. IPC3bits : TINT_IPC3;
  10288. IPC3 : longWord;
  10289. IPC3CLR : longWord;
  10290. IPC3SET : longWord;
  10291. IPC3INV : longWord;
  10292. IPC4bits : TINT_IPC4;
  10293. IPC4 : longWord;
  10294. IPC4CLR : longWord;
  10295. IPC4SET : longWord;
  10296. IPC4INV : longWord;
  10297. IPC5bits : TINT_IPC5;
  10298. IPC5 : longWord;
  10299. IPC5CLR : longWord;
  10300. IPC5SET : longWord;
  10301. IPC5INV : longWord;
  10302. IPC6bits : TINT_IPC6;
  10303. IPC6 : longWord;
  10304. IPC6CLR : longWord;
  10305. IPC6SET : longWord;
  10306. IPC6INV : longWord;
  10307. IPC7bits : TINT_IPC7;
  10308. IPC7 : longWord;
  10309. IPC7CLR : longWord;
  10310. IPC7SET : longWord;
  10311. IPC7INV : longWord;
  10312. IPC8bits : TINT_IPC8;
  10313. IPC8 : longWord;
  10314. IPC8CLR : longWord;
  10315. IPC8SET : longWord;
  10316. IPC8INV : longWord;
  10317. IPC9bits : TINT_IPC9;
  10318. IPC9 : longWord;
  10319. IPC9CLR : longWord;
  10320. IPC9SET : longWord;
  10321. IPC9INV : longWord;
  10322. IPC10bits : TINT_IPC10;
  10323. IPC10 : longWord;
  10324. IPC10CLR : longWord;
  10325. IPC10SET : longWord;
  10326. IPC10INV : longWord;
  10327. IPC11bits : TINT_IPC11;
  10328. IPC11 : longWord;
  10329. IPC11CLR : longWord;
  10330. IPC11SET : longWord;
  10331. IPC11INV : longWord;
  10332. IPC12bits : TINT_IPC12;
  10333. IPC12 : longWord;
  10334. IPC12CLR : longWord;
  10335. IPC12SET : longWord;
  10336. IPC12INV : longWord;
  10337. end;
  10338. TBMX_BMXCON = record
  10339. private
  10340. function getBMXARB : TBits_3; inline;
  10341. function getBMXCHEDMA : TBits_1; inline;
  10342. function getBMXERRDMA : TBits_1; inline;
  10343. function getBMXERRDS : TBits_1; inline;
  10344. function getBMXERRICD : TBits_1; inline;
  10345. function getBMXERRIS : TBits_1; inline;
  10346. function getBMXERRIXI : TBits_1; inline;
  10347. function getBMXWSDRM : TBits_1; inline;
  10348. function getw : TBits_32; inline;
  10349. procedure setBMXARB(thebits : TBits_3); inline;
  10350. procedure setBMXCHEDMA(thebits : TBits_1); inline;
  10351. procedure setBMXERRDMA(thebits : TBits_1); inline;
  10352. procedure setBMXERRDS(thebits : TBits_1); inline;
  10353. procedure setBMXERRICD(thebits : TBits_1); inline;
  10354. procedure setBMXERRIS(thebits : TBits_1); inline;
  10355. procedure setBMXERRIXI(thebits : TBits_1); inline;
  10356. procedure setBMXWSDRM(thebits : TBits_1); inline;
  10357. procedure setw(thebits : TBits_32); inline;
  10358. public
  10359. procedure clearBMXCHEDMA; inline;
  10360. procedure clearBMXERRDMA; inline;
  10361. procedure clearBMXERRDS; inline;
  10362. procedure clearBMXERRICD; inline;
  10363. procedure clearBMXERRIS; inline;
  10364. procedure clearBMXERRIXI; inline;
  10365. procedure clearBMXWSDRM; inline;
  10366. procedure setBMXCHEDMA; inline;
  10367. procedure setBMXERRDMA; inline;
  10368. procedure setBMXERRDS; inline;
  10369. procedure setBMXERRICD; inline;
  10370. procedure setBMXERRIS; inline;
  10371. procedure setBMXERRIXI; inline;
  10372. procedure setBMXWSDRM; inline;
  10373. property BMXARB : TBits_3 read getBMXARB write setBMXARB;
  10374. property BMXCHEDMA : TBits_1 read getBMXCHEDMA write setBMXCHEDMA;
  10375. property BMXERRDMA : TBits_1 read getBMXERRDMA write setBMXERRDMA;
  10376. property BMXERRDS : TBits_1 read getBMXERRDS write setBMXERRDS;
  10377. property BMXERRICD : TBits_1 read getBMXERRICD write setBMXERRICD;
  10378. property BMXERRIS : TBits_1 read getBMXERRIS write setBMXERRIS;
  10379. property BMXERRIXI : TBits_1 read getBMXERRIXI write setBMXERRIXI;
  10380. property BMXWSDRM : TBits_1 read getBMXWSDRM write setBMXWSDRM;
  10381. property w : TBits_32 read getw write setw;
  10382. end;
  10383. type
  10384. TBMXRegisters = record
  10385. BMXCONbits : TBMX_BMXCON;
  10386. BMXCON : longWord;
  10387. BMXCONCLR : longWord;
  10388. BMXCONSET : longWord;
  10389. BMXCONINV : longWord;
  10390. BMXDKPBA : longWord;
  10391. BMXDKPBACLR : longWord;
  10392. BMXDKPBASET : longWord;
  10393. BMXDKPBAINV : longWord;
  10394. BMXDUDBA : longWord;
  10395. BMXDUDBACLR : longWord;
  10396. BMXDUDBASET : longWord;
  10397. BMXDUDBAINV : longWord;
  10398. BMXDUPBA : longWord;
  10399. BMXDUPBACLR : longWord;
  10400. BMXDUPBASET : longWord;
  10401. BMXDUPBAINV : longWord;
  10402. BMXDRMSZ : longWord;
  10403. BMXPUPBA : longWord;
  10404. BMXPUPBACLR : longWord;
  10405. BMXPUPBASET : longWord;
  10406. BMXPUPBAINV : longWord;
  10407. BMXPFMSZ : longWord;
  10408. BMXBOOTSZ : longWord;
  10409. end;
  10410. TDMAC_DMACON = record
  10411. private
  10412. function getDMABUSY : TBits_1; inline;
  10413. function getON : TBits_1; inline;
  10414. function getSUSPEND : TBits_1; inline;
  10415. function getw : TBits_32; inline;
  10416. procedure setDMABUSY(thebits : TBits_1); inline;
  10417. procedure setON(thebits : TBits_1); inline;
  10418. procedure setSUSPEND(thebits : TBits_1); inline;
  10419. procedure setw(thebits : TBits_32); inline;
  10420. public
  10421. procedure clearDMABUSY; inline;
  10422. procedure clearON; inline;
  10423. procedure clearSUSPEND; inline;
  10424. procedure setDMABUSY; inline;
  10425. procedure setON; inline;
  10426. procedure setSUSPEND; inline;
  10427. property DMABUSY : TBits_1 read getDMABUSY write setDMABUSY;
  10428. property ON : TBits_1 read getON write setON;
  10429. property SUSPEND : TBits_1 read getSUSPEND write setSUSPEND;
  10430. property w : TBits_32 read getw write setw;
  10431. end;
  10432. TDMAC_DMASTAT = record
  10433. private
  10434. function getDMACH : TBits_3; inline;
  10435. function getRDWR : TBits_1; inline;
  10436. function getw : TBits_32; inline;
  10437. procedure setDMACH(thebits : TBits_3); inline;
  10438. procedure setRDWR(thebits : TBits_1); inline;
  10439. procedure setw(thebits : TBits_32); inline;
  10440. public
  10441. procedure clearRDWR; inline;
  10442. procedure setRDWR; inline;
  10443. property DMACH : TBits_3 read getDMACH write setDMACH;
  10444. property RDWR : TBits_1 read getRDWR write setRDWR;
  10445. property w : TBits_32 read getw write setw;
  10446. end;
  10447. TDMAC_DCRCCON = record
  10448. private
  10449. function getBITO : TBits_1; inline;
  10450. function getBYTO : TBits_2; inline;
  10451. function getCRCAPP : TBits_1; inline;
  10452. function getCRCCH : TBits_3; inline;
  10453. function getCRCEN : TBits_1; inline;
  10454. function getCRCTYP : TBits_1; inline;
  10455. function getPLEN : TBits_5; inline;
  10456. function getWBO : TBits_1; inline;
  10457. function getw : TBits_32; inline;
  10458. procedure setBITO(thebits : TBits_1); inline;
  10459. procedure setBYTO(thebits : TBits_2); inline;
  10460. procedure setCRCAPP(thebits : TBits_1); inline;
  10461. procedure setCRCCH(thebits : TBits_3); inline;
  10462. procedure setCRCEN(thebits : TBits_1); inline;
  10463. procedure setCRCTYP(thebits : TBits_1); inline;
  10464. procedure setPLEN(thebits : TBits_5); inline;
  10465. procedure setWBO(thebits : TBits_1); inline;
  10466. procedure setw(thebits : TBits_32); inline;
  10467. public
  10468. procedure clearBITO; inline;
  10469. procedure clearCRCAPP; inline;
  10470. procedure clearCRCEN; inline;
  10471. procedure clearCRCTYP; inline;
  10472. procedure clearWBO; inline;
  10473. procedure setBITO; inline;
  10474. procedure setCRCAPP; inline;
  10475. procedure setCRCEN; inline;
  10476. procedure setCRCTYP; inline;
  10477. procedure setWBO; inline;
  10478. property BITO : TBits_1 read getBITO write setBITO;
  10479. property BYTO : TBits_2 read getBYTO write setBYTO;
  10480. property CRCAPP : TBits_1 read getCRCAPP write setCRCAPP;
  10481. property CRCCH : TBits_3 read getCRCCH write setCRCCH;
  10482. property CRCEN : TBits_1 read getCRCEN write setCRCEN;
  10483. property CRCTYP : TBits_1 read getCRCTYP write setCRCTYP;
  10484. property PLEN : TBits_5 read getPLEN write setPLEN;
  10485. property WBO : TBits_1 read getWBO write setWBO;
  10486. property w : TBits_32 read getw write setw;
  10487. end;
  10488. type
  10489. TDMACRegisters = record
  10490. DMACONbits : TDMAC_DMACON;
  10491. DMACON : longWord;
  10492. DMACONCLR : longWord;
  10493. DMACONSET : longWord;
  10494. DMACONINV : longWord;
  10495. DMASTATbits : TDMAC_DMASTAT;
  10496. DMASTAT : longWord;
  10497. DMASTATCLR : longWord;
  10498. DMASTATSET : longWord;
  10499. DMASTATINV : longWord;
  10500. DMAADDR : longWord;
  10501. DMAADDRCLR : longWord;
  10502. DMAADDRSET : longWord;
  10503. DMAADDRINV : longWord;
  10504. DCRCCONbits : TDMAC_DCRCCON;
  10505. DCRCCON : longWord;
  10506. DCRCCONCLR : longWord;
  10507. DCRCCONSET : longWord;
  10508. DCRCCONINV : longWord;
  10509. DCRCDATA : longWord;
  10510. DCRCDATACLR : longWord;
  10511. DCRCDATASET : longWord;
  10512. DCRCDATAINV : longWord;
  10513. DCRCXOR : longWord;
  10514. DCRCXORCLR : longWord;
  10515. DCRCXORSET : longWord;
  10516. DCRCXORINV : longWord;
  10517. end;
  10518. TDMAC0_DCH0CON = record
  10519. private
  10520. function getCHAED : TBits_1; inline;
  10521. function getCHAEN : TBits_1; inline;
  10522. function getCHBUSY : TBits_1; inline;
  10523. function getCHCHN : TBits_1; inline;
  10524. function getCHCHNS : TBits_1; inline;
  10525. function getCHEDET : TBits_1; inline;
  10526. function getCHEN : TBits_1; inline;
  10527. function getCHPRI : TBits_2; inline;
  10528. function getw : TBits_32; inline;
  10529. procedure setCHAED(thebits : TBits_1); inline;
  10530. procedure setCHAEN(thebits : TBits_1); inline;
  10531. procedure setCHBUSY(thebits : TBits_1); inline;
  10532. procedure setCHCHN(thebits : TBits_1); inline;
  10533. procedure setCHCHNS(thebits : TBits_1); inline;
  10534. procedure setCHEDET(thebits : TBits_1); inline;
  10535. procedure setCHEN(thebits : TBits_1); inline;
  10536. procedure setCHPRI(thebits : TBits_2); inline;
  10537. procedure setw(thebits : TBits_32); inline;
  10538. public
  10539. procedure clearCHAED; inline;
  10540. procedure clearCHAEN; inline;
  10541. procedure clearCHBUSY; inline;
  10542. procedure clearCHCHN; inline;
  10543. procedure clearCHCHNS; inline;
  10544. procedure clearCHEDET; inline;
  10545. procedure clearCHEN; inline;
  10546. procedure setCHAED; inline;
  10547. procedure setCHAEN; inline;
  10548. procedure setCHBUSY; inline;
  10549. procedure setCHCHN; inline;
  10550. procedure setCHCHNS; inline;
  10551. procedure setCHEDET; inline;
  10552. procedure setCHEN; inline;
  10553. property CHAED : TBits_1 read getCHAED write setCHAED;
  10554. property CHAEN : TBits_1 read getCHAEN write setCHAEN;
  10555. property CHBUSY : TBits_1 read getCHBUSY write setCHBUSY;
  10556. property CHCHN : TBits_1 read getCHCHN write setCHCHN;
  10557. property CHCHNS : TBits_1 read getCHCHNS write setCHCHNS;
  10558. property CHEDET : TBits_1 read getCHEDET write setCHEDET;
  10559. property CHEN : TBits_1 read getCHEN write setCHEN;
  10560. property CHPRI : TBits_2 read getCHPRI write setCHPRI;
  10561. property w : TBits_32 read getw write setw;
  10562. end;
  10563. TDMAC0_DCH0ECON = record
  10564. private
  10565. function getAIRQEN : TBits_1; inline;
  10566. function getCABORT : TBits_1; inline;
  10567. function getCFORCE : TBits_1; inline;
  10568. function getCHAIRQ : TBits_8; inline;
  10569. function getCHSIRQ : TBits_8; inline;
  10570. function getPATEN : TBits_1; inline;
  10571. function getSIRQEN : TBits_1; inline;
  10572. function getw : TBits_32; inline;
  10573. procedure setAIRQEN(thebits : TBits_1); inline;
  10574. procedure setCABORT(thebits : TBits_1); inline;
  10575. procedure setCFORCE(thebits : TBits_1); inline;
  10576. procedure setCHAIRQ(thebits : TBits_8); inline;
  10577. procedure setCHSIRQ(thebits : TBits_8); inline;
  10578. procedure setPATEN(thebits : TBits_1); inline;
  10579. procedure setSIRQEN(thebits : TBits_1); inline;
  10580. procedure setw(thebits : TBits_32); inline;
  10581. public
  10582. procedure clearAIRQEN; inline;
  10583. procedure clearCABORT; inline;
  10584. procedure clearCFORCE; inline;
  10585. procedure clearPATEN; inline;
  10586. procedure clearSIRQEN; inline;
  10587. procedure setAIRQEN; inline;
  10588. procedure setCABORT; inline;
  10589. procedure setCFORCE; inline;
  10590. procedure setPATEN; inline;
  10591. procedure setSIRQEN; inline;
  10592. property AIRQEN : TBits_1 read getAIRQEN write setAIRQEN;
  10593. property CABORT : TBits_1 read getCABORT write setCABORT;
  10594. property CFORCE : TBits_1 read getCFORCE write setCFORCE;
  10595. property CHAIRQ : TBits_8 read getCHAIRQ write setCHAIRQ;
  10596. property CHSIRQ : TBits_8 read getCHSIRQ write setCHSIRQ;
  10597. property PATEN : TBits_1 read getPATEN write setPATEN;
  10598. property SIRQEN : TBits_1 read getSIRQEN write setSIRQEN;
  10599. property w : TBits_32 read getw write setw;
  10600. end;
  10601. TDMAC0_DCH0INT = record
  10602. private
  10603. function getCHBCIE : TBits_1; inline;
  10604. function getCHBCIF : TBits_1; inline;
  10605. function getCHCCIE : TBits_1; inline;
  10606. function getCHCCIF : TBits_1; inline;
  10607. function getCHDDIE : TBits_1; inline;
  10608. function getCHDDIF : TBits_1; inline;
  10609. function getCHDHIE : TBits_1; inline;
  10610. function getCHDHIF : TBits_1; inline;
  10611. function getCHERIE : TBits_1; inline;
  10612. function getCHERIF : TBits_1; inline;
  10613. function getCHSDIE : TBits_1; inline;
  10614. function getCHSDIF : TBits_1; inline;
  10615. function getCHSHIE : TBits_1; inline;
  10616. function getCHSHIF : TBits_1; inline;
  10617. function getCHTAIE : TBits_1; inline;
  10618. function getCHTAIF : TBits_1; inline;
  10619. function getw : TBits_32; inline;
  10620. procedure setCHBCIE(thebits : TBits_1); inline;
  10621. procedure setCHBCIF(thebits : TBits_1); inline;
  10622. procedure setCHCCIE(thebits : TBits_1); inline;
  10623. procedure setCHCCIF(thebits : TBits_1); inline;
  10624. procedure setCHDDIE(thebits : TBits_1); inline;
  10625. procedure setCHDDIF(thebits : TBits_1); inline;
  10626. procedure setCHDHIE(thebits : TBits_1); inline;
  10627. procedure setCHDHIF(thebits : TBits_1); inline;
  10628. procedure setCHERIE(thebits : TBits_1); inline;
  10629. procedure setCHERIF(thebits : TBits_1); inline;
  10630. procedure setCHSDIE(thebits : TBits_1); inline;
  10631. procedure setCHSDIF(thebits : TBits_1); inline;
  10632. procedure setCHSHIE(thebits : TBits_1); inline;
  10633. procedure setCHSHIF(thebits : TBits_1); inline;
  10634. procedure setCHTAIE(thebits : TBits_1); inline;
  10635. procedure setCHTAIF(thebits : TBits_1); inline;
  10636. procedure setw(thebits : TBits_32); inline;
  10637. public
  10638. procedure clearCHBCIE; inline;
  10639. procedure clearCHBCIF; inline;
  10640. procedure clearCHCCIE; inline;
  10641. procedure clearCHCCIF; inline;
  10642. procedure clearCHDDIE; inline;
  10643. procedure clearCHDDIF; inline;
  10644. procedure clearCHDHIE; inline;
  10645. procedure clearCHDHIF; inline;
  10646. procedure clearCHERIE; inline;
  10647. procedure clearCHERIF; inline;
  10648. procedure clearCHSDIE; inline;
  10649. procedure clearCHSDIF; inline;
  10650. procedure clearCHSHIE; inline;
  10651. procedure clearCHSHIF; inline;
  10652. procedure clearCHTAIE; inline;
  10653. procedure clearCHTAIF; inline;
  10654. procedure setCHBCIE; inline;
  10655. procedure setCHBCIF; inline;
  10656. procedure setCHCCIE; inline;
  10657. procedure setCHCCIF; inline;
  10658. procedure setCHDDIE; inline;
  10659. procedure setCHDDIF; inline;
  10660. procedure setCHDHIE; inline;
  10661. procedure setCHDHIF; inline;
  10662. procedure setCHERIE; inline;
  10663. procedure setCHERIF; inline;
  10664. procedure setCHSDIE; inline;
  10665. procedure setCHSDIF; inline;
  10666. procedure setCHSHIE; inline;
  10667. procedure setCHSHIF; inline;
  10668. procedure setCHTAIE; inline;
  10669. procedure setCHTAIF; inline;
  10670. property CHBCIE : TBits_1 read getCHBCIE write setCHBCIE;
  10671. property CHBCIF : TBits_1 read getCHBCIF write setCHBCIF;
  10672. property CHCCIE : TBits_1 read getCHCCIE write setCHCCIE;
  10673. property CHCCIF : TBits_1 read getCHCCIF write setCHCCIF;
  10674. property CHDDIE : TBits_1 read getCHDDIE write setCHDDIE;
  10675. property CHDDIF : TBits_1 read getCHDDIF write setCHDDIF;
  10676. property CHDHIE : TBits_1 read getCHDHIE write setCHDHIE;
  10677. property CHDHIF : TBits_1 read getCHDHIF write setCHDHIF;
  10678. property CHERIE : TBits_1 read getCHERIE write setCHERIE;
  10679. property CHERIF : TBits_1 read getCHERIF write setCHERIF;
  10680. property CHSDIE : TBits_1 read getCHSDIE write setCHSDIE;
  10681. property CHSDIF : TBits_1 read getCHSDIF write setCHSDIF;
  10682. property CHSHIE : TBits_1 read getCHSHIE write setCHSHIE;
  10683. property CHSHIF : TBits_1 read getCHSHIF write setCHSHIF;
  10684. property CHTAIE : TBits_1 read getCHTAIE write setCHTAIE;
  10685. property CHTAIF : TBits_1 read getCHTAIF write setCHTAIF;
  10686. property w : TBits_32 read getw write setw;
  10687. end;
  10688. type
  10689. TDMAC0Registers = record
  10690. DCH0CONbits : TDMAC0_DCH0CON;
  10691. DCH0CON : longWord;
  10692. DCH0CONCLR : longWord;
  10693. DCH0CONSET : longWord;
  10694. DCH0CONINV : longWord;
  10695. DCH0ECONbits : TDMAC0_DCH0ECON;
  10696. DCH0ECON : longWord;
  10697. DCH0ECONCLR : longWord;
  10698. DCH0ECONSET : longWord;
  10699. DCH0ECONINV : longWord;
  10700. DCH0INTbits : TDMAC0_DCH0INT;
  10701. DCH0INT : longWord;
  10702. DCH0INTCLR : longWord;
  10703. DCH0INTSET : longWord;
  10704. DCH0INTINV : longWord;
  10705. DCH0SSA : longWord;
  10706. DCH0SSACLR : longWord;
  10707. DCH0SSASET : longWord;
  10708. DCH0SSAINV : longWord;
  10709. DCH0DSA : longWord;
  10710. DCH0DSACLR : longWord;
  10711. DCH0DSASET : longWord;
  10712. DCH0DSAINV : longWord;
  10713. DCH0SSIZ : longWord;
  10714. DCH0SSIZCLR : longWord;
  10715. DCH0SSIZSET : longWord;
  10716. DCH0SSIZINV : longWord;
  10717. DCH0DSIZ : longWord;
  10718. DCH0DSIZCLR : longWord;
  10719. DCH0DSIZSET : longWord;
  10720. DCH0DSIZINV : longWord;
  10721. DCH0SPTR : longWord;
  10722. DCH0SPTRCLR : longWord;
  10723. DCH0SPTRSET : longWord;
  10724. DCH0SPTRINV : longWord;
  10725. DCH0DPTR : longWord;
  10726. DCH0DPTRCLR : longWord;
  10727. DCH0DPTRSET : longWord;
  10728. DCH0DPTRINV : longWord;
  10729. DCH0CSIZ : longWord;
  10730. DCH0CSIZCLR : longWord;
  10731. DCH0CSIZSET : longWord;
  10732. DCH0CSIZINV : longWord;
  10733. DCH0CPTR : longWord;
  10734. DCH0CPTRCLR : longWord;
  10735. DCH0CPTRSET : longWord;
  10736. DCH0CPTRINV : longWord;
  10737. DCH0DAT : longWord;
  10738. DCH0DATCLR : longWord;
  10739. DCH0DATSET : longWord;
  10740. DCH0DATINV : longWord;
  10741. end;
  10742. TDMAC1_DCH1CON = record
  10743. private
  10744. function getCHAED : TBits_1; inline;
  10745. function getCHAEN : TBits_1; inline;
  10746. function getCHBUSY : TBits_1; inline;
  10747. function getCHCHN : TBits_1; inline;
  10748. function getCHCHNS : TBits_1; inline;
  10749. function getCHEDET : TBits_1; inline;
  10750. function getCHEN : TBits_1; inline;
  10751. function getCHPRI : TBits_2; inline;
  10752. function getw : TBits_32; inline;
  10753. procedure setCHAED(thebits : TBits_1); inline;
  10754. procedure setCHAEN(thebits : TBits_1); inline;
  10755. procedure setCHBUSY(thebits : TBits_1); inline;
  10756. procedure setCHCHN(thebits : TBits_1); inline;
  10757. procedure setCHCHNS(thebits : TBits_1); inline;
  10758. procedure setCHEDET(thebits : TBits_1); inline;
  10759. procedure setCHEN(thebits : TBits_1); inline;
  10760. procedure setCHPRI(thebits : TBits_2); inline;
  10761. procedure setw(thebits : TBits_32); inline;
  10762. public
  10763. procedure clearCHAED; inline;
  10764. procedure clearCHAEN; inline;
  10765. procedure clearCHBUSY; inline;
  10766. procedure clearCHCHN; inline;
  10767. procedure clearCHCHNS; inline;
  10768. procedure clearCHEDET; inline;
  10769. procedure clearCHEN; inline;
  10770. procedure setCHAED; inline;
  10771. procedure setCHAEN; inline;
  10772. procedure setCHBUSY; inline;
  10773. procedure setCHCHN; inline;
  10774. procedure setCHCHNS; inline;
  10775. procedure setCHEDET; inline;
  10776. procedure setCHEN; inline;
  10777. property CHAED : TBits_1 read getCHAED write setCHAED;
  10778. property CHAEN : TBits_1 read getCHAEN write setCHAEN;
  10779. property CHBUSY : TBits_1 read getCHBUSY write setCHBUSY;
  10780. property CHCHN : TBits_1 read getCHCHN write setCHCHN;
  10781. property CHCHNS : TBits_1 read getCHCHNS write setCHCHNS;
  10782. property CHEDET : TBits_1 read getCHEDET write setCHEDET;
  10783. property CHEN : TBits_1 read getCHEN write setCHEN;
  10784. property CHPRI : TBits_2 read getCHPRI write setCHPRI;
  10785. property w : TBits_32 read getw write setw;
  10786. end;
  10787. TDMAC1_DCH1ECON = record
  10788. private
  10789. function getAIRQEN : TBits_1; inline;
  10790. function getCABORT : TBits_1; inline;
  10791. function getCFORCE : TBits_1; inline;
  10792. function getCHAIRQ : TBits_8; inline;
  10793. function getCHSIRQ : TBits_8; inline;
  10794. function getPATEN : TBits_1; inline;
  10795. function getSIRQEN : TBits_1; inline;
  10796. function getw : TBits_32; inline;
  10797. procedure setAIRQEN(thebits : TBits_1); inline;
  10798. procedure setCABORT(thebits : TBits_1); inline;
  10799. procedure setCFORCE(thebits : TBits_1); inline;
  10800. procedure setCHAIRQ(thebits : TBits_8); inline;
  10801. procedure setCHSIRQ(thebits : TBits_8); inline;
  10802. procedure setPATEN(thebits : TBits_1); inline;
  10803. procedure setSIRQEN(thebits : TBits_1); inline;
  10804. procedure setw(thebits : TBits_32); inline;
  10805. public
  10806. procedure clearAIRQEN; inline;
  10807. procedure clearCABORT; inline;
  10808. procedure clearCFORCE; inline;
  10809. procedure clearPATEN; inline;
  10810. procedure clearSIRQEN; inline;
  10811. procedure setAIRQEN; inline;
  10812. procedure setCABORT; inline;
  10813. procedure setCFORCE; inline;
  10814. procedure setPATEN; inline;
  10815. procedure setSIRQEN; inline;
  10816. property AIRQEN : TBits_1 read getAIRQEN write setAIRQEN;
  10817. property CABORT : TBits_1 read getCABORT write setCABORT;
  10818. property CFORCE : TBits_1 read getCFORCE write setCFORCE;
  10819. property CHAIRQ : TBits_8 read getCHAIRQ write setCHAIRQ;
  10820. property CHSIRQ : TBits_8 read getCHSIRQ write setCHSIRQ;
  10821. property PATEN : TBits_1 read getPATEN write setPATEN;
  10822. property SIRQEN : TBits_1 read getSIRQEN write setSIRQEN;
  10823. property w : TBits_32 read getw write setw;
  10824. end;
  10825. TDMAC1_DCH1INT = record
  10826. private
  10827. function getCHBCIE : TBits_1; inline;
  10828. function getCHBCIF : TBits_1; inline;
  10829. function getCHCCIE : TBits_1; inline;
  10830. function getCHCCIF : TBits_1; inline;
  10831. function getCHDDIE : TBits_1; inline;
  10832. function getCHDDIF : TBits_1; inline;
  10833. function getCHDHIE : TBits_1; inline;
  10834. function getCHDHIF : TBits_1; inline;
  10835. function getCHERIE : TBits_1; inline;
  10836. function getCHERIF : TBits_1; inline;
  10837. function getCHSDIE : TBits_1; inline;
  10838. function getCHSDIF : TBits_1; inline;
  10839. function getCHSHIE : TBits_1; inline;
  10840. function getCHSHIF : TBits_1; inline;
  10841. function getCHTAIE : TBits_1; inline;
  10842. function getCHTAIF : TBits_1; inline;
  10843. function getw : TBits_32; inline;
  10844. procedure setCHBCIE(thebits : TBits_1); inline;
  10845. procedure setCHBCIF(thebits : TBits_1); inline;
  10846. procedure setCHCCIE(thebits : TBits_1); inline;
  10847. procedure setCHCCIF(thebits : TBits_1); inline;
  10848. procedure setCHDDIE(thebits : TBits_1); inline;
  10849. procedure setCHDDIF(thebits : TBits_1); inline;
  10850. procedure setCHDHIE(thebits : TBits_1); inline;
  10851. procedure setCHDHIF(thebits : TBits_1); inline;
  10852. procedure setCHERIE(thebits : TBits_1); inline;
  10853. procedure setCHERIF(thebits : TBits_1); inline;
  10854. procedure setCHSDIE(thebits : TBits_1); inline;
  10855. procedure setCHSDIF(thebits : TBits_1); inline;
  10856. procedure setCHSHIE(thebits : TBits_1); inline;
  10857. procedure setCHSHIF(thebits : TBits_1); inline;
  10858. procedure setCHTAIE(thebits : TBits_1); inline;
  10859. procedure setCHTAIF(thebits : TBits_1); inline;
  10860. procedure setw(thebits : TBits_32); inline;
  10861. public
  10862. procedure clearCHBCIE; inline;
  10863. procedure clearCHBCIF; inline;
  10864. procedure clearCHCCIE; inline;
  10865. procedure clearCHCCIF; inline;
  10866. procedure clearCHDDIE; inline;
  10867. procedure clearCHDDIF; inline;
  10868. procedure clearCHDHIE; inline;
  10869. procedure clearCHDHIF; inline;
  10870. procedure clearCHERIE; inline;
  10871. procedure clearCHERIF; inline;
  10872. procedure clearCHSDIE; inline;
  10873. procedure clearCHSDIF; inline;
  10874. procedure clearCHSHIE; inline;
  10875. procedure clearCHSHIF; inline;
  10876. procedure clearCHTAIE; inline;
  10877. procedure clearCHTAIF; inline;
  10878. procedure setCHBCIE; inline;
  10879. procedure setCHBCIF; inline;
  10880. procedure setCHCCIE; inline;
  10881. procedure setCHCCIF; inline;
  10882. procedure setCHDDIE; inline;
  10883. procedure setCHDDIF; inline;
  10884. procedure setCHDHIE; inline;
  10885. procedure setCHDHIF; inline;
  10886. procedure setCHERIE; inline;
  10887. procedure setCHERIF; inline;
  10888. procedure setCHSDIE; inline;
  10889. procedure setCHSDIF; inline;
  10890. procedure setCHSHIE; inline;
  10891. procedure setCHSHIF; inline;
  10892. procedure setCHTAIE; inline;
  10893. procedure setCHTAIF; inline;
  10894. property CHBCIE : TBits_1 read getCHBCIE write setCHBCIE;
  10895. property CHBCIF : TBits_1 read getCHBCIF write setCHBCIF;
  10896. property CHCCIE : TBits_1 read getCHCCIE write setCHCCIE;
  10897. property CHCCIF : TBits_1 read getCHCCIF write setCHCCIF;
  10898. property CHDDIE : TBits_1 read getCHDDIE write setCHDDIE;
  10899. property CHDDIF : TBits_1 read getCHDDIF write setCHDDIF;
  10900. property CHDHIE : TBits_1 read getCHDHIE write setCHDHIE;
  10901. property CHDHIF : TBits_1 read getCHDHIF write setCHDHIF;
  10902. property CHERIE : TBits_1 read getCHERIE write setCHERIE;
  10903. property CHERIF : TBits_1 read getCHERIF write setCHERIF;
  10904. property CHSDIE : TBits_1 read getCHSDIE write setCHSDIE;
  10905. property CHSDIF : TBits_1 read getCHSDIF write setCHSDIF;
  10906. property CHSHIE : TBits_1 read getCHSHIE write setCHSHIE;
  10907. property CHSHIF : TBits_1 read getCHSHIF write setCHSHIF;
  10908. property CHTAIE : TBits_1 read getCHTAIE write setCHTAIE;
  10909. property CHTAIF : TBits_1 read getCHTAIF write setCHTAIF;
  10910. property w : TBits_32 read getw write setw;
  10911. end;
  10912. type
  10913. TDMAC1Registers = record
  10914. DCH1CONbits : TDMAC1_DCH1CON;
  10915. DCH1CON : longWord;
  10916. DCH1CONCLR : longWord;
  10917. DCH1CONSET : longWord;
  10918. DCH1CONINV : longWord;
  10919. DCH1ECONbits : TDMAC1_DCH1ECON;
  10920. DCH1ECON : longWord;
  10921. DCH1ECONCLR : longWord;
  10922. DCH1ECONSET : longWord;
  10923. DCH1ECONINV : longWord;
  10924. DCH1INTbits : TDMAC1_DCH1INT;
  10925. DCH1INT : longWord;
  10926. DCH1INTCLR : longWord;
  10927. DCH1INTSET : longWord;
  10928. DCH1INTINV : longWord;
  10929. DCH1SSA : longWord;
  10930. DCH1SSACLR : longWord;
  10931. DCH1SSASET : longWord;
  10932. DCH1SSAINV : longWord;
  10933. DCH1DSA : longWord;
  10934. DCH1DSACLR : longWord;
  10935. DCH1DSASET : longWord;
  10936. DCH1DSAINV : longWord;
  10937. DCH1SSIZ : longWord;
  10938. DCH1SSIZCLR : longWord;
  10939. DCH1SSIZSET : longWord;
  10940. DCH1SSIZINV : longWord;
  10941. DCH1DSIZ : longWord;
  10942. DCH1DSIZCLR : longWord;
  10943. DCH1DSIZSET : longWord;
  10944. DCH1DSIZINV : longWord;
  10945. DCH1SPTR : longWord;
  10946. DCH1SPTRCLR : longWord;
  10947. DCH1SPTRSET : longWord;
  10948. DCH1SPTRINV : longWord;
  10949. DCH1DPTR : longWord;
  10950. DCH1DPTRCLR : longWord;
  10951. DCH1DPTRSET : longWord;
  10952. DCH1DPTRINV : longWord;
  10953. DCH1CSIZ : longWord;
  10954. DCH1CSIZCLR : longWord;
  10955. DCH1CSIZSET : longWord;
  10956. DCH1CSIZINV : longWord;
  10957. DCH1CPTR : longWord;
  10958. DCH1CPTRCLR : longWord;
  10959. DCH1CPTRSET : longWord;
  10960. DCH1CPTRINV : longWord;
  10961. DCH1DAT : longWord;
  10962. DCH1DATCLR : longWord;
  10963. DCH1DATSET : longWord;
  10964. DCH1DATINV : longWord;
  10965. end;
  10966. TDMAC2_DCH2CON = record
  10967. private
  10968. function getCHAED : TBits_1; inline;
  10969. function getCHAEN : TBits_1; inline;
  10970. function getCHBUSY : TBits_1; inline;
  10971. function getCHCHN : TBits_1; inline;
  10972. function getCHCHNS : TBits_1; inline;
  10973. function getCHEDET : TBits_1; inline;
  10974. function getCHEN : TBits_1; inline;
  10975. function getCHPRI : TBits_2; inline;
  10976. function getw : TBits_32; inline;
  10977. procedure setCHAED(thebits : TBits_1); inline;
  10978. procedure setCHAEN(thebits : TBits_1); inline;
  10979. procedure setCHBUSY(thebits : TBits_1); inline;
  10980. procedure setCHCHN(thebits : TBits_1); inline;
  10981. procedure setCHCHNS(thebits : TBits_1); inline;
  10982. procedure setCHEDET(thebits : TBits_1); inline;
  10983. procedure setCHEN(thebits : TBits_1); inline;
  10984. procedure setCHPRI(thebits : TBits_2); inline;
  10985. procedure setw(thebits : TBits_32); inline;
  10986. public
  10987. procedure clearCHAED; inline;
  10988. procedure clearCHAEN; inline;
  10989. procedure clearCHBUSY; inline;
  10990. procedure clearCHCHN; inline;
  10991. procedure clearCHCHNS; inline;
  10992. procedure clearCHEDET; inline;
  10993. procedure clearCHEN; inline;
  10994. procedure setCHAED; inline;
  10995. procedure setCHAEN; inline;
  10996. procedure setCHBUSY; inline;
  10997. procedure setCHCHN; inline;
  10998. procedure setCHCHNS; inline;
  10999. procedure setCHEDET; inline;
  11000. procedure setCHEN; inline;
  11001. property CHAED : TBits_1 read getCHAED write setCHAED;
  11002. property CHAEN : TBits_1 read getCHAEN write setCHAEN;
  11003. property CHBUSY : TBits_1 read getCHBUSY write setCHBUSY;
  11004. property CHCHN : TBits_1 read getCHCHN write setCHCHN;
  11005. property CHCHNS : TBits_1 read getCHCHNS write setCHCHNS;
  11006. property CHEDET : TBits_1 read getCHEDET write setCHEDET;
  11007. property CHEN : TBits_1 read getCHEN write setCHEN;
  11008. property CHPRI : TBits_2 read getCHPRI write setCHPRI;
  11009. property w : TBits_32 read getw write setw;
  11010. end;
  11011. TDMAC2_DCH2ECON = record
  11012. private
  11013. function getAIRQEN : TBits_1; inline;
  11014. function getCABORT : TBits_1; inline;
  11015. function getCFORCE : TBits_1; inline;
  11016. function getCHAIRQ : TBits_8; inline;
  11017. function getCHSIRQ : TBits_8; inline;
  11018. function getPATEN : TBits_1; inline;
  11019. function getSIRQEN : TBits_1; inline;
  11020. function getw : TBits_32; inline;
  11021. procedure setAIRQEN(thebits : TBits_1); inline;
  11022. procedure setCABORT(thebits : TBits_1); inline;
  11023. procedure setCFORCE(thebits : TBits_1); inline;
  11024. procedure setCHAIRQ(thebits : TBits_8); inline;
  11025. procedure setCHSIRQ(thebits : TBits_8); inline;
  11026. procedure setPATEN(thebits : TBits_1); inline;
  11027. procedure setSIRQEN(thebits : TBits_1); inline;
  11028. procedure setw(thebits : TBits_32); inline;
  11029. public
  11030. procedure clearAIRQEN; inline;
  11031. procedure clearCABORT; inline;
  11032. procedure clearCFORCE; inline;
  11033. procedure clearPATEN; inline;
  11034. procedure clearSIRQEN; inline;
  11035. procedure setAIRQEN; inline;
  11036. procedure setCABORT; inline;
  11037. procedure setCFORCE; inline;
  11038. procedure setPATEN; inline;
  11039. procedure setSIRQEN; inline;
  11040. property AIRQEN : TBits_1 read getAIRQEN write setAIRQEN;
  11041. property CABORT : TBits_1 read getCABORT write setCABORT;
  11042. property CFORCE : TBits_1 read getCFORCE write setCFORCE;
  11043. property CHAIRQ : TBits_8 read getCHAIRQ write setCHAIRQ;
  11044. property CHSIRQ : TBits_8 read getCHSIRQ write setCHSIRQ;
  11045. property PATEN : TBits_1 read getPATEN write setPATEN;
  11046. property SIRQEN : TBits_1 read getSIRQEN write setSIRQEN;
  11047. property w : TBits_32 read getw write setw;
  11048. end;
  11049. TDMAC2_DCH2INT = record
  11050. private
  11051. function getCHBCIE : TBits_1; inline;
  11052. function getCHBCIF : TBits_1; inline;
  11053. function getCHCCIE : TBits_1; inline;
  11054. function getCHCCIF : TBits_1; inline;
  11055. function getCHDDIE : TBits_1; inline;
  11056. function getCHDDIF : TBits_1; inline;
  11057. function getCHDHIE : TBits_1; inline;
  11058. function getCHDHIF : TBits_1; inline;
  11059. function getCHERIE : TBits_1; inline;
  11060. function getCHERIF : TBits_1; inline;
  11061. function getCHSDIE : TBits_1; inline;
  11062. function getCHSDIF : TBits_1; inline;
  11063. function getCHSHIE : TBits_1; inline;
  11064. function getCHSHIF : TBits_1; inline;
  11065. function getCHTAIE : TBits_1; inline;
  11066. function getCHTAIF : TBits_1; inline;
  11067. function getw : TBits_32; inline;
  11068. procedure setCHBCIE(thebits : TBits_1); inline;
  11069. procedure setCHBCIF(thebits : TBits_1); inline;
  11070. procedure setCHCCIE(thebits : TBits_1); inline;
  11071. procedure setCHCCIF(thebits : TBits_1); inline;
  11072. procedure setCHDDIE(thebits : TBits_1); inline;
  11073. procedure setCHDDIF(thebits : TBits_1); inline;
  11074. procedure setCHDHIE(thebits : TBits_1); inline;
  11075. procedure setCHDHIF(thebits : TBits_1); inline;
  11076. procedure setCHERIE(thebits : TBits_1); inline;
  11077. procedure setCHERIF(thebits : TBits_1); inline;
  11078. procedure setCHSDIE(thebits : TBits_1); inline;
  11079. procedure setCHSDIF(thebits : TBits_1); inline;
  11080. procedure setCHSHIE(thebits : TBits_1); inline;
  11081. procedure setCHSHIF(thebits : TBits_1); inline;
  11082. procedure setCHTAIE(thebits : TBits_1); inline;
  11083. procedure setCHTAIF(thebits : TBits_1); inline;
  11084. procedure setw(thebits : TBits_32); inline;
  11085. public
  11086. procedure clearCHBCIE; inline;
  11087. procedure clearCHBCIF; inline;
  11088. procedure clearCHCCIE; inline;
  11089. procedure clearCHCCIF; inline;
  11090. procedure clearCHDDIE; inline;
  11091. procedure clearCHDDIF; inline;
  11092. procedure clearCHDHIE; inline;
  11093. procedure clearCHDHIF; inline;
  11094. procedure clearCHERIE; inline;
  11095. procedure clearCHERIF; inline;
  11096. procedure clearCHSDIE; inline;
  11097. procedure clearCHSDIF; inline;
  11098. procedure clearCHSHIE; inline;
  11099. procedure clearCHSHIF; inline;
  11100. procedure clearCHTAIE; inline;
  11101. procedure clearCHTAIF; inline;
  11102. procedure setCHBCIE; inline;
  11103. procedure setCHBCIF; inline;
  11104. procedure setCHCCIE; inline;
  11105. procedure setCHCCIF; inline;
  11106. procedure setCHDDIE; inline;
  11107. procedure setCHDDIF; inline;
  11108. procedure setCHDHIE; inline;
  11109. procedure setCHDHIF; inline;
  11110. procedure setCHERIE; inline;
  11111. procedure setCHERIF; inline;
  11112. procedure setCHSDIE; inline;
  11113. procedure setCHSDIF; inline;
  11114. procedure setCHSHIE; inline;
  11115. procedure setCHSHIF; inline;
  11116. procedure setCHTAIE; inline;
  11117. procedure setCHTAIF; inline;
  11118. property CHBCIE : TBits_1 read getCHBCIE write setCHBCIE;
  11119. property CHBCIF : TBits_1 read getCHBCIF write setCHBCIF;
  11120. property CHCCIE : TBits_1 read getCHCCIE write setCHCCIE;
  11121. property CHCCIF : TBits_1 read getCHCCIF write setCHCCIF;
  11122. property CHDDIE : TBits_1 read getCHDDIE write setCHDDIE;
  11123. property CHDDIF : TBits_1 read getCHDDIF write setCHDDIF;
  11124. property CHDHIE : TBits_1 read getCHDHIE write setCHDHIE;
  11125. property CHDHIF : TBits_1 read getCHDHIF write setCHDHIF;
  11126. property CHERIE : TBits_1 read getCHERIE write setCHERIE;
  11127. property CHERIF : TBits_1 read getCHERIF write setCHERIF;
  11128. property CHSDIE : TBits_1 read getCHSDIE write setCHSDIE;
  11129. property CHSDIF : TBits_1 read getCHSDIF write setCHSDIF;
  11130. property CHSHIE : TBits_1 read getCHSHIE write setCHSHIE;
  11131. property CHSHIF : TBits_1 read getCHSHIF write setCHSHIF;
  11132. property CHTAIE : TBits_1 read getCHTAIE write setCHTAIE;
  11133. property CHTAIF : TBits_1 read getCHTAIF write setCHTAIF;
  11134. property w : TBits_32 read getw write setw;
  11135. end;
  11136. type
  11137. TDMAC2Registers = record
  11138. DCH2CONbits : TDMAC2_DCH2CON;
  11139. DCH2CON : longWord;
  11140. DCH2CONCLR : longWord;
  11141. DCH2CONSET : longWord;
  11142. DCH2CONINV : longWord;
  11143. DCH2ECONbits : TDMAC2_DCH2ECON;
  11144. DCH2ECON : longWord;
  11145. DCH2ECONCLR : longWord;
  11146. DCH2ECONSET : longWord;
  11147. DCH2ECONINV : longWord;
  11148. DCH2INTbits : TDMAC2_DCH2INT;
  11149. DCH2INT : longWord;
  11150. DCH2INTCLR : longWord;
  11151. DCH2INTSET : longWord;
  11152. DCH2INTINV : longWord;
  11153. DCH2SSA : longWord;
  11154. DCH2SSACLR : longWord;
  11155. DCH2SSASET : longWord;
  11156. DCH2SSAINV : longWord;
  11157. DCH2DSA : longWord;
  11158. DCH2DSACLR : longWord;
  11159. DCH2DSASET : longWord;
  11160. DCH2DSAINV : longWord;
  11161. DCH2SSIZ : longWord;
  11162. DCH2SSIZCLR : longWord;
  11163. DCH2SSIZSET : longWord;
  11164. DCH2SSIZINV : longWord;
  11165. DCH2DSIZ : longWord;
  11166. DCH2DSIZCLR : longWord;
  11167. DCH2DSIZSET : longWord;
  11168. DCH2DSIZINV : longWord;
  11169. DCH2SPTR : longWord;
  11170. DCH2SPTRCLR : longWord;
  11171. DCH2SPTRSET : longWord;
  11172. DCH2SPTRINV : longWord;
  11173. DCH2DPTR : longWord;
  11174. DCH2DPTRCLR : longWord;
  11175. DCH2DPTRSET : longWord;
  11176. DCH2DPTRINV : longWord;
  11177. DCH2CSIZ : longWord;
  11178. DCH2CSIZCLR : longWord;
  11179. DCH2CSIZSET : longWord;
  11180. DCH2CSIZINV : longWord;
  11181. DCH2CPTR : longWord;
  11182. DCH2CPTRCLR : longWord;
  11183. DCH2CPTRSET : longWord;
  11184. DCH2CPTRINV : longWord;
  11185. DCH2DAT : longWord;
  11186. DCH2DATCLR : longWord;
  11187. DCH2DATSET : longWord;
  11188. DCH2DATINV : longWord;
  11189. end;
  11190. TDMAC3_DCH3CON = record
  11191. private
  11192. function getCHAED : TBits_1; inline;
  11193. function getCHAEN : TBits_1; inline;
  11194. function getCHBUSY : TBits_1; inline;
  11195. function getCHCHN : TBits_1; inline;
  11196. function getCHCHNS : TBits_1; inline;
  11197. function getCHEDET : TBits_1; inline;
  11198. function getCHEN : TBits_1; inline;
  11199. function getCHPRI : TBits_2; inline;
  11200. function getw : TBits_32; inline;
  11201. procedure setCHAED(thebits : TBits_1); inline;
  11202. procedure setCHAEN(thebits : TBits_1); inline;
  11203. procedure setCHBUSY(thebits : TBits_1); inline;
  11204. procedure setCHCHN(thebits : TBits_1); inline;
  11205. procedure setCHCHNS(thebits : TBits_1); inline;
  11206. procedure setCHEDET(thebits : TBits_1); inline;
  11207. procedure setCHEN(thebits : TBits_1); inline;
  11208. procedure setCHPRI(thebits : TBits_2); inline;
  11209. procedure setw(thebits : TBits_32); inline;
  11210. public
  11211. procedure clearCHAED; inline;
  11212. procedure clearCHAEN; inline;
  11213. procedure clearCHBUSY; inline;
  11214. procedure clearCHCHN; inline;
  11215. procedure clearCHCHNS; inline;
  11216. procedure clearCHEDET; inline;
  11217. procedure clearCHEN; inline;
  11218. procedure setCHAED; inline;
  11219. procedure setCHAEN; inline;
  11220. procedure setCHBUSY; inline;
  11221. procedure setCHCHN; inline;
  11222. procedure setCHCHNS; inline;
  11223. procedure setCHEDET; inline;
  11224. procedure setCHEN; inline;
  11225. property CHAED : TBits_1 read getCHAED write setCHAED;
  11226. property CHAEN : TBits_1 read getCHAEN write setCHAEN;
  11227. property CHBUSY : TBits_1 read getCHBUSY write setCHBUSY;
  11228. property CHCHN : TBits_1 read getCHCHN write setCHCHN;
  11229. property CHCHNS : TBits_1 read getCHCHNS write setCHCHNS;
  11230. property CHEDET : TBits_1 read getCHEDET write setCHEDET;
  11231. property CHEN : TBits_1 read getCHEN write setCHEN;
  11232. property CHPRI : TBits_2 read getCHPRI write setCHPRI;
  11233. property w : TBits_32 read getw write setw;
  11234. end;
  11235. TDMAC3_DCH3ECON = record
  11236. private
  11237. function getAIRQEN : TBits_1; inline;
  11238. function getCABORT : TBits_1; inline;
  11239. function getCFORCE : TBits_1; inline;
  11240. function getCHAIRQ : TBits_8; inline;
  11241. function getCHSIRQ : TBits_8; inline;
  11242. function getPATEN : TBits_1; inline;
  11243. function getSIRQEN : TBits_1; inline;
  11244. function getw : TBits_32; inline;
  11245. procedure setAIRQEN(thebits : TBits_1); inline;
  11246. procedure setCABORT(thebits : TBits_1); inline;
  11247. procedure setCFORCE(thebits : TBits_1); inline;
  11248. procedure setCHAIRQ(thebits : TBits_8); inline;
  11249. procedure setCHSIRQ(thebits : TBits_8); inline;
  11250. procedure setPATEN(thebits : TBits_1); inline;
  11251. procedure setSIRQEN(thebits : TBits_1); inline;
  11252. procedure setw(thebits : TBits_32); inline;
  11253. public
  11254. procedure clearAIRQEN; inline;
  11255. procedure clearCABORT; inline;
  11256. procedure clearCFORCE; inline;
  11257. procedure clearPATEN; inline;
  11258. procedure clearSIRQEN; inline;
  11259. procedure setAIRQEN; inline;
  11260. procedure setCABORT; inline;
  11261. procedure setCFORCE; inline;
  11262. procedure setPATEN; inline;
  11263. procedure setSIRQEN; inline;
  11264. property AIRQEN : TBits_1 read getAIRQEN write setAIRQEN;
  11265. property CABORT : TBits_1 read getCABORT write setCABORT;
  11266. property CFORCE : TBits_1 read getCFORCE write setCFORCE;
  11267. property CHAIRQ : TBits_8 read getCHAIRQ write setCHAIRQ;
  11268. property CHSIRQ : TBits_8 read getCHSIRQ write setCHSIRQ;
  11269. property PATEN : TBits_1 read getPATEN write setPATEN;
  11270. property SIRQEN : TBits_1 read getSIRQEN write setSIRQEN;
  11271. property w : TBits_32 read getw write setw;
  11272. end;
  11273. TDMAC3_DCH3INT = record
  11274. private
  11275. function getCHBCIE : TBits_1; inline;
  11276. function getCHBCIF : TBits_1; inline;
  11277. function getCHCCIE : TBits_1; inline;
  11278. function getCHCCIF : TBits_1; inline;
  11279. function getCHDDIE : TBits_1; inline;
  11280. function getCHDDIF : TBits_1; inline;
  11281. function getCHDHIE : TBits_1; inline;
  11282. function getCHDHIF : TBits_1; inline;
  11283. function getCHERIE : TBits_1; inline;
  11284. function getCHERIF : TBits_1; inline;
  11285. function getCHSDIE : TBits_1; inline;
  11286. function getCHSDIF : TBits_1; inline;
  11287. function getCHSHIE : TBits_1; inline;
  11288. function getCHSHIF : TBits_1; inline;
  11289. function getCHTAIE : TBits_1; inline;
  11290. function getCHTAIF : TBits_1; inline;
  11291. function getw : TBits_32; inline;
  11292. procedure setCHBCIE(thebits : TBits_1); inline;
  11293. procedure setCHBCIF(thebits : TBits_1); inline;
  11294. procedure setCHCCIE(thebits : TBits_1); inline;
  11295. procedure setCHCCIF(thebits : TBits_1); inline;
  11296. procedure setCHDDIE(thebits : TBits_1); inline;
  11297. procedure setCHDDIF(thebits : TBits_1); inline;
  11298. procedure setCHDHIE(thebits : TBits_1); inline;
  11299. procedure setCHDHIF(thebits : TBits_1); inline;
  11300. procedure setCHERIE(thebits : TBits_1); inline;
  11301. procedure setCHERIF(thebits : TBits_1); inline;
  11302. procedure setCHSDIE(thebits : TBits_1); inline;
  11303. procedure setCHSDIF(thebits : TBits_1); inline;
  11304. procedure setCHSHIE(thebits : TBits_1); inline;
  11305. procedure setCHSHIF(thebits : TBits_1); inline;
  11306. procedure setCHTAIE(thebits : TBits_1); inline;
  11307. procedure setCHTAIF(thebits : TBits_1); inline;
  11308. procedure setw(thebits : TBits_32); inline;
  11309. public
  11310. procedure clearCHBCIE; inline;
  11311. procedure clearCHBCIF; inline;
  11312. procedure clearCHCCIE; inline;
  11313. procedure clearCHCCIF; inline;
  11314. procedure clearCHDDIE; inline;
  11315. procedure clearCHDDIF; inline;
  11316. procedure clearCHDHIE; inline;
  11317. procedure clearCHDHIF; inline;
  11318. procedure clearCHERIE; inline;
  11319. procedure clearCHERIF; inline;
  11320. procedure clearCHSDIE; inline;
  11321. procedure clearCHSDIF; inline;
  11322. procedure clearCHSHIE; inline;
  11323. procedure clearCHSHIF; inline;
  11324. procedure clearCHTAIE; inline;
  11325. procedure clearCHTAIF; inline;
  11326. procedure setCHBCIE; inline;
  11327. procedure setCHBCIF; inline;
  11328. procedure setCHCCIE; inline;
  11329. procedure setCHCCIF; inline;
  11330. procedure setCHDDIE; inline;
  11331. procedure setCHDDIF; inline;
  11332. procedure setCHDHIE; inline;
  11333. procedure setCHDHIF; inline;
  11334. procedure setCHERIE; inline;
  11335. procedure setCHERIF; inline;
  11336. procedure setCHSDIE; inline;
  11337. procedure setCHSDIF; inline;
  11338. procedure setCHSHIE; inline;
  11339. procedure setCHSHIF; inline;
  11340. procedure setCHTAIE; inline;
  11341. procedure setCHTAIF; inline;
  11342. property CHBCIE : TBits_1 read getCHBCIE write setCHBCIE;
  11343. property CHBCIF : TBits_1 read getCHBCIF write setCHBCIF;
  11344. property CHCCIE : TBits_1 read getCHCCIE write setCHCCIE;
  11345. property CHCCIF : TBits_1 read getCHCCIF write setCHCCIF;
  11346. property CHDDIE : TBits_1 read getCHDDIE write setCHDDIE;
  11347. property CHDDIF : TBits_1 read getCHDDIF write setCHDDIF;
  11348. property CHDHIE : TBits_1 read getCHDHIE write setCHDHIE;
  11349. property CHDHIF : TBits_1 read getCHDHIF write setCHDHIF;
  11350. property CHERIE : TBits_1 read getCHERIE write setCHERIE;
  11351. property CHERIF : TBits_1 read getCHERIF write setCHERIF;
  11352. property CHSDIE : TBits_1 read getCHSDIE write setCHSDIE;
  11353. property CHSDIF : TBits_1 read getCHSDIF write setCHSDIF;
  11354. property CHSHIE : TBits_1 read getCHSHIE write setCHSHIE;
  11355. property CHSHIF : TBits_1 read getCHSHIF write setCHSHIF;
  11356. property CHTAIE : TBits_1 read getCHTAIE write setCHTAIE;
  11357. property CHTAIF : TBits_1 read getCHTAIF write setCHTAIF;
  11358. property w : TBits_32 read getw write setw;
  11359. end;
  11360. type
  11361. TDMAC3Registers = record
  11362. DCH3CONbits : TDMAC3_DCH3CON;
  11363. DCH3CON : longWord;
  11364. DCH3CONCLR : longWord;
  11365. DCH3CONSET : longWord;
  11366. DCH3CONINV : longWord;
  11367. DCH3ECONbits : TDMAC3_DCH3ECON;
  11368. DCH3ECON : longWord;
  11369. DCH3ECONCLR : longWord;
  11370. DCH3ECONSET : longWord;
  11371. DCH3ECONINV : longWord;
  11372. DCH3INTbits : TDMAC3_DCH3INT;
  11373. DCH3INT : longWord;
  11374. DCH3INTCLR : longWord;
  11375. DCH3INTSET : longWord;
  11376. DCH3INTINV : longWord;
  11377. DCH3SSA : longWord;
  11378. DCH3SSACLR : longWord;
  11379. DCH3SSASET : longWord;
  11380. DCH3SSAINV : longWord;
  11381. DCH3DSA : longWord;
  11382. DCH3DSACLR : longWord;
  11383. DCH3DSASET : longWord;
  11384. DCH3DSAINV : longWord;
  11385. DCH3SSIZ : longWord;
  11386. DCH3SSIZCLR : longWord;
  11387. DCH3SSIZSET : longWord;
  11388. DCH3SSIZINV : longWord;
  11389. DCH3DSIZ : longWord;
  11390. DCH3DSIZCLR : longWord;
  11391. DCH3DSIZSET : longWord;
  11392. DCH3DSIZINV : longWord;
  11393. DCH3SPTR : longWord;
  11394. DCH3SPTRCLR : longWord;
  11395. DCH3SPTRSET : longWord;
  11396. DCH3SPTRINV : longWord;
  11397. DCH3DPTR : longWord;
  11398. DCH3DPTRCLR : longWord;
  11399. DCH3DPTRSET : longWord;
  11400. DCH3DPTRINV : longWord;
  11401. DCH3CSIZ : longWord;
  11402. DCH3CSIZCLR : longWord;
  11403. DCH3CSIZSET : longWord;
  11404. DCH3CSIZINV : longWord;
  11405. DCH3CPTR : longWord;
  11406. DCH3CPTRCLR : longWord;
  11407. DCH3CPTRSET : longWord;
  11408. DCH3CPTRINV : longWord;
  11409. DCH3DAT : longWord;
  11410. DCH3DATCLR : longWord;
  11411. DCH3DATSET : longWord;
  11412. DCH3DATINV : longWord;
  11413. end;
  11414. TDMAC4_DCH4CON = record
  11415. private
  11416. function getCHAED : TBits_1; inline;
  11417. function getCHAEN : TBits_1; inline;
  11418. function getCHBUSY : TBits_1; inline;
  11419. function getCHCHN : TBits_1; inline;
  11420. function getCHCHNS : TBits_1; inline;
  11421. function getCHEDET : TBits_1; inline;
  11422. function getCHEN : TBits_1; inline;
  11423. function getCHPRI : TBits_2; inline;
  11424. function getw : TBits_32; inline;
  11425. procedure setCHAED(thebits : TBits_1); inline;
  11426. procedure setCHAEN(thebits : TBits_1); inline;
  11427. procedure setCHBUSY(thebits : TBits_1); inline;
  11428. procedure setCHCHN(thebits : TBits_1); inline;
  11429. procedure setCHCHNS(thebits : TBits_1); inline;
  11430. procedure setCHEDET(thebits : TBits_1); inline;
  11431. procedure setCHEN(thebits : TBits_1); inline;
  11432. procedure setCHPRI(thebits : TBits_2); inline;
  11433. procedure setw(thebits : TBits_32); inline;
  11434. public
  11435. procedure clearCHAED; inline;
  11436. procedure clearCHAEN; inline;
  11437. procedure clearCHBUSY; inline;
  11438. procedure clearCHCHN; inline;
  11439. procedure clearCHCHNS; inline;
  11440. procedure clearCHEDET; inline;
  11441. procedure clearCHEN; inline;
  11442. procedure setCHAED; inline;
  11443. procedure setCHAEN; inline;
  11444. procedure setCHBUSY; inline;
  11445. procedure setCHCHN; inline;
  11446. procedure setCHCHNS; inline;
  11447. procedure setCHEDET; inline;
  11448. procedure setCHEN; inline;
  11449. property CHAED : TBits_1 read getCHAED write setCHAED;
  11450. property CHAEN : TBits_1 read getCHAEN write setCHAEN;
  11451. property CHBUSY : TBits_1 read getCHBUSY write setCHBUSY;
  11452. property CHCHN : TBits_1 read getCHCHN write setCHCHN;
  11453. property CHCHNS : TBits_1 read getCHCHNS write setCHCHNS;
  11454. property CHEDET : TBits_1 read getCHEDET write setCHEDET;
  11455. property CHEN : TBits_1 read getCHEN write setCHEN;
  11456. property CHPRI : TBits_2 read getCHPRI write setCHPRI;
  11457. property w : TBits_32 read getw write setw;
  11458. end;
  11459. TDMAC4_DCH4ECON = record
  11460. private
  11461. function getAIRQEN : TBits_1; inline;
  11462. function getCABORT : TBits_1; inline;
  11463. function getCFORCE : TBits_1; inline;
  11464. function getCHAIRQ : TBits_8; inline;
  11465. function getCHSIRQ : TBits_8; inline;
  11466. function getPATEN : TBits_1; inline;
  11467. function getSIRQEN : TBits_1; inline;
  11468. function getw : TBits_32; inline;
  11469. procedure setAIRQEN(thebits : TBits_1); inline;
  11470. procedure setCABORT(thebits : TBits_1); inline;
  11471. procedure setCFORCE(thebits : TBits_1); inline;
  11472. procedure setCHAIRQ(thebits : TBits_8); inline;
  11473. procedure setCHSIRQ(thebits : TBits_8); inline;
  11474. procedure setPATEN(thebits : TBits_1); inline;
  11475. procedure setSIRQEN(thebits : TBits_1); inline;
  11476. procedure setw(thebits : TBits_32); inline;
  11477. public
  11478. procedure clearAIRQEN; inline;
  11479. procedure clearCABORT; inline;
  11480. procedure clearCFORCE; inline;
  11481. procedure clearPATEN; inline;
  11482. procedure clearSIRQEN; inline;
  11483. procedure setAIRQEN; inline;
  11484. procedure setCABORT; inline;
  11485. procedure setCFORCE; inline;
  11486. procedure setPATEN; inline;
  11487. procedure setSIRQEN; inline;
  11488. property AIRQEN : TBits_1 read getAIRQEN write setAIRQEN;
  11489. property CABORT : TBits_1 read getCABORT write setCABORT;
  11490. property CFORCE : TBits_1 read getCFORCE write setCFORCE;
  11491. property CHAIRQ : TBits_8 read getCHAIRQ write setCHAIRQ;
  11492. property CHSIRQ : TBits_8 read getCHSIRQ write setCHSIRQ;
  11493. property PATEN : TBits_1 read getPATEN write setPATEN;
  11494. property SIRQEN : TBits_1 read getSIRQEN write setSIRQEN;
  11495. property w : TBits_32 read getw write setw;
  11496. end;
  11497. TDMAC4_DCH4INT = record
  11498. private
  11499. function getCHBCIE : TBits_1; inline;
  11500. function getCHBCIF : TBits_1; inline;
  11501. function getCHCCIE : TBits_1; inline;
  11502. function getCHCCIF : TBits_1; inline;
  11503. function getCHDDIE : TBits_1; inline;
  11504. function getCHDDIF : TBits_1; inline;
  11505. function getCHDHIE : TBits_1; inline;
  11506. function getCHDHIF : TBits_1; inline;
  11507. function getCHERIE : TBits_1; inline;
  11508. function getCHERIF : TBits_1; inline;
  11509. function getCHSDIE : TBits_1; inline;
  11510. function getCHSDIF : TBits_1; inline;
  11511. function getCHSHIE : TBits_1; inline;
  11512. function getCHSHIF : TBits_1; inline;
  11513. function getCHTAIE : TBits_1; inline;
  11514. function getCHTAIF : TBits_1; inline;
  11515. function getw : TBits_32; inline;
  11516. procedure setCHBCIE(thebits : TBits_1); inline;
  11517. procedure setCHBCIF(thebits : TBits_1); inline;
  11518. procedure setCHCCIE(thebits : TBits_1); inline;
  11519. procedure setCHCCIF(thebits : TBits_1); inline;
  11520. procedure setCHDDIE(thebits : TBits_1); inline;
  11521. procedure setCHDDIF(thebits : TBits_1); inline;
  11522. procedure setCHDHIE(thebits : TBits_1); inline;
  11523. procedure setCHDHIF(thebits : TBits_1); inline;
  11524. procedure setCHERIE(thebits : TBits_1); inline;
  11525. procedure setCHERIF(thebits : TBits_1); inline;
  11526. procedure setCHSDIE(thebits : TBits_1); inline;
  11527. procedure setCHSDIF(thebits : TBits_1); inline;
  11528. procedure setCHSHIE(thebits : TBits_1); inline;
  11529. procedure setCHSHIF(thebits : TBits_1); inline;
  11530. procedure setCHTAIE(thebits : TBits_1); inline;
  11531. procedure setCHTAIF(thebits : TBits_1); inline;
  11532. procedure setw(thebits : TBits_32); inline;
  11533. public
  11534. procedure clearCHBCIE; inline;
  11535. procedure clearCHBCIF; inline;
  11536. procedure clearCHCCIE; inline;
  11537. procedure clearCHCCIF; inline;
  11538. procedure clearCHDDIE; inline;
  11539. procedure clearCHDDIF; inline;
  11540. procedure clearCHDHIE; inline;
  11541. procedure clearCHDHIF; inline;
  11542. procedure clearCHERIE; inline;
  11543. procedure clearCHERIF; inline;
  11544. procedure clearCHSDIE; inline;
  11545. procedure clearCHSDIF; inline;
  11546. procedure clearCHSHIE; inline;
  11547. procedure clearCHSHIF; inline;
  11548. procedure clearCHTAIE; inline;
  11549. procedure clearCHTAIF; inline;
  11550. procedure setCHBCIE; inline;
  11551. procedure setCHBCIF; inline;
  11552. procedure setCHCCIE; inline;
  11553. procedure setCHCCIF; inline;
  11554. procedure setCHDDIE; inline;
  11555. procedure setCHDDIF; inline;
  11556. procedure setCHDHIE; inline;
  11557. procedure setCHDHIF; inline;
  11558. procedure setCHERIE; inline;
  11559. procedure setCHERIF; inline;
  11560. procedure setCHSDIE; inline;
  11561. procedure setCHSDIF; inline;
  11562. procedure setCHSHIE; inline;
  11563. procedure setCHSHIF; inline;
  11564. procedure setCHTAIE; inline;
  11565. procedure setCHTAIF; inline;
  11566. property CHBCIE : TBits_1 read getCHBCIE write setCHBCIE;
  11567. property CHBCIF : TBits_1 read getCHBCIF write setCHBCIF;
  11568. property CHCCIE : TBits_1 read getCHCCIE write setCHCCIE;
  11569. property CHCCIF : TBits_1 read getCHCCIF write setCHCCIF;
  11570. property CHDDIE : TBits_1 read getCHDDIE write setCHDDIE;
  11571. property CHDDIF : TBits_1 read getCHDDIF write setCHDDIF;
  11572. property CHDHIE : TBits_1 read getCHDHIE write setCHDHIE;
  11573. property CHDHIF : TBits_1 read getCHDHIF write setCHDHIF;
  11574. property CHERIE : TBits_1 read getCHERIE write setCHERIE;
  11575. property CHERIF : TBits_1 read getCHERIF write setCHERIF;
  11576. property CHSDIE : TBits_1 read getCHSDIE write setCHSDIE;
  11577. property CHSDIF : TBits_1 read getCHSDIF write setCHSDIF;
  11578. property CHSHIE : TBits_1 read getCHSHIE write setCHSHIE;
  11579. property CHSHIF : TBits_1 read getCHSHIF write setCHSHIF;
  11580. property CHTAIE : TBits_1 read getCHTAIE write setCHTAIE;
  11581. property CHTAIF : TBits_1 read getCHTAIF write setCHTAIF;
  11582. property w : TBits_32 read getw write setw;
  11583. end;
  11584. type
  11585. TDMAC4Registers = record
  11586. DCH4CONbits : TDMAC4_DCH4CON;
  11587. DCH4CON : longWord;
  11588. DCH4CONCLR : longWord;
  11589. DCH4CONSET : longWord;
  11590. DCH4CONINV : longWord;
  11591. DCH4ECONbits : TDMAC4_DCH4ECON;
  11592. DCH4ECON : longWord;
  11593. DCH4ECONCLR : longWord;
  11594. DCH4ECONSET : longWord;
  11595. DCH4ECONINV : longWord;
  11596. DCH4INTbits : TDMAC4_DCH4INT;
  11597. DCH4INT : longWord;
  11598. DCH4INTCLR : longWord;
  11599. DCH4INTSET : longWord;
  11600. DCH4INTINV : longWord;
  11601. DCH4SSA : longWord;
  11602. DCH4SSACLR : longWord;
  11603. DCH4SSASET : longWord;
  11604. DCH4SSAINV : longWord;
  11605. DCH4DSA : longWord;
  11606. DCH4DSACLR : longWord;
  11607. DCH4DSASET : longWord;
  11608. DCH4DSAINV : longWord;
  11609. DCH4SSIZ : longWord;
  11610. DCH4SSIZCLR : longWord;
  11611. DCH4SSIZSET : longWord;
  11612. DCH4SSIZINV : longWord;
  11613. DCH4DSIZ : longWord;
  11614. DCH4DSIZCLR : longWord;
  11615. DCH4DSIZSET : longWord;
  11616. DCH4DSIZINV : longWord;
  11617. DCH4SPTR : longWord;
  11618. DCH4SPTRCLR : longWord;
  11619. DCH4SPTRSET : longWord;
  11620. DCH4SPTRINV : longWord;
  11621. DCH4DPTR : longWord;
  11622. DCH4DPTRCLR : longWord;
  11623. DCH4DPTRSET : longWord;
  11624. DCH4DPTRINV : longWord;
  11625. DCH4CSIZ : longWord;
  11626. DCH4CSIZCLR : longWord;
  11627. DCH4CSIZSET : longWord;
  11628. DCH4CSIZINV : longWord;
  11629. DCH4CPTR : longWord;
  11630. DCH4CPTRCLR : longWord;
  11631. DCH4CPTRSET : longWord;
  11632. DCH4CPTRINV : longWord;
  11633. DCH4DAT : longWord;
  11634. DCH4DATCLR : longWord;
  11635. DCH4DATSET : longWord;
  11636. DCH4DATINV : longWord;
  11637. end;
  11638. TDMAC5_DCH5CON = record
  11639. private
  11640. function getCHAED : TBits_1; inline;
  11641. function getCHAEN : TBits_1; inline;
  11642. function getCHBUSY : TBits_1; inline;
  11643. function getCHCHN : TBits_1; inline;
  11644. function getCHCHNS : TBits_1; inline;
  11645. function getCHEDET : TBits_1; inline;
  11646. function getCHEN : TBits_1; inline;
  11647. function getCHPRI : TBits_2; inline;
  11648. function getw : TBits_32; inline;
  11649. procedure setCHAED(thebits : TBits_1); inline;
  11650. procedure setCHAEN(thebits : TBits_1); inline;
  11651. procedure setCHBUSY(thebits : TBits_1); inline;
  11652. procedure setCHCHN(thebits : TBits_1); inline;
  11653. procedure setCHCHNS(thebits : TBits_1); inline;
  11654. procedure setCHEDET(thebits : TBits_1); inline;
  11655. procedure setCHEN(thebits : TBits_1); inline;
  11656. procedure setCHPRI(thebits : TBits_2); inline;
  11657. procedure setw(thebits : TBits_32); inline;
  11658. public
  11659. procedure clearCHAED; inline;
  11660. procedure clearCHAEN; inline;
  11661. procedure clearCHBUSY; inline;
  11662. procedure clearCHCHN; inline;
  11663. procedure clearCHCHNS; inline;
  11664. procedure clearCHEDET; inline;
  11665. procedure clearCHEN; inline;
  11666. procedure setCHAED; inline;
  11667. procedure setCHAEN; inline;
  11668. procedure setCHBUSY; inline;
  11669. procedure setCHCHN; inline;
  11670. procedure setCHCHNS; inline;
  11671. procedure setCHEDET; inline;
  11672. procedure setCHEN; inline;
  11673. property CHAED : TBits_1 read getCHAED write setCHAED;
  11674. property CHAEN : TBits_1 read getCHAEN write setCHAEN;
  11675. property CHBUSY : TBits_1 read getCHBUSY write setCHBUSY;
  11676. property CHCHN : TBits_1 read getCHCHN write setCHCHN;
  11677. property CHCHNS : TBits_1 read getCHCHNS write setCHCHNS;
  11678. property CHEDET : TBits_1 read getCHEDET write setCHEDET;
  11679. property CHEN : TBits_1 read getCHEN write setCHEN;
  11680. property CHPRI : TBits_2 read getCHPRI write setCHPRI;
  11681. property w : TBits_32 read getw write setw;
  11682. end;
  11683. TDMAC5_DCH5ECON = record
  11684. private
  11685. function getAIRQEN : TBits_1; inline;
  11686. function getCABORT : TBits_1; inline;
  11687. function getCFORCE : TBits_1; inline;
  11688. function getCHAIRQ : TBits_8; inline;
  11689. function getCHSIRQ : TBits_8; inline;
  11690. function getPATEN : TBits_1; inline;
  11691. function getSIRQEN : TBits_1; inline;
  11692. function getw : TBits_32; inline;
  11693. procedure setAIRQEN(thebits : TBits_1); inline;
  11694. procedure setCABORT(thebits : TBits_1); inline;
  11695. procedure setCFORCE(thebits : TBits_1); inline;
  11696. procedure setCHAIRQ(thebits : TBits_8); inline;
  11697. procedure setCHSIRQ(thebits : TBits_8); inline;
  11698. procedure setPATEN(thebits : TBits_1); inline;
  11699. procedure setSIRQEN(thebits : TBits_1); inline;
  11700. procedure setw(thebits : TBits_32); inline;
  11701. public
  11702. procedure clearAIRQEN; inline;
  11703. procedure clearCABORT; inline;
  11704. procedure clearCFORCE; inline;
  11705. procedure clearPATEN; inline;
  11706. procedure clearSIRQEN; inline;
  11707. procedure setAIRQEN; inline;
  11708. procedure setCABORT; inline;
  11709. procedure setCFORCE; inline;
  11710. procedure setPATEN; inline;
  11711. procedure setSIRQEN; inline;
  11712. property AIRQEN : TBits_1 read getAIRQEN write setAIRQEN;
  11713. property CABORT : TBits_1 read getCABORT write setCABORT;
  11714. property CFORCE : TBits_1 read getCFORCE write setCFORCE;
  11715. property CHAIRQ : TBits_8 read getCHAIRQ write setCHAIRQ;
  11716. property CHSIRQ : TBits_8 read getCHSIRQ write setCHSIRQ;
  11717. property PATEN : TBits_1 read getPATEN write setPATEN;
  11718. property SIRQEN : TBits_1 read getSIRQEN write setSIRQEN;
  11719. property w : TBits_32 read getw write setw;
  11720. end;
  11721. TDMAC5_DCH5INT = record
  11722. private
  11723. function getCHBCIE : TBits_1; inline;
  11724. function getCHBCIF : TBits_1; inline;
  11725. function getCHCCIE : TBits_1; inline;
  11726. function getCHCCIF : TBits_1; inline;
  11727. function getCHDDIE : TBits_1; inline;
  11728. function getCHDDIF : TBits_1; inline;
  11729. function getCHDHIE : TBits_1; inline;
  11730. function getCHDHIF : TBits_1; inline;
  11731. function getCHERIE : TBits_1; inline;
  11732. function getCHERIF : TBits_1; inline;
  11733. function getCHSDIE : TBits_1; inline;
  11734. function getCHSDIF : TBits_1; inline;
  11735. function getCHSHIE : TBits_1; inline;
  11736. function getCHSHIF : TBits_1; inline;
  11737. function getCHTAIE : TBits_1; inline;
  11738. function getCHTAIF : TBits_1; inline;
  11739. function getw : TBits_32; inline;
  11740. procedure setCHBCIE(thebits : TBits_1); inline;
  11741. procedure setCHBCIF(thebits : TBits_1); inline;
  11742. procedure setCHCCIE(thebits : TBits_1); inline;
  11743. procedure setCHCCIF(thebits : TBits_1); inline;
  11744. procedure setCHDDIE(thebits : TBits_1); inline;
  11745. procedure setCHDDIF(thebits : TBits_1); inline;
  11746. procedure setCHDHIE(thebits : TBits_1); inline;
  11747. procedure setCHDHIF(thebits : TBits_1); inline;
  11748. procedure setCHERIE(thebits : TBits_1); inline;
  11749. procedure setCHERIF(thebits : TBits_1); inline;
  11750. procedure setCHSDIE(thebits : TBits_1); inline;
  11751. procedure setCHSDIF(thebits : TBits_1); inline;
  11752. procedure setCHSHIE(thebits : TBits_1); inline;
  11753. procedure setCHSHIF(thebits : TBits_1); inline;
  11754. procedure setCHTAIE(thebits : TBits_1); inline;
  11755. procedure setCHTAIF(thebits : TBits_1); inline;
  11756. procedure setw(thebits : TBits_32); inline;
  11757. public
  11758. procedure clearCHBCIE; inline;
  11759. procedure clearCHBCIF; inline;
  11760. procedure clearCHCCIE; inline;
  11761. procedure clearCHCCIF; inline;
  11762. procedure clearCHDDIE; inline;
  11763. procedure clearCHDDIF; inline;
  11764. procedure clearCHDHIE; inline;
  11765. procedure clearCHDHIF; inline;
  11766. procedure clearCHERIE; inline;
  11767. procedure clearCHERIF; inline;
  11768. procedure clearCHSDIE; inline;
  11769. procedure clearCHSDIF; inline;
  11770. procedure clearCHSHIE; inline;
  11771. procedure clearCHSHIF; inline;
  11772. procedure clearCHTAIE; inline;
  11773. procedure clearCHTAIF; inline;
  11774. procedure setCHBCIE; inline;
  11775. procedure setCHBCIF; inline;
  11776. procedure setCHCCIE; inline;
  11777. procedure setCHCCIF; inline;
  11778. procedure setCHDDIE; inline;
  11779. procedure setCHDDIF; inline;
  11780. procedure setCHDHIE; inline;
  11781. procedure setCHDHIF; inline;
  11782. procedure setCHERIE; inline;
  11783. procedure setCHERIF; inline;
  11784. procedure setCHSDIE; inline;
  11785. procedure setCHSDIF; inline;
  11786. procedure setCHSHIE; inline;
  11787. procedure setCHSHIF; inline;
  11788. procedure setCHTAIE; inline;
  11789. procedure setCHTAIF; inline;
  11790. property CHBCIE : TBits_1 read getCHBCIE write setCHBCIE;
  11791. property CHBCIF : TBits_1 read getCHBCIF write setCHBCIF;
  11792. property CHCCIE : TBits_1 read getCHCCIE write setCHCCIE;
  11793. property CHCCIF : TBits_1 read getCHCCIF write setCHCCIF;
  11794. property CHDDIE : TBits_1 read getCHDDIE write setCHDDIE;
  11795. property CHDDIF : TBits_1 read getCHDDIF write setCHDDIF;
  11796. property CHDHIE : TBits_1 read getCHDHIE write setCHDHIE;
  11797. property CHDHIF : TBits_1 read getCHDHIF write setCHDHIF;
  11798. property CHERIE : TBits_1 read getCHERIE write setCHERIE;
  11799. property CHERIF : TBits_1 read getCHERIF write setCHERIF;
  11800. property CHSDIE : TBits_1 read getCHSDIE write setCHSDIE;
  11801. property CHSDIF : TBits_1 read getCHSDIF write setCHSDIF;
  11802. property CHSHIE : TBits_1 read getCHSHIE write setCHSHIE;
  11803. property CHSHIF : TBits_1 read getCHSHIF write setCHSHIF;
  11804. property CHTAIE : TBits_1 read getCHTAIE write setCHTAIE;
  11805. property CHTAIF : TBits_1 read getCHTAIF write setCHTAIF;
  11806. property w : TBits_32 read getw write setw;
  11807. end;
  11808. type
  11809. TDMAC5Registers = record
  11810. DCH5CONbits : TDMAC5_DCH5CON;
  11811. DCH5CON : longWord;
  11812. DCH5CONCLR : longWord;
  11813. DCH5CONSET : longWord;
  11814. DCH5CONINV : longWord;
  11815. DCH5ECONbits : TDMAC5_DCH5ECON;
  11816. DCH5ECON : longWord;
  11817. DCH5ECONCLR : longWord;
  11818. DCH5ECONSET : longWord;
  11819. DCH5ECONINV : longWord;
  11820. DCH5INTbits : TDMAC5_DCH5INT;
  11821. DCH5INT : longWord;
  11822. DCH5INTCLR : longWord;
  11823. DCH5INTSET : longWord;
  11824. DCH5INTINV : longWord;
  11825. DCH5SSA : longWord;
  11826. DCH5SSACLR : longWord;
  11827. DCH5SSASET : longWord;
  11828. DCH5SSAINV : longWord;
  11829. DCH5DSA : longWord;
  11830. DCH5DSACLR : longWord;
  11831. DCH5DSASET : longWord;
  11832. DCH5DSAINV : longWord;
  11833. DCH5SSIZ : longWord;
  11834. DCH5SSIZCLR : longWord;
  11835. DCH5SSIZSET : longWord;
  11836. DCH5SSIZINV : longWord;
  11837. DCH5DSIZ : longWord;
  11838. DCH5DSIZCLR : longWord;
  11839. DCH5DSIZSET : longWord;
  11840. DCH5DSIZINV : longWord;
  11841. DCH5SPTR : longWord;
  11842. DCH5SPTRCLR : longWord;
  11843. DCH5SPTRSET : longWord;
  11844. DCH5SPTRINV : longWord;
  11845. DCH5DPTR : longWord;
  11846. DCH5DPTRCLR : longWord;
  11847. DCH5DPTRSET : longWord;
  11848. DCH5DPTRINV : longWord;
  11849. DCH5CSIZ : longWord;
  11850. DCH5CSIZCLR : longWord;
  11851. DCH5CSIZSET : longWord;
  11852. DCH5CSIZINV : longWord;
  11853. DCH5CPTR : longWord;
  11854. DCH5CPTRCLR : longWord;
  11855. DCH5CPTRSET : longWord;
  11856. DCH5CPTRINV : longWord;
  11857. DCH5DAT : longWord;
  11858. DCH5DATCLR : longWord;
  11859. DCH5DATSET : longWord;
  11860. DCH5DATINV : longWord;
  11861. end;
  11862. TDMAC6_DCH6CON = record
  11863. private
  11864. function getCHAED : TBits_1; inline;
  11865. function getCHAEN : TBits_1; inline;
  11866. function getCHBUSY : TBits_1; inline;
  11867. function getCHCHN : TBits_1; inline;
  11868. function getCHCHNS : TBits_1; inline;
  11869. function getCHEDET : TBits_1; inline;
  11870. function getCHEN : TBits_1; inline;
  11871. function getCHPRI : TBits_2; inline;
  11872. function getw : TBits_32; inline;
  11873. procedure setCHAED(thebits : TBits_1); inline;
  11874. procedure setCHAEN(thebits : TBits_1); inline;
  11875. procedure setCHBUSY(thebits : TBits_1); inline;
  11876. procedure setCHCHN(thebits : TBits_1); inline;
  11877. procedure setCHCHNS(thebits : TBits_1); inline;
  11878. procedure setCHEDET(thebits : TBits_1); inline;
  11879. procedure setCHEN(thebits : TBits_1); inline;
  11880. procedure setCHPRI(thebits : TBits_2); inline;
  11881. procedure setw(thebits : TBits_32); inline;
  11882. public
  11883. procedure clearCHAED; inline;
  11884. procedure clearCHAEN; inline;
  11885. procedure clearCHBUSY; inline;
  11886. procedure clearCHCHN; inline;
  11887. procedure clearCHCHNS; inline;
  11888. procedure clearCHEDET; inline;
  11889. procedure clearCHEN; inline;
  11890. procedure setCHAED; inline;
  11891. procedure setCHAEN; inline;
  11892. procedure setCHBUSY; inline;
  11893. procedure setCHCHN; inline;
  11894. procedure setCHCHNS; inline;
  11895. procedure setCHEDET; inline;
  11896. procedure setCHEN; inline;
  11897. property CHAED : TBits_1 read getCHAED write setCHAED;
  11898. property CHAEN : TBits_1 read getCHAEN write setCHAEN;
  11899. property CHBUSY : TBits_1 read getCHBUSY write setCHBUSY;
  11900. property CHCHN : TBits_1 read getCHCHN write setCHCHN;
  11901. property CHCHNS : TBits_1 read getCHCHNS write setCHCHNS;
  11902. property CHEDET : TBits_1 read getCHEDET write setCHEDET;
  11903. property CHEN : TBits_1 read getCHEN write setCHEN;
  11904. property CHPRI : TBits_2 read getCHPRI write setCHPRI;
  11905. property w : TBits_32 read getw write setw;
  11906. end;
  11907. TDMAC6_DCH6ECON = record
  11908. private
  11909. function getAIRQEN : TBits_1; inline;
  11910. function getCABORT : TBits_1; inline;
  11911. function getCFORCE : TBits_1; inline;
  11912. function getCHAIRQ : TBits_8; inline;
  11913. function getCHSIRQ : TBits_8; inline;
  11914. function getPATEN : TBits_1; inline;
  11915. function getSIRQEN : TBits_1; inline;
  11916. function getw : TBits_32; inline;
  11917. procedure setAIRQEN(thebits : TBits_1); inline;
  11918. procedure setCABORT(thebits : TBits_1); inline;
  11919. procedure setCFORCE(thebits : TBits_1); inline;
  11920. procedure setCHAIRQ(thebits : TBits_8); inline;
  11921. procedure setCHSIRQ(thebits : TBits_8); inline;
  11922. procedure setPATEN(thebits : TBits_1); inline;
  11923. procedure setSIRQEN(thebits : TBits_1); inline;
  11924. procedure setw(thebits : TBits_32); inline;
  11925. public
  11926. procedure clearAIRQEN; inline;
  11927. procedure clearCABORT; inline;
  11928. procedure clearCFORCE; inline;
  11929. procedure clearPATEN; inline;
  11930. procedure clearSIRQEN; inline;
  11931. procedure setAIRQEN; inline;
  11932. procedure setCABORT; inline;
  11933. procedure setCFORCE; inline;
  11934. procedure setPATEN; inline;
  11935. procedure setSIRQEN; inline;
  11936. property AIRQEN : TBits_1 read getAIRQEN write setAIRQEN;
  11937. property CABORT : TBits_1 read getCABORT write setCABORT;
  11938. property CFORCE : TBits_1 read getCFORCE write setCFORCE;
  11939. property CHAIRQ : TBits_8 read getCHAIRQ write setCHAIRQ;
  11940. property CHSIRQ : TBits_8 read getCHSIRQ write setCHSIRQ;
  11941. property PATEN : TBits_1 read getPATEN write setPATEN;
  11942. property SIRQEN : TBits_1 read getSIRQEN write setSIRQEN;
  11943. property w : TBits_32 read getw write setw;
  11944. end;
  11945. TDMAC6_DCH6INT = record
  11946. private
  11947. function getCHBCIE : TBits_1; inline;
  11948. function getCHBCIF : TBits_1; inline;
  11949. function getCHCCIE : TBits_1; inline;
  11950. function getCHCCIF : TBits_1; inline;
  11951. function getCHDDIE : TBits_1; inline;
  11952. function getCHDDIF : TBits_1; inline;
  11953. function getCHDHIE : TBits_1; inline;
  11954. function getCHDHIF : TBits_1; inline;
  11955. function getCHERIE : TBits_1; inline;
  11956. function getCHERIF : TBits_1; inline;
  11957. function getCHSDIE : TBits_1; inline;
  11958. function getCHSDIF : TBits_1; inline;
  11959. function getCHSHIE : TBits_1; inline;
  11960. function getCHSHIF : TBits_1; inline;
  11961. function getCHTAIE : TBits_1; inline;
  11962. function getCHTAIF : TBits_1; inline;
  11963. function getw : TBits_32; inline;
  11964. procedure setCHBCIE(thebits : TBits_1); inline;
  11965. procedure setCHBCIF(thebits : TBits_1); inline;
  11966. procedure setCHCCIE(thebits : TBits_1); inline;
  11967. procedure setCHCCIF(thebits : TBits_1); inline;
  11968. procedure setCHDDIE(thebits : TBits_1); inline;
  11969. procedure setCHDDIF(thebits : TBits_1); inline;
  11970. procedure setCHDHIE(thebits : TBits_1); inline;
  11971. procedure setCHDHIF(thebits : TBits_1); inline;
  11972. procedure setCHERIE(thebits : TBits_1); inline;
  11973. procedure setCHERIF(thebits : TBits_1); inline;
  11974. procedure setCHSDIE(thebits : TBits_1); inline;
  11975. procedure setCHSDIF(thebits : TBits_1); inline;
  11976. procedure setCHSHIE(thebits : TBits_1); inline;
  11977. procedure setCHSHIF(thebits : TBits_1); inline;
  11978. procedure setCHTAIE(thebits : TBits_1); inline;
  11979. procedure setCHTAIF(thebits : TBits_1); inline;
  11980. procedure setw(thebits : TBits_32); inline;
  11981. public
  11982. procedure clearCHBCIE; inline;
  11983. procedure clearCHBCIF; inline;
  11984. procedure clearCHCCIE; inline;
  11985. procedure clearCHCCIF; inline;
  11986. procedure clearCHDDIE; inline;
  11987. procedure clearCHDDIF; inline;
  11988. procedure clearCHDHIE; inline;
  11989. procedure clearCHDHIF; inline;
  11990. procedure clearCHERIE; inline;
  11991. procedure clearCHERIF; inline;
  11992. procedure clearCHSDIE; inline;
  11993. procedure clearCHSDIF; inline;
  11994. procedure clearCHSHIE; inline;
  11995. procedure clearCHSHIF; inline;
  11996. procedure clearCHTAIE; inline;
  11997. procedure clearCHTAIF; inline;
  11998. procedure setCHBCIE; inline;
  11999. procedure setCHBCIF; inline;
  12000. procedure setCHCCIE; inline;
  12001. procedure setCHCCIF; inline;
  12002. procedure setCHDDIE; inline;
  12003. procedure setCHDDIF; inline;
  12004. procedure setCHDHIE; inline;
  12005. procedure setCHDHIF; inline;
  12006. procedure setCHERIE; inline;
  12007. procedure setCHERIF; inline;
  12008. procedure setCHSDIE; inline;
  12009. procedure setCHSDIF; inline;
  12010. procedure setCHSHIE; inline;
  12011. procedure setCHSHIF; inline;
  12012. procedure setCHTAIE; inline;
  12013. procedure setCHTAIF; inline;
  12014. property CHBCIE : TBits_1 read getCHBCIE write setCHBCIE;
  12015. property CHBCIF : TBits_1 read getCHBCIF write setCHBCIF;
  12016. property CHCCIE : TBits_1 read getCHCCIE write setCHCCIE;
  12017. property CHCCIF : TBits_1 read getCHCCIF write setCHCCIF;
  12018. property CHDDIE : TBits_1 read getCHDDIE write setCHDDIE;
  12019. property CHDDIF : TBits_1 read getCHDDIF write setCHDDIF;
  12020. property CHDHIE : TBits_1 read getCHDHIE write setCHDHIE;
  12021. property CHDHIF : TBits_1 read getCHDHIF write setCHDHIF;
  12022. property CHERIE : TBits_1 read getCHERIE write setCHERIE;
  12023. property CHERIF : TBits_1 read getCHERIF write setCHERIF;
  12024. property CHSDIE : TBits_1 read getCHSDIE write setCHSDIE;
  12025. property CHSDIF : TBits_1 read getCHSDIF write setCHSDIF;
  12026. property CHSHIE : TBits_1 read getCHSHIE write setCHSHIE;
  12027. property CHSHIF : TBits_1 read getCHSHIF write setCHSHIF;
  12028. property CHTAIE : TBits_1 read getCHTAIE write setCHTAIE;
  12029. property CHTAIF : TBits_1 read getCHTAIF write setCHTAIF;
  12030. property w : TBits_32 read getw write setw;
  12031. end;
  12032. type
  12033. TDMAC6Registers = record
  12034. DCH6CONbits : TDMAC6_DCH6CON;
  12035. DCH6CON : longWord;
  12036. DCH6CONCLR : longWord;
  12037. DCH6CONSET : longWord;
  12038. DCH6CONINV : longWord;
  12039. DCH6ECONbits : TDMAC6_DCH6ECON;
  12040. DCH6ECON : longWord;
  12041. DCH6ECONCLR : longWord;
  12042. DCH6ECONSET : longWord;
  12043. DCH6ECONINV : longWord;
  12044. DCH6INTbits : TDMAC6_DCH6INT;
  12045. DCH6INT : longWord;
  12046. DCH6INTCLR : longWord;
  12047. DCH6INTSET : longWord;
  12048. DCH6INTINV : longWord;
  12049. DCH6SSA : longWord;
  12050. DCH6SSACLR : longWord;
  12051. DCH6SSASET : longWord;
  12052. DCH6SSAINV : longWord;
  12053. DCH6DSA : longWord;
  12054. DCH6DSACLR : longWord;
  12055. DCH6DSASET : longWord;
  12056. DCH6DSAINV : longWord;
  12057. DCH6SSIZ : longWord;
  12058. DCH6SSIZCLR : longWord;
  12059. DCH6SSIZSET : longWord;
  12060. DCH6SSIZINV : longWord;
  12061. DCH6DSIZ : longWord;
  12062. DCH6DSIZCLR : longWord;
  12063. DCH6DSIZSET : longWord;
  12064. DCH6DSIZINV : longWord;
  12065. DCH6SPTR : longWord;
  12066. DCH6SPTRCLR : longWord;
  12067. DCH6SPTRSET : longWord;
  12068. DCH6SPTRINV : longWord;
  12069. DCH6DPTR : longWord;
  12070. DCH6DPTRCLR : longWord;
  12071. DCH6DPTRSET : longWord;
  12072. DCH6DPTRINV : longWord;
  12073. DCH6CSIZ : longWord;
  12074. DCH6CSIZCLR : longWord;
  12075. DCH6CSIZSET : longWord;
  12076. DCH6CSIZINV : longWord;
  12077. DCH6CPTR : longWord;
  12078. DCH6CPTRCLR : longWord;
  12079. DCH6CPTRSET : longWord;
  12080. DCH6CPTRINV : longWord;
  12081. DCH6DAT : longWord;
  12082. DCH6DATCLR : longWord;
  12083. DCH6DATSET : longWord;
  12084. DCH6DATINV : longWord;
  12085. end;
  12086. TDMAC7_DCH7CON = record
  12087. private
  12088. function getCHAED : TBits_1; inline;
  12089. function getCHAEN : TBits_1; inline;
  12090. function getCHBUSY : TBits_1; inline;
  12091. function getCHCHN : TBits_1; inline;
  12092. function getCHCHNS : TBits_1; inline;
  12093. function getCHEDET : TBits_1; inline;
  12094. function getCHEN : TBits_1; inline;
  12095. function getCHPRI : TBits_2; inline;
  12096. function getw : TBits_32; inline;
  12097. procedure setCHAED(thebits : TBits_1); inline;
  12098. procedure setCHAEN(thebits : TBits_1); inline;
  12099. procedure setCHBUSY(thebits : TBits_1); inline;
  12100. procedure setCHCHN(thebits : TBits_1); inline;
  12101. procedure setCHCHNS(thebits : TBits_1); inline;
  12102. procedure setCHEDET(thebits : TBits_1); inline;
  12103. procedure setCHEN(thebits : TBits_1); inline;
  12104. procedure setCHPRI(thebits : TBits_2); inline;
  12105. procedure setw(thebits : TBits_32); inline;
  12106. public
  12107. procedure clearCHAED; inline;
  12108. procedure clearCHAEN; inline;
  12109. procedure clearCHBUSY; inline;
  12110. procedure clearCHCHN; inline;
  12111. procedure clearCHCHNS; inline;
  12112. procedure clearCHEDET; inline;
  12113. procedure clearCHEN; inline;
  12114. procedure setCHAED; inline;
  12115. procedure setCHAEN; inline;
  12116. procedure setCHBUSY; inline;
  12117. procedure setCHCHN; inline;
  12118. procedure setCHCHNS; inline;
  12119. procedure setCHEDET; inline;
  12120. procedure setCHEN; inline;
  12121. property CHAED : TBits_1 read getCHAED write setCHAED;
  12122. property CHAEN : TBits_1 read getCHAEN write setCHAEN;
  12123. property CHBUSY : TBits_1 read getCHBUSY write setCHBUSY;
  12124. property CHCHN : TBits_1 read getCHCHN write setCHCHN;
  12125. property CHCHNS : TBits_1 read getCHCHNS write setCHCHNS;
  12126. property CHEDET : TBits_1 read getCHEDET write setCHEDET;
  12127. property CHEN : TBits_1 read getCHEN write setCHEN;
  12128. property CHPRI : TBits_2 read getCHPRI write setCHPRI;
  12129. property w : TBits_32 read getw write setw;
  12130. end;
  12131. TDMAC7_DCH7ECON = record
  12132. private
  12133. function getAIRQEN : TBits_1; inline;
  12134. function getCABORT : TBits_1; inline;
  12135. function getCFORCE : TBits_1; inline;
  12136. function getCHAIRQ : TBits_8; inline;
  12137. function getCHSIRQ : TBits_8; inline;
  12138. function getPATEN : TBits_1; inline;
  12139. function getSIRQEN : TBits_1; inline;
  12140. function getw : TBits_32; inline;
  12141. procedure setAIRQEN(thebits : TBits_1); inline;
  12142. procedure setCABORT(thebits : TBits_1); inline;
  12143. procedure setCFORCE(thebits : TBits_1); inline;
  12144. procedure setCHAIRQ(thebits : TBits_8); inline;
  12145. procedure setCHSIRQ(thebits : TBits_8); inline;
  12146. procedure setPATEN(thebits : TBits_1); inline;
  12147. procedure setSIRQEN(thebits : TBits_1); inline;
  12148. procedure setw(thebits : TBits_32); inline;
  12149. public
  12150. procedure clearAIRQEN; inline;
  12151. procedure clearCABORT; inline;
  12152. procedure clearCFORCE; inline;
  12153. procedure clearPATEN; inline;
  12154. procedure clearSIRQEN; inline;
  12155. procedure setAIRQEN; inline;
  12156. procedure setCABORT; inline;
  12157. procedure setCFORCE; inline;
  12158. procedure setPATEN; inline;
  12159. procedure setSIRQEN; inline;
  12160. property AIRQEN : TBits_1 read getAIRQEN write setAIRQEN;
  12161. property CABORT : TBits_1 read getCABORT write setCABORT;
  12162. property CFORCE : TBits_1 read getCFORCE write setCFORCE;
  12163. property CHAIRQ : TBits_8 read getCHAIRQ write setCHAIRQ;
  12164. property CHSIRQ : TBits_8 read getCHSIRQ write setCHSIRQ;
  12165. property PATEN : TBits_1 read getPATEN write setPATEN;
  12166. property SIRQEN : TBits_1 read getSIRQEN write setSIRQEN;
  12167. property w : TBits_32 read getw write setw;
  12168. end;
  12169. TDMAC7_DCH7INT = record
  12170. private
  12171. function getCHBCIE : TBits_1; inline;
  12172. function getCHBCIF : TBits_1; inline;
  12173. function getCHCCIE : TBits_1; inline;
  12174. function getCHCCIF : TBits_1; inline;
  12175. function getCHDDIE : TBits_1; inline;
  12176. function getCHDDIF : TBits_1; inline;
  12177. function getCHDHIE : TBits_1; inline;
  12178. function getCHDHIF : TBits_1; inline;
  12179. function getCHERIE : TBits_1; inline;
  12180. function getCHERIF : TBits_1; inline;
  12181. function getCHSDIE : TBits_1; inline;
  12182. function getCHSDIF : TBits_1; inline;
  12183. function getCHSHIE : TBits_1; inline;
  12184. function getCHSHIF : TBits_1; inline;
  12185. function getCHTAIE : TBits_1; inline;
  12186. function getCHTAIF : TBits_1; inline;
  12187. function getw : TBits_32; inline;
  12188. procedure setCHBCIE(thebits : TBits_1); inline;
  12189. procedure setCHBCIF(thebits : TBits_1); inline;
  12190. procedure setCHCCIE(thebits : TBits_1); inline;
  12191. procedure setCHCCIF(thebits : TBits_1); inline;
  12192. procedure setCHDDIE(thebits : TBits_1); inline;
  12193. procedure setCHDDIF(thebits : TBits_1); inline;
  12194. procedure setCHDHIE(thebits : TBits_1); inline;
  12195. procedure setCHDHIF(thebits : TBits_1); inline;
  12196. procedure setCHERIE(thebits : TBits_1); inline;
  12197. procedure setCHERIF(thebits : TBits_1); inline;
  12198. procedure setCHSDIE(thebits : TBits_1); inline;
  12199. procedure setCHSDIF(thebits : TBits_1); inline;
  12200. procedure setCHSHIE(thebits : TBits_1); inline;
  12201. procedure setCHSHIF(thebits : TBits_1); inline;
  12202. procedure setCHTAIE(thebits : TBits_1); inline;
  12203. procedure setCHTAIF(thebits : TBits_1); inline;
  12204. procedure setw(thebits : TBits_32); inline;
  12205. public
  12206. procedure clearCHBCIE; inline;
  12207. procedure clearCHBCIF; inline;
  12208. procedure clearCHCCIE; inline;
  12209. procedure clearCHCCIF; inline;
  12210. procedure clearCHDDIE; inline;
  12211. procedure clearCHDDIF; inline;
  12212. procedure clearCHDHIE; inline;
  12213. procedure clearCHDHIF; inline;
  12214. procedure clearCHERIE; inline;
  12215. procedure clearCHERIF; inline;
  12216. procedure clearCHSDIE; inline;
  12217. procedure clearCHSDIF; inline;
  12218. procedure clearCHSHIE; inline;
  12219. procedure clearCHSHIF; inline;
  12220. procedure clearCHTAIE; inline;
  12221. procedure clearCHTAIF; inline;
  12222. procedure setCHBCIE; inline;
  12223. procedure setCHBCIF; inline;
  12224. procedure setCHCCIE; inline;
  12225. procedure setCHCCIF; inline;
  12226. procedure setCHDDIE; inline;
  12227. procedure setCHDDIF; inline;
  12228. procedure setCHDHIE; inline;
  12229. procedure setCHDHIF; inline;
  12230. procedure setCHERIE; inline;
  12231. procedure setCHERIF; inline;
  12232. procedure setCHSDIE; inline;
  12233. procedure setCHSDIF; inline;
  12234. procedure setCHSHIE; inline;
  12235. procedure setCHSHIF; inline;
  12236. procedure setCHTAIE; inline;
  12237. procedure setCHTAIF; inline;
  12238. property CHBCIE : TBits_1 read getCHBCIE write setCHBCIE;
  12239. property CHBCIF : TBits_1 read getCHBCIF write setCHBCIF;
  12240. property CHCCIE : TBits_1 read getCHCCIE write setCHCCIE;
  12241. property CHCCIF : TBits_1 read getCHCCIF write setCHCCIF;
  12242. property CHDDIE : TBits_1 read getCHDDIE write setCHDDIE;
  12243. property CHDDIF : TBits_1 read getCHDDIF write setCHDDIF;
  12244. property CHDHIE : TBits_1 read getCHDHIE write setCHDHIE;
  12245. property CHDHIF : TBits_1 read getCHDHIF write setCHDHIF;
  12246. property CHERIE : TBits_1 read getCHERIE write setCHERIE;
  12247. property CHERIF : TBits_1 read getCHERIF write setCHERIF;
  12248. property CHSDIE : TBits_1 read getCHSDIE write setCHSDIE;
  12249. property CHSDIF : TBits_1 read getCHSDIF write setCHSDIF;
  12250. property CHSHIE : TBits_1 read getCHSHIE write setCHSHIE;
  12251. property CHSHIF : TBits_1 read getCHSHIF write setCHSHIF;
  12252. property CHTAIE : TBits_1 read getCHTAIE write setCHTAIE;
  12253. property CHTAIF : TBits_1 read getCHTAIF write setCHTAIF;
  12254. property w : TBits_32 read getw write setw;
  12255. end;
  12256. type
  12257. TDMAC7Registers = record
  12258. DCH7CONbits : TDMAC7_DCH7CON;
  12259. DCH7CON : longWord;
  12260. DCH7CONCLR : longWord;
  12261. DCH7CONSET : longWord;
  12262. DCH7CONINV : longWord;
  12263. DCH7ECONbits : TDMAC7_DCH7ECON;
  12264. DCH7ECON : longWord;
  12265. DCH7ECONCLR : longWord;
  12266. DCH7ECONSET : longWord;
  12267. DCH7ECONINV : longWord;
  12268. DCH7INTbits : TDMAC7_DCH7INT;
  12269. DCH7INT : longWord;
  12270. DCH7INTCLR : longWord;
  12271. DCH7INTSET : longWord;
  12272. DCH7INTINV : longWord;
  12273. DCH7SSA : longWord;
  12274. DCH7SSACLR : longWord;
  12275. DCH7SSASET : longWord;
  12276. DCH7SSAINV : longWord;
  12277. DCH7DSA : longWord;
  12278. DCH7DSACLR : longWord;
  12279. DCH7DSASET : longWord;
  12280. DCH7DSAINV : longWord;
  12281. DCH7SSIZ : longWord;
  12282. DCH7SSIZCLR : longWord;
  12283. DCH7SSIZSET : longWord;
  12284. DCH7SSIZINV : longWord;
  12285. DCH7DSIZ : longWord;
  12286. DCH7DSIZCLR : longWord;
  12287. DCH7DSIZSET : longWord;
  12288. DCH7DSIZINV : longWord;
  12289. DCH7SPTR : longWord;
  12290. DCH7SPTRCLR : longWord;
  12291. DCH7SPTRSET : longWord;
  12292. DCH7SPTRINV : longWord;
  12293. DCH7DPTR : longWord;
  12294. DCH7DPTRCLR : longWord;
  12295. DCH7DPTRSET : longWord;
  12296. DCH7DPTRINV : longWord;
  12297. DCH7CSIZ : longWord;
  12298. DCH7CSIZCLR : longWord;
  12299. DCH7CSIZSET : longWord;
  12300. DCH7CSIZINV : longWord;
  12301. DCH7CPTR : longWord;
  12302. DCH7CPTRCLR : longWord;
  12303. DCH7CPTRSET : longWord;
  12304. DCH7CPTRINV : longWord;
  12305. DCH7DAT : longWord;
  12306. DCH7DATCLR : longWord;
  12307. DCH7DATSET : longWord;
  12308. DCH7DATINV : longWord;
  12309. end;
  12310. TPCACHE_CHECON = record
  12311. private
  12312. function getCHECOH : TBits_1; inline;
  12313. function getDCSZ : TBits_2; inline;
  12314. function getPFMWS : TBits_3; inline;
  12315. function getPREFEN : TBits_2; inline;
  12316. function getw : TBits_32; inline;
  12317. procedure setCHECOH(thebits : TBits_1); inline;
  12318. procedure setDCSZ(thebits : TBits_2); inline;
  12319. procedure setPFMWS(thebits : TBits_3); inline;
  12320. procedure setPREFEN(thebits : TBits_2); inline;
  12321. procedure setw(thebits : TBits_32); inline;
  12322. public
  12323. procedure clearCHECOH; inline;
  12324. procedure setCHECOH; inline;
  12325. property CHECOH : TBits_1 read getCHECOH write setCHECOH;
  12326. property DCSZ : TBits_2 read getDCSZ write setDCSZ;
  12327. property PFMWS : TBits_3 read getPFMWS write setPFMWS;
  12328. property PREFEN : TBits_2 read getPREFEN write setPREFEN;
  12329. property w : TBits_32 read getw write setw;
  12330. end;
  12331. TPCACHE_CHETAG = record
  12332. private
  12333. function getLLOCK : TBits_1; inline;
  12334. function getLTAG : TBits_20; inline;
  12335. function getLTAGBOOT : TBits_1; inline;
  12336. function getLTYPE : TBits_1; inline;
  12337. function getLVALID : TBits_1; inline;
  12338. function getw : TBits_32; inline;
  12339. procedure setLLOCK(thebits : TBits_1); inline;
  12340. procedure setLTAG(thebits : TBits_20); inline;
  12341. procedure setLTAGBOOT(thebits : TBits_1); inline;
  12342. procedure setLTYPE(thebits : TBits_1); inline;
  12343. procedure setLVALID(thebits : TBits_1); inline;
  12344. procedure setw(thebits : TBits_32); inline;
  12345. public
  12346. procedure clearLLOCK; inline;
  12347. procedure clearLTAGBOOT; inline;
  12348. procedure clearLTYPE; inline;
  12349. procedure clearLVALID; inline;
  12350. procedure setLLOCK; inline;
  12351. procedure setLTAGBOOT; inline;
  12352. procedure setLTYPE; inline;
  12353. procedure setLVALID; inline;
  12354. property LLOCK : TBits_1 read getLLOCK write setLLOCK;
  12355. property LTAG : TBits_20 read getLTAG write setLTAG;
  12356. property LTAGBOOT : TBits_1 read getLTAGBOOT write setLTAGBOOT;
  12357. property LTYPE : TBits_1 read getLTYPE write setLTYPE;
  12358. property LVALID : TBits_1 read getLVALID write setLVALID;
  12359. property w : TBits_32 read getw write setw;
  12360. end;
  12361. type
  12362. TPCACHERegisters = record
  12363. CHECONbits : TPCACHE_CHECON;
  12364. CHECON : longWord;
  12365. CHECONCLR : longWord;
  12366. CHECONSET : longWord;
  12367. CHECONINV : longWord;
  12368. CHEACC : longWord;
  12369. CHEACCCLR : longWord;
  12370. CHEACCSET : longWord;
  12371. CHEACCINV : longWord;
  12372. CHETAGbits : TPCACHE_CHETAG;
  12373. CHETAG : longWord;
  12374. CHETAGCLR : longWord;
  12375. CHETAGSET : longWord;
  12376. CHETAGINV : longWord;
  12377. CHEMSK : longWord;
  12378. CHEMSKCLR : longWord;
  12379. CHEMSKSET : longWord;
  12380. CHEMSKINV : longWord;
  12381. CHEW0 : longWord;
  12382. CHEW1 : longWord;
  12383. CHEW2 : longWord;
  12384. CHEW3 : longWord;
  12385. CHELRU : longWord;
  12386. CHEHIT : longWord;
  12387. CHEMIS : longWord;
  12388. CHEPFABT : longWord;
  12389. end;
  12390. TUSB_U1IR = record
  12391. private
  12392. function getATTACHIF : TBits_1; inline;
  12393. function getDETACHIF : TBits_1; inline;
  12394. function getIDLEIF : TBits_1; inline;
  12395. function getRESUMEIF : TBits_1; inline;
  12396. function getSOFIF : TBits_1; inline;
  12397. function getSTALLIF : TBits_1; inline;
  12398. function getTRNIF : TBits_1; inline;
  12399. function getUERRIF : TBits_1; inline;
  12400. function getURSTIF : TBits_1; inline;
  12401. function getURSTIF_DETACHIF : TBits_1; inline;
  12402. procedure setATTACHIF(thebits : TBits_1); inline;
  12403. procedure setDETACHIF(thebits : TBits_1); inline;
  12404. procedure setIDLEIF(thebits : TBits_1); inline;
  12405. procedure setRESUMEIF(thebits : TBits_1); inline;
  12406. procedure setSOFIF(thebits : TBits_1); inline;
  12407. procedure setSTALLIF(thebits : TBits_1); inline;
  12408. procedure setTRNIF(thebits : TBits_1); inline;
  12409. procedure setUERRIF(thebits : TBits_1); inline;
  12410. procedure setURSTIF(thebits : TBits_1); inline;
  12411. procedure setURSTIF_DETACHIF(thebits : TBits_1); inline;
  12412. public
  12413. procedure clearATTACHIF; inline;
  12414. procedure clearDETACHIF; inline;
  12415. procedure clearIDLEIF; inline;
  12416. procedure clearRESUMEIF; inline;
  12417. procedure clearSOFIF; inline;
  12418. procedure clearSTALLIF; inline;
  12419. procedure clearTRNIF; inline;
  12420. procedure clearUERRIF; inline;
  12421. procedure clearURSTIF; inline;
  12422. procedure clearURSTIF_DETACHIF; inline;
  12423. procedure setATTACHIF; inline;
  12424. procedure setDETACHIF; inline;
  12425. procedure setIDLEIF; inline;
  12426. procedure setRESUMEIF; inline;
  12427. procedure setSOFIF; inline;
  12428. procedure setSTALLIF; inline;
  12429. procedure setTRNIF; inline;
  12430. procedure setUERRIF; inline;
  12431. procedure setURSTIF; inline;
  12432. procedure setURSTIF_DETACHIF; inline;
  12433. property ATTACHIF : TBits_1 read getATTACHIF write setATTACHIF;
  12434. property DETACHIF : TBits_1 read getDETACHIF write setDETACHIF;
  12435. property IDLEIF : TBits_1 read getIDLEIF write setIDLEIF;
  12436. property RESUMEIF : TBits_1 read getRESUMEIF write setRESUMEIF;
  12437. property SOFIF : TBits_1 read getSOFIF write setSOFIF;
  12438. property STALLIF : TBits_1 read getSTALLIF write setSTALLIF;
  12439. property TRNIF : TBits_1 read getTRNIF write setTRNIF;
  12440. property UERRIF : TBits_1 read getUERRIF write setUERRIF;
  12441. property URSTIF : TBits_1 read getURSTIF write setURSTIF;
  12442. property URSTIF_DETACHIF : TBits_1 read getURSTIF_DETACHIF write setURSTIF_DETACHIF;
  12443. end;
  12444. TUSB_U1IE = record
  12445. private
  12446. function getATTACHIE : TBits_1; inline;
  12447. function getDETACHIE : TBits_1; inline;
  12448. function getIDLEIE : TBits_1; inline;
  12449. function getRESUMEIE : TBits_1; inline;
  12450. function getSOFIE : TBits_1; inline;
  12451. function getSTALLIE : TBits_1; inline;
  12452. function getTRNIE : TBits_1; inline;
  12453. function getUERRIE : TBits_1; inline;
  12454. function getURSTIE : TBits_1; inline;
  12455. function getURSTIE_DETACHIE : TBits_1; inline;
  12456. procedure setATTACHIE(thebits : TBits_1); inline;
  12457. procedure setDETACHIE(thebits : TBits_1); inline;
  12458. procedure setIDLEIE(thebits : TBits_1); inline;
  12459. procedure setRESUMEIE(thebits : TBits_1); inline;
  12460. procedure setSOFIE(thebits : TBits_1); inline;
  12461. procedure setSTALLIE(thebits : TBits_1); inline;
  12462. procedure setTRNIE(thebits : TBits_1); inline;
  12463. procedure setUERRIE(thebits : TBits_1); inline;
  12464. procedure setURSTIE(thebits : TBits_1); inline;
  12465. procedure setURSTIE_DETACHIE(thebits : TBits_1); inline;
  12466. public
  12467. procedure clearATTACHIE; inline;
  12468. procedure clearDETACHIE; inline;
  12469. procedure clearIDLEIE; inline;
  12470. procedure clearRESUMEIE; inline;
  12471. procedure clearSOFIE; inline;
  12472. procedure clearSTALLIE; inline;
  12473. procedure clearTRNIE; inline;
  12474. procedure clearUERRIE; inline;
  12475. procedure clearURSTIE; inline;
  12476. procedure clearURSTIE_DETACHIE; inline;
  12477. procedure setATTACHIE; inline;
  12478. procedure setDETACHIE; inline;
  12479. procedure setIDLEIE; inline;
  12480. procedure setRESUMEIE; inline;
  12481. procedure setSOFIE; inline;
  12482. procedure setSTALLIE; inline;
  12483. procedure setTRNIE; inline;
  12484. procedure setUERRIE; inline;
  12485. procedure setURSTIE; inline;
  12486. procedure setURSTIE_DETACHIE; inline;
  12487. property ATTACHIE : TBits_1 read getATTACHIE write setATTACHIE;
  12488. property DETACHIE : TBits_1 read getDETACHIE write setDETACHIE;
  12489. property IDLEIE : TBits_1 read getIDLEIE write setIDLEIE;
  12490. property RESUMEIE : TBits_1 read getRESUMEIE write setRESUMEIE;
  12491. property SOFIE : TBits_1 read getSOFIE write setSOFIE;
  12492. property STALLIE : TBits_1 read getSTALLIE write setSTALLIE;
  12493. property TRNIE : TBits_1 read getTRNIE write setTRNIE;
  12494. property UERRIE : TBits_1 read getUERRIE write setUERRIE;
  12495. property URSTIE : TBits_1 read getURSTIE write setURSTIE;
  12496. property URSTIE_DETACHIE : TBits_1 read getURSTIE_DETACHIE write setURSTIE_DETACHIE;
  12497. end;
  12498. TUSB_U1EIR = record
  12499. private
  12500. function getBMXEF : TBits_1; inline;
  12501. function getBTOEF : TBits_1; inline;
  12502. function getBTSEF : TBits_1; inline;
  12503. function getCRC16EF : TBits_1; inline;
  12504. function getCRC5EF : TBits_1; inline;
  12505. function getCRC5EF_EOFEF : TBits_1; inline;
  12506. function getDFN8EF : TBits_1; inline;
  12507. function getDMAEF : TBits_1; inline;
  12508. function getEOFEF : TBits_1; inline;
  12509. function getPIDEF : TBits_1; inline;
  12510. procedure setBMXEF(thebits : TBits_1); inline;
  12511. procedure setBTOEF(thebits : TBits_1); inline;
  12512. procedure setBTSEF(thebits : TBits_1); inline;
  12513. procedure setCRC16EF(thebits : TBits_1); inline;
  12514. procedure setCRC5EF(thebits : TBits_1); inline;
  12515. procedure setCRC5EF_EOFEF(thebits : TBits_1); inline;
  12516. procedure setDFN8EF(thebits : TBits_1); inline;
  12517. procedure setDMAEF(thebits : TBits_1); inline;
  12518. procedure setEOFEF(thebits : TBits_1); inline;
  12519. procedure setPIDEF(thebits : TBits_1); inline;
  12520. public
  12521. procedure clearBMXEF; inline;
  12522. procedure clearBTOEF; inline;
  12523. procedure clearBTSEF; inline;
  12524. procedure clearCRC16EF; inline;
  12525. procedure clearCRC5EF; inline;
  12526. procedure clearCRC5EF_EOFEF; inline;
  12527. procedure clearDFN8EF; inline;
  12528. procedure clearDMAEF; inline;
  12529. procedure clearEOFEF; inline;
  12530. procedure clearPIDEF; inline;
  12531. procedure setBMXEF; inline;
  12532. procedure setBTOEF; inline;
  12533. procedure setBTSEF; inline;
  12534. procedure setCRC16EF; inline;
  12535. procedure setCRC5EF; inline;
  12536. procedure setCRC5EF_EOFEF; inline;
  12537. procedure setDFN8EF; inline;
  12538. procedure setDMAEF; inline;
  12539. procedure setEOFEF; inline;
  12540. procedure setPIDEF; inline;
  12541. property BMXEF : TBits_1 read getBMXEF write setBMXEF;
  12542. property BTOEF : TBits_1 read getBTOEF write setBTOEF;
  12543. property BTSEF : TBits_1 read getBTSEF write setBTSEF;
  12544. property CRC16EF : TBits_1 read getCRC16EF write setCRC16EF;
  12545. property CRC5EF : TBits_1 read getCRC5EF write setCRC5EF;
  12546. property CRC5EF_EOFEF : TBits_1 read getCRC5EF_EOFEF write setCRC5EF_EOFEF;
  12547. property DFN8EF : TBits_1 read getDFN8EF write setDFN8EF;
  12548. property DMAEF : TBits_1 read getDMAEF write setDMAEF;
  12549. property EOFEF : TBits_1 read getEOFEF write setEOFEF;
  12550. property PIDEF : TBits_1 read getPIDEF write setPIDEF;
  12551. end;
  12552. TUSB_U1EIE = record
  12553. private
  12554. function getBMXEE : TBits_1; inline;
  12555. function getBTOEE : TBits_1; inline;
  12556. function getBTSEE : TBits_1; inline;
  12557. function getCRC16EE : TBits_1; inline;
  12558. function getCRC5EE : TBits_1; inline;
  12559. function getCRC5EE_EOFEE : TBits_1; inline;
  12560. function getDFN8EE : TBits_1; inline;
  12561. function getDMAEE : TBits_1; inline;
  12562. function getEOFEE : TBits_1; inline;
  12563. function getPIDEE : TBits_1; inline;
  12564. procedure setBMXEE(thebits : TBits_1); inline;
  12565. procedure setBTOEE(thebits : TBits_1); inline;
  12566. procedure setBTSEE(thebits : TBits_1); inline;
  12567. procedure setCRC16EE(thebits : TBits_1); inline;
  12568. procedure setCRC5EE(thebits : TBits_1); inline;
  12569. procedure setCRC5EE_EOFEE(thebits : TBits_1); inline;
  12570. procedure setDFN8EE(thebits : TBits_1); inline;
  12571. procedure setDMAEE(thebits : TBits_1); inline;
  12572. procedure setEOFEE(thebits : TBits_1); inline;
  12573. procedure setPIDEE(thebits : TBits_1); inline;
  12574. public
  12575. procedure clearBMXEE; inline;
  12576. procedure clearBTOEE; inline;
  12577. procedure clearBTSEE; inline;
  12578. procedure clearCRC16EE; inline;
  12579. procedure clearCRC5EE; inline;
  12580. procedure clearCRC5EE_EOFEE; inline;
  12581. procedure clearDFN8EE; inline;
  12582. procedure clearDMAEE; inline;
  12583. procedure clearEOFEE; inline;
  12584. procedure clearPIDEE; inline;
  12585. procedure setBMXEE; inline;
  12586. procedure setBTOEE; inline;
  12587. procedure setBTSEE; inline;
  12588. procedure setCRC16EE; inline;
  12589. procedure setCRC5EE; inline;
  12590. procedure setCRC5EE_EOFEE; inline;
  12591. procedure setDFN8EE; inline;
  12592. procedure setDMAEE; inline;
  12593. procedure setEOFEE; inline;
  12594. procedure setPIDEE; inline;
  12595. property BMXEE : TBits_1 read getBMXEE write setBMXEE;
  12596. property BTOEE : TBits_1 read getBTOEE write setBTOEE;
  12597. property BTSEE : TBits_1 read getBTSEE write setBTSEE;
  12598. property CRC16EE : TBits_1 read getCRC16EE write setCRC16EE;
  12599. property CRC5EE : TBits_1 read getCRC5EE write setCRC5EE;
  12600. property CRC5EE_EOFEE : TBits_1 read getCRC5EE_EOFEE write setCRC5EE_EOFEE;
  12601. property DFN8EE : TBits_1 read getDFN8EE write setDFN8EE;
  12602. property DMAEE : TBits_1 read getDMAEE write setDMAEE;
  12603. property EOFEE : TBits_1 read getEOFEE write setEOFEE;
  12604. property PIDEE : TBits_1 read getPIDEE write setPIDEE;
  12605. end;
  12606. TUSB_U1STAT = record
  12607. private
  12608. function getDIR : TBits_1; inline;
  12609. function getENDPT : TBits_4; inline;
  12610. function getENDPT0 : TBits_1; inline;
  12611. function getENDPT1 : TBits_1; inline;
  12612. function getENDPT2 : TBits_1; inline;
  12613. function getENDPT3 : TBits_1; inline;
  12614. function getPPBI : TBits_1; inline;
  12615. procedure setDIR(thebits : TBits_1); inline;
  12616. procedure setENDPT(thebits : TBits_4); inline;
  12617. procedure setENDPT0(thebits : TBits_1); inline;
  12618. procedure setENDPT1(thebits : TBits_1); inline;
  12619. procedure setENDPT2(thebits : TBits_1); inline;
  12620. procedure setENDPT3(thebits : TBits_1); inline;
  12621. procedure setPPBI(thebits : TBits_1); inline;
  12622. public
  12623. procedure clearDIR; inline;
  12624. procedure clearENDPT0; inline;
  12625. procedure clearENDPT1; inline;
  12626. procedure clearENDPT2; inline;
  12627. procedure clearENDPT3; inline;
  12628. procedure clearPPBI; inline;
  12629. procedure setDIR; inline;
  12630. procedure setENDPT0; inline;
  12631. procedure setENDPT1; inline;
  12632. procedure setENDPT2; inline;
  12633. procedure setENDPT3; inline;
  12634. procedure setPPBI; inline;
  12635. property DIR : TBits_1 read getDIR write setDIR;
  12636. property ENDPT : TBits_4 read getENDPT write setENDPT;
  12637. property ENDPT0 : TBits_1 read getENDPT0 write setENDPT0;
  12638. property ENDPT1 : TBits_1 read getENDPT1 write setENDPT1;
  12639. property ENDPT2 : TBits_1 read getENDPT2 write setENDPT2;
  12640. property ENDPT3 : TBits_1 read getENDPT3 write setENDPT3;
  12641. property PPBI : TBits_1 read getPPBI write setPPBI;
  12642. end;
  12643. TUSB_U1CON = record
  12644. private
  12645. function getHOSTEN : TBits_1; inline;
  12646. function getJSTATE : TBits_1; inline;
  12647. function getPKTDIS : TBits_1; inline;
  12648. function getPKTDIS_TOKBUSY : TBits_1; inline;
  12649. function getPPBRST : TBits_1; inline;
  12650. function getRESUME : TBits_1; inline;
  12651. function getSE0 : TBits_1; inline;
  12652. function getSOFEN : TBits_1; inline;
  12653. function getTOKBUSY : TBits_1; inline;
  12654. function getUSBEN : TBits_1; inline;
  12655. function getUSBEN_SOFEN : TBits_1; inline;
  12656. function getUSBRST : TBits_1; inline;
  12657. procedure setHOSTEN(thebits : TBits_1); inline;
  12658. procedure setJSTATE(thebits : TBits_1); inline;
  12659. procedure setPKTDIS(thebits : TBits_1); inline;
  12660. procedure setPKTDIS_TOKBUSY(thebits : TBits_1); inline;
  12661. procedure setPPBRST(thebits : TBits_1); inline;
  12662. procedure setRESUME(thebits : TBits_1); inline;
  12663. procedure setSE0(thebits : TBits_1); inline;
  12664. procedure setSOFEN(thebits : TBits_1); inline;
  12665. procedure setTOKBUSY(thebits : TBits_1); inline;
  12666. procedure setUSBEN(thebits : TBits_1); inline;
  12667. procedure setUSBEN_SOFEN(thebits : TBits_1); inline;
  12668. procedure setUSBRST(thebits : TBits_1); inline;
  12669. public
  12670. procedure clearHOSTEN; inline;
  12671. procedure clearJSTATE; inline;
  12672. procedure clearPKTDIS; inline;
  12673. procedure clearPKTDIS_TOKBUSY; inline;
  12674. procedure clearPPBRST; inline;
  12675. procedure clearRESUME; inline;
  12676. procedure clearSE0; inline;
  12677. procedure clearSOFEN; inline;
  12678. procedure clearTOKBUSY; inline;
  12679. procedure clearUSBEN; inline;
  12680. procedure clearUSBEN_SOFEN; inline;
  12681. procedure clearUSBRST; inline;
  12682. procedure setHOSTEN; inline;
  12683. procedure setJSTATE; inline;
  12684. procedure setPKTDIS; inline;
  12685. procedure setPKTDIS_TOKBUSY; inline;
  12686. procedure setPPBRST; inline;
  12687. procedure setRESUME; inline;
  12688. procedure setSE0; inline;
  12689. procedure setSOFEN; inline;
  12690. procedure setTOKBUSY; inline;
  12691. procedure setUSBEN; inline;
  12692. procedure setUSBEN_SOFEN; inline;
  12693. procedure setUSBRST; inline;
  12694. property HOSTEN : TBits_1 read getHOSTEN write setHOSTEN;
  12695. property JSTATE : TBits_1 read getJSTATE write setJSTATE;
  12696. property PKTDIS : TBits_1 read getPKTDIS write setPKTDIS;
  12697. property PKTDIS_TOKBUSY : TBits_1 read getPKTDIS_TOKBUSY write setPKTDIS_TOKBUSY;
  12698. property PPBRST : TBits_1 read getPPBRST write setPPBRST;
  12699. property RESUME : TBits_1 read getRESUME write setRESUME;
  12700. property SE0 : TBits_1 read getSE0 write setSE0;
  12701. property SOFEN : TBits_1 read getSOFEN write setSOFEN;
  12702. property TOKBUSY : TBits_1 read getTOKBUSY write setTOKBUSY;
  12703. property USBEN : TBits_1 read getUSBEN write setUSBEN;
  12704. property USBEN_SOFEN : TBits_1 read getUSBEN_SOFEN write setUSBEN_SOFEN;
  12705. property USBRST : TBits_1 read getUSBRST write setUSBRST;
  12706. end;
  12707. TUSB_U1ADDR = record
  12708. private
  12709. function getDEVADDR : TBits_7; inline;
  12710. function getDEVADDR0 : TBits_1; inline;
  12711. function getDEVADDR1 : TBits_1; inline;
  12712. function getDEVADDR2 : TBits_1; inline;
  12713. function getDEVADDR3 : TBits_1; inline;
  12714. function getDEVADDR4 : TBits_1; inline;
  12715. function getDEVADDR5 : TBits_1; inline;
  12716. function getDEVADDR6 : TBits_1; inline;
  12717. function getLSPDEN : TBits_1; inline;
  12718. procedure setDEVADDR(thebits : TBits_7); inline;
  12719. procedure setDEVADDR0(thebits : TBits_1); inline;
  12720. procedure setDEVADDR1(thebits : TBits_1); inline;
  12721. procedure setDEVADDR2(thebits : TBits_1); inline;
  12722. procedure setDEVADDR3(thebits : TBits_1); inline;
  12723. procedure setDEVADDR4(thebits : TBits_1); inline;
  12724. procedure setDEVADDR5(thebits : TBits_1); inline;
  12725. procedure setDEVADDR6(thebits : TBits_1); inline;
  12726. procedure setLSPDEN(thebits : TBits_1); inline;
  12727. public
  12728. procedure clearDEVADDR0; inline;
  12729. procedure clearDEVADDR1; inline;
  12730. procedure clearDEVADDR2; inline;
  12731. procedure clearDEVADDR3; inline;
  12732. procedure clearDEVADDR4; inline;
  12733. procedure clearDEVADDR5; inline;
  12734. procedure clearDEVADDR6; inline;
  12735. procedure clearLSPDEN; inline;
  12736. procedure setDEVADDR0; inline;
  12737. procedure setDEVADDR1; inline;
  12738. procedure setDEVADDR2; inline;
  12739. procedure setDEVADDR3; inline;
  12740. procedure setDEVADDR4; inline;
  12741. procedure setDEVADDR5; inline;
  12742. procedure setDEVADDR6; inline;
  12743. procedure setLSPDEN; inline;
  12744. property DEVADDR : TBits_7 read getDEVADDR write setDEVADDR;
  12745. property DEVADDR0 : TBits_1 read getDEVADDR0 write setDEVADDR0;
  12746. property DEVADDR1 : TBits_1 read getDEVADDR1 write setDEVADDR1;
  12747. property DEVADDR2 : TBits_1 read getDEVADDR2 write setDEVADDR2;
  12748. property DEVADDR3 : TBits_1 read getDEVADDR3 write setDEVADDR3;
  12749. property DEVADDR4 : TBits_1 read getDEVADDR4 write setDEVADDR4;
  12750. property DEVADDR5 : TBits_1 read getDEVADDR5 write setDEVADDR5;
  12751. property DEVADDR6 : TBits_1 read getDEVADDR6 write setDEVADDR6;
  12752. property LSPDEN : TBits_1 read getLSPDEN write setLSPDEN;
  12753. end;
  12754. TUSB_U1FRML = record
  12755. private
  12756. function getFRM0 : TBits_1; inline;
  12757. function getFRM1 : TBits_1; inline;
  12758. function getFRM2 : TBits_1; inline;
  12759. function getFRM3 : TBits_1; inline;
  12760. function getFRM4 : TBits_1; inline;
  12761. function getFRM5 : TBits_1; inline;
  12762. function getFRM6 : TBits_1; inline;
  12763. function getFRM7 : TBits_1; inline;
  12764. function getFRML : TBits_8; inline;
  12765. procedure setFRM0(thebits : TBits_1); inline;
  12766. procedure setFRM1(thebits : TBits_1); inline;
  12767. procedure setFRM2(thebits : TBits_1); inline;
  12768. procedure setFRM3(thebits : TBits_1); inline;
  12769. procedure setFRM4(thebits : TBits_1); inline;
  12770. procedure setFRM5(thebits : TBits_1); inline;
  12771. procedure setFRM6(thebits : TBits_1); inline;
  12772. procedure setFRM7(thebits : TBits_1); inline;
  12773. procedure setFRML(thebits : TBits_8); inline;
  12774. public
  12775. procedure clearFRM0; inline;
  12776. procedure clearFRM1; inline;
  12777. procedure clearFRM2; inline;
  12778. procedure clearFRM3; inline;
  12779. procedure clearFRM4; inline;
  12780. procedure clearFRM5; inline;
  12781. procedure clearFRM6; inline;
  12782. procedure clearFRM7; inline;
  12783. procedure setFRM0; inline;
  12784. procedure setFRM1; inline;
  12785. procedure setFRM2; inline;
  12786. procedure setFRM3; inline;
  12787. procedure setFRM4; inline;
  12788. procedure setFRM5; inline;
  12789. procedure setFRM6; inline;
  12790. procedure setFRM7; inline;
  12791. property FRM0 : TBits_1 read getFRM0 write setFRM0;
  12792. property FRM1 : TBits_1 read getFRM1 write setFRM1;
  12793. property FRM2 : TBits_1 read getFRM2 write setFRM2;
  12794. property FRM3 : TBits_1 read getFRM3 write setFRM3;
  12795. property FRM4 : TBits_1 read getFRM4 write setFRM4;
  12796. property FRM5 : TBits_1 read getFRM5 write setFRM5;
  12797. property FRM6 : TBits_1 read getFRM6 write setFRM6;
  12798. property FRM7 : TBits_1 read getFRM7 write setFRM7;
  12799. property FRML : TBits_8 read getFRML write setFRML;
  12800. end;
  12801. TUSB_U1FRMH = record
  12802. private
  12803. function getFRM10 : TBits_1; inline;
  12804. function getFRM8 : TBits_1; inline;
  12805. function getFRM9 : TBits_1; inline;
  12806. function getFRMH : TBits_3; inline;
  12807. procedure setFRM10(thebits : TBits_1); inline;
  12808. procedure setFRM8(thebits : TBits_1); inline;
  12809. procedure setFRM9(thebits : TBits_1); inline;
  12810. procedure setFRMH(thebits : TBits_3); inline;
  12811. public
  12812. procedure clearFRM10; inline;
  12813. procedure clearFRM8; inline;
  12814. procedure clearFRM9; inline;
  12815. procedure setFRM10; inline;
  12816. procedure setFRM8; inline;
  12817. procedure setFRM9; inline;
  12818. property FRM10 : TBits_1 read getFRM10 write setFRM10;
  12819. property FRM8 : TBits_1 read getFRM8 write setFRM8;
  12820. property FRM9 : TBits_1 read getFRM9 write setFRM9;
  12821. property FRMH : TBits_3 read getFRMH write setFRMH;
  12822. end;
  12823. TUSB_U1TOK = record
  12824. private
  12825. function getEP : TBits_4; inline;
  12826. function getEP0 : TBits_1; inline;
  12827. function getEP1 : TBits_1; inline;
  12828. function getEP2 : TBits_1; inline;
  12829. function getEP3 : TBits_1; inline;
  12830. function getPID : TBits_4; inline;
  12831. function getPID0 : TBits_1; inline;
  12832. function getPID1 : TBits_1; inline;
  12833. function getPID2 : TBits_1; inline;
  12834. function getPID3 : TBits_1; inline;
  12835. procedure setEP(thebits : TBits_4); inline;
  12836. procedure setEP0(thebits : TBits_1); inline;
  12837. procedure setEP1(thebits : TBits_1); inline;
  12838. procedure setEP2(thebits : TBits_1); inline;
  12839. procedure setEP3(thebits : TBits_1); inline;
  12840. procedure setPID(thebits : TBits_4); inline;
  12841. procedure setPID0(thebits : TBits_1); inline;
  12842. procedure setPID1(thebits : TBits_1); inline;
  12843. procedure setPID2(thebits : TBits_1); inline;
  12844. procedure setPID3(thebits : TBits_1); inline;
  12845. public
  12846. procedure clearEP0; inline;
  12847. procedure clearEP1; inline;
  12848. procedure clearEP2; inline;
  12849. procedure clearEP3; inline;
  12850. procedure clearPID0; inline;
  12851. procedure clearPID1; inline;
  12852. procedure clearPID2; inline;
  12853. procedure clearPID3; inline;
  12854. procedure setEP0; inline;
  12855. procedure setEP1; inline;
  12856. procedure setEP2; inline;
  12857. procedure setEP3; inline;
  12858. procedure setPID0; inline;
  12859. procedure setPID1; inline;
  12860. procedure setPID2; inline;
  12861. procedure setPID3; inline;
  12862. property EP : TBits_4 read getEP write setEP;
  12863. property EP0 : TBits_1 read getEP0 write setEP0;
  12864. property EP1 : TBits_1 read getEP1 write setEP1;
  12865. property EP2 : TBits_1 read getEP2 write setEP2;
  12866. property EP3 : TBits_1 read getEP3 write setEP3;
  12867. property PID : TBits_4 read getPID write setPID;
  12868. property PID0 : TBits_1 read getPID0 write setPID0;
  12869. property PID1 : TBits_1 read getPID1 write setPID1;
  12870. property PID2 : TBits_1 read getPID2 write setPID2;
  12871. property PID3 : TBits_1 read getPID3 write setPID3;
  12872. end;
  12873. type
  12874. TUSBRegisters = record
  12875. U1OTGIR : longWord;
  12876. U1OTGIRCLR : longWord;
  12877. U1OTGIE : longWord;
  12878. U1OTGIECLR : longWord;
  12879. U1OTGIESET : longWord;
  12880. U1OTGIEINV : longWord;
  12881. U1OTGSTAT : longWord;
  12882. U1OTGCON : longWord;
  12883. U1OTGCONCLR : longWord;
  12884. U1OTGCONSET : longWord;
  12885. U1OTGCONINV : longWord;
  12886. U1PWRC : longWord;
  12887. U1PWRCCLR : longWord;
  12888. U1PWRCSET : longWord;
  12889. U1PWRCINV : longWord;
  12890. U1IRbits : TUSB_U1IR;
  12891. U1IR : longWord;
  12892. U1IRCLR : longWord;
  12893. U1IEbits : TUSB_U1IE;
  12894. U1IE : longWord;
  12895. U1IECLR : longWord;
  12896. U1IESET : longWord;
  12897. U1IEINV : longWord;
  12898. U1EIRbits : TUSB_U1EIR;
  12899. U1EIR : longWord;
  12900. U1EIRCLR : longWord;
  12901. U1EIEbits : TUSB_U1EIE;
  12902. U1EIE : longWord;
  12903. U1EIECLR : longWord;
  12904. U1EIESET : longWord;
  12905. U1EIEINV : longWord;
  12906. U1STATbits : TUSB_U1STAT;
  12907. U1STAT : longWord;
  12908. U1CONbits : TUSB_U1CON;
  12909. U1CON : longWord;
  12910. U1CONCLR : longWord;
  12911. U1CONSET : longWord;
  12912. U1CONINV : longWord;
  12913. U1ADDRbits : TUSB_U1ADDR;
  12914. U1ADDR : longWord;
  12915. U1ADDRCLR : longWord;
  12916. U1ADDRSET : longWord;
  12917. U1ADDRINV : longWord;
  12918. U1BDTP1 : longWord;
  12919. U1BDTP1CLR : longWord;
  12920. U1BDTP1SET : longWord;
  12921. U1BDTP1INV : longWord;
  12922. U1FRMLbits : TUSB_U1FRML;
  12923. U1FRML : longWord;
  12924. U1FRMHbits : TUSB_U1FRMH;
  12925. U1FRMH : longWord;
  12926. U1TOKbits : TUSB_U1TOK;
  12927. U1TOK : longWord;
  12928. U1TOKCLR : longWord;
  12929. U1TOKSET : longWord;
  12930. U1TOKINV : longWord;
  12931. U1SOF : longWord;
  12932. U1SOFCLR : longWord;
  12933. U1SOFSET : longWord;
  12934. U1SOFINV : longWord;
  12935. U1BDTP2 : longWord;
  12936. U1BDTP2CLR : longWord;
  12937. U1BDTP2SET : longWord;
  12938. U1BDTP2INV : longWord;
  12939. U1BDTP3 : longWord;
  12940. U1BDTP3CLR : longWord;
  12941. U1BDTP3SET : longWord;
  12942. U1BDTP3INV : longWord;
  12943. U1CNFG1 : longWord;
  12944. U1CNFG1CLR : longWord;
  12945. U1CNFG1SET : longWord;
  12946. U1CNFG1INV : longWord;
  12947. U1EP0 : longWord;
  12948. U1EP0CLR : longWord;
  12949. U1EP0SET : longWord;
  12950. U1EP0INV : longWord;
  12951. U1EP1 : longWord;
  12952. U1EP1CLR : longWord;
  12953. U1EP1SET : longWord;
  12954. U1EP1INV : longWord;
  12955. U1EP2 : longWord;
  12956. U1EP2CLR : longWord;
  12957. U1EP2SET : longWord;
  12958. U1EP2INV : longWord;
  12959. U1EP3 : longWord;
  12960. U1EP3CLR : longWord;
  12961. U1EP3SET : longWord;
  12962. U1EP3INV : longWord;
  12963. U1EP4 : longWord;
  12964. U1EP4CLR : longWord;
  12965. U1EP4SET : longWord;
  12966. U1EP4INV : longWord;
  12967. U1EP5 : longWord;
  12968. U1EP5CLR : longWord;
  12969. U1EP5SET : longWord;
  12970. U1EP5INV : longWord;
  12971. U1EP6 : longWord;
  12972. U1EP6CLR : longWord;
  12973. U1EP6SET : longWord;
  12974. U1EP6INV : longWord;
  12975. U1EP7 : longWord;
  12976. U1EP7CLR : longWord;
  12977. U1EP7SET : longWord;
  12978. U1EP7INV : longWord;
  12979. U1EP8 : longWord;
  12980. U1EP8CLR : longWord;
  12981. U1EP8SET : longWord;
  12982. U1EP8INV : longWord;
  12983. U1EP9 : longWord;
  12984. U1EP9CLR : longWord;
  12985. U1EP9SET : longWord;
  12986. U1EP9INV : longWord;
  12987. U1EP10 : longWord;
  12988. U1EP10CLR : longWord;
  12989. U1EP10SET : longWord;
  12990. U1EP10INV : longWord;
  12991. U1EP11 : longWord;
  12992. U1EP11CLR : longWord;
  12993. U1EP11SET : longWord;
  12994. U1EP11INV : longWord;
  12995. U1EP12 : longWord;
  12996. U1EP12CLR : longWord;
  12997. U1EP12SET : longWord;
  12998. U1EP12INV : longWord;
  12999. U1EP13 : longWord;
  13000. U1EP13CLR : longWord;
  13001. U1EP13SET : longWord;
  13002. U1EP13INV : longWord;
  13003. U1EP14 : longWord;
  13004. U1EP14CLR : longWord;
  13005. U1EP14SET : longWord;
  13006. U1EP14INV : longWord;
  13007. U1EP15 : longWord;
  13008. U1EP15CLR : longWord;
  13009. U1EP15SET : longWord;
  13010. U1EP15INV : longWord;
  13011. end;
  13012. TPORTA_TRISA = record
  13013. private
  13014. function getTRISA0 : TBits_1; inline;
  13015. function getTRISA1 : TBits_1; inline;
  13016. function getTRISA10 : TBits_1; inline;
  13017. function getTRISA14 : TBits_1; inline;
  13018. function getTRISA15 : TBits_1; inline;
  13019. function getTRISA2 : TBits_1; inline;
  13020. function getTRISA3 : TBits_1; inline;
  13021. function getTRISA4 : TBits_1; inline;
  13022. function getTRISA5 : TBits_1; inline;
  13023. function getTRISA6 : TBits_1; inline;
  13024. function getTRISA7 : TBits_1; inline;
  13025. function getTRISA9 : TBits_1; inline;
  13026. function getw : TBits_32; inline;
  13027. procedure setTRISA0(thebits : TBits_1); inline;
  13028. procedure setTRISA1(thebits : TBits_1); inline;
  13029. procedure setTRISA10(thebits : TBits_1); inline;
  13030. procedure setTRISA14(thebits : TBits_1); inline;
  13031. procedure setTRISA15(thebits : TBits_1); inline;
  13032. procedure setTRISA2(thebits : TBits_1); inline;
  13033. procedure setTRISA3(thebits : TBits_1); inline;
  13034. procedure setTRISA4(thebits : TBits_1); inline;
  13035. procedure setTRISA5(thebits : TBits_1); inline;
  13036. procedure setTRISA6(thebits : TBits_1); inline;
  13037. procedure setTRISA7(thebits : TBits_1); inline;
  13038. procedure setTRISA9(thebits : TBits_1); inline;
  13039. procedure setw(thebits : TBits_32); inline;
  13040. public
  13041. procedure clearTRISA0; inline;
  13042. procedure clearTRISA10; inline;
  13043. procedure clearTRISA14; inline;
  13044. procedure clearTRISA15; inline;
  13045. procedure clearTRISA1; inline;
  13046. procedure clearTRISA2; inline;
  13047. procedure clearTRISA3; inline;
  13048. procedure clearTRISA4; inline;
  13049. procedure clearTRISA5; inline;
  13050. procedure clearTRISA6; inline;
  13051. procedure clearTRISA7; inline;
  13052. procedure clearTRISA9; inline;
  13053. procedure setTRISA0; inline;
  13054. procedure setTRISA10; inline;
  13055. procedure setTRISA14; inline;
  13056. procedure setTRISA15; inline;
  13057. procedure setTRISA1; inline;
  13058. procedure setTRISA2; inline;
  13059. procedure setTRISA3; inline;
  13060. procedure setTRISA4; inline;
  13061. procedure setTRISA5; inline;
  13062. procedure setTRISA6; inline;
  13063. procedure setTRISA7; inline;
  13064. procedure setTRISA9; inline;
  13065. property TRISA0 : TBits_1 read getTRISA0 write setTRISA0;
  13066. property TRISA1 : TBits_1 read getTRISA1 write setTRISA1;
  13067. property TRISA10 : TBits_1 read getTRISA10 write setTRISA10;
  13068. property TRISA14 : TBits_1 read getTRISA14 write setTRISA14;
  13069. property TRISA15 : TBits_1 read getTRISA15 write setTRISA15;
  13070. property TRISA2 : TBits_1 read getTRISA2 write setTRISA2;
  13071. property TRISA3 : TBits_1 read getTRISA3 write setTRISA3;
  13072. property TRISA4 : TBits_1 read getTRISA4 write setTRISA4;
  13073. property TRISA5 : TBits_1 read getTRISA5 write setTRISA5;
  13074. property TRISA6 : TBits_1 read getTRISA6 write setTRISA6;
  13075. property TRISA7 : TBits_1 read getTRISA7 write setTRISA7;
  13076. property TRISA9 : TBits_1 read getTRISA9 write setTRISA9;
  13077. property w : TBits_32 read getw write setw;
  13078. end;
  13079. TPORTA_PORTA = record
  13080. private
  13081. function getRA0 : TBits_1; inline;
  13082. function getRA1 : TBits_1; inline;
  13083. function getRA10 : TBits_1; inline;
  13084. function getRA14 : TBits_1; inline;
  13085. function getRA15 : TBits_1; inline;
  13086. function getRA2 : TBits_1; inline;
  13087. function getRA3 : TBits_1; inline;
  13088. function getRA4 : TBits_1; inline;
  13089. function getRA5 : TBits_1; inline;
  13090. function getRA6 : TBits_1; inline;
  13091. function getRA7 : TBits_1; inline;
  13092. function getRA9 : TBits_1; inline;
  13093. function getw : TBits_32; inline;
  13094. procedure setRA0(thebits : TBits_1); inline;
  13095. procedure setRA1(thebits : TBits_1); inline;
  13096. procedure setRA10(thebits : TBits_1); inline;
  13097. procedure setRA14(thebits : TBits_1); inline;
  13098. procedure setRA15(thebits : TBits_1); inline;
  13099. procedure setRA2(thebits : TBits_1); inline;
  13100. procedure setRA3(thebits : TBits_1); inline;
  13101. procedure setRA4(thebits : TBits_1); inline;
  13102. procedure setRA5(thebits : TBits_1); inline;
  13103. procedure setRA6(thebits : TBits_1); inline;
  13104. procedure setRA7(thebits : TBits_1); inline;
  13105. procedure setRA9(thebits : TBits_1); inline;
  13106. procedure setw(thebits : TBits_32); inline;
  13107. public
  13108. procedure clearRA0; inline;
  13109. procedure clearRA10; inline;
  13110. procedure clearRA14; inline;
  13111. procedure clearRA15; inline;
  13112. procedure clearRA1; inline;
  13113. procedure clearRA2; inline;
  13114. procedure clearRA3; inline;
  13115. procedure clearRA4; inline;
  13116. procedure clearRA5; inline;
  13117. procedure clearRA6; inline;
  13118. procedure clearRA7; inline;
  13119. procedure clearRA9; inline;
  13120. procedure setRA0; inline;
  13121. procedure setRA10; inline;
  13122. procedure setRA14; inline;
  13123. procedure setRA15; inline;
  13124. procedure setRA1; inline;
  13125. procedure setRA2; inline;
  13126. procedure setRA3; inline;
  13127. procedure setRA4; inline;
  13128. procedure setRA5; inline;
  13129. procedure setRA6; inline;
  13130. procedure setRA7; inline;
  13131. procedure setRA9; inline;
  13132. property RA0 : TBits_1 read getRA0 write setRA0;
  13133. property RA1 : TBits_1 read getRA1 write setRA1;
  13134. property RA10 : TBits_1 read getRA10 write setRA10;
  13135. property RA14 : TBits_1 read getRA14 write setRA14;
  13136. property RA15 : TBits_1 read getRA15 write setRA15;
  13137. property RA2 : TBits_1 read getRA2 write setRA2;
  13138. property RA3 : TBits_1 read getRA3 write setRA3;
  13139. property RA4 : TBits_1 read getRA4 write setRA4;
  13140. property RA5 : TBits_1 read getRA5 write setRA5;
  13141. property RA6 : TBits_1 read getRA6 write setRA6;
  13142. property RA7 : TBits_1 read getRA7 write setRA7;
  13143. property RA9 : TBits_1 read getRA9 write setRA9;
  13144. property w : TBits_32 read getw write setw;
  13145. end;
  13146. 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);
  13147. TPortA_bitset = set of TPortA_bits;
  13148. TPORTA_LATA = record
  13149. private
  13150. function getLATA0 : TBits_1; inline;
  13151. function getLATA1 : TBits_1; inline;
  13152. function getLATA10 : TBits_1; inline;
  13153. function getLATA14 : TBits_1; inline;
  13154. function getLATA15 : TBits_1; inline;
  13155. function getLATA2 : TBits_1; inline;
  13156. function getLATA3 : TBits_1; inline;
  13157. function getLATA4 : TBits_1; inline;
  13158. function getLATA5 : TBits_1; inline;
  13159. function getLATA6 : TBits_1; inline;
  13160. function getLATA7 : TBits_1; inline;
  13161. function getLATA9 : TBits_1; inline;
  13162. function getw : TBits_32; inline;
  13163. procedure setLATA0(thebits : TBits_1); inline;
  13164. procedure setLATA1(thebits : TBits_1); inline;
  13165. procedure setLATA10(thebits : TBits_1); inline;
  13166. procedure setLATA14(thebits : TBits_1); inline;
  13167. procedure setLATA15(thebits : TBits_1); inline;
  13168. procedure setLATA2(thebits : TBits_1); inline;
  13169. procedure setLATA3(thebits : TBits_1); inline;
  13170. procedure setLATA4(thebits : TBits_1); inline;
  13171. procedure setLATA5(thebits : TBits_1); inline;
  13172. procedure setLATA6(thebits : TBits_1); inline;
  13173. procedure setLATA7(thebits : TBits_1); inline;
  13174. procedure setLATA9(thebits : TBits_1); inline;
  13175. procedure setw(thebits : TBits_32); inline;
  13176. public
  13177. procedure clearLATA0; inline;
  13178. procedure clearLATA10; inline;
  13179. procedure clearLATA14; inline;
  13180. procedure clearLATA15; inline;
  13181. procedure clearLATA1; inline;
  13182. procedure clearLATA2; inline;
  13183. procedure clearLATA3; inline;
  13184. procedure clearLATA4; inline;
  13185. procedure clearLATA5; inline;
  13186. procedure clearLATA6; inline;
  13187. procedure clearLATA7; inline;
  13188. procedure clearLATA9; inline;
  13189. procedure setLATA0; inline;
  13190. procedure setLATA10; inline;
  13191. procedure setLATA14; inline;
  13192. procedure setLATA15; inline;
  13193. procedure setLATA1; inline;
  13194. procedure setLATA2; inline;
  13195. procedure setLATA3; inline;
  13196. procedure setLATA4; inline;
  13197. procedure setLATA5; inline;
  13198. procedure setLATA6; inline;
  13199. procedure setLATA7; inline;
  13200. procedure setLATA9; inline;
  13201. property LATA0 : TBits_1 read getLATA0 write setLATA0;
  13202. property LATA1 : TBits_1 read getLATA1 write setLATA1;
  13203. property LATA10 : TBits_1 read getLATA10 write setLATA10;
  13204. property LATA14 : TBits_1 read getLATA14 write setLATA14;
  13205. property LATA15 : TBits_1 read getLATA15 write setLATA15;
  13206. property LATA2 : TBits_1 read getLATA2 write setLATA2;
  13207. property LATA3 : TBits_1 read getLATA3 write setLATA3;
  13208. property LATA4 : TBits_1 read getLATA4 write setLATA4;
  13209. property LATA5 : TBits_1 read getLATA5 write setLATA5;
  13210. property LATA6 : TBits_1 read getLATA6 write setLATA6;
  13211. property LATA7 : TBits_1 read getLATA7 write setLATA7;
  13212. property LATA9 : TBits_1 read getLATA9 write setLATA9;
  13213. property w : TBits_32 read getw write setw;
  13214. end;
  13215. TPORTA_ODCA = record
  13216. private
  13217. function getODCA0 : TBits_1; inline;
  13218. function getODCA1 : TBits_1; inline;
  13219. function getODCA10 : TBits_1; inline;
  13220. function getODCA14 : TBits_1; inline;
  13221. function getODCA15 : TBits_1; inline;
  13222. function getODCA2 : TBits_1; inline;
  13223. function getODCA3 : TBits_1; inline;
  13224. function getODCA4 : TBits_1; inline;
  13225. function getODCA5 : TBits_1; inline;
  13226. function getODCA6 : TBits_1; inline;
  13227. function getODCA7 : TBits_1; inline;
  13228. function getODCA9 : TBits_1; inline;
  13229. function getw : TBits_32; inline;
  13230. procedure setODCA0(thebits : TBits_1); inline;
  13231. procedure setODCA1(thebits : TBits_1); inline;
  13232. procedure setODCA10(thebits : TBits_1); inline;
  13233. procedure setODCA14(thebits : TBits_1); inline;
  13234. procedure setODCA15(thebits : TBits_1); inline;
  13235. procedure setODCA2(thebits : TBits_1); inline;
  13236. procedure setODCA3(thebits : TBits_1); inline;
  13237. procedure setODCA4(thebits : TBits_1); inline;
  13238. procedure setODCA5(thebits : TBits_1); inline;
  13239. procedure setODCA6(thebits : TBits_1); inline;
  13240. procedure setODCA7(thebits : TBits_1); inline;
  13241. procedure setODCA9(thebits : TBits_1); inline;
  13242. procedure setw(thebits : TBits_32); inline;
  13243. public
  13244. procedure clearODCA0; inline;
  13245. procedure clearODCA10; inline;
  13246. procedure clearODCA14; inline;
  13247. procedure clearODCA15; inline;
  13248. procedure clearODCA1; inline;
  13249. procedure clearODCA2; inline;
  13250. procedure clearODCA3; inline;
  13251. procedure clearODCA4; inline;
  13252. procedure clearODCA5; inline;
  13253. procedure clearODCA6; inline;
  13254. procedure clearODCA7; inline;
  13255. procedure clearODCA9; inline;
  13256. procedure setODCA0; inline;
  13257. procedure setODCA10; inline;
  13258. procedure setODCA14; inline;
  13259. procedure setODCA15; inline;
  13260. procedure setODCA1; inline;
  13261. procedure setODCA2; inline;
  13262. procedure setODCA3; inline;
  13263. procedure setODCA4; inline;
  13264. procedure setODCA5; inline;
  13265. procedure setODCA6; inline;
  13266. procedure setODCA7; inline;
  13267. procedure setODCA9; inline;
  13268. property ODCA0 : TBits_1 read getODCA0 write setODCA0;
  13269. property ODCA1 : TBits_1 read getODCA1 write setODCA1;
  13270. property ODCA10 : TBits_1 read getODCA10 write setODCA10;
  13271. property ODCA14 : TBits_1 read getODCA14 write setODCA14;
  13272. property ODCA15 : TBits_1 read getODCA15 write setODCA15;
  13273. property ODCA2 : TBits_1 read getODCA2 write setODCA2;
  13274. property ODCA3 : TBits_1 read getODCA3 write setODCA3;
  13275. property ODCA4 : TBits_1 read getODCA4 write setODCA4;
  13276. property ODCA5 : TBits_1 read getODCA5 write setODCA5;
  13277. property ODCA6 : TBits_1 read getODCA6 write setODCA6;
  13278. property ODCA7 : TBits_1 read getODCA7 write setODCA7;
  13279. property ODCA9 : TBits_1 read getODCA9 write setODCA9;
  13280. property w : TBits_32 read getw write setw;
  13281. end;
  13282. type
  13283. TPORTARegisters = record
  13284. TRISAbits : TPORTA_TRISA;
  13285. TRISA : longWord;
  13286. TRISACLR : longWord;
  13287. TRISASET : longWord;
  13288. TRISAINV : longWord;
  13289. PORTAbits : TPORTA_PORTA;
  13290. PORTA : longWord;
  13291. PORTACLR : longWord;
  13292. PORTASET : longWord;
  13293. PORTAINV : longWord;
  13294. LATAbits : TPORTA_LATA;
  13295. LATA : longWord;
  13296. LATACLR : longWord;
  13297. LATASET : longWord;
  13298. LATAINV : longWord;
  13299. ODCAbits : TPORTA_ODCA;
  13300. ODCA : longWord;
  13301. ODCACLR : longWord;
  13302. ODCASET : longWord;
  13303. ODCAINV : longWord;
  13304. end;
  13305. TPORTB_TRISB = record
  13306. private
  13307. function getTRISB0 : TBits_1; inline;
  13308. function getTRISB1 : TBits_1; inline;
  13309. function getTRISB10 : TBits_1; inline;
  13310. function getTRISB11 : TBits_1; inline;
  13311. function getTRISB12 : TBits_1; inline;
  13312. function getTRISB13 : TBits_1; inline;
  13313. function getTRISB14 : TBits_1; inline;
  13314. function getTRISB15 : TBits_1; inline;
  13315. function getTRISB2 : TBits_1; inline;
  13316. function getTRISB3 : TBits_1; inline;
  13317. function getTRISB4 : TBits_1; inline;
  13318. function getTRISB5 : TBits_1; inline;
  13319. function getTRISB6 : TBits_1; inline;
  13320. function getTRISB7 : TBits_1; inline;
  13321. function getTRISB8 : TBits_1; inline;
  13322. function getTRISB9 : TBits_1; inline;
  13323. function getw : TBits_32; inline;
  13324. procedure setTRISB0(thebits : TBits_1); inline;
  13325. procedure setTRISB1(thebits : TBits_1); inline;
  13326. procedure setTRISB10(thebits : TBits_1); inline;
  13327. procedure setTRISB11(thebits : TBits_1); inline;
  13328. procedure setTRISB12(thebits : TBits_1); inline;
  13329. procedure setTRISB13(thebits : TBits_1); inline;
  13330. procedure setTRISB14(thebits : TBits_1); inline;
  13331. procedure setTRISB15(thebits : TBits_1); inline;
  13332. procedure setTRISB2(thebits : TBits_1); inline;
  13333. procedure setTRISB3(thebits : TBits_1); inline;
  13334. procedure setTRISB4(thebits : TBits_1); inline;
  13335. procedure setTRISB5(thebits : TBits_1); inline;
  13336. procedure setTRISB6(thebits : TBits_1); inline;
  13337. procedure setTRISB7(thebits : TBits_1); inline;
  13338. procedure setTRISB8(thebits : TBits_1); inline;
  13339. procedure setTRISB9(thebits : TBits_1); inline;
  13340. procedure setw(thebits : TBits_32); inline;
  13341. public
  13342. procedure clearTRISB0; inline;
  13343. procedure clearTRISB10; inline;
  13344. procedure clearTRISB11; inline;
  13345. procedure clearTRISB12; inline;
  13346. procedure clearTRISB13; inline;
  13347. procedure clearTRISB14; inline;
  13348. procedure clearTRISB15; inline;
  13349. procedure clearTRISB1; inline;
  13350. procedure clearTRISB2; inline;
  13351. procedure clearTRISB3; inline;
  13352. procedure clearTRISB4; inline;
  13353. procedure clearTRISB5; inline;
  13354. procedure clearTRISB6; inline;
  13355. procedure clearTRISB7; inline;
  13356. procedure clearTRISB8; inline;
  13357. procedure clearTRISB9; inline;
  13358. procedure setTRISB0; inline;
  13359. procedure setTRISB10; inline;
  13360. procedure setTRISB11; inline;
  13361. procedure setTRISB12; inline;
  13362. procedure setTRISB13; inline;
  13363. procedure setTRISB14; inline;
  13364. procedure setTRISB15; inline;
  13365. procedure setTRISB1; inline;
  13366. procedure setTRISB2; inline;
  13367. procedure setTRISB3; inline;
  13368. procedure setTRISB4; inline;
  13369. procedure setTRISB5; inline;
  13370. procedure setTRISB6; inline;
  13371. procedure setTRISB7; inline;
  13372. procedure setTRISB8; inline;
  13373. procedure setTRISB9; inline;
  13374. property TRISB0 : TBits_1 read getTRISB0 write setTRISB0;
  13375. property TRISB1 : TBits_1 read getTRISB1 write setTRISB1;
  13376. property TRISB10 : TBits_1 read getTRISB10 write setTRISB10;
  13377. property TRISB11 : TBits_1 read getTRISB11 write setTRISB11;
  13378. property TRISB12 : TBits_1 read getTRISB12 write setTRISB12;
  13379. property TRISB13 : TBits_1 read getTRISB13 write setTRISB13;
  13380. property TRISB14 : TBits_1 read getTRISB14 write setTRISB14;
  13381. property TRISB15 : TBits_1 read getTRISB15 write setTRISB15;
  13382. property TRISB2 : TBits_1 read getTRISB2 write setTRISB2;
  13383. property TRISB3 : TBits_1 read getTRISB3 write setTRISB3;
  13384. property TRISB4 : TBits_1 read getTRISB4 write setTRISB4;
  13385. property TRISB5 : TBits_1 read getTRISB5 write setTRISB5;
  13386. property TRISB6 : TBits_1 read getTRISB6 write setTRISB6;
  13387. property TRISB7 : TBits_1 read getTRISB7 write setTRISB7;
  13388. property TRISB8 : TBits_1 read getTRISB8 write setTRISB8;
  13389. property TRISB9 : TBits_1 read getTRISB9 write setTRISB9;
  13390. property w : TBits_32 read getw write setw;
  13391. end;
  13392. TPORTB_PORTB = record
  13393. private
  13394. function getRB0 : TBits_1; inline;
  13395. function getRB1 : TBits_1; inline;
  13396. function getRB10 : TBits_1; inline;
  13397. function getRB11 : TBits_1; inline;
  13398. function getRB12 : TBits_1; inline;
  13399. function getRB13 : TBits_1; inline;
  13400. function getRB14 : TBits_1; inline;
  13401. function getRB15 : TBits_1; inline;
  13402. function getRB2 : TBits_1; inline;
  13403. function getRB3 : TBits_1; inline;
  13404. function getRB4 : TBits_1; inline;
  13405. function getRB5 : TBits_1; inline;
  13406. function getRB6 : TBits_1; inline;
  13407. function getRB7 : TBits_1; inline;
  13408. function getRB8 : TBits_1; inline;
  13409. function getRB9 : TBits_1; inline;
  13410. function getw : TBits_32; inline;
  13411. procedure setRB0(thebits : TBits_1); inline;
  13412. procedure setRB1(thebits : TBits_1); inline;
  13413. procedure setRB10(thebits : TBits_1); inline;
  13414. procedure setRB11(thebits : TBits_1); inline;
  13415. procedure setRB12(thebits : TBits_1); inline;
  13416. procedure setRB13(thebits : TBits_1); inline;
  13417. procedure setRB14(thebits : TBits_1); inline;
  13418. procedure setRB15(thebits : TBits_1); inline;
  13419. procedure setRB2(thebits : TBits_1); inline;
  13420. procedure setRB3(thebits : TBits_1); inline;
  13421. procedure setRB4(thebits : TBits_1); inline;
  13422. procedure setRB5(thebits : TBits_1); inline;
  13423. procedure setRB6(thebits : TBits_1); inline;
  13424. procedure setRB7(thebits : TBits_1); inline;
  13425. procedure setRB8(thebits : TBits_1); inline;
  13426. procedure setRB9(thebits : TBits_1); inline;
  13427. procedure setw(thebits : TBits_32); inline;
  13428. public
  13429. procedure clearRB0; inline;
  13430. procedure clearRB10; inline;
  13431. procedure clearRB11; inline;
  13432. procedure clearRB12; inline;
  13433. procedure clearRB13; inline;
  13434. procedure clearRB14; inline;
  13435. procedure clearRB15; inline;
  13436. procedure clearRB1; inline;
  13437. procedure clearRB2; inline;
  13438. procedure clearRB3; inline;
  13439. procedure clearRB4; inline;
  13440. procedure clearRB5; inline;
  13441. procedure clearRB6; inline;
  13442. procedure clearRB7; inline;
  13443. procedure clearRB8; inline;
  13444. procedure clearRB9; inline;
  13445. procedure setRB0; inline;
  13446. procedure setRB10; inline;
  13447. procedure setRB11; inline;
  13448. procedure setRB12; inline;
  13449. procedure setRB13; inline;
  13450. procedure setRB14; inline;
  13451. procedure setRB15; inline;
  13452. procedure setRB1; inline;
  13453. procedure setRB2; inline;
  13454. procedure setRB3; inline;
  13455. procedure setRB4; inline;
  13456. procedure setRB5; inline;
  13457. procedure setRB6; inline;
  13458. procedure setRB7; inline;
  13459. procedure setRB8; inline;
  13460. procedure setRB9; inline;
  13461. property RB0 : TBits_1 read getRB0 write setRB0;
  13462. property RB1 : TBits_1 read getRB1 write setRB1;
  13463. property RB10 : TBits_1 read getRB10 write setRB10;
  13464. property RB11 : TBits_1 read getRB11 write setRB11;
  13465. property RB12 : TBits_1 read getRB12 write setRB12;
  13466. property RB13 : TBits_1 read getRB13 write setRB13;
  13467. property RB14 : TBits_1 read getRB14 write setRB14;
  13468. property RB15 : TBits_1 read getRB15 write setRB15;
  13469. property RB2 : TBits_1 read getRB2 write setRB2;
  13470. property RB3 : TBits_1 read getRB3 write setRB3;
  13471. property RB4 : TBits_1 read getRB4 write setRB4;
  13472. property RB5 : TBits_1 read getRB5 write setRB5;
  13473. property RB6 : TBits_1 read getRB6 write setRB6;
  13474. property RB7 : TBits_1 read getRB7 write setRB7;
  13475. property RB8 : TBits_1 read getRB8 write setRB8;
  13476. property RB9 : TBits_1 read getRB9 write setRB9;
  13477. property w : TBits_32 read getw write setw;
  13478. end;
  13479. 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);
  13480. TPortB_bitset = set of TPortB_bits;
  13481. TPORTB_LATB = record
  13482. private
  13483. function getLATB0 : TBits_1; inline;
  13484. function getLATB1 : TBits_1; inline;
  13485. function getLATB10 : TBits_1; inline;
  13486. function getLATB11 : TBits_1; inline;
  13487. function getLATB12 : TBits_1; inline;
  13488. function getLATB13 : TBits_1; inline;
  13489. function getLATB14 : TBits_1; inline;
  13490. function getLATB15 : TBits_1; inline;
  13491. function getLATB2 : TBits_1; inline;
  13492. function getLATB3 : TBits_1; inline;
  13493. function getLATB4 : TBits_1; inline;
  13494. function getLATB5 : TBits_1; inline;
  13495. function getLATB6 : TBits_1; inline;
  13496. function getLATB7 : TBits_1; inline;
  13497. function getLATB8 : TBits_1; inline;
  13498. function getLATB9 : TBits_1; inline;
  13499. function getw : TBits_32; inline;
  13500. procedure setLATB0(thebits : TBits_1); inline;
  13501. procedure setLATB1(thebits : TBits_1); inline;
  13502. procedure setLATB10(thebits : TBits_1); inline;
  13503. procedure setLATB11(thebits : TBits_1); inline;
  13504. procedure setLATB12(thebits : TBits_1); inline;
  13505. procedure setLATB13(thebits : TBits_1); inline;
  13506. procedure setLATB14(thebits : TBits_1); inline;
  13507. procedure setLATB15(thebits : TBits_1); inline;
  13508. procedure setLATB2(thebits : TBits_1); inline;
  13509. procedure setLATB3(thebits : TBits_1); inline;
  13510. procedure setLATB4(thebits : TBits_1); inline;
  13511. procedure setLATB5(thebits : TBits_1); inline;
  13512. procedure setLATB6(thebits : TBits_1); inline;
  13513. procedure setLATB7(thebits : TBits_1); inline;
  13514. procedure setLATB8(thebits : TBits_1); inline;
  13515. procedure setLATB9(thebits : TBits_1); inline;
  13516. procedure setw(thebits : TBits_32); inline;
  13517. public
  13518. procedure clearLATB0; inline;
  13519. procedure clearLATB10; inline;
  13520. procedure clearLATB11; inline;
  13521. procedure clearLATB12; inline;
  13522. procedure clearLATB13; inline;
  13523. procedure clearLATB14; inline;
  13524. procedure clearLATB15; inline;
  13525. procedure clearLATB1; inline;
  13526. procedure clearLATB2; inline;
  13527. procedure clearLATB3; inline;
  13528. procedure clearLATB4; inline;
  13529. procedure clearLATB5; inline;
  13530. procedure clearLATB6; inline;
  13531. procedure clearLATB7; inline;
  13532. procedure clearLATB8; inline;
  13533. procedure clearLATB9; inline;
  13534. procedure setLATB0; inline;
  13535. procedure setLATB10; inline;
  13536. procedure setLATB11; inline;
  13537. procedure setLATB12; inline;
  13538. procedure setLATB13; inline;
  13539. procedure setLATB14; inline;
  13540. procedure setLATB15; inline;
  13541. procedure setLATB1; inline;
  13542. procedure setLATB2; inline;
  13543. procedure setLATB3; inline;
  13544. procedure setLATB4; inline;
  13545. procedure setLATB5; inline;
  13546. procedure setLATB6; inline;
  13547. procedure setLATB7; inline;
  13548. procedure setLATB8; inline;
  13549. procedure setLATB9; inline;
  13550. property LATB0 : TBits_1 read getLATB0 write setLATB0;
  13551. property LATB1 : TBits_1 read getLATB1 write setLATB1;
  13552. property LATB10 : TBits_1 read getLATB10 write setLATB10;
  13553. property LATB11 : TBits_1 read getLATB11 write setLATB11;
  13554. property LATB12 : TBits_1 read getLATB12 write setLATB12;
  13555. property LATB13 : TBits_1 read getLATB13 write setLATB13;
  13556. property LATB14 : TBits_1 read getLATB14 write setLATB14;
  13557. property LATB15 : TBits_1 read getLATB15 write setLATB15;
  13558. property LATB2 : TBits_1 read getLATB2 write setLATB2;
  13559. property LATB3 : TBits_1 read getLATB3 write setLATB3;
  13560. property LATB4 : TBits_1 read getLATB4 write setLATB4;
  13561. property LATB5 : TBits_1 read getLATB5 write setLATB5;
  13562. property LATB6 : TBits_1 read getLATB6 write setLATB6;
  13563. property LATB7 : TBits_1 read getLATB7 write setLATB7;
  13564. property LATB8 : TBits_1 read getLATB8 write setLATB8;
  13565. property LATB9 : TBits_1 read getLATB9 write setLATB9;
  13566. property w : TBits_32 read getw write setw;
  13567. end;
  13568. TPORTB_ODCB = record
  13569. private
  13570. function getODCB0 : TBits_1; inline;
  13571. function getODCB1 : TBits_1; inline;
  13572. function getODCB10 : TBits_1; inline;
  13573. function getODCB11 : TBits_1; inline;
  13574. function getODCB12 : TBits_1; inline;
  13575. function getODCB13 : TBits_1; inline;
  13576. function getODCB14 : TBits_1; inline;
  13577. function getODCB15 : TBits_1; inline;
  13578. function getODCB2 : TBits_1; inline;
  13579. function getODCB3 : TBits_1; inline;
  13580. function getODCB4 : TBits_1; inline;
  13581. function getODCB5 : TBits_1; inline;
  13582. function getODCB6 : TBits_1; inline;
  13583. function getODCB7 : TBits_1; inline;
  13584. function getODCB8 : TBits_1; inline;
  13585. function getODCB9 : TBits_1; inline;
  13586. function getw : TBits_32; inline;
  13587. procedure setODCB0(thebits : TBits_1); inline;
  13588. procedure setODCB1(thebits : TBits_1); inline;
  13589. procedure setODCB10(thebits : TBits_1); inline;
  13590. procedure setODCB11(thebits : TBits_1); inline;
  13591. procedure setODCB12(thebits : TBits_1); inline;
  13592. procedure setODCB13(thebits : TBits_1); inline;
  13593. procedure setODCB14(thebits : TBits_1); inline;
  13594. procedure setODCB15(thebits : TBits_1); inline;
  13595. procedure setODCB2(thebits : TBits_1); inline;
  13596. procedure setODCB3(thebits : TBits_1); inline;
  13597. procedure setODCB4(thebits : TBits_1); inline;
  13598. procedure setODCB5(thebits : TBits_1); inline;
  13599. procedure setODCB6(thebits : TBits_1); inline;
  13600. procedure setODCB7(thebits : TBits_1); inline;
  13601. procedure setODCB8(thebits : TBits_1); inline;
  13602. procedure setODCB9(thebits : TBits_1); inline;
  13603. procedure setw(thebits : TBits_32); inline;
  13604. public
  13605. procedure clearODCB0; inline;
  13606. procedure clearODCB10; inline;
  13607. procedure clearODCB11; inline;
  13608. procedure clearODCB12; inline;
  13609. procedure clearODCB13; inline;
  13610. procedure clearODCB14; inline;
  13611. procedure clearODCB15; inline;
  13612. procedure clearODCB1; inline;
  13613. procedure clearODCB2; inline;
  13614. procedure clearODCB3; inline;
  13615. procedure clearODCB4; inline;
  13616. procedure clearODCB5; inline;
  13617. procedure clearODCB6; inline;
  13618. procedure clearODCB7; inline;
  13619. procedure clearODCB8; inline;
  13620. procedure clearODCB9; inline;
  13621. procedure setODCB0; inline;
  13622. procedure setODCB10; inline;
  13623. procedure setODCB11; inline;
  13624. procedure setODCB12; inline;
  13625. procedure setODCB13; inline;
  13626. procedure setODCB14; inline;
  13627. procedure setODCB15; inline;
  13628. procedure setODCB1; inline;
  13629. procedure setODCB2; inline;
  13630. procedure setODCB3; inline;
  13631. procedure setODCB4; inline;
  13632. procedure setODCB5; inline;
  13633. procedure setODCB6; inline;
  13634. procedure setODCB7; inline;
  13635. procedure setODCB8; inline;
  13636. procedure setODCB9; inline;
  13637. property ODCB0 : TBits_1 read getODCB0 write setODCB0;
  13638. property ODCB1 : TBits_1 read getODCB1 write setODCB1;
  13639. property ODCB10 : TBits_1 read getODCB10 write setODCB10;
  13640. property ODCB11 : TBits_1 read getODCB11 write setODCB11;
  13641. property ODCB12 : TBits_1 read getODCB12 write setODCB12;
  13642. property ODCB13 : TBits_1 read getODCB13 write setODCB13;
  13643. property ODCB14 : TBits_1 read getODCB14 write setODCB14;
  13644. property ODCB15 : TBits_1 read getODCB15 write setODCB15;
  13645. property ODCB2 : TBits_1 read getODCB2 write setODCB2;
  13646. property ODCB3 : TBits_1 read getODCB3 write setODCB3;
  13647. property ODCB4 : TBits_1 read getODCB4 write setODCB4;
  13648. property ODCB5 : TBits_1 read getODCB5 write setODCB5;
  13649. property ODCB6 : TBits_1 read getODCB6 write setODCB6;
  13650. property ODCB7 : TBits_1 read getODCB7 write setODCB7;
  13651. property ODCB8 : TBits_1 read getODCB8 write setODCB8;
  13652. property ODCB9 : TBits_1 read getODCB9 write setODCB9;
  13653. property w : TBits_32 read getw write setw;
  13654. end;
  13655. type
  13656. TPORTBRegisters = record
  13657. TRISBbits : TPORTB_TRISB;
  13658. TRISB : longWord;
  13659. TRISBCLR : longWord;
  13660. TRISBSET : longWord;
  13661. TRISBINV : longWord;
  13662. PORTBbits : TPORTB_PORTB;
  13663. PORTB : longWord;
  13664. PORTBCLR : longWord;
  13665. PORTBSET : longWord;
  13666. PORTBINV : longWord;
  13667. LATBbits : TPORTB_LATB;
  13668. LATB : longWord;
  13669. LATBCLR : longWord;
  13670. LATBSET : longWord;
  13671. LATBINV : longWord;
  13672. ODCBbits : TPORTB_ODCB;
  13673. ODCB : longWord;
  13674. ODCBCLR : longWord;
  13675. ODCBSET : longWord;
  13676. ODCBINV : longWord;
  13677. end;
  13678. TPORTC_TRISC = record
  13679. private
  13680. function getTRISC1 : TBits_1; inline;
  13681. function getTRISC12 : TBits_1; inline;
  13682. function getTRISC13 : TBits_1; inline;
  13683. function getTRISC14 : TBits_1; inline;
  13684. function getTRISC15 : TBits_1; inline;
  13685. function getTRISC2 : TBits_1; inline;
  13686. function getTRISC3 : TBits_1; inline;
  13687. function getTRISC4 : TBits_1; inline;
  13688. function getw : TBits_32; inline;
  13689. procedure setTRISC1(thebits : TBits_1); inline;
  13690. procedure setTRISC12(thebits : TBits_1); inline;
  13691. procedure setTRISC13(thebits : TBits_1); inline;
  13692. procedure setTRISC14(thebits : TBits_1); inline;
  13693. procedure setTRISC15(thebits : TBits_1); inline;
  13694. procedure setTRISC2(thebits : TBits_1); inline;
  13695. procedure setTRISC3(thebits : TBits_1); inline;
  13696. procedure setTRISC4(thebits : TBits_1); inline;
  13697. procedure setw(thebits : TBits_32); inline;
  13698. public
  13699. procedure clearTRISC12; inline;
  13700. procedure clearTRISC13; inline;
  13701. procedure clearTRISC14; inline;
  13702. procedure clearTRISC15; inline;
  13703. procedure clearTRISC1; inline;
  13704. procedure clearTRISC2; inline;
  13705. procedure clearTRISC3; inline;
  13706. procedure clearTRISC4; inline;
  13707. procedure setTRISC12; inline;
  13708. procedure setTRISC13; inline;
  13709. procedure setTRISC14; inline;
  13710. procedure setTRISC15; inline;
  13711. procedure setTRISC1; inline;
  13712. procedure setTRISC2; inline;
  13713. procedure setTRISC3; inline;
  13714. procedure setTRISC4; inline;
  13715. property TRISC1 : TBits_1 read getTRISC1 write setTRISC1;
  13716. property TRISC12 : TBits_1 read getTRISC12 write setTRISC12;
  13717. property TRISC13 : TBits_1 read getTRISC13 write setTRISC13;
  13718. property TRISC14 : TBits_1 read getTRISC14 write setTRISC14;
  13719. property TRISC15 : TBits_1 read getTRISC15 write setTRISC15;
  13720. property TRISC2 : TBits_1 read getTRISC2 write setTRISC2;
  13721. property TRISC3 : TBits_1 read getTRISC3 write setTRISC3;
  13722. property TRISC4 : TBits_1 read getTRISC4 write setTRISC4;
  13723. property w : TBits_32 read getw write setw;
  13724. end;
  13725. TPORTC_PORTC = record
  13726. private
  13727. function getRC1 : TBits_1; inline;
  13728. function getRC12 : TBits_1; inline;
  13729. function getRC13 : TBits_1; inline;
  13730. function getRC14 : TBits_1; inline;
  13731. function getRC15 : TBits_1; inline;
  13732. function getRC2 : TBits_1; inline;
  13733. function getRC3 : TBits_1; inline;
  13734. function getRC4 : TBits_1; inline;
  13735. function getw : TBits_32; inline;
  13736. procedure setRC1(thebits : TBits_1); inline;
  13737. procedure setRC12(thebits : TBits_1); inline;
  13738. procedure setRC13(thebits : TBits_1); inline;
  13739. procedure setRC14(thebits : TBits_1); inline;
  13740. procedure setRC15(thebits : TBits_1); inline;
  13741. procedure setRC2(thebits : TBits_1); inline;
  13742. procedure setRC3(thebits : TBits_1); inline;
  13743. procedure setRC4(thebits : TBits_1); inline;
  13744. procedure setw(thebits : TBits_32); inline;
  13745. public
  13746. procedure clearRC12; inline;
  13747. procedure clearRC13; inline;
  13748. procedure clearRC14; inline;
  13749. procedure clearRC15; inline;
  13750. procedure clearRC1; inline;
  13751. procedure clearRC2; inline;
  13752. procedure clearRC3; inline;
  13753. procedure clearRC4; inline;
  13754. procedure setRC12; inline;
  13755. procedure setRC13; inline;
  13756. procedure setRC14; inline;
  13757. procedure setRC15; inline;
  13758. procedure setRC1; inline;
  13759. procedure setRC2; inline;
  13760. procedure setRC3; inline;
  13761. procedure setRC4; inline;
  13762. property RC1 : TBits_1 read getRC1 write setRC1;
  13763. property RC12 : TBits_1 read getRC12 write setRC12;
  13764. property RC13 : TBits_1 read getRC13 write setRC13;
  13765. property RC14 : TBits_1 read getRC14 write setRC14;
  13766. property RC15 : TBits_1 read getRC15 write setRC15;
  13767. property RC2 : TBits_1 read getRC2 write setRC2;
  13768. property RC3 : TBits_1 read getRC3 write setRC3;
  13769. property RC4 : TBits_1 read getRC4 write setRC4;
  13770. property w : TBits_32 read getw write setw;
  13771. end;
  13772. TPortC_bits=(RC1=1,RC2=2,RC3=3,RC4=4,RC12=12,RC13=13,RC14=14,RC15=15);
  13773. TPortC_bitset = set of TPortC_bits;
  13774. TPORTC_LATC = record
  13775. private
  13776. function getLATC1 : TBits_1; inline;
  13777. function getLATC12 : TBits_1; inline;
  13778. function getLATC13 : TBits_1; inline;
  13779. function getLATC14 : TBits_1; inline;
  13780. function getLATC15 : TBits_1; inline;
  13781. function getLATC2 : TBits_1; inline;
  13782. function getLATC3 : TBits_1; inline;
  13783. function getLATC4 : TBits_1; inline;
  13784. function getw : TBits_32; inline;
  13785. procedure setLATC1(thebits : TBits_1); inline;
  13786. procedure setLATC12(thebits : TBits_1); inline;
  13787. procedure setLATC13(thebits : TBits_1); inline;
  13788. procedure setLATC14(thebits : TBits_1); inline;
  13789. procedure setLATC15(thebits : TBits_1); inline;
  13790. procedure setLATC2(thebits : TBits_1); inline;
  13791. procedure setLATC3(thebits : TBits_1); inline;
  13792. procedure setLATC4(thebits : TBits_1); inline;
  13793. procedure setw(thebits : TBits_32); inline;
  13794. public
  13795. procedure clearLATC12; inline;
  13796. procedure clearLATC13; inline;
  13797. procedure clearLATC14; inline;
  13798. procedure clearLATC15; inline;
  13799. procedure clearLATC1; inline;
  13800. procedure clearLATC2; inline;
  13801. procedure clearLATC3; inline;
  13802. procedure clearLATC4; inline;
  13803. procedure setLATC12; inline;
  13804. procedure setLATC13; inline;
  13805. procedure setLATC14; inline;
  13806. procedure setLATC15; inline;
  13807. procedure setLATC1; inline;
  13808. procedure setLATC2; inline;
  13809. procedure setLATC3; inline;
  13810. procedure setLATC4; inline;
  13811. property LATC1 : TBits_1 read getLATC1 write setLATC1;
  13812. property LATC12 : TBits_1 read getLATC12 write setLATC12;
  13813. property LATC13 : TBits_1 read getLATC13 write setLATC13;
  13814. property LATC14 : TBits_1 read getLATC14 write setLATC14;
  13815. property LATC15 : TBits_1 read getLATC15 write setLATC15;
  13816. property LATC2 : TBits_1 read getLATC2 write setLATC2;
  13817. property LATC3 : TBits_1 read getLATC3 write setLATC3;
  13818. property LATC4 : TBits_1 read getLATC4 write setLATC4;
  13819. property w : TBits_32 read getw write setw;
  13820. end;
  13821. TPORTC_ODCC = record
  13822. private
  13823. function getODCC1 : TBits_1; inline;
  13824. function getODCC12 : TBits_1; inline;
  13825. function getODCC13 : TBits_1; inline;
  13826. function getODCC14 : TBits_1; inline;
  13827. function getODCC15 : TBits_1; inline;
  13828. function getODCC2 : TBits_1; inline;
  13829. function getODCC3 : TBits_1; inline;
  13830. function getODCC4 : TBits_1; inline;
  13831. function getw : TBits_32; inline;
  13832. procedure setODCC1(thebits : TBits_1); inline;
  13833. procedure setODCC12(thebits : TBits_1); inline;
  13834. procedure setODCC13(thebits : TBits_1); inline;
  13835. procedure setODCC14(thebits : TBits_1); inline;
  13836. procedure setODCC15(thebits : TBits_1); inline;
  13837. procedure setODCC2(thebits : TBits_1); inline;
  13838. procedure setODCC3(thebits : TBits_1); inline;
  13839. procedure setODCC4(thebits : TBits_1); inline;
  13840. procedure setw(thebits : TBits_32); inline;
  13841. public
  13842. procedure clearODCC12; inline;
  13843. procedure clearODCC13; inline;
  13844. procedure clearODCC14; inline;
  13845. procedure clearODCC15; inline;
  13846. procedure clearODCC1; inline;
  13847. procedure clearODCC2; inline;
  13848. procedure clearODCC3; inline;
  13849. procedure clearODCC4; inline;
  13850. procedure setODCC12; inline;
  13851. procedure setODCC13; inline;
  13852. procedure setODCC14; inline;
  13853. procedure setODCC15; inline;
  13854. procedure setODCC1; inline;
  13855. procedure setODCC2; inline;
  13856. procedure setODCC3; inline;
  13857. procedure setODCC4; inline;
  13858. property ODCC1 : TBits_1 read getODCC1 write setODCC1;
  13859. property ODCC12 : TBits_1 read getODCC12 write setODCC12;
  13860. property ODCC13 : TBits_1 read getODCC13 write setODCC13;
  13861. property ODCC14 : TBits_1 read getODCC14 write setODCC14;
  13862. property ODCC15 : TBits_1 read getODCC15 write setODCC15;
  13863. property ODCC2 : TBits_1 read getODCC2 write setODCC2;
  13864. property ODCC3 : TBits_1 read getODCC3 write setODCC3;
  13865. property ODCC4 : TBits_1 read getODCC4 write setODCC4;
  13866. property w : TBits_32 read getw write setw;
  13867. end;
  13868. type
  13869. TPORTCRegisters = record
  13870. TRISCbits : TPORTC_TRISC;
  13871. TRISC : longWord;
  13872. TRISCCLR : longWord;
  13873. TRISCSET : longWord;
  13874. TRISCINV : longWord;
  13875. PORTCbits : TPORTC_PORTC;
  13876. PORTC : longWord;
  13877. PORTCCLR : longWord;
  13878. PORTCSET : longWord;
  13879. PORTCINV : longWord;
  13880. LATCbits : TPORTC_LATC;
  13881. LATC : longWord;
  13882. LATCCLR : longWord;
  13883. LATCSET : longWord;
  13884. LATCINV : longWord;
  13885. ODCCbits : TPORTC_ODCC;
  13886. ODCC : longWord;
  13887. ODCCCLR : longWord;
  13888. ODCCSET : longWord;
  13889. ODCCINV : longWord;
  13890. end;
  13891. TPORTD_TRISD = record
  13892. private
  13893. function getTRISD0 : TBits_1; inline;
  13894. function getTRISD1 : TBits_1; inline;
  13895. function getTRISD10 : TBits_1; inline;
  13896. function getTRISD11 : TBits_1; inline;
  13897. function getTRISD12 : TBits_1; inline;
  13898. function getTRISD13 : TBits_1; inline;
  13899. function getTRISD14 : TBits_1; inline;
  13900. function getTRISD15 : TBits_1; inline;
  13901. function getTRISD2 : TBits_1; inline;
  13902. function getTRISD3 : TBits_1; inline;
  13903. function getTRISD4 : TBits_1; inline;
  13904. function getTRISD5 : TBits_1; inline;
  13905. function getTRISD6 : TBits_1; inline;
  13906. function getTRISD7 : TBits_1; inline;
  13907. function getTRISD8 : TBits_1; inline;
  13908. function getTRISD9 : TBits_1; inline;
  13909. function getw : TBits_32; inline;
  13910. procedure setTRISD0(thebits : TBits_1); inline;
  13911. procedure setTRISD1(thebits : TBits_1); inline;
  13912. procedure setTRISD10(thebits : TBits_1); inline;
  13913. procedure setTRISD11(thebits : TBits_1); inline;
  13914. procedure setTRISD12(thebits : TBits_1); inline;
  13915. procedure setTRISD13(thebits : TBits_1); inline;
  13916. procedure setTRISD14(thebits : TBits_1); inline;
  13917. procedure setTRISD15(thebits : TBits_1); inline;
  13918. procedure setTRISD2(thebits : TBits_1); inline;
  13919. procedure setTRISD3(thebits : TBits_1); inline;
  13920. procedure setTRISD4(thebits : TBits_1); inline;
  13921. procedure setTRISD5(thebits : TBits_1); inline;
  13922. procedure setTRISD6(thebits : TBits_1); inline;
  13923. procedure setTRISD7(thebits : TBits_1); inline;
  13924. procedure setTRISD8(thebits : TBits_1); inline;
  13925. procedure setTRISD9(thebits : TBits_1); inline;
  13926. procedure setw(thebits : TBits_32); inline;
  13927. public
  13928. procedure clearTRISD0; inline;
  13929. procedure clearTRISD10; inline;
  13930. procedure clearTRISD11; inline;
  13931. procedure clearTRISD12; inline;
  13932. procedure clearTRISD13; inline;
  13933. procedure clearTRISD14; inline;
  13934. procedure clearTRISD15; inline;
  13935. procedure clearTRISD1; inline;
  13936. procedure clearTRISD2; inline;
  13937. procedure clearTRISD3; inline;
  13938. procedure clearTRISD4; inline;
  13939. procedure clearTRISD5; inline;
  13940. procedure clearTRISD6; inline;
  13941. procedure clearTRISD7; inline;
  13942. procedure clearTRISD8; inline;
  13943. procedure clearTRISD9; inline;
  13944. procedure setTRISD0; inline;
  13945. procedure setTRISD10; inline;
  13946. procedure setTRISD11; inline;
  13947. procedure setTRISD12; inline;
  13948. procedure setTRISD13; inline;
  13949. procedure setTRISD14; inline;
  13950. procedure setTRISD15; inline;
  13951. procedure setTRISD1; inline;
  13952. procedure setTRISD2; inline;
  13953. procedure setTRISD3; inline;
  13954. procedure setTRISD4; inline;
  13955. procedure setTRISD5; inline;
  13956. procedure setTRISD6; inline;
  13957. procedure setTRISD7; inline;
  13958. procedure setTRISD8; inline;
  13959. procedure setTRISD9; inline;
  13960. property TRISD0 : TBits_1 read getTRISD0 write setTRISD0;
  13961. property TRISD1 : TBits_1 read getTRISD1 write setTRISD1;
  13962. property TRISD10 : TBits_1 read getTRISD10 write setTRISD10;
  13963. property TRISD11 : TBits_1 read getTRISD11 write setTRISD11;
  13964. property TRISD12 : TBits_1 read getTRISD12 write setTRISD12;
  13965. property TRISD13 : TBits_1 read getTRISD13 write setTRISD13;
  13966. property TRISD14 : TBits_1 read getTRISD14 write setTRISD14;
  13967. property TRISD15 : TBits_1 read getTRISD15 write setTRISD15;
  13968. property TRISD2 : TBits_1 read getTRISD2 write setTRISD2;
  13969. property TRISD3 : TBits_1 read getTRISD3 write setTRISD3;
  13970. property TRISD4 : TBits_1 read getTRISD4 write setTRISD4;
  13971. property TRISD5 : TBits_1 read getTRISD5 write setTRISD5;
  13972. property TRISD6 : TBits_1 read getTRISD6 write setTRISD6;
  13973. property TRISD7 : TBits_1 read getTRISD7 write setTRISD7;
  13974. property TRISD8 : TBits_1 read getTRISD8 write setTRISD8;
  13975. property TRISD9 : TBits_1 read getTRISD9 write setTRISD9;
  13976. property w : TBits_32 read getw write setw;
  13977. end;
  13978. TPORTD_PORTD = record
  13979. private
  13980. function getRD0 : TBits_1; inline;
  13981. function getRD1 : TBits_1; inline;
  13982. function getRD10 : TBits_1; inline;
  13983. function getRD11 : TBits_1; inline;
  13984. function getRD12 : TBits_1; inline;
  13985. function getRD13 : TBits_1; inline;
  13986. function getRD14 : TBits_1; inline;
  13987. function getRD15 : TBits_1; inline;
  13988. function getRD2 : TBits_1; inline;
  13989. function getRD3 : TBits_1; inline;
  13990. function getRD4 : TBits_1; inline;
  13991. function getRD5 : TBits_1; inline;
  13992. function getRD6 : TBits_1; inline;
  13993. function getRD7 : TBits_1; inline;
  13994. function getRD8 : TBits_1; inline;
  13995. function getRD9 : TBits_1; inline;
  13996. function getw : TBits_32; inline;
  13997. procedure setRD0(thebits : TBits_1); inline;
  13998. procedure setRD1(thebits : TBits_1); inline;
  13999. procedure setRD10(thebits : TBits_1); inline;
  14000. procedure setRD11(thebits : TBits_1); inline;
  14001. procedure setRD12(thebits : TBits_1); inline;
  14002. procedure setRD13(thebits : TBits_1); inline;
  14003. procedure setRD14(thebits : TBits_1); inline;
  14004. procedure setRD15(thebits : TBits_1); inline;
  14005. procedure setRD2(thebits : TBits_1); inline;
  14006. procedure setRD3(thebits : TBits_1); inline;
  14007. procedure setRD4(thebits : TBits_1); inline;
  14008. procedure setRD5(thebits : TBits_1); inline;
  14009. procedure setRD6(thebits : TBits_1); inline;
  14010. procedure setRD7(thebits : TBits_1); inline;
  14011. procedure setRD8(thebits : TBits_1); inline;
  14012. procedure setRD9(thebits : TBits_1); inline;
  14013. procedure setw(thebits : TBits_32); inline;
  14014. public
  14015. procedure clearRD0; inline;
  14016. procedure clearRD10; inline;
  14017. procedure clearRD11; inline;
  14018. procedure clearRD12; inline;
  14019. procedure clearRD13; inline;
  14020. procedure clearRD14; inline;
  14021. procedure clearRD15; inline;
  14022. procedure clearRD1; inline;
  14023. procedure clearRD2; inline;
  14024. procedure clearRD3; inline;
  14025. procedure clearRD4; inline;
  14026. procedure clearRD5; inline;
  14027. procedure clearRD6; inline;
  14028. procedure clearRD7; inline;
  14029. procedure clearRD8; inline;
  14030. procedure clearRD9; inline;
  14031. procedure setRD0; inline;
  14032. procedure setRD10; inline;
  14033. procedure setRD11; inline;
  14034. procedure setRD12; inline;
  14035. procedure setRD13; inline;
  14036. procedure setRD14; inline;
  14037. procedure setRD15; inline;
  14038. procedure setRD1; inline;
  14039. procedure setRD2; inline;
  14040. procedure setRD3; inline;
  14041. procedure setRD4; inline;
  14042. procedure setRD5; inline;
  14043. procedure setRD6; inline;
  14044. procedure setRD7; inline;
  14045. procedure setRD8; inline;
  14046. procedure setRD9; inline;
  14047. property RD0 : TBits_1 read getRD0 write setRD0;
  14048. property RD1 : TBits_1 read getRD1 write setRD1;
  14049. property RD10 : TBits_1 read getRD10 write setRD10;
  14050. property RD11 : TBits_1 read getRD11 write setRD11;
  14051. property RD12 : TBits_1 read getRD12 write setRD12;
  14052. property RD13 : TBits_1 read getRD13 write setRD13;
  14053. property RD14 : TBits_1 read getRD14 write setRD14;
  14054. property RD15 : TBits_1 read getRD15 write setRD15;
  14055. property RD2 : TBits_1 read getRD2 write setRD2;
  14056. property RD3 : TBits_1 read getRD3 write setRD3;
  14057. property RD4 : TBits_1 read getRD4 write setRD4;
  14058. property RD5 : TBits_1 read getRD5 write setRD5;
  14059. property RD6 : TBits_1 read getRD6 write setRD6;
  14060. property RD7 : TBits_1 read getRD7 write setRD7;
  14061. property RD8 : TBits_1 read getRD8 write setRD8;
  14062. property RD9 : TBits_1 read getRD9 write setRD9;
  14063. property w : TBits_32 read getw write setw;
  14064. end;
  14065. 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);
  14066. TPortD_bitset = set of TPortD_bits;
  14067. TPORTD_LATD = record
  14068. private
  14069. function getLATD0 : TBits_1; inline;
  14070. function getLATD1 : TBits_1; inline;
  14071. function getLATD10 : TBits_1; inline;
  14072. function getLATD11 : TBits_1; inline;
  14073. function getLATD12 : TBits_1; inline;
  14074. function getLATD13 : TBits_1; inline;
  14075. function getLATD14 : TBits_1; inline;
  14076. function getLATD15 : TBits_1; inline;
  14077. function getLATD2 : TBits_1; inline;
  14078. function getLATD3 : TBits_1; inline;
  14079. function getLATD4 : TBits_1; inline;
  14080. function getLATD5 : TBits_1; inline;
  14081. function getLATD6 : TBits_1; inline;
  14082. function getLATD7 : TBits_1; inline;
  14083. function getLATD8 : TBits_1; inline;
  14084. function getLATD9 : TBits_1; inline;
  14085. function getw : TBits_32; inline;
  14086. procedure setLATD0(thebits : TBits_1); inline;
  14087. procedure setLATD1(thebits : TBits_1); inline;
  14088. procedure setLATD10(thebits : TBits_1); inline;
  14089. procedure setLATD11(thebits : TBits_1); inline;
  14090. procedure setLATD12(thebits : TBits_1); inline;
  14091. procedure setLATD13(thebits : TBits_1); inline;
  14092. procedure setLATD14(thebits : TBits_1); inline;
  14093. procedure setLATD15(thebits : TBits_1); inline;
  14094. procedure setLATD2(thebits : TBits_1); inline;
  14095. procedure setLATD3(thebits : TBits_1); inline;
  14096. procedure setLATD4(thebits : TBits_1); inline;
  14097. procedure setLATD5(thebits : TBits_1); inline;
  14098. procedure setLATD6(thebits : TBits_1); inline;
  14099. procedure setLATD7(thebits : TBits_1); inline;
  14100. procedure setLATD8(thebits : TBits_1); inline;
  14101. procedure setLATD9(thebits : TBits_1); inline;
  14102. procedure setw(thebits : TBits_32); inline;
  14103. public
  14104. procedure clearLATD0; inline;
  14105. procedure clearLATD10; inline;
  14106. procedure clearLATD11; inline;
  14107. procedure clearLATD12; inline;
  14108. procedure clearLATD13; inline;
  14109. procedure clearLATD14; inline;
  14110. procedure clearLATD15; inline;
  14111. procedure clearLATD1; inline;
  14112. procedure clearLATD2; inline;
  14113. procedure clearLATD3; inline;
  14114. procedure clearLATD4; inline;
  14115. procedure clearLATD5; inline;
  14116. procedure clearLATD6; inline;
  14117. procedure clearLATD7; inline;
  14118. procedure clearLATD8; inline;
  14119. procedure clearLATD9; inline;
  14120. procedure setLATD0; inline;
  14121. procedure setLATD10; inline;
  14122. procedure setLATD11; inline;
  14123. procedure setLATD12; inline;
  14124. procedure setLATD13; inline;
  14125. procedure setLATD14; inline;
  14126. procedure setLATD15; inline;
  14127. procedure setLATD1; inline;
  14128. procedure setLATD2; inline;
  14129. procedure setLATD3; inline;
  14130. procedure setLATD4; inline;
  14131. procedure setLATD5; inline;
  14132. procedure setLATD6; inline;
  14133. procedure setLATD7; inline;
  14134. procedure setLATD8; inline;
  14135. procedure setLATD9; inline;
  14136. property LATD0 : TBits_1 read getLATD0 write setLATD0;
  14137. property LATD1 : TBits_1 read getLATD1 write setLATD1;
  14138. property LATD10 : TBits_1 read getLATD10 write setLATD10;
  14139. property LATD11 : TBits_1 read getLATD11 write setLATD11;
  14140. property LATD12 : TBits_1 read getLATD12 write setLATD12;
  14141. property LATD13 : TBits_1 read getLATD13 write setLATD13;
  14142. property LATD14 : TBits_1 read getLATD14 write setLATD14;
  14143. property LATD15 : TBits_1 read getLATD15 write setLATD15;
  14144. property LATD2 : TBits_1 read getLATD2 write setLATD2;
  14145. property LATD3 : TBits_1 read getLATD3 write setLATD3;
  14146. property LATD4 : TBits_1 read getLATD4 write setLATD4;
  14147. property LATD5 : TBits_1 read getLATD5 write setLATD5;
  14148. property LATD6 : TBits_1 read getLATD6 write setLATD6;
  14149. property LATD7 : TBits_1 read getLATD7 write setLATD7;
  14150. property LATD8 : TBits_1 read getLATD8 write setLATD8;
  14151. property LATD9 : TBits_1 read getLATD9 write setLATD9;
  14152. property w : TBits_32 read getw write setw;
  14153. end;
  14154. TPORTD_ODCD = record
  14155. private
  14156. function getODCD0 : TBits_1; inline;
  14157. function getODCD1 : TBits_1; inline;
  14158. function getODCD10 : TBits_1; inline;
  14159. function getODCD11 : TBits_1; inline;
  14160. function getODCD12 : TBits_1; inline;
  14161. function getODCD13 : TBits_1; inline;
  14162. function getODCD14 : TBits_1; inline;
  14163. function getODCD15 : TBits_1; inline;
  14164. function getODCD2 : TBits_1; inline;
  14165. function getODCD3 : TBits_1; inline;
  14166. function getODCD4 : TBits_1; inline;
  14167. function getODCD5 : TBits_1; inline;
  14168. function getODCD6 : TBits_1; inline;
  14169. function getODCD7 : TBits_1; inline;
  14170. function getODCD8 : TBits_1; inline;
  14171. function getODCD9 : TBits_1; inline;
  14172. function getw : TBits_32; inline;
  14173. procedure setODCD0(thebits : TBits_1); inline;
  14174. procedure setODCD1(thebits : TBits_1); inline;
  14175. procedure setODCD10(thebits : TBits_1); inline;
  14176. procedure setODCD11(thebits : TBits_1); inline;
  14177. procedure setODCD12(thebits : TBits_1); inline;
  14178. procedure setODCD13(thebits : TBits_1); inline;
  14179. procedure setODCD14(thebits : TBits_1); inline;
  14180. procedure setODCD15(thebits : TBits_1); inline;
  14181. procedure setODCD2(thebits : TBits_1); inline;
  14182. procedure setODCD3(thebits : TBits_1); inline;
  14183. procedure setODCD4(thebits : TBits_1); inline;
  14184. procedure setODCD5(thebits : TBits_1); inline;
  14185. procedure setODCD6(thebits : TBits_1); inline;
  14186. procedure setODCD7(thebits : TBits_1); inline;
  14187. procedure setODCD8(thebits : TBits_1); inline;
  14188. procedure setODCD9(thebits : TBits_1); inline;
  14189. procedure setw(thebits : TBits_32); inline;
  14190. public
  14191. procedure clearODCD0; inline;
  14192. procedure clearODCD10; inline;
  14193. procedure clearODCD11; inline;
  14194. procedure clearODCD12; inline;
  14195. procedure clearODCD13; inline;
  14196. procedure clearODCD14; inline;
  14197. procedure clearODCD15; inline;
  14198. procedure clearODCD1; inline;
  14199. procedure clearODCD2; inline;
  14200. procedure clearODCD3; inline;
  14201. procedure clearODCD4; inline;
  14202. procedure clearODCD5; inline;
  14203. procedure clearODCD6; inline;
  14204. procedure clearODCD7; inline;
  14205. procedure clearODCD8; inline;
  14206. procedure clearODCD9; inline;
  14207. procedure setODCD0; inline;
  14208. procedure setODCD10; inline;
  14209. procedure setODCD11; inline;
  14210. procedure setODCD12; inline;
  14211. procedure setODCD13; inline;
  14212. procedure setODCD14; inline;
  14213. procedure setODCD15; inline;
  14214. procedure setODCD1; inline;
  14215. procedure setODCD2; inline;
  14216. procedure setODCD3; inline;
  14217. procedure setODCD4; inline;
  14218. procedure setODCD5; inline;
  14219. procedure setODCD6; inline;
  14220. procedure setODCD7; inline;
  14221. procedure setODCD8; inline;
  14222. procedure setODCD9; inline;
  14223. property ODCD0 : TBits_1 read getODCD0 write setODCD0;
  14224. property ODCD1 : TBits_1 read getODCD1 write setODCD1;
  14225. property ODCD10 : TBits_1 read getODCD10 write setODCD10;
  14226. property ODCD11 : TBits_1 read getODCD11 write setODCD11;
  14227. property ODCD12 : TBits_1 read getODCD12 write setODCD12;
  14228. property ODCD13 : TBits_1 read getODCD13 write setODCD13;
  14229. property ODCD14 : TBits_1 read getODCD14 write setODCD14;
  14230. property ODCD15 : TBits_1 read getODCD15 write setODCD15;
  14231. property ODCD2 : TBits_1 read getODCD2 write setODCD2;
  14232. property ODCD3 : TBits_1 read getODCD3 write setODCD3;
  14233. property ODCD4 : TBits_1 read getODCD4 write setODCD4;
  14234. property ODCD5 : TBits_1 read getODCD5 write setODCD5;
  14235. property ODCD6 : TBits_1 read getODCD6 write setODCD6;
  14236. property ODCD7 : TBits_1 read getODCD7 write setODCD7;
  14237. property ODCD8 : TBits_1 read getODCD8 write setODCD8;
  14238. property ODCD9 : TBits_1 read getODCD9 write setODCD9;
  14239. property w : TBits_32 read getw write setw;
  14240. end;
  14241. type
  14242. TPORTDRegisters = record
  14243. TRISDbits : TPORTD_TRISD;
  14244. TRISD : longWord;
  14245. TRISDCLR : longWord;
  14246. TRISDSET : longWord;
  14247. TRISDINV : longWord;
  14248. PORTDbits : TPORTD_PORTD;
  14249. PORTD : longWord;
  14250. PORTDCLR : longWord;
  14251. PORTDSET : longWord;
  14252. PORTDINV : longWord;
  14253. LATDbits : TPORTD_LATD;
  14254. LATD : longWord;
  14255. LATDCLR : longWord;
  14256. LATDSET : longWord;
  14257. LATDINV : longWord;
  14258. ODCDbits : TPORTD_ODCD;
  14259. ODCD : longWord;
  14260. ODCDCLR : longWord;
  14261. ODCDSET : longWord;
  14262. ODCDINV : longWord;
  14263. end;
  14264. TPORTE_TRISE = record
  14265. private
  14266. function getTRISE0 : TBits_1; inline;
  14267. function getTRISE1 : TBits_1; inline;
  14268. function getTRISE2 : TBits_1; inline;
  14269. function getTRISE3 : TBits_1; inline;
  14270. function getTRISE4 : TBits_1; inline;
  14271. function getTRISE5 : TBits_1; inline;
  14272. function getTRISE6 : TBits_1; inline;
  14273. function getTRISE7 : TBits_1; inline;
  14274. function getTRISE8 : TBits_1; inline;
  14275. function getTRISE9 : TBits_1; inline;
  14276. function getw : TBits_32; inline;
  14277. procedure setTRISE0(thebits : TBits_1); inline;
  14278. procedure setTRISE1(thebits : TBits_1); inline;
  14279. procedure setTRISE2(thebits : TBits_1); inline;
  14280. procedure setTRISE3(thebits : TBits_1); inline;
  14281. procedure setTRISE4(thebits : TBits_1); inline;
  14282. procedure setTRISE5(thebits : TBits_1); inline;
  14283. procedure setTRISE6(thebits : TBits_1); inline;
  14284. procedure setTRISE7(thebits : TBits_1); inline;
  14285. procedure setTRISE8(thebits : TBits_1); inline;
  14286. procedure setTRISE9(thebits : TBits_1); inline;
  14287. procedure setw(thebits : TBits_32); inline;
  14288. public
  14289. procedure clearTRISE0; inline;
  14290. procedure clearTRISE1; inline;
  14291. procedure clearTRISE2; inline;
  14292. procedure clearTRISE3; inline;
  14293. procedure clearTRISE4; inline;
  14294. procedure clearTRISE5; inline;
  14295. procedure clearTRISE6; inline;
  14296. procedure clearTRISE7; inline;
  14297. procedure clearTRISE8; inline;
  14298. procedure clearTRISE9; inline;
  14299. procedure setTRISE0; inline;
  14300. procedure setTRISE1; inline;
  14301. procedure setTRISE2; inline;
  14302. procedure setTRISE3; inline;
  14303. procedure setTRISE4; inline;
  14304. procedure setTRISE5; inline;
  14305. procedure setTRISE6; inline;
  14306. procedure setTRISE7; inline;
  14307. procedure setTRISE8; inline;
  14308. procedure setTRISE9; inline;
  14309. property TRISE0 : TBits_1 read getTRISE0 write setTRISE0;
  14310. property TRISE1 : TBits_1 read getTRISE1 write setTRISE1;
  14311. property TRISE2 : TBits_1 read getTRISE2 write setTRISE2;
  14312. property TRISE3 : TBits_1 read getTRISE3 write setTRISE3;
  14313. property TRISE4 : TBits_1 read getTRISE4 write setTRISE4;
  14314. property TRISE5 : TBits_1 read getTRISE5 write setTRISE5;
  14315. property TRISE6 : TBits_1 read getTRISE6 write setTRISE6;
  14316. property TRISE7 : TBits_1 read getTRISE7 write setTRISE7;
  14317. property TRISE8 : TBits_1 read getTRISE8 write setTRISE8;
  14318. property TRISE9 : TBits_1 read getTRISE9 write setTRISE9;
  14319. property w : TBits_32 read getw write setw;
  14320. end;
  14321. TPORTE_PORTE = record
  14322. private
  14323. function getRE0 : TBits_1; inline;
  14324. function getRE1 : TBits_1; inline;
  14325. function getRE2 : TBits_1; inline;
  14326. function getRE3 : TBits_1; inline;
  14327. function getRE4 : TBits_1; inline;
  14328. function getRE5 : TBits_1; inline;
  14329. function getRE6 : TBits_1; inline;
  14330. function getRE7 : TBits_1; inline;
  14331. function getRE8 : TBits_1; inline;
  14332. function getRE9 : TBits_1; inline;
  14333. function getw : TBits_32; inline;
  14334. procedure setRE0(thebits : TBits_1); inline;
  14335. procedure setRE1(thebits : TBits_1); inline;
  14336. procedure setRE2(thebits : TBits_1); inline;
  14337. procedure setRE3(thebits : TBits_1); inline;
  14338. procedure setRE4(thebits : TBits_1); inline;
  14339. procedure setRE5(thebits : TBits_1); inline;
  14340. procedure setRE6(thebits : TBits_1); inline;
  14341. procedure setRE7(thebits : TBits_1); inline;
  14342. procedure setRE8(thebits : TBits_1); inline;
  14343. procedure setRE9(thebits : TBits_1); inline;
  14344. procedure setw(thebits : TBits_32); inline;
  14345. public
  14346. procedure clearRE0; inline;
  14347. procedure clearRE1; inline;
  14348. procedure clearRE2; inline;
  14349. procedure clearRE3; inline;
  14350. procedure clearRE4; inline;
  14351. procedure clearRE5; inline;
  14352. procedure clearRE6; inline;
  14353. procedure clearRE7; inline;
  14354. procedure clearRE8; inline;
  14355. procedure clearRE9; inline;
  14356. procedure setRE0; inline;
  14357. procedure setRE1; inline;
  14358. procedure setRE2; inline;
  14359. procedure setRE3; inline;
  14360. procedure setRE4; inline;
  14361. procedure setRE5; inline;
  14362. procedure setRE6; inline;
  14363. procedure setRE7; inline;
  14364. procedure setRE8; inline;
  14365. procedure setRE9; inline;
  14366. property RE0 : TBits_1 read getRE0 write setRE0;
  14367. property RE1 : TBits_1 read getRE1 write setRE1;
  14368. property RE2 : TBits_1 read getRE2 write setRE2;
  14369. property RE3 : TBits_1 read getRE3 write setRE3;
  14370. property RE4 : TBits_1 read getRE4 write setRE4;
  14371. property RE5 : TBits_1 read getRE5 write setRE5;
  14372. property RE6 : TBits_1 read getRE6 write setRE6;
  14373. property RE7 : TBits_1 read getRE7 write setRE7;
  14374. property RE8 : TBits_1 read getRE8 write setRE8;
  14375. property RE9 : TBits_1 read getRE9 write setRE9;
  14376. property w : TBits_32 read getw write setw;
  14377. end;
  14378. TPortE_bits=(RE0=0,RE1=1,RE2=2,RE3=3,RE4=4,RE5=5,RE6=6,RE7=7,RE8=8,RE9=9);
  14379. TPortE_bitset = set of TPortE_bits;
  14380. TPORTE_LATE = record
  14381. private
  14382. function getLATE0 : TBits_1; inline;
  14383. function getLATE1 : TBits_1; inline;
  14384. function getLATE2 : TBits_1; inline;
  14385. function getLATE3 : TBits_1; inline;
  14386. function getLATE4 : TBits_1; inline;
  14387. function getLATE5 : TBits_1; inline;
  14388. function getLATE6 : TBits_1; inline;
  14389. function getLATE7 : TBits_1; inline;
  14390. function getLATE8 : TBits_1; inline;
  14391. function getLATE9 : TBits_1; inline;
  14392. function getw : TBits_32; inline;
  14393. procedure setLATE0(thebits : TBits_1); inline;
  14394. procedure setLATE1(thebits : TBits_1); inline;
  14395. procedure setLATE2(thebits : TBits_1); inline;
  14396. procedure setLATE3(thebits : TBits_1); inline;
  14397. procedure setLATE4(thebits : TBits_1); inline;
  14398. procedure setLATE5(thebits : TBits_1); inline;
  14399. procedure setLATE6(thebits : TBits_1); inline;
  14400. procedure setLATE7(thebits : TBits_1); inline;
  14401. procedure setLATE8(thebits : TBits_1); inline;
  14402. procedure setLATE9(thebits : TBits_1); inline;
  14403. procedure setw(thebits : TBits_32); inline;
  14404. public
  14405. procedure clearLATE0; inline;
  14406. procedure clearLATE1; inline;
  14407. procedure clearLATE2; inline;
  14408. procedure clearLATE3; inline;
  14409. procedure clearLATE4; inline;
  14410. procedure clearLATE5; inline;
  14411. procedure clearLATE6; inline;
  14412. procedure clearLATE7; inline;
  14413. procedure clearLATE8; inline;
  14414. procedure clearLATE9; inline;
  14415. procedure setLATE0; inline;
  14416. procedure setLATE1; inline;
  14417. procedure setLATE2; inline;
  14418. procedure setLATE3; inline;
  14419. procedure setLATE4; inline;
  14420. procedure setLATE5; inline;
  14421. procedure setLATE6; inline;
  14422. procedure setLATE7; inline;
  14423. procedure setLATE8; inline;
  14424. procedure setLATE9; inline;
  14425. property LATE0 : TBits_1 read getLATE0 write setLATE0;
  14426. property LATE1 : TBits_1 read getLATE1 write setLATE1;
  14427. property LATE2 : TBits_1 read getLATE2 write setLATE2;
  14428. property LATE3 : TBits_1 read getLATE3 write setLATE3;
  14429. property LATE4 : TBits_1 read getLATE4 write setLATE4;
  14430. property LATE5 : TBits_1 read getLATE5 write setLATE5;
  14431. property LATE6 : TBits_1 read getLATE6 write setLATE6;
  14432. property LATE7 : TBits_1 read getLATE7 write setLATE7;
  14433. property LATE8 : TBits_1 read getLATE8 write setLATE8;
  14434. property LATE9 : TBits_1 read getLATE9 write setLATE9;
  14435. property w : TBits_32 read getw write setw;
  14436. end;
  14437. TPORTE_ODCE = record
  14438. private
  14439. function getODCE0 : TBits_1; inline;
  14440. function getODCE1 : TBits_1; inline;
  14441. function getODCE2 : TBits_1; inline;
  14442. function getODCE3 : TBits_1; inline;
  14443. function getODCE4 : TBits_1; inline;
  14444. function getODCE5 : TBits_1; inline;
  14445. function getODCE6 : TBits_1; inline;
  14446. function getODCE7 : TBits_1; inline;
  14447. function getODCE8 : TBits_1; inline;
  14448. function getODCE9 : TBits_1; inline;
  14449. function getw : TBits_32; inline;
  14450. procedure setODCE0(thebits : TBits_1); inline;
  14451. procedure setODCE1(thebits : TBits_1); inline;
  14452. procedure setODCE2(thebits : TBits_1); inline;
  14453. procedure setODCE3(thebits : TBits_1); inline;
  14454. procedure setODCE4(thebits : TBits_1); inline;
  14455. procedure setODCE5(thebits : TBits_1); inline;
  14456. procedure setODCE6(thebits : TBits_1); inline;
  14457. procedure setODCE7(thebits : TBits_1); inline;
  14458. procedure setODCE8(thebits : TBits_1); inline;
  14459. procedure setODCE9(thebits : TBits_1); inline;
  14460. procedure setw(thebits : TBits_32); inline;
  14461. public
  14462. procedure clearODCE0; inline;
  14463. procedure clearODCE1; inline;
  14464. procedure clearODCE2; inline;
  14465. procedure clearODCE3; inline;
  14466. procedure clearODCE4; inline;
  14467. procedure clearODCE5; inline;
  14468. procedure clearODCE6; inline;
  14469. procedure clearODCE7; inline;
  14470. procedure clearODCE8; inline;
  14471. procedure clearODCE9; inline;
  14472. procedure setODCE0; inline;
  14473. procedure setODCE1; inline;
  14474. procedure setODCE2; inline;
  14475. procedure setODCE3; inline;
  14476. procedure setODCE4; inline;
  14477. procedure setODCE5; inline;
  14478. procedure setODCE6; inline;
  14479. procedure setODCE7; inline;
  14480. procedure setODCE8; inline;
  14481. procedure setODCE9; inline;
  14482. property ODCE0 : TBits_1 read getODCE0 write setODCE0;
  14483. property ODCE1 : TBits_1 read getODCE1 write setODCE1;
  14484. property ODCE2 : TBits_1 read getODCE2 write setODCE2;
  14485. property ODCE3 : TBits_1 read getODCE3 write setODCE3;
  14486. property ODCE4 : TBits_1 read getODCE4 write setODCE4;
  14487. property ODCE5 : TBits_1 read getODCE5 write setODCE5;
  14488. property ODCE6 : TBits_1 read getODCE6 write setODCE6;
  14489. property ODCE7 : TBits_1 read getODCE7 write setODCE7;
  14490. property ODCE8 : TBits_1 read getODCE8 write setODCE8;
  14491. property ODCE9 : TBits_1 read getODCE9 write setODCE9;
  14492. property w : TBits_32 read getw write setw;
  14493. end;
  14494. type
  14495. TPORTERegisters = record
  14496. TRISEbits : TPORTE_TRISE;
  14497. TRISE : longWord;
  14498. TRISECLR : longWord;
  14499. TRISESET : longWord;
  14500. TRISEINV : longWord;
  14501. PORTEbits : TPORTE_PORTE;
  14502. PORTE : longWord;
  14503. PORTECLR : longWord;
  14504. PORTESET : longWord;
  14505. PORTEINV : longWord;
  14506. LATEbits : TPORTE_LATE;
  14507. LATE : longWord;
  14508. LATECLR : longWord;
  14509. LATESET : longWord;
  14510. LATEINV : longWord;
  14511. ODCEbits : TPORTE_ODCE;
  14512. ODCE : longWord;
  14513. ODCECLR : longWord;
  14514. ODCESET : longWord;
  14515. ODCEINV : longWord;
  14516. end;
  14517. TPORTF_TRISF = record
  14518. private
  14519. function getTRISF0 : TBits_1; inline;
  14520. function getTRISF1 : TBits_1; inline;
  14521. function getTRISF12 : TBits_1; inline;
  14522. function getTRISF13 : TBits_1; inline;
  14523. function getTRISF2 : TBits_1; inline;
  14524. function getTRISF3 : TBits_1; inline;
  14525. function getTRISF4 : TBits_1; inline;
  14526. function getTRISF5 : TBits_1; inline;
  14527. function getTRISF8 : TBits_1; inline;
  14528. function getw : TBits_32; inline;
  14529. procedure setTRISF0(thebits : TBits_1); inline;
  14530. procedure setTRISF1(thebits : TBits_1); inline;
  14531. procedure setTRISF12(thebits : TBits_1); inline;
  14532. procedure setTRISF13(thebits : TBits_1); inline;
  14533. procedure setTRISF2(thebits : TBits_1); inline;
  14534. procedure setTRISF3(thebits : TBits_1); inline;
  14535. procedure setTRISF4(thebits : TBits_1); inline;
  14536. procedure setTRISF5(thebits : TBits_1); inline;
  14537. procedure setTRISF8(thebits : TBits_1); inline;
  14538. procedure setw(thebits : TBits_32); inline;
  14539. public
  14540. procedure clearTRISF0; inline;
  14541. procedure clearTRISF12; inline;
  14542. procedure clearTRISF13; inline;
  14543. procedure clearTRISF1; inline;
  14544. procedure clearTRISF2; inline;
  14545. procedure clearTRISF3; inline;
  14546. procedure clearTRISF4; inline;
  14547. procedure clearTRISF5; inline;
  14548. procedure clearTRISF8; inline;
  14549. procedure setTRISF0; inline;
  14550. procedure setTRISF12; inline;
  14551. procedure setTRISF13; inline;
  14552. procedure setTRISF1; inline;
  14553. procedure setTRISF2; inline;
  14554. procedure setTRISF3; inline;
  14555. procedure setTRISF4; inline;
  14556. procedure setTRISF5; inline;
  14557. procedure setTRISF8; inline;
  14558. property TRISF0 : TBits_1 read getTRISF0 write setTRISF0;
  14559. property TRISF1 : TBits_1 read getTRISF1 write setTRISF1;
  14560. property TRISF12 : TBits_1 read getTRISF12 write setTRISF12;
  14561. property TRISF13 : TBits_1 read getTRISF13 write setTRISF13;
  14562. property TRISF2 : TBits_1 read getTRISF2 write setTRISF2;
  14563. property TRISF3 : TBits_1 read getTRISF3 write setTRISF3;
  14564. property TRISF4 : TBits_1 read getTRISF4 write setTRISF4;
  14565. property TRISF5 : TBits_1 read getTRISF5 write setTRISF5;
  14566. property TRISF8 : TBits_1 read getTRISF8 write setTRISF8;
  14567. property w : TBits_32 read getw write setw;
  14568. end;
  14569. TPORTF_PORTF = record
  14570. private
  14571. function getRF0 : TBits_1; inline;
  14572. function getRF1 : TBits_1; inline;
  14573. function getRF12 : TBits_1; inline;
  14574. function getRF13 : TBits_1; inline;
  14575. function getRF2 : TBits_1; inline;
  14576. function getRF3 : TBits_1; inline;
  14577. function getRF4 : TBits_1; inline;
  14578. function getRF5 : TBits_1; inline;
  14579. function getRF8 : TBits_1; inline;
  14580. function getw : TBits_32; inline;
  14581. procedure setRF0(thebits : TBits_1); inline;
  14582. procedure setRF1(thebits : TBits_1); inline;
  14583. procedure setRF12(thebits : TBits_1); inline;
  14584. procedure setRF13(thebits : TBits_1); inline;
  14585. procedure setRF2(thebits : TBits_1); inline;
  14586. procedure setRF3(thebits : TBits_1); inline;
  14587. procedure setRF4(thebits : TBits_1); inline;
  14588. procedure setRF5(thebits : TBits_1); inline;
  14589. procedure setRF8(thebits : TBits_1); inline;
  14590. procedure setw(thebits : TBits_32); inline;
  14591. public
  14592. procedure clearRF0; inline;
  14593. procedure clearRF12; inline;
  14594. procedure clearRF13; inline;
  14595. procedure clearRF1; inline;
  14596. procedure clearRF2; inline;
  14597. procedure clearRF3; inline;
  14598. procedure clearRF4; inline;
  14599. procedure clearRF5; inline;
  14600. procedure clearRF8; inline;
  14601. procedure setRF0; inline;
  14602. procedure setRF12; inline;
  14603. procedure setRF13; inline;
  14604. procedure setRF1; inline;
  14605. procedure setRF2; inline;
  14606. procedure setRF3; inline;
  14607. procedure setRF4; inline;
  14608. procedure setRF5; inline;
  14609. procedure setRF8; inline;
  14610. property RF0 : TBits_1 read getRF0 write setRF0;
  14611. property RF1 : TBits_1 read getRF1 write setRF1;
  14612. property RF12 : TBits_1 read getRF12 write setRF12;
  14613. property RF13 : TBits_1 read getRF13 write setRF13;
  14614. property RF2 : TBits_1 read getRF2 write setRF2;
  14615. property RF3 : TBits_1 read getRF3 write setRF3;
  14616. property RF4 : TBits_1 read getRF4 write setRF4;
  14617. property RF5 : TBits_1 read getRF5 write setRF5;
  14618. property RF8 : TBits_1 read getRF8 write setRF8;
  14619. property w : TBits_32 read getw write setw;
  14620. end;
  14621. TPortF_bits=(RF0=0,RF1=1,RF2=2,RF3=3,RF4=4,RF5=5,RF8=8,RF12=12,RF13=13);
  14622. TPortF_bitset = set of TPortF_bits;
  14623. TPORTF_LATF = record
  14624. private
  14625. function getLATF0 : TBits_1; inline;
  14626. function getLATF1 : TBits_1; inline;
  14627. function getLATF12 : TBits_1; inline;
  14628. function getLATF13 : TBits_1; inline;
  14629. function getLATF2 : TBits_1; inline;
  14630. function getLATF3 : TBits_1; inline;
  14631. function getLATF4 : TBits_1; inline;
  14632. function getLATF5 : TBits_1; inline;
  14633. function getLATF8 : TBits_1; inline;
  14634. function getw : TBits_32; inline;
  14635. procedure setLATF0(thebits : TBits_1); inline;
  14636. procedure setLATF1(thebits : TBits_1); inline;
  14637. procedure setLATF12(thebits : TBits_1); inline;
  14638. procedure setLATF13(thebits : TBits_1); inline;
  14639. procedure setLATF2(thebits : TBits_1); inline;
  14640. procedure setLATF3(thebits : TBits_1); inline;
  14641. procedure setLATF4(thebits : TBits_1); inline;
  14642. procedure setLATF5(thebits : TBits_1); inline;
  14643. procedure setLATF8(thebits : TBits_1); inline;
  14644. procedure setw(thebits : TBits_32); inline;
  14645. public
  14646. procedure clearLATF0; inline;
  14647. procedure clearLATF12; inline;
  14648. procedure clearLATF13; inline;
  14649. procedure clearLATF1; inline;
  14650. procedure clearLATF2; inline;
  14651. procedure clearLATF3; inline;
  14652. procedure clearLATF4; inline;
  14653. procedure clearLATF5; inline;
  14654. procedure clearLATF8; inline;
  14655. procedure setLATF0; inline;
  14656. procedure setLATF12; inline;
  14657. procedure setLATF13; inline;
  14658. procedure setLATF1; inline;
  14659. procedure setLATF2; inline;
  14660. procedure setLATF3; inline;
  14661. procedure setLATF4; inline;
  14662. procedure setLATF5; inline;
  14663. procedure setLATF8; inline;
  14664. property LATF0 : TBits_1 read getLATF0 write setLATF0;
  14665. property LATF1 : TBits_1 read getLATF1 write setLATF1;
  14666. property LATF12 : TBits_1 read getLATF12 write setLATF12;
  14667. property LATF13 : TBits_1 read getLATF13 write setLATF13;
  14668. property LATF2 : TBits_1 read getLATF2 write setLATF2;
  14669. property LATF3 : TBits_1 read getLATF3 write setLATF3;
  14670. property LATF4 : TBits_1 read getLATF4 write setLATF4;
  14671. property LATF5 : TBits_1 read getLATF5 write setLATF5;
  14672. property LATF8 : TBits_1 read getLATF8 write setLATF8;
  14673. property w : TBits_32 read getw write setw;
  14674. end;
  14675. TPORTF_ODCF = record
  14676. private
  14677. function getODCF0 : TBits_1; inline;
  14678. function getODCF1 : TBits_1; inline;
  14679. function getODCF12 : TBits_1; inline;
  14680. function getODCF13 : TBits_1; inline;
  14681. function getODCF2 : TBits_1; inline;
  14682. function getODCF3 : TBits_1; inline;
  14683. function getODCF4 : TBits_1; inline;
  14684. function getODCF5 : TBits_1; inline;
  14685. function getODCF8 : TBits_1; inline;
  14686. function getw : TBits_32; inline;
  14687. procedure setODCF0(thebits : TBits_1); inline;
  14688. procedure setODCF1(thebits : TBits_1); inline;
  14689. procedure setODCF12(thebits : TBits_1); inline;
  14690. procedure setODCF13(thebits : TBits_1); inline;
  14691. procedure setODCF2(thebits : TBits_1); inline;
  14692. procedure setODCF3(thebits : TBits_1); inline;
  14693. procedure setODCF4(thebits : TBits_1); inline;
  14694. procedure setODCF5(thebits : TBits_1); inline;
  14695. procedure setODCF8(thebits : TBits_1); inline;
  14696. procedure setw(thebits : TBits_32); inline;
  14697. public
  14698. procedure clearODCF0; inline;
  14699. procedure clearODCF12; inline;
  14700. procedure clearODCF13; inline;
  14701. procedure clearODCF1; inline;
  14702. procedure clearODCF2; inline;
  14703. procedure clearODCF3; inline;
  14704. procedure clearODCF4; inline;
  14705. procedure clearODCF5; inline;
  14706. procedure clearODCF8; inline;
  14707. procedure setODCF0; inline;
  14708. procedure setODCF12; inline;
  14709. procedure setODCF13; inline;
  14710. procedure setODCF1; inline;
  14711. procedure setODCF2; inline;
  14712. procedure setODCF3; inline;
  14713. procedure setODCF4; inline;
  14714. procedure setODCF5; inline;
  14715. procedure setODCF8; inline;
  14716. property ODCF0 : TBits_1 read getODCF0 write setODCF0;
  14717. property ODCF1 : TBits_1 read getODCF1 write setODCF1;
  14718. property ODCF12 : TBits_1 read getODCF12 write setODCF12;
  14719. property ODCF13 : TBits_1 read getODCF13 write setODCF13;
  14720. property ODCF2 : TBits_1 read getODCF2 write setODCF2;
  14721. property ODCF3 : TBits_1 read getODCF3 write setODCF3;
  14722. property ODCF4 : TBits_1 read getODCF4 write setODCF4;
  14723. property ODCF5 : TBits_1 read getODCF5 write setODCF5;
  14724. property ODCF8 : TBits_1 read getODCF8 write setODCF8;
  14725. property w : TBits_32 read getw write setw;
  14726. end;
  14727. type
  14728. TPORTFRegisters = record
  14729. TRISFbits : TPORTF_TRISF;
  14730. TRISF : longWord;
  14731. TRISFCLR : longWord;
  14732. TRISFSET : longWord;
  14733. TRISFINV : longWord;
  14734. PORTFbits : TPORTF_PORTF;
  14735. PORTF : longWord;
  14736. PORTFCLR : longWord;
  14737. PORTFSET : longWord;
  14738. PORTFINV : longWord;
  14739. LATFbits : TPORTF_LATF;
  14740. LATF : longWord;
  14741. LATFCLR : longWord;
  14742. LATFSET : longWord;
  14743. LATFINV : longWord;
  14744. ODCFbits : TPORTF_ODCF;
  14745. ODCF : longWord;
  14746. ODCFCLR : longWord;
  14747. ODCFSET : longWord;
  14748. ODCFINV : longWord;
  14749. end;
  14750. TPORTG_TRISG = record
  14751. private
  14752. function getTRISG0 : TBits_1; inline;
  14753. function getTRISG1 : TBits_1; inline;
  14754. function getTRISG12 : TBits_1; inline;
  14755. function getTRISG13 : TBits_1; inline;
  14756. function getTRISG14 : TBits_1; inline;
  14757. function getTRISG15 : TBits_1; inline;
  14758. function getTRISG2 : TBits_1; inline;
  14759. function getTRISG3 : TBits_1; inline;
  14760. function getTRISG6 : TBits_1; inline;
  14761. function getTRISG7 : TBits_1; inline;
  14762. function getTRISG8 : TBits_1; inline;
  14763. function getTRISG9 : TBits_1; inline;
  14764. function getw : TBits_32; inline;
  14765. procedure setTRISG0(thebits : TBits_1); inline;
  14766. procedure setTRISG1(thebits : TBits_1); inline;
  14767. procedure setTRISG12(thebits : TBits_1); inline;
  14768. procedure setTRISG13(thebits : TBits_1); inline;
  14769. procedure setTRISG14(thebits : TBits_1); inline;
  14770. procedure setTRISG15(thebits : TBits_1); inline;
  14771. procedure setTRISG2(thebits : TBits_1); inline;
  14772. procedure setTRISG3(thebits : TBits_1); inline;
  14773. procedure setTRISG6(thebits : TBits_1); inline;
  14774. procedure setTRISG7(thebits : TBits_1); inline;
  14775. procedure setTRISG8(thebits : TBits_1); inline;
  14776. procedure setTRISG9(thebits : TBits_1); inline;
  14777. procedure setw(thebits : TBits_32); inline;
  14778. public
  14779. procedure clearTRISG0; inline;
  14780. procedure clearTRISG12; inline;
  14781. procedure clearTRISG13; inline;
  14782. procedure clearTRISG14; inline;
  14783. procedure clearTRISG15; inline;
  14784. procedure clearTRISG1; inline;
  14785. procedure clearTRISG2; inline;
  14786. procedure clearTRISG3; inline;
  14787. procedure clearTRISG6; inline;
  14788. procedure clearTRISG7; inline;
  14789. procedure clearTRISG8; inline;
  14790. procedure clearTRISG9; inline;
  14791. procedure setTRISG0; inline;
  14792. procedure setTRISG12; inline;
  14793. procedure setTRISG13; inline;
  14794. procedure setTRISG14; inline;
  14795. procedure setTRISG15; inline;
  14796. procedure setTRISG1; inline;
  14797. procedure setTRISG2; inline;
  14798. procedure setTRISG3; inline;
  14799. procedure setTRISG6; inline;
  14800. procedure setTRISG7; inline;
  14801. procedure setTRISG8; inline;
  14802. procedure setTRISG9; inline;
  14803. property TRISG0 : TBits_1 read getTRISG0 write setTRISG0;
  14804. property TRISG1 : TBits_1 read getTRISG1 write setTRISG1;
  14805. property TRISG12 : TBits_1 read getTRISG12 write setTRISG12;
  14806. property TRISG13 : TBits_1 read getTRISG13 write setTRISG13;
  14807. property TRISG14 : TBits_1 read getTRISG14 write setTRISG14;
  14808. property TRISG15 : TBits_1 read getTRISG15 write setTRISG15;
  14809. property TRISG2 : TBits_1 read getTRISG2 write setTRISG2;
  14810. property TRISG3 : TBits_1 read getTRISG3 write setTRISG3;
  14811. property TRISG6 : TBits_1 read getTRISG6 write setTRISG6;
  14812. property TRISG7 : TBits_1 read getTRISG7 write setTRISG7;
  14813. property TRISG8 : TBits_1 read getTRISG8 write setTRISG8;
  14814. property TRISG9 : TBits_1 read getTRISG9 write setTRISG9;
  14815. property w : TBits_32 read getw write setw;
  14816. end;
  14817. TPORTG_PORTG = record
  14818. private
  14819. function getRG0 : TBits_1; inline;
  14820. function getRG1 : TBits_1; inline;
  14821. function getRG12 : TBits_1; inline;
  14822. function getRG13 : TBits_1; inline;
  14823. function getRG14 : TBits_1; inline;
  14824. function getRG15 : TBits_1; inline;
  14825. function getRG2 : TBits_1; inline;
  14826. function getRG3 : TBits_1; inline;
  14827. function getRG6 : TBits_1; inline;
  14828. function getRG7 : TBits_1; inline;
  14829. function getRG8 : TBits_1; inline;
  14830. function getRG9 : TBits_1; inline;
  14831. function getw : TBits_32; inline;
  14832. procedure setRG0(thebits : TBits_1); inline;
  14833. procedure setRG1(thebits : TBits_1); inline;
  14834. procedure setRG12(thebits : TBits_1); inline;
  14835. procedure setRG13(thebits : TBits_1); inline;
  14836. procedure setRG14(thebits : TBits_1); inline;
  14837. procedure setRG15(thebits : TBits_1); inline;
  14838. procedure setRG2(thebits : TBits_1); inline;
  14839. procedure setRG3(thebits : TBits_1); inline;
  14840. procedure setRG6(thebits : TBits_1); inline;
  14841. procedure setRG7(thebits : TBits_1); inline;
  14842. procedure setRG8(thebits : TBits_1); inline;
  14843. procedure setRG9(thebits : TBits_1); inline;
  14844. procedure setw(thebits : TBits_32); inline;
  14845. public
  14846. procedure clearRG0; inline;
  14847. procedure clearRG12; inline;
  14848. procedure clearRG13; inline;
  14849. procedure clearRG14; inline;
  14850. procedure clearRG15; inline;
  14851. procedure clearRG1; inline;
  14852. procedure clearRG2; inline;
  14853. procedure clearRG3; inline;
  14854. procedure clearRG6; inline;
  14855. procedure clearRG7; inline;
  14856. procedure clearRG8; inline;
  14857. procedure clearRG9; inline;
  14858. procedure setRG0; inline;
  14859. procedure setRG12; inline;
  14860. procedure setRG13; inline;
  14861. procedure setRG14; inline;
  14862. procedure setRG15; inline;
  14863. procedure setRG1; inline;
  14864. procedure setRG2; inline;
  14865. procedure setRG3; inline;
  14866. procedure setRG6; inline;
  14867. procedure setRG7; inline;
  14868. procedure setRG8; inline;
  14869. procedure setRG9; inline;
  14870. property RG0 : TBits_1 read getRG0 write setRG0;
  14871. property RG1 : TBits_1 read getRG1 write setRG1;
  14872. property RG12 : TBits_1 read getRG12 write setRG12;
  14873. property RG13 : TBits_1 read getRG13 write setRG13;
  14874. property RG14 : TBits_1 read getRG14 write setRG14;
  14875. property RG15 : TBits_1 read getRG15 write setRG15;
  14876. property RG2 : TBits_1 read getRG2 write setRG2;
  14877. property RG3 : TBits_1 read getRG3 write setRG3;
  14878. property RG6 : TBits_1 read getRG6 write setRG6;
  14879. property RG7 : TBits_1 read getRG7 write setRG7;
  14880. property RG8 : TBits_1 read getRG8 write setRG8;
  14881. property RG9 : TBits_1 read getRG9 write setRG9;
  14882. property w : TBits_32 read getw write setw;
  14883. end;
  14884. 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);
  14885. TPortG_bitset = set of TPortG_bits;
  14886. TPORTG_LATG = record
  14887. private
  14888. function getLATG0 : TBits_1; inline;
  14889. function getLATG1 : TBits_1; inline;
  14890. function getLATG12 : TBits_1; inline;
  14891. function getLATG13 : TBits_1; inline;
  14892. function getLATG14 : TBits_1; inline;
  14893. function getLATG15 : TBits_1; inline;
  14894. function getLATG2 : TBits_1; inline;
  14895. function getLATG3 : TBits_1; inline;
  14896. function getLATG6 : TBits_1; inline;
  14897. function getLATG7 : TBits_1; inline;
  14898. function getLATG8 : TBits_1; inline;
  14899. function getLATG9 : TBits_1; inline;
  14900. function getw : TBits_32; inline;
  14901. procedure setLATG0(thebits : TBits_1); inline;
  14902. procedure setLATG1(thebits : TBits_1); inline;
  14903. procedure setLATG12(thebits : TBits_1); inline;
  14904. procedure setLATG13(thebits : TBits_1); inline;
  14905. procedure setLATG14(thebits : TBits_1); inline;
  14906. procedure setLATG15(thebits : TBits_1); inline;
  14907. procedure setLATG2(thebits : TBits_1); inline;
  14908. procedure setLATG3(thebits : TBits_1); inline;
  14909. procedure setLATG6(thebits : TBits_1); inline;
  14910. procedure setLATG7(thebits : TBits_1); inline;
  14911. procedure setLATG8(thebits : TBits_1); inline;
  14912. procedure setLATG9(thebits : TBits_1); inline;
  14913. procedure setw(thebits : TBits_32); inline;
  14914. public
  14915. procedure clearLATG0; inline;
  14916. procedure clearLATG12; inline;
  14917. procedure clearLATG13; inline;
  14918. procedure clearLATG14; inline;
  14919. procedure clearLATG15; inline;
  14920. procedure clearLATG1; inline;
  14921. procedure clearLATG2; inline;
  14922. procedure clearLATG3; inline;
  14923. procedure clearLATG6; inline;
  14924. procedure clearLATG7; inline;
  14925. procedure clearLATG8; inline;
  14926. procedure clearLATG9; inline;
  14927. procedure setLATG0; inline;
  14928. procedure setLATG12; inline;
  14929. procedure setLATG13; inline;
  14930. procedure setLATG14; inline;
  14931. procedure setLATG15; inline;
  14932. procedure setLATG1; inline;
  14933. procedure setLATG2; inline;
  14934. procedure setLATG3; inline;
  14935. procedure setLATG6; inline;
  14936. procedure setLATG7; inline;
  14937. procedure setLATG8; inline;
  14938. procedure setLATG9; inline;
  14939. property LATG0 : TBits_1 read getLATG0 write setLATG0;
  14940. property LATG1 : TBits_1 read getLATG1 write setLATG1;
  14941. property LATG12 : TBits_1 read getLATG12 write setLATG12;
  14942. property LATG13 : TBits_1 read getLATG13 write setLATG13;
  14943. property LATG14 : TBits_1 read getLATG14 write setLATG14;
  14944. property LATG15 : TBits_1 read getLATG15 write setLATG15;
  14945. property LATG2 : TBits_1 read getLATG2 write setLATG2;
  14946. property LATG3 : TBits_1 read getLATG3 write setLATG3;
  14947. property LATG6 : TBits_1 read getLATG6 write setLATG6;
  14948. property LATG7 : TBits_1 read getLATG7 write setLATG7;
  14949. property LATG8 : TBits_1 read getLATG8 write setLATG8;
  14950. property LATG9 : TBits_1 read getLATG9 write setLATG9;
  14951. property w : TBits_32 read getw write setw;
  14952. end;
  14953. TPORTG_ODCG = record
  14954. private
  14955. function getODCG0 : TBits_1; inline;
  14956. function getODCG1 : TBits_1; inline;
  14957. function getODCG12 : TBits_1; inline;
  14958. function getODCG13 : TBits_1; inline;
  14959. function getODCG14 : TBits_1; inline;
  14960. function getODCG15 : TBits_1; inline;
  14961. function getODCG2 : TBits_1; inline;
  14962. function getODCG3 : TBits_1; inline;
  14963. function getODCG6 : TBits_1; inline;
  14964. function getODCG7 : TBits_1; inline;
  14965. function getODCG8 : TBits_1; inline;
  14966. function getODCG9 : TBits_1; inline;
  14967. function getw : TBits_32; inline;
  14968. procedure setODCG0(thebits : TBits_1); inline;
  14969. procedure setODCG1(thebits : TBits_1); inline;
  14970. procedure setODCG12(thebits : TBits_1); inline;
  14971. procedure setODCG13(thebits : TBits_1); inline;
  14972. procedure setODCG14(thebits : TBits_1); inline;
  14973. procedure setODCG15(thebits : TBits_1); inline;
  14974. procedure setODCG2(thebits : TBits_1); inline;
  14975. procedure setODCG3(thebits : TBits_1); inline;
  14976. procedure setODCG6(thebits : TBits_1); inline;
  14977. procedure setODCG7(thebits : TBits_1); inline;
  14978. procedure setODCG8(thebits : TBits_1); inline;
  14979. procedure setODCG9(thebits : TBits_1); inline;
  14980. procedure setw(thebits : TBits_32); inline;
  14981. public
  14982. procedure clearODCG0; inline;
  14983. procedure clearODCG12; inline;
  14984. procedure clearODCG13; inline;
  14985. procedure clearODCG14; inline;
  14986. procedure clearODCG15; inline;
  14987. procedure clearODCG1; inline;
  14988. procedure clearODCG2; inline;
  14989. procedure clearODCG3; inline;
  14990. procedure clearODCG6; inline;
  14991. procedure clearODCG7; inline;
  14992. procedure clearODCG8; inline;
  14993. procedure clearODCG9; inline;
  14994. procedure setODCG0; inline;
  14995. procedure setODCG12; inline;
  14996. procedure setODCG13; inline;
  14997. procedure setODCG14; inline;
  14998. procedure setODCG15; inline;
  14999. procedure setODCG1; inline;
  15000. procedure setODCG2; inline;
  15001. procedure setODCG3; inline;
  15002. procedure setODCG6; inline;
  15003. procedure setODCG7; inline;
  15004. procedure setODCG8; inline;
  15005. procedure setODCG9; inline;
  15006. property ODCG0 : TBits_1 read getODCG0 write setODCG0;
  15007. property ODCG1 : TBits_1 read getODCG1 write setODCG1;
  15008. property ODCG12 : TBits_1 read getODCG12 write setODCG12;
  15009. property ODCG13 : TBits_1 read getODCG13 write setODCG13;
  15010. property ODCG14 : TBits_1 read getODCG14 write setODCG14;
  15011. property ODCG15 : TBits_1 read getODCG15 write setODCG15;
  15012. property ODCG2 : TBits_1 read getODCG2 write setODCG2;
  15013. property ODCG3 : TBits_1 read getODCG3 write setODCG3;
  15014. property ODCG6 : TBits_1 read getODCG6 write setODCG6;
  15015. property ODCG7 : TBits_1 read getODCG7 write setODCG7;
  15016. property ODCG8 : TBits_1 read getODCG8 write setODCG8;
  15017. property ODCG9 : TBits_1 read getODCG9 write setODCG9;
  15018. property w : TBits_32 read getw write setw;
  15019. end;
  15020. TPORTG_CNCON = record
  15021. private
  15022. function getON : TBits_1; inline;
  15023. function getSIDL : TBits_1; inline;
  15024. function getw : TBits_32; inline;
  15025. procedure setON(thebits : TBits_1); inline;
  15026. procedure setSIDL(thebits : TBits_1); inline;
  15027. procedure setw(thebits : TBits_32); inline;
  15028. public
  15029. procedure clearON; inline;
  15030. procedure clearSIDL; inline;
  15031. procedure setON; inline;
  15032. procedure setSIDL; inline;
  15033. property ON : TBits_1 read getON write setON;
  15034. property SIDL : TBits_1 read getSIDL write setSIDL;
  15035. property w : TBits_32 read getw write setw;
  15036. end;
  15037. TPORTG_CNEN = record
  15038. private
  15039. function getCNEN0 : TBits_1; inline;
  15040. function getCNEN1 : TBits_1; inline;
  15041. function getCNEN10 : TBits_1; inline;
  15042. function getCNEN11 : TBits_1; inline;
  15043. function getCNEN12 : TBits_1; inline;
  15044. function getCNEN13 : TBits_1; inline;
  15045. function getCNEN14 : TBits_1; inline;
  15046. function getCNEN15 : TBits_1; inline;
  15047. function getCNEN16 : TBits_1; inline;
  15048. function getCNEN17 : TBits_1; inline;
  15049. function getCNEN18 : TBits_1; inline;
  15050. function getCNEN19 : TBits_1; inline;
  15051. function getCNEN2 : TBits_1; inline;
  15052. function getCNEN20 : TBits_1; inline;
  15053. function getCNEN21 : TBits_1; inline;
  15054. function getCNEN3 : TBits_1; inline;
  15055. function getCNEN4 : TBits_1; inline;
  15056. function getCNEN5 : TBits_1; inline;
  15057. function getCNEN6 : TBits_1; inline;
  15058. function getCNEN7 : TBits_1; inline;
  15059. function getCNEN8 : TBits_1; inline;
  15060. function getCNEN9 : TBits_1; inline;
  15061. function getw : TBits_32; inline;
  15062. procedure setCNEN0(thebits : TBits_1); inline;
  15063. procedure setCNEN1(thebits : TBits_1); inline;
  15064. procedure setCNEN10(thebits : TBits_1); inline;
  15065. procedure setCNEN11(thebits : TBits_1); inline;
  15066. procedure setCNEN12(thebits : TBits_1); inline;
  15067. procedure setCNEN13(thebits : TBits_1); inline;
  15068. procedure setCNEN14(thebits : TBits_1); inline;
  15069. procedure setCNEN15(thebits : TBits_1); inline;
  15070. procedure setCNEN16(thebits : TBits_1); inline;
  15071. procedure setCNEN17(thebits : TBits_1); inline;
  15072. procedure setCNEN18(thebits : TBits_1); inline;
  15073. procedure setCNEN19(thebits : TBits_1); inline;
  15074. procedure setCNEN2(thebits : TBits_1); inline;
  15075. procedure setCNEN20(thebits : TBits_1); inline;
  15076. procedure setCNEN21(thebits : TBits_1); inline;
  15077. procedure setCNEN3(thebits : TBits_1); inline;
  15078. procedure setCNEN4(thebits : TBits_1); inline;
  15079. procedure setCNEN5(thebits : TBits_1); inline;
  15080. procedure setCNEN6(thebits : TBits_1); inline;
  15081. procedure setCNEN7(thebits : TBits_1); inline;
  15082. procedure setCNEN8(thebits : TBits_1); inline;
  15083. procedure setCNEN9(thebits : TBits_1); inline;
  15084. procedure setw(thebits : TBits_32); inline;
  15085. public
  15086. procedure clearCNEN0; inline;
  15087. procedure clearCNEN10; inline;
  15088. procedure clearCNEN11; inline;
  15089. procedure clearCNEN12; inline;
  15090. procedure clearCNEN13; inline;
  15091. procedure clearCNEN14; inline;
  15092. procedure clearCNEN15; inline;
  15093. procedure clearCNEN16; inline;
  15094. procedure clearCNEN17; inline;
  15095. procedure clearCNEN18; inline;
  15096. procedure clearCNEN19; inline;
  15097. procedure clearCNEN1; inline;
  15098. procedure clearCNEN20; inline;
  15099. procedure clearCNEN21; inline;
  15100. procedure clearCNEN2; inline;
  15101. procedure clearCNEN3; inline;
  15102. procedure clearCNEN4; inline;
  15103. procedure clearCNEN5; inline;
  15104. procedure clearCNEN6; inline;
  15105. procedure clearCNEN7; inline;
  15106. procedure clearCNEN8; inline;
  15107. procedure clearCNEN9; inline;
  15108. procedure setCNEN0; inline;
  15109. procedure setCNEN10; inline;
  15110. procedure setCNEN11; inline;
  15111. procedure setCNEN12; inline;
  15112. procedure setCNEN13; inline;
  15113. procedure setCNEN14; inline;
  15114. procedure setCNEN15; inline;
  15115. procedure setCNEN16; inline;
  15116. procedure setCNEN17; inline;
  15117. procedure setCNEN18; inline;
  15118. procedure setCNEN19; inline;
  15119. procedure setCNEN1; inline;
  15120. procedure setCNEN20; inline;
  15121. procedure setCNEN21; inline;
  15122. procedure setCNEN2; inline;
  15123. procedure setCNEN3; inline;
  15124. procedure setCNEN4; inline;
  15125. procedure setCNEN5; inline;
  15126. procedure setCNEN6; inline;
  15127. procedure setCNEN7; inline;
  15128. procedure setCNEN8; inline;
  15129. procedure setCNEN9; inline;
  15130. property CNEN0 : TBits_1 read getCNEN0 write setCNEN0;
  15131. property CNEN1 : TBits_1 read getCNEN1 write setCNEN1;
  15132. property CNEN10 : TBits_1 read getCNEN10 write setCNEN10;
  15133. property CNEN11 : TBits_1 read getCNEN11 write setCNEN11;
  15134. property CNEN12 : TBits_1 read getCNEN12 write setCNEN12;
  15135. property CNEN13 : TBits_1 read getCNEN13 write setCNEN13;
  15136. property CNEN14 : TBits_1 read getCNEN14 write setCNEN14;
  15137. property CNEN15 : TBits_1 read getCNEN15 write setCNEN15;
  15138. property CNEN16 : TBits_1 read getCNEN16 write setCNEN16;
  15139. property CNEN17 : TBits_1 read getCNEN17 write setCNEN17;
  15140. property CNEN18 : TBits_1 read getCNEN18 write setCNEN18;
  15141. property CNEN19 : TBits_1 read getCNEN19 write setCNEN19;
  15142. property CNEN2 : TBits_1 read getCNEN2 write setCNEN2;
  15143. property CNEN20 : TBits_1 read getCNEN20 write setCNEN20;
  15144. property CNEN21 : TBits_1 read getCNEN21 write setCNEN21;
  15145. property CNEN3 : TBits_1 read getCNEN3 write setCNEN3;
  15146. property CNEN4 : TBits_1 read getCNEN4 write setCNEN4;
  15147. property CNEN5 : TBits_1 read getCNEN5 write setCNEN5;
  15148. property CNEN6 : TBits_1 read getCNEN6 write setCNEN6;
  15149. property CNEN7 : TBits_1 read getCNEN7 write setCNEN7;
  15150. property CNEN8 : TBits_1 read getCNEN8 write setCNEN8;
  15151. property CNEN9 : TBits_1 read getCNEN9 write setCNEN9;
  15152. property w : TBits_32 read getw write setw;
  15153. end;
  15154. TPORTG_CNPUE = record
  15155. private
  15156. function getCNPUE0 : TBits_1; inline;
  15157. function getCNPUE1 : TBits_1; inline;
  15158. function getCNPUE10 : TBits_1; inline;
  15159. function getCNPUE11 : TBits_1; inline;
  15160. function getCNPUE12 : TBits_1; inline;
  15161. function getCNPUE13 : TBits_1; inline;
  15162. function getCNPUE14 : TBits_1; inline;
  15163. function getCNPUE15 : TBits_1; inline;
  15164. function getCNPUE16 : TBits_1; inline;
  15165. function getCNPUE17 : TBits_1; inline;
  15166. function getCNPUE18 : TBits_1; inline;
  15167. function getCNPUE19 : TBits_1; inline;
  15168. function getCNPUE2 : TBits_1; inline;
  15169. function getCNPUE20 : TBits_1; inline;
  15170. function getCNPUE21 : TBits_1; inline;
  15171. function getCNPUE3 : TBits_1; inline;
  15172. function getCNPUE4 : TBits_1; inline;
  15173. function getCNPUE5 : TBits_1; inline;
  15174. function getCNPUE6 : TBits_1; inline;
  15175. function getCNPUE7 : TBits_1; inline;
  15176. function getCNPUE8 : TBits_1; inline;
  15177. function getCNPUE9 : TBits_1; inline;
  15178. function getw : TBits_32; inline;
  15179. procedure setCNPUE0(thebits : TBits_1); inline;
  15180. procedure setCNPUE1(thebits : TBits_1); inline;
  15181. procedure setCNPUE10(thebits : TBits_1); inline;
  15182. procedure setCNPUE11(thebits : TBits_1); inline;
  15183. procedure setCNPUE12(thebits : TBits_1); inline;
  15184. procedure setCNPUE13(thebits : TBits_1); inline;
  15185. procedure setCNPUE14(thebits : TBits_1); inline;
  15186. procedure setCNPUE15(thebits : TBits_1); inline;
  15187. procedure setCNPUE16(thebits : TBits_1); inline;
  15188. procedure setCNPUE17(thebits : TBits_1); inline;
  15189. procedure setCNPUE18(thebits : TBits_1); inline;
  15190. procedure setCNPUE19(thebits : TBits_1); inline;
  15191. procedure setCNPUE2(thebits : TBits_1); inline;
  15192. procedure setCNPUE20(thebits : TBits_1); inline;
  15193. procedure setCNPUE21(thebits : TBits_1); inline;
  15194. procedure setCNPUE3(thebits : TBits_1); inline;
  15195. procedure setCNPUE4(thebits : TBits_1); inline;
  15196. procedure setCNPUE5(thebits : TBits_1); inline;
  15197. procedure setCNPUE6(thebits : TBits_1); inline;
  15198. procedure setCNPUE7(thebits : TBits_1); inline;
  15199. procedure setCNPUE8(thebits : TBits_1); inline;
  15200. procedure setCNPUE9(thebits : TBits_1); inline;
  15201. procedure setw(thebits : TBits_32); inline;
  15202. public
  15203. procedure clearCNPUE0; inline;
  15204. procedure clearCNPUE10; inline;
  15205. procedure clearCNPUE11; inline;
  15206. procedure clearCNPUE12; inline;
  15207. procedure clearCNPUE13; inline;
  15208. procedure clearCNPUE14; inline;
  15209. procedure clearCNPUE15; inline;
  15210. procedure clearCNPUE16; inline;
  15211. procedure clearCNPUE17; inline;
  15212. procedure clearCNPUE18; inline;
  15213. procedure clearCNPUE19; inline;
  15214. procedure clearCNPUE1; inline;
  15215. procedure clearCNPUE20; inline;
  15216. procedure clearCNPUE21; inline;
  15217. procedure clearCNPUE2; inline;
  15218. procedure clearCNPUE3; inline;
  15219. procedure clearCNPUE4; inline;
  15220. procedure clearCNPUE5; inline;
  15221. procedure clearCNPUE6; inline;
  15222. procedure clearCNPUE7; inline;
  15223. procedure clearCNPUE8; inline;
  15224. procedure clearCNPUE9; inline;
  15225. procedure setCNPUE0; inline;
  15226. procedure setCNPUE10; inline;
  15227. procedure setCNPUE11; inline;
  15228. procedure setCNPUE12; inline;
  15229. procedure setCNPUE13; inline;
  15230. procedure setCNPUE14; inline;
  15231. procedure setCNPUE15; inline;
  15232. procedure setCNPUE16; inline;
  15233. procedure setCNPUE17; inline;
  15234. procedure setCNPUE18; inline;
  15235. procedure setCNPUE19; inline;
  15236. procedure setCNPUE1; inline;
  15237. procedure setCNPUE20; inline;
  15238. procedure setCNPUE21; inline;
  15239. procedure setCNPUE2; inline;
  15240. procedure setCNPUE3; inline;
  15241. procedure setCNPUE4; inline;
  15242. procedure setCNPUE5; inline;
  15243. procedure setCNPUE6; inline;
  15244. procedure setCNPUE7; inline;
  15245. procedure setCNPUE8; inline;
  15246. procedure setCNPUE9; inline;
  15247. property CNPUE0 : TBits_1 read getCNPUE0 write setCNPUE0;
  15248. property CNPUE1 : TBits_1 read getCNPUE1 write setCNPUE1;
  15249. property CNPUE10 : TBits_1 read getCNPUE10 write setCNPUE10;
  15250. property CNPUE11 : TBits_1 read getCNPUE11 write setCNPUE11;
  15251. property CNPUE12 : TBits_1 read getCNPUE12 write setCNPUE12;
  15252. property CNPUE13 : TBits_1 read getCNPUE13 write setCNPUE13;
  15253. property CNPUE14 : TBits_1 read getCNPUE14 write setCNPUE14;
  15254. property CNPUE15 : TBits_1 read getCNPUE15 write setCNPUE15;
  15255. property CNPUE16 : TBits_1 read getCNPUE16 write setCNPUE16;
  15256. property CNPUE17 : TBits_1 read getCNPUE17 write setCNPUE17;
  15257. property CNPUE18 : TBits_1 read getCNPUE18 write setCNPUE18;
  15258. property CNPUE19 : TBits_1 read getCNPUE19 write setCNPUE19;
  15259. property CNPUE2 : TBits_1 read getCNPUE2 write setCNPUE2;
  15260. property CNPUE20 : TBits_1 read getCNPUE20 write setCNPUE20;
  15261. property CNPUE21 : TBits_1 read getCNPUE21 write setCNPUE21;
  15262. property CNPUE3 : TBits_1 read getCNPUE3 write setCNPUE3;
  15263. property CNPUE4 : TBits_1 read getCNPUE4 write setCNPUE4;
  15264. property CNPUE5 : TBits_1 read getCNPUE5 write setCNPUE5;
  15265. property CNPUE6 : TBits_1 read getCNPUE6 write setCNPUE6;
  15266. property CNPUE7 : TBits_1 read getCNPUE7 write setCNPUE7;
  15267. property CNPUE8 : TBits_1 read getCNPUE8 write setCNPUE8;
  15268. property CNPUE9 : TBits_1 read getCNPUE9 write setCNPUE9;
  15269. property w : TBits_32 read getw write setw;
  15270. end;
  15271. type
  15272. TPORTGRegisters = record
  15273. TRISGbits : TPORTG_TRISG;
  15274. TRISG : longWord;
  15275. TRISGCLR : longWord;
  15276. TRISGSET : longWord;
  15277. TRISGINV : longWord;
  15278. PORTGbits : TPORTG_PORTG;
  15279. PORTG : longWord;
  15280. PORTGCLR : longWord;
  15281. PORTGSET : longWord;
  15282. PORTGINV : longWord;
  15283. LATGbits : TPORTG_LATG;
  15284. LATG : longWord;
  15285. LATGCLR : longWord;
  15286. LATGSET : longWord;
  15287. LATGINV : longWord;
  15288. ODCGbits : TPORTG_ODCG;
  15289. ODCG : longWord;
  15290. ODCGCLR : longWord;
  15291. ODCGSET : longWord;
  15292. ODCGINV : longWord;
  15293. CNCONbits : TPORTG_CNCON;
  15294. CNCON : longWord;
  15295. CNCONCLR : longWord;
  15296. CNCONSET : longWord;
  15297. CNCONINV : longWord;
  15298. CNENbits : TPORTG_CNEN;
  15299. CNEN : longWord;
  15300. CNENCLR : longWord;
  15301. CNENSET : longWord;
  15302. CNENINV : longWord;
  15303. CNPUEbits : TPORTG_CNPUE;
  15304. CNPUE : longWord;
  15305. CNPUECLR : longWord;
  15306. CNPUESET : longWord;
  15307. CNPUEINV : longWord;
  15308. end;
  15309. TCAN1_C1CON = record
  15310. private
  15311. function getABAT : TBits_1; inline;
  15312. function getCANBUSY : TBits_1; inline;
  15313. function getCANCAP : TBits_1; inline;
  15314. function getDNCNT : TBits_5; inline;
  15315. function getON : TBits_1; inline;
  15316. function getOPMOD : TBits_3; inline;
  15317. function getREQOP : TBits_3; inline;
  15318. function getSIDL : TBits_1; inline;
  15319. function getw : TBits_32; inline;
  15320. procedure setABAT(thebits : TBits_1); inline;
  15321. procedure setCANBUSY(thebits : TBits_1); inline;
  15322. procedure setCANCAP(thebits : TBits_1); inline;
  15323. procedure setDNCNT(thebits : TBits_5); inline;
  15324. procedure setON(thebits : TBits_1); inline;
  15325. procedure setOPMOD(thebits : TBits_3); inline;
  15326. procedure setREQOP(thebits : TBits_3); inline;
  15327. procedure setSIDL(thebits : TBits_1); inline;
  15328. procedure setw(thebits : TBits_32); inline;
  15329. public
  15330. procedure clearABAT; inline;
  15331. procedure clearCANBUSY; inline;
  15332. procedure clearCANCAP; inline;
  15333. procedure clearON; inline;
  15334. procedure clearSIDL; inline;
  15335. procedure setABAT; inline;
  15336. procedure setCANBUSY; inline;
  15337. procedure setCANCAP; inline;
  15338. procedure setON; inline;
  15339. procedure setSIDL; inline;
  15340. property ABAT : TBits_1 read getABAT write setABAT;
  15341. property CANBUSY : TBits_1 read getCANBUSY write setCANBUSY;
  15342. property CANCAP : TBits_1 read getCANCAP write setCANCAP;
  15343. property DNCNT : TBits_5 read getDNCNT write setDNCNT;
  15344. property ON : TBits_1 read getON write setON;
  15345. property OPMOD : TBits_3 read getOPMOD write setOPMOD;
  15346. property REQOP : TBits_3 read getREQOP write setREQOP;
  15347. property SIDL : TBits_1 read getSIDL write setSIDL;
  15348. property w : TBits_32 read getw write setw;
  15349. end;
  15350. TCAN1_C1CFG = record
  15351. private
  15352. function getBRP : TBits_6; inline;
  15353. function getPRSEG : TBits_3; inline;
  15354. function getSAM : TBits_1; inline;
  15355. function getSEG1PH : TBits_3; inline;
  15356. function getSEG2PH : TBits_3; inline;
  15357. function getSEG2PHTS : TBits_1; inline;
  15358. function getSJW : TBits_2; inline;
  15359. function getWAKFIL : TBits_1; inline;
  15360. function getw : TBits_32; inline;
  15361. procedure setBRP(thebits : TBits_6); inline;
  15362. procedure setPRSEG(thebits : TBits_3); inline;
  15363. procedure setSAM(thebits : TBits_1); inline;
  15364. procedure setSEG1PH(thebits : TBits_3); inline;
  15365. procedure setSEG2PH(thebits : TBits_3); inline;
  15366. procedure setSEG2PHTS(thebits : TBits_1); inline;
  15367. procedure setSJW(thebits : TBits_2); inline;
  15368. procedure setWAKFIL(thebits : TBits_1); inline;
  15369. procedure setw(thebits : TBits_32); inline;
  15370. public
  15371. procedure clearSAM; inline;
  15372. procedure clearSEG2PHTS; inline;
  15373. procedure clearWAKFIL; inline;
  15374. procedure setSAM; inline;
  15375. procedure setSEG2PHTS; inline;
  15376. procedure setWAKFIL; inline;
  15377. property BRP : TBits_6 read getBRP write setBRP;
  15378. property PRSEG : TBits_3 read getPRSEG write setPRSEG;
  15379. property SAM : TBits_1 read getSAM write setSAM;
  15380. property SEG1PH : TBits_3 read getSEG1PH write setSEG1PH;
  15381. property SEG2PH : TBits_3 read getSEG2PH write setSEG2PH;
  15382. property SEG2PHTS : TBits_1 read getSEG2PHTS write setSEG2PHTS;
  15383. property SJW : TBits_2 read getSJW write setSJW;
  15384. property WAKFIL : TBits_1 read getWAKFIL write setWAKFIL;
  15385. property w : TBits_32 read getw write setw;
  15386. end;
  15387. TCAN1_C1INT = record
  15388. private
  15389. function getCERRIE : TBits_1; inline;
  15390. function getCERRIF : TBits_1; inline;
  15391. function getCTMRIE : TBits_1; inline;
  15392. function getCTMRIF : TBits_1; inline;
  15393. function getIVRIE : TBits_1; inline;
  15394. function getIVRIF : TBits_1; inline;
  15395. function getMODIE : TBits_1; inline;
  15396. function getMODIF : TBits_1; inline;
  15397. function getRBIE : TBits_1; inline;
  15398. function getRBIF : TBits_1; inline;
  15399. function getRBOVIE : TBits_1; inline;
  15400. function getRBOVIF : TBits_1; inline;
  15401. function getSERRIE : TBits_1; inline;
  15402. function getSERRIF : TBits_1; inline;
  15403. function getTBIE : TBits_1; inline;
  15404. function getTBIF : TBits_1; inline;
  15405. function getWAKIE : TBits_1; inline;
  15406. function getWAKIF : TBits_1; inline;
  15407. function getw : TBits_32; inline;
  15408. procedure setCERRIE(thebits : TBits_1); inline;
  15409. procedure setCERRIF(thebits : TBits_1); inline;
  15410. procedure setCTMRIE(thebits : TBits_1); inline;
  15411. procedure setCTMRIF(thebits : TBits_1); inline;
  15412. procedure setIVRIE(thebits : TBits_1); inline;
  15413. procedure setIVRIF(thebits : TBits_1); inline;
  15414. procedure setMODIE(thebits : TBits_1); inline;
  15415. procedure setMODIF(thebits : TBits_1); inline;
  15416. procedure setRBIE(thebits : TBits_1); inline;
  15417. procedure setRBIF(thebits : TBits_1); inline;
  15418. procedure setRBOVIE(thebits : TBits_1); inline;
  15419. procedure setRBOVIF(thebits : TBits_1); inline;
  15420. procedure setSERRIE(thebits : TBits_1); inline;
  15421. procedure setSERRIF(thebits : TBits_1); inline;
  15422. procedure setTBIE(thebits : TBits_1); inline;
  15423. procedure setTBIF(thebits : TBits_1); inline;
  15424. procedure setWAKIE(thebits : TBits_1); inline;
  15425. procedure setWAKIF(thebits : TBits_1); inline;
  15426. procedure setw(thebits : TBits_32); inline;
  15427. public
  15428. procedure clearCERRIE; inline;
  15429. procedure clearCERRIF; inline;
  15430. procedure clearCTMRIE; inline;
  15431. procedure clearCTMRIF; inline;
  15432. procedure clearIVRIE; inline;
  15433. procedure clearIVRIF; inline;
  15434. procedure clearMODIE; inline;
  15435. procedure clearMODIF; inline;
  15436. procedure clearRBIE; inline;
  15437. procedure clearRBIF; inline;
  15438. procedure clearRBOVIE; inline;
  15439. procedure clearRBOVIF; inline;
  15440. procedure clearSERRIE; inline;
  15441. procedure clearSERRIF; inline;
  15442. procedure clearTBIE; inline;
  15443. procedure clearTBIF; inline;
  15444. procedure clearWAKIE; inline;
  15445. procedure clearWAKIF; inline;
  15446. procedure setCERRIE; inline;
  15447. procedure setCERRIF; inline;
  15448. procedure setCTMRIE; inline;
  15449. procedure setCTMRIF; inline;
  15450. procedure setIVRIE; inline;
  15451. procedure setIVRIF; inline;
  15452. procedure setMODIE; inline;
  15453. procedure setMODIF; inline;
  15454. procedure setRBIE; inline;
  15455. procedure setRBIF; inline;
  15456. procedure setRBOVIE; inline;
  15457. procedure setRBOVIF; inline;
  15458. procedure setSERRIE; inline;
  15459. procedure setSERRIF; inline;
  15460. procedure setTBIE; inline;
  15461. procedure setTBIF; inline;
  15462. procedure setWAKIE; inline;
  15463. procedure setWAKIF; inline;
  15464. property CERRIE : TBits_1 read getCERRIE write setCERRIE;
  15465. property CERRIF : TBits_1 read getCERRIF write setCERRIF;
  15466. property CTMRIE : TBits_1 read getCTMRIE write setCTMRIE;
  15467. property CTMRIF : TBits_1 read getCTMRIF write setCTMRIF;
  15468. property IVRIE : TBits_1 read getIVRIE write setIVRIE;
  15469. property IVRIF : TBits_1 read getIVRIF write setIVRIF;
  15470. property MODIE : TBits_1 read getMODIE write setMODIE;
  15471. property MODIF : TBits_1 read getMODIF write setMODIF;
  15472. property RBIE : TBits_1 read getRBIE write setRBIE;
  15473. property RBIF : TBits_1 read getRBIF write setRBIF;
  15474. property RBOVIE : TBits_1 read getRBOVIE write setRBOVIE;
  15475. property RBOVIF : TBits_1 read getRBOVIF write setRBOVIF;
  15476. property SERRIE : TBits_1 read getSERRIE write setSERRIE;
  15477. property SERRIF : TBits_1 read getSERRIF write setSERRIF;
  15478. property TBIE : TBits_1 read getTBIE write setTBIE;
  15479. property TBIF : TBits_1 read getTBIF write setTBIF;
  15480. property WAKIE : TBits_1 read getWAKIE write setWAKIE;
  15481. property WAKIF : TBits_1 read getWAKIF write setWAKIF;
  15482. property w : TBits_32 read getw write setw;
  15483. end;
  15484. TCAN1_C1VEC = record
  15485. private
  15486. function getFILHIT : TBits_5; inline;
  15487. function getICODE : TBits_7; inline;
  15488. function getw : TBits_32; inline;
  15489. procedure setFILHIT(thebits : TBits_5); inline;
  15490. procedure setICODE(thebits : TBits_7); inline;
  15491. procedure setw(thebits : TBits_32); inline;
  15492. public
  15493. property FILHIT : TBits_5 read getFILHIT write setFILHIT;
  15494. property ICODE : TBits_7 read getICODE write setICODE;
  15495. property w : TBits_32 read getw write setw;
  15496. end;
  15497. TCAN1_C1TREC = record
  15498. private
  15499. function getEWARN : TBits_1; inline;
  15500. function getRERRCNT : TBits_8; inline;
  15501. function getRXBP : TBits_1; inline;
  15502. function getRXWARN : TBits_1; inline;
  15503. function getTERRCNT : TBits_8; inline;
  15504. function getTXBO : TBits_1; inline;
  15505. function getTXBP : TBits_1; inline;
  15506. function getTXWARN : TBits_1; inline;
  15507. function getw : TBits_32; inline;
  15508. procedure setEWARN(thebits : TBits_1); inline;
  15509. procedure setRERRCNT(thebits : TBits_8); inline;
  15510. procedure setRXBP(thebits : TBits_1); inline;
  15511. procedure setRXWARN(thebits : TBits_1); inline;
  15512. procedure setTERRCNT(thebits : TBits_8); inline;
  15513. procedure setTXBO(thebits : TBits_1); inline;
  15514. procedure setTXBP(thebits : TBits_1); inline;
  15515. procedure setTXWARN(thebits : TBits_1); inline;
  15516. procedure setw(thebits : TBits_32); inline;
  15517. public
  15518. procedure clearEWARN; inline;
  15519. procedure clearRXBP; inline;
  15520. procedure clearRXWARN; inline;
  15521. procedure clearTXBO; inline;
  15522. procedure clearTXBP; inline;
  15523. procedure clearTXWARN; inline;
  15524. procedure setEWARN; inline;
  15525. procedure setRXBP; inline;
  15526. procedure setRXWARN; inline;
  15527. procedure setTXBO; inline;
  15528. procedure setTXBP; inline;
  15529. procedure setTXWARN; inline;
  15530. property EWARN : TBits_1 read getEWARN write setEWARN;
  15531. property RERRCNT : TBits_8 read getRERRCNT write setRERRCNT;
  15532. property RXBP : TBits_1 read getRXBP write setRXBP;
  15533. property RXWARN : TBits_1 read getRXWARN write setRXWARN;
  15534. property TERRCNT : TBits_8 read getTERRCNT write setTERRCNT;
  15535. property TXBO : TBits_1 read getTXBO write setTXBO;
  15536. property TXBP : TBits_1 read getTXBP write setTXBP;
  15537. property TXWARN : TBits_1 read getTXWARN write setTXWARN;
  15538. property w : TBits_32 read getw write setw;
  15539. end;
  15540. TCAN1_C1FSTAT = record
  15541. private
  15542. function getFIFOIP : TBits_32; inline;
  15543. function getFIFOIP0 : TBits_1; inline;
  15544. function getFIFOIP1 : TBits_1; inline;
  15545. function getFIFOIP10 : TBits_1; inline;
  15546. function getFIFOIP11 : TBits_1; inline;
  15547. function getFIFOIP12 : TBits_1; inline;
  15548. function getFIFOIP13 : TBits_1; inline;
  15549. function getFIFOIP14 : TBits_1; inline;
  15550. function getFIFOIP15 : TBits_1; inline;
  15551. function getFIFOIP16 : TBits_1; inline;
  15552. function getFIFOIP17 : TBits_1; inline;
  15553. function getFIFOIP18 : TBits_1; inline;
  15554. function getFIFOIP19 : TBits_1; inline;
  15555. function getFIFOIP2 : TBits_1; inline;
  15556. function getFIFOIP20 : TBits_1; inline;
  15557. function getFIFOIP21 : TBits_1; inline;
  15558. function getFIFOIP22 : TBits_1; inline;
  15559. function getFIFOIP23 : TBits_1; inline;
  15560. function getFIFOIP24 : TBits_1; inline;
  15561. function getFIFOIP25 : TBits_1; inline;
  15562. function getFIFOIP26 : TBits_1; inline;
  15563. function getFIFOIP27 : TBits_1; inline;
  15564. function getFIFOIP28 : TBits_1; inline;
  15565. function getFIFOIP29 : TBits_1; inline;
  15566. function getFIFOIP3 : TBits_1; inline;
  15567. function getFIFOIP30 : TBits_1; inline;
  15568. function getFIFOIP31 : TBits_1; inline;
  15569. function getFIFOIP4 : TBits_1; inline;
  15570. function getFIFOIP5 : TBits_1; inline;
  15571. function getFIFOIP6 : TBits_1; inline;
  15572. function getFIFOIP7 : TBits_1; inline;
  15573. function getFIFOIP8 : TBits_1; inline;
  15574. function getFIFOIP9 : TBits_1; inline;
  15575. function getw : TBits_32; inline;
  15576. procedure setFIFOIP(thebits : TBits_32); inline;
  15577. procedure setFIFOIP0(thebits : TBits_1); inline;
  15578. procedure setFIFOIP1(thebits : TBits_1); inline;
  15579. procedure setFIFOIP10(thebits : TBits_1); inline;
  15580. procedure setFIFOIP11(thebits : TBits_1); inline;
  15581. procedure setFIFOIP12(thebits : TBits_1); inline;
  15582. procedure setFIFOIP13(thebits : TBits_1); inline;
  15583. procedure setFIFOIP14(thebits : TBits_1); inline;
  15584. procedure setFIFOIP15(thebits : TBits_1); inline;
  15585. procedure setFIFOIP16(thebits : TBits_1); inline;
  15586. procedure setFIFOIP17(thebits : TBits_1); inline;
  15587. procedure setFIFOIP18(thebits : TBits_1); inline;
  15588. procedure setFIFOIP19(thebits : TBits_1); inline;
  15589. procedure setFIFOIP2(thebits : TBits_1); inline;
  15590. procedure setFIFOIP20(thebits : TBits_1); inline;
  15591. procedure setFIFOIP21(thebits : TBits_1); inline;
  15592. procedure setFIFOIP22(thebits : TBits_1); inline;
  15593. procedure setFIFOIP23(thebits : TBits_1); inline;
  15594. procedure setFIFOIP24(thebits : TBits_1); inline;
  15595. procedure setFIFOIP25(thebits : TBits_1); inline;
  15596. procedure setFIFOIP26(thebits : TBits_1); inline;
  15597. procedure setFIFOIP27(thebits : TBits_1); inline;
  15598. procedure setFIFOIP28(thebits : TBits_1); inline;
  15599. procedure setFIFOIP29(thebits : TBits_1); inline;
  15600. procedure setFIFOIP3(thebits : TBits_1); inline;
  15601. procedure setFIFOIP30(thebits : TBits_1); inline;
  15602. procedure setFIFOIP31(thebits : TBits_1); inline;
  15603. procedure setFIFOIP4(thebits : TBits_1); inline;
  15604. procedure setFIFOIP5(thebits : TBits_1); inline;
  15605. procedure setFIFOIP6(thebits : TBits_1); inline;
  15606. procedure setFIFOIP7(thebits : TBits_1); inline;
  15607. procedure setFIFOIP8(thebits : TBits_1); inline;
  15608. procedure setFIFOIP9(thebits : TBits_1); inline;
  15609. procedure setw(thebits : TBits_32); inline;
  15610. public
  15611. procedure clearFIFOIP0; inline;
  15612. procedure clearFIFOIP10; inline;
  15613. procedure clearFIFOIP11; inline;
  15614. procedure clearFIFOIP12; inline;
  15615. procedure clearFIFOIP13; inline;
  15616. procedure clearFIFOIP14; inline;
  15617. procedure clearFIFOIP15; inline;
  15618. procedure clearFIFOIP16; inline;
  15619. procedure clearFIFOIP17; inline;
  15620. procedure clearFIFOIP18; inline;
  15621. procedure clearFIFOIP19; inline;
  15622. procedure clearFIFOIP1; inline;
  15623. procedure clearFIFOIP20; inline;
  15624. procedure clearFIFOIP21; inline;
  15625. procedure clearFIFOIP22; inline;
  15626. procedure clearFIFOIP23; inline;
  15627. procedure clearFIFOIP24; inline;
  15628. procedure clearFIFOIP25; inline;
  15629. procedure clearFIFOIP26; inline;
  15630. procedure clearFIFOIP27; inline;
  15631. procedure clearFIFOIP28; inline;
  15632. procedure clearFIFOIP29; inline;
  15633. procedure clearFIFOIP2; inline;
  15634. procedure clearFIFOIP30; inline;
  15635. procedure clearFIFOIP31; inline;
  15636. procedure clearFIFOIP3; inline;
  15637. procedure clearFIFOIP4; inline;
  15638. procedure clearFIFOIP5; inline;
  15639. procedure clearFIFOIP6; inline;
  15640. procedure clearFIFOIP7; inline;
  15641. procedure clearFIFOIP8; inline;
  15642. procedure clearFIFOIP9; inline;
  15643. procedure setFIFOIP0; inline;
  15644. procedure setFIFOIP10; inline;
  15645. procedure setFIFOIP11; inline;
  15646. procedure setFIFOIP12; inline;
  15647. procedure setFIFOIP13; inline;
  15648. procedure setFIFOIP14; inline;
  15649. procedure setFIFOIP15; inline;
  15650. procedure setFIFOIP16; inline;
  15651. procedure setFIFOIP17; inline;
  15652. procedure setFIFOIP18; inline;
  15653. procedure setFIFOIP19; inline;
  15654. procedure setFIFOIP1; inline;
  15655. procedure setFIFOIP20; inline;
  15656. procedure setFIFOIP21; inline;
  15657. procedure setFIFOIP22; inline;
  15658. procedure setFIFOIP23; inline;
  15659. procedure setFIFOIP24; inline;
  15660. procedure setFIFOIP25; inline;
  15661. procedure setFIFOIP26; inline;
  15662. procedure setFIFOIP27; inline;
  15663. procedure setFIFOIP28; inline;
  15664. procedure setFIFOIP29; inline;
  15665. procedure setFIFOIP2; inline;
  15666. procedure setFIFOIP30; inline;
  15667. procedure setFIFOIP31; inline;
  15668. procedure setFIFOIP3; inline;
  15669. procedure setFIFOIP4; inline;
  15670. procedure setFIFOIP5; inline;
  15671. procedure setFIFOIP6; inline;
  15672. procedure setFIFOIP7; inline;
  15673. procedure setFIFOIP8; inline;
  15674. procedure setFIFOIP9; inline;
  15675. property FIFOIP : TBits_32 read getFIFOIP write setFIFOIP;
  15676. property FIFOIP0 : TBits_1 read getFIFOIP0 write setFIFOIP0;
  15677. property FIFOIP1 : TBits_1 read getFIFOIP1 write setFIFOIP1;
  15678. property FIFOIP10 : TBits_1 read getFIFOIP10 write setFIFOIP10;
  15679. property FIFOIP11 : TBits_1 read getFIFOIP11 write setFIFOIP11;
  15680. property FIFOIP12 : TBits_1 read getFIFOIP12 write setFIFOIP12;
  15681. property FIFOIP13 : TBits_1 read getFIFOIP13 write setFIFOIP13;
  15682. property FIFOIP14 : TBits_1 read getFIFOIP14 write setFIFOIP14;
  15683. property FIFOIP15 : TBits_1 read getFIFOIP15 write setFIFOIP15;
  15684. property FIFOIP16 : TBits_1 read getFIFOIP16 write setFIFOIP16;
  15685. property FIFOIP17 : TBits_1 read getFIFOIP17 write setFIFOIP17;
  15686. property FIFOIP18 : TBits_1 read getFIFOIP18 write setFIFOIP18;
  15687. property FIFOIP19 : TBits_1 read getFIFOIP19 write setFIFOIP19;
  15688. property FIFOIP2 : TBits_1 read getFIFOIP2 write setFIFOIP2;
  15689. property FIFOIP20 : TBits_1 read getFIFOIP20 write setFIFOIP20;
  15690. property FIFOIP21 : TBits_1 read getFIFOIP21 write setFIFOIP21;
  15691. property FIFOIP22 : TBits_1 read getFIFOIP22 write setFIFOIP22;
  15692. property FIFOIP23 : TBits_1 read getFIFOIP23 write setFIFOIP23;
  15693. property FIFOIP24 : TBits_1 read getFIFOIP24 write setFIFOIP24;
  15694. property FIFOIP25 : TBits_1 read getFIFOIP25 write setFIFOIP25;
  15695. property FIFOIP26 : TBits_1 read getFIFOIP26 write setFIFOIP26;
  15696. property FIFOIP27 : TBits_1 read getFIFOIP27 write setFIFOIP27;
  15697. property FIFOIP28 : TBits_1 read getFIFOIP28 write setFIFOIP28;
  15698. property FIFOIP29 : TBits_1 read getFIFOIP29 write setFIFOIP29;
  15699. property FIFOIP3 : TBits_1 read getFIFOIP3 write setFIFOIP3;
  15700. property FIFOIP30 : TBits_1 read getFIFOIP30 write setFIFOIP30;
  15701. property FIFOIP31 : TBits_1 read getFIFOIP31 write setFIFOIP31;
  15702. property FIFOIP4 : TBits_1 read getFIFOIP4 write setFIFOIP4;
  15703. property FIFOIP5 : TBits_1 read getFIFOIP5 write setFIFOIP5;
  15704. property FIFOIP6 : TBits_1 read getFIFOIP6 write setFIFOIP6;
  15705. property FIFOIP7 : TBits_1 read getFIFOIP7 write setFIFOIP7;
  15706. property FIFOIP8 : TBits_1 read getFIFOIP8 write setFIFOIP8;
  15707. property FIFOIP9 : TBits_1 read getFIFOIP9 write setFIFOIP9;
  15708. property w : TBits_32 read getw write setw;
  15709. end;
  15710. TCAN1_C1RXOVF = record
  15711. private
  15712. function getRXOVF : TBits_32; inline;
  15713. function getRXOVF0 : TBits_1; inline;
  15714. function getRXOVF1 : TBits_1; inline;
  15715. function getRXOVF10 : TBits_1; inline;
  15716. function getRXOVF11 : TBits_1; inline;
  15717. function getRXOVF12 : TBits_1; inline;
  15718. function getRXOVF13 : TBits_1; inline;
  15719. function getRXOVF14 : TBits_1; inline;
  15720. function getRXOVF15 : TBits_1; inline;
  15721. function getRXOVF16 : TBits_1; inline;
  15722. function getRXOVF17 : TBits_1; inline;
  15723. function getRXOVF18 : TBits_1; inline;
  15724. function getRXOVF19 : TBits_1; inline;
  15725. function getRXOVF2 : TBits_1; inline;
  15726. function getRXOVF20 : TBits_1; inline;
  15727. function getRXOVF21 : TBits_1; inline;
  15728. function getRXOVF22 : TBits_1; inline;
  15729. function getRXOVF23 : TBits_1; inline;
  15730. function getRXOVF24 : TBits_1; inline;
  15731. function getRXOVF25 : TBits_1; inline;
  15732. function getRXOVF26 : TBits_1; inline;
  15733. function getRXOVF27 : TBits_1; inline;
  15734. function getRXOVF28 : TBits_1; inline;
  15735. function getRXOVF29 : TBits_1; inline;
  15736. function getRXOVF3 : TBits_1; inline;
  15737. function getRXOVF30 : TBits_1; inline;
  15738. function getRXOVF31 : TBits_1; inline;
  15739. function getRXOVF4 : TBits_1; inline;
  15740. function getRXOVF5 : TBits_1; inline;
  15741. function getRXOVF6 : TBits_1; inline;
  15742. function getRXOVF7 : TBits_1; inline;
  15743. function getRXOVF8 : TBits_1; inline;
  15744. function getRXOVF9 : TBits_1; inline;
  15745. function getw : TBits_32; inline;
  15746. procedure setRXOVF(thebits : TBits_32); inline;
  15747. procedure setRXOVF0(thebits : TBits_1); inline;
  15748. procedure setRXOVF1(thebits : TBits_1); inline;
  15749. procedure setRXOVF10(thebits : TBits_1); inline;
  15750. procedure setRXOVF11(thebits : TBits_1); inline;
  15751. procedure setRXOVF12(thebits : TBits_1); inline;
  15752. procedure setRXOVF13(thebits : TBits_1); inline;
  15753. procedure setRXOVF14(thebits : TBits_1); inline;
  15754. procedure setRXOVF15(thebits : TBits_1); inline;
  15755. procedure setRXOVF16(thebits : TBits_1); inline;
  15756. procedure setRXOVF17(thebits : TBits_1); inline;
  15757. procedure setRXOVF18(thebits : TBits_1); inline;
  15758. procedure setRXOVF19(thebits : TBits_1); inline;
  15759. procedure setRXOVF2(thebits : TBits_1); inline;
  15760. procedure setRXOVF20(thebits : TBits_1); inline;
  15761. procedure setRXOVF21(thebits : TBits_1); inline;
  15762. procedure setRXOVF22(thebits : TBits_1); inline;
  15763. procedure setRXOVF23(thebits : TBits_1); inline;
  15764. procedure setRXOVF24(thebits : TBits_1); inline;
  15765. procedure setRXOVF25(thebits : TBits_1); inline;
  15766. procedure setRXOVF26(thebits : TBits_1); inline;
  15767. procedure setRXOVF27(thebits : TBits_1); inline;
  15768. procedure setRXOVF28(thebits : TBits_1); inline;
  15769. procedure setRXOVF29(thebits : TBits_1); inline;
  15770. procedure setRXOVF3(thebits : TBits_1); inline;
  15771. procedure setRXOVF30(thebits : TBits_1); inline;
  15772. procedure setRXOVF31(thebits : TBits_1); inline;
  15773. procedure setRXOVF4(thebits : TBits_1); inline;
  15774. procedure setRXOVF5(thebits : TBits_1); inline;
  15775. procedure setRXOVF6(thebits : TBits_1); inline;
  15776. procedure setRXOVF7(thebits : TBits_1); inline;
  15777. procedure setRXOVF8(thebits : TBits_1); inline;
  15778. procedure setRXOVF9(thebits : TBits_1); inline;
  15779. procedure setw(thebits : TBits_32); inline;
  15780. public
  15781. procedure clearRXOVF0; inline;
  15782. procedure clearRXOVF10; inline;
  15783. procedure clearRXOVF11; inline;
  15784. procedure clearRXOVF12; inline;
  15785. procedure clearRXOVF13; inline;
  15786. procedure clearRXOVF14; inline;
  15787. procedure clearRXOVF15; inline;
  15788. procedure clearRXOVF16; inline;
  15789. procedure clearRXOVF17; inline;
  15790. procedure clearRXOVF18; inline;
  15791. procedure clearRXOVF19; inline;
  15792. procedure clearRXOVF1; inline;
  15793. procedure clearRXOVF20; inline;
  15794. procedure clearRXOVF21; inline;
  15795. procedure clearRXOVF22; inline;
  15796. procedure clearRXOVF23; inline;
  15797. procedure clearRXOVF24; inline;
  15798. procedure clearRXOVF25; inline;
  15799. procedure clearRXOVF26; inline;
  15800. procedure clearRXOVF27; inline;
  15801. procedure clearRXOVF28; inline;
  15802. procedure clearRXOVF29; inline;
  15803. procedure clearRXOVF2; inline;
  15804. procedure clearRXOVF30; inline;
  15805. procedure clearRXOVF31; inline;
  15806. procedure clearRXOVF3; inline;
  15807. procedure clearRXOVF4; inline;
  15808. procedure clearRXOVF5; inline;
  15809. procedure clearRXOVF6; inline;
  15810. procedure clearRXOVF7; inline;
  15811. procedure clearRXOVF8; inline;
  15812. procedure clearRXOVF9; inline;
  15813. procedure setRXOVF0; inline;
  15814. procedure setRXOVF10; inline;
  15815. procedure setRXOVF11; inline;
  15816. procedure setRXOVF12; inline;
  15817. procedure setRXOVF13; inline;
  15818. procedure setRXOVF14; inline;
  15819. procedure setRXOVF15; inline;
  15820. procedure setRXOVF16; inline;
  15821. procedure setRXOVF17; inline;
  15822. procedure setRXOVF18; inline;
  15823. procedure setRXOVF19; inline;
  15824. procedure setRXOVF1; inline;
  15825. procedure setRXOVF20; inline;
  15826. procedure setRXOVF21; inline;
  15827. procedure setRXOVF22; inline;
  15828. procedure setRXOVF23; inline;
  15829. procedure setRXOVF24; inline;
  15830. procedure setRXOVF25; inline;
  15831. procedure setRXOVF26; inline;
  15832. procedure setRXOVF27; inline;
  15833. procedure setRXOVF28; inline;
  15834. procedure setRXOVF29; inline;
  15835. procedure setRXOVF2; inline;
  15836. procedure setRXOVF30; inline;
  15837. procedure setRXOVF31; inline;
  15838. procedure setRXOVF3; inline;
  15839. procedure setRXOVF4; inline;
  15840. procedure setRXOVF5; inline;
  15841. procedure setRXOVF6; inline;
  15842. procedure setRXOVF7; inline;
  15843. procedure setRXOVF8; inline;
  15844. procedure setRXOVF9; inline;
  15845. property RXOVF : TBits_32 read getRXOVF write setRXOVF;
  15846. property RXOVF0 : TBits_1 read getRXOVF0 write setRXOVF0;
  15847. property RXOVF1 : TBits_1 read getRXOVF1 write setRXOVF1;
  15848. property RXOVF10 : TBits_1 read getRXOVF10 write setRXOVF10;
  15849. property RXOVF11 : TBits_1 read getRXOVF11 write setRXOVF11;
  15850. property RXOVF12 : TBits_1 read getRXOVF12 write setRXOVF12;
  15851. property RXOVF13 : TBits_1 read getRXOVF13 write setRXOVF13;
  15852. property RXOVF14 : TBits_1 read getRXOVF14 write setRXOVF14;
  15853. property RXOVF15 : TBits_1 read getRXOVF15 write setRXOVF15;
  15854. property RXOVF16 : TBits_1 read getRXOVF16 write setRXOVF16;
  15855. property RXOVF17 : TBits_1 read getRXOVF17 write setRXOVF17;
  15856. property RXOVF18 : TBits_1 read getRXOVF18 write setRXOVF18;
  15857. property RXOVF19 : TBits_1 read getRXOVF19 write setRXOVF19;
  15858. property RXOVF2 : TBits_1 read getRXOVF2 write setRXOVF2;
  15859. property RXOVF20 : TBits_1 read getRXOVF20 write setRXOVF20;
  15860. property RXOVF21 : TBits_1 read getRXOVF21 write setRXOVF21;
  15861. property RXOVF22 : TBits_1 read getRXOVF22 write setRXOVF22;
  15862. property RXOVF23 : TBits_1 read getRXOVF23 write setRXOVF23;
  15863. property RXOVF24 : TBits_1 read getRXOVF24 write setRXOVF24;
  15864. property RXOVF25 : TBits_1 read getRXOVF25 write setRXOVF25;
  15865. property RXOVF26 : TBits_1 read getRXOVF26 write setRXOVF26;
  15866. property RXOVF27 : TBits_1 read getRXOVF27 write setRXOVF27;
  15867. property RXOVF28 : TBits_1 read getRXOVF28 write setRXOVF28;
  15868. property RXOVF29 : TBits_1 read getRXOVF29 write setRXOVF29;
  15869. property RXOVF3 : TBits_1 read getRXOVF3 write setRXOVF3;
  15870. property RXOVF30 : TBits_1 read getRXOVF30 write setRXOVF30;
  15871. property RXOVF31 : TBits_1 read getRXOVF31 write setRXOVF31;
  15872. property RXOVF4 : TBits_1 read getRXOVF4 write setRXOVF4;
  15873. property RXOVF5 : TBits_1 read getRXOVF5 write setRXOVF5;
  15874. property RXOVF6 : TBits_1 read getRXOVF6 write setRXOVF6;
  15875. property RXOVF7 : TBits_1 read getRXOVF7 write setRXOVF7;
  15876. property RXOVF8 : TBits_1 read getRXOVF8 write setRXOVF8;
  15877. property RXOVF9 : TBits_1 read getRXOVF9 write setRXOVF9;
  15878. property w : TBits_32 read getw write setw;
  15879. end;
  15880. TCAN1_C1TMR = record
  15881. private
  15882. function getCANTS : TBits_16; inline;
  15883. function getCANTSPRE : TBits_16; inline;
  15884. function getw : TBits_32; inline;
  15885. procedure setCANTS(thebits : TBits_16); inline;
  15886. procedure setCANTSPRE(thebits : TBits_16); inline;
  15887. procedure setw(thebits : TBits_32); inline;
  15888. public
  15889. property CANTS : TBits_16 read getCANTS write setCANTS;
  15890. property CANTSPRE : TBits_16 read getCANTSPRE write setCANTSPRE;
  15891. property w : TBits_32 read getw write setw;
  15892. end;
  15893. TCAN1_C1RXM0 = record
  15894. private
  15895. function getEID : TBits_18; inline;
  15896. function getMIDE : TBits_1; inline;
  15897. function getSID : TBits_11; inline;
  15898. function getw : TBits_32; inline;
  15899. procedure setEID(thebits : TBits_18); inline;
  15900. procedure setMIDE(thebits : TBits_1); inline;
  15901. procedure setSID(thebits : TBits_11); inline;
  15902. procedure setw(thebits : TBits_32); inline;
  15903. public
  15904. procedure clearMIDE; inline;
  15905. procedure setMIDE; inline;
  15906. property EID : TBits_18 read getEID write setEID;
  15907. property MIDE : TBits_1 read getMIDE write setMIDE;
  15908. property SID : TBits_11 read getSID write setSID;
  15909. property w : TBits_32 read getw write setw;
  15910. end;
  15911. TCAN1_C1RXM1 = record
  15912. private
  15913. function getEID : TBits_18; inline;
  15914. function getMIDE : TBits_1; inline;
  15915. function getSID : TBits_11; inline;
  15916. function getw : TBits_32; inline;
  15917. procedure setEID(thebits : TBits_18); inline;
  15918. procedure setMIDE(thebits : TBits_1); inline;
  15919. procedure setSID(thebits : TBits_11); inline;
  15920. procedure setw(thebits : TBits_32); inline;
  15921. public
  15922. procedure clearMIDE; inline;
  15923. procedure setMIDE; inline;
  15924. property EID : TBits_18 read getEID write setEID;
  15925. property MIDE : TBits_1 read getMIDE write setMIDE;
  15926. property SID : TBits_11 read getSID write setSID;
  15927. property w : TBits_32 read getw write setw;
  15928. end;
  15929. TCAN1_C1RXM2 = record
  15930. private
  15931. function getEID : TBits_18; inline;
  15932. function getMIDE : TBits_1; inline;
  15933. function getSID : TBits_11; inline;
  15934. function getw : TBits_32; inline;
  15935. procedure setEID(thebits : TBits_18); inline;
  15936. procedure setMIDE(thebits : TBits_1); inline;
  15937. procedure setSID(thebits : TBits_11); inline;
  15938. procedure setw(thebits : TBits_32); inline;
  15939. public
  15940. procedure clearMIDE; inline;
  15941. procedure setMIDE; inline;
  15942. property EID : TBits_18 read getEID write setEID;
  15943. property MIDE : TBits_1 read getMIDE write setMIDE;
  15944. property SID : TBits_11 read getSID write setSID;
  15945. property w : TBits_32 read getw write setw;
  15946. end;
  15947. TCAN1_C1RXM3 = record
  15948. private
  15949. function getEID : TBits_18; inline;
  15950. function getMIDE : TBits_1; inline;
  15951. function getSID : TBits_11; inline;
  15952. function getw : TBits_32; inline;
  15953. procedure setEID(thebits : TBits_18); inline;
  15954. procedure setMIDE(thebits : TBits_1); inline;
  15955. procedure setSID(thebits : TBits_11); inline;
  15956. procedure setw(thebits : TBits_32); inline;
  15957. public
  15958. procedure clearMIDE; inline;
  15959. procedure setMIDE; inline;
  15960. property EID : TBits_18 read getEID write setEID;
  15961. property MIDE : TBits_1 read getMIDE write setMIDE;
  15962. property SID : TBits_11 read getSID write setSID;
  15963. property w : TBits_32 read getw write setw;
  15964. end;
  15965. TCAN1_C1FLTCON0 = record
  15966. private
  15967. function getFLTEN0 : TBits_1; inline;
  15968. function getFLTEN1 : TBits_1; inline;
  15969. function getFLTEN2 : TBits_1; inline;
  15970. function getFLTEN3 : TBits_1; inline;
  15971. function getFSEL0 : TBits_5; inline;
  15972. function getFSEL1 : TBits_5; inline;
  15973. function getFSEL2 : TBits_5; inline;
  15974. function getFSEL3 : TBits_5; inline;
  15975. function getMSEL0 : TBits_2; inline;
  15976. function getMSEL1 : TBits_2; inline;
  15977. function getMSEL2 : TBits_2; inline;
  15978. function getMSEL3 : TBits_2; inline;
  15979. function getw : TBits_32; inline;
  15980. procedure setFLTEN0(thebits : TBits_1); inline;
  15981. procedure setFLTEN1(thebits : TBits_1); inline;
  15982. procedure setFLTEN2(thebits : TBits_1); inline;
  15983. procedure setFLTEN3(thebits : TBits_1); inline;
  15984. procedure setFSEL0(thebits : TBits_5); inline;
  15985. procedure setFSEL1(thebits : TBits_5); inline;
  15986. procedure setFSEL2(thebits : TBits_5); inline;
  15987. procedure setFSEL3(thebits : TBits_5); inline;
  15988. procedure setMSEL0(thebits : TBits_2); inline;
  15989. procedure setMSEL1(thebits : TBits_2); inline;
  15990. procedure setMSEL2(thebits : TBits_2); inline;
  15991. procedure setMSEL3(thebits : TBits_2); inline;
  15992. procedure setw(thebits : TBits_32); inline;
  15993. public
  15994. procedure clearFLTEN0; inline;
  15995. procedure clearFLTEN1; inline;
  15996. procedure clearFLTEN2; inline;
  15997. procedure clearFLTEN3; inline;
  15998. procedure setFLTEN0; inline;
  15999. procedure setFLTEN1; inline;
  16000. procedure setFLTEN2; inline;
  16001. procedure setFLTEN3; inline;
  16002. property FLTEN0 : TBits_1 read getFLTEN0 write setFLTEN0;
  16003. property FLTEN1 : TBits_1 read getFLTEN1 write setFLTEN1;
  16004. property FLTEN2 : TBits_1 read getFLTEN2 write setFLTEN2;
  16005. property FLTEN3 : TBits_1 read getFLTEN3 write setFLTEN3;
  16006. property FSEL0 : TBits_5 read getFSEL0 write setFSEL0;
  16007. property FSEL1 : TBits_5 read getFSEL1 write setFSEL1;
  16008. property FSEL2 : TBits_5 read getFSEL2 write setFSEL2;
  16009. property FSEL3 : TBits_5 read getFSEL3 write setFSEL3;
  16010. property MSEL0 : TBits_2 read getMSEL0 write setMSEL0;
  16011. property MSEL1 : TBits_2 read getMSEL1 write setMSEL1;
  16012. property MSEL2 : TBits_2 read getMSEL2 write setMSEL2;
  16013. property MSEL3 : TBits_2 read getMSEL3 write setMSEL3;
  16014. property w : TBits_32 read getw write setw;
  16015. end;
  16016. TCAN1_C1FLTCON1 = record
  16017. private
  16018. function getFLTEN4 : TBits_1; inline;
  16019. function getFLTEN5 : TBits_1; inline;
  16020. function getFLTEN6 : TBits_1; inline;
  16021. function getFLTEN7 : TBits_1; inline;
  16022. function getFSEL4 : TBits_5; inline;
  16023. function getFSEL5 : TBits_5; inline;
  16024. function getFSEL6 : TBits_5; inline;
  16025. function getFSEL7 : TBits_5; inline;
  16026. function getMSEL4 : TBits_2; inline;
  16027. function getMSEL5 : TBits_2; inline;
  16028. function getMSEL6 : TBits_2; inline;
  16029. function getMSEL7 : TBits_2; inline;
  16030. function getw : TBits_32; inline;
  16031. procedure setFLTEN4(thebits : TBits_1); inline;
  16032. procedure setFLTEN5(thebits : TBits_1); inline;
  16033. procedure setFLTEN6(thebits : TBits_1); inline;
  16034. procedure setFLTEN7(thebits : TBits_1); inline;
  16035. procedure setFSEL4(thebits : TBits_5); inline;
  16036. procedure setFSEL5(thebits : TBits_5); inline;
  16037. procedure setFSEL6(thebits : TBits_5); inline;
  16038. procedure setFSEL7(thebits : TBits_5); inline;
  16039. procedure setMSEL4(thebits : TBits_2); inline;
  16040. procedure setMSEL5(thebits : TBits_2); inline;
  16041. procedure setMSEL6(thebits : TBits_2); inline;
  16042. procedure setMSEL7(thebits : TBits_2); inline;
  16043. procedure setw(thebits : TBits_32); inline;
  16044. public
  16045. procedure clearFLTEN4; inline;
  16046. procedure clearFLTEN5; inline;
  16047. procedure clearFLTEN6; inline;
  16048. procedure clearFLTEN7; inline;
  16049. procedure setFLTEN4; inline;
  16050. procedure setFLTEN5; inline;
  16051. procedure setFLTEN6; inline;
  16052. procedure setFLTEN7; inline;
  16053. property FLTEN4 : TBits_1 read getFLTEN4 write setFLTEN4;
  16054. property FLTEN5 : TBits_1 read getFLTEN5 write setFLTEN5;
  16055. property FLTEN6 : TBits_1 read getFLTEN6 write setFLTEN6;
  16056. property FLTEN7 : TBits_1 read getFLTEN7 write setFLTEN7;
  16057. property FSEL4 : TBits_5 read getFSEL4 write setFSEL4;
  16058. property FSEL5 : TBits_5 read getFSEL5 write setFSEL5;
  16059. property FSEL6 : TBits_5 read getFSEL6 write setFSEL6;
  16060. property FSEL7 : TBits_5 read getFSEL7 write setFSEL7;
  16061. property MSEL4 : TBits_2 read getMSEL4 write setMSEL4;
  16062. property MSEL5 : TBits_2 read getMSEL5 write setMSEL5;
  16063. property MSEL6 : TBits_2 read getMSEL6 write setMSEL6;
  16064. property MSEL7 : TBits_2 read getMSEL7 write setMSEL7;
  16065. property w : TBits_32 read getw write setw;
  16066. end;
  16067. TCAN1_C1FLTCON2 = record
  16068. private
  16069. function getFLTEN10 : TBits_1; inline;
  16070. function getFLTEN11 : TBits_1; inline;
  16071. function getFLTEN8 : TBits_1; inline;
  16072. function getFLTEN9 : TBits_1; inline;
  16073. function getFSEL10 : TBits_5; inline;
  16074. function getFSEL11 : TBits_5; inline;
  16075. function getFSEL8 : TBits_5; inline;
  16076. function getFSEL9 : TBits_5; inline;
  16077. function getMSEL10 : TBits_2; inline;
  16078. function getMSEL11 : TBits_2; inline;
  16079. function getMSEL8 : TBits_2; inline;
  16080. function getMSEL9 : TBits_2; inline;
  16081. function getw : TBits_32; inline;
  16082. procedure setFLTEN10(thebits : TBits_1); inline;
  16083. procedure setFLTEN11(thebits : TBits_1); inline;
  16084. procedure setFLTEN8(thebits : TBits_1); inline;
  16085. procedure setFLTEN9(thebits : TBits_1); inline;
  16086. procedure setFSEL10(thebits : TBits_5); inline;
  16087. procedure setFSEL11(thebits : TBits_5); inline;
  16088. procedure setFSEL8(thebits : TBits_5); inline;
  16089. procedure setFSEL9(thebits : TBits_5); inline;
  16090. procedure setMSEL10(thebits : TBits_2); inline;
  16091. procedure setMSEL11(thebits : TBits_2); inline;
  16092. procedure setMSEL8(thebits : TBits_2); inline;
  16093. procedure setMSEL9(thebits : TBits_2); inline;
  16094. procedure setw(thebits : TBits_32); inline;
  16095. public
  16096. procedure clearFLTEN10; inline;
  16097. procedure clearFLTEN11; inline;
  16098. procedure clearFLTEN8; inline;
  16099. procedure clearFLTEN9; inline;
  16100. procedure setFLTEN10; inline;
  16101. procedure setFLTEN11; inline;
  16102. procedure setFLTEN8; inline;
  16103. procedure setFLTEN9; inline;
  16104. property FLTEN10 : TBits_1 read getFLTEN10 write setFLTEN10;
  16105. property FLTEN11 : TBits_1 read getFLTEN11 write setFLTEN11;
  16106. property FLTEN8 : TBits_1 read getFLTEN8 write setFLTEN8;
  16107. property FLTEN9 : TBits_1 read getFLTEN9 write setFLTEN9;
  16108. property FSEL10 : TBits_5 read getFSEL10 write setFSEL10;
  16109. property FSEL11 : TBits_5 read getFSEL11 write setFSEL11;
  16110. property FSEL8 : TBits_5 read getFSEL8 write setFSEL8;
  16111. property FSEL9 : TBits_5 read getFSEL9 write setFSEL9;
  16112. property MSEL10 : TBits_2 read getMSEL10 write setMSEL10;
  16113. property MSEL11 : TBits_2 read getMSEL11 write setMSEL11;
  16114. property MSEL8 : TBits_2 read getMSEL8 write setMSEL8;
  16115. property MSEL9 : TBits_2 read getMSEL9 write setMSEL9;
  16116. property w : TBits_32 read getw write setw;
  16117. end;
  16118. TCAN1_C1FLTCON3 = record
  16119. private
  16120. function getFLTEN12 : TBits_1; inline;
  16121. function getFLTEN13 : TBits_1; inline;
  16122. function getFLTEN14 : TBits_1; inline;
  16123. function getFLTEN15 : TBits_1; inline;
  16124. function getFSEL12 : TBits_5; inline;
  16125. function getFSEL13 : TBits_5; inline;
  16126. function getFSEL14 : TBits_5; inline;
  16127. function getFSEL15 : TBits_5; inline;
  16128. function getMSEL12 : TBits_2; inline;
  16129. function getMSEL13 : TBits_2; inline;
  16130. function getMSEL14 : TBits_2; inline;
  16131. function getMSEL15 : TBits_2; inline;
  16132. function getw : TBits_32; inline;
  16133. procedure setFLTEN12(thebits : TBits_1); inline;
  16134. procedure setFLTEN13(thebits : TBits_1); inline;
  16135. procedure setFLTEN14(thebits : TBits_1); inline;
  16136. procedure setFLTEN15(thebits : TBits_1); inline;
  16137. procedure setFSEL12(thebits : TBits_5); inline;
  16138. procedure setFSEL13(thebits : TBits_5); inline;
  16139. procedure setFSEL14(thebits : TBits_5); inline;
  16140. procedure setFSEL15(thebits : TBits_5); inline;
  16141. procedure setMSEL12(thebits : TBits_2); inline;
  16142. procedure setMSEL13(thebits : TBits_2); inline;
  16143. procedure setMSEL14(thebits : TBits_2); inline;
  16144. procedure setMSEL15(thebits : TBits_2); inline;
  16145. procedure setw(thebits : TBits_32); inline;
  16146. public
  16147. procedure clearFLTEN12; inline;
  16148. procedure clearFLTEN13; inline;
  16149. procedure clearFLTEN14; inline;
  16150. procedure clearFLTEN15; inline;
  16151. procedure setFLTEN12; inline;
  16152. procedure setFLTEN13; inline;
  16153. procedure setFLTEN14; inline;
  16154. procedure setFLTEN15; inline;
  16155. property FLTEN12 : TBits_1 read getFLTEN12 write setFLTEN12;
  16156. property FLTEN13 : TBits_1 read getFLTEN13 write setFLTEN13;
  16157. property FLTEN14 : TBits_1 read getFLTEN14 write setFLTEN14;
  16158. property FLTEN15 : TBits_1 read getFLTEN15 write setFLTEN15;
  16159. property FSEL12 : TBits_5 read getFSEL12 write setFSEL12;
  16160. property FSEL13 : TBits_5 read getFSEL13 write setFSEL13;
  16161. property FSEL14 : TBits_5 read getFSEL14 write setFSEL14;
  16162. property FSEL15 : TBits_5 read getFSEL15 write setFSEL15;
  16163. property MSEL12 : TBits_2 read getMSEL12 write setMSEL12;
  16164. property MSEL13 : TBits_2 read getMSEL13 write setMSEL13;
  16165. property MSEL14 : TBits_2 read getMSEL14 write setMSEL14;
  16166. property MSEL15 : TBits_2 read getMSEL15 write setMSEL15;
  16167. property w : TBits_32 read getw write setw;
  16168. end;
  16169. TCAN1_C1FLTCON4 = record
  16170. private
  16171. function getFLTEN16 : TBits_1; inline;
  16172. function getFLTEN17 : TBits_1; inline;
  16173. function getFLTEN18 : TBits_1; inline;
  16174. function getFLTEN19 : TBits_1; inline;
  16175. function getFSEL16 : TBits_5; inline;
  16176. function getFSEL17 : TBits_5; inline;
  16177. function getFSEL18 : TBits_5; inline;
  16178. function getFSEL19 : TBits_5; inline;
  16179. function getMSEL16 : TBits_2; inline;
  16180. function getMSEL17 : TBits_2; inline;
  16181. function getMSEL18 : TBits_2; inline;
  16182. function getMSEL19 : TBits_2; inline;
  16183. function getw : TBits_32; inline;
  16184. procedure setFLTEN16(thebits : TBits_1); inline;
  16185. procedure setFLTEN17(thebits : TBits_1); inline;
  16186. procedure setFLTEN18(thebits : TBits_1); inline;
  16187. procedure setFLTEN19(thebits : TBits_1); inline;
  16188. procedure setFSEL16(thebits : TBits_5); inline;
  16189. procedure setFSEL17(thebits : TBits_5); inline;
  16190. procedure setFSEL18(thebits : TBits_5); inline;
  16191. procedure setFSEL19(thebits : TBits_5); inline;
  16192. procedure setMSEL16(thebits : TBits_2); inline;
  16193. procedure setMSEL17(thebits : TBits_2); inline;
  16194. procedure setMSEL18(thebits : TBits_2); inline;
  16195. procedure setMSEL19(thebits : TBits_2); inline;
  16196. procedure setw(thebits : TBits_32); inline;
  16197. public
  16198. procedure clearFLTEN16; inline;
  16199. procedure clearFLTEN17; inline;
  16200. procedure clearFLTEN18; inline;
  16201. procedure clearFLTEN19; inline;
  16202. procedure setFLTEN16; inline;
  16203. procedure setFLTEN17; inline;
  16204. procedure setFLTEN18; inline;
  16205. procedure setFLTEN19; inline;
  16206. property FLTEN16 : TBits_1 read getFLTEN16 write setFLTEN16;
  16207. property FLTEN17 : TBits_1 read getFLTEN17 write setFLTEN17;
  16208. property FLTEN18 : TBits_1 read getFLTEN18 write setFLTEN18;
  16209. property FLTEN19 : TBits_1 read getFLTEN19 write setFLTEN19;
  16210. property FSEL16 : TBits_5 read getFSEL16 write setFSEL16;
  16211. property FSEL17 : TBits_5 read getFSEL17 write setFSEL17;
  16212. property FSEL18 : TBits_5 read getFSEL18 write setFSEL18;
  16213. property FSEL19 : TBits_5 read getFSEL19 write setFSEL19;
  16214. property MSEL16 : TBits_2 read getMSEL16 write setMSEL16;
  16215. property MSEL17 : TBits_2 read getMSEL17 write setMSEL17;
  16216. property MSEL18 : TBits_2 read getMSEL18 write setMSEL18;
  16217. property MSEL19 : TBits_2 read getMSEL19 write setMSEL19;
  16218. property w : TBits_32 read getw write setw;
  16219. end;
  16220. TCAN1_C1FLTCON5 = record
  16221. private
  16222. function getFLTEN20 : TBits_1; inline;
  16223. function getFLTEN21 : TBits_1; inline;
  16224. function getFLTEN22 : TBits_1; inline;
  16225. function getFLTEN23 : TBits_1; inline;
  16226. function getFSEL20 : TBits_5; inline;
  16227. function getFSEL21 : TBits_5; inline;
  16228. function getFSEL22 : TBits_5; inline;
  16229. function getFSEL23 : TBits_5; inline;
  16230. function getMSEL20 : TBits_2; inline;
  16231. function getMSEL21 : TBits_2; inline;
  16232. function getMSEL22 : TBits_2; inline;
  16233. function getMSEL23 : TBits_2; inline;
  16234. function getw : TBits_32; inline;
  16235. procedure setFLTEN20(thebits : TBits_1); inline;
  16236. procedure setFLTEN21(thebits : TBits_1); inline;
  16237. procedure setFLTEN22(thebits : TBits_1); inline;
  16238. procedure setFLTEN23(thebits : TBits_1); inline;
  16239. procedure setFSEL20(thebits : TBits_5); inline;
  16240. procedure setFSEL21(thebits : TBits_5); inline;
  16241. procedure setFSEL22(thebits : TBits_5); inline;
  16242. procedure setFSEL23(thebits : TBits_5); inline;
  16243. procedure setMSEL20(thebits : TBits_2); inline;
  16244. procedure setMSEL21(thebits : TBits_2); inline;
  16245. procedure setMSEL22(thebits : TBits_2); inline;
  16246. procedure setMSEL23(thebits : TBits_2); inline;
  16247. procedure setw(thebits : TBits_32); inline;
  16248. public
  16249. procedure clearFLTEN20; inline;
  16250. procedure clearFLTEN21; inline;
  16251. procedure clearFLTEN22; inline;
  16252. procedure clearFLTEN23; inline;
  16253. procedure setFLTEN20; inline;
  16254. procedure setFLTEN21; inline;
  16255. procedure setFLTEN22; inline;
  16256. procedure setFLTEN23; inline;
  16257. property FLTEN20 : TBits_1 read getFLTEN20 write setFLTEN20;
  16258. property FLTEN21 : TBits_1 read getFLTEN21 write setFLTEN21;
  16259. property FLTEN22 : TBits_1 read getFLTEN22 write setFLTEN22;
  16260. property FLTEN23 : TBits_1 read getFLTEN23 write setFLTEN23;
  16261. property FSEL20 : TBits_5 read getFSEL20 write setFSEL20;
  16262. property FSEL21 : TBits_5 read getFSEL21 write setFSEL21;
  16263. property FSEL22 : TBits_5 read getFSEL22 write setFSEL22;
  16264. property FSEL23 : TBits_5 read getFSEL23 write setFSEL23;
  16265. property MSEL20 : TBits_2 read getMSEL20 write setMSEL20;
  16266. property MSEL21 : TBits_2 read getMSEL21 write setMSEL21;
  16267. property MSEL22 : TBits_2 read getMSEL22 write setMSEL22;
  16268. property MSEL23 : TBits_2 read getMSEL23 write setMSEL23;
  16269. property w : TBits_32 read getw write setw;
  16270. end;
  16271. TCAN1_C1FLTCON6 = record
  16272. private
  16273. function getFLTEN24 : TBits_1; inline;
  16274. function getFLTEN25 : TBits_1; inline;
  16275. function getFLTEN26 : TBits_1; inline;
  16276. function getFLTEN27 : TBits_1; inline;
  16277. function getFSEL24 : TBits_5; inline;
  16278. function getFSEL25 : TBits_5; inline;
  16279. function getFSEL26 : TBits_5; inline;
  16280. function getFSEL27 : TBits_5; inline;
  16281. function getMSEL24 : TBits_2; inline;
  16282. function getMSEL25 : TBits_2; inline;
  16283. function getMSEL26 : TBits_2; inline;
  16284. function getMSEL27 : TBits_2; inline;
  16285. function getw : TBits_32; inline;
  16286. procedure setFLTEN24(thebits : TBits_1); inline;
  16287. procedure setFLTEN25(thebits : TBits_1); inline;
  16288. procedure setFLTEN26(thebits : TBits_1); inline;
  16289. procedure setFLTEN27(thebits : TBits_1); inline;
  16290. procedure setFSEL24(thebits : TBits_5); inline;
  16291. procedure setFSEL25(thebits : TBits_5); inline;
  16292. procedure setFSEL26(thebits : TBits_5); inline;
  16293. procedure setFSEL27(thebits : TBits_5); inline;
  16294. procedure setMSEL24(thebits : TBits_2); inline;
  16295. procedure setMSEL25(thebits : TBits_2); inline;
  16296. procedure setMSEL26(thebits : TBits_2); inline;
  16297. procedure setMSEL27(thebits : TBits_2); inline;
  16298. procedure setw(thebits : TBits_32); inline;
  16299. public
  16300. procedure clearFLTEN24; inline;
  16301. procedure clearFLTEN25; inline;
  16302. procedure clearFLTEN26; inline;
  16303. procedure clearFLTEN27; inline;
  16304. procedure setFLTEN24; inline;
  16305. procedure setFLTEN25; inline;
  16306. procedure setFLTEN26; inline;
  16307. procedure setFLTEN27; inline;
  16308. property FLTEN24 : TBits_1 read getFLTEN24 write setFLTEN24;
  16309. property FLTEN25 : TBits_1 read getFLTEN25 write setFLTEN25;
  16310. property FLTEN26 : TBits_1 read getFLTEN26 write setFLTEN26;
  16311. property FLTEN27 : TBits_1 read getFLTEN27 write setFLTEN27;
  16312. property FSEL24 : TBits_5 read getFSEL24 write setFSEL24;
  16313. property FSEL25 : TBits_5 read getFSEL25 write setFSEL25;
  16314. property FSEL26 : TBits_5 read getFSEL26 write setFSEL26;
  16315. property FSEL27 : TBits_5 read getFSEL27 write setFSEL27;
  16316. property MSEL24 : TBits_2 read getMSEL24 write setMSEL24;
  16317. property MSEL25 : TBits_2 read getMSEL25 write setMSEL25;
  16318. property MSEL26 : TBits_2 read getMSEL26 write setMSEL26;
  16319. property MSEL27 : TBits_2 read getMSEL27 write setMSEL27;
  16320. property w : TBits_32 read getw write setw;
  16321. end;
  16322. TCAN1_C1FLTCON7 = record
  16323. private
  16324. function getFLTEN28 : TBits_1; inline;
  16325. function getFLTEN29 : TBits_1; inline;
  16326. function getFLTEN30 : TBits_1; inline;
  16327. function getFLTEN31 : TBits_1; inline;
  16328. function getFSEL28 : TBits_5; inline;
  16329. function getFSEL29 : TBits_5; inline;
  16330. function getFSEL30 : TBits_5; inline;
  16331. function getFSEL31 : TBits_5; inline;
  16332. function getMSEL28 : TBits_2; inline;
  16333. function getMSEL29 : TBits_2; inline;
  16334. function getMSEL30 : TBits_2; inline;
  16335. function getMSEL31 : TBits_2; inline;
  16336. function getw : TBits_32; inline;
  16337. procedure setFLTEN28(thebits : TBits_1); inline;
  16338. procedure setFLTEN29(thebits : TBits_1); inline;
  16339. procedure setFLTEN30(thebits : TBits_1); inline;
  16340. procedure setFLTEN31(thebits : TBits_1); inline;
  16341. procedure setFSEL28(thebits : TBits_5); inline;
  16342. procedure setFSEL29(thebits : TBits_5); inline;
  16343. procedure setFSEL30(thebits : TBits_5); inline;
  16344. procedure setFSEL31(thebits : TBits_5); inline;
  16345. procedure setMSEL28(thebits : TBits_2); inline;
  16346. procedure setMSEL29(thebits : TBits_2); inline;
  16347. procedure setMSEL30(thebits : TBits_2); inline;
  16348. procedure setMSEL31(thebits : TBits_2); inline;
  16349. procedure setw(thebits : TBits_32); inline;
  16350. public
  16351. procedure clearFLTEN28; inline;
  16352. procedure clearFLTEN29; inline;
  16353. procedure clearFLTEN30; inline;
  16354. procedure clearFLTEN31; inline;
  16355. procedure setFLTEN28; inline;
  16356. procedure setFLTEN29; inline;
  16357. procedure setFLTEN30; inline;
  16358. procedure setFLTEN31; inline;
  16359. property FLTEN28 : TBits_1 read getFLTEN28 write setFLTEN28;
  16360. property FLTEN29 : TBits_1 read getFLTEN29 write setFLTEN29;
  16361. property FLTEN30 : TBits_1 read getFLTEN30 write setFLTEN30;
  16362. property FLTEN31 : TBits_1 read getFLTEN31 write setFLTEN31;
  16363. property FSEL28 : TBits_5 read getFSEL28 write setFSEL28;
  16364. property FSEL29 : TBits_5 read getFSEL29 write setFSEL29;
  16365. property FSEL30 : TBits_5 read getFSEL30 write setFSEL30;
  16366. property FSEL31 : TBits_5 read getFSEL31 write setFSEL31;
  16367. property MSEL28 : TBits_2 read getMSEL28 write setMSEL28;
  16368. property MSEL29 : TBits_2 read getMSEL29 write setMSEL29;
  16369. property MSEL30 : TBits_2 read getMSEL30 write setMSEL30;
  16370. property MSEL31 : TBits_2 read getMSEL31 write setMSEL31;
  16371. property w : TBits_32 read getw write setw;
  16372. end;
  16373. TCAN1_C1RXF0 = record
  16374. private
  16375. function getEID : TBits_18; inline;
  16376. function getEXID : TBits_1; inline;
  16377. function getSID : TBits_11; inline;
  16378. function getw : TBits_32; inline;
  16379. procedure setEID(thebits : TBits_18); inline;
  16380. procedure setEXID(thebits : TBits_1); inline;
  16381. procedure setSID(thebits : TBits_11); inline;
  16382. procedure setw(thebits : TBits_32); inline;
  16383. public
  16384. procedure clearEXID; inline;
  16385. procedure setEXID; inline;
  16386. property EID : TBits_18 read getEID write setEID;
  16387. property EXID : TBits_1 read getEXID write setEXID;
  16388. property SID : TBits_11 read getSID write setSID;
  16389. property w : TBits_32 read getw write setw;
  16390. end;
  16391. TCAN1_C1RXF1 = record
  16392. private
  16393. function getEID : TBits_18; inline;
  16394. function getEXID : TBits_1; inline;
  16395. function getSID : TBits_11; inline;
  16396. function getw : TBits_32; inline;
  16397. procedure setEID(thebits : TBits_18); inline;
  16398. procedure setEXID(thebits : TBits_1); inline;
  16399. procedure setSID(thebits : TBits_11); inline;
  16400. procedure setw(thebits : TBits_32); inline;
  16401. public
  16402. procedure clearEXID; inline;
  16403. procedure setEXID; inline;
  16404. property EID : TBits_18 read getEID write setEID;
  16405. property EXID : TBits_1 read getEXID write setEXID;
  16406. property SID : TBits_11 read getSID write setSID;
  16407. property w : TBits_32 read getw write setw;
  16408. end;
  16409. TCAN1_C1RXF2 = record
  16410. private
  16411. function getEID : TBits_18; inline;
  16412. function getEXID : TBits_1; inline;
  16413. function getSID : TBits_11; inline;
  16414. function getw : TBits_32; inline;
  16415. procedure setEID(thebits : TBits_18); inline;
  16416. procedure setEXID(thebits : TBits_1); inline;
  16417. procedure setSID(thebits : TBits_11); inline;
  16418. procedure setw(thebits : TBits_32); inline;
  16419. public
  16420. procedure clearEXID; inline;
  16421. procedure setEXID; inline;
  16422. property EID : TBits_18 read getEID write setEID;
  16423. property EXID : TBits_1 read getEXID write setEXID;
  16424. property SID : TBits_11 read getSID write setSID;
  16425. property w : TBits_32 read getw write setw;
  16426. end;
  16427. TCAN1_C1RXF3 = record
  16428. private
  16429. function getEID : TBits_18; inline;
  16430. function getEXID : TBits_1; inline;
  16431. function getSID : TBits_11; inline;
  16432. function getw : TBits_32; inline;
  16433. procedure setEID(thebits : TBits_18); inline;
  16434. procedure setEXID(thebits : TBits_1); inline;
  16435. procedure setSID(thebits : TBits_11); inline;
  16436. procedure setw(thebits : TBits_32); inline;
  16437. public
  16438. procedure clearEXID; inline;
  16439. procedure setEXID; inline;
  16440. property EID : TBits_18 read getEID write setEID;
  16441. property EXID : TBits_1 read getEXID write setEXID;
  16442. property SID : TBits_11 read getSID write setSID;
  16443. property w : TBits_32 read getw write setw;
  16444. end;
  16445. TCAN1_C1RXF4 = record
  16446. private
  16447. function getEID : TBits_18; inline;
  16448. function getEXID : TBits_1; inline;
  16449. function getSID : TBits_11; inline;
  16450. function getw : TBits_32; inline;
  16451. procedure setEID(thebits : TBits_18); inline;
  16452. procedure setEXID(thebits : TBits_1); inline;
  16453. procedure setSID(thebits : TBits_11); inline;
  16454. procedure setw(thebits : TBits_32); inline;
  16455. public
  16456. procedure clearEXID; inline;
  16457. procedure setEXID; inline;
  16458. property EID : TBits_18 read getEID write setEID;
  16459. property EXID : TBits_1 read getEXID write setEXID;
  16460. property SID : TBits_11 read getSID write setSID;
  16461. property w : TBits_32 read getw write setw;
  16462. end;
  16463. TCAN1_C1RXF5 = record
  16464. private
  16465. function getEID : TBits_18; inline;
  16466. function getEXID : TBits_1; inline;
  16467. function getSID : TBits_11; inline;
  16468. function getw : TBits_32; inline;
  16469. procedure setEID(thebits : TBits_18); inline;
  16470. procedure setEXID(thebits : TBits_1); inline;
  16471. procedure setSID(thebits : TBits_11); inline;
  16472. procedure setw(thebits : TBits_32); inline;
  16473. public
  16474. procedure clearEXID; inline;
  16475. procedure setEXID; inline;
  16476. property EID : TBits_18 read getEID write setEID;
  16477. property EXID : TBits_1 read getEXID write setEXID;
  16478. property SID : TBits_11 read getSID write setSID;
  16479. property w : TBits_32 read getw write setw;
  16480. end;
  16481. TCAN1_C1RXF6 = record
  16482. private
  16483. function getEID : TBits_18; inline;
  16484. function getEXID : TBits_1; inline;
  16485. function getSID : TBits_11; inline;
  16486. function getw : TBits_32; inline;
  16487. procedure setEID(thebits : TBits_18); inline;
  16488. procedure setEXID(thebits : TBits_1); inline;
  16489. procedure setSID(thebits : TBits_11); inline;
  16490. procedure setw(thebits : TBits_32); inline;
  16491. public
  16492. procedure clearEXID; inline;
  16493. procedure setEXID; inline;
  16494. property EID : TBits_18 read getEID write setEID;
  16495. property EXID : TBits_1 read getEXID write setEXID;
  16496. property SID : TBits_11 read getSID write setSID;
  16497. property w : TBits_32 read getw write setw;
  16498. end;
  16499. TCAN1_C1RXF7 = record
  16500. private
  16501. function getEID : TBits_18; inline;
  16502. function getEXID : TBits_1; inline;
  16503. function getSID : TBits_11; inline;
  16504. function getw : TBits_32; inline;
  16505. procedure setEID(thebits : TBits_18); inline;
  16506. procedure setEXID(thebits : TBits_1); inline;
  16507. procedure setSID(thebits : TBits_11); inline;
  16508. procedure setw(thebits : TBits_32); inline;
  16509. public
  16510. procedure clearEXID; inline;
  16511. procedure setEXID; inline;
  16512. property EID : TBits_18 read getEID write setEID;
  16513. property EXID : TBits_1 read getEXID write setEXID;
  16514. property SID : TBits_11 read getSID write setSID;
  16515. property w : TBits_32 read getw write setw;
  16516. end;
  16517. TCAN1_C1RXF8 = record
  16518. private
  16519. function getEID : TBits_18; inline;
  16520. function getEXID : TBits_1; inline;
  16521. function getSID : TBits_11; inline;
  16522. function getw : TBits_32; inline;
  16523. procedure setEID(thebits : TBits_18); inline;
  16524. procedure setEXID(thebits : TBits_1); inline;
  16525. procedure setSID(thebits : TBits_11); inline;
  16526. procedure setw(thebits : TBits_32); inline;
  16527. public
  16528. procedure clearEXID; inline;
  16529. procedure setEXID; inline;
  16530. property EID : TBits_18 read getEID write setEID;
  16531. property EXID : TBits_1 read getEXID write setEXID;
  16532. property SID : TBits_11 read getSID write setSID;
  16533. property w : TBits_32 read getw write setw;
  16534. end;
  16535. TCAN1_C1RXF9 = record
  16536. private
  16537. function getEID : TBits_18; inline;
  16538. function getEXID : TBits_1; inline;
  16539. function getSID : TBits_11; inline;
  16540. function getw : TBits_32; inline;
  16541. procedure setEID(thebits : TBits_18); inline;
  16542. procedure setEXID(thebits : TBits_1); inline;
  16543. procedure setSID(thebits : TBits_11); inline;
  16544. procedure setw(thebits : TBits_32); inline;
  16545. public
  16546. procedure clearEXID; inline;
  16547. procedure setEXID; inline;
  16548. property EID : TBits_18 read getEID write setEID;
  16549. property EXID : TBits_1 read getEXID write setEXID;
  16550. property SID : TBits_11 read getSID write setSID;
  16551. property w : TBits_32 read getw write setw;
  16552. end;
  16553. TCAN1_C1RXF10 = record
  16554. private
  16555. function getEID : TBits_18; inline;
  16556. function getEXID : TBits_1; inline;
  16557. function getSID : TBits_11; inline;
  16558. function getw : TBits_32; inline;
  16559. procedure setEID(thebits : TBits_18); inline;
  16560. procedure setEXID(thebits : TBits_1); inline;
  16561. procedure setSID(thebits : TBits_11); inline;
  16562. procedure setw(thebits : TBits_32); inline;
  16563. public
  16564. procedure clearEXID; inline;
  16565. procedure setEXID; inline;
  16566. property EID : TBits_18 read getEID write setEID;
  16567. property EXID : TBits_1 read getEXID write setEXID;
  16568. property SID : TBits_11 read getSID write setSID;
  16569. property w : TBits_32 read getw write setw;
  16570. end;
  16571. TCAN1_C1RXF11 = record
  16572. private
  16573. function getEID : TBits_18; inline;
  16574. function getEXID : TBits_1; inline;
  16575. function getSID : TBits_11; inline;
  16576. function getw : TBits_32; inline;
  16577. procedure setEID(thebits : TBits_18); inline;
  16578. procedure setEXID(thebits : TBits_1); inline;
  16579. procedure setSID(thebits : TBits_11); inline;
  16580. procedure setw(thebits : TBits_32); inline;
  16581. public
  16582. procedure clearEXID; inline;
  16583. procedure setEXID; inline;
  16584. property EID : TBits_18 read getEID write setEID;
  16585. property EXID : TBits_1 read getEXID write setEXID;
  16586. property SID : TBits_11 read getSID write setSID;
  16587. property w : TBits_32 read getw write setw;
  16588. end;
  16589. TCAN1_C1RXF12 = record
  16590. private
  16591. function getEID : TBits_18; inline;
  16592. function getEXID : TBits_1; inline;
  16593. function getSID : TBits_11; inline;
  16594. function getw : TBits_32; inline;
  16595. procedure setEID(thebits : TBits_18); inline;
  16596. procedure setEXID(thebits : TBits_1); inline;
  16597. procedure setSID(thebits : TBits_11); inline;
  16598. procedure setw(thebits : TBits_32); inline;
  16599. public
  16600. procedure clearEXID; inline;
  16601. procedure setEXID; inline;
  16602. property EID : TBits_18 read getEID write setEID;
  16603. property EXID : TBits_1 read getEXID write setEXID;
  16604. property SID : TBits_11 read getSID write setSID;
  16605. property w : TBits_32 read getw write setw;
  16606. end;
  16607. TCAN1_C1RXF13 = record
  16608. private
  16609. function getEID : TBits_18; inline;
  16610. function getEXID : TBits_1; inline;
  16611. function getSID : TBits_11; inline;
  16612. function getw : TBits_32; inline;
  16613. procedure setEID(thebits : TBits_18); inline;
  16614. procedure setEXID(thebits : TBits_1); inline;
  16615. procedure setSID(thebits : TBits_11); inline;
  16616. procedure setw(thebits : TBits_32); inline;
  16617. public
  16618. procedure clearEXID; inline;
  16619. procedure setEXID; inline;
  16620. property EID : TBits_18 read getEID write setEID;
  16621. property EXID : TBits_1 read getEXID write setEXID;
  16622. property SID : TBits_11 read getSID write setSID;
  16623. property w : TBits_32 read getw write setw;
  16624. end;
  16625. TCAN1_C1RXF14 = record
  16626. private
  16627. function getEID : TBits_18; inline;
  16628. function getEXID : TBits_1; inline;
  16629. function getSID : TBits_11; inline;
  16630. function getw : TBits_32; inline;
  16631. procedure setEID(thebits : TBits_18); inline;
  16632. procedure setEXID(thebits : TBits_1); inline;
  16633. procedure setSID(thebits : TBits_11); inline;
  16634. procedure setw(thebits : TBits_32); inline;
  16635. public
  16636. procedure clearEXID; inline;
  16637. procedure setEXID; inline;
  16638. property EID : TBits_18 read getEID write setEID;
  16639. property EXID : TBits_1 read getEXID write setEXID;
  16640. property SID : TBits_11 read getSID write setSID;
  16641. property w : TBits_32 read getw write setw;
  16642. end;
  16643. TCAN1_C1RXF15 = record
  16644. private
  16645. function getEID : TBits_18; inline;
  16646. function getEXID : TBits_1; inline;
  16647. function getSID : TBits_11; inline;
  16648. function getw : TBits_32; inline;
  16649. procedure setEID(thebits : TBits_18); inline;
  16650. procedure setEXID(thebits : TBits_1); inline;
  16651. procedure setSID(thebits : TBits_11); inline;
  16652. procedure setw(thebits : TBits_32); inline;
  16653. public
  16654. procedure clearEXID; inline;
  16655. procedure setEXID; inline;
  16656. property EID : TBits_18 read getEID write setEID;
  16657. property EXID : TBits_1 read getEXID write setEXID;
  16658. property SID : TBits_11 read getSID write setSID;
  16659. property w : TBits_32 read getw write setw;
  16660. end;
  16661. TCAN1_C1RXF16 = record
  16662. private
  16663. function getEID : TBits_18; inline;
  16664. function getEXID : TBits_1; inline;
  16665. function getSID : TBits_11; inline;
  16666. function getw : TBits_32; inline;
  16667. procedure setEID(thebits : TBits_18); inline;
  16668. procedure setEXID(thebits : TBits_1); inline;
  16669. procedure setSID(thebits : TBits_11); inline;
  16670. procedure setw(thebits : TBits_32); inline;
  16671. public
  16672. procedure clearEXID; inline;
  16673. procedure setEXID; inline;
  16674. property EID : TBits_18 read getEID write setEID;
  16675. property EXID : TBits_1 read getEXID write setEXID;
  16676. property SID : TBits_11 read getSID write setSID;
  16677. property w : TBits_32 read getw write setw;
  16678. end;
  16679. TCAN1_C1RXF17 = record
  16680. private
  16681. function getEID : TBits_18; inline;
  16682. function getEXID : TBits_1; inline;
  16683. function getSID : TBits_11; inline;
  16684. function getw : TBits_32; inline;
  16685. procedure setEID(thebits : TBits_18); inline;
  16686. procedure setEXID(thebits : TBits_1); inline;
  16687. procedure setSID(thebits : TBits_11); inline;
  16688. procedure setw(thebits : TBits_32); inline;
  16689. public
  16690. procedure clearEXID; inline;
  16691. procedure setEXID; inline;
  16692. property EID : TBits_18 read getEID write setEID;
  16693. property EXID : TBits_1 read getEXID write setEXID;
  16694. property SID : TBits_11 read getSID write setSID;
  16695. property w : TBits_32 read getw write setw;
  16696. end;
  16697. TCAN1_C1RXF18 = record
  16698. private
  16699. function getEID : TBits_18; inline;
  16700. function getEXID : TBits_1; inline;
  16701. function getSID : TBits_11; inline;
  16702. function getw : TBits_32; inline;
  16703. procedure setEID(thebits : TBits_18); inline;
  16704. procedure setEXID(thebits : TBits_1); inline;
  16705. procedure setSID(thebits : TBits_11); inline;
  16706. procedure setw(thebits : TBits_32); inline;
  16707. public
  16708. procedure clearEXID; inline;
  16709. procedure setEXID; inline;
  16710. property EID : TBits_18 read getEID write setEID;
  16711. property EXID : TBits_1 read getEXID write setEXID;
  16712. property SID : TBits_11 read getSID write setSID;
  16713. property w : TBits_32 read getw write setw;
  16714. end;
  16715. TCAN1_C1RXF19 = record
  16716. private
  16717. function getEID : TBits_18; inline;
  16718. function getEXID : TBits_1; inline;
  16719. function getSID : TBits_11; inline;
  16720. function getw : TBits_32; inline;
  16721. procedure setEID(thebits : TBits_18); inline;
  16722. procedure setEXID(thebits : TBits_1); inline;
  16723. procedure setSID(thebits : TBits_11); inline;
  16724. procedure setw(thebits : TBits_32); inline;
  16725. public
  16726. procedure clearEXID; inline;
  16727. procedure setEXID; inline;
  16728. property EID : TBits_18 read getEID write setEID;
  16729. property EXID : TBits_1 read getEXID write setEXID;
  16730. property SID : TBits_11 read getSID write setSID;
  16731. property w : TBits_32 read getw write setw;
  16732. end;
  16733. TCAN1_C1RXF20 = record
  16734. private
  16735. function getEID : TBits_18; inline;
  16736. function getEXID : TBits_1; inline;
  16737. function getSID : TBits_11; inline;
  16738. function getw : TBits_32; inline;
  16739. procedure setEID(thebits : TBits_18); inline;
  16740. procedure setEXID(thebits : TBits_1); inline;
  16741. procedure setSID(thebits : TBits_11); inline;
  16742. procedure setw(thebits : TBits_32); inline;
  16743. public
  16744. procedure clearEXID; inline;
  16745. procedure setEXID; inline;
  16746. property EID : TBits_18 read getEID write setEID;
  16747. property EXID : TBits_1 read getEXID write setEXID;
  16748. property SID : TBits_11 read getSID write setSID;
  16749. property w : TBits_32 read getw write setw;
  16750. end;
  16751. TCAN1_C1RXF21 = record
  16752. private
  16753. function getEID : TBits_18; inline;
  16754. function getEXID : TBits_1; inline;
  16755. function getSID : TBits_11; inline;
  16756. function getw : TBits_32; inline;
  16757. procedure setEID(thebits : TBits_18); inline;
  16758. procedure setEXID(thebits : TBits_1); inline;
  16759. procedure setSID(thebits : TBits_11); inline;
  16760. procedure setw(thebits : TBits_32); inline;
  16761. public
  16762. procedure clearEXID; inline;
  16763. procedure setEXID; inline;
  16764. property EID : TBits_18 read getEID write setEID;
  16765. property EXID : TBits_1 read getEXID write setEXID;
  16766. property SID : TBits_11 read getSID write setSID;
  16767. property w : TBits_32 read getw write setw;
  16768. end;
  16769. TCAN1_C1RXF22 = record
  16770. private
  16771. function getEID : TBits_18; inline;
  16772. function getEXID : TBits_1; inline;
  16773. function getSID : TBits_11; inline;
  16774. function getw : TBits_32; inline;
  16775. procedure setEID(thebits : TBits_18); inline;
  16776. procedure setEXID(thebits : TBits_1); inline;
  16777. procedure setSID(thebits : TBits_11); inline;
  16778. procedure setw(thebits : TBits_32); inline;
  16779. public
  16780. procedure clearEXID; inline;
  16781. procedure setEXID; inline;
  16782. property EID : TBits_18 read getEID write setEID;
  16783. property EXID : TBits_1 read getEXID write setEXID;
  16784. property SID : TBits_11 read getSID write setSID;
  16785. property w : TBits_32 read getw write setw;
  16786. end;
  16787. TCAN1_C1RXF23 = record
  16788. private
  16789. function getEID : TBits_18; inline;
  16790. function getEXID : TBits_1; inline;
  16791. function getSID : TBits_11; inline;
  16792. function getw : TBits_32; inline;
  16793. procedure setEID(thebits : TBits_18); inline;
  16794. procedure setEXID(thebits : TBits_1); inline;
  16795. procedure setSID(thebits : TBits_11); inline;
  16796. procedure setw(thebits : TBits_32); inline;
  16797. public
  16798. procedure clearEXID; inline;
  16799. procedure setEXID; inline;
  16800. property EID : TBits_18 read getEID write setEID;
  16801. property EXID : TBits_1 read getEXID write setEXID;
  16802. property SID : TBits_11 read getSID write setSID;
  16803. property w : TBits_32 read getw write setw;
  16804. end;
  16805. TCAN1_C1RXF24 = record
  16806. private
  16807. function getEID : TBits_18; inline;
  16808. function getEXID : TBits_1; inline;
  16809. function getSID : TBits_11; inline;
  16810. function getw : TBits_32; inline;
  16811. procedure setEID(thebits : TBits_18); inline;
  16812. procedure setEXID(thebits : TBits_1); inline;
  16813. procedure setSID(thebits : TBits_11); inline;
  16814. procedure setw(thebits : TBits_32); inline;
  16815. public
  16816. procedure clearEXID; inline;
  16817. procedure setEXID; inline;
  16818. property EID : TBits_18 read getEID write setEID;
  16819. property EXID : TBits_1 read getEXID write setEXID;
  16820. property SID : TBits_11 read getSID write setSID;
  16821. property w : TBits_32 read getw write setw;
  16822. end;
  16823. TCAN1_C1RXF25 = record
  16824. private
  16825. function getEID : TBits_18; inline;
  16826. function getEXID : TBits_1; inline;
  16827. function getSID : TBits_11; inline;
  16828. function getw : TBits_32; inline;
  16829. procedure setEID(thebits : TBits_18); inline;
  16830. procedure setEXID(thebits : TBits_1); inline;
  16831. procedure setSID(thebits : TBits_11); inline;
  16832. procedure setw(thebits : TBits_32); inline;
  16833. public
  16834. procedure clearEXID; inline;
  16835. procedure setEXID; inline;
  16836. property EID : TBits_18 read getEID write setEID;
  16837. property EXID : TBits_1 read getEXID write setEXID;
  16838. property SID : TBits_11 read getSID write setSID;
  16839. property w : TBits_32 read getw write setw;
  16840. end;
  16841. TCAN1_C1RXF26 = record
  16842. private
  16843. function getEID : TBits_18; inline;
  16844. function getEXID : TBits_1; inline;
  16845. function getSID : TBits_11; inline;
  16846. function getw : TBits_32; inline;
  16847. procedure setEID(thebits : TBits_18); inline;
  16848. procedure setEXID(thebits : TBits_1); inline;
  16849. procedure setSID(thebits : TBits_11); inline;
  16850. procedure setw(thebits : TBits_32); inline;
  16851. public
  16852. procedure clearEXID; inline;
  16853. procedure setEXID; inline;
  16854. property EID : TBits_18 read getEID write setEID;
  16855. property EXID : TBits_1 read getEXID write setEXID;
  16856. property SID : TBits_11 read getSID write setSID;
  16857. property w : TBits_32 read getw write setw;
  16858. end;
  16859. TCAN1_C1RXF27 = record
  16860. private
  16861. function getEID : TBits_18; inline;
  16862. function getEXID : TBits_1; inline;
  16863. function getSID : TBits_11; inline;
  16864. function getw : TBits_32; inline;
  16865. procedure setEID(thebits : TBits_18); inline;
  16866. procedure setEXID(thebits : TBits_1); inline;
  16867. procedure setSID(thebits : TBits_11); inline;
  16868. procedure setw(thebits : TBits_32); inline;
  16869. public
  16870. procedure clearEXID; inline;
  16871. procedure setEXID; inline;
  16872. property EID : TBits_18 read getEID write setEID;
  16873. property EXID : TBits_1 read getEXID write setEXID;
  16874. property SID : TBits_11 read getSID write setSID;
  16875. property w : TBits_32 read getw write setw;
  16876. end;
  16877. TCAN1_C1RXF28 = record
  16878. private
  16879. function getEID : TBits_18; inline;
  16880. function getEXID : TBits_1; inline;
  16881. function getSID : TBits_11; inline;
  16882. function getw : TBits_32; inline;
  16883. procedure setEID(thebits : TBits_18); inline;
  16884. procedure setEXID(thebits : TBits_1); inline;
  16885. procedure setSID(thebits : TBits_11); inline;
  16886. procedure setw(thebits : TBits_32); inline;
  16887. public
  16888. procedure clearEXID; inline;
  16889. procedure setEXID; inline;
  16890. property EID : TBits_18 read getEID write setEID;
  16891. property EXID : TBits_1 read getEXID write setEXID;
  16892. property SID : TBits_11 read getSID write setSID;
  16893. property w : TBits_32 read getw write setw;
  16894. end;
  16895. TCAN1_C1RXF29 = record
  16896. private
  16897. function getEID : TBits_18; inline;
  16898. function getEXID : TBits_1; inline;
  16899. function getSID : TBits_11; inline;
  16900. function getw : TBits_32; inline;
  16901. procedure setEID(thebits : TBits_18); inline;
  16902. procedure setEXID(thebits : TBits_1); inline;
  16903. procedure setSID(thebits : TBits_11); inline;
  16904. procedure setw(thebits : TBits_32); inline;
  16905. public
  16906. procedure clearEXID; inline;
  16907. procedure setEXID; inline;
  16908. property EID : TBits_18 read getEID write setEID;
  16909. property EXID : TBits_1 read getEXID write setEXID;
  16910. property SID : TBits_11 read getSID write setSID;
  16911. property w : TBits_32 read getw write setw;
  16912. end;
  16913. TCAN1_C1RXF30 = record
  16914. private
  16915. function getEID : TBits_18; inline;
  16916. function getEXID : TBits_1; inline;
  16917. function getSID : TBits_11; inline;
  16918. function getw : TBits_32; inline;
  16919. procedure setEID(thebits : TBits_18); inline;
  16920. procedure setEXID(thebits : TBits_1); inline;
  16921. procedure setSID(thebits : TBits_11); inline;
  16922. procedure setw(thebits : TBits_32); inline;
  16923. public
  16924. procedure clearEXID; inline;
  16925. procedure setEXID; inline;
  16926. property EID : TBits_18 read getEID write setEID;
  16927. property EXID : TBits_1 read getEXID write setEXID;
  16928. property SID : TBits_11 read getSID write setSID;
  16929. property w : TBits_32 read getw write setw;
  16930. end;
  16931. TCAN1_C1RXF31 = record
  16932. private
  16933. function getEID : TBits_18; inline;
  16934. function getEXID : TBits_1; inline;
  16935. function getSID : TBits_11; inline;
  16936. function getw : TBits_32; inline;
  16937. procedure setEID(thebits : TBits_18); inline;
  16938. procedure setEXID(thebits : TBits_1); inline;
  16939. procedure setSID(thebits : TBits_11); inline;
  16940. procedure setw(thebits : TBits_32); inline;
  16941. public
  16942. procedure clearEXID; inline;
  16943. procedure setEXID; inline;
  16944. property EID : TBits_18 read getEID write setEID;
  16945. property EXID : TBits_1 read getEXID write setEXID;
  16946. property SID : TBits_11 read getSID write setSID;
  16947. property w : TBits_32 read getw write setw;
  16948. end;
  16949. TCAN1_C1FIFOCON0 = record
  16950. private
  16951. function getDONLY : TBits_1; inline;
  16952. function getFRESET : TBits_1; inline;
  16953. function getFSIZE : TBits_5; inline;
  16954. function getRTREN : TBits_1; inline;
  16955. function getTXABAT : TBits_1; inline;
  16956. function getTXEN : TBits_1; inline;
  16957. function getTXERR : TBits_1; inline;
  16958. function getTXLARB : TBits_1; inline;
  16959. function getTXPRI : TBits_2; inline;
  16960. function getTXREQ : TBits_1; inline;
  16961. function getUINC : TBits_1; inline;
  16962. function getw : TBits_32; inline;
  16963. procedure setDONLY(thebits : TBits_1); inline;
  16964. procedure setFRESET(thebits : TBits_1); inline;
  16965. procedure setFSIZE(thebits : TBits_5); inline;
  16966. procedure setRTREN(thebits : TBits_1); inline;
  16967. procedure setTXABAT(thebits : TBits_1); inline;
  16968. procedure setTXEN(thebits : TBits_1); inline;
  16969. procedure setTXERR(thebits : TBits_1); inline;
  16970. procedure setTXLARB(thebits : TBits_1); inline;
  16971. procedure setTXPRI(thebits : TBits_2); inline;
  16972. procedure setTXREQ(thebits : TBits_1); inline;
  16973. procedure setUINC(thebits : TBits_1); inline;
  16974. procedure setw(thebits : TBits_32); inline;
  16975. public
  16976. procedure clearDONLY; inline;
  16977. procedure clearFRESET; inline;
  16978. procedure clearRTREN; inline;
  16979. procedure clearTXABAT; inline;
  16980. procedure clearTXEN; inline;
  16981. procedure clearTXERR; inline;
  16982. procedure clearTXLARB; inline;
  16983. procedure clearTXREQ; inline;
  16984. procedure clearUINC; inline;
  16985. procedure setDONLY; inline;
  16986. procedure setFRESET; inline;
  16987. procedure setRTREN; inline;
  16988. procedure setTXABAT; inline;
  16989. procedure setTXEN; inline;
  16990. procedure setTXERR; inline;
  16991. procedure setTXLARB; inline;
  16992. procedure setTXREQ; inline;
  16993. procedure setUINC; inline;
  16994. property DONLY : TBits_1 read getDONLY write setDONLY;
  16995. property FRESET : TBits_1 read getFRESET write setFRESET;
  16996. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  16997. property RTREN : TBits_1 read getRTREN write setRTREN;
  16998. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  16999. property TXEN : TBits_1 read getTXEN write setTXEN;
  17000. property TXERR : TBits_1 read getTXERR write setTXERR;
  17001. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  17002. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  17003. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  17004. property UINC : TBits_1 read getUINC write setUINC;
  17005. property w : TBits_32 read getw write setw;
  17006. end;
  17007. TCAN1_C1FIFOINT0 = record
  17008. private
  17009. function getRXFULLIE : TBits_1; inline;
  17010. function getRXFULLIF : TBits_1; inline;
  17011. function getRXHALFIE : TBits_1; inline;
  17012. function getRXHALFIF : TBits_1; inline;
  17013. function getRXNEMPTYIE : TBits_1; inline;
  17014. function getRXNEMPTYIF : TBits_1; inline;
  17015. function getRXOVFLIE : TBits_1; inline;
  17016. function getRXOVFLIF : TBits_1; inline;
  17017. function getTXEMPTYIE : TBits_1; inline;
  17018. function getTXEMPTYIF : TBits_1; inline;
  17019. function getTXHALFIE : TBits_1; inline;
  17020. function getTXHALFIF : TBits_1; inline;
  17021. function getTXNFULLIE : TBits_1; inline;
  17022. function getTXNFULLIF : TBits_1; inline;
  17023. function getw : TBits_32; inline;
  17024. procedure setRXFULLIE(thebits : TBits_1); inline;
  17025. procedure setRXFULLIF(thebits : TBits_1); inline;
  17026. procedure setRXHALFIE(thebits : TBits_1); inline;
  17027. procedure setRXHALFIF(thebits : TBits_1); inline;
  17028. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  17029. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  17030. procedure setRXOVFLIE(thebits : TBits_1); inline;
  17031. procedure setRXOVFLIF(thebits : TBits_1); inline;
  17032. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  17033. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  17034. procedure setTXHALFIE(thebits : TBits_1); inline;
  17035. procedure setTXHALFIF(thebits : TBits_1); inline;
  17036. procedure setTXNFULLIE(thebits : TBits_1); inline;
  17037. procedure setTXNFULLIF(thebits : TBits_1); inline;
  17038. procedure setw(thebits : TBits_32); inline;
  17039. public
  17040. procedure clearRXFULLIE; inline;
  17041. procedure clearRXFULLIF; inline;
  17042. procedure clearRXHALFIE; inline;
  17043. procedure clearRXHALFIF; inline;
  17044. procedure clearRXNEMPTYIE; inline;
  17045. procedure clearRXNEMPTYIF; inline;
  17046. procedure clearRXOVFLIE; inline;
  17047. procedure clearRXOVFLIF; inline;
  17048. procedure clearTXEMPTYIE; inline;
  17049. procedure clearTXEMPTYIF; inline;
  17050. procedure clearTXHALFIE; inline;
  17051. procedure clearTXHALFIF; inline;
  17052. procedure clearTXNFULLIE; inline;
  17053. procedure clearTXNFULLIF; inline;
  17054. procedure setRXFULLIE; inline;
  17055. procedure setRXFULLIF; inline;
  17056. procedure setRXHALFIE; inline;
  17057. procedure setRXHALFIF; inline;
  17058. procedure setRXNEMPTYIE; inline;
  17059. procedure setRXNEMPTYIF; inline;
  17060. procedure setRXOVFLIE; inline;
  17061. procedure setRXOVFLIF; inline;
  17062. procedure setTXEMPTYIE; inline;
  17063. procedure setTXEMPTYIF; inline;
  17064. procedure setTXHALFIE; inline;
  17065. procedure setTXHALFIF; inline;
  17066. procedure setTXNFULLIE; inline;
  17067. procedure setTXNFULLIF; inline;
  17068. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  17069. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  17070. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  17071. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  17072. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  17073. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  17074. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  17075. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  17076. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  17077. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  17078. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  17079. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  17080. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  17081. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  17082. property w : TBits_32 read getw write setw;
  17083. end;
  17084. TCAN1_C1FIFOCI0 = record
  17085. private
  17086. function getCFIFOCI : TBits_5; inline;
  17087. function getw : TBits_32; inline;
  17088. procedure setCFIFOCI(thebits : TBits_5); inline;
  17089. procedure setw(thebits : TBits_32); inline;
  17090. public
  17091. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  17092. property w : TBits_32 read getw write setw;
  17093. end;
  17094. TCAN1_C1FIFOCON1 = record
  17095. private
  17096. function getDONLY : TBits_1; inline;
  17097. function getFRESET : TBits_1; inline;
  17098. function getFSIZE : TBits_5; inline;
  17099. function getRTREN : TBits_1; inline;
  17100. function getTXABAT : TBits_1; inline;
  17101. function getTXEN : TBits_1; inline;
  17102. function getTXERR : TBits_1; inline;
  17103. function getTXLARB : TBits_1; inline;
  17104. function getTXPRI : TBits_2; inline;
  17105. function getTXREQ : TBits_1; inline;
  17106. function getUINC : TBits_1; inline;
  17107. function getw : TBits_32; inline;
  17108. procedure setDONLY(thebits : TBits_1); inline;
  17109. procedure setFRESET(thebits : TBits_1); inline;
  17110. procedure setFSIZE(thebits : TBits_5); inline;
  17111. procedure setRTREN(thebits : TBits_1); inline;
  17112. procedure setTXABAT(thebits : TBits_1); inline;
  17113. procedure setTXEN(thebits : TBits_1); inline;
  17114. procedure setTXERR(thebits : TBits_1); inline;
  17115. procedure setTXLARB(thebits : TBits_1); inline;
  17116. procedure setTXPRI(thebits : TBits_2); inline;
  17117. procedure setTXREQ(thebits : TBits_1); inline;
  17118. procedure setUINC(thebits : TBits_1); inline;
  17119. procedure setw(thebits : TBits_32); inline;
  17120. public
  17121. procedure clearDONLY; inline;
  17122. procedure clearFRESET; inline;
  17123. procedure clearRTREN; inline;
  17124. procedure clearTXABAT; inline;
  17125. procedure clearTXEN; inline;
  17126. procedure clearTXERR; inline;
  17127. procedure clearTXLARB; inline;
  17128. procedure clearTXREQ; inline;
  17129. procedure clearUINC; inline;
  17130. procedure setDONLY; inline;
  17131. procedure setFRESET; inline;
  17132. procedure setRTREN; inline;
  17133. procedure setTXABAT; inline;
  17134. procedure setTXEN; inline;
  17135. procedure setTXERR; inline;
  17136. procedure setTXLARB; inline;
  17137. procedure setTXREQ; inline;
  17138. procedure setUINC; inline;
  17139. property DONLY : TBits_1 read getDONLY write setDONLY;
  17140. property FRESET : TBits_1 read getFRESET write setFRESET;
  17141. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  17142. property RTREN : TBits_1 read getRTREN write setRTREN;
  17143. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  17144. property TXEN : TBits_1 read getTXEN write setTXEN;
  17145. property TXERR : TBits_1 read getTXERR write setTXERR;
  17146. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  17147. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  17148. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  17149. property UINC : TBits_1 read getUINC write setUINC;
  17150. property w : TBits_32 read getw write setw;
  17151. end;
  17152. TCAN1_C1FIFOINT1 = record
  17153. private
  17154. function getRXFULLIE : TBits_1; inline;
  17155. function getRXFULLIF : TBits_1; inline;
  17156. function getRXHALFIE : TBits_1; inline;
  17157. function getRXHALFIF : TBits_1; inline;
  17158. function getRXNEMPTYIE : TBits_1; inline;
  17159. function getRXNEMPTYIF : TBits_1; inline;
  17160. function getRXOVFLIE : TBits_1; inline;
  17161. function getRXOVFLIF : TBits_1; inline;
  17162. function getTXEMPTYIE : TBits_1; inline;
  17163. function getTXEMPTYIF : TBits_1; inline;
  17164. function getTXHALFIE : TBits_1; inline;
  17165. function getTXHALFIF : TBits_1; inline;
  17166. function getTXNFULLIE : TBits_1; inline;
  17167. function getTXNFULLIF : TBits_1; inline;
  17168. function getw : TBits_32; inline;
  17169. procedure setRXFULLIE(thebits : TBits_1); inline;
  17170. procedure setRXFULLIF(thebits : TBits_1); inline;
  17171. procedure setRXHALFIE(thebits : TBits_1); inline;
  17172. procedure setRXHALFIF(thebits : TBits_1); inline;
  17173. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  17174. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  17175. procedure setRXOVFLIE(thebits : TBits_1); inline;
  17176. procedure setRXOVFLIF(thebits : TBits_1); inline;
  17177. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  17178. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  17179. procedure setTXHALFIE(thebits : TBits_1); inline;
  17180. procedure setTXHALFIF(thebits : TBits_1); inline;
  17181. procedure setTXNFULLIE(thebits : TBits_1); inline;
  17182. procedure setTXNFULLIF(thebits : TBits_1); inline;
  17183. procedure setw(thebits : TBits_32); inline;
  17184. public
  17185. procedure clearRXFULLIE; inline;
  17186. procedure clearRXFULLIF; inline;
  17187. procedure clearRXHALFIE; inline;
  17188. procedure clearRXHALFIF; inline;
  17189. procedure clearRXNEMPTYIE; inline;
  17190. procedure clearRXNEMPTYIF; inline;
  17191. procedure clearRXOVFLIE; inline;
  17192. procedure clearRXOVFLIF; inline;
  17193. procedure clearTXEMPTYIE; inline;
  17194. procedure clearTXEMPTYIF; inline;
  17195. procedure clearTXHALFIE; inline;
  17196. procedure clearTXHALFIF; inline;
  17197. procedure clearTXNFULLIE; inline;
  17198. procedure clearTXNFULLIF; inline;
  17199. procedure setRXFULLIE; inline;
  17200. procedure setRXFULLIF; inline;
  17201. procedure setRXHALFIE; inline;
  17202. procedure setRXHALFIF; inline;
  17203. procedure setRXNEMPTYIE; inline;
  17204. procedure setRXNEMPTYIF; inline;
  17205. procedure setRXOVFLIE; inline;
  17206. procedure setRXOVFLIF; inline;
  17207. procedure setTXEMPTYIE; inline;
  17208. procedure setTXEMPTYIF; inline;
  17209. procedure setTXHALFIE; inline;
  17210. procedure setTXHALFIF; inline;
  17211. procedure setTXNFULLIE; inline;
  17212. procedure setTXNFULLIF; inline;
  17213. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  17214. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  17215. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  17216. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  17217. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  17218. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  17219. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  17220. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  17221. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  17222. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  17223. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  17224. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  17225. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  17226. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  17227. property w : TBits_32 read getw write setw;
  17228. end;
  17229. TCAN1_C1FIFOCI1 = record
  17230. private
  17231. function getCFIFOCI : TBits_5; inline;
  17232. function getw : TBits_32; inline;
  17233. procedure setCFIFOCI(thebits : TBits_5); inline;
  17234. procedure setw(thebits : TBits_32); inline;
  17235. public
  17236. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  17237. property w : TBits_32 read getw write setw;
  17238. end;
  17239. TCAN1_C1FIFOCON2 = record
  17240. private
  17241. function getDONLY : TBits_1; inline;
  17242. function getFRESET : TBits_1; inline;
  17243. function getFSIZE : TBits_5; inline;
  17244. function getRTREN : TBits_1; inline;
  17245. function getTXABAT : TBits_1; inline;
  17246. function getTXEN : TBits_1; inline;
  17247. function getTXERR : TBits_1; inline;
  17248. function getTXLARB : TBits_1; inline;
  17249. function getTXPRI : TBits_2; inline;
  17250. function getTXREQ : TBits_1; inline;
  17251. function getUINC : TBits_1; inline;
  17252. function getw : TBits_32; inline;
  17253. procedure setDONLY(thebits : TBits_1); inline;
  17254. procedure setFRESET(thebits : TBits_1); inline;
  17255. procedure setFSIZE(thebits : TBits_5); inline;
  17256. procedure setRTREN(thebits : TBits_1); inline;
  17257. procedure setTXABAT(thebits : TBits_1); inline;
  17258. procedure setTXEN(thebits : TBits_1); inline;
  17259. procedure setTXERR(thebits : TBits_1); inline;
  17260. procedure setTXLARB(thebits : TBits_1); inline;
  17261. procedure setTXPRI(thebits : TBits_2); inline;
  17262. procedure setTXREQ(thebits : TBits_1); inline;
  17263. procedure setUINC(thebits : TBits_1); inline;
  17264. procedure setw(thebits : TBits_32); inline;
  17265. public
  17266. procedure clearDONLY; inline;
  17267. procedure clearFRESET; inline;
  17268. procedure clearRTREN; inline;
  17269. procedure clearTXABAT; inline;
  17270. procedure clearTXEN; inline;
  17271. procedure clearTXERR; inline;
  17272. procedure clearTXLARB; inline;
  17273. procedure clearTXREQ; inline;
  17274. procedure clearUINC; inline;
  17275. procedure setDONLY; inline;
  17276. procedure setFRESET; inline;
  17277. procedure setRTREN; inline;
  17278. procedure setTXABAT; inline;
  17279. procedure setTXEN; inline;
  17280. procedure setTXERR; inline;
  17281. procedure setTXLARB; inline;
  17282. procedure setTXREQ; inline;
  17283. procedure setUINC; inline;
  17284. property DONLY : TBits_1 read getDONLY write setDONLY;
  17285. property FRESET : TBits_1 read getFRESET write setFRESET;
  17286. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  17287. property RTREN : TBits_1 read getRTREN write setRTREN;
  17288. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  17289. property TXEN : TBits_1 read getTXEN write setTXEN;
  17290. property TXERR : TBits_1 read getTXERR write setTXERR;
  17291. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  17292. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  17293. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  17294. property UINC : TBits_1 read getUINC write setUINC;
  17295. property w : TBits_32 read getw write setw;
  17296. end;
  17297. TCAN1_C1FIFOINT2 = record
  17298. private
  17299. function getRXFULLIE : TBits_1; inline;
  17300. function getRXFULLIF : TBits_1; inline;
  17301. function getRXHALFIE : TBits_1; inline;
  17302. function getRXHALFIF : TBits_1; inline;
  17303. function getRXNEMPTYIE : TBits_1; inline;
  17304. function getRXNEMPTYIF : TBits_1; inline;
  17305. function getRXOVFLIE : TBits_1; inline;
  17306. function getRXOVFLIF : TBits_1; inline;
  17307. function getTXEMPTYIE : TBits_1; inline;
  17308. function getTXEMPTYIF : TBits_1; inline;
  17309. function getTXHALFIE : TBits_1; inline;
  17310. function getTXHALFIF : TBits_1; inline;
  17311. function getTXNFULLIE : TBits_1; inline;
  17312. function getTXNFULLIF : TBits_1; inline;
  17313. function getw : TBits_32; inline;
  17314. procedure setRXFULLIE(thebits : TBits_1); inline;
  17315. procedure setRXFULLIF(thebits : TBits_1); inline;
  17316. procedure setRXHALFIE(thebits : TBits_1); inline;
  17317. procedure setRXHALFIF(thebits : TBits_1); inline;
  17318. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  17319. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  17320. procedure setRXOVFLIE(thebits : TBits_1); inline;
  17321. procedure setRXOVFLIF(thebits : TBits_1); inline;
  17322. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  17323. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  17324. procedure setTXHALFIE(thebits : TBits_1); inline;
  17325. procedure setTXHALFIF(thebits : TBits_1); inline;
  17326. procedure setTXNFULLIE(thebits : TBits_1); inline;
  17327. procedure setTXNFULLIF(thebits : TBits_1); inline;
  17328. procedure setw(thebits : TBits_32); inline;
  17329. public
  17330. procedure clearRXFULLIE; inline;
  17331. procedure clearRXFULLIF; inline;
  17332. procedure clearRXHALFIE; inline;
  17333. procedure clearRXHALFIF; inline;
  17334. procedure clearRXNEMPTYIE; inline;
  17335. procedure clearRXNEMPTYIF; inline;
  17336. procedure clearRXOVFLIE; inline;
  17337. procedure clearRXOVFLIF; inline;
  17338. procedure clearTXEMPTYIE; inline;
  17339. procedure clearTXEMPTYIF; inline;
  17340. procedure clearTXHALFIE; inline;
  17341. procedure clearTXHALFIF; inline;
  17342. procedure clearTXNFULLIE; inline;
  17343. procedure clearTXNFULLIF; inline;
  17344. procedure setRXFULLIE; inline;
  17345. procedure setRXFULLIF; inline;
  17346. procedure setRXHALFIE; inline;
  17347. procedure setRXHALFIF; inline;
  17348. procedure setRXNEMPTYIE; inline;
  17349. procedure setRXNEMPTYIF; inline;
  17350. procedure setRXOVFLIE; inline;
  17351. procedure setRXOVFLIF; inline;
  17352. procedure setTXEMPTYIE; inline;
  17353. procedure setTXEMPTYIF; inline;
  17354. procedure setTXHALFIE; inline;
  17355. procedure setTXHALFIF; inline;
  17356. procedure setTXNFULLIE; inline;
  17357. procedure setTXNFULLIF; inline;
  17358. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  17359. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  17360. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  17361. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  17362. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  17363. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  17364. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  17365. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  17366. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  17367. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  17368. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  17369. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  17370. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  17371. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  17372. property w : TBits_32 read getw write setw;
  17373. end;
  17374. TCAN1_C1FIFOCI2 = record
  17375. private
  17376. function getCFIFOCI : TBits_5; inline;
  17377. function getw : TBits_32; inline;
  17378. procedure setCFIFOCI(thebits : TBits_5); inline;
  17379. procedure setw(thebits : TBits_32); inline;
  17380. public
  17381. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  17382. property w : TBits_32 read getw write setw;
  17383. end;
  17384. TCAN1_C1FIFOCON3 = record
  17385. private
  17386. function getDONLY : TBits_1; inline;
  17387. function getFRESET : TBits_1; inline;
  17388. function getFSIZE : TBits_5; inline;
  17389. function getRTREN : TBits_1; inline;
  17390. function getTXABAT : TBits_1; inline;
  17391. function getTXEN : TBits_1; inline;
  17392. function getTXERR : TBits_1; inline;
  17393. function getTXLARB : TBits_1; inline;
  17394. function getTXPRI : TBits_2; inline;
  17395. function getTXREQ : TBits_1; inline;
  17396. function getUINC : TBits_1; inline;
  17397. function getw : TBits_32; inline;
  17398. procedure setDONLY(thebits : TBits_1); inline;
  17399. procedure setFRESET(thebits : TBits_1); inline;
  17400. procedure setFSIZE(thebits : TBits_5); inline;
  17401. procedure setRTREN(thebits : TBits_1); inline;
  17402. procedure setTXABAT(thebits : TBits_1); inline;
  17403. procedure setTXEN(thebits : TBits_1); inline;
  17404. procedure setTXERR(thebits : TBits_1); inline;
  17405. procedure setTXLARB(thebits : TBits_1); inline;
  17406. procedure setTXPRI(thebits : TBits_2); inline;
  17407. procedure setTXREQ(thebits : TBits_1); inline;
  17408. procedure setUINC(thebits : TBits_1); inline;
  17409. procedure setw(thebits : TBits_32); inline;
  17410. public
  17411. procedure clearDONLY; inline;
  17412. procedure clearFRESET; inline;
  17413. procedure clearRTREN; inline;
  17414. procedure clearTXABAT; inline;
  17415. procedure clearTXEN; inline;
  17416. procedure clearTXERR; inline;
  17417. procedure clearTXLARB; inline;
  17418. procedure clearTXREQ; inline;
  17419. procedure clearUINC; inline;
  17420. procedure setDONLY; inline;
  17421. procedure setFRESET; inline;
  17422. procedure setRTREN; inline;
  17423. procedure setTXABAT; inline;
  17424. procedure setTXEN; inline;
  17425. procedure setTXERR; inline;
  17426. procedure setTXLARB; inline;
  17427. procedure setTXREQ; inline;
  17428. procedure setUINC; inline;
  17429. property DONLY : TBits_1 read getDONLY write setDONLY;
  17430. property FRESET : TBits_1 read getFRESET write setFRESET;
  17431. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  17432. property RTREN : TBits_1 read getRTREN write setRTREN;
  17433. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  17434. property TXEN : TBits_1 read getTXEN write setTXEN;
  17435. property TXERR : TBits_1 read getTXERR write setTXERR;
  17436. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  17437. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  17438. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  17439. property UINC : TBits_1 read getUINC write setUINC;
  17440. property w : TBits_32 read getw write setw;
  17441. end;
  17442. TCAN1_C1FIFOINT3 = record
  17443. private
  17444. function getRXFULLIE : TBits_1; inline;
  17445. function getRXFULLIF : TBits_1; inline;
  17446. function getRXHALFIE : TBits_1; inline;
  17447. function getRXHALFIF : TBits_1; inline;
  17448. function getRXNEMPTYIE : TBits_1; inline;
  17449. function getRXNEMPTYIF : TBits_1; inline;
  17450. function getRXOVFLIE : TBits_1; inline;
  17451. function getRXOVFLIF : TBits_1; inline;
  17452. function getTXEMPTYIE : TBits_1; inline;
  17453. function getTXEMPTYIF : TBits_1; inline;
  17454. function getTXHALFIE : TBits_1; inline;
  17455. function getTXHALFIF : TBits_1; inline;
  17456. function getTXNFULLIE : TBits_1; inline;
  17457. function getTXNFULLIF : TBits_1; inline;
  17458. function getw : TBits_32; inline;
  17459. procedure setRXFULLIE(thebits : TBits_1); inline;
  17460. procedure setRXFULLIF(thebits : TBits_1); inline;
  17461. procedure setRXHALFIE(thebits : TBits_1); inline;
  17462. procedure setRXHALFIF(thebits : TBits_1); inline;
  17463. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  17464. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  17465. procedure setRXOVFLIE(thebits : TBits_1); inline;
  17466. procedure setRXOVFLIF(thebits : TBits_1); inline;
  17467. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  17468. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  17469. procedure setTXHALFIE(thebits : TBits_1); inline;
  17470. procedure setTXHALFIF(thebits : TBits_1); inline;
  17471. procedure setTXNFULLIE(thebits : TBits_1); inline;
  17472. procedure setTXNFULLIF(thebits : TBits_1); inline;
  17473. procedure setw(thebits : TBits_32); inline;
  17474. public
  17475. procedure clearRXFULLIE; inline;
  17476. procedure clearRXFULLIF; inline;
  17477. procedure clearRXHALFIE; inline;
  17478. procedure clearRXHALFIF; inline;
  17479. procedure clearRXNEMPTYIE; inline;
  17480. procedure clearRXNEMPTYIF; inline;
  17481. procedure clearRXOVFLIE; inline;
  17482. procedure clearRXOVFLIF; inline;
  17483. procedure clearTXEMPTYIE; inline;
  17484. procedure clearTXEMPTYIF; inline;
  17485. procedure clearTXHALFIE; inline;
  17486. procedure clearTXHALFIF; inline;
  17487. procedure clearTXNFULLIE; inline;
  17488. procedure clearTXNFULLIF; inline;
  17489. procedure setRXFULLIE; inline;
  17490. procedure setRXFULLIF; inline;
  17491. procedure setRXHALFIE; inline;
  17492. procedure setRXHALFIF; inline;
  17493. procedure setRXNEMPTYIE; inline;
  17494. procedure setRXNEMPTYIF; inline;
  17495. procedure setRXOVFLIE; inline;
  17496. procedure setRXOVFLIF; inline;
  17497. procedure setTXEMPTYIE; inline;
  17498. procedure setTXEMPTYIF; inline;
  17499. procedure setTXHALFIE; inline;
  17500. procedure setTXHALFIF; inline;
  17501. procedure setTXNFULLIE; inline;
  17502. procedure setTXNFULLIF; inline;
  17503. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  17504. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  17505. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  17506. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  17507. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  17508. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  17509. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  17510. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  17511. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  17512. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  17513. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  17514. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  17515. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  17516. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  17517. property w : TBits_32 read getw write setw;
  17518. end;
  17519. TCAN1_C1FIFOCI3 = record
  17520. private
  17521. function getCFIFOCI : TBits_5; inline;
  17522. function getw : TBits_32; inline;
  17523. procedure setCFIFOCI(thebits : TBits_5); inline;
  17524. procedure setw(thebits : TBits_32); inline;
  17525. public
  17526. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  17527. property w : TBits_32 read getw write setw;
  17528. end;
  17529. TCAN1_C1FIFOCON4 = record
  17530. private
  17531. function getDONLY : TBits_1; inline;
  17532. function getFRESET : TBits_1; inline;
  17533. function getFSIZE : TBits_5; inline;
  17534. function getRTREN : TBits_1; inline;
  17535. function getTXABAT : TBits_1; inline;
  17536. function getTXEN : TBits_1; inline;
  17537. function getTXERR : TBits_1; inline;
  17538. function getTXLARB : TBits_1; inline;
  17539. function getTXPRI : TBits_2; inline;
  17540. function getTXREQ : TBits_1; inline;
  17541. function getUINC : TBits_1; inline;
  17542. function getw : TBits_32; inline;
  17543. procedure setDONLY(thebits : TBits_1); inline;
  17544. procedure setFRESET(thebits : TBits_1); inline;
  17545. procedure setFSIZE(thebits : TBits_5); inline;
  17546. procedure setRTREN(thebits : TBits_1); inline;
  17547. procedure setTXABAT(thebits : TBits_1); inline;
  17548. procedure setTXEN(thebits : TBits_1); inline;
  17549. procedure setTXERR(thebits : TBits_1); inline;
  17550. procedure setTXLARB(thebits : TBits_1); inline;
  17551. procedure setTXPRI(thebits : TBits_2); inline;
  17552. procedure setTXREQ(thebits : TBits_1); inline;
  17553. procedure setUINC(thebits : TBits_1); inline;
  17554. procedure setw(thebits : TBits_32); inline;
  17555. public
  17556. procedure clearDONLY; inline;
  17557. procedure clearFRESET; inline;
  17558. procedure clearRTREN; inline;
  17559. procedure clearTXABAT; inline;
  17560. procedure clearTXEN; inline;
  17561. procedure clearTXERR; inline;
  17562. procedure clearTXLARB; inline;
  17563. procedure clearTXREQ; inline;
  17564. procedure clearUINC; inline;
  17565. procedure setDONLY; inline;
  17566. procedure setFRESET; inline;
  17567. procedure setRTREN; inline;
  17568. procedure setTXABAT; inline;
  17569. procedure setTXEN; inline;
  17570. procedure setTXERR; inline;
  17571. procedure setTXLARB; inline;
  17572. procedure setTXREQ; inline;
  17573. procedure setUINC; inline;
  17574. property DONLY : TBits_1 read getDONLY write setDONLY;
  17575. property FRESET : TBits_1 read getFRESET write setFRESET;
  17576. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  17577. property RTREN : TBits_1 read getRTREN write setRTREN;
  17578. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  17579. property TXEN : TBits_1 read getTXEN write setTXEN;
  17580. property TXERR : TBits_1 read getTXERR write setTXERR;
  17581. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  17582. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  17583. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  17584. property UINC : TBits_1 read getUINC write setUINC;
  17585. property w : TBits_32 read getw write setw;
  17586. end;
  17587. TCAN1_C1FIFOINT4 = record
  17588. private
  17589. function getRXFULLIE : TBits_1; inline;
  17590. function getRXFULLIF : TBits_1; inline;
  17591. function getRXHALFIE : TBits_1; inline;
  17592. function getRXHALFIF : TBits_1; inline;
  17593. function getRXNEMPTYIE : TBits_1; inline;
  17594. function getRXNEMPTYIF : TBits_1; inline;
  17595. function getRXOVFLIE : TBits_1; inline;
  17596. function getRXOVFLIF : TBits_1; inline;
  17597. function getTXEMPTYIE : TBits_1; inline;
  17598. function getTXEMPTYIF : TBits_1; inline;
  17599. function getTXHALFIE : TBits_1; inline;
  17600. function getTXHALFIF : TBits_1; inline;
  17601. function getTXNFULLIE : TBits_1; inline;
  17602. function getTXNFULLIF : TBits_1; inline;
  17603. function getw : TBits_32; inline;
  17604. procedure setRXFULLIE(thebits : TBits_1); inline;
  17605. procedure setRXFULLIF(thebits : TBits_1); inline;
  17606. procedure setRXHALFIE(thebits : TBits_1); inline;
  17607. procedure setRXHALFIF(thebits : TBits_1); inline;
  17608. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  17609. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  17610. procedure setRXOVFLIE(thebits : TBits_1); inline;
  17611. procedure setRXOVFLIF(thebits : TBits_1); inline;
  17612. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  17613. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  17614. procedure setTXHALFIE(thebits : TBits_1); inline;
  17615. procedure setTXHALFIF(thebits : TBits_1); inline;
  17616. procedure setTXNFULLIE(thebits : TBits_1); inline;
  17617. procedure setTXNFULLIF(thebits : TBits_1); inline;
  17618. procedure setw(thebits : TBits_32); inline;
  17619. public
  17620. procedure clearRXFULLIE; inline;
  17621. procedure clearRXFULLIF; inline;
  17622. procedure clearRXHALFIE; inline;
  17623. procedure clearRXHALFIF; inline;
  17624. procedure clearRXNEMPTYIE; inline;
  17625. procedure clearRXNEMPTYIF; inline;
  17626. procedure clearRXOVFLIE; inline;
  17627. procedure clearRXOVFLIF; inline;
  17628. procedure clearTXEMPTYIE; inline;
  17629. procedure clearTXEMPTYIF; inline;
  17630. procedure clearTXHALFIE; inline;
  17631. procedure clearTXHALFIF; inline;
  17632. procedure clearTXNFULLIE; inline;
  17633. procedure clearTXNFULLIF; inline;
  17634. procedure setRXFULLIE; inline;
  17635. procedure setRXFULLIF; inline;
  17636. procedure setRXHALFIE; inline;
  17637. procedure setRXHALFIF; inline;
  17638. procedure setRXNEMPTYIE; inline;
  17639. procedure setRXNEMPTYIF; inline;
  17640. procedure setRXOVFLIE; inline;
  17641. procedure setRXOVFLIF; inline;
  17642. procedure setTXEMPTYIE; inline;
  17643. procedure setTXEMPTYIF; inline;
  17644. procedure setTXHALFIE; inline;
  17645. procedure setTXHALFIF; inline;
  17646. procedure setTXNFULLIE; inline;
  17647. procedure setTXNFULLIF; inline;
  17648. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  17649. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  17650. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  17651. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  17652. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  17653. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  17654. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  17655. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  17656. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  17657. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  17658. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  17659. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  17660. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  17661. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  17662. property w : TBits_32 read getw write setw;
  17663. end;
  17664. TCAN1_C1FIFOCI4 = record
  17665. private
  17666. function getCFIFOCI : TBits_5; inline;
  17667. function getw : TBits_32; inline;
  17668. procedure setCFIFOCI(thebits : TBits_5); inline;
  17669. procedure setw(thebits : TBits_32); inline;
  17670. public
  17671. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  17672. property w : TBits_32 read getw write setw;
  17673. end;
  17674. TCAN1_C1FIFOCON5 = record
  17675. private
  17676. function getDONLY : TBits_1; inline;
  17677. function getFRESET : TBits_1; inline;
  17678. function getFSIZE : TBits_5; inline;
  17679. function getRTREN : TBits_1; inline;
  17680. function getTXABAT : TBits_1; inline;
  17681. function getTXEN : TBits_1; inline;
  17682. function getTXERR : TBits_1; inline;
  17683. function getTXLARB : TBits_1; inline;
  17684. function getTXPRI : TBits_2; inline;
  17685. function getTXREQ : TBits_1; inline;
  17686. function getUINC : TBits_1; inline;
  17687. function getw : TBits_32; inline;
  17688. procedure setDONLY(thebits : TBits_1); inline;
  17689. procedure setFRESET(thebits : TBits_1); inline;
  17690. procedure setFSIZE(thebits : TBits_5); inline;
  17691. procedure setRTREN(thebits : TBits_1); inline;
  17692. procedure setTXABAT(thebits : TBits_1); inline;
  17693. procedure setTXEN(thebits : TBits_1); inline;
  17694. procedure setTXERR(thebits : TBits_1); inline;
  17695. procedure setTXLARB(thebits : TBits_1); inline;
  17696. procedure setTXPRI(thebits : TBits_2); inline;
  17697. procedure setTXREQ(thebits : TBits_1); inline;
  17698. procedure setUINC(thebits : TBits_1); inline;
  17699. procedure setw(thebits : TBits_32); inline;
  17700. public
  17701. procedure clearDONLY; inline;
  17702. procedure clearFRESET; inline;
  17703. procedure clearRTREN; inline;
  17704. procedure clearTXABAT; inline;
  17705. procedure clearTXEN; inline;
  17706. procedure clearTXERR; inline;
  17707. procedure clearTXLARB; inline;
  17708. procedure clearTXREQ; inline;
  17709. procedure clearUINC; inline;
  17710. procedure setDONLY; inline;
  17711. procedure setFRESET; inline;
  17712. procedure setRTREN; inline;
  17713. procedure setTXABAT; inline;
  17714. procedure setTXEN; inline;
  17715. procedure setTXERR; inline;
  17716. procedure setTXLARB; inline;
  17717. procedure setTXREQ; inline;
  17718. procedure setUINC; inline;
  17719. property DONLY : TBits_1 read getDONLY write setDONLY;
  17720. property FRESET : TBits_1 read getFRESET write setFRESET;
  17721. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  17722. property RTREN : TBits_1 read getRTREN write setRTREN;
  17723. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  17724. property TXEN : TBits_1 read getTXEN write setTXEN;
  17725. property TXERR : TBits_1 read getTXERR write setTXERR;
  17726. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  17727. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  17728. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  17729. property UINC : TBits_1 read getUINC write setUINC;
  17730. property w : TBits_32 read getw write setw;
  17731. end;
  17732. TCAN1_C1FIFOINT5 = record
  17733. private
  17734. function getRXFULLIE : TBits_1; inline;
  17735. function getRXFULLIF : TBits_1; inline;
  17736. function getRXHALFIE : TBits_1; inline;
  17737. function getRXHALFIF : TBits_1; inline;
  17738. function getRXNEMPTYIE : TBits_1; inline;
  17739. function getRXNEMPTYIF : TBits_1; inline;
  17740. function getRXOVFLIE : TBits_1; inline;
  17741. function getRXOVFLIF : TBits_1; inline;
  17742. function getTXEMPTYIE : TBits_1; inline;
  17743. function getTXEMPTYIF : TBits_1; inline;
  17744. function getTXHALFIE : TBits_1; inline;
  17745. function getTXHALFIF : TBits_1; inline;
  17746. function getTXNFULLIE : TBits_1; inline;
  17747. function getTXNFULLIF : TBits_1; inline;
  17748. function getw : TBits_32; inline;
  17749. procedure setRXFULLIE(thebits : TBits_1); inline;
  17750. procedure setRXFULLIF(thebits : TBits_1); inline;
  17751. procedure setRXHALFIE(thebits : TBits_1); inline;
  17752. procedure setRXHALFIF(thebits : TBits_1); inline;
  17753. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  17754. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  17755. procedure setRXOVFLIE(thebits : TBits_1); inline;
  17756. procedure setRXOVFLIF(thebits : TBits_1); inline;
  17757. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  17758. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  17759. procedure setTXHALFIE(thebits : TBits_1); inline;
  17760. procedure setTXHALFIF(thebits : TBits_1); inline;
  17761. procedure setTXNFULLIE(thebits : TBits_1); inline;
  17762. procedure setTXNFULLIF(thebits : TBits_1); inline;
  17763. procedure setw(thebits : TBits_32); inline;
  17764. public
  17765. procedure clearRXFULLIE; inline;
  17766. procedure clearRXFULLIF; inline;
  17767. procedure clearRXHALFIE; inline;
  17768. procedure clearRXHALFIF; inline;
  17769. procedure clearRXNEMPTYIE; inline;
  17770. procedure clearRXNEMPTYIF; inline;
  17771. procedure clearRXOVFLIE; inline;
  17772. procedure clearRXOVFLIF; inline;
  17773. procedure clearTXEMPTYIE; inline;
  17774. procedure clearTXEMPTYIF; inline;
  17775. procedure clearTXHALFIE; inline;
  17776. procedure clearTXHALFIF; inline;
  17777. procedure clearTXNFULLIE; inline;
  17778. procedure clearTXNFULLIF; inline;
  17779. procedure setRXFULLIE; inline;
  17780. procedure setRXFULLIF; inline;
  17781. procedure setRXHALFIE; inline;
  17782. procedure setRXHALFIF; inline;
  17783. procedure setRXNEMPTYIE; inline;
  17784. procedure setRXNEMPTYIF; inline;
  17785. procedure setRXOVFLIE; inline;
  17786. procedure setRXOVFLIF; inline;
  17787. procedure setTXEMPTYIE; inline;
  17788. procedure setTXEMPTYIF; inline;
  17789. procedure setTXHALFIE; inline;
  17790. procedure setTXHALFIF; inline;
  17791. procedure setTXNFULLIE; inline;
  17792. procedure setTXNFULLIF; inline;
  17793. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  17794. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  17795. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  17796. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  17797. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  17798. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  17799. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  17800. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  17801. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  17802. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  17803. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  17804. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  17805. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  17806. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  17807. property w : TBits_32 read getw write setw;
  17808. end;
  17809. TCAN1_C1FIFOCI5 = record
  17810. private
  17811. function getCFIFOCI : TBits_5; inline;
  17812. function getw : TBits_32; inline;
  17813. procedure setCFIFOCI(thebits : TBits_5); inline;
  17814. procedure setw(thebits : TBits_32); inline;
  17815. public
  17816. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  17817. property w : TBits_32 read getw write setw;
  17818. end;
  17819. TCAN1_C1FIFOCON6 = record
  17820. private
  17821. function getDONLY : TBits_1; inline;
  17822. function getFRESET : TBits_1; inline;
  17823. function getFSIZE : TBits_5; inline;
  17824. function getRTREN : TBits_1; inline;
  17825. function getTXABAT : TBits_1; inline;
  17826. function getTXEN : TBits_1; inline;
  17827. function getTXERR : TBits_1; inline;
  17828. function getTXLARB : TBits_1; inline;
  17829. function getTXPRI : TBits_2; inline;
  17830. function getTXREQ : TBits_1; inline;
  17831. function getUINC : TBits_1; inline;
  17832. function getw : TBits_32; inline;
  17833. procedure setDONLY(thebits : TBits_1); inline;
  17834. procedure setFRESET(thebits : TBits_1); inline;
  17835. procedure setFSIZE(thebits : TBits_5); inline;
  17836. procedure setRTREN(thebits : TBits_1); inline;
  17837. procedure setTXABAT(thebits : TBits_1); inline;
  17838. procedure setTXEN(thebits : TBits_1); inline;
  17839. procedure setTXERR(thebits : TBits_1); inline;
  17840. procedure setTXLARB(thebits : TBits_1); inline;
  17841. procedure setTXPRI(thebits : TBits_2); inline;
  17842. procedure setTXREQ(thebits : TBits_1); inline;
  17843. procedure setUINC(thebits : TBits_1); inline;
  17844. procedure setw(thebits : TBits_32); inline;
  17845. public
  17846. procedure clearDONLY; inline;
  17847. procedure clearFRESET; inline;
  17848. procedure clearRTREN; inline;
  17849. procedure clearTXABAT; inline;
  17850. procedure clearTXEN; inline;
  17851. procedure clearTXERR; inline;
  17852. procedure clearTXLARB; inline;
  17853. procedure clearTXREQ; inline;
  17854. procedure clearUINC; inline;
  17855. procedure setDONLY; inline;
  17856. procedure setFRESET; inline;
  17857. procedure setRTREN; inline;
  17858. procedure setTXABAT; inline;
  17859. procedure setTXEN; inline;
  17860. procedure setTXERR; inline;
  17861. procedure setTXLARB; inline;
  17862. procedure setTXREQ; inline;
  17863. procedure setUINC; inline;
  17864. property DONLY : TBits_1 read getDONLY write setDONLY;
  17865. property FRESET : TBits_1 read getFRESET write setFRESET;
  17866. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  17867. property RTREN : TBits_1 read getRTREN write setRTREN;
  17868. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  17869. property TXEN : TBits_1 read getTXEN write setTXEN;
  17870. property TXERR : TBits_1 read getTXERR write setTXERR;
  17871. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  17872. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  17873. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  17874. property UINC : TBits_1 read getUINC write setUINC;
  17875. property w : TBits_32 read getw write setw;
  17876. end;
  17877. TCAN1_C1FIFOINT6 = record
  17878. private
  17879. function getRXFULLIE : TBits_1; inline;
  17880. function getRXFULLIF : TBits_1; inline;
  17881. function getRXHALFIE : TBits_1; inline;
  17882. function getRXHALFIF : TBits_1; inline;
  17883. function getRXNEMPTYIE : TBits_1; inline;
  17884. function getRXNEMPTYIF : TBits_1; inline;
  17885. function getRXOVFLIE : TBits_1; inline;
  17886. function getRXOVFLIF : TBits_1; inline;
  17887. function getTXEMPTYIE : TBits_1; inline;
  17888. function getTXEMPTYIF : TBits_1; inline;
  17889. function getTXHALFIE : TBits_1; inline;
  17890. function getTXHALFIF : TBits_1; inline;
  17891. function getTXNFULLIE : TBits_1; inline;
  17892. function getTXNFULLIF : TBits_1; inline;
  17893. function getw : TBits_32; inline;
  17894. procedure setRXFULLIE(thebits : TBits_1); inline;
  17895. procedure setRXFULLIF(thebits : TBits_1); inline;
  17896. procedure setRXHALFIE(thebits : TBits_1); inline;
  17897. procedure setRXHALFIF(thebits : TBits_1); inline;
  17898. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  17899. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  17900. procedure setRXOVFLIE(thebits : TBits_1); inline;
  17901. procedure setRXOVFLIF(thebits : TBits_1); inline;
  17902. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  17903. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  17904. procedure setTXHALFIE(thebits : TBits_1); inline;
  17905. procedure setTXHALFIF(thebits : TBits_1); inline;
  17906. procedure setTXNFULLIE(thebits : TBits_1); inline;
  17907. procedure setTXNFULLIF(thebits : TBits_1); inline;
  17908. procedure setw(thebits : TBits_32); inline;
  17909. public
  17910. procedure clearRXFULLIE; inline;
  17911. procedure clearRXFULLIF; inline;
  17912. procedure clearRXHALFIE; inline;
  17913. procedure clearRXHALFIF; inline;
  17914. procedure clearRXNEMPTYIE; inline;
  17915. procedure clearRXNEMPTYIF; inline;
  17916. procedure clearRXOVFLIE; inline;
  17917. procedure clearRXOVFLIF; inline;
  17918. procedure clearTXEMPTYIE; inline;
  17919. procedure clearTXEMPTYIF; inline;
  17920. procedure clearTXHALFIE; inline;
  17921. procedure clearTXHALFIF; inline;
  17922. procedure clearTXNFULLIE; inline;
  17923. procedure clearTXNFULLIF; inline;
  17924. procedure setRXFULLIE; inline;
  17925. procedure setRXFULLIF; inline;
  17926. procedure setRXHALFIE; inline;
  17927. procedure setRXHALFIF; inline;
  17928. procedure setRXNEMPTYIE; inline;
  17929. procedure setRXNEMPTYIF; inline;
  17930. procedure setRXOVFLIE; inline;
  17931. procedure setRXOVFLIF; inline;
  17932. procedure setTXEMPTYIE; inline;
  17933. procedure setTXEMPTYIF; inline;
  17934. procedure setTXHALFIE; inline;
  17935. procedure setTXHALFIF; inline;
  17936. procedure setTXNFULLIE; inline;
  17937. procedure setTXNFULLIF; inline;
  17938. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  17939. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  17940. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  17941. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  17942. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  17943. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  17944. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  17945. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  17946. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  17947. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  17948. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  17949. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  17950. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  17951. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  17952. property w : TBits_32 read getw write setw;
  17953. end;
  17954. TCAN1_C1FIFOCI6 = record
  17955. private
  17956. function getCFIFOCI : TBits_5; inline;
  17957. function getw : TBits_32; inline;
  17958. procedure setCFIFOCI(thebits : TBits_5); inline;
  17959. procedure setw(thebits : TBits_32); inline;
  17960. public
  17961. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  17962. property w : TBits_32 read getw write setw;
  17963. end;
  17964. TCAN1_C1FIFOCON7 = record
  17965. private
  17966. function getDONLY : TBits_1; inline;
  17967. function getFRESET : TBits_1; inline;
  17968. function getFSIZE : TBits_5; inline;
  17969. function getRTREN : TBits_1; inline;
  17970. function getTXABAT : TBits_1; inline;
  17971. function getTXEN : TBits_1; inline;
  17972. function getTXERR : TBits_1; inline;
  17973. function getTXLARB : TBits_1; inline;
  17974. function getTXPRI : TBits_2; inline;
  17975. function getTXREQ : TBits_1; inline;
  17976. function getUINC : TBits_1; inline;
  17977. function getw : TBits_32; inline;
  17978. procedure setDONLY(thebits : TBits_1); inline;
  17979. procedure setFRESET(thebits : TBits_1); inline;
  17980. procedure setFSIZE(thebits : TBits_5); inline;
  17981. procedure setRTREN(thebits : TBits_1); inline;
  17982. procedure setTXABAT(thebits : TBits_1); inline;
  17983. procedure setTXEN(thebits : TBits_1); inline;
  17984. procedure setTXERR(thebits : TBits_1); inline;
  17985. procedure setTXLARB(thebits : TBits_1); inline;
  17986. procedure setTXPRI(thebits : TBits_2); inline;
  17987. procedure setTXREQ(thebits : TBits_1); inline;
  17988. procedure setUINC(thebits : TBits_1); inline;
  17989. procedure setw(thebits : TBits_32); inline;
  17990. public
  17991. procedure clearDONLY; inline;
  17992. procedure clearFRESET; inline;
  17993. procedure clearRTREN; inline;
  17994. procedure clearTXABAT; inline;
  17995. procedure clearTXEN; inline;
  17996. procedure clearTXERR; inline;
  17997. procedure clearTXLARB; inline;
  17998. procedure clearTXREQ; inline;
  17999. procedure clearUINC; inline;
  18000. procedure setDONLY; inline;
  18001. procedure setFRESET; inline;
  18002. procedure setRTREN; inline;
  18003. procedure setTXABAT; inline;
  18004. procedure setTXEN; inline;
  18005. procedure setTXERR; inline;
  18006. procedure setTXLARB; inline;
  18007. procedure setTXREQ; inline;
  18008. procedure setUINC; inline;
  18009. property DONLY : TBits_1 read getDONLY write setDONLY;
  18010. property FRESET : TBits_1 read getFRESET write setFRESET;
  18011. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  18012. property RTREN : TBits_1 read getRTREN write setRTREN;
  18013. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  18014. property TXEN : TBits_1 read getTXEN write setTXEN;
  18015. property TXERR : TBits_1 read getTXERR write setTXERR;
  18016. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  18017. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  18018. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  18019. property UINC : TBits_1 read getUINC write setUINC;
  18020. property w : TBits_32 read getw write setw;
  18021. end;
  18022. TCAN1_C1FIFOINT7 = record
  18023. private
  18024. function getRXFULLIE : TBits_1; inline;
  18025. function getRXFULLIF : TBits_1; inline;
  18026. function getRXHALFIE : TBits_1; inline;
  18027. function getRXHALFIF : TBits_1; inline;
  18028. function getRXNEMPTYIE : TBits_1; inline;
  18029. function getRXNEMPTYIF : TBits_1; inline;
  18030. function getRXOVFLIE : TBits_1; inline;
  18031. function getRXOVFLIF : TBits_1; inline;
  18032. function getTXEMPTYIE : TBits_1; inline;
  18033. function getTXEMPTYIF : TBits_1; inline;
  18034. function getTXHALFIE : TBits_1; inline;
  18035. function getTXHALFIF : TBits_1; inline;
  18036. function getTXNFULLIE : TBits_1; inline;
  18037. function getTXNFULLIF : TBits_1; inline;
  18038. function getw : TBits_32; inline;
  18039. procedure setRXFULLIE(thebits : TBits_1); inline;
  18040. procedure setRXFULLIF(thebits : TBits_1); inline;
  18041. procedure setRXHALFIE(thebits : TBits_1); inline;
  18042. procedure setRXHALFIF(thebits : TBits_1); inline;
  18043. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  18044. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  18045. procedure setRXOVFLIE(thebits : TBits_1); inline;
  18046. procedure setRXOVFLIF(thebits : TBits_1); inline;
  18047. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  18048. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  18049. procedure setTXHALFIE(thebits : TBits_1); inline;
  18050. procedure setTXHALFIF(thebits : TBits_1); inline;
  18051. procedure setTXNFULLIE(thebits : TBits_1); inline;
  18052. procedure setTXNFULLIF(thebits : TBits_1); inline;
  18053. procedure setw(thebits : TBits_32); inline;
  18054. public
  18055. procedure clearRXFULLIE; inline;
  18056. procedure clearRXFULLIF; inline;
  18057. procedure clearRXHALFIE; inline;
  18058. procedure clearRXHALFIF; inline;
  18059. procedure clearRXNEMPTYIE; inline;
  18060. procedure clearRXNEMPTYIF; inline;
  18061. procedure clearRXOVFLIE; inline;
  18062. procedure clearRXOVFLIF; inline;
  18063. procedure clearTXEMPTYIE; inline;
  18064. procedure clearTXEMPTYIF; inline;
  18065. procedure clearTXHALFIE; inline;
  18066. procedure clearTXHALFIF; inline;
  18067. procedure clearTXNFULLIE; inline;
  18068. procedure clearTXNFULLIF; inline;
  18069. procedure setRXFULLIE; inline;
  18070. procedure setRXFULLIF; inline;
  18071. procedure setRXHALFIE; inline;
  18072. procedure setRXHALFIF; inline;
  18073. procedure setRXNEMPTYIE; inline;
  18074. procedure setRXNEMPTYIF; inline;
  18075. procedure setRXOVFLIE; inline;
  18076. procedure setRXOVFLIF; inline;
  18077. procedure setTXEMPTYIE; inline;
  18078. procedure setTXEMPTYIF; inline;
  18079. procedure setTXHALFIE; inline;
  18080. procedure setTXHALFIF; inline;
  18081. procedure setTXNFULLIE; inline;
  18082. procedure setTXNFULLIF; inline;
  18083. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  18084. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  18085. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  18086. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  18087. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  18088. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  18089. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  18090. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  18091. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  18092. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  18093. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  18094. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  18095. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  18096. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  18097. property w : TBits_32 read getw write setw;
  18098. end;
  18099. TCAN1_C1FIFOCI7 = record
  18100. private
  18101. function getCFIFOCI : TBits_5; inline;
  18102. function getw : TBits_32; inline;
  18103. procedure setCFIFOCI(thebits : TBits_5); inline;
  18104. procedure setw(thebits : TBits_32); inline;
  18105. public
  18106. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  18107. property w : TBits_32 read getw write setw;
  18108. end;
  18109. TCAN1_C1FIFOCON8 = record
  18110. private
  18111. function getDONLY : TBits_1; inline;
  18112. function getFRESET : TBits_1; inline;
  18113. function getFSIZE : TBits_5; inline;
  18114. function getRTREN : TBits_1; inline;
  18115. function getTXABAT : TBits_1; inline;
  18116. function getTXEN : TBits_1; inline;
  18117. function getTXERR : TBits_1; inline;
  18118. function getTXLARB : TBits_1; inline;
  18119. function getTXPRI : TBits_2; inline;
  18120. function getTXREQ : TBits_1; inline;
  18121. function getUINC : TBits_1; inline;
  18122. function getw : TBits_32; inline;
  18123. procedure setDONLY(thebits : TBits_1); inline;
  18124. procedure setFRESET(thebits : TBits_1); inline;
  18125. procedure setFSIZE(thebits : TBits_5); inline;
  18126. procedure setRTREN(thebits : TBits_1); inline;
  18127. procedure setTXABAT(thebits : TBits_1); inline;
  18128. procedure setTXEN(thebits : TBits_1); inline;
  18129. procedure setTXERR(thebits : TBits_1); inline;
  18130. procedure setTXLARB(thebits : TBits_1); inline;
  18131. procedure setTXPRI(thebits : TBits_2); inline;
  18132. procedure setTXREQ(thebits : TBits_1); inline;
  18133. procedure setUINC(thebits : TBits_1); inline;
  18134. procedure setw(thebits : TBits_32); inline;
  18135. public
  18136. procedure clearDONLY; inline;
  18137. procedure clearFRESET; inline;
  18138. procedure clearRTREN; inline;
  18139. procedure clearTXABAT; inline;
  18140. procedure clearTXEN; inline;
  18141. procedure clearTXERR; inline;
  18142. procedure clearTXLARB; inline;
  18143. procedure clearTXREQ; inline;
  18144. procedure clearUINC; inline;
  18145. procedure setDONLY; inline;
  18146. procedure setFRESET; inline;
  18147. procedure setRTREN; inline;
  18148. procedure setTXABAT; inline;
  18149. procedure setTXEN; inline;
  18150. procedure setTXERR; inline;
  18151. procedure setTXLARB; inline;
  18152. procedure setTXREQ; inline;
  18153. procedure setUINC; inline;
  18154. property DONLY : TBits_1 read getDONLY write setDONLY;
  18155. property FRESET : TBits_1 read getFRESET write setFRESET;
  18156. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  18157. property RTREN : TBits_1 read getRTREN write setRTREN;
  18158. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  18159. property TXEN : TBits_1 read getTXEN write setTXEN;
  18160. property TXERR : TBits_1 read getTXERR write setTXERR;
  18161. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  18162. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  18163. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  18164. property UINC : TBits_1 read getUINC write setUINC;
  18165. property w : TBits_32 read getw write setw;
  18166. end;
  18167. TCAN1_C1FIFOINT8 = record
  18168. private
  18169. function getRXFULLIE : TBits_1; inline;
  18170. function getRXFULLIF : TBits_1; inline;
  18171. function getRXHALFIE : TBits_1; inline;
  18172. function getRXHALFIF : TBits_1; inline;
  18173. function getRXNEMPTYIE : TBits_1; inline;
  18174. function getRXNEMPTYIF : TBits_1; inline;
  18175. function getRXOVFLIE : TBits_1; inline;
  18176. function getRXOVFLIF : TBits_1; inline;
  18177. function getTXEMPTYIE : TBits_1; inline;
  18178. function getTXEMPTYIF : TBits_1; inline;
  18179. function getTXHALFIE : TBits_1; inline;
  18180. function getTXHALFIF : TBits_1; inline;
  18181. function getTXNFULLIE : TBits_1; inline;
  18182. function getTXNFULLIF : TBits_1; inline;
  18183. function getw : TBits_32; inline;
  18184. procedure setRXFULLIE(thebits : TBits_1); inline;
  18185. procedure setRXFULLIF(thebits : TBits_1); inline;
  18186. procedure setRXHALFIE(thebits : TBits_1); inline;
  18187. procedure setRXHALFIF(thebits : TBits_1); inline;
  18188. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  18189. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  18190. procedure setRXOVFLIE(thebits : TBits_1); inline;
  18191. procedure setRXOVFLIF(thebits : TBits_1); inline;
  18192. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  18193. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  18194. procedure setTXHALFIE(thebits : TBits_1); inline;
  18195. procedure setTXHALFIF(thebits : TBits_1); inline;
  18196. procedure setTXNFULLIE(thebits : TBits_1); inline;
  18197. procedure setTXNFULLIF(thebits : TBits_1); inline;
  18198. procedure setw(thebits : TBits_32); inline;
  18199. public
  18200. procedure clearRXFULLIE; inline;
  18201. procedure clearRXFULLIF; inline;
  18202. procedure clearRXHALFIE; inline;
  18203. procedure clearRXHALFIF; inline;
  18204. procedure clearRXNEMPTYIE; inline;
  18205. procedure clearRXNEMPTYIF; inline;
  18206. procedure clearRXOVFLIE; inline;
  18207. procedure clearRXOVFLIF; inline;
  18208. procedure clearTXEMPTYIE; inline;
  18209. procedure clearTXEMPTYIF; inline;
  18210. procedure clearTXHALFIE; inline;
  18211. procedure clearTXHALFIF; inline;
  18212. procedure clearTXNFULLIE; inline;
  18213. procedure clearTXNFULLIF; inline;
  18214. procedure setRXFULLIE; inline;
  18215. procedure setRXFULLIF; inline;
  18216. procedure setRXHALFIE; inline;
  18217. procedure setRXHALFIF; inline;
  18218. procedure setRXNEMPTYIE; inline;
  18219. procedure setRXNEMPTYIF; inline;
  18220. procedure setRXOVFLIE; inline;
  18221. procedure setRXOVFLIF; inline;
  18222. procedure setTXEMPTYIE; inline;
  18223. procedure setTXEMPTYIF; inline;
  18224. procedure setTXHALFIE; inline;
  18225. procedure setTXHALFIF; inline;
  18226. procedure setTXNFULLIE; inline;
  18227. procedure setTXNFULLIF; inline;
  18228. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  18229. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  18230. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  18231. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  18232. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  18233. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  18234. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  18235. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  18236. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  18237. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  18238. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  18239. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  18240. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  18241. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  18242. property w : TBits_32 read getw write setw;
  18243. end;
  18244. TCAN1_C1FIFOCI8 = record
  18245. private
  18246. function getCFIFOCI : TBits_5; inline;
  18247. function getw : TBits_32; inline;
  18248. procedure setCFIFOCI(thebits : TBits_5); inline;
  18249. procedure setw(thebits : TBits_32); inline;
  18250. public
  18251. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  18252. property w : TBits_32 read getw write setw;
  18253. end;
  18254. TCAN1_C1FIFOCON9 = record
  18255. private
  18256. function getDONLY : TBits_1; inline;
  18257. function getFRESET : TBits_1; inline;
  18258. function getFSIZE : TBits_5; inline;
  18259. function getRTREN : TBits_1; inline;
  18260. function getTXABAT : TBits_1; inline;
  18261. function getTXEN : TBits_1; inline;
  18262. function getTXERR : TBits_1; inline;
  18263. function getTXLARB : TBits_1; inline;
  18264. function getTXPRI : TBits_2; inline;
  18265. function getTXREQ : TBits_1; inline;
  18266. function getUINC : TBits_1; inline;
  18267. function getw : TBits_32; inline;
  18268. procedure setDONLY(thebits : TBits_1); inline;
  18269. procedure setFRESET(thebits : TBits_1); inline;
  18270. procedure setFSIZE(thebits : TBits_5); inline;
  18271. procedure setRTREN(thebits : TBits_1); inline;
  18272. procedure setTXABAT(thebits : TBits_1); inline;
  18273. procedure setTXEN(thebits : TBits_1); inline;
  18274. procedure setTXERR(thebits : TBits_1); inline;
  18275. procedure setTXLARB(thebits : TBits_1); inline;
  18276. procedure setTXPRI(thebits : TBits_2); inline;
  18277. procedure setTXREQ(thebits : TBits_1); inline;
  18278. procedure setUINC(thebits : TBits_1); inline;
  18279. procedure setw(thebits : TBits_32); inline;
  18280. public
  18281. procedure clearDONLY; inline;
  18282. procedure clearFRESET; inline;
  18283. procedure clearRTREN; inline;
  18284. procedure clearTXABAT; inline;
  18285. procedure clearTXEN; inline;
  18286. procedure clearTXERR; inline;
  18287. procedure clearTXLARB; inline;
  18288. procedure clearTXREQ; inline;
  18289. procedure clearUINC; inline;
  18290. procedure setDONLY; inline;
  18291. procedure setFRESET; inline;
  18292. procedure setRTREN; inline;
  18293. procedure setTXABAT; inline;
  18294. procedure setTXEN; inline;
  18295. procedure setTXERR; inline;
  18296. procedure setTXLARB; inline;
  18297. procedure setTXREQ; inline;
  18298. procedure setUINC; inline;
  18299. property DONLY : TBits_1 read getDONLY write setDONLY;
  18300. property FRESET : TBits_1 read getFRESET write setFRESET;
  18301. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  18302. property RTREN : TBits_1 read getRTREN write setRTREN;
  18303. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  18304. property TXEN : TBits_1 read getTXEN write setTXEN;
  18305. property TXERR : TBits_1 read getTXERR write setTXERR;
  18306. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  18307. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  18308. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  18309. property UINC : TBits_1 read getUINC write setUINC;
  18310. property w : TBits_32 read getw write setw;
  18311. end;
  18312. TCAN1_C1FIFOINT9 = record
  18313. private
  18314. function getRXFULLIE : TBits_1; inline;
  18315. function getRXFULLIF : TBits_1; inline;
  18316. function getRXHALFIE : TBits_1; inline;
  18317. function getRXHALFIF : TBits_1; inline;
  18318. function getRXNEMPTYIE : TBits_1; inline;
  18319. function getRXNEMPTYIF : TBits_1; inline;
  18320. function getRXOVFLIE : TBits_1; inline;
  18321. function getRXOVFLIF : TBits_1; inline;
  18322. function getTXEMPTYIE : TBits_1; inline;
  18323. function getTXEMPTYIF : TBits_1; inline;
  18324. function getTXHALFIE : TBits_1; inline;
  18325. function getTXHALFIF : TBits_1; inline;
  18326. function getTXNFULLIE : TBits_1; inline;
  18327. function getTXNFULLIF : TBits_1; inline;
  18328. function getw : TBits_32; inline;
  18329. procedure setRXFULLIE(thebits : TBits_1); inline;
  18330. procedure setRXFULLIF(thebits : TBits_1); inline;
  18331. procedure setRXHALFIE(thebits : TBits_1); inline;
  18332. procedure setRXHALFIF(thebits : TBits_1); inline;
  18333. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  18334. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  18335. procedure setRXOVFLIE(thebits : TBits_1); inline;
  18336. procedure setRXOVFLIF(thebits : TBits_1); inline;
  18337. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  18338. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  18339. procedure setTXHALFIE(thebits : TBits_1); inline;
  18340. procedure setTXHALFIF(thebits : TBits_1); inline;
  18341. procedure setTXNFULLIE(thebits : TBits_1); inline;
  18342. procedure setTXNFULLIF(thebits : TBits_1); inline;
  18343. procedure setw(thebits : TBits_32); inline;
  18344. public
  18345. procedure clearRXFULLIE; inline;
  18346. procedure clearRXFULLIF; inline;
  18347. procedure clearRXHALFIE; inline;
  18348. procedure clearRXHALFIF; inline;
  18349. procedure clearRXNEMPTYIE; inline;
  18350. procedure clearRXNEMPTYIF; inline;
  18351. procedure clearRXOVFLIE; inline;
  18352. procedure clearRXOVFLIF; inline;
  18353. procedure clearTXEMPTYIE; inline;
  18354. procedure clearTXEMPTYIF; inline;
  18355. procedure clearTXHALFIE; inline;
  18356. procedure clearTXHALFIF; inline;
  18357. procedure clearTXNFULLIE; inline;
  18358. procedure clearTXNFULLIF; inline;
  18359. procedure setRXFULLIE; inline;
  18360. procedure setRXFULLIF; inline;
  18361. procedure setRXHALFIE; inline;
  18362. procedure setRXHALFIF; inline;
  18363. procedure setRXNEMPTYIE; inline;
  18364. procedure setRXNEMPTYIF; inline;
  18365. procedure setRXOVFLIE; inline;
  18366. procedure setRXOVFLIF; inline;
  18367. procedure setTXEMPTYIE; inline;
  18368. procedure setTXEMPTYIF; inline;
  18369. procedure setTXHALFIE; inline;
  18370. procedure setTXHALFIF; inline;
  18371. procedure setTXNFULLIE; inline;
  18372. procedure setTXNFULLIF; inline;
  18373. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  18374. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  18375. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  18376. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  18377. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  18378. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  18379. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  18380. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  18381. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  18382. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  18383. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  18384. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  18385. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  18386. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  18387. property w : TBits_32 read getw write setw;
  18388. end;
  18389. TCAN1_C1FIFOCI9 = record
  18390. private
  18391. function getCFIFOCI : TBits_5; inline;
  18392. function getw : TBits_32; inline;
  18393. procedure setCFIFOCI(thebits : TBits_5); inline;
  18394. procedure setw(thebits : TBits_32); inline;
  18395. public
  18396. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  18397. property w : TBits_32 read getw write setw;
  18398. end;
  18399. TCAN1_C1FIFOCON10 = record
  18400. private
  18401. function getDONLY : TBits_1; inline;
  18402. function getFRESET : TBits_1; inline;
  18403. function getFSIZE : TBits_5; inline;
  18404. function getRTREN : TBits_1; inline;
  18405. function getTXABAT : TBits_1; inline;
  18406. function getTXEN : TBits_1; inline;
  18407. function getTXERR : TBits_1; inline;
  18408. function getTXLARB : TBits_1; inline;
  18409. function getTXPRI : TBits_2; inline;
  18410. function getTXREQ : TBits_1; inline;
  18411. function getUINC : TBits_1; inline;
  18412. function getw : TBits_32; inline;
  18413. procedure setDONLY(thebits : TBits_1); inline;
  18414. procedure setFRESET(thebits : TBits_1); inline;
  18415. procedure setFSIZE(thebits : TBits_5); inline;
  18416. procedure setRTREN(thebits : TBits_1); inline;
  18417. procedure setTXABAT(thebits : TBits_1); inline;
  18418. procedure setTXEN(thebits : TBits_1); inline;
  18419. procedure setTXERR(thebits : TBits_1); inline;
  18420. procedure setTXLARB(thebits : TBits_1); inline;
  18421. procedure setTXPRI(thebits : TBits_2); inline;
  18422. procedure setTXREQ(thebits : TBits_1); inline;
  18423. procedure setUINC(thebits : TBits_1); inline;
  18424. procedure setw(thebits : TBits_32); inline;
  18425. public
  18426. procedure clearDONLY; inline;
  18427. procedure clearFRESET; inline;
  18428. procedure clearRTREN; inline;
  18429. procedure clearTXABAT; inline;
  18430. procedure clearTXEN; inline;
  18431. procedure clearTXERR; inline;
  18432. procedure clearTXLARB; inline;
  18433. procedure clearTXREQ; inline;
  18434. procedure clearUINC; inline;
  18435. procedure setDONLY; inline;
  18436. procedure setFRESET; inline;
  18437. procedure setRTREN; inline;
  18438. procedure setTXABAT; inline;
  18439. procedure setTXEN; inline;
  18440. procedure setTXERR; inline;
  18441. procedure setTXLARB; inline;
  18442. procedure setTXREQ; inline;
  18443. procedure setUINC; inline;
  18444. property DONLY : TBits_1 read getDONLY write setDONLY;
  18445. property FRESET : TBits_1 read getFRESET write setFRESET;
  18446. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  18447. property RTREN : TBits_1 read getRTREN write setRTREN;
  18448. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  18449. property TXEN : TBits_1 read getTXEN write setTXEN;
  18450. property TXERR : TBits_1 read getTXERR write setTXERR;
  18451. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  18452. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  18453. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  18454. property UINC : TBits_1 read getUINC write setUINC;
  18455. property w : TBits_32 read getw write setw;
  18456. end;
  18457. TCAN1_C1FIFOINT10 = record
  18458. private
  18459. function getRXFULLIE : TBits_1; inline;
  18460. function getRXFULLIF : TBits_1; inline;
  18461. function getRXHALFIE : TBits_1; inline;
  18462. function getRXHALFIF : TBits_1; inline;
  18463. function getRXNEMPTYIE : TBits_1; inline;
  18464. function getRXNEMPTYIF : TBits_1; inline;
  18465. function getRXOVFLIE : TBits_1; inline;
  18466. function getRXOVFLIF : TBits_1; inline;
  18467. function getTXEMPTYIE : TBits_1; inline;
  18468. function getTXEMPTYIF : TBits_1; inline;
  18469. function getTXHALFIE : TBits_1; inline;
  18470. function getTXHALFIF : TBits_1; inline;
  18471. function getTXNFULLIE : TBits_1; inline;
  18472. function getTXNFULLIF : TBits_1; inline;
  18473. function getw : TBits_32; inline;
  18474. procedure setRXFULLIE(thebits : TBits_1); inline;
  18475. procedure setRXFULLIF(thebits : TBits_1); inline;
  18476. procedure setRXHALFIE(thebits : TBits_1); inline;
  18477. procedure setRXHALFIF(thebits : TBits_1); inline;
  18478. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  18479. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  18480. procedure setRXOVFLIE(thebits : TBits_1); inline;
  18481. procedure setRXOVFLIF(thebits : TBits_1); inline;
  18482. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  18483. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  18484. procedure setTXHALFIE(thebits : TBits_1); inline;
  18485. procedure setTXHALFIF(thebits : TBits_1); inline;
  18486. procedure setTXNFULLIE(thebits : TBits_1); inline;
  18487. procedure setTXNFULLIF(thebits : TBits_1); inline;
  18488. procedure setw(thebits : TBits_32); inline;
  18489. public
  18490. procedure clearRXFULLIE; inline;
  18491. procedure clearRXFULLIF; inline;
  18492. procedure clearRXHALFIE; inline;
  18493. procedure clearRXHALFIF; inline;
  18494. procedure clearRXNEMPTYIE; inline;
  18495. procedure clearRXNEMPTYIF; inline;
  18496. procedure clearRXOVFLIE; inline;
  18497. procedure clearRXOVFLIF; inline;
  18498. procedure clearTXEMPTYIE; inline;
  18499. procedure clearTXEMPTYIF; inline;
  18500. procedure clearTXHALFIE; inline;
  18501. procedure clearTXHALFIF; inline;
  18502. procedure clearTXNFULLIE; inline;
  18503. procedure clearTXNFULLIF; inline;
  18504. procedure setRXFULLIE; inline;
  18505. procedure setRXFULLIF; inline;
  18506. procedure setRXHALFIE; inline;
  18507. procedure setRXHALFIF; inline;
  18508. procedure setRXNEMPTYIE; inline;
  18509. procedure setRXNEMPTYIF; inline;
  18510. procedure setRXOVFLIE; inline;
  18511. procedure setRXOVFLIF; inline;
  18512. procedure setTXEMPTYIE; inline;
  18513. procedure setTXEMPTYIF; inline;
  18514. procedure setTXHALFIE; inline;
  18515. procedure setTXHALFIF; inline;
  18516. procedure setTXNFULLIE; inline;
  18517. procedure setTXNFULLIF; inline;
  18518. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  18519. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  18520. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  18521. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  18522. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  18523. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  18524. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  18525. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  18526. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  18527. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  18528. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  18529. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  18530. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  18531. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  18532. property w : TBits_32 read getw write setw;
  18533. end;
  18534. TCAN1_C1FIFOCI10 = record
  18535. private
  18536. function getCFIFOCI : TBits_5; inline;
  18537. function getw : TBits_32; inline;
  18538. procedure setCFIFOCI(thebits : TBits_5); inline;
  18539. procedure setw(thebits : TBits_32); inline;
  18540. public
  18541. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  18542. property w : TBits_32 read getw write setw;
  18543. end;
  18544. TCAN1_C1FIFOCON11 = record
  18545. private
  18546. function getDONLY : TBits_1; inline;
  18547. function getFRESET : TBits_1; inline;
  18548. function getFSIZE : TBits_5; inline;
  18549. function getRTREN : TBits_1; inline;
  18550. function getTXABAT : TBits_1; inline;
  18551. function getTXEN : TBits_1; inline;
  18552. function getTXERR : TBits_1; inline;
  18553. function getTXLARB : TBits_1; inline;
  18554. function getTXPRI : TBits_2; inline;
  18555. function getTXREQ : TBits_1; inline;
  18556. function getUINC : TBits_1; inline;
  18557. function getw : TBits_32; inline;
  18558. procedure setDONLY(thebits : TBits_1); inline;
  18559. procedure setFRESET(thebits : TBits_1); inline;
  18560. procedure setFSIZE(thebits : TBits_5); inline;
  18561. procedure setRTREN(thebits : TBits_1); inline;
  18562. procedure setTXABAT(thebits : TBits_1); inline;
  18563. procedure setTXEN(thebits : TBits_1); inline;
  18564. procedure setTXERR(thebits : TBits_1); inline;
  18565. procedure setTXLARB(thebits : TBits_1); inline;
  18566. procedure setTXPRI(thebits : TBits_2); inline;
  18567. procedure setTXREQ(thebits : TBits_1); inline;
  18568. procedure setUINC(thebits : TBits_1); inline;
  18569. procedure setw(thebits : TBits_32); inline;
  18570. public
  18571. procedure clearDONLY; inline;
  18572. procedure clearFRESET; inline;
  18573. procedure clearRTREN; inline;
  18574. procedure clearTXABAT; inline;
  18575. procedure clearTXEN; inline;
  18576. procedure clearTXERR; inline;
  18577. procedure clearTXLARB; inline;
  18578. procedure clearTXREQ; inline;
  18579. procedure clearUINC; inline;
  18580. procedure setDONLY; inline;
  18581. procedure setFRESET; inline;
  18582. procedure setRTREN; inline;
  18583. procedure setTXABAT; inline;
  18584. procedure setTXEN; inline;
  18585. procedure setTXERR; inline;
  18586. procedure setTXLARB; inline;
  18587. procedure setTXREQ; inline;
  18588. procedure setUINC; inline;
  18589. property DONLY : TBits_1 read getDONLY write setDONLY;
  18590. property FRESET : TBits_1 read getFRESET write setFRESET;
  18591. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  18592. property RTREN : TBits_1 read getRTREN write setRTREN;
  18593. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  18594. property TXEN : TBits_1 read getTXEN write setTXEN;
  18595. property TXERR : TBits_1 read getTXERR write setTXERR;
  18596. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  18597. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  18598. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  18599. property UINC : TBits_1 read getUINC write setUINC;
  18600. property w : TBits_32 read getw write setw;
  18601. end;
  18602. TCAN1_C1FIFOINT11 = record
  18603. private
  18604. function getRXFULLIE : TBits_1; inline;
  18605. function getRXFULLIF : TBits_1; inline;
  18606. function getRXHALFIE : TBits_1; inline;
  18607. function getRXHALFIF : TBits_1; inline;
  18608. function getRXNEMPTYIE : TBits_1; inline;
  18609. function getRXNEMPTYIF : TBits_1; inline;
  18610. function getRXOVFLIE : TBits_1; inline;
  18611. function getRXOVFLIF : TBits_1; inline;
  18612. function getTXEMPTYIE : TBits_1; inline;
  18613. function getTXEMPTYIF : TBits_1; inline;
  18614. function getTXHALFIE : TBits_1; inline;
  18615. function getTXHALFIF : TBits_1; inline;
  18616. function getTXNFULLIE : TBits_1; inline;
  18617. function getTXNFULLIF : TBits_1; inline;
  18618. function getw : TBits_32; inline;
  18619. procedure setRXFULLIE(thebits : TBits_1); inline;
  18620. procedure setRXFULLIF(thebits : TBits_1); inline;
  18621. procedure setRXHALFIE(thebits : TBits_1); inline;
  18622. procedure setRXHALFIF(thebits : TBits_1); inline;
  18623. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  18624. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  18625. procedure setRXOVFLIE(thebits : TBits_1); inline;
  18626. procedure setRXOVFLIF(thebits : TBits_1); inline;
  18627. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  18628. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  18629. procedure setTXHALFIE(thebits : TBits_1); inline;
  18630. procedure setTXHALFIF(thebits : TBits_1); inline;
  18631. procedure setTXNFULLIE(thebits : TBits_1); inline;
  18632. procedure setTXNFULLIF(thebits : TBits_1); inline;
  18633. procedure setw(thebits : TBits_32); inline;
  18634. public
  18635. procedure clearRXFULLIE; inline;
  18636. procedure clearRXFULLIF; inline;
  18637. procedure clearRXHALFIE; inline;
  18638. procedure clearRXHALFIF; inline;
  18639. procedure clearRXNEMPTYIE; inline;
  18640. procedure clearRXNEMPTYIF; inline;
  18641. procedure clearRXOVFLIE; inline;
  18642. procedure clearRXOVFLIF; inline;
  18643. procedure clearTXEMPTYIE; inline;
  18644. procedure clearTXEMPTYIF; inline;
  18645. procedure clearTXHALFIE; inline;
  18646. procedure clearTXHALFIF; inline;
  18647. procedure clearTXNFULLIE; inline;
  18648. procedure clearTXNFULLIF; inline;
  18649. procedure setRXFULLIE; inline;
  18650. procedure setRXFULLIF; inline;
  18651. procedure setRXHALFIE; inline;
  18652. procedure setRXHALFIF; inline;
  18653. procedure setRXNEMPTYIE; inline;
  18654. procedure setRXNEMPTYIF; inline;
  18655. procedure setRXOVFLIE; inline;
  18656. procedure setRXOVFLIF; inline;
  18657. procedure setTXEMPTYIE; inline;
  18658. procedure setTXEMPTYIF; inline;
  18659. procedure setTXHALFIE; inline;
  18660. procedure setTXHALFIF; inline;
  18661. procedure setTXNFULLIE; inline;
  18662. procedure setTXNFULLIF; inline;
  18663. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  18664. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  18665. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  18666. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  18667. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  18668. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  18669. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  18670. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  18671. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  18672. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  18673. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  18674. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  18675. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  18676. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  18677. property w : TBits_32 read getw write setw;
  18678. end;
  18679. TCAN1_C1FIFOCI11 = record
  18680. private
  18681. function getCFIFOCI : TBits_5; inline;
  18682. function getw : TBits_32; inline;
  18683. procedure setCFIFOCI(thebits : TBits_5); inline;
  18684. procedure setw(thebits : TBits_32); inline;
  18685. public
  18686. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  18687. property w : TBits_32 read getw write setw;
  18688. end;
  18689. TCAN1_C1FIFOCON12 = record
  18690. private
  18691. function getDONLY : TBits_1; inline;
  18692. function getFRESET : TBits_1; inline;
  18693. function getFSIZE : TBits_5; inline;
  18694. function getRTREN : TBits_1; inline;
  18695. function getTXABAT : TBits_1; inline;
  18696. function getTXEN : TBits_1; inline;
  18697. function getTXERR : TBits_1; inline;
  18698. function getTXLARB : TBits_1; inline;
  18699. function getTXPRI : TBits_2; inline;
  18700. function getTXREQ : TBits_1; inline;
  18701. function getUINC : TBits_1; inline;
  18702. function getw : TBits_32; inline;
  18703. procedure setDONLY(thebits : TBits_1); inline;
  18704. procedure setFRESET(thebits : TBits_1); inline;
  18705. procedure setFSIZE(thebits : TBits_5); inline;
  18706. procedure setRTREN(thebits : TBits_1); inline;
  18707. procedure setTXABAT(thebits : TBits_1); inline;
  18708. procedure setTXEN(thebits : TBits_1); inline;
  18709. procedure setTXERR(thebits : TBits_1); inline;
  18710. procedure setTXLARB(thebits : TBits_1); inline;
  18711. procedure setTXPRI(thebits : TBits_2); inline;
  18712. procedure setTXREQ(thebits : TBits_1); inline;
  18713. procedure setUINC(thebits : TBits_1); inline;
  18714. procedure setw(thebits : TBits_32); inline;
  18715. public
  18716. procedure clearDONLY; inline;
  18717. procedure clearFRESET; inline;
  18718. procedure clearRTREN; inline;
  18719. procedure clearTXABAT; inline;
  18720. procedure clearTXEN; inline;
  18721. procedure clearTXERR; inline;
  18722. procedure clearTXLARB; inline;
  18723. procedure clearTXREQ; inline;
  18724. procedure clearUINC; inline;
  18725. procedure setDONLY; inline;
  18726. procedure setFRESET; inline;
  18727. procedure setRTREN; inline;
  18728. procedure setTXABAT; inline;
  18729. procedure setTXEN; inline;
  18730. procedure setTXERR; inline;
  18731. procedure setTXLARB; inline;
  18732. procedure setTXREQ; inline;
  18733. procedure setUINC; inline;
  18734. property DONLY : TBits_1 read getDONLY write setDONLY;
  18735. property FRESET : TBits_1 read getFRESET write setFRESET;
  18736. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  18737. property RTREN : TBits_1 read getRTREN write setRTREN;
  18738. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  18739. property TXEN : TBits_1 read getTXEN write setTXEN;
  18740. property TXERR : TBits_1 read getTXERR write setTXERR;
  18741. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  18742. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  18743. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  18744. property UINC : TBits_1 read getUINC write setUINC;
  18745. property w : TBits_32 read getw write setw;
  18746. end;
  18747. TCAN1_C1FIFOINT12 = record
  18748. private
  18749. function getRXFULLIE : TBits_1; inline;
  18750. function getRXFULLIF : TBits_1; inline;
  18751. function getRXHALFIE : TBits_1; inline;
  18752. function getRXHALFIF : TBits_1; inline;
  18753. function getRXNEMPTYIE : TBits_1; inline;
  18754. function getRXNEMPTYIF : TBits_1; inline;
  18755. function getRXOVFLIE : TBits_1; inline;
  18756. function getRXOVFLIF : TBits_1; inline;
  18757. function getTXEMPTYIE : TBits_1; inline;
  18758. function getTXEMPTYIF : TBits_1; inline;
  18759. function getTXHALFIE : TBits_1; inline;
  18760. function getTXHALFIF : TBits_1; inline;
  18761. function getTXNFULLIE : TBits_1; inline;
  18762. function getTXNFULLIF : TBits_1; inline;
  18763. function getw : TBits_32; inline;
  18764. procedure setRXFULLIE(thebits : TBits_1); inline;
  18765. procedure setRXFULLIF(thebits : TBits_1); inline;
  18766. procedure setRXHALFIE(thebits : TBits_1); inline;
  18767. procedure setRXHALFIF(thebits : TBits_1); inline;
  18768. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  18769. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  18770. procedure setRXOVFLIE(thebits : TBits_1); inline;
  18771. procedure setRXOVFLIF(thebits : TBits_1); inline;
  18772. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  18773. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  18774. procedure setTXHALFIE(thebits : TBits_1); inline;
  18775. procedure setTXHALFIF(thebits : TBits_1); inline;
  18776. procedure setTXNFULLIE(thebits : TBits_1); inline;
  18777. procedure setTXNFULLIF(thebits : TBits_1); inline;
  18778. procedure setw(thebits : TBits_32); inline;
  18779. public
  18780. procedure clearRXFULLIE; inline;
  18781. procedure clearRXFULLIF; inline;
  18782. procedure clearRXHALFIE; inline;
  18783. procedure clearRXHALFIF; inline;
  18784. procedure clearRXNEMPTYIE; inline;
  18785. procedure clearRXNEMPTYIF; inline;
  18786. procedure clearRXOVFLIE; inline;
  18787. procedure clearRXOVFLIF; inline;
  18788. procedure clearTXEMPTYIE; inline;
  18789. procedure clearTXEMPTYIF; inline;
  18790. procedure clearTXHALFIE; inline;
  18791. procedure clearTXHALFIF; inline;
  18792. procedure clearTXNFULLIE; inline;
  18793. procedure clearTXNFULLIF; inline;
  18794. procedure setRXFULLIE; inline;
  18795. procedure setRXFULLIF; inline;
  18796. procedure setRXHALFIE; inline;
  18797. procedure setRXHALFIF; inline;
  18798. procedure setRXNEMPTYIE; inline;
  18799. procedure setRXNEMPTYIF; inline;
  18800. procedure setRXOVFLIE; inline;
  18801. procedure setRXOVFLIF; inline;
  18802. procedure setTXEMPTYIE; inline;
  18803. procedure setTXEMPTYIF; inline;
  18804. procedure setTXHALFIE; inline;
  18805. procedure setTXHALFIF; inline;
  18806. procedure setTXNFULLIE; inline;
  18807. procedure setTXNFULLIF; inline;
  18808. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  18809. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  18810. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  18811. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  18812. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  18813. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  18814. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  18815. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  18816. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  18817. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  18818. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  18819. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  18820. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  18821. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  18822. property w : TBits_32 read getw write setw;
  18823. end;
  18824. TCAN1_C1FIFOCI12 = record
  18825. private
  18826. function getCFIFOCI : TBits_5; inline;
  18827. function getw : TBits_32; inline;
  18828. procedure setCFIFOCI(thebits : TBits_5); inline;
  18829. procedure setw(thebits : TBits_32); inline;
  18830. public
  18831. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  18832. property w : TBits_32 read getw write setw;
  18833. end;
  18834. TCAN1_C1FIFOCON13 = record
  18835. private
  18836. function getDONLY : TBits_1; inline;
  18837. function getFRESET : TBits_1; inline;
  18838. function getFSIZE : TBits_5; inline;
  18839. function getRTREN : TBits_1; inline;
  18840. function getTXABAT : TBits_1; inline;
  18841. function getTXEN : TBits_1; inline;
  18842. function getTXERR : TBits_1; inline;
  18843. function getTXLARB : TBits_1; inline;
  18844. function getTXPRI : TBits_2; inline;
  18845. function getTXREQ : TBits_1; inline;
  18846. function getUINC : TBits_1; inline;
  18847. function getw : TBits_32; inline;
  18848. procedure setDONLY(thebits : TBits_1); inline;
  18849. procedure setFRESET(thebits : TBits_1); inline;
  18850. procedure setFSIZE(thebits : TBits_5); inline;
  18851. procedure setRTREN(thebits : TBits_1); inline;
  18852. procedure setTXABAT(thebits : TBits_1); inline;
  18853. procedure setTXEN(thebits : TBits_1); inline;
  18854. procedure setTXERR(thebits : TBits_1); inline;
  18855. procedure setTXLARB(thebits : TBits_1); inline;
  18856. procedure setTXPRI(thebits : TBits_2); inline;
  18857. procedure setTXREQ(thebits : TBits_1); inline;
  18858. procedure setUINC(thebits : TBits_1); inline;
  18859. procedure setw(thebits : TBits_32); inline;
  18860. public
  18861. procedure clearDONLY; inline;
  18862. procedure clearFRESET; inline;
  18863. procedure clearRTREN; inline;
  18864. procedure clearTXABAT; inline;
  18865. procedure clearTXEN; inline;
  18866. procedure clearTXERR; inline;
  18867. procedure clearTXLARB; inline;
  18868. procedure clearTXREQ; inline;
  18869. procedure clearUINC; inline;
  18870. procedure setDONLY; inline;
  18871. procedure setFRESET; inline;
  18872. procedure setRTREN; inline;
  18873. procedure setTXABAT; inline;
  18874. procedure setTXEN; inline;
  18875. procedure setTXERR; inline;
  18876. procedure setTXLARB; inline;
  18877. procedure setTXREQ; inline;
  18878. procedure setUINC; inline;
  18879. property DONLY : TBits_1 read getDONLY write setDONLY;
  18880. property FRESET : TBits_1 read getFRESET write setFRESET;
  18881. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  18882. property RTREN : TBits_1 read getRTREN write setRTREN;
  18883. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  18884. property TXEN : TBits_1 read getTXEN write setTXEN;
  18885. property TXERR : TBits_1 read getTXERR write setTXERR;
  18886. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  18887. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  18888. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  18889. property UINC : TBits_1 read getUINC write setUINC;
  18890. property w : TBits_32 read getw write setw;
  18891. end;
  18892. TCAN1_C1FIFOINT13 = record
  18893. private
  18894. function getRXFULLIE : TBits_1; inline;
  18895. function getRXFULLIF : TBits_1; inline;
  18896. function getRXHALFIE : TBits_1; inline;
  18897. function getRXHALFIF : TBits_1; inline;
  18898. function getRXNEMPTYIE : TBits_1; inline;
  18899. function getRXNEMPTYIF : TBits_1; inline;
  18900. function getRXOVFLIE : TBits_1; inline;
  18901. function getRXOVFLIF : TBits_1; inline;
  18902. function getTXEMPTYIE : TBits_1; inline;
  18903. function getTXEMPTYIF : TBits_1; inline;
  18904. function getTXHALFIE : TBits_1; inline;
  18905. function getTXHALFIF : TBits_1; inline;
  18906. function getTXNFULLIE : TBits_1; inline;
  18907. function getTXNFULLIF : TBits_1; inline;
  18908. function getw : TBits_32; inline;
  18909. procedure setRXFULLIE(thebits : TBits_1); inline;
  18910. procedure setRXFULLIF(thebits : TBits_1); inline;
  18911. procedure setRXHALFIE(thebits : TBits_1); inline;
  18912. procedure setRXHALFIF(thebits : TBits_1); inline;
  18913. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  18914. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  18915. procedure setRXOVFLIE(thebits : TBits_1); inline;
  18916. procedure setRXOVFLIF(thebits : TBits_1); inline;
  18917. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  18918. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  18919. procedure setTXHALFIE(thebits : TBits_1); inline;
  18920. procedure setTXHALFIF(thebits : TBits_1); inline;
  18921. procedure setTXNFULLIE(thebits : TBits_1); inline;
  18922. procedure setTXNFULLIF(thebits : TBits_1); inline;
  18923. procedure setw(thebits : TBits_32); inline;
  18924. public
  18925. procedure clearRXFULLIE; inline;
  18926. procedure clearRXFULLIF; inline;
  18927. procedure clearRXHALFIE; inline;
  18928. procedure clearRXHALFIF; inline;
  18929. procedure clearRXNEMPTYIE; inline;
  18930. procedure clearRXNEMPTYIF; inline;
  18931. procedure clearRXOVFLIE; inline;
  18932. procedure clearRXOVFLIF; inline;
  18933. procedure clearTXEMPTYIE; inline;
  18934. procedure clearTXEMPTYIF; inline;
  18935. procedure clearTXHALFIE; inline;
  18936. procedure clearTXHALFIF; inline;
  18937. procedure clearTXNFULLIE; inline;
  18938. procedure clearTXNFULLIF; inline;
  18939. procedure setRXFULLIE; inline;
  18940. procedure setRXFULLIF; inline;
  18941. procedure setRXHALFIE; inline;
  18942. procedure setRXHALFIF; inline;
  18943. procedure setRXNEMPTYIE; inline;
  18944. procedure setRXNEMPTYIF; inline;
  18945. procedure setRXOVFLIE; inline;
  18946. procedure setRXOVFLIF; inline;
  18947. procedure setTXEMPTYIE; inline;
  18948. procedure setTXEMPTYIF; inline;
  18949. procedure setTXHALFIE; inline;
  18950. procedure setTXHALFIF; inline;
  18951. procedure setTXNFULLIE; inline;
  18952. procedure setTXNFULLIF; inline;
  18953. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  18954. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  18955. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  18956. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  18957. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  18958. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  18959. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  18960. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  18961. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  18962. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  18963. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  18964. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  18965. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  18966. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  18967. property w : TBits_32 read getw write setw;
  18968. end;
  18969. TCAN1_C1FIFOCI13 = record
  18970. private
  18971. function getCFIFOCI : TBits_5; inline;
  18972. function getw : TBits_32; inline;
  18973. procedure setCFIFOCI(thebits : TBits_5); inline;
  18974. procedure setw(thebits : TBits_32); inline;
  18975. public
  18976. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  18977. property w : TBits_32 read getw write setw;
  18978. end;
  18979. TCAN1_C1FIFOCON14 = record
  18980. private
  18981. function getDONLY : TBits_1; inline;
  18982. function getFRESET : TBits_1; inline;
  18983. function getFSIZE : TBits_5; inline;
  18984. function getRTREN : TBits_1; inline;
  18985. function getTXABAT : TBits_1; inline;
  18986. function getTXEN : TBits_1; inline;
  18987. function getTXERR : TBits_1; inline;
  18988. function getTXLARB : TBits_1; inline;
  18989. function getTXPRI : TBits_2; inline;
  18990. function getTXREQ : TBits_1; inline;
  18991. function getUINC : TBits_1; inline;
  18992. function getw : TBits_32; inline;
  18993. procedure setDONLY(thebits : TBits_1); inline;
  18994. procedure setFRESET(thebits : TBits_1); inline;
  18995. procedure setFSIZE(thebits : TBits_5); inline;
  18996. procedure setRTREN(thebits : TBits_1); inline;
  18997. procedure setTXABAT(thebits : TBits_1); inline;
  18998. procedure setTXEN(thebits : TBits_1); inline;
  18999. procedure setTXERR(thebits : TBits_1); inline;
  19000. procedure setTXLARB(thebits : TBits_1); inline;
  19001. procedure setTXPRI(thebits : TBits_2); inline;
  19002. procedure setTXREQ(thebits : TBits_1); inline;
  19003. procedure setUINC(thebits : TBits_1); inline;
  19004. procedure setw(thebits : TBits_32); inline;
  19005. public
  19006. procedure clearDONLY; inline;
  19007. procedure clearFRESET; inline;
  19008. procedure clearRTREN; inline;
  19009. procedure clearTXABAT; inline;
  19010. procedure clearTXEN; inline;
  19011. procedure clearTXERR; inline;
  19012. procedure clearTXLARB; inline;
  19013. procedure clearTXREQ; inline;
  19014. procedure clearUINC; inline;
  19015. procedure setDONLY; inline;
  19016. procedure setFRESET; inline;
  19017. procedure setRTREN; inline;
  19018. procedure setTXABAT; inline;
  19019. procedure setTXEN; inline;
  19020. procedure setTXERR; inline;
  19021. procedure setTXLARB; inline;
  19022. procedure setTXREQ; inline;
  19023. procedure setUINC; inline;
  19024. property DONLY : TBits_1 read getDONLY write setDONLY;
  19025. property FRESET : TBits_1 read getFRESET write setFRESET;
  19026. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  19027. property RTREN : TBits_1 read getRTREN write setRTREN;
  19028. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  19029. property TXEN : TBits_1 read getTXEN write setTXEN;
  19030. property TXERR : TBits_1 read getTXERR write setTXERR;
  19031. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  19032. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  19033. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  19034. property UINC : TBits_1 read getUINC write setUINC;
  19035. property w : TBits_32 read getw write setw;
  19036. end;
  19037. TCAN1_C1FIFOINT14 = record
  19038. private
  19039. function getRXFULLIE : TBits_1; inline;
  19040. function getRXFULLIF : TBits_1; inline;
  19041. function getRXHALFIE : TBits_1; inline;
  19042. function getRXHALFIF : TBits_1; inline;
  19043. function getRXNEMPTYIE : TBits_1; inline;
  19044. function getRXNEMPTYIF : TBits_1; inline;
  19045. function getRXOVFLIE : TBits_1; inline;
  19046. function getRXOVFLIF : TBits_1; inline;
  19047. function getTXEMPTYIE : TBits_1; inline;
  19048. function getTXEMPTYIF : TBits_1; inline;
  19049. function getTXHALFIE : TBits_1; inline;
  19050. function getTXHALFIF : TBits_1; inline;
  19051. function getTXNFULLIE : TBits_1; inline;
  19052. function getTXNFULLIF : TBits_1; inline;
  19053. function getw : TBits_32; inline;
  19054. procedure setRXFULLIE(thebits : TBits_1); inline;
  19055. procedure setRXFULLIF(thebits : TBits_1); inline;
  19056. procedure setRXHALFIE(thebits : TBits_1); inline;
  19057. procedure setRXHALFIF(thebits : TBits_1); inline;
  19058. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  19059. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  19060. procedure setRXOVFLIE(thebits : TBits_1); inline;
  19061. procedure setRXOVFLIF(thebits : TBits_1); inline;
  19062. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  19063. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  19064. procedure setTXHALFIE(thebits : TBits_1); inline;
  19065. procedure setTXHALFIF(thebits : TBits_1); inline;
  19066. procedure setTXNFULLIE(thebits : TBits_1); inline;
  19067. procedure setTXNFULLIF(thebits : TBits_1); inline;
  19068. procedure setw(thebits : TBits_32); inline;
  19069. public
  19070. procedure clearRXFULLIE; inline;
  19071. procedure clearRXFULLIF; inline;
  19072. procedure clearRXHALFIE; inline;
  19073. procedure clearRXHALFIF; inline;
  19074. procedure clearRXNEMPTYIE; inline;
  19075. procedure clearRXNEMPTYIF; inline;
  19076. procedure clearRXOVFLIE; inline;
  19077. procedure clearRXOVFLIF; inline;
  19078. procedure clearTXEMPTYIE; inline;
  19079. procedure clearTXEMPTYIF; inline;
  19080. procedure clearTXHALFIE; inline;
  19081. procedure clearTXHALFIF; inline;
  19082. procedure clearTXNFULLIE; inline;
  19083. procedure clearTXNFULLIF; inline;
  19084. procedure setRXFULLIE; inline;
  19085. procedure setRXFULLIF; inline;
  19086. procedure setRXHALFIE; inline;
  19087. procedure setRXHALFIF; inline;
  19088. procedure setRXNEMPTYIE; inline;
  19089. procedure setRXNEMPTYIF; inline;
  19090. procedure setRXOVFLIE; inline;
  19091. procedure setRXOVFLIF; inline;
  19092. procedure setTXEMPTYIE; inline;
  19093. procedure setTXEMPTYIF; inline;
  19094. procedure setTXHALFIE; inline;
  19095. procedure setTXHALFIF; inline;
  19096. procedure setTXNFULLIE; inline;
  19097. procedure setTXNFULLIF; inline;
  19098. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  19099. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  19100. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  19101. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  19102. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  19103. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  19104. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  19105. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  19106. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  19107. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  19108. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  19109. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  19110. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  19111. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  19112. property w : TBits_32 read getw write setw;
  19113. end;
  19114. TCAN1_C1FIFOCI14 = record
  19115. private
  19116. function getCFIFOCI : TBits_5; inline;
  19117. function getw : TBits_32; inline;
  19118. procedure setCFIFOCI(thebits : TBits_5); inline;
  19119. procedure setw(thebits : TBits_32); inline;
  19120. public
  19121. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  19122. property w : TBits_32 read getw write setw;
  19123. end;
  19124. TCAN1_C1FIFOCON15 = record
  19125. private
  19126. function getDONLY : TBits_1; inline;
  19127. function getFRESET : TBits_1; inline;
  19128. function getFSIZE : TBits_5; inline;
  19129. function getRTREN : TBits_1; inline;
  19130. function getTXABAT : TBits_1; inline;
  19131. function getTXEN : TBits_1; inline;
  19132. function getTXERR : TBits_1; inline;
  19133. function getTXLARB : TBits_1; inline;
  19134. function getTXPRI : TBits_2; inline;
  19135. function getTXREQ : TBits_1; inline;
  19136. function getUINC : TBits_1; inline;
  19137. function getw : TBits_32; inline;
  19138. procedure setDONLY(thebits : TBits_1); inline;
  19139. procedure setFRESET(thebits : TBits_1); inline;
  19140. procedure setFSIZE(thebits : TBits_5); inline;
  19141. procedure setRTREN(thebits : TBits_1); inline;
  19142. procedure setTXABAT(thebits : TBits_1); inline;
  19143. procedure setTXEN(thebits : TBits_1); inline;
  19144. procedure setTXERR(thebits : TBits_1); inline;
  19145. procedure setTXLARB(thebits : TBits_1); inline;
  19146. procedure setTXPRI(thebits : TBits_2); inline;
  19147. procedure setTXREQ(thebits : TBits_1); inline;
  19148. procedure setUINC(thebits : TBits_1); inline;
  19149. procedure setw(thebits : TBits_32); inline;
  19150. public
  19151. procedure clearDONLY; inline;
  19152. procedure clearFRESET; inline;
  19153. procedure clearRTREN; inline;
  19154. procedure clearTXABAT; inline;
  19155. procedure clearTXEN; inline;
  19156. procedure clearTXERR; inline;
  19157. procedure clearTXLARB; inline;
  19158. procedure clearTXREQ; inline;
  19159. procedure clearUINC; inline;
  19160. procedure setDONLY; inline;
  19161. procedure setFRESET; inline;
  19162. procedure setRTREN; inline;
  19163. procedure setTXABAT; inline;
  19164. procedure setTXEN; inline;
  19165. procedure setTXERR; inline;
  19166. procedure setTXLARB; inline;
  19167. procedure setTXREQ; inline;
  19168. procedure setUINC; inline;
  19169. property DONLY : TBits_1 read getDONLY write setDONLY;
  19170. property FRESET : TBits_1 read getFRESET write setFRESET;
  19171. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  19172. property RTREN : TBits_1 read getRTREN write setRTREN;
  19173. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  19174. property TXEN : TBits_1 read getTXEN write setTXEN;
  19175. property TXERR : TBits_1 read getTXERR write setTXERR;
  19176. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  19177. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  19178. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  19179. property UINC : TBits_1 read getUINC write setUINC;
  19180. property w : TBits_32 read getw write setw;
  19181. end;
  19182. TCAN1_C1FIFOINT15 = record
  19183. private
  19184. function getRXFULLIE : TBits_1; inline;
  19185. function getRXFULLIF : TBits_1; inline;
  19186. function getRXHALFIE : TBits_1; inline;
  19187. function getRXHALFIF : TBits_1; inline;
  19188. function getRXNEMPTYIE : TBits_1; inline;
  19189. function getRXNEMPTYIF : TBits_1; inline;
  19190. function getRXOVFLIE : TBits_1; inline;
  19191. function getRXOVFLIF : TBits_1; inline;
  19192. function getTXEMPTYIE : TBits_1; inline;
  19193. function getTXEMPTYIF : TBits_1; inline;
  19194. function getTXHALFIE : TBits_1; inline;
  19195. function getTXHALFIF : TBits_1; inline;
  19196. function getTXNFULLIE : TBits_1; inline;
  19197. function getTXNFULLIF : TBits_1; inline;
  19198. function getw : TBits_32; inline;
  19199. procedure setRXFULLIE(thebits : TBits_1); inline;
  19200. procedure setRXFULLIF(thebits : TBits_1); inline;
  19201. procedure setRXHALFIE(thebits : TBits_1); inline;
  19202. procedure setRXHALFIF(thebits : TBits_1); inline;
  19203. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  19204. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  19205. procedure setRXOVFLIE(thebits : TBits_1); inline;
  19206. procedure setRXOVFLIF(thebits : TBits_1); inline;
  19207. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  19208. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  19209. procedure setTXHALFIE(thebits : TBits_1); inline;
  19210. procedure setTXHALFIF(thebits : TBits_1); inline;
  19211. procedure setTXNFULLIE(thebits : TBits_1); inline;
  19212. procedure setTXNFULLIF(thebits : TBits_1); inline;
  19213. procedure setw(thebits : TBits_32); inline;
  19214. public
  19215. procedure clearRXFULLIE; inline;
  19216. procedure clearRXFULLIF; inline;
  19217. procedure clearRXHALFIE; inline;
  19218. procedure clearRXHALFIF; inline;
  19219. procedure clearRXNEMPTYIE; inline;
  19220. procedure clearRXNEMPTYIF; inline;
  19221. procedure clearRXOVFLIE; inline;
  19222. procedure clearRXOVFLIF; inline;
  19223. procedure clearTXEMPTYIE; inline;
  19224. procedure clearTXEMPTYIF; inline;
  19225. procedure clearTXHALFIE; inline;
  19226. procedure clearTXHALFIF; inline;
  19227. procedure clearTXNFULLIE; inline;
  19228. procedure clearTXNFULLIF; inline;
  19229. procedure setRXFULLIE; inline;
  19230. procedure setRXFULLIF; inline;
  19231. procedure setRXHALFIE; inline;
  19232. procedure setRXHALFIF; inline;
  19233. procedure setRXNEMPTYIE; inline;
  19234. procedure setRXNEMPTYIF; inline;
  19235. procedure setRXOVFLIE; inline;
  19236. procedure setRXOVFLIF; inline;
  19237. procedure setTXEMPTYIE; inline;
  19238. procedure setTXEMPTYIF; inline;
  19239. procedure setTXHALFIE; inline;
  19240. procedure setTXHALFIF; inline;
  19241. procedure setTXNFULLIE; inline;
  19242. procedure setTXNFULLIF; inline;
  19243. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  19244. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  19245. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  19246. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  19247. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  19248. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  19249. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  19250. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  19251. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  19252. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  19253. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  19254. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  19255. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  19256. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  19257. property w : TBits_32 read getw write setw;
  19258. end;
  19259. TCAN1_C1FIFOCI15 = record
  19260. private
  19261. function getCFIFOCI : TBits_5; inline;
  19262. function getw : TBits_32; inline;
  19263. procedure setCFIFOCI(thebits : TBits_5); inline;
  19264. procedure setw(thebits : TBits_32); inline;
  19265. public
  19266. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  19267. property w : TBits_32 read getw write setw;
  19268. end;
  19269. TCAN1_C1FIFOCON16 = record
  19270. private
  19271. function getDONLY : TBits_1; inline;
  19272. function getFRESET : TBits_1; inline;
  19273. function getFSIZE : TBits_5; inline;
  19274. function getRTREN : TBits_1; inline;
  19275. function getTXABAT : TBits_1; inline;
  19276. function getTXEN : TBits_1; inline;
  19277. function getTXERR : TBits_1; inline;
  19278. function getTXLARB : TBits_1; inline;
  19279. function getTXPRI : TBits_2; inline;
  19280. function getTXREQ : TBits_1; inline;
  19281. function getUINC : TBits_1; inline;
  19282. function getw : TBits_32; inline;
  19283. procedure setDONLY(thebits : TBits_1); inline;
  19284. procedure setFRESET(thebits : TBits_1); inline;
  19285. procedure setFSIZE(thebits : TBits_5); inline;
  19286. procedure setRTREN(thebits : TBits_1); inline;
  19287. procedure setTXABAT(thebits : TBits_1); inline;
  19288. procedure setTXEN(thebits : TBits_1); inline;
  19289. procedure setTXERR(thebits : TBits_1); inline;
  19290. procedure setTXLARB(thebits : TBits_1); inline;
  19291. procedure setTXPRI(thebits : TBits_2); inline;
  19292. procedure setTXREQ(thebits : TBits_1); inline;
  19293. procedure setUINC(thebits : TBits_1); inline;
  19294. procedure setw(thebits : TBits_32); inline;
  19295. public
  19296. procedure clearDONLY; inline;
  19297. procedure clearFRESET; inline;
  19298. procedure clearRTREN; inline;
  19299. procedure clearTXABAT; inline;
  19300. procedure clearTXEN; inline;
  19301. procedure clearTXERR; inline;
  19302. procedure clearTXLARB; inline;
  19303. procedure clearTXREQ; inline;
  19304. procedure clearUINC; inline;
  19305. procedure setDONLY; inline;
  19306. procedure setFRESET; inline;
  19307. procedure setRTREN; inline;
  19308. procedure setTXABAT; inline;
  19309. procedure setTXEN; inline;
  19310. procedure setTXERR; inline;
  19311. procedure setTXLARB; inline;
  19312. procedure setTXREQ; inline;
  19313. procedure setUINC; inline;
  19314. property DONLY : TBits_1 read getDONLY write setDONLY;
  19315. property FRESET : TBits_1 read getFRESET write setFRESET;
  19316. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  19317. property RTREN : TBits_1 read getRTREN write setRTREN;
  19318. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  19319. property TXEN : TBits_1 read getTXEN write setTXEN;
  19320. property TXERR : TBits_1 read getTXERR write setTXERR;
  19321. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  19322. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  19323. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  19324. property UINC : TBits_1 read getUINC write setUINC;
  19325. property w : TBits_32 read getw write setw;
  19326. end;
  19327. TCAN1_C1FIFOINT16 = record
  19328. private
  19329. function getRXFULLIE : TBits_1; inline;
  19330. function getRXFULLIF : TBits_1; inline;
  19331. function getRXHALFIE : TBits_1; inline;
  19332. function getRXHALFIF : TBits_1; inline;
  19333. function getRXNEMPTYIE : TBits_1; inline;
  19334. function getRXNEMPTYIF : TBits_1; inline;
  19335. function getRXOVFLIE : TBits_1; inline;
  19336. function getRXOVFLIF : TBits_1; inline;
  19337. function getTXEMPTYIE : TBits_1; inline;
  19338. function getTXEMPTYIF : TBits_1; inline;
  19339. function getTXHALFIE : TBits_1; inline;
  19340. function getTXHALFIF : TBits_1; inline;
  19341. function getTXNFULLIE : TBits_1; inline;
  19342. function getTXNFULLIF : TBits_1; inline;
  19343. function getw : TBits_32; inline;
  19344. procedure setRXFULLIE(thebits : TBits_1); inline;
  19345. procedure setRXFULLIF(thebits : TBits_1); inline;
  19346. procedure setRXHALFIE(thebits : TBits_1); inline;
  19347. procedure setRXHALFIF(thebits : TBits_1); inline;
  19348. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  19349. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  19350. procedure setRXOVFLIE(thebits : TBits_1); inline;
  19351. procedure setRXOVFLIF(thebits : TBits_1); inline;
  19352. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  19353. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  19354. procedure setTXHALFIE(thebits : TBits_1); inline;
  19355. procedure setTXHALFIF(thebits : TBits_1); inline;
  19356. procedure setTXNFULLIE(thebits : TBits_1); inline;
  19357. procedure setTXNFULLIF(thebits : TBits_1); inline;
  19358. procedure setw(thebits : TBits_32); inline;
  19359. public
  19360. procedure clearRXFULLIE; inline;
  19361. procedure clearRXFULLIF; inline;
  19362. procedure clearRXHALFIE; inline;
  19363. procedure clearRXHALFIF; inline;
  19364. procedure clearRXNEMPTYIE; inline;
  19365. procedure clearRXNEMPTYIF; inline;
  19366. procedure clearRXOVFLIE; inline;
  19367. procedure clearRXOVFLIF; inline;
  19368. procedure clearTXEMPTYIE; inline;
  19369. procedure clearTXEMPTYIF; inline;
  19370. procedure clearTXHALFIE; inline;
  19371. procedure clearTXHALFIF; inline;
  19372. procedure clearTXNFULLIE; inline;
  19373. procedure clearTXNFULLIF; inline;
  19374. procedure setRXFULLIE; inline;
  19375. procedure setRXFULLIF; inline;
  19376. procedure setRXHALFIE; inline;
  19377. procedure setRXHALFIF; inline;
  19378. procedure setRXNEMPTYIE; inline;
  19379. procedure setRXNEMPTYIF; inline;
  19380. procedure setRXOVFLIE; inline;
  19381. procedure setRXOVFLIF; inline;
  19382. procedure setTXEMPTYIE; inline;
  19383. procedure setTXEMPTYIF; inline;
  19384. procedure setTXHALFIE; inline;
  19385. procedure setTXHALFIF; inline;
  19386. procedure setTXNFULLIE; inline;
  19387. procedure setTXNFULLIF; inline;
  19388. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  19389. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  19390. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  19391. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  19392. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  19393. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  19394. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  19395. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  19396. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  19397. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  19398. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  19399. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  19400. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  19401. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  19402. property w : TBits_32 read getw write setw;
  19403. end;
  19404. TCAN1_C1FIFOCI16 = record
  19405. private
  19406. function getCFIFOCI : TBits_5; inline;
  19407. function getw : TBits_32; inline;
  19408. procedure setCFIFOCI(thebits : TBits_5); inline;
  19409. procedure setw(thebits : TBits_32); inline;
  19410. public
  19411. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  19412. property w : TBits_32 read getw write setw;
  19413. end;
  19414. TCAN1_C1FIFOCON17 = record
  19415. private
  19416. function getDONLY : TBits_1; inline;
  19417. function getFRESET : TBits_1; inline;
  19418. function getFSIZE : TBits_5; inline;
  19419. function getRTREN : TBits_1; inline;
  19420. function getTXABAT : TBits_1; inline;
  19421. function getTXEN : TBits_1; inline;
  19422. function getTXERR : TBits_1; inline;
  19423. function getTXLARB : TBits_1; inline;
  19424. function getTXPRI : TBits_2; inline;
  19425. function getTXREQ : TBits_1; inline;
  19426. function getUINC : TBits_1; inline;
  19427. function getw : TBits_32; inline;
  19428. procedure setDONLY(thebits : TBits_1); inline;
  19429. procedure setFRESET(thebits : TBits_1); inline;
  19430. procedure setFSIZE(thebits : TBits_5); inline;
  19431. procedure setRTREN(thebits : TBits_1); inline;
  19432. procedure setTXABAT(thebits : TBits_1); inline;
  19433. procedure setTXEN(thebits : TBits_1); inline;
  19434. procedure setTXERR(thebits : TBits_1); inline;
  19435. procedure setTXLARB(thebits : TBits_1); inline;
  19436. procedure setTXPRI(thebits : TBits_2); inline;
  19437. procedure setTXREQ(thebits : TBits_1); inline;
  19438. procedure setUINC(thebits : TBits_1); inline;
  19439. procedure setw(thebits : TBits_32); inline;
  19440. public
  19441. procedure clearDONLY; inline;
  19442. procedure clearFRESET; inline;
  19443. procedure clearRTREN; inline;
  19444. procedure clearTXABAT; inline;
  19445. procedure clearTXEN; inline;
  19446. procedure clearTXERR; inline;
  19447. procedure clearTXLARB; inline;
  19448. procedure clearTXREQ; inline;
  19449. procedure clearUINC; inline;
  19450. procedure setDONLY; inline;
  19451. procedure setFRESET; inline;
  19452. procedure setRTREN; inline;
  19453. procedure setTXABAT; inline;
  19454. procedure setTXEN; inline;
  19455. procedure setTXERR; inline;
  19456. procedure setTXLARB; inline;
  19457. procedure setTXREQ; inline;
  19458. procedure setUINC; inline;
  19459. property DONLY : TBits_1 read getDONLY write setDONLY;
  19460. property FRESET : TBits_1 read getFRESET write setFRESET;
  19461. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  19462. property RTREN : TBits_1 read getRTREN write setRTREN;
  19463. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  19464. property TXEN : TBits_1 read getTXEN write setTXEN;
  19465. property TXERR : TBits_1 read getTXERR write setTXERR;
  19466. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  19467. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  19468. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  19469. property UINC : TBits_1 read getUINC write setUINC;
  19470. property w : TBits_32 read getw write setw;
  19471. end;
  19472. TCAN1_C1FIFOINT17 = record
  19473. private
  19474. function getRXFULLIE : TBits_1; inline;
  19475. function getRXFULLIF : TBits_1; inline;
  19476. function getRXHALFIE : TBits_1; inline;
  19477. function getRXHALFIF : TBits_1; inline;
  19478. function getRXNEMPTYIE : TBits_1; inline;
  19479. function getRXNEMPTYIF : TBits_1; inline;
  19480. function getRXOVFLIE : TBits_1; inline;
  19481. function getRXOVFLIF : TBits_1; inline;
  19482. function getTXEMPTYIE : TBits_1; inline;
  19483. function getTXEMPTYIF : TBits_1; inline;
  19484. function getTXHALFIE : TBits_1; inline;
  19485. function getTXHALFIF : TBits_1; inline;
  19486. function getTXNFULLIE : TBits_1; inline;
  19487. function getTXNFULLIF : TBits_1; inline;
  19488. function getw : TBits_32; inline;
  19489. procedure setRXFULLIE(thebits : TBits_1); inline;
  19490. procedure setRXFULLIF(thebits : TBits_1); inline;
  19491. procedure setRXHALFIE(thebits : TBits_1); inline;
  19492. procedure setRXHALFIF(thebits : TBits_1); inline;
  19493. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  19494. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  19495. procedure setRXOVFLIE(thebits : TBits_1); inline;
  19496. procedure setRXOVFLIF(thebits : TBits_1); inline;
  19497. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  19498. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  19499. procedure setTXHALFIE(thebits : TBits_1); inline;
  19500. procedure setTXHALFIF(thebits : TBits_1); inline;
  19501. procedure setTXNFULLIE(thebits : TBits_1); inline;
  19502. procedure setTXNFULLIF(thebits : TBits_1); inline;
  19503. procedure setw(thebits : TBits_32); inline;
  19504. public
  19505. procedure clearRXFULLIE; inline;
  19506. procedure clearRXFULLIF; inline;
  19507. procedure clearRXHALFIE; inline;
  19508. procedure clearRXHALFIF; inline;
  19509. procedure clearRXNEMPTYIE; inline;
  19510. procedure clearRXNEMPTYIF; inline;
  19511. procedure clearRXOVFLIE; inline;
  19512. procedure clearRXOVFLIF; inline;
  19513. procedure clearTXEMPTYIE; inline;
  19514. procedure clearTXEMPTYIF; inline;
  19515. procedure clearTXHALFIE; inline;
  19516. procedure clearTXHALFIF; inline;
  19517. procedure clearTXNFULLIE; inline;
  19518. procedure clearTXNFULLIF; inline;
  19519. procedure setRXFULLIE; inline;
  19520. procedure setRXFULLIF; inline;
  19521. procedure setRXHALFIE; inline;
  19522. procedure setRXHALFIF; inline;
  19523. procedure setRXNEMPTYIE; inline;
  19524. procedure setRXNEMPTYIF; inline;
  19525. procedure setRXOVFLIE; inline;
  19526. procedure setRXOVFLIF; inline;
  19527. procedure setTXEMPTYIE; inline;
  19528. procedure setTXEMPTYIF; inline;
  19529. procedure setTXHALFIE; inline;
  19530. procedure setTXHALFIF; inline;
  19531. procedure setTXNFULLIE; inline;
  19532. procedure setTXNFULLIF; inline;
  19533. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  19534. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  19535. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  19536. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  19537. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  19538. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  19539. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  19540. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  19541. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  19542. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  19543. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  19544. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  19545. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  19546. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  19547. property w : TBits_32 read getw write setw;
  19548. end;
  19549. TCAN1_C1FIFOCI17 = record
  19550. private
  19551. function getCFIFOCI : TBits_5; inline;
  19552. function getw : TBits_32; inline;
  19553. procedure setCFIFOCI(thebits : TBits_5); inline;
  19554. procedure setw(thebits : TBits_32); inline;
  19555. public
  19556. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  19557. property w : TBits_32 read getw write setw;
  19558. end;
  19559. TCAN1_C1FIFOCON18 = record
  19560. private
  19561. function getDONLY : TBits_1; inline;
  19562. function getFRESET : TBits_1; inline;
  19563. function getFSIZE : TBits_5; inline;
  19564. function getRTREN : TBits_1; inline;
  19565. function getTXABAT : TBits_1; inline;
  19566. function getTXEN : TBits_1; inline;
  19567. function getTXERR : TBits_1; inline;
  19568. function getTXLARB : TBits_1; inline;
  19569. function getTXPRI : TBits_2; inline;
  19570. function getTXREQ : TBits_1; inline;
  19571. function getUINC : TBits_1; inline;
  19572. function getw : TBits_32; inline;
  19573. procedure setDONLY(thebits : TBits_1); inline;
  19574. procedure setFRESET(thebits : TBits_1); inline;
  19575. procedure setFSIZE(thebits : TBits_5); inline;
  19576. procedure setRTREN(thebits : TBits_1); inline;
  19577. procedure setTXABAT(thebits : TBits_1); inline;
  19578. procedure setTXEN(thebits : TBits_1); inline;
  19579. procedure setTXERR(thebits : TBits_1); inline;
  19580. procedure setTXLARB(thebits : TBits_1); inline;
  19581. procedure setTXPRI(thebits : TBits_2); inline;
  19582. procedure setTXREQ(thebits : TBits_1); inline;
  19583. procedure setUINC(thebits : TBits_1); inline;
  19584. procedure setw(thebits : TBits_32); inline;
  19585. public
  19586. procedure clearDONLY; inline;
  19587. procedure clearFRESET; inline;
  19588. procedure clearRTREN; inline;
  19589. procedure clearTXABAT; inline;
  19590. procedure clearTXEN; inline;
  19591. procedure clearTXERR; inline;
  19592. procedure clearTXLARB; inline;
  19593. procedure clearTXREQ; inline;
  19594. procedure clearUINC; inline;
  19595. procedure setDONLY; inline;
  19596. procedure setFRESET; inline;
  19597. procedure setRTREN; inline;
  19598. procedure setTXABAT; inline;
  19599. procedure setTXEN; inline;
  19600. procedure setTXERR; inline;
  19601. procedure setTXLARB; inline;
  19602. procedure setTXREQ; inline;
  19603. procedure setUINC; inline;
  19604. property DONLY : TBits_1 read getDONLY write setDONLY;
  19605. property FRESET : TBits_1 read getFRESET write setFRESET;
  19606. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  19607. property RTREN : TBits_1 read getRTREN write setRTREN;
  19608. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  19609. property TXEN : TBits_1 read getTXEN write setTXEN;
  19610. property TXERR : TBits_1 read getTXERR write setTXERR;
  19611. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  19612. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  19613. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  19614. property UINC : TBits_1 read getUINC write setUINC;
  19615. property w : TBits_32 read getw write setw;
  19616. end;
  19617. TCAN1_C1FIFOINT18 = record
  19618. private
  19619. function getRXFULLIE : TBits_1; inline;
  19620. function getRXFULLIF : TBits_1; inline;
  19621. function getRXHALFIE : TBits_1; inline;
  19622. function getRXHALFIF : TBits_1; inline;
  19623. function getRXNEMPTYIE : TBits_1; inline;
  19624. function getRXNEMPTYIF : TBits_1; inline;
  19625. function getRXOVFLIE : TBits_1; inline;
  19626. function getRXOVFLIF : TBits_1; inline;
  19627. function getTXEMPTYIE : TBits_1; inline;
  19628. function getTXEMPTYIF : TBits_1; inline;
  19629. function getTXHALFIE : TBits_1; inline;
  19630. function getTXHALFIF : TBits_1; inline;
  19631. function getTXNFULLIE : TBits_1; inline;
  19632. function getTXNFULLIF : TBits_1; inline;
  19633. function getw : TBits_32; inline;
  19634. procedure setRXFULLIE(thebits : TBits_1); inline;
  19635. procedure setRXFULLIF(thebits : TBits_1); inline;
  19636. procedure setRXHALFIE(thebits : TBits_1); inline;
  19637. procedure setRXHALFIF(thebits : TBits_1); inline;
  19638. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  19639. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  19640. procedure setRXOVFLIE(thebits : TBits_1); inline;
  19641. procedure setRXOVFLIF(thebits : TBits_1); inline;
  19642. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  19643. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  19644. procedure setTXHALFIE(thebits : TBits_1); inline;
  19645. procedure setTXHALFIF(thebits : TBits_1); inline;
  19646. procedure setTXNFULLIE(thebits : TBits_1); inline;
  19647. procedure setTXNFULLIF(thebits : TBits_1); inline;
  19648. procedure setw(thebits : TBits_32); inline;
  19649. public
  19650. procedure clearRXFULLIE; inline;
  19651. procedure clearRXFULLIF; inline;
  19652. procedure clearRXHALFIE; inline;
  19653. procedure clearRXHALFIF; inline;
  19654. procedure clearRXNEMPTYIE; inline;
  19655. procedure clearRXNEMPTYIF; inline;
  19656. procedure clearRXOVFLIE; inline;
  19657. procedure clearRXOVFLIF; inline;
  19658. procedure clearTXEMPTYIE; inline;
  19659. procedure clearTXEMPTYIF; inline;
  19660. procedure clearTXHALFIE; inline;
  19661. procedure clearTXHALFIF; inline;
  19662. procedure clearTXNFULLIE; inline;
  19663. procedure clearTXNFULLIF; inline;
  19664. procedure setRXFULLIE; inline;
  19665. procedure setRXFULLIF; inline;
  19666. procedure setRXHALFIE; inline;
  19667. procedure setRXHALFIF; inline;
  19668. procedure setRXNEMPTYIE; inline;
  19669. procedure setRXNEMPTYIF; inline;
  19670. procedure setRXOVFLIE; inline;
  19671. procedure setRXOVFLIF; inline;
  19672. procedure setTXEMPTYIE; inline;
  19673. procedure setTXEMPTYIF; inline;
  19674. procedure setTXHALFIE; inline;
  19675. procedure setTXHALFIF; inline;
  19676. procedure setTXNFULLIE; inline;
  19677. procedure setTXNFULLIF; inline;
  19678. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  19679. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  19680. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  19681. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  19682. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  19683. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  19684. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  19685. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  19686. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  19687. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  19688. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  19689. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  19690. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  19691. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  19692. property w : TBits_32 read getw write setw;
  19693. end;
  19694. TCAN1_C1FIFOCI18 = record
  19695. private
  19696. function getCFIFOCI : TBits_5; inline;
  19697. function getw : TBits_32; inline;
  19698. procedure setCFIFOCI(thebits : TBits_5); inline;
  19699. procedure setw(thebits : TBits_32); inline;
  19700. public
  19701. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  19702. property w : TBits_32 read getw write setw;
  19703. end;
  19704. TCAN1_C1FIFOCON19 = record
  19705. private
  19706. function getDONLY : TBits_1; inline;
  19707. function getFRESET : TBits_1; inline;
  19708. function getFSIZE : TBits_5; inline;
  19709. function getRTREN : TBits_1; inline;
  19710. function getTXABAT : TBits_1; inline;
  19711. function getTXEN : TBits_1; inline;
  19712. function getTXERR : TBits_1; inline;
  19713. function getTXLARB : TBits_1; inline;
  19714. function getTXPRI : TBits_2; inline;
  19715. function getTXREQ : TBits_1; inline;
  19716. function getUINC : TBits_1; inline;
  19717. function getw : TBits_32; inline;
  19718. procedure setDONLY(thebits : TBits_1); inline;
  19719. procedure setFRESET(thebits : TBits_1); inline;
  19720. procedure setFSIZE(thebits : TBits_5); inline;
  19721. procedure setRTREN(thebits : TBits_1); inline;
  19722. procedure setTXABAT(thebits : TBits_1); inline;
  19723. procedure setTXEN(thebits : TBits_1); inline;
  19724. procedure setTXERR(thebits : TBits_1); inline;
  19725. procedure setTXLARB(thebits : TBits_1); inline;
  19726. procedure setTXPRI(thebits : TBits_2); inline;
  19727. procedure setTXREQ(thebits : TBits_1); inline;
  19728. procedure setUINC(thebits : TBits_1); inline;
  19729. procedure setw(thebits : TBits_32); inline;
  19730. public
  19731. procedure clearDONLY; inline;
  19732. procedure clearFRESET; inline;
  19733. procedure clearRTREN; inline;
  19734. procedure clearTXABAT; inline;
  19735. procedure clearTXEN; inline;
  19736. procedure clearTXERR; inline;
  19737. procedure clearTXLARB; inline;
  19738. procedure clearTXREQ; inline;
  19739. procedure clearUINC; inline;
  19740. procedure setDONLY; inline;
  19741. procedure setFRESET; inline;
  19742. procedure setRTREN; inline;
  19743. procedure setTXABAT; inline;
  19744. procedure setTXEN; inline;
  19745. procedure setTXERR; inline;
  19746. procedure setTXLARB; inline;
  19747. procedure setTXREQ; inline;
  19748. procedure setUINC; inline;
  19749. property DONLY : TBits_1 read getDONLY write setDONLY;
  19750. property FRESET : TBits_1 read getFRESET write setFRESET;
  19751. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  19752. property RTREN : TBits_1 read getRTREN write setRTREN;
  19753. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  19754. property TXEN : TBits_1 read getTXEN write setTXEN;
  19755. property TXERR : TBits_1 read getTXERR write setTXERR;
  19756. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  19757. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  19758. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  19759. property UINC : TBits_1 read getUINC write setUINC;
  19760. property w : TBits_32 read getw write setw;
  19761. end;
  19762. TCAN1_C1FIFOINT19 = record
  19763. private
  19764. function getRXFULLIE : TBits_1; inline;
  19765. function getRXFULLIF : TBits_1; inline;
  19766. function getRXHALFIE : TBits_1; inline;
  19767. function getRXHALFIF : TBits_1; inline;
  19768. function getRXNEMPTYIE : TBits_1; inline;
  19769. function getRXNEMPTYIF : TBits_1; inline;
  19770. function getRXOVFLIE : TBits_1; inline;
  19771. function getRXOVFLIF : TBits_1; inline;
  19772. function getTXEMPTYIE : TBits_1; inline;
  19773. function getTXEMPTYIF : TBits_1; inline;
  19774. function getTXHALFIE : TBits_1; inline;
  19775. function getTXHALFIF : TBits_1; inline;
  19776. function getTXNFULLIE : TBits_1; inline;
  19777. function getTXNFULLIF : TBits_1; inline;
  19778. function getw : TBits_32; inline;
  19779. procedure setRXFULLIE(thebits : TBits_1); inline;
  19780. procedure setRXFULLIF(thebits : TBits_1); inline;
  19781. procedure setRXHALFIE(thebits : TBits_1); inline;
  19782. procedure setRXHALFIF(thebits : TBits_1); inline;
  19783. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  19784. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  19785. procedure setRXOVFLIE(thebits : TBits_1); inline;
  19786. procedure setRXOVFLIF(thebits : TBits_1); inline;
  19787. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  19788. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  19789. procedure setTXHALFIE(thebits : TBits_1); inline;
  19790. procedure setTXHALFIF(thebits : TBits_1); inline;
  19791. procedure setTXNFULLIE(thebits : TBits_1); inline;
  19792. procedure setTXNFULLIF(thebits : TBits_1); inline;
  19793. procedure setw(thebits : TBits_32); inline;
  19794. public
  19795. procedure clearRXFULLIE; inline;
  19796. procedure clearRXFULLIF; inline;
  19797. procedure clearRXHALFIE; inline;
  19798. procedure clearRXHALFIF; inline;
  19799. procedure clearRXNEMPTYIE; inline;
  19800. procedure clearRXNEMPTYIF; inline;
  19801. procedure clearRXOVFLIE; inline;
  19802. procedure clearRXOVFLIF; inline;
  19803. procedure clearTXEMPTYIE; inline;
  19804. procedure clearTXEMPTYIF; inline;
  19805. procedure clearTXHALFIE; inline;
  19806. procedure clearTXHALFIF; inline;
  19807. procedure clearTXNFULLIE; inline;
  19808. procedure clearTXNFULLIF; inline;
  19809. procedure setRXFULLIE; inline;
  19810. procedure setRXFULLIF; inline;
  19811. procedure setRXHALFIE; inline;
  19812. procedure setRXHALFIF; inline;
  19813. procedure setRXNEMPTYIE; inline;
  19814. procedure setRXNEMPTYIF; inline;
  19815. procedure setRXOVFLIE; inline;
  19816. procedure setRXOVFLIF; inline;
  19817. procedure setTXEMPTYIE; inline;
  19818. procedure setTXEMPTYIF; inline;
  19819. procedure setTXHALFIE; inline;
  19820. procedure setTXHALFIF; inline;
  19821. procedure setTXNFULLIE; inline;
  19822. procedure setTXNFULLIF; inline;
  19823. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  19824. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  19825. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  19826. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  19827. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  19828. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  19829. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  19830. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  19831. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  19832. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  19833. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  19834. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  19835. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  19836. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  19837. property w : TBits_32 read getw write setw;
  19838. end;
  19839. TCAN1_C1FIFOCI19 = record
  19840. private
  19841. function getCFIFOCI : TBits_5; inline;
  19842. function getw : TBits_32; inline;
  19843. procedure setCFIFOCI(thebits : TBits_5); inline;
  19844. procedure setw(thebits : TBits_32); inline;
  19845. public
  19846. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  19847. property w : TBits_32 read getw write setw;
  19848. end;
  19849. TCAN1_C1FIFOCON20 = record
  19850. private
  19851. function getDONLY : TBits_1; inline;
  19852. function getFRESET : TBits_1; inline;
  19853. function getFSIZE : TBits_5; inline;
  19854. function getRTREN : TBits_1; inline;
  19855. function getTXABAT : TBits_1; inline;
  19856. function getTXEN : TBits_1; inline;
  19857. function getTXERR : TBits_1; inline;
  19858. function getTXLARB : TBits_1; inline;
  19859. function getTXPRI : TBits_2; inline;
  19860. function getTXREQ : TBits_1; inline;
  19861. function getUINC : TBits_1; inline;
  19862. function getw : TBits_32; inline;
  19863. procedure setDONLY(thebits : TBits_1); inline;
  19864. procedure setFRESET(thebits : TBits_1); inline;
  19865. procedure setFSIZE(thebits : TBits_5); inline;
  19866. procedure setRTREN(thebits : TBits_1); inline;
  19867. procedure setTXABAT(thebits : TBits_1); inline;
  19868. procedure setTXEN(thebits : TBits_1); inline;
  19869. procedure setTXERR(thebits : TBits_1); inline;
  19870. procedure setTXLARB(thebits : TBits_1); inline;
  19871. procedure setTXPRI(thebits : TBits_2); inline;
  19872. procedure setTXREQ(thebits : TBits_1); inline;
  19873. procedure setUINC(thebits : TBits_1); inline;
  19874. procedure setw(thebits : TBits_32); inline;
  19875. public
  19876. procedure clearDONLY; inline;
  19877. procedure clearFRESET; inline;
  19878. procedure clearRTREN; inline;
  19879. procedure clearTXABAT; inline;
  19880. procedure clearTXEN; inline;
  19881. procedure clearTXERR; inline;
  19882. procedure clearTXLARB; inline;
  19883. procedure clearTXREQ; inline;
  19884. procedure clearUINC; inline;
  19885. procedure setDONLY; inline;
  19886. procedure setFRESET; inline;
  19887. procedure setRTREN; inline;
  19888. procedure setTXABAT; inline;
  19889. procedure setTXEN; inline;
  19890. procedure setTXERR; inline;
  19891. procedure setTXLARB; inline;
  19892. procedure setTXREQ; inline;
  19893. procedure setUINC; inline;
  19894. property DONLY : TBits_1 read getDONLY write setDONLY;
  19895. property FRESET : TBits_1 read getFRESET write setFRESET;
  19896. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  19897. property RTREN : TBits_1 read getRTREN write setRTREN;
  19898. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  19899. property TXEN : TBits_1 read getTXEN write setTXEN;
  19900. property TXERR : TBits_1 read getTXERR write setTXERR;
  19901. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  19902. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  19903. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  19904. property UINC : TBits_1 read getUINC write setUINC;
  19905. property w : TBits_32 read getw write setw;
  19906. end;
  19907. TCAN1_C1FIFOINT20 = record
  19908. private
  19909. function getRXFULLIE : TBits_1; inline;
  19910. function getRXFULLIF : TBits_1; inline;
  19911. function getRXHALFIE : TBits_1; inline;
  19912. function getRXHALFIF : TBits_1; inline;
  19913. function getRXNEMPTYIE : TBits_1; inline;
  19914. function getRXNEMPTYIF : TBits_1; inline;
  19915. function getRXOVFLIE : TBits_1; inline;
  19916. function getRXOVFLIF : TBits_1; inline;
  19917. function getTXEMPTYIE : TBits_1; inline;
  19918. function getTXEMPTYIF : TBits_1; inline;
  19919. function getTXHALFIE : TBits_1; inline;
  19920. function getTXHALFIF : TBits_1; inline;
  19921. function getTXNFULLIE : TBits_1; inline;
  19922. function getTXNFULLIF : TBits_1; inline;
  19923. function getw : TBits_32; inline;
  19924. procedure setRXFULLIE(thebits : TBits_1); inline;
  19925. procedure setRXFULLIF(thebits : TBits_1); inline;
  19926. procedure setRXHALFIE(thebits : TBits_1); inline;
  19927. procedure setRXHALFIF(thebits : TBits_1); inline;
  19928. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  19929. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  19930. procedure setRXOVFLIE(thebits : TBits_1); inline;
  19931. procedure setRXOVFLIF(thebits : TBits_1); inline;
  19932. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  19933. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  19934. procedure setTXHALFIE(thebits : TBits_1); inline;
  19935. procedure setTXHALFIF(thebits : TBits_1); inline;
  19936. procedure setTXNFULLIE(thebits : TBits_1); inline;
  19937. procedure setTXNFULLIF(thebits : TBits_1); inline;
  19938. procedure setw(thebits : TBits_32); inline;
  19939. public
  19940. procedure clearRXFULLIE; inline;
  19941. procedure clearRXFULLIF; inline;
  19942. procedure clearRXHALFIE; inline;
  19943. procedure clearRXHALFIF; inline;
  19944. procedure clearRXNEMPTYIE; inline;
  19945. procedure clearRXNEMPTYIF; inline;
  19946. procedure clearRXOVFLIE; inline;
  19947. procedure clearRXOVFLIF; inline;
  19948. procedure clearTXEMPTYIE; inline;
  19949. procedure clearTXEMPTYIF; inline;
  19950. procedure clearTXHALFIE; inline;
  19951. procedure clearTXHALFIF; inline;
  19952. procedure clearTXNFULLIE; inline;
  19953. procedure clearTXNFULLIF; inline;
  19954. procedure setRXFULLIE; inline;
  19955. procedure setRXFULLIF; inline;
  19956. procedure setRXHALFIE; inline;
  19957. procedure setRXHALFIF; inline;
  19958. procedure setRXNEMPTYIE; inline;
  19959. procedure setRXNEMPTYIF; inline;
  19960. procedure setRXOVFLIE; inline;
  19961. procedure setRXOVFLIF; inline;
  19962. procedure setTXEMPTYIE; inline;
  19963. procedure setTXEMPTYIF; inline;
  19964. procedure setTXHALFIE; inline;
  19965. procedure setTXHALFIF; inline;
  19966. procedure setTXNFULLIE; inline;
  19967. procedure setTXNFULLIF; inline;
  19968. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  19969. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  19970. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  19971. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  19972. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  19973. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  19974. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  19975. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  19976. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  19977. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  19978. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  19979. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  19980. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  19981. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  19982. property w : TBits_32 read getw write setw;
  19983. end;
  19984. TCAN1_C1FIFOCI20 = record
  19985. private
  19986. function getCFIFOCI : TBits_5; inline;
  19987. function getw : TBits_32; inline;
  19988. procedure setCFIFOCI(thebits : TBits_5); inline;
  19989. procedure setw(thebits : TBits_32); inline;
  19990. public
  19991. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  19992. property w : TBits_32 read getw write setw;
  19993. end;
  19994. TCAN1_C1FIFOCON21 = record
  19995. private
  19996. function getDONLY : TBits_1; inline;
  19997. function getFRESET : TBits_1; inline;
  19998. function getFSIZE : TBits_5; inline;
  19999. function getRTREN : TBits_1; inline;
  20000. function getTXABAT : TBits_1; inline;
  20001. function getTXEN : TBits_1; inline;
  20002. function getTXERR : TBits_1; inline;
  20003. function getTXLARB : TBits_1; inline;
  20004. function getTXPRI : TBits_2; inline;
  20005. function getTXREQ : TBits_1; inline;
  20006. function getUINC : TBits_1; inline;
  20007. function getw : TBits_32; inline;
  20008. procedure setDONLY(thebits : TBits_1); inline;
  20009. procedure setFRESET(thebits : TBits_1); inline;
  20010. procedure setFSIZE(thebits : TBits_5); inline;
  20011. procedure setRTREN(thebits : TBits_1); inline;
  20012. procedure setTXABAT(thebits : TBits_1); inline;
  20013. procedure setTXEN(thebits : TBits_1); inline;
  20014. procedure setTXERR(thebits : TBits_1); inline;
  20015. procedure setTXLARB(thebits : TBits_1); inline;
  20016. procedure setTXPRI(thebits : TBits_2); inline;
  20017. procedure setTXREQ(thebits : TBits_1); inline;
  20018. procedure setUINC(thebits : TBits_1); inline;
  20019. procedure setw(thebits : TBits_32); inline;
  20020. public
  20021. procedure clearDONLY; inline;
  20022. procedure clearFRESET; inline;
  20023. procedure clearRTREN; inline;
  20024. procedure clearTXABAT; inline;
  20025. procedure clearTXEN; inline;
  20026. procedure clearTXERR; inline;
  20027. procedure clearTXLARB; inline;
  20028. procedure clearTXREQ; inline;
  20029. procedure clearUINC; inline;
  20030. procedure setDONLY; inline;
  20031. procedure setFRESET; inline;
  20032. procedure setRTREN; inline;
  20033. procedure setTXABAT; inline;
  20034. procedure setTXEN; inline;
  20035. procedure setTXERR; inline;
  20036. procedure setTXLARB; inline;
  20037. procedure setTXREQ; inline;
  20038. procedure setUINC; inline;
  20039. property DONLY : TBits_1 read getDONLY write setDONLY;
  20040. property FRESET : TBits_1 read getFRESET write setFRESET;
  20041. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  20042. property RTREN : TBits_1 read getRTREN write setRTREN;
  20043. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  20044. property TXEN : TBits_1 read getTXEN write setTXEN;
  20045. property TXERR : TBits_1 read getTXERR write setTXERR;
  20046. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  20047. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  20048. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  20049. property UINC : TBits_1 read getUINC write setUINC;
  20050. property w : TBits_32 read getw write setw;
  20051. end;
  20052. TCAN1_C1FIFOINT21 = record
  20053. private
  20054. function getRXFULLIE : TBits_1; inline;
  20055. function getRXFULLIF : TBits_1; inline;
  20056. function getRXHALFIE : TBits_1; inline;
  20057. function getRXHALFIF : TBits_1; inline;
  20058. function getRXNEMPTYIE : TBits_1; inline;
  20059. function getRXNEMPTYIF : TBits_1; inline;
  20060. function getRXOVFLIE : TBits_1; inline;
  20061. function getRXOVFLIF : TBits_1; inline;
  20062. function getTXEMPTYIE : TBits_1; inline;
  20063. function getTXEMPTYIF : TBits_1; inline;
  20064. function getTXHALFIE : TBits_1; inline;
  20065. function getTXHALFIF : TBits_1; inline;
  20066. function getTXNFULLIE : TBits_1; inline;
  20067. function getTXNFULLIF : TBits_1; inline;
  20068. function getw : TBits_32; inline;
  20069. procedure setRXFULLIE(thebits : TBits_1); inline;
  20070. procedure setRXFULLIF(thebits : TBits_1); inline;
  20071. procedure setRXHALFIE(thebits : TBits_1); inline;
  20072. procedure setRXHALFIF(thebits : TBits_1); inline;
  20073. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  20074. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  20075. procedure setRXOVFLIE(thebits : TBits_1); inline;
  20076. procedure setRXOVFLIF(thebits : TBits_1); inline;
  20077. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  20078. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  20079. procedure setTXHALFIE(thebits : TBits_1); inline;
  20080. procedure setTXHALFIF(thebits : TBits_1); inline;
  20081. procedure setTXNFULLIE(thebits : TBits_1); inline;
  20082. procedure setTXNFULLIF(thebits : TBits_1); inline;
  20083. procedure setw(thebits : TBits_32); inline;
  20084. public
  20085. procedure clearRXFULLIE; inline;
  20086. procedure clearRXFULLIF; inline;
  20087. procedure clearRXHALFIE; inline;
  20088. procedure clearRXHALFIF; inline;
  20089. procedure clearRXNEMPTYIE; inline;
  20090. procedure clearRXNEMPTYIF; inline;
  20091. procedure clearRXOVFLIE; inline;
  20092. procedure clearRXOVFLIF; inline;
  20093. procedure clearTXEMPTYIE; inline;
  20094. procedure clearTXEMPTYIF; inline;
  20095. procedure clearTXHALFIE; inline;
  20096. procedure clearTXHALFIF; inline;
  20097. procedure clearTXNFULLIE; inline;
  20098. procedure clearTXNFULLIF; inline;
  20099. procedure setRXFULLIE; inline;
  20100. procedure setRXFULLIF; inline;
  20101. procedure setRXHALFIE; inline;
  20102. procedure setRXHALFIF; inline;
  20103. procedure setRXNEMPTYIE; inline;
  20104. procedure setRXNEMPTYIF; inline;
  20105. procedure setRXOVFLIE; inline;
  20106. procedure setRXOVFLIF; inline;
  20107. procedure setTXEMPTYIE; inline;
  20108. procedure setTXEMPTYIF; inline;
  20109. procedure setTXHALFIE; inline;
  20110. procedure setTXHALFIF; inline;
  20111. procedure setTXNFULLIE; inline;
  20112. procedure setTXNFULLIF; inline;
  20113. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  20114. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  20115. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  20116. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  20117. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  20118. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  20119. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  20120. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  20121. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  20122. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  20123. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  20124. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  20125. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  20126. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  20127. property w : TBits_32 read getw write setw;
  20128. end;
  20129. TCAN1_C1FIFOCI21 = record
  20130. private
  20131. function getCFIFOCI : TBits_5; inline;
  20132. function getw : TBits_32; inline;
  20133. procedure setCFIFOCI(thebits : TBits_5); inline;
  20134. procedure setw(thebits : TBits_32); inline;
  20135. public
  20136. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  20137. property w : TBits_32 read getw write setw;
  20138. end;
  20139. TCAN1_C1FIFOCON22 = record
  20140. private
  20141. function getDONLY : TBits_1; inline;
  20142. function getFRESET : TBits_1; inline;
  20143. function getFSIZE : TBits_5; inline;
  20144. function getRTREN : TBits_1; inline;
  20145. function getTXABAT : TBits_1; inline;
  20146. function getTXEN : TBits_1; inline;
  20147. function getTXERR : TBits_1; inline;
  20148. function getTXLARB : TBits_1; inline;
  20149. function getTXPRI : TBits_2; inline;
  20150. function getTXREQ : TBits_1; inline;
  20151. function getUINC : TBits_1; inline;
  20152. function getw : TBits_32; inline;
  20153. procedure setDONLY(thebits : TBits_1); inline;
  20154. procedure setFRESET(thebits : TBits_1); inline;
  20155. procedure setFSIZE(thebits : TBits_5); inline;
  20156. procedure setRTREN(thebits : TBits_1); inline;
  20157. procedure setTXABAT(thebits : TBits_1); inline;
  20158. procedure setTXEN(thebits : TBits_1); inline;
  20159. procedure setTXERR(thebits : TBits_1); inline;
  20160. procedure setTXLARB(thebits : TBits_1); inline;
  20161. procedure setTXPRI(thebits : TBits_2); inline;
  20162. procedure setTXREQ(thebits : TBits_1); inline;
  20163. procedure setUINC(thebits : TBits_1); inline;
  20164. procedure setw(thebits : TBits_32); inline;
  20165. public
  20166. procedure clearDONLY; inline;
  20167. procedure clearFRESET; inline;
  20168. procedure clearRTREN; inline;
  20169. procedure clearTXABAT; inline;
  20170. procedure clearTXEN; inline;
  20171. procedure clearTXERR; inline;
  20172. procedure clearTXLARB; inline;
  20173. procedure clearTXREQ; inline;
  20174. procedure clearUINC; inline;
  20175. procedure setDONLY; inline;
  20176. procedure setFRESET; inline;
  20177. procedure setRTREN; inline;
  20178. procedure setTXABAT; inline;
  20179. procedure setTXEN; inline;
  20180. procedure setTXERR; inline;
  20181. procedure setTXLARB; inline;
  20182. procedure setTXREQ; inline;
  20183. procedure setUINC; inline;
  20184. property DONLY : TBits_1 read getDONLY write setDONLY;
  20185. property FRESET : TBits_1 read getFRESET write setFRESET;
  20186. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  20187. property RTREN : TBits_1 read getRTREN write setRTREN;
  20188. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  20189. property TXEN : TBits_1 read getTXEN write setTXEN;
  20190. property TXERR : TBits_1 read getTXERR write setTXERR;
  20191. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  20192. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  20193. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  20194. property UINC : TBits_1 read getUINC write setUINC;
  20195. property w : TBits_32 read getw write setw;
  20196. end;
  20197. TCAN1_C1FIFOINT22 = record
  20198. private
  20199. function getRXFULLIE : TBits_1; inline;
  20200. function getRXFULLIF : TBits_1; inline;
  20201. function getRXHALFIE : TBits_1; inline;
  20202. function getRXHALFIF : TBits_1; inline;
  20203. function getRXNEMPTYIE : TBits_1; inline;
  20204. function getRXNEMPTYIF : TBits_1; inline;
  20205. function getRXOVFLIE : TBits_1; inline;
  20206. function getRXOVFLIF : TBits_1; inline;
  20207. function getTXEMPTYIE : TBits_1; inline;
  20208. function getTXEMPTYIF : TBits_1; inline;
  20209. function getTXHALFIE : TBits_1; inline;
  20210. function getTXHALFIF : TBits_1; inline;
  20211. function getTXNFULLIE : TBits_1; inline;
  20212. function getTXNFULLIF : TBits_1; inline;
  20213. function getw : TBits_32; inline;
  20214. procedure setRXFULLIE(thebits : TBits_1); inline;
  20215. procedure setRXFULLIF(thebits : TBits_1); inline;
  20216. procedure setRXHALFIE(thebits : TBits_1); inline;
  20217. procedure setRXHALFIF(thebits : TBits_1); inline;
  20218. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  20219. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  20220. procedure setRXOVFLIE(thebits : TBits_1); inline;
  20221. procedure setRXOVFLIF(thebits : TBits_1); inline;
  20222. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  20223. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  20224. procedure setTXHALFIE(thebits : TBits_1); inline;
  20225. procedure setTXHALFIF(thebits : TBits_1); inline;
  20226. procedure setTXNFULLIE(thebits : TBits_1); inline;
  20227. procedure setTXNFULLIF(thebits : TBits_1); inline;
  20228. procedure setw(thebits : TBits_32); inline;
  20229. public
  20230. procedure clearRXFULLIE; inline;
  20231. procedure clearRXFULLIF; inline;
  20232. procedure clearRXHALFIE; inline;
  20233. procedure clearRXHALFIF; inline;
  20234. procedure clearRXNEMPTYIE; inline;
  20235. procedure clearRXNEMPTYIF; inline;
  20236. procedure clearRXOVFLIE; inline;
  20237. procedure clearRXOVFLIF; inline;
  20238. procedure clearTXEMPTYIE; inline;
  20239. procedure clearTXEMPTYIF; inline;
  20240. procedure clearTXHALFIE; inline;
  20241. procedure clearTXHALFIF; inline;
  20242. procedure clearTXNFULLIE; inline;
  20243. procedure clearTXNFULLIF; inline;
  20244. procedure setRXFULLIE; inline;
  20245. procedure setRXFULLIF; inline;
  20246. procedure setRXHALFIE; inline;
  20247. procedure setRXHALFIF; inline;
  20248. procedure setRXNEMPTYIE; inline;
  20249. procedure setRXNEMPTYIF; inline;
  20250. procedure setRXOVFLIE; inline;
  20251. procedure setRXOVFLIF; inline;
  20252. procedure setTXEMPTYIE; inline;
  20253. procedure setTXEMPTYIF; inline;
  20254. procedure setTXHALFIE; inline;
  20255. procedure setTXHALFIF; inline;
  20256. procedure setTXNFULLIE; inline;
  20257. procedure setTXNFULLIF; inline;
  20258. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  20259. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  20260. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  20261. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  20262. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  20263. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  20264. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  20265. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  20266. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  20267. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  20268. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  20269. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  20270. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  20271. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  20272. property w : TBits_32 read getw write setw;
  20273. end;
  20274. TCAN1_C1FIFOCI22 = record
  20275. private
  20276. function getCFIFOCI : TBits_5; inline;
  20277. function getw : TBits_32; inline;
  20278. procedure setCFIFOCI(thebits : TBits_5); inline;
  20279. procedure setw(thebits : TBits_32); inline;
  20280. public
  20281. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  20282. property w : TBits_32 read getw write setw;
  20283. end;
  20284. TCAN1_C1FIFOCON23 = record
  20285. private
  20286. function getDONLY : TBits_1; inline;
  20287. function getFRESET : TBits_1; inline;
  20288. function getFSIZE : TBits_5; inline;
  20289. function getRTREN : TBits_1; inline;
  20290. function getTXABAT : TBits_1; inline;
  20291. function getTXEN : TBits_1; inline;
  20292. function getTXERR : TBits_1; inline;
  20293. function getTXLARB : TBits_1; inline;
  20294. function getTXPRI : TBits_2; inline;
  20295. function getTXREQ : TBits_1; inline;
  20296. function getUINC : TBits_1; inline;
  20297. function getw : TBits_32; inline;
  20298. procedure setDONLY(thebits : TBits_1); inline;
  20299. procedure setFRESET(thebits : TBits_1); inline;
  20300. procedure setFSIZE(thebits : TBits_5); inline;
  20301. procedure setRTREN(thebits : TBits_1); inline;
  20302. procedure setTXABAT(thebits : TBits_1); inline;
  20303. procedure setTXEN(thebits : TBits_1); inline;
  20304. procedure setTXERR(thebits : TBits_1); inline;
  20305. procedure setTXLARB(thebits : TBits_1); inline;
  20306. procedure setTXPRI(thebits : TBits_2); inline;
  20307. procedure setTXREQ(thebits : TBits_1); inline;
  20308. procedure setUINC(thebits : TBits_1); inline;
  20309. procedure setw(thebits : TBits_32); inline;
  20310. public
  20311. procedure clearDONLY; inline;
  20312. procedure clearFRESET; inline;
  20313. procedure clearRTREN; inline;
  20314. procedure clearTXABAT; inline;
  20315. procedure clearTXEN; inline;
  20316. procedure clearTXERR; inline;
  20317. procedure clearTXLARB; inline;
  20318. procedure clearTXREQ; inline;
  20319. procedure clearUINC; inline;
  20320. procedure setDONLY; inline;
  20321. procedure setFRESET; inline;
  20322. procedure setRTREN; inline;
  20323. procedure setTXABAT; inline;
  20324. procedure setTXEN; inline;
  20325. procedure setTXERR; inline;
  20326. procedure setTXLARB; inline;
  20327. procedure setTXREQ; inline;
  20328. procedure setUINC; inline;
  20329. property DONLY : TBits_1 read getDONLY write setDONLY;
  20330. property FRESET : TBits_1 read getFRESET write setFRESET;
  20331. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  20332. property RTREN : TBits_1 read getRTREN write setRTREN;
  20333. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  20334. property TXEN : TBits_1 read getTXEN write setTXEN;
  20335. property TXERR : TBits_1 read getTXERR write setTXERR;
  20336. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  20337. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  20338. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  20339. property UINC : TBits_1 read getUINC write setUINC;
  20340. property w : TBits_32 read getw write setw;
  20341. end;
  20342. TCAN1_C1FIFOINT23 = record
  20343. private
  20344. function getRXFULLIE : TBits_1; inline;
  20345. function getRXFULLIF : TBits_1; inline;
  20346. function getRXHALFIE : TBits_1; inline;
  20347. function getRXHALFIF : TBits_1; inline;
  20348. function getRXNEMPTYIE : TBits_1; inline;
  20349. function getRXNEMPTYIF : TBits_1; inline;
  20350. function getRXOVFLIE : TBits_1; inline;
  20351. function getRXOVFLIF : TBits_1; inline;
  20352. function getTXEMPTYIE : TBits_1; inline;
  20353. function getTXEMPTYIF : TBits_1; inline;
  20354. function getTXHALFIE : TBits_1; inline;
  20355. function getTXHALFIF : TBits_1; inline;
  20356. function getTXNFULLIE : TBits_1; inline;
  20357. function getTXNFULLIF : TBits_1; inline;
  20358. function getw : TBits_32; inline;
  20359. procedure setRXFULLIE(thebits : TBits_1); inline;
  20360. procedure setRXFULLIF(thebits : TBits_1); inline;
  20361. procedure setRXHALFIE(thebits : TBits_1); inline;
  20362. procedure setRXHALFIF(thebits : TBits_1); inline;
  20363. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  20364. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  20365. procedure setRXOVFLIE(thebits : TBits_1); inline;
  20366. procedure setRXOVFLIF(thebits : TBits_1); inline;
  20367. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  20368. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  20369. procedure setTXHALFIE(thebits : TBits_1); inline;
  20370. procedure setTXHALFIF(thebits : TBits_1); inline;
  20371. procedure setTXNFULLIE(thebits : TBits_1); inline;
  20372. procedure setTXNFULLIF(thebits : TBits_1); inline;
  20373. procedure setw(thebits : TBits_32); inline;
  20374. public
  20375. procedure clearRXFULLIE; inline;
  20376. procedure clearRXFULLIF; inline;
  20377. procedure clearRXHALFIE; inline;
  20378. procedure clearRXHALFIF; inline;
  20379. procedure clearRXNEMPTYIE; inline;
  20380. procedure clearRXNEMPTYIF; inline;
  20381. procedure clearRXOVFLIE; inline;
  20382. procedure clearRXOVFLIF; inline;
  20383. procedure clearTXEMPTYIE; inline;
  20384. procedure clearTXEMPTYIF; inline;
  20385. procedure clearTXHALFIE; inline;
  20386. procedure clearTXHALFIF; inline;
  20387. procedure clearTXNFULLIE; inline;
  20388. procedure clearTXNFULLIF; inline;
  20389. procedure setRXFULLIE; inline;
  20390. procedure setRXFULLIF; inline;
  20391. procedure setRXHALFIE; inline;
  20392. procedure setRXHALFIF; inline;
  20393. procedure setRXNEMPTYIE; inline;
  20394. procedure setRXNEMPTYIF; inline;
  20395. procedure setRXOVFLIE; inline;
  20396. procedure setRXOVFLIF; inline;
  20397. procedure setTXEMPTYIE; inline;
  20398. procedure setTXEMPTYIF; inline;
  20399. procedure setTXHALFIE; inline;
  20400. procedure setTXHALFIF; inline;
  20401. procedure setTXNFULLIE; inline;
  20402. procedure setTXNFULLIF; inline;
  20403. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  20404. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  20405. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  20406. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  20407. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  20408. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  20409. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  20410. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  20411. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  20412. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  20413. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  20414. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  20415. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  20416. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  20417. property w : TBits_32 read getw write setw;
  20418. end;
  20419. TCAN1_C1FIFOCI23 = record
  20420. private
  20421. function getCFIFOCI : TBits_5; inline;
  20422. function getw : TBits_32; inline;
  20423. procedure setCFIFOCI(thebits : TBits_5); inline;
  20424. procedure setw(thebits : TBits_32); inline;
  20425. public
  20426. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  20427. property w : TBits_32 read getw write setw;
  20428. end;
  20429. TCAN1_C1FIFOCON24 = record
  20430. private
  20431. function getDONLY : TBits_1; inline;
  20432. function getFRESET : TBits_1; inline;
  20433. function getFSIZE : TBits_5; inline;
  20434. function getRTREN : TBits_1; inline;
  20435. function getTXABAT : TBits_1; inline;
  20436. function getTXEN : TBits_1; inline;
  20437. function getTXERR : TBits_1; inline;
  20438. function getTXLARB : TBits_1; inline;
  20439. function getTXPRI : TBits_2; inline;
  20440. function getTXREQ : TBits_1; inline;
  20441. function getUINC : TBits_1; inline;
  20442. function getw : TBits_32; inline;
  20443. procedure setDONLY(thebits : TBits_1); inline;
  20444. procedure setFRESET(thebits : TBits_1); inline;
  20445. procedure setFSIZE(thebits : TBits_5); inline;
  20446. procedure setRTREN(thebits : TBits_1); inline;
  20447. procedure setTXABAT(thebits : TBits_1); inline;
  20448. procedure setTXEN(thebits : TBits_1); inline;
  20449. procedure setTXERR(thebits : TBits_1); inline;
  20450. procedure setTXLARB(thebits : TBits_1); inline;
  20451. procedure setTXPRI(thebits : TBits_2); inline;
  20452. procedure setTXREQ(thebits : TBits_1); inline;
  20453. procedure setUINC(thebits : TBits_1); inline;
  20454. procedure setw(thebits : TBits_32); inline;
  20455. public
  20456. procedure clearDONLY; inline;
  20457. procedure clearFRESET; inline;
  20458. procedure clearRTREN; inline;
  20459. procedure clearTXABAT; inline;
  20460. procedure clearTXEN; inline;
  20461. procedure clearTXERR; inline;
  20462. procedure clearTXLARB; inline;
  20463. procedure clearTXREQ; inline;
  20464. procedure clearUINC; inline;
  20465. procedure setDONLY; inline;
  20466. procedure setFRESET; inline;
  20467. procedure setRTREN; inline;
  20468. procedure setTXABAT; inline;
  20469. procedure setTXEN; inline;
  20470. procedure setTXERR; inline;
  20471. procedure setTXLARB; inline;
  20472. procedure setTXREQ; inline;
  20473. procedure setUINC; inline;
  20474. property DONLY : TBits_1 read getDONLY write setDONLY;
  20475. property FRESET : TBits_1 read getFRESET write setFRESET;
  20476. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  20477. property RTREN : TBits_1 read getRTREN write setRTREN;
  20478. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  20479. property TXEN : TBits_1 read getTXEN write setTXEN;
  20480. property TXERR : TBits_1 read getTXERR write setTXERR;
  20481. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  20482. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  20483. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  20484. property UINC : TBits_1 read getUINC write setUINC;
  20485. property w : TBits_32 read getw write setw;
  20486. end;
  20487. TCAN1_C1FIFOINT24 = record
  20488. private
  20489. function getRXFULLIE : TBits_1; inline;
  20490. function getRXFULLIF : TBits_1; inline;
  20491. function getRXHALFIE : TBits_1; inline;
  20492. function getRXHALFIF : TBits_1; inline;
  20493. function getRXNEMPTYIE : TBits_1; inline;
  20494. function getRXNEMPTYIF : TBits_1; inline;
  20495. function getRXOVFLIE : TBits_1; inline;
  20496. function getRXOVFLIF : TBits_1; inline;
  20497. function getTXEMPTYIE : TBits_1; inline;
  20498. function getTXEMPTYIF : TBits_1; inline;
  20499. function getTXHALFIE : TBits_1; inline;
  20500. function getTXHALFIF : TBits_1; inline;
  20501. function getTXNFULLIE : TBits_1; inline;
  20502. function getTXNFULLIF : TBits_1; inline;
  20503. function getw : TBits_32; inline;
  20504. procedure setRXFULLIE(thebits : TBits_1); inline;
  20505. procedure setRXFULLIF(thebits : TBits_1); inline;
  20506. procedure setRXHALFIE(thebits : TBits_1); inline;
  20507. procedure setRXHALFIF(thebits : TBits_1); inline;
  20508. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  20509. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  20510. procedure setRXOVFLIE(thebits : TBits_1); inline;
  20511. procedure setRXOVFLIF(thebits : TBits_1); inline;
  20512. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  20513. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  20514. procedure setTXHALFIE(thebits : TBits_1); inline;
  20515. procedure setTXHALFIF(thebits : TBits_1); inline;
  20516. procedure setTXNFULLIE(thebits : TBits_1); inline;
  20517. procedure setTXNFULLIF(thebits : TBits_1); inline;
  20518. procedure setw(thebits : TBits_32); inline;
  20519. public
  20520. procedure clearRXFULLIE; inline;
  20521. procedure clearRXFULLIF; inline;
  20522. procedure clearRXHALFIE; inline;
  20523. procedure clearRXHALFIF; inline;
  20524. procedure clearRXNEMPTYIE; inline;
  20525. procedure clearRXNEMPTYIF; inline;
  20526. procedure clearRXOVFLIE; inline;
  20527. procedure clearRXOVFLIF; inline;
  20528. procedure clearTXEMPTYIE; inline;
  20529. procedure clearTXEMPTYIF; inline;
  20530. procedure clearTXHALFIE; inline;
  20531. procedure clearTXHALFIF; inline;
  20532. procedure clearTXNFULLIE; inline;
  20533. procedure clearTXNFULLIF; inline;
  20534. procedure setRXFULLIE; inline;
  20535. procedure setRXFULLIF; inline;
  20536. procedure setRXHALFIE; inline;
  20537. procedure setRXHALFIF; inline;
  20538. procedure setRXNEMPTYIE; inline;
  20539. procedure setRXNEMPTYIF; inline;
  20540. procedure setRXOVFLIE; inline;
  20541. procedure setRXOVFLIF; inline;
  20542. procedure setTXEMPTYIE; inline;
  20543. procedure setTXEMPTYIF; inline;
  20544. procedure setTXHALFIE; inline;
  20545. procedure setTXHALFIF; inline;
  20546. procedure setTXNFULLIE; inline;
  20547. procedure setTXNFULLIF; inline;
  20548. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  20549. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  20550. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  20551. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  20552. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  20553. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  20554. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  20555. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  20556. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  20557. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  20558. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  20559. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  20560. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  20561. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  20562. property w : TBits_32 read getw write setw;
  20563. end;
  20564. TCAN1_C1FIFOCI24 = record
  20565. private
  20566. function getCFIFOCI : TBits_5; inline;
  20567. function getw : TBits_32; inline;
  20568. procedure setCFIFOCI(thebits : TBits_5); inline;
  20569. procedure setw(thebits : TBits_32); inline;
  20570. public
  20571. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  20572. property w : TBits_32 read getw write setw;
  20573. end;
  20574. TCAN1_C1FIFOCON25 = record
  20575. private
  20576. function getDONLY : TBits_1; inline;
  20577. function getFRESET : TBits_1; inline;
  20578. function getFSIZE : TBits_5; inline;
  20579. function getRTREN : TBits_1; inline;
  20580. function getTXABAT : TBits_1; inline;
  20581. function getTXEN : TBits_1; inline;
  20582. function getTXERR : TBits_1; inline;
  20583. function getTXLARB : TBits_1; inline;
  20584. function getTXPRI : TBits_2; inline;
  20585. function getTXREQ : TBits_1; inline;
  20586. function getUINC : TBits_1; inline;
  20587. function getw : TBits_32; inline;
  20588. procedure setDONLY(thebits : TBits_1); inline;
  20589. procedure setFRESET(thebits : TBits_1); inline;
  20590. procedure setFSIZE(thebits : TBits_5); inline;
  20591. procedure setRTREN(thebits : TBits_1); inline;
  20592. procedure setTXABAT(thebits : TBits_1); inline;
  20593. procedure setTXEN(thebits : TBits_1); inline;
  20594. procedure setTXERR(thebits : TBits_1); inline;
  20595. procedure setTXLARB(thebits : TBits_1); inline;
  20596. procedure setTXPRI(thebits : TBits_2); inline;
  20597. procedure setTXREQ(thebits : TBits_1); inline;
  20598. procedure setUINC(thebits : TBits_1); inline;
  20599. procedure setw(thebits : TBits_32); inline;
  20600. public
  20601. procedure clearDONLY; inline;
  20602. procedure clearFRESET; inline;
  20603. procedure clearRTREN; inline;
  20604. procedure clearTXABAT; inline;
  20605. procedure clearTXEN; inline;
  20606. procedure clearTXERR; inline;
  20607. procedure clearTXLARB; inline;
  20608. procedure clearTXREQ; inline;
  20609. procedure clearUINC; inline;
  20610. procedure setDONLY; inline;
  20611. procedure setFRESET; inline;
  20612. procedure setRTREN; inline;
  20613. procedure setTXABAT; inline;
  20614. procedure setTXEN; inline;
  20615. procedure setTXERR; inline;
  20616. procedure setTXLARB; inline;
  20617. procedure setTXREQ; inline;
  20618. procedure setUINC; inline;
  20619. property DONLY : TBits_1 read getDONLY write setDONLY;
  20620. property FRESET : TBits_1 read getFRESET write setFRESET;
  20621. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  20622. property RTREN : TBits_1 read getRTREN write setRTREN;
  20623. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  20624. property TXEN : TBits_1 read getTXEN write setTXEN;
  20625. property TXERR : TBits_1 read getTXERR write setTXERR;
  20626. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  20627. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  20628. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  20629. property UINC : TBits_1 read getUINC write setUINC;
  20630. property w : TBits_32 read getw write setw;
  20631. end;
  20632. TCAN1_C1FIFOINT25 = record
  20633. private
  20634. function getRXFULLIE : TBits_1; inline;
  20635. function getRXFULLIF : TBits_1; inline;
  20636. function getRXHALFIE : TBits_1; inline;
  20637. function getRXHALFIF : TBits_1; inline;
  20638. function getRXNEMPTYIE : TBits_1; inline;
  20639. function getRXNEMPTYIF : TBits_1; inline;
  20640. function getRXOVFLIE : TBits_1; inline;
  20641. function getRXOVFLIF : TBits_1; inline;
  20642. function getTXEMPTYIE : TBits_1; inline;
  20643. function getTXEMPTYIF : TBits_1; inline;
  20644. function getTXHALFIE : TBits_1; inline;
  20645. function getTXHALFIF : TBits_1; inline;
  20646. function getTXNFULLIE : TBits_1; inline;
  20647. function getTXNFULLIF : TBits_1; inline;
  20648. function getw : TBits_32; inline;
  20649. procedure setRXFULLIE(thebits : TBits_1); inline;
  20650. procedure setRXFULLIF(thebits : TBits_1); inline;
  20651. procedure setRXHALFIE(thebits : TBits_1); inline;
  20652. procedure setRXHALFIF(thebits : TBits_1); inline;
  20653. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  20654. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  20655. procedure setRXOVFLIE(thebits : TBits_1); inline;
  20656. procedure setRXOVFLIF(thebits : TBits_1); inline;
  20657. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  20658. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  20659. procedure setTXHALFIE(thebits : TBits_1); inline;
  20660. procedure setTXHALFIF(thebits : TBits_1); inline;
  20661. procedure setTXNFULLIE(thebits : TBits_1); inline;
  20662. procedure setTXNFULLIF(thebits : TBits_1); inline;
  20663. procedure setw(thebits : TBits_32); inline;
  20664. public
  20665. procedure clearRXFULLIE; inline;
  20666. procedure clearRXFULLIF; inline;
  20667. procedure clearRXHALFIE; inline;
  20668. procedure clearRXHALFIF; inline;
  20669. procedure clearRXNEMPTYIE; inline;
  20670. procedure clearRXNEMPTYIF; inline;
  20671. procedure clearRXOVFLIE; inline;
  20672. procedure clearRXOVFLIF; inline;
  20673. procedure clearTXEMPTYIE; inline;
  20674. procedure clearTXEMPTYIF; inline;
  20675. procedure clearTXHALFIE; inline;
  20676. procedure clearTXHALFIF; inline;
  20677. procedure clearTXNFULLIE; inline;
  20678. procedure clearTXNFULLIF; inline;
  20679. procedure setRXFULLIE; inline;
  20680. procedure setRXFULLIF; inline;
  20681. procedure setRXHALFIE; inline;
  20682. procedure setRXHALFIF; inline;
  20683. procedure setRXNEMPTYIE; inline;
  20684. procedure setRXNEMPTYIF; inline;
  20685. procedure setRXOVFLIE; inline;
  20686. procedure setRXOVFLIF; inline;
  20687. procedure setTXEMPTYIE; inline;
  20688. procedure setTXEMPTYIF; inline;
  20689. procedure setTXHALFIE; inline;
  20690. procedure setTXHALFIF; inline;
  20691. procedure setTXNFULLIE; inline;
  20692. procedure setTXNFULLIF; inline;
  20693. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  20694. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  20695. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  20696. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  20697. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  20698. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  20699. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  20700. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  20701. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  20702. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  20703. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  20704. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  20705. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  20706. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  20707. property w : TBits_32 read getw write setw;
  20708. end;
  20709. TCAN1_C1FIFOCI25 = record
  20710. private
  20711. function getCFIFOCI : TBits_5; inline;
  20712. function getw : TBits_32; inline;
  20713. procedure setCFIFOCI(thebits : TBits_5); inline;
  20714. procedure setw(thebits : TBits_32); inline;
  20715. public
  20716. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  20717. property w : TBits_32 read getw write setw;
  20718. end;
  20719. TCAN1_C1FIFOCON26 = record
  20720. private
  20721. function getDONLY : TBits_1; inline;
  20722. function getFRESET : TBits_1; inline;
  20723. function getFSIZE : TBits_5; inline;
  20724. function getRTREN : TBits_1; inline;
  20725. function getTXABAT : TBits_1; inline;
  20726. function getTXEN : TBits_1; inline;
  20727. function getTXERR : TBits_1; inline;
  20728. function getTXLARB : TBits_1; inline;
  20729. function getTXPRI : TBits_2; inline;
  20730. function getTXREQ : TBits_1; inline;
  20731. function getUINC : TBits_1; inline;
  20732. function getw : TBits_32; inline;
  20733. procedure setDONLY(thebits : TBits_1); inline;
  20734. procedure setFRESET(thebits : TBits_1); inline;
  20735. procedure setFSIZE(thebits : TBits_5); inline;
  20736. procedure setRTREN(thebits : TBits_1); inline;
  20737. procedure setTXABAT(thebits : TBits_1); inline;
  20738. procedure setTXEN(thebits : TBits_1); inline;
  20739. procedure setTXERR(thebits : TBits_1); inline;
  20740. procedure setTXLARB(thebits : TBits_1); inline;
  20741. procedure setTXPRI(thebits : TBits_2); inline;
  20742. procedure setTXREQ(thebits : TBits_1); inline;
  20743. procedure setUINC(thebits : TBits_1); inline;
  20744. procedure setw(thebits : TBits_32); inline;
  20745. public
  20746. procedure clearDONLY; inline;
  20747. procedure clearFRESET; inline;
  20748. procedure clearRTREN; inline;
  20749. procedure clearTXABAT; inline;
  20750. procedure clearTXEN; inline;
  20751. procedure clearTXERR; inline;
  20752. procedure clearTXLARB; inline;
  20753. procedure clearTXREQ; inline;
  20754. procedure clearUINC; inline;
  20755. procedure setDONLY; inline;
  20756. procedure setFRESET; inline;
  20757. procedure setRTREN; inline;
  20758. procedure setTXABAT; inline;
  20759. procedure setTXEN; inline;
  20760. procedure setTXERR; inline;
  20761. procedure setTXLARB; inline;
  20762. procedure setTXREQ; inline;
  20763. procedure setUINC; inline;
  20764. property DONLY : TBits_1 read getDONLY write setDONLY;
  20765. property FRESET : TBits_1 read getFRESET write setFRESET;
  20766. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  20767. property RTREN : TBits_1 read getRTREN write setRTREN;
  20768. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  20769. property TXEN : TBits_1 read getTXEN write setTXEN;
  20770. property TXERR : TBits_1 read getTXERR write setTXERR;
  20771. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  20772. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  20773. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  20774. property UINC : TBits_1 read getUINC write setUINC;
  20775. property w : TBits_32 read getw write setw;
  20776. end;
  20777. TCAN1_C1FIFOINT26 = record
  20778. private
  20779. function getRXFULLIE : TBits_1; inline;
  20780. function getRXFULLIF : TBits_1; inline;
  20781. function getRXHALFIE : TBits_1; inline;
  20782. function getRXHALFIF : TBits_1; inline;
  20783. function getRXNEMPTYIE : TBits_1; inline;
  20784. function getRXNEMPTYIF : TBits_1; inline;
  20785. function getRXOVFLIE : TBits_1; inline;
  20786. function getRXOVFLIF : TBits_1; inline;
  20787. function getTXEMPTYIE : TBits_1; inline;
  20788. function getTXEMPTYIF : TBits_1; inline;
  20789. function getTXHALFIE : TBits_1; inline;
  20790. function getTXHALFIF : TBits_1; inline;
  20791. function getTXNFULLIE : TBits_1; inline;
  20792. function getTXNFULLIF : TBits_1; inline;
  20793. function getw : TBits_32; inline;
  20794. procedure setRXFULLIE(thebits : TBits_1); inline;
  20795. procedure setRXFULLIF(thebits : TBits_1); inline;
  20796. procedure setRXHALFIE(thebits : TBits_1); inline;
  20797. procedure setRXHALFIF(thebits : TBits_1); inline;
  20798. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  20799. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  20800. procedure setRXOVFLIE(thebits : TBits_1); inline;
  20801. procedure setRXOVFLIF(thebits : TBits_1); inline;
  20802. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  20803. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  20804. procedure setTXHALFIE(thebits : TBits_1); inline;
  20805. procedure setTXHALFIF(thebits : TBits_1); inline;
  20806. procedure setTXNFULLIE(thebits : TBits_1); inline;
  20807. procedure setTXNFULLIF(thebits : TBits_1); inline;
  20808. procedure setw(thebits : TBits_32); inline;
  20809. public
  20810. procedure clearRXFULLIE; inline;
  20811. procedure clearRXFULLIF; inline;
  20812. procedure clearRXHALFIE; inline;
  20813. procedure clearRXHALFIF; inline;
  20814. procedure clearRXNEMPTYIE; inline;
  20815. procedure clearRXNEMPTYIF; inline;
  20816. procedure clearRXOVFLIE; inline;
  20817. procedure clearRXOVFLIF; inline;
  20818. procedure clearTXEMPTYIE; inline;
  20819. procedure clearTXEMPTYIF; inline;
  20820. procedure clearTXHALFIE; inline;
  20821. procedure clearTXHALFIF; inline;
  20822. procedure clearTXNFULLIE; inline;
  20823. procedure clearTXNFULLIF; inline;
  20824. procedure setRXFULLIE; inline;
  20825. procedure setRXFULLIF; inline;
  20826. procedure setRXHALFIE; inline;
  20827. procedure setRXHALFIF; inline;
  20828. procedure setRXNEMPTYIE; inline;
  20829. procedure setRXNEMPTYIF; inline;
  20830. procedure setRXOVFLIE; inline;
  20831. procedure setRXOVFLIF; inline;
  20832. procedure setTXEMPTYIE; inline;
  20833. procedure setTXEMPTYIF; inline;
  20834. procedure setTXHALFIE; inline;
  20835. procedure setTXHALFIF; inline;
  20836. procedure setTXNFULLIE; inline;
  20837. procedure setTXNFULLIF; inline;
  20838. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  20839. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  20840. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  20841. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  20842. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  20843. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  20844. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  20845. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  20846. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  20847. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  20848. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  20849. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  20850. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  20851. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  20852. property w : TBits_32 read getw write setw;
  20853. end;
  20854. TCAN1_C1FIFOCI26 = record
  20855. private
  20856. function getCFIFOCI : TBits_5; inline;
  20857. function getw : TBits_32; inline;
  20858. procedure setCFIFOCI(thebits : TBits_5); inline;
  20859. procedure setw(thebits : TBits_32); inline;
  20860. public
  20861. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  20862. property w : TBits_32 read getw write setw;
  20863. end;
  20864. TCAN1_C1FIFOCON27 = record
  20865. private
  20866. function getDONLY : TBits_1; inline;
  20867. function getFRESET : TBits_1; inline;
  20868. function getFSIZE : TBits_5; inline;
  20869. function getRTREN : TBits_1; inline;
  20870. function getTXABAT : TBits_1; inline;
  20871. function getTXEN : TBits_1; inline;
  20872. function getTXERR : TBits_1; inline;
  20873. function getTXLARB : TBits_1; inline;
  20874. function getTXPRI : TBits_2; inline;
  20875. function getTXREQ : TBits_1; inline;
  20876. function getUINC : TBits_1; inline;
  20877. function getw : TBits_32; inline;
  20878. procedure setDONLY(thebits : TBits_1); inline;
  20879. procedure setFRESET(thebits : TBits_1); inline;
  20880. procedure setFSIZE(thebits : TBits_5); inline;
  20881. procedure setRTREN(thebits : TBits_1); inline;
  20882. procedure setTXABAT(thebits : TBits_1); inline;
  20883. procedure setTXEN(thebits : TBits_1); inline;
  20884. procedure setTXERR(thebits : TBits_1); inline;
  20885. procedure setTXLARB(thebits : TBits_1); inline;
  20886. procedure setTXPRI(thebits : TBits_2); inline;
  20887. procedure setTXREQ(thebits : TBits_1); inline;
  20888. procedure setUINC(thebits : TBits_1); inline;
  20889. procedure setw(thebits : TBits_32); inline;
  20890. public
  20891. procedure clearDONLY; inline;
  20892. procedure clearFRESET; inline;
  20893. procedure clearRTREN; inline;
  20894. procedure clearTXABAT; inline;
  20895. procedure clearTXEN; inline;
  20896. procedure clearTXERR; inline;
  20897. procedure clearTXLARB; inline;
  20898. procedure clearTXREQ; inline;
  20899. procedure clearUINC; inline;
  20900. procedure setDONLY; inline;
  20901. procedure setFRESET; inline;
  20902. procedure setRTREN; inline;
  20903. procedure setTXABAT; inline;
  20904. procedure setTXEN; inline;
  20905. procedure setTXERR; inline;
  20906. procedure setTXLARB; inline;
  20907. procedure setTXREQ; inline;
  20908. procedure setUINC; inline;
  20909. property DONLY : TBits_1 read getDONLY write setDONLY;
  20910. property FRESET : TBits_1 read getFRESET write setFRESET;
  20911. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  20912. property RTREN : TBits_1 read getRTREN write setRTREN;
  20913. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  20914. property TXEN : TBits_1 read getTXEN write setTXEN;
  20915. property TXERR : TBits_1 read getTXERR write setTXERR;
  20916. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  20917. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  20918. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  20919. property UINC : TBits_1 read getUINC write setUINC;
  20920. property w : TBits_32 read getw write setw;
  20921. end;
  20922. TCAN1_C1FIFOINT27 = record
  20923. private
  20924. function getRXFULLIE : TBits_1; inline;
  20925. function getRXFULLIF : TBits_1; inline;
  20926. function getRXHALFIE : TBits_1; inline;
  20927. function getRXHALFIF : TBits_1; inline;
  20928. function getRXNEMPTYIE : TBits_1; inline;
  20929. function getRXNEMPTYIF : TBits_1; inline;
  20930. function getRXOVFLIE : TBits_1; inline;
  20931. function getRXOVFLIF : TBits_1; inline;
  20932. function getTXEMPTYIE : TBits_1; inline;
  20933. function getTXEMPTYIF : TBits_1; inline;
  20934. function getTXHALFIE : TBits_1; inline;
  20935. function getTXHALFIF : TBits_1; inline;
  20936. function getTXNFULLIE : TBits_1; inline;
  20937. function getTXNFULLIF : TBits_1; inline;
  20938. function getw : TBits_32; inline;
  20939. procedure setRXFULLIE(thebits : TBits_1); inline;
  20940. procedure setRXFULLIF(thebits : TBits_1); inline;
  20941. procedure setRXHALFIE(thebits : TBits_1); inline;
  20942. procedure setRXHALFIF(thebits : TBits_1); inline;
  20943. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  20944. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  20945. procedure setRXOVFLIE(thebits : TBits_1); inline;
  20946. procedure setRXOVFLIF(thebits : TBits_1); inline;
  20947. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  20948. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  20949. procedure setTXHALFIE(thebits : TBits_1); inline;
  20950. procedure setTXHALFIF(thebits : TBits_1); inline;
  20951. procedure setTXNFULLIE(thebits : TBits_1); inline;
  20952. procedure setTXNFULLIF(thebits : TBits_1); inline;
  20953. procedure setw(thebits : TBits_32); inline;
  20954. public
  20955. procedure clearRXFULLIE; inline;
  20956. procedure clearRXFULLIF; inline;
  20957. procedure clearRXHALFIE; inline;
  20958. procedure clearRXHALFIF; inline;
  20959. procedure clearRXNEMPTYIE; inline;
  20960. procedure clearRXNEMPTYIF; inline;
  20961. procedure clearRXOVFLIE; inline;
  20962. procedure clearRXOVFLIF; inline;
  20963. procedure clearTXEMPTYIE; inline;
  20964. procedure clearTXEMPTYIF; inline;
  20965. procedure clearTXHALFIE; inline;
  20966. procedure clearTXHALFIF; inline;
  20967. procedure clearTXNFULLIE; inline;
  20968. procedure clearTXNFULLIF; inline;
  20969. procedure setRXFULLIE; inline;
  20970. procedure setRXFULLIF; inline;
  20971. procedure setRXHALFIE; inline;
  20972. procedure setRXHALFIF; inline;
  20973. procedure setRXNEMPTYIE; inline;
  20974. procedure setRXNEMPTYIF; inline;
  20975. procedure setRXOVFLIE; inline;
  20976. procedure setRXOVFLIF; inline;
  20977. procedure setTXEMPTYIE; inline;
  20978. procedure setTXEMPTYIF; inline;
  20979. procedure setTXHALFIE; inline;
  20980. procedure setTXHALFIF; inline;
  20981. procedure setTXNFULLIE; inline;
  20982. procedure setTXNFULLIF; inline;
  20983. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  20984. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  20985. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  20986. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  20987. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  20988. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  20989. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  20990. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  20991. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  20992. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  20993. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  20994. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  20995. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  20996. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  20997. property w : TBits_32 read getw write setw;
  20998. end;
  20999. TCAN1_C1FIFOCI27 = record
  21000. private
  21001. function getCFIFOCI : TBits_5; inline;
  21002. function getw : TBits_32; inline;
  21003. procedure setCFIFOCI(thebits : TBits_5); inline;
  21004. procedure setw(thebits : TBits_32); inline;
  21005. public
  21006. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  21007. property w : TBits_32 read getw write setw;
  21008. end;
  21009. TCAN1_C1FIFOCON28 = record
  21010. private
  21011. function getDONLY : TBits_1; inline;
  21012. function getFRESET : TBits_1; inline;
  21013. function getFSIZE : TBits_5; inline;
  21014. function getRTREN : TBits_1; inline;
  21015. function getTXABAT : TBits_1; inline;
  21016. function getTXEN : TBits_1; inline;
  21017. function getTXERR : TBits_1; inline;
  21018. function getTXLARB : TBits_1; inline;
  21019. function getTXPRI : TBits_2; inline;
  21020. function getTXREQ : TBits_1; inline;
  21021. function getUINC : TBits_1; inline;
  21022. function getw : TBits_32; inline;
  21023. procedure setDONLY(thebits : TBits_1); inline;
  21024. procedure setFRESET(thebits : TBits_1); inline;
  21025. procedure setFSIZE(thebits : TBits_5); inline;
  21026. procedure setRTREN(thebits : TBits_1); inline;
  21027. procedure setTXABAT(thebits : TBits_1); inline;
  21028. procedure setTXEN(thebits : TBits_1); inline;
  21029. procedure setTXERR(thebits : TBits_1); inline;
  21030. procedure setTXLARB(thebits : TBits_1); inline;
  21031. procedure setTXPRI(thebits : TBits_2); inline;
  21032. procedure setTXREQ(thebits : TBits_1); inline;
  21033. procedure setUINC(thebits : TBits_1); inline;
  21034. procedure setw(thebits : TBits_32); inline;
  21035. public
  21036. procedure clearDONLY; inline;
  21037. procedure clearFRESET; inline;
  21038. procedure clearRTREN; inline;
  21039. procedure clearTXABAT; inline;
  21040. procedure clearTXEN; inline;
  21041. procedure clearTXERR; inline;
  21042. procedure clearTXLARB; inline;
  21043. procedure clearTXREQ; inline;
  21044. procedure clearUINC; inline;
  21045. procedure setDONLY; inline;
  21046. procedure setFRESET; inline;
  21047. procedure setRTREN; inline;
  21048. procedure setTXABAT; inline;
  21049. procedure setTXEN; inline;
  21050. procedure setTXERR; inline;
  21051. procedure setTXLARB; inline;
  21052. procedure setTXREQ; inline;
  21053. procedure setUINC; inline;
  21054. property DONLY : TBits_1 read getDONLY write setDONLY;
  21055. property FRESET : TBits_1 read getFRESET write setFRESET;
  21056. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  21057. property RTREN : TBits_1 read getRTREN write setRTREN;
  21058. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  21059. property TXEN : TBits_1 read getTXEN write setTXEN;
  21060. property TXERR : TBits_1 read getTXERR write setTXERR;
  21061. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  21062. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  21063. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  21064. property UINC : TBits_1 read getUINC write setUINC;
  21065. property w : TBits_32 read getw write setw;
  21066. end;
  21067. TCAN1_C1FIFOINT28 = record
  21068. private
  21069. function getRXFULLIE : TBits_1; inline;
  21070. function getRXFULLIF : TBits_1; inline;
  21071. function getRXHALFIE : TBits_1; inline;
  21072. function getRXHALFIF : TBits_1; inline;
  21073. function getRXNEMPTYIE : TBits_1; inline;
  21074. function getRXNEMPTYIF : TBits_1; inline;
  21075. function getRXOVFLIE : TBits_1; inline;
  21076. function getRXOVFLIF : TBits_1; inline;
  21077. function getTXEMPTYIE : TBits_1; inline;
  21078. function getTXEMPTYIF : TBits_1; inline;
  21079. function getTXHALFIE : TBits_1; inline;
  21080. function getTXHALFIF : TBits_1; inline;
  21081. function getTXNFULLIE : TBits_1; inline;
  21082. function getTXNFULLIF : TBits_1; inline;
  21083. function getw : TBits_32; inline;
  21084. procedure setRXFULLIE(thebits : TBits_1); inline;
  21085. procedure setRXFULLIF(thebits : TBits_1); inline;
  21086. procedure setRXHALFIE(thebits : TBits_1); inline;
  21087. procedure setRXHALFIF(thebits : TBits_1); inline;
  21088. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  21089. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  21090. procedure setRXOVFLIE(thebits : TBits_1); inline;
  21091. procedure setRXOVFLIF(thebits : TBits_1); inline;
  21092. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  21093. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  21094. procedure setTXHALFIE(thebits : TBits_1); inline;
  21095. procedure setTXHALFIF(thebits : TBits_1); inline;
  21096. procedure setTXNFULLIE(thebits : TBits_1); inline;
  21097. procedure setTXNFULLIF(thebits : TBits_1); inline;
  21098. procedure setw(thebits : TBits_32); inline;
  21099. public
  21100. procedure clearRXFULLIE; inline;
  21101. procedure clearRXFULLIF; inline;
  21102. procedure clearRXHALFIE; inline;
  21103. procedure clearRXHALFIF; inline;
  21104. procedure clearRXNEMPTYIE; inline;
  21105. procedure clearRXNEMPTYIF; inline;
  21106. procedure clearRXOVFLIE; inline;
  21107. procedure clearRXOVFLIF; inline;
  21108. procedure clearTXEMPTYIE; inline;
  21109. procedure clearTXEMPTYIF; inline;
  21110. procedure clearTXHALFIE; inline;
  21111. procedure clearTXHALFIF; inline;
  21112. procedure clearTXNFULLIE; inline;
  21113. procedure clearTXNFULLIF; inline;
  21114. procedure setRXFULLIE; inline;
  21115. procedure setRXFULLIF; inline;
  21116. procedure setRXHALFIE; inline;
  21117. procedure setRXHALFIF; inline;
  21118. procedure setRXNEMPTYIE; inline;
  21119. procedure setRXNEMPTYIF; inline;
  21120. procedure setRXOVFLIE; inline;
  21121. procedure setRXOVFLIF; inline;
  21122. procedure setTXEMPTYIE; inline;
  21123. procedure setTXEMPTYIF; inline;
  21124. procedure setTXHALFIE; inline;
  21125. procedure setTXHALFIF; inline;
  21126. procedure setTXNFULLIE; inline;
  21127. procedure setTXNFULLIF; inline;
  21128. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  21129. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  21130. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  21131. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  21132. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  21133. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  21134. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  21135. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  21136. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  21137. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  21138. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  21139. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  21140. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  21141. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  21142. property w : TBits_32 read getw write setw;
  21143. end;
  21144. TCAN1_C1FIFOCI28 = record
  21145. private
  21146. function getCFIFOCI : TBits_5; inline;
  21147. function getw : TBits_32; inline;
  21148. procedure setCFIFOCI(thebits : TBits_5); inline;
  21149. procedure setw(thebits : TBits_32); inline;
  21150. public
  21151. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  21152. property w : TBits_32 read getw write setw;
  21153. end;
  21154. TCAN1_C1FIFOCON29 = record
  21155. private
  21156. function getDONLY : TBits_1; inline;
  21157. function getFRESET : TBits_1; inline;
  21158. function getFSIZE : TBits_5; inline;
  21159. function getRTREN : TBits_1; inline;
  21160. function getTXABAT : TBits_1; inline;
  21161. function getTXEN : TBits_1; inline;
  21162. function getTXERR : TBits_1; inline;
  21163. function getTXLARB : TBits_1; inline;
  21164. function getTXPRI : TBits_2; inline;
  21165. function getTXREQ : TBits_1; inline;
  21166. function getUINC : TBits_1; inline;
  21167. function getw : TBits_32; inline;
  21168. procedure setDONLY(thebits : TBits_1); inline;
  21169. procedure setFRESET(thebits : TBits_1); inline;
  21170. procedure setFSIZE(thebits : TBits_5); inline;
  21171. procedure setRTREN(thebits : TBits_1); inline;
  21172. procedure setTXABAT(thebits : TBits_1); inline;
  21173. procedure setTXEN(thebits : TBits_1); inline;
  21174. procedure setTXERR(thebits : TBits_1); inline;
  21175. procedure setTXLARB(thebits : TBits_1); inline;
  21176. procedure setTXPRI(thebits : TBits_2); inline;
  21177. procedure setTXREQ(thebits : TBits_1); inline;
  21178. procedure setUINC(thebits : TBits_1); inline;
  21179. procedure setw(thebits : TBits_32); inline;
  21180. public
  21181. procedure clearDONLY; inline;
  21182. procedure clearFRESET; inline;
  21183. procedure clearRTREN; inline;
  21184. procedure clearTXABAT; inline;
  21185. procedure clearTXEN; inline;
  21186. procedure clearTXERR; inline;
  21187. procedure clearTXLARB; inline;
  21188. procedure clearTXREQ; inline;
  21189. procedure clearUINC; inline;
  21190. procedure setDONLY; inline;
  21191. procedure setFRESET; inline;
  21192. procedure setRTREN; inline;
  21193. procedure setTXABAT; inline;
  21194. procedure setTXEN; inline;
  21195. procedure setTXERR; inline;
  21196. procedure setTXLARB; inline;
  21197. procedure setTXREQ; inline;
  21198. procedure setUINC; inline;
  21199. property DONLY : TBits_1 read getDONLY write setDONLY;
  21200. property FRESET : TBits_1 read getFRESET write setFRESET;
  21201. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  21202. property RTREN : TBits_1 read getRTREN write setRTREN;
  21203. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  21204. property TXEN : TBits_1 read getTXEN write setTXEN;
  21205. property TXERR : TBits_1 read getTXERR write setTXERR;
  21206. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  21207. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  21208. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  21209. property UINC : TBits_1 read getUINC write setUINC;
  21210. property w : TBits_32 read getw write setw;
  21211. end;
  21212. TCAN1_C1FIFOINT29 = record
  21213. private
  21214. function getRXFULLIE : TBits_1; inline;
  21215. function getRXFULLIF : TBits_1; inline;
  21216. function getRXHALFIE : TBits_1; inline;
  21217. function getRXHALFIF : TBits_1; inline;
  21218. function getRXNEMPTYIE : TBits_1; inline;
  21219. function getRXNEMPTYIF : TBits_1; inline;
  21220. function getRXOVFLIE : TBits_1; inline;
  21221. function getRXOVFLIF : TBits_1; inline;
  21222. function getTXEMPTYIE : TBits_1; inline;
  21223. function getTXEMPTYIF : TBits_1; inline;
  21224. function getTXHALFIE : TBits_1; inline;
  21225. function getTXHALFIF : TBits_1; inline;
  21226. function getTXNFULLIE : TBits_1; inline;
  21227. function getTXNFULLIF : TBits_1; inline;
  21228. function getw : TBits_32; inline;
  21229. procedure setRXFULLIE(thebits : TBits_1); inline;
  21230. procedure setRXFULLIF(thebits : TBits_1); inline;
  21231. procedure setRXHALFIE(thebits : TBits_1); inline;
  21232. procedure setRXHALFIF(thebits : TBits_1); inline;
  21233. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  21234. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  21235. procedure setRXOVFLIE(thebits : TBits_1); inline;
  21236. procedure setRXOVFLIF(thebits : TBits_1); inline;
  21237. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  21238. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  21239. procedure setTXHALFIE(thebits : TBits_1); inline;
  21240. procedure setTXHALFIF(thebits : TBits_1); inline;
  21241. procedure setTXNFULLIE(thebits : TBits_1); inline;
  21242. procedure setTXNFULLIF(thebits : TBits_1); inline;
  21243. procedure setw(thebits : TBits_32); inline;
  21244. public
  21245. procedure clearRXFULLIE; inline;
  21246. procedure clearRXFULLIF; inline;
  21247. procedure clearRXHALFIE; inline;
  21248. procedure clearRXHALFIF; inline;
  21249. procedure clearRXNEMPTYIE; inline;
  21250. procedure clearRXNEMPTYIF; inline;
  21251. procedure clearRXOVFLIE; inline;
  21252. procedure clearRXOVFLIF; inline;
  21253. procedure clearTXEMPTYIE; inline;
  21254. procedure clearTXEMPTYIF; inline;
  21255. procedure clearTXHALFIE; inline;
  21256. procedure clearTXHALFIF; inline;
  21257. procedure clearTXNFULLIE; inline;
  21258. procedure clearTXNFULLIF; inline;
  21259. procedure setRXFULLIE; inline;
  21260. procedure setRXFULLIF; inline;
  21261. procedure setRXHALFIE; inline;
  21262. procedure setRXHALFIF; inline;
  21263. procedure setRXNEMPTYIE; inline;
  21264. procedure setRXNEMPTYIF; inline;
  21265. procedure setRXOVFLIE; inline;
  21266. procedure setRXOVFLIF; inline;
  21267. procedure setTXEMPTYIE; inline;
  21268. procedure setTXEMPTYIF; inline;
  21269. procedure setTXHALFIE; inline;
  21270. procedure setTXHALFIF; inline;
  21271. procedure setTXNFULLIE; inline;
  21272. procedure setTXNFULLIF; inline;
  21273. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  21274. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  21275. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  21276. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  21277. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  21278. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  21279. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  21280. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  21281. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  21282. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  21283. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  21284. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  21285. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  21286. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  21287. property w : TBits_32 read getw write setw;
  21288. end;
  21289. TCAN1_C1FIFOCI29 = record
  21290. private
  21291. function getCFIFOCI : TBits_5; inline;
  21292. function getw : TBits_32; inline;
  21293. procedure setCFIFOCI(thebits : TBits_5); inline;
  21294. procedure setw(thebits : TBits_32); inline;
  21295. public
  21296. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  21297. property w : TBits_32 read getw write setw;
  21298. end;
  21299. TCAN1_C1FIFOCON30 = record
  21300. private
  21301. function getDONLY : TBits_1; inline;
  21302. function getFRESET : TBits_1; inline;
  21303. function getFSIZE : TBits_5; inline;
  21304. function getRTREN : TBits_1; inline;
  21305. function getTXABAT : TBits_1; inline;
  21306. function getTXEN : TBits_1; inline;
  21307. function getTXERR : TBits_1; inline;
  21308. function getTXLARB : TBits_1; inline;
  21309. function getTXPRI : TBits_2; inline;
  21310. function getTXREQ : TBits_1; inline;
  21311. function getUINC : TBits_1; inline;
  21312. function getw : TBits_32; inline;
  21313. procedure setDONLY(thebits : TBits_1); inline;
  21314. procedure setFRESET(thebits : TBits_1); inline;
  21315. procedure setFSIZE(thebits : TBits_5); inline;
  21316. procedure setRTREN(thebits : TBits_1); inline;
  21317. procedure setTXABAT(thebits : TBits_1); inline;
  21318. procedure setTXEN(thebits : TBits_1); inline;
  21319. procedure setTXERR(thebits : TBits_1); inline;
  21320. procedure setTXLARB(thebits : TBits_1); inline;
  21321. procedure setTXPRI(thebits : TBits_2); inline;
  21322. procedure setTXREQ(thebits : TBits_1); inline;
  21323. procedure setUINC(thebits : TBits_1); inline;
  21324. procedure setw(thebits : TBits_32); inline;
  21325. public
  21326. procedure clearDONLY; inline;
  21327. procedure clearFRESET; inline;
  21328. procedure clearRTREN; inline;
  21329. procedure clearTXABAT; inline;
  21330. procedure clearTXEN; inline;
  21331. procedure clearTXERR; inline;
  21332. procedure clearTXLARB; inline;
  21333. procedure clearTXREQ; inline;
  21334. procedure clearUINC; inline;
  21335. procedure setDONLY; inline;
  21336. procedure setFRESET; inline;
  21337. procedure setRTREN; inline;
  21338. procedure setTXABAT; inline;
  21339. procedure setTXEN; inline;
  21340. procedure setTXERR; inline;
  21341. procedure setTXLARB; inline;
  21342. procedure setTXREQ; inline;
  21343. procedure setUINC; inline;
  21344. property DONLY : TBits_1 read getDONLY write setDONLY;
  21345. property FRESET : TBits_1 read getFRESET write setFRESET;
  21346. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  21347. property RTREN : TBits_1 read getRTREN write setRTREN;
  21348. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  21349. property TXEN : TBits_1 read getTXEN write setTXEN;
  21350. property TXERR : TBits_1 read getTXERR write setTXERR;
  21351. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  21352. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  21353. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  21354. property UINC : TBits_1 read getUINC write setUINC;
  21355. property w : TBits_32 read getw write setw;
  21356. end;
  21357. TCAN1_C1FIFOINT30 = record
  21358. private
  21359. function getRXFULLIE : TBits_1; inline;
  21360. function getRXFULLIF : TBits_1; inline;
  21361. function getRXHALFIE : TBits_1; inline;
  21362. function getRXHALFIF : TBits_1; inline;
  21363. function getRXNEMPTYIE : TBits_1; inline;
  21364. function getRXNEMPTYIF : TBits_1; inline;
  21365. function getRXOVFLIE : TBits_1; inline;
  21366. function getRXOVFLIF : TBits_1; inline;
  21367. function getTXEMPTYIE : TBits_1; inline;
  21368. function getTXEMPTYIF : TBits_1; inline;
  21369. function getTXHALFIE : TBits_1; inline;
  21370. function getTXHALFIF : TBits_1; inline;
  21371. function getTXNFULLIE : TBits_1; inline;
  21372. function getTXNFULLIF : TBits_1; inline;
  21373. function getw : TBits_32; inline;
  21374. procedure setRXFULLIE(thebits : TBits_1); inline;
  21375. procedure setRXFULLIF(thebits : TBits_1); inline;
  21376. procedure setRXHALFIE(thebits : TBits_1); inline;
  21377. procedure setRXHALFIF(thebits : TBits_1); inline;
  21378. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  21379. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  21380. procedure setRXOVFLIE(thebits : TBits_1); inline;
  21381. procedure setRXOVFLIF(thebits : TBits_1); inline;
  21382. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  21383. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  21384. procedure setTXHALFIE(thebits : TBits_1); inline;
  21385. procedure setTXHALFIF(thebits : TBits_1); inline;
  21386. procedure setTXNFULLIE(thebits : TBits_1); inline;
  21387. procedure setTXNFULLIF(thebits : TBits_1); inline;
  21388. procedure setw(thebits : TBits_32); inline;
  21389. public
  21390. procedure clearRXFULLIE; inline;
  21391. procedure clearRXFULLIF; inline;
  21392. procedure clearRXHALFIE; inline;
  21393. procedure clearRXHALFIF; inline;
  21394. procedure clearRXNEMPTYIE; inline;
  21395. procedure clearRXNEMPTYIF; inline;
  21396. procedure clearRXOVFLIE; inline;
  21397. procedure clearRXOVFLIF; inline;
  21398. procedure clearTXEMPTYIE; inline;
  21399. procedure clearTXEMPTYIF; inline;
  21400. procedure clearTXHALFIE; inline;
  21401. procedure clearTXHALFIF; inline;
  21402. procedure clearTXNFULLIE; inline;
  21403. procedure clearTXNFULLIF; inline;
  21404. procedure setRXFULLIE; inline;
  21405. procedure setRXFULLIF; inline;
  21406. procedure setRXHALFIE; inline;
  21407. procedure setRXHALFIF; inline;
  21408. procedure setRXNEMPTYIE; inline;
  21409. procedure setRXNEMPTYIF; inline;
  21410. procedure setRXOVFLIE; inline;
  21411. procedure setRXOVFLIF; inline;
  21412. procedure setTXEMPTYIE; inline;
  21413. procedure setTXEMPTYIF; inline;
  21414. procedure setTXHALFIE; inline;
  21415. procedure setTXHALFIF; inline;
  21416. procedure setTXNFULLIE; inline;
  21417. procedure setTXNFULLIF; inline;
  21418. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  21419. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  21420. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  21421. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  21422. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  21423. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  21424. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  21425. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  21426. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  21427. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  21428. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  21429. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  21430. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  21431. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  21432. property w : TBits_32 read getw write setw;
  21433. end;
  21434. TCAN1_C1FIFOCI30 = record
  21435. private
  21436. function getCFIFOCI : TBits_5; inline;
  21437. function getw : TBits_32; inline;
  21438. procedure setCFIFOCI(thebits : TBits_5); inline;
  21439. procedure setw(thebits : TBits_32); inline;
  21440. public
  21441. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  21442. property w : TBits_32 read getw write setw;
  21443. end;
  21444. TCAN1_C1FIFOCON31 = record
  21445. private
  21446. function getDONLY : TBits_1; inline;
  21447. function getFRESET : TBits_1; inline;
  21448. function getFSIZE : TBits_5; inline;
  21449. function getRTREN : TBits_1; inline;
  21450. function getTXABAT : TBits_1; inline;
  21451. function getTXEN : TBits_1; inline;
  21452. function getTXERR : TBits_1; inline;
  21453. function getTXLARB : TBits_1; inline;
  21454. function getTXPRI : TBits_2; inline;
  21455. function getTXREQ : TBits_1; inline;
  21456. function getUINC : TBits_1; inline;
  21457. function getw : TBits_32; inline;
  21458. procedure setDONLY(thebits : TBits_1); inline;
  21459. procedure setFRESET(thebits : TBits_1); inline;
  21460. procedure setFSIZE(thebits : TBits_5); inline;
  21461. procedure setRTREN(thebits : TBits_1); inline;
  21462. procedure setTXABAT(thebits : TBits_1); inline;
  21463. procedure setTXEN(thebits : TBits_1); inline;
  21464. procedure setTXERR(thebits : TBits_1); inline;
  21465. procedure setTXLARB(thebits : TBits_1); inline;
  21466. procedure setTXPRI(thebits : TBits_2); inline;
  21467. procedure setTXREQ(thebits : TBits_1); inline;
  21468. procedure setUINC(thebits : TBits_1); inline;
  21469. procedure setw(thebits : TBits_32); inline;
  21470. public
  21471. procedure clearDONLY; inline;
  21472. procedure clearFRESET; inline;
  21473. procedure clearRTREN; inline;
  21474. procedure clearTXABAT; inline;
  21475. procedure clearTXEN; inline;
  21476. procedure clearTXERR; inline;
  21477. procedure clearTXLARB; inline;
  21478. procedure clearTXREQ; inline;
  21479. procedure clearUINC; inline;
  21480. procedure setDONLY; inline;
  21481. procedure setFRESET; inline;
  21482. procedure setRTREN; inline;
  21483. procedure setTXABAT; inline;
  21484. procedure setTXEN; inline;
  21485. procedure setTXERR; inline;
  21486. procedure setTXLARB; inline;
  21487. procedure setTXREQ; inline;
  21488. procedure setUINC; inline;
  21489. property DONLY : TBits_1 read getDONLY write setDONLY;
  21490. property FRESET : TBits_1 read getFRESET write setFRESET;
  21491. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  21492. property RTREN : TBits_1 read getRTREN write setRTREN;
  21493. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  21494. property TXEN : TBits_1 read getTXEN write setTXEN;
  21495. property TXERR : TBits_1 read getTXERR write setTXERR;
  21496. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  21497. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  21498. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  21499. property UINC : TBits_1 read getUINC write setUINC;
  21500. property w : TBits_32 read getw write setw;
  21501. end;
  21502. TCAN1_C1FIFOINT31 = record
  21503. private
  21504. function getRXFULLIE : TBits_1; inline;
  21505. function getRXFULLIF : TBits_1; inline;
  21506. function getRXHALFIE : TBits_1; inline;
  21507. function getRXHALFIF : TBits_1; inline;
  21508. function getRXNEMPTYIE : TBits_1; inline;
  21509. function getRXNEMPTYIF : TBits_1; inline;
  21510. function getRXOVFLIE : TBits_1; inline;
  21511. function getRXOVFLIF : TBits_1; inline;
  21512. function getTXEMPTYIE : TBits_1; inline;
  21513. function getTXEMPTYIF : TBits_1; inline;
  21514. function getTXHALFIE : TBits_1; inline;
  21515. function getTXHALFIF : TBits_1; inline;
  21516. function getTXNFULLIE : TBits_1; inline;
  21517. function getTXNFULLIF : TBits_1; inline;
  21518. function getw : TBits_32; inline;
  21519. procedure setRXFULLIE(thebits : TBits_1); inline;
  21520. procedure setRXFULLIF(thebits : TBits_1); inline;
  21521. procedure setRXHALFIE(thebits : TBits_1); inline;
  21522. procedure setRXHALFIF(thebits : TBits_1); inline;
  21523. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  21524. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  21525. procedure setRXOVFLIE(thebits : TBits_1); inline;
  21526. procedure setRXOVFLIF(thebits : TBits_1); inline;
  21527. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  21528. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  21529. procedure setTXHALFIE(thebits : TBits_1); inline;
  21530. procedure setTXHALFIF(thebits : TBits_1); inline;
  21531. procedure setTXNFULLIE(thebits : TBits_1); inline;
  21532. procedure setTXNFULLIF(thebits : TBits_1); inline;
  21533. procedure setw(thebits : TBits_32); inline;
  21534. public
  21535. procedure clearRXFULLIE; inline;
  21536. procedure clearRXFULLIF; inline;
  21537. procedure clearRXHALFIE; inline;
  21538. procedure clearRXHALFIF; inline;
  21539. procedure clearRXNEMPTYIE; inline;
  21540. procedure clearRXNEMPTYIF; inline;
  21541. procedure clearRXOVFLIE; inline;
  21542. procedure clearRXOVFLIF; inline;
  21543. procedure clearTXEMPTYIE; inline;
  21544. procedure clearTXEMPTYIF; inline;
  21545. procedure clearTXHALFIE; inline;
  21546. procedure clearTXHALFIF; inline;
  21547. procedure clearTXNFULLIE; inline;
  21548. procedure clearTXNFULLIF; inline;
  21549. procedure setRXFULLIE; inline;
  21550. procedure setRXFULLIF; inline;
  21551. procedure setRXHALFIE; inline;
  21552. procedure setRXHALFIF; inline;
  21553. procedure setRXNEMPTYIE; inline;
  21554. procedure setRXNEMPTYIF; inline;
  21555. procedure setRXOVFLIE; inline;
  21556. procedure setRXOVFLIF; inline;
  21557. procedure setTXEMPTYIE; inline;
  21558. procedure setTXEMPTYIF; inline;
  21559. procedure setTXHALFIE; inline;
  21560. procedure setTXHALFIF; inline;
  21561. procedure setTXNFULLIE; inline;
  21562. procedure setTXNFULLIF; inline;
  21563. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  21564. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  21565. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  21566. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  21567. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  21568. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  21569. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  21570. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  21571. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  21572. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  21573. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  21574. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  21575. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  21576. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  21577. property w : TBits_32 read getw write setw;
  21578. end;
  21579. TCAN1_C1FIFOCI31 = record
  21580. private
  21581. function getCFIFOCI : TBits_5; inline;
  21582. function getw : TBits_32; inline;
  21583. procedure setCFIFOCI(thebits : TBits_5); inline;
  21584. procedure setw(thebits : TBits_32); inline;
  21585. public
  21586. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  21587. property w : TBits_32 read getw write setw;
  21588. end;
  21589. type
  21590. TCAN1Registers = record
  21591. C1CONbits : TCAN1_C1CON;
  21592. C1CON : longWord;
  21593. C1CONCLR : longWord;
  21594. C1CONSET : longWord;
  21595. C1CONINV : longWord;
  21596. C1CFGbits : TCAN1_C1CFG;
  21597. C1CFG : longWord;
  21598. C1CFGCLR : longWord;
  21599. C1CFGSET : longWord;
  21600. C1CFGINV : longWord;
  21601. C1INTbits : TCAN1_C1INT;
  21602. C1INT : longWord;
  21603. C1INTCLR : longWord;
  21604. C1INTSET : longWord;
  21605. C1INTINV : longWord;
  21606. C1VECbits : TCAN1_C1VEC;
  21607. C1VEC : longWord;
  21608. C1VECCLR : longWord;
  21609. C1VECSET : longWord;
  21610. C1VECINV : longWord;
  21611. C1TRECbits : TCAN1_C1TREC;
  21612. C1TREC : longWord;
  21613. C1TRECCLR : longWord;
  21614. C1TRECSET : longWord;
  21615. C1TRECINV : longWord;
  21616. C1FSTATbits : TCAN1_C1FSTAT;
  21617. C1FSTAT : longWord;
  21618. C1FSTATCLR : longWord;
  21619. C1FSTATSET : longWord;
  21620. C1FSTATINV : longWord;
  21621. C1RXOVFbits : TCAN1_C1RXOVF;
  21622. C1RXOVF : longWord;
  21623. C1RXOVFCLR : longWord;
  21624. C1RXOVFSET : longWord;
  21625. C1RXOVFINV : longWord;
  21626. C1TMRbits : TCAN1_C1TMR;
  21627. C1TMR : longWord;
  21628. C1TMRCLR : longWord;
  21629. C1TMRSET : longWord;
  21630. C1TMRINV : longWord;
  21631. C1RXM0bits : TCAN1_C1RXM0;
  21632. C1RXM0 : longWord;
  21633. C1RXM0CLR : longWord;
  21634. C1RXM0SET : longWord;
  21635. C1RXM0INV : longWord;
  21636. C1RXM1bits : TCAN1_C1RXM1;
  21637. C1RXM1 : longWord;
  21638. C1RXM1CLR : longWord;
  21639. C1RXM1SET : longWord;
  21640. C1RXM1INV : longWord;
  21641. C1RXM2bits : TCAN1_C1RXM2;
  21642. C1RXM2 : longWord;
  21643. C1RXM2CLR : longWord;
  21644. C1RXM2SET : longWord;
  21645. C1RXM2INV : longWord;
  21646. C1RXM3bits : TCAN1_C1RXM3;
  21647. C1RXM3 : longWord;
  21648. C1RXM3CLR : longWord;
  21649. C1RXM3SET : longWord;
  21650. C1RXM3INV : longWord;
  21651. C1FLTCON0bits : TCAN1_C1FLTCON0;
  21652. C1FLTCON0 : longWord;
  21653. C1FLTCON0CLR : longWord;
  21654. C1FLTCON0SET : longWord;
  21655. C1FLTCON0INV : longWord;
  21656. C1FLTCON1bits : TCAN1_C1FLTCON1;
  21657. C1FLTCON1 : longWord;
  21658. C1FLTCON1CLR : longWord;
  21659. C1FLTCON1SET : longWord;
  21660. C1FLTCON1INV : longWord;
  21661. C1FLTCON2bits : TCAN1_C1FLTCON2;
  21662. C1FLTCON2 : longWord;
  21663. C1FLTCON2CLR : longWord;
  21664. C1FLTCON2SET : longWord;
  21665. C1FLTCON2INV : longWord;
  21666. C1FLTCON3bits : TCAN1_C1FLTCON3;
  21667. C1FLTCON3 : longWord;
  21668. C1FLTCON3CLR : longWord;
  21669. C1FLTCON3SET : longWord;
  21670. C1FLTCON3INV : longWord;
  21671. C1FLTCON4bits : TCAN1_C1FLTCON4;
  21672. C1FLTCON4 : longWord;
  21673. C1FLTCON4CLR : longWord;
  21674. C1FLTCON4SET : longWord;
  21675. C1FLTCON4INV : longWord;
  21676. C1FLTCON5bits : TCAN1_C1FLTCON5;
  21677. C1FLTCON5 : longWord;
  21678. C1FLTCON5CLR : longWord;
  21679. C1FLTCON5SET : longWord;
  21680. C1FLTCON5INV : longWord;
  21681. C1FLTCON6bits : TCAN1_C1FLTCON6;
  21682. C1FLTCON6 : longWord;
  21683. C1FLTCON6CLR : longWord;
  21684. C1FLTCON6SET : longWord;
  21685. C1FLTCON6INV : longWord;
  21686. C1FLTCON7bits : TCAN1_C1FLTCON7;
  21687. C1FLTCON7 : longWord;
  21688. C1FLTCON7CLR : longWord;
  21689. C1FLTCON7SET : longWord;
  21690. C1FLTCON7INV : longWord;
  21691. C1RXF0bits : TCAN1_C1RXF0;
  21692. C1RXF0 : longWord;
  21693. C1RXF0CLR : longWord;
  21694. C1RXF0SET : longWord;
  21695. C1RXF0INV : longWord;
  21696. C1RXF1bits : TCAN1_C1RXF1;
  21697. C1RXF1 : longWord;
  21698. C1RXF1CLR : longWord;
  21699. C1RXF1SET : longWord;
  21700. C1RXF1INV : longWord;
  21701. C1RXF2bits : TCAN1_C1RXF2;
  21702. C1RXF2 : longWord;
  21703. C1RXF2CLR : longWord;
  21704. C1RXF2SET : longWord;
  21705. C1RXF2INV : longWord;
  21706. C1RXF3bits : TCAN1_C1RXF3;
  21707. C1RXF3 : longWord;
  21708. C1RXF3CLR : longWord;
  21709. C1RXF3SET : longWord;
  21710. C1RXF3INV : longWord;
  21711. C1RXF4bits : TCAN1_C1RXF4;
  21712. C1RXF4 : longWord;
  21713. C1RXF4CLR : longWord;
  21714. C1RXF4SET : longWord;
  21715. C1RXF4INV : longWord;
  21716. C1RXF5bits : TCAN1_C1RXF5;
  21717. C1RXF5 : longWord;
  21718. C1RXF5CLR : longWord;
  21719. C1RXF5SET : longWord;
  21720. C1RXF5INV : longWord;
  21721. C1RXF6bits : TCAN1_C1RXF6;
  21722. C1RXF6 : longWord;
  21723. C1RXF6CLR : longWord;
  21724. C1RXF6SET : longWord;
  21725. C1RXF6INV : longWord;
  21726. C1RXF7bits : TCAN1_C1RXF7;
  21727. C1RXF7 : longWord;
  21728. C1RXF7CLR : longWord;
  21729. C1RXF7SET : longWord;
  21730. C1RXF7INV : longWord;
  21731. C1RXF8bits : TCAN1_C1RXF8;
  21732. C1RXF8 : longWord;
  21733. C1RXF8CLR : longWord;
  21734. C1RXF8SET : longWord;
  21735. C1RXF8INV : longWord;
  21736. C1RXF9bits : TCAN1_C1RXF9;
  21737. C1RXF9 : longWord;
  21738. C1RXF9CLR : longWord;
  21739. C1RXF9SET : longWord;
  21740. C1RXF9INV : longWord;
  21741. C1RXF10bits : TCAN1_C1RXF10;
  21742. C1RXF10 : longWord;
  21743. C1RXF10CLR : longWord;
  21744. C1RXF10SET : longWord;
  21745. C1RXF10INV : longWord;
  21746. C1RXF11bits : TCAN1_C1RXF11;
  21747. C1RXF11 : longWord;
  21748. C1RXF11CLR : longWord;
  21749. C1RXF11SET : longWord;
  21750. C1RXF11INV : longWord;
  21751. C1RXF12bits : TCAN1_C1RXF12;
  21752. C1RXF12 : longWord;
  21753. C1RXF12CLR : longWord;
  21754. C1RXF12SET : longWord;
  21755. C1RXF12INV : longWord;
  21756. C1RXF13bits : TCAN1_C1RXF13;
  21757. C1RXF13 : longWord;
  21758. C1RXF13CLR : longWord;
  21759. C1RXF13SET : longWord;
  21760. C1RXF13INV : longWord;
  21761. C1RXF14bits : TCAN1_C1RXF14;
  21762. C1RXF14 : longWord;
  21763. C1RXF14CLR : longWord;
  21764. C1RXF14SET : longWord;
  21765. C1RXF14INV : longWord;
  21766. C1RXF15bits : TCAN1_C1RXF15;
  21767. C1RXF15 : longWord;
  21768. C1RXF15CLR : longWord;
  21769. C1RXF15SET : longWord;
  21770. C1RXF15INV : longWord;
  21771. C1RXF16bits : TCAN1_C1RXF16;
  21772. C1RXF16 : longWord;
  21773. C1RXF16CLR : longWord;
  21774. C1RXF16SET : longWord;
  21775. C1RXF16INV : longWord;
  21776. C1RXF17bits : TCAN1_C1RXF17;
  21777. C1RXF17 : longWord;
  21778. C1RXF17CLR : longWord;
  21779. C1RXF17SET : longWord;
  21780. C1RXF17INV : longWord;
  21781. C1RXF18bits : TCAN1_C1RXF18;
  21782. C1RXF18 : longWord;
  21783. C1RXF18CLR : longWord;
  21784. C1RXF18SET : longWord;
  21785. C1RXF18INV : longWord;
  21786. C1RXF19bits : TCAN1_C1RXF19;
  21787. C1RXF19 : longWord;
  21788. C1RXF19CLR : longWord;
  21789. C1RXF19SET : longWord;
  21790. C1RXF19INV : longWord;
  21791. C1RXF20bits : TCAN1_C1RXF20;
  21792. C1RXF20 : longWord;
  21793. C1RXF20CLR : longWord;
  21794. C1RXF20SET : longWord;
  21795. C1RXF20INV : longWord;
  21796. C1RXF21bits : TCAN1_C1RXF21;
  21797. C1RXF21 : longWord;
  21798. C1RXF21CLR : longWord;
  21799. C1RXF21SET : longWord;
  21800. C1RXF21INV : longWord;
  21801. C1RXF22bits : TCAN1_C1RXF22;
  21802. C1RXF22 : longWord;
  21803. C1RXF22CLR : longWord;
  21804. C1RXF22SET : longWord;
  21805. C1RXF22INV : longWord;
  21806. C1RXF23bits : TCAN1_C1RXF23;
  21807. C1RXF23 : longWord;
  21808. C1RXF23CLR : longWord;
  21809. C1RXF23SET : longWord;
  21810. C1RXF23INV : longWord;
  21811. C1RXF24bits : TCAN1_C1RXF24;
  21812. C1RXF24 : longWord;
  21813. C1RXF24CLR : longWord;
  21814. C1RXF24SET : longWord;
  21815. C1RXF24INV : longWord;
  21816. C1RXF25bits : TCAN1_C1RXF25;
  21817. C1RXF25 : longWord;
  21818. C1RXF25CLR : longWord;
  21819. C1RXF25SET : longWord;
  21820. C1RXF25INV : longWord;
  21821. C1RXF26bits : TCAN1_C1RXF26;
  21822. C1RXF26 : longWord;
  21823. C1RXF26CLR : longWord;
  21824. C1RXF26SET : longWord;
  21825. C1RXF26INV : longWord;
  21826. C1RXF27bits : TCAN1_C1RXF27;
  21827. C1RXF27 : longWord;
  21828. C1RXF27CLR : longWord;
  21829. C1RXF27SET : longWord;
  21830. C1RXF27INV : longWord;
  21831. C1RXF28bits : TCAN1_C1RXF28;
  21832. C1RXF28 : longWord;
  21833. C1RXF28CLR : longWord;
  21834. C1RXF28SET : longWord;
  21835. C1RXF28INV : longWord;
  21836. C1RXF29bits : TCAN1_C1RXF29;
  21837. C1RXF29 : longWord;
  21838. C1RXF29CLR : longWord;
  21839. C1RXF29SET : longWord;
  21840. C1RXF29INV : longWord;
  21841. C1RXF30bits : TCAN1_C1RXF30;
  21842. C1RXF30 : longWord;
  21843. C1RXF30CLR : longWord;
  21844. C1RXF30SET : longWord;
  21845. C1RXF30INV : longWord;
  21846. C1RXF31bits : TCAN1_C1RXF31;
  21847. C1RXF31 : longWord;
  21848. C1RXF31CLR : longWord;
  21849. C1RXF31SET : longWord;
  21850. C1RXF31INV : longWord;
  21851. C1FIFOBA : longWord;
  21852. C1FIFOBACLR : longWord;
  21853. C1FIFOBASET : longWord;
  21854. C1FIFOBAINV : longWord;
  21855. C1FIFOCON0bits : TCAN1_C1FIFOCON0;
  21856. C1FIFOCON0 : longWord;
  21857. C1FIFOCON0CLR : longWord;
  21858. C1FIFOCON0SET : longWord;
  21859. C1FIFOCON0INV : longWord;
  21860. C1FIFOINT0bits : TCAN1_C1FIFOINT0;
  21861. C1FIFOINT0 : longWord;
  21862. C1FIFOINT0CLR : longWord;
  21863. C1FIFOINT0SET : longWord;
  21864. C1FIFOINT0INV : longWord;
  21865. C1FIFOUA0 : longWord;
  21866. C1FIFOUA0CLR : longWord;
  21867. C1FIFOUA0SET : longWord;
  21868. C1FIFOUA0INV : longWord;
  21869. C1FIFOCI0bits : TCAN1_C1FIFOCI0;
  21870. C1FIFOCI0 : longWord;
  21871. C1FIFOCI0CLR : longWord;
  21872. C1FIFOCI0SET : longWord;
  21873. C1FIFOCI0INV : longWord;
  21874. C1FIFOCON1bits : TCAN1_C1FIFOCON1;
  21875. C1FIFOCON1 : longWord;
  21876. C1FIFOCON1CLR : longWord;
  21877. C1FIFOCON1SET : longWord;
  21878. C1FIFOCON1INV : longWord;
  21879. C1FIFOINT1bits : TCAN1_C1FIFOINT1;
  21880. C1FIFOINT1 : longWord;
  21881. C1FIFOINT1CLR : longWord;
  21882. C1FIFOINT1SET : longWord;
  21883. C1FIFOINT1INV : longWord;
  21884. C1FIFOUA1 : longWord;
  21885. C1FIFOUA1CLR : longWord;
  21886. C1FIFOUA1SET : longWord;
  21887. C1FIFOUA1INV : longWord;
  21888. C1FIFOCI1bits : TCAN1_C1FIFOCI1;
  21889. C1FIFOCI1 : longWord;
  21890. C1FIFOCI1CLR : longWord;
  21891. C1FIFOCI1SET : longWord;
  21892. C1FIFOCI1INV : longWord;
  21893. C1FIFOCON2bits : TCAN1_C1FIFOCON2;
  21894. C1FIFOCON2 : longWord;
  21895. C1FIFOCON2CLR : longWord;
  21896. C1FIFOCON2SET : longWord;
  21897. C1FIFOCON2INV : longWord;
  21898. C1FIFOINT2bits : TCAN1_C1FIFOINT2;
  21899. C1FIFOINT2 : longWord;
  21900. C1FIFOINT2CLR : longWord;
  21901. C1FIFOINT2SET : longWord;
  21902. C1FIFOINT2INV : longWord;
  21903. C1FIFOUA2 : longWord;
  21904. C1FIFOUA2CLR : longWord;
  21905. C1FIFOUA2SET : longWord;
  21906. C1FIFOUA2INV : longWord;
  21907. C1FIFOCI2bits : TCAN1_C1FIFOCI2;
  21908. C1FIFOCI2 : longWord;
  21909. C1FIFOCI2CLR : longWord;
  21910. C1FIFOCI2SET : longWord;
  21911. C1FIFOCI2INV : longWord;
  21912. C1FIFOCON3bits : TCAN1_C1FIFOCON3;
  21913. C1FIFOCON3 : longWord;
  21914. C1FIFOCON3CLR : longWord;
  21915. C1FIFOCON3SET : longWord;
  21916. C1FIFOCON3INV : longWord;
  21917. C1FIFOINT3bits : TCAN1_C1FIFOINT3;
  21918. C1FIFOINT3 : longWord;
  21919. C1FIFOINT3CLR : longWord;
  21920. C1FIFOINT3SET : longWord;
  21921. C1FIFOINT3INV : longWord;
  21922. C1FIFOUA3 : longWord;
  21923. C1FIFOUA3CLR : longWord;
  21924. C1FIFOUA3SET : longWord;
  21925. C1FIFOUA3INV : longWord;
  21926. C1FIFOCI3bits : TCAN1_C1FIFOCI3;
  21927. C1FIFOCI3 : longWord;
  21928. C1FIFOCI3CLR : longWord;
  21929. C1FIFOCI3SET : longWord;
  21930. C1FIFOCI3INV : longWord;
  21931. C1FIFOCON4bits : TCAN1_C1FIFOCON4;
  21932. C1FIFOCON4 : longWord;
  21933. C1FIFOCON4CLR : longWord;
  21934. C1FIFOCON4SET : longWord;
  21935. C1FIFOCON4INV : longWord;
  21936. C1FIFOINT4bits : TCAN1_C1FIFOINT4;
  21937. C1FIFOINT4 : longWord;
  21938. C1FIFOINT4CLR : longWord;
  21939. C1FIFOINT4SET : longWord;
  21940. C1FIFOINT4INV : longWord;
  21941. C1FIFOUA4 : longWord;
  21942. C1FIFOUA4CLR : longWord;
  21943. C1FIFOUA4SET : longWord;
  21944. C1FIFOUA4INV : longWord;
  21945. C1FIFOCI4bits : TCAN1_C1FIFOCI4;
  21946. C1FIFOCI4 : longWord;
  21947. C1FIFOCI4CLR : longWord;
  21948. C1FIFOCI4SET : longWord;
  21949. C1FIFOCI4INV : longWord;
  21950. C1FIFOCON5bits : TCAN1_C1FIFOCON5;
  21951. C1FIFOCON5 : longWord;
  21952. C1FIFOCON5CLR : longWord;
  21953. C1FIFOCON5SET : longWord;
  21954. C1FIFOCON5INV : longWord;
  21955. C1FIFOINT5bits : TCAN1_C1FIFOINT5;
  21956. C1FIFOINT5 : longWord;
  21957. C1FIFOINT5CLR : longWord;
  21958. C1FIFOINT5SET : longWord;
  21959. C1FIFOINT5INV : longWord;
  21960. C1FIFOUA5 : longWord;
  21961. C1FIFOUA5CLR : longWord;
  21962. C1FIFOUA5SET : longWord;
  21963. C1FIFOUA5INV : longWord;
  21964. C1FIFOCI5bits : TCAN1_C1FIFOCI5;
  21965. C1FIFOCI5 : longWord;
  21966. C1FIFOCI5CLR : longWord;
  21967. C1FIFOCI5SET : longWord;
  21968. C1FIFOCI5INV : longWord;
  21969. C1FIFOCON6bits : TCAN1_C1FIFOCON6;
  21970. C1FIFOCON6 : longWord;
  21971. C1FIFOCON6CLR : longWord;
  21972. C1FIFOCON6SET : longWord;
  21973. C1FIFOCON6INV : longWord;
  21974. C1FIFOINT6bits : TCAN1_C1FIFOINT6;
  21975. C1FIFOINT6 : longWord;
  21976. C1FIFOINT6CLR : longWord;
  21977. C1FIFOINT6SET : longWord;
  21978. C1FIFOINT6INV : longWord;
  21979. C1FIFOUA6 : longWord;
  21980. C1FIFOUA6CLR : longWord;
  21981. C1FIFOUA6SET : longWord;
  21982. C1FIFOUA6INV : longWord;
  21983. C1FIFOCI6bits : TCAN1_C1FIFOCI6;
  21984. C1FIFOCI6 : longWord;
  21985. C1FIFOCI6CLR : longWord;
  21986. C1FIFOCI6SET : longWord;
  21987. C1FIFOCI6INV : longWord;
  21988. C1FIFOCON7bits : TCAN1_C1FIFOCON7;
  21989. C1FIFOCON7 : longWord;
  21990. C1FIFOCON7CLR : longWord;
  21991. C1FIFOCON7SET : longWord;
  21992. C1FIFOCON7INV : longWord;
  21993. C1FIFOINT7bits : TCAN1_C1FIFOINT7;
  21994. C1FIFOINT7 : longWord;
  21995. C1FIFOINT7CLR : longWord;
  21996. C1FIFOINT7SET : longWord;
  21997. C1FIFOINT7INV : longWord;
  21998. C1FIFOUA7 : longWord;
  21999. C1FIFOUA7CLR : longWord;
  22000. C1FIFOUA7SET : longWord;
  22001. C1FIFOUA7INV : longWord;
  22002. C1FIFOCI7bits : TCAN1_C1FIFOCI7;
  22003. C1FIFOCI7 : longWord;
  22004. C1FIFOCI7CLR : longWord;
  22005. C1FIFOCI7SET : longWord;
  22006. C1FIFOCI7INV : longWord;
  22007. C1FIFOCON8bits : TCAN1_C1FIFOCON8;
  22008. C1FIFOCON8 : longWord;
  22009. C1FIFOCON8CLR : longWord;
  22010. C1FIFOCON8SET : longWord;
  22011. C1FIFOCON8INV : longWord;
  22012. C1FIFOINT8bits : TCAN1_C1FIFOINT8;
  22013. C1FIFOINT8 : longWord;
  22014. C1FIFOINT8CLR : longWord;
  22015. C1FIFOINT8SET : longWord;
  22016. C1FIFOINT8INV : longWord;
  22017. C1FIFOUA8 : longWord;
  22018. C1FIFOUA8CLR : longWord;
  22019. C1FIFOUA8SET : longWord;
  22020. C1FIFOUA8INV : longWord;
  22021. C1FIFOCI8bits : TCAN1_C1FIFOCI8;
  22022. C1FIFOCI8 : longWord;
  22023. C1FIFOCI8CLR : longWord;
  22024. C1FIFOCI8SET : longWord;
  22025. C1FIFOCI8INV : longWord;
  22026. C1FIFOCON9bits : TCAN1_C1FIFOCON9;
  22027. C1FIFOCON9 : longWord;
  22028. C1FIFOCON9CLR : longWord;
  22029. C1FIFOCON9SET : longWord;
  22030. C1FIFOCON9INV : longWord;
  22031. C1FIFOINT9bits : TCAN1_C1FIFOINT9;
  22032. C1FIFOINT9 : longWord;
  22033. C1FIFOINT9CLR : longWord;
  22034. C1FIFOINT9SET : longWord;
  22035. C1FIFOINT9INV : longWord;
  22036. C1FIFOUA9 : longWord;
  22037. C1FIFOUA9CLR : longWord;
  22038. C1FIFOUA9SET : longWord;
  22039. C1FIFOUA9INV : longWord;
  22040. C1FIFOCI9bits : TCAN1_C1FIFOCI9;
  22041. C1FIFOCI9 : longWord;
  22042. C1FIFOCI9CLR : longWord;
  22043. C1FIFOCI9SET : longWord;
  22044. C1FIFOCI9INV : longWord;
  22045. C1FIFOCON10bits : TCAN1_C1FIFOCON10;
  22046. C1FIFOCON10 : longWord;
  22047. C1FIFOCON10CLR : longWord;
  22048. C1FIFOCON10SET : longWord;
  22049. C1FIFOCON10INV : longWord;
  22050. C1FIFOINT10bits : TCAN1_C1FIFOINT10;
  22051. C1FIFOINT10 : longWord;
  22052. C1FIFOINT10CLR : longWord;
  22053. C1FIFOINT10SET : longWord;
  22054. C1FIFOINT10INV : longWord;
  22055. C1FIFOUA10 : longWord;
  22056. C1FIFOUA10CLR : longWord;
  22057. C1FIFOUA10SET : longWord;
  22058. C1FIFOUA10INV : longWord;
  22059. C1FIFOCI10bits : TCAN1_C1FIFOCI10;
  22060. C1FIFOCI10 : longWord;
  22061. C1FIFOCI10CLR : longWord;
  22062. C1FIFOCI10SET : longWord;
  22063. C1FIFOCI10INV : longWord;
  22064. C1FIFOCON11bits : TCAN1_C1FIFOCON11;
  22065. C1FIFOCON11 : longWord;
  22066. C1FIFOCON11CLR : longWord;
  22067. C1FIFOCON11SET : longWord;
  22068. C1FIFOCON11INV : longWord;
  22069. C1FIFOINT11bits : TCAN1_C1FIFOINT11;
  22070. C1FIFOINT11 : longWord;
  22071. C1FIFOINT11CLR : longWord;
  22072. C1FIFOINT11SET : longWord;
  22073. C1FIFOINT11INV : longWord;
  22074. C1FIFOUA11 : longWord;
  22075. C1FIFOUA11CLR : longWord;
  22076. C1FIFOUA11SET : longWord;
  22077. C1FIFOUA11INV : longWord;
  22078. C1FIFOCI11bits : TCAN1_C1FIFOCI11;
  22079. C1FIFOCI11 : longWord;
  22080. C1FIFOCI11CLR : longWord;
  22081. C1FIFOCI11SET : longWord;
  22082. C1FIFOCI11INV : longWord;
  22083. C1FIFOCON12bits : TCAN1_C1FIFOCON12;
  22084. C1FIFOCON12 : longWord;
  22085. C1FIFOCON12CLR : longWord;
  22086. C1FIFOCON12SET : longWord;
  22087. C1FIFOCON12INV : longWord;
  22088. C1FIFOINT12bits : TCAN1_C1FIFOINT12;
  22089. C1FIFOINT12 : longWord;
  22090. C1FIFOINT12CLR : longWord;
  22091. C1FIFOINT12SET : longWord;
  22092. C1FIFOINT12INV : longWord;
  22093. C1FIFOUA12 : longWord;
  22094. C1FIFOUA12CLR : longWord;
  22095. C1FIFOUA12SET : longWord;
  22096. C1FIFOUA12INV : longWord;
  22097. C1FIFOCI12bits : TCAN1_C1FIFOCI12;
  22098. C1FIFOCI12 : longWord;
  22099. C1FIFOCI12CLR : longWord;
  22100. C1FIFOCI12SET : longWord;
  22101. C1FIFOCI12INV : longWord;
  22102. C1FIFOCON13bits : TCAN1_C1FIFOCON13;
  22103. C1FIFOCON13 : longWord;
  22104. C1FIFOCON13CLR : longWord;
  22105. C1FIFOCON13SET : longWord;
  22106. C1FIFOCON13INV : longWord;
  22107. C1FIFOINT13bits : TCAN1_C1FIFOINT13;
  22108. C1FIFOINT13 : longWord;
  22109. C1FIFOINT13CLR : longWord;
  22110. C1FIFOINT13SET : longWord;
  22111. C1FIFOINT13INV : longWord;
  22112. C1FIFOUA13 : longWord;
  22113. C1FIFOUA13CLR : longWord;
  22114. C1FIFOUA13SET : longWord;
  22115. C1FIFOUA13INV : longWord;
  22116. C1FIFOCI13bits : TCAN1_C1FIFOCI13;
  22117. C1FIFOCI13 : longWord;
  22118. C1FIFOCI13CLR : longWord;
  22119. C1FIFOCI13SET : longWord;
  22120. C1FIFOCI13INV : longWord;
  22121. C1FIFOCON14bits : TCAN1_C1FIFOCON14;
  22122. C1FIFOCON14 : longWord;
  22123. C1FIFOCON14CLR : longWord;
  22124. C1FIFOCON14SET : longWord;
  22125. C1FIFOCON14INV : longWord;
  22126. C1FIFOINT14bits : TCAN1_C1FIFOINT14;
  22127. C1FIFOINT14 : longWord;
  22128. C1FIFOINT14CLR : longWord;
  22129. C1FIFOINT14SET : longWord;
  22130. C1FIFOINT14INV : longWord;
  22131. C1FIFOUA14 : longWord;
  22132. C1FIFOUA14CLR : longWord;
  22133. C1FIFOUA14SET : longWord;
  22134. C1FIFOUA14INV : longWord;
  22135. C1FIFOCI14bits : TCAN1_C1FIFOCI14;
  22136. C1FIFOCI14 : longWord;
  22137. C1FIFOCI14CLR : longWord;
  22138. C1FIFOCI14SET : longWord;
  22139. C1FIFOCI14INV : longWord;
  22140. C1FIFOCON15bits : TCAN1_C1FIFOCON15;
  22141. C1FIFOCON15 : longWord;
  22142. C1FIFOCON15CLR : longWord;
  22143. C1FIFOCON15SET : longWord;
  22144. C1FIFOCON15INV : longWord;
  22145. C1FIFOINT15bits : TCAN1_C1FIFOINT15;
  22146. C1FIFOINT15 : longWord;
  22147. C1FIFOINT15CLR : longWord;
  22148. C1FIFOINT15SET : longWord;
  22149. C1FIFOINT15INV : longWord;
  22150. C1FIFOUA15 : longWord;
  22151. C1FIFOUA15CLR : longWord;
  22152. C1FIFOUA15SET : longWord;
  22153. C1FIFOUA15INV : longWord;
  22154. C1FIFOCI15bits : TCAN1_C1FIFOCI15;
  22155. C1FIFOCI15 : longWord;
  22156. C1FIFOCI15CLR : longWord;
  22157. C1FIFOCI15SET : longWord;
  22158. C1FIFOCI15INV : longWord;
  22159. C1FIFOCON16bits : TCAN1_C1FIFOCON16;
  22160. C1FIFOCON16 : longWord;
  22161. C1FIFOCON16CLR : longWord;
  22162. C1FIFOCON16SET : longWord;
  22163. C1FIFOCON16INV : longWord;
  22164. C1FIFOINT16bits : TCAN1_C1FIFOINT16;
  22165. C1FIFOINT16 : longWord;
  22166. C1FIFOINT16CLR : longWord;
  22167. C1FIFOINT16SET : longWord;
  22168. C1FIFOINT16INV : longWord;
  22169. C1FIFOUA16 : longWord;
  22170. C1FIFOUA16CLR : longWord;
  22171. C1FIFOUA16SET : longWord;
  22172. C1FIFOUA16INV : longWord;
  22173. C1FIFOCI16bits : TCAN1_C1FIFOCI16;
  22174. C1FIFOCI16 : longWord;
  22175. C1FIFOCI16CLR : longWord;
  22176. C1FIFOCI16SET : longWord;
  22177. C1FIFOCI16INV : longWord;
  22178. C1FIFOCON17bits : TCAN1_C1FIFOCON17;
  22179. C1FIFOCON17 : longWord;
  22180. C1FIFOCON17CLR : longWord;
  22181. C1FIFOCON17SET : longWord;
  22182. C1FIFOCON17INV : longWord;
  22183. C1FIFOINT17bits : TCAN1_C1FIFOINT17;
  22184. C1FIFOINT17 : longWord;
  22185. C1FIFOINT17CLR : longWord;
  22186. C1FIFOINT17SET : longWord;
  22187. C1FIFOINT17INV : longWord;
  22188. C1FIFOUA17 : longWord;
  22189. C1FIFOUA17CLR : longWord;
  22190. C1FIFOUA17SET : longWord;
  22191. C1FIFOUA17INV : longWord;
  22192. C1FIFOCI17bits : TCAN1_C1FIFOCI17;
  22193. C1FIFOCI17 : longWord;
  22194. C1FIFOCI17CLR : longWord;
  22195. C1FIFOCI17SET : longWord;
  22196. C1FIFOCI17INV : longWord;
  22197. C1FIFOCON18bits : TCAN1_C1FIFOCON18;
  22198. C1FIFOCON18 : longWord;
  22199. C1FIFOCON18CLR : longWord;
  22200. C1FIFOCON18SET : longWord;
  22201. C1FIFOCON18INV : longWord;
  22202. C1FIFOINT18bits : TCAN1_C1FIFOINT18;
  22203. C1FIFOINT18 : longWord;
  22204. C1FIFOINT18CLR : longWord;
  22205. C1FIFOINT18SET : longWord;
  22206. C1FIFOINT18INV : longWord;
  22207. C1FIFOUA18 : longWord;
  22208. C1FIFOUA18CLR : longWord;
  22209. C1FIFOUA18SET : longWord;
  22210. C1FIFOUA18INV : longWord;
  22211. C1FIFOCI18bits : TCAN1_C1FIFOCI18;
  22212. C1FIFOCI18 : longWord;
  22213. C1FIFOCI18CLR : longWord;
  22214. C1FIFOCI18SET : longWord;
  22215. C1FIFOCI18INV : longWord;
  22216. C1FIFOCON19bits : TCAN1_C1FIFOCON19;
  22217. C1FIFOCON19 : longWord;
  22218. C1FIFOCON19CLR : longWord;
  22219. C1FIFOCON19SET : longWord;
  22220. C1FIFOCON19INV : longWord;
  22221. C1FIFOINT19bits : TCAN1_C1FIFOINT19;
  22222. C1FIFOINT19 : longWord;
  22223. C1FIFOINT19CLR : longWord;
  22224. C1FIFOINT19SET : longWord;
  22225. C1FIFOINT19INV : longWord;
  22226. C1FIFOUA19 : longWord;
  22227. C1FIFOUA19CLR : longWord;
  22228. C1FIFOUA19SET : longWord;
  22229. C1FIFOUA19INV : longWord;
  22230. C1FIFOCI19bits : TCAN1_C1FIFOCI19;
  22231. C1FIFOCI19 : longWord;
  22232. C1FIFOCI19CLR : longWord;
  22233. C1FIFOCI19SET : longWord;
  22234. C1FIFOCI19INV : longWord;
  22235. C1FIFOCON20bits : TCAN1_C1FIFOCON20;
  22236. C1FIFOCON20 : longWord;
  22237. C1FIFOCON20CLR : longWord;
  22238. C1FIFOCON20SET : longWord;
  22239. C1FIFOCON20INV : longWord;
  22240. C1FIFOINT20bits : TCAN1_C1FIFOINT20;
  22241. C1FIFOINT20 : longWord;
  22242. C1FIFOINT20CLR : longWord;
  22243. C1FIFOINT20SET : longWord;
  22244. C1FIFOINT20INV : longWord;
  22245. C1FIFOUA20 : longWord;
  22246. C1FIFOUA20CLR : longWord;
  22247. C1FIFOUA20SET : longWord;
  22248. C1FIFOUA20INV : longWord;
  22249. C1FIFOCI20bits : TCAN1_C1FIFOCI20;
  22250. C1FIFOCI20 : longWord;
  22251. C1FIFOCI20CLR : longWord;
  22252. C1FIFOCI20SET : longWord;
  22253. C1FIFOCI20INV : longWord;
  22254. C1FIFOCON21bits : TCAN1_C1FIFOCON21;
  22255. C1FIFOCON21 : longWord;
  22256. C1FIFOCON21CLR : longWord;
  22257. C1FIFOCON21SET : longWord;
  22258. C1FIFOCON21INV : longWord;
  22259. C1FIFOINT21bits : TCAN1_C1FIFOINT21;
  22260. C1FIFOINT21 : longWord;
  22261. C1FIFOINT21CLR : longWord;
  22262. C1FIFOINT21SET : longWord;
  22263. C1FIFOINT21INV : longWord;
  22264. C1FIFOUA21 : longWord;
  22265. C1FIFOUA21CLR : longWord;
  22266. C1FIFOUA21SET : longWord;
  22267. C1FIFOUA21INV : longWord;
  22268. C1FIFOCI21bits : TCAN1_C1FIFOCI21;
  22269. C1FIFOCI21 : longWord;
  22270. C1FIFOCI21CLR : longWord;
  22271. C1FIFOCI21SET : longWord;
  22272. C1FIFOCI21INV : longWord;
  22273. C1FIFOCON22bits : TCAN1_C1FIFOCON22;
  22274. C1FIFOCON22 : longWord;
  22275. C1FIFOCON22CLR : longWord;
  22276. C1FIFOCON22SET : longWord;
  22277. C1FIFOCON22INV : longWord;
  22278. C1FIFOINT22bits : TCAN1_C1FIFOINT22;
  22279. C1FIFOINT22 : longWord;
  22280. C1FIFOINT22CLR : longWord;
  22281. C1FIFOINT22SET : longWord;
  22282. C1FIFOINT22INV : longWord;
  22283. C1FIFOUA22 : longWord;
  22284. C1FIFOUA22CLR : longWord;
  22285. C1FIFOUA22SET : longWord;
  22286. C1FIFOUA22INV : longWord;
  22287. C1FIFOCI22bits : TCAN1_C1FIFOCI22;
  22288. C1FIFOCI22 : longWord;
  22289. C1FIFOCI22CLR : longWord;
  22290. C1FIFOCI22SET : longWord;
  22291. C1FIFOCI22INV : longWord;
  22292. C1FIFOCON23bits : TCAN1_C1FIFOCON23;
  22293. C1FIFOCON23 : longWord;
  22294. C1FIFOCON23CLR : longWord;
  22295. C1FIFOCON23SET : longWord;
  22296. C1FIFOCON23INV : longWord;
  22297. C1FIFOINT23bits : TCAN1_C1FIFOINT23;
  22298. C1FIFOINT23 : longWord;
  22299. C1FIFOINT23CLR : longWord;
  22300. C1FIFOINT23SET : longWord;
  22301. C1FIFOINT23INV : longWord;
  22302. C1FIFOUA23 : longWord;
  22303. C1FIFOUA23CLR : longWord;
  22304. C1FIFOUA23SET : longWord;
  22305. C1FIFOUA23INV : longWord;
  22306. C1FIFOCI23bits : TCAN1_C1FIFOCI23;
  22307. C1FIFOCI23 : longWord;
  22308. C1FIFOCI23CLR : longWord;
  22309. C1FIFOCI23SET : longWord;
  22310. C1FIFOCI23INV : longWord;
  22311. C1FIFOCON24bits : TCAN1_C1FIFOCON24;
  22312. C1FIFOCON24 : longWord;
  22313. C1FIFOCON24CLR : longWord;
  22314. C1FIFOCON24SET : longWord;
  22315. C1FIFOCON24INV : longWord;
  22316. C1FIFOINT24bits : TCAN1_C1FIFOINT24;
  22317. C1FIFOINT24 : longWord;
  22318. C1FIFOINT24CLR : longWord;
  22319. C1FIFOINT24SET : longWord;
  22320. C1FIFOINT24INV : longWord;
  22321. C1FIFOUA24 : longWord;
  22322. C1FIFOUA24CLR : longWord;
  22323. C1FIFOUA24SET : longWord;
  22324. C1FIFOUA24INV : longWord;
  22325. C1FIFOCI24bits : TCAN1_C1FIFOCI24;
  22326. C1FIFOCI24 : longWord;
  22327. C1FIFOCI24CLR : longWord;
  22328. C1FIFOCI24SET : longWord;
  22329. C1FIFOCI24INV : longWord;
  22330. C1FIFOCON25bits : TCAN1_C1FIFOCON25;
  22331. C1FIFOCON25 : longWord;
  22332. C1FIFOCON25CLR : longWord;
  22333. C1FIFOCON25SET : longWord;
  22334. C1FIFOCON25INV : longWord;
  22335. C1FIFOINT25bits : TCAN1_C1FIFOINT25;
  22336. C1FIFOINT25 : longWord;
  22337. C1FIFOINT25CLR : longWord;
  22338. C1FIFOINT25SET : longWord;
  22339. C1FIFOINT25INV : longWord;
  22340. C1FIFOUA25 : longWord;
  22341. C1FIFOUA25CLR : longWord;
  22342. C1FIFOUA25SET : longWord;
  22343. C1FIFOUA25INV : longWord;
  22344. C1FIFOCI25bits : TCAN1_C1FIFOCI25;
  22345. C1FIFOCI25 : longWord;
  22346. C1FIFOCI25CLR : longWord;
  22347. C1FIFOCI25SET : longWord;
  22348. C1FIFOCI25INV : longWord;
  22349. C1FIFOCON26bits : TCAN1_C1FIFOCON26;
  22350. C1FIFOCON26 : longWord;
  22351. C1FIFOCON26CLR : longWord;
  22352. C1FIFOCON26SET : longWord;
  22353. C1FIFOCON26INV : longWord;
  22354. C1FIFOINT26bits : TCAN1_C1FIFOINT26;
  22355. C1FIFOINT26 : longWord;
  22356. C1FIFOINT26CLR : longWord;
  22357. C1FIFOINT26SET : longWord;
  22358. C1FIFOINT26INV : longWord;
  22359. C1FIFOUA26 : longWord;
  22360. C1FIFOUA26CLR : longWord;
  22361. C1FIFOUA26SET : longWord;
  22362. C1FIFOUA26INV : longWord;
  22363. C1FIFOCI26bits : TCAN1_C1FIFOCI26;
  22364. C1FIFOCI26 : longWord;
  22365. C1FIFOCI26CLR : longWord;
  22366. C1FIFOCI26SET : longWord;
  22367. C1FIFOCI26INV : longWord;
  22368. C1FIFOCON27bits : TCAN1_C1FIFOCON27;
  22369. C1FIFOCON27 : longWord;
  22370. C1FIFOCON27CLR : longWord;
  22371. C1FIFOCON27SET : longWord;
  22372. C1FIFOCON27INV : longWord;
  22373. C1FIFOINT27bits : TCAN1_C1FIFOINT27;
  22374. C1FIFOINT27 : longWord;
  22375. C1FIFOINT27CLR : longWord;
  22376. C1FIFOINT27SET : longWord;
  22377. C1FIFOINT27INV : longWord;
  22378. C1FIFOUA27 : longWord;
  22379. C1FIFOUA27CLR : longWord;
  22380. C1FIFOUA27SET : longWord;
  22381. C1FIFOUA27INV : longWord;
  22382. C1FIFOCI27bits : TCAN1_C1FIFOCI27;
  22383. C1FIFOCI27 : longWord;
  22384. C1FIFOCI27CLR : longWord;
  22385. C1FIFOCI27SET : longWord;
  22386. C1FIFOCI27INV : longWord;
  22387. C1FIFOCON28bits : TCAN1_C1FIFOCON28;
  22388. C1FIFOCON28 : longWord;
  22389. C1FIFOCON28CLR : longWord;
  22390. C1FIFOCON28SET : longWord;
  22391. C1FIFOCON28INV : longWord;
  22392. C1FIFOINT28bits : TCAN1_C1FIFOINT28;
  22393. C1FIFOINT28 : longWord;
  22394. C1FIFOINT28CLR : longWord;
  22395. C1FIFOINT28SET : longWord;
  22396. C1FIFOINT28INV : longWord;
  22397. C1FIFOUA28 : longWord;
  22398. C1FIFOUA28CLR : longWord;
  22399. C1FIFOUA28SET : longWord;
  22400. C1FIFOUA28INV : longWord;
  22401. C1FIFOCI28bits : TCAN1_C1FIFOCI28;
  22402. C1FIFOCI28 : longWord;
  22403. C1FIFOCI28CLR : longWord;
  22404. C1FIFOCI28SET : longWord;
  22405. C1FIFOCI28INV : longWord;
  22406. C1FIFOCON29bits : TCAN1_C1FIFOCON29;
  22407. C1FIFOCON29 : longWord;
  22408. C1FIFOCON29CLR : longWord;
  22409. C1FIFOCON29SET : longWord;
  22410. C1FIFOCON29INV : longWord;
  22411. C1FIFOINT29bits : TCAN1_C1FIFOINT29;
  22412. C1FIFOINT29 : longWord;
  22413. C1FIFOINT29CLR : longWord;
  22414. C1FIFOINT29SET : longWord;
  22415. C1FIFOINT29INV : longWord;
  22416. C1FIFOUA29 : longWord;
  22417. C1FIFOUA29CLR : longWord;
  22418. C1FIFOUA29SET : longWord;
  22419. C1FIFOUA29INV : longWord;
  22420. C1FIFOCI29bits : TCAN1_C1FIFOCI29;
  22421. C1FIFOCI29 : longWord;
  22422. C1FIFOCI29CLR : longWord;
  22423. C1FIFOCI29SET : longWord;
  22424. C1FIFOCI29INV : longWord;
  22425. C1FIFOCON30bits : TCAN1_C1FIFOCON30;
  22426. C1FIFOCON30 : longWord;
  22427. C1FIFOCON30CLR : longWord;
  22428. C1FIFOCON30SET : longWord;
  22429. C1FIFOCON30INV : longWord;
  22430. C1FIFOINT30bits : TCAN1_C1FIFOINT30;
  22431. C1FIFOINT30 : longWord;
  22432. C1FIFOINT30CLR : longWord;
  22433. C1FIFOINT30SET : longWord;
  22434. C1FIFOINT30INV : longWord;
  22435. C1FIFOUA30 : longWord;
  22436. C1FIFOUA30CLR : longWord;
  22437. C1FIFOUA30SET : longWord;
  22438. C1FIFOUA30INV : longWord;
  22439. C1FIFOCI30bits : TCAN1_C1FIFOCI30;
  22440. C1FIFOCI30 : longWord;
  22441. C1FIFOCI30CLR : longWord;
  22442. C1FIFOCI30SET : longWord;
  22443. C1FIFOCI30INV : longWord;
  22444. C1FIFOCON31bits : TCAN1_C1FIFOCON31;
  22445. C1FIFOCON31 : longWord;
  22446. C1FIFOCON31CLR : longWord;
  22447. C1FIFOCON31SET : longWord;
  22448. C1FIFOCON31INV : longWord;
  22449. C1FIFOINT31bits : TCAN1_C1FIFOINT31;
  22450. C1FIFOINT31 : longWord;
  22451. C1FIFOINT31CLR : longWord;
  22452. C1FIFOINT31SET : longWord;
  22453. C1FIFOINT31INV : longWord;
  22454. C1FIFOUA31 : longWord;
  22455. C1FIFOUA31CLR : longWord;
  22456. C1FIFOUA31SET : longWord;
  22457. C1FIFOUA31INV : longWord;
  22458. C1FIFOCI31bits : TCAN1_C1FIFOCI31;
  22459. C1FIFOCI31 : longWord;
  22460. C1FIFOCI31CLR : longWord;
  22461. C1FIFOCI31SET : longWord;
  22462. C1FIFOCI31INV : longWord;
  22463. end;
  22464. TDEVCFG_DEVCFG3 = record
  22465. private
  22466. function getFCANIO : TBits_1; inline;
  22467. function getFSRSSEL : TBits_3; inline;
  22468. function getFUSBIDIO : TBits_1; inline;
  22469. function getFVBUSONIO : TBits_1; inline;
  22470. function getUSERID : TBits_16; inline;
  22471. function getw : TBits_32; inline;
  22472. procedure setFCANIO(thebits : TBits_1); inline;
  22473. procedure setFSRSSEL(thebits : TBits_3); inline;
  22474. procedure setFUSBIDIO(thebits : TBits_1); inline;
  22475. procedure setFVBUSONIO(thebits : TBits_1); inline;
  22476. procedure setUSERID(thebits : TBits_16); inline;
  22477. procedure setw(thebits : TBits_32); inline;
  22478. public
  22479. procedure clearFCANIO; inline;
  22480. procedure clearFUSBIDIO; inline;
  22481. procedure clearFVBUSONIO; inline;
  22482. procedure setFCANIO; inline;
  22483. procedure setFUSBIDIO; inline;
  22484. procedure setFVBUSONIO; inline;
  22485. property FCANIO : TBits_1 read getFCANIO write setFCANIO;
  22486. property FSRSSEL : TBits_3 read getFSRSSEL write setFSRSSEL;
  22487. property FUSBIDIO : TBits_1 read getFUSBIDIO write setFUSBIDIO;
  22488. property FVBUSONIO : TBits_1 read getFVBUSONIO write setFVBUSONIO;
  22489. property USERID : TBits_16 read getUSERID write setUSERID;
  22490. property w : TBits_32 read getw write setw;
  22491. end;
  22492. TDEVCFG_DEVCFG2 = record
  22493. private
  22494. function getFPLLIDIV : TBits_3; inline;
  22495. function getFPLLMUL : TBits_3; inline;
  22496. function getFPLLODIV : TBits_3; inline;
  22497. function getUPLLEN : TBits_1; inline;
  22498. function getUPLLIDIV : TBits_3; inline;
  22499. function getw : TBits_32; inline;
  22500. procedure setFPLLIDIV(thebits : TBits_3); inline;
  22501. procedure setFPLLMUL(thebits : TBits_3); inline;
  22502. procedure setFPLLODIV(thebits : TBits_3); inline;
  22503. procedure setUPLLEN(thebits : TBits_1); inline;
  22504. procedure setUPLLIDIV(thebits : TBits_3); inline;
  22505. procedure setw(thebits : TBits_32); inline;
  22506. public
  22507. procedure clearUPLLEN; inline;
  22508. procedure setUPLLEN; inline;
  22509. property FPLLIDIV : TBits_3 read getFPLLIDIV write setFPLLIDIV;
  22510. property FPLLMUL : TBits_3 read getFPLLMUL write setFPLLMUL;
  22511. property FPLLODIV : TBits_3 read getFPLLODIV write setFPLLODIV;
  22512. property UPLLEN : TBits_1 read getUPLLEN write setUPLLEN;
  22513. property UPLLIDIV : TBits_3 read getUPLLIDIV write setUPLLIDIV;
  22514. property w : TBits_32 read getw write setw;
  22515. end;
  22516. TDEVCFG_DEVCFG1 = record
  22517. private
  22518. function getFCKSM : TBits_2; inline;
  22519. function getFNOSC : TBits_3; inline;
  22520. function getFPBDIV : TBits_2; inline;
  22521. function getFSOSCEN : TBits_1; inline;
  22522. function getFWDTEN : TBits_1; inline;
  22523. function getIESO : TBits_1; inline;
  22524. function getOSCIOFNC : TBits_1; inline;
  22525. function getPOSCMOD : TBits_2; inline;
  22526. function getWDTPS : TBits_5; inline;
  22527. function getw : TBits_32; inline;
  22528. procedure setFCKSM(thebits : TBits_2); inline;
  22529. procedure setFNOSC(thebits : TBits_3); inline;
  22530. procedure setFPBDIV(thebits : TBits_2); inline;
  22531. procedure setFSOSCEN(thebits : TBits_1); inline;
  22532. procedure setFWDTEN(thebits : TBits_1); inline;
  22533. procedure setIESO(thebits : TBits_1); inline;
  22534. procedure setOSCIOFNC(thebits : TBits_1); inline;
  22535. procedure setPOSCMOD(thebits : TBits_2); inline;
  22536. procedure setWDTPS(thebits : TBits_5); inline;
  22537. procedure setw(thebits : TBits_32); inline;
  22538. public
  22539. procedure clearFSOSCEN; inline;
  22540. procedure clearFWDTEN; inline;
  22541. procedure clearIESO; inline;
  22542. procedure clearOSCIOFNC; inline;
  22543. procedure setFSOSCEN; inline;
  22544. procedure setFWDTEN; inline;
  22545. procedure setIESO; inline;
  22546. procedure setOSCIOFNC; inline;
  22547. property FCKSM : TBits_2 read getFCKSM write setFCKSM;
  22548. property FNOSC : TBits_3 read getFNOSC write setFNOSC;
  22549. property FPBDIV : TBits_2 read getFPBDIV write setFPBDIV;
  22550. property FSOSCEN : TBits_1 read getFSOSCEN write setFSOSCEN;
  22551. property FWDTEN : TBits_1 read getFWDTEN write setFWDTEN;
  22552. property IESO : TBits_1 read getIESO write setIESO;
  22553. property OSCIOFNC : TBits_1 read getOSCIOFNC write setOSCIOFNC;
  22554. property POSCMOD : TBits_2 read getPOSCMOD write setPOSCMOD;
  22555. property WDTPS : TBits_5 read getWDTPS write setWDTPS;
  22556. property w : TBits_32 read getw write setw;
  22557. end;
  22558. TDEVCFG_DEVCFG0 = record
  22559. private
  22560. function getBWP : TBits_1; inline;
  22561. function getCP : TBits_1; inline;
  22562. function getDEBUG : TBits_2; inline;
  22563. function getFDEBUG : TBits_2; inline;
  22564. function getICESEL : TBits_1; inline;
  22565. function getPWP : TBits_8; inline;
  22566. function getw : TBits_32; inline;
  22567. procedure setBWP(thebits : TBits_1); inline;
  22568. procedure setCP(thebits : TBits_1); inline;
  22569. procedure setDEBUG(thebits : TBits_2); inline;
  22570. procedure setFDEBUG(thebits : TBits_2); inline;
  22571. procedure setICESEL(thebits : TBits_1); inline;
  22572. procedure setPWP(thebits : TBits_8); inline;
  22573. procedure setw(thebits : TBits_32); inline;
  22574. public
  22575. procedure clearBWP; inline;
  22576. procedure clearCP; inline;
  22577. procedure clearICESEL; inline;
  22578. procedure setBWP; inline;
  22579. procedure setCP; inline;
  22580. procedure setICESEL; inline;
  22581. property BWP : TBits_1 read getBWP write setBWP;
  22582. property CP : TBits_1 read getCP write setCP;
  22583. property DEBUG : TBits_2 read getDEBUG write setDEBUG;
  22584. property FDEBUG : TBits_2 read getFDEBUG write setFDEBUG;
  22585. property ICESEL : TBits_1 read getICESEL write setICESEL;
  22586. property PWP : TBits_8 read getPWP write setPWP;
  22587. property w : TBits_32 read getw write setw;
  22588. end;
  22589. const
  22590. _CORE_TIMER_IRQ = 0;
  22591. _CORE_SOFTWARE_0_IRQ = 1;
  22592. _CORE_SOFTWARE_1_IRQ = 2;
  22593. _EXTERNAL_0_IRQ = 3;
  22594. _TIMER_1_IRQ = 4;
  22595. _INPUT_CAPTURE_1_IRQ = 5;
  22596. _OUTPUT_COMPARE_1_IRQ = 6;
  22597. _EXTERNAL_1_IRQ = 7;
  22598. _TIMER_2_IRQ = 8;
  22599. _INPUT_CAPTURE_2_IRQ = 9;
  22600. _OUTPUT_COMPARE_2_IRQ = 10;
  22601. _EXTERNAL_2_IRQ = 11;
  22602. _TIMER_3_IRQ = 12;
  22603. _INPUT_CAPTURE_3_IRQ = 13;
  22604. _OUTPUT_COMPARE_3_IRQ = 14;
  22605. _EXTERNAL_3_IRQ = 15;
  22606. _TIMER_4_IRQ = 16;
  22607. _INPUT_CAPTURE_4_IRQ = 17;
  22608. _OUTPUT_COMPARE_4_IRQ = 18;
  22609. _EXTERNAL_4_IRQ = 19;
  22610. _TIMER_5_IRQ = 20;
  22611. _INPUT_CAPTURE_5_IRQ = 21;
  22612. _OUTPUT_COMPARE_5_IRQ = 22;
  22613. _SPI1_ERR_IRQ = 23;
  22614. _SPI1_RX_IRQ = 24;
  22615. _SPI1_TX_IRQ = 25;
  22616. _I2C1A_ERR_IRQ = 26;
  22617. _I2C3_BUS_IRQ = 26;
  22618. _SPI1A_ERR_IRQ = 26;
  22619. _SPI3_ERR_IRQ = 26;
  22620. _UART1A_ERR_IRQ = 26;
  22621. _UART1_ERR_IRQ = 26;
  22622. _I2C1A_RX_IRQ = 27;
  22623. _I2C3_SLAVE_IRQ = 27;
  22624. _SPI1A_RX_IRQ = 27;
  22625. _SPI3_RX_IRQ = 27;
  22626. _UART1A_RX_IRQ = 27;
  22627. _UART1_RX_IRQ = 27;
  22628. _I2C1A_TX_IRQ = 28;
  22629. _I2C3_MASTER_IRQ = 28;
  22630. _SPI1A_TX_IRQ = 28;
  22631. _SPI3_TX_IRQ = 28;
  22632. _UART1A_TX_IRQ = 28;
  22633. _UART1_TX_IRQ = 28;
  22634. _I2C1_BUS_IRQ = 29;
  22635. _I2C1_SLAVE_IRQ = 30;
  22636. _I2C1_MASTER_IRQ = 31;
  22637. _CHANGE_NOTICE_IRQ = 32;
  22638. _ADC_IRQ = 33;
  22639. _PMP_IRQ = 34;
  22640. _COMPARATOR_1_IRQ = 35;
  22641. _COMPARATOR_2_IRQ = 36;
  22642. _I2C2A_ERR_IRQ = 37;
  22643. _I2C4_BUS_IRQ = 37;
  22644. _SPI2_ERR_IRQ = 37;
  22645. _SPI2A_ERR_IRQ = 37;
  22646. _UART2A_ERR_IRQ = 37;
  22647. _UART3_ERR_IRQ = 37;
  22648. _I2C2A_RX_IRQ = 38;
  22649. _I2C4_SLAVE_IRQ = 38;
  22650. _SPI2_RX_IRQ = 38;
  22651. _SPI2A_RX_IRQ = 38;
  22652. _UART2A_RX_IRQ = 38;
  22653. _UART3_RX_IRQ = 38;
  22654. _I2C2A_TX_IRQ = 39;
  22655. _I2C4_MASTER_IRQ = 39;
  22656. _SPI2A_TX_IRQ = 39;
  22657. _SPI2_TX_IRQ = 39;
  22658. _UART2A_TX_IRQ = 39;
  22659. _UART3_TX_IRQ = 39;
  22660. _I2C3A_ERR_IRQ = 40;
  22661. _I2C5_BUS_IRQ = 40;
  22662. _SPI3A_ERR_IRQ = 40;
  22663. _SPI4_ERR_IRQ = 40;
  22664. _UART2_ERR_IRQ = 40;
  22665. _UART3A_ERR_IRQ = 40;
  22666. _I2C3A_RX_IRQ = 41;
  22667. _I2C5_SLAVE_IRQ = 41;
  22668. _SPI3A_RX_IRQ = 41;
  22669. _SPI4_RX_IRQ = 41;
  22670. _UART2_RX_IRQ = 41;
  22671. _UART3A_RX_IRQ = 41;
  22672. _I2C3A_TX_IRQ = 42;
  22673. _I2C5_MASTER_IRQ = 42;
  22674. _SPI3A_TX_IRQ = 42;
  22675. _SPI4_TX_IRQ = 42;
  22676. _UART2_TX_IRQ = 42;
  22677. _UART3A_TX_IRQ = 42;
  22678. _I2C2_BUS_IRQ = 43;
  22679. _I2C2_SLAVE_IRQ = 44;
  22680. _I2C2_MASTER_IRQ = 45;
  22681. _FAIL_SAFE_MONITOR_IRQ = 46;
  22682. _RTCC_IRQ = 47;
  22683. _DMA0_IRQ = 48;
  22684. _DMA1_IRQ = 49;
  22685. _DMA2_IRQ = 50;
  22686. _DMA3_IRQ = 51;
  22687. _DMA4_IRQ = 52;
  22688. _DMA5_IRQ = 53;
  22689. _DMA6_IRQ = 54;
  22690. _DMA7_IRQ = 55;
  22691. _FLASH_CONTROL_IRQ = 56;
  22692. _USB_IRQ = 57;
  22693. _CAN1_IRQ = 58;
  22694. _INPUT_CAPTURE_ERROR_1_IRQ = 61;
  22695. _INPUT_CAPTURE_ERROR_2_IRQ = 62;
  22696. _INPUT_CAPTURE_ERROR_3_IRQ = 63;
  22697. _INPUT_CAPTURE_ERROR_4_IRQ = 64;
  22698. _INPUT_CAPTURE_ERROR_5_IRQ = 65;
  22699. _PMP_ERROR_IRQ = 66;
  22700. _UART1B_ERR_IRQ = 67;
  22701. _UART4_ERR_IRQ = 67;
  22702. _UART1B_RX_IRQ = 68;
  22703. _UART4_RX_IRQ = 68;
  22704. _UART1B_TX_IRQ = 69;
  22705. _UART4_TX_IRQ = 69;
  22706. _UART2B_ERR_IRQ = 70;
  22707. _UART6_ERR_IRQ = 70;
  22708. _UART2B_RX_IRQ = 71;
  22709. _UART6_RX_IRQ = 71;
  22710. _UART2B_TX_IRQ = 72;
  22711. _UART6_TX_IRQ = 72;
  22712. _UART3B_ERR_IRQ = 73;
  22713. _UART5_ERR_IRQ = 73;
  22714. _UART3B_RX_IRQ = 74;
  22715. _UART5_RX_IRQ = 74;
  22716. _UART3B_TX_IRQ = 75;
  22717. _UART5_TX_IRQ = 75;
  22718. const
  22719. ADC10_BASE_ADDRESS = $BF809000;
  22720. var
  22721. ADC10 : TADC10Registers absolute ADC10_BASE_ADDRESS;
  22722. const
  22723. BMX_BASE_ADDRESS = $BF882000;
  22724. var
  22725. BMX : TBMXRegisters absolute BMX_BASE_ADDRESS;
  22726. const
  22727. CAN1_BASE_ADDRESS = $BF88B000;
  22728. var
  22729. CAN1 : TCAN1Registers absolute CAN1_BASE_ADDRESS;
  22730. const
  22731. CFG_BASE_ADDRESS = $BF80F200;
  22732. var
  22733. CFG : TCFGRegisters absolute CFG_BASE_ADDRESS;
  22734. const
  22735. CMP_BASE_ADDRESS = $BF80A000;
  22736. var
  22737. CMP : TCMPRegisters absolute CMP_BASE_ADDRESS;
  22738. const
  22739. CVR_BASE_ADDRESS = $BF809800;
  22740. var
  22741. CVR : TCVRRegisters absolute CVR_BASE_ADDRESS;
  22742. const
  22743. DMAC_BASE_ADDRESS = $BF883000;
  22744. var
  22745. DMAC : TDMACRegisters absolute DMAC_BASE_ADDRESS;
  22746. const
  22747. DMAC0_BASE_ADDRESS = $BF883060;
  22748. var
  22749. DMAC0 : TDMAC0Registers absolute DMAC0_BASE_ADDRESS;
  22750. const
  22751. DMAC1_BASE_ADDRESS = $BF883120;
  22752. var
  22753. DMAC1 : TDMAC1Registers absolute DMAC1_BASE_ADDRESS;
  22754. const
  22755. DMAC2_BASE_ADDRESS = $BF8831E0;
  22756. var
  22757. DMAC2 : TDMAC2Registers absolute DMAC2_BASE_ADDRESS;
  22758. const
  22759. DMAC3_BASE_ADDRESS = $BF8832A0;
  22760. var
  22761. DMAC3 : TDMAC3Registers absolute DMAC3_BASE_ADDRESS;
  22762. const
  22763. DMAC4_BASE_ADDRESS = $BF883360;
  22764. var
  22765. DMAC4 : TDMAC4Registers absolute DMAC4_BASE_ADDRESS;
  22766. const
  22767. DMAC5_BASE_ADDRESS = $BF883420;
  22768. var
  22769. DMAC5 : TDMAC5Registers absolute DMAC5_BASE_ADDRESS;
  22770. const
  22771. DMAC6_BASE_ADDRESS = $BF8834E0;
  22772. var
  22773. DMAC6 : TDMAC6Registers absolute DMAC6_BASE_ADDRESS;
  22774. const
  22775. DMAC7_BASE_ADDRESS = $BF8835A0;
  22776. var
  22777. DMAC7 : TDMAC7Registers absolute DMAC7_BASE_ADDRESS;
  22778. const
  22779. I2C1_BASE_ADDRESS = $BF805300;
  22780. var
  22781. I2C1 : TI2C1Registers absolute I2C1_BASE_ADDRESS;
  22782. const
  22783. I2C2_BASE_ADDRESS = $BF805400;
  22784. var
  22785. I2C2 : TI2C2Registers absolute I2C2_BASE_ADDRESS;
  22786. const
  22787. I2C3_BASE_ADDRESS = $BF805000;
  22788. var
  22789. I2C3 : TI2C3Registers absolute I2C3_BASE_ADDRESS;
  22790. const
  22791. I2C4_BASE_ADDRESS = $BF805100;
  22792. var
  22793. I2C4 : TI2C4Registers absolute I2C4_BASE_ADDRESS;
  22794. const
  22795. I2C5_BASE_ADDRESS = $BF805200;
  22796. var
  22797. I2C5 : TI2C5Registers absolute I2C5_BASE_ADDRESS;
  22798. const
  22799. ICAP1_BASE_ADDRESS = $BF802000;
  22800. var
  22801. ICAP1 : TICAP1Registers absolute ICAP1_BASE_ADDRESS;
  22802. const
  22803. ICAP2_BASE_ADDRESS = $BF802200;
  22804. var
  22805. ICAP2 : TICAP2Registers absolute ICAP2_BASE_ADDRESS;
  22806. const
  22807. ICAP3_BASE_ADDRESS = $BF802400;
  22808. var
  22809. ICAP3 : TICAP3Registers absolute ICAP3_BASE_ADDRESS;
  22810. const
  22811. ICAP4_BASE_ADDRESS = $BF802600;
  22812. var
  22813. ICAP4 : TICAP4Registers absolute ICAP4_BASE_ADDRESS;
  22814. const
  22815. ICAP5_BASE_ADDRESS = $BF802800;
  22816. var
  22817. ICAP5 : TICAP5Registers absolute ICAP5_BASE_ADDRESS;
  22818. const
  22819. INT_BASE_ADDRESS = $BF881000;
  22820. var
  22821. INT : TINTRegisters absolute INT_BASE_ADDRESS;
  22822. const
  22823. NVM_BASE_ADDRESS = $BF80F400;
  22824. var
  22825. NVM : TNVMRegisters absolute NVM_BASE_ADDRESS;
  22826. const
  22827. OCMP1_BASE_ADDRESS = $BF803000;
  22828. var
  22829. OCMP1 : TOCMP1Registers absolute OCMP1_BASE_ADDRESS;
  22830. const
  22831. OCMP2_BASE_ADDRESS = $BF803200;
  22832. var
  22833. OCMP2 : TOCMP2Registers absolute OCMP2_BASE_ADDRESS;
  22834. const
  22835. OCMP3_BASE_ADDRESS = $BF803400;
  22836. var
  22837. OCMP3 : TOCMP3Registers absolute OCMP3_BASE_ADDRESS;
  22838. const
  22839. OCMP4_BASE_ADDRESS = $BF803600;
  22840. var
  22841. OCMP4 : TOCMP4Registers absolute OCMP4_BASE_ADDRESS;
  22842. const
  22843. OCMP5_BASE_ADDRESS = $BF803800;
  22844. var
  22845. OCMP5 : TOCMP5Registers absolute OCMP5_BASE_ADDRESS;
  22846. const
  22847. OSC_BASE_ADDRESS = $BF80F000;
  22848. var
  22849. OSC : TOSCRegisters absolute OSC_BASE_ADDRESS;
  22850. const
  22851. PCACHE_BASE_ADDRESS = $BF884000;
  22852. var
  22853. PCACHE : TPCACHERegisters absolute PCACHE_BASE_ADDRESS;
  22854. const
  22855. PMP_BASE_ADDRESS = $BF807000;
  22856. var
  22857. PMP : TPMPRegisters absolute PMP_BASE_ADDRESS;
  22858. const
  22859. PORTA_BASE_ADDRESS = $BF886000;
  22860. var
  22861. PORTA : TPORTARegisters absolute PORTA_BASE_ADDRESS;
  22862. const
  22863. PORTB_BASE_ADDRESS = $BF886040;
  22864. var
  22865. PORTB : TPORTBRegisters absolute PORTB_BASE_ADDRESS;
  22866. const
  22867. PORTC_BASE_ADDRESS = $BF886080;
  22868. var
  22869. PORTC : TPORTCRegisters absolute PORTC_BASE_ADDRESS;
  22870. const
  22871. PORTD_BASE_ADDRESS = $BF8860C0;
  22872. var
  22873. PORTD : TPORTDRegisters absolute PORTD_BASE_ADDRESS;
  22874. const
  22875. PORTE_BASE_ADDRESS = $BF886100;
  22876. var
  22877. PORTE : TPORTERegisters absolute PORTE_BASE_ADDRESS;
  22878. const
  22879. PORTF_BASE_ADDRESS = $BF886140;
  22880. var
  22881. PORTF : TPORTFRegisters absolute PORTF_BASE_ADDRESS;
  22882. const
  22883. PORTG_BASE_ADDRESS = $BF886180;
  22884. var
  22885. PORTG : TPORTGRegisters absolute PORTG_BASE_ADDRESS;
  22886. const
  22887. RCON_BASE_ADDRESS = $BF80F600;
  22888. var
  22889. RCON : TRCONRegisters absolute RCON_BASE_ADDRESS;
  22890. const
  22891. RTCC_BASE_ADDRESS = $BF800200;
  22892. var
  22893. RTCC : TRTCCRegisters absolute RTCC_BASE_ADDRESS;
  22894. const
  22895. SPI1_BASE_ADDRESS = $BF805E00;
  22896. var
  22897. SPI1 : TSPI1Registers absolute SPI1_BASE_ADDRESS;
  22898. const
  22899. SPI2A_BASE_ADDRESS = $BF805A00;
  22900. var
  22901. SPI2A : TSPI2ARegisters absolute SPI2A_BASE_ADDRESS;
  22902. const
  22903. SPI3_BASE_ADDRESS = $BF805800;
  22904. var
  22905. SPI3 : TSPI3Registers absolute SPI3_BASE_ADDRESS;
  22906. const
  22907. SPI3A_BASE_ADDRESS = $BF805C00;
  22908. var
  22909. SPI3A : TSPI3ARegisters absolute SPI3A_BASE_ADDRESS;
  22910. const
  22911. TMR1_BASE_ADDRESS = $BF800600;
  22912. var
  22913. TMR1 : TTMR1Registers absolute TMR1_BASE_ADDRESS;
  22914. const
  22915. TMR2_BASE_ADDRESS = $BF800800;
  22916. var
  22917. TMR2 : TTMR2Registers absolute TMR2_BASE_ADDRESS;
  22918. const
  22919. TMR3_BASE_ADDRESS = $BF800A00;
  22920. var
  22921. TMR3 : TTMR3Registers absolute TMR3_BASE_ADDRESS;
  22922. const
  22923. TMR4_BASE_ADDRESS = $BF800C00;
  22924. var
  22925. TMR4 : TTMR4Registers absolute TMR4_BASE_ADDRESS;
  22926. const
  22927. TMR5_BASE_ADDRESS = $BF800E00;
  22928. var
  22929. TMR5 : TTMR5Registers absolute TMR5_BASE_ADDRESS;
  22930. const
  22931. UART1A_BASE_ADDRESS = $BF806000;
  22932. var
  22933. UART1A : TUART1ARegisters absolute UART1A_BASE_ADDRESS;
  22934. const
  22935. UART1B_BASE_ADDRESS = $BF806200;
  22936. var
  22937. UART1B : TUART1BRegisters absolute UART1B_BASE_ADDRESS;
  22938. const
  22939. UART2A_BASE_ADDRESS = $BF806400;
  22940. var
  22941. UART2A : TUART2ARegisters absolute UART2A_BASE_ADDRESS;
  22942. const
  22943. UART2B_BASE_ADDRESS = $BF806600;
  22944. var
  22945. UART2B : TUART2BRegisters absolute UART2B_BASE_ADDRESS;
  22946. const
  22947. UART3A_BASE_ADDRESS = $BF806800;
  22948. var
  22949. UART3A : TUART3ARegisters absolute UART3A_BASE_ADDRESS;
  22950. const
  22951. UART5_BASE_ADDRESS = $BF806A00;
  22952. var
  22953. UART5 : TUART5Registers absolute UART5_BASE_ADDRESS;
  22954. const
  22955. USB_BASE_ADDRESS = $BF885040;
  22956. var
  22957. USB : TUSBRegisters absolute USB_BASE_ADDRESS;
  22958. const
  22959. WDT_BASE_ADDRESS = $BF800000;
  22960. var
  22961. WDT : TWDTRegisters absolute WDT_BASE_ADDRESS;
  22962. const
  22963. _APPI_BASE_ADDRESS = $BF880190;
  22964. var
  22965. _APPI : T_APPIRegisters absolute _APPI_BASE_ADDRESS;
  22966. const
  22967. _APPO_BASE_ADDRESS = $BF880180;
  22968. var
  22969. _APPO : T_APPORegisters absolute _APPO_BASE_ADDRESS;
  22970. const
  22971. _DDPSTAT_BASE_ADDRESS = $BF880140;
  22972. var
  22973. _DDPSTAT : T_DDPSTATRegisters absolute _DDPSTAT_BASE_ADDRESS;
  22974. const
  22975. _STRO_BASE_ADDRESS = $BF880170;
  22976. var
  22977. _STRO : T_STRORegisters absolute _STRO_BASE_ADDRESS;
  22978. implementation
  22979. type
  22980. TDefRegMap = record
  22981. val : longWord;
  22982. clr : longWord;
  22983. &set : longWord;
  22984. inv : longWord;
  22985. end;
  22986. pTDefRegMap = ^TDefRegMap;
  22987. procedure TWDT_WDTCON.setWDTCLR; inline;
  22988. begin
  22989. pTDefRegMap(@Self)^.&set := $00000001;
  22990. end;
  22991. procedure TWDT_WDTCON.clearWDTCLR; inline;
  22992. begin
  22993. pTDefRegMap(@Self)^.clr := $00000001;
  22994. end;
  22995. procedure TWDT_WDTCON.setWDTCLR(thebits : TBits_1); inline;
  22996. begin
  22997. if thebits = 0 then
  22998. pTDefRegMap(@Self)^.clr := $00000001
  22999. else
  23000. pTDefRegMap(@Self)^.&set := $00000001;
  23001. end;
  23002. function TWDT_WDTCON.getWDTCLR : TBits_1; inline;
  23003. begin
  23004. getWDTCLR := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  23005. end;
  23006. procedure TWDT_WDTCON.setSWDTPS(thebits : TBits_5); inline;
  23007. begin
  23008. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF83 or ( thebits shl 2 );
  23009. end;
  23010. function TWDT_WDTCON.getSWDTPS : TBits_5; inline;
  23011. begin
  23012. getSWDTPS := (pTDefRegMap(@Self)^.val and $0000007C) shr 2;
  23013. end;
  23014. procedure TWDT_WDTCON.setON; inline;
  23015. begin
  23016. pTDefRegMap(@Self)^.&set := $00008000;
  23017. end;
  23018. procedure TWDT_WDTCON.clearON; inline;
  23019. begin
  23020. pTDefRegMap(@Self)^.clr := $00008000;
  23021. end;
  23022. procedure TWDT_WDTCON.setON(thebits : TBits_1); inline;
  23023. begin
  23024. if thebits = 0 then
  23025. pTDefRegMap(@Self)^.clr := $00008000
  23026. else
  23027. pTDefRegMap(@Self)^.&set := $00008000;
  23028. end;
  23029. function TWDT_WDTCON.getON : TBits_1; inline;
  23030. begin
  23031. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  23032. end;
  23033. procedure TWDT_WDTCON.setSWDTPS0; inline;
  23034. begin
  23035. pTDefRegMap(@Self)^.&set := $00000004;
  23036. end;
  23037. procedure TWDT_WDTCON.clearSWDTPS0; inline;
  23038. begin
  23039. pTDefRegMap(@Self)^.clr := $00000004;
  23040. end;
  23041. procedure TWDT_WDTCON.setSWDTPS0(thebits : TBits_1); inline;
  23042. begin
  23043. if thebits = 0 then
  23044. pTDefRegMap(@Self)^.clr := $00000004
  23045. else
  23046. pTDefRegMap(@Self)^.&set := $00000004;
  23047. end;
  23048. function TWDT_WDTCON.getSWDTPS0 : TBits_1; inline;
  23049. begin
  23050. getSWDTPS0 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  23051. end;
  23052. procedure TWDT_WDTCON.setSWDTPS1; inline;
  23053. begin
  23054. pTDefRegMap(@Self)^.&set := $00000008;
  23055. end;
  23056. procedure TWDT_WDTCON.clearSWDTPS1; inline;
  23057. begin
  23058. pTDefRegMap(@Self)^.clr := $00000008;
  23059. end;
  23060. procedure TWDT_WDTCON.setSWDTPS1(thebits : TBits_1); inline;
  23061. begin
  23062. if thebits = 0 then
  23063. pTDefRegMap(@Self)^.clr := $00000008
  23064. else
  23065. pTDefRegMap(@Self)^.&set := $00000008;
  23066. end;
  23067. function TWDT_WDTCON.getSWDTPS1 : TBits_1; inline;
  23068. begin
  23069. getSWDTPS1 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  23070. end;
  23071. procedure TWDT_WDTCON.setSWDTPS2; inline;
  23072. begin
  23073. pTDefRegMap(@Self)^.&set := $00000010;
  23074. end;
  23075. procedure TWDT_WDTCON.clearSWDTPS2; inline;
  23076. begin
  23077. pTDefRegMap(@Self)^.clr := $00000010;
  23078. end;
  23079. procedure TWDT_WDTCON.setSWDTPS2(thebits : TBits_1); inline;
  23080. begin
  23081. if thebits = 0 then
  23082. pTDefRegMap(@Self)^.clr := $00000010
  23083. else
  23084. pTDefRegMap(@Self)^.&set := $00000010;
  23085. end;
  23086. function TWDT_WDTCON.getSWDTPS2 : TBits_1; inline;
  23087. begin
  23088. getSWDTPS2 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  23089. end;
  23090. procedure TWDT_WDTCON.setSWDTPS3; inline;
  23091. begin
  23092. pTDefRegMap(@Self)^.&set := $00000020;
  23093. end;
  23094. procedure TWDT_WDTCON.clearSWDTPS3; inline;
  23095. begin
  23096. pTDefRegMap(@Self)^.clr := $00000020;
  23097. end;
  23098. procedure TWDT_WDTCON.setSWDTPS3(thebits : TBits_1); inline;
  23099. begin
  23100. if thebits = 0 then
  23101. pTDefRegMap(@Self)^.clr := $00000020
  23102. else
  23103. pTDefRegMap(@Self)^.&set := $00000020;
  23104. end;
  23105. function TWDT_WDTCON.getSWDTPS3 : TBits_1; inline;
  23106. begin
  23107. getSWDTPS3 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  23108. end;
  23109. procedure TWDT_WDTCON.setSWDTPS4; inline;
  23110. begin
  23111. pTDefRegMap(@Self)^.&set := $00000040;
  23112. end;
  23113. procedure TWDT_WDTCON.clearSWDTPS4; inline;
  23114. begin
  23115. pTDefRegMap(@Self)^.clr := $00000040;
  23116. end;
  23117. procedure TWDT_WDTCON.setSWDTPS4(thebits : TBits_1); inline;
  23118. begin
  23119. if thebits = 0 then
  23120. pTDefRegMap(@Self)^.clr := $00000040
  23121. else
  23122. pTDefRegMap(@Self)^.&set := $00000040;
  23123. end;
  23124. function TWDT_WDTCON.getSWDTPS4 : TBits_1; inline;
  23125. begin
  23126. getSWDTPS4 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  23127. end;
  23128. procedure TWDT_WDTCON.setWDTPSTA(thebits : TBits_5); inline;
  23129. begin
  23130. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF83 or ( thebits shl 2 );
  23131. end;
  23132. function TWDT_WDTCON.getWDTPSTA : TBits_5; inline;
  23133. begin
  23134. getWDTPSTA := (pTDefRegMap(@Self)^.val and $0000007C) shr 2;
  23135. end;
  23136. procedure TWDT_WDTCON.setWDTPS(thebits : TBits_5); inline;
  23137. begin
  23138. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF83 or ( thebits shl 2 );
  23139. end;
  23140. function TWDT_WDTCON.getWDTPS : TBits_5; inline;
  23141. begin
  23142. getWDTPS := (pTDefRegMap(@Self)^.val and $0000007C) shr 2;
  23143. end;
  23144. procedure TWDT_WDTCON.setw(thebits : TBits_32); inline;
  23145. begin
  23146. pTDefRegMap(@Self)^.val := thebits;
  23147. end;
  23148. function TWDT_WDTCON.getw : TBits_32; inline;
  23149. begin
  23150. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  23151. end;
  23152. procedure TRTCC_RTCCON.setRTCOE; inline;
  23153. begin
  23154. pTDefRegMap(@Self)^.&set := $00000001;
  23155. end;
  23156. procedure TRTCC_RTCCON.clearRTCOE; inline;
  23157. begin
  23158. pTDefRegMap(@Self)^.clr := $00000001;
  23159. end;
  23160. procedure TRTCC_RTCCON.setRTCOE(thebits : TBits_1); inline;
  23161. begin
  23162. if thebits = 0 then
  23163. pTDefRegMap(@Self)^.clr := $00000001
  23164. else
  23165. pTDefRegMap(@Self)^.&set := $00000001;
  23166. end;
  23167. function TRTCC_RTCCON.getRTCOE : TBits_1; inline;
  23168. begin
  23169. getRTCOE := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  23170. end;
  23171. procedure TRTCC_RTCCON.setHALFSEC; inline;
  23172. begin
  23173. pTDefRegMap(@Self)^.&set := $00000002;
  23174. end;
  23175. procedure TRTCC_RTCCON.clearHALFSEC; inline;
  23176. begin
  23177. pTDefRegMap(@Self)^.clr := $00000002;
  23178. end;
  23179. procedure TRTCC_RTCCON.setHALFSEC(thebits : TBits_1); inline;
  23180. begin
  23181. if thebits = 0 then
  23182. pTDefRegMap(@Self)^.clr := $00000002
  23183. else
  23184. pTDefRegMap(@Self)^.&set := $00000002;
  23185. end;
  23186. function TRTCC_RTCCON.getHALFSEC : TBits_1; inline;
  23187. begin
  23188. getHALFSEC := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  23189. end;
  23190. procedure TRTCC_RTCCON.setRTCSYNC; inline;
  23191. begin
  23192. pTDefRegMap(@Self)^.&set := $00000004;
  23193. end;
  23194. procedure TRTCC_RTCCON.clearRTCSYNC; inline;
  23195. begin
  23196. pTDefRegMap(@Self)^.clr := $00000004;
  23197. end;
  23198. procedure TRTCC_RTCCON.setRTCSYNC(thebits : TBits_1); inline;
  23199. begin
  23200. if thebits = 0 then
  23201. pTDefRegMap(@Self)^.clr := $00000004
  23202. else
  23203. pTDefRegMap(@Self)^.&set := $00000004;
  23204. end;
  23205. function TRTCC_RTCCON.getRTCSYNC : TBits_1; inline;
  23206. begin
  23207. getRTCSYNC := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  23208. end;
  23209. procedure TRTCC_RTCCON.setRTCWREN; inline;
  23210. begin
  23211. pTDefRegMap(@Self)^.&set := $00000008;
  23212. end;
  23213. procedure TRTCC_RTCCON.clearRTCWREN; inline;
  23214. begin
  23215. pTDefRegMap(@Self)^.clr := $00000008;
  23216. end;
  23217. procedure TRTCC_RTCCON.setRTCWREN(thebits : TBits_1); inline;
  23218. begin
  23219. if thebits = 0 then
  23220. pTDefRegMap(@Self)^.clr := $00000008
  23221. else
  23222. pTDefRegMap(@Self)^.&set := $00000008;
  23223. end;
  23224. function TRTCC_RTCCON.getRTCWREN : TBits_1; inline;
  23225. begin
  23226. getRTCWREN := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  23227. end;
  23228. procedure TRTCC_RTCCON.setRTCCLKON; inline;
  23229. begin
  23230. pTDefRegMap(@Self)^.&set := $00000040;
  23231. end;
  23232. procedure TRTCC_RTCCON.clearRTCCLKON; inline;
  23233. begin
  23234. pTDefRegMap(@Self)^.clr := $00000040;
  23235. end;
  23236. procedure TRTCC_RTCCON.setRTCCLKON(thebits : TBits_1); inline;
  23237. begin
  23238. if thebits = 0 then
  23239. pTDefRegMap(@Self)^.clr := $00000040
  23240. else
  23241. pTDefRegMap(@Self)^.&set := $00000040;
  23242. end;
  23243. function TRTCC_RTCCON.getRTCCLKON : TBits_1; inline;
  23244. begin
  23245. getRTCCLKON := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  23246. end;
  23247. procedure TRTCC_RTCCON.setRTSECSEL; inline;
  23248. begin
  23249. pTDefRegMap(@Self)^.&set := $00000080;
  23250. end;
  23251. procedure TRTCC_RTCCON.clearRTSECSEL; inline;
  23252. begin
  23253. pTDefRegMap(@Self)^.clr := $00000080;
  23254. end;
  23255. procedure TRTCC_RTCCON.setRTSECSEL(thebits : TBits_1); inline;
  23256. begin
  23257. if thebits = 0 then
  23258. pTDefRegMap(@Self)^.clr := $00000080
  23259. else
  23260. pTDefRegMap(@Self)^.&set := $00000080;
  23261. end;
  23262. function TRTCC_RTCCON.getRTSECSEL : TBits_1; inline;
  23263. begin
  23264. getRTSECSEL := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  23265. end;
  23266. procedure TRTCC_RTCCON.setSIDL; inline;
  23267. begin
  23268. pTDefRegMap(@Self)^.&set := $00002000;
  23269. end;
  23270. procedure TRTCC_RTCCON.clearSIDL; inline;
  23271. begin
  23272. pTDefRegMap(@Self)^.clr := $00002000;
  23273. end;
  23274. procedure TRTCC_RTCCON.setSIDL(thebits : TBits_1); inline;
  23275. begin
  23276. if thebits = 0 then
  23277. pTDefRegMap(@Self)^.clr := $00002000
  23278. else
  23279. pTDefRegMap(@Self)^.&set := $00002000;
  23280. end;
  23281. function TRTCC_RTCCON.getSIDL : TBits_1; inline;
  23282. begin
  23283. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  23284. end;
  23285. procedure TRTCC_RTCCON.setON; inline;
  23286. begin
  23287. pTDefRegMap(@Self)^.&set := $00008000;
  23288. end;
  23289. procedure TRTCC_RTCCON.clearON; inline;
  23290. begin
  23291. pTDefRegMap(@Self)^.clr := $00008000;
  23292. end;
  23293. procedure TRTCC_RTCCON.setON(thebits : TBits_1); inline;
  23294. begin
  23295. if thebits = 0 then
  23296. pTDefRegMap(@Self)^.clr := $00008000
  23297. else
  23298. pTDefRegMap(@Self)^.&set := $00008000;
  23299. end;
  23300. function TRTCC_RTCCON.getON : TBits_1; inline;
  23301. begin
  23302. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  23303. end;
  23304. procedure TRTCC_RTCCON.setCAL(thebits : TBits_10); inline;
  23305. begin
  23306. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FC00FFFF or ( thebits shl 16 );
  23307. end;
  23308. function TRTCC_RTCCON.getCAL : TBits_10; inline;
  23309. begin
  23310. getCAL := (pTDefRegMap(@Self)^.val and $03FF0000) shr 16;
  23311. end;
  23312. procedure TRTCC_RTCCON.setw(thebits : TBits_32); inline;
  23313. begin
  23314. pTDefRegMap(@Self)^.val := thebits;
  23315. end;
  23316. function TRTCC_RTCCON.getw : TBits_32; inline;
  23317. begin
  23318. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  23319. end;
  23320. procedure TRTCC_RTCALRM.setARPT(thebits : TBits_8); inline;
  23321. begin
  23322. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF00 or ( thebits shl 0 );
  23323. end;
  23324. function TRTCC_RTCALRM.getARPT : TBits_8; inline;
  23325. begin
  23326. getARPT := (pTDefRegMap(@Self)^.val and $000000FF) shr 0;
  23327. end;
  23328. procedure TRTCC_RTCALRM.setAMASK(thebits : TBits_4); inline;
  23329. begin
  23330. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFF0FF or ( thebits shl 8 );
  23331. end;
  23332. function TRTCC_RTCALRM.getAMASK : TBits_4; inline;
  23333. begin
  23334. getAMASK := (pTDefRegMap(@Self)^.val and $00000F00) shr 8;
  23335. end;
  23336. procedure TRTCC_RTCALRM.setALRMSYNC; inline;
  23337. begin
  23338. pTDefRegMap(@Self)^.&set := $00001000;
  23339. end;
  23340. procedure TRTCC_RTCALRM.clearALRMSYNC; inline;
  23341. begin
  23342. pTDefRegMap(@Self)^.clr := $00001000;
  23343. end;
  23344. procedure TRTCC_RTCALRM.setALRMSYNC(thebits : TBits_1); inline;
  23345. begin
  23346. if thebits = 0 then
  23347. pTDefRegMap(@Self)^.clr := $00001000
  23348. else
  23349. pTDefRegMap(@Self)^.&set := $00001000;
  23350. end;
  23351. function TRTCC_RTCALRM.getALRMSYNC : TBits_1; inline;
  23352. begin
  23353. getALRMSYNC := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  23354. end;
  23355. procedure TRTCC_RTCALRM.setPIV; inline;
  23356. begin
  23357. pTDefRegMap(@Self)^.&set := $00002000;
  23358. end;
  23359. procedure TRTCC_RTCALRM.clearPIV; inline;
  23360. begin
  23361. pTDefRegMap(@Self)^.clr := $00002000;
  23362. end;
  23363. procedure TRTCC_RTCALRM.setPIV(thebits : TBits_1); inline;
  23364. begin
  23365. if thebits = 0 then
  23366. pTDefRegMap(@Self)^.clr := $00002000
  23367. else
  23368. pTDefRegMap(@Self)^.&set := $00002000;
  23369. end;
  23370. function TRTCC_RTCALRM.getPIV : TBits_1; inline;
  23371. begin
  23372. getPIV := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  23373. end;
  23374. procedure TRTCC_RTCALRM.setCHIME; inline;
  23375. begin
  23376. pTDefRegMap(@Self)^.&set := $00004000;
  23377. end;
  23378. procedure TRTCC_RTCALRM.clearCHIME; inline;
  23379. begin
  23380. pTDefRegMap(@Self)^.clr := $00004000;
  23381. end;
  23382. procedure TRTCC_RTCALRM.setCHIME(thebits : TBits_1); inline;
  23383. begin
  23384. if thebits = 0 then
  23385. pTDefRegMap(@Self)^.clr := $00004000
  23386. else
  23387. pTDefRegMap(@Self)^.&set := $00004000;
  23388. end;
  23389. function TRTCC_RTCALRM.getCHIME : TBits_1; inline;
  23390. begin
  23391. getCHIME := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  23392. end;
  23393. procedure TRTCC_RTCALRM.setALRMEN; inline;
  23394. begin
  23395. pTDefRegMap(@Self)^.&set := $00008000;
  23396. end;
  23397. procedure TRTCC_RTCALRM.clearALRMEN; inline;
  23398. begin
  23399. pTDefRegMap(@Self)^.clr := $00008000;
  23400. end;
  23401. procedure TRTCC_RTCALRM.setALRMEN(thebits : TBits_1); inline;
  23402. begin
  23403. if thebits = 0 then
  23404. pTDefRegMap(@Self)^.clr := $00008000
  23405. else
  23406. pTDefRegMap(@Self)^.&set := $00008000;
  23407. end;
  23408. function TRTCC_RTCALRM.getALRMEN : TBits_1; inline;
  23409. begin
  23410. getALRMEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  23411. end;
  23412. procedure TRTCC_RTCALRM.setw(thebits : TBits_32); inline;
  23413. begin
  23414. pTDefRegMap(@Self)^.val := thebits;
  23415. end;
  23416. function TRTCC_RTCALRM.getw : TBits_32; inline;
  23417. begin
  23418. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  23419. end;
  23420. procedure TRTCC_RTCTIME.setSEC01(thebits : TBits_4); inline;
  23421. begin
  23422. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFF0FF or ( thebits shl 8 );
  23423. end;
  23424. function TRTCC_RTCTIME.getSEC01 : TBits_4; inline;
  23425. begin
  23426. getSEC01 := (pTDefRegMap(@Self)^.val and $00000F00) shr 8;
  23427. end;
  23428. procedure TRTCC_RTCTIME.setSEC10(thebits : TBits_4); inline;
  23429. begin
  23430. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF0FFF or ( thebits shl 12 );
  23431. end;
  23432. function TRTCC_RTCTIME.getSEC10 : TBits_4; inline;
  23433. begin
  23434. getSEC10 := (pTDefRegMap(@Self)^.val and $0000F000) shr 12;
  23435. end;
  23436. procedure TRTCC_RTCTIME.setMIN01(thebits : TBits_4); inline;
  23437. begin
  23438. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFF0FFFF or ( thebits shl 16 );
  23439. end;
  23440. function TRTCC_RTCTIME.getMIN01 : TBits_4; inline;
  23441. begin
  23442. getMIN01 := (pTDefRegMap(@Self)^.val and $000F0000) shr 16;
  23443. end;
  23444. procedure TRTCC_RTCTIME.setMIN10(thebits : TBits_4); inline;
  23445. begin
  23446. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF0FFFFF or ( thebits shl 20 );
  23447. end;
  23448. function TRTCC_RTCTIME.getMIN10 : TBits_4; inline;
  23449. begin
  23450. getMIN10 := (pTDefRegMap(@Self)^.val and $00F00000) shr 20;
  23451. end;
  23452. procedure TRTCC_RTCTIME.setHR01(thebits : TBits_4); inline;
  23453. begin
  23454. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $F0FFFFFF or ( thebits shl 24 );
  23455. end;
  23456. function TRTCC_RTCTIME.getHR01 : TBits_4; inline;
  23457. begin
  23458. getHR01 := (pTDefRegMap(@Self)^.val and $0F000000) shr 24;
  23459. end;
  23460. procedure TRTCC_RTCTIME.setHR10(thebits : TBits_4); inline;
  23461. begin
  23462. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $0FFFFFFF or ( thebits shl 28 );
  23463. end;
  23464. function TRTCC_RTCTIME.getHR10 : TBits_4; inline;
  23465. begin
  23466. getHR10 := (pTDefRegMap(@Self)^.val and $F0000000) shr 28;
  23467. end;
  23468. procedure TRTCC_RTCTIME.setw(thebits : TBits_32); inline;
  23469. begin
  23470. pTDefRegMap(@Self)^.val := thebits;
  23471. end;
  23472. function TRTCC_RTCTIME.getw : TBits_32; inline;
  23473. begin
  23474. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  23475. end;
  23476. procedure TRTCC_RTCDATE.setWDAY01(thebits : TBits_4); inline;
  23477. begin
  23478. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF0 or ( thebits shl 0 );
  23479. end;
  23480. function TRTCC_RTCDATE.getWDAY01 : TBits_4; inline;
  23481. begin
  23482. getWDAY01 := (pTDefRegMap(@Self)^.val and $0000000F) shr 0;
  23483. end;
  23484. procedure TRTCC_RTCDATE.setDAY01(thebits : TBits_4); inline;
  23485. begin
  23486. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFF0FF or ( thebits shl 8 );
  23487. end;
  23488. function TRTCC_RTCDATE.getDAY01 : TBits_4; inline;
  23489. begin
  23490. getDAY01 := (pTDefRegMap(@Self)^.val and $00000F00) shr 8;
  23491. end;
  23492. procedure TRTCC_RTCDATE.setDAY10(thebits : TBits_4); inline;
  23493. begin
  23494. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF0FFF or ( thebits shl 12 );
  23495. end;
  23496. function TRTCC_RTCDATE.getDAY10 : TBits_4; inline;
  23497. begin
  23498. getDAY10 := (pTDefRegMap(@Self)^.val and $0000F000) shr 12;
  23499. end;
  23500. procedure TRTCC_RTCDATE.setMONTH01(thebits : TBits_4); inline;
  23501. begin
  23502. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFF0FFFF or ( thebits shl 16 );
  23503. end;
  23504. function TRTCC_RTCDATE.getMONTH01 : TBits_4; inline;
  23505. begin
  23506. getMONTH01 := (pTDefRegMap(@Self)^.val and $000F0000) shr 16;
  23507. end;
  23508. procedure TRTCC_RTCDATE.setMONTH10(thebits : TBits_4); inline;
  23509. begin
  23510. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF0FFFFF or ( thebits shl 20 );
  23511. end;
  23512. function TRTCC_RTCDATE.getMONTH10 : TBits_4; inline;
  23513. begin
  23514. getMONTH10 := (pTDefRegMap(@Self)^.val and $00F00000) shr 20;
  23515. end;
  23516. procedure TRTCC_RTCDATE.setYEAR01(thebits : TBits_4); inline;
  23517. begin
  23518. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $F0FFFFFF or ( thebits shl 24 );
  23519. end;
  23520. function TRTCC_RTCDATE.getYEAR01 : TBits_4; inline;
  23521. begin
  23522. getYEAR01 := (pTDefRegMap(@Self)^.val and $0F000000) shr 24;
  23523. end;
  23524. procedure TRTCC_RTCDATE.setYEAR10(thebits : TBits_4); inline;
  23525. begin
  23526. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $0FFFFFFF or ( thebits shl 28 );
  23527. end;
  23528. function TRTCC_RTCDATE.getYEAR10 : TBits_4; inline;
  23529. begin
  23530. getYEAR10 := (pTDefRegMap(@Self)^.val and $F0000000) shr 28;
  23531. end;
  23532. procedure TRTCC_RTCDATE.setw(thebits : TBits_32); inline;
  23533. begin
  23534. pTDefRegMap(@Self)^.val := thebits;
  23535. end;
  23536. function TRTCC_RTCDATE.getw : TBits_32; inline;
  23537. begin
  23538. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  23539. end;
  23540. procedure TRTCC_ALRMTIME.setSEC01(thebits : TBits_4); inline;
  23541. begin
  23542. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFF0FF or ( thebits shl 8 );
  23543. end;
  23544. function TRTCC_ALRMTIME.getSEC01 : TBits_4; inline;
  23545. begin
  23546. getSEC01 := (pTDefRegMap(@Self)^.val and $00000F00) shr 8;
  23547. end;
  23548. procedure TRTCC_ALRMTIME.setSEC10(thebits : TBits_4); inline;
  23549. begin
  23550. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF0FFF or ( thebits shl 12 );
  23551. end;
  23552. function TRTCC_ALRMTIME.getSEC10 : TBits_4; inline;
  23553. begin
  23554. getSEC10 := (pTDefRegMap(@Self)^.val and $0000F000) shr 12;
  23555. end;
  23556. procedure TRTCC_ALRMTIME.setMIN01(thebits : TBits_4); inline;
  23557. begin
  23558. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFF0FFFF or ( thebits shl 16 );
  23559. end;
  23560. function TRTCC_ALRMTIME.getMIN01 : TBits_4; inline;
  23561. begin
  23562. getMIN01 := (pTDefRegMap(@Self)^.val and $000F0000) shr 16;
  23563. end;
  23564. procedure TRTCC_ALRMTIME.setMIN10(thebits : TBits_4); inline;
  23565. begin
  23566. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF0FFFFF or ( thebits shl 20 );
  23567. end;
  23568. function TRTCC_ALRMTIME.getMIN10 : TBits_4; inline;
  23569. begin
  23570. getMIN10 := (pTDefRegMap(@Self)^.val and $00F00000) shr 20;
  23571. end;
  23572. procedure TRTCC_ALRMTIME.setHR01(thebits : TBits_4); inline;
  23573. begin
  23574. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $F0FFFFFF or ( thebits shl 24 );
  23575. end;
  23576. function TRTCC_ALRMTIME.getHR01 : TBits_4; inline;
  23577. begin
  23578. getHR01 := (pTDefRegMap(@Self)^.val and $0F000000) shr 24;
  23579. end;
  23580. procedure TRTCC_ALRMTIME.setHR10(thebits : TBits_4); inline;
  23581. begin
  23582. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $0FFFFFFF or ( thebits shl 28 );
  23583. end;
  23584. function TRTCC_ALRMTIME.getHR10 : TBits_4; inline;
  23585. begin
  23586. getHR10 := (pTDefRegMap(@Self)^.val and $F0000000) shr 28;
  23587. end;
  23588. procedure TRTCC_ALRMTIME.setw(thebits : TBits_32); inline;
  23589. begin
  23590. pTDefRegMap(@Self)^.val := thebits;
  23591. end;
  23592. function TRTCC_ALRMTIME.getw : TBits_32; inline;
  23593. begin
  23594. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  23595. end;
  23596. procedure TRTCC_ALRMDATE.setWDAY01(thebits : TBits_4); inline;
  23597. begin
  23598. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF0 or ( thebits shl 0 );
  23599. end;
  23600. function TRTCC_ALRMDATE.getWDAY01 : TBits_4; inline;
  23601. begin
  23602. getWDAY01 := (pTDefRegMap(@Self)^.val and $0000000F) shr 0;
  23603. end;
  23604. procedure TRTCC_ALRMDATE.setDAY01(thebits : TBits_4); inline;
  23605. begin
  23606. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFF0FF or ( thebits shl 8 );
  23607. end;
  23608. function TRTCC_ALRMDATE.getDAY01 : TBits_4; inline;
  23609. begin
  23610. getDAY01 := (pTDefRegMap(@Self)^.val and $00000F00) shr 8;
  23611. end;
  23612. procedure TRTCC_ALRMDATE.setDAY10(thebits : TBits_4); inline;
  23613. begin
  23614. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF0FFF or ( thebits shl 12 );
  23615. end;
  23616. function TRTCC_ALRMDATE.getDAY10 : TBits_4; inline;
  23617. begin
  23618. getDAY10 := (pTDefRegMap(@Self)^.val and $0000F000) shr 12;
  23619. end;
  23620. procedure TRTCC_ALRMDATE.setMONTH01(thebits : TBits_4); inline;
  23621. begin
  23622. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFF0FFFF or ( thebits shl 16 );
  23623. end;
  23624. function TRTCC_ALRMDATE.getMONTH01 : TBits_4; inline;
  23625. begin
  23626. getMONTH01 := (pTDefRegMap(@Self)^.val and $000F0000) shr 16;
  23627. end;
  23628. procedure TRTCC_ALRMDATE.setMONTH10(thebits : TBits_4); inline;
  23629. begin
  23630. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF0FFFFF or ( thebits shl 20 );
  23631. end;
  23632. function TRTCC_ALRMDATE.getMONTH10 : TBits_4; inline;
  23633. begin
  23634. getMONTH10 := (pTDefRegMap(@Self)^.val and $00F00000) shr 20;
  23635. end;
  23636. procedure TRTCC_ALRMDATE.setw(thebits : TBits_32); inline;
  23637. begin
  23638. pTDefRegMap(@Self)^.val := thebits;
  23639. end;
  23640. function TRTCC_ALRMDATE.getw : TBits_32; inline;
  23641. begin
  23642. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  23643. end;
  23644. procedure TTMR1_T1CON.setTCS; inline;
  23645. begin
  23646. pTDefRegMap(@Self)^.&set := $00000002;
  23647. end;
  23648. procedure TTMR1_T1CON.clearTCS; inline;
  23649. begin
  23650. pTDefRegMap(@Self)^.clr := $00000002;
  23651. end;
  23652. procedure TTMR1_T1CON.setTCS(thebits : TBits_1); inline;
  23653. begin
  23654. if thebits = 0 then
  23655. pTDefRegMap(@Self)^.clr := $00000002
  23656. else
  23657. pTDefRegMap(@Self)^.&set := $00000002;
  23658. end;
  23659. function TTMR1_T1CON.getTCS : TBits_1; inline;
  23660. begin
  23661. getTCS := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  23662. end;
  23663. procedure TTMR1_T1CON.setTSYNC; inline;
  23664. begin
  23665. pTDefRegMap(@Self)^.&set := $00000004;
  23666. end;
  23667. procedure TTMR1_T1CON.clearTSYNC; inline;
  23668. begin
  23669. pTDefRegMap(@Self)^.clr := $00000004;
  23670. end;
  23671. procedure TTMR1_T1CON.setTSYNC(thebits : TBits_1); inline;
  23672. begin
  23673. if thebits = 0 then
  23674. pTDefRegMap(@Self)^.clr := $00000004
  23675. else
  23676. pTDefRegMap(@Self)^.&set := $00000004;
  23677. end;
  23678. function TTMR1_T1CON.getTSYNC : TBits_1; inline;
  23679. begin
  23680. getTSYNC := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  23681. end;
  23682. procedure TTMR1_T1CON.setTCKPS(thebits : TBits_2); inline;
  23683. begin
  23684. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFCF or ( thebits shl 4 );
  23685. end;
  23686. function TTMR1_T1CON.getTCKPS : TBits_2; inline;
  23687. begin
  23688. getTCKPS := (pTDefRegMap(@Self)^.val and $00000030) shr 4;
  23689. end;
  23690. procedure TTMR1_T1CON.setTGATE; inline;
  23691. begin
  23692. pTDefRegMap(@Self)^.&set := $00000080;
  23693. end;
  23694. procedure TTMR1_T1CON.clearTGATE; inline;
  23695. begin
  23696. pTDefRegMap(@Self)^.clr := $00000080;
  23697. end;
  23698. procedure TTMR1_T1CON.setTGATE(thebits : TBits_1); inline;
  23699. begin
  23700. if thebits = 0 then
  23701. pTDefRegMap(@Self)^.clr := $00000080
  23702. else
  23703. pTDefRegMap(@Self)^.&set := $00000080;
  23704. end;
  23705. function TTMR1_T1CON.getTGATE : TBits_1; inline;
  23706. begin
  23707. getTGATE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  23708. end;
  23709. procedure TTMR1_T1CON.setTWIP; inline;
  23710. begin
  23711. pTDefRegMap(@Self)^.&set := $00000800;
  23712. end;
  23713. procedure TTMR1_T1CON.clearTWIP; inline;
  23714. begin
  23715. pTDefRegMap(@Self)^.clr := $00000800;
  23716. end;
  23717. procedure TTMR1_T1CON.setTWIP(thebits : TBits_1); inline;
  23718. begin
  23719. if thebits = 0 then
  23720. pTDefRegMap(@Self)^.clr := $00000800
  23721. else
  23722. pTDefRegMap(@Self)^.&set := $00000800;
  23723. end;
  23724. function TTMR1_T1CON.getTWIP : TBits_1; inline;
  23725. begin
  23726. getTWIP := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  23727. end;
  23728. procedure TTMR1_T1CON.setTWDIS; inline;
  23729. begin
  23730. pTDefRegMap(@Self)^.&set := $00001000;
  23731. end;
  23732. procedure TTMR1_T1CON.clearTWDIS; inline;
  23733. begin
  23734. pTDefRegMap(@Self)^.clr := $00001000;
  23735. end;
  23736. procedure TTMR1_T1CON.setTWDIS(thebits : TBits_1); inline;
  23737. begin
  23738. if thebits = 0 then
  23739. pTDefRegMap(@Self)^.clr := $00001000
  23740. else
  23741. pTDefRegMap(@Self)^.&set := $00001000;
  23742. end;
  23743. function TTMR1_T1CON.getTWDIS : TBits_1; inline;
  23744. begin
  23745. getTWDIS := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  23746. end;
  23747. procedure TTMR1_T1CON.setSIDL; inline;
  23748. begin
  23749. pTDefRegMap(@Self)^.&set := $00002000;
  23750. end;
  23751. procedure TTMR1_T1CON.clearSIDL; inline;
  23752. begin
  23753. pTDefRegMap(@Self)^.clr := $00002000;
  23754. end;
  23755. procedure TTMR1_T1CON.setSIDL(thebits : TBits_1); inline;
  23756. begin
  23757. if thebits = 0 then
  23758. pTDefRegMap(@Self)^.clr := $00002000
  23759. else
  23760. pTDefRegMap(@Self)^.&set := $00002000;
  23761. end;
  23762. function TTMR1_T1CON.getSIDL : TBits_1; inline;
  23763. begin
  23764. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  23765. end;
  23766. procedure TTMR1_T1CON.setON; inline;
  23767. begin
  23768. pTDefRegMap(@Self)^.&set := $00008000;
  23769. end;
  23770. procedure TTMR1_T1CON.clearON; inline;
  23771. begin
  23772. pTDefRegMap(@Self)^.clr := $00008000;
  23773. end;
  23774. procedure TTMR1_T1CON.setON(thebits : TBits_1); inline;
  23775. begin
  23776. if thebits = 0 then
  23777. pTDefRegMap(@Self)^.clr := $00008000
  23778. else
  23779. pTDefRegMap(@Self)^.&set := $00008000;
  23780. end;
  23781. function TTMR1_T1CON.getON : TBits_1; inline;
  23782. begin
  23783. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  23784. end;
  23785. procedure TTMR1_T1CON.setTCKPS0; inline;
  23786. begin
  23787. pTDefRegMap(@Self)^.&set := $00000010;
  23788. end;
  23789. procedure TTMR1_T1CON.clearTCKPS0; inline;
  23790. begin
  23791. pTDefRegMap(@Self)^.clr := $00000010;
  23792. end;
  23793. procedure TTMR1_T1CON.setTCKPS0(thebits : TBits_1); inline;
  23794. begin
  23795. if thebits = 0 then
  23796. pTDefRegMap(@Self)^.clr := $00000010
  23797. else
  23798. pTDefRegMap(@Self)^.&set := $00000010;
  23799. end;
  23800. function TTMR1_T1CON.getTCKPS0 : TBits_1; inline;
  23801. begin
  23802. getTCKPS0 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  23803. end;
  23804. procedure TTMR1_T1CON.setTCKPS1; inline;
  23805. begin
  23806. pTDefRegMap(@Self)^.&set := $00000020;
  23807. end;
  23808. procedure TTMR1_T1CON.clearTCKPS1; inline;
  23809. begin
  23810. pTDefRegMap(@Self)^.clr := $00000020;
  23811. end;
  23812. procedure TTMR1_T1CON.setTCKPS1(thebits : TBits_1); inline;
  23813. begin
  23814. if thebits = 0 then
  23815. pTDefRegMap(@Self)^.clr := $00000020
  23816. else
  23817. pTDefRegMap(@Self)^.&set := $00000020;
  23818. end;
  23819. function TTMR1_T1CON.getTCKPS1 : TBits_1; inline;
  23820. begin
  23821. getTCKPS1 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  23822. end;
  23823. procedure TTMR1_T1CON.setTSIDL; inline;
  23824. begin
  23825. pTDefRegMap(@Self)^.&set := $00002000;
  23826. end;
  23827. procedure TTMR1_T1CON.clearTSIDL; inline;
  23828. begin
  23829. pTDefRegMap(@Self)^.clr := $00002000;
  23830. end;
  23831. procedure TTMR1_T1CON.setTSIDL(thebits : TBits_1); inline;
  23832. begin
  23833. if thebits = 0 then
  23834. pTDefRegMap(@Self)^.clr := $00002000
  23835. else
  23836. pTDefRegMap(@Self)^.&set := $00002000;
  23837. end;
  23838. function TTMR1_T1CON.getTSIDL : TBits_1; inline;
  23839. begin
  23840. getTSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  23841. end;
  23842. procedure TTMR1_T1CON.setTON; inline;
  23843. begin
  23844. pTDefRegMap(@Self)^.&set := $00008000;
  23845. end;
  23846. procedure TTMR1_T1CON.clearTON; inline;
  23847. begin
  23848. pTDefRegMap(@Self)^.clr := $00008000;
  23849. end;
  23850. procedure TTMR1_T1CON.setTON(thebits : TBits_1); inline;
  23851. begin
  23852. if thebits = 0 then
  23853. pTDefRegMap(@Self)^.clr := $00008000
  23854. else
  23855. pTDefRegMap(@Self)^.&set := $00008000;
  23856. end;
  23857. function TTMR1_T1CON.getTON : TBits_1; inline;
  23858. begin
  23859. getTON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  23860. end;
  23861. procedure TTMR1_T1CON.setw(thebits : TBits_32); inline;
  23862. begin
  23863. pTDefRegMap(@Self)^.val := thebits;
  23864. end;
  23865. function TTMR1_T1CON.getw : TBits_32; inline;
  23866. begin
  23867. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  23868. end;
  23869. procedure TTMR2_T2CON.setTCS; inline;
  23870. begin
  23871. pTDefRegMap(@Self)^.&set := $00000002;
  23872. end;
  23873. procedure TTMR2_T2CON.clearTCS; inline;
  23874. begin
  23875. pTDefRegMap(@Self)^.clr := $00000002;
  23876. end;
  23877. procedure TTMR2_T2CON.setTCS(thebits : TBits_1); inline;
  23878. begin
  23879. if thebits = 0 then
  23880. pTDefRegMap(@Self)^.clr := $00000002
  23881. else
  23882. pTDefRegMap(@Self)^.&set := $00000002;
  23883. end;
  23884. function TTMR2_T2CON.getTCS : TBits_1; inline;
  23885. begin
  23886. getTCS := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  23887. end;
  23888. procedure TTMR2_T2CON.setT32; inline;
  23889. begin
  23890. pTDefRegMap(@Self)^.&set := $00000008;
  23891. end;
  23892. procedure TTMR2_T2CON.clearT32; inline;
  23893. begin
  23894. pTDefRegMap(@Self)^.clr := $00000008;
  23895. end;
  23896. procedure TTMR2_T2CON.setT32(thebits : TBits_1); inline;
  23897. begin
  23898. if thebits = 0 then
  23899. pTDefRegMap(@Self)^.clr := $00000008
  23900. else
  23901. pTDefRegMap(@Self)^.&set := $00000008;
  23902. end;
  23903. function TTMR2_T2CON.getT32 : TBits_1; inline;
  23904. begin
  23905. getT32 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  23906. end;
  23907. procedure TTMR2_T2CON.setTCKPS(thebits : TBits_3); inline;
  23908. begin
  23909. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF8F or ( thebits shl 4 );
  23910. end;
  23911. function TTMR2_T2CON.getTCKPS : TBits_3; inline;
  23912. begin
  23913. getTCKPS := (pTDefRegMap(@Self)^.val and $00000070) shr 4;
  23914. end;
  23915. procedure TTMR2_T2CON.setTGATE; inline;
  23916. begin
  23917. pTDefRegMap(@Self)^.&set := $00000080;
  23918. end;
  23919. procedure TTMR2_T2CON.clearTGATE; inline;
  23920. begin
  23921. pTDefRegMap(@Self)^.clr := $00000080;
  23922. end;
  23923. procedure TTMR2_T2CON.setTGATE(thebits : TBits_1); inline;
  23924. begin
  23925. if thebits = 0 then
  23926. pTDefRegMap(@Self)^.clr := $00000080
  23927. else
  23928. pTDefRegMap(@Self)^.&set := $00000080;
  23929. end;
  23930. function TTMR2_T2CON.getTGATE : TBits_1; inline;
  23931. begin
  23932. getTGATE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  23933. end;
  23934. procedure TTMR2_T2CON.setSIDL; inline;
  23935. begin
  23936. pTDefRegMap(@Self)^.&set := $00002000;
  23937. end;
  23938. procedure TTMR2_T2CON.clearSIDL; inline;
  23939. begin
  23940. pTDefRegMap(@Self)^.clr := $00002000;
  23941. end;
  23942. procedure TTMR2_T2CON.setSIDL(thebits : TBits_1); inline;
  23943. begin
  23944. if thebits = 0 then
  23945. pTDefRegMap(@Self)^.clr := $00002000
  23946. else
  23947. pTDefRegMap(@Self)^.&set := $00002000;
  23948. end;
  23949. function TTMR2_T2CON.getSIDL : TBits_1; inline;
  23950. begin
  23951. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  23952. end;
  23953. procedure TTMR2_T2CON.setON; inline;
  23954. begin
  23955. pTDefRegMap(@Self)^.&set := $00008000;
  23956. end;
  23957. procedure TTMR2_T2CON.clearON; inline;
  23958. begin
  23959. pTDefRegMap(@Self)^.clr := $00008000;
  23960. end;
  23961. procedure TTMR2_T2CON.setON(thebits : TBits_1); inline;
  23962. begin
  23963. if thebits = 0 then
  23964. pTDefRegMap(@Self)^.clr := $00008000
  23965. else
  23966. pTDefRegMap(@Self)^.&set := $00008000;
  23967. end;
  23968. function TTMR2_T2CON.getON : TBits_1; inline;
  23969. begin
  23970. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  23971. end;
  23972. procedure TTMR2_T2CON.setTCKPS0; inline;
  23973. begin
  23974. pTDefRegMap(@Self)^.&set := $00000010;
  23975. end;
  23976. procedure TTMR2_T2CON.clearTCKPS0; inline;
  23977. begin
  23978. pTDefRegMap(@Self)^.clr := $00000010;
  23979. end;
  23980. procedure TTMR2_T2CON.setTCKPS0(thebits : TBits_1); inline;
  23981. begin
  23982. if thebits = 0 then
  23983. pTDefRegMap(@Self)^.clr := $00000010
  23984. else
  23985. pTDefRegMap(@Self)^.&set := $00000010;
  23986. end;
  23987. function TTMR2_T2CON.getTCKPS0 : TBits_1; inline;
  23988. begin
  23989. getTCKPS0 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  23990. end;
  23991. procedure TTMR2_T2CON.setTCKPS1; inline;
  23992. begin
  23993. pTDefRegMap(@Self)^.&set := $00000020;
  23994. end;
  23995. procedure TTMR2_T2CON.clearTCKPS1; inline;
  23996. begin
  23997. pTDefRegMap(@Self)^.clr := $00000020;
  23998. end;
  23999. procedure TTMR2_T2CON.setTCKPS1(thebits : TBits_1); inline;
  24000. begin
  24001. if thebits = 0 then
  24002. pTDefRegMap(@Self)^.clr := $00000020
  24003. else
  24004. pTDefRegMap(@Self)^.&set := $00000020;
  24005. end;
  24006. function TTMR2_T2CON.getTCKPS1 : TBits_1; inline;
  24007. begin
  24008. getTCKPS1 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  24009. end;
  24010. procedure TTMR2_T2CON.setTCKPS2; inline;
  24011. begin
  24012. pTDefRegMap(@Self)^.&set := $00000040;
  24013. end;
  24014. procedure TTMR2_T2CON.clearTCKPS2; inline;
  24015. begin
  24016. pTDefRegMap(@Self)^.clr := $00000040;
  24017. end;
  24018. procedure TTMR2_T2CON.setTCKPS2(thebits : TBits_1); inline;
  24019. begin
  24020. if thebits = 0 then
  24021. pTDefRegMap(@Self)^.clr := $00000040
  24022. else
  24023. pTDefRegMap(@Self)^.&set := $00000040;
  24024. end;
  24025. function TTMR2_T2CON.getTCKPS2 : TBits_1; inline;
  24026. begin
  24027. getTCKPS2 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  24028. end;
  24029. procedure TTMR2_T2CON.setTSIDL; inline;
  24030. begin
  24031. pTDefRegMap(@Self)^.&set := $00002000;
  24032. end;
  24033. procedure TTMR2_T2CON.clearTSIDL; inline;
  24034. begin
  24035. pTDefRegMap(@Self)^.clr := $00002000;
  24036. end;
  24037. procedure TTMR2_T2CON.setTSIDL(thebits : TBits_1); inline;
  24038. begin
  24039. if thebits = 0 then
  24040. pTDefRegMap(@Self)^.clr := $00002000
  24041. else
  24042. pTDefRegMap(@Self)^.&set := $00002000;
  24043. end;
  24044. function TTMR2_T2CON.getTSIDL : TBits_1; inline;
  24045. begin
  24046. getTSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  24047. end;
  24048. procedure TTMR2_T2CON.setTON; inline;
  24049. begin
  24050. pTDefRegMap(@Self)^.&set := $00008000;
  24051. end;
  24052. procedure TTMR2_T2CON.clearTON; inline;
  24053. begin
  24054. pTDefRegMap(@Self)^.clr := $00008000;
  24055. end;
  24056. procedure TTMR2_T2CON.setTON(thebits : TBits_1); inline;
  24057. begin
  24058. if thebits = 0 then
  24059. pTDefRegMap(@Self)^.clr := $00008000
  24060. else
  24061. pTDefRegMap(@Self)^.&set := $00008000;
  24062. end;
  24063. function TTMR2_T2CON.getTON : TBits_1; inline;
  24064. begin
  24065. getTON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  24066. end;
  24067. procedure TTMR2_T2CON.setw(thebits : TBits_32); inline;
  24068. begin
  24069. pTDefRegMap(@Self)^.val := thebits;
  24070. end;
  24071. function TTMR2_T2CON.getw : TBits_32; inline;
  24072. begin
  24073. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  24074. end;
  24075. procedure TTMR3_T3CON.setTCS; inline;
  24076. begin
  24077. pTDefRegMap(@Self)^.&set := $00000002;
  24078. end;
  24079. procedure TTMR3_T3CON.clearTCS; inline;
  24080. begin
  24081. pTDefRegMap(@Self)^.clr := $00000002;
  24082. end;
  24083. procedure TTMR3_T3CON.setTCS(thebits : TBits_1); inline;
  24084. begin
  24085. if thebits = 0 then
  24086. pTDefRegMap(@Self)^.clr := $00000002
  24087. else
  24088. pTDefRegMap(@Self)^.&set := $00000002;
  24089. end;
  24090. function TTMR3_T3CON.getTCS : TBits_1; inline;
  24091. begin
  24092. getTCS := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  24093. end;
  24094. procedure TTMR3_T3CON.setTCKPS(thebits : TBits_3); inline;
  24095. begin
  24096. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF8F or ( thebits shl 4 );
  24097. end;
  24098. function TTMR3_T3CON.getTCKPS : TBits_3; inline;
  24099. begin
  24100. getTCKPS := (pTDefRegMap(@Self)^.val and $00000070) shr 4;
  24101. end;
  24102. procedure TTMR3_T3CON.setTGATE; inline;
  24103. begin
  24104. pTDefRegMap(@Self)^.&set := $00000080;
  24105. end;
  24106. procedure TTMR3_T3CON.clearTGATE; inline;
  24107. begin
  24108. pTDefRegMap(@Self)^.clr := $00000080;
  24109. end;
  24110. procedure TTMR3_T3CON.setTGATE(thebits : TBits_1); inline;
  24111. begin
  24112. if thebits = 0 then
  24113. pTDefRegMap(@Self)^.clr := $00000080
  24114. else
  24115. pTDefRegMap(@Self)^.&set := $00000080;
  24116. end;
  24117. function TTMR3_T3CON.getTGATE : TBits_1; inline;
  24118. begin
  24119. getTGATE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  24120. end;
  24121. procedure TTMR3_T3CON.setSIDL; inline;
  24122. begin
  24123. pTDefRegMap(@Self)^.&set := $00002000;
  24124. end;
  24125. procedure TTMR3_T3CON.clearSIDL; inline;
  24126. begin
  24127. pTDefRegMap(@Self)^.clr := $00002000;
  24128. end;
  24129. procedure TTMR3_T3CON.setSIDL(thebits : TBits_1); inline;
  24130. begin
  24131. if thebits = 0 then
  24132. pTDefRegMap(@Self)^.clr := $00002000
  24133. else
  24134. pTDefRegMap(@Self)^.&set := $00002000;
  24135. end;
  24136. function TTMR3_T3CON.getSIDL : TBits_1; inline;
  24137. begin
  24138. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  24139. end;
  24140. procedure TTMR3_T3CON.setON; inline;
  24141. begin
  24142. pTDefRegMap(@Self)^.&set := $00008000;
  24143. end;
  24144. procedure TTMR3_T3CON.clearON; inline;
  24145. begin
  24146. pTDefRegMap(@Self)^.clr := $00008000;
  24147. end;
  24148. procedure TTMR3_T3CON.setON(thebits : TBits_1); inline;
  24149. begin
  24150. if thebits = 0 then
  24151. pTDefRegMap(@Self)^.clr := $00008000
  24152. else
  24153. pTDefRegMap(@Self)^.&set := $00008000;
  24154. end;
  24155. function TTMR3_T3CON.getON : TBits_1; inline;
  24156. begin
  24157. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  24158. end;
  24159. procedure TTMR3_T3CON.setTCKPS0; inline;
  24160. begin
  24161. pTDefRegMap(@Self)^.&set := $00000010;
  24162. end;
  24163. procedure TTMR3_T3CON.clearTCKPS0; inline;
  24164. begin
  24165. pTDefRegMap(@Self)^.clr := $00000010;
  24166. end;
  24167. procedure TTMR3_T3CON.setTCKPS0(thebits : TBits_1); inline;
  24168. begin
  24169. if thebits = 0 then
  24170. pTDefRegMap(@Self)^.clr := $00000010
  24171. else
  24172. pTDefRegMap(@Self)^.&set := $00000010;
  24173. end;
  24174. function TTMR3_T3CON.getTCKPS0 : TBits_1; inline;
  24175. begin
  24176. getTCKPS0 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  24177. end;
  24178. procedure TTMR3_T3CON.setTCKPS1; inline;
  24179. begin
  24180. pTDefRegMap(@Self)^.&set := $00000020;
  24181. end;
  24182. procedure TTMR3_T3CON.clearTCKPS1; inline;
  24183. begin
  24184. pTDefRegMap(@Self)^.clr := $00000020;
  24185. end;
  24186. procedure TTMR3_T3CON.setTCKPS1(thebits : TBits_1); inline;
  24187. begin
  24188. if thebits = 0 then
  24189. pTDefRegMap(@Self)^.clr := $00000020
  24190. else
  24191. pTDefRegMap(@Self)^.&set := $00000020;
  24192. end;
  24193. function TTMR3_T3CON.getTCKPS1 : TBits_1; inline;
  24194. begin
  24195. getTCKPS1 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  24196. end;
  24197. procedure TTMR3_T3CON.setTCKPS2; inline;
  24198. begin
  24199. pTDefRegMap(@Self)^.&set := $00000040;
  24200. end;
  24201. procedure TTMR3_T3CON.clearTCKPS2; inline;
  24202. begin
  24203. pTDefRegMap(@Self)^.clr := $00000040;
  24204. end;
  24205. procedure TTMR3_T3CON.setTCKPS2(thebits : TBits_1); inline;
  24206. begin
  24207. if thebits = 0 then
  24208. pTDefRegMap(@Self)^.clr := $00000040
  24209. else
  24210. pTDefRegMap(@Self)^.&set := $00000040;
  24211. end;
  24212. function TTMR3_T3CON.getTCKPS2 : TBits_1; inline;
  24213. begin
  24214. getTCKPS2 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  24215. end;
  24216. procedure TTMR3_T3CON.setTSIDL; inline;
  24217. begin
  24218. pTDefRegMap(@Self)^.&set := $00002000;
  24219. end;
  24220. procedure TTMR3_T3CON.clearTSIDL; inline;
  24221. begin
  24222. pTDefRegMap(@Self)^.clr := $00002000;
  24223. end;
  24224. procedure TTMR3_T3CON.setTSIDL(thebits : TBits_1); inline;
  24225. begin
  24226. if thebits = 0 then
  24227. pTDefRegMap(@Self)^.clr := $00002000
  24228. else
  24229. pTDefRegMap(@Self)^.&set := $00002000;
  24230. end;
  24231. function TTMR3_T3CON.getTSIDL : TBits_1; inline;
  24232. begin
  24233. getTSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  24234. end;
  24235. procedure TTMR3_T3CON.setTON; inline;
  24236. begin
  24237. pTDefRegMap(@Self)^.&set := $00008000;
  24238. end;
  24239. procedure TTMR3_T3CON.clearTON; inline;
  24240. begin
  24241. pTDefRegMap(@Self)^.clr := $00008000;
  24242. end;
  24243. procedure TTMR3_T3CON.setTON(thebits : TBits_1); inline;
  24244. begin
  24245. if thebits = 0 then
  24246. pTDefRegMap(@Self)^.clr := $00008000
  24247. else
  24248. pTDefRegMap(@Self)^.&set := $00008000;
  24249. end;
  24250. function TTMR3_T3CON.getTON : TBits_1; inline;
  24251. begin
  24252. getTON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  24253. end;
  24254. procedure TTMR3_T3CON.setw(thebits : TBits_32); inline;
  24255. begin
  24256. pTDefRegMap(@Self)^.val := thebits;
  24257. end;
  24258. function TTMR3_T3CON.getw : TBits_32; inline;
  24259. begin
  24260. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  24261. end;
  24262. procedure TTMR4_T4CON.setTCS; inline;
  24263. begin
  24264. pTDefRegMap(@Self)^.&set := $00000002;
  24265. end;
  24266. procedure TTMR4_T4CON.clearTCS; inline;
  24267. begin
  24268. pTDefRegMap(@Self)^.clr := $00000002;
  24269. end;
  24270. procedure TTMR4_T4CON.setTCS(thebits : TBits_1); inline;
  24271. begin
  24272. if thebits = 0 then
  24273. pTDefRegMap(@Self)^.clr := $00000002
  24274. else
  24275. pTDefRegMap(@Self)^.&set := $00000002;
  24276. end;
  24277. function TTMR4_T4CON.getTCS : TBits_1; inline;
  24278. begin
  24279. getTCS := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  24280. end;
  24281. procedure TTMR4_T4CON.setT32; inline;
  24282. begin
  24283. pTDefRegMap(@Self)^.&set := $00000008;
  24284. end;
  24285. procedure TTMR4_T4CON.clearT32; inline;
  24286. begin
  24287. pTDefRegMap(@Self)^.clr := $00000008;
  24288. end;
  24289. procedure TTMR4_T4CON.setT32(thebits : TBits_1); inline;
  24290. begin
  24291. if thebits = 0 then
  24292. pTDefRegMap(@Self)^.clr := $00000008
  24293. else
  24294. pTDefRegMap(@Self)^.&set := $00000008;
  24295. end;
  24296. function TTMR4_T4CON.getT32 : TBits_1; inline;
  24297. begin
  24298. getT32 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  24299. end;
  24300. procedure TTMR4_T4CON.setTCKPS(thebits : TBits_3); inline;
  24301. begin
  24302. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF8F or ( thebits shl 4 );
  24303. end;
  24304. function TTMR4_T4CON.getTCKPS : TBits_3; inline;
  24305. begin
  24306. getTCKPS := (pTDefRegMap(@Self)^.val and $00000070) shr 4;
  24307. end;
  24308. procedure TTMR4_T4CON.setTGATE; inline;
  24309. begin
  24310. pTDefRegMap(@Self)^.&set := $00000080;
  24311. end;
  24312. procedure TTMR4_T4CON.clearTGATE; inline;
  24313. begin
  24314. pTDefRegMap(@Self)^.clr := $00000080;
  24315. end;
  24316. procedure TTMR4_T4CON.setTGATE(thebits : TBits_1); inline;
  24317. begin
  24318. if thebits = 0 then
  24319. pTDefRegMap(@Self)^.clr := $00000080
  24320. else
  24321. pTDefRegMap(@Self)^.&set := $00000080;
  24322. end;
  24323. function TTMR4_T4CON.getTGATE : TBits_1; inline;
  24324. begin
  24325. getTGATE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  24326. end;
  24327. procedure TTMR4_T4CON.setSIDL; inline;
  24328. begin
  24329. pTDefRegMap(@Self)^.&set := $00002000;
  24330. end;
  24331. procedure TTMR4_T4CON.clearSIDL; inline;
  24332. begin
  24333. pTDefRegMap(@Self)^.clr := $00002000;
  24334. end;
  24335. procedure TTMR4_T4CON.setSIDL(thebits : TBits_1); inline;
  24336. begin
  24337. if thebits = 0 then
  24338. pTDefRegMap(@Self)^.clr := $00002000
  24339. else
  24340. pTDefRegMap(@Self)^.&set := $00002000;
  24341. end;
  24342. function TTMR4_T4CON.getSIDL : TBits_1; inline;
  24343. begin
  24344. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  24345. end;
  24346. procedure TTMR4_T4CON.setON; inline;
  24347. begin
  24348. pTDefRegMap(@Self)^.&set := $00008000;
  24349. end;
  24350. procedure TTMR4_T4CON.clearON; inline;
  24351. begin
  24352. pTDefRegMap(@Self)^.clr := $00008000;
  24353. end;
  24354. procedure TTMR4_T4CON.setON(thebits : TBits_1); inline;
  24355. begin
  24356. if thebits = 0 then
  24357. pTDefRegMap(@Self)^.clr := $00008000
  24358. else
  24359. pTDefRegMap(@Self)^.&set := $00008000;
  24360. end;
  24361. function TTMR4_T4CON.getON : TBits_1; inline;
  24362. begin
  24363. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  24364. end;
  24365. procedure TTMR4_T4CON.setTCKPS0; inline;
  24366. begin
  24367. pTDefRegMap(@Self)^.&set := $00000010;
  24368. end;
  24369. procedure TTMR4_T4CON.clearTCKPS0; inline;
  24370. begin
  24371. pTDefRegMap(@Self)^.clr := $00000010;
  24372. end;
  24373. procedure TTMR4_T4CON.setTCKPS0(thebits : TBits_1); inline;
  24374. begin
  24375. if thebits = 0 then
  24376. pTDefRegMap(@Self)^.clr := $00000010
  24377. else
  24378. pTDefRegMap(@Self)^.&set := $00000010;
  24379. end;
  24380. function TTMR4_T4CON.getTCKPS0 : TBits_1; inline;
  24381. begin
  24382. getTCKPS0 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  24383. end;
  24384. procedure TTMR4_T4CON.setTCKPS1; inline;
  24385. begin
  24386. pTDefRegMap(@Self)^.&set := $00000020;
  24387. end;
  24388. procedure TTMR4_T4CON.clearTCKPS1; inline;
  24389. begin
  24390. pTDefRegMap(@Self)^.clr := $00000020;
  24391. end;
  24392. procedure TTMR4_T4CON.setTCKPS1(thebits : TBits_1); inline;
  24393. begin
  24394. if thebits = 0 then
  24395. pTDefRegMap(@Self)^.clr := $00000020
  24396. else
  24397. pTDefRegMap(@Self)^.&set := $00000020;
  24398. end;
  24399. function TTMR4_T4CON.getTCKPS1 : TBits_1; inline;
  24400. begin
  24401. getTCKPS1 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  24402. end;
  24403. procedure TTMR4_T4CON.setTCKPS2; inline;
  24404. begin
  24405. pTDefRegMap(@Self)^.&set := $00000040;
  24406. end;
  24407. procedure TTMR4_T4CON.clearTCKPS2; inline;
  24408. begin
  24409. pTDefRegMap(@Self)^.clr := $00000040;
  24410. end;
  24411. procedure TTMR4_T4CON.setTCKPS2(thebits : TBits_1); inline;
  24412. begin
  24413. if thebits = 0 then
  24414. pTDefRegMap(@Self)^.clr := $00000040
  24415. else
  24416. pTDefRegMap(@Self)^.&set := $00000040;
  24417. end;
  24418. function TTMR4_T4CON.getTCKPS2 : TBits_1; inline;
  24419. begin
  24420. getTCKPS2 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  24421. end;
  24422. procedure TTMR4_T4CON.setTSIDL; inline;
  24423. begin
  24424. pTDefRegMap(@Self)^.&set := $00002000;
  24425. end;
  24426. procedure TTMR4_T4CON.clearTSIDL; inline;
  24427. begin
  24428. pTDefRegMap(@Self)^.clr := $00002000;
  24429. end;
  24430. procedure TTMR4_T4CON.setTSIDL(thebits : TBits_1); inline;
  24431. begin
  24432. if thebits = 0 then
  24433. pTDefRegMap(@Self)^.clr := $00002000
  24434. else
  24435. pTDefRegMap(@Self)^.&set := $00002000;
  24436. end;
  24437. function TTMR4_T4CON.getTSIDL : TBits_1; inline;
  24438. begin
  24439. getTSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  24440. end;
  24441. procedure TTMR4_T4CON.setTON; inline;
  24442. begin
  24443. pTDefRegMap(@Self)^.&set := $00008000;
  24444. end;
  24445. procedure TTMR4_T4CON.clearTON; inline;
  24446. begin
  24447. pTDefRegMap(@Self)^.clr := $00008000;
  24448. end;
  24449. procedure TTMR4_T4CON.setTON(thebits : TBits_1); inline;
  24450. begin
  24451. if thebits = 0 then
  24452. pTDefRegMap(@Self)^.clr := $00008000
  24453. else
  24454. pTDefRegMap(@Self)^.&set := $00008000;
  24455. end;
  24456. function TTMR4_T4CON.getTON : TBits_1; inline;
  24457. begin
  24458. getTON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  24459. end;
  24460. procedure TTMR4_T4CON.setw(thebits : TBits_32); inline;
  24461. begin
  24462. pTDefRegMap(@Self)^.val := thebits;
  24463. end;
  24464. function TTMR4_T4CON.getw : TBits_32; inline;
  24465. begin
  24466. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  24467. end;
  24468. procedure TTMR5_T5CON.setTCS; inline;
  24469. begin
  24470. pTDefRegMap(@Self)^.&set := $00000002;
  24471. end;
  24472. procedure TTMR5_T5CON.clearTCS; inline;
  24473. begin
  24474. pTDefRegMap(@Self)^.clr := $00000002;
  24475. end;
  24476. procedure TTMR5_T5CON.setTCS(thebits : TBits_1); inline;
  24477. begin
  24478. if thebits = 0 then
  24479. pTDefRegMap(@Self)^.clr := $00000002
  24480. else
  24481. pTDefRegMap(@Self)^.&set := $00000002;
  24482. end;
  24483. function TTMR5_T5CON.getTCS : TBits_1; inline;
  24484. begin
  24485. getTCS := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  24486. end;
  24487. procedure TTMR5_T5CON.setTCKPS(thebits : TBits_3); inline;
  24488. begin
  24489. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF8F or ( thebits shl 4 );
  24490. end;
  24491. function TTMR5_T5CON.getTCKPS : TBits_3; inline;
  24492. begin
  24493. getTCKPS := (pTDefRegMap(@Self)^.val and $00000070) shr 4;
  24494. end;
  24495. procedure TTMR5_T5CON.setTGATE; inline;
  24496. begin
  24497. pTDefRegMap(@Self)^.&set := $00000080;
  24498. end;
  24499. procedure TTMR5_T5CON.clearTGATE; inline;
  24500. begin
  24501. pTDefRegMap(@Self)^.clr := $00000080;
  24502. end;
  24503. procedure TTMR5_T5CON.setTGATE(thebits : TBits_1); inline;
  24504. begin
  24505. if thebits = 0 then
  24506. pTDefRegMap(@Self)^.clr := $00000080
  24507. else
  24508. pTDefRegMap(@Self)^.&set := $00000080;
  24509. end;
  24510. function TTMR5_T5CON.getTGATE : TBits_1; inline;
  24511. begin
  24512. getTGATE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  24513. end;
  24514. procedure TTMR5_T5CON.setSIDL; inline;
  24515. begin
  24516. pTDefRegMap(@Self)^.&set := $00002000;
  24517. end;
  24518. procedure TTMR5_T5CON.clearSIDL; inline;
  24519. begin
  24520. pTDefRegMap(@Self)^.clr := $00002000;
  24521. end;
  24522. procedure TTMR5_T5CON.setSIDL(thebits : TBits_1); inline;
  24523. begin
  24524. if thebits = 0 then
  24525. pTDefRegMap(@Self)^.clr := $00002000
  24526. else
  24527. pTDefRegMap(@Self)^.&set := $00002000;
  24528. end;
  24529. function TTMR5_T5CON.getSIDL : TBits_1; inline;
  24530. begin
  24531. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  24532. end;
  24533. procedure TTMR5_T5CON.setON; inline;
  24534. begin
  24535. pTDefRegMap(@Self)^.&set := $00008000;
  24536. end;
  24537. procedure TTMR5_T5CON.clearON; inline;
  24538. begin
  24539. pTDefRegMap(@Self)^.clr := $00008000;
  24540. end;
  24541. procedure TTMR5_T5CON.setON(thebits : TBits_1); inline;
  24542. begin
  24543. if thebits = 0 then
  24544. pTDefRegMap(@Self)^.clr := $00008000
  24545. else
  24546. pTDefRegMap(@Self)^.&set := $00008000;
  24547. end;
  24548. function TTMR5_T5CON.getON : TBits_1; inline;
  24549. begin
  24550. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  24551. end;
  24552. procedure TTMR5_T5CON.setTCKPS0; inline;
  24553. begin
  24554. pTDefRegMap(@Self)^.&set := $00000010;
  24555. end;
  24556. procedure TTMR5_T5CON.clearTCKPS0; inline;
  24557. begin
  24558. pTDefRegMap(@Self)^.clr := $00000010;
  24559. end;
  24560. procedure TTMR5_T5CON.setTCKPS0(thebits : TBits_1); inline;
  24561. begin
  24562. if thebits = 0 then
  24563. pTDefRegMap(@Self)^.clr := $00000010
  24564. else
  24565. pTDefRegMap(@Self)^.&set := $00000010;
  24566. end;
  24567. function TTMR5_T5CON.getTCKPS0 : TBits_1; inline;
  24568. begin
  24569. getTCKPS0 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  24570. end;
  24571. procedure TTMR5_T5CON.setTCKPS1; inline;
  24572. begin
  24573. pTDefRegMap(@Self)^.&set := $00000020;
  24574. end;
  24575. procedure TTMR5_T5CON.clearTCKPS1; inline;
  24576. begin
  24577. pTDefRegMap(@Self)^.clr := $00000020;
  24578. end;
  24579. procedure TTMR5_T5CON.setTCKPS1(thebits : TBits_1); inline;
  24580. begin
  24581. if thebits = 0 then
  24582. pTDefRegMap(@Self)^.clr := $00000020
  24583. else
  24584. pTDefRegMap(@Self)^.&set := $00000020;
  24585. end;
  24586. function TTMR5_T5CON.getTCKPS1 : TBits_1; inline;
  24587. begin
  24588. getTCKPS1 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  24589. end;
  24590. procedure TTMR5_T5CON.setTCKPS2; inline;
  24591. begin
  24592. pTDefRegMap(@Self)^.&set := $00000040;
  24593. end;
  24594. procedure TTMR5_T5CON.clearTCKPS2; inline;
  24595. begin
  24596. pTDefRegMap(@Self)^.clr := $00000040;
  24597. end;
  24598. procedure TTMR5_T5CON.setTCKPS2(thebits : TBits_1); inline;
  24599. begin
  24600. if thebits = 0 then
  24601. pTDefRegMap(@Self)^.clr := $00000040
  24602. else
  24603. pTDefRegMap(@Self)^.&set := $00000040;
  24604. end;
  24605. function TTMR5_T5CON.getTCKPS2 : TBits_1; inline;
  24606. begin
  24607. getTCKPS2 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  24608. end;
  24609. procedure TTMR5_T5CON.setTSIDL; inline;
  24610. begin
  24611. pTDefRegMap(@Self)^.&set := $00002000;
  24612. end;
  24613. procedure TTMR5_T5CON.clearTSIDL; inline;
  24614. begin
  24615. pTDefRegMap(@Self)^.clr := $00002000;
  24616. end;
  24617. procedure TTMR5_T5CON.setTSIDL(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 TTMR5_T5CON.getTSIDL : TBits_1; inline;
  24625. begin
  24626. getTSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  24627. end;
  24628. procedure TTMR5_T5CON.setTON; inline;
  24629. begin
  24630. pTDefRegMap(@Self)^.&set := $00008000;
  24631. end;
  24632. procedure TTMR5_T5CON.clearTON; inline;
  24633. begin
  24634. pTDefRegMap(@Self)^.clr := $00008000;
  24635. end;
  24636. procedure TTMR5_T5CON.setTON(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 TTMR5_T5CON.getTON : TBits_1; inline;
  24644. begin
  24645. getTON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  24646. end;
  24647. procedure TTMR5_T5CON.setw(thebits : TBits_32); inline;
  24648. begin
  24649. pTDefRegMap(@Self)^.val := thebits;
  24650. end;
  24651. function TTMR5_T5CON.getw : TBits_32; inline;
  24652. begin
  24653. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  24654. end;
  24655. procedure TICAP1_IC1CON.setICM(thebits : TBits_3); inline;
  24656. begin
  24657. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  24658. end;
  24659. function TICAP1_IC1CON.getICM : TBits_3; inline;
  24660. begin
  24661. getICM := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  24662. end;
  24663. procedure TICAP1_IC1CON.setICBNE; inline;
  24664. begin
  24665. pTDefRegMap(@Self)^.&set := $00000008;
  24666. end;
  24667. procedure TICAP1_IC1CON.clearICBNE; inline;
  24668. begin
  24669. pTDefRegMap(@Self)^.clr := $00000008;
  24670. end;
  24671. procedure TICAP1_IC1CON.setICBNE(thebits : TBits_1); inline;
  24672. begin
  24673. if thebits = 0 then
  24674. pTDefRegMap(@Self)^.clr := $00000008
  24675. else
  24676. pTDefRegMap(@Self)^.&set := $00000008;
  24677. end;
  24678. function TICAP1_IC1CON.getICBNE : TBits_1; inline;
  24679. begin
  24680. getICBNE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  24681. end;
  24682. procedure TICAP1_IC1CON.setICOV; inline;
  24683. begin
  24684. pTDefRegMap(@Self)^.&set := $00000010;
  24685. end;
  24686. procedure TICAP1_IC1CON.clearICOV; inline;
  24687. begin
  24688. pTDefRegMap(@Self)^.clr := $00000010;
  24689. end;
  24690. procedure TICAP1_IC1CON.setICOV(thebits : TBits_1); inline;
  24691. begin
  24692. if thebits = 0 then
  24693. pTDefRegMap(@Self)^.clr := $00000010
  24694. else
  24695. pTDefRegMap(@Self)^.&set := $00000010;
  24696. end;
  24697. function TICAP1_IC1CON.getICOV : TBits_1; inline;
  24698. begin
  24699. getICOV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  24700. end;
  24701. procedure TICAP1_IC1CON.setICI(thebits : TBits_2); inline;
  24702. begin
  24703. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF9F or ( thebits shl 5 );
  24704. end;
  24705. function TICAP1_IC1CON.getICI : TBits_2; inline;
  24706. begin
  24707. getICI := (pTDefRegMap(@Self)^.val and $00000060) shr 5;
  24708. end;
  24709. procedure TICAP1_IC1CON.setICTMR; inline;
  24710. begin
  24711. pTDefRegMap(@Self)^.&set := $00000080;
  24712. end;
  24713. procedure TICAP1_IC1CON.clearICTMR; inline;
  24714. begin
  24715. pTDefRegMap(@Self)^.clr := $00000080;
  24716. end;
  24717. procedure TICAP1_IC1CON.setICTMR(thebits : TBits_1); inline;
  24718. begin
  24719. if thebits = 0 then
  24720. pTDefRegMap(@Self)^.clr := $00000080
  24721. else
  24722. pTDefRegMap(@Self)^.&set := $00000080;
  24723. end;
  24724. function TICAP1_IC1CON.getICTMR : TBits_1; inline;
  24725. begin
  24726. getICTMR := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  24727. end;
  24728. procedure TICAP1_IC1CON.setC32; inline;
  24729. begin
  24730. pTDefRegMap(@Self)^.&set := $00000100;
  24731. end;
  24732. procedure TICAP1_IC1CON.clearC32; inline;
  24733. begin
  24734. pTDefRegMap(@Self)^.clr := $00000100;
  24735. end;
  24736. procedure TICAP1_IC1CON.setC32(thebits : TBits_1); inline;
  24737. begin
  24738. if thebits = 0 then
  24739. pTDefRegMap(@Self)^.clr := $00000100
  24740. else
  24741. pTDefRegMap(@Self)^.&set := $00000100;
  24742. end;
  24743. function TICAP1_IC1CON.getC32 : TBits_1; inline;
  24744. begin
  24745. getC32 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  24746. end;
  24747. procedure TICAP1_IC1CON.setFEDGE; inline;
  24748. begin
  24749. pTDefRegMap(@Self)^.&set := $00000200;
  24750. end;
  24751. procedure TICAP1_IC1CON.clearFEDGE; inline;
  24752. begin
  24753. pTDefRegMap(@Self)^.clr := $00000200;
  24754. end;
  24755. procedure TICAP1_IC1CON.setFEDGE(thebits : TBits_1); inline;
  24756. begin
  24757. if thebits = 0 then
  24758. pTDefRegMap(@Self)^.clr := $00000200
  24759. else
  24760. pTDefRegMap(@Self)^.&set := $00000200;
  24761. end;
  24762. function TICAP1_IC1CON.getFEDGE : TBits_1; inline;
  24763. begin
  24764. getFEDGE := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  24765. end;
  24766. procedure TICAP1_IC1CON.setSIDL; inline;
  24767. begin
  24768. pTDefRegMap(@Self)^.&set := $00002000;
  24769. end;
  24770. procedure TICAP1_IC1CON.clearSIDL; inline;
  24771. begin
  24772. pTDefRegMap(@Self)^.clr := $00002000;
  24773. end;
  24774. procedure TICAP1_IC1CON.setSIDL(thebits : TBits_1); inline;
  24775. begin
  24776. if thebits = 0 then
  24777. pTDefRegMap(@Self)^.clr := $00002000
  24778. else
  24779. pTDefRegMap(@Self)^.&set := $00002000;
  24780. end;
  24781. function TICAP1_IC1CON.getSIDL : TBits_1; inline;
  24782. begin
  24783. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  24784. end;
  24785. procedure TICAP1_IC1CON.setON; inline;
  24786. begin
  24787. pTDefRegMap(@Self)^.&set := $00008000;
  24788. end;
  24789. procedure TICAP1_IC1CON.clearON; inline;
  24790. begin
  24791. pTDefRegMap(@Self)^.clr := $00008000;
  24792. end;
  24793. procedure TICAP1_IC1CON.setON(thebits : TBits_1); inline;
  24794. begin
  24795. if thebits = 0 then
  24796. pTDefRegMap(@Self)^.clr := $00008000
  24797. else
  24798. pTDefRegMap(@Self)^.&set := $00008000;
  24799. end;
  24800. function TICAP1_IC1CON.getON : TBits_1; inline;
  24801. begin
  24802. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  24803. end;
  24804. procedure TICAP1_IC1CON.setICM0; inline;
  24805. begin
  24806. pTDefRegMap(@Self)^.&set := $00000001;
  24807. end;
  24808. procedure TICAP1_IC1CON.clearICM0; inline;
  24809. begin
  24810. pTDefRegMap(@Self)^.clr := $00000001;
  24811. end;
  24812. procedure TICAP1_IC1CON.setICM0(thebits : TBits_1); inline;
  24813. begin
  24814. if thebits = 0 then
  24815. pTDefRegMap(@Self)^.clr := $00000001
  24816. else
  24817. pTDefRegMap(@Self)^.&set := $00000001;
  24818. end;
  24819. function TICAP1_IC1CON.getICM0 : TBits_1; inline;
  24820. begin
  24821. getICM0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  24822. end;
  24823. procedure TICAP1_IC1CON.setICM1; inline;
  24824. begin
  24825. pTDefRegMap(@Self)^.&set := $00000002;
  24826. end;
  24827. procedure TICAP1_IC1CON.clearICM1; inline;
  24828. begin
  24829. pTDefRegMap(@Self)^.clr := $00000002;
  24830. end;
  24831. procedure TICAP1_IC1CON.setICM1(thebits : TBits_1); inline;
  24832. begin
  24833. if thebits = 0 then
  24834. pTDefRegMap(@Self)^.clr := $00000002
  24835. else
  24836. pTDefRegMap(@Self)^.&set := $00000002;
  24837. end;
  24838. function TICAP1_IC1CON.getICM1 : TBits_1; inline;
  24839. begin
  24840. getICM1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  24841. end;
  24842. procedure TICAP1_IC1CON.setICM2; inline;
  24843. begin
  24844. pTDefRegMap(@Self)^.&set := $00000004;
  24845. end;
  24846. procedure TICAP1_IC1CON.clearICM2; inline;
  24847. begin
  24848. pTDefRegMap(@Self)^.clr := $00000004;
  24849. end;
  24850. procedure TICAP1_IC1CON.setICM2(thebits : TBits_1); inline;
  24851. begin
  24852. if thebits = 0 then
  24853. pTDefRegMap(@Self)^.clr := $00000004
  24854. else
  24855. pTDefRegMap(@Self)^.&set := $00000004;
  24856. end;
  24857. function TICAP1_IC1CON.getICM2 : TBits_1; inline;
  24858. begin
  24859. getICM2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  24860. end;
  24861. procedure TICAP1_IC1CON.setICI0; inline;
  24862. begin
  24863. pTDefRegMap(@Self)^.&set := $00000020;
  24864. end;
  24865. procedure TICAP1_IC1CON.clearICI0; inline;
  24866. begin
  24867. pTDefRegMap(@Self)^.clr := $00000020;
  24868. end;
  24869. procedure TICAP1_IC1CON.setICI0(thebits : TBits_1); inline;
  24870. begin
  24871. if thebits = 0 then
  24872. pTDefRegMap(@Self)^.clr := $00000020
  24873. else
  24874. pTDefRegMap(@Self)^.&set := $00000020;
  24875. end;
  24876. function TICAP1_IC1CON.getICI0 : TBits_1; inline;
  24877. begin
  24878. getICI0 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  24879. end;
  24880. procedure TICAP1_IC1CON.setICI1; inline;
  24881. begin
  24882. pTDefRegMap(@Self)^.&set := $00000040;
  24883. end;
  24884. procedure TICAP1_IC1CON.clearICI1; inline;
  24885. begin
  24886. pTDefRegMap(@Self)^.clr := $00000040;
  24887. end;
  24888. procedure TICAP1_IC1CON.setICI1(thebits : TBits_1); inline;
  24889. begin
  24890. if thebits = 0 then
  24891. pTDefRegMap(@Self)^.clr := $00000040
  24892. else
  24893. pTDefRegMap(@Self)^.&set := $00000040;
  24894. end;
  24895. function TICAP1_IC1CON.getICI1 : TBits_1; inline;
  24896. begin
  24897. getICI1 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  24898. end;
  24899. procedure TICAP1_IC1CON.setICSIDL; inline;
  24900. begin
  24901. pTDefRegMap(@Self)^.&set := $00002000;
  24902. end;
  24903. procedure TICAP1_IC1CON.clearICSIDL; inline;
  24904. begin
  24905. pTDefRegMap(@Self)^.clr := $00002000;
  24906. end;
  24907. procedure TICAP1_IC1CON.setICSIDL(thebits : TBits_1); inline;
  24908. begin
  24909. if thebits = 0 then
  24910. pTDefRegMap(@Self)^.clr := $00002000
  24911. else
  24912. pTDefRegMap(@Self)^.&set := $00002000;
  24913. end;
  24914. function TICAP1_IC1CON.getICSIDL : TBits_1; inline;
  24915. begin
  24916. getICSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  24917. end;
  24918. procedure TICAP1_IC1CON.setw(thebits : TBits_32); inline;
  24919. begin
  24920. pTDefRegMap(@Self)^.val := thebits;
  24921. end;
  24922. function TICAP1_IC1CON.getw : TBits_32; inline;
  24923. begin
  24924. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  24925. end;
  24926. procedure TICAP2_IC2CON.setICM(thebits : TBits_3); inline;
  24927. begin
  24928. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  24929. end;
  24930. function TICAP2_IC2CON.getICM : TBits_3; inline;
  24931. begin
  24932. getICM := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  24933. end;
  24934. procedure TICAP2_IC2CON.setICBNE; inline;
  24935. begin
  24936. pTDefRegMap(@Self)^.&set := $00000008;
  24937. end;
  24938. procedure TICAP2_IC2CON.clearICBNE; inline;
  24939. begin
  24940. pTDefRegMap(@Self)^.clr := $00000008;
  24941. end;
  24942. procedure TICAP2_IC2CON.setICBNE(thebits : TBits_1); inline;
  24943. begin
  24944. if thebits = 0 then
  24945. pTDefRegMap(@Self)^.clr := $00000008
  24946. else
  24947. pTDefRegMap(@Self)^.&set := $00000008;
  24948. end;
  24949. function TICAP2_IC2CON.getICBNE : TBits_1; inline;
  24950. begin
  24951. getICBNE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  24952. end;
  24953. procedure TICAP2_IC2CON.setICOV; inline;
  24954. begin
  24955. pTDefRegMap(@Self)^.&set := $00000010;
  24956. end;
  24957. procedure TICAP2_IC2CON.clearICOV; inline;
  24958. begin
  24959. pTDefRegMap(@Self)^.clr := $00000010;
  24960. end;
  24961. procedure TICAP2_IC2CON.setICOV(thebits : TBits_1); inline;
  24962. begin
  24963. if thebits = 0 then
  24964. pTDefRegMap(@Self)^.clr := $00000010
  24965. else
  24966. pTDefRegMap(@Self)^.&set := $00000010;
  24967. end;
  24968. function TICAP2_IC2CON.getICOV : TBits_1; inline;
  24969. begin
  24970. getICOV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  24971. end;
  24972. procedure TICAP2_IC2CON.setICI(thebits : TBits_2); inline;
  24973. begin
  24974. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF9F or ( thebits shl 5 );
  24975. end;
  24976. function TICAP2_IC2CON.getICI : TBits_2; inline;
  24977. begin
  24978. getICI := (pTDefRegMap(@Self)^.val and $00000060) shr 5;
  24979. end;
  24980. procedure TICAP2_IC2CON.setICTMR; inline;
  24981. begin
  24982. pTDefRegMap(@Self)^.&set := $00000080;
  24983. end;
  24984. procedure TICAP2_IC2CON.clearICTMR; inline;
  24985. begin
  24986. pTDefRegMap(@Self)^.clr := $00000080;
  24987. end;
  24988. procedure TICAP2_IC2CON.setICTMR(thebits : TBits_1); inline;
  24989. begin
  24990. if thebits = 0 then
  24991. pTDefRegMap(@Self)^.clr := $00000080
  24992. else
  24993. pTDefRegMap(@Self)^.&set := $00000080;
  24994. end;
  24995. function TICAP2_IC2CON.getICTMR : TBits_1; inline;
  24996. begin
  24997. getICTMR := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  24998. end;
  24999. procedure TICAP2_IC2CON.setC32; inline;
  25000. begin
  25001. pTDefRegMap(@Self)^.&set := $00000100;
  25002. end;
  25003. procedure TICAP2_IC2CON.clearC32; inline;
  25004. begin
  25005. pTDefRegMap(@Self)^.clr := $00000100;
  25006. end;
  25007. procedure TICAP2_IC2CON.setC32(thebits : TBits_1); inline;
  25008. begin
  25009. if thebits = 0 then
  25010. pTDefRegMap(@Self)^.clr := $00000100
  25011. else
  25012. pTDefRegMap(@Self)^.&set := $00000100;
  25013. end;
  25014. function TICAP2_IC2CON.getC32 : TBits_1; inline;
  25015. begin
  25016. getC32 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  25017. end;
  25018. procedure TICAP2_IC2CON.setFEDGE; inline;
  25019. begin
  25020. pTDefRegMap(@Self)^.&set := $00000200;
  25021. end;
  25022. procedure TICAP2_IC2CON.clearFEDGE; inline;
  25023. begin
  25024. pTDefRegMap(@Self)^.clr := $00000200;
  25025. end;
  25026. procedure TICAP2_IC2CON.setFEDGE(thebits : TBits_1); inline;
  25027. begin
  25028. if thebits = 0 then
  25029. pTDefRegMap(@Self)^.clr := $00000200
  25030. else
  25031. pTDefRegMap(@Self)^.&set := $00000200;
  25032. end;
  25033. function TICAP2_IC2CON.getFEDGE : TBits_1; inline;
  25034. begin
  25035. getFEDGE := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  25036. end;
  25037. procedure TICAP2_IC2CON.setSIDL; inline;
  25038. begin
  25039. pTDefRegMap(@Self)^.&set := $00002000;
  25040. end;
  25041. procedure TICAP2_IC2CON.clearSIDL; inline;
  25042. begin
  25043. pTDefRegMap(@Self)^.clr := $00002000;
  25044. end;
  25045. procedure TICAP2_IC2CON.setSIDL(thebits : TBits_1); inline;
  25046. begin
  25047. if thebits = 0 then
  25048. pTDefRegMap(@Self)^.clr := $00002000
  25049. else
  25050. pTDefRegMap(@Self)^.&set := $00002000;
  25051. end;
  25052. function TICAP2_IC2CON.getSIDL : TBits_1; inline;
  25053. begin
  25054. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  25055. end;
  25056. procedure TICAP2_IC2CON.setON; inline;
  25057. begin
  25058. pTDefRegMap(@Self)^.&set := $00008000;
  25059. end;
  25060. procedure TICAP2_IC2CON.clearON; inline;
  25061. begin
  25062. pTDefRegMap(@Self)^.clr := $00008000;
  25063. end;
  25064. procedure TICAP2_IC2CON.setON(thebits : TBits_1); inline;
  25065. begin
  25066. if thebits = 0 then
  25067. pTDefRegMap(@Self)^.clr := $00008000
  25068. else
  25069. pTDefRegMap(@Self)^.&set := $00008000;
  25070. end;
  25071. function TICAP2_IC2CON.getON : TBits_1; inline;
  25072. begin
  25073. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  25074. end;
  25075. procedure TICAP2_IC2CON.setICM0; inline;
  25076. begin
  25077. pTDefRegMap(@Self)^.&set := $00000001;
  25078. end;
  25079. procedure TICAP2_IC2CON.clearICM0; inline;
  25080. begin
  25081. pTDefRegMap(@Self)^.clr := $00000001;
  25082. end;
  25083. procedure TICAP2_IC2CON.setICM0(thebits : TBits_1); inline;
  25084. begin
  25085. if thebits = 0 then
  25086. pTDefRegMap(@Self)^.clr := $00000001
  25087. else
  25088. pTDefRegMap(@Self)^.&set := $00000001;
  25089. end;
  25090. function TICAP2_IC2CON.getICM0 : TBits_1; inline;
  25091. begin
  25092. getICM0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  25093. end;
  25094. procedure TICAP2_IC2CON.setICM1; inline;
  25095. begin
  25096. pTDefRegMap(@Self)^.&set := $00000002;
  25097. end;
  25098. procedure TICAP2_IC2CON.clearICM1; inline;
  25099. begin
  25100. pTDefRegMap(@Self)^.clr := $00000002;
  25101. end;
  25102. procedure TICAP2_IC2CON.setICM1(thebits : TBits_1); inline;
  25103. begin
  25104. if thebits = 0 then
  25105. pTDefRegMap(@Self)^.clr := $00000002
  25106. else
  25107. pTDefRegMap(@Self)^.&set := $00000002;
  25108. end;
  25109. function TICAP2_IC2CON.getICM1 : TBits_1; inline;
  25110. begin
  25111. getICM1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  25112. end;
  25113. procedure TICAP2_IC2CON.setICM2; inline;
  25114. begin
  25115. pTDefRegMap(@Self)^.&set := $00000004;
  25116. end;
  25117. procedure TICAP2_IC2CON.clearICM2; inline;
  25118. begin
  25119. pTDefRegMap(@Self)^.clr := $00000004;
  25120. end;
  25121. procedure TICAP2_IC2CON.setICM2(thebits : TBits_1); inline;
  25122. begin
  25123. if thebits = 0 then
  25124. pTDefRegMap(@Self)^.clr := $00000004
  25125. else
  25126. pTDefRegMap(@Self)^.&set := $00000004;
  25127. end;
  25128. function TICAP2_IC2CON.getICM2 : TBits_1; inline;
  25129. begin
  25130. getICM2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  25131. end;
  25132. procedure TICAP2_IC2CON.setICI0; inline;
  25133. begin
  25134. pTDefRegMap(@Self)^.&set := $00000020;
  25135. end;
  25136. procedure TICAP2_IC2CON.clearICI0; inline;
  25137. begin
  25138. pTDefRegMap(@Self)^.clr := $00000020;
  25139. end;
  25140. procedure TICAP2_IC2CON.setICI0(thebits : TBits_1); inline;
  25141. begin
  25142. if thebits = 0 then
  25143. pTDefRegMap(@Self)^.clr := $00000020
  25144. else
  25145. pTDefRegMap(@Self)^.&set := $00000020;
  25146. end;
  25147. function TICAP2_IC2CON.getICI0 : TBits_1; inline;
  25148. begin
  25149. getICI0 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  25150. end;
  25151. procedure TICAP2_IC2CON.setICI1; inline;
  25152. begin
  25153. pTDefRegMap(@Self)^.&set := $00000040;
  25154. end;
  25155. procedure TICAP2_IC2CON.clearICI1; inline;
  25156. begin
  25157. pTDefRegMap(@Self)^.clr := $00000040;
  25158. end;
  25159. procedure TICAP2_IC2CON.setICI1(thebits : TBits_1); inline;
  25160. begin
  25161. if thebits = 0 then
  25162. pTDefRegMap(@Self)^.clr := $00000040
  25163. else
  25164. pTDefRegMap(@Self)^.&set := $00000040;
  25165. end;
  25166. function TICAP2_IC2CON.getICI1 : TBits_1; inline;
  25167. begin
  25168. getICI1 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  25169. end;
  25170. procedure TICAP2_IC2CON.setICSIDL; inline;
  25171. begin
  25172. pTDefRegMap(@Self)^.&set := $00002000;
  25173. end;
  25174. procedure TICAP2_IC2CON.clearICSIDL; inline;
  25175. begin
  25176. pTDefRegMap(@Self)^.clr := $00002000;
  25177. end;
  25178. procedure TICAP2_IC2CON.setICSIDL(thebits : TBits_1); inline;
  25179. begin
  25180. if thebits = 0 then
  25181. pTDefRegMap(@Self)^.clr := $00002000
  25182. else
  25183. pTDefRegMap(@Self)^.&set := $00002000;
  25184. end;
  25185. function TICAP2_IC2CON.getICSIDL : TBits_1; inline;
  25186. begin
  25187. getICSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  25188. end;
  25189. procedure TICAP2_IC2CON.setw(thebits : TBits_32); inline;
  25190. begin
  25191. pTDefRegMap(@Self)^.val := thebits;
  25192. end;
  25193. function TICAP2_IC2CON.getw : TBits_32; inline;
  25194. begin
  25195. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  25196. end;
  25197. procedure TICAP3_IC3CON.setICM(thebits : TBits_3); inline;
  25198. begin
  25199. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  25200. end;
  25201. function TICAP3_IC3CON.getICM : TBits_3; inline;
  25202. begin
  25203. getICM := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  25204. end;
  25205. procedure TICAP3_IC3CON.setICBNE; inline;
  25206. begin
  25207. pTDefRegMap(@Self)^.&set := $00000008;
  25208. end;
  25209. procedure TICAP3_IC3CON.clearICBNE; inline;
  25210. begin
  25211. pTDefRegMap(@Self)^.clr := $00000008;
  25212. end;
  25213. procedure TICAP3_IC3CON.setICBNE(thebits : TBits_1); inline;
  25214. begin
  25215. if thebits = 0 then
  25216. pTDefRegMap(@Self)^.clr := $00000008
  25217. else
  25218. pTDefRegMap(@Self)^.&set := $00000008;
  25219. end;
  25220. function TICAP3_IC3CON.getICBNE : TBits_1; inline;
  25221. begin
  25222. getICBNE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  25223. end;
  25224. procedure TICAP3_IC3CON.setICOV; inline;
  25225. begin
  25226. pTDefRegMap(@Self)^.&set := $00000010;
  25227. end;
  25228. procedure TICAP3_IC3CON.clearICOV; inline;
  25229. begin
  25230. pTDefRegMap(@Self)^.clr := $00000010;
  25231. end;
  25232. procedure TICAP3_IC3CON.setICOV(thebits : TBits_1); inline;
  25233. begin
  25234. if thebits = 0 then
  25235. pTDefRegMap(@Self)^.clr := $00000010
  25236. else
  25237. pTDefRegMap(@Self)^.&set := $00000010;
  25238. end;
  25239. function TICAP3_IC3CON.getICOV : TBits_1; inline;
  25240. begin
  25241. getICOV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  25242. end;
  25243. procedure TICAP3_IC3CON.setICI(thebits : TBits_2); inline;
  25244. begin
  25245. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF9F or ( thebits shl 5 );
  25246. end;
  25247. function TICAP3_IC3CON.getICI : TBits_2; inline;
  25248. begin
  25249. getICI := (pTDefRegMap(@Self)^.val and $00000060) shr 5;
  25250. end;
  25251. procedure TICAP3_IC3CON.setICTMR; inline;
  25252. begin
  25253. pTDefRegMap(@Self)^.&set := $00000080;
  25254. end;
  25255. procedure TICAP3_IC3CON.clearICTMR; inline;
  25256. begin
  25257. pTDefRegMap(@Self)^.clr := $00000080;
  25258. end;
  25259. procedure TICAP3_IC3CON.setICTMR(thebits : TBits_1); inline;
  25260. begin
  25261. if thebits = 0 then
  25262. pTDefRegMap(@Self)^.clr := $00000080
  25263. else
  25264. pTDefRegMap(@Self)^.&set := $00000080;
  25265. end;
  25266. function TICAP3_IC3CON.getICTMR : TBits_1; inline;
  25267. begin
  25268. getICTMR := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  25269. end;
  25270. procedure TICAP3_IC3CON.setC32; inline;
  25271. begin
  25272. pTDefRegMap(@Self)^.&set := $00000100;
  25273. end;
  25274. procedure TICAP3_IC3CON.clearC32; inline;
  25275. begin
  25276. pTDefRegMap(@Self)^.clr := $00000100;
  25277. end;
  25278. procedure TICAP3_IC3CON.setC32(thebits : TBits_1); inline;
  25279. begin
  25280. if thebits = 0 then
  25281. pTDefRegMap(@Self)^.clr := $00000100
  25282. else
  25283. pTDefRegMap(@Self)^.&set := $00000100;
  25284. end;
  25285. function TICAP3_IC3CON.getC32 : TBits_1; inline;
  25286. begin
  25287. getC32 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  25288. end;
  25289. procedure TICAP3_IC3CON.setFEDGE; inline;
  25290. begin
  25291. pTDefRegMap(@Self)^.&set := $00000200;
  25292. end;
  25293. procedure TICAP3_IC3CON.clearFEDGE; inline;
  25294. begin
  25295. pTDefRegMap(@Self)^.clr := $00000200;
  25296. end;
  25297. procedure TICAP3_IC3CON.setFEDGE(thebits : TBits_1); inline;
  25298. begin
  25299. if thebits = 0 then
  25300. pTDefRegMap(@Self)^.clr := $00000200
  25301. else
  25302. pTDefRegMap(@Self)^.&set := $00000200;
  25303. end;
  25304. function TICAP3_IC3CON.getFEDGE : TBits_1; inline;
  25305. begin
  25306. getFEDGE := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  25307. end;
  25308. procedure TICAP3_IC3CON.setSIDL; inline;
  25309. begin
  25310. pTDefRegMap(@Self)^.&set := $00002000;
  25311. end;
  25312. procedure TICAP3_IC3CON.clearSIDL; inline;
  25313. begin
  25314. pTDefRegMap(@Self)^.clr := $00002000;
  25315. end;
  25316. procedure TICAP3_IC3CON.setSIDL(thebits : TBits_1); inline;
  25317. begin
  25318. if thebits = 0 then
  25319. pTDefRegMap(@Self)^.clr := $00002000
  25320. else
  25321. pTDefRegMap(@Self)^.&set := $00002000;
  25322. end;
  25323. function TICAP3_IC3CON.getSIDL : TBits_1; inline;
  25324. begin
  25325. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  25326. end;
  25327. procedure TICAP3_IC3CON.setON; inline;
  25328. begin
  25329. pTDefRegMap(@Self)^.&set := $00008000;
  25330. end;
  25331. procedure TICAP3_IC3CON.clearON; inline;
  25332. begin
  25333. pTDefRegMap(@Self)^.clr := $00008000;
  25334. end;
  25335. procedure TICAP3_IC3CON.setON(thebits : TBits_1); inline;
  25336. begin
  25337. if thebits = 0 then
  25338. pTDefRegMap(@Self)^.clr := $00008000
  25339. else
  25340. pTDefRegMap(@Self)^.&set := $00008000;
  25341. end;
  25342. function TICAP3_IC3CON.getON : TBits_1; inline;
  25343. begin
  25344. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  25345. end;
  25346. procedure TICAP3_IC3CON.setICM0; inline;
  25347. begin
  25348. pTDefRegMap(@Self)^.&set := $00000001;
  25349. end;
  25350. procedure TICAP3_IC3CON.clearICM0; inline;
  25351. begin
  25352. pTDefRegMap(@Self)^.clr := $00000001;
  25353. end;
  25354. procedure TICAP3_IC3CON.setICM0(thebits : TBits_1); inline;
  25355. begin
  25356. if thebits = 0 then
  25357. pTDefRegMap(@Self)^.clr := $00000001
  25358. else
  25359. pTDefRegMap(@Self)^.&set := $00000001;
  25360. end;
  25361. function TICAP3_IC3CON.getICM0 : TBits_1; inline;
  25362. begin
  25363. getICM0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  25364. end;
  25365. procedure TICAP3_IC3CON.setICM1; inline;
  25366. begin
  25367. pTDefRegMap(@Self)^.&set := $00000002;
  25368. end;
  25369. procedure TICAP3_IC3CON.clearICM1; inline;
  25370. begin
  25371. pTDefRegMap(@Self)^.clr := $00000002;
  25372. end;
  25373. procedure TICAP3_IC3CON.setICM1(thebits : TBits_1); inline;
  25374. begin
  25375. if thebits = 0 then
  25376. pTDefRegMap(@Self)^.clr := $00000002
  25377. else
  25378. pTDefRegMap(@Self)^.&set := $00000002;
  25379. end;
  25380. function TICAP3_IC3CON.getICM1 : TBits_1; inline;
  25381. begin
  25382. getICM1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  25383. end;
  25384. procedure TICAP3_IC3CON.setICM2; inline;
  25385. begin
  25386. pTDefRegMap(@Self)^.&set := $00000004;
  25387. end;
  25388. procedure TICAP3_IC3CON.clearICM2; inline;
  25389. begin
  25390. pTDefRegMap(@Self)^.clr := $00000004;
  25391. end;
  25392. procedure TICAP3_IC3CON.setICM2(thebits : TBits_1); inline;
  25393. begin
  25394. if thebits = 0 then
  25395. pTDefRegMap(@Self)^.clr := $00000004
  25396. else
  25397. pTDefRegMap(@Self)^.&set := $00000004;
  25398. end;
  25399. function TICAP3_IC3CON.getICM2 : TBits_1; inline;
  25400. begin
  25401. getICM2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  25402. end;
  25403. procedure TICAP3_IC3CON.setICI0; inline;
  25404. begin
  25405. pTDefRegMap(@Self)^.&set := $00000020;
  25406. end;
  25407. procedure TICAP3_IC3CON.clearICI0; inline;
  25408. begin
  25409. pTDefRegMap(@Self)^.clr := $00000020;
  25410. end;
  25411. procedure TICAP3_IC3CON.setICI0(thebits : TBits_1); inline;
  25412. begin
  25413. if thebits = 0 then
  25414. pTDefRegMap(@Self)^.clr := $00000020
  25415. else
  25416. pTDefRegMap(@Self)^.&set := $00000020;
  25417. end;
  25418. function TICAP3_IC3CON.getICI0 : TBits_1; inline;
  25419. begin
  25420. getICI0 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  25421. end;
  25422. procedure TICAP3_IC3CON.setICI1; inline;
  25423. begin
  25424. pTDefRegMap(@Self)^.&set := $00000040;
  25425. end;
  25426. procedure TICAP3_IC3CON.clearICI1; inline;
  25427. begin
  25428. pTDefRegMap(@Self)^.clr := $00000040;
  25429. end;
  25430. procedure TICAP3_IC3CON.setICI1(thebits : TBits_1); inline;
  25431. begin
  25432. if thebits = 0 then
  25433. pTDefRegMap(@Self)^.clr := $00000040
  25434. else
  25435. pTDefRegMap(@Self)^.&set := $00000040;
  25436. end;
  25437. function TICAP3_IC3CON.getICI1 : TBits_1; inline;
  25438. begin
  25439. getICI1 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  25440. end;
  25441. procedure TICAP3_IC3CON.setICSIDL; inline;
  25442. begin
  25443. pTDefRegMap(@Self)^.&set := $00002000;
  25444. end;
  25445. procedure TICAP3_IC3CON.clearICSIDL; inline;
  25446. begin
  25447. pTDefRegMap(@Self)^.clr := $00002000;
  25448. end;
  25449. procedure TICAP3_IC3CON.setICSIDL(thebits : TBits_1); inline;
  25450. begin
  25451. if thebits = 0 then
  25452. pTDefRegMap(@Self)^.clr := $00002000
  25453. else
  25454. pTDefRegMap(@Self)^.&set := $00002000;
  25455. end;
  25456. function TICAP3_IC3CON.getICSIDL : TBits_1; inline;
  25457. begin
  25458. getICSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  25459. end;
  25460. procedure TICAP3_IC3CON.setw(thebits : TBits_32); inline;
  25461. begin
  25462. pTDefRegMap(@Self)^.val := thebits;
  25463. end;
  25464. function TICAP3_IC3CON.getw : TBits_32; inline;
  25465. begin
  25466. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  25467. end;
  25468. procedure TICAP4_IC4CON.setICM(thebits : TBits_3); inline;
  25469. begin
  25470. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  25471. end;
  25472. function TICAP4_IC4CON.getICM : TBits_3; inline;
  25473. begin
  25474. getICM := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  25475. end;
  25476. procedure TICAP4_IC4CON.setICBNE; inline;
  25477. begin
  25478. pTDefRegMap(@Self)^.&set := $00000008;
  25479. end;
  25480. procedure TICAP4_IC4CON.clearICBNE; inline;
  25481. begin
  25482. pTDefRegMap(@Self)^.clr := $00000008;
  25483. end;
  25484. procedure TICAP4_IC4CON.setICBNE(thebits : TBits_1); inline;
  25485. begin
  25486. if thebits = 0 then
  25487. pTDefRegMap(@Self)^.clr := $00000008
  25488. else
  25489. pTDefRegMap(@Self)^.&set := $00000008;
  25490. end;
  25491. function TICAP4_IC4CON.getICBNE : TBits_1; inline;
  25492. begin
  25493. getICBNE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  25494. end;
  25495. procedure TICAP4_IC4CON.setICOV; inline;
  25496. begin
  25497. pTDefRegMap(@Self)^.&set := $00000010;
  25498. end;
  25499. procedure TICAP4_IC4CON.clearICOV; inline;
  25500. begin
  25501. pTDefRegMap(@Self)^.clr := $00000010;
  25502. end;
  25503. procedure TICAP4_IC4CON.setICOV(thebits : TBits_1); inline;
  25504. begin
  25505. if thebits = 0 then
  25506. pTDefRegMap(@Self)^.clr := $00000010
  25507. else
  25508. pTDefRegMap(@Self)^.&set := $00000010;
  25509. end;
  25510. function TICAP4_IC4CON.getICOV : TBits_1; inline;
  25511. begin
  25512. getICOV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  25513. end;
  25514. procedure TICAP4_IC4CON.setICI(thebits : TBits_2); inline;
  25515. begin
  25516. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF9F or ( thebits shl 5 );
  25517. end;
  25518. function TICAP4_IC4CON.getICI : TBits_2; inline;
  25519. begin
  25520. getICI := (pTDefRegMap(@Self)^.val and $00000060) shr 5;
  25521. end;
  25522. procedure TICAP4_IC4CON.setICTMR; inline;
  25523. begin
  25524. pTDefRegMap(@Self)^.&set := $00000080;
  25525. end;
  25526. procedure TICAP4_IC4CON.clearICTMR; inline;
  25527. begin
  25528. pTDefRegMap(@Self)^.clr := $00000080;
  25529. end;
  25530. procedure TICAP4_IC4CON.setICTMR(thebits : TBits_1); inline;
  25531. begin
  25532. if thebits = 0 then
  25533. pTDefRegMap(@Self)^.clr := $00000080
  25534. else
  25535. pTDefRegMap(@Self)^.&set := $00000080;
  25536. end;
  25537. function TICAP4_IC4CON.getICTMR : TBits_1; inline;
  25538. begin
  25539. getICTMR := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  25540. end;
  25541. procedure TICAP4_IC4CON.setC32; inline;
  25542. begin
  25543. pTDefRegMap(@Self)^.&set := $00000100;
  25544. end;
  25545. procedure TICAP4_IC4CON.clearC32; inline;
  25546. begin
  25547. pTDefRegMap(@Self)^.clr := $00000100;
  25548. end;
  25549. procedure TICAP4_IC4CON.setC32(thebits : TBits_1); inline;
  25550. begin
  25551. if thebits = 0 then
  25552. pTDefRegMap(@Self)^.clr := $00000100
  25553. else
  25554. pTDefRegMap(@Self)^.&set := $00000100;
  25555. end;
  25556. function TICAP4_IC4CON.getC32 : TBits_1; inline;
  25557. begin
  25558. getC32 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  25559. end;
  25560. procedure TICAP4_IC4CON.setFEDGE; inline;
  25561. begin
  25562. pTDefRegMap(@Self)^.&set := $00000200;
  25563. end;
  25564. procedure TICAP4_IC4CON.clearFEDGE; inline;
  25565. begin
  25566. pTDefRegMap(@Self)^.clr := $00000200;
  25567. end;
  25568. procedure TICAP4_IC4CON.setFEDGE(thebits : TBits_1); inline;
  25569. begin
  25570. if thebits = 0 then
  25571. pTDefRegMap(@Self)^.clr := $00000200
  25572. else
  25573. pTDefRegMap(@Self)^.&set := $00000200;
  25574. end;
  25575. function TICAP4_IC4CON.getFEDGE : TBits_1; inline;
  25576. begin
  25577. getFEDGE := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  25578. end;
  25579. procedure TICAP4_IC4CON.setSIDL; inline;
  25580. begin
  25581. pTDefRegMap(@Self)^.&set := $00002000;
  25582. end;
  25583. procedure TICAP4_IC4CON.clearSIDL; inline;
  25584. begin
  25585. pTDefRegMap(@Self)^.clr := $00002000;
  25586. end;
  25587. procedure TICAP4_IC4CON.setSIDL(thebits : TBits_1); inline;
  25588. begin
  25589. if thebits = 0 then
  25590. pTDefRegMap(@Self)^.clr := $00002000
  25591. else
  25592. pTDefRegMap(@Self)^.&set := $00002000;
  25593. end;
  25594. function TICAP4_IC4CON.getSIDL : TBits_1; inline;
  25595. begin
  25596. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  25597. end;
  25598. procedure TICAP4_IC4CON.setON; inline;
  25599. begin
  25600. pTDefRegMap(@Self)^.&set := $00008000;
  25601. end;
  25602. procedure TICAP4_IC4CON.clearON; inline;
  25603. begin
  25604. pTDefRegMap(@Self)^.clr := $00008000;
  25605. end;
  25606. procedure TICAP4_IC4CON.setON(thebits : TBits_1); inline;
  25607. begin
  25608. if thebits = 0 then
  25609. pTDefRegMap(@Self)^.clr := $00008000
  25610. else
  25611. pTDefRegMap(@Self)^.&set := $00008000;
  25612. end;
  25613. function TICAP4_IC4CON.getON : TBits_1; inline;
  25614. begin
  25615. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  25616. end;
  25617. procedure TICAP4_IC4CON.setICM0; inline;
  25618. begin
  25619. pTDefRegMap(@Self)^.&set := $00000001;
  25620. end;
  25621. procedure TICAP4_IC4CON.clearICM0; inline;
  25622. begin
  25623. pTDefRegMap(@Self)^.clr := $00000001;
  25624. end;
  25625. procedure TICAP4_IC4CON.setICM0(thebits : TBits_1); inline;
  25626. begin
  25627. if thebits = 0 then
  25628. pTDefRegMap(@Self)^.clr := $00000001
  25629. else
  25630. pTDefRegMap(@Self)^.&set := $00000001;
  25631. end;
  25632. function TICAP4_IC4CON.getICM0 : TBits_1; inline;
  25633. begin
  25634. getICM0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  25635. end;
  25636. procedure TICAP4_IC4CON.setICM1; inline;
  25637. begin
  25638. pTDefRegMap(@Self)^.&set := $00000002;
  25639. end;
  25640. procedure TICAP4_IC4CON.clearICM1; inline;
  25641. begin
  25642. pTDefRegMap(@Self)^.clr := $00000002;
  25643. end;
  25644. procedure TICAP4_IC4CON.setICM1(thebits : TBits_1); inline;
  25645. begin
  25646. if thebits = 0 then
  25647. pTDefRegMap(@Self)^.clr := $00000002
  25648. else
  25649. pTDefRegMap(@Self)^.&set := $00000002;
  25650. end;
  25651. function TICAP4_IC4CON.getICM1 : TBits_1; inline;
  25652. begin
  25653. getICM1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  25654. end;
  25655. procedure TICAP4_IC4CON.setICM2; inline;
  25656. begin
  25657. pTDefRegMap(@Self)^.&set := $00000004;
  25658. end;
  25659. procedure TICAP4_IC4CON.clearICM2; inline;
  25660. begin
  25661. pTDefRegMap(@Self)^.clr := $00000004;
  25662. end;
  25663. procedure TICAP4_IC4CON.setICM2(thebits : TBits_1); inline;
  25664. begin
  25665. if thebits = 0 then
  25666. pTDefRegMap(@Self)^.clr := $00000004
  25667. else
  25668. pTDefRegMap(@Self)^.&set := $00000004;
  25669. end;
  25670. function TICAP4_IC4CON.getICM2 : TBits_1; inline;
  25671. begin
  25672. getICM2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  25673. end;
  25674. procedure TICAP4_IC4CON.setICI0; inline;
  25675. begin
  25676. pTDefRegMap(@Self)^.&set := $00000020;
  25677. end;
  25678. procedure TICAP4_IC4CON.clearICI0; inline;
  25679. begin
  25680. pTDefRegMap(@Self)^.clr := $00000020;
  25681. end;
  25682. procedure TICAP4_IC4CON.setICI0(thebits : TBits_1); inline;
  25683. begin
  25684. if thebits = 0 then
  25685. pTDefRegMap(@Self)^.clr := $00000020
  25686. else
  25687. pTDefRegMap(@Self)^.&set := $00000020;
  25688. end;
  25689. function TICAP4_IC4CON.getICI0 : TBits_1; inline;
  25690. begin
  25691. getICI0 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  25692. end;
  25693. procedure TICAP4_IC4CON.setICI1; inline;
  25694. begin
  25695. pTDefRegMap(@Self)^.&set := $00000040;
  25696. end;
  25697. procedure TICAP4_IC4CON.clearICI1; inline;
  25698. begin
  25699. pTDefRegMap(@Self)^.clr := $00000040;
  25700. end;
  25701. procedure TICAP4_IC4CON.setICI1(thebits : TBits_1); inline;
  25702. begin
  25703. if thebits = 0 then
  25704. pTDefRegMap(@Self)^.clr := $00000040
  25705. else
  25706. pTDefRegMap(@Self)^.&set := $00000040;
  25707. end;
  25708. function TICAP4_IC4CON.getICI1 : TBits_1; inline;
  25709. begin
  25710. getICI1 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  25711. end;
  25712. procedure TICAP4_IC4CON.setICSIDL; inline;
  25713. begin
  25714. pTDefRegMap(@Self)^.&set := $00002000;
  25715. end;
  25716. procedure TICAP4_IC4CON.clearICSIDL; inline;
  25717. begin
  25718. pTDefRegMap(@Self)^.clr := $00002000;
  25719. end;
  25720. procedure TICAP4_IC4CON.setICSIDL(thebits : TBits_1); inline;
  25721. begin
  25722. if thebits = 0 then
  25723. pTDefRegMap(@Self)^.clr := $00002000
  25724. else
  25725. pTDefRegMap(@Self)^.&set := $00002000;
  25726. end;
  25727. function TICAP4_IC4CON.getICSIDL : TBits_1; inline;
  25728. begin
  25729. getICSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  25730. end;
  25731. procedure TICAP4_IC4CON.setw(thebits : TBits_32); inline;
  25732. begin
  25733. pTDefRegMap(@Self)^.val := thebits;
  25734. end;
  25735. function TICAP4_IC4CON.getw : TBits_32; inline;
  25736. begin
  25737. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  25738. end;
  25739. procedure TICAP5_IC5CON.setICM(thebits : TBits_3); inline;
  25740. begin
  25741. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  25742. end;
  25743. function TICAP5_IC5CON.getICM : TBits_3; inline;
  25744. begin
  25745. getICM := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  25746. end;
  25747. procedure TICAP5_IC5CON.setICBNE; inline;
  25748. begin
  25749. pTDefRegMap(@Self)^.&set := $00000008;
  25750. end;
  25751. procedure TICAP5_IC5CON.clearICBNE; inline;
  25752. begin
  25753. pTDefRegMap(@Self)^.clr := $00000008;
  25754. end;
  25755. procedure TICAP5_IC5CON.setICBNE(thebits : TBits_1); inline;
  25756. begin
  25757. if thebits = 0 then
  25758. pTDefRegMap(@Self)^.clr := $00000008
  25759. else
  25760. pTDefRegMap(@Self)^.&set := $00000008;
  25761. end;
  25762. function TICAP5_IC5CON.getICBNE : TBits_1; inline;
  25763. begin
  25764. getICBNE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  25765. end;
  25766. procedure TICAP5_IC5CON.setICOV; inline;
  25767. begin
  25768. pTDefRegMap(@Self)^.&set := $00000010;
  25769. end;
  25770. procedure TICAP5_IC5CON.clearICOV; inline;
  25771. begin
  25772. pTDefRegMap(@Self)^.clr := $00000010;
  25773. end;
  25774. procedure TICAP5_IC5CON.setICOV(thebits : TBits_1); inline;
  25775. begin
  25776. if thebits = 0 then
  25777. pTDefRegMap(@Self)^.clr := $00000010
  25778. else
  25779. pTDefRegMap(@Self)^.&set := $00000010;
  25780. end;
  25781. function TICAP5_IC5CON.getICOV : TBits_1; inline;
  25782. begin
  25783. getICOV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  25784. end;
  25785. procedure TICAP5_IC5CON.setICI(thebits : TBits_2); inline;
  25786. begin
  25787. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF9F or ( thebits shl 5 );
  25788. end;
  25789. function TICAP5_IC5CON.getICI : TBits_2; inline;
  25790. begin
  25791. getICI := (pTDefRegMap(@Self)^.val and $00000060) shr 5;
  25792. end;
  25793. procedure TICAP5_IC5CON.setICTMR; inline;
  25794. begin
  25795. pTDefRegMap(@Self)^.&set := $00000080;
  25796. end;
  25797. procedure TICAP5_IC5CON.clearICTMR; inline;
  25798. begin
  25799. pTDefRegMap(@Self)^.clr := $00000080;
  25800. end;
  25801. procedure TICAP5_IC5CON.setICTMR(thebits : TBits_1); inline;
  25802. begin
  25803. if thebits = 0 then
  25804. pTDefRegMap(@Self)^.clr := $00000080
  25805. else
  25806. pTDefRegMap(@Self)^.&set := $00000080;
  25807. end;
  25808. function TICAP5_IC5CON.getICTMR : TBits_1; inline;
  25809. begin
  25810. getICTMR := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  25811. end;
  25812. procedure TICAP5_IC5CON.setC32; inline;
  25813. begin
  25814. pTDefRegMap(@Self)^.&set := $00000100;
  25815. end;
  25816. procedure TICAP5_IC5CON.clearC32; inline;
  25817. begin
  25818. pTDefRegMap(@Self)^.clr := $00000100;
  25819. end;
  25820. procedure TICAP5_IC5CON.setC32(thebits : TBits_1); inline;
  25821. begin
  25822. if thebits = 0 then
  25823. pTDefRegMap(@Self)^.clr := $00000100
  25824. else
  25825. pTDefRegMap(@Self)^.&set := $00000100;
  25826. end;
  25827. function TICAP5_IC5CON.getC32 : TBits_1; inline;
  25828. begin
  25829. getC32 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  25830. end;
  25831. procedure TICAP5_IC5CON.setFEDGE; inline;
  25832. begin
  25833. pTDefRegMap(@Self)^.&set := $00000200;
  25834. end;
  25835. procedure TICAP5_IC5CON.clearFEDGE; inline;
  25836. begin
  25837. pTDefRegMap(@Self)^.clr := $00000200;
  25838. end;
  25839. procedure TICAP5_IC5CON.setFEDGE(thebits : TBits_1); inline;
  25840. begin
  25841. if thebits = 0 then
  25842. pTDefRegMap(@Self)^.clr := $00000200
  25843. else
  25844. pTDefRegMap(@Self)^.&set := $00000200;
  25845. end;
  25846. function TICAP5_IC5CON.getFEDGE : TBits_1; inline;
  25847. begin
  25848. getFEDGE := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  25849. end;
  25850. procedure TICAP5_IC5CON.setSIDL; inline;
  25851. begin
  25852. pTDefRegMap(@Self)^.&set := $00002000;
  25853. end;
  25854. procedure TICAP5_IC5CON.clearSIDL; inline;
  25855. begin
  25856. pTDefRegMap(@Self)^.clr := $00002000;
  25857. end;
  25858. procedure TICAP5_IC5CON.setSIDL(thebits : TBits_1); inline;
  25859. begin
  25860. if thebits = 0 then
  25861. pTDefRegMap(@Self)^.clr := $00002000
  25862. else
  25863. pTDefRegMap(@Self)^.&set := $00002000;
  25864. end;
  25865. function TICAP5_IC5CON.getSIDL : TBits_1; inline;
  25866. begin
  25867. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  25868. end;
  25869. procedure TICAP5_IC5CON.setON; inline;
  25870. begin
  25871. pTDefRegMap(@Self)^.&set := $00008000;
  25872. end;
  25873. procedure TICAP5_IC5CON.clearON; inline;
  25874. begin
  25875. pTDefRegMap(@Self)^.clr := $00008000;
  25876. end;
  25877. procedure TICAP5_IC5CON.setON(thebits : TBits_1); inline;
  25878. begin
  25879. if thebits = 0 then
  25880. pTDefRegMap(@Self)^.clr := $00008000
  25881. else
  25882. pTDefRegMap(@Self)^.&set := $00008000;
  25883. end;
  25884. function TICAP5_IC5CON.getON : TBits_1; inline;
  25885. begin
  25886. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  25887. end;
  25888. procedure TICAP5_IC5CON.setICM0; inline;
  25889. begin
  25890. pTDefRegMap(@Self)^.&set := $00000001;
  25891. end;
  25892. procedure TICAP5_IC5CON.clearICM0; inline;
  25893. begin
  25894. pTDefRegMap(@Self)^.clr := $00000001;
  25895. end;
  25896. procedure TICAP5_IC5CON.setICM0(thebits : TBits_1); inline;
  25897. begin
  25898. if thebits = 0 then
  25899. pTDefRegMap(@Self)^.clr := $00000001
  25900. else
  25901. pTDefRegMap(@Self)^.&set := $00000001;
  25902. end;
  25903. function TICAP5_IC5CON.getICM0 : TBits_1; inline;
  25904. begin
  25905. getICM0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  25906. end;
  25907. procedure TICAP5_IC5CON.setICM1; inline;
  25908. begin
  25909. pTDefRegMap(@Self)^.&set := $00000002;
  25910. end;
  25911. procedure TICAP5_IC5CON.clearICM1; inline;
  25912. begin
  25913. pTDefRegMap(@Self)^.clr := $00000002;
  25914. end;
  25915. procedure TICAP5_IC5CON.setICM1(thebits : TBits_1); inline;
  25916. begin
  25917. if thebits = 0 then
  25918. pTDefRegMap(@Self)^.clr := $00000002
  25919. else
  25920. pTDefRegMap(@Self)^.&set := $00000002;
  25921. end;
  25922. function TICAP5_IC5CON.getICM1 : TBits_1; inline;
  25923. begin
  25924. getICM1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  25925. end;
  25926. procedure TICAP5_IC5CON.setICM2; inline;
  25927. begin
  25928. pTDefRegMap(@Self)^.&set := $00000004;
  25929. end;
  25930. procedure TICAP5_IC5CON.clearICM2; inline;
  25931. begin
  25932. pTDefRegMap(@Self)^.clr := $00000004;
  25933. end;
  25934. procedure TICAP5_IC5CON.setICM2(thebits : TBits_1); inline;
  25935. begin
  25936. if thebits = 0 then
  25937. pTDefRegMap(@Self)^.clr := $00000004
  25938. else
  25939. pTDefRegMap(@Self)^.&set := $00000004;
  25940. end;
  25941. function TICAP5_IC5CON.getICM2 : TBits_1; inline;
  25942. begin
  25943. getICM2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  25944. end;
  25945. procedure TICAP5_IC5CON.setICI0; inline;
  25946. begin
  25947. pTDefRegMap(@Self)^.&set := $00000020;
  25948. end;
  25949. procedure TICAP5_IC5CON.clearICI0; inline;
  25950. begin
  25951. pTDefRegMap(@Self)^.clr := $00000020;
  25952. end;
  25953. procedure TICAP5_IC5CON.setICI0(thebits : TBits_1); inline;
  25954. begin
  25955. if thebits = 0 then
  25956. pTDefRegMap(@Self)^.clr := $00000020
  25957. else
  25958. pTDefRegMap(@Self)^.&set := $00000020;
  25959. end;
  25960. function TICAP5_IC5CON.getICI0 : TBits_1; inline;
  25961. begin
  25962. getICI0 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  25963. end;
  25964. procedure TICAP5_IC5CON.setICI1; inline;
  25965. begin
  25966. pTDefRegMap(@Self)^.&set := $00000040;
  25967. end;
  25968. procedure TICAP5_IC5CON.clearICI1; inline;
  25969. begin
  25970. pTDefRegMap(@Self)^.clr := $00000040;
  25971. end;
  25972. procedure TICAP5_IC5CON.setICI1(thebits : TBits_1); inline;
  25973. begin
  25974. if thebits = 0 then
  25975. pTDefRegMap(@Self)^.clr := $00000040
  25976. else
  25977. pTDefRegMap(@Self)^.&set := $00000040;
  25978. end;
  25979. function TICAP5_IC5CON.getICI1 : TBits_1; inline;
  25980. begin
  25981. getICI1 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  25982. end;
  25983. procedure TICAP5_IC5CON.setICSIDL; inline;
  25984. begin
  25985. pTDefRegMap(@Self)^.&set := $00002000;
  25986. end;
  25987. procedure TICAP5_IC5CON.clearICSIDL; inline;
  25988. begin
  25989. pTDefRegMap(@Self)^.clr := $00002000;
  25990. end;
  25991. procedure TICAP5_IC5CON.setICSIDL(thebits : TBits_1); inline;
  25992. begin
  25993. if thebits = 0 then
  25994. pTDefRegMap(@Self)^.clr := $00002000
  25995. else
  25996. pTDefRegMap(@Self)^.&set := $00002000;
  25997. end;
  25998. function TICAP5_IC5CON.getICSIDL : TBits_1; inline;
  25999. begin
  26000. getICSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  26001. end;
  26002. procedure TICAP5_IC5CON.setw(thebits : TBits_32); inline;
  26003. begin
  26004. pTDefRegMap(@Self)^.val := thebits;
  26005. end;
  26006. function TICAP5_IC5CON.getw : TBits_32; inline;
  26007. begin
  26008. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  26009. end;
  26010. procedure TOCMP1_OC1CON.setOCM(thebits : TBits_3); inline;
  26011. begin
  26012. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  26013. end;
  26014. function TOCMP1_OC1CON.getOCM : TBits_3; inline;
  26015. begin
  26016. getOCM := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  26017. end;
  26018. procedure TOCMP1_OC1CON.setOCTSEL; inline;
  26019. begin
  26020. pTDefRegMap(@Self)^.&set := $00000008;
  26021. end;
  26022. procedure TOCMP1_OC1CON.clearOCTSEL; inline;
  26023. begin
  26024. pTDefRegMap(@Self)^.clr := $00000008;
  26025. end;
  26026. procedure TOCMP1_OC1CON.setOCTSEL(thebits : TBits_1); inline;
  26027. begin
  26028. if thebits = 0 then
  26029. pTDefRegMap(@Self)^.clr := $00000008
  26030. else
  26031. pTDefRegMap(@Self)^.&set := $00000008;
  26032. end;
  26033. function TOCMP1_OC1CON.getOCTSEL : TBits_1; inline;
  26034. begin
  26035. getOCTSEL := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  26036. end;
  26037. procedure TOCMP1_OC1CON.setOCFLT; inline;
  26038. begin
  26039. pTDefRegMap(@Self)^.&set := $00000010;
  26040. end;
  26041. procedure TOCMP1_OC1CON.clearOCFLT; inline;
  26042. begin
  26043. pTDefRegMap(@Self)^.clr := $00000010;
  26044. end;
  26045. procedure TOCMP1_OC1CON.setOCFLT(thebits : TBits_1); inline;
  26046. begin
  26047. if thebits = 0 then
  26048. pTDefRegMap(@Self)^.clr := $00000010
  26049. else
  26050. pTDefRegMap(@Self)^.&set := $00000010;
  26051. end;
  26052. function TOCMP1_OC1CON.getOCFLT : TBits_1; inline;
  26053. begin
  26054. getOCFLT := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  26055. end;
  26056. procedure TOCMP1_OC1CON.setOC32; inline;
  26057. begin
  26058. pTDefRegMap(@Self)^.&set := $00000020;
  26059. end;
  26060. procedure TOCMP1_OC1CON.clearOC32; inline;
  26061. begin
  26062. pTDefRegMap(@Self)^.clr := $00000020;
  26063. end;
  26064. procedure TOCMP1_OC1CON.setOC32(thebits : TBits_1); inline;
  26065. begin
  26066. if thebits = 0 then
  26067. pTDefRegMap(@Self)^.clr := $00000020
  26068. else
  26069. pTDefRegMap(@Self)^.&set := $00000020;
  26070. end;
  26071. function TOCMP1_OC1CON.getOC32 : TBits_1; inline;
  26072. begin
  26073. getOC32 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  26074. end;
  26075. procedure TOCMP1_OC1CON.setSIDL; inline;
  26076. begin
  26077. pTDefRegMap(@Self)^.&set := $00002000;
  26078. end;
  26079. procedure TOCMP1_OC1CON.clearSIDL; inline;
  26080. begin
  26081. pTDefRegMap(@Self)^.clr := $00002000;
  26082. end;
  26083. procedure TOCMP1_OC1CON.setSIDL(thebits : TBits_1); inline;
  26084. begin
  26085. if thebits = 0 then
  26086. pTDefRegMap(@Self)^.clr := $00002000
  26087. else
  26088. pTDefRegMap(@Self)^.&set := $00002000;
  26089. end;
  26090. function TOCMP1_OC1CON.getSIDL : TBits_1; inline;
  26091. begin
  26092. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  26093. end;
  26094. procedure TOCMP1_OC1CON.setON; inline;
  26095. begin
  26096. pTDefRegMap(@Self)^.&set := $00008000;
  26097. end;
  26098. procedure TOCMP1_OC1CON.clearON; inline;
  26099. begin
  26100. pTDefRegMap(@Self)^.clr := $00008000;
  26101. end;
  26102. procedure TOCMP1_OC1CON.setON(thebits : TBits_1); inline;
  26103. begin
  26104. if thebits = 0 then
  26105. pTDefRegMap(@Self)^.clr := $00008000
  26106. else
  26107. pTDefRegMap(@Self)^.&set := $00008000;
  26108. end;
  26109. function TOCMP1_OC1CON.getON : TBits_1; inline;
  26110. begin
  26111. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  26112. end;
  26113. procedure TOCMP1_OC1CON.setOCM0; inline;
  26114. begin
  26115. pTDefRegMap(@Self)^.&set := $00000001;
  26116. end;
  26117. procedure TOCMP1_OC1CON.clearOCM0; inline;
  26118. begin
  26119. pTDefRegMap(@Self)^.clr := $00000001;
  26120. end;
  26121. procedure TOCMP1_OC1CON.setOCM0(thebits : TBits_1); inline;
  26122. begin
  26123. if thebits = 0 then
  26124. pTDefRegMap(@Self)^.clr := $00000001
  26125. else
  26126. pTDefRegMap(@Self)^.&set := $00000001;
  26127. end;
  26128. function TOCMP1_OC1CON.getOCM0 : TBits_1; inline;
  26129. begin
  26130. getOCM0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  26131. end;
  26132. procedure TOCMP1_OC1CON.setOCM1; inline;
  26133. begin
  26134. pTDefRegMap(@Self)^.&set := $00000002;
  26135. end;
  26136. procedure TOCMP1_OC1CON.clearOCM1; inline;
  26137. begin
  26138. pTDefRegMap(@Self)^.clr := $00000002;
  26139. end;
  26140. procedure TOCMP1_OC1CON.setOCM1(thebits : TBits_1); inline;
  26141. begin
  26142. if thebits = 0 then
  26143. pTDefRegMap(@Self)^.clr := $00000002
  26144. else
  26145. pTDefRegMap(@Self)^.&set := $00000002;
  26146. end;
  26147. function TOCMP1_OC1CON.getOCM1 : TBits_1; inline;
  26148. begin
  26149. getOCM1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  26150. end;
  26151. procedure TOCMP1_OC1CON.setOCM2; inline;
  26152. begin
  26153. pTDefRegMap(@Self)^.&set := $00000004;
  26154. end;
  26155. procedure TOCMP1_OC1CON.clearOCM2; inline;
  26156. begin
  26157. pTDefRegMap(@Self)^.clr := $00000004;
  26158. end;
  26159. procedure TOCMP1_OC1CON.setOCM2(thebits : TBits_1); inline;
  26160. begin
  26161. if thebits = 0 then
  26162. pTDefRegMap(@Self)^.clr := $00000004
  26163. else
  26164. pTDefRegMap(@Self)^.&set := $00000004;
  26165. end;
  26166. function TOCMP1_OC1CON.getOCM2 : TBits_1; inline;
  26167. begin
  26168. getOCM2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  26169. end;
  26170. procedure TOCMP1_OC1CON.setOCSIDL; inline;
  26171. begin
  26172. pTDefRegMap(@Self)^.&set := $00002000;
  26173. end;
  26174. procedure TOCMP1_OC1CON.clearOCSIDL; inline;
  26175. begin
  26176. pTDefRegMap(@Self)^.clr := $00002000;
  26177. end;
  26178. procedure TOCMP1_OC1CON.setOCSIDL(thebits : TBits_1); inline;
  26179. begin
  26180. if thebits = 0 then
  26181. pTDefRegMap(@Self)^.clr := $00002000
  26182. else
  26183. pTDefRegMap(@Self)^.&set := $00002000;
  26184. end;
  26185. function TOCMP1_OC1CON.getOCSIDL : TBits_1; inline;
  26186. begin
  26187. getOCSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  26188. end;
  26189. procedure TOCMP1_OC1CON.setw(thebits : TBits_32); inline;
  26190. begin
  26191. pTDefRegMap(@Self)^.val := thebits;
  26192. end;
  26193. function TOCMP1_OC1CON.getw : TBits_32; inline;
  26194. begin
  26195. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  26196. end;
  26197. procedure TOCMP2_OC2CON.setOCM(thebits : TBits_3); inline;
  26198. begin
  26199. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  26200. end;
  26201. function TOCMP2_OC2CON.getOCM : TBits_3; inline;
  26202. begin
  26203. getOCM := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  26204. end;
  26205. procedure TOCMP2_OC2CON.setOCTSEL; inline;
  26206. begin
  26207. pTDefRegMap(@Self)^.&set := $00000008;
  26208. end;
  26209. procedure TOCMP2_OC2CON.clearOCTSEL; inline;
  26210. begin
  26211. pTDefRegMap(@Self)^.clr := $00000008;
  26212. end;
  26213. procedure TOCMP2_OC2CON.setOCTSEL(thebits : TBits_1); inline;
  26214. begin
  26215. if thebits = 0 then
  26216. pTDefRegMap(@Self)^.clr := $00000008
  26217. else
  26218. pTDefRegMap(@Self)^.&set := $00000008;
  26219. end;
  26220. function TOCMP2_OC2CON.getOCTSEL : TBits_1; inline;
  26221. begin
  26222. getOCTSEL := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  26223. end;
  26224. procedure TOCMP2_OC2CON.setOCFLT; inline;
  26225. begin
  26226. pTDefRegMap(@Self)^.&set := $00000010;
  26227. end;
  26228. procedure TOCMP2_OC2CON.clearOCFLT; inline;
  26229. begin
  26230. pTDefRegMap(@Self)^.clr := $00000010;
  26231. end;
  26232. procedure TOCMP2_OC2CON.setOCFLT(thebits : TBits_1); inline;
  26233. begin
  26234. if thebits = 0 then
  26235. pTDefRegMap(@Self)^.clr := $00000010
  26236. else
  26237. pTDefRegMap(@Self)^.&set := $00000010;
  26238. end;
  26239. function TOCMP2_OC2CON.getOCFLT : TBits_1; inline;
  26240. begin
  26241. getOCFLT := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  26242. end;
  26243. procedure TOCMP2_OC2CON.setOC32; inline;
  26244. begin
  26245. pTDefRegMap(@Self)^.&set := $00000020;
  26246. end;
  26247. procedure TOCMP2_OC2CON.clearOC32; inline;
  26248. begin
  26249. pTDefRegMap(@Self)^.clr := $00000020;
  26250. end;
  26251. procedure TOCMP2_OC2CON.setOC32(thebits : TBits_1); inline;
  26252. begin
  26253. if thebits = 0 then
  26254. pTDefRegMap(@Self)^.clr := $00000020
  26255. else
  26256. pTDefRegMap(@Self)^.&set := $00000020;
  26257. end;
  26258. function TOCMP2_OC2CON.getOC32 : TBits_1; inline;
  26259. begin
  26260. getOC32 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  26261. end;
  26262. procedure TOCMP2_OC2CON.setSIDL; inline;
  26263. begin
  26264. pTDefRegMap(@Self)^.&set := $00002000;
  26265. end;
  26266. procedure TOCMP2_OC2CON.clearSIDL; inline;
  26267. begin
  26268. pTDefRegMap(@Self)^.clr := $00002000;
  26269. end;
  26270. procedure TOCMP2_OC2CON.setSIDL(thebits : TBits_1); inline;
  26271. begin
  26272. if thebits = 0 then
  26273. pTDefRegMap(@Self)^.clr := $00002000
  26274. else
  26275. pTDefRegMap(@Self)^.&set := $00002000;
  26276. end;
  26277. function TOCMP2_OC2CON.getSIDL : TBits_1; inline;
  26278. begin
  26279. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  26280. end;
  26281. procedure TOCMP2_OC2CON.setON; inline;
  26282. begin
  26283. pTDefRegMap(@Self)^.&set := $00008000;
  26284. end;
  26285. procedure TOCMP2_OC2CON.clearON; inline;
  26286. begin
  26287. pTDefRegMap(@Self)^.clr := $00008000;
  26288. end;
  26289. procedure TOCMP2_OC2CON.setON(thebits : TBits_1); inline;
  26290. begin
  26291. if thebits = 0 then
  26292. pTDefRegMap(@Self)^.clr := $00008000
  26293. else
  26294. pTDefRegMap(@Self)^.&set := $00008000;
  26295. end;
  26296. function TOCMP2_OC2CON.getON : TBits_1; inline;
  26297. begin
  26298. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  26299. end;
  26300. procedure TOCMP2_OC2CON.setOCM0; inline;
  26301. begin
  26302. pTDefRegMap(@Self)^.&set := $00000001;
  26303. end;
  26304. procedure TOCMP2_OC2CON.clearOCM0; inline;
  26305. begin
  26306. pTDefRegMap(@Self)^.clr := $00000001;
  26307. end;
  26308. procedure TOCMP2_OC2CON.setOCM0(thebits : TBits_1); inline;
  26309. begin
  26310. if thebits = 0 then
  26311. pTDefRegMap(@Self)^.clr := $00000001
  26312. else
  26313. pTDefRegMap(@Self)^.&set := $00000001;
  26314. end;
  26315. function TOCMP2_OC2CON.getOCM0 : TBits_1; inline;
  26316. begin
  26317. getOCM0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  26318. end;
  26319. procedure TOCMP2_OC2CON.setOCM1; inline;
  26320. begin
  26321. pTDefRegMap(@Self)^.&set := $00000002;
  26322. end;
  26323. procedure TOCMP2_OC2CON.clearOCM1; inline;
  26324. begin
  26325. pTDefRegMap(@Self)^.clr := $00000002;
  26326. end;
  26327. procedure TOCMP2_OC2CON.setOCM1(thebits : TBits_1); inline;
  26328. begin
  26329. if thebits = 0 then
  26330. pTDefRegMap(@Self)^.clr := $00000002
  26331. else
  26332. pTDefRegMap(@Self)^.&set := $00000002;
  26333. end;
  26334. function TOCMP2_OC2CON.getOCM1 : TBits_1; inline;
  26335. begin
  26336. getOCM1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  26337. end;
  26338. procedure TOCMP2_OC2CON.setOCM2; inline;
  26339. begin
  26340. pTDefRegMap(@Self)^.&set := $00000004;
  26341. end;
  26342. procedure TOCMP2_OC2CON.clearOCM2; inline;
  26343. begin
  26344. pTDefRegMap(@Self)^.clr := $00000004;
  26345. end;
  26346. procedure TOCMP2_OC2CON.setOCM2(thebits : TBits_1); inline;
  26347. begin
  26348. if thebits = 0 then
  26349. pTDefRegMap(@Self)^.clr := $00000004
  26350. else
  26351. pTDefRegMap(@Self)^.&set := $00000004;
  26352. end;
  26353. function TOCMP2_OC2CON.getOCM2 : TBits_1; inline;
  26354. begin
  26355. getOCM2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  26356. end;
  26357. procedure TOCMP2_OC2CON.setOCSIDL; inline;
  26358. begin
  26359. pTDefRegMap(@Self)^.&set := $00002000;
  26360. end;
  26361. procedure TOCMP2_OC2CON.clearOCSIDL; inline;
  26362. begin
  26363. pTDefRegMap(@Self)^.clr := $00002000;
  26364. end;
  26365. procedure TOCMP2_OC2CON.setOCSIDL(thebits : TBits_1); inline;
  26366. begin
  26367. if thebits = 0 then
  26368. pTDefRegMap(@Self)^.clr := $00002000
  26369. else
  26370. pTDefRegMap(@Self)^.&set := $00002000;
  26371. end;
  26372. function TOCMP2_OC2CON.getOCSIDL : TBits_1; inline;
  26373. begin
  26374. getOCSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  26375. end;
  26376. procedure TOCMP2_OC2CON.setw(thebits : TBits_32); inline;
  26377. begin
  26378. pTDefRegMap(@Self)^.val := thebits;
  26379. end;
  26380. function TOCMP2_OC2CON.getw : TBits_32; inline;
  26381. begin
  26382. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  26383. end;
  26384. procedure TOCMP3_OC3CON.setOCM(thebits : TBits_3); inline;
  26385. begin
  26386. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  26387. end;
  26388. function TOCMP3_OC3CON.getOCM : TBits_3; inline;
  26389. begin
  26390. getOCM := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  26391. end;
  26392. procedure TOCMP3_OC3CON.setOCTSEL; inline;
  26393. begin
  26394. pTDefRegMap(@Self)^.&set := $00000008;
  26395. end;
  26396. procedure TOCMP3_OC3CON.clearOCTSEL; inline;
  26397. begin
  26398. pTDefRegMap(@Self)^.clr := $00000008;
  26399. end;
  26400. procedure TOCMP3_OC3CON.setOCTSEL(thebits : TBits_1); inline;
  26401. begin
  26402. if thebits = 0 then
  26403. pTDefRegMap(@Self)^.clr := $00000008
  26404. else
  26405. pTDefRegMap(@Self)^.&set := $00000008;
  26406. end;
  26407. function TOCMP3_OC3CON.getOCTSEL : TBits_1; inline;
  26408. begin
  26409. getOCTSEL := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  26410. end;
  26411. procedure TOCMP3_OC3CON.setOCFLT; inline;
  26412. begin
  26413. pTDefRegMap(@Self)^.&set := $00000010;
  26414. end;
  26415. procedure TOCMP3_OC3CON.clearOCFLT; inline;
  26416. begin
  26417. pTDefRegMap(@Self)^.clr := $00000010;
  26418. end;
  26419. procedure TOCMP3_OC3CON.setOCFLT(thebits : TBits_1); inline;
  26420. begin
  26421. if thebits = 0 then
  26422. pTDefRegMap(@Self)^.clr := $00000010
  26423. else
  26424. pTDefRegMap(@Self)^.&set := $00000010;
  26425. end;
  26426. function TOCMP3_OC3CON.getOCFLT : TBits_1; inline;
  26427. begin
  26428. getOCFLT := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  26429. end;
  26430. procedure TOCMP3_OC3CON.setOC32; inline;
  26431. begin
  26432. pTDefRegMap(@Self)^.&set := $00000020;
  26433. end;
  26434. procedure TOCMP3_OC3CON.clearOC32; inline;
  26435. begin
  26436. pTDefRegMap(@Self)^.clr := $00000020;
  26437. end;
  26438. procedure TOCMP3_OC3CON.setOC32(thebits : TBits_1); inline;
  26439. begin
  26440. if thebits = 0 then
  26441. pTDefRegMap(@Self)^.clr := $00000020
  26442. else
  26443. pTDefRegMap(@Self)^.&set := $00000020;
  26444. end;
  26445. function TOCMP3_OC3CON.getOC32 : TBits_1; inline;
  26446. begin
  26447. getOC32 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  26448. end;
  26449. procedure TOCMP3_OC3CON.setSIDL; inline;
  26450. begin
  26451. pTDefRegMap(@Self)^.&set := $00002000;
  26452. end;
  26453. procedure TOCMP3_OC3CON.clearSIDL; inline;
  26454. begin
  26455. pTDefRegMap(@Self)^.clr := $00002000;
  26456. end;
  26457. procedure TOCMP3_OC3CON.setSIDL(thebits : TBits_1); inline;
  26458. begin
  26459. if thebits = 0 then
  26460. pTDefRegMap(@Self)^.clr := $00002000
  26461. else
  26462. pTDefRegMap(@Self)^.&set := $00002000;
  26463. end;
  26464. function TOCMP3_OC3CON.getSIDL : TBits_1; inline;
  26465. begin
  26466. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  26467. end;
  26468. procedure TOCMP3_OC3CON.setON; inline;
  26469. begin
  26470. pTDefRegMap(@Self)^.&set := $00008000;
  26471. end;
  26472. procedure TOCMP3_OC3CON.clearON; inline;
  26473. begin
  26474. pTDefRegMap(@Self)^.clr := $00008000;
  26475. end;
  26476. procedure TOCMP3_OC3CON.setON(thebits : TBits_1); inline;
  26477. begin
  26478. if thebits = 0 then
  26479. pTDefRegMap(@Self)^.clr := $00008000
  26480. else
  26481. pTDefRegMap(@Self)^.&set := $00008000;
  26482. end;
  26483. function TOCMP3_OC3CON.getON : TBits_1; inline;
  26484. begin
  26485. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  26486. end;
  26487. procedure TOCMP3_OC3CON.setOCM0; inline;
  26488. begin
  26489. pTDefRegMap(@Self)^.&set := $00000001;
  26490. end;
  26491. procedure TOCMP3_OC3CON.clearOCM0; inline;
  26492. begin
  26493. pTDefRegMap(@Self)^.clr := $00000001;
  26494. end;
  26495. procedure TOCMP3_OC3CON.setOCM0(thebits : TBits_1); inline;
  26496. begin
  26497. if thebits = 0 then
  26498. pTDefRegMap(@Self)^.clr := $00000001
  26499. else
  26500. pTDefRegMap(@Self)^.&set := $00000001;
  26501. end;
  26502. function TOCMP3_OC3CON.getOCM0 : TBits_1; inline;
  26503. begin
  26504. getOCM0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  26505. end;
  26506. procedure TOCMP3_OC3CON.setOCM1; inline;
  26507. begin
  26508. pTDefRegMap(@Self)^.&set := $00000002;
  26509. end;
  26510. procedure TOCMP3_OC3CON.clearOCM1; inline;
  26511. begin
  26512. pTDefRegMap(@Self)^.clr := $00000002;
  26513. end;
  26514. procedure TOCMP3_OC3CON.setOCM1(thebits : TBits_1); inline;
  26515. begin
  26516. if thebits = 0 then
  26517. pTDefRegMap(@Self)^.clr := $00000002
  26518. else
  26519. pTDefRegMap(@Self)^.&set := $00000002;
  26520. end;
  26521. function TOCMP3_OC3CON.getOCM1 : TBits_1; inline;
  26522. begin
  26523. getOCM1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  26524. end;
  26525. procedure TOCMP3_OC3CON.setOCM2; inline;
  26526. begin
  26527. pTDefRegMap(@Self)^.&set := $00000004;
  26528. end;
  26529. procedure TOCMP3_OC3CON.clearOCM2; inline;
  26530. begin
  26531. pTDefRegMap(@Self)^.clr := $00000004;
  26532. end;
  26533. procedure TOCMP3_OC3CON.setOCM2(thebits : TBits_1); inline;
  26534. begin
  26535. if thebits = 0 then
  26536. pTDefRegMap(@Self)^.clr := $00000004
  26537. else
  26538. pTDefRegMap(@Self)^.&set := $00000004;
  26539. end;
  26540. function TOCMP3_OC3CON.getOCM2 : TBits_1; inline;
  26541. begin
  26542. getOCM2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  26543. end;
  26544. procedure TOCMP3_OC3CON.setOCSIDL; inline;
  26545. begin
  26546. pTDefRegMap(@Self)^.&set := $00002000;
  26547. end;
  26548. procedure TOCMP3_OC3CON.clearOCSIDL; inline;
  26549. begin
  26550. pTDefRegMap(@Self)^.clr := $00002000;
  26551. end;
  26552. procedure TOCMP3_OC3CON.setOCSIDL(thebits : TBits_1); inline;
  26553. begin
  26554. if thebits = 0 then
  26555. pTDefRegMap(@Self)^.clr := $00002000
  26556. else
  26557. pTDefRegMap(@Self)^.&set := $00002000;
  26558. end;
  26559. function TOCMP3_OC3CON.getOCSIDL : TBits_1; inline;
  26560. begin
  26561. getOCSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  26562. end;
  26563. procedure TOCMP3_OC3CON.setw(thebits : TBits_32); inline;
  26564. begin
  26565. pTDefRegMap(@Self)^.val := thebits;
  26566. end;
  26567. function TOCMP3_OC3CON.getw : TBits_32; inline;
  26568. begin
  26569. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  26570. end;
  26571. procedure TOCMP4_OC4CON.setOCM(thebits : TBits_3); inline;
  26572. begin
  26573. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  26574. end;
  26575. function TOCMP4_OC4CON.getOCM : TBits_3; inline;
  26576. begin
  26577. getOCM := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  26578. end;
  26579. procedure TOCMP4_OC4CON.setOCTSEL; inline;
  26580. begin
  26581. pTDefRegMap(@Self)^.&set := $00000008;
  26582. end;
  26583. procedure TOCMP4_OC4CON.clearOCTSEL; inline;
  26584. begin
  26585. pTDefRegMap(@Self)^.clr := $00000008;
  26586. end;
  26587. procedure TOCMP4_OC4CON.setOCTSEL(thebits : TBits_1); inline;
  26588. begin
  26589. if thebits = 0 then
  26590. pTDefRegMap(@Self)^.clr := $00000008
  26591. else
  26592. pTDefRegMap(@Self)^.&set := $00000008;
  26593. end;
  26594. function TOCMP4_OC4CON.getOCTSEL : TBits_1; inline;
  26595. begin
  26596. getOCTSEL := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  26597. end;
  26598. procedure TOCMP4_OC4CON.setOCFLT; inline;
  26599. begin
  26600. pTDefRegMap(@Self)^.&set := $00000010;
  26601. end;
  26602. procedure TOCMP4_OC4CON.clearOCFLT; inline;
  26603. begin
  26604. pTDefRegMap(@Self)^.clr := $00000010;
  26605. end;
  26606. procedure TOCMP4_OC4CON.setOCFLT(thebits : TBits_1); inline;
  26607. begin
  26608. if thebits = 0 then
  26609. pTDefRegMap(@Self)^.clr := $00000010
  26610. else
  26611. pTDefRegMap(@Self)^.&set := $00000010;
  26612. end;
  26613. function TOCMP4_OC4CON.getOCFLT : TBits_1; inline;
  26614. begin
  26615. getOCFLT := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  26616. end;
  26617. procedure TOCMP4_OC4CON.setOC32; inline;
  26618. begin
  26619. pTDefRegMap(@Self)^.&set := $00000020;
  26620. end;
  26621. procedure TOCMP4_OC4CON.clearOC32; inline;
  26622. begin
  26623. pTDefRegMap(@Self)^.clr := $00000020;
  26624. end;
  26625. procedure TOCMP4_OC4CON.setOC32(thebits : TBits_1); inline;
  26626. begin
  26627. if thebits = 0 then
  26628. pTDefRegMap(@Self)^.clr := $00000020
  26629. else
  26630. pTDefRegMap(@Self)^.&set := $00000020;
  26631. end;
  26632. function TOCMP4_OC4CON.getOC32 : TBits_1; inline;
  26633. begin
  26634. getOC32 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  26635. end;
  26636. procedure TOCMP4_OC4CON.setSIDL; inline;
  26637. begin
  26638. pTDefRegMap(@Self)^.&set := $00002000;
  26639. end;
  26640. procedure TOCMP4_OC4CON.clearSIDL; inline;
  26641. begin
  26642. pTDefRegMap(@Self)^.clr := $00002000;
  26643. end;
  26644. procedure TOCMP4_OC4CON.setSIDL(thebits : TBits_1); inline;
  26645. begin
  26646. if thebits = 0 then
  26647. pTDefRegMap(@Self)^.clr := $00002000
  26648. else
  26649. pTDefRegMap(@Self)^.&set := $00002000;
  26650. end;
  26651. function TOCMP4_OC4CON.getSIDL : TBits_1; inline;
  26652. begin
  26653. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  26654. end;
  26655. procedure TOCMP4_OC4CON.setON; inline;
  26656. begin
  26657. pTDefRegMap(@Self)^.&set := $00008000;
  26658. end;
  26659. procedure TOCMP4_OC4CON.clearON; inline;
  26660. begin
  26661. pTDefRegMap(@Self)^.clr := $00008000;
  26662. end;
  26663. procedure TOCMP4_OC4CON.setON(thebits : TBits_1); inline;
  26664. begin
  26665. if thebits = 0 then
  26666. pTDefRegMap(@Self)^.clr := $00008000
  26667. else
  26668. pTDefRegMap(@Self)^.&set := $00008000;
  26669. end;
  26670. function TOCMP4_OC4CON.getON : TBits_1; inline;
  26671. begin
  26672. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  26673. end;
  26674. procedure TOCMP4_OC4CON.setOCM0; inline;
  26675. begin
  26676. pTDefRegMap(@Self)^.&set := $00000001;
  26677. end;
  26678. procedure TOCMP4_OC4CON.clearOCM0; inline;
  26679. begin
  26680. pTDefRegMap(@Self)^.clr := $00000001;
  26681. end;
  26682. procedure TOCMP4_OC4CON.setOCM0(thebits : TBits_1); inline;
  26683. begin
  26684. if thebits = 0 then
  26685. pTDefRegMap(@Self)^.clr := $00000001
  26686. else
  26687. pTDefRegMap(@Self)^.&set := $00000001;
  26688. end;
  26689. function TOCMP4_OC4CON.getOCM0 : TBits_1; inline;
  26690. begin
  26691. getOCM0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  26692. end;
  26693. procedure TOCMP4_OC4CON.setOCM1; inline;
  26694. begin
  26695. pTDefRegMap(@Self)^.&set := $00000002;
  26696. end;
  26697. procedure TOCMP4_OC4CON.clearOCM1; inline;
  26698. begin
  26699. pTDefRegMap(@Self)^.clr := $00000002;
  26700. end;
  26701. procedure TOCMP4_OC4CON.setOCM1(thebits : TBits_1); inline;
  26702. begin
  26703. if thebits = 0 then
  26704. pTDefRegMap(@Self)^.clr := $00000002
  26705. else
  26706. pTDefRegMap(@Self)^.&set := $00000002;
  26707. end;
  26708. function TOCMP4_OC4CON.getOCM1 : TBits_1; inline;
  26709. begin
  26710. getOCM1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  26711. end;
  26712. procedure TOCMP4_OC4CON.setOCM2; inline;
  26713. begin
  26714. pTDefRegMap(@Self)^.&set := $00000004;
  26715. end;
  26716. procedure TOCMP4_OC4CON.clearOCM2; inline;
  26717. begin
  26718. pTDefRegMap(@Self)^.clr := $00000004;
  26719. end;
  26720. procedure TOCMP4_OC4CON.setOCM2(thebits : TBits_1); inline;
  26721. begin
  26722. if thebits = 0 then
  26723. pTDefRegMap(@Self)^.clr := $00000004
  26724. else
  26725. pTDefRegMap(@Self)^.&set := $00000004;
  26726. end;
  26727. function TOCMP4_OC4CON.getOCM2 : TBits_1; inline;
  26728. begin
  26729. getOCM2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  26730. end;
  26731. procedure TOCMP4_OC4CON.setOCSIDL; inline;
  26732. begin
  26733. pTDefRegMap(@Self)^.&set := $00002000;
  26734. end;
  26735. procedure TOCMP4_OC4CON.clearOCSIDL; inline;
  26736. begin
  26737. pTDefRegMap(@Self)^.clr := $00002000;
  26738. end;
  26739. procedure TOCMP4_OC4CON.setOCSIDL(thebits : TBits_1); inline;
  26740. begin
  26741. if thebits = 0 then
  26742. pTDefRegMap(@Self)^.clr := $00002000
  26743. else
  26744. pTDefRegMap(@Self)^.&set := $00002000;
  26745. end;
  26746. function TOCMP4_OC4CON.getOCSIDL : TBits_1; inline;
  26747. begin
  26748. getOCSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  26749. end;
  26750. procedure TOCMP4_OC4CON.setw(thebits : TBits_32); inline;
  26751. begin
  26752. pTDefRegMap(@Self)^.val := thebits;
  26753. end;
  26754. function TOCMP4_OC4CON.getw : TBits_32; inline;
  26755. begin
  26756. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  26757. end;
  26758. procedure TOCMP5_OC5CON.setOCM(thebits : TBits_3); inline;
  26759. begin
  26760. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  26761. end;
  26762. function TOCMP5_OC5CON.getOCM : TBits_3; inline;
  26763. begin
  26764. getOCM := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  26765. end;
  26766. procedure TOCMP5_OC5CON.setOCTSEL; inline;
  26767. begin
  26768. pTDefRegMap(@Self)^.&set := $00000008;
  26769. end;
  26770. procedure TOCMP5_OC5CON.clearOCTSEL; inline;
  26771. begin
  26772. pTDefRegMap(@Self)^.clr := $00000008;
  26773. end;
  26774. procedure TOCMP5_OC5CON.setOCTSEL(thebits : TBits_1); inline;
  26775. begin
  26776. if thebits = 0 then
  26777. pTDefRegMap(@Self)^.clr := $00000008
  26778. else
  26779. pTDefRegMap(@Self)^.&set := $00000008;
  26780. end;
  26781. function TOCMP5_OC5CON.getOCTSEL : TBits_1; inline;
  26782. begin
  26783. getOCTSEL := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  26784. end;
  26785. procedure TOCMP5_OC5CON.setOCFLT; inline;
  26786. begin
  26787. pTDefRegMap(@Self)^.&set := $00000010;
  26788. end;
  26789. procedure TOCMP5_OC5CON.clearOCFLT; inline;
  26790. begin
  26791. pTDefRegMap(@Self)^.clr := $00000010;
  26792. end;
  26793. procedure TOCMP5_OC5CON.setOCFLT(thebits : TBits_1); inline;
  26794. begin
  26795. if thebits = 0 then
  26796. pTDefRegMap(@Self)^.clr := $00000010
  26797. else
  26798. pTDefRegMap(@Self)^.&set := $00000010;
  26799. end;
  26800. function TOCMP5_OC5CON.getOCFLT : TBits_1; inline;
  26801. begin
  26802. getOCFLT := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  26803. end;
  26804. procedure TOCMP5_OC5CON.setOC32; inline;
  26805. begin
  26806. pTDefRegMap(@Self)^.&set := $00000020;
  26807. end;
  26808. procedure TOCMP5_OC5CON.clearOC32; inline;
  26809. begin
  26810. pTDefRegMap(@Self)^.clr := $00000020;
  26811. end;
  26812. procedure TOCMP5_OC5CON.setOC32(thebits : TBits_1); inline;
  26813. begin
  26814. if thebits = 0 then
  26815. pTDefRegMap(@Self)^.clr := $00000020
  26816. else
  26817. pTDefRegMap(@Self)^.&set := $00000020;
  26818. end;
  26819. function TOCMP5_OC5CON.getOC32 : TBits_1; inline;
  26820. begin
  26821. getOC32 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  26822. end;
  26823. procedure TOCMP5_OC5CON.setSIDL; inline;
  26824. begin
  26825. pTDefRegMap(@Self)^.&set := $00002000;
  26826. end;
  26827. procedure TOCMP5_OC5CON.clearSIDL; inline;
  26828. begin
  26829. pTDefRegMap(@Self)^.clr := $00002000;
  26830. end;
  26831. procedure TOCMP5_OC5CON.setSIDL(thebits : TBits_1); inline;
  26832. begin
  26833. if thebits = 0 then
  26834. pTDefRegMap(@Self)^.clr := $00002000
  26835. else
  26836. pTDefRegMap(@Self)^.&set := $00002000;
  26837. end;
  26838. function TOCMP5_OC5CON.getSIDL : TBits_1; inline;
  26839. begin
  26840. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  26841. end;
  26842. procedure TOCMP5_OC5CON.setON; inline;
  26843. begin
  26844. pTDefRegMap(@Self)^.&set := $00008000;
  26845. end;
  26846. procedure TOCMP5_OC5CON.clearON; inline;
  26847. begin
  26848. pTDefRegMap(@Self)^.clr := $00008000;
  26849. end;
  26850. procedure TOCMP5_OC5CON.setON(thebits : TBits_1); inline;
  26851. begin
  26852. if thebits = 0 then
  26853. pTDefRegMap(@Self)^.clr := $00008000
  26854. else
  26855. pTDefRegMap(@Self)^.&set := $00008000;
  26856. end;
  26857. function TOCMP5_OC5CON.getON : TBits_1; inline;
  26858. begin
  26859. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  26860. end;
  26861. procedure TOCMP5_OC5CON.setOCM0; inline;
  26862. begin
  26863. pTDefRegMap(@Self)^.&set := $00000001;
  26864. end;
  26865. procedure TOCMP5_OC5CON.clearOCM0; inline;
  26866. begin
  26867. pTDefRegMap(@Self)^.clr := $00000001;
  26868. end;
  26869. procedure TOCMP5_OC5CON.setOCM0(thebits : TBits_1); inline;
  26870. begin
  26871. if thebits = 0 then
  26872. pTDefRegMap(@Self)^.clr := $00000001
  26873. else
  26874. pTDefRegMap(@Self)^.&set := $00000001;
  26875. end;
  26876. function TOCMP5_OC5CON.getOCM0 : TBits_1; inline;
  26877. begin
  26878. getOCM0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  26879. end;
  26880. procedure TOCMP5_OC5CON.setOCM1; inline;
  26881. begin
  26882. pTDefRegMap(@Self)^.&set := $00000002;
  26883. end;
  26884. procedure TOCMP5_OC5CON.clearOCM1; inline;
  26885. begin
  26886. pTDefRegMap(@Self)^.clr := $00000002;
  26887. end;
  26888. procedure TOCMP5_OC5CON.setOCM1(thebits : TBits_1); inline;
  26889. begin
  26890. if thebits = 0 then
  26891. pTDefRegMap(@Self)^.clr := $00000002
  26892. else
  26893. pTDefRegMap(@Self)^.&set := $00000002;
  26894. end;
  26895. function TOCMP5_OC5CON.getOCM1 : TBits_1; inline;
  26896. begin
  26897. getOCM1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  26898. end;
  26899. procedure TOCMP5_OC5CON.setOCM2; inline;
  26900. begin
  26901. pTDefRegMap(@Self)^.&set := $00000004;
  26902. end;
  26903. procedure TOCMP5_OC5CON.clearOCM2; inline;
  26904. begin
  26905. pTDefRegMap(@Self)^.clr := $00000004;
  26906. end;
  26907. procedure TOCMP5_OC5CON.setOCM2(thebits : TBits_1); inline;
  26908. begin
  26909. if thebits = 0 then
  26910. pTDefRegMap(@Self)^.clr := $00000004
  26911. else
  26912. pTDefRegMap(@Self)^.&set := $00000004;
  26913. end;
  26914. function TOCMP5_OC5CON.getOCM2 : TBits_1; inline;
  26915. begin
  26916. getOCM2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  26917. end;
  26918. procedure TOCMP5_OC5CON.setOCSIDL; inline;
  26919. begin
  26920. pTDefRegMap(@Self)^.&set := $00002000;
  26921. end;
  26922. procedure TOCMP5_OC5CON.clearOCSIDL; inline;
  26923. begin
  26924. pTDefRegMap(@Self)^.clr := $00002000;
  26925. end;
  26926. procedure TOCMP5_OC5CON.setOCSIDL(thebits : TBits_1); inline;
  26927. begin
  26928. if thebits = 0 then
  26929. pTDefRegMap(@Self)^.clr := $00002000
  26930. else
  26931. pTDefRegMap(@Self)^.&set := $00002000;
  26932. end;
  26933. function TOCMP5_OC5CON.getOCSIDL : TBits_1; inline;
  26934. begin
  26935. getOCSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  26936. end;
  26937. procedure TOCMP5_OC5CON.setw(thebits : TBits_32); inline;
  26938. begin
  26939. pTDefRegMap(@Self)^.val := thebits;
  26940. end;
  26941. function TOCMP5_OC5CON.getw : TBits_32; inline;
  26942. begin
  26943. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  26944. end;
  26945. procedure TI2C3_I2C1ACON.setSEN; inline;
  26946. begin
  26947. pTDefRegMap(@Self)^.&set := $00000001;
  26948. end;
  26949. procedure TI2C3_I2C1ACON.clearSEN; inline;
  26950. begin
  26951. pTDefRegMap(@Self)^.clr := $00000001;
  26952. end;
  26953. procedure TI2C3_I2C1ACON.setSEN(thebits : TBits_1); inline;
  26954. begin
  26955. if thebits = 0 then
  26956. pTDefRegMap(@Self)^.clr := $00000001
  26957. else
  26958. pTDefRegMap(@Self)^.&set := $00000001;
  26959. end;
  26960. function TI2C3_I2C1ACON.getSEN : TBits_1; inline;
  26961. begin
  26962. getSEN := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  26963. end;
  26964. procedure TI2C3_I2C1ACON.setRSEN; inline;
  26965. begin
  26966. pTDefRegMap(@Self)^.&set := $00000002;
  26967. end;
  26968. procedure TI2C3_I2C1ACON.clearRSEN; inline;
  26969. begin
  26970. pTDefRegMap(@Self)^.clr := $00000002;
  26971. end;
  26972. procedure TI2C3_I2C1ACON.setRSEN(thebits : TBits_1); inline;
  26973. begin
  26974. if thebits = 0 then
  26975. pTDefRegMap(@Self)^.clr := $00000002
  26976. else
  26977. pTDefRegMap(@Self)^.&set := $00000002;
  26978. end;
  26979. function TI2C3_I2C1ACON.getRSEN : TBits_1; inline;
  26980. begin
  26981. getRSEN := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  26982. end;
  26983. procedure TI2C3_I2C1ACON.setPEN; inline;
  26984. begin
  26985. pTDefRegMap(@Self)^.&set := $00000004;
  26986. end;
  26987. procedure TI2C3_I2C1ACON.clearPEN; inline;
  26988. begin
  26989. pTDefRegMap(@Self)^.clr := $00000004;
  26990. end;
  26991. procedure TI2C3_I2C1ACON.setPEN(thebits : TBits_1); inline;
  26992. begin
  26993. if thebits = 0 then
  26994. pTDefRegMap(@Self)^.clr := $00000004
  26995. else
  26996. pTDefRegMap(@Self)^.&set := $00000004;
  26997. end;
  26998. function TI2C3_I2C1ACON.getPEN : TBits_1; inline;
  26999. begin
  27000. getPEN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  27001. end;
  27002. procedure TI2C3_I2C1ACON.setRCEN; inline;
  27003. begin
  27004. pTDefRegMap(@Self)^.&set := $00000008;
  27005. end;
  27006. procedure TI2C3_I2C1ACON.clearRCEN; inline;
  27007. begin
  27008. pTDefRegMap(@Self)^.clr := $00000008;
  27009. end;
  27010. procedure TI2C3_I2C1ACON.setRCEN(thebits : TBits_1); inline;
  27011. begin
  27012. if thebits = 0 then
  27013. pTDefRegMap(@Self)^.clr := $00000008
  27014. else
  27015. pTDefRegMap(@Self)^.&set := $00000008;
  27016. end;
  27017. function TI2C3_I2C1ACON.getRCEN : TBits_1; inline;
  27018. begin
  27019. getRCEN := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  27020. end;
  27021. procedure TI2C3_I2C1ACON.setACKEN; inline;
  27022. begin
  27023. pTDefRegMap(@Self)^.&set := $00000010;
  27024. end;
  27025. procedure TI2C3_I2C1ACON.clearACKEN; inline;
  27026. begin
  27027. pTDefRegMap(@Self)^.clr := $00000010;
  27028. end;
  27029. procedure TI2C3_I2C1ACON.setACKEN(thebits : TBits_1); inline;
  27030. begin
  27031. if thebits = 0 then
  27032. pTDefRegMap(@Self)^.clr := $00000010
  27033. else
  27034. pTDefRegMap(@Self)^.&set := $00000010;
  27035. end;
  27036. function TI2C3_I2C1ACON.getACKEN : TBits_1; inline;
  27037. begin
  27038. getACKEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  27039. end;
  27040. procedure TI2C3_I2C1ACON.setACKDT; inline;
  27041. begin
  27042. pTDefRegMap(@Self)^.&set := $00000020;
  27043. end;
  27044. procedure TI2C3_I2C1ACON.clearACKDT; inline;
  27045. begin
  27046. pTDefRegMap(@Self)^.clr := $00000020;
  27047. end;
  27048. procedure TI2C3_I2C1ACON.setACKDT(thebits : TBits_1); inline;
  27049. begin
  27050. if thebits = 0 then
  27051. pTDefRegMap(@Self)^.clr := $00000020
  27052. else
  27053. pTDefRegMap(@Self)^.&set := $00000020;
  27054. end;
  27055. function TI2C3_I2C1ACON.getACKDT : TBits_1; inline;
  27056. begin
  27057. getACKDT := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  27058. end;
  27059. procedure TI2C3_I2C1ACON.setSTREN; inline;
  27060. begin
  27061. pTDefRegMap(@Self)^.&set := $00000040;
  27062. end;
  27063. procedure TI2C3_I2C1ACON.clearSTREN; inline;
  27064. begin
  27065. pTDefRegMap(@Self)^.clr := $00000040;
  27066. end;
  27067. procedure TI2C3_I2C1ACON.setSTREN(thebits : TBits_1); inline;
  27068. begin
  27069. if thebits = 0 then
  27070. pTDefRegMap(@Self)^.clr := $00000040
  27071. else
  27072. pTDefRegMap(@Self)^.&set := $00000040;
  27073. end;
  27074. function TI2C3_I2C1ACON.getSTREN : TBits_1; inline;
  27075. begin
  27076. getSTREN := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  27077. end;
  27078. procedure TI2C3_I2C1ACON.setGCEN; inline;
  27079. begin
  27080. pTDefRegMap(@Self)^.&set := $00000080;
  27081. end;
  27082. procedure TI2C3_I2C1ACON.clearGCEN; inline;
  27083. begin
  27084. pTDefRegMap(@Self)^.clr := $00000080;
  27085. end;
  27086. procedure TI2C3_I2C1ACON.setGCEN(thebits : TBits_1); inline;
  27087. begin
  27088. if thebits = 0 then
  27089. pTDefRegMap(@Self)^.clr := $00000080
  27090. else
  27091. pTDefRegMap(@Self)^.&set := $00000080;
  27092. end;
  27093. function TI2C3_I2C1ACON.getGCEN : TBits_1; inline;
  27094. begin
  27095. getGCEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  27096. end;
  27097. procedure TI2C3_I2C1ACON.setSMEN; inline;
  27098. begin
  27099. pTDefRegMap(@Self)^.&set := $00000100;
  27100. end;
  27101. procedure TI2C3_I2C1ACON.clearSMEN; inline;
  27102. begin
  27103. pTDefRegMap(@Self)^.clr := $00000100;
  27104. end;
  27105. procedure TI2C3_I2C1ACON.setSMEN(thebits : TBits_1); inline;
  27106. begin
  27107. if thebits = 0 then
  27108. pTDefRegMap(@Self)^.clr := $00000100
  27109. else
  27110. pTDefRegMap(@Self)^.&set := $00000100;
  27111. end;
  27112. function TI2C3_I2C1ACON.getSMEN : TBits_1; inline;
  27113. begin
  27114. getSMEN := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  27115. end;
  27116. procedure TI2C3_I2C1ACON.setDISSLW; inline;
  27117. begin
  27118. pTDefRegMap(@Self)^.&set := $00000200;
  27119. end;
  27120. procedure TI2C3_I2C1ACON.clearDISSLW; inline;
  27121. begin
  27122. pTDefRegMap(@Self)^.clr := $00000200;
  27123. end;
  27124. procedure TI2C3_I2C1ACON.setDISSLW(thebits : TBits_1); inline;
  27125. begin
  27126. if thebits = 0 then
  27127. pTDefRegMap(@Self)^.clr := $00000200
  27128. else
  27129. pTDefRegMap(@Self)^.&set := $00000200;
  27130. end;
  27131. function TI2C3_I2C1ACON.getDISSLW : TBits_1; inline;
  27132. begin
  27133. getDISSLW := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  27134. end;
  27135. procedure TI2C3_I2C1ACON.setA10M; inline;
  27136. begin
  27137. pTDefRegMap(@Self)^.&set := $00000400;
  27138. end;
  27139. procedure TI2C3_I2C1ACON.clearA10M; inline;
  27140. begin
  27141. pTDefRegMap(@Self)^.clr := $00000400;
  27142. end;
  27143. procedure TI2C3_I2C1ACON.setA10M(thebits : TBits_1); inline;
  27144. begin
  27145. if thebits = 0 then
  27146. pTDefRegMap(@Self)^.clr := $00000400
  27147. else
  27148. pTDefRegMap(@Self)^.&set := $00000400;
  27149. end;
  27150. function TI2C3_I2C1ACON.getA10M : TBits_1; inline;
  27151. begin
  27152. getA10M := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  27153. end;
  27154. procedure TI2C3_I2C1ACON.setSTRICT; inline;
  27155. begin
  27156. pTDefRegMap(@Self)^.&set := $00000800;
  27157. end;
  27158. procedure TI2C3_I2C1ACON.clearSTRICT; inline;
  27159. begin
  27160. pTDefRegMap(@Self)^.clr := $00000800;
  27161. end;
  27162. procedure TI2C3_I2C1ACON.setSTRICT(thebits : TBits_1); inline;
  27163. begin
  27164. if thebits = 0 then
  27165. pTDefRegMap(@Self)^.clr := $00000800
  27166. else
  27167. pTDefRegMap(@Self)^.&set := $00000800;
  27168. end;
  27169. function TI2C3_I2C1ACON.getSTRICT : TBits_1; inline;
  27170. begin
  27171. getSTRICT := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  27172. end;
  27173. procedure TI2C3_I2C1ACON.setSCLREL; inline;
  27174. begin
  27175. pTDefRegMap(@Self)^.&set := $00001000;
  27176. end;
  27177. procedure TI2C3_I2C1ACON.clearSCLREL; inline;
  27178. begin
  27179. pTDefRegMap(@Self)^.clr := $00001000;
  27180. end;
  27181. procedure TI2C3_I2C1ACON.setSCLREL(thebits : TBits_1); inline;
  27182. begin
  27183. if thebits = 0 then
  27184. pTDefRegMap(@Self)^.clr := $00001000
  27185. else
  27186. pTDefRegMap(@Self)^.&set := $00001000;
  27187. end;
  27188. function TI2C3_I2C1ACON.getSCLREL : TBits_1; inline;
  27189. begin
  27190. getSCLREL := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  27191. end;
  27192. procedure TI2C3_I2C1ACON.setSIDL; inline;
  27193. begin
  27194. pTDefRegMap(@Self)^.&set := $00002000;
  27195. end;
  27196. procedure TI2C3_I2C1ACON.clearSIDL; inline;
  27197. begin
  27198. pTDefRegMap(@Self)^.clr := $00002000;
  27199. end;
  27200. procedure TI2C3_I2C1ACON.setSIDL(thebits : TBits_1); inline;
  27201. begin
  27202. if thebits = 0 then
  27203. pTDefRegMap(@Self)^.clr := $00002000
  27204. else
  27205. pTDefRegMap(@Self)^.&set := $00002000;
  27206. end;
  27207. function TI2C3_I2C1ACON.getSIDL : TBits_1; inline;
  27208. begin
  27209. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  27210. end;
  27211. procedure TI2C3_I2C1ACON.setON; inline;
  27212. begin
  27213. pTDefRegMap(@Self)^.&set := $00008000;
  27214. end;
  27215. procedure TI2C3_I2C1ACON.clearON; inline;
  27216. begin
  27217. pTDefRegMap(@Self)^.clr := $00008000;
  27218. end;
  27219. procedure TI2C3_I2C1ACON.setON(thebits : TBits_1); inline;
  27220. begin
  27221. if thebits = 0 then
  27222. pTDefRegMap(@Self)^.clr := $00008000
  27223. else
  27224. pTDefRegMap(@Self)^.&set := $00008000;
  27225. end;
  27226. function TI2C3_I2C1ACON.getON : TBits_1; inline;
  27227. begin
  27228. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  27229. end;
  27230. procedure TI2C3_I2C1ACON.setIPMIEN; inline;
  27231. begin
  27232. pTDefRegMap(@Self)^.&set := $00000800;
  27233. end;
  27234. procedure TI2C3_I2C1ACON.clearIPMIEN; inline;
  27235. begin
  27236. pTDefRegMap(@Self)^.clr := $00000800;
  27237. end;
  27238. procedure TI2C3_I2C1ACON.setIPMIEN(thebits : TBits_1); inline;
  27239. begin
  27240. if thebits = 0 then
  27241. pTDefRegMap(@Self)^.clr := $00000800
  27242. else
  27243. pTDefRegMap(@Self)^.&set := $00000800;
  27244. end;
  27245. function TI2C3_I2C1ACON.getIPMIEN : TBits_1; inline;
  27246. begin
  27247. getIPMIEN := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  27248. end;
  27249. procedure TI2C3_I2C1ACON.setI2CSIDL; inline;
  27250. begin
  27251. pTDefRegMap(@Self)^.&set := $00002000;
  27252. end;
  27253. procedure TI2C3_I2C1ACON.clearI2CSIDL; inline;
  27254. begin
  27255. pTDefRegMap(@Self)^.clr := $00002000;
  27256. end;
  27257. procedure TI2C3_I2C1ACON.setI2CSIDL(thebits : TBits_1); inline;
  27258. begin
  27259. if thebits = 0 then
  27260. pTDefRegMap(@Self)^.clr := $00002000
  27261. else
  27262. pTDefRegMap(@Self)^.&set := $00002000;
  27263. end;
  27264. function TI2C3_I2C1ACON.getI2CSIDL : TBits_1; inline;
  27265. begin
  27266. getI2CSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  27267. end;
  27268. procedure TI2C3_I2C1ACON.setI2CEN; inline;
  27269. begin
  27270. pTDefRegMap(@Self)^.&set := $00008000;
  27271. end;
  27272. procedure TI2C3_I2C1ACON.clearI2CEN; inline;
  27273. begin
  27274. pTDefRegMap(@Self)^.clr := $00008000;
  27275. end;
  27276. procedure TI2C3_I2C1ACON.setI2CEN(thebits : TBits_1); inline;
  27277. begin
  27278. if thebits = 0 then
  27279. pTDefRegMap(@Self)^.clr := $00008000
  27280. else
  27281. pTDefRegMap(@Self)^.&set := $00008000;
  27282. end;
  27283. function TI2C3_I2C1ACON.getI2CEN : TBits_1; inline;
  27284. begin
  27285. getI2CEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  27286. end;
  27287. procedure TI2C3_I2C1ACON.setw(thebits : TBits_32); inline;
  27288. begin
  27289. pTDefRegMap(@Self)^.val := thebits;
  27290. end;
  27291. function TI2C3_I2C1ACON.getw : TBits_32; inline;
  27292. begin
  27293. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  27294. end;
  27295. procedure TI2C3_I2C3CON.setSEN; inline;
  27296. begin
  27297. pTDefRegMap(@Self)^.&set := $00000001;
  27298. end;
  27299. procedure TI2C3_I2C3CON.clearSEN; inline;
  27300. begin
  27301. pTDefRegMap(@Self)^.clr := $00000001;
  27302. end;
  27303. procedure TI2C3_I2C3CON.setSEN(thebits : TBits_1); inline;
  27304. begin
  27305. if thebits = 0 then
  27306. pTDefRegMap(@Self)^.clr := $00000001
  27307. else
  27308. pTDefRegMap(@Self)^.&set := $00000001;
  27309. end;
  27310. function TI2C3_I2C3CON.getSEN : TBits_1; inline;
  27311. begin
  27312. getSEN := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  27313. end;
  27314. procedure TI2C3_I2C3CON.setRSEN; inline;
  27315. begin
  27316. pTDefRegMap(@Self)^.&set := $00000002;
  27317. end;
  27318. procedure TI2C3_I2C3CON.clearRSEN; inline;
  27319. begin
  27320. pTDefRegMap(@Self)^.clr := $00000002;
  27321. end;
  27322. procedure TI2C3_I2C3CON.setRSEN(thebits : TBits_1); inline;
  27323. begin
  27324. if thebits = 0 then
  27325. pTDefRegMap(@Self)^.clr := $00000002
  27326. else
  27327. pTDefRegMap(@Self)^.&set := $00000002;
  27328. end;
  27329. function TI2C3_I2C3CON.getRSEN : TBits_1; inline;
  27330. begin
  27331. getRSEN := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  27332. end;
  27333. procedure TI2C3_I2C3CON.setPEN; inline;
  27334. begin
  27335. pTDefRegMap(@Self)^.&set := $00000004;
  27336. end;
  27337. procedure TI2C3_I2C3CON.clearPEN; inline;
  27338. begin
  27339. pTDefRegMap(@Self)^.clr := $00000004;
  27340. end;
  27341. procedure TI2C3_I2C3CON.setPEN(thebits : TBits_1); inline;
  27342. begin
  27343. if thebits = 0 then
  27344. pTDefRegMap(@Self)^.clr := $00000004
  27345. else
  27346. pTDefRegMap(@Self)^.&set := $00000004;
  27347. end;
  27348. function TI2C3_I2C3CON.getPEN : TBits_1; inline;
  27349. begin
  27350. getPEN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  27351. end;
  27352. procedure TI2C3_I2C3CON.setRCEN; inline;
  27353. begin
  27354. pTDefRegMap(@Self)^.&set := $00000008;
  27355. end;
  27356. procedure TI2C3_I2C3CON.clearRCEN; inline;
  27357. begin
  27358. pTDefRegMap(@Self)^.clr := $00000008;
  27359. end;
  27360. procedure TI2C3_I2C3CON.setRCEN(thebits : TBits_1); inline;
  27361. begin
  27362. if thebits = 0 then
  27363. pTDefRegMap(@Self)^.clr := $00000008
  27364. else
  27365. pTDefRegMap(@Self)^.&set := $00000008;
  27366. end;
  27367. function TI2C3_I2C3CON.getRCEN : TBits_1; inline;
  27368. begin
  27369. getRCEN := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  27370. end;
  27371. procedure TI2C3_I2C3CON.setACKEN; inline;
  27372. begin
  27373. pTDefRegMap(@Self)^.&set := $00000010;
  27374. end;
  27375. procedure TI2C3_I2C3CON.clearACKEN; inline;
  27376. begin
  27377. pTDefRegMap(@Self)^.clr := $00000010;
  27378. end;
  27379. procedure TI2C3_I2C3CON.setACKEN(thebits : TBits_1); inline;
  27380. begin
  27381. if thebits = 0 then
  27382. pTDefRegMap(@Self)^.clr := $00000010
  27383. else
  27384. pTDefRegMap(@Self)^.&set := $00000010;
  27385. end;
  27386. function TI2C3_I2C3CON.getACKEN : TBits_1; inline;
  27387. begin
  27388. getACKEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  27389. end;
  27390. procedure TI2C3_I2C3CON.setACKDT; inline;
  27391. begin
  27392. pTDefRegMap(@Self)^.&set := $00000020;
  27393. end;
  27394. procedure TI2C3_I2C3CON.clearACKDT; inline;
  27395. begin
  27396. pTDefRegMap(@Self)^.clr := $00000020;
  27397. end;
  27398. procedure TI2C3_I2C3CON.setACKDT(thebits : TBits_1); inline;
  27399. begin
  27400. if thebits = 0 then
  27401. pTDefRegMap(@Self)^.clr := $00000020
  27402. else
  27403. pTDefRegMap(@Self)^.&set := $00000020;
  27404. end;
  27405. function TI2C3_I2C3CON.getACKDT : TBits_1; inline;
  27406. begin
  27407. getACKDT := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  27408. end;
  27409. procedure TI2C3_I2C3CON.setSTREN; inline;
  27410. begin
  27411. pTDefRegMap(@Self)^.&set := $00000040;
  27412. end;
  27413. procedure TI2C3_I2C3CON.clearSTREN; inline;
  27414. begin
  27415. pTDefRegMap(@Self)^.clr := $00000040;
  27416. end;
  27417. procedure TI2C3_I2C3CON.setSTREN(thebits : TBits_1); inline;
  27418. begin
  27419. if thebits = 0 then
  27420. pTDefRegMap(@Self)^.clr := $00000040
  27421. else
  27422. pTDefRegMap(@Self)^.&set := $00000040;
  27423. end;
  27424. function TI2C3_I2C3CON.getSTREN : TBits_1; inline;
  27425. begin
  27426. getSTREN := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  27427. end;
  27428. procedure TI2C3_I2C3CON.setGCEN; inline;
  27429. begin
  27430. pTDefRegMap(@Self)^.&set := $00000080;
  27431. end;
  27432. procedure TI2C3_I2C3CON.clearGCEN; inline;
  27433. begin
  27434. pTDefRegMap(@Self)^.clr := $00000080;
  27435. end;
  27436. procedure TI2C3_I2C3CON.setGCEN(thebits : TBits_1); inline;
  27437. begin
  27438. if thebits = 0 then
  27439. pTDefRegMap(@Self)^.clr := $00000080
  27440. else
  27441. pTDefRegMap(@Self)^.&set := $00000080;
  27442. end;
  27443. function TI2C3_I2C3CON.getGCEN : TBits_1; inline;
  27444. begin
  27445. getGCEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  27446. end;
  27447. procedure TI2C3_I2C3CON.setSMEN; inline;
  27448. begin
  27449. pTDefRegMap(@Self)^.&set := $00000100;
  27450. end;
  27451. procedure TI2C3_I2C3CON.clearSMEN; inline;
  27452. begin
  27453. pTDefRegMap(@Self)^.clr := $00000100;
  27454. end;
  27455. procedure TI2C3_I2C3CON.setSMEN(thebits : TBits_1); inline;
  27456. begin
  27457. if thebits = 0 then
  27458. pTDefRegMap(@Self)^.clr := $00000100
  27459. else
  27460. pTDefRegMap(@Self)^.&set := $00000100;
  27461. end;
  27462. function TI2C3_I2C3CON.getSMEN : TBits_1; inline;
  27463. begin
  27464. getSMEN := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  27465. end;
  27466. procedure TI2C3_I2C3CON.setDISSLW; inline;
  27467. begin
  27468. pTDefRegMap(@Self)^.&set := $00000200;
  27469. end;
  27470. procedure TI2C3_I2C3CON.clearDISSLW; inline;
  27471. begin
  27472. pTDefRegMap(@Self)^.clr := $00000200;
  27473. end;
  27474. procedure TI2C3_I2C3CON.setDISSLW(thebits : TBits_1); inline;
  27475. begin
  27476. if thebits = 0 then
  27477. pTDefRegMap(@Self)^.clr := $00000200
  27478. else
  27479. pTDefRegMap(@Self)^.&set := $00000200;
  27480. end;
  27481. function TI2C3_I2C3CON.getDISSLW : TBits_1; inline;
  27482. begin
  27483. getDISSLW := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  27484. end;
  27485. procedure TI2C3_I2C3CON.setA10M; inline;
  27486. begin
  27487. pTDefRegMap(@Self)^.&set := $00000400;
  27488. end;
  27489. procedure TI2C3_I2C3CON.clearA10M; inline;
  27490. begin
  27491. pTDefRegMap(@Self)^.clr := $00000400;
  27492. end;
  27493. procedure TI2C3_I2C3CON.setA10M(thebits : TBits_1); inline;
  27494. begin
  27495. if thebits = 0 then
  27496. pTDefRegMap(@Self)^.clr := $00000400
  27497. else
  27498. pTDefRegMap(@Self)^.&set := $00000400;
  27499. end;
  27500. function TI2C3_I2C3CON.getA10M : TBits_1; inline;
  27501. begin
  27502. getA10M := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  27503. end;
  27504. procedure TI2C3_I2C3CON.setSTRICT; inline;
  27505. begin
  27506. pTDefRegMap(@Self)^.&set := $00000800;
  27507. end;
  27508. procedure TI2C3_I2C3CON.clearSTRICT; inline;
  27509. begin
  27510. pTDefRegMap(@Self)^.clr := $00000800;
  27511. end;
  27512. procedure TI2C3_I2C3CON.setSTRICT(thebits : TBits_1); inline;
  27513. begin
  27514. if thebits = 0 then
  27515. pTDefRegMap(@Self)^.clr := $00000800
  27516. else
  27517. pTDefRegMap(@Self)^.&set := $00000800;
  27518. end;
  27519. function TI2C3_I2C3CON.getSTRICT : TBits_1; inline;
  27520. begin
  27521. getSTRICT := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  27522. end;
  27523. procedure TI2C3_I2C3CON.setSCLREL; inline;
  27524. begin
  27525. pTDefRegMap(@Self)^.&set := $00001000;
  27526. end;
  27527. procedure TI2C3_I2C3CON.clearSCLREL; inline;
  27528. begin
  27529. pTDefRegMap(@Self)^.clr := $00001000;
  27530. end;
  27531. procedure TI2C3_I2C3CON.setSCLREL(thebits : TBits_1); inline;
  27532. begin
  27533. if thebits = 0 then
  27534. pTDefRegMap(@Self)^.clr := $00001000
  27535. else
  27536. pTDefRegMap(@Self)^.&set := $00001000;
  27537. end;
  27538. function TI2C3_I2C3CON.getSCLREL : TBits_1; inline;
  27539. begin
  27540. getSCLREL := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  27541. end;
  27542. procedure TI2C3_I2C3CON.setSIDL; inline;
  27543. begin
  27544. pTDefRegMap(@Self)^.&set := $00002000;
  27545. end;
  27546. procedure TI2C3_I2C3CON.clearSIDL; inline;
  27547. begin
  27548. pTDefRegMap(@Self)^.clr := $00002000;
  27549. end;
  27550. procedure TI2C3_I2C3CON.setSIDL(thebits : TBits_1); inline;
  27551. begin
  27552. if thebits = 0 then
  27553. pTDefRegMap(@Self)^.clr := $00002000
  27554. else
  27555. pTDefRegMap(@Self)^.&set := $00002000;
  27556. end;
  27557. function TI2C3_I2C3CON.getSIDL : TBits_1; inline;
  27558. begin
  27559. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  27560. end;
  27561. procedure TI2C3_I2C3CON.setON; inline;
  27562. begin
  27563. pTDefRegMap(@Self)^.&set := $00008000;
  27564. end;
  27565. procedure TI2C3_I2C3CON.clearON; inline;
  27566. begin
  27567. pTDefRegMap(@Self)^.clr := $00008000;
  27568. end;
  27569. procedure TI2C3_I2C3CON.setON(thebits : TBits_1); inline;
  27570. begin
  27571. if thebits = 0 then
  27572. pTDefRegMap(@Self)^.clr := $00008000
  27573. else
  27574. pTDefRegMap(@Self)^.&set := $00008000;
  27575. end;
  27576. function TI2C3_I2C3CON.getON : TBits_1; inline;
  27577. begin
  27578. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  27579. end;
  27580. procedure TI2C3_I2C3CON.setIPMIEN; inline;
  27581. begin
  27582. pTDefRegMap(@Self)^.&set := $00000800;
  27583. end;
  27584. procedure TI2C3_I2C3CON.clearIPMIEN; inline;
  27585. begin
  27586. pTDefRegMap(@Self)^.clr := $00000800;
  27587. end;
  27588. procedure TI2C3_I2C3CON.setIPMIEN(thebits : TBits_1); inline;
  27589. begin
  27590. if thebits = 0 then
  27591. pTDefRegMap(@Self)^.clr := $00000800
  27592. else
  27593. pTDefRegMap(@Self)^.&set := $00000800;
  27594. end;
  27595. function TI2C3_I2C3CON.getIPMIEN : TBits_1; inline;
  27596. begin
  27597. getIPMIEN := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  27598. end;
  27599. procedure TI2C3_I2C3CON.setI2CSIDL; inline;
  27600. begin
  27601. pTDefRegMap(@Self)^.&set := $00002000;
  27602. end;
  27603. procedure TI2C3_I2C3CON.clearI2CSIDL; inline;
  27604. begin
  27605. pTDefRegMap(@Self)^.clr := $00002000;
  27606. end;
  27607. procedure TI2C3_I2C3CON.setI2CSIDL(thebits : TBits_1); inline;
  27608. begin
  27609. if thebits = 0 then
  27610. pTDefRegMap(@Self)^.clr := $00002000
  27611. else
  27612. pTDefRegMap(@Self)^.&set := $00002000;
  27613. end;
  27614. function TI2C3_I2C3CON.getI2CSIDL : TBits_1; inline;
  27615. begin
  27616. getI2CSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  27617. end;
  27618. procedure TI2C3_I2C3CON.setI2CEN; inline;
  27619. begin
  27620. pTDefRegMap(@Self)^.&set := $00008000;
  27621. end;
  27622. procedure TI2C3_I2C3CON.clearI2CEN; inline;
  27623. begin
  27624. pTDefRegMap(@Self)^.clr := $00008000;
  27625. end;
  27626. procedure TI2C3_I2C3CON.setI2CEN(thebits : TBits_1); inline;
  27627. begin
  27628. if thebits = 0 then
  27629. pTDefRegMap(@Self)^.clr := $00008000
  27630. else
  27631. pTDefRegMap(@Self)^.&set := $00008000;
  27632. end;
  27633. function TI2C3_I2C3CON.getI2CEN : TBits_1; inline;
  27634. begin
  27635. getI2CEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  27636. end;
  27637. procedure TI2C3_I2C3CON.setw(thebits : TBits_32); inline;
  27638. begin
  27639. pTDefRegMap(@Self)^.val := thebits;
  27640. end;
  27641. function TI2C3_I2C3CON.getw : TBits_32; inline;
  27642. begin
  27643. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  27644. end;
  27645. procedure TI2C3_I2C1ASTAT.setTBF; inline;
  27646. begin
  27647. pTDefRegMap(@Self)^.&set := $00000001;
  27648. end;
  27649. procedure TI2C3_I2C1ASTAT.clearTBF; inline;
  27650. begin
  27651. pTDefRegMap(@Self)^.clr := $00000001;
  27652. end;
  27653. procedure TI2C3_I2C1ASTAT.setTBF(thebits : TBits_1); inline;
  27654. begin
  27655. if thebits = 0 then
  27656. pTDefRegMap(@Self)^.clr := $00000001
  27657. else
  27658. pTDefRegMap(@Self)^.&set := $00000001;
  27659. end;
  27660. function TI2C3_I2C1ASTAT.getTBF : TBits_1; inline;
  27661. begin
  27662. getTBF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  27663. end;
  27664. procedure TI2C3_I2C1ASTAT.setRBF; inline;
  27665. begin
  27666. pTDefRegMap(@Self)^.&set := $00000002;
  27667. end;
  27668. procedure TI2C3_I2C1ASTAT.clearRBF; inline;
  27669. begin
  27670. pTDefRegMap(@Self)^.clr := $00000002;
  27671. end;
  27672. procedure TI2C3_I2C1ASTAT.setRBF(thebits : TBits_1); inline;
  27673. begin
  27674. if thebits = 0 then
  27675. pTDefRegMap(@Self)^.clr := $00000002
  27676. else
  27677. pTDefRegMap(@Self)^.&set := $00000002;
  27678. end;
  27679. function TI2C3_I2C1ASTAT.getRBF : TBits_1; inline;
  27680. begin
  27681. getRBF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  27682. end;
  27683. procedure TI2C3_I2C1ASTAT.setR_W; inline;
  27684. begin
  27685. pTDefRegMap(@Self)^.&set := $00000004;
  27686. end;
  27687. procedure TI2C3_I2C1ASTAT.clearR_W; inline;
  27688. begin
  27689. pTDefRegMap(@Self)^.clr := $00000004;
  27690. end;
  27691. procedure TI2C3_I2C1ASTAT.setR_W(thebits : TBits_1); inline;
  27692. begin
  27693. if thebits = 0 then
  27694. pTDefRegMap(@Self)^.clr := $00000004
  27695. else
  27696. pTDefRegMap(@Self)^.&set := $00000004;
  27697. end;
  27698. function TI2C3_I2C1ASTAT.getR_W : TBits_1; inline;
  27699. begin
  27700. getR_W := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  27701. end;
  27702. procedure TI2C3_I2C1ASTAT.setS; inline;
  27703. begin
  27704. pTDefRegMap(@Self)^.&set := $00000008;
  27705. end;
  27706. procedure TI2C3_I2C1ASTAT.clearS; inline;
  27707. begin
  27708. pTDefRegMap(@Self)^.clr := $00000008;
  27709. end;
  27710. procedure TI2C3_I2C1ASTAT.setS(thebits : TBits_1); inline;
  27711. begin
  27712. if thebits = 0 then
  27713. pTDefRegMap(@Self)^.clr := $00000008
  27714. else
  27715. pTDefRegMap(@Self)^.&set := $00000008;
  27716. end;
  27717. function TI2C3_I2C1ASTAT.getS : TBits_1; inline;
  27718. begin
  27719. getS := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  27720. end;
  27721. procedure TI2C3_I2C1ASTAT.setP; inline;
  27722. begin
  27723. pTDefRegMap(@Self)^.&set := $00000010;
  27724. end;
  27725. procedure TI2C3_I2C1ASTAT.clearP; inline;
  27726. begin
  27727. pTDefRegMap(@Self)^.clr := $00000010;
  27728. end;
  27729. procedure TI2C3_I2C1ASTAT.setP(thebits : TBits_1); inline;
  27730. begin
  27731. if thebits = 0 then
  27732. pTDefRegMap(@Self)^.clr := $00000010
  27733. else
  27734. pTDefRegMap(@Self)^.&set := $00000010;
  27735. end;
  27736. function TI2C3_I2C1ASTAT.getP : TBits_1; inline;
  27737. begin
  27738. getP := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  27739. end;
  27740. procedure TI2C3_I2C1ASTAT.setD_A; inline;
  27741. begin
  27742. pTDefRegMap(@Self)^.&set := $00000020;
  27743. end;
  27744. procedure TI2C3_I2C1ASTAT.clearD_A; inline;
  27745. begin
  27746. pTDefRegMap(@Self)^.clr := $00000020;
  27747. end;
  27748. procedure TI2C3_I2C1ASTAT.setD_A(thebits : TBits_1); inline;
  27749. begin
  27750. if thebits = 0 then
  27751. pTDefRegMap(@Self)^.clr := $00000020
  27752. else
  27753. pTDefRegMap(@Self)^.&set := $00000020;
  27754. end;
  27755. function TI2C3_I2C1ASTAT.getD_A : TBits_1; inline;
  27756. begin
  27757. getD_A := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  27758. end;
  27759. procedure TI2C3_I2C1ASTAT.setI2COV; inline;
  27760. begin
  27761. pTDefRegMap(@Self)^.&set := $00000040;
  27762. end;
  27763. procedure TI2C3_I2C1ASTAT.clearI2COV; inline;
  27764. begin
  27765. pTDefRegMap(@Self)^.clr := $00000040;
  27766. end;
  27767. procedure TI2C3_I2C1ASTAT.setI2COV(thebits : TBits_1); inline;
  27768. begin
  27769. if thebits = 0 then
  27770. pTDefRegMap(@Self)^.clr := $00000040
  27771. else
  27772. pTDefRegMap(@Self)^.&set := $00000040;
  27773. end;
  27774. function TI2C3_I2C1ASTAT.getI2COV : TBits_1; inline;
  27775. begin
  27776. getI2COV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  27777. end;
  27778. procedure TI2C3_I2C1ASTAT.setIWCOL; inline;
  27779. begin
  27780. pTDefRegMap(@Self)^.&set := $00000080;
  27781. end;
  27782. procedure TI2C3_I2C1ASTAT.clearIWCOL; inline;
  27783. begin
  27784. pTDefRegMap(@Self)^.clr := $00000080;
  27785. end;
  27786. procedure TI2C3_I2C1ASTAT.setIWCOL(thebits : TBits_1); inline;
  27787. begin
  27788. if thebits = 0 then
  27789. pTDefRegMap(@Self)^.clr := $00000080
  27790. else
  27791. pTDefRegMap(@Self)^.&set := $00000080;
  27792. end;
  27793. function TI2C3_I2C1ASTAT.getIWCOL : TBits_1; inline;
  27794. begin
  27795. getIWCOL := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  27796. end;
  27797. procedure TI2C3_I2C1ASTAT.setADD10; inline;
  27798. begin
  27799. pTDefRegMap(@Self)^.&set := $00000100;
  27800. end;
  27801. procedure TI2C3_I2C1ASTAT.clearADD10; inline;
  27802. begin
  27803. pTDefRegMap(@Self)^.clr := $00000100;
  27804. end;
  27805. procedure TI2C3_I2C1ASTAT.setADD10(thebits : TBits_1); inline;
  27806. begin
  27807. if thebits = 0 then
  27808. pTDefRegMap(@Self)^.clr := $00000100
  27809. else
  27810. pTDefRegMap(@Self)^.&set := $00000100;
  27811. end;
  27812. function TI2C3_I2C1ASTAT.getADD10 : TBits_1; inline;
  27813. begin
  27814. getADD10 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  27815. end;
  27816. procedure TI2C3_I2C1ASTAT.setGCSTAT; inline;
  27817. begin
  27818. pTDefRegMap(@Self)^.&set := $00000200;
  27819. end;
  27820. procedure TI2C3_I2C1ASTAT.clearGCSTAT; inline;
  27821. begin
  27822. pTDefRegMap(@Self)^.clr := $00000200;
  27823. end;
  27824. procedure TI2C3_I2C1ASTAT.setGCSTAT(thebits : TBits_1); inline;
  27825. begin
  27826. if thebits = 0 then
  27827. pTDefRegMap(@Self)^.clr := $00000200
  27828. else
  27829. pTDefRegMap(@Self)^.&set := $00000200;
  27830. end;
  27831. function TI2C3_I2C1ASTAT.getGCSTAT : TBits_1; inline;
  27832. begin
  27833. getGCSTAT := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  27834. end;
  27835. procedure TI2C3_I2C1ASTAT.setBCL; inline;
  27836. begin
  27837. pTDefRegMap(@Self)^.&set := $00000400;
  27838. end;
  27839. procedure TI2C3_I2C1ASTAT.clearBCL; inline;
  27840. begin
  27841. pTDefRegMap(@Self)^.clr := $00000400;
  27842. end;
  27843. procedure TI2C3_I2C1ASTAT.setBCL(thebits : TBits_1); inline;
  27844. begin
  27845. if thebits = 0 then
  27846. pTDefRegMap(@Self)^.clr := $00000400
  27847. else
  27848. pTDefRegMap(@Self)^.&set := $00000400;
  27849. end;
  27850. function TI2C3_I2C1ASTAT.getBCL : TBits_1; inline;
  27851. begin
  27852. getBCL := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  27853. end;
  27854. procedure TI2C3_I2C1ASTAT.setTRSTAT; inline;
  27855. begin
  27856. pTDefRegMap(@Self)^.&set := $00004000;
  27857. end;
  27858. procedure TI2C3_I2C1ASTAT.clearTRSTAT; inline;
  27859. begin
  27860. pTDefRegMap(@Self)^.clr := $00004000;
  27861. end;
  27862. procedure TI2C3_I2C1ASTAT.setTRSTAT(thebits : TBits_1); inline;
  27863. begin
  27864. if thebits = 0 then
  27865. pTDefRegMap(@Self)^.clr := $00004000
  27866. else
  27867. pTDefRegMap(@Self)^.&set := $00004000;
  27868. end;
  27869. function TI2C3_I2C1ASTAT.getTRSTAT : TBits_1; inline;
  27870. begin
  27871. getTRSTAT := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  27872. end;
  27873. procedure TI2C3_I2C1ASTAT.setACKSTAT; inline;
  27874. begin
  27875. pTDefRegMap(@Self)^.&set := $00008000;
  27876. end;
  27877. procedure TI2C3_I2C1ASTAT.clearACKSTAT; inline;
  27878. begin
  27879. pTDefRegMap(@Self)^.clr := $00008000;
  27880. end;
  27881. procedure TI2C3_I2C1ASTAT.setACKSTAT(thebits : TBits_1); inline;
  27882. begin
  27883. if thebits = 0 then
  27884. pTDefRegMap(@Self)^.clr := $00008000
  27885. else
  27886. pTDefRegMap(@Self)^.&set := $00008000;
  27887. end;
  27888. function TI2C3_I2C1ASTAT.getACKSTAT : TBits_1; inline;
  27889. begin
  27890. getACKSTAT := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  27891. end;
  27892. procedure TI2C3_I2C1ASTAT.setI2CPOV; inline;
  27893. begin
  27894. pTDefRegMap(@Self)^.&set := $00000040;
  27895. end;
  27896. procedure TI2C3_I2C1ASTAT.clearI2CPOV; inline;
  27897. begin
  27898. pTDefRegMap(@Self)^.clr := $00000040;
  27899. end;
  27900. procedure TI2C3_I2C1ASTAT.setI2CPOV(thebits : TBits_1); inline;
  27901. begin
  27902. if thebits = 0 then
  27903. pTDefRegMap(@Self)^.clr := $00000040
  27904. else
  27905. pTDefRegMap(@Self)^.&set := $00000040;
  27906. end;
  27907. function TI2C3_I2C1ASTAT.getI2CPOV : TBits_1; inline;
  27908. begin
  27909. getI2CPOV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  27910. end;
  27911. procedure TI2C3_I2C1ASTAT.setw(thebits : TBits_32); inline;
  27912. begin
  27913. pTDefRegMap(@Self)^.val := thebits;
  27914. end;
  27915. function TI2C3_I2C1ASTAT.getw : TBits_32; inline;
  27916. begin
  27917. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  27918. end;
  27919. procedure TI2C3_I2C3STAT.setTBF; inline;
  27920. begin
  27921. pTDefRegMap(@Self)^.&set := $00000001;
  27922. end;
  27923. procedure TI2C3_I2C3STAT.clearTBF; inline;
  27924. begin
  27925. pTDefRegMap(@Self)^.clr := $00000001;
  27926. end;
  27927. procedure TI2C3_I2C3STAT.setTBF(thebits : TBits_1); inline;
  27928. begin
  27929. if thebits = 0 then
  27930. pTDefRegMap(@Self)^.clr := $00000001
  27931. else
  27932. pTDefRegMap(@Self)^.&set := $00000001;
  27933. end;
  27934. function TI2C3_I2C3STAT.getTBF : TBits_1; inline;
  27935. begin
  27936. getTBF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  27937. end;
  27938. procedure TI2C3_I2C3STAT.setRBF; inline;
  27939. begin
  27940. pTDefRegMap(@Self)^.&set := $00000002;
  27941. end;
  27942. procedure TI2C3_I2C3STAT.clearRBF; inline;
  27943. begin
  27944. pTDefRegMap(@Self)^.clr := $00000002;
  27945. end;
  27946. procedure TI2C3_I2C3STAT.setRBF(thebits : TBits_1); inline;
  27947. begin
  27948. if thebits = 0 then
  27949. pTDefRegMap(@Self)^.clr := $00000002
  27950. else
  27951. pTDefRegMap(@Self)^.&set := $00000002;
  27952. end;
  27953. function TI2C3_I2C3STAT.getRBF : TBits_1; inline;
  27954. begin
  27955. getRBF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  27956. end;
  27957. procedure TI2C3_I2C3STAT.setR_W; inline;
  27958. begin
  27959. pTDefRegMap(@Self)^.&set := $00000004;
  27960. end;
  27961. procedure TI2C3_I2C3STAT.clearR_W; inline;
  27962. begin
  27963. pTDefRegMap(@Self)^.clr := $00000004;
  27964. end;
  27965. procedure TI2C3_I2C3STAT.setR_W(thebits : TBits_1); inline;
  27966. begin
  27967. if thebits = 0 then
  27968. pTDefRegMap(@Self)^.clr := $00000004
  27969. else
  27970. pTDefRegMap(@Self)^.&set := $00000004;
  27971. end;
  27972. function TI2C3_I2C3STAT.getR_W : TBits_1; inline;
  27973. begin
  27974. getR_W := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  27975. end;
  27976. procedure TI2C3_I2C3STAT.setS; inline;
  27977. begin
  27978. pTDefRegMap(@Self)^.&set := $00000008;
  27979. end;
  27980. procedure TI2C3_I2C3STAT.clearS; inline;
  27981. begin
  27982. pTDefRegMap(@Self)^.clr := $00000008;
  27983. end;
  27984. procedure TI2C3_I2C3STAT.setS(thebits : TBits_1); inline;
  27985. begin
  27986. if thebits = 0 then
  27987. pTDefRegMap(@Self)^.clr := $00000008
  27988. else
  27989. pTDefRegMap(@Self)^.&set := $00000008;
  27990. end;
  27991. function TI2C3_I2C3STAT.getS : TBits_1; inline;
  27992. begin
  27993. getS := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  27994. end;
  27995. procedure TI2C3_I2C3STAT.setP; inline;
  27996. begin
  27997. pTDefRegMap(@Self)^.&set := $00000010;
  27998. end;
  27999. procedure TI2C3_I2C3STAT.clearP; inline;
  28000. begin
  28001. pTDefRegMap(@Self)^.clr := $00000010;
  28002. end;
  28003. procedure TI2C3_I2C3STAT.setP(thebits : TBits_1); inline;
  28004. begin
  28005. if thebits = 0 then
  28006. pTDefRegMap(@Self)^.clr := $00000010
  28007. else
  28008. pTDefRegMap(@Self)^.&set := $00000010;
  28009. end;
  28010. function TI2C3_I2C3STAT.getP : TBits_1; inline;
  28011. begin
  28012. getP := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  28013. end;
  28014. procedure TI2C3_I2C3STAT.setD_A; inline;
  28015. begin
  28016. pTDefRegMap(@Self)^.&set := $00000020;
  28017. end;
  28018. procedure TI2C3_I2C3STAT.clearD_A; inline;
  28019. begin
  28020. pTDefRegMap(@Self)^.clr := $00000020;
  28021. end;
  28022. procedure TI2C3_I2C3STAT.setD_A(thebits : TBits_1); inline;
  28023. begin
  28024. if thebits = 0 then
  28025. pTDefRegMap(@Self)^.clr := $00000020
  28026. else
  28027. pTDefRegMap(@Self)^.&set := $00000020;
  28028. end;
  28029. function TI2C3_I2C3STAT.getD_A : TBits_1; inline;
  28030. begin
  28031. getD_A := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  28032. end;
  28033. procedure TI2C3_I2C3STAT.setI2COV; inline;
  28034. begin
  28035. pTDefRegMap(@Self)^.&set := $00000040;
  28036. end;
  28037. procedure TI2C3_I2C3STAT.clearI2COV; inline;
  28038. begin
  28039. pTDefRegMap(@Self)^.clr := $00000040;
  28040. end;
  28041. procedure TI2C3_I2C3STAT.setI2COV(thebits : TBits_1); inline;
  28042. begin
  28043. if thebits = 0 then
  28044. pTDefRegMap(@Self)^.clr := $00000040
  28045. else
  28046. pTDefRegMap(@Self)^.&set := $00000040;
  28047. end;
  28048. function TI2C3_I2C3STAT.getI2COV : TBits_1; inline;
  28049. begin
  28050. getI2COV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  28051. end;
  28052. procedure TI2C3_I2C3STAT.setIWCOL; inline;
  28053. begin
  28054. pTDefRegMap(@Self)^.&set := $00000080;
  28055. end;
  28056. procedure TI2C3_I2C3STAT.clearIWCOL; inline;
  28057. begin
  28058. pTDefRegMap(@Self)^.clr := $00000080;
  28059. end;
  28060. procedure TI2C3_I2C3STAT.setIWCOL(thebits : TBits_1); inline;
  28061. begin
  28062. if thebits = 0 then
  28063. pTDefRegMap(@Self)^.clr := $00000080
  28064. else
  28065. pTDefRegMap(@Self)^.&set := $00000080;
  28066. end;
  28067. function TI2C3_I2C3STAT.getIWCOL : TBits_1; inline;
  28068. begin
  28069. getIWCOL := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  28070. end;
  28071. procedure TI2C3_I2C3STAT.setADD10; inline;
  28072. begin
  28073. pTDefRegMap(@Self)^.&set := $00000100;
  28074. end;
  28075. procedure TI2C3_I2C3STAT.clearADD10; inline;
  28076. begin
  28077. pTDefRegMap(@Self)^.clr := $00000100;
  28078. end;
  28079. procedure TI2C3_I2C3STAT.setADD10(thebits : TBits_1); inline;
  28080. begin
  28081. if thebits = 0 then
  28082. pTDefRegMap(@Self)^.clr := $00000100
  28083. else
  28084. pTDefRegMap(@Self)^.&set := $00000100;
  28085. end;
  28086. function TI2C3_I2C3STAT.getADD10 : TBits_1; inline;
  28087. begin
  28088. getADD10 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  28089. end;
  28090. procedure TI2C3_I2C3STAT.setGCSTAT; inline;
  28091. begin
  28092. pTDefRegMap(@Self)^.&set := $00000200;
  28093. end;
  28094. procedure TI2C3_I2C3STAT.clearGCSTAT; inline;
  28095. begin
  28096. pTDefRegMap(@Self)^.clr := $00000200;
  28097. end;
  28098. procedure TI2C3_I2C3STAT.setGCSTAT(thebits : TBits_1); inline;
  28099. begin
  28100. if thebits = 0 then
  28101. pTDefRegMap(@Self)^.clr := $00000200
  28102. else
  28103. pTDefRegMap(@Self)^.&set := $00000200;
  28104. end;
  28105. function TI2C3_I2C3STAT.getGCSTAT : TBits_1; inline;
  28106. begin
  28107. getGCSTAT := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  28108. end;
  28109. procedure TI2C3_I2C3STAT.setBCL; inline;
  28110. begin
  28111. pTDefRegMap(@Self)^.&set := $00000400;
  28112. end;
  28113. procedure TI2C3_I2C3STAT.clearBCL; inline;
  28114. begin
  28115. pTDefRegMap(@Self)^.clr := $00000400;
  28116. end;
  28117. procedure TI2C3_I2C3STAT.setBCL(thebits : TBits_1); inline;
  28118. begin
  28119. if thebits = 0 then
  28120. pTDefRegMap(@Self)^.clr := $00000400
  28121. else
  28122. pTDefRegMap(@Self)^.&set := $00000400;
  28123. end;
  28124. function TI2C3_I2C3STAT.getBCL : TBits_1; inline;
  28125. begin
  28126. getBCL := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  28127. end;
  28128. procedure TI2C3_I2C3STAT.setTRSTAT; inline;
  28129. begin
  28130. pTDefRegMap(@Self)^.&set := $00004000;
  28131. end;
  28132. procedure TI2C3_I2C3STAT.clearTRSTAT; inline;
  28133. begin
  28134. pTDefRegMap(@Self)^.clr := $00004000;
  28135. end;
  28136. procedure TI2C3_I2C3STAT.setTRSTAT(thebits : TBits_1); inline;
  28137. begin
  28138. if thebits = 0 then
  28139. pTDefRegMap(@Self)^.clr := $00004000
  28140. else
  28141. pTDefRegMap(@Self)^.&set := $00004000;
  28142. end;
  28143. function TI2C3_I2C3STAT.getTRSTAT : TBits_1; inline;
  28144. begin
  28145. getTRSTAT := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  28146. end;
  28147. procedure TI2C3_I2C3STAT.setACKSTAT; inline;
  28148. begin
  28149. pTDefRegMap(@Self)^.&set := $00008000;
  28150. end;
  28151. procedure TI2C3_I2C3STAT.clearACKSTAT; inline;
  28152. begin
  28153. pTDefRegMap(@Self)^.clr := $00008000;
  28154. end;
  28155. procedure TI2C3_I2C3STAT.setACKSTAT(thebits : TBits_1); inline;
  28156. begin
  28157. if thebits = 0 then
  28158. pTDefRegMap(@Self)^.clr := $00008000
  28159. else
  28160. pTDefRegMap(@Self)^.&set := $00008000;
  28161. end;
  28162. function TI2C3_I2C3STAT.getACKSTAT : TBits_1; inline;
  28163. begin
  28164. getACKSTAT := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  28165. end;
  28166. procedure TI2C3_I2C3STAT.setI2CPOV; inline;
  28167. begin
  28168. pTDefRegMap(@Self)^.&set := $00000040;
  28169. end;
  28170. procedure TI2C3_I2C3STAT.clearI2CPOV; inline;
  28171. begin
  28172. pTDefRegMap(@Self)^.clr := $00000040;
  28173. end;
  28174. procedure TI2C3_I2C3STAT.setI2CPOV(thebits : TBits_1); inline;
  28175. begin
  28176. if thebits = 0 then
  28177. pTDefRegMap(@Self)^.clr := $00000040
  28178. else
  28179. pTDefRegMap(@Self)^.&set := $00000040;
  28180. end;
  28181. function TI2C3_I2C3STAT.getI2CPOV : TBits_1; inline;
  28182. begin
  28183. getI2CPOV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  28184. end;
  28185. procedure TI2C3_I2C3STAT.setw(thebits : TBits_32); inline;
  28186. begin
  28187. pTDefRegMap(@Self)^.val := thebits;
  28188. end;
  28189. function TI2C3_I2C3STAT.getw : TBits_32; inline;
  28190. begin
  28191. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  28192. end;
  28193. procedure TI2C4_I2C2ACON.setSEN; inline;
  28194. begin
  28195. pTDefRegMap(@Self)^.&set := $00000001;
  28196. end;
  28197. procedure TI2C4_I2C2ACON.clearSEN; inline;
  28198. begin
  28199. pTDefRegMap(@Self)^.clr := $00000001;
  28200. end;
  28201. procedure TI2C4_I2C2ACON.setSEN(thebits : TBits_1); inline;
  28202. begin
  28203. if thebits = 0 then
  28204. pTDefRegMap(@Self)^.clr := $00000001
  28205. else
  28206. pTDefRegMap(@Self)^.&set := $00000001;
  28207. end;
  28208. function TI2C4_I2C2ACON.getSEN : TBits_1; inline;
  28209. begin
  28210. getSEN := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  28211. end;
  28212. procedure TI2C4_I2C2ACON.setRSEN; inline;
  28213. begin
  28214. pTDefRegMap(@Self)^.&set := $00000002;
  28215. end;
  28216. procedure TI2C4_I2C2ACON.clearRSEN; inline;
  28217. begin
  28218. pTDefRegMap(@Self)^.clr := $00000002;
  28219. end;
  28220. procedure TI2C4_I2C2ACON.setRSEN(thebits : TBits_1); inline;
  28221. begin
  28222. if thebits = 0 then
  28223. pTDefRegMap(@Self)^.clr := $00000002
  28224. else
  28225. pTDefRegMap(@Self)^.&set := $00000002;
  28226. end;
  28227. function TI2C4_I2C2ACON.getRSEN : TBits_1; inline;
  28228. begin
  28229. getRSEN := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  28230. end;
  28231. procedure TI2C4_I2C2ACON.setPEN; inline;
  28232. begin
  28233. pTDefRegMap(@Self)^.&set := $00000004;
  28234. end;
  28235. procedure TI2C4_I2C2ACON.clearPEN; inline;
  28236. begin
  28237. pTDefRegMap(@Self)^.clr := $00000004;
  28238. end;
  28239. procedure TI2C4_I2C2ACON.setPEN(thebits : TBits_1); inline;
  28240. begin
  28241. if thebits = 0 then
  28242. pTDefRegMap(@Self)^.clr := $00000004
  28243. else
  28244. pTDefRegMap(@Self)^.&set := $00000004;
  28245. end;
  28246. function TI2C4_I2C2ACON.getPEN : TBits_1; inline;
  28247. begin
  28248. getPEN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  28249. end;
  28250. procedure TI2C4_I2C2ACON.setRCEN; inline;
  28251. begin
  28252. pTDefRegMap(@Self)^.&set := $00000008;
  28253. end;
  28254. procedure TI2C4_I2C2ACON.clearRCEN; inline;
  28255. begin
  28256. pTDefRegMap(@Self)^.clr := $00000008;
  28257. end;
  28258. procedure TI2C4_I2C2ACON.setRCEN(thebits : TBits_1); inline;
  28259. begin
  28260. if thebits = 0 then
  28261. pTDefRegMap(@Self)^.clr := $00000008
  28262. else
  28263. pTDefRegMap(@Self)^.&set := $00000008;
  28264. end;
  28265. function TI2C4_I2C2ACON.getRCEN : TBits_1; inline;
  28266. begin
  28267. getRCEN := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  28268. end;
  28269. procedure TI2C4_I2C2ACON.setACKEN; inline;
  28270. begin
  28271. pTDefRegMap(@Self)^.&set := $00000010;
  28272. end;
  28273. procedure TI2C4_I2C2ACON.clearACKEN; inline;
  28274. begin
  28275. pTDefRegMap(@Self)^.clr := $00000010;
  28276. end;
  28277. procedure TI2C4_I2C2ACON.setACKEN(thebits : TBits_1); inline;
  28278. begin
  28279. if thebits = 0 then
  28280. pTDefRegMap(@Self)^.clr := $00000010
  28281. else
  28282. pTDefRegMap(@Self)^.&set := $00000010;
  28283. end;
  28284. function TI2C4_I2C2ACON.getACKEN : TBits_1; inline;
  28285. begin
  28286. getACKEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  28287. end;
  28288. procedure TI2C4_I2C2ACON.setACKDT; inline;
  28289. begin
  28290. pTDefRegMap(@Self)^.&set := $00000020;
  28291. end;
  28292. procedure TI2C4_I2C2ACON.clearACKDT; inline;
  28293. begin
  28294. pTDefRegMap(@Self)^.clr := $00000020;
  28295. end;
  28296. procedure TI2C4_I2C2ACON.setACKDT(thebits : TBits_1); inline;
  28297. begin
  28298. if thebits = 0 then
  28299. pTDefRegMap(@Self)^.clr := $00000020
  28300. else
  28301. pTDefRegMap(@Self)^.&set := $00000020;
  28302. end;
  28303. function TI2C4_I2C2ACON.getACKDT : TBits_1; inline;
  28304. begin
  28305. getACKDT := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  28306. end;
  28307. procedure TI2C4_I2C2ACON.setSTREN; inline;
  28308. begin
  28309. pTDefRegMap(@Self)^.&set := $00000040;
  28310. end;
  28311. procedure TI2C4_I2C2ACON.clearSTREN; inline;
  28312. begin
  28313. pTDefRegMap(@Self)^.clr := $00000040;
  28314. end;
  28315. procedure TI2C4_I2C2ACON.setSTREN(thebits : TBits_1); inline;
  28316. begin
  28317. if thebits = 0 then
  28318. pTDefRegMap(@Self)^.clr := $00000040
  28319. else
  28320. pTDefRegMap(@Self)^.&set := $00000040;
  28321. end;
  28322. function TI2C4_I2C2ACON.getSTREN : TBits_1; inline;
  28323. begin
  28324. getSTREN := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  28325. end;
  28326. procedure TI2C4_I2C2ACON.setGCEN; inline;
  28327. begin
  28328. pTDefRegMap(@Self)^.&set := $00000080;
  28329. end;
  28330. procedure TI2C4_I2C2ACON.clearGCEN; inline;
  28331. begin
  28332. pTDefRegMap(@Self)^.clr := $00000080;
  28333. end;
  28334. procedure TI2C4_I2C2ACON.setGCEN(thebits : TBits_1); inline;
  28335. begin
  28336. if thebits = 0 then
  28337. pTDefRegMap(@Self)^.clr := $00000080
  28338. else
  28339. pTDefRegMap(@Self)^.&set := $00000080;
  28340. end;
  28341. function TI2C4_I2C2ACON.getGCEN : TBits_1; inline;
  28342. begin
  28343. getGCEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  28344. end;
  28345. procedure TI2C4_I2C2ACON.setSMEN; inline;
  28346. begin
  28347. pTDefRegMap(@Self)^.&set := $00000100;
  28348. end;
  28349. procedure TI2C4_I2C2ACON.clearSMEN; inline;
  28350. begin
  28351. pTDefRegMap(@Self)^.clr := $00000100;
  28352. end;
  28353. procedure TI2C4_I2C2ACON.setSMEN(thebits : TBits_1); inline;
  28354. begin
  28355. if thebits = 0 then
  28356. pTDefRegMap(@Self)^.clr := $00000100
  28357. else
  28358. pTDefRegMap(@Self)^.&set := $00000100;
  28359. end;
  28360. function TI2C4_I2C2ACON.getSMEN : TBits_1; inline;
  28361. begin
  28362. getSMEN := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  28363. end;
  28364. procedure TI2C4_I2C2ACON.setDISSLW; inline;
  28365. begin
  28366. pTDefRegMap(@Self)^.&set := $00000200;
  28367. end;
  28368. procedure TI2C4_I2C2ACON.clearDISSLW; inline;
  28369. begin
  28370. pTDefRegMap(@Self)^.clr := $00000200;
  28371. end;
  28372. procedure TI2C4_I2C2ACON.setDISSLW(thebits : TBits_1); inline;
  28373. begin
  28374. if thebits = 0 then
  28375. pTDefRegMap(@Self)^.clr := $00000200
  28376. else
  28377. pTDefRegMap(@Self)^.&set := $00000200;
  28378. end;
  28379. function TI2C4_I2C2ACON.getDISSLW : TBits_1; inline;
  28380. begin
  28381. getDISSLW := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  28382. end;
  28383. procedure TI2C4_I2C2ACON.setA10M; inline;
  28384. begin
  28385. pTDefRegMap(@Self)^.&set := $00000400;
  28386. end;
  28387. procedure TI2C4_I2C2ACON.clearA10M; inline;
  28388. begin
  28389. pTDefRegMap(@Self)^.clr := $00000400;
  28390. end;
  28391. procedure TI2C4_I2C2ACON.setA10M(thebits : TBits_1); inline;
  28392. begin
  28393. if thebits = 0 then
  28394. pTDefRegMap(@Self)^.clr := $00000400
  28395. else
  28396. pTDefRegMap(@Self)^.&set := $00000400;
  28397. end;
  28398. function TI2C4_I2C2ACON.getA10M : TBits_1; inline;
  28399. begin
  28400. getA10M := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  28401. end;
  28402. procedure TI2C4_I2C2ACON.setSTRICT; inline;
  28403. begin
  28404. pTDefRegMap(@Self)^.&set := $00000800;
  28405. end;
  28406. procedure TI2C4_I2C2ACON.clearSTRICT; inline;
  28407. begin
  28408. pTDefRegMap(@Self)^.clr := $00000800;
  28409. end;
  28410. procedure TI2C4_I2C2ACON.setSTRICT(thebits : TBits_1); inline;
  28411. begin
  28412. if thebits = 0 then
  28413. pTDefRegMap(@Self)^.clr := $00000800
  28414. else
  28415. pTDefRegMap(@Self)^.&set := $00000800;
  28416. end;
  28417. function TI2C4_I2C2ACON.getSTRICT : TBits_1; inline;
  28418. begin
  28419. getSTRICT := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  28420. end;
  28421. procedure TI2C4_I2C2ACON.setSCLREL; inline;
  28422. begin
  28423. pTDefRegMap(@Self)^.&set := $00001000;
  28424. end;
  28425. procedure TI2C4_I2C2ACON.clearSCLREL; inline;
  28426. begin
  28427. pTDefRegMap(@Self)^.clr := $00001000;
  28428. end;
  28429. procedure TI2C4_I2C2ACON.setSCLREL(thebits : TBits_1); inline;
  28430. begin
  28431. if thebits = 0 then
  28432. pTDefRegMap(@Self)^.clr := $00001000
  28433. else
  28434. pTDefRegMap(@Self)^.&set := $00001000;
  28435. end;
  28436. function TI2C4_I2C2ACON.getSCLREL : TBits_1; inline;
  28437. begin
  28438. getSCLREL := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  28439. end;
  28440. procedure TI2C4_I2C2ACON.setSIDL; inline;
  28441. begin
  28442. pTDefRegMap(@Self)^.&set := $00002000;
  28443. end;
  28444. procedure TI2C4_I2C2ACON.clearSIDL; inline;
  28445. begin
  28446. pTDefRegMap(@Self)^.clr := $00002000;
  28447. end;
  28448. procedure TI2C4_I2C2ACON.setSIDL(thebits : TBits_1); inline;
  28449. begin
  28450. if thebits = 0 then
  28451. pTDefRegMap(@Self)^.clr := $00002000
  28452. else
  28453. pTDefRegMap(@Self)^.&set := $00002000;
  28454. end;
  28455. function TI2C4_I2C2ACON.getSIDL : TBits_1; inline;
  28456. begin
  28457. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  28458. end;
  28459. procedure TI2C4_I2C2ACON.setON; inline;
  28460. begin
  28461. pTDefRegMap(@Self)^.&set := $00008000;
  28462. end;
  28463. procedure TI2C4_I2C2ACON.clearON; inline;
  28464. begin
  28465. pTDefRegMap(@Self)^.clr := $00008000;
  28466. end;
  28467. procedure TI2C4_I2C2ACON.setON(thebits : TBits_1); inline;
  28468. begin
  28469. if thebits = 0 then
  28470. pTDefRegMap(@Self)^.clr := $00008000
  28471. else
  28472. pTDefRegMap(@Self)^.&set := $00008000;
  28473. end;
  28474. function TI2C4_I2C2ACON.getON : TBits_1; inline;
  28475. begin
  28476. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  28477. end;
  28478. procedure TI2C4_I2C2ACON.setIPMIEN; inline;
  28479. begin
  28480. pTDefRegMap(@Self)^.&set := $00000800;
  28481. end;
  28482. procedure TI2C4_I2C2ACON.clearIPMIEN; inline;
  28483. begin
  28484. pTDefRegMap(@Self)^.clr := $00000800;
  28485. end;
  28486. procedure TI2C4_I2C2ACON.setIPMIEN(thebits : TBits_1); inline;
  28487. begin
  28488. if thebits = 0 then
  28489. pTDefRegMap(@Self)^.clr := $00000800
  28490. else
  28491. pTDefRegMap(@Self)^.&set := $00000800;
  28492. end;
  28493. function TI2C4_I2C2ACON.getIPMIEN : TBits_1; inline;
  28494. begin
  28495. getIPMIEN := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  28496. end;
  28497. procedure TI2C4_I2C2ACON.setI2CSIDL; inline;
  28498. begin
  28499. pTDefRegMap(@Self)^.&set := $00002000;
  28500. end;
  28501. procedure TI2C4_I2C2ACON.clearI2CSIDL; inline;
  28502. begin
  28503. pTDefRegMap(@Self)^.clr := $00002000;
  28504. end;
  28505. procedure TI2C4_I2C2ACON.setI2CSIDL(thebits : TBits_1); inline;
  28506. begin
  28507. if thebits = 0 then
  28508. pTDefRegMap(@Self)^.clr := $00002000
  28509. else
  28510. pTDefRegMap(@Self)^.&set := $00002000;
  28511. end;
  28512. function TI2C4_I2C2ACON.getI2CSIDL : TBits_1; inline;
  28513. begin
  28514. getI2CSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  28515. end;
  28516. procedure TI2C4_I2C2ACON.setI2CEN; inline;
  28517. begin
  28518. pTDefRegMap(@Self)^.&set := $00008000;
  28519. end;
  28520. procedure TI2C4_I2C2ACON.clearI2CEN; inline;
  28521. begin
  28522. pTDefRegMap(@Self)^.clr := $00008000;
  28523. end;
  28524. procedure TI2C4_I2C2ACON.setI2CEN(thebits : TBits_1); inline;
  28525. begin
  28526. if thebits = 0 then
  28527. pTDefRegMap(@Self)^.clr := $00008000
  28528. else
  28529. pTDefRegMap(@Self)^.&set := $00008000;
  28530. end;
  28531. function TI2C4_I2C2ACON.getI2CEN : TBits_1; inline;
  28532. begin
  28533. getI2CEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  28534. end;
  28535. procedure TI2C4_I2C2ACON.setw(thebits : TBits_32); inline;
  28536. begin
  28537. pTDefRegMap(@Self)^.val := thebits;
  28538. end;
  28539. function TI2C4_I2C2ACON.getw : TBits_32; inline;
  28540. begin
  28541. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  28542. end;
  28543. procedure TI2C4_I2C4CON.setSEN; inline;
  28544. begin
  28545. pTDefRegMap(@Self)^.&set := $00000001;
  28546. end;
  28547. procedure TI2C4_I2C4CON.clearSEN; inline;
  28548. begin
  28549. pTDefRegMap(@Self)^.clr := $00000001;
  28550. end;
  28551. procedure TI2C4_I2C4CON.setSEN(thebits : TBits_1); inline;
  28552. begin
  28553. if thebits = 0 then
  28554. pTDefRegMap(@Self)^.clr := $00000001
  28555. else
  28556. pTDefRegMap(@Self)^.&set := $00000001;
  28557. end;
  28558. function TI2C4_I2C4CON.getSEN : TBits_1; inline;
  28559. begin
  28560. getSEN := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  28561. end;
  28562. procedure TI2C4_I2C4CON.setRSEN; inline;
  28563. begin
  28564. pTDefRegMap(@Self)^.&set := $00000002;
  28565. end;
  28566. procedure TI2C4_I2C4CON.clearRSEN; inline;
  28567. begin
  28568. pTDefRegMap(@Self)^.clr := $00000002;
  28569. end;
  28570. procedure TI2C4_I2C4CON.setRSEN(thebits : TBits_1); inline;
  28571. begin
  28572. if thebits = 0 then
  28573. pTDefRegMap(@Self)^.clr := $00000002
  28574. else
  28575. pTDefRegMap(@Self)^.&set := $00000002;
  28576. end;
  28577. function TI2C4_I2C4CON.getRSEN : TBits_1; inline;
  28578. begin
  28579. getRSEN := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  28580. end;
  28581. procedure TI2C4_I2C4CON.setPEN; inline;
  28582. begin
  28583. pTDefRegMap(@Self)^.&set := $00000004;
  28584. end;
  28585. procedure TI2C4_I2C4CON.clearPEN; inline;
  28586. begin
  28587. pTDefRegMap(@Self)^.clr := $00000004;
  28588. end;
  28589. procedure TI2C4_I2C4CON.setPEN(thebits : TBits_1); inline;
  28590. begin
  28591. if thebits = 0 then
  28592. pTDefRegMap(@Self)^.clr := $00000004
  28593. else
  28594. pTDefRegMap(@Self)^.&set := $00000004;
  28595. end;
  28596. function TI2C4_I2C4CON.getPEN : TBits_1; inline;
  28597. begin
  28598. getPEN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  28599. end;
  28600. procedure TI2C4_I2C4CON.setRCEN; inline;
  28601. begin
  28602. pTDefRegMap(@Self)^.&set := $00000008;
  28603. end;
  28604. procedure TI2C4_I2C4CON.clearRCEN; inline;
  28605. begin
  28606. pTDefRegMap(@Self)^.clr := $00000008;
  28607. end;
  28608. procedure TI2C4_I2C4CON.setRCEN(thebits : TBits_1); inline;
  28609. begin
  28610. if thebits = 0 then
  28611. pTDefRegMap(@Self)^.clr := $00000008
  28612. else
  28613. pTDefRegMap(@Self)^.&set := $00000008;
  28614. end;
  28615. function TI2C4_I2C4CON.getRCEN : TBits_1; inline;
  28616. begin
  28617. getRCEN := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  28618. end;
  28619. procedure TI2C4_I2C4CON.setACKEN; inline;
  28620. begin
  28621. pTDefRegMap(@Self)^.&set := $00000010;
  28622. end;
  28623. procedure TI2C4_I2C4CON.clearACKEN; inline;
  28624. begin
  28625. pTDefRegMap(@Self)^.clr := $00000010;
  28626. end;
  28627. procedure TI2C4_I2C4CON.setACKEN(thebits : TBits_1); inline;
  28628. begin
  28629. if thebits = 0 then
  28630. pTDefRegMap(@Self)^.clr := $00000010
  28631. else
  28632. pTDefRegMap(@Self)^.&set := $00000010;
  28633. end;
  28634. function TI2C4_I2C4CON.getACKEN : TBits_1; inline;
  28635. begin
  28636. getACKEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  28637. end;
  28638. procedure TI2C4_I2C4CON.setACKDT; inline;
  28639. begin
  28640. pTDefRegMap(@Self)^.&set := $00000020;
  28641. end;
  28642. procedure TI2C4_I2C4CON.clearACKDT; inline;
  28643. begin
  28644. pTDefRegMap(@Self)^.clr := $00000020;
  28645. end;
  28646. procedure TI2C4_I2C4CON.setACKDT(thebits : TBits_1); inline;
  28647. begin
  28648. if thebits = 0 then
  28649. pTDefRegMap(@Self)^.clr := $00000020
  28650. else
  28651. pTDefRegMap(@Self)^.&set := $00000020;
  28652. end;
  28653. function TI2C4_I2C4CON.getACKDT : TBits_1; inline;
  28654. begin
  28655. getACKDT := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  28656. end;
  28657. procedure TI2C4_I2C4CON.setSTREN; inline;
  28658. begin
  28659. pTDefRegMap(@Self)^.&set := $00000040;
  28660. end;
  28661. procedure TI2C4_I2C4CON.clearSTREN; inline;
  28662. begin
  28663. pTDefRegMap(@Self)^.clr := $00000040;
  28664. end;
  28665. procedure TI2C4_I2C4CON.setSTREN(thebits : TBits_1); inline;
  28666. begin
  28667. if thebits = 0 then
  28668. pTDefRegMap(@Self)^.clr := $00000040
  28669. else
  28670. pTDefRegMap(@Self)^.&set := $00000040;
  28671. end;
  28672. function TI2C4_I2C4CON.getSTREN : TBits_1; inline;
  28673. begin
  28674. getSTREN := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  28675. end;
  28676. procedure TI2C4_I2C4CON.setGCEN; inline;
  28677. begin
  28678. pTDefRegMap(@Self)^.&set := $00000080;
  28679. end;
  28680. procedure TI2C4_I2C4CON.clearGCEN; inline;
  28681. begin
  28682. pTDefRegMap(@Self)^.clr := $00000080;
  28683. end;
  28684. procedure TI2C4_I2C4CON.setGCEN(thebits : TBits_1); inline;
  28685. begin
  28686. if thebits = 0 then
  28687. pTDefRegMap(@Self)^.clr := $00000080
  28688. else
  28689. pTDefRegMap(@Self)^.&set := $00000080;
  28690. end;
  28691. function TI2C4_I2C4CON.getGCEN : TBits_1; inline;
  28692. begin
  28693. getGCEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  28694. end;
  28695. procedure TI2C4_I2C4CON.setSMEN; inline;
  28696. begin
  28697. pTDefRegMap(@Self)^.&set := $00000100;
  28698. end;
  28699. procedure TI2C4_I2C4CON.clearSMEN; inline;
  28700. begin
  28701. pTDefRegMap(@Self)^.clr := $00000100;
  28702. end;
  28703. procedure TI2C4_I2C4CON.setSMEN(thebits : TBits_1); inline;
  28704. begin
  28705. if thebits = 0 then
  28706. pTDefRegMap(@Self)^.clr := $00000100
  28707. else
  28708. pTDefRegMap(@Self)^.&set := $00000100;
  28709. end;
  28710. function TI2C4_I2C4CON.getSMEN : TBits_1; inline;
  28711. begin
  28712. getSMEN := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  28713. end;
  28714. procedure TI2C4_I2C4CON.setDISSLW; inline;
  28715. begin
  28716. pTDefRegMap(@Self)^.&set := $00000200;
  28717. end;
  28718. procedure TI2C4_I2C4CON.clearDISSLW; inline;
  28719. begin
  28720. pTDefRegMap(@Self)^.clr := $00000200;
  28721. end;
  28722. procedure TI2C4_I2C4CON.setDISSLW(thebits : TBits_1); inline;
  28723. begin
  28724. if thebits = 0 then
  28725. pTDefRegMap(@Self)^.clr := $00000200
  28726. else
  28727. pTDefRegMap(@Self)^.&set := $00000200;
  28728. end;
  28729. function TI2C4_I2C4CON.getDISSLW : TBits_1; inline;
  28730. begin
  28731. getDISSLW := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  28732. end;
  28733. procedure TI2C4_I2C4CON.setA10M; inline;
  28734. begin
  28735. pTDefRegMap(@Self)^.&set := $00000400;
  28736. end;
  28737. procedure TI2C4_I2C4CON.clearA10M; inline;
  28738. begin
  28739. pTDefRegMap(@Self)^.clr := $00000400;
  28740. end;
  28741. procedure TI2C4_I2C4CON.setA10M(thebits : TBits_1); inline;
  28742. begin
  28743. if thebits = 0 then
  28744. pTDefRegMap(@Self)^.clr := $00000400
  28745. else
  28746. pTDefRegMap(@Self)^.&set := $00000400;
  28747. end;
  28748. function TI2C4_I2C4CON.getA10M : TBits_1; inline;
  28749. begin
  28750. getA10M := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  28751. end;
  28752. procedure TI2C4_I2C4CON.setSTRICT; inline;
  28753. begin
  28754. pTDefRegMap(@Self)^.&set := $00000800;
  28755. end;
  28756. procedure TI2C4_I2C4CON.clearSTRICT; inline;
  28757. begin
  28758. pTDefRegMap(@Self)^.clr := $00000800;
  28759. end;
  28760. procedure TI2C4_I2C4CON.setSTRICT(thebits : TBits_1); inline;
  28761. begin
  28762. if thebits = 0 then
  28763. pTDefRegMap(@Self)^.clr := $00000800
  28764. else
  28765. pTDefRegMap(@Self)^.&set := $00000800;
  28766. end;
  28767. function TI2C4_I2C4CON.getSTRICT : TBits_1; inline;
  28768. begin
  28769. getSTRICT := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  28770. end;
  28771. procedure TI2C4_I2C4CON.setSCLREL; inline;
  28772. begin
  28773. pTDefRegMap(@Self)^.&set := $00001000;
  28774. end;
  28775. procedure TI2C4_I2C4CON.clearSCLREL; inline;
  28776. begin
  28777. pTDefRegMap(@Self)^.clr := $00001000;
  28778. end;
  28779. procedure TI2C4_I2C4CON.setSCLREL(thebits : TBits_1); inline;
  28780. begin
  28781. if thebits = 0 then
  28782. pTDefRegMap(@Self)^.clr := $00001000
  28783. else
  28784. pTDefRegMap(@Self)^.&set := $00001000;
  28785. end;
  28786. function TI2C4_I2C4CON.getSCLREL : TBits_1; inline;
  28787. begin
  28788. getSCLREL := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  28789. end;
  28790. procedure TI2C4_I2C4CON.setSIDL; inline;
  28791. begin
  28792. pTDefRegMap(@Self)^.&set := $00002000;
  28793. end;
  28794. procedure TI2C4_I2C4CON.clearSIDL; inline;
  28795. begin
  28796. pTDefRegMap(@Self)^.clr := $00002000;
  28797. end;
  28798. procedure TI2C4_I2C4CON.setSIDL(thebits : TBits_1); inline;
  28799. begin
  28800. if thebits = 0 then
  28801. pTDefRegMap(@Self)^.clr := $00002000
  28802. else
  28803. pTDefRegMap(@Self)^.&set := $00002000;
  28804. end;
  28805. function TI2C4_I2C4CON.getSIDL : TBits_1; inline;
  28806. begin
  28807. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  28808. end;
  28809. procedure TI2C4_I2C4CON.setON; inline;
  28810. begin
  28811. pTDefRegMap(@Self)^.&set := $00008000;
  28812. end;
  28813. procedure TI2C4_I2C4CON.clearON; inline;
  28814. begin
  28815. pTDefRegMap(@Self)^.clr := $00008000;
  28816. end;
  28817. procedure TI2C4_I2C4CON.setON(thebits : TBits_1); inline;
  28818. begin
  28819. if thebits = 0 then
  28820. pTDefRegMap(@Self)^.clr := $00008000
  28821. else
  28822. pTDefRegMap(@Self)^.&set := $00008000;
  28823. end;
  28824. function TI2C4_I2C4CON.getON : TBits_1; inline;
  28825. begin
  28826. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  28827. end;
  28828. procedure TI2C4_I2C4CON.setIPMIEN; inline;
  28829. begin
  28830. pTDefRegMap(@Self)^.&set := $00000800;
  28831. end;
  28832. procedure TI2C4_I2C4CON.clearIPMIEN; inline;
  28833. begin
  28834. pTDefRegMap(@Self)^.clr := $00000800;
  28835. end;
  28836. procedure TI2C4_I2C4CON.setIPMIEN(thebits : TBits_1); inline;
  28837. begin
  28838. if thebits = 0 then
  28839. pTDefRegMap(@Self)^.clr := $00000800
  28840. else
  28841. pTDefRegMap(@Self)^.&set := $00000800;
  28842. end;
  28843. function TI2C4_I2C4CON.getIPMIEN : TBits_1; inline;
  28844. begin
  28845. getIPMIEN := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  28846. end;
  28847. procedure TI2C4_I2C4CON.setI2CSIDL; inline;
  28848. begin
  28849. pTDefRegMap(@Self)^.&set := $00002000;
  28850. end;
  28851. procedure TI2C4_I2C4CON.clearI2CSIDL; inline;
  28852. begin
  28853. pTDefRegMap(@Self)^.clr := $00002000;
  28854. end;
  28855. procedure TI2C4_I2C4CON.setI2CSIDL(thebits : TBits_1); inline;
  28856. begin
  28857. if thebits = 0 then
  28858. pTDefRegMap(@Self)^.clr := $00002000
  28859. else
  28860. pTDefRegMap(@Self)^.&set := $00002000;
  28861. end;
  28862. function TI2C4_I2C4CON.getI2CSIDL : TBits_1; inline;
  28863. begin
  28864. getI2CSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  28865. end;
  28866. procedure TI2C4_I2C4CON.setI2CEN; inline;
  28867. begin
  28868. pTDefRegMap(@Self)^.&set := $00008000;
  28869. end;
  28870. procedure TI2C4_I2C4CON.clearI2CEN; inline;
  28871. begin
  28872. pTDefRegMap(@Self)^.clr := $00008000;
  28873. end;
  28874. procedure TI2C4_I2C4CON.setI2CEN(thebits : TBits_1); inline;
  28875. begin
  28876. if thebits = 0 then
  28877. pTDefRegMap(@Self)^.clr := $00008000
  28878. else
  28879. pTDefRegMap(@Self)^.&set := $00008000;
  28880. end;
  28881. function TI2C4_I2C4CON.getI2CEN : TBits_1; inline;
  28882. begin
  28883. getI2CEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  28884. end;
  28885. procedure TI2C4_I2C4CON.setw(thebits : TBits_32); inline;
  28886. begin
  28887. pTDefRegMap(@Self)^.val := thebits;
  28888. end;
  28889. function TI2C4_I2C4CON.getw : TBits_32; inline;
  28890. begin
  28891. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  28892. end;
  28893. procedure TI2C4_I2C2ASTAT.setTBF; inline;
  28894. begin
  28895. pTDefRegMap(@Self)^.&set := $00000001;
  28896. end;
  28897. procedure TI2C4_I2C2ASTAT.clearTBF; inline;
  28898. begin
  28899. pTDefRegMap(@Self)^.clr := $00000001;
  28900. end;
  28901. procedure TI2C4_I2C2ASTAT.setTBF(thebits : TBits_1); inline;
  28902. begin
  28903. if thebits = 0 then
  28904. pTDefRegMap(@Self)^.clr := $00000001
  28905. else
  28906. pTDefRegMap(@Self)^.&set := $00000001;
  28907. end;
  28908. function TI2C4_I2C2ASTAT.getTBF : TBits_1; inline;
  28909. begin
  28910. getTBF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  28911. end;
  28912. procedure TI2C4_I2C2ASTAT.setRBF; inline;
  28913. begin
  28914. pTDefRegMap(@Self)^.&set := $00000002;
  28915. end;
  28916. procedure TI2C4_I2C2ASTAT.clearRBF; inline;
  28917. begin
  28918. pTDefRegMap(@Self)^.clr := $00000002;
  28919. end;
  28920. procedure TI2C4_I2C2ASTAT.setRBF(thebits : TBits_1); inline;
  28921. begin
  28922. if thebits = 0 then
  28923. pTDefRegMap(@Self)^.clr := $00000002
  28924. else
  28925. pTDefRegMap(@Self)^.&set := $00000002;
  28926. end;
  28927. function TI2C4_I2C2ASTAT.getRBF : TBits_1; inline;
  28928. begin
  28929. getRBF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  28930. end;
  28931. procedure TI2C4_I2C2ASTAT.setR_W; inline;
  28932. begin
  28933. pTDefRegMap(@Self)^.&set := $00000004;
  28934. end;
  28935. procedure TI2C4_I2C2ASTAT.clearR_W; inline;
  28936. begin
  28937. pTDefRegMap(@Self)^.clr := $00000004;
  28938. end;
  28939. procedure TI2C4_I2C2ASTAT.setR_W(thebits : TBits_1); inline;
  28940. begin
  28941. if thebits = 0 then
  28942. pTDefRegMap(@Self)^.clr := $00000004
  28943. else
  28944. pTDefRegMap(@Self)^.&set := $00000004;
  28945. end;
  28946. function TI2C4_I2C2ASTAT.getR_W : TBits_1; inline;
  28947. begin
  28948. getR_W := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  28949. end;
  28950. procedure TI2C4_I2C2ASTAT.setS; inline;
  28951. begin
  28952. pTDefRegMap(@Self)^.&set := $00000008;
  28953. end;
  28954. procedure TI2C4_I2C2ASTAT.clearS; inline;
  28955. begin
  28956. pTDefRegMap(@Self)^.clr := $00000008;
  28957. end;
  28958. procedure TI2C4_I2C2ASTAT.setS(thebits : TBits_1); inline;
  28959. begin
  28960. if thebits = 0 then
  28961. pTDefRegMap(@Self)^.clr := $00000008
  28962. else
  28963. pTDefRegMap(@Self)^.&set := $00000008;
  28964. end;
  28965. function TI2C4_I2C2ASTAT.getS : TBits_1; inline;
  28966. begin
  28967. getS := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  28968. end;
  28969. procedure TI2C4_I2C2ASTAT.setP; inline;
  28970. begin
  28971. pTDefRegMap(@Self)^.&set := $00000010;
  28972. end;
  28973. procedure TI2C4_I2C2ASTAT.clearP; inline;
  28974. begin
  28975. pTDefRegMap(@Self)^.clr := $00000010;
  28976. end;
  28977. procedure TI2C4_I2C2ASTAT.setP(thebits : TBits_1); inline;
  28978. begin
  28979. if thebits = 0 then
  28980. pTDefRegMap(@Self)^.clr := $00000010
  28981. else
  28982. pTDefRegMap(@Self)^.&set := $00000010;
  28983. end;
  28984. function TI2C4_I2C2ASTAT.getP : TBits_1; inline;
  28985. begin
  28986. getP := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  28987. end;
  28988. procedure TI2C4_I2C2ASTAT.setD_A; inline;
  28989. begin
  28990. pTDefRegMap(@Self)^.&set := $00000020;
  28991. end;
  28992. procedure TI2C4_I2C2ASTAT.clearD_A; inline;
  28993. begin
  28994. pTDefRegMap(@Self)^.clr := $00000020;
  28995. end;
  28996. procedure TI2C4_I2C2ASTAT.setD_A(thebits : TBits_1); inline;
  28997. begin
  28998. if thebits = 0 then
  28999. pTDefRegMap(@Self)^.clr := $00000020
  29000. else
  29001. pTDefRegMap(@Self)^.&set := $00000020;
  29002. end;
  29003. function TI2C4_I2C2ASTAT.getD_A : TBits_1; inline;
  29004. begin
  29005. getD_A := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  29006. end;
  29007. procedure TI2C4_I2C2ASTAT.setI2COV; inline;
  29008. begin
  29009. pTDefRegMap(@Self)^.&set := $00000040;
  29010. end;
  29011. procedure TI2C4_I2C2ASTAT.clearI2COV; inline;
  29012. begin
  29013. pTDefRegMap(@Self)^.clr := $00000040;
  29014. end;
  29015. procedure TI2C4_I2C2ASTAT.setI2COV(thebits : TBits_1); inline;
  29016. begin
  29017. if thebits = 0 then
  29018. pTDefRegMap(@Self)^.clr := $00000040
  29019. else
  29020. pTDefRegMap(@Self)^.&set := $00000040;
  29021. end;
  29022. function TI2C4_I2C2ASTAT.getI2COV : TBits_1; inline;
  29023. begin
  29024. getI2COV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  29025. end;
  29026. procedure TI2C4_I2C2ASTAT.setIWCOL; inline;
  29027. begin
  29028. pTDefRegMap(@Self)^.&set := $00000080;
  29029. end;
  29030. procedure TI2C4_I2C2ASTAT.clearIWCOL; inline;
  29031. begin
  29032. pTDefRegMap(@Self)^.clr := $00000080;
  29033. end;
  29034. procedure TI2C4_I2C2ASTAT.setIWCOL(thebits : TBits_1); inline;
  29035. begin
  29036. if thebits = 0 then
  29037. pTDefRegMap(@Self)^.clr := $00000080
  29038. else
  29039. pTDefRegMap(@Self)^.&set := $00000080;
  29040. end;
  29041. function TI2C4_I2C2ASTAT.getIWCOL : TBits_1; inline;
  29042. begin
  29043. getIWCOL := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  29044. end;
  29045. procedure TI2C4_I2C2ASTAT.setADD10; inline;
  29046. begin
  29047. pTDefRegMap(@Self)^.&set := $00000100;
  29048. end;
  29049. procedure TI2C4_I2C2ASTAT.clearADD10; inline;
  29050. begin
  29051. pTDefRegMap(@Self)^.clr := $00000100;
  29052. end;
  29053. procedure TI2C4_I2C2ASTAT.setADD10(thebits : TBits_1); inline;
  29054. begin
  29055. if thebits = 0 then
  29056. pTDefRegMap(@Self)^.clr := $00000100
  29057. else
  29058. pTDefRegMap(@Self)^.&set := $00000100;
  29059. end;
  29060. function TI2C4_I2C2ASTAT.getADD10 : TBits_1; inline;
  29061. begin
  29062. getADD10 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  29063. end;
  29064. procedure TI2C4_I2C2ASTAT.setGCSTAT; inline;
  29065. begin
  29066. pTDefRegMap(@Self)^.&set := $00000200;
  29067. end;
  29068. procedure TI2C4_I2C2ASTAT.clearGCSTAT; inline;
  29069. begin
  29070. pTDefRegMap(@Self)^.clr := $00000200;
  29071. end;
  29072. procedure TI2C4_I2C2ASTAT.setGCSTAT(thebits : TBits_1); inline;
  29073. begin
  29074. if thebits = 0 then
  29075. pTDefRegMap(@Self)^.clr := $00000200
  29076. else
  29077. pTDefRegMap(@Self)^.&set := $00000200;
  29078. end;
  29079. function TI2C4_I2C2ASTAT.getGCSTAT : TBits_1; inline;
  29080. begin
  29081. getGCSTAT := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  29082. end;
  29083. procedure TI2C4_I2C2ASTAT.setBCL; inline;
  29084. begin
  29085. pTDefRegMap(@Self)^.&set := $00000400;
  29086. end;
  29087. procedure TI2C4_I2C2ASTAT.clearBCL; inline;
  29088. begin
  29089. pTDefRegMap(@Self)^.clr := $00000400;
  29090. end;
  29091. procedure TI2C4_I2C2ASTAT.setBCL(thebits : TBits_1); inline;
  29092. begin
  29093. if thebits = 0 then
  29094. pTDefRegMap(@Self)^.clr := $00000400
  29095. else
  29096. pTDefRegMap(@Self)^.&set := $00000400;
  29097. end;
  29098. function TI2C4_I2C2ASTAT.getBCL : TBits_1; inline;
  29099. begin
  29100. getBCL := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  29101. end;
  29102. procedure TI2C4_I2C2ASTAT.setTRSTAT; inline;
  29103. begin
  29104. pTDefRegMap(@Self)^.&set := $00004000;
  29105. end;
  29106. procedure TI2C4_I2C2ASTAT.clearTRSTAT; inline;
  29107. begin
  29108. pTDefRegMap(@Self)^.clr := $00004000;
  29109. end;
  29110. procedure TI2C4_I2C2ASTAT.setTRSTAT(thebits : TBits_1); inline;
  29111. begin
  29112. if thebits = 0 then
  29113. pTDefRegMap(@Self)^.clr := $00004000
  29114. else
  29115. pTDefRegMap(@Self)^.&set := $00004000;
  29116. end;
  29117. function TI2C4_I2C2ASTAT.getTRSTAT : TBits_1; inline;
  29118. begin
  29119. getTRSTAT := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  29120. end;
  29121. procedure TI2C4_I2C2ASTAT.setACKSTAT; inline;
  29122. begin
  29123. pTDefRegMap(@Self)^.&set := $00008000;
  29124. end;
  29125. procedure TI2C4_I2C2ASTAT.clearACKSTAT; inline;
  29126. begin
  29127. pTDefRegMap(@Self)^.clr := $00008000;
  29128. end;
  29129. procedure TI2C4_I2C2ASTAT.setACKSTAT(thebits : TBits_1); inline;
  29130. begin
  29131. if thebits = 0 then
  29132. pTDefRegMap(@Self)^.clr := $00008000
  29133. else
  29134. pTDefRegMap(@Self)^.&set := $00008000;
  29135. end;
  29136. function TI2C4_I2C2ASTAT.getACKSTAT : TBits_1; inline;
  29137. begin
  29138. getACKSTAT := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  29139. end;
  29140. procedure TI2C4_I2C2ASTAT.setI2CPOV; inline;
  29141. begin
  29142. pTDefRegMap(@Self)^.&set := $00000040;
  29143. end;
  29144. procedure TI2C4_I2C2ASTAT.clearI2CPOV; inline;
  29145. begin
  29146. pTDefRegMap(@Self)^.clr := $00000040;
  29147. end;
  29148. procedure TI2C4_I2C2ASTAT.setI2CPOV(thebits : TBits_1); inline;
  29149. begin
  29150. if thebits = 0 then
  29151. pTDefRegMap(@Self)^.clr := $00000040
  29152. else
  29153. pTDefRegMap(@Self)^.&set := $00000040;
  29154. end;
  29155. function TI2C4_I2C2ASTAT.getI2CPOV : TBits_1; inline;
  29156. begin
  29157. getI2CPOV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  29158. end;
  29159. procedure TI2C4_I2C2ASTAT.setw(thebits : TBits_32); inline;
  29160. begin
  29161. pTDefRegMap(@Self)^.val := thebits;
  29162. end;
  29163. function TI2C4_I2C2ASTAT.getw : TBits_32; inline;
  29164. begin
  29165. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  29166. end;
  29167. procedure TI2C4_I2C4STAT.setTBF; inline;
  29168. begin
  29169. pTDefRegMap(@Self)^.&set := $00000001;
  29170. end;
  29171. procedure TI2C4_I2C4STAT.clearTBF; inline;
  29172. begin
  29173. pTDefRegMap(@Self)^.clr := $00000001;
  29174. end;
  29175. procedure TI2C4_I2C4STAT.setTBF(thebits : TBits_1); inline;
  29176. begin
  29177. if thebits = 0 then
  29178. pTDefRegMap(@Self)^.clr := $00000001
  29179. else
  29180. pTDefRegMap(@Self)^.&set := $00000001;
  29181. end;
  29182. function TI2C4_I2C4STAT.getTBF : TBits_1; inline;
  29183. begin
  29184. getTBF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  29185. end;
  29186. procedure TI2C4_I2C4STAT.setRBF; inline;
  29187. begin
  29188. pTDefRegMap(@Self)^.&set := $00000002;
  29189. end;
  29190. procedure TI2C4_I2C4STAT.clearRBF; inline;
  29191. begin
  29192. pTDefRegMap(@Self)^.clr := $00000002;
  29193. end;
  29194. procedure TI2C4_I2C4STAT.setRBF(thebits : TBits_1); inline;
  29195. begin
  29196. if thebits = 0 then
  29197. pTDefRegMap(@Self)^.clr := $00000002
  29198. else
  29199. pTDefRegMap(@Self)^.&set := $00000002;
  29200. end;
  29201. function TI2C4_I2C4STAT.getRBF : TBits_1; inline;
  29202. begin
  29203. getRBF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  29204. end;
  29205. procedure TI2C4_I2C4STAT.setR_W; inline;
  29206. begin
  29207. pTDefRegMap(@Self)^.&set := $00000004;
  29208. end;
  29209. procedure TI2C4_I2C4STAT.clearR_W; inline;
  29210. begin
  29211. pTDefRegMap(@Self)^.clr := $00000004;
  29212. end;
  29213. procedure TI2C4_I2C4STAT.setR_W(thebits : TBits_1); inline;
  29214. begin
  29215. if thebits = 0 then
  29216. pTDefRegMap(@Self)^.clr := $00000004
  29217. else
  29218. pTDefRegMap(@Self)^.&set := $00000004;
  29219. end;
  29220. function TI2C4_I2C4STAT.getR_W : TBits_1; inline;
  29221. begin
  29222. getR_W := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  29223. end;
  29224. procedure TI2C4_I2C4STAT.setS; inline;
  29225. begin
  29226. pTDefRegMap(@Self)^.&set := $00000008;
  29227. end;
  29228. procedure TI2C4_I2C4STAT.clearS; inline;
  29229. begin
  29230. pTDefRegMap(@Self)^.clr := $00000008;
  29231. end;
  29232. procedure TI2C4_I2C4STAT.setS(thebits : TBits_1); inline;
  29233. begin
  29234. if thebits = 0 then
  29235. pTDefRegMap(@Self)^.clr := $00000008
  29236. else
  29237. pTDefRegMap(@Self)^.&set := $00000008;
  29238. end;
  29239. function TI2C4_I2C4STAT.getS : TBits_1; inline;
  29240. begin
  29241. getS := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  29242. end;
  29243. procedure TI2C4_I2C4STAT.setP; inline;
  29244. begin
  29245. pTDefRegMap(@Self)^.&set := $00000010;
  29246. end;
  29247. procedure TI2C4_I2C4STAT.clearP; inline;
  29248. begin
  29249. pTDefRegMap(@Self)^.clr := $00000010;
  29250. end;
  29251. procedure TI2C4_I2C4STAT.setP(thebits : TBits_1); inline;
  29252. begin
  29253. if thebits = 0 then
  29254. pTDefRegMap(@Self)^.clr := $00000010
  29255. else
  29256. pTDefRegMap(@Self)^.&set := $00000010;
  29257. end;
  29258. function TI2C4_I2C4STAT.getP : TBits_1; inline;
  29259. begin
  29260. getP := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  29261. end;
  29262. procedure TI2C4_I2C4STAT.setD_A; inline;
  29263. begin
  29264. pTDefRegMap(@Self)^.&set := $00000020;
  29265. end;
  29266. procedure TI2C4_I2C4STAT.clearD_A; inline;
  29267. begin
  29268. pTDefRegMap(@Self)^.clr := $00000020;
  29269. end;
  29270. procedure TI2C4_I2C4STAT.setD_A(thebits : TBits_1); inline;
  29271. begin
  29272. if thebits = 0 then
  29273. pTDefRegMap(@Self)^.clr := $00000020
  29274. else
  29275. pTDefRegMap(@Self)^.&set := $00000020;
  29276. end;
  29277. function TI2C4_I2C4STAT.getD_A : TBits_1; inline;
  29278. begin
  29279. getD_A := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  29280. end;
  29281. procedure TI2C4_I2C4STAT.setI2COV; inline;
  29282. begin
  29283. pTDefRegMap(@Self)^.&set := $00000040;
  29284. end;
  29285. procedure TI2C4_I2C4STAT.clearI2COV; inline;
  29286. begin
  29287. pTDefRegMap(@Self)^.clr := $00000040;
  29288. end;
  29289. procedure TI2C4_I2C4STAT.setI2COV(thebits : TBits_1); inline;
  29290. begin
  29291. if thebits = 0 then
  29292. pTDefRegMap(@Self)^.clr := $00000040
  29293. else
  29294. pTDefRegMap(@Self)^.&set := $00000040;
  29295. end;
  29296. function TI2C4_I2C4STAT.getI2COV : TBits_1; inline;
  29297. begin
  29298. getI2COV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  29299. end;
  29300. procedure TI2C4_I2C4STAT.setIWCOL; inline;
  29301. begin
  29302. pTDefRegMap(@Self)^.&set := $00000080;
  29303. end;
  29304. procedure TI2C4_I2C4STAT.clearIWCOL; inline;
  29305. begin
  29306. pTDefRegMap(@Self)^.clr := $00000080;
  29307. end;
  29308. procedure TI2C4_I2C4STAT.setIWCOL(thebits : TBits_1); inline;
  29309. begin
  29310. if thebits = 0 then
  29311. pTDefRegMap(@Self)^.clr := $00000080
  29312. else
  29313. pTDefRegMap(@Self)^.&set := $00000080;
  29314. end;
  29315. function TI2C4_I2C4STAT.getIWCOL : TBits_1; inline;
  29316. begin
  29317. getIWCOL := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  29318. end;
  29319. procedure TI2C4_I2C4STAT.setADD10; inline;
  29320. begin
  29321. pTDefRegMap(@Self)^.&set := $00000100;
  29322. end;
  29323. procedure TI2C4_I2C4STAT.clearADD10; inline;
  29324. begin
  29325. pTDefRegMap(@Self)^.clr := $00000100;
  29326. end;
  29327. procedure TI2C4_I2C4STAT.setADD10(thebits : TBits_1); inline;
  29328. begin
  29329. if thebits = 0 then
  29330. pTDefRegMap(@Self)^.clr := $00000100
  29331. else
  29332. pTDefRegMap(@Self)^.&set := $00000100;
  29333. end;
  29334. function TI2C4_I2C4STAT.getADD10 : TBits_1; inline;
  29335. begin
  29336. getADD10 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  29337. end;
  29338. procedure TI2C4_I2C4STAT.setGCSTAT; inline;
  29339. begin
  29340. pTDefRegMap(@Self)^.&set := $00000200;
  29341. end;
  29342. procedure TI2C4_I2C4STAT.clearGCSTAT; inline;
  29343. begin
  29344. pTDefRegMap(@Self)^.clr := $00000200;
  29345. end;
  29346. procedure TI2C4_I2C4STAT.setGCSTAT(thebits : TBits_1); inline;
  29347. begin
  29348. if thebits = 0 then
  29349. pTDefRegMap(@Self)^.clr := $00000200
  29350. else
  29351. pTDefRegMap(@Self)^.&set := $00000200;
  29352. end;
  29353. function TI2C4_I2C4STAT.getGCSTAT : TBits_1; inline;
  29354. begin
  29355. getGCSTAT := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  29356. end;
  29357. procedure TI2C4_I2C4STAT.setBCL; inline;
  29358. begin
  29359. pTDefRegMap(@Self)^.&set := $00000400;
  29360. end;
  29361. procedure TI2C4_I2C4STAT.clearBCL; inline;
  29362. begin
  29363. pTDefRegMap(@Self)^.clr := $00000400;
  29364. end;
  29365. procedure TI2C4_I2C4STAT.setBCL(thebits : TBits_1); inline;
  29366. begin
  29367. if thebits = 0 then
  29368. pTDefRegMap(@Self)^.clr := $00000400
  29369. else
  29370. pTDefRegMap(@Self)^.&set := $00000400;
  29371. end;
  29372. function TI2C4_I2C4STAT.getBCL : TBits_1; inline;
  29373. begin
  29374. getBCL := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  29375. end;
  29376. procedure TI2C4_I2C4STAT.setTRSTAT; inline;
  29377. begin
  29378. pTDefRegMap(@Self)^.&set := $00004000;
  29379. end;
  29380. procedure TI2C4_I2C4STAT.clearTRSTAT; inline;
  29381. begin
  29382. pTDefRegMap(@Self)^.clr := $00004000;
  29383. end;
  29384. procedure TI2C4_I2C4STAT.setTRSTAT(thebits : TBits_1); inline;
  29385. begin
  29386. if thebits = 0 then
  29387. pTDefRegMap(@Self)^.clr := $00004000
  29388. else
  29389. pTDefRegMap(@Self)^.&set := $00004000;
  29390. end;
  29391. function TI2C4_I2C4STAT.getTRSTAT : TBits_1; inline;
  29392. begin
  29393. getTRSTAT := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  29394. end;
  29395. procedure TI2C4_I2C4STAT.setACKSTAT; inline;
  29396. begin
  29397. pTDefRegMap(@Self)^.&set := $00008000;
  29398. end;
  29399. procedure TI2C4_I2C4STAT.clearACKSTAT; inline;
  29400. begin
  29401. pTDefRegMap(@Self)^.clr := $00008000;
  29402. end;
  29403. procedure TI2C4_I2C4STAT.setACKSTAT(thebits : TBits_1); inline;
  29404. begin
  29405. if thebits = 0 then
  29406. pTDefRegMap(@Self)^.clr := $00008000
  29407. else
  29408. pTDefRegMap(@Self)^.&set := $00008000;
  29409. end;
  29410. function TI2C4_I2C4STAT.getACKSTAT : TBits_1; inline;
  29411. begin
  29412. getACKSTAT := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  29413. end;
  29414. procedure TI2C4_I2C4STAT.setI2CPOV; inline;
  29415. begin
  29416. pTDefRegMap(@Self)^.&set := $00000040;
  29417. end;
  29418. procedure TI2C4_I2C4STAT.clearI2CPOV; inline;
  29419. begin
  29420. pTDefRegMap(@Self)^.clr := $00000040;
  29421. end;
  29422. procedure TI2C4_I2C4STAT.setI2CPOV(thebits : TBits_1); inline;
  29423. begin
  29424. if thebits = 0 then
  29425. pTDefRegMap(@Self)^.clr := $00000040
  29426. else
  29427. pTDefRegMap(@Self)^.&set := $00000040;
  29428. end;
  29429. function TI2C4_I2C4STAT.getI2CPOV : TBits_1; inline;
  29430. begin
  29431. getI2CPOV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  29432. end;
  29433. procedure TI2C4_I2C4STAT.setw(thebits : TBits_32); inline;
  29434. begin
  29435. pTDefRegMap(@Self)^.val := thebits;
  29436. end;
  29437. function TI2C4_I2C4STAT.getw : TBits_32; inline;
  29438. begin
  29439. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  29440. end;
  29441. procedure TI2C5_I2C3ACON.setSEN; inline;
  29442. begin
  29443. pTDefRegMap(@Self)^.&set := $00000001;
  29444. end;
  29445. procedure TI2C5_I2C3ACON.clearSEN; inline;
  29446. begin
  29447. pTDefRegMap(@Self)^.clr := $00000001;
  29448. end;
  29449. procedure TI2C5_I2C3ACON.setSEN(thebits : TBits_1); inline;
  29450. begin
  29451. if thebits = 0 then
  29452. pTDefRegMap(@Self)^.clr := $00000001
  29453. else
  29454. pTDefRegMap(@Self)^.&set := $00000001;
  29455. end;
  29456. function TI2C5_I2C3ACON.getSEN : TBits_1; inline;
  29457. begin
  29458. getSEN := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  29459. end;
  29460. procedure TI2C5_I2C3ACON.setRSEN; inline;
  29461. begin
  29462. pTDefRegMap(@Self)^.&set := $00000002;
  29463. end;
  29464. procedure TI2C5_I2C3ACON.clearRSEN; inline;
  29465. begin
  29466. pTDefRegMap(@Self)^.clr := $00000002;
  29467. end;
  29468. procedure TI2C5_I2C3ACON.setRSEN(thebits : TBits_1); inline;
  29469. begin
  29470. if thebits = 0 then
  29471. pTDefRegMap(@Self)^.clr := $00000002
  29472. else
  29473. pTDefRegMap(@Self)^.&set := $00000002;
  29474. end;
  29475. function TI2C5_I2C3ACON.getRSEN : TBits_1; inline;
  29476. begin
  29477. getRSEN := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  29478. end;
  29479. procedure TI2C5_I2C3ACON.setPEN; inline;
  29480. begin
  29481. pTDefRegMap(@Self)^.&set := $00000004;
  29482. end;
  29483. procedure TI2C5_I2C3ACON.clearPEN; inline;
  29484. begin
  29485. pTDefRegMap(@Self)^.clr := $00000004;
  29486. end;
  29487. procedure TI2C5_I2C3ACON.setPEN(thebits : TBits_1); inline;
  29488. begin
  29489. if thebits = 0 then
  29490. pTDefRegMap(@Self)^.clr := $00000004
  29491. else
  29492. pTDefRegMap(@Self)^.&set := $00000004;
  29493. end;
  29494. function TI2C5_I2C3ACON.getPEN : TBits_1; inline;
  29495. begin
  29496. getPEN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  29497. end;
  29498. procedure TI2C5_I2C3ACON.setRCEN; inline;
  29499. begin
  29500. pTDefRegMap(@Self)^.&set := $00000008;
  29501. end;
  29502. procedure TI2C5_I2C3ACON.clearRCEN; inline;
  29503. begin
  29504. pTDefRegMap(@Self)^.clr := $00000008;
  29505. end;
  29506. procedure TI2C5_I2C3ACON.setRCEN(thebits : TBits_1); inline;
  29507. begin
  29508. if thebits = 0 then
  29509. pTDefRegMap(@Self)^.clr := $00000008
  29510. else
  29511. pTDefRegMap(@Self)^.&set := $00000008;
  29512. end;
  29513. function TI2C5_I2C3ACON.getRCEN : TBits_1; inline;
  29514. begin
  29515. getRCEN := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  29516. end;
  29517. procedure TI2C5_I2C3ACON.setACKEN; inline;
  29518. begin
  29519. pTDefRegMap(@Self)^.&set := $00000010;
  29520. end;
  29521. procedure TI2C5_I2C3ACON.clearACKEN; inline;
  29522. begin
  29523. pTDefRegMap(@Self)^.clr := $00000010;
  29524. end;
  29525. procedure TI2C5_I2C3ACON.setACKEN(thebits : TBits_1); inline;
  29526. begin
  29527. if thebits = 0 then
  29528. pTDefRegMap(@Self)^.clr := $00000010
  29529. else
  29530. pTDefRegMap(@Self)^.&set := $00000010;
  29531. end;
  29532. function TI2C5_I2C3ACON.getACKEN : TBits_1; inline;
  29533. begin
  29534. getACKEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  29535. end;
  29536. procedure TI2C5_I2C3ACON.setACKDT; inline;
  29537. begin
  29538. pTDefRegMap(@Self)^.&set := $00000020;
  29539. end;
  29540. procedure TI2C5_I2C3ACON.clearACKDT; inline;
  29541. begin
  29542. pTDefRegMap(@Self)^.clr := $00000020;
  29543. end;
  29544. procedure TI2C5_I2C3ACON.setACKDT(thebits : TBits_1); inline;
  29545. begin
  29546. if thebits = 0 then
  29547. pTDefRegMap(@Self)^.clr := $00000020
  29548. else
  29549. pTDefRegMap(@Self)^.&set := $00000020;
  29550. end;
  29551. function TI2C5_I2C3ACON.getACKDT : TBits_1; inline;
  29552. begin
  29553. getACKDT := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  29554. end;
  29555. procedure TI2C5_I2C3ACON.setSTREN; inline;
  29556. begin
  29557. pTDefRegMap(@Self)^.&set := $00000040;
  29558. end;
  29559. procedure TI2C5_I2C3ACON.clearSTREN; inline;
  29560. begin
  29561. pTDefRegMap(@Self)^.clr := $00000040;
  29562. end;
  29563. procedure TI2C5_I2C3ACON.setSTREN(thebits : TBits_1); inline;
  29564. begin
  29565. if thebits = 0 then
  29566. pTDefRegMap(@Self)^.clr := $00000040
  29567. else
  29568. pTDefRegMap(@Self)^.&set := $00000040;
  29569. end;
  29570. function TI2C5_I2C3ACON.getSTREN : TBits_1; inline;
  29571. begin
  29572. getSTREN := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  29573. end;
  29574. procedure TI2C5_I2C3ACON.setGCEN; inline;
  29575. begin
  29576. pTDefRegMap(@Self)^.&set := $00000080;
  29577. end;
  29578. procedure TI2C5_I2C3ACON.clearGCEN; inline;
  29579. begin
  29580. pTDefRegMap(@Self)^.clr := $00000080;
  29581. end;
  29582. procedure TI2C5_I2C3ACON.setGCEN(thebits : TBits_1); inline;
  29583. begin
  29584. if thebits = 0 then
  29585. pTDefRegMap(@Self)^.clr := $00000080
  29586. else
  29587. pTDefRegMap(@Self)^.&set := $00000080;
  29588. end;
  29589. function TI2C5_I2C3ACON.getGCEN : TBits_1; inline;
  29590. begin
  29591. getGCEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  29592. end;
  29593. procedure TI2C5_I2C3ACON.setSMEN; inline;
  29594. begin
  29595. pTDefRegMap(@Self)^.&set := $00000100;
  29596. end;
  29597. procedure TI2C5_I2C3ACON.clearSMEN; inline;
  29598. begin
  29599. pTDefRegMap(@Self)^.clr := $00000100;
  29600. end;
  29601. procedure TI2C5_I2C3ACON.setSMEN(thebits : TBits_1); inline;
  29602. begin
  29603. if thebits = 0 then
  29604. pTDefRegMap(@Self)^.clr := $00000100
  29605. else
  29606. pTDefRegMap(@Self)^.&set := $00000100;
  29607. end;
  29608. function TI2C5_I2C3ACON.getSMEN : TBits_1; inline;
  29609. begin
  29610. getSMEN := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  29611. end;
  29612. procedure TI2C5_I2C3ACON.setDISSLW; inline;
  29613. begin
  29614. pTDefRegMap(@Self)^.&set := $00000200;
  29615. end;
  29616. procedure TI2C5_I2C3ACON.clearDISSLW; inline;
  29617. begin
  29618. pTDefRegMap(@Self)^.clr := $00000200;
  29619. end;
  29620. procedure TI2C5_I2C3ACON.setDISSLW(thebits : TBits_1); inline;
  29621. begin
  29622. if thebits = 0 then
  29623. pTDefRegMap(@Self)^.clr := $00000200
  29624. else
  29625. pTDefRegMap(@Self)^.&set := $00000200;
  29626. end;
  29627. function TI2C5_I2C3ACON.getDISSLW : TBits_1; inline;
  29628. begin
  29629. getDISSLW := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  29630. end;
  29631. procedure TI2C5_I2C3ACON.setA10M; inline;
  29632. begin
  29633. pTDefRegMap(@Self)^.&set := $00000400;
  29634. end;
  29635. procedure TI2C5_I2C3ACON.clearA10M; inline;
  29636. begin
  29637. pTDefRegMap(@Self)^.clr := $00000400;
  29638. end;
  29639. procedure TI2C5_I2C3ACON.setA10M(thebits : TBits_1); inline;
  29640. begin
  29641. if thebits = 0 then
  29642. pTDefRegMap(@Self)^.clr := $00000400
  29643. else
  29644. pTDefRegMap(@Self)^.&set := $00000400;
  29645. end;
  29646. function TI2C5_I2C3ACON.getA10M : TBits_1; inline;
  29647. begin
  29648. getA10M := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  29649. end;
  29650. procedure TI2C5_I2C3ACON.setSTRICT; inline;
  29651. begin
  29652. pTDefRegMap(@Self)^.&set := $00000800;
  29653. end;
  29654. procedure TI2C5_I2C3ACON.clearSTRICT; inline;
  29655. begin
  29656. pTDefRegMap(@Self)^.clr := $00000800;
  29657. end;
  29658. procedure TI2C5_I2C3ACON.setSTRICT(thebits : TBits_1); inline;
  29659. begin
  29660. if thebits = 0 then
  29661. pTDefRegMap(@Self)^.clr := $00000800
  29662. else
  29663. pTDefRegMap(@Self)^.&set := $00000800;
  29664. end;
  29665. function TI2C5_I2C3ACON.getSTRICT : TBits_1; inline;
  29666. begin
  29667. getSTRICT := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  29668. end;
  29669. procedure TI2C5_I2C3ACON.setSCLREL; inline;
  29670. begin
  29671. pTDefRegMap(@Self)^.&set := $00001000;
  29672. end;
  29673. procedure TI2C5_I2C3ACON.clearSCLREL; inline;
  29674. begin
  29675. pTDefRegMap(@Self)^.clr := $00001000;
  29676. end;
  29677. procedure TI2C5_I2C3ACON.setSCLREL(thebits : TBits_1); inline;
  29678. begin
  29679. if thebits = 0 then
  29680. pTDefRegMap(@Self)^.clr := $00001000
  29681. else
  29682. pTDefRegMap(@Self)^.&set := $00001000;
  29683. end;
  29684. function TI2C5_I2C3ACON.getSCLREL : TBits_1; inline;
  29685. begin
  29686. getSCLREL := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  29687. end;
  29688. procedure TI2C5_I2C3ACON.setSIDL; inline;
  29689. begin
  29690. pTDefRegMap(@Self)^.&set := $00002000;
  29691. end;
  29692. procedure TI2C5_I2C3ACON.clearSIDL; inline;
  29693. begin
  29694. pTDefRegMap(@Self)^.clr := $00002000;
  29695. end;
  29696. procedure TI2C5_I2C3ACON.setSIDL(thebits : TBits_1); inline;
  29697. begin
  29698. if thebits = 0 then
  29699. pTDefRegMap(@Self)^.clr := $00002000
  29700. else
  29701. pTDefRegMap(@Self)^.&set := $00002000;
  29702. end;
  29703. function TI2C5_I2C3ACON.getSIDL : TBits_1; inline;
  29704. begin
  29705. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  29706. end;
  29707. procedure TI2C5_I2C3ACON.setON; inline;
  29708. begin
  29709. pTDefRegMap(@Self)^.&set := $00008000;
  29710. end;
  29711. procedure TI2C5_I2C3ACON.clearON; inline;
  29712. begin
  29713. pTDefRegMap(@Self)^.clr := $00008000;
  29714. end;
  29715. procedure TI2C5_I2C3ACON.setON(thebits : TBits_1); inline;
  29716. begin
  29717. if thebits = 0 then
  29718. pTDefRegMap(@Self)^.clr := $00008000
  29719. else
  29720. pTDefRegMap(@Self)^.&set := $00008000;
  29721. end;
  29722. function TI2C5_I2C3ACON.getON : TBits_1; inline;
  29723. begin
  29724. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  29725. end;
  29726. procedure TI2C5_I2C3ACON.setIPMIEN; inline;
  29727. begin
  29728. pTDefRegMap(@Self)^.&set := $00000800;
  29729. end;
  29730. procedure TI2C5_I2C3ACON.clearIPMIEN; inline;
  29731. begin
  29732. pTDefRegMap(@Self)^.clr := $00000800;
  29733. end;
  29734. procedure TI2C5_I2C3ACON.setIPMIEN(thebits : TBits_1); inline;
  29735. begin
  29736. if thebits = 0 then
  29737. pTDefRegMap(@Self)^.clr := $00000800
  29738. else
  29739. pTDefRegMap(@Self)^.&set := $00000800;
  29740. end;
  29741. function TI2C5_I2C3ACON.getIPMIEN : TBits_1; inline;
  29742. begin
  29743. getIPMIEN := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  29744. end;
  29745. procedure TI2C5_I2C3ACON.setI2CSIDL; inline;
  29746. begin
  29747. pTDefRegMap(@Self)^.&set := $00002000;
  29748. end;
  29749. procedure TI2C5_I2C3ACON.clearI2CSIDL; inline;
  29750. begin
  29751. pTDefRegMap(@Self)^.clr := $00002000;
  29752. end;
  29753. procedure TI2C5_I2C3ACON.setI2CSIDL(thebits : TBits_1); inline;
  29754. begin
  29755. if thebits = 0 then
  29756. pTDefRegMap(@Self)^.clr := $00002000
  29757. else
  29758. pTDefRegMap(@Self)^.&set := $00002000;
  29759. end;
  29760. function TI2C5_I2C3ACON.getI2CSIDL : TBits_1; inline;
  29761. begin
  29762. getI2CSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  29763. end;
  29764. procedure TI2C5_I2C3ACON.setI2CEN; inline;
  29765. begin
  29766. pTDefRegMap(@Self)^.&set := $00008000;
  29767. end;
  29768. procedure TI2C5_I2C3ACON.clearI2CEN; inline;
  29769. begin
  29770. pTDefRegMap(@Self)^.clr := $00008000;
  29771. end;
  29772. procedure TI2C5_I2C3ACON.setI2CEN(thebits : TBits_1); inline;
  29773. begin
  29774. if thebits = 0 then
  29775. pTDefRegMap(@Self)^.clr := $00008000
  29776. else
  29777. pTDefRegMap(@Self)^.&set := $00008000;
  29778. end;
  29779. function TI2C5_I2C3ACON.getI2CEN : TBits_1; inline;
  29780. begin
  29781. getI2CEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  29782. end;
  29783. procedure TI2C5_I2C3ACON.setw(thebits : TBits_32); inline;
  29784. begin
  29785. pTDefRegMap(@Self)^.val := thebits;
  29786. end;
  29787. function TI2C5_I2C3ACON.getw : TBits_32; inline;
  29788. begin
  29789. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  29790. end;
  29791. procedure TI2C5_I2C5CON.setSEN; inline;
  29792. begin
  29793. pTDefRegMap(@Self)^.&set := $00000001;
  29794. end;
  29795. procedure TI2C5_I2C5CON.clearSEN; inline;
  29796. begin
  29797. pTDefRegMap(@Self)^.clr := $00000001;
  29798. end;
  29799. procedure TI2C5_I2C5CON.setSEN(thebits : TBits_1); inline;
  29800. begin
  29801. if thebits = 0 then
  29802. pTDefRegMap(@Self)^.clr := $00000001
  29803. else
  29804. pTDefRegMap(@Self)^.&set := $00000001;
  29805. end;
  29806. function TI2C5_I2C5CON.getSEN : TBits_1; inline;
  29807. begin
  29808. getSEN := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  29809. end;
  29810. procedure TI2C5_I2C5CON.setRSEN; inline;
  29811. begin
  29812. pTDefRegMap(@Self)^.&set := $00000002;
  29813. end;
  29814. procedure TI2C5_I2C5CON.clearRSEN; inline;
  29815. begin
  29816. pTDefRegMap(@Self)^.clr := $00000002;
  29817. end;
  29818. procedure TI2C5_I2C5CON.setRSEN(thebits : TBits_1); inline;
  29819. begin
  29820. if thebits = 0 then
  29821. pTDefRegMap(@Self)^.clr := $00000002
  29822. else
  29823. pTDefRegMap(@Self)^.&set := $00000002;
  29824. end;
  29825. function TI2C5_I2C5CON.getRSEN : TBits_1; inline;
  29826. begin
  29827. getRSEN := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  29828. end;
  29829. procedure TI2C5_I2C5CON.setPEN; inline;
  29830. begin
  29831. pTDefRegMap(@Self)^.&set := $00000004;
  29832. end;
  29833. procedure TI2C5_I2C5CON.clearPEN; inline;
  29834. begin
  29835. pTDefRegMap(@Self)^.clr := $00000004;
  29836. end;
  29837. procedure TI2C5_I2C5CON.setPEN(thebits : TBits_1); inline;
  29838. begin
  29839. if thebits = 0 then
  29840. pTDefRegMap(@Self)^.clr := $00000004
  29841. else
  29842. pTDefRegMap(@Self)^.&set := $00000004;
  29843. end;
  29844. function TI2C5_I2C5CON.getPEN : TBits_1; inline;
  29845. begin
  29846. getPEN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  29847. end;
  29848. procedure TI2C5_I2C5CON.setRCEN; inline;
  29849. begin
  29850. pTDefRegMap(@Self)^.&set := $00000008;
  29851. end;
  29852. procedure TI2C5_I2C5CON.clearRCEN; inline;
  29853. begin
  29854. pTDefRegMap(@Self)^.clr := $00000008;
  29855. end;
  29856. procedure TI2C5_I2C5CON.setRCEN(thebits : TBits_1); inline;
  29857. begin
  29858. if thebits = 0 then
  29859. pTDefRegMap(@Self)^.clr := $00000008
  29860. else
  29861. pTDefRegMap(@Self)^.&set := $00000008;
  29862. end;
  29863. function TI2C5_I2C5CON.getRCEN : TBits_1; inline;
  29864. begin
  29865. getRCEN := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  29866. end;
  29867. procedure TI2C5_I2C5CON.setACKEN; inline;
  29868. begin
  29869. pTDefRegMap(@Self)^.&set := $00000010;
  29870. end;
  29871. procedure TI2C5_I2C5CON.clearACKEN; inline;
  29872. begin
  29873. pTDefRegMap(@Self)^.clr := $00000010;
  29874. end;
  29875. procedure TI2C5_I2C5CON.setACKEN(thebits : TBits_1); inline;
  29876. begin
  29877. if thebits = 0 then
  29878. pTDefRegMap(@Self)^.clr := $00000010
  29879. else
  29880. pTDefRegMap(@Self)^.&set := $00000010;
  29881. end;
  29882. function TI2C5_I2C5CON.getACKEN : TBits_1; inline;
  29883. begin
  29884. getACKEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  29885. end;
  29886. procedure TI2C5_I2C5CON.setACKDT; inline;
  29887. begin
  29888. pTDefRegMap(@Self)^.&set := $00000020;
  29889. end;
  29890. procedure TI2C5_I2C5CON.clearACKDT; inline;
  29891. begin
  29892. pTDefRegMap(@Self)^.clr := $00000020;
  29893. end;
  29894. procedure TI2C5_I2C5CON.setACKDT(thebits : TBits_1); inline;
  29895. begin
  29896. if thebits = 0 then
  29897. pTDefRegMap(@Self)^.clr := $00000020
  29898. else
  29899. pTDefRegMap(@Self)^.&set := $00000020;
  29900. end;
  29901. function TI2C5_I2C5CON.getACKDT : TBits_1; inline;
  29902. begin
  29903. getACKDT := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  29904. end;
  29905. procedure TI2C5_I2C5CON.setSTREN; inline;
  29906. begin
  29907. pTDefRegMap(@Self)^.&set := $00000040;
  29908. end;
  29909. procedure TI2C5_I2C5CON.clearSTREN; inline;
  29910. begin
  29911. pTDefRegMap(@Self)^.clr := $00000040;
  29912. end;
  29913. procedure TI2C5_I2C5CON.setSTREN(thebits : TBits_1); inline;
  29914. begin
  29915. if thebits = 0 then
  29916. pTDefRegMap(@Self)^.clr := $00000040
  29917. else
  29918. pTDefRegMap(@Self)^.&set := $00000040;
  29919. end;
  29920. function TI2C5_I2C5CON.getSTREN : TBits_1; inline;
  29921. begin
  29922. getSTREN := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  29923. end;
  29924. procedure TI2C5_I2C5CON.setGCEN; inline;
  29925. begin
  29926. pTDefRegMap(@Self)^.&set := $00000080;
  29927. end;
  29928. procedure TI2C5_I2C5CON.clearGCEN; inline;
  29929. begin
  29930. pTDefRegMap(@Self)^.clr := $00000080;
  29931. end;
  29932. procedure TI2C5_I2C5CON.setGCEN(thebits : TBits_1); inline;
  29933. begin
  29934. if thebits = 0 then
  29935. pTDefRegMap(@Self)^.clr := $00000080
  29936. else
  29937. pTDefRegMap(@Self)^.&set := $00000080;
  29938. end;
  29939. function TI2C5_I2C5CON.getGCEN : TBits_1; inline;
  29940. begin
  29941. getGCEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  29942. end;
  29943. procedure TI2C5_I2C5CON.setSMEN; inline;
  29944. begin
  29945. pTDefRegMap(@Self)^.&set := $00000100;
  29946. end;
  29947. procedure TI2C5_I2C5CON.clearSMEN; inline;
  29948. begin
  29949. pTDefRegMap(@Self)^.clr := $00000100;
  29950. end;
  29951. procedure TI2C5_I2C5CON.setSMEN(thebits : TBits_1); inline;
  29952. begin
  29953. if thebits = 0 then
  29954. pTDefRegMap(@Self)^.clr := $00000100
  29955. else
  29956. pTDefRegMap(@Self)^.&set := $00000100;
  29957. end;
  29958. function TI2C5_I2C5CON.getSMEN : TBits_1; inline;
  29959. begin
  29960. getSMEN := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  29961. end;
  29962. procedure TI2C5_I2C5CON.setDISSLW; inline;
  29963. begin
  29964. pTDefRegMap(@Self)^.&set := $00000200;
  29965. end;
  29966. procedure TI2C5_I2C5CON.clearDISSLW; inline;
  29967. begin
  29968. pTDefRegMap(@Self)^.clr := $00000200;
  29969. end;
  29970. procedure TI2C5_I2C5CON.setDISSLW(thebits : TBits_1); inline;
  29971. begin
  29972. if thebits = 0 then
  29973. pTDefRegMap(@Self)^.clr := $00000200
  29974. else
  29975. pTDefRegMap(@Self)^.&set := $00000200;
  29976. end;
  29977. function TI2C5_I2C5CON.getDISSLW : TBits_1; inline;
  29978. begin
  29979. getDISSLW := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  29980. end;
  29981. procedure TI2C5_I2C5CON.setA10M; inline;
  29982. begin
  29983. pTDefRegMap(@Self)^.&set := $00000400;
  29984. end;
  29985. procedure TI2C5_I2C5CON.clearA10M; inline;
  29986. begin
  29987. pTDefRegMap(@Self)^.clr := $00000400;
  29988. end;
  29989. procedure TI2C5_I2C5CON.setA10M(thebits : TBits_1); inline;
  29990. begin
  29991. if thebits = 0 then
  29992. pTDefRegMap(@Self)^.clr := $00000400
  29993. else
  29994. pTDefRegMap(@Self)^.&set := $00000400;
  29995. end;
  29996. function TI2C5_I2C5CON.getA10M : TBits_1; inline;
  29997. begin
  29998. getA10M := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  29999. end;
  30000. procedure TI2C5_I2C5CON.setSTRICT; inline;
  30001. begin
  30002. pTDefRegMap(@Self)^.&set := $00000800;
  30003. end;
  30004. procedure TI2C5_I2C5CON.clearSTRICT; inline;
  30005. begin
  30006. pTDefRegMap(@Self)^.clr := $00000800;
  30007. end;
  30008. procedure TI2C5_I2C5CON.setSTRICT(thebits : TBits_1); inline;
  30009. begin
  30010. if thebits = 0 then
  30011. pTDefRegMap(@Self)^.clr := $00000800
  30012. else
  30013. pTDefRegMap(@Self)^.&set := $00000800;
  30014. end;
  30015. function TI2C5_I2C5CON.getSTRICT : TBits_1; inline;
  30016. begin
  30017. getSTRICT := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  30018. end;
  30019. procedure TI2C5_I2C5CON.setSCLREL; inline;
  30020. begin
  30021. pTDefRegMap(@Self)^.&set := $00001000;
  30022. end;
  30023. procedure TI2C5_I2C5CON.clearSCLREL; inline;
  30024. begin
  30025. pTDefRegMap(@Self)^.clr := $00001000;
  30026. end;
  30027. procedure TI2C5_I2C5CON.setSCLREL(thebits : TBits_1); inline;
  30028. begin
  30029. if thebits = 0 then
  30030. pTDefRegMap(@Self)^.clr := $00001000
  30031. else
  30032. pTDefRegMap(@Self)^.&set := $00001000;
  30033. end;
  30034. function TI2C5_I2C5CON.getSCLREL : TBits_1; inline;
  30035. begin
  30036. getSCLREL := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  30037. end;
  30038. procedure TI2C5_I2C5CON.setSIDL; inline;
  30039. begin
  30040. pTDefRegMap(@Self)^.&set := $00002000;
  30041. end;
  30042. procedure TI2C5_I2C5CON.clearSIDL; inline;
  30043. begin
  30044. pTDefRegMap(@Self)^.clr := $00002000;
  30045. end;
  30046. procedure TI2C5_I2C5CON.setSIDL(thebits : TBits_1); inline;
  30047. begin
  30048. if thebits = 0 then
  30049. pTDefRegMap(@Self)^.clr := $00002000
  30050. else
  30051. pTDefRegMap(@Self)^.&set := $00002000;
  30052. end;
  30053. function TI2C5_I2C5CON.getSIDL : TBits_1; inline;
  30054. begin
  30055. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  30056. end;
  30057. procedure TI2C5_I2C5CON.setON; inline;
  30058. begin
  30059. pTDefRegMap(@Self)^.&set := $00008000;
  30060. end;
  30061. procedure TI2C5_I2C5CON.clearON; inline;
  30062. begin
  30063. pTDefRegMap(@Self)^.clr := $00008000;
  30064. end;
  30065. procedure TI2C5_I2C5CON.setON(thebits : TBits_1); inline;
  30066. begin
  30067. if thebits = 0 then
  30068. pTDefRegMap(@Self)^.clr := $00008000
  30069. else
  30070. pTDefRegMap(@Self)^.&set := $00008000;
  30071. end;
  30072. function TI2C5_I2C5CON.getON : TBits_1; inline;
  30073. begin
  30074. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  30075. end;
  30076. procedure TI2C5_I2C5CON.setIPMIEN; inline;
  30077. begin
  30078. pTDefRegMap(@Self)^.&set := $00000800;
  30079. end;
  30080. procedure TI2C5_I2C5CON.clearIPMIEN; inline;
  30081. begin
  30082. pTDefRegMap(@Self)^.clr := $00000800;
  30083. end;
  30084. procedure TI2C5_I2C5CON.setIPMIEN(thebits : TBits_1); inline;
  30085. begin
  30086. if thebits = 0 then
  30087. pTDefRegMap(@Self)^.clr := $00000800
  30088. else
  30089. pTDefRegMap(@Self)^.&set := $00000800;
  30090. end;
  30091. function TI2C5_I2C5CON.getIPMIEN : TBits_1; inline;
  30092. begin
  30093. getIPMIEN := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  30094. end;
  30095. procedure TI2C5_I2C5CON.setI2CSIDL; inline;
  30096. begin
  30097. pTDefRegMap(@Self)^.&set := $00002000;
  30098. end;
  30099. procedure TI2C5_I2C5CON.clearI2CSIDL; inline;
  30100. begin
  30101. pTDefRegMap(@Self)^.clr := $00002000;
  30102. end;
  30103. procedure TI2C5_I2C5CON.setI2CSIDL(thebits : TBits_1); inline;
  30104. begin
  30105. if thebits = 0 then
  30106. pTDefRegMap(@Self)^.clr := $00002000
  30107. else
  30108. pTDefRegMap(@Self)^.&set := $00002000;
  30109. end;
  30110. function TI2C5_I2C5CON.getI2CSIDL : TBits_1; inline;
  30111. begin
  30112. getI2CSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  30113. end;
  30114. procedure TI2C5_I2C5CON.setI2CEN; inline;
  30115. begin
  30116. pTDefRegMap(@Self)^.&set := $00008000;
  30117. end;
  30118. procedure TI2C5_I2C5CON.clearI2CEN; inline;
  30119. begin
  30120. pTDefRegMap(@Self)^.clr := $00008000;
  30121. end;
  30122. procedure TI2C5_I2C5CON.setI2CEN(thebits : TBits_1); inline;
  30123. begin
  30124. if thebits = 0 then
  30125. pTDefRegMap(@Self)^.clr := $00008000
  30126. else
  30127. pTDefRegMap(@Self)^.&set := $00008000;
  30128. end;
  30129. function TI2C5_I2C5CON.getI2CEN : TBits_1; inline;
  30130. begin
  30131. getI2CEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  30132. end;
  30133. procedure TI2C5_I2C5CON.setw(thebits : TBits_32); inline;
  30134. begin
  30135. pTDefRegMap(@Self)^.val := thebits;
  30136. end;
  30137. function TI2C5_I2C5CON.getw : TBits_32; inline;
  30138. begin
  30139. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  30140. end;
  30141. procedure TI2C5_I2C3ASTAT.setTBF; inline;
  30142. begin
  30143. pTDefRegMap(@Self)^.&set := $00000001;
  30144. end;
  30145. procedure TI2C5_I2C3ASTAT.clearTBF; inline;
  30146. begin
  30147. pTDefRegMap(@Self)^.clr := $00000001;
  30148. end;
  30149. procedure TI2C5_I2C3ASTAT.setTBF(thebits : TBits_1); inline;
  30150. begin
  30151. if thebits = 0 then
  30152. pTDefRegMap(@Self)^.clr := $00000001
  30153. else
  30154. pTDefRegMap(@Self)^.&set := $00000001;
  30155. end;
  30156. function TI2C5_I2C3ASTAT.getTBF : TBits_1; inline;
  30157. begin
  30158. getTBF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  30159. end;
  30160. procedure TI2C5_I2C3ASTAT.setRBF; inline;
  30161. begin
  30162. pTDefRegMap(@Self)^.&set := $00000002;
  30163. end;
  30164. procedure TI2C5_I2C3ASTAT.clearRBF; inline;
  30165. begin
  30166. pTDefRegMap(@Self)^.clr := $00000002;
  30167. end;
  30168. procedure TI2C5_I2C3ASTAT.setRBF(thebits : TBits_1); inline;
  30169. begin
  30170. if thebits = 0 then
  30171. pTDefRegMap(@Self)^.clr := $00000002
  30172. else
  30173. pTDefRegMap(@Self)^.&set := $00000002;
  30174. end;
  30175. function TI2C5_I2C3ASTAT.getRBF : TBits_1; inline;
  30176. begin
  30177. getRBF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  30178. end;
  30179. procedure TI2C5_I2C3ASTAT.setR_W; inline;
  30180. begin
  30181. pTDefRegMap(@Self)^.&set := $00000004;
  30182. end;
  30183. procedure TI2C5_I2C3ASTAT.clearR_W; inline;
  30184. begin
  30185. pTDefRegMap(@Self)^.clr := $00000004;
  30186. end;
  30187. procedure TI2C5_I2C3ASTAT.setR_W(thebits : TBits_1); inline;
  30188. begin
  30189. if thebits = 0 then
  30190. pTDefRegMap(@Self)^.clr := $00000004
  30191. else
  30192. pTDefRegMap(@Self)^.&set := $00000004;
  30193. end;
  30194. function TI2C5_I2C3ASTAT.getR_W : TBits_1; inline;
  30195. begin
  30196. getR_W := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  30197. end;
  30198. procedure TI2C5_I2C3ASTAT.setS; inline;
  30199. begin
  30200. pTDefRegMap(@Self)^.&set := $00000008;
  30201. end;
  30202. procedure TI2C5_I2C3ASTAT.clearS; inline;
  30203. begin
  30204. pTDefRegMap(@Self)^.clr := $00000008;
  30205. end;
  30206. procedure TI2C5_I2C3ASTAT.setS(thebits : TBits_1); inline;
  30207. begin
  30208. if thebits = 0 then
  30209. pTDefRegMap(@Self)^.clr := $00000008
  30210. else
  30211. pTDefRegMap(@Self)^.&set := $00000008;
  30212. end;
  30213. function TI2C5_I2C3ASTAT.getS : TBits_1; inline;
  30214. begin
  30215. getS := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  30216. end;
  30217. procedure TI2C5_I2C3ASTAT.setP; inline;
  30218. begin
  30219. pTDefRegMap(@Self)^.&set := $00000010;
  30220. end;
  30221. procedure TI2C5_I2C3ASTAT.clearP; inline;
  30222. begin
  30223. pTDefRegMap(@Self)^.clr := $00000010;
  30224. end;
  30225. procedure TI2C5_I2C3ASTAT.setP(thebits : TBits_1); inline;
  30226. begin
  30227. if thebits = 0 then
  30228. pTDefRegMap(@Self)^.clr := $00000010
  30229. else
  30230. pTDefRegMap(@Self)^.&set := $00000010;
  30231. end;
  30232. function TI2C5_I2C3ASTAT.getP : TBits_1; inline;
  30233. begin
  30234. getP := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  30235. end;
  30236. procedure TI2C5_I2C3ASTAT.setD_A; inline;
  30237. begin
  30238. pTDefRegMap(@Self)^.&set := $00000020;
  30239. end;
  30240. procedure TI2C5_I2C3ASTAT.clearD_A; inline;
  30241. begin
  30242. pTDefRegMap(@Self)^.clr := $00000020;
  30243. end;
  30244. procedure TI2C5_I2C3ASTAT.setD_A(thebits : TBits_1); inline;
  30245. begin
  30246. if thebits = 0 then
  30247. pTDefRegMap(@Self)^.clr := $00000020
  30248. else
  30249. pTDefRegMap(@Self)^.&set := $00000020;
  30250. end;
  30251. function TI2C5_I2C3ASTAT.getD_A : TBits_1; inline;
  30252. begin
  30253. getD_A := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  30254. end;
  30255. procedure TI2C5_I2C3ASTAT.setI2COV; inline;
  30256. begin
  30257. pTDefRegMap(@Self)^.&set := $00000040;
  30258. end;
  30259. procedure TI2C5_I2C3ASTAT.clearI2COV; inline;
  30260. begin
  30261. pTDefRegMap(@Self)^.clr := $00000040;
  30262. end;
  30263. procedure TI2C5_I2C3ASTAT.setI2COV(thebits : TBits_1); inline;
  30264. begin
  30265. if thebits = 0 then
  30266. pTDefRegMap(@Self)^.clr := $00000040
  30267. else
  30268. pTDefRegMap(@Self)^.&set := $00000040;
  30269. end;
  30270. function TI2C5_I2C3ASTAT.getI2COV : TBits_1; inline;
  30271. begin
  30272. getI2COV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  30273. end;
  30274. procedure TI2C5_I2C3ASTAT.setIWCOL; inline;
  30275. begin
  30276. pTDefRegMap(@Self)^.&set := $00000080;
  30277. end;
  30278. procedure TI2C5_I2C3ASTAT.clearIWCOL; inline;
  30279. begin
  30280. pTDefRegMap(@Self)^.clr := $00000080;
  30281. end;
  30282. procedure TI2C5_I2C3ASTAT.setIWCOL(thebits : TBits_1); inline;
  30283. begin
  30284. if thebits = 0 then
  30285. pTDefRegMap(@Self)^.clr := $00000080
  30286. else
  30287. pTDefRegMap(@Self)^.&set := $00000080;
  30288. end;
  30289. function TI2C5_I2C3ASTAT.getIWCOL : TBits_1; inline;
  30290. begin
  30291. getIWCOL := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  30292. end;
  30293. procedure TI2C5_I2C3ASTAT.setADD10; inline;
  30294. begin
  30295. pTDefRegMap(@Self)^.&set := $00000100;
  30296. end;
  30297. procedure TI2C5_I2C3ASTAT.clearADD10; inline;
  30298. begin
  30299. pTDefRegMap(@Self)^.clr := $00000100;
  30300. end;
  30301. procedure TI2C5_I2C3ASTAT.setADD10(thebits : TBits_1); inline;
  30302. begin
  30303. if thebits = 0 then
  30304. pTDefRegMap(@Self)^.clr := $00000100
  30305. else
  30306. pTDefRegMap(@Self)^.&set := $00000100;
  30307. end;
  30308. function TI2C5_I2C3ASTAT.getADD10 : TBits_1; inline;
  30309. begin
  30310. getADD10 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  30311. end;
  30312. procedure TI2C5_I2C3ASTAT.setGCSTAT; inline;
  30313. begin
  30314. pTDefRegMap(@Self)^.&set := $00000200;
  30315. end;
  30316. procedure TI2C5_I2C3ASTAT.clearGCSTAT; inline;
  30317. begin
  30318. pTDefRegMap(@Self)^.clr := $00000200;
  30319. end;
  30320. procedure TI2C5_I2C3ASTAT.setGCSTAT(thebits : TBits_1); inline;
  30321. begin
  30322. if thebits = 0 then
  30323. pTDefRegMap(@Self)^.clr := $00000200
  30324. else
  30325. pTDefRegMap(@Self)^.&set := $00000200;
  30326. end;
  30327. function TI2C5_I2C3ASTAT.getGCSTAT : TBits_1; inline;
  30328. begin
  30329. getGCSTAT := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  30330. end;
  30331. procedure TI2C5_I2C3ASTAT.setBCL; inline;
  30332. begin
  30333. pTDefRegMap(@Self)^.&set := $00000400;
  30334. end;
  30335. procedure TI2C5_I2C3ASTAT.clearBCL; inline;
  30336. begin
  30337. pTDefRegMap(@Self)^.clr := $00000400;
  30338. end;
  30339. procedure TI2C5_I2C3ASTAT.setBCL(thebits : TBits_1); inline;
  30340. begin
  30341. if thebits = 0 then
  30342. pTDefRegMap(@Self)^.clr := $00000400
  30343. else
  30344. pTDefRegMap(@Self)^.&set := $00000400;
  30345. end;
  30346. function TI2C5_I2C3ASTAT.getBCL : TBits_1; inline;
  30347. begin
  30348. getBCL := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  30349. end;
  30350. procedure TI2C5_I2C3ASTAT.setTRSTAT; inline;
  30351. begin
  30352. pTDefRegMap(@Self)^.&set := $00004000;
  30353. end;
  30354. procedure TI2C5_I2C3ASTAT.clearTRSTAT; inline;
  30355. begin
  30356. pTDefRegMap(@Self)^.clr := $00004000;
  30357. end;
  30358. procedure TI2C5_I2C3ASTAT.setTRSTAT(thebits : TBits_1); inline;
  30359. begin
  30360. if thebits = 0 then
  30361. pTDefRegMap(@Self)^.clr := $00004000
  30362. else
  30363. pTDefRegMap(@Self)^.&set := $00004000;
  30364. end;
  30365. function TI2C5_I2C3ASTAT.getTRSTAT : TBits_1; inline;
  30366. begin
  30367. getTRSTAT := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  30368. end;
  30369. procedure TI2C5_I2C3ASTAT.setACKSTAT; inline;
  30370. begin
  30371. pTDefRegMap(@Self)^.&set := $00008000;
  30372. end;
  30373. procedure TI2C5_I2C3ASTAT.clearACKSTAT; inline;
  30374. begin
  30375. pTDefRegMap(@Self)^.clr := $00008000;
  30376. end;
  30377. procedure TI2C5_I2C3ASTAT.setACKSTAT(thebits : TBits_1); inline;
  30378. begin
  30379. if thebits = 0 then
  30380. pTDefRegMap(@Self)^.clr := $00008000
  30381. else
  30382. pTDefRegMap(@Self)^.&set := $00008000;
  30383. end;
  30384. function TI2C5_I2C3ASTAT.getACKSTAT : TBits_1; inline;
  30385. begin
  30386. getACKSTAT := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  30387. end;
  30388. procedure TI2C5_I2C3ASTAT.setI2CPOV; inline;
  30389. begin
  30390. pTDefRegMap(@Self)^.&set := $00000040;
  30391. end;
  30392. procedure TI2C5_I2C3ASTAT.clearI2CPOV; inline;
  30393. begin
  30394. pTDefRegMap(@Self)^.clr := $00000040;
  30395. end;
  30396. procedure TI2C5_I2C3ASTAT.setI2CPOV(thebits : TBits_1); inline;
  30397. begin
  30398. if thebits = 0 then
  30399. pTDefRegMap(@Self)^.clr := $00000040
  30400. else
  30401. pTDefRegMap(@Self)^.&set := $00000040;
  30402. end;
  30403. function TI2C5_I2C3ASTAT.getI2CPOV : TBits_1; inline;
  30404. begin
  30405. getI2CPOV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  30406. end;
  30407. procedure TI2C5_I2C3ASTAT.setw(thebits : TBits_32); inline;
  30408. begin
  30409. pTDefRegMap(@Self)^.val := thebits;
  30410. end;
  30411. function TI2C5_I2C3ASTAT.getw : TBits_32; inline;
  30412. begin
  30413. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  30414. end;
  30415. procedure TI2C5_I2C5STAT.setTBF; inline;
  30416. begin
  30417. pTDefRegMap(@Self)^.&set := $00000001;
  30418. end;
  30419. procedure TI2C5_I2C5STAT.clearTBF; inline;
  30420. begin
  30421. pTDefRegMap(@Self)^.clr := $00000001;
  30422. end;
  30423. procedure TI2C5_I2C5STAT.setTBF(thebits : TBits_1); inline;
  30424. begin
  30425. if thebits = 0 then
  30426. pTDefRegMap(@Self)^.clr := $00000001
  30427. else
  30428. pTDefRegMap(@Self)^.&set := $00000001;
  30429. end;
  30430. function TI2C5_I2C5STAT.getTBF : TBits_1; inline;
  30431. begin
  30432. getTBF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  30433. end;
  30434. procedure TI2C5_I2C5STAT.setRBF; inline;
  30435. begin
  30436. pTDefRegMap(@Self)^.&set := $00000002;
  30437. end;
  30438. procedure TI2C5_I2C5STAT.clearRBF; inline;
  30439. begin
  30440. pTDefRegMap(@Self)^.clr := $00000002;
  30441. end;
  30442. procedure TI2C5_I2C5STAT.setRBF(thebits : TBits_1); inline;
  30443. begin
  30444. if thebits = 0 then
  30445. pTDefRegMap(@Self)^.clr := $00000002
  30446. else
  30447. pTDefRegMap(@Self)^.&set := $00000002;
  30448. end;
  30449. function TI2C5_I2C5STAT.getRBF : TBits_1; inline;
  30450. begin
  30451. getRBF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  30452. end;
  30453. procedure TI2C5_I2C5STAT.setR_W; inline;
  30454. begin
  30455. pTDefRegMap(@Self)^.&set := $00000004;
  30456. end;
  30457. procedure TI2C5_I2C5STAT.clearR_W; inline;
  30458. begin
  30459. pTDefRegMap(@Self)^.clr := $00000004;
  30460. end;
  30461. procedure TI2C5_I2C5STAT.setR_W(thebits : TBits_1); inline;
  30462. begin
  30463. if thebits = 0 then
  30464. pTDefRegMap(@Self)^.clr := $00000004
  30465. else
  30466. pTDefRegMap(@Self)^.&set := $00000004;
  30467. end;
  30468. function TI2C5_I2C5STAT.getR_W : TBits_1; inline;
  30469. begin
  30470. getR_W := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  30471. end;
  30472. procedure TI2C5_I2C5STAT.setS; inline;
  30473. begin
  30474. pTDefRegMap(@Self)^.&set := $00000008;
  30475. end;
  30476. procedure TI2C5_I2C5STAT.clearS; inline;
  30477. begin
  30478. pTDefRegMap(@Self)^.clr := $00000008;
  30479. end;
  30480. procedure TI2C5_I2C5STAT.setS(thebits : TBits_1); inline;
  30481. begin
  30482. if thebits = 0 then
  30483. pTDefRegMap(@Self)^.clr := $00000008
  30484. else
  30485. pTDefRegMap(@Self)^.&set := $00000008;
  30486. end;
  30487. function TI2C5_I2C5STAT.getS : TBits_1; inline;
  30488. begin
  30489. getS := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  30490. end;
  30491. procedure TI2C5_I2C5STAT.setP; inline;
  30492. begin
  30493. pTDefRegMap(@Self)^.&set := $00000010;
  30494. end;
  30495. procedure TI2C5_I2C5STAT.clearP; inline;
  30496. begin
  30497. pTDefRegMap(@Self)^.clr := $00000010;
  30498. end;
  30499. procedure TI2C5_I2C5STAT.setP(thebits : TBits_1); inline;
  30500. begin
  30501. if thebits = 0 then
  30502. pTDefRegMap(@Self)^.clr := $00000010
  30503. else
  30504. pTDefRegMap(@Self)^.&set := $00000010;
  30505. end;
  30506. function TI2C5_I2C5STAT.getP : TBits_1; inline;
  30507. begin
  30508. getP := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  30509. end;
  30510. procedure TI2C5_I2C5STAT.setD_A; inline;
  30511. begin
  30512. pTDefRegMap(@Self)^.&set := $00000020;
  30513. end;
  30514. procedure TI2C5_I2C5STAT.clearD_A; inline;
  30515. begin
  30516. pTDefRegMap(@Self)^.clr := $00000020;
  30517. end;
  30518. procedure TI2C5_I2C5STAT.setD_A(thebits : TBits_1); inline;
  30519. begin
  30520. if thebits = 0 then
  30521. pTDefRegMap(@Self)^.clr := $00000020
  30522. else
  30523. pTDefRegMap(@Self)^.&set := $00000020;
  30524. end;
  30525. function TI2C5_I2C5STAT.getD_A : TBits_1; inline;
  30526. begin
  30527. getD_A := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  30528. end;
  30529. procedure TI2C5_I2C5STAT.setI2COV; inline;
  30530. begin
  30531. pTDefRegMap(@Self)^.&set := $00000040;
  30532. end;
  30533. procedure TI2C5_I2C5STAT.clearI2COV; inline;
  30534. begin
  30535. pTDefRegMap(@Self)^.clr := $00000040;
  30536. end;
  30537. procedure TI2C5_I2C5STAT.setI2COV(thebits : TBits_1); inline;
  30538. begin
  30539. if thebits = 0 then
  30540. pTDefRegMap(@Self)^.clr := $00000040
  30541. else
  30542. pTDefRegMap(@Self)^.&set := $00000040;
  30543. end;
  30544. function TI2C5_I2C5STAT.getI2COV : TBits_1; inline;
  30545. begin
  30546. getI2COV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  30547. end;
  30548. procedure TI2C5_I2C5STAT.setIWCOL; inline;
  30549. begin
  30550. pTDefRegMap(@Self)^.&set := $00000080;
  30551. end;
  30552. procedure TI2C5_I2C5STAT.clearIWCOL; inline;
  30553. begin
  30554. pTDefRegMap(@Self)^.clr := $00000080;
  30555. end;
  30556. procedure TI2C5_I2C5STAT.setIWCOL(thebits : TBits_1); inline;
  30557. begin
  30558. if thebits = 0 then
  30559. pTDefRegMap(@Self)^.clr := $00000080
  30560. else
  30561. pTDefRegMap(@Self)^.&set := $00000080;
  30562. end;
  30563. function TI2C5_I2C5STAT.getIWCOL : TBits_1; inline;
  30564. begin
  30565. getIWCOL := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  30566. end;
  30567. procedure TI2C5_I2C5STAT.setADD10; inline;
  30568. begin
  30569. pTDefRegMap(@Self)^.&set := $00000100;
  30570. end;
  30571. procedure TI2C5_I2C5STAT.clearADD10; inline;
  30572. begin
  30573. pTDefRegMap(@Self)^.clr := $00000100;
  30574. end;
  30575. procedure TI2C5_I2C5STAT.setADD10(thebits : TBits_1); inline;
  30576. begin
  30577. if thebits = 0 then
  30578. pTDefRegMap(@Self)^.clr := $00000100
  30579. else
  30580. pTDefRegMap(@Self)^.&set := $00000100;
  30581. end;
  30582. function TI2C5_I2C5STAT.getADD10 : TBits_1; inline;
  30583. begin
  30584. getADD10 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  30585. end;
  30586. procedure TI2C5_I2C5STAT.setGCSTAT; inline;
  30587. begin
  30588. pTDefRegMap(@Self)^.&set := $00000200;
  30589. end;
  30590. procedure TI2C5_I2C5STAT.clearGCSTAT; inline;
  30591. begin
  30592. pTDefRegMap(@Self)^.clr := $00000200;
  30593. end;
  30594. procedure TI2C5_I2C5STAT.setGCSTAT(thebits : TBits_1); inline;
  30595. begin
  30596. if thebits = 0 then
  30597. pTDefRegMap(@Self)^.clr := $00000200
  30598. else
  30599. pTDefRegMap(@Self)^.&set := $00000200;
  30600. end;
  30601. function TI2C5_I2C5STAT.getGCSTAT : TBits_1; inline;
  30602. begin
  30603. getGCSTAT := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  30604. end;
  30605. procedure TI2C5_I2C5STAT.setBCL; inline;
  30606. begin
  30607. pTDefRegMap(@Self)^.&set := $00000400;
  30608. end;
  30609. procedure TI2C5_I2C5STAT.clearBCL; inline;
  30610. begin
  30611. pTDefRegMap(@Self)^.clr := $00000400;
  30612. end;
  30613. procedure TI2C5_I2C5STAT.setBCL(thebits : TBits_1); inline;
  30614. begin
  30615. if thebits = 0 then
  30616. pTDefRegMap(@Self)^.clr := $00000400
  30617. else
  30618. pTDefRegMap(@Self)^.&set := $00000400;
  30619. end;
  30620. function TI2C5_I2C5STAT.getBCL : TBits_1; inline;
  30621. begin
  30622. getBCL := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  30623. end;
  30624. procedure TI2C5_I2C5STAT.setTRSTAT; inline;
  30625. begin
  30626. pTDefRegMap(@Self)^.&set := $00004000;
  30627. end;
  30628. procedure TI2C5_I2C5STAT.clearTRSTAT; inline;
  30629. begin
  30630. pTDefRegMap(@Self)^.clr := $00004000;
  30631. end;
  30632. procedure TI2C5_I2C5STAT.setTRSTAT(thebits : TBits_1); inline;
  30633. begin
  30634. if thebits = 0 then
  30635. pTDefRegMap(@Self)^.clr := $00004000
  30636. else
  30637. pTDefRegMap(@Self)^.&set := $00004000;
  30638. end;
  30639. function TI2C5_I2C5STAT.getTRSTAT : TBits_1; inline;
  30640. begin
  30641. getTRSTAT := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  30642. end;
  30643. procedure TI2C5_I2C5STAT.setACKSTAT; inline;
  30644. begin
  30645. pTDefRegMap(@Self)^.&set := $00008000;
  30646. end;
  30647. procedure TI2C5_I2C5STAT.clearACKSTAT; inline;
  30648. begin
  30649. pTDefRegMap(@Self)^.clr := $00008000;
  30650. end;
  30651. procedure TI2C5_I2C5STAT.setACKSTAT(thebits : TBits_1); inline;
  30652. begin
  30653. if thebits = 0 then
  30654. pTDefRegMap(@Self)^.clr := $00008000
  30655. else
  30656. pTDefRegMap(@Self)^.&set := $00008000;
  30657. end;
  30658. function TI2C5_I2C5STAT.getACKSTAT : TBits_1; inline;
  30659. begin
  30660. getACKSTAT := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  30661. end;
  30662. procedure TI2C5_I2C5STAT.setI2CPOV; inline;
  30663. begin
  30664. pTDefRegMap(@Self)^.&set := $00000040;
  30665. end;
  30666. procedure TI2C5_I2C5STAT.clearI2CPOV; inline;
  30667. begin
  30668. pTDefRegMap(@Self)^.clr := $00000040;
  30669. end;
  30670. procedure TI2C5_I2C5STAT.setI2CPOV(thebits : TBits_1); inline;
  30671. begin
  30672. if thebits = 0 then
  30673. pTDefRegMap(@Self)^.clr := $00000040
  30674. else
  30675. pTDefRegMap(@Self)^.&set := $00000040;
  30676. end;
  30677. function TI2C5_I2C5STAT.getI2CPOV : TBits_1; inline;
  30678. begin
  30679. getI2CPOV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  30680. end;
  30681. procedure TI2C5_I2C5STAT.setw(thebits : TBits_32); inline;
  30682. begin
  30683. pTDefRegMap(@Self)^.val := thebits;
  30684. end;
  30685. function TI2C5_I2C5STAT.getw : TBits_32; inline;
  30686. begin
  30687. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  30688. end;
  30689. procedure TI2C1_I2C1CON.setSEN; inline;
  30690. begin
  30691. pTDefRegMap(@Self)^.&set := $00000001;
  30692. end;
  30693. procedure TI2C1_I2C1CON.clearSEN; inline;
  30694. begin
  30695. pTDefRegMap(@Self)^.clr := $00000001;
  30696. end;
  30697. procedure TI2C1_I2C1CON.setSEN(thebits : TBits_1); inline;
  30698. begin
  30699. if thebits = 0 then
  30700. pTDefRegMap(@Self)^.clr := $00000001
  30701. else
  30702. pTDefRegMap(@Self)^.&set := $00000001;
  30703. end;
  30704. function TI2C1_I2C1CON.getSEN : TBits_1; inline;
  30705. begin
  30706. getSEN := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  30707. end;
  30708. procedure TI2C1_I2C1CON.setRSEN; inline;
  30709. begin
  30710. pTDefRegMap(@Self)^.&set := $00000002;
  30711. end;
  30712. procedure TI2C1_I2C1CON.clearRSEN; inline;
  30713. begin
  30714. pTDefRegMap(@Self)^.clr := $00000002;
  30715. end;
  30716. procedure TI2C1_I2C1CON.setRSEN(thebits : TBits_1); inline;
  30717. begin
  30718. if thebits = 0 then
  30719. pTDefRegMap(@Self)^.clr := $00000002
  30720. else
  30721. pTDefRegMap(@Self)^.&set := $00000002;
  30722. end;
  30723. function TI2C1_I2C1CON.getRSEN : TBits_1; inline;
  30724. begin
  30725. getRSEN := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  30726. end;
  30727. procedure TI2C1_I2C1CON.setPEN; inline;
  30728. begin
  30729. pTDefRegMap(@Self)^.&set := $00000004;
  30730. end;
  30731. procedure TI2C1_I2C1CON.clearPEN; inline;
  30732. begin
  30733. pTDefRegMap(@Self)^.clr := $00000004;
  30734. end;
  30735. procedure TI2C1_I2C1CON.setPEN(thebits : TBits_1); inline;
  30736. begin
  30737. if thebits = 0 then
  30738. pTDefRegMap(@Self)^.clr := $00000004
  30739. else
  30740. pTDefRegMap(@Self)^.&set := $00000004;
  30741. end;
  30742. function TI2C1_I2C1CON.getPEN : TBits_1; inline;
  30743. begin
  30744. getPEN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  30745. end;
  30746. procedure TI2C1_I2C1CON.setRCEN; inline;
  30747. begin
  30748. pTDefRegMap(@Self)^.&set := $00000008;
  30749. end;
  30750. procedure TI2C1_I2C1CON.clearRCEN; inline;
  30751. begin
  30752. pTDefRegMap(@Self)^.clr := $00000008;
  30753. end;
  30754. procedure TI2C1_I2C1CON.setRCEN(thebits : TBits_1); inline;
  30755. begin
  30756. if thebits = 0 then
  30757. pTDefRegMap(@Self)^.clr := $00000008
  30758. else
  30759. pTDefRegMap(@Self)^.&set := $00000008;
  30760. end;
  30761. function TI2C1_I2C1CON.getRCEN : TBits_1; inline;
  30762. begin
  30763. getRCEN := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  30764. end;
  30765. procedure TI2C1_I2C1CON.setACKEN; inline;
  30766. begin
  30767. pTDefRegMap(@Self)^.&set := $00000010;
  30768. end;
  30769. procedure TI2C1_I2C1CON.clearACKEN; inline;
  30770. begin
  30771. pTDefRegMap(@Self)^.clr := $00000010;
  30772. end;
  30773. procedure TI2C1_I2C1CON.setACKEN(thebits : TBits_1); inline;
  30774. begin
  30775. if thebits = 0 then
  30776. pTDefRegMap(@Self)^.clr := $00000010
  30777. else
  30778. pTDefRegMap(@Self)^.&set := $00000010;
  30779. end;
  30780. function TI2C1_I2C1CON.getACKEN : TBits_1; inline;
  30781. begin
  30782. getACKEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  30783. end;
  30784. procedure TI2C1_I2C1CON.setACKDT; inline;
  30785. begin
  30786. pTDefRegMap(@Self)^.&set := $00000020;
  30787. end;
  30788. procedure TI2C1_I2C1CON.clearACKDT; inline;
  30789. begin
  30790. pTDefRegMap(@Self)^.clr := $00000020;
  30791. end;
  30792. procedure TI2C1_I2C1CON.setACKDT(thebits : TBits_1); inline;
  30793. begin
  30794. if thebits = 0 then
  30795. pTDefRegMap(@Self)^.clr := $00000020
  30796. else
  30797. pTDefRegMap(@Self)^.&set := $00000020;
  30798. end;
  30799. function TI2C1_I2C1CON.getACKDT : TBits_1; inline;
  30800. begin
  30801. getACKDT := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  30802. end;
  30803. procedure TI2C1_I2C1CON.setSTREN; inline;
  30804. begin
  30805. pTDefRegMap(@Self)^.&set := $00000040;
  30806. end;
  30807. procedure TI2C1_I2C1CON.clearSTREN; inline;
  30808. begin
  30809. pTDefRegMap(@Self)^.clr := $00000040;
  30810. end;
  30811. procedure TI2C1_I2C1CON.setSTREN(thebits : TBits_1); inline;
  30812. begin
  30813. if thebits = 0 then
  30814. pTDefRegMap(@Self)^.clr := $00000040
  30815. else
  30816. pTDefRegMap(@Self)^.&set := $00000040;
  30817. end;
  30818. function TI2C1_I2C1CON.getSTREN : TBits_1; inline;
  30819. begin
  30820. getSTREN := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  30821. end;
  30822. procedure TI2C1_I2C1CON.setGCEN; inline;
  30823. begin
  30824. pTDefRegMap(@Self)^.&set := $00000080;
  30825. end;
  30826. procedure TI2C1_I2C1CON.clearGCEN; inline;
  30827. begin
  30828. pTDefRegMap(@Self)^.clr := $00000080;
  30829. end;
  30830. procedure TI2C1_I2C1CON.setGCEN(thebits : TBits_1); inline;
  30831. begin
  30832. if thebits = 0 then
  30833. pTDefRegMap(@Self)^.clr := $00000080
  30834. else
  30835. pTDefRegMap(@Self)^.&set := $00000080;
  30836. end;
  30837. function TI2C1_I2C1CON.getGCEN : TBits_1; inline;
  30838. begin
  30839. getGCEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  30840. end;
  30841. procedure TI2C1_I2C1CON.setSMEN; inline;
  30842. begin
  30843. pTDefRegMap(@Self)^.&set := $00000100;
  30844. end;
  30845. procedure TI2C1_I2C1CON.clearSMEN; inline;
  30846. begin
  30847. pTDefRegMap(@Self)^.clr := $00000100;
  30848. end;
  30849. procedure TI2C1_I2C1CON.setSMEN(thebits : TBits_1); inline;
  30850. begin
  30851. if thebits = 0 then
  30852. pTDefRegMap(@Self)^.clr := $00000100
  30853. else
  30854. pTDefRegMap(@Self)^.&set := $00000100;
  30855. end;
  30856. function TI2C1_I2C1CON.getSMEN : TBits_1; inline;
  30857. begin
  30858. getSMEN := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  30859. end;
  30860. procedure TI2C1_I2C1CON.setDISSLW; inline;
  30861. begin
  30862. pTDefRegMap(@Self)^.&set := $00000200;
  30863. end;
  30864. procedure TI2C1_I2C1CON.clearDISSLW; inline;
  30865. begin
  30866. pTDefRegMap(@Self)^.clr := $00000200;
  30867. end;
  30868. procedure TI2C1_I2C1CON.setDISSLW(thebits : TBits_1); inline;
  30869. begin
  30870. if thebits = 0 then
  30871. pTDefRegMap(@Self)^.clr := $00000200
  30872. else
  30873. pTDefRegMap(@Self)^.&set := $00000200;
  30874. end;
  30875. function TI2C1_I2C1CON.getDISSLW : TBits_1; inline;
  30876. begin
  30877. getDISSLW := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  30878. end;
  30879. procedure TI2C1_I2C1CON.setA10M; inline;
  30880. begin
  30881. pTDefRegMap(@Self)^.&set := $00000400;
  30882. end;
  30883. procedure TI2C1_I2C1CON.clearA10M; inline;
  30884. begin
  30885. pTDefRegMap(@Self)^.clr := $00000400;
  30886. end;
  30887. procedure TI2C1_I2C1CON.setA10M(thebits : TBits_1); inline;
  30888. begin
  30889. if thebits = 0 then
  30890. pTDefRegMap(@Self)^.clr := $00000400
  30891. else
  30892. pTDefRegMap(@Self)^.&set := $00000400;
  30893. end;
  30894. function TI2C1_I2C1CON.getA10M : TBits_1; inline;
  30895. begin
  30896. getA10M := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  30897. end;
  30898. procedure TI2C1_I2C1CON.setSTRICT; inline;
  30899. begin
  30900. pTDefRegMap(@Self)^.&set := $00000800;
  30901. end;
  30902. procedure TI2C1_I2C1CON.clearSTRICT; inline;
  30903. begin
  30904. pTDefRegMap(@Self)^.clr := $00000800;
  30905. end;
  30906. procedure TI2C1_I2C1CON.setSTRICT(thebits : TBits_1); inline;
  30907. begin
  30908. if thebits = 0 then
  30909. pTDefRegMap(@Self)^.clr := $00000800
  30910. else
  30911. pTDefRegMap(@Self)^.&set := $00000800;
  30912. end;
  30913. function TI2C1_I2C1CON.getSTRICT : TBits_1; inline;
  30914. begin
  30915. getSTRICT := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  30916. end;
  30917. procedure TI2C1_I2C1CON.setSCLREL; inline;
  30918. begin
  30919. pTDefRegMap(@Self)^.&set := $00001000;
  30920. end;
  30921. procedure TI2C1_I2C1CON.clearSCLREL; inline;
  30922. begin
  30923. pTDefRegMap(@Self)^.clr := $00001000;
  30924. end;
  30925. procedure TI2C1_I2C1CON.setSCLREL(thebits : TBits_1); inline;
  30926. begin
  30927. if thebits = 0 then
  30928. pTDefRegMap(@Self)^.clr := $00001000
  30929. else
  30930. pTDefRegMap(@Self)^.&set := $00001000;
  30931. end;
  30932. function TI2C1_I2C1CON.getSCLREL : TBits_1; inline;
  30933. begin
  30934. getSCLREL := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  30935. end;
  30936. procedure TI2C1_I2C1CON.setSIDL; inline;
  30937. begin
  30938. pTDefRegMap(@Self)^.&set := $00002000;
  30939. end;
  30940. procedure TI2C1_I2C1CON.clearSIDL; inline;
  30941. begin
  30942. pTDefRegMap(@Self)^.clr := $00002000;
  30943. end;
  30944. procedure TI2C1_I2C1CON.setSIDL(thebits : TBits_1); inline;
  30945. begin
  30946. if thebits = 0 then
  30947. pTDefRegMap(@Self)^.clr := $00002000
  30948. else
  30949. pTDefRegMap(@Self)^.&set := $00002000;
  30950. end;
  30951. function TI2C1_I2C1CON.getSIDL : TBits_1; inline;
  30952. begin
  30953. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  30954. end;
  30955. procedure TI2C1_I2C1CON.setON; inline;
  30956. begin
  30957. pTDefRegMap(@Self)^.&set := $00008000;
  30958. end;
  30959. procedure TI2C1_I2C1CON.clearON; inline;
  30960. begin
  30961. pTDefRegMap(@Self)^.clr := $00008000;
  30962. end;
  30963. procedure TI2C1_I2C1CON.setON(thebits : TBits_1); inline;
  30964. begin
  30965. if thebits = 0 then
  30966. pTDefRegMap(@Self)^.clr := $00008000
  30967. else
  30968. pTDefRegMap(@Self)^.&set := $00008000;
  30969. end;
  30970. function TI2C1_I2C1CON.getON : TBits_1; inline;
  30971. begin
  30972. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  30973. end;
  30974. procedure TI2C1_I2C1CON.setIPMIEN; inline;
  30975. begin
  30976. pTDefRegMap(@Self)^.&set := $00000800;
  30977. end;
  30978. procedure TI2C1_I2C1CON.clearIPMIEN; inline;
  30979. begin
  30980. pTDefRegMap(@Self)^.clr := $00000800;
  30981. end;
  30982. procedure TI2C1_I2C1CON.setIPMIEN(thebits : TBits_1); inline;
  30983. begin
  30984. if thebits = 0 then
  30985. pTDefRegMap(@Self)^.clr := $00000800
  30986. else
  30987. pTDefRegMap(@Self)^.&set := $00000800;
  30988. end;
  30989. function TI2C1_I2C1CON.getIPMIEN : TBits_1; inline;
  30990. begin
  30991. getIPMIEN := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  30992. end;
  30993. procedure TI2C1_I2C1CON.setI2CSIDL; inline;
  30994. begin
  30995. pTDefRegMap(@Self)^.&set := $00002000;
  30996. end;
  30997. procedure TI2C1_I2C1CON.clearI2CSIDL; inline;
  30998. begin
  30999. pTDefRegMap(@Self)^.clr := $00002000;
  31000. end;
  31001. procedure TI2C1_I2C1CON.setI2CSIDL(thebits : TBits_1); inline;
  31002. begin
  31003. if thebits = 0 then
  31004. pTDefRegMap(@Self)^.clr := $00002000
  31005. else
  31006. pTDefRegMap(@Self)^.&set := $00002000;
  31007. end;
  31008. function TI2C1_I2C1CON.getI2CSIDL : TBits_1; inline;
  31009. begin
  31010. getI2CSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  31011. end;
  31012. procedure TI2C1_I2C1CON.setI2CEN; inline;
  31013. begin
  31014. pTDefRegMap(@Self)^.&set := $00008000;
  31015. end;
  31016. procedure TI2C1_I2C1CON.clearI2CEN; inline;
  31017. begin
  31018. pTDefRegMap(@Self)^.clr := $00008000;
  31019. end;
  31020. procedure TI2C1_I2C1CON.setI2CEN(thebits : TBits_1); inline;
  31021. begin
  31022. if thebits = 0 then
  31023. pTDefRegMap(@Self)^.clr := $00008000
  31024. else
  31025. pTDefRegMap(@Self)^.&set := $00008000;
  31026. end;
  31027. function TI2C1_I2C1CON.getI2CEN : TBits_1; inline;
  31028. begin
  31029. getI2CEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  31030. end;
  31031. procedure TI2C1_I2C1CON.setw(thebits : TBits_32); inline;
  31032. begin
  31033. pTDefRegMap(@Self)^.val := thebits;
  31034. end;
  31035. function TI2C1_I2C1CON.getw : TBits_32; inline;
  31036. begin
  31037. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  31038. end;
  31039. procedure TI2C1_I2C1STAT.setTBF; inline;
  31040. begin
  31041. pTDefRegMap(@Self)^.&set := $00000001;
  31042. end;
  31043. procedure TI2C1_I2C1STAT.clearTBF; inline;
  31044. begin
  31045. pTDefRegMap(@Self)^.clr := $00000001;
  31046. end;
  31047. procedure TI2C1_I2C1STAT.setTBF(thebits : TBits_1); inline;
  31048. begin
  31049. if thebits = 0 then
  31050. pTDefRegMap(@Self)^.clr := $00000001
  31051. else
  31052. pTDefRegMap(@Self)^.&set := $00000001;
  31053. end;
  31054. function TI2C1_I2C1STAT.getTBF : TBits_1; inline;
  31055. begin
  31056. getTBF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  31057. end;
  31058. procedure TI2C1_I2C1STAT.setRBF; inline;
  31059. begin
  31060. pTDefRegMap(@Self)^.&set := $00000002;
  31061. end;
  31062. procedure TI2C1_I2C1STAT.clearRBF; inline;
  31063. begin
  31064. pTDefRegMap(@Self)^.clr := $00000002;
  31065. end;
  31066. procedure TI2C1_I2C1STAT.setRBF(thebits : TBits_1); inline;
  31067. begin
  31068. if thebits = 0 then
  31069. pTDefRegMap(@Self)^.clr := $00000002
  31070. else
  31071. pTDefRegMap(@Self)^.&set := $00000002;
  31072. end;
  31073. function TI2C1_I2C1STAT.getRBF : TBits_1; inline;
  31074. begin
  31075. getRBF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  31076. end;
  31077. procedure TI2C1_I2C1STAT.setR_W; inline;
  31078. begin
  31079. pTDefRegMap(@Self)^.&set := $00000004;
  31080. end;
  31081. procedure TI2C1_I2C1STAT.clearR_W; inline;
  31082. begin
  31083. pTDefRegMap(@Self)^.clr := $00000004;
  31084. end;
  31085. procedure TI2C1_I2C1STAT.setR_W(thebits : TBits_1); inline;
  31086. begin
  31087. if thebits = 0 then
  31088. pTDefRegMap(@Self)^.clr := $00000004
  31089. else
  31090. pTDefRegMap(@Self)^.&set := $00000004;
  31091. end;
  31092. function TI2C1_I2C1STAT.getR_W : TBits_1; inline;
  31093. begin
  31094. getR_W := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  31095. end;
  31096. procedure TI2C1_I2C1STAT.setS; inline;
  31097. begin
  31098. pTDefRegMap(@Self)^.&set := $00000008;
  31099. end;
  31100. procedure TI2C1_I2C1STAT.clearS; inline;
  31101. begin
  31102. pTDefRegMap(@Self)^.clr := $00000008;
  31103. end;
  31104. procedure TI2C1_I2C1STAT.setS(thebits : TBits_1); inline;
  31105. begin
  31106. if thebits = 0 then
  31107. pTDefRegMap(@Self)^.clr := $00000008
  31108. else
  31109. pTDefRegMap(@Self)^.&set := $00000008;
  31110. end;
  31111. function TI2C1_I2C1STAT.getS : TBits_1; inline;
  31112. begin
  31113. getS := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  31114. end;
  31115. procedure TI2C1_I2C1STAT.setP; inline;
  31116. begin
  31117. pTDefRegMap(@Self)^.&set := $00000010;
  31118. end;
  31119. procedure TI2C1_I2C1STAT.clearP; inline;
  31120. begin
  31121. pTDefRegMap(@Self)^.clr := $00000010;
  31122. end;
  31123. procedure TI2C1_I2C1STAT.setP(thebits : TBits_1); inline;
  31124. begin
  31125. if thebits = 0 then
  31126. pTDefRegMap(@Self)^.clr := $00000010
  31127. else
  31128. pTDefRegMap(@Self)^.&set := $00000010;
  31129. end;
  31130. function TI2C1_I2C1STAT.getP : TBits_1; inline;
  31131. begin
  31132. getP := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  31133. end;
  31134. procedure TI2C1_I2C1STAT.setD_A; inline;
  31135. begin
  31136. pTDefRegMap(@Self)^.&set := $00000020;
  31137. end;
  31138. procedure TI2C1_I2C1STAT.clearD_A; inline;
  31139. begin
  31140. pTDefRegMap(@Self)^.clr := $00000020;
  31141. end;
  31142. procedure TI2C1_I2C1STAT.setD_A(thebits : TBits_1); inline;
  31143. begin
  31144. if thebits = 0 then
  31145. pTDefRegMap(@Self)^.clr := $00000020
  31146. else
  31147. pTDefRegMap(@Self)^.&set := $00000020;
  31148. end;
  31149. function TI2C1_I2C1STAT.getD_A : TBits_1; inline;
  31150. begin
  31151. getD_A := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  31152. end;
  31153. procedure TI2C1_I2C1STAT.setI2COV; inline;
  31154. begin
  31155. pTDefRegMap(@Self)^.&set := $00000040;
  31156. end;
  31157. procedure TI2C1_I2C1STAT.clearI2COV; inline;
  31158. begin
  31159. pTDefRegMap(@Self)^.clr := $00000040;
  31160. end;
  31161. procedure TI2C1_I2C1STAT.setI2COV(thebits : TBits_1); inline;
  31162. begin
  31163. if thebits = 0 then
  31164. pTDefRegMap(@Self)^.clr := $00000040
  31165. else
  31166. pTDefRegMap(@Self)^.&set := $00000040;
  31167. end;
  31168. function TI2C1_I2C1STAT.getI2COV : TBits_1; inline;
  31169. begin
  31170. getI2COV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  31171. end;
  31172. procedure TI2C1_I2C1STAT.setIWCOL; inline;
  31173. begin
  31174. pTDefRegMap(@Self)^.&set := $00000080;
  31175. end;
  31176. procedure TI2C1_I2C1STAT.clearIWCOL; inline;
  31177. begin
  31178. pTDefRegMap(@Self)^.clr := $00000080;
  31179. end;
  31180. procedure TI2C1_I2C1STAT.setIWCOL(thebits : TBits_1); inline;
  31181. begin
  31182. if thebits = 0 then
  31183. pTDefRegMap(@Self)^.clr := $00000080
  31184. else
  31185. pTDefRegMap(@Self)^.&set := $00000080;
  31186. end;
  31187. function TI2C1_I2C1STAT.getIWCOL : TBits_1; inline;
  31188. begin
  31189. getIWCOL := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  31190. end;
  31191. procedure TI2C1_I2C1STAT.setADD10; inline;
  31192. begin
  31193. pTDefRegMap(@Self)^.&set := $00000100;
  31194. end;
  31195. procedure TI2C1_I2C1STAT.clearADD10; inline;
  31196. begin
  31197. pTDefRegMap(@Self)^.clr := $00000100;
  31198. end;
  31199. procedure TI2C1_I2C1STAT.setADD10(thebits : TBits_1); inline;
  31200. begin
  31201. if thebits = 0 then
  31202. pTDefRegMap(@Self)^.clr := $00000100
  31203. else
  31204. pTDefRegMap(@Self)^.&set := $00000100;
  31205. end;
  31206. function TI2C1_I2C1STAT.getADD10 : TBits_1; inline;
  31207. begin
  31208. getADD10 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  31209. end;
  31210. procedure TI2C1_I2C1STAT.setGCSTAT; inline;
  31211. begin
  31212. pTDefRegMap(@Self)^.&set := $00000200;
  31213. end;
  31214. procedure TI2C1_I2C1STAT.clearGCSTAT; inline;
  31215. begin
  31216. pTDefRegMap(@Self)^.clr := $00000200;
  31217. end;
  31218. procedure TI2C1_I2C1STAT.setGCSTAT(thebits : TBits_1); inline;
  31219. begin
  31220. if thebits = 0 then
  31221. pTDefRegMap(@Self)^.clr := $00000200
  31222. else
  31223. pTDefRegMap(@Self)^.&set := $00000200;
  31224. end;
  31225. function TI2C1_I2C1STAT.getGCSTAT : TBits_1; inline;
  31226. begin
  31227. getGCSTAT := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  31228. end;
  31229. procedure TI2C1_I2C1STAT.setBCL; inline;
  31230. begin
  31231. pTDefRegMap(@Self)^.&set := $00000400;
  31232. end;
  31233. procedure TI2C1_I2C1STAT.clearBCL; inline;
  31234. begin
  31235. pTDefRegMap(@Self)^.clr := $00000400;
  31236. end;
  31237. procedure TI2C1_I2C1STAT.setBCL(thebits : TBits_1); inline;
  31238. begin
  31239. if thebits = 0 then
  31240. pTDefRegMap(@Self)^.clr := $00000400
  31241. else
  31242. pTDefRegMap(@Self)^.&set := $00000400;
  31243. end;
  31244. function TI2C1_I2C1STAT.getBCL : TBits_1; inline;
  31245. begin
  31246. getBCL := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  31247. end;
  31248. procedure TI2C1_I2C1STAT.setTRSTAT; inline;
  31249. begin
  31250. pTDefRegMap(@Self)^.&set := $00004000;
  31251. end;
  31252. procedure TI2C1_I2C1STAT.clearTRSTAT; inline;
  31253. begin
  31254. pTDefRegMap(@Self)^.clr := $00004000;
  31255. end;
  31256. procedure TI2C1_I2C1STAT.setTRSTAT(thebits : TBits_1); inline;
  31257. begin
  31258. if thebits = 0 then
  31259. pTDefRegMap(@Self)^.clr := $00004000
  31260. else
  31261. pTDefRegMap(@Self)^.&set := $00004000;
  31262. end;
  31263. function TI2C1_I2C1STAT.getTRSTAT : TBits_1; inline;
  31264. begin
  31265. getTRSTAT := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  31266. end;
  31267. procedure TI2C1_I2C1STAT.setACKSTAT; inline;
  31268. begin
  31269. pTDefRegMap(@Self)^.&set := $00008000;
  31270. end;
  31271. procedure TI2C1_I2C1STAT.clearACKSTAT; inline;
  31272. begin
  31273. pTDefRegMap(@Self)^.clr := $00008000;
  31274. end;
  31275. procedure TI2C1_I2C1STAT.setACKSTAT(thebits : TBits_1); inline;
  31276. begin
  31277. if thebits = 0 then
  31278. pTDefRegMap(@Self)^.clr := $00008000
  31279. else
  31280. pTDefRegMap(@Self)^.&set := $00008000;
  31281. end;
  31282. function TI2C1_I2C1STAT.getACKSTAT : TBits_1; inline;
  31283. begin
  31284. getACKSTAT := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  31285. end;
  31286. procedure TI2C1_I2C1STAT.setI2CPOV; inline;
  31287. begin
  31288. pTDefRegMap(@Self)^.&set := $00000040;
  31289. end;
  31290. procedure TI2C1_I2C1STAT.clearI2CPOV; inline;
  31291. begin
  31292. pTDefRegMap(@Self)^.clr := $00000040;
  31293. end;
  31294. procedure TI2C1_I2C1STAT.setI2CPOV(thebits : TBits_1); inline;
  31295. begin
  31296. if thebits = 0 then
  31297. pTDefRegMap(@Self)^.clr := $00000040
  31298. else
  31299. pTDefRegMap(@Self)^.&set := $00000040;
  31300. end;
  31301. function TI2C1_I2C1STAT.getI2CPOV : TBits_1; inline;
  31302. begin
  31303. getI2CPOV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  31304. end;
  31305. procedure TI2C1_I2C1STAT.setw(thebits : TBits_32); inline;
  31306. begin
  31307. pTDefRegMap(@Self)^.val := thebits;
  31308. end;
  31309. function TI2C1_I2C1STAT.getw : TBits_32; inline;
  31310. begin
  31311. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  31312. end;
  31313. procedure TI2C2_I2C2CON.setSEN; inline;
  31314. begin
  31315. pTDefRegMap(@Self)^.&set := $00000001;
  31316. end;
  31317. procedure TI2C2_I2C2CON.clearSEN; inline;
  31318. begin
  31319. pTDefRegMap(@Self)^.clr := $00000001;
  31320. end;
  31321. procedure TI2C2_I2C2CON.setSEN(thebits : TBits_1); inline;
  31322. begin
  31323. if thebits = 0 then
  31324. pTDefRegMap(@Self)^.clr := $00000001
  31325. else
  31326. pTDefRegMap(@Self)^.&set := $00000001;
  31327. end;
  31328. function TI2C2_I2C2CON.getSEN : TBits_1; inline;
  31329. begin
  31330. getSEN := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  31331. end;
  31332. procedure TI2C2_I2C2CON.setRSEN; inline;
  31333. begin
  31334. pTDefRegMap(@Self)^.&set := $00000002;
  31335. end;
  31336. procedure TI2C2_I2C2CON.clearRSEN; inline;
  31337. begin
  31338. pTDefRegMap(@Self)^.clr := $00000002;
  31339. end;
  31340. procedure TI2C2_I2C2CON.setRSEN(thebits : TBits_1); inline;
  31341. begin
  31342. if thebits = 0 then
  31343. pTDefRegMap(@Self)^.clr := $00000002
  31344. else
  31345. pTDefRegMap(@Self)^.&set := $00000002;
  31346. end;
  31347. function TI2C2_I2C2CON.getRSEN : TBits_1; inline;
  31348. begin
  31349. getRSEN := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  31350. end;
  31351. procedure TI2C2_I2C2CON.setPEN; inline;
  31352. begin
  31353. pTDefRegMap(@Self)^.&set := $00000004;
  31354. end;
  31355. procedure TI2C2_I2C2CON.clearPEN; inline;
  31356. begin
  31357. pTDefRegMap(@Self)^.clr := $00000004;
  31358. end;
  31359. procedure TI2C2_I2C2CON.setPEN(thebits : TBits_1); inline;
  31360. begin
  31361. if thebits = 0 then
  31362. pTDefRegMap(@Self)^.clr := $00000004
  31363. else
  31364. pTDefRegMap(@Self)^.&set := $00000004;
  31365. end;
  31366. function TI2C2_I2C2CON.getPEN : TBits_1; inline;
  31367. begin
  31368. getPEN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  31369. end;
  31370. procedure TI2C2_I2C2CON.setRCEN; inline;
  31371. begin
  31372. pTDefRegMap(@Self)^.&set := $00000008;
  31373. end;
  31374. procedure TI2C2_I2C2CON.clearRCEN; inline;
  31375. begin
  31376. pTDefRegMap(@Self)^.clr := $00000008;
  31377. end;
  31378. procedure TI2C2_I2C2CON.setRCEN(thebits : TBits_1); inline;
  31379. begin
  31380. if thebits = 0 then
  31381. pTDefRegMap(@Self)^.clr := $00000008
  31382. else
  31383. pTDefRegMap(@Self)^.&set := $00000008;
  31384. end;
  31385. function TI2C2_I2C2CON.getRCEN : TBits_1; inline;
  31386. begin
  31387. getRCEN := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  31388. end;
  31389. procedure TI2C2_I2C2CON.setACKEN; inline;
  31390. begin
  31391. pTDefRegMap(@Self)^.&set := $00000010;
  31392. end;
  31393. procedure TI2C2_I2C2CON.clearACKEN; inline;
  31394. begin
  31395. pTDefRegMap(@Self)^.clr := $00000010;
  31396. end;
  31397. procedure TI2C2_I2C2CON.setACKEN(thebits : TBits_1); inline;
  31398. begin
  31399. if thebits = 0 then
  31400. pTDefRegMap(@Self)^.clr := $00000010
  31401. else
  31402. pTDefRegMap(@Self)^.&set := $00000010;
  31403. end;
  31404. function TI2C2_I2C2CON.getACKEN : TBits_1; inline;
  31405. begin
  31406. getACKEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  31407. end;
  31408. procedure TI2C2_I2C2CON.setACKDT; inline;
  31409. begin
  31410. pTDefRegMap(@Self)^.&set := $00000020;
  31411. end;
  31412. procedure TI2C2_I2C2CON.clearACKDT; inline;
  31413. begin
  31414. pTDefRegMap(@Self)^.clr := $00000020;
  31415. end;
  31416. procedure TI2C2_I2C2CON.setACKDT(thebits : TBits_1); inline;
  31417. begin
  31418. if thebits = 0 then
  31419. pTDefRegMap(@Self)^.clr := $00000020
  31420. else
  31421. pTDefRegMap(@Self)^.&set := $00000020;
  31422. end;
  31423. function TI2C2_I2C2CON.getACKDT : TBits_1; inline;
  31424. begin
  31425. getACKDT := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  31426. end;
  31427. procedure TI2C2_I2C2CON.setSTREN; inline;
  31428. begin
  31429. pTDefRegMap(@Self)^.&set := $00000040;
  31430. end;
  31431. procedure TI2C2_I2C2CON.clearSTREN; inline;
  31432. begin
  31433. pTDefRegMap(@Self)^.clr := $00000040;
  31434. end;
  31435. procedure TI2C2_I2C2CON.setSTREN(thebits : TBits_1); inline;
  31436. begin
  31437. if thebits = 0 then
  31438. pTDefRegMap(@Self)^.clr := $00000040
  31439. else
  31440. pTDefRegMap(@Self)^.&set := $00000040;
  31441. end;
  31442. function TI2C2_I2C2CON.getSTREN : TBits_1; inline;
  31443. begin
  31444. getSTREN := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  31445. end;
  31446. procedure TI2C2_I2C2CON.setGCEN; inline;
  31447. begin
  31448. pTDefRegMap(@Self)^.&set := $00000080;
  31449. end;
  31450. procedure TI2C2_I2C2CON.clearGCEN; inline;
  31451. begin
  31452. pTDefRegMap(@Self)^.clr := $00000080;
  31453. end;
  31454. procedure TI2C2_I2C2CON.setGCEN(thebits : TBits_1); inline;
  31455. begin
  31456. if thebits = 0 then
  31457. pTDefRegMap(@Self)^.clr := $00000080
  31458. else
  31459. pTDefRegMap(@Self)^.&set := $00000080;
  31460. end;
  31461. function TI2C2_I2C2CON.getGCEN : TBits_1; inline;
  31462. begin
  31463. getGCEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  31464. end;
  31465. procedure TI2C2_I2C2CON.setSMEN; inline;
  31466. begin
  31467. pTDefRegMap(@Self)^.&set := $00000100;
  31468. end;
  31469. procedure TI2C2_I2C2CON.clearSMEN; inline;
  31470. begin
  31471. pTDefRegMap(@Self)^.clr := $00000100;
  31472. end;
  31473. procedure TI2C2_I2C2CON.setSMEN(thebits : TBits_1); inline;
  31474. begin
  31475. if thebits = 0 then
  31476. pTDefRegMap(@Self)^.clr := $00000100
  31477. else
  31478. pTDefRegMap(@Self)^.&set := $00000100;
  31479. end;
  31480. function TI2C2_I2C2CON.getSMEN : TBits_1; inline;
  31481. begin
  31482. getSMEN := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  31483. end;
  31484. procedure TI2C2_I2C2CON.setDISSLW; inline;
  31485. begin
  31486. pTDefRegMap(@Self)^.&set := $00000200;
  31487. end;
  31488. procedure TI2C2_I2C2CON.clearDISSLW; inline;
  31489. begin
  31490. pTDefRegMap(@Self)^.clr := $00000200;
  31491. end;
  31492. procedure TI2C2_I2C2CON.setDISSLW(thebits : TBits_1); inline;
  31493. begin
  31494. if thebits = 0 then
  31495. pTDefRegMap(@Self)^.clr := $00000200
  31496. else
  31497. pTDefRegMap(@Self)^.&set := $00000200;
  31498. end;
  31499. function TI2C2_I2C2CON.getDISSLW : TBits_1; inline;
  31500. begin
  31501. getDISSLW := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  31502. end;
  31503. procedure TI2C2_I2C2CON.setA10M; inline;
  31504. begin
  31505. pTDefRegMap(@Self)^.&set := $00000400;
  31506. end;
  31507. procedure TI2C2_I2C2CON.clearA10M; inline;
  31508. begin
  31509. pTDefRegMap(@Self)^.clr := $00000400;
  31510. end;
  31511. procedure TI2C2_I2C2CON.setA10M(thebits : TBits_1); inline;
  31512. begin
  31513. if thebits = 0 then
  31514. pTDefRegMap(@Self)^.clr := $00000400
  31515. else
  31516. pTDefRegMap(@Self)^.&set := $00000400;
  31517. end;
  31518. function TI2C2_I2C2CON.getA10M : TBits_1; inline;
  31519. begin
  31520. getA10M := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  31521. end;
  31522. procedure TI2C2_I2C2CON.setSTRICT; inline;
  31523. begin
  31524. pTDefRegMap(@Self)^.&set := $00000800;
  31525. end;
  31526. procedure TI2C2_I2C2CON.clearSTRICT; inline;
  31527. begin
  31528. pTDefRegMap(@Self)^.clr := $00000800;
  31529. end;
  31530. procedure TI2C2_I2C2CON.setSTRICT(thebits : TBits_1); inline;
  31531. begin
  31532. if thebits = 0 then
  31533. pTDefRegMap(@Self)^.clr := $00000800
  31534. else
  31535. pTDefRegMap(@Self)^.&set := $00000800;
  31536. end;
  31537. function TI2C2_I2C2CON.getSTRICT : TBits_1; inline;
  31538. begin
  31539. getSTRICT := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  31540. end;
  31541. procedure TI2C2_I2C2CON.setSCLREL; inline;
  31542. begin
  31543. pTDefRegMap(@Self)^.&set := $00001000;
  31544. end;
  31545. procedure TI2C2_I2C2CON.clearSCLREL; inline;
  31546. begin
  31547. pTDefRegMap(@Self)^.clr := $00001000;
  31548. end;
  31549. procedure TI2C2_I2C2CON.setSCLREL(thebits : TBits_1); inline;
  31550. begin
  31551. if thebits = 0 then
  31552. pTDefRegMap(@Self)^.clr := $00001000
  31553. else
  31554. pTDefRegMap(@Self)^.&set := $00001000;
  31555. end;
  31556. function TI2C2_I2C2CON.getSCLREL : TBits_1; inline;
  31557. begin
  31558. getSCLREL := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  31559. end;
  31560. procedure TI2C2_I2C2CON.setSIDL; inline;
  31561. begin
  31562. pTDefRegMap(@Self)^.&set := $00002000;
  31563. end;
  31564. procedure TI2C2_I2C2CON.clearSIDL; inline;
  31565. begin
  31566. pTDefRegMap(@Self)^.clr := $00002000;
  31567. end;
  31568. procedure TI2C2_I2C2CON.setSIDL(thebits : TBits_1); inline;
  31569. begin
  31570. if thebits = 0 then
  31571. pTDefRegMap(@Self)^.clr := $00002000
  31572. else
  31573. pTDefRegMap(@Self)^.&set := $00002000;
  31574. end;
  31575. function TI2C2_I2C2CON.getSIDL : TBits_1; inline;
  31576. begin
  31577. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  31578. end;
  31579. procedure TI2C2_I2C2CON.setON; inline;
  31580. begin
  31581. pTDefRegMap(@Self)^.&set := $00008000;
  31582. end;
  31583. procedure TI2C2_I2C2CON.clearON; inline;
  31584. begin
  31585. pTDefRegMap(@Self)^.clr := $00008000;
  31586. end;
  31587. procedure TI2C2_I2C2CON.setON(thebits : TBits_1); inline;
  31588. begin
  31589. if thebits = 0 then
  31590. pTDefRegMap(@Self)^.clr := $00008000
  31591. else
  31592. pTDefRegMap(@Self)^.&set := $00008000;
  31593. end;
  31594. function TI2C2_I2C2CON.getON : TBits_1; inline;
  31595. begin
  31596. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  31597. end;
  31598. procedure TI2C2_I2C2CON.setIPMIEN; inline;
  31599. begin
  31600. pTDefRegMap(@Self)^.&set := $00000800;
  31601. end;
  31602. procedure TI2C2_I2C2CON.clearIPMIEN; inline;
  31603. begin
  31604. pTDefRegMap(@Self)^.clr := $00000800;
  31605. end;
  31606. procedure TI2C2_I2C2CON.setIPMIEN(thebits : TBits_1); inline;
  31607. begin
  31608. if thebits = 0 then
  31609. pTDefRegMap(@Self)^.clr := $00000800
  31610. else
  31611. pTDefRegMap(@Self)^.&set := $00000800;
  31612. end;
  31613. function TI2C2_I2C2CON.getIPMIEN : TBits_1; inline;
  31614. begin
  31615. getIPMIEN := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  31616. end;
  31617. procedure TI2C2_I2C2CON.setI2CSIDL; inline;
  31618. begin
  31619. pTDefRegMap(@Self)^.&set := $00002000;
  31620. end;
  31621. procedure TI2C2_I2C2CON.clearI2CSIDL; inline;
  31622. begin
  31623. pTDefRegMap(@Self)^.clr := $00002000;
  31624. end;
  31625. procedure TI2C2_I2C2CON.setI2CSIDL(thebits : TBits_1); inline;
  31626. begin
  31627. if thebits = 0 then
  31628. pTDefRegMap(@Self)^.clr := $00002000
  31629. else
  31630. pTDefRegMap(@Self)^.&set := $00002000;
  31631. end;
  31632. function TI2C2_I2C2CON.getI2CSIDL : TBits_1; inline;
  31633. begin
  31634. getI2CSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  31635. end;
  31636. procedure TI2C2_I2C2CON.setI2CEN; inline;
  31637. begin
  31638. pTDefRegMap(@Self)^.&set := $00008000;
  31639. end;
  31640. procedure TI2C2_I2C2CON.clearI2CEN; inline;
  31641. begin
  31642. pTDefRegMap(@Self)^.clr := $00008000;
  31643. end;
  31644. procedure TI2C2_I2C2CON.setI2CEN(thebits : TBits_1); inline;
  31645. begin
  31646. if thebits = 0 then
  31647. pTDefRegMap(@Self)^.clr := $00008000
  31648. else
  31649. pTDefRegMap(@Self)^.&set := $00008000;
  31650. end;
  31651. function TI2C2_I2C2CON.getI2CEN : TBits_1; inline;
  31652. begin
  31653. getI2CEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  31654. end;
  31655. procedure TI2C2_I2C2CON.setw(thebits : TBits_32); inline;
  31656. begin
  31657. pTDefRegMap(@Self)^.val := thebits;
  31658. end;
  31659. function TI2C2_I2C2CON.getw : TBits_32; inline;
  31660. begin
  31661. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  31662. end;
  31663. procedure TI2C2_I2C2STAT.setTBF; inline;
  31664. begin
  31665. pTDefRegMap(@Self)^.&set := $00000001;
  31666. end;
  31667. procedure TI2C2_I2C2STAT.clearTBF; inline;
  31668. begin
  31669. pTDefRegMap(@Self)^.clr := $00000001;
  31670. end;
  31671. procedure TI2C2_I2C2STAT.setTBF(thebits : TBits_1); inline;
  31672. begin
  31673. if thebits = 0 then
  31674. pTDefRegMap(@Self)^.clr := $00000001
  31675. else
  31676. pTDefRegMap(@Self)^.&set := $00000001;
  31677. end;
  31678. function TI2C2_I2C2STAT.getTBF : TBits_1; inline;
  31679. begin
  31680. getTBF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  31681. end;
  31682. procedure TI2C2_I2C2STAT.setRBF; inline;
  31683. begin
  31684. pTDefRegMap(@Self)^.&set := $00000002;
  31685. end;
  31686. procedure TI2C2_I2C2STAT.clearRBF; inline;
  31687. begin
  31688. pTDefRegMap(@Self)^.clr := $00000002;
  31689. end;
  31690. procedure TI2C2_I2C2STAT.setRBF(thebits : TBits_1); inline;
  31691. begin
  31692. if thebits = 0 then
  31693. pTDefRegMap(@Self)^.clr := $00000002
  31694. else
  31695. pTDefRegMap(@Self)^.&set := $00000002;
  31696. end;
  31697. function TI2C2_I2C2STAT.getRBF : TBits_1; inline;
  31698. begin
  31699. getRBF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  31700. end;
  31701. procedure TI2C2_I2C2STAT.setR_W; inline;
  31702. begin
  31703. pTDefRegMap(@Self)^.&set := $00000004;
  31704. end;
  31705. procedure TI2C2_I2C2STAT.clearR_W; inline;
  31706. begin
  31707. pTDefRegMap(@Self)^.clr := $00000004;
  31708. end;
  31709. procedure TI2C2_I2C2STAT.setR_W(thebits : TBits_1); inline;
  31710. begin
  31711. if thebits = 0 then
  31712. pTDefRegMap(@Self)^.clr := $00000004
  31713. else
  31714. pTDefRegMap(@Self)^.&set := $00000004;
  31715. end;
  31716. function TI2C2_I2C2STAT.getR_W : TBits_1; inline;
  31717. begin
  31718. getR_W := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  31719. end;
  31720. procedure TI2C2_I2C2STAT.setS; inline;
  31721. begin
  31722. pTDefRegMap(@Self)^.&set := $00000008;
  31723. end;
  31724. procedure TI2C2_I2C2STAT.clearS; inline;
  31725. begin
  31726. pTDefRegMap(@Self)^.clr := $00000008;
  31727. end;
  31728. procedure TI2C2_I2C2STAT.setS(thebits : TBits_1); inline;
  31729. begin
  31730. if thebits = 0 then
  31731. pTDefRegMap(@Self)^.clr := $00000008
  31732. else
  31733. pTDefRegMap(@Self)^.&set := $00000008;
  31734. end;
  31735. function TI2C2_I2C2STAT.getS : TBits_1; inline;
  31736. begin
  31737. getS := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  31738. end;
  31739. procedure TI2C2_I2C2STAT.setP; inline;
  31740. begin
  31741. pTDefRegMap(@Self)^.&set := $00000010;
  31742. end;
  31743. procedure TI2C2_I2C2STAT.clearP; inline;
  31744. begin
  31745. pTDefRegMap(@Self)^.clr := $00000010;
  31746. end;
  31747. procedure TI2C2_I2C2STAT.setP(thebits : TBits_1); inline;
  31748. begin
  31749. if thebits = 0 then
  31750. pTDefRegMap(@Self)^.clr := $00000010
  31751. else
  31752. pTDefRegMap(@Self)^.&set := $00000010;
  31753. end;
  31754. function TI2C2_I2C2STAT.getP : TBits_1; inline;
  31755. begin
  31756. getP := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  31757. end;
  31758. procedure TI2C2_I2C2STAT.setD_A; inline;
  31759. begin
  31760. pTDefRegMap(@Self)^.&set := $00000020;
  31761. end;
  31762. procedure TI2C2_I2C2STAT.clearD_A; inline;
  31763. begin
  31764. pTDefRegMap(@Self)^.clr := $00000020;
  31765. end;
  31766. procedure TI2C2_I2C2STAT.setD_A(thebits : TBits_1); inline;
  31767. begin
  31768. if thebits = 0 then
  31769. pTDefRegMap(@Self)^.clr := $00000020
  31770. else
  31771. pTDefRegMap(@Self)^.&set := $00000020;
  31772. end;
  31773. function TI2C2_I2C2STAT.getD_A : TBits_1; inline;
  31774. begin
  31775. getD_A := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  31776. end;
  31777. procedure TI2C2_I2C2STAT.setI2COV; inline;
  31778. begin
  31779. pTDefRegMap(@Self)^.&set := $00000040;
  31780. end;
  31781. procedure TI2C2_I2C2STAT.clearI2COV; inline;
  31782. begin
  31783. pTDefRegMap(@Self)^.clr := $00000040;
  31784. end;
  31785. procedure TI2C2_I2C2STAT.setI2COV(thebits : TBits_1); inline;
  31786. begin
  31787. if thebits = 0 then
  31788. pTDefRegMap(@Self)^.clr := $00000040
  31789. else
  31790. pTDefRegMap(@Self)^.&set := $00000040;
  31791. end;
  31792. function TI2C2_I2C2STAT.getI2COV : TBits_1; inline;
  31793. begin
  31794. getI2COV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  31795. end;
  31796. procedure TI2C2_I2C2STAT.setIWCOL; inline;
  31797. begin
  31798. pTDefRegMap(@Self)^.&set := $00000080;
  31799. end;
  31800. procedure TI2C2_I2C2STAT.clearIWCOL; inline;
  31801. begin
  31802. pTDefRegMap(@Self)^.clr := $00000080;
  31803. end;
  31804. procedure TI2C2_I2C2STAT.setIWCOL(thebits : TBits_1); inline;
  31805. begin
  31806. if thebits = 0 then
  31807. pTDefRegMap(@Self)^.clr := $00000080
  31808. else
  31809. pTDefRegMap(@Self)^.&set := $00000080;
  31810. end;
  31811. function TI2C2_I2C2STAT.getIWCOL : TBits_1; inline;
  31812. begin
  31813. getIWCOL := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  31814. end;
  31815. procedure TI2C2_I2C2STAT.setADD10; inline;
  31816. begin
  31817. pTDefRegMap(@Self)^.&set := $00000100;
  31818. end;
  31819. procedure TI2C2_I2C2STAT.clearADD10; inline;
  31820. begin
  31821. pTDefRegMap(@Self)^.clr := $00000100;
  31822. end;
  31823. procedure TI2C2_I2C2STAT.setADD10(thebits : TBits_1); inline;
  31824. begin
  31825. if thebits = 0 then
  31826. pTDefRegMap(@Self)^.clr := $00000100
  31827. else
  31828. pTDefRegMap(@Self)^.&set := $00000100;
  31829. end;
  31830. function TI2C2_I2C2STAT.getADD10 : TBits_1; inline;
  31831. begin
  31832. getADD10 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  31833. end;
  31834. procedure TI2C2_I2C2STAT.setGCSTAT; inline;
  31835. begin
  31836. pTDefRegMap(@Self)^.&set := $00000200;
  31837. end;
  31838. procedure TI2C2_I2C2STAT.clearGCSTAT; inline;
  31839. begin
  31840. pTDefRegMap(@Self)^.clr := $00000200;
  31841. end;
  31842. procedure TI2C2_I2C2STAT.setGCSTAT(thebits : TBits_1); inline;
  31843. begin
  31844. if thebits = 0 then
  31845. pTDefRegMap(@Self)^.clr := $00000200
  31846. else
  31847. pTDefRegMap(@Self)^.&set := $00000200;
  31848. end;
  31849. function TI2C2_I2C2STAT.getGCSTAT : TBits_1; inline;
  31850. begin
  31851. getGCSTAT := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  31852. end;
  31853. procedure TI2C2_I2C2STAT.setBCL; inline;
  31854. begin
  31855. pTDefRegMap(@Self)^.&set := $00000400;
  31856. end;
  31857. procedure TI2C2_I2C2STAT.clearBCL; inline;
  31858. begin
  31859. pTDefRegMap(@Self)^.clr := $00000400;
  31860. end;
  31861. procedure TI2C2_I2C2STAT.setBCL(thebits : TBits_1); inline;
  31862. begin
  31863. if thebits = 0 then
  31864. pTDefRegMap(@Self)^.clr := $00000400
  31865. else
  31866. pTDefRegMap(@Self)^.&set := $00000400;
  31867. end;
  31868. function TI2C2_I2C2STAT.getBCL : TBits_1; inline;
  31869. begin
  31870. getBCL := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  31871. end;
  31872. procedure TI2C2_I2C2STAT.setTRSTAT; inline;
  31873. begin
  31874. pTDefRegMap(@Self)^.&set := $00004000;
  31875. end;
  31876. procedure TI2C2_I2C2STAT.clearTRSTAT; inline;
  31877. begin
  31878. pTDefRegMap(@Self)^.clr := $00004000;
  31879. end;
  31880. procedure TI2C2_I2C2STAT.setTRSTAT(thebits : TBits_1); inline;
  31881. begin
  31882. if thebits = 0 then
  31883. pTDefRegMap(@Self)^.clr := $00004000
  31884. else
  31885. pTDefRegMap(@Self)^.&set := $00004000;
  31886. end;
  31887. function TI2C2_I2C2STAT.getTRSTAT : TBits_1; inline;
  31888. begin
  31889. getTRSTAT := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  31890. end;
  31891. procedure TI2C2_I2C2STAT.setACKSTAT; inline;
  31892. begin
  31893. pTDefRegMap(@Self)^.&set := $00008000;
  31894. end;
  31895. procedure TI2C2_I2C2STAT.clearACKSTAT; inline;
  31896. begin
  31897. pTDefRegMap(@Self)^.clr := $00008000;
  31898. end;
  31899. procedure TI2C2_I2C2STAT.setACKSTAT(thebits : TBits_1); inline;
  31900. begin
  31901. if thebits = 0 then
  31902. pTDefRegMap(@Self)^.clr := $00008000
  31903. else
  31904. pTDefRegMap(@Self)^.&set := $00008000;
  31905. end;
  31906. function TI2C2_I2C2STAT.getACKSTAT : TBits_1; inline;
  31907. begin
  31908. getACKSTAT := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  31909. end;
  31910. procedure TI2C2_I2C2STAT.setI2CPOV; inline;
  31911. begin
  31912. pTDefRegMap(@Self)^.&set := $00000040;
  31913. end;
  31914. procedure TI2C2_I2C2STAT.clearI2CPOV; inline;
  31915. begin
  31916. pTDefRegMap(@Self)^.clr := $00000040;
  31917. end;
  31918. procedure TI2C2_I2C2STAT.setI2CPOV(thebits : TBits_1); inline;
  31919. begin
  31920. if thebits = 0 then
  31921. pTDefRegMap(@Self)^.clr := $00000040
  31922. else
  31923. pTDefRegMap(@Self)^.&set := $00000040;
  31924. end;
  31925. function TI2C2_I2C2STAT.getI2CPOV : TBits_1; inline;
  31926. begin
  31927. getI2CPOV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  31928. end;
  31929. procedure TI2C2_I2C2STAT.setw(thebits : TBits_32); inline;
  31930. begin
  31931. pTDefRegMap(@Self)^.val := thebits;
  31932. end;
  31933. function TI2C2_I2C2STAT.getw : TBits_32; inline;
  31934. begin
  31935. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  31936. end;
  31937. procedure TSPI3_SPI1ACON.setSRXISEL(thebits : TBits_2); inline;
  31938. begin
  31939. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  31940. end;
  31941. function TSPI3_SPI1ACON.getSRXISEL : TBits_2; inline;
  31942. begin
  31943. getSRXISEL := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  31944. end;
  31945. procedure TSPI3_SPI1ACON.setSTXISEL(thebits : TBits_2); inline;
  31946. begin
  31947. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF3 or ( thebits shl 2 );
  31948. end;
  31949. function TSPI3_SPI1ACON.getSTXISEL : TBits_2; inline;
  31950. begin
  31951. getSTXISEL := (pTDefRegMap(@Self)^.val and $0000000C) shr 2;
  31952. end;
  31953. procedure TSPI3_SPI1ACON.setMSTEN; inline;
  31954. begin
  31955. pTDefRegMap(@Self)^.&set := $00000020;
  31956. end;
  31957. procedure TSPI3_SPI1ACON.clearMSTEN; inline;
  31958. begin
  31959. pTDefRegMap(@Self)^.clr := $00000020;
  31960. end;
  31961. procedure TSPI3_SPI1ACON.setMSTEN(thebits : TBits_1); inline;
  31962. begin
  31963. if thebits = 0 then
  31964. pTDefRegMap(@Self)^.clr := $00000020
  31965. else
  31966. pTDefRegMap(@Self)^.&set := $00000020;
  31967. end;
  31968. function TSPI3_SPI1ACON.getMSTEN : TBits_1; inline;
  31969. begin
  31970. getMSTEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  31971. end;
  31972. procedure TSPI3_SPI1ACON.setCKP; inline;
  31973. begin
  31974. pTDefRegMap(@Self)^.&set := $00000040;
  31975. end;
  31976. procedure TSPI3_SPI1ACON.clearCKP; inline;
  31977. begin
  31978. pTDefRegMap(@Self)^.clr := $00000040;
  31979. end;
  31980. procedure TSPI3_SPI1ACON.setCKP(thebits : TBits_1); inline;
  31981. begin
  31982. if thebits = 0 then
  31983. pTDefRegMap(@Self)^.clr := $00000040
  31984. else
  31985. pTDefRegMap(@Self)^.&set := $00000040;
  31986. end;
  31987. function TSPI3_SPI1ACON.getCKP : TBits_1; inline;
  31988. begin
  31989. getCKP := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  31990. end;
  31991. procedure TSPI3_SPI1ACON.setSSEN; inline;
  31992. begin
  31993. pTDefRegMap(@Self)^.&set := $00000080;
  31994. end;
  31995. procedure TSPI3_SPI1ACON.clearSSEN; inline;
  31996. begin
  31997. pTDefRegMap(@Self)^.clr := $00000080;
  31998. end;
  31999. procedure TSPI3_SPI1ACON.setSSEN(thebits : TBits_1); inline;
  32000. begin
  32001. if thebits = 0 then
  32002. pTDefRegMap(@Self)^.clr := $00000080
  32003. else
  32004. pTDefRegMap(@Self)^.&set := $00000080;
  32005. end;
  32006. function TSPI3_SPI1ACON.getSSEN : TBits_1; inline;
  32007. begin
  32008. getSSEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  32009. end;
  32010. procedure TSPI3_SPI1ACON.setCKE; inline;
  32011. begin
  32012. pTDefRegMap(@Self)^.&set := $00000100;
  32013. end;
  32014. procedure TSPI3_SPI1ACON.clearCKE; inline;
  32015. begin
  32016. pTDefRegMap(@Self)^.clr := $00000100;
  32017. end;
  32018. procedure TSPI3_SPI1ACON.setCKE(thebits : TBits_1); inline;
  32019. begin
  32020. if thebits = 0 then
  32021. pTDefRegMap(@Self)^.clr := $00000100
  32022. else
  32023. pTDefRegMap(@Self)^.&set := $00000100;
  32024. end;
  32025. function TSPI3_SPI1ACON.getCKE : TBits_1; inline;
  32026. begin
  32027. getCKE := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  32028. end;
  32029. procedure TSPI3_SPI1ACON.setSMP; inline;
  32030. begin
  32031. pTDefRegMap(@Self)^.&set := $00000200;
  32032. end;
  32033. procedure TSPI3_SPI1ACON.clearSMP; inline;
  32034. begin
  32035. pTDefRegMap(@Self)^.clr := $00000200;
  32036. end;
  32037. procedure TSPI3_SPI1ACON.setSMP(thebits : TBits_1); inline;
  32038. begin
  32039. if thebits = 0 then
  32040. pTDefRegMap(@Self)^.clr := $00000200
  32041. else
  32042. pTDefRegMap(@Self)^.&set := $00000200;
  32043. end;
  32044. function TSPI3_SPI1ACON.getSMP : TBits_1; inline;
  32045. begin
  32046. getSMP := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  32047. end;
  32048. procedure TSPI3_SPI1ACON.setMODE16; inline;
  32049. begin
  32050. pTDefRegMap(@Self)^.&set := $00000400;
  32051. end;
  32052. procedure TSPI3_SPI1ACON.clearMODE16; inline;
  32053. begin
  32054. pTDefRegMap(@Self)^.clr := $00000400;
  32055. end;
  32056. procedure TSPI3_SPI1ACON.setMODE16(thebits : TBits_1); inline;
  32057. begin
  32058. if thebits = 0 then
  32059. pTDefRegMap(@Self)^.clr := $00000400
  32060. else
  32061. pTDefRegMap(@Self)^.&set := $00000400;
  32062. end;
  32063. function TSPI3_SPI1ACON.getMODE16 : TBits_1; inline;
  32064. begin
  32065. getMODE16 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  32066. end;
  32067. procedure TSPI3_SPI1ACON.setMODE32; inline;
  32068. begin
  32069. pTDefRegMap(@Self)^.&set := $00000800;
  32070. end;
  32071. procedure TSPI3_SPI1ACON.clearMODE32; inline;
  32072. begin
  32073. pTDefRegMap(@Self)^.clr := $00000800;
  32074. end;
  32075. procedure TSPI3_SPI1ACON.setMODE32(thebits : TBits_1); inline;
  32076. begin
  32077. if thebits = 0 then
  32078. pTDefRegMap(@Self)^.clr := $00000800
  32079. else
  32080. pTDefRegMap(@Self)^.&set := $00000800;
  32081. end;
  32082. function TSPI3_SPI1ACON.getMODE32 : TBits_1; inline;
  32083. begin
  32084. getMODE32 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  32085. end;
  32086. procedure TSPI3_SPI1ACON.setDISSDO; inline;
  32087. begin
  32088. pTDefRegMap(@Self)^.&set := $00001000;
  32089. end;
  32090. procedure TSPI3_SPI1ACON.clearDISSDO; inline;
  32091. begin
  32092. pTDefRegMap(@Self)^.clr := $00001000;
  32093. end;
  32094. procedure TSPI3_SPI1ACON.setDISSDO(thebits : TBits_1); inline;
  32095. begin
  32096. if thebits = 0 then
  32097. pTDefRegMap(@Self)^.clr := $00001000
  32098. else
  32099. pTDefRegMap(@Self)^.&set := $00001000;
  32100. end;
  32101. function TSPI3_SPI1ACON.getDISSDO : TBits_1; inline;
  32102. begin
  32103. getDISSDO := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  32104. end;
  32105. procedure TSPI3_SPI1ACON.setSIDL; inline;
  32106. begin
  32107. pTDefRegMap(@Self)^.&set := $00002000;
  32108. end;
  32109. procedure TSPI3_SPI1ACON.clearSIDL; inline;
  32110. begin
  32111. pTDefRegMap(@Self)^.clr := $00002000;
  32112. end;
  32113. procedure TSPI3_SPI1ACON.setSIDL(thebits : TBits_1); inline;
  32114. begin
  32115. if thebits = 0 then
  32116. pTDefRegMap(@Self)^.clr := $00002000
  32117. else
  32118. pTDefRegMap(@Self)^.&set := $00002000;
  32119. end;
  32120. function TSPI3_SPI1ACON.getSIDL : TBits_1; inline;
  32121. begin
  32122. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  32123. end;
  32124. procedure TSPI3_SPI1ACON.setON; inline;
  32125. begin
  32126. pTDefRegMap(@Self)^.&set := $00008000;
  32127. end;
  32128. procedure TSPI3_SPI1ACON.clearON; inline;
  32129. begin
  32130. pTDefRegMap(@Self)^.clr := $00008000;
  32131. end;
  32132. procedure TSPI3_SPI1ACON.setON(thebits : TBits_1); inline;
  32133. begin
  32134. if thebits = 0 then
  32135. pTDefRegMap(@Self)^.clr := $00008000
  32136. else
  32137. pTDefRegMap(@Self)^.&set := $00008000;
  32138. end;
  32139. function TSPI3_SPI1ACON.getON : TBits_1; inline;
  32140. begin
  32141. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  32142. end;
  32143. procedure TSPI3_SPI1ACON.setENHBUF; inline;
  32144. begin
  32145. pTDefRegMap(@Self)^.&set := $00010000;
  32146. end;
  32147. procedure TSPI3_SPI1ACON.clearENHBUF; inline;
  32148. begin
  32149. pTDefRegMap(@Self)^.clr := $00010000;
  32150. end;
  32151. procedure TSPI3_SPI1ACON.setENHBUF(thebits : TBits_1); inline;
  32152. begin
  32153. if thebits = 0 then
  32154. pTDefRegMap(@Self)^.clr := $00010000
  32155. else
  32156. pTDefRegMap(@Self)^.&set := $00010000;
  32157. end;
  32158. function TSPI3_SPI1ACON.getENHBUF : TBits_1; inline;
  32159. begin
  32160. getENHBUF := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  32161. end;
  32162. procedure TSPI3_SPI1ACON.setSPIFE; inline;
  32163. begin
  32164. pTDefRegMap(@Self)^.&set := $00020000;
  32165. end;
  32166. procedure TSPI3_SPI1ACON.clearSPIFE; inline;
  32167. begin
  32168. pTDefRegMap(@Self)^.clr := $00020000;
  32169. end;
  32170. procedure TSPI3_SPI1ACON.setSPIFE(thebits : TBits_1); inline;
  32171. begin
  32172. if thebits = 0 then
  32173. pTDefRegMap(@Self)^.clr := $00020000
  32174. else
  32175. pTDefRegMap(@Self)^.&set := $00020000;
  32176. end;
  32177. function TSPI3_SPI1ACON.getSPIFE : TBits_1; inline;
  32178. begin
  32179. getSPIFE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  32180. end;
  32181. procedure TSPI3_SPI1ACON.setFRMCNT(thebits : TBits_3); inline;
  32182. begin
  32183. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $F8FFFFFF or ( thebits shl 24 );
  32184. end;
  32185. function TSPI3_SPI1ACON.getFRMCNT : TBits_3; inline;
  32186. begin
  32187. getFRMCNT := (pTDefRegMap(@Self)^.val and $07000000) shr 24;
  32188. end;
  32189. procedure TSPI3_SPI1ACON.setFRMSYPW; inline;
  32190. begin
  32191. pTDefRegMap(@Self)^.&set := $08000000;
  32192. end;
  32193. procedure TSPI3_SPI1ACON.clearFRMSYPW; inline;
  32194. begin
  32195. pTDefRegMap(@Self)^.clr := $08000000;
  32196. end;
  32197. procedure TSPI3_SPI1ACON.setFRMSYPW(thebits : TBits_1); inline;
  32198. begin
  32199. if thebits = 0 then
  32200. pTDefRegMap(@Self)^.clr := $08000000
  32201. else
  32202. pTDefRegMap(@Self)^.&set := $08000000;
  32203. end;
  32204. function TSPI3_SPI1ACON.getFRMSYPW : TBits_1; inline;
  32205. begin
  32206. getFRMSYPW := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  32207. end;
  32208. procedure TSPI3_SPI1ACON.setMSSEN; inline;
  32209. begin
  32210. pTDefRegMap(@Self)^.&set := $10000000;
  32211. end;
  32212. procedure TSPI3_SPI1ACON.clearMSSEN; inline;
  32213. begin
  32214. pTDefRegMap(@Self)^.clr := $10000000;
  32215. end;
  32216. procedure TSPI3_SPI1ACON.setMSSEN(thebits : TBits_1); inline;
  32217. begin
  32218. if thebits = 0 then
  32219. pTDefRegMap(@Self)^.clr := $10000000
  32220. else
  32221. pTDefRegMap(@Self)^.&set := $10000000;
  32222. end;
  32223. function TSPI3_SPI1ACON.getMSSEN : TBits_1; inline;
  32224. begin
  32225. getMSSEN := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  32226. end;
  32227. procedure TSPI3_SPI1ACON.setFRMPOL; inline;
  32228. begin
  32229. pTDefRegMap(@Self)^.&set := $20000000;
  32230. end;
  32231. procedure TSPI3_SPI1ACON.clearFRMPOL; inline;
  32232. begin
  32233. pTDefRegMap(@Self)^.clr := $20000000;
  32234. end;
  32235. procedure TSPI3_SPI1ACON.setFRMPOL(thebits : TBits_1); inline;
  32236. begin
  32237. if thebits = 0 then
  32238. pTDefRegMap(@Self)^.clr := $20000000
  32239. else
  32240. pTDefRegMap(@Self)^.&set := $20000000;
  32241. end;
  32242. function TSPI3_SPI1ACON.getFRMPOL : TBits_1; inline;
  32243. begin
  32244. getFRMPOL := (pTDefRegMap(@Self)^.val and $20000000) shr 29;
  32245. end;
  32246. procedure TSPI3_SPI1ACON.setFRMSYNC; inline;
  32247. begin
  32248. pTDefRegMap(@Self)^.&set := $40000000;
  32249. end;
  32250. procedure TSPI3_SPI1ACON.clearFRMSYNC; inline;
  32251. begin
  32252. pTDefRegMap(@Self)^.clr := $40000000;
  32253. end;
  32254. procedure TSPI3_SPI1ACON.setFRMSYNC(thebits : TBits_1); inline;
  32255. begin
  32256. if thebits = 0 then
  32257. pTDefRegMap(@Self)^.clr := $40000000
  32258. else
  32259. pTDefRegMap(@Self)^.&set := $40000000;
  32260. end;
  32261. function TSPI3_SPI1ACON.getFRMSYNC : TBits_1; inline;
  32262. begin
  32263. getFRMSYNC := (pTDefRegMap(@Self)^.val and $40000000) shr 30;
  32264. end;
  32265. procedure TSPI3_SPI1ACON.setFRMEN; inline;
  32266. begin
  32267. pTDefRegMap(@Self)^.&set := $80000000;
  32268. end;
  32269. procedure TSPI3_SPI1ACON.clearFRMEN; inline;
  32270. begin
  32271. pTDefRegMap(@Self)^.clr := $80000000;
  32272. end;
  32273. procedure TSPI3_SPI1ACON.setFRMEN(thebits : TBits_1); inline;
  32274. begin
  32275. if thebits = 0 then
  32276. pTDefRegMap(@Self)^.clr := $80000000
  32277. else
  32278. pTDefRegMap(@Self)^.&set := $80000000;
  32279. end;
  32280. function TSPI3_SPI1ACON.getFRMEN : TBits_1; inline;
  32281. begin
  32282. getFRMEN := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  32283. end;
  32284. procedure TSPI3_SPI1ACON.setw(thebits : TBits_32); inline;
  32285. begin
  32286. pTDefRegMap(@Self)^.val := thebits;
  32287. end;
  32288. function TSPI3_SPI1ACON.getw : TBits_32; inline;
  32289. begin
  32290. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  32291. end;
  32292. procedure TSPI3_SPI3CON.setSRXISEL(thebits : TBits_2); inline;
  32293. begin
  32294. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  32295. end;
  32296. function TSPI3_SPI3CON.getSRXISEL : TBits_2; inline;
  32297. begin
  32298. getSRXISEL := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  32299. end;
  32300. procedure TSPI3_SPI3CON.setSTXISEL(thebits : TBits_2); inline;
  32301. begin
  32302. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF3 or ( thebits shl 2 );
  32303. end;
  32304. function TSPI3_SPI3CON.getSTXISEL : TBits_2; inline;
  32305. begin
  32306. getSTXISEL := (pTDefRegMap(@Self)^.val and $0000000C) shr 2;
  32307. end;
  32308. procedure TSPI3_SPI3CON.setMSTEN; inline;
  32309. begin
  32310. pTDefRegMap(@Self)^.&set := $00000020;
  32311. end;
  32312. procedure TSPI3_SPI3CON.clearMSTEN; inline;
  32313. begin
  32314. pTDefRegMap(@Self)^.clr := $00000020;
  32315. end;
  32316. procedure TSPI3_SPI3CON.setMSTEN(thebits : TBits_1); inline;
  32317. begin
  32318. if thebits = 0 then
  32319. pTDefRegMap(@Self)^.clr := $00000020
  32320. else
  32321. pTDefRegMap(@Self)^.&set := $00000020;
  32322. end;
  32323. function TSPI3_SPI3CON.getMSTEN : TBits_1; inline;
  32324. begin
  32325. getMSTEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  32326. end;
  32327. procedure TSPI3_SPI3CON.setCKP; inline;
  32328. begin
  32329. pTDefRegMap(@Self)^.&set := $00000040;
  32330. end;
  32331. procedure TSPI3_SPI3CON.clearCKP; inline;
  32332. begin
  32333. pTDefRegMap(@Self)^.clr := $00000040;
  32334. end;
  32335. procedure TSPI3_SPI3CON.setCKP(thebits : TBits_1); inline;
  32336. begin
  32337. if thebits = 0 then
  32338. pTDefRegMap(@Self)^.clr := $00000040
  32339. else
  32340. pTDefRegMap(@Self)^.&set := $00000040;
  32341. end;
  32342. function TSPI3_SPI3CON.getCKP : TBits_1; inline;
  32343. begin
  32344. getCKP := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  32345. end;
  32346. procedure TSPI3_SPI3CON.setSSEN; inline;
  32347. begin
  32348. pTDefRegMap(@Self)^.&set := $00000080;
  32349. end;
  32350. procedure TSPI3_SPI3CON.clearSSEN; inline;
  32351. begin
  32352. pTDefRegMap(@Self)^.clr := $00000080;
  32353. end;
  32354. procedure TSPI3_SPI3CON.setSSEN(thebits : TBits_1); inline;
  32355. begin
  32356. if thebits = 0 then
  32357. pTDefRegMap(@Self)^.clr := $00000080
  32358. else
  32359. pTDefRegMap(@Self)^.&set := $00000080;
  32360. end;
  32361. function TSPI3_SPI3CON.getSSEN : TBits_1; inline;
  32362. begin
  32363. getSSEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  32364. end;
  32365. procedure TSPI3_SPI3CON.setCKE; inline;
  32366. begin
  32367. pTDefRegMap(@Self)^.&set := $00000100;
  32368. end;
  32369. procedure TSPI3_SPI3CON.clearCKE; inline;
  32370. begin
  32371. pTDefRegMap(@Self)^.clr := $00000100;
  32372. end;
  32373. procedure TSPI3_SPI3CON.setCKE(thebits : TBits_1); inline;
  32374. begin
  32375. if thebits = 0 then
  32376. pTDefRegMap(@Self)^.clr := $00000100
  32377. else
  32378. pTDefRegMap(@Self)^.&set := $00000100;
  32379. end;
  32380. function TSPI3_SPI3CON.getCKE : TBits_1; inline;
  32381. begin
  32382. getCKE := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  32383. end;
  32384. procedure TSPI3_SPI3CON.setSMP; inline;
  32385. begin
  32386. pTDefRegMap(@Self)^.&set := $00000200;
  32387. end;
  32388. procedure TSPI3_SPI3CON.clearSMP; inline;
  32389. begin
  32390. pTDefRegMap(@Self)^.clr := $00000200;
  32391. end;
  32392. procedure TSPI3_SPI3CON.setSMP(thebits : TBits_1); inline;
  32393. begin
  32394. if thebits = 0 then
  32395. pTDefRegMap(@Self)^.clr := $00000200
  32396. else
  32397. pTDefRegMap(@Self)^.&set := $00000200;
  32398. end;
  32399. function TSPI3_SPI3CON.getSMP : TBits_1; inline;
  32400. begin
  32401. getSMP := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  32402. end;
  32403. procedure TSPI3_SPI3CON.setMODE16; inline;
  32404. begin
  32405. pTDefRegMap(@Self)^.&set := $00000400;
  32406. end;
  32407. procedure TSPI3_SPI3CON.clearMODE16; inline;
  32408. begin
  32409. pTDefRegMap(@Self)^.clr := $00000400;
  32410. end;
  32411. procedure TSPI3_SPI3CON.setMODE16(thebits : TBits_1); inline;
  32412. begin
  32413. if thebits = 0 then
  32414. pTDefRegMap(@Self)^.clr := $00000400
  32415. else
  32416. pTDefRegMap(@Self)^.&set := $00000400;
  32417. end;
  32418. function TSPI3_SPI3CON.getMODE16 : TBits_1; inline;
  32419. begin
  32420. getMODE16 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  32421. end;
  32422. procedure TSPI3_SPI3CON.setMODE32; inline;
  32423. begin
  32424. pTDefRegMap(@Self)^.&set := $00000800;
  32425. end;
  32426. procedure TSPI3_SPI3CON.clearMODE32; inline;
  32427. begin
  32428. pTDefRegMap(@Self)^.clr := $00000800;
  32429. end;
  32430. procedure TSPI3_SPI3CON.setMODE32(thebits : TBits_1); inline;
  32431. begin
  32432. if thebits = 0 then
  32433. pTDefRegMap(@Self)^.clr := $00000800
  32434. else
  32435. pTDefRegMap(@Self)^.&set := $00000800;
  32436. end;
  32437. function TSPI3_SPI3CON.getMODE32 : TBits_1; inline;
  32438. begin
  32439. getMODE32 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  32440. end;
  32441. procedure TSPI3_SPI3CON.setDISSDO; inline;
  32442. begin
  32443. pTDefRegMap(@Self)^.&set := $00001000;
  32444. end;
  32445. procedure TSPI3_SPI3CON.clearDISSDO; inline;
  32446. begin
  32447. pTDefRegMap(@Self)^.clr := $00001000;
  32448. end;
  32449. procedure TSPI3_SPI3CON.setDISSDO(thebits : TBits_1); inline;
  32450. begin
  32451. if thebits = 0 then
  32452. pTDefRegMap(@Self)^.clr := $00001000
  32453. else
  32454. pTDefRegMap(@Self)^.&set := $00001000;
  32455. end;
  32456. function TSPI3_SPI3CON.getDISSDO : TBits_1; inline;
  32457. begin
  32458. getDISSDO := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  32459. end;
  32460. procedure TSPI3_SPI3CON.setSIDL; inline;
  32461. begin
  32462. pTDefRegMap(@Self)^.&set := $00002000;
  32463. end;
  32464. procedure TSPI3_SPI3CON.clearSIDL; inline;
  32465. begin
  32466. pTDefRegMap(@Self)^.clr := $00002000;
  32467. end;
  32468. procedure TSPI3_SPI3CON.setSIDL(thebits : TBits_1); inline;
  32469. begin
  32470. if thebits = 0 then
  32471. pTDefRegMap(@Self)^.clr := $00002000
  32472. else
  32473. pTDefRegMap(@Self)^.&set := $00002000;
  32474. end;
  32475. function TSPI3_SPI3CON.getSIDL : TBits_1; inline;
  32476. begin
  32477. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  32478. end;
  32479. procedure TSPI3_SPI3CON.setON; inline;
  32480. begin
  32481. pTDefRegMap(@Self)^.&set := $00008000;
  32482. end;
  32483. procedure TSPI3_SPI3CON.clearON; inline;
  32484. begin
  32485. pTDefRegMap(@Self)^.clr := $00008000;
  32486. end;
  32487. procedure TSPI3_SPI3CON.setON(thebits : TBits_1); inline;
  32488. begin
  32489. if thebits = 0 then
  32490. pTDefRegMap(@Self)^.clr := $00008000
  32491. else
  32492. pTDefRegMap(@Self)^.&set := $00008000;
  32493. end;
  32494. function TSPI3_SPI3CON.getON : TBits_1; inline;
  32495. begin
  32496. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  32497. end;
  32498. procedure TSPI3_SPI3CON.setENHBUF; inline;
  32499. begin
  32500. pTDefRegMap(@Self)^.&set := $00010000;
  32501. end;
  32502. procedure TSPI3_SPI3CON.clearENHBUF; inline;
  32503. begin
  32504. pTDefRegMap(@Self)^.clr := $00010000;
  32505. end;
  32506. procedure TSPI3_SPI3CON.setENHBUF(thebits : TBits_1); inline;
  32507. begin
  32508. if thebits = 0 then
  32509. pTDefRegMap(@Self)^.clr := $00010000
  32510. else
  32511. pTDefRegMap(@Self)^.&set := $00010000;
  32512. end;
  32513. function TSPI3_SPI3CON.getENHBUF : TBits_1; inline;
  32514. begin
  32515. getENHBUF := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  32516. end;
  32517. procedure TSPI3_SPI3CON.setSPIFE; inline;
  32518. begin
  32519. pTDefRegMap(@Self)^.&set := $00020000;
  32520. end;
  32521. procedure TSPI3_SPI3CON.clearSPIFE; inline;
  32522. begin
  32523. pTDefRegMap(@Self)^.clr := $00020000;
  32524. end;
  32525. procedure TSPI3_SPI3CON.setSPIFE(thebits : TBits_1); inline;
  32526. begin
  32527. if thebits = 0 then
  32528. pTDefRegMap(@Self)^.clr := $00020000
  32529. else
  32530. pTDefRegMap(@Self)^.&set := $00020000;
  32531. end;
  32532. function TSPI3_SPI3CON.getSPIFE : TBits_1; inline;
  32533. begin
  32534. getSPIFE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  32535. end;
  32536. procedure TSPI3_SPI3CON.setFRMCNT(thebits : TBits_3); inline;
  32537. begin
  32538. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $F8FFFFFF or ( thebits shl 24 );
  32539. end;
  32540. function TSPI3_SPI3CON.getFRMCNT : TBits_3; inline;
  32541. begin
  32542. getFRMCNT := (pTDefRegMap(@Self)^.val and $07000000) shr 24;
  32543. end;
  32544. procedure TSPI3_SPI3CON.setFRMSYPW; inline;
  32545. begin
  32546. pTDefRegMap(@Self)^.&set := $08000000;
  32547. end;
  32548. procedure TSPI3_SPI3CON.clearFRMSYPW; inline;
  32549. begin
  32550. pTDefRegMap(@Self)^.clr := $08000000;
  32551. end;
  32552. procedure TSPI3_SPI3CON.setFRMSYPW(thebits : TBits_1); inline;
  32553. begin
  32554. if thebits = 0 then
  32555. pTDefRegMap(@Self)^.clr := $08000000
  32556. else
  32557. pTDefRegMap(@Self)^.&set := $08000000;
  32558. end;
  32559. function TSPI3_SPI3CON.getFRMSYPW : TBits_1; inline;
  32560. begin
  32561. getFRMSYPW := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  32562. end;
  32563. procedure TSPI3_SPI3CON.setMSSEN; inline;
  32564. begin
  32565. pTDefRegMap(@Self)^.&set := $10000000;
  32566. end;
  32567. procedure TSPI3_SPI3CON.clearMSSEN; inline;
  32568. begin
  32569. pTDefRegMap(@Self)^.clr := $10000000;
  32570. end;
  32571. procedure TSPI3_SPI3CON.setMSSEN(thebits : TBits_1); inline;
  32572. begin
  32573. if thebits = 0 then
  32574. pTDefRegMap(@Self)^.clr := $10000000
  32575. else
  32576. pTDefRegMap(@Self)^.&set := $10000000;
  32577. end;
  32578. function TSPI3_SPI3CON.getMSSEN : TBits_1; inline;
  32579. begin
  32580. getMSSEN := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  32581. end;
  32582. procedure TSPI3_SPI3CON.setFRMPOL; inline;
  32583. begin
  32584. pTDefRegMap(@Self)^.&set := $20000000;
  32585. end;
  32586. procedure TSPI3_SPI3CON.clearFRMPOL; inline;
  32587. begin
  32588. pTDefRegMap(@Self)^.clr := $20000000;
  32589. end;
  32590. procedure TSPI3_SPI3CON.setFRMPOL(thebits : TBits_1); inline;
  32591. begin
  32592. if thebits = 0 then
  32593. pTDefRegMap(@Self)^.clr := $20000000
  32594. else
  32595. pTDefRegMap(@Self)^.&set := $20000000;
  32596. end;
  32597. function TSPI3_SPI3CON.getFRMPOL : TBits_1; inline;
  32598. begin
  32599. getFRMPOL := (pTDefRegMap(@Self)^.val and $20000000) shr 29;
  32600. end;
  32601. procedure TSPI3_SPI3CON.setFRMSYNC; inline;
  32602. begin
  32603. pTDefRegMap(@Self)^.&set := $40000000;
  32604. end;
  32605. procedure TSPI3_SPI3CON.clearFRMSYNC; inline;
  32606. begin
  32607. pTDefRegMap(@Self)^.clr := $40000000;
  32608. end;
  32609. procedure TSPI3_SPI3CON.setFRMSYNC(thebits : TBits_1); inline;
  32610. begin
  32611. if thebits = 0 then
  32612. pTDefRegMap(@Self)^.clr := $40000000
  32613. else
  32614. pTDefRegMap(@Self)^.&set := $40000000;
  32615. end;
  32616. function TSPI3_SPI3CON.getFRMSYNC : TBits_1; inline;
  32617. begin
  32618. getFRMSYNC := (pTDefRegMap(@Self)^.val and $40000000) shr 30;
  32619. end;
  32620. procedure TSPI3_SPI3CON.setFRMEN; inline;
  32621. begin
  32622. pTDefRegMap(@Self)^.&set := $80000000;
  32623. end;
  32624. procedure TSPI3_SPI3CON.clearFRMEN; inline;
  32625. begin
  32626. pTDefRegMap(@Self)^.clr := $80000000;
  32627. end;
  32628. procedure TSPI3_SPI3CON.setFRMEN(thebits : TBits_1); inline;
  32629. begin
  32630. if thebits = 0 then
  32631. pTDefRegMap(@Self)^.clr := $80000000
  32632. else
  32633. pTDefRegMap(@Self)^.&set := $80000000;
  32634. end;
  32635. function TSPI3_SPI3CON.getFRMEN : TBits_1; inline;
  32636. begin
  32637. getFRMEN := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  32638. end;
  32639. procedure TSPI3_SPI3CON.setw(thebits : TBits_32); inline;
  32640. begin
  32641. pTDefRegMap(@Self)^.val := thebits;
  32642. end;
  32643. function TSPI3_SPI3CON.getw : TBits_32; inline;
  32644. begin
  32645. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  32646. end;
  32647. procedure TSPI3_SPI1ASTAT.setSPIRBF; inline;
  32648. begin
  32649. pTDefRegMap(@Self)^.&set := $00000001;
  32650. end;
  32651. procedure TSPI3_SPI1ASTAT.clearSPIRBF; inline;
  32652. begin
  32653. pTDefRegMap(@Self)^.clr := $00000001;
  32654. end;
  32655. procedure TSPI3_SPI1ASTAT.setSPIRBF(thebits : TBits_1); inline;
  32656. begin
  32657. if thebits = 0 then
  32658. pTDefRegMap(@Self)^.clr := $00000001
  32659. else
  32660. pTDefRegMap(@Self)^.&set := $00000001;
  32661. end;
  32662. function TSPI3_SPI1ASTAT.getSPIRBF : TBits_1; inline;
  32663. begin
  32664. getSPIRBF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  32665. end;
  32666. procedure TSPI3_SPI1ASTAT.setSPITBF; inline;
  32667. begin
  32668. pTDefRegMap(@Self)^.&set := $00000002;
  32669. end;
  32670. procedure TSPI3_SPI1ASTAT.clearSPITBF; inline;
  32671. begin
  32672. pTDefRegMap(@Self)^.clr := $00000002;
  32673. end;
  32674. procedure TSPI3_SPI1ASTAT.setSPITBF(thebits : TBits_1); inline;
  32675. begin
  32676. if thebits = 0 then
  32677. pTDefRegMap(@Self)^.clr := $00000002
  32678. else
  32679. pTDefRegMap(@Self)^.&set := $00000002;
  32680. end;
  32681. function TSPI3_SPI1ASTAT.getSPITBF : TBits_1; inline;
  32682. begin
  32683. getSPITBF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  32684. end;
  32685. procedure TSPI3_SPI1ASTAT.setSPITBE; inline;
  32686. begin
  32687. pTDefRegMap(@Self)^.&set := $00000008;
  32688. end;
  32689. procedure TSPI3_SPI1ASTAT.clearSPITBE; inline;
  32690. begin
  32691. pTDefRegMap(@Self)^.clr := $00000008;
  32692. end;
  32693. procedure TSPI3_SPI1ASTAT.setSPITBE(thebits : TBits_1); inline;
  32694. begin
  32695. if thebits = 0 then
  32696. pTDefRegMap(@Self)^.clr := $00000008
  32697. else
  32698. pTDefRegMap(@Self)^.&set := $00000008;
  32699. end;
  32700. function TSPI3_SPI1ASTAT.getSPITBE : TBits_1; inline;
  32701. begin
  32702. getSPITBE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  32703. end;
  32704. procedure TSPI3_SPI1ASTAT.setSPIRBE; inline;
  32705. begin
  32706. pTDefRegMap(@Self)^.&set := $00000020;
  32707. end;
  32708. procedure TSPI3_SPI1ASTAT.clearSPIRBE; inline;
  32709. begin
  32710. pTDefRegMap(@Self)^.clr := $00000020;
  32711. end;
  32712. procedure TSPI3_SPI1ASTAT.setSPIRBE(thebits : TBits_1); inline;
  32713. begin
  32714. if thebits = 0 then
  32715. pTDefRegMap(@Self)^.clr := $00000020
  32716. else
  32717. pTDefRegMap(@Self)^.&set := $00000020;
  32718. end;
  32719. function TSPI3_SPI1ASTAT.getSPIRBE : TBits_1; inline;
  32720. begin
  32721. getSPIRBE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  32722. end;
  32723. procedure TSPI3_SPI1ASTAT.setSPIROV; inline;
  32724. begin
  32725. pTDefRegMap(@Self)^.&set := $00000040;
  32726. end;
  32727. procedure TSPI3_SPI1ASTAT.clearSPIROV; inline;
  32728. begin
  32729. pTDefRegMap(@Self)^.clr := $00000040;
  32730. end;
  32731. procedure TSPI3_SPI1ASTAT.setSPIROV(thebits : TBits_1); inline;
  32732. begin
  32733. if thebits = 0 then
  32734. pTDefRegMap(@Self)^.clr := $00000040
  32735. else
  32736. pTDefRegMap(@Self)^.&set := $00000040;
  32737. end;
  32738. function TSPI3_SPI1ASTAT.getSPIROV : TBits_1; inline;
  32739. begin
  32740. getSPIROV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  32741. end;
  32742. procedure TSPI3_SPI1ASTAT.setSRMT; inline;
  32743. begin
  32744. pTDefRegMap(@Self)^.&set := $00000080;
  32745. end;
  32746. procedure TSPI3_SPI1ASTAT.clearSRMT; inline;
  32747. begin
  32748. pTDefRegMap(@Self)^.clr := $00000080;
  32749. end;
  32750. procedure TSPI3_SPI1ASTAT.setSRMT(thebits : TBits_1); inline;
  32751. begin
  32752. if thebits = 0 then
  32753. pTDefRegMap(@Self)^.clr := $00000080
  32754. else
  32755. pTDefRegMap(@Self)^.&set := $00000080;
  32756. end;
  32757. function TSPI3_SPI1ASTAT.getSRMT : TBits_1; inline;
  32758. begin
  32759. getSRMT := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  32760. end;
  32761. procedure TSPI3_SPI1ASTAT.setSPITUR; inline;
  32762. begin
  32763. pTDefRegMap(@Self)^.&set := $00000100;
  32764. end;
  32765. procedure TSPI3_SPI1ASTAT.clearSPITUR; inline;
  32766. begin
  32767. pTDefRegMap(@Self)^.clr := $00000100;
  32768. end;
  32769. procedure TSPI3_SPI1ASTAT.setSPITUR(thebits : TBits_1); inline;
  32770. begin
  32771. if thebits = 0 then
  32772. pTDefRegMap(@Self)^.clr := $00000100
  32773. else
  32774. pTDefRegMap(@Self)^.&set := $00000100;
  32775. end;
  32776. function TSPI3_SPI1ASTAT.getSPITUR : TBits_1; inline;
  32777. begin
  32778. getSPITUR := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  32779. end;
  32780. procedure TSPI3_SPI1ASTAT.setSPIBUSY; inline;
  32781. begin
  32782. pTDefRegMap(@Self)^.&set := $00000800;
  32783. end;
  32784. procedure TSPI3_SPI1ASTAT.clearSPIBUSY; inline;
  32785. begin
  32786. pTDefRegMap(@Self)^.clr := $00000800;
  32787. end;
  32788. procedure TSPI3_SPI1ASTAT.setSPIBUSY(thebits : TBits_1); inline;
  32789. begin
  32790. if thebits = 0 then
  32791. pTDefRegMap(@Self)^.clr := $00000800
  32792. else
  32793. pTDefRegMap(@Self)^.&set := $00000800;
  32794. end;
  32795. function TSPI3_SPI1ASTAT.getSPIBUSY : TBits_1; inline;
  32796. begin
  32797. getSPIBUSY := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  32798. end;
  32799. procedure TSPI3_SPI1ASTAT.setTXBUFELM(thebits : TBits_5); inline;
  32800. begin
  32801. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  32802. end;
  32803. function TSPI3_SPI1ASTAT.getTXBUFELM : TBits_5; inline;
  32804. begin
  32805. getTXBUFELM := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  32806. end;
  32807. procedure TSPI3_SPI1ASTAT.setRXBUFELM(thebits : TBits_5); inline;
  32808. begin
  32809. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E0FFFFFF or ( thebits shl 24 );
  32810. end;
  32811. function TSPI3_SPI1ASTAT.getRXBUFELM : TBits_5; inline;
  32812. begin
  32813. getRXBUFELM := (pTDefRegMap(@Self)^.val and $1F000000) shr 24;
  32814. end;
  32815. procedure TSPI3_SPI1ASTAT.setw(thebits : TBits_32); inline;
  32816. begin
  32817. pTDefRegMap(@Self)^.val := thebits;
  32818. end;
  32819. function TSPI3_SPI1ASTAT.getw : TBits_32; inline;
  32820. begin
  32821. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  32822. end;
  32823. procedure TSPI3_SPI3STAT.setSPIRBF; inline;
  32824. begin
  32825. pTDefRegMap(@Self)^.&set := $00000001;
  32826. end;
  32827. procedure TSPI3_SPI3STAT.clearSPIRBF; inline;
  32828. begin
  32829. pTDefRegMap(@Self)^.clr := $00000001;
  32830. end;
  32831. procedure TSPI3_SPI3STAT.setSPIRBF(thebits : TBits_1); inline;
  32832. begin
  32833. if thebits = 0 then
  32834. pTDefRegMap(@Self)^.clr := $00000001
  32835. else
  32836. pTDefRegMap(@Self)^.&set := $00000001;
  32837. end;
  32838. function TSPI3_SPI3STAT.getSPIRBF : TBits_1; inline;
  32839. begin
  32840. getSPIRBF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  32841. end;
  32842. procedure TSPI3_SPI3STAT.setSPITBF; inline;
  32843. begin
  32844. pTDefRegMap(@Self)^.&set := $00000002;
  32845. end;
  32846. procedure TSPI3_SPI3STAT.clearSPITBF; inline;
  32847. begin
  32848. pTDefRegMap(@Self)^.clr := $00000002;
  32849. end;
  32850. procedure TSPI3_SPI3STAT.setSPITBF(thebits : TBits_1); inline;
  32851. begin
  32852. if thebits = 0 then
  32853. pTDefRegMap(@Self)^.clr := $00000002
  32854. else
  32855. pTDefRegMap(@Self)^.&set := $00000002;
  32856. end;
  32857. function TSPI3_SPI3STAT.getSPITBF : TBits_1; inline;
  32858. begin
  32859. getSPITBF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  32860. end;
  32861. procedure TSPI3_SPI3STAT.setSPITBE; inline;
  32862. begin
  32863. pTDefRegMap(@Self)^.&set := $00000008;
  32864. end;
  32865. procedure TSPI3_SPI3STAT.clearSPITBE; inline;
  32866. begin
  32867. pTDefRegMap(@Self)^.clr := $00000008;
  32868. end;
  32869. procedure TSPI3_SPI3STAT.setSPITBE(thebits : TBits_1); inline;
  32870. begin
  32871. if thebits = 0 then
  32872. pTDefRegMap(@Self)^.clr := $00000008
  32873. else
  32874. pTDefRegMap(@Self)^.&set := $00000008;
  32875. end;
  32876. function TSPI3_SPI3STAT.getSPITBE : TBits_1; inline;
  32877. begin
  32878. getSPITBE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  32879. end;
  32880. procedure TSPI3_SPI3STAT.setSPIRBE; inline;
  32881. begin
  32882. pTDefRegMap(@Self)^.&set := $00000020;
  32883. end;
  32884. procedure TSPI3_SPI3STAT.clearSPIRBE; inline;
  32885. begin
  32886. pTDefRegMap(@Self)^.clr := $00000020;
  32887. end;
  32888. procedure TSPI3_SPI3STAT.setSPIRBE(thebits : TBits_1); inline;
  32889. begin
  32890. if thebits = 0 then
  32891. pTDefRegMap(@Self)^.clr := $00000020
  32892. else
  32893. pTDefRegMap(@Self)^.&set := $00000020;
  32894. end;
  32895. function TSPI3_SPI3STAT.getSPIRBE : TBits_1; inline;
  32896. begin
  32897. getSPIRBE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  32898. end;
  32899. procedure TSPI3_SPI3STAT.setSPIROV; inline;
  32900. begin
  32901. pTDefRegMap(@Self)^.&set := $00000040;
  32902. end;
  32903. procedure TSPI3_SPI3STAT.clearSPIROV; inline;
  32904. begin
  32905. pTDefRegMap(@Self)^.clr := $00000040;
  32906. end;
  32907. procedure TSPI3_SPI3STAT.setSPIROV(thebits : TBits_1); inline;
  32908. begin
  32909. if thebits = 0 then
  32910. pTDefRegMap(@Self)^.clr := $00000040
  32911. else
  32912. pTDefRegMap(@Self)^.&set := $00000040;
  32913. end;
  32914. function TSPI3_SPI3STAT.getSPIROV : TBits_1; inline;
  32915. begin
  32916. getSPIROV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  32917. end;
  32918. procedure TSPI3_SPI3STAT.setSRMT; inline;
  32919. begin
  32920. pTDefRegMap(@Self)^.&set := $00000080;
  32921. end;
  32922. procedure TSPI3_SPI3STAT.clearSRMT; inline;
  32923. begin
  32924. pTDefRegMap(@Self)^.clr := $00000080;
  32925. end;
  32926. procedure TSPI3_SPI3STAT.setSRMT(thebits : TBits_1); inline;
  32927. begin
  32928. if thebits = 0 then
  32929. pTDefRegMap(@Self)^.clr := $00000080
  32930. else
  32931. pTDefRegMap(@Self)^.&set := $00000080;
  32932. end;
  32933. function TSPI3_SPI3STAT.getSRMT : TBits_1; inline;
  32934. begin
  32935. getSRMT := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  32936. end;
  32937. procedure TSPI3_SPI3STAT.setSPITUR; inline;
  32938. begin
  32939. pTDefRegMap(@Self)^.&set := $00000100;
  32940. end;
  32941. procedure TSPI3_SPI3STAT.clearSPITUR; inline;
  32942. begin
  32943. pTDefRegMap(@Self)^.clr := $00000100;
  32944. end;
  32945. procedure TSPI3_SPI3STAT.setSPITUR(thebits : TBits_1); inline;
  32946. begin
  32947. if thebits = 0 then
  32948. pTDefRegMap(@Self)^.clr := $00000100
  32949. else
  32950. pTDefRegMap(@Self)^.&set := $00000100;
  32951. end;
  32952. function TSPI3_SPI3STAT.getSPITUR : TBits_1; inline;
  32953. begin
  32954. getSPITUR := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  32955. end;
  32956. procedure TSPI3_SPI3STAT.setSPIBUSY; inline;
  32957. begin
  32958. pTDefRegMap(@Self)^.&set := $00000800;
  32959. end;
  32960. procedure TSPI3_SPI3STAT.clearSPIBUSY; inline;
  32961. begin
  32962. pTDefRegMap(@Self)^.clr := $00000800;
  32963. end;
  32964. procedure TSPI3_SPI3STAT.setSPIBUSY(thebits : TBits_1); inline;
  32965. begin
  32966. if thebits = 0 then
  32967. pTDefRegMap(@Self)^.clr := $00000800
  32968. else
  32969. pTDefRegMap(@Self)^.&set := $00000800;
  32970. end;
  32971. function TSPI3_SPI3STAT.getSPIBUSY : TBits_1; inline;
  32972. begin
  32973. getSPIBUSY := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  32974. end;
  32975. procedure TSPI3_SPI3STAT.setTXBUFELM(thebits : TBits_5); inline;
  32976. begin
  32977. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  32978. end;
  32979. function TSPI3_SPI3STAT.getTXBUFELM : TBits_5; inline;
  32980. begin
  32981. getTXBUFELM := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  32982. end;
  32983. procedure TSPI3_SPI3STAT.setRXBUFELM(thebits : TBits_5); inline;
  32984. begin
  32985. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E0FFFFFF or ( thebits shl 24 );
  32986. end;
  32987. function TSPI3_SPI3STAT.getRXBUFELM : TBits_5; inline;
  32988. begin
  32989. getRXBUFELM := (pTDefRegMap(@Self)^.val and $1F000000) shr 24;
  32990. end;
  32991. procedure TSPI3_SPI3STAT.setw(thebits : TBits_32); inline;
  32992. begin
  32993. pTDefRegMap(@Self)^.val := thebits;
  32994. end;
  32995. function TSPI3_SPI3STAT.getw : TBits_32; inline;
  32996. begin
  32997. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  32998. end;
  32999. procedure TSPI2A_SPI2ACON.setSRXISEL(thebits : TBits_2); inline;
  33000. begin
  33001. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  33002. end;
  33003. function TSPI2A_SPI2ACON.getSRXISEL : TBits_2; inline;
  33004. begin
  33005. getSRXISEL := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  33006. end;
  33007. procedure TSPI2A_SPI2ACON.setSTXISEL(thebits : TBits_2); inline;
  33008. begin
  33009. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF3 or ( thebits shl 2 );
  33010. end;
  33011. function TSPI2A_SPI2ACON.getSTXISEL : TBits_2; inline;
  33012. begin
  33013. getSTXISEL := (pTDefRegMap(@Self)^.val and $0000000C) shr 2;
  33014. end;
  33015. procedure TSPI2A_SPI2ACON.setMSTEN; inline;
  33016. begin
  33017. pTDefRegMap(@Self)^.&set := $00000020;
  33018. end;
  33019. procedure TSPI2A_SPI2ACON.clearMSTEN; inline;
  33020. begin
  33021. pTDefRegMap(@Self)^.clr := $00000020;
  33022. end;
  33023. procedure TSPI2A_SPI2ACON.setMSTEN(thebits : TBits_1); inline;
  33024. begin
  33025. if thebits = 0 then
  33026. pTDefRegMap(@Self)^.clr := $00000020
  33027. else
  33028. pTDefRegMap(@Self)^.&set := $00000020;
  33029. end;
  33030. function TSPI2A_SPI2ACON.getMSTEN : TBits_1; inline;
  33031. begin
  33032. getMSTEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  33033. end;
  33034. procedure TSPI2A_SPI2ACON.setCKP; inline;
  33035. begin
  33036. pTDefRegMap(@Self)^.&set := $00000040;
  33037. end;
  33038. procedure TSPI2A_SPI2ACON.clearCKP; inline;
  33039. begin
  33040. pTDefRegMap(@Self)^.clr := $00000040;
  33041. end;
  33042. procedure TSPI2A_SPI2ACON.setCKP(thebits : TBits_1); inline;
  33043. begin
  33044. if thebits = 0 then
  33045. pTDefRegMap(@Self)^.clr := $00000040
  33046. else
  33047. pTDefRegMap(@Self)^.&set := $00000040;
  33048. end;
  33049. function TSPI2A_SPI2ACON.getCKP : TBits_1; inline;
  33050. begin
  33051. getCKP := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  33052. end;
  33053. procedure TSPI2A_SPI2ACON.setSSEN; inline;
  33054. begin
  33055. pTDefRegMap(@Self)^.&set := $00000080;
  33056. end;
  33057. procedure TSPI2A_SPI2ACON.clearSSEN; inline;
  33058. begin
  33059. pTDefRegMap(@Self)^.clr := $00000080;
  33060. end;
  33061. procedure TSPI2A_SPI2ACON.setSSEN(thebits : TBits_1); inline;
  33062. begin
  33063. if thebits = 0 then
  33064. pTDefRegMap(@Self)^.clr := $00000080
  33065. else
  33066. pTDefRegMap(@Self)^.&set := $00000080;
  33067. end;
  33068. function TSPI2A_SPI2ACON.getSSEN : TBits_1; inline;
  33069. begin
  33070. getSSEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  33071. end;
  33072. procedure TSPI2A_SPI2ACON.setCKE; inline;
  33073. begin
  33074. pTDefRegMap(@Self)^.&set := $00000100;
  33075. end;
  33076. procedure TSPI2A_SPI2ACON.clearCKE; inline;
  33077. begin
  33078. pTDefRegMap(@Self)^.clr := $00000100;
  33079. end;
  33080. procedure TSPI2A_SPI2ACON.setCKE(thebits : TBits_1); inline;
  33081. begin
  33082. if thebits = 0 then
  33083. pTDefRegMap(@Self)^.clr := $00000100
  33084. else
  33085. pTDefRegMap(@Self)^.&set := $00000100;
  33086. end;
  33087. function TSPI2A_SPI2ACON.getCKE : TBits_1; inline;
  33088. begin
  33089. getCKE := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  33090. end;
  33091. procedure TSPI2A_SPI2ACON.setSMP; inline;
  33092. begin
  33093. pTDefRegMap(@Self)^.&set := $00000200;
  33094. end;
  33095. procedure TSPI2A_SPI2ACON.clearSMP; inline;
  33096. begin
  33097. pTDefRegMap(@Self)^.clr := $00000200;
  33098. end;
  33099. procedure TSPI2A_SPI2ACON.setSMP(thebits : TBits_1); inline;
  33100. begin
  33101. if thebits = 0 then
  33102. pTDefRegMap(@Self)^.clr := $00000200
  33103. else
  33104. pTDefRegMap(@Self)^.&set := $00000200;
  33105. end;
  33106. function TSPI2A_SPI2ACON.getSMP : TBits_1; inline;
  33107. begin
  33108. getSMP := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  33109. end;
  33110. procedure TSPI2A_SPI2ACON.setMODE16; inline;
  33111. begin
  33112. pTDefRegMap(@Self)^.&set := $00000400;
  33113. end;
  33114. procedure TSPI2A_SPI2ACON.clearMODE16; inline;
  33115. begin
  33116. pTDefRegMap(@Self)^.clr := $00000400;
  33117. end;
  33118. procedure TSPI2A_SPI2ACON.setMODE16(thebits : TBits_1); inline;
  33119. begin
  33120. if thebits = 0 then
  33121. pTDefRegMap(@Self)^.clr := $00000400
  33122. else
  33123. pTDefRegMap(@Self)^.&set := $00000400;
  33124. end;
  33125. function TSPI2A_SPI2ACON.getMODE16 : TBits_1; inline;
  33126. begin
  33127. getMODE16 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  33128. end;
  33129. procedure TSPI2A_SPI2ACON.setMODE32; inline;
  33130. begin
  33131. pTDefRegMap(@Self)^.&set := $00000800;
  33132. end;
  33133. procedure TSPI2A_SPI2ACON.clearMODE32; inline;
  33134. begin
  33135. pTDefRegMap(@Self)^.clr := $00000800;
  33136. end;
  33137. procedure TSPI2A_SPI2ACON.setMODE32(thebits : TBits_1); inline;
  33138. begin
  33139. if thebits = 0 then
  33140. pTDefRegMap(@Self)^.clr := $00000800
  33141. else
  33142. pTDefRegMap(@Self)^.&set := $00000800;
  33143. end;
  33144. function TSPI2A_SPI2ACON.getMODE32 : TBits_1; inline;
  33145. begin
  33146. getMODE32 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  33147. end;
  33148. procedure TSPI2A_SPI2ACON.setDISSDO; inline;
  33149. begin
  33150. pTDefRegMap(@Self)^.&set := $00001000;
  33151. end;
  33152. procedure TSPI2A_SPI2ACON.clearDISSDO; inline;
  33153. begin
  33154. pTDefRegMap(@Self)^.clr := $00001000;
  33155. end;
  33156. procedure TSPI2A_SPI2ACON.setDISSDO(thebits : TBits_1); inline;
  33157. begin
  33158. if thebits = 0 then
  33159. pTDefRegMap(@Self)^.clr := $00001000
  33160. else
  33161. pTDefRegMap(@Self)^.&set := $00001000;
  33162. end;
  33163. function TSPI2A_SPI2ACON.getDISSDO : TBits_1; inline;
  33164. begin
  33165. getDISSDO := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  33166. end;
  33167. procedure TSPI2A_SPI2ACON.setSIDL; inline;
  33168. begin
  33169. pTDefRegMap(@Self)^.&set := $00002000;
  33170. end;
  33171. procedure TSPI2A_SPI2ACON.clearSIDL; inline;
  33172. begin
  33173. pTDefRegMap(@Self)^.clr := $00002000;
  33174. end;
  33175. procedure TSPI2A_SPI2ACON.setSIDL(thebits : TBits_1); inline;
  33176. begin
  33177. if thebits = 0 then
  33178. pTDefRegMap(@Self)^.clr := $00002000
  33179. else
  33180. pTDefRegMap(@Self)^.&set := $00002000;
  33181. end;
  33182. function TSPI2A_SPI2ACON.getSIDL : TBits_1; inline;
  33183. begin
  33184. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  33185. end;
  33186. procedure TSPI2A_SPI2ACON.setON; inline;
  33187. begin
  33188. pTDefRegMap(@Self)^.&set := $00008000;
  33189. end;
  33190. procedure TSPI2A_SPI2ACON.clearON; inline;
  33191. begin
  33192. pTDefRegMap(@Self)^.clr := $00008000;
  33193. end;
  33194. procedure TSPI2A_SPI2ACON.setON(thebits : TBits_1); inline;
  33195. begin
  33196. if thebits = 0 then
  33197. pTDefRegMap(@Self)^.clr := $00008000
  33198. else
  33199. pTDefRegMap(@Self)^.&set := $00008000;
  33200. end;
  33201. function TSPI2A_SPI2ACON.getON : TBits_1; inline;
  33202. begin
  33203. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  33204. end;
  33205. procedure TSPI2A_SPI2ACON.setENHBUF; inline;
  33206. begin
  33207. pTDefRegMap(@Self)^.&set := $00010000;
  33208. end;
  33209. procedure TSPI2A_SPI2ACON.clearENHBUF; inline;
  33210. begin
  33211. pTDefRegMap(@Self)^.clr := $00010000;
  33212. end;
  33213. procedure TSPI2A_SPI2ACON.setENHBUF(thebits : TBits_1); inline;
  33214. begin
  33215. if thebits = 0 then
  33216. pTDefRegMap(@Self)^.clr := $00010000
  33217. else
  33218. pTDefRegMap(@Self)^.&set := $00010000;
  33219. end;
  33220. function TSPI2A_SPI2ACON.getENHBUF : TBits_1; inline;
  33221. begin
  33222. getENHBUF := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  33223. end;
  33224. procedure TSPI2A_SPI2ACON.setSPIFE; inline;
  33225. begin
  33226. pTDefRegMap(@Self)^.&set := $00020000;
  33227. end;
  33228. procedure TSPI2A_SPI2ACON.clearSPIFE; inline;
  33229. begin
  33230. pTDefRegMap(@Self)^.clr := $00020000;
  33231. end;
  33232. procedure TSPI2A_SPI2ACON.setSPIFE(thebits : TBits_1); inline;
  33233. begin
  33234. if thebits = 0 then
  33235. pTDefRegMap(@Self)^.clr := $00020000
  33236. else
  33237. pTDefRegMap(@Self)^.&set := $00020000;
  33238. end;
  33239. function TSPI2A_SPI2ACON.getSPIFE : TBits_1; inline;
  33240. begin
  33241. getSPIFE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  33242. end;
  33243. procedure TSPI2A_SPI2ACON.setFRMCNT(thebits : TBits_3); inline;
  33244. begin
  33245. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $F8FFFFFF or ( thebits shl 24 );
  33246. end;
  33247. function TSPI2A_SPI2ACON.getFRMCNT : TBits_3; inline;
  33248. begin
  33249. getFRMCNT := (pTDefRegMap(@Self)^.val and $07000000) shr 24;
  33250. end;
  33251. procedure TSPI2A_SPI2ACON.setFRMSYPW; inline;
  33252. begin
  33253. pTDefRegMap(@Self)^.&set := $08000000;
  33254. end;
  33255. procedure TSPI2A_SPI2ACON.clearFRMSYPW; inline;
  33256. begin
  33257. pTDefRegMap(@Self)^.clr := $08000000;
  33258. end;
  33259. procedure TSPI2A_SPI2ACON.setFRMSYPW(thebits : TBits_1); inline;
  33260. begin
  33261. if thebits = 0 then
  33262. pTDefRegMap(@Self)^.clr := $08000000
  33263. else
  33264. pTDefRegMap(@Self)^.&set := $08000000;
  33265. end;
  33266. function TSPI2A_SPI2ACON.getFRMSYPW : TBits_1; inline;
  33267. begin
  33268. getFRMSYPW := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  33269. end;
  33270. procedure TSPI2A_SPI2ACON.setMSSEN; inline;
  33271. begin
  33272. pTDefRegMap(@Self)^.&set := $10000000;
  33273. end;
  33274. procedure TSPI2A_SPI2ACON.clearMSSEN; inline;
  33275. begin
  33276. pTDefRegMap(@Self)^.clr := $10000000;
  33277. end;
  33278. procedure TSPI2A_SPI2ACON.setMSSEN(thebits : TBits_1); inline;
  33279. begin
  33280. if thebits = 0 then
  33281. pTDefRegMap(@Self)^.clr := $10000000
  33282. else
  33283. pTDefRegMap(@Self)^.&set := $10000000;
  33284. end;
  33285. function TSPI2A_SPI2ACON.getMSSEN : TBits_1; inline;
  33286. begin
  33287. getMSSEN := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  33288. end;
  33289. procedure TSPI2A_SPI2ACON.setFRMPOL; inline;
  33290. begin
  33291. pTDefRegMap(@Self)^.&set := $20000000;
  33292. end;
  33293. procedure TSPI2A_SPI2ACON.clearFRMPOL; inline;
  33294. begin
  33295. pTDefRegMap(@Self)^.clr := $20000000;
  33296. end;
  33297. procedure TSPI2A_SPI2ACON.setFRMPOL(thebits : TBits_1); inline;
  33298. begin
  33299. if thebits = 0 then
  33300. pTDefRegMap(@Self)^.clr := $20000000
  33301. else
  33302. pTDefRegMap(@Self)^.&set := $20000000;
  33303. end;
  33304. function TSPI2A_SPI2ACON.getFRMPOL : TBits_1; inline;
  33305. begin
  33306. getFRMPOL := (pTDefRegMap(@Self)^.val and $20000000) shr 29;
  33307. end;
  33308. procedure TSPI2A_SPI2ACON.setFRMSYNC; inline;
  33309. begin
  33310. pTDefRegMap(@Self)^.&set := $40000000;
  33311. end;
  33312. procedure TSPI2A_SPI2ACON.clearFRMSYNC; inline;
  33313. begin
  33314. pTDefRegMap(@Self)^.clr := $40000000;
  33315. end;
  33316. procedure TSPI2A_SPI2ACON.setFRMSYNC(thebits : TBits_1); inline;
  33317. begin
  33318. if thebits = 0 then
  33319. pTDefRegMap(@Self)^.clr := $40000000
  33320. else
  33321. pTDefRegMap(@Self)^.&set := $40000000;
  33322. end;
  33323. function TSPI2A_SPI2ACON.getFRMSYNC : TBits_1; inline;
  33324. begin
  33325. getFRMSYNC := (pTDefRegMap(@Self)^.val and $40000000) shr 30;
  33326. end;
  33327. procedure TSPI2A_SPI2ACON.setFRMEN; inline;
  33328. begin
  33329. pTDefRegMap(@Self)^.&set := $80000000;
  33330. end;
  33331. procedure TSPI2A_SPI2ACON.clearFRMEN; inline;
  33332. begin
  33333. pTDefRegMap(@Self)^.clr := $80000000;
  33334. end;
  33335. procedure TSPI2A_SPI2ACON.setFRMEN(thebits : TBits_1); inline;
  33336. begin
  33337. if thebits = 0 then
  33338. pTDefRegMap(@Self)^.clr := $80000000
  33339. else
  33340. pTDefRegMap(@Self)^.&set := $80000000;
  33341. end;
  33342. function TSPI2A_SPI2ACON.getFRMEN : TBits_1; inline;
  33343. begin
  33344. getFRMEN := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  33345. end;
  33346. procedure TSPI2A_SPI2ACON.setw(thebits : TBits_32); inline;
  33347. begin
  33348. pTDefRegMap(@Self)^.val := thebits;
  33349. end;
  33350. function TSPI2A_SPI2ACON.getw : TBits_32; inline;
  33351. begin
  33352. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  33353. end;
  33354. procedure TSPI2A_SPI2CON.setSRXISEL(thebits : TBits_2); inline;
  33355. begin
  33356. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  33357. end;
  33358. function TSPI2A_SPI2CON.getSRXISEL : TBits_2; inline;
  33359. begin
  33360. getSRXISEL := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  33361. end;
  33362. procedure TSPI2A_SPI2CON.setSTXISEL(thebits : TBits_2); inline;
  33363. begin
  33364. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF3 or ( thebits shl 2 );
  33365. end;
  33366. function TSPI2A_SPI2CON.getSTXISEL : TBits_2; inline;
  33367. begin
  33368. getSTXISEL := (pTDefRegMap(@Self)^.val and $0000000C) shr 2;
  33369. end;
  33370. procedure TSPI2A_SPI2CON.setMSTEN; inline;
  33371. begin
  33372. pTDefRegMap(@Self)^.&set := $00000020;
  33373. end;
  33374. procedure TSPI2A_SPI2CON.clearMSTEN; inline;
  33375. begin
  33376. pTDefRegMap(@Self)^.clr := $00000020;
  33377. end;
  33378. procedure TSPI2A_SPI2CON.setMSTEN(thebits : TBits_1); inline;
  33379. begin
  33380. if thebits = 0 then
  33381. pTDefRegMap(@Self)^.clr := $00000020
  33382. else
  33383. pTDefRegMap(@Self)^.&set := $00000020;
  33384. end;
  33385. function TSPI2A_SPI2CON.getMSTEN : TBits_1; inline;
  33386. begin
  33387. getMSTEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  33388. end;
  33389. procedure TSPI2A_SPI2CON.setCKP; inline;
  33390. begin
  33391. pTDefRegMap(@Self)^.&set := $00000040;
  33392. end;
  33393. procedure TSPI2A_SPI2CON.clearCKP; inline;
  33394. begin
  33395. pTDefRegMap(@Self)^.clr := $00000040;
  33396. end;
  33397. procedure TSPI2A_SPI2CON.setCKP(thebits : TBits_1); inline;
  33398. begin
  33399. if thebits = 0 then
  33400. pTDefRegMap(@Self)^.clr := $00000040
  33401. else
  33402. pTDefRegMap(@Self)^.&set := $00000040;
  33403. end;
  33404. function TSPI2A_SPI2CON.getCKP : TBits_1; inline;
  33405. begin
  33406. getCKP := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  33407. end;
  33408. procedure TSPI2A_SPI2CON.setSSEN; inline;
  33409. begin
  33410. pTDefRegMap(@Self)^.&set := $00000080;
  33411. end;
  33412. procedure TSPI2A_SPI2CON.clearSSEN; inline;
  33413. begin
  33414. pTDefRegMap(@Self)^.clr := $00000080;
  33415. end;
  33416. procedure TSPI2A_SPI2CON.setSSEN(thebits : TBits_1); inline;
  33417. begin
  33418. if thebits = 0 then
  33419. pTDefRegMap(@Self)^.clr := $00000080
  33420. else
  33421. pTDefRegMap(@Self)^.&set := $00000080;
  33422. end;
  33423. function TSPI2A_SPI2CON.getSSEN : TBits_1; inline;
  33424. begin
  33425. getSSEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  33426. end;
  33427. procedure TSPI2A_SPI2CON.setCKE; inline;
  33428. begin
  33429. pTDefRegMap(@Self)^.&set := $00000100;
  33430. end;
  33431. procedure TSPI2A_SPI2CON.clearCKE; inline;
  33432. begin
  33433. pTDefRegMap(@Self)^.clr := $00000100;
  33434. end;
  33435. procedure TSPI2A_SPI2CON.setCKE(thebits : TBits_1); inline;
  33436. begin
  33437. if thebits = 0 then
  33438. pTDefRegMap(@Self)^.clr := $00000100
  33439. else
  33440. pTDefRegMap(@Self)^.&set := $00000100;
  33441. end;
  33442. function TSPI2A_SPI2CON.getCKE : TBits_1; inline;
  33443. begin
  33444. getCKE := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  33445. end;
  33446. procedure TSPI2A_SPI2CON.setSMP; inline;
  33447. begin
  33448. pTDefRegMap(@Self)^.&set := $00000200;
  33449. end;
  33450. procedure TSPI2A_SPI2CON.clearSMP; inline;
  33451. begin
  33452. pTDefRegMap(@Self)^.clr := $00000200;
  33453. end;
  33454. procedure TSPI2A_SPI2CON.setSMP(thebits : TBits_1); inline;
  33455. begin
  33456. if thebits = 0 then
  33457. pTDefRegMap(@Self)^.clr := $00000200
  33458. else
  33459. pTDefRegMap(@Self)^.&set := $00000200;
  33460. end;
  33461. function TSPI2A_SPI2CON.getSMP : TBits_1; inline;
  33462. begin
  33463. getSMP := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  33464. end;
  33465. procedure TSPI2A_SPI2CON.setMODE16; inline;
  33466. begin
  33467. pTDefRegMap(@Self)^.&set := $00000400;
  33468. end;
  33469. procedure TSPI2A_SPI2CON.clearMODE16; inline;
  33470. begin
  33471. pTDefRegMap(@Self)^.clr := $00000400;
  33472. end;
  33473. procedure TSPI2A_SPI2CON.setMODE16(thebits : TBits_1); inline;
  33474. begin
  33475. if thebits = 0 then
  33476. pTDefRegMap(@Self)^.clr := $00000400
  33477. else
  33478. pTDefRegMap(@Self)^.&set := $00000400;
  33479. end;
  33480. function TSPI2A_SPI2CON.getMODE16 : TBits_1; inline;
  33481. begin
  33482. getMODE16 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  33483. end;
  33484. procedure TSPI2A_SPI2CON.setMODE32; inline;
  33485. begin
  33486. pTDefRegMap(@Self)^.&set := $00000800;
  33487. end;
  33488. procedure TSPI2A_SPI2CON.clearMODE32; inline;
  33489. begin
  33490. pTDefRegMap(@Self)^.clr := $00000800;
  33491. end;
  33492. procedure TSPI2A_SPI2CON.setMODE32(thebits : TBits_1); inline;
  33493. begin
  33494. if thebits = 0 then
  33495. pTDefRegMap(@Self)^.clr := $00000800
  33496. else
  33497. pTDefRegMap(@Self)^.&set := $00000800;
  33498. end;
  33499. function TSPI2A_SPI2CON.getMODE32 : TBits_1; inline;
  33500. begin
  33501. getMODE32 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  33502. end;
  33503. procedure TSPI2A_SPI2CON.setDISSDO; inline;
  33504. begin
  33505. pTDefRegMap(@Self)^.&set := $00001000;
  33506. end;
  33507. procedure TSPI2A_SPI2CON.clearDISSDO; inline;
  33508. begin
  33509. pTDefRegMap(@Self)^.clr := $00001000;
  33510. end;
  33511. procedure TSPI2A_SPI2CON.setDISSDO(thebits : TBits_1); inline;
  33512. begin
  33513. if thebits = 0 then
  33514. pTDefRegMap(@Self)^.clr := $00001000
  33515. else
  33516. pTDefRegMap(@Self)^.&set := $00001000;
  33517. end;
  33518. function TSPI2A_SPI2CON.getDISSDO : TBits_1; inline;
  33519. begin
  33520. getDISSDO := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  33521. end;
  33522. procedure TSPI2A_SPI2CON.setSIDL; inline;
  33523. begin
  33524. pTDefRegMap(@Self)^.&set := $00002000;
  33525. end;
  33526. procedure TSPI2A_SPI2CON.clearSIDL; inline;
  33527. begin
  33528. pTDefRegMap(@Self)^.clr := $00002000;
  33529. end;
  33530. procedure TSPI2A_SPI2CON.setSIDL(thebits : TBits_1); inline;
  33531. begin
  33532. if thebits = 0 then
  33533. pTDefRegMap(@Self)^.clr := $00002000
  33534. else
  33535. pTDefRegMap(@Self)^.&set := $00002000;
  33536. end;
  33537. function TSPI2A_SPI2CON.getSIDL : TBits_1; inline;
  33538. begin
  33539. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  33540. end;
  33541. procedure TSPI2A_SPI2CON.setON; inline;
  33542. begin
  33543. pTDefRegMap(@Self)^.&set := $00008000;
  33544. end;
  33545. procedure TSPI2A_SPI2CON.clearON; inline;
  33546. begin
  33547. pTDefRegMap(@Self)^.clr := $00008000;
  33548. end;
  33549. procedure TSPI2A_SPI2CON.setON(thebits : TBits_1); inline;
  33550. begin
  33551. if thebits = 0 then
  33552. pTDefRegMap(@Self)^.clr := $00008000
  33553. else
  33554. pTDefRegMap(@Self)^.&set := $00008000;
  33555. end;
  33556. function TSPI2A_SPI2CON.getON : TBits_1; inline;
  33557. begin
  33558. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  33559. end;
  33560. procedure TSPI2A_SPI2CON.setENHBUF; inline;
  33561. begin
  33562. pTDefRegMap(@Self)^.&set := $00010000;
  33563. end;
  33564. procedure TSPI2A_SPI2CON.clearENHBUF; inline;
  33565. begin
  33566. pTDefRegMap(@Self)^.clr := $00010000;
  33567. end;
  33568. procedure TSPI2A_SPI2CON.setENHBUF(thebits : TBits_1); inline;
  33569. begin
  33570. if thebits = 0 then
  33571. pTDefRegMap(@Self)^.clr := $00010000
  33572. else
  33573. pTDefRegMap(@Self)^.&set := $00010000;
  33574. end;
  33575. function TSPI2A_SPI2CON.getENHBUF : TBits_1; inline;
  33576. begin
  33577. getENHBUF := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  33578. end;
  33579. procedure TSPI2A_SPI2CON.setSPIFE; inline;
  33580. begin
  33581. pTDefRegMap(@Self)^.&set := $00020000;
  33582. end;
  33583. procedure TSPI2A_SPI2CON.clearSPIFE; inline;
  33584. begin
  33585. pTDefRegMap(@Self)^.clr := $00020000;
  33586. end;
  33587. procedure TSPI2A_SPI2CON.setSPIFE(thebits : TBits_1); inline;
  33588. begin
  33589. if thebits = 0 then
  33590. pTDefRegMap(@Self)^.clr := $00020000
  33591. else
  33592. pTDefRegMap(@Self)^.&set := $00020000;
  33593. end;
  33594. function TSPI2A_SPI2CON.getSPIFE : TBits_1; inline;
  33595. begin
  33596. getSPIFE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  33597. end;
  33598. procedure TSPI2A_SPI2CON.setFRMCNT(thebits : TBits_3); inline;
  33599. begin
  33600. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $F8FFFFFF or ( thebits shl 24 );
  33601. end;
  33602. function TSPI2A_SPI2CON.getFRMCNT : TBits_3; inline;
  33603. begin
  33604. getFRMCNT := (pTDefRegMap(@Self)^.val and $07000000) shr 24;
  33605. end;
  33606. procedure TSPI2A_SPI2CON.setFRMSYPW; inline;
  33607. begin
  33608. pTDefRegMap(@Self)^.&set := $08000000;
  33609. end;
  33610. procedure TSPI2A_SPI2CON.clearFRMSYPW; inline;
  33611. begin
  33612. pTDefRegMap(@Self)^.clr := $08000000;
  33613. end;
  33614. procedure TSPI2A_SPI2CON.setFRMSYPW(thebits : TBits_1); inline;
  33615. begin
  33616. if thebits = 0 then
  33617. pTDefRegMap(@Self)^.clr := $08000000
  33618. else
  33619. pTDefRegMap(@Self)^.&set := $08000000;
  33620. end;
  33621. function TSPI2A_SPI2CON.getFRMSYPW : TBits_1; inline;
  33622. begin
  33623. getFRMSYPW := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  33624. end;
  33625. procedure TSPI2A_SPI2CON.setMSSEN; inline;
  33626. begin
  33627. pTDefRegMap(@Self)^.&set := $10000000;
  33628. end;
  33629. procedure TSPI2A_SPI2CON.clearMSSEN; inline;
  33630. begin
  33631. pTDefRegMap(@Self)^.clr := $10000000;
  33632. end;
  33633. procedure TSPI2A_SPI2CON.setMSSEN(thebits : TBits_1); inline;
  33634. begin
  33635. if thebits = 0 then
  33636. pTDefRegMap(@Self)^.clr := $10000000
  33637. else
  33638. pTDefRegMap(@Self)^.&set := $10000000;
  33639. end;
  33640. function TSPI2A_SPI2CON.getMSSEN : TBits_1; inline;
  33641. begin
  33642. getMSSEN := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  33643. end;
  33644. procedure TSPI2A_SPI2CON.setFRMPOL; inline;
  33645. begin
  33646. pTDefRegMap(@Self)^.&set := $20000000;
  33647. end;
  33648. procedure TSPI2A_SPI2CON.clearFRMPOL; inline;
  33649. begin
  33650. pTDefRegMap(@Self)^.clr := $20000000;
  33651. end;
  33652. procedure TSPI2A_SPI2CON.setFRMPOL(thebits : TBits_1); inline;
  33653. begin
  33654. if thebits = 0 then
  33655. pTDefRegMap(@Self)^.clr := $20000000
  33656. else
  33657. pTDefRegMap(@Self)^.&set := $20000000;
  33658. end;
  33659. function TSPI2A_SPI2CON.getFRMPOL : TBits_1; inline;
  33660. begin
  33661. getFRMPOL := (pTDefRegMap(@Self)^.val and $20000000) shr 29;
  33662. end;
  33663. procedure TSPI2A_SPI2CON.setFRMSYNC; inline;
  33664. begin
  33665. pTDefRegMap(@Self)^.&set := $40000000;
  33666. end;
  33667. procedure TSPI2A_SPI2CON.clearFRMSYNC; inline;
  33668. begin
  33669. pTDefRegMap(@Self)^.clr := $40000000;
  33670. end;
  33671. procedure TSPI2A_SPI2CON.setFRMSYNC(thebits : TBits_1); inline;
  33672. begin
  33673. if thebits = 0 then
  33674. pTDefRegMap(@Self)^.clr := $40000000
  33675. else
  33676. pTDefRegMap(@Self)^.&set := $40000000;
  33677. end;
  33678. function TSPI2A_SPI2CON.getFRMSYNC : TBits_1; inline;
  33679. begin
  33680. getFRMSYNC := (pTDefRegMap(@Self)^.val and $40000000) shr 30;
  33681. end;
  33682. procedure TSPI2A_SPI2CON.setFRMEN; inline;
  33683. begin
  33684. pTDefRegMap(@Self)^.&set := $80000000;
  33685. end;
  33686. procedure TSPI2A_SPI2CON.clearFRMEN; inline;
  33687. begin
  33688. pTDefRegMap(@Self)^.clr := $80000000;
  33689. end;
  33690. procedure TSPI2A_SPI2CON.setFRMEN(thebits : TBits_1); inline;
  33691. begin
  33692. if thebits = 0 then
  33693. pTDefRegMap(@Self)^.clr := $80000000
  33694. else
  33695. pTDefRegMap(@Self)^.&set := $80000000;
  33696. end;
  33697. function TSPI2A_SPI2CON.getFRMEN : TBits_1; inline;
  33698. begin
  33699. getFRMEN := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  33700. end;
  33701. procedure TSPI2A_SPI2CON.setw(thebits : TBits_32); inline;
  33702. begin
  33703. pTDefRegMap(@Self)^.val := thebits;
  33704. end;
  33705. function TSPI2A_SPI2CON.getw : TBits_32; inline;
  33706. begin
  33707. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  33708. end;
  33709. procedure TSPI2A_SPI2ASTAT.setSPIRBF; inline;
  33710. begin
  33711. pTDefRegMap(@Self)^.&set := $00000001;
  33712. end;
  33713. procedure TSPI2A_SPI2ASTAT.clearSPIRBF; inline;
  33714. begin
  33715. pTDefRegMap(@Self)^.clr := $00000001;
  33716. end;
  33717. procedure TSPI2A_SPI2ASTAT.setSPIRBF(thebits : TBits_1); inline;
  33718. begin
  33719. if thebits = 0 then
  33720. pTDefRegMap(@Self)^.clr := $00000001
  33721. else
  33722. pTDefRegMap(@Self)^.&set := $00000001;
  33723. end;
  33724. function TSPI2A_SPI2ASTAT.getSPIRBF : TBits_1; inline;
  33725. begin
  33726. getSPIRBF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  33727. end;
  33728. procedure TSPI2A_SPI2ASTAT.setSPITBF; inline;
  33729. begin
  33730. pTDefRegMap(@Self)^.&set := $00000002;
  33731. end;
  33732. procedure TSPI2A_SPI2ASTAT.clearSPITBF; inline;
  33733. begin
  33734. pTDefRegMap(@Self)^.clr := $00000002;
  33735. end;
  33736. procedure TSPI2A_SPI2ASTAT.setSPITBF(thebits : TBits_1); inline;
  33737. begin
  33738. if thebits = 0 then
  33739. pTDefRegMap(@Self)^.clr := $00000002
  33740. else
  33741. pTDefRegMap(@Self)^.&set := $00000002;
  33742. end;
  33743. function TSPI2A_SPI2ASTAT.getSPITBF : TBits_1; inline;
  33744. begin
  33745. getSPITBF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  33746. end;
  33747. procedure TSPI2A_SPI2ASTAT.setSPITBE; inline;
  33748. begin
  33749. pTDefRegMap(@Self)^.&set := $00000008;
  33750. end;
  33751. procedure TSPI2A_SPI2ASTAT.clearSPITBE; inline;
  33752. begin
  33753. pTDefRegMap(@Self)^.clr := $00000008;
  33754. end;
  33755. procedure TSPI2A_SPI2ASTAT.setSPITBE(thebits : TBits_1); inline;
  33756. begin
  33757. if thebits = 0 then
  33758. pTDefRegMap(@Self)^.clr := $00000008
  33759. else
  33760. pTDefRegMap(@Self)^.&set := $00000008;
  33761. end;
  33762. function TSPI2A_SPI2ASTAT.getSPITBE : TBits_1; inline;
  33763. begin
  33764. getSPITBE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  33765. end;
  33766. procedure TSPI2A_SPI2ASTAT.setSPIRBE; inline;
  33767. begin
  33768. pTDefRegMap(@Self)^.&set := $00000020;
  33769. end;
  33770. procedure TSPI2A_SPI2ASTAT.clearSPIRBE; inline;
  33771. begin
  33772. pTDefRegMap(@Self)^.clr := $00000020;
  33773. end;
  33774. procedure TSPI2A_SPI2ASTAT.setSPIRBE(thebits : TBits_1); inline;
  33775. begin
  33776. if thebits = 0 then
  33777. pTDefRegMap(@Self)^.clr := $00000020
  33778. else
  33779. pTDefRegMap(@Self)^.&set := $00000020;
  33780. end;
  33781. function TSPI2A_SPI2ASTAT.getSPIRBE : TBits_1; inline;
  33782. begin
  33783. getSPIRBE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  33784. end;
  33785. procedure TSPI2A_SPI2ASTAT.setSPIROV; inline;
  33786. begin
  33787. pTDefRegMap(@Self)^.&set := $00000040;
  33788. end;
  33789. procedure TSPI2A_SPI2ASTAT.clearSPIROV; inline;
  33790. begin
  33791. pTDefRegMap(@Self)^.clr := $00000040;
  33792. end;
  33793. procedure TSPI2A_SPI2ASTAT.setSPIROV(thebits : TBits_1); inline;
  33794. begin
  33795. if thebits = 0 then
  33796. pTDefRegMap(@Self)^.clr := $00000040
  33797. else
  33798. pTDefRegMap(@Self)^.&set := $00000040;
  33799. end;
  33800. function TSPI2A_SPI2ASTAT.getSPIROV : TBits_1; inline;
  33801. begin
  33802. getSPIROV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  33803. end;
  33804. procedure TSPI2A_SPI2ASTAT.setSRMT; inline;
  33805. begin
  33806. pTDefRegMap(@Self)^.&set := $00000080;
  33807. end;
  33808. procedure TSPI2A_SPI2ASTAT.clearSRMT; inline;
  33809. begin
  33810. pTDefRegMap(@Self)^.clr := $00000080;
  33811. end;
  33812. procedure TSPI2A_SPI2ASTAT.setSRMT(thebits : TBits_1); inline;
  33813. begin
  33814. if thebits = 0 then
  33815. pTDefRegMap(@Self)^.clr := $00000080
  33816. else
  33817. pTDefRegMap(@Self)^.&set := $00000080;
  33818. end;
  33819. function TSPI2A_SPI2ASTAT.getSRMT : TBits_1; inline;
  33820. begin
  33821. getSRMT := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  33822. end;
  33823. procedure TSPI2A_SPI2ASTAT.setSPITUR; inline;
  33824. begin
  33825. pTDefRegMap(@Self)^.&set := $00000100;
  33826. end;
  33827. procedure TSPI2A_SPI2ASTAT.clearSPITUR; inline;
  33828. begin
  33829. pTDefRegMap(@Self)^.clr := $00000100;
  33830. end;
  33831. procedure TSPI2A_SPI2ASTAT.setSPITUR(thebits : TBits_1); inline;
  33832. begin
  33833. if thebits = 0 then
  33834. pTDefRegMap(@Self)^.clr := $00000100
  33835. else
  33836. pTDefRegMap(@Self)^.&set := $00000100;
  33837. end;
  33838. function TSPI2A_SPI2ASTAT.getSPITUR : TBits_1; inline;
  33839. begin
  33840. getSPITUR := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  33841. end;
  33842. procedure TSPI2A_SPI2ASTAT.setSPIBUSY; inline;
  33843. begin
  33844. pTDefRegMap(@Self)^.&set := $00000800;
  33845. end;
  33846. procedure TSPI2A_SPI2ASTAT.clearSPIBUSY; inline;
  33847. begin
  33848. pTDefRegMap(@Self)^.clr := $00000800;
  33849. end;
  33850. procedure TSPI2A_SPI2ASTAT.setSPIBUSY(thebits : TBits_1); inline;
  33851. begin
  33852. if thebits = 0 then
  33853. pTDefRegMap(@Self)^.clr := $00000800
  33854. else
  33855. pTDefRegMap(@Self)^.&set := $00000800;
  33856. end;
  33857. function TSPI2A_SPI2ASTAT.getSPIBUSY : TBits_1; inline;
  33858. begin
  33859. getSPIBUSY := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  33860. end;
  33861. procedure TSPI2A_SPI2ASTAT.setTXBUFELM(thebits : TBits_5); inline;
  33862. begin
  33863. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  33864. end;
  33865. function TSPI2A_SPI2ASTAT.getTXBUFELM : TBits_5; inline;
  33866. begin
  33867. getTXBUFELM := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  33868. end;
  33869. procedure TSPI2A_SPI2ASTAT.setRXBUFELM(thebits : TBits_5); inline;
  33870. begin
  33871. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E0FFFFFF or ( thebits shl 24 );
  33872. end;
  33873. function TSPI2A_SPI2ASTAT.getRXBUFELM : TBits_5; inline;
  33874. begin
  33875. getRXBUFELM := (pTDefRegMap(@Self)^.val and $1F000000) shr 24;
  33876. end;
  33877. procedure TSPI2A_SPI2ASTAT.setw(thebits : TBits_32); inline;
  33878. begin
  33879. pTDefRegMap(@Self)^.val := thebits;
  33880. end;
  33881. function TSPI2A_SPI2ASTAT.getw : TBits_32; inline;
  33882. begin
  33883. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  33884. end;
  33885. procedure TSPI2A_SPI2STAT.setSPIRBF; inline;
  33886. begin
  33887. pTDefRegMap(@Self)^.&set := $00000001;
  33888. end;
  33889. procedure TSPI2A_SPI2STAT.clearSPIRBF; inline;
  33890. begin
  33891. pTDefRegMap(@Self)^.clr := $00000001;
  33892. end;
  33893. procedure TSPI2A_SPI2STAT.setSPIRBF(thebits : TBits_1); inline;
  33894. begin
  33895. if thebits = 0 then
  33896. pTDefRegMap(@Self)^.clr := $00000001
  33897. else
  33898. pTDefRegMap(@Self)^.&set := $00000001;
  33899. end;
  33900. function TSPI2A_SPI2STAT.getSPIRBF : TBits_1; inline;
  33901. begin
  33902. getSPIRBF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  33903. end;
  33904. procedure TSPI2A_SPI2STAT.setSPITBF; inline;
  33905. begin
  33906. pTDefRegMap(@Self)^.&set := $00000002;
  33907. end;
  33908. procedure TSPI2A_SPI2STAT.clearSPITBF; inline;
  33909. begin
  33910. pTDefRegMap(@Self)^.clr := $00000002;
  33911. end;
  33912. procedure TSPI2A_SPI2STAT.setSPITBF(thebits : TBits_1); inline;
  33913. begin
  33914. if thebits = 0 then
  33915. pTDefRegMap(@Self)^.clr := $00000002
  33916. else
  33917. pTDefRegMap(@Self)^.&set := $00000002;
  33918. end;
  33919. function TSPI2A_SPI2STAT.getSPITBF : TBits_1; inline;
  33920. begin
  33921. getSPITBF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  33922. end;
  33923. procedure TSPI2A_SPI2STAT.setSPITBE; inline;
  33924. begin
  33925. pTDefRegMap(@Self)^.&set := $00000008;
  33926. end;
  33927. procedure TSPI2A_SPI2STAT.clearSPITBE; inline;
  33928. begin
  33929. pTDefRegMap(@Self)^.clr := $00000008;
  33930. end;
  33931. procedure TSPI2A_SPI2STAT.setSPITBE(thebits : TBits_1); inline;
  33932. begin
  33933. if thebits = 0 then
  33934. pTDefRegMap(@Self)^.clr := $00000008
  33935. else
  33936. pTDefRegMap(@Self)^.&set := $00000008;
  33937. end;
  33938. function TSPI2A_SPI2STAT.getSPITBE : TBits_1; inline;
  33939. begin
  33940. getSPITBE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  33941. end;
  33942. procedure TSPI2A_SPI2STAT.setSPIRBE; inline;
  33943. begin
  33944. pTDefRegMap(@Self)^.&set := $00000020;
  33945. end;
  33946. procedure TSPI2A_SPI2STAT.clearSPIRBE; inline;
  33947. begin
  33948. pTDefRegMap(@Self)^.clr := $00000020;
  33949. end;
  33950. procedure TSPI2A_SPI2STAT.setSPIRBE(thebits : TBits_1); inline;
  33951. begin
  33952. if thebits = 0 then
  33953. pTDefRegMap(@Self)^.clr := $00000020
  33954. else
  33955. pTDefRegMap(@Self)^.&set := $00000020;
  33956. end;
  33957. function TSPI2A_SPI2STAT.getSPIRBE : TBits_1; inline;
  33958. begin
  33959. getSPIRBE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  33960. end;
  33961. procedure TSPI2A_SPI2STAT.setSPIROV; inline;
  33962. begin
  33963. pTDefRegMap(@Self)^.&set := $00000040;
  33964. end;
  33965. procedure TSPI2A_SPI2STAT.clearSPIROV; inline;
  33966. begin
  33967. pTDefRegMap(@Self)^.clr := $00000040;
  33968. end;
  33969. procedure TSPI2A_SPI2STAT.setSPIROV(thebits : TBits_1); inline;
  33970. begin
  33971. if thebits = 0 then
  33972. pTDefRegMap(@Self)^.clr := $00000040
  33973. else
  33974. pTDefRegMap(@Self)^.&set := $00000040;
  33975. end;
  33976. function TSPI2A_SPI2STAT.getSPIROV : TBits_1; inline;
  33977. begin
  33978. getSPIROV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  33979. end;
  33980. procedure TSPI2A_SPI2STAT.setSRMT; inline;
  33981. begin
  33982. pTDefRegMap(@Self)^.&set := $00000080;
  33983. end;
  33984. procedure TSPI2A_SPI2STAT.clearSRMT; inline;
  33985. begin
  33986. pTDefRegMap(@Self)^.clr := $00000080;
  33987. end;
  33988. procedure TSPI2A_SPI2STAT.setSRMT(thebits : TBits_1); inline;
  33989. begin
  33990. if thebits = 0 then
  33991. pTDefRegMap(@Self)^.clr := $00000080
  33992. else
  33993. pTDefRegMap(@Self)^.&set := $00000080;
  33994. end;
  33995. function TSPI2A_SPI2STAT.getSRMT : TBits_1; inline;
  33996. begin
  33997. getSRMT := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  33998. end;
  33999. procedure TSPI2A_SPI2STAT.setSPITUR; inline;
  34000. begin
  34001. pTDefRegMap(@Self)^.&set := $00000100;
  34002. end;
  34003. procedure TSPI2A_SPI2STAT.clearSPITUR; inline;
  34004. begin
  34005. pTDefRegMap(@Self)^.clr := $00000100;
  34006. end;
  34007. procedure TSPI2A_SPI2STAT.setSPITUR(thebits : TBits_1); inline;
  34008. begin
  34009. if thebits = 0 then
  34010. pTDefRegMap(@Self)^.clr := $00000100
  34011. else
  34012. pTDefRegMap(@Self)^.&set := $00000100;
  34013. end;
  34014. function TSPI2A_SPI2STAT.getSPITUR : TBits_1; inline;
  34015. begin
  34016. getSPITUR := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  34017. end;
  34018. procedure TSPI2A_SPI2STAT.setSPIBUSY; inline;
  34019. begin
  34020. pTDefRegMap(@Self)^.&set := $00000800;
  34021. end;
  34022. procedure TSPI2A_SPI2STAT.clearSPIBUSY; inline;
  34023. begin
  34024. pTDefRegMap(@Self)^.clr := $00000800;
  34025. end;
  34026. procedure TSPI2A_SPI2STAT.setSPIBUSY(thebits : TBits_1); inline;
  34027. begin
  34028. if thebits = 0 then
  34029. pTDefRegMap(@Self)^.clr := $00000800
  34030. else
  34031. pTDefRegMap(@Self)^.&set := $00000800;
  34032. end;
  34033. function TSPI2A_SPI2STAT.getSPIBUSY : TBits_1; inline;
  34034. begin
  34035. getSPIBUSY := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  34036. end;
  34037. procedure TSPI2A_SPI2STAT.setTXBUFELM(thebits : TBits_5); inline;
  34038. begin
  34039. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  34040. end;
  34041. function TSPI2A_SPI2STAT.getTXBUFELM : TBits_5; inline;
  34042. begin
  34043. getTXBUFELM := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  34044. end;
  34045. procedure TSPI2A_SPI2STAT.setRXBUFELM(thebits : TBits_5); inline;
  34046. begin
  34047. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E0FFFFFF or ( thebits shl 24 );
  34048. end;
  34049. function TSPI2A_SPI2STAT.getRXBUFELM : TBits_5; inline;
  34050. begin
  34051. getRXBUFELM := (pTDefRegMap(@Self)^.val and $1F000000) shr 24;
  34052. end;
  34053. procedure TSPI2A_SPI2STAT.setw(thebits : TBits_32); inline;
  34054. begin
  34055. pTDefRegMap(@Self)^.val := thebits;
  34056. end;
  34057. function TSPI2A_SPI2STAT.getw : TBits_32; inline;
  34058. begin
  34059. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  34060. end;
  34061. procedure TSPI3A_SPI3ACON.setSRXISEL(thebits : TBits_2); inline;
  34062. begin
  34063. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  34064. end;
  34065. function TSPI3A_SPI3ACON.getSRXISEL : TBits_2; inline;
  34066. begin
  34067. getSRXISEL := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  34068. end;
  34069. procedure TSPI3A_SPI3ACON.setSTXISEL(thebits : TBits_2); inline;
  34070. begin
  34071. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF3 or ( thebits shl 2 );
  34072. end;
  34073. function TSPI3A_SPI3ACON.getSTXISEL : TBits_2; inline;
  34074. begin
  34075. getSTXISEL := (pTDefRegMap(@Self)^.val and $0000000C) shr 2;
  34076. end;
  34077. procedure TSPI3A_SPI3ACON.setMSTEN; inline;
  34078. begin
  34079. pTDefRegMap(@Self)^.&set := $00000020;
  34080. end;
  34081. procedure TSPI3A_SPI3ACON.clearMSTEN; inline;
  34082. begin
  34083. pTDefRegMap(@Self)^.clr := $00000020;
  34084. end;
  34085. procedure TSPI3A_SPI3ACON.setMSTEN(thebits : TBits_1); inline;
  34086. begin
  34087. if thebits = 0 then
  34088. pTDefRegMap(@Self)^.clr := $00000020
  34089. else
  34090. pTDefRegMap(@Self)^.&set := $00000020;
  34091. end;
  34092. function TSPI3A_SPI3ACON.getMSTEN : TBits_1; inline;
  34093. begin
  34094. getMSTEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  34095. end;
  34096. procedure TSPI3A_SPI3ACON.setCKP; inline;
  34097. begin
  34098. pTDefRegMap(@Self)^.&set := $00000040;
  34099. end;
  34100. procedure TSPI3A_SPI3ACON.clearCKP; inline;
  34101. begin
  34102. pTDefRegMap(@Self)^.clr := $00000040;
  34103. end;
  34104. procedure TSPI3A_SPI3ACON.setCKP(thebits : TBits_1); inline;
  34105. begin
  34106. if thebits = 0 then
  34107. pTDefRegMap(@Self)^.clr := $00000040
  34108. else
  34109. pTDefRegMap(@Self)^.&set := $00000040;
  34110. end;
  34111. function TSPI3A_SPI3ACON.getCKP : TBits_1; inline;
  34112. begin
  34113. getCKP := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  34114. end;
  34115. procedure TSPI3A_SPI3ACON.setSSEN; inline;
  34116. begin
  34117. pTDefRegMap(@Self)^.&set := $00000080;
  34118. end;
  34119. procedure TSPI3A_SPI3ACON.clearSSEN; inline;
  34120. begin
  34121. pTDefRegMap(@Self)^.clr := $00000080;
  34122. end;
  34123. procedure TSPI3A_SPI3ACON.setSSEN(thebits : TBits_1); inline;
  34124. begin
  34125. if thebits = 0 then
  34126. pTDefRegMap(@Self)^.clr := $00000080
  34127. else
  34128. pTDefRegMap(@Self)^.&set := $00000080;
  34129. end;
  34130. function TSPI3A_SPI3ACON.getSSEN : TBits_1; inline;
  34131. begin
  34132. getSSEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  34133. end;
  34134. procedure TSPI3A_SPI3ACON.setCKE; inline;
  34135. begin
  34136. pTDefRegMap(@Self)^.&set := $00000100;
  34137. end;
  34138. procedure TSPI3A_SPI3ACON.clearCKE; inline;
  34139. begin
  34140. pTDefRegMap(@Self)^.clr := $00000100;
  34141. end;
  34142. procedure TSPI3A_SPI3ACON.setCKE(thebits : TBits_1); inline;
  34143. begin
  34144. if thebits = 0 then
  34145. pTDefRegMap(@Self)^.clr := $00000100
  34146. else
  34147. pTDefRegMap(@Self)^.&set := $00000100;
  34148. end;
  34149. function TSPI3A_SPI3ACON.getCKE : TBits_1; inline;
  34150. begin
  34151. getCKE := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  34152. end;
  34153. procedure TSPI3A_SPI3ACON.setSMP; inline;
  34154. begin
  34155. pTDefRegMap(@Self)^.&set := $00000200;
  34156. end;
  34157. procedure TSPI3A_SPI3ACON.clearSMP; inline;
  34158. begin
  34159. pTDefRegMap(@Self)^.clr := $00000200;
  34160. end;
  34161. procedure TSPI3A_SPI3ACON.setSMP(thebits : TBits_1); inline;
  34162. begin
  34163. if thebits = 0 then
  34164. pTDefRegMap(@Self)^.clr := $00000200
  34165. else
  34166. pTDefRegMap(@Self)^.&set := $00000200;
  34167. end;
  34168. function TSPI3A_SPI3ACON.getSMP : TBits_1; inline;
  34169. begin
  34170. getSMP := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  34171. end;
  34172. procedure TSPI3A_SPI3ACON.setMODE16; inline;
  34173. begin
  34174. pTDefRegMap(@Self)^.&set := $00000400;
  34175. end;
  34176. procedure TSPI3A_SPI3ACON.clearMODE16; inline;
  34177. begin
  34178. pTDefRegMap(@Self)^.clr := $00000400;
  34179. end;
  34180. procedure TSPI3A_SPI3ACON.setMODE16(thebits : TBits_1); inline;
  34181. begin
  34182. if thebits = 0 then
  34183. pTDefRegMap(@Self)^.clr := $00000400
  34184. else
  34185. pTDefRegMap(@Self)^.&set := $00000400;
  34186. end;
  34187. function TSPI3A_SPI3ACON.getMODE16 : TBits_1; inline;
  34188. begin
  34189. getMODE16 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  34190. end;
  34191. procedure TSPI3A_SPI3ACON.setMODE32; inline;
  34192. begin
  34193. pTDefRegMap(@Self)^.&set := $00000800;
  34194. end;
  34195. procedure TSPI3A_SPI3ACON.clearMODE32; inline;
  34196. begin
  34197. pTDefRegMap(@Self)^.clr := $00000800;
  34198. end;
  34199. procedure TSPI3A_SPI3ACON.setMODE32(thebits : TBits_1); inline;
  34200. begin
  34201. if thebits = 0 then
  34202. pTDefRegMap(@Self)^.clr := $00000800
  34203. else
  34204. pTDefRegMap(@Self)^.&set := $00000800;
  34205. end;
  34206. function TSPI3A_SPI3ACON.getMODE32 : TBits_1; inline;
  34207. begin
  34208. getMODE32 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  34209. end;
  34210. procedure TSPI3A_SPI3ACON.setDISSDO; inline;
  34211. begin
  34212. pTDefRegMap(@Self)^.&set := $00001000;
  34213. end;
  34214. procedure TSPI3A_SPI3ACON.clearDISSDO; inline;
  34215. begin
  34216. pTDefRegMap(@Self)^.clr := $00001000;
  34217. end;
  34218. procedure TSPI3A_SPI3ACON.setDISSDO(thebits : TBits_1); inline;
  34219. begin
  34220. if thebits = 0 then
  34221. pTDefRegMap(@Self)^.clr := $00001000
  34222. else
  34223. pTDefRegMap(@Self)^.&set := $00001000;
  34224. end;
  34225. function TSPI3A_SPI3ACON.getDISSDO : TBits_1; inline;
  34226. begin
  34227. getDISSDO := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  34228. end;
  34229. procedure TSPI3A_SPI3ACON.setSIDL; inline;
  34230. begin
  34231. pTDefRegMap(@Self)^.&set := $00002000;
  34232. end;
  34233. procedure TSPI3A_SPI3ACON.clearSIDL; inline;
  34234. begin
  34235. pTDefRegMap(@Self)^.clr := $00002000;
  34236. end;
  34237. procedure TSPI3A_SPI3ACON.setSIDL(thebits : TBits_1); inline;
  34238. begin
  34239. if thebits = 0 then
  34240. pTDefRegMap(@Self)^.clr := $00002000
  34241. else
  34242. pTDefRegMap(@Self)^.&set := $00002000;
  34243. end;
  34244. function TSPI3A_SPI3ACON.getSIDL : TBits_1; inline;
  34245. begin
  34246. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  34247. end;
  34248. procedure TSPI3A_SPI3ACON.setON; inline;
  34249. begin
  34250. pTDefRegMap(@Self)^.&set := $00008000;
  34251. end;
  34252. procedure TSPI3A_SPI3ACON.clearON; inline;
  34253. begin
  34254. pTDefRegMap(@Self)^.clr := $00008000;
  34255. end;
  34256. procedure TSPI3A_SPI3ACON.setON(thebits : TBits_1); inline;
  34257. begin
  34258. if thebits = 0 then
  34259. pTDefRegMap(@Self)^.clr := $00008000
  34260. else
  34261. pTDefRegMap(@Self)^.&set := $00008000;
  34262. end;
  34263. function TSPI3A_SPI3ACON.getON : TBits_1; inline;
  34264. begin
  34265. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  34266. end;
  34267. procedure TSPI3A_SPI3ACON.setENHBUF; inline;
  34268. begin
  34269. pTDefRegMap(@Self)^.&set := $00010000;
  34270. end;
  34271. procedure TSPI3A_SPI3ACON.clearENHBUF; inline;
  34272. begin
  34273. pTDefRegMap(@Self)^.clr := $00010000;
  34274. end;
  34275. procedure TSPI3A_SPI3ACON.setENHBUF(thebits : TBits_1); inline;
  34276. begin
  34277. if thebits = 0 then
  34278. pTDefRegMap(@Self)^.clr := $00010000
  34279. else
  34280. pTDefRegMap(@Self)^.&set := $00010000;
  34281. end;
  34282. function TSPI3A_SPI3ACON.getENHBUF : TBits_1; inline;
  34283. begin
  34284. getENHBUF := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  34285. end;
  34286. procedure TSPI3A_SPI3ACON.setSPIFE; inline;
  34287. begin
  34288. pTDefRegMap(@Self)^.&set := $00020000;
  34289. end;
  34290. procedure TSPI3A_SPI3ACON.clearSPIFE; inline;
  34291. begin
  34292. pTDefRegMap(@Self)^.clr := $00020000;
  34293. end;
  34294. procedure TSPI3A_SPI3ACON.setSPIFE(thebits : TBits_1); inline;
  34295. begin
  34296. if thebits = 0 then
  34297. pTDefRegMap(@Self)^.clr := $00020000
  34298. else
  34299. pTDefRegMap(@Self)^.&set := $00020000;
  34300. end;
  34301. function TSPI3A_SPI3ACON.getSPIFE : TBits_1; inline;
  34302. begin
  34303. getSPIFE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  34304. end;
  34305. procedure TSPI3A_SPI3ACON.setFRMCNT(thebits : TBits_3); inline;
  34306. begin
  34307. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $F8FFFFFF or ( thebits shl 24 );
  34308. end;
  34309. function TSPI3A_SPI3ACON.getFRMCNT : TBits_3; inline;
  34310. begin
  34311. getFRMCNT := (pTDefRegMap(@Self)^.val and $07000000) shr 24;
  34312. end;
  34313. procedure TSPI3A_SPI3ACON.setFRMSYPW; inline;
  34314. begin
  34315. pTDefRegMap(@Self)^.&set := $08000000;
  34316. end;
  34317. procedure TSPI3A_SPI3ACON.clearFRMSYPW; inline;
  34318. begin
  34319. pTDefRegMap(@Self)^.clr := $08000000;
  34320. end;
  34321. procedure TSPI3A_SPI3ACON.setFRMSYPW(thebits : TBits_1); inline;
  34322. begin
  34323. if thebits = 0 then
  34324. pTDefRegMap(@Self)^.clr := $08000000
  34325. else
  34326. pTDefRegMap(@Self)^.&set := $08000000;
  34327. end;
  34328. function TSPI3A_SPI3ACON.getFRMSYPW : TBits_1; inline;
  34329. begin
  34330. getFRMSYPW := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  34331. end;
  34332. procedure TSPI3A_SPI3ACON.setMSSEN; inline;
  34333. begin
  34334. pTDefRegMap(@Self)^.&set := $10000000;
  34335. end;
  34336. procedure TSPI3A_SPI3ACON.clearMSSEN; inline;
  34337. begin
  34338. pTDefRegMap(@Self)^.clr := $10000000;
  34339. end;
  34340. procedure TSPI3A_SPI3ACON.setMSSEN(thebits : TBits_1); inline;
  34341. begin
  34342. if thebits = 0 then
  34343. pTDefRegMap(@Self)^.clr := $10000000
  34344. else
  34345. pTDefRegMap(@Self)^.&set := $10000000;
  34346. end;
  34347. function TSPI3A_SPI3ACON.getMSSEN : TBits_1; inline;
  34348. begin
  34349. getMSSEN := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  34350. end;
  34351. procedure TSPI3A_SPI3ACON.setFRMPOL; inline;
  34352. begin
  34353. pTDefRegMap(@Self)^.&set := $20000000;
  34354. end;
  34355. procedure TSPI3A_SPI3ACON.clearFRMPOL; inline;
  34356. begin
  34357. pTDefRegMap(@Self)^.clr := $20000000;
  34358. end;
  34359. procedure TSPI3A_SPI3ACON.setFRMPOL(thebits : TBits_1); inline;
  34360. begin
  34361. if thebits = 0 then
  34362. pTDefRegMap(@Self)^.clr := $20000000
  34363. else
  34364. pTDefRegMap(@Self)^.&set := $20000000;
  34365. end;
  34366. function TSPI3A_SPI3ACON.getFRMPOL : TBits_1; inline;
  34367. begin
  34368. getFRMPOL := (pTDefRegMap(@Self)^.val and $20000000) shr 29;
  34369. end;
  34370. procedure TSPI3A_SPI3ACON.setFRMSYNC; inline;
  34371. begin
  34372. pTDefRegMap(@Self)^.&set := $40000000;
  34373. end;
  34374. procedure TSPI3A_SPI3ACON.clearFRMSYNC; inline;
  34375. begin
  34376. pTDefRegMap(@Self)^.clr := $40000000;
  34377. end;
  34378. procedure TSPI3A_SPI3ACON.setFRMSYNC(thebits : TBits_1); inline;
  34379. begin
  34380. if thebits = 0 then
  34381. pTDefRegMap(@Self)^.clr := $40000000
  34382. else
  34383. pTDefRegMap(@Self)^.&set := $40000000;
  34384. end;
  34385. function TSPI3A_SPI3ACON.getFRMSYNC : TBits_1; inline;
  34386. begin
  34387. getFRMSYNC := (pTDefRegMap(@Self)^.val and $40000000) shr 30;
  34388. end;
  34389. procedure TSPI3A_SPI3ACON.setFRMEN; inline;
  34390. begin
  34391. pTDefRegMap(@Self)^.&set := $80000000;
  34392. end;
  34393. procedure TSPI3A_SPI3ACON.clearFRMEN; inline;
  34394. begin
  34395. pTDefRegMap(@Self)^.clr := $80000000;
  34396. end;
  34397. procedure TSPI3A_SPI3ACON.setFRMEN(thebits : TBits_1); inline;
  34398. begin
  34399. if thebits = 0 then
  34400. pTDefRegMap(@Self)^.clr := $80000000
  34401. else
  34402. pTDefRegMap(@Self)^.&set := $80000000;
  34403. end;
  34404. function TSPI3A_SPI3ACON.getFRMEN : TBits_1; inline;
  34405. begin
  34406. getFRMEN := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  34407. end;
  34408. procedure TSPI3A_SPI3ACON.setw(thebits : TBits_32); inline;
  34409. begin
  34410. pTDefRegMap(@Self)^.val := thebits;
  34411. end;
  34412. function TSPI3A_SPI3ACON.getw : TBits_32; inline;
  34413. begin
  34414. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  34415. end;
  34416. procedure TSPI3A_SPI4CON.setSRXISEL(thebits : TBits_2); inline;
  34417. begin
  34418. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  34419. end;
  34420. function TSPI3A_SPI4CON.getSRXISEL : TBits_2; inline;
  34421. begin
  34422. getSRXISEL := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  34423. end;
  34424. procedure TSPI3A_SPI4CON.setSTXISEL(thebits : TBits_2); inline;
  34425. begin
  34426. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF3 or ( thebits shl 2 );
  34427. end;
  34428. function TSPI3A_SPI4CON.getSTXISEL : TBits_2; inline;
  34429. begin
  34430. getSTXISEL := (pTDefRegMap(@Self)^.val and $0000000C) shr 2;
  34431. end;
  34432. procedure TSPI3A_SPI4CON.setMSTEN; inline;
  34433. begin
  34434. pTDefRegMap(@Self)^.&set := $00000020;
  34435. end;
  34436. procedure TSPI3A_SPI4CON.clearMSTEN; inline;
  34437. begin
  34438. pTDefRegMap(@Self)^.clr := $00000020;
  34439. end;
  34440. procedure TSPI3A_SPI4CON.setMSTEN(thebits : TBits_1); inline;
  34441. begin
  34442. if thebits = 0 then
  34443. pTDefRegMap(@Self)^.clr := $00000020
  34444. else
  34445. pTDefRegMap(@Self)^.&set := $00000020;
  34446. end;
  34447. function TSPI3A_SPI4CON.getMSTEN : TBits_1; inline;
  34448. begin
  34449. getMSTEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  34450. end;
  34451. procedure TSPI3A_SPI4CON.setCKP; inline;
  34452. begin
  34453. pTDefRegMap(@Self)^.&set := $00000040;
  34454. end;
  34455. procedure TSPI3A_SPI4CON.clearCKP; inline;
  34456. begin
  34457. pTDefRegMap(@Self)^.clr := $00000040;
  34458. end;
  34459. procedure TSPI3A_SPI4CON.setCKP(thebits : TBits_1); inline;
  34460. begin
  34461. if thebits = 0 then
  34462. pTDefRegMap(@Self)^.clr := $00000040
  34463. else
  34464. pTDefRegMap(@Self)^.&set := $00000040;
  34465. end;
  34466. function TSPI3A_SPI4CON.getCKP : TBits_1; inline;
  34467. begin
  34468. getCKP := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  34469. end;
  34470. procedure TSPI3A_SPI4CON.setSSEN; inline;
  34471. begin
  34472. pTDefRegMap(@Self)^.&set := $00000080;
  34473. end;
  34474. procedure TSPI3A_SPI4CON.clearSSEN; inline;
  34475. begin
  34476. pTDefRegMap(@Self)^.clr := $00000080;
  34477. end;
  34478. procedure TSPI3A_SPI4CON.setSSEN(thebits : TBits_1); inline;
  34479. begin
  34480. if thebits = 0 then
  34481. pTDefRegMap(@Self)^.clr := $00000080
  34482. else
  34483. pTDefRegMap(@Self)^.&set := $00000080;
  34484. end;
  34485. function TSPI3A_SPI4CON.getSSEN : TBits_1; inline;
  34486. begin
  34487. getSSEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  34488. end;
  34489. procedure TSPI3A_SPI4CON.setCKE; inline;
  34490. begin
  34491. pTDefRegMap(@Self)^.&set := $00000100;
  34492. end;
  34493. procedure TSPI3A_SPI4CON.clearCKE; inline;
  34494. begin
  34495. pTDefRegMap(@Self)^.clr := $00000100;
  34496. end;
  34497. procedure TSPI3A_SPI4CON.setCKE(thebits : TBits_1); inline;
  34498. begin
  34499. if thebits = 0 then
  34500. pTDefRegMap(@Self)^.clr := $00000100
  34501. else
  34502. pTDefRegMap(@Self)^.&set := $00000100;
  34503. end;
  34504. function TSPI3A_SPI4CON.getCKE : TBits_1; inline;
  34505. begin
  34506. getCKE := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  34507. end;
  34508. procedure TSPI3A_SPI4CON.setSMP; inline;
  34509. begin
  34510. pTDefRegMap(@Self)^.&set := $00000200;
  34511. end;
  34512. procedure TSPI3A_SPI4CON.clearSMP; inline;
  34513. begin
  34514. pTDefRegMap(@Self)^.clr := $00000200;
  34515. end;
  34516. procedure TSPI3A_SPI4CON.setSMP(thebits : TBits_1); inline;
  34517. begin
  34518. if thebits = 0 then
  34519. pTDefRegMap(@Self)^.clr := $00000200
  34520. else
  34521. pTDefRegMap(@Self)^.&set := $00000200;
  34522. end;
  34523. function TSPI3A_SPI4CON.getSMP : TBits_1; inline;
  34524. begin
  34525. getSMP := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  34526. end;
  34527. procedure TSPI3A_SPI4CON.setMODE16; inline;
  34528. begin
  34529. pTDefRegMap(@Self)^.&set := $00000400;
  34530. end;
  34531. procedure TSPI3A_SPI4CON.clearMODE16; inline;
  34532. begin
  34533. pTDefRegMap(@Self)^.clr := $00000400;
  34534. end;
  34535. procedure TSPI3A_SPI4CON.setMODE16(thebits : TBits_1); inline;
  34536. begin
  34537. if thebits = 0 then
  34538. pTDefRegMap(@Self)^.clr := $00000400
  34539. else
  34540. pTDefRegMap(@Self)^.&set := $00000400;
  34541. end;
  34542. function TSPI3A_SPI4CON.getMODE16 : TBits_1; inline;
  34543. begin
  34544. getMODE16 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  34545. end;
  34546. procedure TSPI3A_SPI4CON.setMODE32; inline;
  34547. begin
  34548. pTDefRegMap(@Self)^.&set := $00000800;
  34549. end;
  34550. procedure TSPI3A_SPI4CON.clearMODE32; inline;
  34551. begin
  34552. pTDefRegMap(@Self)^.clr := $00000800;
  34553. end;
  34554. procedure TSPI3A_SPI4CON.setMODE32(thebits : TBits_1); inline;
  34555. begin
  34556. if thebits = 0 then
  34557. pTDefRegMap(@Self)^.clr := $00000800
  34558. else
  34559. pTDefRegMap(@Self)^.&set := $00000800;
  34560. end;
  34561. function TSPI3A_SPI4CON.getMODE32 : TBits_1; inline;
  34562. begin
  34563. getMODE32 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  34564. end;
  34565. procedure TSPI3A_SPI4CON.setDISSDO; inline;
  34566. begin
  34567. pTDefRegMap(@Self)^.&set := $00001000;
  34568. end;
  34569. procedure TSPI3A_SPI4CON.clearDISSDO; inline;
  34570. begin
  34571. pTDefRegMap(@Self)^.clr := $00001000;
  34572. end;
  34573. procedure TSPI3A_SPI4CON.setDISSDO(thebits : TBits_1); inline;
  34574. begin
  34575. if thebits = 0 then
  34576. pTDefRegMap(@Self)^.clr := $00001000
  34577. else
  34578. pTDefRegMap(@Self)^.&set := $00001000;
  34579. end;
  34580. function TSPI3A_SPI4CON.getDISSDO : TBits_1; inline;
  34581. begin
  34582. getDISSDO := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  34583. end;
  34584. procedure TSPI3A_SPI4CON.setSIDL; inline;
  34585. begin
  34586. pTDefRegMap(@Self)^.&set := $00002000;
  34587. end;
  34588. procedure TSPI3A_SPI4CON.clearSIDL; inline;
  34589. begin
  34590. pTDefRegMap(@Self)^.clr := $00002000;
  34591. end;
  34592. procedure TSPI3A_SPI4CON.setSIDL(thebits : TBits_1); inline;
  34593. begin
  34594. if thebits = 0 then
  34595. pTDefRegMap(@Self)^.clr := $00002000
  34596. else
  34597. pTDefRegMap(@Self)^.&set := $00002000;
  34598. end;
  34599. function TSPI3A_SPI4CON.getSIDL : TBits_1; inline;
  34600. begin
  34601. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  34602. end;
  34603. procedure TSPI3A_SPI4CON.setON; inline;
  34604. begin
  34605. pTDefRegMap(@Self)^.&set := $00008000;
  34606. end;
  34607. procedure TSPI3A_SPI4CON.clearON; inline;
  34608. begin
  34609. pTDefRegMap(@Self)^.clr := $00008000;
  34610. end;
  34611. procedure TSPI3A_SPI4CON.setON(thebits : TBits_1); inline;
  34612. begin
  34613. if thebits = 0 then
  34614. pTDefRegMap(@Self)^.clr := $00008000
  34615. else
  34616. pTDefRegMap(@Self)^.&set := $00008000;
  34617. end;
  34618. function TSPI3A_SPI4CON.getON : TBits_1; inline;
  34619. begin
  34620. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  34621. end;
  34622. procedure TSPI3A_SPI4CON.setENHBUF; inline;
  34623. begin
  34624. pTDefRegMap(@Self)^.&set := $00010000;
  34625. end;
  34626. procedure TSPI3A_SPI4CON.clearENHBUF; inline;
  34627. begin
  34628. pTDefRegMap(@Self)^.clr := $00010000;
  34629. end;
  34630. procedure TSPI3A_SPI4CON.setENHBUF(thebits : TBits_1); inline;
  34631. begin
  34632. if thebits = 0 then
  34633. pTDefRegMap(@Self)^.clr := $00010000
  34634. else
  34635. pTDefRegMap(@Self)^.&set := $00010000;
  34636. end;
  34637. function TSPI3A_SPI4CON.getENHBUF : TBits_1; inline;
  34638. begin
  34639. getENHBUF := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  34640. end;
  34641. procedure TSPI3A_SPI4CON.setSPIFE; inline;
  34642. begin
  34643. pTDefRegMap(@Self)^.&set := $00020000;
  34644. end;
  34645. procedure TSPI3A_SPI4CON.clearSPIFE; inline;
  34646. begin
  34647. pTDefRegMap(@Self)^.clr := $00020000;
  34648. end;
  34649. procedure TSPI3A_SPI4CON.setSPIFE(thebits : TBits_1); inline;
  34650. begin
  34651. if thebits = 0 then
  34652. pTDefRegMap(@Self)^.clr := $00020000
  34653. else
  34654. pTDefRegMap(@Self)^.&set := $00020000;
  34655. end;
  34656. function TSPI3A_SPI4CON.getSPIFE : TBits_1; inline;
  34657. begin
  34658. getSPIFE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  34659. end;
  34660. procedure TSPI3A_SPI4CON.setFRMCNT(thebits : TBits_3); inline;
  34661. begin
  34662. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $F8FFFFFF or ( thebits shl 24 );
  34663. end;
  34664. function TSPI3A_SPI4CON.getFRMCNT : TBits_3; inline;
  34665. begin
  34666. getFRMCNT := (pTDefRegMap(@Self)^.val and $07000000) shr 24;
  34667. end;
  34668. procedure TSPI3A_SPI4CON.setFRMSYPW; inline;
  34669. begin
  34670. pTDefRegMap(@Self)^.&set := $08000000;
  34671. end;
  34672. procedure TSPI3A_SPI4CON.clearFRMSYPW; inline;
  34673. begin
  34674. pTDefRegMap(@Self)^.clr := $08000000;
  34675. end;
  34676. procedure TSPI3A_SPI4CON.setFRMSYPW(thebits : TBits_1); inline;
  34677. begin
  34678. if thebits = 0 then
  34679. pTDefRegMap(@Self)^.clr := $08000000
  34680. else
  34681. pTDefRegMap(@Self)^.&set := $08000000;
  34682. end;
  34683. function TSPI3A_SPI4CON.getFRMSYPW : TBits_1; inline;
  34684. begin
  34685. getFRMSYPW := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  34686. end;
  34687. procedure TSPI3A_SPI4CON.setMSSEN; inline;
  34688. begin
  34689. pTDefRegMap(@Self)^.&set := $10000000;
  34690. end;
  34691. procedure TSPI3A_SPI4CON.clearMSSEN; inline;
  34692. begin
  34693. pTDefRegMap(@Self)^.clr := $10000000;
  34694. end;
  34695. procedure TSPI3A_SPI4CON.setMSSEN(thebits : TBits_1); inline;
  34696. begin
  34697. if thebits = 0 then
  34698. pTDefRegMap(@Self)^.clr := $10000000
  34699. else
  34700. pTDefRegMap(@Self)^.&set := $10000000;
  34701. end;
  34702. function TSPI3A_SPI4CON.getMSSEN : TBits_1; inline;
  34703. begin
  34704. getMSSEN := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  34705. end;
  34706. procedure TSPI3A_SPI4CON.setFRMPOL; inline;
  34707. begin
  34708. pTDefRegMap(@Self)^.&set := $20000000;
  34709. end;
  34710. procedure TSPI3A_SPI4CON.clearFRMPOL; inline;
  34711. begin
  34712. pTDefRegMap(@Self)^.clr := $20000000;
  34713. end;
  34714. procedure TSPI3A_SPI4CON.setFRMPOL(thebits : TBits_1); inline;
  34715. begin
  34716. if thebits = 0 then
  34717. pTDefRegMap(@Self)^.clr := $20000000
  34718. else
  34719. pTDefRegMap(@Self)^.&set := $20000000;
  34720. end;
  34721. function TSPI3A_SPI4CON.getFRMPOL : TBits_1; inline;
  34722. begin
  34723. getFRMPOL := (pTDefRegMap(@Self)^.val and $20000000) shr 29;
  34724. end;
  34725. procedure TSPI3A_SPI4CON.setFRMSYNC; inline;
  34726. begin
  34727. pTDefRegMap(@Self)^.&set := $40000000;
  34728. end;
  34729. procedure TSPI3A_SPI4CON.clearFRMSYNC; inline;
  34730. begin
  34731. pTDefRegMap(@Self)^.clr := $40000000;
  34732. end;
  34733. procedure TSPI3A_SPI4CON.setFRMSYNC(thebits : TBits_1); inline;
  34734. begin
  34735. if thebits = 0 then
  34736. pTDefRegMap(@Self)^.clr := $40000000
  34737. else
  34738. pTDefRegMap(@Self)^.&set := $40000000;
  34739. end;
  34740. function TSPI3A_SPI4CON.getFRMSYNC : TBits_1; inline;
  34741. begin
  34742. getFRMSYNC := (pTDefRegMap(@Self)^.val and $40000000) shr 30;
  34743. end;
  34744. procedure TSPI3A_SPI4CON.setFRMEN; inline;
  34745. begin
  34746. pTDefRegMap(@Self)^.&set := $80000000;
  34747. end;
  34748. procedure TSPI3A_SPI4CON.clearFRMEN; inline;
  34749. begin
  34750. pTDefRegMap(@Self)^.clr := $80000000;
  34751. end;
  34752. procedure TSPI3A_SPI4CON.setFRMEN(thebits : TBits_1); inline;
  34753. begin
  34754. if thebits = 0 then
  34755. pTDefRegMap(@Self)^.clr := $80000000
  34756. else
  34757. pTDefRegMap(@Self)^.&set := $80000000;
  34758. end;
  34759. function TSPI3A_SPI4CON.getFRMEN : TBits_1; inline;
  34760. begin
  34761. getFRMEN := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  34762. end;
  34763. procedure TSPI3A_SPI4CON.setw(thebits : TBits_32); inline;
  34764. begin
  34765. pTDefRegMap(@Self)^.val := thebits;
  34766. end;
  34767. function TSPI3A_SPI4CON.getw : TBits_32; inline;
  34768. begin
  34769. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  34770. end;
  34771. procedure TSPI3A_SPI3ASTAT.setSPIRBF; inline;
  34772. begin
  34773. pTDefRegMap(@Self)^.&set := $00000001;
  34774. end;
  34775. procedure TSPI3A_SPI3ASTAT.clearSPIRBF; inline;
  34776. begin
  34777. pTDefRegMap(@Self)^.clr := $00000001;
  34778. end;
  34779. procedure TSPI3A_SPI3ASTAT.setSPIRBF(thebits : TBits_1); inline;
  34780. begin
  34781. if thebits = 0 then
  34782. pTDefRegMap(@Self)^.clr := $00000001
  34783. else
  34784. pTDefRegMap(@Self)^.&set := $00000001;
  34785. end;
  34786. function TSPI3A_SPI3ASTAT.getSPIRBF : TBits_1; inline;
  34787. begin
  34788. getSPIRBF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  34789. end;
  34790. procedure TSPI3A_SPI3ASTAT.setSPITBF; inline;
  34791. begin
  34792. pTDefRegMap(@Self)^.&set := $00000002;
  34793. end;
  34794. procedure TSPI3A_SPI3ASTAT.clearSPITBF; inline;
  34795. begin
  34796. pTDefRegMap(@Self)^.clr := $00000002;
  34797. end;
  34798. procedure TSPI3A_SPI3ASTAT.setSPITBF(thebits : TBits_1); inline;
  34799. begin
  34800. if thebits = 0 then
  34801. pTDefRegMap(@Self)^.clr := $00000002
  34802. else
  34803. pTDefRegMap(@Self)^.&set := $00000002;
  34804. end;
  34805. function TSPI3A_SPI3ASTAT.getSPITBF : TBits_1; inline;
  34806. begin
  34807. getSPITBF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  34808. end;
  34809. procedure TSPI3A_SPI3ASTAT.setSPITBE; inline;
  34810. begin
  34811. pTDefRegMap(@Self)^.&set := $00000008;
  34812. end;
  34813. procedure TSPI3A_SPI3ASTAT.clearSPITBE; inline;
  34814. begin
  34815. pTDefRegMap(@Self)^.clr := $00000008;
  34816. end;
  34817. procedure TSPI3A_SPI3ASTAT.setSPITBE(thebits : TBits_1); inline;
  34818. begin
  34819. if thebits = 0 then
  34820. pTDefRegMap(@Self)^.clr := $00000008
  34821. else
  34822. pTDefRegMap(@Self)^.&set := $00000008;
  34823. end;
  34824. function TSPI3A_SPI3ASTAT.getSPITBE : TBits_1; inline;
  34825. begin
  34826. getSPITBE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  34827. end;
  34828. procedure TSPI3A_SPI3ASTAT.setSPIRBE; inline;
  34829. begin
  34830. pTDefRegMap(@Self)^.&set := $00000020;
  34831. end;
  34832. procedure TSPI3A_SPI3ASTAT.clearSPIRBE; inline;
  34833. begin
  34834. pTDefRegMap(@Self)^.clr := $00000020;
  34835. end;
  34836. procedure TSPI3A_SPI3ASTAT.setSPIRBE(thebits : TBits_1); inline;
  34837. begin
  34838. if thebits = 0 then
  34839. pTDefRegMap(@Self)^.clr := $00000020
  34840. else
  34841. pTDefRegMap(@Self)^.&set := $00000020;
  34842. end;
  34843. function TSPI3A_SPI3ASTAT.getSPIRBE : TBits_1; inline;
  34844. begin
  34845. getSPIRBE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  34846. end;
  34847. procedure TSPI3A_SPI3ASTAT.setSPIROV; inline;
  34848. begin
  34849. pTDefRegMap(@Self)^.&set := $00000040;
  34850. end;
  34851. procedure TSPI3A_SPI3ASTAT.clearSPIROV; inline;
  34852. begin
  34853. pTDefRegMap(@Self)^.clr := $00000040;
  34854. end;
  34855. procedure TSPI3A_SPI3ASTAT.setSPIROV(thebits : TBits_1); inline;
  34856. begin
  34857. if thebits = 0 then
  34858. pTDefRegMap(@Self)^.clr := $00000040
  34859. else
  34860. pTDefRegMap(@Self)^.&set := $00000040;
  34861. end;
  34862. function TSPI3A_SPI3ASTAT.getSPIROV : TBits_1; inline;
  34863. begin
  34864. getSPIROV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  34865. end;
  34866. procedure TSPI3A_SPI3ASTAT.setSRMT; inline;
  34867. begin
  34868. pTDefRegMap(@Self)^.&set := $00000080;
  34869. end;
  34870. procedure TSPI3A_SPI3ASTAT.clearSRMT; inline;
  34871. begin
  34872. pTDefRegMap(@Self)^.clr := $00000080;
  34873. end;
  34874. procedure TSPI3A_SPI3ASTAT.setSRMT(thebits : TBits_1); inline;
  34875. begin
  34876. if thebits = 0 then
  34877. pTDefRegMap(@Self)^.clr := $00000080
  34878. else
  34879. pTDefRegMap(@Self)^.&set := $00000080;
  34880. end;
  34881. function TSPI3A_SPI3ASTAT.getSRMT : TBits_1; inline;
  34882. begin
  34883. getSRMT := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  34884. end;
  34885. procedure TSPI3A_SPI3ASTAT.setSPITUR; inline;
  34886. begin
  34887. pTDefRegMap(@Self)^.&set := $00000100;
  34888. end;
  34889. procedure TSPI3A_SPI3ASTAT.clearSPITUR; inline;
  34890. begin
  34891. pTDefRegMap(@Self)^.clr := $00000100;
  34892. end;
  34893. procedure TSPI3A_SPI3ASTAT.setSPITUR(thebits : TBits_1); inline;
  34894. begin
  34895. if thebits = 0 then
  34896. pTDefRegMap(@Self)^.clr := $00000100
  34897. else
  34898. pTDefRegMap(@Self)^.&set := $00000100;
  34899. end;
  34900. function TSPI3A_SPI3ASTAT.getSPITUR : TBits_1; inline;
  34901. begin
  34902. getSPITUR := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  34903. end;
  34904. procedure TSPI3A_SPI3ASTAT.setSPIBUSY; inline;
  34905. begin
  34906. pTDefRegMap(@Self)^.&set := $00000800;
  34907. end;
  34908. procedure TSPI3A_SPI3ASTAT.clearSPIBUSY; inline;
  34909. begin
  34910. pTDefRegMap(@Self)^.clr := $00000800;
  34911. end;
  34912. procedure TSPI3A_SPI3ASTAT.setSPIBUSY(thebits : TBits_1); inline;
  34913. begin
  34914. if thebits = 0 then
  34915. pTDefRegMap(@Self)^.clr := $00000800
  34916. else
  34917. pTDefRegMap(@Self)^.&set := $00000800;
  34918. end;
  34919. function TSPI3A_SPI3ASTAT.getSPIBUSY : TBits_1; inline;
  34920. begin
  34921. getSPIBUSY := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  34922. end;
  34923. procedure TSPI3A_SPI3ASTAT.setTXBUFELM(thebits : TBits_5); inline;
  34924. begin
  34925. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  34926. end;
  34927. function TSPI3A_SPI3ASTAT.getTXBUFELM : TBits_5; inline;
  34928. begin
  34929. getTXBUFELM := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  34930. end;
  34931. procedure TSPI3A_SPI3ASTAT.setRXBUFELM(thebits : TBits_5); inline;
  34932. begin
  34933. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E0FFFFFF or ( thebits shl 24 );
  34934. end;
  34935. function TSPI3A_SPI3ASTAT.getRXBUFELM : TBits_5; inline;
  34936. begin
  34937. getRXBUFELM := (pTDefRegMap(@Self)^.val and $1F000000) shr 24;
  34938. end;
  34939. procedure TSPI3A_SPI3ASTAT.setw(thebits : TBits_32); inline;
  34940. begin
  34941. pTDefRegMap(@Self)^.val := thebits;
  34942. end;
  34943. function TSPI3A_SPI3ASTAT.getw : TBits_32; inline;
  34944. begin
  34945. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  34946. end;
  34947. procedure TSPI3A_SPI4STAT.setSPIRBF; inline;
  34948. begin
  34949. pTDefRegMap(@Self)^.&set := $00000001;
  34950. end;
  34951. procedure TSPI3A_SPI4STAT.clearSPIRBF; inline;
  34952. begin
  34953. pTDefRegMap(@Self)^.clr := $00000001;
  34954. end;
  34955. procedure TSPI3A_SPI4STAT.setSPIRBF(thebits : TBits_1); inline;
  34956. begin
  34957. if thebits = 0 then
  34958. pTDefRegMap(@Self)^.clr := $00000001
  34959. else
  34960. pTDefRegMap(@Self)^.&set := $00000001;
  34961. end;
  34962. function TSPI3A_SPI4STAT.getSPIRBF : TBits_1; inline;
  34963. begin
  34964. getSPIRBF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  34965. end;
  34966. procedure TSPI3A_SPI4STAT.setSPITBF; inline;
  34967. begin
  34968. pTDefRegMap(@Self)^.&set := $00000002;
  34969. end;
  34970. procedure TSPI3A_SPI4STAT.clearSPITBF; inline;
  34971. begin
  34972. pTDefRegMap(@Self)^.clr := $00000002;
  34973. end;
  34974. procedure TSPI3A_SPI4STAT.setSPITBF(thebits : TBits_1); inline;
  34975. begin
  34976. if thebits = 0 then
  34977. pTDefRegMap(@Self)^.clr := $00000002
  34978. else
  34979. pTDefRegMap(@Self)^.&set := $00000002;
  34980. end;
  34981. function TSPI3A_SPI4STAT.getSPITBF : TBits_1; inline;
  34982. begin
  34983. getSPITBF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  34984. end;
  34985. procedure TSPI3A_SPI4STAT.setSPITBE; inline;
  34986. begin
  34987. pTDefRegMap(@Self)^.&set := $00000008;
  34988. end;
  34989. procedure TSPI3A_SPI4STAT.clearSPITBE; inline;
  34990. begin
  34991. pTDefRegMap(@Self)^.clr := $00000008;
  34992. end;
  34993. procedure TSPI3A_SPI4STAT.setSPITBE(thebits : TBits_1); inline;
  34994. begin
  34995. if thebits = 0 then
  34996. pTDefRegMap(@Self)^.clr := $00000008
  34997. else
  34998. pTDefRegMap(@Self)^.&set := $00000008;
  34999. end;
  35000. function TSPI3A_SPI4STAT.getSPITBE : TBits_1; inline;
  35001. begin
  35002. getSPITBE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  35003. end;
  35004. procedure TSPI3A_SPI4STAT.setSPIRBE; inline;
  35005. begin
  35006. pTDefRegMap(@Self)^.&set := $00000020;
  35007. end;
  35008. procedure TSPI3A_SPI4STAT.clearSPIRBE; inline;
  35009. begin
  35010. pTDefRegMap(@Self)^.clr := $00000020;
  35011. end;
  35012. procedure TSPI3A_SPI4STAT.setSPIRBE(thebits : TBits_1); inline;
  35013. begin
  35014. if thebits = 0 then
  35015. pTDefRegMap(@Self)^.clr := $00000020
  35016. else
  35017. pTDefRegMap(@Self)^.&set := $00000020;
  35018. end;
  35019. function TSPI3A_SPI4STAT.getSPIRBE : TBits_1; inline;
  35020. begin
  35021. getSPIRBE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  35022. end;
  35023. procedure TSPI3A_SPI4STAT.setSPIROV; inline;
  35024. begin
  35025. pTDefRegMap(@Self)^.&set := $00000040;
  35026. end;
  35027. procedure TSPI3A_SPI4STAT.clearSPIROV; inline;
  35028. begin
  35029. pTDefRegMap(@Self)^.clr := $00000040;
  35030. end;
  35031. procedure TSPI3A_SPI4STAT.setSPIROV(thebits : TBits_1); inline;
  35032. begin
  35033. if thebits = 0 then
  35034. pTDefRegMap(@Self)^.clr := $00000040
  35035. else
  35036. pTDefRegMap(@Self)^.&set := $00000040;
  35037. end;
  35038. function TSPI3A_SPI4STAT.getSPIROV : TBits_1; inline;
  35039. begin
  35040. getSPIROV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  35041. end;
  35042. procedure TSPI3A_SPI4STAT.setSRMT; inline;
  35043. begin
  35044. pTDefRegMap(@Self)^.&set := $00000080;
  35045. end;
  35046. procedure TSPI3A_SPI4STAT.clearSRMT; inline;
  35047. begin
  35048. pTDefRegMap(@Self)^.clr := $00000080;
  35049. end;
  35050. procedure TSPI3A_SPI4STAT.setSRMT(thebits : TBits_1); inline;
  35051. begin
  35052. if thebits = 0 then
  35053. pTDefRegMap(@Self)^.clr := $00000080
  35054. else
  35055. pTDefRegMap(@Self)^.&set := $00000080;
  35056. end;
  35057. function TSPI3A_SPI4STAT.getSRMT : TBits_1; inline;
  35058. begin
  35059. getSRMT := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  35060. end;
  35061. procedure TSPI3A_SPI4STAT.setSPITUR; inline;
  35062. begin
  35063. pTDefRegMap(@Self)^.&set := $00000100;
  35064. end;
  35065. procedure TSPI3A_SPI4STAT.clearSPITUR; inline;
  35066. begin
  35067. pTDefRegMap(@Self)^.clr := $00000100;
  35068. end;
  35069. procedure TSPI3A_SPI4STAT.setSPITUR(thebits : TBits_1); inline;
  35070. begin
  35071. if thebits = 0 then
  35072. pTDefRegMap(@Self)^.clr := $00000100
  35073. else
  35074. pTDefRegMap(@Self)^.&set := $00000100;
  35075. end;
  35076. function TSPI3A_SPI4STAT.getSPITUR : TBits_1; inline;
  35077. begin
  35078. getSPITUR := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  35079. end;
  35080. procedure TSPI3A_SPI4STAT.setSPIBUSY; inline;
  35081. begin
  35082. pTDefRegMap(@Self)^.&set := $00000800;
  35083. end;
  35084. procedure TSPI3A_SPI4STAT.clearSPIBUSY; inline;
  35085. begin
  35086. pTDefRegMap(@Self)^.clr := $00000800;
  35087. end;
  35088. procedure TSPI3A_SPI4STAT.setSPIBUSY(thebits : TBits_1); inline;
  35089. begin
  35090. if thebits = 0 then
  35091. pTDefRegMap(@Self)^.clr := $00000800
  35092. else
  35093. pTDefRegMap(@Self)^.&set := $00000800;
  35094. end;
  35095. function TSPI3A_SPI4STAT.getSPIBUSY : TBits_1; inline;
  35096. begin
  35097. getSPIBUSY := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  35098. end;
  35099. procedure TSPI3A_SPI4STAT.setTXBUFELM(thebits : TBits_5); inline;
  35100. begin
  35101. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  35102. end;
  35103. function TSPI3A_SPI4STAT.getTXBUFELM : TBits_5; inline;
  35104. begin
  35105. getTXBUFELM := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  35106. end;
  35107. procedure TSPI3A_SPI4STAT.setRXBUFELM(thebits : TBits_5); inline;
  35108. begin
  35109. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E0FFFFFF or ( thebits shl 24 );
  35110. end;
  35111. function TSPI3A_SPI4STAT.getRXBUFELM : TBits_5; inline;
  35112. begin
  35113. getRXBUFELM := (pTDefRegMap(@Self)^.val and $1F000000) shr 24;
  35114. end;
  35115. procedure TSPI3A_SPI4STAT.setw(thebits : TBits_32); inline;
  35116. begin
  35117. pTDefRegMap(@Self)^.val := thebits;
  35118. end;
  35119. function TSPI3A_SPI4STAT.getw : TBits_32; inline;
  35120. begin
  35121. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  35122. end;
  35123. procedure TSPI1_SPI1CON.setSRXISEL(thebits : TBits_2); inline;
  35124. begin
  35125. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  35126. end;
  35127. function TSPI1_SPI1CON.getSRXISEL : TBits_2; inline;
  35128. begin
  35129. getSRXISEL := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  35130. end;
  35131. procedure TSPI1_SPI1CON.setSTXISEL(thebits : TBits_2); inline;
  35132. begin
  35133. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF3 or ( thebits shl 2 );
  35134. end;
  35135. function TSPI1_SPI1CON.getSTXISEL : TBits_2; inline;
  35136. begin
  35137. getSTXISEL := (pTDefRegMap(@Self)^.val and $0000000C) shr 2;
  35138. end;
  35139. procedure TSPI1_SPI1CON.setMSTEN; inline;
  35140. begin
  35141. pTDefRegMap(@Self)^.&set := $00000020;
  35142. end;
  35143. procedure TSPI1_SPI1CON.clearMSTEN; inline;
  35144. begin
  35145. pTDefRegMap(@Self)^.clr := $00000020;
  35146. end;
  35147. procedure TSPI1_SPI1CON.setMSTEN(thebits : TBits_1); inline;
  35148. begin
  35149. if thebits = 0 then
  35150. pTDefRegMap(@Self)^.clr := $00000020
  35151. else
  35152. pTDefRegMap(@Self)^.&set := $00000020;
  35153. end;
  35154. function TSPI1_SPI1CON.getMSTEN : TBits_1; inline;
  35155. begin
  35156. getMSTEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  35157. end;
  35158. procedure TSPI1_SPI1CON.setCKP; inline;
  35159. begin
  35160. pTDefRegMap(@Self)^.&set := $00000040;
  35161. end;
  35162. procedure TSPI1_SPI1CON.clearCKP; inline;
  35163. begin
  35164. pTDefRegMap(@Self)^.clr := $00000040;
  35165. end;
  35166. procedure TSPI1_SPI1CON.setCKP(thebits : TBits_1); inline;
  35167. begin
  35168. if thebits = 0 then
  35169. pTDefRegMap(@Self)^.clr := $00000040
  35170. else
  35171. pTDefRegMap(@Self)^.&set := $00000040;
  35172. end;
  35173. function TSPI1_SPI1CON.getCKP : TBits_1; inline;
  35174. begin
  35175. getCKP := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  35176. end;
  35177. procedure TSPI1_SPI1CON.setSSEN; inline;
  35178. begin
  35179. pTDefRegMap(@Self)^.&set := $00000080;
  35180. end;
  35181. procedure TSPI1_SPI1CON.clearSSEN; inline;
  35182. begin
  35183. pTDefRegMap(@Self)^.clr := $00000080;
  35184. end;
  35185. procedure TSPI1_SPI1CON.setSSEN(thebits : TBits_1); inline;
  35186. begin
  35187. if thebits = 0 then
  35188. pTDefRegMap(@Self)^.clr := $00000080
  35189. else
  35190. pTDefRegMap(@Self)^.&set := $00000080;
  35191. end;
  35192. function TSPI1_SPI1CON.getSSEN : TBits_1; inline;
  35193. begin
  35194. getSSEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  35195. end;
  35196. procedure TSPI1_SPI1CON.setCKE; inline;
  35197. begin
  35198. pTDefRegMap(@Self)^.&set := $00000100;
  35199. end;
  35200. procedure TSPI1_SPI1CON.clearCKE; inline;
  35201. begin
  35202. pTDefRegMap(@Self)^.clr := $00000100;
  35203. end;
  35204. procedure TSPI1_SPI1CON.setCKE(thebits : TBits_1); inline;
  35205. begin
  35206. if thebits = 0 then
  35207. pTDefRegMap(@Self)^.clr := $00000100
  35208. else
  35209. pTDefRegMap(@Self)^.&set := $00000100;
  35210. end;
  35211. function TSPI1_SPI1CON.getCKE : TBits_1; inline;
  35212. begin
  35213. getCKE := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  35214. end;
  35215. procedure TSPI1_SPI1CON.setSMP; inline;
  35216. begin
  35217. pTDefRegMap(@Self)^.&set := $00000200;
  35218. end;
  35219. procedure TSPI1_SPI1CON.clearSMP; inline;
  35220. begin
  35221. pTDefRegMap(@Self)^.clr := $00000200;
  35222. end;
  35223. procedure TSPI1_SPI1CON.setSMP(thebits : TBits_1); inline;
  35224. begin
  35225. if thebits = 0 then
  35226. pTDefRegMap(@Self)^.clr := $00000200
  35227. else
  35228. pTDefRegMap(@Self)^.&set := $00000200;
  35229. end;
  35230. function TSPI1_SPI1CON.getSMP : TBits_1; inline;
  35231. begin
  35232. getSMP := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  35233. end;
  35234. procedure TSPI1_SPI1CON.setMODE16; inline;
  35235. begin
  35236. pTDefRegMap(@Self)^.&set := $00000400;
  35237. end;
  35238. procedure TSPI1_SPI1CON.clearMODE16; inline;
  35239. begin
  35240. pTDefRegMap(@Self)^.clr := $00000400;
  35241. end;
  35242. procedure TSPI1_SPI1CON.setMODE16(thebits : TBits_1); inline;
  35243. begin
  35244. if thebits = 0 then
  35245. pTDefRegMap(@Self)^.clr := $00000400
  35246. else
  35247. pTDefRegMap(@Self)^.&set := $00000400;
  35248. end;
  35249. function TSPI1_SPI1CON.getMODE16 : TBits_1; inline;
  35250. begin
  35251. getMODE16 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  35252. end;
  35253. procedure TSPI1_SPI1CON.setMODE32; inline;
  35254. begin
  35255. pTDefRegMap(@Self)^.&set := $00000800;
  35256. end;
  35257. procedure TSPI1_SPI1CON.clearMODE32; inline;
  35258. begin
  35259. pTDefRegMap(@Self)^.clr := $00000800;
  35260. end;
  35261. procedure TSPI1_SPI1CON.setMODE32(thebits : TBits_1); inline;
  35262. begin
  35263. if thebits = 0 then
  35264. pTDefRegMap(@Self)^.clr := $00000800
  35265. else
  35266. pTDefRegMap(@Self)^.&set := $00000800;
  35267. end;
  35268. function TSPI1_SPI1CON.getMODE32 : TBits_1; inline;
  35269. begin
  35270. getMODE32 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  35271. end;
  35272. procedure TSPI1_SPI1CON.setDISSDO; inline;
  35273. begin
  35274. pTDefRegMap(@Self)^.&set := $00001000;
  35275. end;
  35276. procedure TSPI1_SPI1CON.clearDISSDO; inline;
  35277. begin
  35278. pTDefRegMap(@Self)^.clr := $00001000;
  35279. end;
  35280. procedure TSPI1_SPI1CON.setDISSDO(thebits : TBits_1); inline;
  35281. begin
  35282. if thebits = 0 then
  35283. pTDefRegMap(@Self)^.clr := $00001000
  35284. else
  35285. pTDefRegMap(@Self)^.&set := $00001000;
  35286. end;
  35287. function TSPI1_SPI1CON.getDISSDO : TBits_1; inline;
  35288. begin
  35289. getDISSDO := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  35290. end;
  35291. procedure TSPI1_SPI1CON.setSIDL; inline;
  35292. begin
  35293. pTDefRegMap(@Self)^.&set := $00002000;
  35294. end;
  35295. procedure TSPI1_SPI1CON.clearSIDL; inline;
  35296. begin
  35297. pTDefRegMap(@Self)^.clr := $00002000;
  35298. end;
  35299. procedure TSPI1_SPI1CON.setSIDL(thebits : TBits_1); inline;
  35300. begin
  35301. if thebits = 0 then
  35302. pTDefRegMap(@Self)^.clr := $00002000
  35303. else
  35304. pTDefRegMap(@Self)^.&set := $00002000;
  35305. end;
  35306. function TSPI1_SPI1CON.getSIDL : TBits_1; inline;
  35307. begin
  35308. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  35309. end;
  35310. procedure TSPI1_SPI1CON.setON; inline;
  35311. begin
  35312. pTDefRegMap(@Self)^.&set := $00008000;
  35313. end;
  35314. procedure TSPI1_SPI1CON.clearON; inline;
  35315. begin
  35316. pTDefRegMap(@Self)^.clr := $00008000;
  35317. end;
  35318. procedure TSPI1_SPI1CON.setON(thebits : TBits_1); inline;
  35319. begin
  35320. if thebits = 0 then
  35321. pTDefRegMap(@Self)^.clr := $00008000
  35322. else
  35323. pTDefRegMap(@Self)^.&set := $00008000;
  35324. end;
  35325. function TSPI1_SPI1CON.getON : TBits_1; inline;
  35326. begin
  35327. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  35328. end;
  35329. procedure TSPI1_SPI1CON.setENHBUF; inline;
  35330. begin
  35331. pTDefRegMap(@Self)^.&set := $00010000;
  35332. end;
  35333. procedure TSPI1_SPI1CON.clearENHBUF; inline;
  35334. begin
  35335. pTDefRegMap(@Self)^.clr := $00010000;
  35336. end;
  35337. procedure TSPI1_SPI1CON.setENHBUF(thebits : TBits_1); inline;
  35338. begin
  35339. if thebits = 0 then
  35340. pTDefRegMap(@Self)^.clr := $00010000
  35341. else
  35342. pTDefRegMap(@Self)^.&set := $00010000;
  35343. end;
  35344. function TSPI1_SPI1CON.getENHBUF : TBits_1; inline;
  35345. begin
  35346. getENHBUF := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  35347. end;
  35348. procedure TSPI1_SPI1CON.setSPIFE; inline;
  35349. begin
  35350. pTDefRegMap(@Self)^.&set := $00020000;
  35351. end;
  35352. procedure TSPI1_SPI1CON.clearSPIFE; inline;
  35353. begin
  35354. pTDefRegMap(@Self)^.clr := $00020000;
  35355. end;
  35356. procedure TSPI1_SPI1CON.setSPIFE(thebits : TBits_1); inline;
  35357. begin
  35358. if thebits = 0 then
  35359. pTDefRegMap(@Self)^.clr := $00020000
  35360. else
  35361. pTDefRegMap(@Self)^.&set := $00020000;
  35362. end;
  35363. function TSPI1_SPI1CON.getSPIFE : TBits_1; inline;
  35364. begin
  35365. getSPIFE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  35366. end;
  35367. procedure TSPI1_SPI1CON.setFRMCNT(thebits : TBits_3); inline;
  35368. begin
  35369. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $F8FFFFFF or ( thebits shl 24 );
  35370. end;
  35371. function TSPI1_SPI1CON.getFRMCNT : TBits_3; inline;
  35372. begin
  35373. getFRMCNT := (pTDefRegMap(@Self)^.val and $07000000) shr 24;
  35374. end;
  35375. procedure TSPI1_SPI1CON.setFRMSYPW; inline;
  35376. begin
  35377. pTDefRegMap(@Self)^.&set := $08000000;
  35378. end;
  35379. procedure TSPI1_SPI1CON.clearFRMSYPW; inline;
  35380. begin
  35381. pTDefRegMap(@Self)^.clr := $08000000;
  35382. end;
  35383. procedure TSPI1_SPI1CON.setFRMSYPW(thebits : TBits_1); inline;
  35384. begin
  35385. if thebits = 0 then
  35386. pTDefRegMap(@Self)^.clr := $08000000
  35387. else
  35388. pTDefRegMap(@Self)^.&set := $08000000;
  35389. end;
  35390. function TSPI1_SPI1CON.getFRMSYPW : TBits_1; inline;
  35391. begin
  35392. getFRMSYPW := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  35393. end;
  35394. procedure TSPI1_SPI1CON.setMSSEN; inline;
  35395. begin
  35396. pTDefRegMap(@Self)^.&set := $10000000;
  35397. end;
  35398. procedure TSPI1_SPI1CON.clearMSSEN; inline;
  35399. begin
  35400. pTDefRegMap(@Self)^.clr := $10000000;
  35401. end;
  35402. procedure TSPI1_SPI1CON.setMSSEN(thebits : TBits_1); inline;
  35403. begin
  35404. if thebits = 0 then
  35405. pTDefRegMap(@Self)^.clr := $10000000
  35406. else
  35407. pTDefRegMap(@Self)^.&set := $10000000;
  35408. end;
  35409. function TSPI1_SPI1CON.getMSSEN : TBits_1; inline;
  35410. begin
  35411. getMSSEN := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  35412. end;
  35413. procedure TSPI1_SPI1CON.setFRMPOL; inline;
  35414. begin
  35415. pTDefRegMap(@Self)^.&set := $20000000;
  35416. end;
  35417. procedure TSPI1_SPI1CON.clearFRMPOL; inline;
  35418. begin
  35419. pTDefRegMap(@Self)^.clr := $20000000;
  35420. end;
  35421. procedure TSPI1_SPI1CON.setFRMPOL(thebits : TBits_1); inline;
  35422. begin
  35423. if thebits = 0 then
  35424. pTDefRegMap(@Self)^.clr := $20000000
  35425. else
  35426. pTDefRegMap(@Self)^.&set := $20000000;
  35427. end;
  35428. function TSPI1_SPI1CON.getFRMPOL : TBits_1; inline;
  35429. begin
  35430. getFRMPOL := (pTDefRegMap(@Self)^.val and $20000000) shr 29;
  35431. end;
  35432. procedure TSPI1_SPI1CON.setFRMSYNC; inline;
  35433. begin
  35434. pTDefRegMap(@Self)^.&set := $40000000;
  35435. end;
  35436. procedure TSPI1_SPI1CON.clearFRMSYNC; inline;
  35437. begin
  35438. pTDefRegMap(@Self)^.clr := $40000000;
  35439. end;
  35440. procedure TSPI1_SPI1CON.setFRMSYNC(thebits : TBits_1); inline;
  35441. begin
  35442. if thebits = 0 then
  35443. pTDefRegMap(@Self)^.clr := $40000000
  35444. else
  35445. pTDefRegMap(@Self)^.&set := $40000000;
  35446. end;
  35447. function TSPI1_SPI1CON.getFRMSYNC : TBits_1; inline;
  35448. begin
  35449. getFRMSYNC := (pTDefRegMap(@Self)^.val and $40000000) shr 30;
  35450. end;
  35451. procedure TSPI1_SPI1CON.setFRMEN; inline;
  35452. begin
  35453. pTDefRegMap(@Self)^.&set := $80000000;
  35454. end;
  35455. procedure TSPI1_SPI1CON.clearFRMEN; inline;
  35456. begin
  35457. pTDefRegMap(@Self)^.clr := $80000000;
  35458. end;
  35459. procedure TSPI1_SPI1CON.setFRMEN(thebits : TBits_1); inline;
  35460. begin
  35461. if thebits = 0 then
  35462. pTDefRegMap(@Self)^.clr := $80000000
  35463. else
  35464. pTDefRegMap(@Self)^.&set := $80000000;
  35465. end;
  35466. function TSPI1_SPI1CON.getFRMEN : TBits_1; inline;
  35467. begin
  35468. getFRMEN := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  35469. end;
  35470. procedure TSPI1_SPI1CON.setw(thebits : TBits_32); inline;
  35471. begin
  35472. pTDefRegMap(@Self)^.val := thebits;
  35473. end;
  35474. function TSPI1_SPI1CON.getw : TBits_32; inline;
  35475. begin
  35476. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  35477. end;
  35478. procedure TSPI1_SPI1STAT.setSPIRBF; inline;
  35479. begin
  35480. pTDefRegMap(@Self)^.&set := $00000001;
  35481. end;
  35482. procedure TSPI1_SPI1STAT.clearSPIRBF; inline;
  35483. begin
  35484. pTDefRegMap(@Self)^.clr := $00000001;
  35485. end;
  35486. procedure TSPI1_SPI1STAT.setSPIRBF(thebits : TBits_1); inline;
  35487. begin
  35488. if thebits = 0 then
  35489. pTDefRegMap(@Self)^.clr := $00000001
  35490. else
  35491. pTDefRegMap(@Self)^.&set := $00000001;
  35492. end;
  35493. function TSPI1_SPI1STAT.getSPIRBF : TBits_1; inline;
  35494. begin
  35495. getSPIRBF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  35496. end;
  35497. procedure TSPI1_SPI1STAT.setSPITBF; inline;
  35498. begin
  35499. pTDefRegMap(@Self)^.&set := $00000002;
  35500. end;
  35501. procedure TSPI1_SPI1STAT.clearSPITBF; inline;
  35502. begin
  35503. pTDefRegMap(@Self)^.clr := $00000002;
  35504. end;
  35505. procedure TSPI1_SPI1STAT.setSPITBF(thebits : TBits_1); inline;
  35506. begin
  35507. if thebits = 0 then
  35508. pTDefRegMap(@Self)^.clr := $00000002
  35509. else
  35510. pTDefRegMap(@Self)^.&set := $00000002;
  35511. end;
  35512. function TSPI1_SPI1STAT.getSPITBF : TBits_1; inline;
  35513. begin
  35514. getSPITBF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  35515. end;
  35516. procedure TSPI1_SPI1STAT.setSPITBE; inline;
  35517. begin
  35518. pTDefRegMap(@Self)^.&set := $00000008;
  35519. end;
  35520. procedure TSPI1_SPI1STAT.clearSPITBE; inline;
  35521. begin
  35522. pTDefRegMap(@Self)^.clr := $00000008;
  35523. end;
  35524. procedure TSPI1_SPI1STAT.setSPITBE(thebits : TBits_1); inline;
  35525. begin
  35526. if thebits = 0 then
  35527. pTDefRegMap(@Self)^.clr := $00000008
  35528. else
  35529. pTDefRegMap(@Self)^.&set := $00000008;
  35530. end;
  35531. function TSPI1_SPI1STAT.getSPITBE : TBits_1; inline;
  35532. begin
  35533. getSPITBE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  35534. end;
  35535. procedure TSPI1_SPI1STAT.setSPIRBE; inline;
  35536. begin
  35537. pTDefRegMap(@Self)^.&set := $00000020;
  35538. end;
  35539. procedure TSPI1_SPI1STAT.clearSPIRBE; inline;
  35540. begin
  35541. pTDefRegMap(@Self)^.clr := $00000020;
  35542. end;
  35543. procedure TSPI1_SPI1STAT.setSPIRBE(thebits : TBits_1); inline;
  35544. begin
  35545. if thebits = 0 then
  35546. pTDefRegMap(@Self)^.clr := $00000020
  35547. else
  35548. pTDefRegMap(@Self)^.&set := $00000020;
  35549. end;
  35550. function TSPI1_SPI1STAT.getSPIRBE : TBits_1; inline;
  35551. begin
  35552. getSPIRBE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  35553. end;
  35554. procedure TSPI1_SPI1STAT.setSPIROV; inline;
  35555. begin
  35556. pTDefRegMap(@Self)^.&set := $00000040;
  35557. end;
  35558. procedure TSPI1_SPI1STAT.clearSPIROV; inline;
  35559. begin
  35560. pTDefRegMap(@Self)^.clr := $00000040;
  35561. end;
  35562. procedure TSPI1_SPI1STAT.setSPIROV(thebits : TBits_1); inline;
  35563. begin
  35564. if thebits = 0 then
  35565. pTDefRegMap(@Self)^.clr := $00000040
  35566. else
  35567. pTDefRegMap(@Self)^.&set := $00000040;
  35568. end;
  35569. function TSPI1_SPI1STAT.getSPIROV : TBits_1; inline;
  35570. begin
  35571. getSPIROV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  35572. end;
  35573. procedure TSPI1_SPI1STAT.setSRMT; inline;
  35574. begin
  35575. pTDefRegMap(@Self)^.&set := $00000080;
  35576. end;
  35577. procedure TSPI1_SPI1STAT.clearSRMT; inline;
  35578. begin
  35579. pTDefRegMap(@Self)^.clr := $00000080;
  35580. end;
  35581. procedure TSPI1_SPI1STAT.setSRMT(thebits : TBits_1); inline;
  35582. begin
  35583. if thebits = 0 then
  35584. pTDefRegMap(@Self)^.clr := $00000080
  35585. else
  35586. pTDefRegMap(@Self)^.&set := $00000080;
  35587. end;
  35588. function TSPI1_SPI1STAT.getSRMT : TBits_1; inline;
  35589. begin
  35590. getSRMT := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  35591. end;
  35592. procedure TSPI1_SPI1STAT.setSPITUR; inline;
  35593. begin
  35594. pTDefRegMap(@Self)^.&set := $00000100;
  35595. end;
  35596. procedure TSPI1_SPI1STAT.clearSPITUR; inline;
  35597. begin
  35598. pTDefRegMap(@Self)^.clr := $00000100;
  35599. end;
  35600. procedure TSPI1_SPI1STAT.setSPITUR(thebits : TBits_1); inline;
  35601. begin
  35602. if thebits = 0 then
  35603. pTDefRegMap(@Self)^.clr := $00000100
  35604. else
  35605. pTDefRegMap(@Self)^.&set := $00000100;
  35606. end;
  35607. function TSPI1_SPI1STAT.getSPITUR : TBits_1; inline;
  35608. begin
  35609. getSPITUR := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  35610. end;
  35611. procedure TSPI1_SPI1STAT.setSPIBUSY; inline;
  35612. begin
  35613. pTDefRegMap(@Self)^.&set := $00000800;
  35614. end;
  35615. procedure TSPI1_SPI1STAT.clearSPIBUSY; inline;
  35616. begin
  35617. pTDefRegMap(@Self)^.clr := $00000800;
  35618. end;
  35619. procedure TSPI1_SPI1STAT.setSPIBUSY(thebits : TBits_1); inline;
  35620. begin
  35621. if thebits = 0 then
  35622. pTDefRegMap(@Self)^.clr := $00000800
  35623. else
  35624. pTDefRegMap(@Self)^.&set := $00000800;
  35625. end;
  35626. function TSPI1_SPI1STAT.getSPIBUSY : TBits_1; inline;
  35627. begin
  35628. getSPIBUSY := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  35629. end;
  35630. procedure TSPI1_SPI1STAT.setTXBUFELM(thebits : TBits_5); inline;
  35631. begin
  35632. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  35633. end;
  35634. function TSPI1_SPI1STAT.getTXBUFELM : TBits_5; inline;
  35635. begin
  35636. getTXBUFELM := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  35637. end;
  35638. procedure TSPI1_SPI1STAT.setRXBUFELM(thebits : TBits_5); inline;
  35639. begin
  35640. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E0FFFFFF or ( thebits shl 24 );
  35641. end;
  35642. function TSPI1_SPI1STAT.getRXBUFELM : TBits_5; inline;
  35643. begin
  35644. getRXBUFELM := (pTDefRegMap(@Self)^.val and $1F000000) shr 24;
  35645. end;
  35646. procedure TSPI1_SPI1STAT.setw(thebits : TBits_32); inline;
  35647. begin
  35648. pTDefRegMap(@Self)^.val := thebits;
  35649. end;
  35650. function TSPI1_SPI1STAT.getw : TBits_32; inline;
  35651. begin
  35652. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  35653. end;
  35654. procedure TUART1A_U1AMODE.setSTSEL; inline;
  35655. begin
  35656. pTDefRegMap(@Self)^.&set := $00000001;
  35657. end;
  35658. procedure TUART1A_U1AMODE.clearSTSEL; inline;
  35659. begin
  35660. pTDefRegMap(@Self)^.clr := $00000001;
  35661. end;
  35662. procedure TUART1A_U1AMODE.setSTSEL(thebits : TBits_1); inline;
  35663. begin
  35664. if thebits = 0 then
  35665. pTDefRegMap(@Self)^.clr := $00000001
  35666. else
  35667. pTDefRegMap(@Self)^.&set := $00000001;
  35668. end;
  35669. function TUART1A_U1AMODE.getSTSEL : TBits_1; inline;
  35670. begin
  35671. getSTSEL := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  35672. end;
  35673. procedure TUART1A_U1AMODE.setPDSEL(thebits : TBits_2); inline;
  35674. begin
  35675. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF9 or ( thebits shl 1 );
  35676. end;
  35677. function TUART1A_U1AMODE.getPDSEL : TBits_2; inline;
  35678. begin
  35679. getPDSEL := (pTDefRegMap(@Self)^.val and $00000006) shr 1;
  35680. end;
  35681. procedure TUART1A_U1AMODE.setBRGH; inline;
  35682. begin
  35683. pTDefRegMap(@Self)^.&set := $00000008;
  35684. end;
  35685. procedure TUART1A_U1AMODE.clearBRGH; inline;
  35686. begin
  35687. pTDefRegMap(@Self)^.clr := $00000008;
  35688. end;
  35689. procedure TUART1A_U1AMODE.setBRGH(thebits : TBits_1); inline;
  35690. begin
  35691. if thebits = 0 then
  35692. pTDefRegMap(@Self)^.clr := $00000008
  35693. else
  35694. pTDefRegMap(@Self)^.&set := $00000008;
  35695. end;
  35696. function TUART1A_U1AMODE.getBRGH : TBits_1; inline;
  35697. begin
  35698. getBRGH := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  35699. end;
  35700. procedure TUART1A_U1AMODE.setRXINV; inline;
  35701. begin
  35702. pTDefRegMap(@Self)^.&set := $00000010;
  35703. end;
  35704. procedure TUART1A_U1AMODE.clearRXINV; inline;
  35705. begin
  35706. pTDefRegMap(@Self)^.clr := $00000010;
  35707. end;
  35708. procedure TUART1A_U1AMODE.setRXINV(thebits : TBits_1); inline;
  35709. begin
  35710. if thebits = 0 then
  35711. pTDefRegMap(@Self)^.clr := $00000010
  35712. else
  35713. pTDefRegMap(@Self)^.&set := $00000010;
  35714. end;
  35715. function TUART1A_U1AMODE.getRXINV : TBits_1; inline;
  35716. begin
  35717. getRXINV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  35718. end;
  35719. procedure TUART1A_U1AMODE.setABAUD; inline;
  35720. begin
  35721. pTDefRegMap(@Self)^.&set := $00000020;
  35722. end;
  35723. procedure TUART1A_U1AMODE.clearABAUD; inline;
  35724. begin
  35725. pTDefRegMap(@Self)^.clr := $00000020;
  35726. end;
  35727. procedure TUART1A_U1AMODE.setABAUD(thebits : TBits_1); inline;
  35728. begin
  35729. if thebits = 0 then
  35730. pTDefRegMap(@Self)^.clr := $00000020
  35731. else
  35732. pTDefRegMap(@Self)^.&set := $00000020;
  35733. end;
  35734. function TUART1A_U1AMODE.getABAUD : TBits_1; inline;
  35735. begin
  35736. getABAUD := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  35737. end;
  35738. procedure TUART1A_U1AMODE.setLPBACK; inline;
  35739. begin
  35740. pTDefRegMap(@Self)^.&set := $00000040;
  35741. end;
  35742. procedure TUART1A_U1AMODE.clearLPBACK; inline;
  35743. begin
  35744. pTDefRegMap(@Self)^.clr := $00000040;
  35745. end;
  35746. procedure TUART1A_U1AMODE.setLPBACK(thebits : TBits_1); inline;
  35747. begin
  35748. if thebits = 0 then
  35749. pTDefRegMap(@Self)^.clr := $00000040
  35750. else
  35751. pTDefRegMap(@Self)^.&set := $00000040;
  35752. end;
  35753. function TUART1A_U1AMODE.getLPBACK : TBits_1; inline;
  35754. begin
  35755. getLPBACK := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  35756. end;
  35757. procedure TUART1A_U1AMODE.setWAKE; inline;
  35758. begin
  35759. pTDefRegMap(@Self)^.&set := $00000080;
  35760. end;
  35761. procedure TUART1A_U1AMODE.clearWAKE; inline;
  35762. begin
  35763. pTDefRegMap(@Self)^.clr := $00000080;
  35764. end;
  35765. procedure TUART1A_U1AMODE.setWAKE(thebits : TBits_1); inline;
  35766. begin
  35767. if thebits = 0 then
  35768. pTDefRegMap(@Self)^.clr := $00000080
  35769. else
  35770. pTDefRegMap(@Self)^.&set := $00000080;
  35771. end;
  35772. function TUART1A_U1AMODE.getWAKE : TBits_1; inline;
  35773. begin
  35774. getWAKE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  35775. end;
  35776. procedure TUART1A_U1AMODE.setUEN(thebits : TBits_2); inline;
  35777. begin
  35778. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  35779. end;
  35780. function TUART1A_U1AMODE.getUEN : TBits_2; inline;
  35781. begin
  35782. getUEN := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  35783. end;
  35784. procedure TUART1A_U1AMODE.setRTSMD; inline;
  35785. begin
  35786. pTDefRegMap(@Self)^.&set := $00000800;
  35787. end;
  35788. procedure TUART1A_U1AMODE.clearRTSMD; inline;
  35789. begin
  35790. pTDefRegMap(@Self)^.clr := $00000800;
  35791. end;
  35792. procedure TUART1A_U1AMODE.setRTSMD(thebits : TBits_1); inline;
  35793. begin
  35794. if thebits = 0 then
  35795. pTDefRegMap(@Self)^.clr := $00000800
  35796. else
  35797. pTDefRegMap(@Self)^.&set := $00000800;
  35798. end;
  35799. function TUART1A_U1AMODE.getRTSMD : TBits_1; inline;
  35800. begin
  35801. getRTSMD := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  35802. end;
  35803. procedure TUART1A_U1AMODE.setIREN; inline;
  35804. begin
  35805. pTDefRegMap(@Self)^.&set := $00001000;
  35806. end;
  35807. procedure TUART1A_U1AMODE.clearIREN; inline;
  35808. begin
  35809. pTDefRegMap(@Self)^.clr := $00001000;
  35810. end;
  35811. procedure TUART1A_U1AMODE.setIREN(thebits : TBits_1); inline;
  35812. begin
  35813. if thebits = 0 then
  35814. pTDefRegMap(@Self)^.clr := $00001000
  35815. else
  35816. pTDefRegMap(@Self)^.&set := $00001000;
  35817. end;
  35818. function TUART1A_U1AMODE.getIREN : TBits_1; inline;
  35819. begin
  35820. getIREN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  35821. end;
  35822. procedure TUART1A_U1AMODE.setSIDL; inline;
  35823. begin
  35824. pTDefRegMap(@Self)^.&set := $00002000;
  35825. end;
  35826. procedure TUART1A_U1AMODE.clearSIDL; inline;
  35827. begin
  35828. pTDefRegMap(@Self)^.clr := $00002000;
  35829. end;
  35830. procedure TUART1A_U1AMODE.setSIDL(thebits : TBits_1); inline;
  35831. begin
  35832. if thebits = 0 then
  35833. pTDefRegMap(@Self)^.clr := $00002000
  35834. else
  35835. pTDefRegMap(@Self)^.&set := $00002000;
  35836. end;
  35837. function TUART1A_U1AMODE.getSIDL : TBits_1; inline;
  35838. begin
  35839. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  35840. end;
  35841. procedure TUART1A_U1AMODE.setON; inline;
  35842. begin
  35843. pTDefRegMap(@Self)^.&set := $00008000;
  35844. end;
  35845. procedure TUART1A_U1AMODE.clearON; inline;
  35846. begin
  35847. pTDefRegMap(@Self)^.clr := $00008000;
  35848. end;
  35849. procedure TUART1A_U1AMODE.setON(thebits : TBits_1); inline;
  35850. begin
  35851. if thebits = 0 then
  35852. pTDefRegMap(@Self)^.clr := $00008000
  35853. else
  35854. pTDefRegMap(@Self)^.&set := $00008000;
  35855. end;
  35856. function TUART1A_U1AMODE.getON : TBits_1; inline;
  35857. begin
  35858. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  35859. end;
  35860. procedure TUART1A_U1AMODE.setPDSEL0; inline;
  35861. begin
  35862. pTDefRegMap(@Self)^.&set := $00000002;
  35863. end;
  35864. procedure TUART1A_U1AMODE.clearPDSEL0; inline;
  35865. begin
  35866. pTDefRegMap(@Self)^.clr := $00000002;
  35867. end;
  35868. procedure TUART1A_U1AMODE.setPDSEL0(thebits : TBits_1); inline;
  35869. begin
  35870. if thebits = 0 then
  35871. pTDefRegMap(@Self)^.clr := $00000002
  35872. else
  35873. pTDefRegMap(@Self)^.&set := $00000002;
  35874. end;
  35875. function TUART1A_U1AMODE.getPDSEL0 : TBits_1; inline;
  35876. begin
  35877. getPDSEL0 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  35878. end;
  35879. procedure TUART1A_U1AMODE.setPDSEL1; inline;
  35880. begin
  35881. pTDefRegMap(@Self)^.&set := $00000004;
  35882. end;
  35883. procedure TUART1A_U1AMODE.clearPDSEL1; inline;
  35884. begin
  35885. pTDefRegMap(@Self)^.clr := $00000004;
  35886. end;
  35887. procedure TUART1A_U1AMODE.setPDSEL1(thebits : TBits_1); inline;
  35888. begin
  35889. if thebits = 0 then
  35890. pTDefRegMap(@Self)^.clr := $00000004
  35891. else
  35892. pTDefRegMap(@Self)^.&set := $00000004;
  35893. end;
  35894. function TUART1A_U1AMODE.getPDSEL1 : TBits_1; inline;
  35895. begin
  35896. getPDSEL1 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  35897. end;
  35898. procedure TUART1A_U1AMODE.setUEN0; inline;
  35899. begin
  35900. pTDefRegMap(@Self)^.&set := $00000100;
  35901. end;
  35902. procedure TUART1A_U1AMODE.clearUEN0; inline;
  35903. begin
  35904. pTDefRegMap(@Self)^.clr := $00000100;
  35905. end;
  35906. procedure TUART1A_U1AMODE.setUEN0(thebits : TBits_1); inline;
  35907. begin
  35908. if thebits = 0 then
  35909. pTDefRegMap(@Self)^.clr := $00000100
  35910. else
  35911. pTDefRegMap(@Self)^.&set := $00000100;
  35912. end;
  35913. function TUART1A_U1AMODE.getUEN0 : TBits_1; inline;
  35914. begin
  35915. getUEN0 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  35916. end;
  35917. procedure TUART1A_U1AMODE.setUEN1; inline;
  35918. begin
  35919. pTDefRegMap(@Self)^.&set := $00000200;
  35920. end;
  35921. procedure TUART1A_U1AMODE.clearUEN1; inline;
  35922. begin
  35923. pTDefRegMap(@Self)^.clr := $00000200;
  35924. end;
  35925. procedure TUART1A_U1AMODE.setUEN1(thebits : TBits_1); inline;
  35926. begin
  35927. if thebits = 0 then
  35928. pTDefRegMap(@Self)^.clr := $00000200
  35929. else
  35930. pTDefRegMap(@Self)^.&set := $00000200;
  35931. end;
  35932. function TUART1A_U1AMODE.getUEN1 : TBits_1; inline;
  35933. begin
  35934. getUEN1 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  35935. end;
  35936. procedure TUART1A_U1AMODE.setUSIDL; inline;
  35937. begin
  35938. pTDefRegMap(@Self)^.&set := $00002000;
  35939. end;
  35940. procedure TUART1A_U1AMODE.clearUSIDL; inline;
  35941. begin
  35942. pTDefRegMap(@Self)^.clr := $00002000;
  35943. end;
  35944. procedure TUART1A_U1AMODE.setUSIDL(thebits : TBits_1); inline;
  35945. begin
  35946. if thebits = 0 then
  35947. pTDefRegMap(@Self)^.clr := $00002000
  35948. else
  35949. pTDefRegMap(@Self)^.&set := $00002000;
  35950. end;
  35951. function TUART1A_U1AMODE.getUSIDL : TBits_1; inline;
  35952. begin
  35953. getUSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  35954. end;
  35955. procedure TUART1A_U1AMODE.setUARTEN; inline;
  35956. begin
  35957. pTDefRegMap(@Self)^.&set := $00008000;
  35958. end;
  35959. procedure TUART1A_U1AMODE.clearUARTEN; inline;
  35960. begin
  35961. pTDefRegMap(@Self)^.clr := $00008000;
  35962. end;
  35963. procedure TUART1A_U1AMODE.setUARTEN(thebits : TBits_1); inline;
  35964. begin
  35965. if thebits = 0 then
  35966. pTDefRegMap(@Self)^.clr := $00008000
  35967. else
  35968. pTDefRegMap(@Self)^.&set := $00008000;
  35969. end;
  35970. function TUART1A_U1AMODE.getUARTEN : TBits_1; inline;
  35971. begin
  35972. getUARTEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  35973. end;
  35974. procedure TUART1A_U1AMODE.setw(thebits : TBits_32); inline;
  35975. begin
  35976. pTDefRegMap(@Self)^.val := thebits;
  35977. end;
  35978. function TUART1A_U1AMODE.getw : TBits_32; inline;
  35979. begin
  35980. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  35981. end;
  35982. procedure TUART1A_U1MODE.setSTSEL; inline;
  35983. begin
  35984. pTDefRegMap(@Self)^.&set := $00000001;
  35985. end;
  35986. procedure TUART1A_U1MODE.clearSTSEL; inline;
  35987. begin
  35988. pTDefRegMap(@Self)^.clr := $00000001;
  35989. end;
  35990. procedure TUART1A_U1MODE.setSTSEL(thebits : TBits_1); inline;
  35991. begin
  35992. if thebits = 0 then
  35993. pTDefRegMap(@Self)^.clr := $00000001
  35994. else
  35995. pTDefRegMap(@Self)^.&set := $00000001;
  35996. end;
  35997. function TUART1A_U1MODE.getSTSEL : TBits_1; inline;
  35998. begin
  35999. getSTSEL := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  36000. end;
  36001. procedure TUART1A_U1MODE.setPDSEL(thebits : TBits_2); inline;
  36002. begin
  36003. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF9 or ( thebits shl 1 );
  36004. end;
  36005. function TUART1A_U1MODE.getPDSEL : TBits_2; inline;
  36006. begin
  36007. getPDSEL := (pTDefRegMap(@Self)^.val and $00000006) shr 1;
  36008. end;
  36009. procedure TUART1A_U1MODE.setBRGH; inline;
  36010. begin
  36011. pTDefRegMap(@Self)^.&set := $00000008;
  36012. end;
  36013. procedure TUART1A_U1MODE.clearBRGH; inline;
  36014. begin
  36015. pTDefRegMap(@Self)^.clr := $00000008;
  36016. end;
  36017. procedure TUART1A_U1MODE.setBRGH(thebits : TBits_1); inline;
  36018. begin
  36019. if thebits = 0 then
  36020. pTDefRegMap(@Self)^.clr := $00000008
  36021. else
  36022. pTDefRegMap(@Self)^.&set := $00000008;
  36023. end;
  36024. function TUART1A_U1MODE.getBRGH : TBits_1; inline;
  36025. begin
  36026. getBRGH := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  36027. end;
  36028. procedure TUART1A_U1MODE.setRXINV; inline;
  36029. begin
  36030. pTDefRegMap(@Self)^.&set := $00000010;
  36031. end;
  36032. procedure TUART1A_U1MODE.clearRXINV; inline;
  36033. begin
  36034. pTDefRegMap(@Self)^.clr := $00000010;
  36035. end;
  36036. procedure TUART1A_U1MODE.setRXINV(thebits : TBits_1); inline;
  36037. begin
  36038. if thebits = 0 then
  36039. pTDefRegMap(@Self)^.clr := $00000010
  36040. else
  36041. pTDefRegMap(@Self)^.&set := $00000010;
  36042. end;
  36043. function TUART1A_U1MODE.getRXINV : TBits_1; inline;
  36044. begin
  36045. getRXINV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  36046. end;
  36047. procedure TUART1A_U1MODE.setABAUD; inline;
  36048. begin
  36049. pTDefRegMap(@Self)^.&set := $00000020;
  36050. end;
  36051. procedure TUART1A_U1MODE.clearABAUD; inline;
  36052. begin
  36053. pTDefRegMap(@Self)^.clr := $00000020;
  36054. end;
  36055. procedure TUART1A_U1MODE.setABAUD(thebits : TBits_1); inline;
  36056. begin
  36057. if thebits = 0 then
  36058. pTDefRegMap(@Self)^.clr := $00000020
  36059. else
  36060. pTDefRegMap(@Self)^.&set := $00000020;
  36061. end;
  36062. function TUART1A_U1MODE.getABAUD : TBits_1; inline;
  36063. begin
  36064. getABAUD := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  36065. end;
  36066. procedure TUART1A_U1MODE.setLPBACK; inline;
  36067. begin
  36068. pTDefRegMap(@Self)^.&set := $00000040;
  36069. end;
  36070. procedure TUART1A_U1MODE.clearLPBACK; inline;
  36071. begin
  36072. pTDefRegMap(@Self)^.clr := $00000040;
  36073. end;
  36074. procedure TUART1A_U1MODE.setLPBACK(thebits : TBits_1); inline;
  36075. begin
  36076. if thebits = 0 then
  36077. pTDefRegMap(@Self)^.clr := $00000040
  36078. else
  36079. pTDefRegMap(@Self)^.&set := $00000040;
  36080. end;
  36081. function TUART1A_U1MODE.getLPBACK : TBits_1; inline;
  36082. begin
  36083. getLPBACK := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  36084. end;
  36085. procedure TUART1A_U1MODE.setWAKE; inline;
  36086. begin
  36087. pTDefRegMap(@Self)^.&set := $00000080;
  36088. end;
  36089. procedure TUART1A_U1MODE.clearWAKE; inline;
  36090. begin
  36091. pTDefRegMap(@Self)^.clr := $00000080;
  36092. end;
  36093. procedure TUART1A_U1MODE.setWAKE(thebits : TBits_1); inline;
  36094. begin
  36095. if thebits = 0 then
  36096. pTDefRegMap(@Self)^.clr := $00000080
  36097. else
  36098. pTDefRegMap(@Self)^.&set := $00000080;
  36099. end;
  36100. function TUART1A_U1MODE.getWAKE : TBits_1; inline;
  36101. begin
  36102. getWAKE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  36103. end;
  36104. procedure TUART1A_U1MODE.setUEN(thebits : TBits_2); inline;
  36105. begin
  36106. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  36107. end;
  36108. function TUART1A_U1MODE.getUEN : TBits_2; inline;
  36109. begin
  36110. getUEN := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  36111. end;
  36112. procedure TUART1A_U1MODE.setRTSMD; inline;
  36113. begin
  36114. pTDefRegMap(@Self)^.&set := $00000800;
  36115. end;
  36116. procedure TUART1A_U1MODE.clearRTSMD; inline;
  36117. begin
  36118. pTDefRegMap(@Self)^.clr := $00000800;
  36119. end;
  36120. procedure TUART1A_U1MODE.setRTSMD(thebits : TBits_1); inline;
  36121. begin
  36122. if thebits = 0 then
  36123. pTDefRegMap(@Self)^.clr := $00000800
  36124. else
  36125. pTDefRegMap(@Self)^.&set := $00000800;
  36126. end;
  36127. function TUART1A_U1MODE.getRTSMD : TBits_1; inline;
  36128. begin
  36129. getRTSMD := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  36130. end;
  36131. procedure TUART1A_U1MODE.setIREN; inline;
  36132. begin
  36133. pTDefRegMap(@Self)^.&set := $00001000;
  36134. end;
  36135. procedure TUART1A_U1MODE.clearIREN; inline;
  36136. begin
  36137. pTDefRegMap(@Self)^.clr := $00001000;
  36138. end;
  36139. procedure TUART1A_U1MODE.setIREN(thebits : TBits_1); inline;
  36140. begin
  36141. if thebits = 0 then
  36142. pTDefRegMap(@Self)^.clr := $00001000
  36143. else
  36144. pTDefRegMap(@Self)^.&set := $00001000;
  36145. end;
  36146. function TUART1A_U1MODE.getIREN : TBits_1; inline;
  36147. begin
  36148. getIREN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  36149. end;
  36150. procedure TUART1A_U1MODE.setSIDL; inline;
  36151. begin
  36152. pTDefRegMap(@Self)^.&set := $00002000;
  36153. end;
  36154. procedure TUART1A_U1MODE.clearSIDL; inline;
  36155. begin
  36156. pTDefRegMap(@Self)^.clr := $00002000;
  36157. end;
  36158. procedure TUART1A_U1MODE.setSIDL(thebits : TBits_1); inline;
  36159. begin
  36160. if thebits = 0 then
  36161. pTDefRegMap(@Self)^.clr := $00002000
  36162. else
  36163. pTDefRegMap(@Self)^.&set := $00002000;
  36164. end;
  36165. function TUART1A_U1MODE.getSIDL : TBits_1; inline;
  36166. begin
  36167. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  36168. end;
  36169. procedure TUART1A_U1MODE.setON; inline;
  36170. begin
  36171. pTDefRegMap(@Self)^.&set := $00008000;
  36172. end;
  36173. procedure TUART1A_U1MODE.clearON; inline;
  36174. begin
  36175. pTDefRegMap(@Self)^.clr := $00008000;
  36176. end;
  36177. procedure TUART1A_U1MODE.setON(thebits : TBits_1); inline;
  36178. begin
  36179. if thebits = 0 then
  36180. pTDefRegMap(@Self)^.clr := $00008000
  36181. else
  36182. pTDefRegMap(@Self)^.&set := $00008000;
  36183. end;
  36184. function TUART1A_U1MODE.getON : TBits_1; inline;
  36185. begin
  36186. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  36187. end;
  36188. procedure TUART1A_U1MODE.setPDSEL0; inline;
  36189. begin
  36190. pTDefRegMap(@Self)^.&set := $00000002;
  36191. end;
  36192. procedure TUART1A_U1MODE.clearPDSEL0; inline;
  36193. begin
  36194. pTDefRegMap(@Self)^.clr := $00000002;
  36195. end;
  36196. procedure TUART1A_U1MODE.setPDSEL0(thebits : TBits_1); inline;
  36197. begin
  36198. if thebits = 0 then
  36199. pTDefRegMap(@Self)^.clr := $00000002
  36200. else
  36201. pTDefRegMap(@Self)^.&set := $00000002;
  36202. end;
  36203. function TUART1A_U1MODE.getPDSEL0 : TBits_1; inline;
  36204. begin
  36205. getPDSEL0 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  36206. end;
  36207. procedure TUART1A_U1MODE.setPDSEL1; inline;
  36208. begin
  36209. pTDefRegMap(@Self)^.&set := $00000004;
  36210. end;
  36211. procedure TUART1A_U1MODE.clearPDSEL1; inline;
  36212. begin
  36213. pTDefRegMap(@Self)^.clr := $00000004;
  36214. end;
  36215. procedure TUART1A_U1MODE.setPDSEL1(thebits : TBits_1); inline;
  36216. begin
  36217. if thebits = 0 then
  36218. pTDefRegMap(@Self)^.clr := $00000004
  36219. else
  36220. pTDefRegMap(@Self)^.&set := $00000004;
  36221. end;
  36222. function TUART1A_U1MODE.getPDSEL1 : TBits_1; inline;
  36223. begin
  36224. getPDSEL1 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  36225. end;
  36226. procedure TUART1A_U1MODE.setUEN0; inline;
  36227. begin
  36228. pTDefRegMap(@Self)^.&set := $00000100;
  36229. end;
  36230. procedure TUART1A_U1MODE.clearUEN0; inline;
  36231. begin
  36232. pTDefRegMap(@Self)^.clr := $00000100;
  36233. end;
  36234. procedure TUART1A_U1MODE.setUEN0(thebits : TBits_1); inline;
  36235. begin
  36236. if thebits = 0 then
  36237. pTDefRegMap(@Self)^.clr := $00000100
  36238. else
  36239. pTDefRegMap(@Self)^.&set := $00000100;
  36240. end;
  36241. function TUART1A_U1MODE.getUEN0 : TBits_1; inline;
  36242. begin
  36243. getUEN0 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  36244. end;
  36245. procedure TUART1A_U1MODE.setUEN1; inline;
  36246. begin
  36247. pTDefRegMap(@Self)^.&set := $00000200;
  36248. end;
  36249. procedure TUART1A_U1MODE.clearUEN1; inline;
  36250. begin
  36251. pTDefRegMap(@Self)^.clr := $00000200;
  36252. end;
  36253. procedure TUART1A_U1MODE.setUEN1(thebits : TBits_1); inline;
  36254. begin
  36255. if thebits = 0 then
  36256. pTDefRegMap(@Self)^.clr := $00000200
  36257. else
  36258. pTDefRegMap(@Self)^.&set := $00000200;
  36259. end;
  36260. function TUART1A_U1MODE.getUEN1 : TBits_1; inline;
  36261. begin
  36262. getUEN1 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  36263. end;
  36264. procedure TUART1A_U1MODE.setUSIDL; inline;
  36265. begin
  36266. pTDefRegMap(@Self)^.&set := $00002000;
  36267. end;
  36268. procedure TUART1A_U1MODE.clearUSIDL; inline;
  36269. begin
  36270. pTDefRegMap(@Self)^.clr := $00002000;
  36271. end;
  36272. procedure TUART1A_U1MODE.setUSIDL(thebits : TBits_1); inline;
  36273. begin
  36274. if thebits = 0 then
  36275. pTDefRegMap(@Self)^.clr := $00002000
  36276. else
  36277. pTDefRegMap(@Self)^.&set := $00002000;
  36278. end;
  36279. function TUART1A_U1MODE.getUSIDL : TBits_1; inline;
  36280. begin
  36281. getUSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  36282. end;
  36283. procedure TUART1A_U1MODE.setUARTEN; inline;
  36284. begin
  36285. pTDefRegMap(@Self)^.&set := $00008000;
  36286. end;
  36287. procedure TUART1A_U1MODE.clearUARTEN; inline;
  36288. begin
  36289. pTDefRegMap(@Self)^.clr := $00008000;
  36290. end;
  36291. procedure TUART1A_U1MODE.setUARTEN(thebits : TBits_1); inline;
  36292. begin
  36293. if thebits = 0 then
  36294. pTDefRegMap(@Self)^.clr := $00008000
  36295. else
  36296. pTDefRegMap(@Self)^.&set := $00008000;
  36297. end;
  36298. function TUART1A_U1MODE.getUARTEN : TBits_1; inline;
  36299. begin
  36300. getUARTEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  36301. end;
  36302. procedure TUART1A_U1MODE.setw(thebits : TBits_32); inline;
  36303. begin
  36304. pTDefRegMap(@Self)^.val := thebits;
  36305. end;
  36306. function TUART1A_U1MODE.getw : TBits_32; inline;
  36307. begin
  36308. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  36309. end;
  36310. procedure TUART1A_U1ASTA.setURXDA; inline;
  36311. begin
  36312. pTDefRegMap(@Self)^.&set := $00000001;
  36313. end;
  36314. procedure TUART1A_U1ASTA.clearURXDA; inline;
  36315. begin
  36316. pTDefRegMap(@Self)^.clr := $00000001;
  36317. end;
  36318. procedure TUART1A_U1ASTA.setURXDA(thebits : TBits_1); inline;
  36319. begin
  36320. if thebits = 0 then
  36321. pTDefRegMap(@Self)^.clr := $00000001
  36322. else
  36323. pTDefRegMap(@Self)^.&set := $00000001;
  36324. end;
  36325. function TUART1A_U1ASTA.getURXDA : TBits_1; inline;
  36326. begin
  36327. getURXDA := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  36328. end;
  36329. procedure TUART1A_U1ASTA.setOERR; inline;
  36330. begin
  36331. pTDefRegMap(@Self)^.&set := $00000002;
  36332. end;
  36333. procedure TUART1A_U1ASTA.clearOERR; inline;
  36334. begin
  36335. pTDefRegMap(@Self)^.clr := $00000002;
  36336. end;
  36337. procedure TUART1A_U1ASTA.setOERR(thebits : TBits_1); inline;
  36338. begin
  36339. if thebits = 0 then
  36340. pTDefRegMap(@Self)^.clr := $00000002
  36341. else
  36342. pTDefRegMap(@Self)^.&set := $00000002;
  36343. end;
  36344. function TUART1A_U1ASTA.getOERR : TBits_1; inline;
  36345. begin
  36346. getOERR := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  36347. end;
  36348. procedure TUART1A_U1ASTA.setFERR; inline;
  36349. begin
  36350. pTDefRegMap(@Self)^.&set := $00000004;
  36351. end;
  36352. procedure TUART1A_U1ASTA.clearFERR; inline;
  36353. begin
  36354. pTDefRegMap(@Self)^.clr := $00000004;
  36355. end;
  36356. procedure TUART1A_U1ASTA.setFERR(thebits : TBits_1); inline;
  36357. begin
  36358. if thebits = 0 then
  36359. pTDefRegMap(@Self)^.clr := $00000004
  36360. else
  36361. pTDefRegMap(@Self)^.&set := $00000004;
  36362. end;
  36363. function TUART1A_U1ASTA.getFERR : TBits_1; inline;
  36364. begin
  36365. getFERR := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  36366. end;
  36367. procedure TUART1A_U1ASTA.setPERR; inline;
  36368. begin
  36369. pTDefRegMap(@Self)^.&set := $00000008;
  36370. end;
  36371. procedure TUART1A_U1ASTA.clearPERR; inline;
  36372. begin
  36373. pTDefRegMap(@Self)^.clr := $00000008;
  36374. end;
  36375. procedure TUART1A_U1ASTA.setPERR(thebits : TBits_1); inline;
  36376. begin
  36377. if thebits = 0 then
  36378. pTDefRegMap(@Self)^.clr := $00000008
  36379. else
  36380. pTDefRegMap(@Self)^.&set := $00000008;
  36381. end;
  36382. function TUART1A_U1ASTA.getPERR : TBits_1; inline;
  36383. begin
  36384. getPERR := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  36385. end;
  36386. procedure TUART1A_U1ASTA.setRIDLE; inline;
  36387. begin
  36388. pTDefRegMap(@Self)^.&set := $00000010;
  36389. end;
  36390. procedure TUART1A_U1ASTA.clearRIDLE; inline;
  36391. begin
  36392. pTDefRegMap(@Self)^.clr := $00000010;
  36393. end;
  36394. procedure TUART1A_U1ASTA.setRIDLE(thebits : TBits_1); inline;
  36395. begin
  36396. if thebits = 0 then
  36397. pTDefRegMap(@Self)^.clr := $00000010
  36398. else
  36399. pTDefRegMap(@Self)^.&set := $00000010;
  36400. end;
  36401. function TUART1A_U1ASTA.getRIDLE : TBits_1; inline;
  36402. begin
  36403. getRIDLE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  36404. end;
  36405. procedure TUART1A_U1ASTA.setADDEN; inline;
  36406. begin
  36407. pTDefRegMap(@Self)^.&set := $00000020;
  36408. end;
  36409. procedure TUART1A_U1ASTA.clearADDEN; inline;
  36410. begin
  36411. pTDefRegMap(@Self)^.clr := $00000020;
  36412. end;
  36413. procedure TUART1A_U1ASTA.setADDEN(thebits : TBits_1); inline;
  36414. begin
  36415. if thebits = 0 then
  36416. pTDefRegMap(@Self)^.clr := $00000020
  36417. else
  36418. pTDefRegMap(@Self)^.&set := $00000020;
  36419. end;
  36420. function TUART1A_U1ASTA.getADDEN : TBits_1; inline;
  36421. begin
  36422. getADDEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  36423. end;
  36424. procedure TUART1A_U1ASTA.setURXISEL(thebits : TBits_2); inline;
  36425. begin
  36426. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
  36427. end;
  36428. function TUART1A_U1ASTA.getURXISEL : TBits_2; inline;
  36429. begin
  36430. getURXISEL := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
  36431. end;
  36432. procedure TUART1A_U1ASTA.setTRMT; inline;
  36433. begin
  36434. pTDefRegMap(@Self)^.&set := $00000100;
  36435. end;
  36436. procedure TUART1A_U1ASTA.clearTRMT; inline;
  36437. begin
  36438. pTDefRegMap(@Self)^.clr := $00000100;
  36439. end;
  36440. procedure TUART1A_U1ASTA.setTRMT(thebits : TBits_1); inline;
  36441. begin
  36442. if thebits = 0 then
  36443. pTDefRegMap(@Self)^.clr := $00000100
  36444. else
  36445. pTDefRegMap(@Self)^.&set := $00000100;
  36446. end;
  36447. function TUART1A_U1ASTA.getTRMT : TBits_1; inline;
  36448. begin
  36449. getTRMT := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  36450. end;
  36451. procedure TUART1A_U1ASTA.setUTXBF; inline;
  36452. begin
  36453. pTDefRegMap(@Self)^.&set := $00000200;
  36454. end;
  36455. procedure TUART1A_U1ASTA.clearUTXBF; inline;
  36456. begin
  36457. pTDefRegMap(@Self)^.clr := $00000200;
  36458. end;
  36459. procedure TUART1A_U1ASTA.setUTXBF(thebits : TBits_1); inline;
  36460. begin
  36461. if thebits = 0 then
  36462. pTDefRegMap(@Self)^.clr := $00000200
  36463. else
  36464. pTDefRegMap(@Self)^.&set := $00000200;
  36465. end;
  36466. function TUART1A_U1ASTA.getUTXBF : TBits_1; inline;
  36467. begin
  36468. getUTXBF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  36469. end;
  36470. procedure TUART1A_U1ASTA.setUTXEN; inline;
  36471. begin
  36472. pTDefRegMap(@Self)^.&set := $00000400;
  36473. end;
  36474. procedure TUART1A_U1ASTA.clearUTXEN; inline;
  36475. begin
  36476. pTDefRegMap(@Self)^.clr := $00000400;
  36477. end;
  36478. procedure TUART1A_U1ASTA.setUTXEN(thebits : TBits_1); inline;
  36479. begin
  36480. if thebits = 0 then
  36481. pTDefRegMap(@Self)^.clr := $00000400
  36482. else
  36483. pTDefRegMap(@Self)^.&set := $00000400;
  36484. end;
  36485. function TUART1A_U1ASTA.getUTXEN : TBits_1; inline;
  36486. begin
  36487. getUTXEN := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  36488. end;
  36489. procedure TUART1A_U1ASTA.setUTXBRK; inline;
  36490. begin
  36491. pTDefRegMap(@Self)^.&set := $00000800;
  36492. end;
  36493. procedure TUART1A_U1ASTA.clearUTXBRK; inline;
  36494. begin
  36495. pTDefRegMap(@Self)^.clr := $00000800;
  36496. end;
  36497. procedure TUART1A_U1ASTA.setUTXBRK(thebits : TBits_1); inline;
  36498. begin
  36499. if thebits = 0 then
  36500. pTDefRegMap(@Self)^.clr := $00000800
  36501. else
  36502. pTDefRegMap(@Self)^.&set := $00000800;
  36503. end;
  36504. function TUART1A_U1ASTA.getUTXBRK : TBits_1; inline;
  36505. begin
  36506. getUTXBRK := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  36507. end;
  36508. procedure TUART1A_U1ASTA.setURXEN; inline;
  36509. begin
  36510. pTDefRegMap(@Self)^.&set := $00001000;
  36511. end;
  36512. procedure TUART1A_U1ASTA.clearURXEN; inline;
  36513. begin
  36514. pTDefRegMap(@Self)^.clr := $00001000;
  36515. end;
  36516. procedure TUART1A_U1ASTA.setURXEN(thebits : TBits_1); inline;
  36517. begin
  36518. if thebits = 0 then
  36519. pTDefRegMap(@Self)^.clr := $00001000
  36520. else
  36521. pTDefRegMap(@Self)^.&set := $00001000;
  36522. end;
  36523. function TUART1A_U1ASTA.getURXEN : TBits_1; inline;
  36524. begin
  36525. getURXEN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  36526. end;
  36527. procedure TUART1A_U1ASTA.setUTXINV; inline;
  36528. begin
  36529. pTDefRegMap(@Self)^.&set := $00002000;
  36530. end;
  36531. procedure TUART1A_U1ASTA.clearUTXINV; inline;
  36532. begin
  36533. pTDefRegMap(@Self)^.clr := $00002000;
  36534. end;
  36535. procedure TUART1A_U1ASTA.setUTXINV(thebits : TBits_1); inline;
  36536. begin
  36537. if thebits = 0 then
  36538. pTDefRegMap(@Self)^.clr := $00002000
  36539. else
  36540. pTDefRegMap(@Self)^.&set := $00002000;
  36541. end;
  36542. function TUART1A_U1ASTA.getUTXINV : TBits_1; inline;
  36543. begin
  36544. getUTXINV := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  36545. end;
  36546. procedure TUART1A_U1ASTA.setUTXISEL(thebits : TBits_2); inline;
  36547. begin
  36548. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  36549. end;
  36550. function TUART1A_U1ASTA.getUTXISEL : TBits_2; inline;
  36551. begin
  36552. getUTXISEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  36553. end;
  36554. procedure TUART1A_U1ASTA.setADDR(thebits : TBits_8); inline;
  36555. begin
  36556. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
  36557. end;
  36558. function TUART1A_U1ASTA.getADDR : TBits_8; inline;
  36559. begin
  36560. getADDR := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
  36561. end;
  36562. procedure TUART1A_U1ASTA.setADM_EN; inline;
  36563. begin
  36564. pTDefRegMap(@Self)^.&set := $01000000;
  36565. end;
  36566. procedure TUART1A_U1ASTA.clearADM_EN; inline;
  36567. begin
  36568. pTDefRegMap(@Self)^.clr := $01000000;
  36569. end;
  36570. procedure TUART1A_U1ASTA.setADM_EN(thebits : TBits_1); inline;
  36571. begin
  36572. if thebits = 0 then
  36573. pTDefRegMap(@Self)^.clr := $01000000
  36574. else
  36575. pTDefRegMap(@Self)^.&set := $01000000;
  36576. end;
  36577. function TUART1A_U1ASTA.getADM_EN : TBits_1; inline;
  36578. begin
  36579. getADM_EN := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  36580. end;
  36581. procedure TUART1A_U1ASTA.setURXISEL0; inline;
  36582. begin
  36583. pTDefRegMap(@Self)^.&set := $00000040;
  36584. end;
  36585. procedure TUART1A_U1ASTA.clearURXISEL0; inline;
  36586. begin
  36587. pTDefRegMap(@Self)^.clr := $00000040;
  36588. end;
  36589. procedure TUART1A_U1ASTA.setURXISEL0(thebits : TBits_1); inline;
  36590. begin
  36591. if thebits = 0 then
  36592. pTDefRegMap(@Self)^.clr := $00000040
  36593. else
  36594. pTDefRegMap(@Self)^.&set := $00000040;
  36595. end;
  36596. function TUART1A_U1ASTA.getURXISEL0 : TBits_1; inline;
  36597. begin
  36598. getURXISEL0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  36599. end;
  36600. procedure TUART1A_U1ASTA.setURXISEL1; inline;
  36601. begin
  36602. pTDefRegMap(@Self)^.&set := $00000080;
  36603. end;
  36604. procedure TUART1A_U1ASTA.clearURXISEL1; inline;
  36605. begin
  36606. pTDefRegMap(@Self)^.clr := $00000080;
  36607. end;
  36608. procedure TUART1A_U1ASTA.setURXISEL1(thebits : TBits_1); inline;
  36609. begin
  36610. if thebits = 0 then
  36611. pTDefRegMap(@Self)^.clr := $00000080
  36612. else
  36613. pTDefRegMap(@Self)^.&set := $00000080;
  36614. end;
  36615. function TUART1A_U1ASTA.getURXISEL1 : TBits_1; inline;
  36616. begin
  36617. getURXISEL1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  36618. end;
  36619. procedure TUART1A_U1ASTA.setUTXISEL0; inline;
  36620. begin
  36621. pTDefRegMap(@Self)^.&set := $00004000;
  36622. end;
  36623. procedure TUART1A_U1ASTA.clearUTXISEL0; inline;
  36624. begin
  36625. pTDefRegMap(@Self)^.clr := $00004000;
  36626. end;
  36627. procedure TUART1A_U1ASTA.setUTXISEL0(thebits : TBits_1); inline;
  36628. begin
  36629. if thebits = 0 then
  36630. pTDefRegMap(@Self)^.clr := $00004000
  36631. else
  36632. pTDefRegMap(@Self)^.&set := $00004000;
  36633. end;
  36634. function TUART1A_U1ASTA.getUTXISEL0 : TBits_1; inline;
  36635. begin
  36636. getUTXISEL0 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  36637. end;
  36638. procedure TUART1A_U1ASTA.setUTXISEL1; inline;
  36639. begin
  36640. pTDefRegMap(@Self)^.&set := $00008000;
  36641. end;
  36642. procedure TUART1A_U1ASTA.clearUTXISEL1; inline;
  36643. begin
  36644. pTDefRegMap(@Self)^.clr := $00008000;
  36645. end;
  36646. procedure TUART1A_U1ASTA.setUTXISEL1(thebits : TBits_1); inline;
  36647. begin
  36648. if thebits = 0 then
  36649. pTDefRegMap(@Self)^.clr := $00008000
  36650. else
  36651. pTDefRegMap(@Self)^.&set := $00008000;
  36652. end;
  36653. function TUART1A_U1ASTA.getUTXISEL1 : TBits_1; inline;
  36654. begin
  36655. getUTXISEL1 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  36656. end;
  36657. procedure TUART1A_U1ASTA.setUTXSEL(thebits : TBits_2); inline;
  36658. begin
  36659. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  36660. end;
  36661. function TUART1A_U1ASTA.getUTXSEL : TBits_2; inline;
  36662. begin
  36663. getUTXSEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  36664. end;
  36665. procedure TUART1A_U1ASTA.setw(thebits : TBits_32); inline;
  36666. begin
  36667. pTDefRegMap(@Self)^.val := thebits;
  36668. end;
  36669. function TUART1A_U1ASTA.getw : TBits_32; inline;
  36670. begin
  36671. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  36672. end;
  36673. procedure TUART1A_U1STA.setURXDA; inline;
  36674. begin
  36675. pTDefRegMap(@Self)^.&set := $00000001;
  36676. end;
  36677. procedure TUART1A_U1STA.clearURXDA; inline;
  36678. begin
  36679. pTDefRegMap(@Self)^.clr := $00000001;
  36680. end;
  36681. procedure TUART1A_U1STA.setURXDA(thebits : TBits_1); inline;
  36682. begin
  36683. if thebits = 0 then
  36684. pTDefRegMap(@Self)^.clr := $00000001
  36685. else
  36686. pTDefRegMap(@Self)^.&set := $00000001;
  36687. end;
  36688. function TUART1A_U1STA.getURXDA : TBits_1; inline;
  36689. begin
  36690. getURXDA := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  36691. end;
  36692. procedure TUART1A_U1STA.setOERR; inline;
  36693. begin
  36694. pTDefRegMap(@Self)^.&set := $00000002;
  36695. end;
  36696. procedure TUART1A_U1STA.clearOERR; inline;
  36697. begin
  36698. pTDefRegMap(@Self)^.clr := $00000002;
  36699. end;
  36700. procedure TUART1A_U1STA.setOERR(thebits : TBits_1); inline;
  36701. begin
  36702. if thebits = 0 then
  36703. pTDefRegMap(@Self)^.clr := $00000002
  36704. else
  36705. pTDefRegMap(@Self)^.&set := $00000002;
  36706. end;
  36707. function TUART1A_U1STA.getOERR : TBits_1; inline;
  36708. begin
  36709. getOERR := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  36710. end;
  36711. procedure TUART1A_U1STA.setFERR; inline;
  36712. begin
  36713. pTDefRegMap(@Self)^.&set := $00000004;
  36714. end;
  36715. procedure TUART1A_U1STA.clearFERR; inline;
  36716. begin
  36717. pTDefRegMap(@Self)^.clr := $00000004;
  36718. end;
  36719. procedure TUART1A_U1STA.setFERR(thebits : TBits_1); inline;
  36720. begin
  36721. if thebits = 0 then
  36722. pTDefRegMap(@Self)^.clr := $00000004
  36723. else
  36724. pTDefRegMap(@Self)^.&set := $00000004;
  36725. end;
  36726. function TUART1A_U1STA.getFERR : TBits_1; inline;
  36727. begin
  36728. getFERR := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  36729. end;
  36730. procedure TUART1A_U1STA.setPERR; inline;
  36731. begin
  36732. pTDefRegMap(@Self)^.&set := $00000008;
  36733. end;
  36734. procedure TUART1A_U1STA.clearPERR; inline;
  36735. begin
  36736. pTDefRegMap(@Self)^.clr := $00000008;
  36737. end;
  36738. procedure TUART1A_U1STA.setPERR(thebits : TBits_1); inline;
  36739. begin
  36740. if thebits = 0 then
  36741. pTDefRegMap(@Self)^.clr := $00000008
  36742. else
  36743. pTDefRegMap(@Self)^.&set := $00000008;
  36744. end;
  36745. function TUART1A_U1STA.getPERR : TBits_1; inline;
  36746. begin
  36747. getPERR := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  36748. end;
  36749. procedure TUART1A_U1STA.setRIDLE; inline;
  36750. begin
  36751. pTDefRegMap(@Self)^.&set := $00000010;
  36752. end;
  36753. procedure TUART1A_U1STA.clearRIDLE; inline;
  36754. begin
  36755. pTDefRegMap(@Self)^.clr := $00000010;
  36756. end;
  36757. procedure TUART1A_U1STA.setRIDLE(thebits : TBits_1); inline;
  36758. begin
  36759. if thebits = 0 then
  36760. pTDefRegMap(@Self)^.clr := $00000010
  36761. else
  36762. pTDefRegMap(@Self)^.&set := $00000010;
  36763. end;
  36764. function TUART1A_U1STA.getRIDLE : TBits_1; inline;
  36765. begin
  36766. getRIDLE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  36767. end;
  36768. procedure TUART1A_U1STA.setADDEN; inline;
  36769. begin
  36770. pTDefRegMap(@Self)^.&set := $00000020;
  36771. end;
  36772. procedure TUART1A_U1STA.clearADDEN; inline;
  36773. begin
  36774. pTDefRegMap(@Self)^.clr := $00000020;
  36775. end;
  36776. procedure TUART1A_U1STA.setADDEN(thebits : TBits_1); inline;
  36777. begin
  36778. if thebits = 0 then
  36779. pTDefRegMap(@Self)^.clr := $00000020
  36780. else
  36781. pTDefRegMap(@Self)^.&set := $00000020;
  36782. end;
  36783. function TUART1A_U1STA.getADDEN : TBits_1; inline;
  36784. begin
  36785. getADDEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  36786. end;
  36787. procedure TUART1A_U1STA.setURXISEL(thebits : TBits_2); inline;
  36788. begin
  36789. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
  36790. end;
  36791. function TUART1A_U1STA.getURXISEL : TBits_2; inline;
  36792. begin
  36793. getURXISEL := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
  36794. end;
  36795. procedure TUART1A_U1STA.setTRMT; inline;
  36796. begin
  36797. pTDefRegMap(@Self)^.&set := $00000100;
  36798. end;
  36799. procedure TUART1A_U1STA.clearTRMT; inline;
  36800. begin
  36801. pTDefRegMap(@Self)^.clr := $00000100;
  36802. end;
  36803. procedure TUART1A_U1STA.setTRMT(thebits : TBits_1); inline;
  36804. begin
  36805. if thebits = 0 then
  36806. pTDefRegMap(@Self)^.clr := $00000100
  36807. else
  36808. pTDefRegMap(@Self)^.&set := $00000100;
  36809. end;
  36810. function TUART1A_U1STA.getTRMT : TBits_1; inline;
  36811. begin
  36812. getTRMT := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  36813. end;
  36814. procedure TUART1A_U1STA.setUTXBF; inline;
  36815. begin
  36816. pTDefRegMap(@Self)^.&set := $00000200;
  36817. end;
  36818. procedure TUART1A_U1STA.clearUTXBF; inline;
  36819. begin
  36820. pTDefRegMap(@Self)^.clr := $00000200;
  36821. end;
  36822. procedure TUART1A_U1STA.setUTXBF(thebits : TBits_1); inline;
  36823. begin
  36824. if thebits = 0 then
  36825. pTDefRegMap(@Self)^.clr := $00000200
  36826. else
  36827. pTDefRegMap(@Self)^.&set := $00000200;
  36828. end;
  36829. function TUART1A_U1STA.getUTXBF : TBits_1; inline;
  36830. begin
  36831. getUTXBF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  36832. end;
  36833. procedure TUART1A_U1STA.setUTXEN; inline;
  36834. begin
  36835. pTDefRegMap(@Self)^.&set := $00000400;
  36836. end;
  36837. procedure TUART1A_U1STA.clearUTXEN; inline;
  36838. begin
  36839. pTDefRegMap(@Self)^.clr := $00000400;
  36840. end;
  36841. procedure TUART1A_U1STA.setUTXEN(thebits : TBits_1); inline;
  36842. begin
  36843. if thebits = 0 then
  36844. pTDefRegMap(@Self)^.clr := $00000400
  36845. else
  36846. pTDefRegMap(@Self)^.&set := $00000400;
  36847. end;
  36848. function TUART1A_U1STA.getUTXEN : TBits_1; inline;
  36849. begin
  36850. getUTXEN := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  36851. end;
  36852. procedure TUART1A_U1STA.setUTXBRK; inline;
  36853. begin
  36854. pTDefRegMap(@Self)^.&set := $00000800;
  36855. end;
  36856. procedure TUART1A_U1STA.clearUTXBRK; inline;
  36857. begin
  36858. pTDefRegMap(@Self)^.clr := $00000800;
  36859. end;
  36860. procedure TUART1A_U1STA.setUTXBRK(thebits : TBits_1); inline;
  36861. begin
  36862. if thebits = 0 then
  36863. pTDefRegMap(@Self)^.clr := $00000800
  36864. else
  36865. pTDefRegMap(@Self)^.&set := $00000800;
  36866. end;
  36867. function TUART1A_U1STA.getUTXBRK : TBits_1; inline;
  36868. begin
  36869. getUTXBRK := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  36870. end;
  36871. procedure TUART1A_U1STA.setURXEN; inline;
  36872. begin
  36873. pTDefRegMap(@Self)^.&set := $00001000;
  36874. end;
  36875. procedure TUART1A_U1STA.clearURXEN; inline;
  36876. begin
  36877. pTDefRegMap(@Self)^.clr := $00001000;
  36878. end;
  36879. procedure TUART1A_U1STA.setURXEN(thebits : TBits_1); inline;
  36880. begin
  36881. if thebits = 0 then
  36882. pTDefRegMap(@Self)^.clr := $00001000
  36883. else
  36884. pTDefRegMap(@Self)^.&set := $00001000;
  36885. end;
  36886. function TUART1A_U1STA.getURXEN : TBits_1; inline;
  36887. begin
  36888. getURXEN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  36889. end;
  36890. procedure TUART1A_U1STA.setUTXINV; inline;
  36891. begin
  36892. pTDefRegMap(@Self)^.&set := $00002000;
  36893. end;
  36894. procedure TUART1A_U1STA.clearUTXINV; inline;
  36895. begin
  36896. pTDefRegMap(@Self)^.clr := $00002000;
  36897. end;
  36898. procedure TUART1A_U1STA.setUTXINV(thebits : TBits_1); inline;
  36899. begin
  36900. if thebits = 0 then
  36901. pTDefRegMap(@Self)^.clr := $00002000
  36902. else
  36903. pTDefRegMap(@Self)^.&set := $00002000;
  36904. end;
  36905. function TUART1A_U1STA.getUTXINV : TBits_1; inline;
  36906. begin
  36907. getUTXINV := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  36908. end;
  36909. procedure TUART1A_U1STA.setUTXISEL(thebits : TBits_2); inline;
  36910. begin
  36911. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  36912. end;
  36913. function TUART1A_U1STA.getUTXISEL : TBits_2; inline;
  36914. begin
  36915. getUTXISEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  36916. end;
  36917. procedure TUART1A_U1STA.setADDR(thebits : TBits_8); inline;
  36918. begin
  36919. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
  36920. end;
  36921. function TUART1A_U1STA.getADDR : TBits_8; inline;
  36922. begin
  36923. getADDR := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
  36924. end;
  36925. procedure TUART1A_U1STA.setADM_EN; inline;
  36926. begin
  36927. pTDefRegMap(@Self)^.&set := $01000000;
  36928. end;
  36929. procedure TUART1A_U1STA.clearADM_EN; inline;
  36930. begin
  36931. pTDefRegMap(@Self)^.clr := $01000000;
  36932. end;
  36933. procedure TUART1A_U1STA.setADM_EN(thebits : TBits_1); inline;
  36934. begin
  36935. if thebits = 0 then
  36936. pTDefRegMap(@Self)^.clr := $01000000
  36937. else
  36938. pTDefRegMap(@Self)^.&set := $01000000;
  36939. end;
  36940. function TUART1A_U1STA.getADM_EN : TBits_1; inline;
  36941. begin
  36942. getADM_EN := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  36943. end;
  36944. procedure TUART1A_U1STA.setURXISEL0; inline;
  36945. begin
  36946. pTDefRegMap(@Self)^.&set := $00000040;
  36947. end;
  36948. procedure TUART1A_U1STA.clearURXISEL0; inline;
  36949. begin
  36950. pTDefRegMap(@Self)^.clr := $00000040;
  36951. end;
  36952. procedure TUART1A_U1STA.setURXISEL0(thebits : TBits_1); inline;
  36953. begin
  36954. if thebits = 0 then
  36955. pTDefRegMap(@Self)^.clr := $00000040
  36956. else
  36957. pTDefRegMap(@Self)^.&set := $00000040;
  36958. end;
  36959. function TUART1A_U1STA.getURXISEL0 : TBits_1; inline;
  36960. begin
  36961. getURXISEL0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  36962. end;
  36963. procedure TUART1A_U1STA.setURXISEL1; inline;
  36964. begin
  36965. pTDefRegMap(@Self)^.&set := $00000080;
  36966. end;
  36967. procedure TUART1A_U1STA.clearURXISEL1; inline;
  36968. begin
  36969. pTDefRegMap(@Self)^.clr := $00000080;
  36970. end;
  36971. procedure TUART1A_U1STA.setURXISEL1(thebits : TBits_1); inline;
  36972. begin
  36973. if thebits = 0 then
  36974. pTDefRegMap(@Self)^.clr := $00000080
  36975. else
  36976. pTDefRegMap(@Self)^.&set := $00000080;
  36977. end;
  36978. function TUART1A_U1STA.getURXISEL1 : TBits_1; inline;
  36979. begin
  36980. getURXISEL1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  36981. end;
  36982. procedure TUART1A_U1STA.setUTXISEL0; inline;
  36983. begin
  36984. pTDefRegMap(@Self)^.&set := $00004000;
  36985. end;
  36986. procedure TUART1A_U1STA.clearUTXISEL0; inline;
  36987. begin
  36988. pTDefRegMap(@Self)^.clr := $00004000;
  36989. end;
  36990. procedure TUART1A_U1STA.setUTXISEL0(thebits : TBits_1); inline;
  36991. begin
  36992. if thebits = 0 then
  36993. pTDefRegMap(@Self)^.clr := $00004000
  36994. else
  36995. pTDefRegMap(@Self)^.&set := $00004000;
  36996. end;
  36997. function TUART1A_U1STA.getUTXISEL0 : TBits_1; inline;
  36998. begin
  36999. getUTXISEL0 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  37000. end;
  37001. procedure TUART1A_U1STA.setUTXISEL1; inline;
  37002. begin
  37003. pTDefRegMap(@Self)^.&set := $00008000;
  37004. end;
  37005. procedure TUART1A_U1STA.clearUTXISEL1; inline;
  37006. begin
  37007. pTDefRegMap(@Self)^.clr := $00008000;
  37008. end;
  37009. procedure TUART1A_U1STA.setUTXISEL1(thebits : TBits_1); inline;
  37010. begin
  37011. if thebits = 0 then
  37012. pTDefRegMap(@Self)^.clr := $00008000
  37013. else
  37014. pTDefRegMap(@Self)^.&set := $00008000;
  37015. end;
  37016. function TUART1A_U1STA.getUTXISEL1 : TBits_1; inline;
  37017. begin
  37018. getUTXISEL1 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  37019. end;
  37020. procedure TUART1A_U1STA.setUTXSEL(thebits : TBits_2); inline;
  37021. begin
  37022. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  37023. end;
  37024. function TUART1A_U1STA.getUTXSEL : TBits_2; inline;
  37025. begin
  37026. getUTXSEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  37027. end;
  37028. procedure TUART1A_U1STA.setw(thebits : TBits_32); inline;
  37029. begin
  37030. pTDefRegMap(@Self)^.val := thebits;
  37031. end;
  37032. function TUART1A_U1STA.getw : TBits_32; inline;
  37033. begin
  37034. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  37035. end;
  37036. procedure TUART1B_U1BMODE.setSTSEL; inline;
  37037. begin
  37038. pTDefRegMap(@Self)^.&set := $00000001;
  37039. end;
  37040. procedure TUART1B_U1BMODE.clearSTSEL; inline;
  37041. begin
  37042. pTDefRegMap(@Self)^.clr := $00000001;
  37043. end;
  37044. procedure TUART1B_U1BMODE.setSTSEL(thebits : TBits_1); inline;
  37045. begin
  37046. if thebits = 0 then
  37047. pTDefRegMap(@Self)^.clr := $00000001
  37048. else
  37049. pTDefRegMap(@Self)^.&set := $00000001;
  37050. end;
  37051. function TUART1B_U1BMODE.getSTSEL : TBits_1; inline;
  37052. begin
  37053. getSTSEL := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  37054. end;
  37055. procedure TUART1B_U1BMODE.setPDSEL(thebits : TBits_2); inline;
  37056. begin
  37057. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF9 or ( thebits shl 1 );
  37058. end;
  37059. function TUART1B_U1BMODE.getPDSEL : TBits_2; inline;
  37060. begin
  37061. getPDSEL := (pTDefRegMap(@Self)^.val and $00000006) shr 1;
  37062. end;
  37063. procedure TUART1B_U1BMODE.setBRGH; inline;
  37064. begin
  37065. pTDefRegMap(@Self)^.&set := $00000008;
  37066. end;
  37067. procedure TUART1B_U1BMODE.clearBRGH; inline;
  37068. begin
  37069. pTDefRegMap(@Self)^.clr := $00000008;
  37070. end;
  37071. procedure TUART1B_U1BMODE.setBRGH(thebits : TBits_1); inline;
  37072. begin
  37073. if thebits = 0 then
  37074. pTDefRegMap(@Self)^.clr := $00000008
  37075. else
  37076. pTDefRegMap(@Self)^.&set := $00000008;
  37077. end;
  37078. function TUART1B_U1BMODE.getBRGH : TBits_1; inline;
  37079. begin
  37080. getBRGH := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  37081. end;
  37082. procedure TUART1B_U1BMODE.setRXINV; inline;
  37083. begin
  37084. pTDefRegMap(@Self)^.&set := $00000010;
  37085. end;
  37086. procedure TUART1B_U1BMODE.clearRXINV; inline;
  37087. begin
  37088. pTDefRegMap(@Self)^.clr := $00000010;
  37089. end;
  37090. procedure TUART1B_U1BMODE.setRXINV(thebits : TBits_1); inline;
  37091. begin
  37092. if thebits = 0 then
  37093. pTDefRegMap(@Self)^.clr := $00000010
  37094. else
  37095. pTDefRegMap(@Self)^.&set := $00000010;
  37096. end;
  37097. function TUART1B_U1BMODE.getRXINV : TBits_1; inline;
  37098. begin
  37099. getRXINV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  37100. end;
  37101. procedure TUART1B_U1BMODE.setABAUD; inline;
  37102. begin
  37103. pTDefRegMap(@Self)^.&set := $00000020;
  37104. end;
  37105. procedure TUART1B_U1BMODE.clearABAUD; inline;
  37106. begin
  37107. pTDefRegMap(@Self)^.clr := $00000020;
  37108. end;
  37109. procedure TUART1B_U1BMODE.setABAUD(thebits : TBits_1); inline;
  37110. begin
  37111. if thebits = 0 then
  37112. pTDefRegMap(@Self)^.clr := $00000020
  37113. else
  37114. pTDefRegMap(@Self)^.&set := $00000020;
  37115. end;
  37116. function TUART1B_U1BMODE.getABAUD : TBits_1; inline;
  37117. begin
  37118. getABAUD := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  37119. end;
  37120. procedure TUART1B_U1BMODE.setLPBACK; inline;
  37121. begin
  37122. pTDefRegMap(@Self)^.&set := $00000040;
  37123. end;
  37124. procedure TUART1B_U1BMODE.clearLPBACK; inline;
  37125. begin
  37126. pTDefRegMap(@Self)^.clr := $00000040;
  37127. end;
  37128. procedure TUART1B_U1BMODE.setLPBACK(thebits : TBits_1); inline;
  37129. begin
  37130. if thebits = 0 then
  37131. pTDefRegMap(@Self)^.clr := $00000040
  37132. else
  37133. pTDefRegMap(@Self)^.&set := $00000040;
  37134. end;
  37135. function TUART1B_U1BMODE.getLPBACK : TBits_1; inline;
  37136. begin
  37137. getLPBACK := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  37138. end;
  37139. procedure TUART1B_U1BMODE.setWAKE; inline;
  37140. begin
  37141. pTDefRegMap(@Self)^.&set := $00000080;
  37142. end;
  37143. procedure TUART1B_U1BMODE.clearWAKE; inline;
  37144. begin
  37145. pTDefRegMap(@Self)^.clr := $00000080;
  37146. end;
  37147. procedure TUART1B_U1BMODE.setWAKE(thebits : TBits_1); inline;
  37148. begin
  37149. if thebits = 0 then
  37150. pTDefRegMap(@Self)^.clr := $00000080
  37151. else
  37152. pTDefRegMap(@Self)^.&set := $00000080;
  37153. end;
  37154. function TUART1B_U1BMODE.getWAKE : TBits_1; inline;
  37155. begin
  37156. getWAKE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  37157. end;
  37158. procedure TUART1B_U1BMODE.setIREN; inline;
  37159. begin
  37160. pTDefRegMap(@Self)^.&set := $00001000;
  37161. end;
  37162. procedure TUART1B_U1BMODE.clearIREN; inline;
  37163. begin
  37164. pTDefRegMap(@Self)^.clr := $00001000;
  37165. end;
  37166. procedure TUART1B_U1BMODE.setIREN(thebits : TBits_1); inline;
  37167. begin
  37168. if thebits = 0 then
  37169. pTDefRegMap(@Self)^.clr := $00001000
  37170. else
  37171. pTDefRegMap(@Self)^.&set := $00001000;
  37172. end;
  37173. function TUART1B_U1BMODE.getIREN : TBits_1; inline;
  37174. begin
  37175. getIREN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  37176. end;
  37177. procedure TUART1B_U1BMODE.setSIDL; inline;
  37178. begin
  37179. pTDefRegMap(@Self)^.&set := $00002000;
  37180. end;
  37181. procedure TUART1B_U1BMODE.clearSIDL; inline;
  37182. begin
  37183. pTDefRegMap(@Self)^.clr := $00002000;
  37184. end;
  37185. procedure TUART1B_U1BMODE.setSIDL(thebits : TBits_1); inline;
  37186. begin
  37187. if thebits = 0 then
  37188. pTDefRegMap(@Self)^.clr := $00002000
  37189. else
  37190. pTDefRegMap(@Self)^.&set := $00002000;
  37191. end;
  37192. function TUART1B_U1BMODE.getSIDL : TBits_1; inline;
  37193. begin
  37194. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  37195. end;
  37196. procedure TUART1B_U1BMODE.setON; inline;
  37197. begin
  37198. pTDefRegMap(@Self)^.&set := $00008000;
  37199. end;
  37200. procedure TUART1B_U1BMODE.clearON; inline;
  37201. begin
  37202. pTDefRegMap(@Self)^.clr := $00008000;
  37203. end;
  37204. procedure TUART1B_U1BMODE.setON(thebits : TBits_1); inline;
  37205. begin
  37206. if thebits = 0 then
  37207. pTDefRegMap(@Self)^.clr := $00008000
  37208. else
  37209. pTDefRegMap(@Self)^.&set := $00008000;
  37210. end;
  37211. function TUART1B_U1BMODE.getON : TBits_1; inline;
  37212. begin
  37213. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  37214. end;
  37215. procedure TUART1B_U1BMODE.setPDSEL0; inline;
  37216. begin
  37217. pTDefRegMap(@Self)^.&set := $00000002;
  37218. end;
  37219. procedure TUART1B_U1BMODE.clearPDSEL0; inline;
  37220. begin
  37221. pTDefRegMap(@Self)^.clr := $00000002;
  37222. end;
  37223. procedure TUART1B_U1BMODE.setPDSEL0(thebits : TBits_1); inline;
  37224. begin
  37225. if thebits = 0 then
  37226. pTDefRegMap(@Self)^.clr := $00000002
  37227. else
  37228. pTDefRegMap(@Self)^.&set := $00000002;
  37229. end;
  37230. function TUART1B_U1BMODE.getPDSEL0 : TBits_1; inline;
  37231. begin
  37232. getPDSEL0 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  37233. end;
  37234. procedure TUART1B_U1BMODE.setPDSEL1; inline;
  37235. begin
  37236. pTDefRegMap(@Self)^.&set := $00000004;
  37237. end;
  37238. procedure TUART1B_U1BMODE.clearPDSEL1; inline;
  37239. begin
  37240. pTDefRegMap(@Self)^.clr := $00000004;
  37241. end;
  37242. procedure TUART1B_U1BMODE.setPDSEL1(thebits : TBits_1); inline;
  37243. begin
  37244. if thebits = 0 then
  37245. pTDefRegMap(@Self)^.clr := $00000004
  37246. else
  37247. pTDefRegMap(@Self)^.&set := $00000004;
  37248. end;
  37249. function TUART1B_U1BMODE.getPDSEL1 : TBits_1; inline;
  37250. begin
  37251. getPDSEL1 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  37252. end;
  37253. procedure TUART1B_U1BMODE.setUSIDL; inline;
  37254. begin
  37255. pTDefRegMap(@Self)^.&set := $00002000;
  37256. end;
  37257. procedure TUART1B_U1BMODE.clearUSIDL; inline;
  37258. begin
  37259. pTDefRegMap(@Self)^.clr := $00002000;
  37260. end;
  37261. procedure TUART1B_U1BMODE.setUSIDL(thebits : TBits_1); inline;
  37262. begin
  37263. if thebits = 0 then
  37264. pTDefRegMap(@Self)^.clr := $00002000
  37265. else
  37266. pTDefRegMap(@Self)^.&set := $00002000;
  37267. end;
  37268. function TUART1B_U1BMODE.getUSIDL : TBits_1; inline;
  37269. begin
  37270. getUSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  37271. end;
  37272. procedure TUART1B_U1BMODE.setUARTEN; inline;
  37273. begin
  37274. pTDefRegMap(@Self)^.&set := $00008000;
  37275. end;
  37276. procedure TUART1B_U1BMODE.clearUARTEN; inline;
  37277. begin
  37278. pTDefRegMap(@Self)^.clr := $00008000;
  37279. end;
  37280. procedure TUART1B_U1BMODE.setUARTEN(thebits : TBits_1); inline;
  37281. begin
  37282. if thebits = 0 then
  37283. pTDefRegMap(@Self)^.clr := $00008000
  37284. else
  37285. pTDefRegMap(@Self)^.&set := $00008000;
  37286. end;
  37287. function TUART1B_U1BMODE.getUARTEN : TBits_1; inline;
  37288. begin
  37289. getUARTEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  37290. end;
  37291. procedure TUART1B_U1BMODE.setw(thebits : TBits_32); inline;
  37292. begin
  37293. pTDefRegMap(@Self)^.val := thebits;
  37294. end;
  37295. function TUART1B_U1BMODE.getw : TBits_32; inline;
  37296. begin
  37297. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  37298. end;
  37299. procedure TUART1B_U4MODE.setSTSEL; inline;
  37300. begin
  37301. pTDefRegMap(@Self)^.&set := $00000001;
  37302. end;
  37303. procedure TUART1B_U4MODE.clearSTSEL; inline;
  37304. begin
  37305. pTDefRegMap(@Self)^.clr := $00000001;
  37306. end;
  37307. procedure TUART1B_U4MODE.setSTSEL(thebits : TBits_1); inline;
  37308. begin
  37309. if thebits = 0 then
  37310. pTDefRegMap(@Self)^.clr := $00000001
  37311. else
  37312. pTDefRegMap(@Self)^.&set := $00000001;
  37313. end;
  37314. function TUART1B_U4MODE.getSTSEL : TBits_1; inline;
  37315. begin
  37316. getSTSEL := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  37317. end;
  37318. procedure TUART1B_U4MODE.setPDSEL(thebits : TBits_2); inline;
  37319. begin
  37320. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF9 or ( thebits shl 1 );
  37321. end;
  37322. function TUART1B_U4MODE.getPDSEL : TBits_2; inline;
  37323. begin
  37324. getPDSEL := (pTDefRegMap(@Self)^.val and $00000006) shr 1;
  37325. end;
  37326. procedure TUART1B_U4MODE.setBRGH; inline;
  37327. begin
  37328. pTDefRegMap(@Self)^.&set := $00000008;
  37329. end;
  37330. procedure TUART1B_U4MODE.clearBRGH; inline;
  37331. begin
  37332. pTDefRegMap(@Self)^.clr := $00000008;
  37333. end;
  37334. procedure TUART1B_U4MODE.setBRGH(thebits : TBits_1); inline;
  37335. begin
  37336. if thebits = 0 then
  37337. pTDefRegMap(@Self)^.clr := $00000008
  37338. else
  37339. pTDefRegMap(@Self)^.&set := $00000008;
  37340. end;
  37341. function TUART1B_U4MODE.getBRGH : TBits_1; inline;
  37342. begin
  37343. getBRGH := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  37344. end;
  37345. procedure TUART1B_U4MODE.setRXINV; inline;
  37346. begin
  37347. pTDefRegMap(@Self)^.&set := $00000010;
  37348. end;
  37349. procedure TUART1B_U4MODE.clearRXINV; inline;
  37350. begin
  37351. pTDefRegMap(@Self)^.clr := $00000010;
  37352. end;
  37353. procedure TUART1B_U4MODE.setRXINV(thebits : TBits_1); inline;
  37354. begin
  37355. if thebits = 0 then
  37356. pTDefRegMap(@Self)^.clr := $00000010
  37357. else
  37358. pTDefRegMap(@Self)^.&set := $00000010;
  37359. end;
  37360. function TUART1B_U4MODE.getRXINV : TBits_1; inline;
  37361. begin
  37362. getRXINV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  37363. end;
  37364. procedure TUART1B_U4MODE.setABAUD; inline;
  37365. begin
  37366. pTDefRegMap(@Self)^.&set := $00000020;
  37367. end;
  37368. procedure TUART1B_U4MODE.clearABAUD; inline;
  37369. begin
  37370. pTDefRegMap(@Self)^.clr := $00000020;
  37371. end;
  37372. procedure TUART1B_U4MODE.setABAUD(thebits : TBits_1); inline;
  37373. begin
  37374. if thebits = 0 then
  37375. pTDefRegMap(@Self)^.clr := $00000020
  37376. else
  37377. pTDefRegMap(@Self)^.&set := $00000020;
  37378. end;
  37379. function TUART1B_U4MODE.getABAUD : TBits_1; inline;
  37380. begin
  37381. getABAUD := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  37382. end;
  37383. procedure TUART1B_U4MODE.setLPBACK; inline;
  37384. begin
  37385. pTDefRegMap(@Self)^.&set := $00000040;
  37386. end;
  37387. procedure TUART1B_U4MODE.clearLPBACK; inline;
  37388. begin
  37389. pTDefRegMap(@Self)^.clr := $00000040;
  37390. end;
  37391. procedure TUART1B_U4MODE.setLPBACK(thebits : TBits_1); inline;
  37392. begin
  37393. if thebits = 0 then
  37394. pTDefRegMap(@Self)^.clr := $00000040
  37395. else
  37396. pTDefRegMap(@Self)^.&set := $00000040;
  37397. end;
  37398. function TUART1B_U4MODE.getLPBACK : TBits_1; inline;
  37399. begin
  37400. getLPBACK := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  37401. end;
  37402. procedure TUART1B_U4MODE.setWAKE; inline;
  37403. begin
  37404. pTDefRegMap(@Self)^.&set := $00000080;
  37405. end;
  37406. procedure TUART1B_U4MODE.clearWAKE; inline;
  37407. begin
  37408. pTDefRegMap(@Self)^.clr := $00000080;
  37409. end;
  37410. procedure TUART1B_U4MODE.setWAKE(thebits : TBits_1); inline;
  37411. begin
  37412. if thebits = 0 then
  37413. pTDefRegMap(@Self)^.clr := $00000080
  37414. else
  37415. pTDefRegMap(@Self)^.&set := $00000080;
  37416. end;
  37417. function TUART1B_U4MODE.getWAKE : TBits_1; inline;
  37418. begin
  37419. getWAKE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  37420. end;
  37421. procedure TUART1B_U4MODE.setIREN; inline;
  37422. begin
  37423. pTDefRegMap(@Self)^.&set := $00001000;
  37424. end;
  37425. procedure TUART1B_U4MODE.clearIREN; inline;
  37426. begin
  37427. pTDefRegMap(@Self)^.clr := $00001000;
  37428. end;
  37429. procedure TUART1B_U4MODE.setIREN(thebits : TBits_1); inline;
  37430. begin
  37431. if thebits = 0 then
  37432. pTDefRegMap(@Self)^.clr := $00001000
  37433. else
  37434. pTDefRegMap(@Self)^.&set := $00001000;
  37435. end;
  37436. function TUART1B_U4MODE.getIREN : TBits_1; inline;
  37437. begin
  37438. getIREN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  37439. end;
  37440. procedure TUART1B_U4MODE.setSIDL; inline;
  37441. begin
  37442. pTDefRegMap(@Self)^.&set := $00002000;
  37443. end;
  37444. procedure TUART1B_U4MODE.clearSIDL; inline;
  37445. begin
  37446. pTDefRegMap(@Self)^.clr := $00002000;
  37447. end;
  37448. procedure TUART1B_U4MODE.setSIDL(thebits : TBits_1); inline;
  37449. begin
  37450. if thebits = 0 then
  37451. pTDefRegMap(@Self)^.clr := $00002000
  37452. else
  37453. pTDefRegMap(@Self)^.&set := $00002000;
  37454. end;
  37455. function TUART1B_U4MODE.getSIDL : TBits_1; inline;
  37456. begin
  37457. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  37458. end;
  37459. procedure TUART1B_U4MODE.setON; inline;
  37460. begin
  37461. pTDefRegMap(@Self)^.&set := $00008000;
  37462. end;
  37463. procedure TUART1B_U4MODE.clearON; inline;
  37464. begin
  37465. pTDefRegMap(@Self)^.clr := $00008000;
  37466. end;
  37467. procedure TUART1B_U4MODE.setON(thebits : TBits_1); inline;
  37468. begin
  37469. if thebits = 0 then
  37470. pTDefRegMap(@Self)^.clr := $00008000
  37471. else
  37472. pTDefRegMap(@Self)^.&set := $00008000;
  37473. end;
  37474. function TUART1B_U4MODE.getON : TBits_1; inline;
  37475. begin
  37476. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  37477. end;
  37478. procedure TUART1B_U4MODE.setPDSEL0; inline;
  37479. begin
  37480. pTDefRegMap(@Self)^.&set := $00000002;
  37481. end;
  37482. procedure TUART1B_U4MODE.clearPDSEL0; inline;
  37483. begin
  37484. pTDefRegMap(@Self)^.clr := $00000002;
  37485. end;
  37486. procedure TUART1B_U4MODE.setPDSEL0(thebits : TBits_1); inline;
  37487. begin
  37488. if thebits = 0 then
  37489. pTDefRegMap(@Self)^.clr := $00000002
  37490. else
  37491. pTDefRegMap(@Self)^.&set := $00000002;
  37492. end;
  37493. function TUART1B_U4MODE.getPDSEL0 : TBits_1; inline;
  37494. begin
  37495. getPDSEL0 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  37496. end;
  37497. procedure TUART1B_U4MODE.setPDSEL1; inline;
  37498. begin
  37499. pTDefRegMap(@Self)^.&set := $00000004;
  37500. end;
  37501. procedure TUART1B_U4MODE.clearPDSEL1; inline;
  37502. begin
  37503. pTDefRegMap(@Self)^.clr := $00000004;
  37504. end;
  37505. procedure TUART1B_U4MODE.setPDSEL1(thebits : TBits_1); inline;
  37506. begin
  37507. if thebits = 0 then
  37508. pTDefRegMap(@Self)^.clr := $00000004
  37509. else
  37510. pTDefRegMap(@Self)^.&set := $00000004;
  37511. end;
  37512. function TUART1B_U4MODE.getPDSEL1 : TBits_1; inline;
  37513. begin
  37514. getPDSEL1 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  37515. end;
  37516. procedure TUART1B_U4MODE.setUSIDL; inline;
  37517. begin
  37518. pTDefRegMap(@Self)^.&set := $00002000;
  37519. end;
  37520. procedure TUART1B_U4MODE.clearUSIDL; inline;
  37521. begin
  37522. pTDefRegMap(@Self)^.clr := $00002000;
  37523. end;
  37524. procedure TUART1B_U4MODE.setUSIDL(thebits : TBits_1); inline;
  37525. begin
  37526. if thebits = 0 then
  37527. pTDefRegMap(@Self)^.clr := $00002000
  37528. else
  37529. pTDefRegMap(@Self)^.&set := $00002000;
  37530. end;
  37531. function TUART1B_U4MODE.getUSIDL : TBits_1; inline;
  37532. begin
  37533. getUSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  37534. end;
  37535. procedure TUART1B_U4MODE.setUARTEN; inline;
  37536. begin
  37537. pTDefRegMap(@Self)^.&set := $00008000;
  37538. end;
  37539. procedure TUART1B_U4MODE.clearUARTEN; inline;
  37540. begin
  37541. pTDefRegMap(@Self)^.clr := $00008000;
  37542. end;
  37543. procedure TUART1B_U4MODE.setUARTEN(thebits : TBits_1); inline;
  37544. begin
  37545. if thebits = 0 then
  37546. pTDefRegMap(@Self)^.clr := $00008000
  37547. else
  37548. pTDefRegMap(@Self)^.&set := $00008000;
  37549. end;
  37550. function TUART1B_U4MODE.getUARTEN : TBits_1; inline;
  37551. begin
  37552. getUARTEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  37553. end;
  37554. procedure TUART1B_U4MODE.setw(thebits : TBits_32); inline;
  37555. begin
  37556. pTDefRegMap(@Self)^.val := thebits;
  37557. end;
  37558. function TUART1B_U4MODE.getw : TBits_32; inline;
  37559. begin
  37560. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  37561. end;
  37562. procedure TUART1B_U1BSTA.setURXDA; inline;
  37563. begin
  37564. pTDefRegMap(@Self)^.&set := $00000001;
  37565. end;
  37566. procedure TUART1B_U1BSTA.clearURXDA; inline;
  37567. begin
  37568. pTDefRegMap(@Self)^.clr := $00000001;
  37569. end;
  37570. procedure TUART1B_U1BSTA.setURXDA(thebits : TBits_1); inline;
  37571. begin
  37572. if thebits = 0 then
  37573. pTDefRegMap(@Self)^.clr := $00000001
  37574. else
  37575. pTDefRegMap(@Self)^.&set := $00000001;
  37576. end;
  37577. function TUART1B_U1BSTA.getURXDA : TBits_1; inline;
  37578. begin
  37579. getURXDA := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  37580. end;
  37581. procedure TUART1B_U1BSTA.setOERR; inline;
  37582. begin
  37583. pTDefRegMap(@Self)^.&set := $00000002;
  37584. end;
  37585. procedure TUART1B_U1BSTA.clearOERR; inline;
  37586. begin
  37587. pTDefRegMap(@Self)^.clr := $00000002;
  37588. end;
  37589. procedure TUART1B_U1BSTA.setOERR(thebits : TBits_1); inline;
  37590. begin
  37591. if thebits = 0 then
  37592. pTDefRegMap(@Self)^.clr := $00000002
  37593. else
  37594. pTDefRegMap(@Self)^.&set := $00000002;
  37595. end;
  37596. function TUART1B_U1BSTA.getOERR : TBits_1; inline;
  37597. begin
  37598. getOERR := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  37599. end;
  37600. procedure TUART1B_U1BSTA.setFERR; inline;
  37601. begin
  37602. pTDefRegMap(@Self)^.&set := $00000004;
  37603. end;
  37604. procedure TUART1B_U1BSTA.clearFERR; inline;
  37605. begin
  37606. pTDefRegMap(@Self)^.clr := $00000004;
  37607. end;
  37608. procedure TUART1B_U1BSTA.setFERR(thebits : TBits_1); inline;
  37609. begin
  37610. if thebits = 0 then
  37611. pTDefRegMap(@Self)^.clr := $00000004
  37612. else
  37613. pTDefRegMap(@Self)^.&set := $00000004;
  37614. end;
  37615. function TUART1B_U1BSTA.getFERR : TBits_1; inline;
  37616. begin
  37617. getFERR := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  37618. end;
  37619. procedure TUART1B_U1BSTA.setPERR; inline;
  37620. begin
  37621. pTDefRegMap(@Self)^.&set := $00000008;
  37622. end;
  37623. procedure TUART1B_U1BSTA.clearPERR; inline;
  37624. begin
  37625. pTDefRegMap(@Self)^.clr := $00000008;
  37626. end;
  37627. procedure TUART1B_U1BSTA.setPERR(thebits : TBits_1); inline;
  37628. begin
  37629. if thebits = 0 then
  37630. pTDefRegMap(@Self)^.clr := $00000008
  37631. else
  37632. pTDefRegMap(@Self)^.&set := $00000008;
  37633. end;
  37634. function TUART1B_U1BSTA.getPERR : TBits_1; inline;
  37635. begin
  37636. getPERR := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  37637. end;
  37638. procedure TUART1B_U1BSTA.setRIDLE; inline;
  37639. begin
  37640. pTDefRegMap(@Self)^.&set := $00000010;
  37641. end;
  37642. procedure TUART1B_U1BSTA.clearRIDLE; inline;
  37643. begin
  37644. pTDefRegMap(@Self)^.clr := $00000010;
  37645. end;
  37646. procedure TUART1B_U1BSTA.setRIDLE(thebits : TBits_1); inline;
  37647. begin
  37648. if thebits = 0 then
  37649. pTDefRegMap(@Self)^.clr := $00000010
  37650. else
  37651. pTDefRegMap(@Self)^.&set := $00000010;
  37652. end;
  37653. function TUART1B_U1BSTA.getRIDLE : TBits_1; inline;
  37654. begin
  37655. getRIDLE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  37656. end;
  37657. procedure TUART1B_U1BSTA.setADDEN; inline;
  37658. begin
  37659. pTDefRegMap(@Self)^.&set := $00000020;
  37660. end;
  37661. procedure TUART1B_U1BSTA.clearADDEN; inline;
  37662. begin
  37663. pTDefRegMap(@Self)^.clr := $00000020;
  37664. end;
  37665. procedure TUART1B_U1BSTA.setADDEN(thebits : TBits_1); inline;
  37666. begin
  37667. if thebits = 0 then
  37668. pTDefRegMap(@Self)^.clr := $00000020
  37669. else
  37670. pTDefRegMap(@Self)^.&set := $00000020;
  37671. end;
  37672. function TUART1B_U1BSTA.getADDEN : TBits_1; inline;
  37673. begin
  37674. getADDEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  37675. end;
  37676. procedure TUART1B_U1BSTA.setURXISEL(thebits : TBits_2); inline;
  37677. begin
  37678. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
  37679. end;
  37680. function TUART1B_U1BSTA.getURXISEL : TBits_2; inline;
  37681. begin
  37682. getURXISEL := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
  37683. end;
  37684. procedure TUART1B_U1BSTA.setTRMT; inline;
  37685. begin
  37686. pTDefRegMap(@Self)^.&set := $00000100;
  37687. end;
  37688. procedure TUART1B_U1BSTA.clearTRMT; inline;
  37689. begin
  37690. pTDefRegMap(@Self)^.clr := $00000100;
  37691. end;
  37692. procedure TUART1B_U1BSTA.setTRMT(thebits : TBits_1); inline;
  37693. begin
  37694. if thebits = 0 then
  37695. pTDefRegMap(@Self)^.clr := $00000100
  37696. else
  37697. pTDefRegMap(@Self)^.&set := $00000100;
  37698. end;
  37699. function TUART1B_U1BSTA.getTRMT : TBits_1; inline;
  37700. begin
  37701. getTRMT := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  37702. end;
  37703. procedure TUART1B_U1BSTA.setUTXBF; inline;
  37704. begin
  37705. pTDefRegMap(@Self)^.&set := $00000200;
  37706. end;
  37707. procedure TUART1B_U1BSTA.clearUTXBF; inline;
  37708. begin
  37709. pTDefRegMap(@Self)^.clr := $00000200;
  37710. end;
  37711. procedure TUART1B_U1BSTA.setUTXBF(thebits : TBits_1); inline;
  37712. begin
  37713. if thebits = 0 then
  37714. pTDefRegMap(@Self)^.clr := $00000200
  37715. else
  37716. pTDefRegMap(@Self)^.&set := $00000200;
  37717. end;
  37718. function TUART1B_U1BSTA.getUTXBF : TBits_1; inline;
  37719. begin
  37720. getUTXBF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  37721. end;
  37722. procedure TUART1B_U1BSTA.setUTXEN; inline;
  37723. begin
  37724. pTDefRegMap(@Self)^.&set := $00000400;
  37725. end;
  37726. procedure TUART1B_U1BSTA.clearUTXEN; inline;
  37727. begin
  37728. pTDefRegMap(@Self)^.clr := $00000400;
  37729. end;
  37730. procedure TUART1B_U1BSTA.setUTXEN(thebits : TBits_1); inline;
  37731. begin
  37732. if thebits = 0 then
  37733. pTDefRegMap(@Self)^.clr := $00000400
  37734. else
  37735. pTDefRegMap(@Self)^.&set := $00000400;
  37736. end;
  37737. function TUART1B_U1BSTA.getUTXEN : TBits_1; inline;
  37738. begin
  37739. getUTXEN := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  37740. end;
  37741. procedure TUART1B_U1BSTA.setUTXBRK; inline;
  37742. begin
  37743. pTDefRegMap(@Self)^.&set := $00000800;
  37744. end;
  37745. procedure TUART1B_U1BSTA.clearUTXBRK; inline;
  37746. begin
  37747. pTDefRegMap(@Self)^.clr := $00000800;
  37748. end;
  37749. procedure TUART1B_U1BSTA.setUTXBRK(thebits : TBits_1); inline;
  37750. begin
  37751. if thebits = 0 then
  37752. pTDefRegMap(@Self)^.clr := $00000800
  37753. else
  37754. pTDefRegMap(@Self)^.&set := $00000800;
  37755. end;
  37756. function TUART1B_U1BSTA.getUTXBRK : TBits_1; inline;
  37757. begin
  37758. getUTXBRK := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  37759. end;
  37760. procedure TUART1B_U1BSTA.setURXEN; inline;
  37761. begin
  37762. pTDefRegMap(@Self)^.&set := $00001000;
  37763. end;
  37764. procedure TUART1B_U1BSTA.clearURXEN; inline;
  37765. begin
  37766. pTDefRegMap(@Self)^.clr := $00001000;
  37767. end;
  37768. procedure TUART1B_U1BSTA.setURXEN(thebits : TBits_1); inline;
  37769. begin
  37770. if thebits = 0 then
  37771. pTDefRegMap(@Self)^.clr := $00001000
  37772. else
  37773. pTDefRegMap(@Self)^.&set := $00001000;
  37774. end;
  37775. function TUART1B_U1BSTA.getURXEN : TBits_1; inline;
  37776. begin
  37777. getURXEN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  37778. end;
  37779. procedure TUART1B_U1BSTA.setUTXINV; inline;
  37780. begin
  37781. pTDefRegMap(@Self)^.&set := $00002000;
  37782. end;
  37783. procedure TUART1B_U1BSTA.clearUTXINV; inline;
  37784. begin
  37785. pTDefRegMap(@Self)^.clr := $00002000;
  37786. end;
  37787. procedure TUART1B_U1BSTA.setUTXINV(thebits : TBits_1); inline;
  37788. begin
  37789. if thebits = 0 then
  37790. pTDefRegMap(@Self)^.clr := $00002000
  37791. else
  37792. pTDefRegMap(@Self)^.&set := $00002000;
  37793. end;
  37794. function TUART1B_U1BSTA.getUTXINV : TBits_1; inline;
  37795. begin
  37796. getUTXINV := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  37797. end;
  37798. procedure TUART1B_U1BSTA.setUTXISEL(thebits : TBits_2); inline;
  37799. begin
  37800. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  37801. end;
  37802. function TUART1B_U1BSTA.getUTXISEL : TBits_2; inline;
  37803. begin
  37804. getUTXISEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  37805. end;
  37806. procedure TUART1B_U1BSTA.setADDR(thebits : TBits_8); inline;
  37807. begin
  37808. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
  37809. end;
  37810. function TUART1B_U1BSTA.getADDR : TBits_8; inline;
  37811. begin
  37812. getADDR := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
  37813. end;
  37814. procedure TUART1B_U1BSTA.setADM_EN; inline;
  37815. begin
  37816. pTDefRegMap(@Self)^.&set := $01000000;
  37817. end;
  37818. procedure TUART1B_U1BSTA.clearADM_EN; inline;
  37819. begin
  37820. pTDefRegMap(@Self)^.clr := $01000000;
  37821. end;
  37822. procedure TUART1B_U1BSTA.setADM_EN(thebits : TBits_1); inline;
  37823. begin
  37824. if thebits = 0 then
  37825. pTDefRegMap(@Self)^.clr := $01000000
  37826. else
  37827. pTDefRegMap(@Self)^.&set := $01000000;
  37828. end;
  37829. function TUART1B_U1BSTA.getADM_EN : TBits_1; inline;
  37830. begin
  37831. getADM_EN := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  37832. end;
  37833. procedure TUART1B_U1BSTA.setURXISEL0; inline;
  37834. begin
  37835. pTDefRegMap(@Self)^.&set := $00000040;
  37836. end;
  37837. procedure TUART1B_U1BSTA.clearURXISEL0; inline;
  37838. begin
  37839. pTDefRegMap(@Self)^.clr := $00000040;
  37840. end;
  37841. procedure TUART1B_U1BSTA.setURXISEL0(thebits : TBits_1); inline;
  37842. begin
  37843. if thebits = 0 then
  37844. pTDefRegMap(@Self)^.clr := $00000040
  37845. else
  37846. pTDefRegMap(@Self)^.&set := $00000040;
  37847. end;
  37848. function TUART1B_U1BSTA.getURXISEL0 : TBits_1; inline;
  37849. begin
  37850. getURXISEL0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  37851. end;
  37852. procedure TUART1B_U1BSTA.setURXISEL1; inline;
  37853. begin
  37854. pTDefRegMap(@Self)^.&set := $00000080;
  37855. end;
  37856. procedure TUART1B_U1BSTA.clearURXISEL1; inline;
  37857. begin
  37858. pTDefRegMap(@Self)^.clr := $00000080;
  37859. end;
  37860. procedure TUART1B_U1BSTA.setURXISEL1(thebits : TBits_1); inline;
  37861. begin
  37862. if thebits = 0 then
  37863. pTDefRegMap(@Self)^.clr := $00000080
  37864. else
  37865. pTDefRegMap(@Self)^.&set := $00000080;
  37866. end;
  37867. function TUART1B_U1BSTA.getURXISEL1 : TBits_1; inline;
  37868. begin
  37869. getURXISEL1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  37870. end;
  37871. procedure TUART1B_U1BSTA.setUTXISEL0; inline;
  37872. begin
  37873. pTDefRegMap(@Self)^.&set := $00004000;
  37874. end;
  37875. procedure TUART1B_U1BSTA.clearUTXISEL0; inline;
  37876. begin
  37877. pTDefRegMap(@Self)^.clr := $00004000;
  37878. end;
  37879. procedure TUART1B_U1BSTA.setUTXISEL0(thebits : TBits_1); inline;
  37880. begin
  37881. if thebits = 0 then
  37882. pTDefRegMap(@Self)^.clr := $00004000
  37883. else
  37884. pTDefRegMap(@Self)^.&set := $00004000;
  37885. end;
  37886. function TUART1B_U1BSTA.getUTXISEL0 : TBits_1; inline;
  37887. begin
  37888. getUTXISEL0 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  37889. end;
  37890. procedure TUART1B_U1BSTA.setUTXISEL1; inline;
  37891. begin
  37892. pTDefRegMap(@Self)^.&set := $00008000;
  37893. end;
  37894. procedure TUART1B_U1BSTA.clearUTXISEL1; inline;
  37895. begin
  37896. pTDefRegMap(@Self)^.clr := $00008000;
  37897. end;
  37898. procedure TUART1B_U1BSTA.setUTXISEL1(thebits : TBits_1); inline;
  37899. begin
  37900. if thebits = 0 then
  37901. pTDefRegMap(@Self)^.clr := $00008000
  37902. else
  37903. pTDefRegMap(@Self)^.&set := $00008000;
  37904. end;
  37905. function TUART1B_U1BSTA.getUTXISEL1 : TBits_1; inline;
  37906. begin
  37907. getUTXISEL1 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  37908. end;
  37909. procedure TUART1B_U1BSTA.setUTXSEL(thebits : TBits_2); inline;
  37910. begin
  37911. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  37912. end;
  37913. function TUART1B_U1BSTA.getUTXSEL : TBits_2; inline;
  37914. begin
  37915. getUTXSEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  37916. end;
  37917. procedure TUART1B_U1BSTA.setw(thebits : TBits_32); inline;
  37918. begin
  37919. pTDefRegMap(@Self)^.val := thebits;
  37920. end;
  37921. function TUART1B_U1BSTA.getw : TBits_32; inline;
  37922. begin
  37923. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  37924. end;
  37925. procedure TUART1B_U4STA.setURXDA; inline;
  37926. begin
  37927. pTDefRegMap(@Self)^.&set := $00000001;
  37928. end;
  37929. procedure TUART1B_U4STA.clearURXDA; inline;
  37930. begin
  37931. pTDefRegMap(@Self)^.clr := $00000001;
  37932. end;
  37933. procedure TUART1B_U4STA.setURXDA(thebits : TBits_1); inline;
  37934. begin
  37935. if thebits = 0 then
  37936. pTDefRegMap(@Self)^.clr := $00000001
  37937. else
  37938. pTDefRegMap(@Self)^.&set := $00000001;
  37939. end;
  37940. function TUART1B_U4STA.getURXDA : TBits_1; inline;
  37941. begin
  37942. getURXDA := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  37943. end;
  37944. procedure TUART1B_U4STA.setOERR; inline;
  37945. begin
  37946. pTDefRegMap(@Self)^.&set := $00000002;
  37947. end;
  37948. procedure TUART1B_U4STA.clearOERR; inline;
  37949. begin
  37950. pTDefRegMap(@Self)^.clr := $00000002;
  37951. end;
  37952. procedure TUART1B_U4STA.setOERR(thebits : TBits_1); inline;
  37953. begin
  37954. if thebits = 0 then
  37955. pTDefRegMap(@Self)^.clr := $00000002
  37956. else
  37957. pTDefRegMap(@Self)^.&set := $00000002;
  37958. end;
  37959. function TUART1B_U4STA.getOERR : TBits_1; inline;
  37960. begin
  37961. getOERR := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  37962. end;
  37963. procedure TUART1B_U4STA.setFERR; inline;
  37964. begin
  37965. pTDefRegMap(@Self)^.&set := $00000004;
  37966. end;
  37967. procedure TUART1B_U4STA.clearFERR; inline;
  37968. begin
  37969. pTDefRegMap(@Self)^.clr := $00000004;
  37970. end;
  37971. procedure TUART1B_U4STA.setFERR(thebits : TBits_1); inline;
  37972. begin
  37973. if thebits = 0 then
  37974. pTDefRegMap(@Self)^.clr := $00000004
  37975. else
  37976. pTDefRegMap(@Self)^.&set := $00000004;
  37977. end;
  37978. function TUART1B_U4STA.getFERR : TBits_1; inline;
  37979. begin
  37980. getFERR := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  37981. end;
  37982. procedure TUART1B_U4STA.setPERR; inline;
  37983. begin
  37984. pTDefRegMap(@Self)^.&set := $00000008;
  37985. end;
  37986. procedure TUART1B_U4STA.clearPERR; inline;
  37987. begin
  37988. pTDefRegMap(@Self)^.clr := $00000008;
  37989. end;
  37990. procedure TUART1B_U4STA.setPERR(thebits : TBits_1); inline;
  37991. begin
  37992. if thebits = 0 then
  37993. pTDefRegMap(@Self)^.clr := $00000008
  37994. else
  37995. pTDefRegMap(@Self)^.&set := $00000008;
  37996. end;
  37997. function TUART1B_U4STA.getPERR : TBits_1; inline;
  37998. begin
  37999. getPERR := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  38000. end;
  38001. procedure TUART1B_U4STA.setRIDLE; inline;
  38002. begin
  38003. pTDefRegMap(@Self)^.&set := $00000010;
  38004. end;
  38005. procedure TUART1B_U4STA.clearRIDLE; inline;
  38006. begin
  38007. pTDefRegMap(@Self)^.clr := $00000010;
  38008. end;
  38009. procedure TUART1B_U4STA.setRIDLE(thebits : TBits_1); inline;
  38010. begin
  38011. if thebits = 0 then
  38012. pTDefRegMap(@Self)^.clr := $00000010
  38013. else
  38014. pTDefRegMap(@Self)^.&set := $00000010;
  38015. end;
  38016. function TUART1B_U4STA.getRIDLE : TBits_1; inline;
  38017. begin
  38018. getRIDLE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  38019. end;
  38020. procedure TUART1B_U4STA.setADDEN; inline;
  38021. begin
  38022. pTDefRegMap(@Self)^.&set := $00000020;
  38023. end;
  38024. procedure TUART1B_U4STA.clearADDEN; inline;
  38025. begin
  38026. pTDefRegMap(@Self)^.clr := $00000020;
  38027. end;
  38028. procedure TUART1B_U4STA.setADDEN(thebits : TBits_1); inline;
  38029. begin
  38030. if thebits = 0 then
  38031. pTDefRegMap(@Self)^.clr := $00000020
  38032. else
  38033. pTDefRegMap(@Self)^.&set := $00000020;
  38034. end;
  38035. function TUART1B_U4STA.getADDEN : TBits_1; inline;
  38036. begin
  38037. getADDEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  38038. end;
  38039. procedure TUART1B_U4STA.setURXISEL(thebits : TBits_2); inline;
  38040. begin
  38041. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
  38042. end;
  38043. function TUART1B_U4STA.getURXISEL : TBits_2; inline;
  38044. begin
  38045. getURXISEL := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
  38046. end;
  38047. procedure TUART1B_U4STA.setTRMT; inline;
  38048. begin
  38049. pTDefRegMap(@Self)^.&set := $00000100;
  38050. end;
  38051. procedure TUART1B_U4STA.clearTRMT; inline;
  38052. begin
  38053. pTDefRegMap(@Self)^.clr := $00000100;
  38054. end;
  38055. procedure TUART1B_U4STA.setTRMT(thebits : TBits_1); inline;
  38056. begin
  38057. if thebits = 0 then
  38058. pTDefRegMap(@Self)^.clr := $00000100
  38059. else
  38060. pTDefRegMap(@Self)^.&set := $00000100;
  38061. end;
  38062. function TUART1B_U4STA.getTRMT : TBits_1; inline;
  38063. begin
  38064. getTRMT := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  38065. end;
  38066. procedure TUART1B_U4STA.setUTXBF; inline;
  38067. begin
  38068. pTDefRegMap(@Self)^.&set := $00000200;
  38069. end;
  38070. procedure TUART1B_U4STA.clearUTXBF; inline;
  38071. begin
  38072. pTDefRegMap(@Self)^.clr := $00000200;
  38073. end;
  38074. procedure TUART1B_U4STA.setUTXBF(thebits : TBits_1); inline;
  38075. begin
  38076. if thebits = 0 then
  38077. pTDefRegMap(@Self)^.clr := $00000200
  38078. else
  38079. pTDefRegMap(@Self)^.&set := $00000200;
  38080. end;
  38081. function TUART1B_U4STA.getUTXBF : TBits_1; inline;
  38082. begin
  38083. getUTXBF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  38084. end;
  38085. procedure TUART1B_U4STA.setUTXEN; inline;
  38086. begin
  38087. pTDefRegMap(@Self)^.&set := $00000400;
  38088. end;
  38089. procedure TUART1B_U4STA.clearUTXEN; inline;
  38090. begin
  38091. pTDefRegMap(@Self)^.clr := $00000400;
  38092. end;
  38093. procedure TUART1B_U4STA.setUTXEN(thebits : TBits_1); inline;
  38094. begin
  38095. if thebits = 0 then
  38096. pTDefRegMap(@Self)^.clr := $00000400
  38097. else
  38098. pTDefRegMap(@Self)^.&set := $00000400;
  38099. end;
  38100. function TUART1B_U4STA.getUTXEN : TBits_1; inline;
  38101. begin
  38102. getUTXEN := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  38103. end;
  38104. procedure TUART1B_U4STA.setUTXBRK; inline;
  38105. begin
  38106. pTDefRegMap(@Self)^.&set := $00000800;
  38107. end;
  38108. procedure TUART1B_U4STA.clearUTXBRK; inline;
  38109. begin
  38110. pTDefRegMap(@Self)^.clr := $00000800;
  38111. end;
  38112. procedure TUART1B_U4STA.setUTXBRK(thebits : TBits_1); inline;
  38113. begin
  38114. if thebits = 0 then
  38115. pTDefRegMap(@Self)^.clr := $00000800
  38116. else
  38117. pTDefRegMap(@Self)^.&set := $00000800;
  38118. end;
  38119. function TUART1B_U4STA.getUTXBRK : TBits_1; inline;
  38120. begin
  38121. getUTXBRK := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  38122. end;
  38123. procedure TUART1B_U4STA.setURXEN; inline;
  38124. begin
  38125. pTDefRegMap(@Self)^.&set := $00001000;
  38126. end;
  38127. procedure TUART1B_U4STA.clearURXEN; inline;
  38128. begin
  38129. pTDefRegMap(@Self)^.clr := $00001000;
  38130. end;
  38131. procedure TUART1B_U4STA.setURXEN(thebits : TBits_1); inline;
  38132. begin
  38133. if thebits = 0 then
  38134. pTDefRegMap(@Self)^.clr := $00001000
  38135. else
  38136. pTDefRegMap(@Self)^.&set := $00001000;
  38137. end;
  38138. function TUART1B_U4STA.getURXEN : TBits_1; inline;
  38139. begin
  38140. getURXEN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  38141. end;
  38142. procedure TUART1B_U4STA.setUTXINV; inline;
  38143. begin
  38144. pTDefRegMap(@Self)^.&set := $00002000;
  38145. end;
  38146. procedure TUART1B_U4STA.clearUTXINV; inline;
  38147. begin
  38148. pTDefRegMap(@Self)^.clr := $00002000;
  38149. end;
  38150. procedure TUART1B_U4STA.setUTXINV(thebits : TBits_1); inline;
  38151. begin
  38152. if thebits = 0 then
  38153. pTDefRegMap(@Self)^.clr := $00002000
  38154. else
  38155. pTDefRegMap(@Self)^.&set := $00002000;
  38156. end;
  38157. function TUART1B_U4STA.getUTXINV : TBits_1; inline;
  38158. begin
  38159. getUTXINV := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  38160. end;
  38161. procedure TUART1B_U4STA.setUTXISEL(thebits : TBits_2); inline;
  38162. begin
  38163. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  38164. end;
  38165. function TUART1B_U4STA.getUTXISEL : TBits_2; inline;
  38166. begin
  38167. getUTXISEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  38168. end;
  38169. procedure TUART1B_U4STA.setADDR(thebits : TBits_8); inline;
  38170. begin
  38171. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
  38172. end;
  38173. function TUART1B_U4STA.getADDR : TBits_8; inline;
  38174. begin
  38175. getADDR := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
  38176. end;
  38177. procedure TUART1B_U4STA.setADM_EN; inline;
  38178. begin
  38179. pTDefRegMap(@Self)^.&set := $01000000;
  38180. end;
  38181. procedure TUART1B_U4STA.clearADM_EN; inline;
  38182. begin
  38183. pTDefRegMap(@Self)^.clr := $01000000;
  38184. end;
  38185. procedure TUART1B_U4STA.setADM_EN(thebits : TBits_1); inline;
  38186. begin
  38187. if thebits = 0 then
  38188. pTDefRegMap(@Self)^.clr := $01000000
  38189. else
  38190. pTDefRegMap(@Self)^.&set := $01000000;
  38191. end;
  38192. function TUART1B_U4STA.getADM_EN : TBits_1; inline;
  38193. begin
  38194. getADM_EN := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  38195. end;
  38196. procedure TUART1B_U4STA.setURXISEL0; inline;
  38197. begin
  38198. pTDefRegMap(@Self)^.&set := $00000040;
  38199. end;
  38200. procedure TUART1B_U4STA.clearURXISEL0; inline;
  38201. begin
  38202. pTDefRegMap(@Self)^.clr := $00000040;
  38203. end;
  38204. procedure TUART1B_U4STA.setURXISEL0(thebits : TBits_1); inline;
  38205. begin
  38206. if thebits = 0 then
  38207. pTDefRegMap(@Self)^.clr := $00000040
  38208. else
  38209. pTDefRegMap(@Self)^.&set := $00000040;
  38210. end;
  38211. function TUART1B_U4STA.getURXISEL0 : TBits_1; inline;
  38212. begin
  38213. getURXISEL0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  38214. end;
  38215. procedure TUART1B_U4STA.setURXISEL1; inline;
  38216. begin
  38217. pTDefRegMap(@Self)^.&set := $00000080;
  38218. end;
  38219. procedure TUART1B_U4STA.clearURXISEL1; inline;
  38220. begin
  38221. pTDefRegMap(@Self)^.clr := $00000080;
  38222. end;
  38223. procedure TUART1B_U4STA.setURXISEL1(thebits : TBits_1); inline;
  38224. begin
  38225. if thebits = 0 then
  38226. pTDefRegMap(@Self)^.clr := $00000080
  38227. else
  38228. pTDefRegMap(@Self)^.&set := $00000080;
  38229. end;
  38230. function TUART1B_U4STA.getURXISEL1 : TBits_1; inline;
  38231. begin
  38232. getURXISEL1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  38233. end;
  38234. procedure TUART1B_U4STA.setUTXISEL0; inline;
  38235. begin
  38236. pTDefRegMap(@Self)^.&set := $00004000;
  38237. end;
  38238. procedure TUART1B_U4STA.clearUTXISEL0; inline;
  38239. begin
  38240. pTDefRegMap(@Self)^.clr := $00004000;
  38241. end;
  38242. procedure TUART1B_U4STA.setUTXISEL0(thebits : TBits_1); inline;
  38243. begin
  38244. if thebits = 0 then
  38245. pTDefRegMap(@Self)^.clr := $00004000
  38246. else
  38247. pTDefRegMap(@Self)^.&set := $00004000;
  38248. end;
  38249. function TUART1B_U4STA.getUTXISEL0 : TBits_1; inline;
  38250. begin
  38251. getUTXISEL0 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  38252. end;
  38253. procedure TUART1B_U4STA.setUTXISEL1; inline;
  38254. begin
  38255. pTDefRegMap(@Self)^.&set := $00008000;
  38256. end;
  38257. procedure TUART1B_U4STA.clearUTXISEL1; inline;
  38258. begin
  38259. pTDefRegMap(@Self)^.clr := $00008000;
  38260. end;
  38261. procedure TUART1B_U4STA.setUTXISEL1(thebits : TBits_1); inline;
  38262. begin
  38263. if thebits = 0 then
  38264. pTDefRegMap(@Self)^.clr := $00008000
  38265. else
  38266. pTDefRegMap(@Self)^.&set := $00008000;
  38267. end;
  38268. function TUART1B_U4STA.getUTXISEL1 : TBits_1; inline;
  38269. begin
  38270. getUTXISEL1 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  38271. end;
  38272. procedure TUART1B_U4STA.setUTXSEL(thebits : TBits_2); inline;
  38273. begin
  38274. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  38275. end;
  38276. function TUART1B_U4STA.getUTXSEL : TBits_2; inline;
  38277. begin
  38278. getUTXSEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  38279. end;
  38280. procedure TUART1B_U4STA.setw(thebits : TBits_32); inline;
  38281. begin
  38282. pTDefRegMap(@Self)^.val := thebits;
  38283. end;
  38284. function TUART1B_U4STA.getw : TBits_32; inline;
  38285. begin
  38286. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  38287. end;
  38288. procedure TUART2A_U2AMODE.setSTSEL; inline;
  38289. begin
  38290. pTDefRegMap(@Self)^.&set := $00000001;
  38291. end;
  38292. procedure TUART2A_U2AMODE.clearSTSEL; inline;
  38293. begin
  38294. pTDefRegMap(@Self)^.clr := $00000001;
  38295. end;
  38296. procedure TUART2A_U2AMODE.setSTSEL(thebits : TBits_1); inline;
  38297. begin
  38298. if thebits = 0 then
  38299. pTDefRegMap(@Self)^.clr := $00000001
  38300. else
  38301. pTDefRegMap(@Self)^.&set := $00000001;
  38302. end;
  38303. function TUART2A_U2AMODE.getSTSEL : TBits_1; inline;
  38304. begin
  38305. getSTSEL := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  38306. end;
  38307. procedure TUART2A_U2AMODE.setPDSEL(thebits : TBits_2); inline;
  38308. begin
  38309. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF9 or ( thebits shl 1 );
  38310. end;
  38311. function TUART2A_U2AMODE.getPDSEL : TBits_2; inline;
  38312. begin
  38313. getPDSEL := (pTDefRegMap(@Self)^.val and $00000006) shr 1;
  38314. end;
  38315. procedure TUART2A_U2AMODE.setBRGH; inline;
  38316. begin
  38317. pTDefRegMap(@Self)^.&set := $00000008;
  38318. end;
  38319. procedure TUART2A_U2AMODE.clearBRGH; inline;
  38320. begin
  38321. pTDefRegMap(@Self)^.clr := $00000008;
  38322. end;
  38323. procedure TUART2A_U2AMODE.setBRGH(thebits : TBits_1); inline;
  38324. begin
  38325. if thebits = 0 then
  38326. pTDefRegMap(@Self)^.clr := $00000008
  38327. else
  38328. pTDefRegMap(@Self)^.&set := $00000008;
  38329. end;
  38330. function TUART2A_U2AMODE.getBRGH : TBits_1; inline;
  38331. begin
  38332. getBRGH := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  38333. end;
  38334. procedure TUART2A_U2AMODE.setRXINV; inline;
  38335. begin
  38336. pTDefRegMap(@Self)^.&set := $00000010;
  38337. end;
  38338. procedure TUART2A_U2AMODE.clearRXINV; inline;
  38339. begin
  38340. pTDefRegMap(@Self)^.clr := $00000010;
  38341. end;
  38342. procedure TUART2A_U2AMODE.setRXINV(thebits : TBits_1); inline;
  38343. begin
  38344. if thebits = 0 then
  38345. pTDefRegMap(@Self)^.clr := $00000010
  38346. else
  38347. pTDefRegMap(@Self)^.&set := $00000010;
  38348. end;
  38349. function TUART2A_U2AMODE.getRXINV : TBits_1; inline;
  38350. begin
  38351. getRXINV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  38352. end;
  38353. procedure TUART2A_U2AMODE.setABAUD; inline;
  38354. begin
  38355. pTDefRegMap(@Self)^.&set := $00000020;
  38356. end;
  38357. procedure TUART2A_U2AMODE.clearABAUD; inline;
  38358. begin
  38359. pTDefRegMap(@Self)^.clr := $00000020;
  38360. end;
  38361. procedure TUART2A_U2AMODE.setABAUD(thebits : TBits_1); inline;
  38362. begin
  38363. if thebits = 0 then
  38364. pTDefRegMap(@Self)^.clr := $00000020
  38365. else
  38366. pTDefRegMap(@Self)^.&set := $00000020;
  38367. end;
  38368. function TUART2A_U2AMODE.getABAUD : TBits_1; inline;
  38369. begin
  38370. getABAUD := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  38371. end;
  38372. procedure TUART2A_U2AMODE.setLPBACK; inline;
  38373. begin
  38374. pTDefRegMap(@Self)^.&set := $00000040;
  38375. end;
  38376. procedure TUART2A_U2AMODE.clearLPBACK; inline;
  38377. begin
  38378. pTDefRegMap(@Self)^.clr := $00000040;
  38379. end;
  38380. procedure TUART2A_U2AMODE.setLPBACK(thebits : TBits_1); inline;
  38381. begin
  38382. if thebits = 0 then
  38383. pTDefRegMap(@Self)^.clr := $00000040
  38384. else
  38385. pTDefRegMap(@Self)^.&set := $00000040;
  38386. end;
  38387. function TUART2A_U2AMODE.getLPBACK : TBits_1; inline;
  38388. begin
  38389. getLPBACK := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  38390. end;
  38391. procedure TUART2A_U2AMODE.setWAKE; inline;
  38392. begin
  38393. pTDefRegMap(@Self)^.&set := $00000080;
  38394. end;
  38395. procedure TUART2A_U2AMODE.clearWAKE; inline;
  38396. begin
  38397. pTDefRegMap(@Self)^.clr := $00000080;
  38398. end;
  38399. procedure TUART2A_U2AMODE.setWAKE(thebits : TBits_1); inline;
  38400. begin
  38401. if thebits = 0 then
  38402. pTDefRegMap(@Self)^.clr := $00000080
  38403. else
  38404. pTDefRegMap(@Self)^.&set := $00000080;
  38405. end;
  38406. function TUART2A_U2AMODE.getWAKE : TBits_1; inline;
  38407. begin
  38408. getWAKE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  38409. end;
  38410. procedure TUART2A_U2AMODE.setUEN(thebits : TBits_2); inline;
  38411. begin
  38412. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  38413. end;
  38414. function TUART2A_U2AMODE.getUEN : TBits_2; inline;
  38415. begin
  38416. getUEN := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  38417. end;
  38418. procedure TUART2A_U2AMODE.setRTSMD; inline;
  38419. begin
  38420. pTDefRegMap(@Self)^.&set := $00000800;
  38421. end;
  38422. procedure TUART2A_U2AMODE.clearRTSMD; inline;
  38423. begin
  38424. pTDefRegMap(@Self)^.clr := $00000800;
  38425. end;
  38426. procedure TUART2A_U2AMODE.setRTSMD(thebits : TBits_1); inline;
  38427. begin
  38428. if thebits = 0 then
  38429. pTDefRegMap(@Self)^.clr := $00000800
  38430. else
  38431. pTDefRegMap(@Self)^.&set := $00000800;
  38432. end;
  38433. function TUART2A_U2AMODE.getRTSMD : TBits_1; inline;
  38434. begin
  38435. getRTSMD := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  38436. end;
  38437. procedure TUART2A_U2AMODE.setIREN; inline;
  38438. begin
  38439. pTDefRegMap(@Self)^.&set := $00001000;
  38440. end;
  38441. procedure TUART2A_U2AMODE.clearIREN; inline;
  38442. begin
  38443. pTDefRegMap(@Self)^.clr := $00001000;
  38444. end;
  38445. procedure TUART2A_U2AMODE.setIREN(thebits : TBits_1); inline;
  38446. begin
  38447. if thebits = 0 then
  38448. pTDefRegMap(@Self)^.clr := $00001000
  38449. else
  38450. pTDefRegMap(@Self)^.&set := $00001000;
  38451. end;
  38452. function TUART2A_U2AMODE.getIREN : TBits_1; inline;
  38453. begin
  38454. getIREN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  38455. end;
  38456. procedure TUART2A_U2AMODE.setSIDL; inline;
  38457. begin
  38458. pTDefRegMap(@Self)^.&set := $00002000;
  38459. end;
  38460. procedure TUART2A_U2AMODE.clearSIDL; inline;
  38461. begin
  38462. pTDefRegMap(@Self)^.clr := $00002000;
  38463. end;
  38464. procedure TUART2A_U2AMODE.setSIDL(thebits : TBits_1); inline;
  38465. begin
  38466. if thebits = 0 then
  38467. pTDefRegMap(@Self)^.clr := $00002000
  38468. else
  38469. pTDefRegMap(@Self)^.&set := $00002000;
  38470. end;
  38471. function TUART2A_U2AMODE.getSIDL : TBits_1; inline;
  38472. begin
  38473. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  38474. end;
  38475. procedure TUART2A_U2AMODE.setON; inline;
  38476. begin
  38477. pTDefRegMap(@Self)^.&set := $00008000;
  38478. end;
  38479. procedure TUART2A_U2AMODE.clearON; inline;
  38480. begin
  38481. pTDefRegMap(@Self)^.clr := $00008000;
  38482. end;
  38483. procedure TUART2A_U2AMODE.setON(thebits : TBits_1); inline;
  38484. begin
  38485. if thebits = 0 then
  38486. pTDefRegMap(@Self)^.clr := $00008000
  38487. else
  38488. pTDefRegMap(@Self)^.&set := $00008000;
  38489. end;
  38490. function TUART2A_U2AMODE.getON : TBits_1; inline;
  38491. begin
  38492. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  38493. end;
  38494. procedure TUART2A_U2AMODE.setPDSEL0; inline;
  38495. begin
  38496. pTDefRegMap(@Self)^.&set := $00000002;
  38497. end;
  38498. procedure TUART2A_U2AMODE.clearPDSEL0; inline;
  38499. begin
  38500. pTDefRegMap(@Self)^.clr := $00000002;
  38501. end;
  38502. procedure TUART2A_U2AMODE.setPDSEL0(thebits : TBits_1); inline;
  38503. begin
  38504. if thebits = 0 then
  38505. pTDefRegMap(@Self)^.clr := $00000002
  38506. else
  38507. pTDefRegMap(@Self)^.&set := $00000002;
  38508. end;
  38509. function TUART2A_U2AMODE.getPDSEL0 : TBits_1; inline;
  38510. begin
  38511. getPDSEL0 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  38512. end;
  38513. procedure TUART2A_U2AMODE.setPDSEL1; inline;
  38514. begin
  38515. pTDefRegMap(@Self)^.&set := $00000004;
  38516. end;
  38517. procedure TUART2A_U2AMODE.clearPDSEL1; inline;
  38518. begin
  38519. pTDefRegMap(@Self)^.clr := $00000004;
  38520. end;
  38521. procedure TUART2A_U2AMODE.setPDSEL1(thebits : TBits_1); inline;
  38522. begin
  38523. if thebits = 0 then
  38524. pTDefRegMap(@Self)^.clr := $00000004
  38525. else
  38526. pTDefRegMap(@Self)^.&set := $00000004;
  38527. end;
  38528. function TUART2A_U2AMODE.getPDSEL1 : TBits_1; inline;
  38529. begin
  38530. getPDSEL1 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  38531. end;
  38532. procedure TUART2A_U2AMODE.setUEN0; inline;
  38533. begin
  38534. pTDefRegMap(@Self)^.&set := $00000100;
  38535. end;
  38536. procedure TUART2A_U2AMODE.clearUEN0; inline;
  38537. begin
  38538. pTDefRegMap(@Self)^.clr := $00000100;
  38539. end;
  38540. procedure TUART2A_U2AMODE.setUEN0(thebits : TBits_1); inline;
  38541. begin
  38542. if thebits = 0 then
  38543. pTDefRegMap(@Self)^.clr := $00000100
  38544. else
  38545. pTDefRegMap(@Self)^.&set := $00000100;
  38546. end;
  38547. function TUART2A_U2AMODE.getUEN0 : TBits_1; inline;
  38548. begin
  38549. getUEN0 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  38550. end;
  38551. procedure TUART2A_U2AMODE.setUEN1; inline;
  38552. begin
  38553. pTDefRegMap(@Self)^.&set := $00000200;
  38554. end;
  38555. procedure TUART2A_U2AMODE.clearUEN1; inline;
  38556. begin
  38557. pTDefRegMap(@Self)^.clr := $00000200;
  38558. end;
  38559. procedure TUART2A_U2AMODE.setUEN1(thebits : TBits_1); inline;
  38560. begin
  38561. if thebits = 0 then
  38562. pTDefRegMap(@Self)^.clr := $00000200
  38563. else
  38564. pTDefRegMap(@Self)^.&set := $00000200;
  38565. end;
  38566. function TUART2A_U2AMODE.getUEN1 : TBits_1; inline;
  38567. begin
  38568. getUEN1 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  38569. end;
  38570. procedure TUART2A_U2AMODE.setUSIDL; inline;
  38571. begin
  38572. pTDefRegMap(@Self)^.&set := $00002000;
  38573. end;
  38574. procedure TUART2A_U2AMODE.clearUSIDL; inline;
  38575. begin
  38576. pTDefRegMap(@Self)^.clr := $00002000;
  38577. end;
  38578. procedure TUART2A_U2AMODE.setUSIDL(thebits : TBits_1); inline;
  38579. begin
  38580. if thebits = 0 then
  38581. pTDefRegMap(@Self)^.clr := $00002000
  38582. else
  38583. pTDefRegMap(@Self)^.&set := $00002000;
  38584. end;
  38585. function TUART2A_U2AMODE.getUSIDL : TBits_1; inline;
  38586. begin
  38587. getUSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  38588. end;
  38589. procedure TUART2A_U2AMODE.setUARTEN; inline;
  38590. begin
  38591. pTDefRegMap(@Self)^.&set := $00008000;
  38592. end;
  38593. procedure TUART2A_U2AMODE.clearUARTEN; inline;
  38594. begin
  38595. pTDefRegMap(@Self)^.clr := $00008000;
  38596. end;
  38597. procedure TUART2A_U2AMODE.setUARTEN(thebits : TBits_1); inline;
  38598. begin
  38599. if thebits = 0 then
  38600. pTDefRegMap(@Self)^.clr := $00008000
  38601. else
  38602. pTDefRegMap(@Self)^.&set := $00008000;
  38603. end;
  38604. function TUART2A_U2AMODE.getUARTEN : TBits_1; inline;
  38605. begin
  38606. getUARTEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  38607. end;
  38608. procedure TUART2A_U2AMODE.setw(thebits : TBits_32); inline;
  38609. begin
  38610. pTDefRegMap(@Self)^.val := thebits;
  38611. end;
  38612. function TUART2A_U2AMODE.getw : TBits_32; inline;
  38613. begin
  38614. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  38615. end;
  38616. procedure TUART2A_U3MODE.setSTSEL; inline;
  38617. begin
  38618. pTDefRegMap(@Self)^.&set := $00000001;
  38619. end;
  38620. procedure TUART2A_U3MODE.clearSTSEL; inline;
  38621. begin
  38622. pTDefRegMap(@Self)^.clr := $00000001;
  38623. end;
  38624. procedure TUART2A_U3MODE.setSTSEL(thebits : TBits_1); inline;
  38625. begin
  38626. if thebits = 0 then
  38627. pTDefRegMap(@Self)^.clr := $00000001
  38628. else
  38629. pTDefRegMap(@Self)^.&set := $00000001;
  38630. end;
  38631. function TUART2A_U3MODE.getSTSEL : TBits_1; inline;
  38632. begin
  38633. getSTSEL := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  38634. end;
  38635. procedure TUART2A_U3MODE.setPDSEL(thebits : TBits_2); inline;
  38636. begin
  38637. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF9 or ( thebits shl 1 );
  38638. end;
  38639. function TUART2A_U3MODE.getPDSEL : TBits_2; inline;
  38640. begin
  38641. getPDSEL := (pTDefRegMap(@Self)^.val and $00000006) shr 1;
  38642. end;
  38643. procedure TUART2A_U3MODE.setBRGH; inline;
  38644. begin
  38645. pTDefRegMap(@Self)^.&set := $00000008;
  38646. end;
  38647. procedure TUART2A_U3MODE.clearBRGH; inline;
  38648. begin
  38649. pTDefRegMap(@Self)^.clr := $00000008;
  38650. end;
  38651. procedure TUART2A_U3MODE.setBRGH(thebits : TBits_1); inline;
  38652. begin
  38653. if thebits = 0 then
  38654. pTDefRegMap(@Self)^.clr := $00000008
  38655. else
  38656. pTDefRegMap(@Self)^.&set := $00000008;
  38657. end;
  38658. function TUART2A_U3MODE.getBRGH : TBits_1; inline;
  38659. begin
  38660. getBRGH := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  38661. end;
  38662. procedure TUART2A_U3MODE.setRXINV; inline;
  38663. begin
  38664. pTDefRegMap(@Self)^.&set := $00000010;
  38665. end;
  38666. procedure TUART2A_U3MODE.clearRXINV; inline;
  38667. begin
  38668. pTDefRegMap(@Self)^.clr := $00000010;
  38669. end;
  38670. procedure TUART2A_U3MODE.setRXINV(thebits : TBits_1); inline;
  38671. begin
  38672. if thebits = 0 then
  38673. pTDefRegMap(@Self)^.clr := $00000010
  38674. else
  38675. pTDefRegMap(@Self)^.&set := $00000010;
  38676. end;
  38677. function TUART2A_U3MODE.getRXINV : TBits_1; inline;
  38678. begin
  38679. getRXINV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  38680. end;
  38681. procedure TUART2A_U3MODE.setABAUD; inline;
  38682. begin
  38683. pTDefRegMap(@Self)^.&set := $00000020;
  38684. end;
  38685. procedure TUART2A_U3MODE.clearABAUD; inline;
  38686. begin
  38687. pTDefRegMap(@Self)^.clr := $00000020;
  38688. end;
  38689. procedure TUART2A_U3MODE.setABAUD(thebits : TBits_1); inline;
  38690. begin
  38691. if thebits = 0 then
  38692. pTDefRegMap(@Self)^.clr := $00000020
  38693. else
  38694. pTDefRegMap(@Self)^.&set := $00000020;
  38695. end;
  38696. function TUART2A_U3MODE.getABAUD : TBits_1; inline;
  38697. begin
  38698. getABAUD := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  38699. end;
  38700. procedure TUART2A_U3MODE.setLPBACK; inline;
  38701. begin
  38702. pTDefRegMap(@Self)^.&set := $00000040;
  38703. end;
  38704. procedure TUART2A_U3MODE.clearLPBACK; inline;
  38705. begin
  38706. pTDefRegMap(@Self)^.clr := $00000040;
  38707. end;
  38708. procedure TUART2A_U3MODE.setLPBACK(thebits : TBits_1); inline;
  38709. begin
  38710. if thebits = 0 then
  38711. pTDefRegMap(@Self)^.clr := $00000040
  38712. else
  38713. pTDefRegMap(@Self)^.&set := $00000040;
  38714. end;
  38715. function TUART2A_U3MODE.getLPBACK : TBits_1; inline;
  38716. begin
  38717. getLPBACK := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  38718. end;
  38719. procedure TUART2A_U3MODE.setWAKE; inline;
  38720. begin
  38721. pTDefRegMap(@Self)^.&set := $00000080;
  38722. end;
  38723. procedure TUART2A_U3MODE.clearWAKE; inline;
  38724. begin
  38725. pTDefRegMap(@Self)^.clr := $00000080;
  38726. end;
  38727. procedure TUART2A_U3MODE.setWAKE(thebits : TBits_1); inline;
  38728. begin
  38729. if thebits = 0 then
  38730. pTDefRegMap(@Self)^.clr := $00000080
  38731. else
  38732. pTDefRegMap(@Self)^.&set := $00000080;
  38733. end;
  38734. function TUART2A_U3MODE.getWAKE : TBits_1; inline;
  38735. begin
  38736. getWAKE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  38737. end;
  38738. procedure TUART2A_U3MODE.setUEN(thebits : TBits_2); inline;
  38739. begin
  38740. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  38741. end;
  38742. function TUART2A_U3MODE.getUEN : TBits_2; inline;
  38743. begin
  38744. getUEN := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  38745. end;
  38746. procedure TUART2A_U3MODE.setRTSMD; inline;
  38747. begin
  38748. pTDefRegMap(@Self)^.&set := $00000800;
  38749. end;
  38750. procedure TUART2A_U3MODE.clearRTSMD; inline;
  38751. begin
  38752. pTDefRegMap(@Self)^.clr := $00000800;
  38753. end;
  38754. procedure TUART2A_U3MODE.setRTSMD(thebits : TBits_1); inline;
  38755. begin
  38756. if thebits = 0 then
  38757. pTDefRegMap(@Self)^.clr := $00000800
  38758. else
  38759. pTDefRegMap(@Self)^.&set := $00000800;
  38760. end;
  38761. function TUART2A_U3MODE.getRTSMD : TBits_1; inline;
  38762. begin
  38763. getRTSMD := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  38764. end;
  38765. procedure TUART2A_U3MODE.setIREN; inline;
  38766. begin
  38767. pTDefRegMap(@Self)^.&set := $00001000;
  38768. end;
  38769. procedure TUART2A_U3MODE.clearIREN; inline;
  38770. begin
  38771. pTDefRegMap(@Self)^.clr := $00001000;
  38772. end;
  38773. procedure TUART2A_U3MODE.setIREN(thebits : TBits_1); inline;
  38774. begin
  38775. if thebits = 0 then
  38776. pTDefRegMap(@Self)^.clr := $00001000
  38777. else
  38778. pTDefRegMap(@Self)^.&set := $00001000;
  38779. end;
  38780. function TUART2A_U3MODE.getIREN : TBits_1; inline;
  38781. begin
  38782. getIREN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  38783. end;
  38784. procedure TUART2A_U3MODE.setSIDL; inline;
  38785. begin
  38786. pTDefRegMap(@Self)^.&set := $00002000;
  38787. end;
  38788. procedure TUART2A_U3MODE.clearSIDL; inline;
  38789. begin
  38790. pTDefRegMap(@Self)^.clr := $00002000;
  38791. end;
  38792. procedure TUART2A_U3MODE.setSIDL(thebits : TBits_1); inline;
  38793. begin
  38794. if thebits = 0 then
  38795. pTDefRegMap(@Self)^.clr := $00002000
  38796. else
  38797. pTDefRegMap(@Self)^.&set := $00002000;
  38798. end;
  38799. function TUART2A_U3MODE.getSIDL : TBits_1; inline;
  38800. begin
  38801. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  38802. end;
  38803. procedure TUART2A_U3MODE.setON; inline;
  38804. begin
  38805. pTDefRegMap(@Self)^.&set := $00008000;
  38806. end;
  38807. procedure TUART2A_U3MODE.clearON; inline;
  38808. begin
  38809. pTDefRegMap(@Self)^.clr := $00008000;
  38810. end;
  38811. procedure TUART2A_U3MODE.setON(thebits : TBits_1); inline;
  38812. begin
  38813. if thebits = 0 then
  38814. pTDefRegMap(@Self)^.clr := $00008000
  38815. else
  38816. pTDefRegMap(@Self)^.&set := $00008000;
  38817. end;
  38818. function TUART2A_U3MODE.getON : TBits_1; inline;
  38819. begin
  38820. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  38821. end;
  38822. procedure TUART2A_U3MODE.setPDSEL0; inline;
  38823. begin
  38824. pTDefRegMap(@Self)^.&set := $00000002;
  38825. end;
  38826. procedure TUART2A_U3MODE.clearPDSEL0; inline;
  38827. begin
  38828. pTDefRegMap(@Self)^.clr := $00000002;
  38829. end;
  38830. procedure TUART2A_U3MODE.setPDSEL0(thebits : TBits_1); inline;
  38831. begin
  38832. if thebits = 0 then
  38833. pTDefRegMap(@Self)^.clr := $00000002
  38834. else
  38835. pTDefRegMap(@Self)^.&set := $00000002;
  38836. end;
  38837. function TUART2A_U3MODE.getPDSEL0 : TBits_1; inline;
  38838. begin
  38839. getPDSEL0 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  38840. end;
  38841. procedure TUART2A_U3MODE.setPDSEL1; inline;
  38842. begin
  38843. pTDefRegMap(@Self)^.&set := $00000004;
  38844. end;
  38845. procedure TUART2A_U3MODE.clearPDSEL1; inline;
  38846. begin
  38847. pTDefRegMap(@Self)^.clr := $00000004;
  38848. end;
  38849. procedure TUART2A_U3MODE.setPDSEL1(thebits : TBits_1); inline;
  38850. begin
  38851. if thebits = 0 then
  38852. pTDefRegMap(@Self)^.clr := $00000004
  38853. else
  38854. pTDefRegMap(@Self)^.&set := $00000004;
  38855. end;
  38856. function TUART2A_U3MODE.getPDSEL1 : TBits_1; inline;
  38857. begin
  38858. getPDSEL1 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  38859. end;
  38860. procedure TUART2A_U3MODE.setUEN0; inline;
  38861. begin
  38862. pTDefRegMap(@Self)^.&set := $00000100;
  38863. end;
  38864. procedure TUART2A_U3MODE.clearUEN0; inline;
  38865. begin
  38866. pTDefRegMap(@Self)^.clr := $00000100;
  38867. end;
  38868. procedure TUART2A_U3MODE.setUEN0(thebits : TBits_1); inline;
  38869. begin
  38870. if thebits = 0 then
  38871. pTDefRegMap(@Self)^.clr := $00000100
  38872. else
  38873. pTDefRegMap(@Self)^.&set := $00000100;
  38874. end;
  38875. function TUART2A_U3MODE.getUEN0 : TBits_1; inline;
  38876. begin
  38877. getUEN0 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  38878. end;
  38879. procedure TUART2A_U3MODE.setUEN1; inline;
  38880. begin
  38881. pTDefRegMap(@Self)^.&set := $00000200;
  38882. end;
  38883. procedure TUART2A_U3MODE.clearUEN1; inline;
  38884. begin
  38885. pTDefRegMap(@Self)^.clr := $00000200;
  38886. end;
  38887. procedure TUART2A_U3MODE.setUEN1(thebits : TBits_1); inline;
  38888. begin
  38889. if thebits = 0 then
  38890. pTDefRegMap(@Self)^.clr := $00000200
  38891. else
  38892. pTDefRegMap(@Self)^.&set := $00000200;
  38893. end;
  38894. function TUART2A_U3MODE.getUEN1 : TBits_1; inline;
  38895. begin
  38896. getUEN1 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  38897. end;
  38898. procedure TUART2A_U3MODE.setUSIDL; inline;
  38899. begin
  38900. pTDefRegMap(@Self)^.&set := $00002000;
  38901. end;
  38902. procedure TUART2A_U3MODE.clearUSIDL; inline;
  38903. begin
  38904. pTDefRegMap(@Self)^.clr := $00002000;
  38905. end;
  38906. procedure TUART2A_U3MODE.setUSIDL(thebits : TBits_1); inline;
  38907. begin
  38908. if thebits = 0 then
  38909. pTDefRegMap(@Self)^.clr := $00002000
  38910. else
  38911. pTDefRegMap(@Self)^.&set := $00002000;
  38912. end;
  38913. function TUART2A_U3MODE.getUSIDL : TBits_1; inline;
  38914. begin
  38915. getUSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  38916. end;
  38917. procedure TUART2A_U3MODE.setUARTEN; inline;
  38918. begin
  38919. pTDefRegMap(@Self)^.&set := $00008000;
  38920. end;
  38921. procedure TUART2A_U3MODE.clearUARTEN; inline;
  38922. begin
  38923. pTDefRegMap(@Self)^.clr := $00008000;
  38924. end;
  38925. procedure TUART2A_U3MODE.setUARTEN(thebits : TBits_1); inline;
  38926. begin
  38927. if thebits = 0 then
  38928. pTDefRegMap(@Self)^.clr := $00008000
  38929. else
  38930. pTDefRegMap(@Self)^.&set := $00008000;
  38931. end;
  38932. function TUART2A_U3MODE.getUARTEN : TBits_1; inline;
  38933. begin
  38934. getUARTEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  38935. end;
  38936. procedure TUART2A_U3MODE.setw(thebits : TBits_32); inline;
  38937. begin
  38938. pTDefRegMap(@Self)^.val := thebits;
  38939. end;
  38940. function TUART2A_U3MODE.getw : TBits_32; inline;
  38941. begin
  38942. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  38943. end;
  38944. procedure TUART2A_U2ASTA.setURXDA; inline;
  38945. begin
  38946. pTDefRegMap(@Self)^.&set := $00000001;
  38947. end;
  38948. procedure TUART2A_U2ASTA.clearURXDA; inline;
  38949. begin
  38950. pTDefRegMap(@Self)^.clr := $00000001;
  38951. end;
  38952. procedure TUART2A_U2ASTA.setURXDA(thebits : TBits_1); inline;
  38953. begin
  38954. if thebits = 0 then
  38955. pTDefRegMap(@Self)^.clr := $00000001
  38956. else
  38957. pTDefRegMap(@Self)^.&set := $00000001;
  38958. end;
  38959. function TUART2A_U2ASTA.getURXDA : TBits_1; inline;
  38960. begin
  38961. getURXDA := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  38962. end;
  38963. procedure TUART2A_U2ASTA.setOERR; inline;
  38964. begin
  38965. pTDefRegMap(@Self)^.&set := $00000002;
  38966. end;
  38967. procedure TUART2A_U2ASTA.clearOERR; inline;
  38968. begin
  38969. pTDefRegMap(@Self)^.clr := $00000002;
  38970. end;
  38971. procedure TUART2A_U2ASTA.setOERR(thebits : TBits_1); inline;
  38972. begin
  38973. if thebits = 0 then
  38974. pTDefRegMap(@Self)^.clr := $00000002
  38975. else
  38976. pTDefRegMap(@Self)^.&set := $00000002;
  38977. end;
  38978. function TUART2A_U2ASTA.getOERR : TBits_1; inline;
  38979. begin
  38980. getOERR := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  38981. end;
  38982. procedure TUART2A_U2ASTA.setFERR; inline;
  38983. begin
  38984. pTDefRegMap(@Self)^.&set := $00000004;
  38985. end;
  38986. procedure TUART2A_U2ASTA.clearFERR; inline;
  38987. begin
  38988. pTDefRegMap(@Self)^.clr := $00000004;
  38989. end;
  38990. procedure TUART2A_U2ASTA.setFERR(thebits : TBits_1); inline;
  38991. begin
  38992. if thebits = 0 then
  38993. pTDefRegMap(@Self)^.clr := $00000004
  38994. else
  38995. pTDefRegMap(@Self)^.&set := $00000004;
  38996. end;
  38997. function TUART2A_U2ASTA.getFERR : TBits_1; inline;
  38998. begin
  38999. getFERR := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  39000. end;
  39001. procedure TUART2A_U2ASTA.setPERR; inline;
  39002. begin
  39003. pTDefRegMap(@Self)^.&set := $00000008;
  39004. end;
  39005. procedure TUART2A_U2ASTA.clearPERR; inline;
  39006. begin
  39007. pTDefRegMap(@Self)^.clr := $00000008;
  39008. end;
  39009. procedure TUART2A_U2ASTA.setPERR(thebits : TBits_1); inline;
  39010. begin
  39011. if thebits = 0 then
  39012. pTDefRegMap(@Self)^.clr := $00000008
  39013. else
  39014. pTDefRegMap(@Self)^.&set := $00000008;
  39015. end;
  39016. function TUART2A_U2ASTA.getPERR : TBits_1; inline;
  39017. begin
  39018. getPERR := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  39019. end;
  39020. procedure TUART2A_U2ASTA.setRIDLE; inline;
  39021. begin
  39022. pTDefRegMap(@Self)^.&set := $00000010;
  39023. end;
  39024. procedure TUART2A_U2ASTA.clearRIDLE; inline;
  39025. begin
  39026. pTDefRegMap(@Self)^.clr := $00000010;
  39027. end;
  39028. procedure TUART2A_U2ASTA.setRIDLE(thebits : TBits_1); inline;
  39029. begin
  39030. if thebits = 0 then
  39031. pTDefRegMap(@Self)^.clr := $00000010
  39032. else
  39033. pTDefRegMap(@Self)^.&set := $00000010;
  39034. end;
  39035. function TUART2A_U2ASTA.getRIDLE : TBits_1; inline;
  39036. begin
  39037. getRIDLE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  39038. end;
  39039. procedure TUART2A_U2ASTA.setADDEN; inline;
  39040. begin
  39041. pTDefRegMap(@Self)^.&set := $00000020;
  39042. end;
  39043. procedure TUART2A_U2ASTA.clearADDEN; inline;
  39044. begin
  39045. pTDefRegMap(@Self)^.clr := $00000020;
  39046. end;
  39047. procedure TUART2A_U2ASTA.setADDEN(thebits : TBits_1); inline;
  39048. begin
  39049. if thebits = 0 then
  39050. pTDefRegMap(@Self)^.clr := $00000020
  39051. else
  39052. pTDefRegMap(@Self)^.&set := $00000020;
  39053. end;
  39054. function TUART2A_U2ASTA.getADDEN : TBits_1; inline;
  39055. begin
  39056. getADDEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  39057. end;
  39058. procedure TUART2A_U2ASTA.setURXISEL(thebits : TBits_2); inline;
  39059. begin
  39060. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
  39061. end;
  39062. function TUART2A_U2ASTA.getURXISEL : TBits_2; inline;
  39063. begin
  39064. getURXISEL := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
  39065. end;
  39066. procedure TUART2A_U2ASTA.setTRMT; inline;
  39067. begin
  39068. pTDefRegMap(@Self)^.&set := $00000100;
  39069. end;
  39070. procedure TUART2A_U2ASTA.clearTRMT; inline;
  39071. begin
  39072. pTDefRegMap(@Self)^.clr := $00000100;
  39073. end;
  39074. procedure TUART2A_U2ASTA.setTRMT(thebits : TBits_1); inline;
  39075. begin
  39076. if thebits = 0 then
  39077. pTDefRegMap(@Self)^.clr := $00000100
  39078. else
  39079. pTDefRegMap(@Self)^.&set := $00000100;
  39080. end;
  39081. function TUART2A_U2ASTA.getTRMT : TBits_1; inline;
  39082. begin
  39083. getTRMT := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  39084. end;
  39085. procedure TUART2A_U2ASTA.setUTXBF; inline;
  39086. begin
  39087. pTDefRegMap(@Self)^.&set := $00000200;
  39088. end;
  39089. procedure TUART2A_U2ASTA.clearUTXBF; inline;
  39090. begin
  39091. pTDefRegMap(@Self)^.clr := $00000200;
  39092. end;
  39093. procedure TUART2A_U2ASTA.setUTXBF(thebits : TBits_1); inline;
  39094. begin
  39095. if thebits = 0 then
  39096. pTDefRegMap(@Self)^.clr := $00000200
  39097. else
  39098. pTDefRegMap(@Self)^.&set := $00000200;
  39099. end;
  39100. function TUART2A_U2ASTA.getUTXBF : TBits_1; inline;
  39101. begin
  39102. getUTXBF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  39103. end;
  39104. procedure TUART2A_U2ASTA.setUTXEN; inline;
  39105. begin
  39106. pTDefRegMap(@Self)^.&set := $00000400;
  39107. end;
  39108. procedure TUART2A_U2ASTA.clearUTXEN; inline;
  39109. begin
  39110. pTDefRegMap(@Self)^.clr := $00000400;
  39111. end;
  39112. procedure TUART2A_U2ASTA.setUTXEN(thebits : TBits_1); inline;
  39113. begin
  39114. if thebits = 0 then
  39115. pTDefRegMap(@Self)^.clr := $00000400
  39116. else
  39117. pTDefRegMap(@Self)^.&set := $00000400;
  39118. end;
  39119. function TUART2A_U2ASTA.getUTXEN : TBits_1; inline;
  39120. begin
  39121. getUTXEN := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  39122. end;
  39123. procedure TUART2A_U2ASTA.setUTXBRK; inline;
  39124. begin
  39125. pTDefRegMap(@Self)^.&set := $00000800;
  39126. end;
  39127. procedure TUART2A_U2ASTA.clearUTXBRK; inline;
  39128. begin
  39129. pTDefRegMap(@Self)^.clr := $00000800;
  39130. end;
  39131. procedure TUART2A_U2ASTA.setUTXBRK(thebits : TBits_1); inline;
  39132. begin
  39133. if thebits = 0 then
  39134. pTDefRegMap(@Self)^.clr := $00000800
  39135. else
  39136. pTDefRegMap(@Self)^.&set := $00000800;
  39137. end;
  39138. function TUART2A_U2ASTA.getUTXBRK : TBits_1; inline;
  39139. begin
  39140. getUTXBRK := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  39141. end;
  39142. procedure TUART2A_U2ASTA.setURXEN; inline;
  39143. begin
  39144. pTDefRegMap(@Self)^.&set := $00001000;
  39145. end;
  39146. procedure TUART2A_U2ASTA.clearURXEN; inline;
  39147. begin
  39148. pTDefRegMap(@Self)^.clr := $00001000;
  39149. end;
  39150. procedure TUART2A_U2ASTA.setURXEN(thebits : TBits_1); inline;
  39151. begin
  39152. if thebits = 0 then
  39153. pTDefRegMap(@Self)^.clr := $00001000
  39154. else
  39155. pTDefRegMap(@Self)^.&set := $00001000;
  39156. end;
  39157. function TUART2A_U2ASTA.getURXEN : TBits_1; inline;
  39158. begin
  39159. getURXEN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  39160. end;
  39161. procedure TUART2A_U2ASTA.setUTXINV; inline;
  39162. begin
  39163. pTDefRegMap(@Self)^.&set := $00002000;
  39164. end;
  39165. procedure TUART2A_U2ASTA.clearUTXINV; inline;
  39166. begin
  39167. pTDefRegMap(@Self)^.clr := $00002000;
  39168. end;
  39169. procedure TUART2A_U2ASTA.setUTXINV(thebits : TBits_1); inline;
  39170. begin
  39171. if thebits = 0 then
  39172. pTDefRegMap(@Self)^.clr := $00002000
  39173. else
  39174. pTDefRegMap(@Self)^.&set := $00002000;
  39175. end;
  39176. function TUART2A_U2ASTA.getUTXINV : TBits_1; inline;
  39177. begin
  39178. getUTXINV := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  39179. end;
  39180. procedure TUART2A_U2ASTA.setUTXISEL(thebits : TBits_2); inline;
  39181. begin
  39182. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  39183. end;
  39184. function TUART2A_U2ASTA.getUTXISEL : TBits_2; inline;
  39185. begin
  39186. getUTXISEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  39187. end;
  39188. procedure TUART2A_U2ASTA.setADDR(thebits : TBits_8); inline;
  39189. begin
  39190. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
  39191. end;
  39192. function TUART2A_U2ASTA.getADDR : TBits_8; inline;
  39193. begin
  39194. getADDR := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
  39195. end;
  39196. procedure TUART2A_U2ASTA.setADM_EN; inline;
  39197. begin
  39198. pTDefRegMap(@Self)^.&set := $01000000;
  39199. end;
  39200. procedure TUART2A_U2ASTA.clearADM_EN; inline;
  39201. begin
  39202. pTDefRegMap(@Self)^.clr := $01000000;
  39203. end;
  39204. procedure TUART2A_U2ASTA.setADM_EN(thebits : TBits_1); inline;
  39205. begin
  39206. if thebits = 0 then
  39207. pTDefRegMap(@Self)^.clr := $01000000
  39208. else
  39209. pTDefRegMap(@Self)^.&set := $01000000;
  39210. end;
  39211. function TUART2A_U2ASTA.getADM_EN : TBits_1; inline;
  39212. begin
  39213. getADM_EN := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  39214. end;
  39215. procedure TUART2A_U2ASTA.setURXISEL0; inline;
  39216. begin
  39217. pTDefRegMap(@Self)^.&set := $00000040;
  39218. end;
  39219. procedure TUART2A_U2ASTA.clearURXISEL0; inline;
  39220. begin
  39221. pTDefRegMap(@Self)^.clr := $00000040;
  39222. end;
  39223. procedure TUART2A_U2ASTA.setURXISEL0(thebits : TBits_1); inline;
  39224. begin
  39225. if thebits = 0 then
  39226. pTDefRegMap(@Self)^.clr := $00000040
  39227. else
  39228. pTDefRegMap(@Self)^.&set := $00000040;
  39229. end;
  39230. function TUART2A_U2ASTA.getURXISEL0 : TBits_1; inline;
  39231. begin
  39232. getURXISEL0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  39233. end;
  39234. procedure TUART2A_U2ASTA.setURXISEL1; inline;
  39235. begin
  39236. pTDefRegMap(@Self)^.&set := $00000080;
  39237. end;
  39238. procedure TUART2A_U2ASTA.clearURXISEL1; inline;
  39239. begin
  39240. pTDefRegMap(@Self)^.clr := $00000080;
  39241. end;
  39242. procedure TUART2A_U2ASTA.setURXISEL1(thebits : TBits_1); inline;
  39243. begin
  39244. if thebits = 0 then
  39245. pTDefRegMap(@Self)^.clr := $00000080
  39246. else
  39247. pTDefRegMap(@Self)^.&set := $00000080;
  39248. end;
  39249. function TUART2A_U2ASTA.getURXISEL1 : TBits_1; inline;
  39250. begin
  39251. getURXISEL1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  39252. end;
  39253. procedure TUART2A_U2ASTA.setUTXISEL0; inline;
  39254. begin
  39255. pTDefRegMap(@Self)^.&set := $00004000;
  39256. end;
  39257. procedure TUART2A_U2ASTA.clearUTXISEL0; inline;
  39258. begin
  39259. pTDefRegMap(@Self)^.clr := $00004000;
  39260. end;
  39261. procedure TUART2A_U2ASTA.setUTXISEL0(thebits : TBits_1); inline;
  39262. begin
  39263. if thebits = 0 then
  39264. pTDefRegMap(@Self)^.clr := $00004000
  39265. else
  39266. pTDefRegMap(@Self)^.&set := $00004000;
  39267. end;
  39268. function TUART2A_U2ASTA.getUTXISEL0 : TBits_1; inline;
  39269. begin
  39270. getUTXISEL0 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  39271. end;
  39272. procedure TUART2A_U2ASTA.setUTXISEL1; inline;
  39273. begin
  39274. pTDefRegMap(@Self)^.&set := $00008000;
  39275. end;
  39276. procedure TUART2A_U2ASTA.clearUTXISEL1; inline;
  39277. begin
  39278. pTDefRegMap(@Self)^.clr := $00008000;
  39279. end;
  39280. procedure TUART2A_U2ASTA.setUTXISEL1(thebits : TBits_1); inline;
  39281. begin
  39282. if thebits = 0 then
  39283. pTDefRegMap(@Self)^.clr := $00008000
  39284. else
  39285. pTDefRegMap(@Self)^.&set := $00008000;
  39286. end;
  39287. function TUART2A_U2ASTA.getUTXISEL1 : TBits_1; inline;
  39288. begin
  39289. getUTXISEL1 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  39290. end;
  39291. procedure TUART2A_U2ASTA.setUTXSEL(thebits : TBits_2); inline;
  39292. begin
  39293. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  39294. end;
  39295. function TUART2A_U2ASTA.getUTXSEL : TBits_2; inline;
  39296. begin
  39297. getUTXSEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  39298. end;
  39299. procedure TUART2A_U2ASTA.setw(thebits : TBits_32); inline;
  39300. begin
  39301. pTDefRegMap(@Self)^.val := thebits;
  39302. end;
  39303. function TUART2A_U2ASTA.getw : TBits_32; inline;
  39304. begin
  39305. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  39306. end;
  39307. procedure TUART2A_U3STA.setURXDA; inline;
  39308. begin
  39309. pTDefRegMap(@Self)^.&set := $00000001;
  39310. end;
  39311. procedure TUART2A_U3STA.clearURXDA; inline;
  39312. begin
  39313. pTDefRegMap(@Self)^.clr := $00000001;
  39314. end;
  39315. procedure TUART2A_U3STA.setURXDA(thebits : TBits_1); inline;
  39316. begin
  39317. if thebits = 0 then
  39318. pTDefRegMap(@Self)^.clr := $00000001
  39319. else
  39320. pTDefRegMap(@Self)^.&set := $00000001;
  39321. end;
  39322. function TUART2A_U3STA.getURXDA : TBits_1; inline;
  39323. begin
  39324. getURXDA := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  39325. end;
  39326. procedure TUART2A_U3STA.setOERR; inline;
  39327. begin
  39328. pTDefRegMap(@Self)^.&set := $00000002;
  39329. end;
  39330. procedure TUART2A_U3STA.clearOERR; inline;
  39331. begin
  39332. pTDefRegMap(@Self)^.clr := $00000002;
  39333. end;
  39334. procedure TUART2A_U3STA.setOERR(thebits : TBits_1); inline;
  39335. begin
  39336. if thebits = 0 then
  39337. pTDefRegMap(@Self)^.clr := $00000002
  39338. else
  39339. pTDefRegMap(@Self)^.&set := $00000002;
  39340. end;
  39341. function TUART2A_U3STA.getOERR : TBits_1; inline;
  39342. begin
  39343. getOERR := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  39344. end;
  39345. procedure TUART2A_U3STA.setFERR; inline;
  39346. begin
  39347. pTDefRegMap(@Self)^.&set := $00000004;
  39348. end;
  39349. procedure TUART2A_U3STA.clearFERR; inline;
  39350. begin
  39351. pTDefRegMap(@Self)^.clr := $00000004;
  39352. end;
  39353. procedure TUART2A_U3STA.setFERR(thebits : TBits_1); inline;
  39354. begin
  39355. if thebits = 0 then
  39356. pTDefRegMap(@Self)^.clr := $00000004
  39357. else
  39358. pTDefRegMap(@Self)^.&set := $00000004;
  39359. end;
  39360. function TUART2A_U3STA.getFERR : TBits_1; inline;
  39361. begin
  39362. getFERR := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  39363. end;
  39364. procedure TUART2A_U3STA.setPERR; inline;
  39365. begin
  39366. pTDefRegMap(@Self)^.&set := $00000008;
  39367. end;
  39368. procedure TUART2A_U3STA.clearPERR; inline;
  39369. begin
  39370. pTDefRegMap(@Self)^.clr := $00000008;
  39371. end;
  39372. procedure TUART2A_U3STA.setPERR(thebits : TBits_1); inline;
  39373. begin
  39374. if thebits = 0 then
  39375. pTDefRegMap(@Self)^.clr := $00000008
  39376. else
  39377. pTDefRegMap(@Self)^.&set := $00000008;
  39378. end;
  39379. function TUART2A_U3STA.getPERR : TBits_1; inline;
  39380. begin
  39381. getPERR := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  39382. end;
  39383. procedure TUART2A_U3STA.setRIDLE; inline;
  39384. begin
  39385. pTDefRegMap(@Self)^.&set := $00000010;
  39386. end;
  39387. procedure TUART2A_U3STA.clearRIDLE; inline;
  39388. begin
  39389. pTDefRegMap(@Self)^.clr := $00000010;
  39390. end;
  39391. procedure TUART2A_U3STA.setRIDLE(thebits : TBits_1); inline;
  39392. begin
  39393. if thebits = 0 then
  39394. pTDefRegMap(@Self)^.clr := $00000010
  39395. else
  39396. pTDefRegMap(@Self)^.&set := $00000010;
  39397. end;
  39398. function TUART2A_U3STA.getRIDLE : TBits_1; inline;
  39399. begin
  39400. getRIDLE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  39401. end;
  39402. procedure TUART2A_U3STA.setADDEN; inline;
  39403. begin
  39404. pTDefRegMap(@Self)^.&set := $00000020;
  39405. end;
  39406. procedure TUART2A_U3STA.clearADDEN; inline;
  39407. begin
  39408. pTDefRegMap(@Self)^.clr := $00000020;
  39409. end;
  39410. procedure TUART2A_U3STA.setADDEN(thebits : TBits_1); inline;
  39411. begin
  39412. if thebits = 0 then
  39413. pTDefRegMap(@Self)^.clr := $00000020
  39414. else
  39415. pTDefRegMap(@Self)^.&set := $00000020;
  39416. end;
  39417. function TUART2A_U3STA.getADDEN : TBits_1; inline;
  39418. begin
  39419. getADDEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  39420. end;
  39421. procedure TUART2A_U3STA.setURXISEL(thebits : TBits_2); inline;
  39422. begin
  39423. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
  39424. end;
  39425. function TUART2A_U3STA.getURXISEL : TBits_2; inline;
  39426. begin
  39427. getURXISEL := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
  39428. end;
  39429. procedure TUART2A_U3STA.setTRMT; inline;
  39430. begin
  39431. pTDefRegMap(@Self)^.&set := $00000100;
  39432. end;
  39433. procedure TUART2A_U3STA.clearTRMT; inline;
  39434. begin
  39435. pTDefRegMap(@Self)^.clr := $00000100;
  39436. end;
  39437. procedure TUART2A_U3STA.setTRMT(thebits : TBits_1); inline;
  39438. begin
  39439. if thebits = 0 then
  39440. pTDefRegMap(@Self)^.clr := $00000100
  39441. else
  39442. pTDefRegMap(@Self)^.&set := $00000100;
  39443. end;
  39444. function TUART2A_U3STA.getTRMT : TBits_1; inline;
  39445. begin
  39446. getTRMT := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  39447. end;
  39448. procedure TUART2A_U3STA.setUTXBF; inline;
  39449. begin
  39450. pTDefRegMap(@Self)^.&set := $00000200;
  39451. end;
  39452. procedure TUART2A_U3STA.clearUTXBF; inline;
  39453. begin
  39454. pTDefRegMap(@Self)^.clr := $00000200;
  39455. end;
  39456. procedure TUART2A_U3STA.setUTXBF(thebits : TBits_1); inline;
  39457. begin
  39458. if thebits = 0 then
  39459. pTDefRegMap(@Self)^.clr := $00000200
  39460. else
  39461. pTDefRegMap(@Self)^.&set := $00000200;
  39462. end;
  39463. function TUART2A_U3STA.getUTXBF : TBits_1; inline;
  39464. begin
  39465. getUTXBF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  39466. end;
  39467. procedure TUART2A_U3STA.setUTXEN; inline;
  39468. begin
  39469. pTDefRegMap(@Self)^.&set := $00000400;
  39470. end;
  39471. procedure TUART2A_U3STA.clearUTXEN; inline;
  39472. begin
  39473. pTDefRegMap(@Self)^.clr := $00000400;
  39474. end;
  39475. procedure TUART2A_U3STA.setUTXEN(thebits : TBits_1); inline;
  39476. begin
  39477. if thebits = 0 then
  39478. pTDefRegMap(@Self)^.clr := $00000400
  39479. else
  39480. pTDefRegMap(@Self)^.&set := $00000400;
  39481. end;
  39482. function TUART2A_U3STA.getUTXEN : TBits_1; inline;
  39483. begin
  39484. getUTXEN := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  39485. end;
  39486. procedure TUART2A_U3STA.setUTXBRK; inline;
  39487. begin
  39488. pTDefRegMap(@Self)^.&set := $00000800;
  39489. end;
  39490. procedure TUART2A_U3STA.clearUTXBRK; inline;
  39491. begin
  39492. pTDefRegMap(@Self)^.clr := $00000800;
  39493. end;
  39494. procedure TUART2A_U3STA.setUTXBRK(thebits : TBits_1); inline;
  39495. begin
  39496. if thebits = 0 then
  39497. pTDefRegMap(@Self)^.clr := $00000800
  39498. else
  39499. pTDefRegMap(@Self)^.&set := $00000800;
  39500. end;
  39501. function TUART2A_U3STA.getUTXBRK : TBits_1; inline;
  39502. begin
  39503. getUTXBRK := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  39504. end;
  39505. procedure TUART2A_U3STA.setURXEN; inline;
  39506. begin
  39507. pTDefRegMap(@Self)^.&set := $00001000;
  39508. end;
  39509. procedure TUART2A_U3STA.clearURXEN; inline;
  39510. begin
  39511. pTDefRegMap(@Self)^.clr := $00001000;
  39512. end;
  39513. procedure TUART2A_U3STA.setURXEN(thebits : TBits_1); inline;
  39514. begin
  39515. if thebits = 0 then
  39516. pTDefRegMap(@Self)^.clr := $00001000
  39517. else
  39518. pTDefRegMap(@Self)^.&set := $00001000;
  39519. end;
  39520. function TUART2A_U3STA.getURXEN : TBits_1; inline;
  39521. begin
  39522. getURXEN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  39523. end;
  39524. procedure TUART2A_U3STA.setUTXINV; inline;
  39525. begin
  39526. pTDefRegMap(@Self)^.&set := $00002000;
  39527. end;
  39528. procedure TUART2A_U3STA.clearUTXINV; inline;
  39529. begin
  39530. pTDefRegMap(@Self)^.clr := $00002000;
  39531. end;
  39532. procedure TUART2A_U3STA.setUTXINV(thebits : TBits_1); inline;
  39533. begin
  39534. if thebits = 0 then
  39535. pTDefRegMap(@Self)^.clr := $00002000
  39536. else
  39537. pTDefRegMap(@Self)^.&set := $00002000;
  39538. end;
  39539. function TUART2A_U3STA.getUTXINV : TBits_1; inline;
  39540. begin
  39541. getUTXINV := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  39542. end;
  39543. procedure TUART2A_U3STA.setUTXISEL(thebits : TBits_2); inline;
  39544. begin
  39545. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  39546. end;
  39547. function TUART2A_U3STA.getUTXISEL : TBits_2; inline;
  39548. begin
  39549. getUTXISEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  39550. end;
  39551. procedure TUART2A_U3STA.setADDR(thebits : TBits_8); inline;
  39552. begin
  39553. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
  39554. end;
  39555. function TUART2A_U3STA.getADDR : TBits_8; inline;
  39556. begin
  39557. getADDR := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
  39558. end;
  39559. procedure TUART2A_U3STA.setADM_EN; inline;
  39560. begin
  39561. pTDefRegMap(@Self)^.&set := $01000000;
  39562. end;
  39563. procedure TUART2A_U3STA.clearADM_EN; inline;
  39564. begin
  39565. pTDefRegMap(@Self)^.clr := $01000000;
  39566. end;
  39567. procedure TUART2A_U3STA.setADM_EN(thebits : TBits_1); inline;
  39568. begin
  39569. if thebits = 0 then
  39570. pTDefRegMap(@Self)^.clr := $01000000
  39571. else
  39572. pTDefRegMap(@Self)^.&set := $01000000;
  39573. end;
  39574. function TUART2A_U3STA.getADM_EN : TBits_1; inline;
  39575. begin
  39576. getADM_EN := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  39577. end;
  39578. procedure TUART2A_U3STA.setURXISEL0; inline;
  39579. begin
  39580. pTDefRegMap(@Self)^.&set := $00000040;
  39581. end;
  39582. procedure TUART2A_U3STA.clearURXISEL0; inline;
  39583. begin
  39584. pTDefRegMap(@Self)^.clr := $00000040;
  39585. end;
  39586. procedure TUART2A_U3STA.setURXISEL0(thebits : TBits_1); inline;
  39587. begin
  39588. if thebits = 0 then
  39589. pTDefRegMap(@Self)^.clr := $00000040
  39590. else
  39591. pTDefRegMap(@Self)^.&set := $00000040;
  39592. end;
  39593. function TUART2A_U3STA.getURXISEL0 : TBits_1; inline;
  39594. begin
  39595. getURXISEL0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  39596. end;
  39597. procedure TUART2A_U3STA.setURXISEL1; inline;
  39598. begin
  39599. pTDefRegMap(@Self)^.&set := $00000080;
  39600. end;
  39601. procedure TUART2A_U3STA.clearURXISEL1; inline;
  39602. begin
  39603. pTDefRegMap(@Self)^.clr := $00000080;
  39604. end;
  39605. procedure TUART2A_U3STA.setURXISEL1(thebits : TBits_1); inline;
  39606. begin
  39607. if thebits = 0 then
  39608. pTDefRegMap(@Self)^.clr := $00000080
  39609. else
  39610. pTDefRegMap(@Self)^.&set := $00000080;
  39611. end;
  39612. function TUART2A_U3STA.getURXISEL1 : TBits_1; inline;
  39613. begin
  39614. getURXISEL1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  39615. end;
  39616. procedure TUART2A_U3STA.setUTXISEL0; inline;
  39617. begin
  39618. pTDefRegMap(@Self)^.&set := $00004000;
  39619. end;
  39620. procedure TUART2A_U3STA.clearUTXISEL0; inline;
  39621. begin
  39622. pTDefRegMap(@Self)^.clr := $00004000;
  39623. end;
  39624. procedure TUART2A_U3STA.setUTXISEL0(thebits : TBits_1); inline;
  39625. begin
  39626. if thebits = 0 then
  39627. pTDefRegMap(@Self)^.clr := $00004000
  39628. else
  39629. pTDefRegMap(@Self)^.&set := $00004000;
  39630. end;
  39631. function TUART2A_U3STA.getUTXISEL0 : TBits_1; inline;
  39632. begin
  39633. getUTXISEL0 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  39634. end;
  39635. procedure TUART2A_U3STA.setUTXISEL1; inline;
  39636. begin
  39637. pTDefRegMap(@Self)^.&set := $00008000;
  39638. end;
  39639. procedure TUART2A_U3STA.clearUTXISEL1; inline;
  39640. begin
  39641. pTDefRegMap(@Self)^.clr := $00008000;
  39642. end;
  39643. procedure TUART2A_U3STA.setUTXISEL1(thebits : TBits_1); inline;
  39644. begin
  39645. if thebits = 0 then
  39646. pTDefRegMap(@Self)^.clr := $00008000
  39647. else
  39648. pTDefRegMap(@Self)^.&set := $00008000;
  39649. end;
  39650. function TUART2A_U3STA.getUTXISEL1 : TBits_1; inline;
  39651. begin
  39652. getUTXISEL1 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  39653. end;
  39654. procedure TUART2A_U3STA.setUTXSEL(thebits : TBits_2); inline;
  39655. begin
  39656. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  39657. end;
  39658. function TUART2A_U3STA.getUTXSEL : TBits_2; inline;
  39659. begin
  39660. getUTXSEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  39661. end;
  39662. procedure TUART2A_U3STA.setw(thebits : TBits_32); inline;
  39663. begin
  39664. pTDefRegMap(@Self)^.val := thebits;
  39665. end;
  39666. function TUART2A_U3STA.getw : TBits_32; inline;
  39667. begin
  39668. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  39669. end;
  39670. procedure TUART2B_U2BMODE.setSTSEL; inline;
  39671. begin
  39672. pTDefRegMap(@Self)^.&set := $00000001;
  39673. end;
  39674. procedure TUART2B_U2BMODE.clearSTSEL; inline;
  39675. begin
  39676. pTDefRegMap(@Self)^.clr := $00000001;
  39677. end;
  39678. procedure TUART2B_U2BMODE.setSTSEL(thebits : TBits_1); inline;
  39679. begin
  39680. if thebits = 0 then
  39681. pTDefRegMap(@Self)^.clr := $00000001
  39682. else
  39683. pTDefRegMap(@Self)^.&set := $00000001;
  39684. end;
  39685. function TUART2B_U2BMODE.getSTSEL : TBits_1; inline;
  39686. begin
  39687. getSTSEL := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  39688. end;
  39689. procedure TUART2B_U2BMODE.setPDSEL(thebits : TBits_2); inline;
  39690. begin
  39691. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF9 or ( thebits shl 1 );
  39692. end;
  39693. function TUART2B_U2BMODE.getPDSEL : TBits_2; inline;
  39694. begin
  39695. getPDSEL := (pTDefRegMap(@Self)^.val and $00000006) shr 1;
  39696. end;
  39697. procedure TUART2B_U2BMODE.setBRGH; inline;
  39698. begin
  39699. pTDefRegMap(@Self)^.&set := $00000008;
  39700. end;
  39701. procedure TUART2B_U2BMODE.clearBRGH; inline;
  39702. begin
  39703. pTDefRegMap(@Self)^.clr := $00000008;
  39704. end;
  39705. procedure TUART2B_U2BMODE.setBRGH(thebits : TBits_1); inline;
  39706. begin
  39707. if thebits = 0 then
  39708. pTDefRegMap(@Self)^.clr := $00000008
  39709. else
  39710. pTDefRegMap(@Self)^.&set := $00000008;
  39711. end;
  39712. function TUART2B_U2BMODE.getBRGH : TBits_1; inline;
  39713. begin
  39714. getBRGH := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  39715. end;
  39716. procedure TUART2B_U2BMODE.setRXINV; inline;
  39717. begin
  39718. pTDefRegMap(@Self)^.&set := $00000010;
  39719. end;
  39720. procedure TUART2B_U2BMODE.clearRXINV; inline;
  39721. begin
  39722. pTDefRegMap(@Self)^.clr := $00000010;
  39723. end;
  39724. procedure TUART2B_U2BMODE.setRXINV(thebits : TBits_1); inline;
  39725. begin
  39726. if thebits = 0 then
  39727. pTDefRegMap(@Self)^.clr := $00000010
  39728. else
  39729. pTDefRegMap(@Self)^.&set := $00000010;
  39730. end;
  39731. function TUART2B_U2BMODE.getRXINV : TBits_1; inline;
  39732. begin
  39733. getRXINV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  39734. end;
  39735. procedure TUART2B_U2BMODE.setABAUD; inline;
  39736. begin
  39737. pTDefRegMap(@Self)^.&set := $00000020;
  39738. end;
  39739. procedure TUART2B_U2BMODE.clearABAUD; inline;
  39740. begin
  39741. pTDefRegMap(@Self)^.clr := $00000020;
  39742. end;
  39743. procedure TUART2B_U2BMODE.setABAUD(thebits : TBits_1); inline;
  39744. begin
  39745. if thebits = 0 then
  39746. pTDefRegMap(@Self)^.clr := $00000020
  39747. else
  39748. pTDefRegMap(@Self)^.&set := $00000020;
  39749. end;
  39750. function TUART2B_U2BMODE.getABAUD : TBits_1; inline;
  39751. begin
  39752. getABAUD := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  39753. end;
  39754. procedure TUART2B_U2BMODE.setLPBACK; inline;
  39755. begin
  39756. pTDefRegMap(@Self)^.&set := $00000040;
  39757. end;
  39758. procedure TUART2B_U2BMODE.clearLPBACK; inline;
  39759. begin
  39760. pTDefRegMap(@Self)^.clr := $00000040;
  39761. end;
  39762. procedure TUART2B_U2BMODE.setLPBACK(thebits : TBits_1); inline;
  39763. begin
  39764. if thebits = 0 then
  39765. pTDefRegMap(@Self)^.clr := $00000040
  39766. else
  39767. pTDefRegMap(@Self)^.&set := $00000040;
  39768. end;
  39769. function TUART2B_U2BMODE.getLPBACK : TBits_1; inline;
  39770. begin
  39771. getLPBACK := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  39772. end;
  39773. procedure TUART2B_U2BMODE.setWAKE; inline;
  39774. begin
  39775. pTDefRegMap(@Self)^.&set := $00000080;
  39776. end;
  39777. procedure TUART2B_U2BMODE.clearWAKE; inline;
  39778. begin
  39779. pTDefRegMap(@Self)^.clr := $00000080;
  39780. end;
  39781. procedure TUART2B_U2BMODE.setWAKE(thebits : TBits_1); inline;
  39782. begin
  39783. if thebits = 0 then
  39784. pTDefRegMap(@Self)^.clr := $00000080
  39785. else
  39786. pTDefRegMap(@Self)^.&set := $00000080;
  39787. end;
  39788. function TUART2B_U2BMODE.getWAKE : TBits_1; inline;
  39789. begin
  39790. getWAKE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  39791. end;
  39792. procedure TUART2B_U2BMODE.setIREN; inline;
  39793. begin
  39794. pTDefRegMap(@Self)^.&set := $00001000;
  39795. end;
  39796. procedure TUART2B_U2BMODE.clearIREN; inline;
  39797. begin
  39798. pTDefRegMap(@Self)^.clr := $00001000;
  39799. end;
  39800. procedure TUART2B_U2BMODE.setIREN(thebits : TBits_1); inline;
  39801. begin
  39802. if thebits = 0 then
  39803. pTDefRegMap(@Self)^.clr := $00001000
  39804. else
  39805. pTDefRegMap(@Self)^.&set := $00001000;
  39806. end;
  39807. function TUART2B_U2BMODE.getIREN : TBits_1; inline;
  39808. begin
  39809. getIREN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  39810. end;
  39811. procedure TUART2B_U2BMODE.setSIDL; inline;
  39812. begin
  39813. pTDefRegMap(@Self)^.&set := $00002000;
  39814. end;
  39815. procedure TUART2B_U2BMODE.clearSIDL; inline;
  39816. begin
  39817. pTDefRegMap(@Self)^.clr := $00002000;
  39818. end;
  39819. procedure TUART2B_U2BMODE.setSIDL(thebits : TBits_1); inline;
  39820. begin
  39821. if thebits = 0 then
  39822. pTDefRegMap(@Self)^.clr := $00002000
  39823. else
  39824. pTDefRegMap(@Self)^.&set := $00002000;
  39825. end;
  39826. function TUART2B_U2BMODE.getSIDL : TBits_1; inline;
  39827. begin
  39828. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  39829. end;
  39830. procedure TUART2B_U2BMODE.setON; inline;
  39831. begin
  39832. pTDefRegMap(@Self)^.&set := $00008000;
  39833. end;
  39834. procedure TUART2B_U2BMODE.clearON; inline;
  39835. begin
  39836. pTDefRegMap(@Self)^.clr := $00008000;
  39837. end;
  39838. procedure TUART2B_U2BMODE.setON(thebits : TBits_1); inline;
  39839. begin
  39840. if thebits = 0 then
  39841. pTDefRegMap(@Self)^.clr := $00008000
  39842. else
  39843. pTDefRegMap(@Self)^.&set := $00008000;
  39844. end;
  39845. function TUART2B_U2BMODE.getON : TBits_1; inline;
  39846. begin
  39847. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  39848. end;
  39849. procedure TUART2B_U2BMODE.setPDSEL0; inline;
  39850. begin
  39851. pTDefRegMap(@Self)^.&set := $00000002;
  39852. end;
  39853. procedure TUART2B_U2BMODE.clearPDSEL0; inline;
  39854. begin
  39855. pTDefRegMap(@Self)^.clr := $00000002;
  39856. end;
  39857. procedure TUART2B_U2BMODE.setPDSEL0(thebits : TBits_1); inline;
  39858. begin
  39859. if thebits = 0 then
  39860. pTDefRegMap(@Self)^.clr := $00000002
  39861. else
  39862. pTDefRegMap(@Self)^.&set := $00000002;
  39863. end;
  39864. function TUART2B_U2BMODE.getPDSEL0 : TBits_1; inline;
  39865. begin
  39866. getPDSEL0 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  39867. end;
  39868. procedure TUART2B_U2BMODE.setPDSEL1; inline;
  39869. begin
  39870. pTDefRegMap(@Self)^.&set := $00000004;
  39871. end;
  39872. procedure TUART2B_U2BMODE.clearPDSEL1; inline;
  39873. begin
  39874. pTDefRegMap(@Self)^.clr := $00000004;
  39875. end;
  39876. procedure TUART2B_U2BMODE.setPDSEL1(thebits : TBits_1); inline;
  39877. begin
  39878. if thebits = 0 then
  39879. pTDefRegMap(@Self)^.clr := $00000004
  39880. else
  39881. pTDefRegMap(@Self)^.&set := $00000004;
  39882. end;
  39883. function TUART2B_U2BMODE.getPDSEL1 : TBits_1; inline;
  39884. begin
  39885. getPDSEL1 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  39886. end;
  39887. procedure TUART2B_U2BMODE.setUSIDL; inline;
  39888. begin
  39889. pTDefRegMap(@Self)^.&set := $00002000;
  39890. end;
  39891. procedure TUART2B_U2BMODE.clearUSIDL; inline;
  39892. begin
  39893. pTDefRegMap(@Self)^.clr := $00002000;
  39894. end;
  39895. procedure TUART2B_U2BMODE.setUSIDL(thebits : TBits_1); inline;
  39896. begin
  39897. if thebits = 0 then
  39898. pTDefRegMap(@Self)^.clr := $00002000
  39899. else
  39900. pTDefRegMap(@Self)^.&set := $00002000;
  39901. end;
  39902. function TUART2B_U2BMODE.getUSIDL : TBits_1; inline;
  39903. begin
  39904. getUSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  39905. end;
  39906. procedure TUART2B_U2BMODE.setUARTEN; inline;
  39907. begin
  39908. pTDefRegMap(@Self)^.&set := $00008000;
  39909. end;
  39910. procedure TUART2B_U2BMODE.clearUARTEN; inline;
  39911. begin
  39912. pTDefRegMap(@Self)^.clr := $00008000;
  39913. end;
  39914. procedure TUART2B_U2BMODE.setUARTEN(thebits : TBits_1); inline;
  39915. begin
  39916. if thebits = 0 then
  39917. pTDefRegMap(@Self)^.clr := $00008000
  39918. else
  39919. pTDefRegMap(@Self)^.&set := $00008000;
  39920. end;
  39921. function TUART2B_U2BMODE.getUARTEN : TBits_1; inline;
  39922. begin
  39923. getUARTEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  39924. end;
  39925. procedure TUART2B_U2BMODE.setw(thebits : TBits_32); inline;
  39926. begin
  39927. pTDefRegMap(@Self)^.val := thebits;
  39928. end;
  39929. function TUART2B_U2BMODE.getw : TBits_32; inline;
  39930. begin
  39931. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  39932. end;
  39933. procedure TUART2B_U6MODE.setSTSEL; inline;
  39934. begin
  39935. pTDefRegMap(@Self)^.&set := $00000001;
  39936. end;
  39937. procedure TUART2B_U6MODE.clearSTSEL; inline;
  39938. begin
  39939. pTDefRegMap(@Self)^.clr := $00000001;
  39940. end;
  39941. procedure TUART2B_U6MODE.setSTSEL(thebits : TBits_1); inline;
  39942. begin
  39943. if thebits = 0 then
  39944. pTDefRegMap(@Self)^.clr := $00000001
  39945. else
  39946. pTDefRegMap(@Self)^.&set := $00000001;
  39947. end;
  39948. function TUART2B_U6MODE.getSTSEL : TBits_1; inline;
  39949. begin
  39950. getSTSEL := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  39951. end;
  39952. procedure TUART2B_U6MODE.setPDSEL(thebits : TBits_2); inline;
  39953. begin
  39954. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF9 or ( thebits shl 1 );
  39955. end;
  39956. function TUART2B_U6MODE.getPDSEL : TBits_2; inline;
  39957. begin
  39958. getPDSEL := (pTDefRegMap(@Self)^.val and $00000006) shr 1;
  39959. end;
  39960. procedure TUART2B_U6MODE.setBRGH; inline;
  39961. begin
  39962. pTDefRegMap(@Self)^.&set := $00000008;
  39963. end;
  39964. procedure TUART2B_U6MODE.clearBRGH; inline;
  39965. begin
  39966. pTDefRegMap(@Self)^.clr := $00000008;
  39967. end;
  39968. procedure TUART2B_U6MODE.setBRGH(thebits : TBits_1); inline;
  39969. begin
  39970. if thebits = 0 then
  39971. pTDefRegMap(@Self)^.clr := $00000008
  39972. else
  39973. pTDefRegMap(@Self)^.&set := $00000008;
  39974. end;
  39975. function TUART2B_U6MODE.getBRGH : TBits_1; inline;
  39976. begin
  39977. getBRGH := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  39978. end;
  39979. procedure TUART2B_U6MODE.setRXINV; inline;
  39980. begin
  39981. pTDefRegMap(@Self)^.&set := $00000010;
  39982. end;
  39983. procedure TUART2B_U6MODE.clearRXINV; inline;
  39984. begin
  39985. pTDefRegMap(@Self)^.clr := $00000010;
  39986. end;
  39987. procedure TUART2B_U6MODE.setRXINV(thebits : TBits_1); inline;
  39988. begin
  39989. if thebits = 0 then
  39990. pTDefRegMap(@Self)^.clr := $00000010
  39991. else
  39992. pTDefRegMap(@Self)^.&set := $00000010;
  39993. end;
  39994. function TUART2B_U6MODE.getRXINV : TBits_1; inline;
  39995. begin
  39996. getRXINV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  39997. end;
  39998. procedure TUART2B_U6MODE.setABAUD; inline;
  39999. begin
  40000. pTDefRegMap(@Self)^.&set := $00000020;
  40001. end;
  40002. procedure TUART2B_U6MODE.clearABAUD; inline;
  40003. begin
  40004. pTDefRegMap(@Self)^.clr := $00000020;
  40005. end;
  40006. procedure TUART2B_U6MODE.setABAUD(thebits : TBits_1); inline;
  40007. begin
  40008. if thebits = 0 then
  40009. pTDefRegMap(@Self)^.clr := $00000020
  40010. else
  40011. pTDefRegMap(@Self)^.&set := $00000020;
  40012. end;
  40013. function TUART2B_U6MODE.getABAUD : TBits_1; inline;
  40014. begin
  40015. getABAUD := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  40016. end;
  40017. procedure TUART2B_U6MODE.setLPBACK; inline;
  40018. begin
  40019. pTDefRegMap(@Self)^.&set := $00000040;
  40020. end;
  40021. procedure TUART2B_U6MODE.clearLPBACK; inline;
  40022. begin
  40023. pTDefRegMap(@Self)^.clr := $00000040;
  40024. end;
  40025. procedure TUART2B_U6MODE.setLPBACK(thebits : TBits_1); inline;
  40026. begin
  40027. if thebits = 0 then
  40028. pTDefRegMap(@Self)^.clr := $00000040
  40029. else
  40030. pTDefRegMap(@Self)^.&set := $00000040;
  40031. end;
  40032. function TUART2B_U6MODE.getLPBACK : TBits_1; inline;
  40033. begin
  40034. getLPBACK := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  40035. end;
  40036. procedure TUART2B_U6MODE.setWAKE; inline;
  40037. begin
  40038. pTDefRegMap(@Self)^.&set := $00000080;
  40039. end;
  40040. procedure TUART2B_U6MODE.clearWAKE; inline;
  40041. begin
  40042. pTDefRegMap(@Self)^.clr := $00000080;
  40043. end;
  40044. procedure TUART2B_U6MODE.setWAKE(thebits : TBits_1); inline;
  40045. begin
  40046. if thebits = 0 then
  40047. pTDefRegMap(@Self)^.clr := $00000080
  40048. else
  40049. pTDefRegMap(@Self)^.&set := $00000080;
  40050. end;
  40051. function TUART2B_U6MODE.getWAKE : TBits_1; inline;
  40052. begin
  40053. getWAKE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  40054. end;
  40055. procedure TUART2B_U6MODE.setIREN; inline;
  40056. begin
  40057. pTDefRegMap(@Self)^.&set := $00001000;
  40058. end;
  40059. procedure TUART2B_U6MODE.clearIREN; inline;
  40060. begin
  40061. pTDefRegMap(@Self)^.clr := $00001000;
  40062. end;
  40063. procedure TUART2B_U6MODE.setIREN(thebits : TBits_1); inline;
  40064. begin
  40065. if thebits = 0 then
  40066. pTDefRegMap(@Self)^.clr := $00001000
  40067. else
  40068. pTDefRegMap(@Self)^.&set := $00001000;
  40069. end;
  40070. function TUART2B_U6MODE.getIREN : TBits_1; inline;
  40071. begin
  40072. getIREN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  40073. end;
  40074. procedure TUART2B_U6MODE.setSIDL; inline;
  40075. begin
  40076. pTDefRegMap(@Self)^.&set := $00002000;
  40077. end;
  40078. procedure TUART2B_U6MODE.clearSIDL; inline;
  40079. begin
  40080. pTDefRegMap(@Self)^.clr := $00002000;
  40081. end;
  40082. procedure TUART2B_U6MODE.setSIDL(thebits : TBits_1); inline;
  40083. begin
  40084. if thebits = 0 then
  40085. pTDefRegMap(@Self)^.clr := $00002000
  40086. else
  40087. pTDefRegMap(@Self)^.&set := $00002000;
  40088. end;
  40089. function TUART2B_U6MODE.getSIDL : TBits_1; inline;
  40090. begin
  40091. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  40092. end;
  40093. procedure TUART2B_U6MODE.setON; inline;
  40094. begin
  40095. pTDefRegMap(@Self)^.&set := $00008000;
  40096. end;
  40097. procedure TUART2B_U6MODE.clearON; inline;
  40098. begin
  40099. pTDefRegMap(@Self)^.clr := $00008000;
  40100. end;
  40101. procedure TUART2B_U6MODE.setON(thebits : TBits_1); inline;
  40102. begin
  40103. if thebits = 0 then
  40104. pTDefRegMap(@Self)^.clr := $00008000
  40105. else
  40106. pTDefRegMap(@Self)^.&set := $00008000;
  40107. end;
  40108. function TUART2B_U6MODE.getON : TBits_1; inline;
  40109. begin
  40110. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  40111. end;
  40112. procedure TUART2B_U6MODE.setPDSEL0; inline;
  40113. begin
  40114. pTDefRegMap(@Self)^.&set := $00000002;
  40115. end;
  40116. procedure TUART2B_U6MODE.clearPDSEL0; inline;
  40117. begin
  40118. pTDefRegMap(@Self)^.clr := $00000002;
  40119. end;
  40120. procedure TUART2B_U6MODE.setPDSEL0(thebits : TBits_1); inline;
  40121. begin
  40122. if thebits = 0 then
  40123. pTDefRegMap(@Self)^.clr := $00000002
  40124. else
  40125. pTDefRegMap(@Self)^.&set := $00000002;
  40126. end;
  40127. function TUART2B_U6MODE.getPDSEL0 : TBits_1; inline;
  40128. begin
  40129. getPDSEL0 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  40130. end;
  40131. procedure TUART2B_U6MODE.setPDSEL1; inline;
  40132. begin
  40133. pTDefRegMap(@Self)^.&set := $00000004;
  40134. end;
  40135. procedure TUART2B_U6MODE.clearPDSEL1; inline;
  40136. begin
  40137. pTDefRegMap(@Self)^.clr := $00000004;
  40138. end;
  40139. procedure TUART2B_U6MODE.setPDSEL1(thebits : TBits_1); inline;
  40140. begin
  40141. if thebits = 0 then
  40142. pTDefRegMap(@Self)^.clr := $00000004
  40143. else
  40144. pTDefRegMap(@Self)^.&set := $00000004;
  40145. end;
  40146. function TUART2B_U6MODE.getPDSEL1 : TBits_1; inline;
  40147. begin
  40148. getPDSEL1 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  40149. end;
  40150. procedure TUART2B_U6MODE.setUSIDL; inline;
  40151. begin
  40152. pTDefRegMap(@Self)^.&set := $00002000;
  40153. end;
  40154. procedure TUART2B_U6MODE.clearUSIDL; inline;
  40155. begin
  40156. pTDefRegMap(@Self)^.clr := $00002000;
  40157. end;
  40158. procedure TUART2B_U6MODE.setUSIDL(thebits : TBits_1); inline;
  40159. begin
  40160. if thebits = 0 then
  40161. pTDefRegMap(@Self)^.clr := $00002000
  40162. else
  40163. pTDefRegMap(@Self)^.&set := $00002000;
  40164. end;
  40165. function TUART2B_U6MODE.getUSIDL : TBits_1; inline;
  40166. begin
  40167. getUSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  40168. end;
  40169. procedure TUART2B_U6MODE.setUARTEN; inline;
  40170. begin
  40171. pTDefRegMap(@Self)^.&set := $00008000;
  40172. end;
  40173. procedure TUART2B_U6MODE.clearUARTEN; inline;
  40174. begin
  40175. pTDefRegMap(@Self)^.clr := $00008000;
  40176. end;
  40177. procedure TUART2B_U6MODE.setUARTEN(thebits : TBits_1); inline;
  40178. begin
  40179. if thebits = 0 then
  40180. pTDefRegMap(@Self)^.clr := $00008000
  40181. else
  40182. pTDefRegMap(@Self)^.&set := $00008000;
  40183. end;
  40184. function TUART2B_U6MODE.getUARTEN : TBits_1; inline;
  40185. begin
  40186. getUARTEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  40187. end;
  40188. procedure TUART2B_U6MODE.setw(thebits : TBits_32); inline;
  40189. begin
  40190. pTDefRegMap(@Self)^.val := thebits;
  40191. end;
  40192. function TUART2B_U6MODE.getw : TBits_32; inline;
  40193. begin
  40194. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  40195. end;
  40196. procedure TUART2B_U2BSTA.setURXDA; inline;
  40197. begin
  40198. pTDefRegMap(@Self)^.&set := $00000001;
  40199. end;
  40200. procedure TUART2B_U2BSTA.clearURXDA; inline;
  40201. begin
  40202. pTDefRegMap(@Self)^.clr := $00000001;
  40203. end;
  40204. procedure TUART2B_U2BSTA.setURXDA(thebits : TBits_1); inline;
  40205. begin
  40206. if thebits = 0 then
  40207. pTDefRegMap(@Self)^.clr := $00000001
  40208. else
  40209. pTDefRegMap(@Self)^.&set := $00000001;
  40210. end;
  40211. function TUART2B_U2BSTA.getURXDA : TBits_1; inline;
  40212. begin
  40213. getURXDA := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  40214. end;
  40215. procedure TUART2B_U2BSTA.setOERR; inline;
  40216. begin
  40217. pTDefRegMap(@Self)^.&set := $00000002;
  40218. end;
  40219. procedure TUART2B_U2BSTA.clearOERR; inline;
  40220. begin
  40221. pTDefRegMap(@Self)^.clr := $00000002;
  40222. end;
  40223. procedure TUART2B_U2BSTA.setOERR(thebits : TBits_1); inline;
  40224. begin
  40225. if thebits = 0 then
  40226. pTDefRegMap(@Self)^.clr := $00000002
  40227. else
  40228. pTDefRegMap(@Self)^.&set := $00000002;
  40229. end;
  40230. function TUART2B_U2BSTA.getOERR : TBits_1; inline;
  40231. begin
  40232. getOERR := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  40233. end;
  40234. procedure TUART2B_U2BSTA.setFERR; inline;
  40235. begin
  40236. pTDefRegMap(@Self)^.&set := $00000004;
  40237. end;
  40238. procedure TUART2B_U2BSTA.clearFERR; inline;
  40239. begin
  40240. pTDefRegMap(@Self)^.clr := $00000004;
  40241. end;
  40242. procedure TUART2B_U2BSTA.setFERR(thebits : TBits_1); inline;
  40243. begin
  40244. if thebits = 0 then
  40245. pTDefRegMap(@Self)^.clr := $00000004
  40246. else
  40247. pTDefRegMap(@Self)^.&set := $00000004;
  40248. end;
  40249. function TUART2B_U2BSTA.getFERR : TBits_1; inline;
  40250. begin
  40251. getFERR := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  40252. end;
  40253. procedure TUART2B_U2BSTA.setPERR; inline;
  40254. begin
  40255. pTDefRegMap(@Self)^.&set := $00000008;
  40256. end;
  40257. procedure TUART2B_U2BSTA.clearPERR; inline;
  40258. begin
  40259. pTDefRegMap(@Self)^.clr := $00000008;
  40260. end;
  40261. procedure TUART2B_U2BSTA.setPERR(thebits : TBits_1); inline;
  40262. begin
  40263. if thebits = 0 then
  40264. pTDefRegMap(@Self)^.clr := $00000008
  40265. else
  40266. pTDefRegMap(@Self)^.&set := $00000008;
  40267. end;
  40268. function TUART2B_U2BSTA.getPERR : TBits_1; inline;
  40269. begin
  40270. getPERR := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  40271. end;
  40272. procedure TUART2B_U2BSTA.setRIDLE; inline;
  40273. begin
  40274. pTDefRegMap(@Self)^.&set := $00000010;
  40275. end;
  40276. procedure TUART2B_U2BSTA.clearRIDLE; inline;
  40277. begin
  40278. pTDefRegMap(@Self)^.clr := $00000010;
  40279. end;
  40280. procedure TUART2B_U2BSTA.setRIDLE(thebits : TBits_1); inline;
  40281. begin
  40282. if thebits = 0 then
  40283. pTDefRegMap(@Self)^.clr := $00000010
  40284. else
  40285. pTDefRegMap(@Self)^.&set := $00000010;
  40286. end;
  40287. function TUART2B_U2BSTA.getRIDLE : TBits_1; inline;
  40288. begin
  40289. getRIDLE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  40290. end;
  40291. procedure TUART2B_U2BSTA.setADDEN; inline;
  40292. begin
  40293. pTDefRegMap(@Self)^.&set := $00000020;
  40294. end;
  40295. procedure TUART2B_U2BSTA.clearADDEN; inline;
  40296. begin
  40297. pTDefRegMap(@Self)^.clr := $00000020;
  40298. end;
  40299. procedure TUART2B_U2BSTA.setADDEN(thebits : TBits_1); inline;
  40300. begin
  40301. if thebits = 0 then
  40302. pTDefRegMap(@Self)^.clr := $00000020
  40303. else
  40304. pTDefRegMap(@Self)^.&set := $00000020;
  40305. end;
  40306. function TUART2B_U2BSTA.getADDEN : TBits_1; inline;
  40307. begin
  40308. getADDEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  40309. end;
  40310. procedure TUART2B_U2BSTA.setURXISEL(thebits : TBits_2); inline;
  40311. begin
  40312. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
  40313. end;
  40314. function TUART2B_U2BSTA.getURXISEL : TBits_2; inline;
  40315. begin
  40316. getURXISEL := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
  40317. end;
  40318. procedure TUART2B_U2BSTA.setTRMT; inline;
  40319. begin
  40320. pTDefRegMap(@Self)^.&set := $00000100;
  40321. end;
  40322. procedure TUART2B_U2BSTA.clearTRMT; inline;
  40323. begin
  40324. pTDefRegMap(@Self)^.clr := $00000100;
  40325. end;
  40326. procedure TUART2B_U2BSTA.setTRMT(thebits : TBits_1); inline;
  40327. begin
  40328. if thebits = 0 then
  40329. pTDefRegMap(@Self)^.clr := $00000100
  40330. else
  40331. pTDefRegMap(@Self)^.&set := $00000100;
  40332. end;
  40333. function TUART2B_U2BSTA.getTRMT : TBits_1; inline;
  40334. begin
  40335. getTRMT := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  40336. end;
  40337. procedure TUART2B_U2BSTA.setUTXBF; inline;
  40338. begin
  40339. pTDefRegMap(@Self)^.&set := $00000200;
  40340. end;
  40341. procedure TUART2B_U2BSTA.clearUTXBF; inline;
  40342. begin
  40343. pTDefRegMap(@Self)^.clr := $00000200;
  40344. end;
  40345. procedure TUART2B_U2BSTA.setUTXBF(thebits : TBits_1); inline;
  40346. begin
  40347. if thebits = 0 then
  40348. pTDefRegMap(@Self)^.clr := $00000200
  40349. else
  40350. pTDefRegMap(@Self)^.&set := $00000200;
  40351. end;
  40352. function TUART2B_U2BSTA.getUTXBF : TBits_1; inline;
  40353. begin
  40354. getUTXBF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  40355. end;
  40356. procedure TUART2B_U2BSTA.setUTXEN; inline;
  40357. begin
  40358. pTDefRegMap(@Self)^.&set := $00000400;
  40359. end;
  40360. procedure TUART2B_U2BSTA.clearUTXEN; inline;
  40361. begin
  40362. pTDefRegMap(@Self)^.clr := $00000400;
  40363. end;
  40364. procedure TUART2B_U2BSTA.setUTXEN(thebits : TBits_1); inline;
  40365. begin
  40366. if thebits = 0 then
  40367. pTDefRegMap(@Self)^.clr := $00000400
  40368. else
  40369. pTDefRegMap(@Self)^.&set := $00000400;
  40370. end;
  40371. function TUART2B_U2BSTA.getUTXEN : TBits_1; inline;
  40372. begin
  40373. getUTXEN := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  40374. end;
  40375. procedure TUART2B_U2BSTA.setUTXBRK; inline;
  40376. begin
  40377. pTDefRegMap(@Self)^.&set := $00000800;
  40378. end;
  40379. procedure TUART2B_U2BSTA.clearUTXBRK; inline;
  40380. begin
  40381. pTDefRegMap(@Self)^.clr := $00000800;
  40382. end;
  40383. procedure TUART2B_U2BSTA.setUTXBRK(thebits : TBits_1); inline;
  40384. begin
  40385. if thebits = 0 then
  40386. pTDefRegMap(@Self)^.clr := $00000800
  40387. else
  40388. pTDefRegMap(@Self)^.&set := $00000800;
  40389. end;
  40390. function TUART2B_U2BSTA.getUTXBRK : TBits_1; inline;
  40391. begin
  40392. getUTXBRK := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  40393. end;
  40394. procedure TUART2B_U2BSTA.setURXEN; inline;
  40395. begin
  40396. pTDefRegMap(@Self)^.&set := $00001000;
  40397. end;
  40398. procedure TUART2B_U2BSTA.clearURXEN; inline;
  40399. begin
  40400. pTDefRegMap(@Self)^.clr := $00001000;
  40401. end;
  40402. procedure TUART2B_U2BSTA.setURXEN(thebits : TBits_1); inline;
  40403. begin
  40404. if thebits = 0 then
  40405. pTDefRegMap(@Self)^.clr := $00001000
  40406. else
  40407. pTDefRegMap(@Self)^.&set := $00001000;
  40408. end;
  40409. function TUART2B_U2BSTA.getURXEN : TBits_1; inline;
  40410. begin
  40411. getURXEN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  40412. end;
  40413. procedure TUART2B_U2BSTA.setUTXINV; inline;
  40414. begin
  40415. pTDefRegMap(@Self)^.&set := $00002000;
  40416. end;
  40417. procedure TUART2B_U2BSTA.clearUTXINV; inline;
  40418. begin
  40419. pTDefRegMap(@Self)^.clr := $00002000;
  40420. end;
  40421. procedure TUART2B_U2BSTA.setUTXINV(thebits : TBits_1); inline;
  40422. begin
  40423. if thebits = 0 then
  40424. pTDefRegMap(@Self)^.clr := $00002000
  40425. else
  40426. pTDefRegMap(@Self)^.&set := $00002000;
  40427. end;
  40428. function TUART2B_U2BSTA.getUTXINV : TBits_1; inline;
  40429. begin
  40430. getUTXINV := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  40431. end;
  40432. procedure TUART2B_U2BSTA.setUTXISEL(thebits : TBits_2); inline;
  40433. begin
  40434. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  40435. end;
  40436. function TUART2B_U2BSTA.getUTXISEL : TBits_2; inline;
  40437. begin
  40438. getUTXISEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  40439. end;
  40440. procedure TUART2B_U2BSTA.setADDR(thebits : TBits_8); inline;
  40441. begin
  40442. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
  40443. end;
  40444. function TUART2B_U2BSTA.getADDR : TBits_8; inline;
  40445. begin
  40446. getADDR := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
  40447. end;
  40448. procedure TUART2B_U2BSTA.setADM_EN; inline;
  40449. begin
  40450. pTDefRegMap(@Self)^.&set := $01000000;
  40451. end;
  40452. procedure TUART2B_U2BSTA.clearADM_EN; inline;
  40453. begin
  40454. pTDefRegMap(@Self)^.clr := $01000000;
  40455. end;
  40456. procedure TUART2B_U2BSTA.setADM_EN(thebits : TBits_1); inline;
  40457. begin
  40458. if thebits = 0 then
  40459. pTDefRegMap(@Self)^.clr := $01000000
  40460. else
  40461. pTDefRegMap(@Self)^.&set := $01000000;
  40462. end;
  40463. function TUART2B_U2BSTA.getADM_EN : TBits_1; inline;
  40464. begin
  40465. getADM_EN := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  40466. end;
  40467. procedure TUART2B_U2BSTA.setURXISEL0; inline;
  40468. begin
  40469. pTDefRegMap(@Self)^.&set := $00000040;
  40470. end;
  40471. procedure TUART2B_U2BSTA.clearURXISEL0; inline;
  40472. begin
  40473. pTDefRegMap(@Self)^.clr := $00000040;
  40474. end;
  40475. procedure TUART2B_U2BSTA.setURXISEL0(thebits : TBits_1); inline;
  40476. begin
  40477. if thebits = 0 then
  40478. pTDefRegMap(@Self)^.clr := $00000040
  40479. else
  40480. pTDefRegMap(@Self)^.&set := $00000040;
  40481. end;
  40482. function TUART2B_U2BSTA.getURXISEL0 : TBits_1; inline;
  40483. begin
  40484. getURXISEL0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  40485. end;
  40486. procedure TUART2B_U2BSTA.setURXISEL1; inline;
  40487. begin
  40488. pTDefRegMap(@Self)^.&set := $00000080;
  40489. end;
  40490. procedure TUART2B_U2BSTA.clearURXISEL1; inline;
  40491. begin
  40492. pTDefRegMap(@Self)^.clr := $00000080;
  40493. end;
  40494. procedure TUART2B_U2BSTA.setURXISEL1(thebits : TBits_1); inline;
  40495. begin
  40496. if thebits = 0 then
  40497. pTDefRegMap(@Self)^.clr := $00000080
  40498. else
  40499. pTDefRegMap(@Self)^.&set := $00000080;
  40500. end;
  40501. function TUART2B_U2BSTA.getURXISEL1 : TBits_1; inline;
  40502. begin
  40503. getURXISEL1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  40504. end;
  40505. procedure TUART2B_U2BSTA.setUTXISEL0; inline;
  40506. begin
  40507. pTDefRegMap(@Self)^.&set := $00004000;
  40508. end;
  40509. procedure TUART2B_U2BSTA.clearUTXISEL0; inline;
  40510. begin
  40511. pTDefRegMap(@Self)^.clr := $00004000;
  40512. end;
  40513. procedure TUART2B_U2BSTA.setUTXISEL0(thebits : TBits_1); inline;
  40514. begin
  40515. if thebits = 0 then
  40516. pTDefRegMap(@Self)^.clr := $00004000
  40517. else
  40518. pTDefRegMap(@Self)^.&set := $00004000;
  40519. end;
  40520. function TUART2B_U2BSTA.getUTXISEL0 : TBits_1; inline;
  40521. begin
  40522. getUTXISEL0 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  40523. end;
  40524. procedure TUART2B_U2BSTA.setUTXISEL1; inline;
  40525. begin
  40526. pTDefRegMap(@Self)^.&set := $00008000;
  40527. end;
  40528. procedure TUART2B_U2BSTA.clearUTXISEL1; inline;
  40529. begin
  40530. pTDefRegMap(@Self)^.clr := $00008000;
  40531. end;
  40532. procedure TUART2B_U2BSTA.setUTXISEL1(thebits : TBits_1); inline;
  40533. begin
  40534. if thebits = 0 then
  40535. pTDefRegMap(@Self)^.clr := $00008000
  40536. else
  40537. pTDefRegMap(@Self)^.&set := $00008000;
  40538. end;
  40539. function TUART2B_U2BSTA.getUTXISEL1 : TBits_1; inline;
  40540. begin
  40541. getUTXISEL1 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  40542. end;
  40543. procedure TUART2B_U2BSTA.setUTXSEL(thebits : TBits_2); inline;
  40544. begin
  40545. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  40546. end;
  40547. function TUART2B_U2BSTA.getUTXSEL : TBits_2; inline;
  40548. begin
  40549. getUTXSEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  40550. end;
  40551. procedure TUART2B_U2BSTA.setw(thebits : TBits_32); inline;
  40552. begin
  40553. pTDefRegMap(@Self)^.val := thebits;
  40554. end;
  40555. function TUART2B_U2BSTA.getw : TBits_32; inline;
  40556. begin
  40557. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  40558. end;
  40559. procedure TUART2B_U6STA.setURXDA; inline;
  40560. begin
  40561. pTDefRegMap(@Self)^.&set := $00000001;
  40562. end;
  40563. procedure TUART2B_U6STA.clearURXDA; inline;
  40564. begin
  40565. pTDefRegMap(@Self)^.clr := $00000001;
  40566. end;
  40567. procedure TUART2B_U6STA.setURXDA(thebits : TBits_1); inline;
  40568. begin
  40569. if thebits = 0 then
  40570. pTDefRegMap(@Self)^.clr := $00000001
  40571. else
  40572. pTDefRegMap(@Self)^.&set := $00000001;
  40573. end;
  40574. function TUART2B_U6STA.getURXDA : TBits_1; inline;
  40575. begin
  40576. getURXDA := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  40577. end;
  40578. procedure TUART2B_U6STA.setOERR; inline;
  40579. begin
  40580. pTDefRegMap(@Self)^.&set := $00000002;
  40581. end;
  40582. procedure TUART2B_U6STA.clearOERR; inline;
  40583. begin
  40584. pTDefRegMap(@Self)^.clr := $00000002;
  40585. end;
  40586. procedure TUART2B_U6STA.setOERR(thebits : TBits_1); inline;
  40587. begin
  40588. if thebits = 0 then
  40589. pTDefRegMap(@Self)^.clr := $00000002
  40590. else
  40591. pTDefRegMap(@Self)^.&set := $00000002;
  40592. end;
  40593. function TUART2B_U6STA.getOERR : TBits_1; inline;
  40594. begin
  40595. getOERR := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  40596. end;
  40597. procedure TUART2B_U6STA.setFERR; inline;
  40598. begin
  40599. pTDefRegMap(@Self)^.&set := $00000004;
  40600. end;
  40601. procedure TUART2B_U6STA.clearFERR; inline;
  40602. begin
  40603. pTDefRegMap(@Self)^.clr := $00000004;
  40604. end;
  40605. procedure TUART2B_U6STA.setFERR(thebits : TBits_1); inline;
  40606. begin
  40607. if thebits = 0 then
  40608. pTDefRegMap(@Self)^.clr := $00000004
  40609. else
  40610. pTDefRegMap(@Self)^.&set := $00000004;
  40611. end;
  40612. function TUART2B_U6STA.getFERR : TBits_1; inline;
  40613. begin
  40614. getFERR := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  40615. end;
  40616. procedure TUART2B_U6STA.setPERR; inline;
  40617. begin
  40618. pTDefRegMap(@Self)^.&set := $00000008;
  40619. end;
  40620. procedure TUART2B_U6STA.clearPERR; inline;
  40621. begin
  40622. pTDefRegMap(@Self)^.clr := $00000008;
  40623. end;
  40624. procedure TUART2B_U6STA.setPERR(thebits : TBits_1); inline;
  40625. begin
  40626. if thebits = 0 then
  40627. pTDefRegMap(@Self)^.clr := $00000008
  40628. else
  40629. pTDefRegMap(@Self)^.&set := $00000008;
  40630. end;
  40631. function TUART2B_U6STA.getPERR : TBits_1; inline;
  40632. begin
  40633. getPERR := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  40634. end;
  40635. procedure TUART2B_U6STA.setRIDLE; inline;
  40636. begin
  40637. pTDefRegMap(@Self)^.&set := $00000010;
  40638. end;
  40639. procedure TUART2B_U6STA.clearRIDLE; inline;
  40640. begin
  40641. pTDefRegMap(@Self)^.clr := $00000010;
  40642. end;
  40643. procedure TUART2B_U6STA.setRIDLE(thebits : TBits_1); inline;
  40644. begin
  40645. if thebits = 0 then
  40646. pTDefRegMap(@Self)^.clr := $00000010
  40647. else
  40648. pTDefRegMap(@Self)^.&set := $00000010;
  40649. end;
  40650. function TUART2B_U6STA.getRIDLE : TBits_1; inline;
  40651. begin
  40652. getRIDLE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  40653. end;
  40654. procedure TUART2B_U6STA.setADDEN; inline;
  40655. begin
  40656. pTDefRegMap(@Self)^.&set := $00000020;
  40657. end;
  40658. procedure TUART2B_U6STA.clearADDEN; inline;
  40659. begin
  40660. pTDefRegMap(@Self)^.clr := $00000020;
  40661. end;
  40662. procedure TUART2B_U6STA.setADDEN(thebits : TBits_1); inline;
  40663. begin
  40664. if thebits = 0 then
  40665. pTDefRegMap(@Self)^.clr := $00000020
  40666. else
  40667. pTDefRegMap(@Self)^.&set := $00000020;
  40668. end;
  40669. function TUART2B_U6STA.getADDEN : TBits_1; inline;
  40670. begin
  40671. getADDEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  40672. end;
  40673. procedure TUART2B_U6STA.setURXISEL(thebits : TBits_2); inline;
  40674. begin
  40675. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
  40676. end;
  40677. function TUART2B_U6STA.getURXISEL : TBits_2; inline;
  40678. begin
  40679. getURXISEL := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
  40680. end;
  40681. procedure TUART2B_U6STA.setTRMT; inline;
  40682. begin
  40683. pTDefRegMap(@Self)^.&set := $00000100;
  40684. end;
  40685. procedure TUART2B_U6STA.clearTRMT; inline;
  40686. begin
  40687. pTDefRegMap(@Self)^.clr := $00000100;
  40688. end;
  40689. procedure TUART2B_U6STA.setTRMT(thebits : TBits_1); inline;
  40690. begin
  40691. if thebits = 0 then
  40692. pTDefRegMap(@Self)^.clr := $00000100
  40693. else
  40694. pTDefRegMap(@Self)^.&set := $00000100;
  40695. end;
  40696. function TUART2B_U6STA.getTRMT : TBits_1; inline;
  40697. begin
  40698. getTRMT := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  40699. end;
  40700. procedure TUART2B_U6STA.setUTXBF; inline;
  40701. begin
  40702. pTDefRegMap(@Self)^.&set := $00000200;
  40703. end;
  40704. procedure TUART2B_U6STA.clearUTXBF; inline;
  40705. begin
  40706. pTDefRegMap(@Self)^.clr := $00000200;
  40707. end;
  40708. procedure TUART2B_U6STA.setUTXBF(thebits : TBits_1); inline;
  40709. begin
  40710. if thebits = 0 then
  40711. pTDefRegMap(@Self)^.clr := $00000200
  40712. else
  40713. pTDefRegMap(@Self)^.&set := $00000200;
  40714. end;
  40715. function TUART2B_U6STA.getUTXBF : TBits_1; inline;
  40716. begin
  40717. getUTXBF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  40718. end;
  40719. procedure TUART2B_U6STA.setUTXEN; inline;
  40720. begin
  40721. pTDefRegMap(@Self)^.&set := $00000400;
  40722. end;
  40723. procedure TUART2B_U6STA.clearUTXEN; inline;
  40724. begin
  40725. pTDefRegMap(@Self)^.clr := $00000400;
  40726. end;
  40727. procedure TUART2B_U6STA.setUTXEN(thebits : TBits_1); inline;
  40728. begin
  40729. if thebits = 0 then
  40730. pTDefRegMap(@Self)^.clr := $00000400
  40731. else
  40732. pTDefRegMap(@Self)^.&set := $00000400;
  40733. end;
  40734. function TUART2B_U6STA.getUTXEN : TBits_1; inline;
  40735. begin
  40736. getUTXEN := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  40737. end;
  40738. procedure TUART2B_U6STA.setUTXBRK; inline;
  40739. begin
  40740. pTDefRegMap(@Self)^.&set := $00000800;
  40741. end;
  40742. procedure TUART2B_U6STA.clearUTXBRK; inline;
  40743. begin
  40744. pTDefRegMap(@Self)^.clr := $00000800;
  40745. end;
  40746. procedure TUART2B_U6STA.setUTXBRK(thebits : TBits_1); inline;
  40747. begin
  40748. if thebits = 0 then
  40749. pTDefRegMap(@Self)^.clr := $00000800
  40750. else
  40751. pTDefRegMap(@Self)^.&set := $00000800;
  40752. end;
  40753. function TUART2B_U6STA.getUTXBRK : TBits_1; inline;
  40754. begin
  40755. getUTXBRK := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  40756. end;
  40757. procedure TUART2B_U6STA.setURXEN; inline;
  40758. begin
  40759. pTDefRegMap(@Self)^.&set := $00001000;
  40760. end;
  40761. procedure TUART2B_U6STA.clearURXEN; inline;
  40762. begin
  40763. pTDefRegMap(@Self)^.clr := $00001000;
  40764. end;
  40765. procedure TUART2B_U6STA.setURXEN(thebits : TBits_1); inline;
  40766. begin
  40767. if thebits = 0 then
  40768. pTDefRegMap(@Self)^.clr := $00001000
  40769. else
  40770. pTDefRegMap(@Self)^.&set := $00001000;
  40771. end;
  40772. function TUART2B_U6STA.getURXEN : TBits_1; inline;
  40773. begin
  40774. getURXEN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  40775. end;
  40776. procedure TUART2B_U6STA.setUTXINV; inline;
  40777. begin
  40778. pTDefRegMap(@Self)^.&set := $00002000;
  40779. end;
  40780. procedure TUART2B_U6STA.clearUTXINV; inline;
  40781. begin
  40782. pTDefRegMap(@Self)^.clr := $00002000;
  40783. end;
  40784. procedure TUART2B_U6STA.setUTXINV(thebits : TBits_1); inline;
  40785. begin
  40786. if thebits = 0 then
  40787. pTDefRegMap(@Self)^.clr := $00002000
  40788. else
  40789. pTDefRegMap(@Self)^.&set := $00002000;
  40790. end;
  40791. function TUART2B_U6STA.getUTXINV : TBits_1; inline;
  40792. begin
  40793. getUTXINV := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  40794. end;
  40795. procedure TUART2B_U6STA.setUTXISEL(thebits : TBits_2); inline;
  40796. begin
  40797. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  40798. end;
  40799. function TUART2B_U6STA.getUTXISEL : TBits_2; inline;
  40800. begin
  40801. getUTXISEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  40802. end;
  40803. procedure TUART2B_U6STA.setADDR(thebits : TBits_8); inline;
  40804. begin
  40805. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
  40806. end;
  40807. function TUART2B_U6STA.getADDR : TBits_8; inline;
  40808. begin
  40809. getADDR := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
  40810. end;
  40811. procedure TUART2B_U6STA.setADM_EN; inline;
  40812. begin
  40813. pTDefRegMap(@Self)^.&set := $01000000;
  40814. end;
  40815. procedure TUART2B_U6STA.clearADM_EN; inline;
  40816. begin
  40817. pTDefRegMap(@Self)^.clr := $01000000;
  40818. end;
  40819. procedure TUART2B_U6STA.setADM_EN(thebits : TBits_1); inline;
  40820. begin
  40821. if thebits = 0 then
  40822. pTDefRegMap(@Self)^.clr := $01000000
  40823. else
  40824. pTDefRegMap(@Self)^.&set := $01000000;
  40825. end;
  40826. function TUART2B_U6STA.getADM_EN : TBits_1; inline;
  40827. begin
  40828. getADM_EN := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  40829. end;
  40830. procedure TUART2B_U6STA.setURXISEL0; inline;
  40831. begin
  40832. pTDefRegMap(@Self)^.&set := $00000040;
  40833. end;
  40834. procedure TUART2B_U6STA.clearURXISEL0; inline;
  40835. begin
  40836. pTDefRegMap(@Self)^.clr := $00000040;
  40837. end;
  40838. procedure TUART2B_U6STA.setURXISEL0(thebits : TBits_1); inline;
  40839. begin
  40840. if thebits = 0 then
  40841. pTDefRegMap(@Self)^.clr := $00000040
  40842. else
  40843. pTDefRegMap(@Self)^.&set := $00000040;
  40844. end;
  40845. function TUART2B_U6STA.getURXISEL0 : TBits_1; inline;
  40846. begin
  40847. getURXISEL0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  40848. end;
  40849. procedure TUART2B_U6STA.setURXISEL1; inline;
  40850. begin
  40851. pTDefRegMap(@Self)^.&set := $00000080;
  40852. end;
  40853. procedure TUART2B_U6STA.clearURXISEL1; inline;
  40854. begin
  40855. pTDefRegMap(@Self)^.clr := $00000080;
  40856. end;
  40857. procedure TUART2B_U6STA.setURXISEL1(thebits : TBits_1); inline;
  40858. begin
  40859. if thebits = 0 then
  40860. pTDefRegMap(@Self)^.clr := $00000080
  40861. else
  40862. pTDefRegMap(@Self)^.&set := $00000080;
  40863. end;
  40864. function TUART2B_U6STA.getURXISEL1 : TBits_1; inline;
  40865. begin
  40866. getURXISEL1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  40867. end;
  40868. procedure TUART2B_U6STA.setUTXISEL0; inline;
  40869. begin
  40870. pTDefRegMap(@Self)^.&set := $00004000;
  40871. end;
  40872. procedure TUART2B_U6STA.clearUTXISEL0; inline;
  40873. begin
  40874. pTDefRegMap(@Self)^.clr := $00004000;
  40875. end;
  40876. procedure TUART2B_U6STA.setUTXISEL0(thebits : TBits_1); inline;
  40877. begin
  40878. if thebits = 0 then
  40879. pTDefRegMap(@Self)^.clr := $00004000
  40880. else
  40881. pTDefRegMap(@Self)^.&set := $00004000;
  40882. end;
  40883. function TUART2B_U6STA.getUTXISEL0 : TBits_1; inline;
  40884. begin
  40885. getUTXISEL0 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  40886. end;
  40887. procedure TUART2B_U6STA.setUTXISEL1; inline;
  40888. begin
  40889. pTDefRegMap(@Self)^.&set := $00008000;
  40890. end;
  40891. procedure TUART2B_U6STA.clearUTXISEL1; inline;
  40892. begin
  40893. pTDefRegMap(@Self)^.clr := $00008000;
  40894. end;
  40895. procedure TUART2B_U6STA.setUTXISEL1(thebits : TBits_1); inline;
  40896. begin
  40897. if thebits = 0 then
  40898. pTDefRegMap(@Self)^.clr := $00008000
  40899. else
  40900. pTDefRegMap(@Self)^.&set := $00008000;
  40901. end;
  40902. function TUART2B_U6STA.getUTXISEL1 : TBits_1; inline;
  40903. begin
  40904. getUTXISEL1 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  40905. end;
  40906. procedure TUART2B_U6STA.setUTXSEL(thebits : TBits_2); inline;
  40907. begin
  40908. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  40909. end;
  40910. function TUART2B_U6STA.getUTXSEL : TBits_2; inline;
  40911. begin
  40912. getUTXSEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  40913. end;
  40914. procedure TUART2B_U6STA.setw(thebits : TBits_32); inline;
  40915. begin
  40916. pTDefRegMap(@Self)^.val := thebits;
  40917. end;
  40918. function TUART2B_U6STA.getw : TBits_32; inline;
  40919. begin
  40920. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  40921. end;
  40922. procedure TUART3A_U2MODE.setSTSEL; inline;
  40923. begin
  40924. pTDefRegMap(@Self)^.&set := $00000001;
  40925. end;
  40926. procedure TUART3A_U2MODE.clearSTSEL; inline;
  40927. begin
  40928. pTDefRegMap(@Self)^.clr := $00000001;
  40929. end;
  40930. procedure TUART3A_U2MODE.setSTSEL(thebits : TBits_1); inline;
  40931. begin
  40932. if thebits = 0 then
  40933. pTDefRegMap(@Self)^.clr := $00000001
  40934. else
  40935. pTDefRegMap(@Self)^.&set := $00000001;
  40936. end;
  40937. function TUART3A_U2MODE.getSTSEL : TBits_1; inline;
  40938. begin
  40939. getSTSEL := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  40940. end;
  40941. procedure TUART3A_U2MODE.setPDSEL(thebits : TBits_2); inline;
  40942. begin
  40943. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF9 or ( thebits shl 1 );
  40944. end;
  40945. function TUART3A_U2MODE.getPDSEL : TBits_2; inline;
  40946. begin
  40947. getPDSEL := (pTDefRegMap(@Self)^.val and $00000006) shr 1;
  40948. end;
  40949. procedure TUART3A_U2MODE.setBRGH; inline;
  40950. begin
  40951. pTDefRegMap(@Self)^.&set := $00000008;
  40952. end;
  40953. procedure TUART3A_U2MODE.clearBRGH; inline;
  40954. begin
  40955. pTDefRegMap(@Self)^.clr := $00000008;
  40956. end;
  40957. procedure TUART3A_U2MODE.setBRGH(thebits : TBits_1); inline;
  40958. begin
  40959. if thebits = 0 then
  40960. pTDefRegMap(@Self)^.clr := $00000008
  40961. else
  40962. pTDefRegMap(@Self)^.&set := $00000008;
  40963. end;
  40964. function TUART3A_U2MODE.getBRGH : TBits_1; inline;
  40965. begin
  40966. getBRGH := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  40967. end;
  40968. procedure TUART3A_U2MODE.setRXINV; inline;
  40969. begin
  40970. pTDefRegMap(@Self)^.&set := $00000010;
  40971. end;
  40972. procedure TUART3A_U2MODE.clearRXINV; inline;
  40973. begin
  40974. pTDefRegMap(@Self)^.clr := $00000010;
  40975. end;
  40976. procedure TUART3A_U2MODE.setRXINV(thebits : TBits_1); inline;
  40977. begin
  40978. if thebits = 0 then
  40979. pTDefRegMap(@Self)^.clr := $00000010
  40980. else
  40981. pTDefRegMap(@Self)^.&set := $00000010;
  40982. end;
  40983. function TUART3A_U2MODE.getRXINV : TBits_1; inline;
  40984. begin
  40985. getRXINV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  40986. end;
  40987. procedure TUART3A_U2MODE.setABAUD; inline;
  40988. begin
  40989. pTDefRegMap(@Self)^.&set := $00000020;
  40990. end;
  40991. procedure TUART3A_U2MODE.clearABAUD; inline;
  40992. begin
  40993. pTDefRegMap(@Self)^.clr := $00000020;
  40994. end;
  40995. procedure TUART3A_U2MODE.setABAUD(thebits : TBits_1); inline;
  40996. begin
  40997. if thebits = 0 then
  40998. pTDefRegMap(@Self)^.clr := $00000020
  40999. else
  41000. pTDefRegMap(@Self)^.&set := $00000020;
  41001. end;
  41002. function TUART3A_U2MODE.getABAUD : TBits_1; inline;
  41003. begin
  41004. getABAUD := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  41005. end;
  41006. procedure TUART3A_U2MODE.setLPBACK; inline;
  41007. begin
  41008. pTDefRegMap(@Self)^.&set := $00000040;
  41009. end;
  41010. procedure TUART3A_U2MODE.clearLPBACK; inline;
  41011. begin
  41012. pTDefRegMap(@Self)^.clr := $00000040;
  41013. end;
  41014. procedure TUART3A_U2MODE.setLPBACK(thebits : TBits_1); inline;
  41015. begin
  41016. if thebits = 0 then
  41017. pTDefRegMap(@Self)^.clr := $00000040
  41018. else
  41019. pTDefRegMap(@Self)^.&set := $00000040;
  41020. end;
  41021. function TUART3A_U2MODE.getLPBACK : TBits_1; inline;
  41022. begin
  41023. getLPBACK := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  41024. end;
  41025. procedure TUART3A_U2MODE.setWAKE; inline;
  41026. begin
  41027. pTDefRegMap(@Self)^.&set := $00000080;
  41028. end;
  41029. procedure TUART3A_U2MODE.clearWAKE; inline;
  41030. begin
  41031. pTDefRegMap(@Self)^.clr := $00000080;
  41032. end;
  41033. procedure TUART3A_U2MODE.setWAKE(thebits : TBits_1); inline;
  41034. begin
  41035. if thebits = 0 then
  41036. pTDefRegMap(@Self)^.clr := $00000080
  41037. else
  41038. pTDefRegMap(@Self)^.&set := $00000080;
  41039. end;
  41040. function TUART3A_U2MODE.getWAKE : TBits_1; inline;
  41041. begin
  41042. getWAKE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  41043. end;
  41044. procedure TUART3A_U2MODE.setUEN(thebits : TBits_2); inline;
  41045. begin
  41046. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  41047. end;
  41048. function TUART3A_U2MODE.getUEN : TBits_2; inline;
  41049. begin
  41050. getUEN := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  41051. end;
  41052. procedure TUART3A_U2MODE.setRTSMD; inline;
  41053. begin
  41054. pTDefRegMap(@Self)^.&set := $00000800;
  41055. end;
  41056. procedure TUART3A_U2MODE.clearRTSMD; inline;
  41057. begin
  41058. pTDefRegMap(@Self)^.clr := $00000800;
  41059. end;
  41060. procedure TUART3A_U2MODE.setRTSMD(thebits : TBits_1); inline;
  41061. begin
  41062. if thebits = 0 then
  41063. pTDefRegMap(@Self)^.clr := $00000800
  41064. else
  41065. pTDefRegMap(@Self)^.&set := $00000800;
  41066. end;
  41067. function TUART3A_U2MODE.getRTSMD : TBits_1; inline;
  41068. begin
  41069. getRTSMD := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  41070. end;
  41071. procedure TUART3A_U2MODE.setIREN; inline;
  41072. begin
  41073. pTDefRegMap(@Self)^.&set := $00001000;
  41074. end;
  41075. procedure TUART3A_U2MODE.clearIREN; inline;
  41076. begin
  41077. pTDefRegMap(@Self)^.clr := $00001000;
  41078. end;
  41079. procedure TUART3A_U2MODE.setIREN(thebits : TBits_1); inline;
  41080. begin
  41081. if thebits = 0 then
  41082. pTDefRegMap(@Self)^.clr := $00001000
  41083. else
  41084. pTDefRegMap(@Self)^.&set := $00001000;
  41085. end;
  41086. function TUART3A_U2MODE.getIREN : TBits_1; inline;
  41087. begin
  41088. getIREN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  41089. end;
  41090. procedure TUART3A_U2MODE.setSIDL; inline;
  41091. begin
  41092. pTDefRegMap(@Self)^.&set := $00002000;
  41093. end;
  41094. procedure TUART3A_U2MODE.clearSIDL; inline;
  41095. begin
  41096. pTDefRegMap(@Self)^.clr := $00002000;
  41097. end;
  41098. procedure TUART3A_U2MODE.setSIDL(thebits : TBits_1); inline;
  41099. begin
  41100. if thebits = 0 then
  41101. pTDefRegMap(@Self)^.clr := $00002000
  41102. else
  41103. pTDefRegMap(@Self)^.&set := $00002000;
  41104. end;
  41105. function TUART3A_U2MODE.getSIDL : TBits_1; inline;
  41106. begin
  41107. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  41108. end;
  41109. procedure TUART3A_U2MODE.setON; inline;
  41110. begin
  41111. pTDefRegMap(@Self)^.&set := $00008000;
  41112. end;
  41113. procedure TUART3A_U2MODE.clearON; inline;
  41114. begin
  41115. pTDefRegMap(@Self)^.clr := $00008000;
  41116. end;
  41117. procedure TUART3A_U2MODE.setON(thebits : TBits_1); inline;
  41118. begin
  41119. if thebits = 0 then
  41120. pTDefRegMap(@Self)^.clr := $00008000
  41121. else
  41122. pTDefRegMap(@Self)^.&set := $00008000;
  41123. end;
  41124. function TUART3A_U2MODE.getON : TBits_1; inline;
  41125. begin
  41126. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  41127. end;
  41128. procedure TUART3A_U2MODE.setPDSEL0; inline;
  41129. begin
  41130. pTDefRegMap(@Self)^.&set := $00000002;
  41131. end;
  41132. procedure TUART3A_U2MODE.clearPDSEL0; inline;
  41133. begin
  41134. pTDefRegMap(@Self)^.clr := $00000002;
  41135. end;
  41136. procedure TUART3A_U2MODE.setPDSEL0(thebits : TBits_1); inline;
  41137. begin
  41138. if thebits = 0 then
  41139. pTDefRegMap(@Self)^.clr := $00000002
  41140. else
  41141. pTDefRegMap(@Self)^.&set := $00000002;
  41142. end;
  41143. function TUART3A_U2MODE.getPDSEL0 : TBits_1; inline;
  41144. begin
  41145. getPDSEL0 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  41146. end;
  41147. procedure TUART3A_U2MODE.setPDSEL1; inline;
  41148. begin
  41149. pTDefRegMap(@Self)^.&set := $00000004;
  41150. end;
  41151. procedure TUART3A_U2MODE.clearPDSEL1; inline;
  41152. begin
  41153. pTDefRegMap(@Self)^.clr := $00000004;
  41154. end;
  41155. procedure TUART3A_U2MODE.setPDSEL1(thebits : TBits_1); inline;
  41156. begin
  41157. if thebits = 0 then
  41158. pTDefRegMap(@Self)^.clr := $00000004
  41159. else
  41160. pTDefRegMap(@Self)^.&set := $00000004;
  41161. end;
  41162. function TUART3A_U2MODE.getPDSEL1 : TBits_1; inline;
  41163. begin
  41164. getPDSEL1 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  41165. end;
  41166. procedure TUART3A_U2MODE.setUEN0; inline;
  41167. begin
  41168. pTDefRegMap(@Self)^.&set := $00000100;
  41169. end;
  41170. procedure TUART3A_U2MODE.clearUEN0; inline;
  41171. begin
  41172. pTDefRegMap(@Self)^.clr := $00000100;
  41173. end;
  41174. procedure TUART3A_U2MODE.setUEN0(thebits : TBits_1); inline;
  41175. begin
  41176. if thebits = 0 then
  41177. pTDefRegMap(@Self)^.clr := $00000100
  41178. else
  41179. pTDefRegMap(@Self)^.&set := $00000100;
  41180. end;
  41181. function TUART3A_U2MODE.getUEN0 : TBits_1; inline;
  41182. begin
  41183. getUEN0 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  41184. end;
  41185. procedure TUART3A_U2MODE.setUEN1; inline;
  41186. begin
  41187. pTDefRegMap(@Self)^.&set := $00000200;
  41188. end;
  41189. procedure TUART3A_U2MODE.clearUEN1; inline;
  41190. begin
  41191. pTDefRegMap(@Self)^.clr := $00000200;
  41192. end;
  41193. procedure TUART3A_U2MODE.setUEN1(thebits : TBits_1); inline;
  41194. begin
  41195. if thebits = 0 then
  41196. pTDefRegMap(@Self)^.clr := $00000200
  41197. else
  41198. pTDefRegMap(@Self)^.&set := $00000200;
  41199. end;
  41200. function TUART3A_U2MODE.getUEN1 : TBits_1; inline;
  41201. begin
  41202. getUEN1 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  41203. end;
  41204. procedure TUART3A_U2MODE.setUSIDL; inline;
  41205. begin
  41206. pTDefRegMap(@Self)^.&set := $00002000;
  41207. end;
  41208. procedure TUART3A_U2MODE.clearUSIDL; inline;
  41209. begin
  41210. pTDefRegMap(@Self)^.clr := $00002000;
  41211. end;
  41212. procedure TUART3A_U2MODE.setUSIDL(thebits : TBits_1); inline;
  41213. begin
  41214. if thebits = 0 then
  41215. pTDefRegMap(@Self)^.clr := $00002000
  41216. else
  41217. pTDefRegMap(@Self)^.&set := $00002000;
  41218. end;
  41219. function TUART3A_U2MODE.getUSIDL : TBits_1; inline;
  41220. begin
  41221. getUSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  41222. end;
  41223. procedure TUART3A_U2MODE.setUARTEN; inline;
  41224. begin
  41225. pTDefRegMap(@Self)^.&set := $00008000;
  41226. end;
  41227. procedure TUART3A_U2MODE.clearUARTEN; inline;
  41228. begin
  41229. pTDefRegMap(@Self)^.clr := $00008000;
  41230. end;
  41231. procedure TUART3A_U2MODE.setUARTEN(thebits : TBits_1); inline;
  41232. begin
  41233. if thebits = 0 then
  41234. pTDefRegMap(@Self)^.clr := $00008000
  41235. else
  41236. pTDefRegMap(@Self)^.&set := $00008000;
  41237. end;
  41238. function TUART3A_U2MODE.getUARTEN : TBits_1; inline;
  41239. begin
  41240. getUARTEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  41241. end;
  41242. procedure TUART3A_U2MODE.setw(thebits : TBits_32); inline;
  41243. begin
  41244. pTDefRegMap(@Self)^.val := thebits;
  41245. end;
  41246. function TUART3A_U2MODE.getw : TBits_32; inline;
  41247. begin
  41248. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  41249. end;
  41250. procedure TUART3A_U3AMODE.setSTSEL; inline;
  41251. begin
  41252. pTDefRegMap(@Self)^.&set := $00000001;
  41253. end;
  41254. procedure TUART3A_U3AMODE.clearSTSEL; inline;
  41255. begin
  41256. pTDefRegMap(@Self)^.clr := $00000001;
  41257. end;
  41258. procedure TUART3A_U3AMODE.setSTSEL(thebits : TBits_1); inline;
  41259. begin
  41260. if thebits = 0 then
  41261. pTDefRegMap(@Self)^.clr := $00000001
  41262. else
  41263. pTDefRegMap(@Self)^.&set := $00000001;
  41264. end;
  41265. function TUART3A_U3AMODE.getSTSEL : TBits_1; inline;
  41266. begin
  41267. getSTSEL := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  41268. end;
  41269. procedure TUART3A_U3AMODE.setPDSEL(thebits : TBits_2); inline;
  41270. begin
  41271. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF9 or ( thebits shl 1 );
  41272. end;
  41273. function TUART3A_U3AMODE.getPDSEL : TBits_2; inline;
  41274. begin
  41275. getPDSEL := (pTDefRegMap(@Self)^.val and $00000006) shr 1;
  41276. end;
  41277. procedure TUART3A_U3AMODE.setBRGH; inline;
  41278. begin
  41279. pTDefRegMap(@Self)^.&set := $00000008;
  41280. end;
  41281. procedure TUART3A_U3AMODE.clearBRGH; inline;
  41282. begin
  41283. pTDefRegMap(@Self)^.clr := $00000008;
  41284. end;
  41285. procedure TUART3A_U3AMODE.setBRGH(thebits : TBits_1); inline;
  41286. begin
  41287. if thebits = 0 then
  41288. pTDefRegMap(@Self)^.clr := $00000008
  41289. else
  41290. pTDefRegMap(@Self)^.&set := $00000008;
  41291. end;
  41292. function TUART3A_U3AMODE.getBRGH : TBits_1; inline;
  41293. begin
  41294. getBRGH := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  41295. end;
  41296. procedure TUART3A_U3AMODE.setRXINV; inline;
  41297. begin
  41298. pTDefRegMap(@Self)^.&set := $00000010;
  41299. end;
  41300. procedure TUART3A_U3AMODE.clearRXINV; inline;
  41301. begin
  41302. pTDefRegMap(@Self)^.clr := $00000010;
  41303. end;
  41304. procedure TUART3A_U3AMODE.setRXINV(thebits : TBits_1); inline;
  41305. begin
  41306. if thebits = 0 then
  41307. pTDefRegMap(@Self)^.clr := $00000010
  41308. else
  41309. pTDefRegMap(@Self)^.&set := $00000010;
  41310. end;
  41311. function TUART3A_U3AMODE.getRXINV : TBits_1; inline;
  41312. begin
  41313. getRXINV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  41314. end;
  41315. procedure TUART3A_U3AMODE.setABAUD; inline;
  41316. begin
  41317. pTDefRegMap(@Self)^.&set := $00000020;
  41318. end;
  41319. procedure TUART3A_U3AMODE.clearABAUD; inline;
  41320. begin
  41321. pTDefRegMap(@Self)^.clr := $00000020;
  41322. end;
  41323. procedure TUART3A_U3AMODE.setABAUD(thebits : TBits_1); inline;
  41324. begin
  41325. if thebits = 0 then
  41326. pTDefRegMap(@Self)^.clr := $00000020
  41327. else
  41328. pTDefRegMap(@Self)^.&set := $00000020;
  41329. end;
  41330. function TUART3A_U3AMODE.getABAUD : TBits_1; inline;
  41331. begin
  41332. getABAUD := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  41333. end;
  41334. procedure TUART3A_U3AMODE.setLPBACK; inline;
  41335. begin
  41336. pTDefRegMap(@Self)^.&set := $00000040;
  41337. end;
  41338. procedure TUART3A_U3AMODE.clearLPBACK; inline;
  41339. begin
  41340. pTDefRegMap(@Self)^.clr := $00000040;
  41341. end;
  41342. procedure TUART3A_U3AMODE.setLPBACK(thebits : TBits_1); inline;
  41343. begin
  41344. if thebits = 0 then
  41345. pTDefRegMap(@Self)^.clr := $00000040
  41346. else
  41347. pTDefRegMap(@Self)^.&set := $00000040;
  41348. end;
  41349. function TUART3A_U3AMODE.getLPBACK : TBits_1; inline;
  41350. begin
  41351. getLPBACK := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  41352. end;
  41353. procedure TUART3A_U3AMODE.setWAKE; inline;
  41354. begin
  41355. pTDefRegMap(@Self)^.&set := $00000080;
  41356. end;
  41357. procedure TUART3A_U3AMODE.clearWAKE; inline;
  41358. begin
  41359. pTDefRegMap(@Self)^.clr := $00000080;
  41360. end;
  41361. procedure TUART3A_U3AMODE.setWAKE(thebits : TBits_1); inline;
  41362. begin
  41363. if thebits = 0 then
  41364. pTDefRegMap(@Self)^.clr := $00000080
  41365. else
  41366. pTDefRegMap(@Self)^.&set := $00000080;
  41367. end;
  41368. function TUART3A_U3AMODE.getWAKE : TBits_1; inline;
  41369. begin
  41370. getWAKE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  41371. end;
  41372. procedure TUART3A_U3AMODE.setUEN(thebits : TBits_2); inline;
  41373. begin
  41374. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  41375. end;
  41376. function TUART3A_U3AMODE.getUEN : TBits_2; inline;
  41377. begin
  41378. getUEN := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  41379. end;
  41380. procedure TUART3A_U3AMODE.setRTSMD; inline;
  41381. begin
  41382. pTDefRegMap(@Self)^.&set := $00000800;
  41383. end;
  41384. procedure TUART3A_U3AMODE.clearRTSMD; inline;
  41385. begin
  41386. pTDefRegMap(@Self)^.clr := $00000800;
  41387. end;
  41388. procedure TUART3A_U3AMODE.setRTSMD(thebits : TBits_1); inline;
  41389. begin
  41390. if thebits = 0 then
  41391. pTDefRegMap(@Self)^.clr := $00000800
  41392. else
  41393. pTDefRegMap(@Self)^.&set := $00000800;
  41394. end;
  41395. function TUART3A_U3AMODE.getRTSMD : TBits_1; inline;
  41396. begin
  41397. getRTSMD := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  41398. end;
  41399. procedure TUART3A_U3AMODE.setIREN; inline;
  41400. begin
  41401. pTDefRegMap(@Self)^.&set := $00001000;
  41402. end;
  41403. procedure TUART3A_U3AMODE.clearIREN; inline;
  41404. begin
  41405. pTDefRegMap(@Self)^.clr := $00001000;
  41406. end;
  41407. procedure TUART3A_U3AMODE.setIREN(thebits : TBits_1); inline;
  41408. begin
  41409. if thebits = 0 then
  41410. pTDefRegMap(@Self)^.clr := $00001000
  41411. else
  41412. pTDefRegMap(@Self)^.&set := $00001000;
  41413. end;
  41414. function TUART3A_U3AMODE.getIREN : TBits_1; inline;
  41415. begin
  41416. getIREN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  41417. end;
  41418. procedure TUART3A_U3AMODE.setSIDL; inline;
  41419. begin
  41420. pTDefRegMap(@Self)^.&set := $00002000;
  41421. end;
  41422. procedure TUART3A_U3AMODE.clearSIDL; inline;
  41423. begin
  41424. pTDefRegMap(@Self)^.clr := $00002000;
  41425. end;
  41426. procedure TUART3A_U3AMODE.setSIDL(thebits : TBits_1); inline;
  41427. begin
  41428. if thebits = 0 then
  41429. pTDefRegMap(@Self)^.clr := $00002000
  41430. else
  41431. pTDefRegMap(@Self)^.&set := $00002000;
  41432. end;
  41433. function TUART3A_U3AMODE.getSIDL : TBits_1; inline;
  41434. begin
  41435. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  41436. end;
  41437. procedure TUART3A_U3AMODE.setON; inline;
  41438. begin
  41439. pTDefRegMap(@Self)^.&set := $00008000;
  41440. end;
  41441. procedure TUART3A_U3AMODE.clearON; inline;
  41442. begin
  41443. pTDefRegMap(@Self)^.clr := $00008000;
  41444. end;
  41445. procedure TUART3A_U3AMODE.setON(thebits : TBits_1); inline;
  41446. begin
  41447. if thebits = 0 then
  41448. pTDefRegMap(@Self)^.clr := $00008000
  41449. else
  41450. pTDefRegMap(@Self)^.&set := $00008000;
  41451. end;
  41452. function TUART3A_U3AMODE.getON : TBits_1; inline;
  41453. begin
  41454. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  41455. end;
  41456. procedure TUART3A_U3AMODE.setPDSEL0; inline;
  41457. begin
  41458. pTDefRegMap(@Self)^.&set := $00000002;
  41459. end;
  41460. procedure TUART3A_U3AMODE.clearPDSEL0; inline;
  41461. begin
  41462. pTDefRegMap(@Self)^.clr := $00000002;
  41463. end;
  41464. procedure TUART3A_U3AMODE.setPDSEL0(thebits : TBits_1); inline;
  41465. begin
  41466. if thebits = 0 then
  41467. pTDefRegMap(@Self)^.clr := $00000002
  41468. else
  41469. pTDefRegMap(@Self)^.&set := $00000002;
  41470. end;
  41471. function TUART3A_U3AMODE.getPDSEL0 : TBits_1; inline;
  41472. begin
  41473. getPDSEL0 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  41474. end;
  41475. procedure TUART3A_U3AMODE.setPDSEL1; inline;
  41476. begin
  41477. pTDefRegMap(@Self)^.&set := $00000004;
  41478. end;
  41479. procedure TUART3A_U3AMODE.clearPDSEL1; inline;
  41480. begin
  41481. pTDefRegMap(@Self)^.clr := $00000004;
  41482. end;
  41483. procedure TUART3A_U3AMODE.setPDSEL1(thebits : TBits_1); inline;
  41484. begin
  41485. if thebits = 0 then
  41486. pTDefRegMap(@Self)^.clr := $00000004
  41487. else
  41488. pTDefRegMap(@Self)^.&set := $00000004;
  41489. end;
  41490. function TUART3A_U3AMODE.getPDSEL1 : TBits_1; inline;
  41491. begin
  41492. getPDSEL1 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  41493. end;
  41494. procedure TUART3A_U3AMODE.setUEN0; inline;
  41495. begin
  41496. pTDefRegMap(@Self)^.&set := $00000100;
  41497. end;
  41498. procedure TUART3A_U3AMODE.clearUEN0; inline;
  41499. begin
  41500. pTDefRegMap(@Self)^.clr := $00000100;
  41501. end;
  41502. procedure TUART3A_U3AMODE.setUEN0(thebits : TBits_1); inline;
  41503. begin
  41504. if thebits = 0 then
  41505. pTDefRegMap(@Self)^.clr := $00000100
  41506. else
  41507. pTDefRegMap(@Self)^.&set := $00000100;
  41508. end;
  41509. function TUART3A_U3AMODE.getUEN0 : TBits_1; inline;
  41510. begin
  41511. getUEN0 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  41512. end;
  41513. procedure TUART3A_U3AMODE.setUEN1; inline;
  41514. begin
  41515. pTDefRegMap(@Self)^.&set := $00000200;
  41516. end;
  41517. procedure TUART3A_U3AMODE.clearUEN1; inline;
  41518. begin
  41519. pTDefRegMap(@Self)^.clr := $00000200;
  41520. end;
  41521. procedure TUART3A_U3AMODE.setUEN1(thebits : TBits_1); inline;
  41522. begin
  41523. if thebits = 0 then
  41524. pTDefRegMap(@Self)^.clr := $00000200
  41525. else
  41526. pTDefRegMap(@Self)^.&set := $00000200;
  41527. end;
  41528. function TUART3A_U3AMODE.getUEN1 : TBits_1; inline;
  41529. begin
  41530. getUEN1 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  41531. end;
  41532. procedure TUART3A_U3AMODE.setUSIDL; inline;
  41533. begin
  41534. pTDefRegMap(@Self)^.&set := $00002000;
  41535. end;
  41536. procedure TUART3A_U3AMODE.clearUSIDL; inline;
  41537. begin
  41538. pTDefRegMap(@Self)^.clr := $00002000;
  41539. end;
  41540. procedure TUART3A_U3AMODE.setUSIDL(thebits : TBits_1); inline;
  41541. begin
  41542. if thebits = 0 then
  41543. pTDefRegMap(@Self)^.clr := $00002000
  41544. else
  41545. pTDefRegMap(@Self)^.&set := $00002000;
  41546. end;
  41547. function TUART3A_U3AMODE.getUSIDL : TBits_1; inline;
  41548. begin
  41549. getUSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  41550. end;
  41551. procedure TUART3A_U3AMODE.setUARTEN; inline;
  41552. begin
  41553. pTDefRegMap(@Self)^.&set := $00008000;
  41554. end;
  41555. procedure TUART3A_U3AMODE.clearUARTEN; inline;
  41556. begin
  41557. pTDefRegMap(@Self)^.clr := $00008000;
  41558. end;
  41559. procedure TUART3A_U3AMODE.setUARTEN(thebits : TBits_1); inline;
  41560. begin
  41561. if thebits = 0 then
  41562. pTDefRegMap(@Self)^.clr := $00008000
  41563. else
  41564. pTDefRegMap(@Self)^.&set := $00008000;
  41565. end;
  41566. function TUART3A_U3AMODE.getUARTEN : TBits_1; inline;
  41567. begin
  41568. getUARTEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  41569. end;
  41570. procedure TUART3A_U3AMODE.setw(thebits : TBits_32); inline;
  41571. begin
  41572. pTDefRegMap(@Self)^.val := thebits;
  41573. end;
  41574. function TUART3A_U3AMODE.getw : TBits_32; inline;
  41575. begin
  41576. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  41577. end;
  41578. procedure TUART3A_U2STA.setURXDA; inline;
  41579. begin
  41580. pTDefRegMap(@Self)^.&set := $00000001;
  41581. end;
  41582. procedure TUART3A_U2STA.clearURXDA; inline;
  41583. begin
  41584. pTDefRegMap(@Self)^.clr := $00000001;
  41585. end;
  41586. procedure TUART3A_U2STA.setURXDA(thebits : TBits_1); inline;
  41587. begin
  41588. if thebits = 0 then
  41589. pTDefRegMap(@Self)^.clr := $00000001
  41590. else
  41591. pTDefRegMap(@Self)^.&set := $00000001;
  41592. end;
  41593. function TUART3A_U2STA.getURXDA : TBits_1; inline;
  41594. begin
  41595. getURXDA := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  41596. end;
  41597. procedure TUART3A_U2STA.setOERR; inline;
  41598. begin
  41599. pTDefRegMap(@Self)^.&set := $00000002;
  41600. end;
  41601. procedure TUART3A_U2STA.clearOERR; inline;
  41602. begin
  41603. pTDefRegMap(@Self)^.clr := $00000002;
  41604. end;
  41605. procedure TUART3A_U2STA.setOERR(thebits : TBits_1); inline;
  41606. begin
  41607. if thebits = 0 then
  41608. pTDefRegMap(@Self)^.clr := $00000002
  41609. else
  41610. pTDefRegMap(@Self)^.&set := $00000002;
  41611. end;
  41612. function TUART3A_U2STA.getOERR : TBits_1; inline;
  41613. begin
  41614. getOERR := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  41615. end;
  41616. procedure TUART3A_U2STA.setFERR; inline;
  41617. begin
  41618. pTDefRegMap(@Self)^.&set := $00000004;
  41619. end;
  41620. procedure TUART3A_U2STA.clearFERR; inline;
  41621. begin
  41622. pTDefRegMap(@Self)^.clr := $00000004;
  41623. end;
  41624. procedure TUART3A_U2STA.setFERR(thebits : TBits_1); inline;
  41625. begin
  41626. if thebits = 0 then
  41627. pTDefRegMap(@Self)^.clr := $00000004
  41628. else
  41629. pTDefRegMap(@Self)^.&set := $00000004;
  41630. end;
  41631. function TUART3A_U2STA.getFERR : TBits_1; inline;
  41632. begin
  41633. getFERR := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  41634. end;
  41635. procedure TUART3A_U2STA.setPERR; inline;
  41636. begin
  41637. pTDefRegMap(@Self)^.&set := $00000008;
  41638. end;
  41639. procedure TUART3A_U2STA.clearPERR; inline;
  41640. begin
  41641. pTDefRegMap(@Self)^.clr := $00000008;
  41642. end;
  41643. procedure TUART3A_U2STA.setPERR(thebits : TBits_1); inline;
  41644. begin
  41645. if thebits = 0 then
  41646. pTDefRegMap(@Self)^.clr := $00000008
  41647. else
  41648. pTDefRegMap(@Self)^.&set := $00000008;
  41649. end;
  41650. function TUART3A_U2STA.getPERR : TBits_1; inline;
  41651. begin
  41652. getPERR := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  41653. end;
  41654. procedure TUART3A_U2STA.setRIDLE; inline;
  41655. begin
  41656. pTDefRegMap(@Self)^.&set := $00000010;
  41657. end;
  41658. procedure TUART3A_U2STA.clearRIDLE; inline;
  41659. begin
  41660. pTDefRegMap(@Self)^.clr := $00000010;
  41661. end;
  41662. procedure TUART3A_U2STA.setRIDLE(thebits : TBits_1); inline;
  41663. begin
  41664. if thebits = 0 then
  41665. pTDefRegMap(@Self)^.clr := $00000010
  41666. else
  41667. pTDefRegMap(@Self)^.&set := $00000010;
  41668. end;
  41669. function TUART3A_U2STA.getRIDLE : TBits_1; inline;
  41670. begin
  41671. getRIDLE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  41672. end;
  41673. procedure TUART3A_U2STA.setADDEN; inline;
  41674. begin
  41675. pTDefRegMap(@Self)^.&set := $00000020;
  41676. end;
  41677. procedure TUART3A_U2STA.clearADDEN; inline;
  41678. begin
  41679. pTDefRegMap(@Self)^.clr := $00000020;
  41680. end;
  41681. procedure TUART3A_U2STA.setADDEN(thebits : TBits_1); inline;
  41682. begin
  41683. if thebits = 0 then
  41684. pTDefRegMap(@Self)^.clr := $00000020
  41685. else
  41686. pTDefRegMap(@Self)^.&set := $00000020;
  41687. end;
  41688. function TUART3A_U2STA.getADDEN : TBits_1; inline;
  41689. begin
  41690. getADDEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  41691. end;
  41692. procedure TUART3A_U2STA.setURXISEL(thebits : TBits_2); inline;
  41693. begin
  41694. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
  41695. end;
  41696. function TUART3A_U2STA.getURXISEL : TBits_2; inline;
  41697. begin
  41698. getURXISEL := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
  41699. end;
  41700. procedure TUART3A_U2STA.setTRMT; inline;
  41701. begin
  41702. pTDefRegMap(@Self)^.&set := $00000100;
  41703. end;
  41704. procedure TUART3A_U2STA.clearTRMT; inline;
  41705. begin
  41706. pTDefRegMap(@Self)^.clr := $00000100;
  41707. end;
  41708. procedure TUART3A_U2STA.setTRMT(thebits : TBits_1); inline;
  41709. begin
  41710. if thebits = 0 then
  41711. pTDefRegMap(@Self)^.clr := $00000100
  41712. else
  41713. pTDefRegMap(@Self)^.&set := $00000100;
  41714. end;
  41715. function TUART3A_U2STA.getTRMT : TBits_1; inline;
  41716. begin
  41717. getTRMT := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  41718. end;
  41719. procedure TUART3A_U2STA.setUTXBF; inline;
  41720. begin
  41721. pTDefRegMap(@Self)^.&set := $00000200;
  41722. end;
  41723. procedure TUART3A_U2STA.clearUTXBF; inline;
  41724. begin
  41725. pTDefRegMap(@Self)^.clr := $00000200;
  41726. end;
  41727. procedure TUART3A_U2STA.setUTXBF(thebits : TBits_1); inline;
  41728. begin
  41729. if thebits = 0 then
  41730. pTDefRegMap(@Self)^.clr := $00000200
  41731. else
  41732. pTDefRegMap(@Self)^.&set := $00000200;
  41733. end;
  41734. function TUART3A_U2STA.getUTXBF : TBits_1; inline;
  41735. begin
  41736. getUTXBF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  41737. end;
  41738. procedure TUART3A_U2STA.setUTXEN; inline;
  41739. begin
  41740. pTDefRegMap(@Self)^.&set := $00000400;
  41741. end;
  41742. procedure TUART3A_U2STA.clearUTXEN; inline;
  41743. begin
  41744. pTDefRegMap(@Self)^.clr := $00000400;
  41745. end;
  41746. procedure TUART3A_U2STA.setUTXEN(thebits : TBits_1); inline;
  41747. begin
  41748. if thebits = 0 then
  41749. pTDefRegMap(@Self)^.clr := $00000400
  41750. else
  41751. pTDefRegMap(@Self)^.&set := $00000400;
  41752. end;
  41753. function TUART3A_U2STA.getUTXEN : TBits_1; inline;
  41754. begin
  41755. getUTXEN := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  41756. end;
  41757. procedure TUART3A_U2STA.setUTXBRK; inline;
  41758. begin
  41759. pTDefRegMap(@Self)^.&set := $00000800;
  41760. end;
  41761. procedure TUART3A_U2STA.clearUTXBRK; inline;
  41762. begin
  41763. pTDefRegMap(@Self)^.clr := $00000800;
  41764. end;
  41765. procedure TUART3A_U2STA.setUTXBRK(thebits : TBits_1); inline;
  41766. begin
  41767. if thebits = 0 then
  41768. pTDefRegMap(@Self)^.clr := $00000800
  41769. else
  41770. pTDefRegMap(@Self)^.&set := $00000800;
  41771. end;
  41772. function TUART3A_U2STA.getUTXBRK : TBits_1; inline;
  41773. begin
  41774. getUTXBRK := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  41775. end;
  41776. procedure TUART3A_U2STA.setURXEN; inline;
  41777. begin
  41778. pTDefRegMap(@Self)^.&set := $00001000;
  41779. end;
  41780. procedure TUART3A_U2STA.clearURXEN; inline;
  41781. begin
  41782. pTDefRegMap(@Self)^.clr := $00001000;
  41783. end;
  41784. procedure TUART3A_U2STA.setURXEN(thebits : TBits_1); inline;
  41785. begin
  41786. if thebits = 0 then
  41787. pTDefRegMap(@Self)^.clr := $00001000
  41788. else
  41789. pTDefRegMap(@Self)^.&set := $00001000;
  41790. end;
  41791. function TUART3A_U2STA.getURXEN : TBits_1; inline;
  41792. begin
  41793. getURXEN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  41794. end;
  41795. procedure TUART3A_U2STA.setUTXINV; inline;
  41796. begin
  41797. pTDefRegMap(@Self)^.&set := $00002000;
  41798. end;
  41799. procedure TUART3A_U2STA.clearUTXINV; inline;
  41800. begin
  41801. pTDefRegMap(@Self)^.clr := $00002000;
  41802. end;
  41803. procedure TUART3A_U2STA.setUTXINV(thebits : TBits_1); inline;
  41804. begin
  41805. if thebits = 0 then
  41806. pTDefRegMap(@Self)^.clr := $00002000
  41807. else
  41808. pTDefRegMap(@Self)^.&set := $00002000;
  41809. end;
  41810. function TUART3A_U2STA.getUTXINV : TBits_1; inline;
  41811. begin
  41812. getUTXINV := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  41813. end;
  41814. procedure TUART3A_U2STA.setUTXISEL(thebits : TBits_2); inline;
  41815. begin
  41816. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  41817. end;
  41818. function TUART3A_U2STA.getUTXISEL : TBits_2; inline;
  41819. begin
  41820. getUTXISEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  41821. end;
  41822. procedure TUART3A_U2STA.setADDR(thebits : TBits_8); inline;
  41823. begin
  41824. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
  41825. end;
  41826. function TUART3A_U2STA.getADDR : TBits_8; inline;
  41827. begin
  41828. getADDR := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
  41829. end;
  41830. procedure TUART3A_U2STA.setADM_EN; inline;
  41831. begin
  41832. pTDefRegMap(@Self)^.&set := $01000000;
  41833. end;
  41834. procedure TUART3A_U2STA.clearADM_EN; inline;
  41835. begin
  41836. pTDefRegMap(@Self)^.clr := $01000000;
  41837. end;
  41838. procedure TUART3A_U2STA.setADM_EN(thebits : TBits_1); inline;
  41839. begin
  41840. if thebits = 0 then
  41841. pTDefRegMap(@Self)^.clr := $01000000
  41842. else
  41843. pTDefRegMap(@Self)^.&set := $01000000;
  41844. end;
  41845. function TUART3A_U2STA.getADM_EN : TBits_1; inline;
  41846. begin
  41847. getADM_EN := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  41848. end;
  41849. procedure TUART3A_U2STA.setURXISEL0; inline;
  41850. begin
  41851. pTDefRegMap(@Self)^.&set := $00000040;
  41852. end;
  41853. procedure TUART3A_U2STA.clearURXISEL0; inline;
  41854. begin
  41855. pTDefRegMap(@Self)^.clr := $00000040;
  41856. end;
  41857. procedure TUART3A_U2STA.setURXISEL0(thebits : TBits_1); inline;
  41858. begin
  41859. if thebits = 0 then
  41860. pTDefRegMap(@Self)^.clr := $00000040
  41861. else
  41862. pTDefRegMap(@Self)^.&set := $00000040;
  41863. end;
  41864. function TUART3A_U2STA.getURXISEL0 : TBits_1; inline;
  41865. begin
  41866. getURXISEL0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  41867. end;
  41868. procedure TUART3A_U2STA.setURXISEL1; inline;
  41869. begin
  41870. pTDefRegMap(@Self)^.&set := $00000080;
  41871. end;
  41872. procedure TUART3A_U2STA.clearURXISEL1; inline;
  41873. begin
  41874. pTDefRegMap(@Self)^.clr := $00000080;
  41875. end;
  41876. procedure TUART3A_U2STA.setURXISEL1(thebits : TBits_1); inline;
  41877. begin
  41878. if thebits = 0 then
  41879. pTDefRegMap(@Self)^.clr := $00000080
  41880. else
  41881. pTDefRegMap(@Self)^.&set := $00000080;
  41882. end;
  41883. function TUART3A_U2STA.getURXISEL1 : TBits_1; inline;
  41884. begin
  41885. getURXISEL1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  41886. end;
  41887. procedure TUART3A_U2STA.setUTXISEL0; inline;
  41888. begin
  41889. pTDefRegMap(@Self)^.&set := $00004000;
  41890. end;
  41891. procedure TUART3A_U2STA.clearUTXISEL0; inline;
  41892. begin
  41893. pTDefRegMap(@Self)^.clr := $00004000;
  41894. end;
  41895. procedure TUART3A_U2STA.setUTXISEL0(thebits : TBits_1); inline;
  41896. begin
  41897. if thebits = 0 then
  41898. pTDefRegMap(@Self)^.clr := $00004000
  41899. else
  41900. pTDefRegMap(@Self)^.&set := $00004000;
  41901. end;
  41902. function TUART3A_U2STA.getUTXISEL0 : TBits_1; inline;
  41903. begin
  41904. getUTXISEL0 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  41905. end;
  41906. procedure TUART3A_U2STA.setUTXISEL1; inline;
  41907. begin
  41908. pTDefRegMap(@Self)^.&set := $00008000;
  41909. end;
  41910. procedure TUART3A_U2STA.clearUTXISEL1; inline;
  41911. begin
  41912. pTDefRegMap(@Self)^.clr := $00008000;
  41913. end;
  41914. procedure TUART3A_U2STA.setUTXISEL1(thebits : TBits_1); inline;
  41915. begin
  41916. if thebits = 0 then
  41917. pTDefRegMap(@Self)^.clr := $00008000
  41918. else
  41919. pTDefRegMap(@Self)^.&set := $00008000;
  41920. end;
  41921. function TUART3A_U2STA.getUTXISEL1 : TBits_1; inline;
  41922. begin
  41923. getUTXISEL1 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  41924. end;
  41925. procedure TUART3A_U2STA.setUTXSEL(thebits : TBits_2); inline;
  41926. begin
  41927. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  41928. end;
  41929. function TUART3A_U2STA.getUTXSEL : TBits_2; inline;
  41930. begin
  41931. getUTXSEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  41932. end;
  41933. procedure TUART3A_U2STA.setw(thebits : TBits_32); inline;
  41934. begin
  41935. pTDefRegMap(@Self)^.val := thebits;
  41936. end;
  41937. function TUART3A_U2STA.getw : TBits_32; inline;
  41938. begin
  41939. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  41940. end;
  41941. procedure TUART3A_U3ASTA.setURXDA; inline;
  41942. begin
  41943. pTDefRegMap(@Self)^.&set := $00000001;
  41944. end;
  41945. procedure TUART3A_U3ASTA.clearURXDA; inline;
  41946. begin
  41947. pTDefRegMap(@Self)^.clr := $00000001;
  41948. end;
  41949. procedure TUART3A_U3ASTA.setURXDA(thebits : TBits_1); inline;
  41950. begin
  41951. if thebits = 0 then
  41952. pTDefRegMap(@Self)^.clr := $00000001
  41953. else
  41954. pTDefRegMap(@Self)^.&set := $00000001;
  41955. end;
  41956. function TUART3A_U3ASTA.getURXDA : TBits_1; inline;
  41957. begin
  41958. getURXDA := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  41959. end;
  41960. procedure TUART3A_U3ASTA.setOERR; inline;
  41961. begin
  41962. pTDefRegMap(@Self)^.&set := $00000002;
  41963. end;
  41964. procedure TUART3A_U3ASTA.clearOERR; inline;
  41965. begin
  41966. pTDefRegMap(@Self)^.clr := $00000002;
  41967. end;
  41968. procedure TUART3A_U3ASTA.setOERR(thebits : TBits_1); inline;
  41969. begin
  41970. if thebits = 0 then
  41971. pTDefRegMap(@Self)^.clr := $00000002
  41972. else
  41973. pTDefRegMap(@Self)^.&set := $00000002;
  41974. end;
  41975. function TUART3A_U3ASTA.getOERR : TBits_1; inline;
  41976. begin
  41977. getOERR := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  41978. end;
  41979. procedure TUART3A_U3ASTA.setFERR; inline;
  41980. begin
  41981. pTDefRegMap(@Self)^.&set := $00000004;
  41982. end;
  41983. procedure TUART3A_U3ASTA.clearFERR; inline;
  41984. begin
  41985. pTDefRegMap(@Self)^.clr := $00000004;
  41986. end;
  41987. procedure TUART3A_U3ASTA.setFERR(thebits : TBits_1); inline;
  41988. begin
  41989. if thebits = 0 then
  41990. pTDefRegMap(@Self)^.clr := $00000004
  41991. else
  41992. pTDefRegMap(@Self)^.&set := $00000004;
  41993. end;
  41994. function TUART3A_U3ASTA.getFERR : TBits_1; inline;
  41995. begin
  41996. getFERR := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  41997. end;
  41998. procedure TUART3A_U3ASTA.setPERR; inline;
  41999. begin
  42000. pTDefRegMap(@Self)^.&set := $00000008;
  42001. end;
  42002. procedure TUART3A_U3ASTA.clearPERR; inline;
  42003. begin
  42004. pTDefRegMap(@Self)^.clr := $00000008;
  42005. end;
  42006. procedure TUART3A_U3ASTA.setPERR(thebits : TBits_1); inline;
  42007. begin
  42008. if thebits = 0 then
  42009. pTDefRegMap(@Self)^.clr := $00000008
  42010. else
  42011. pTDefRegMap(@Self)^.&set := $00000008;
  42012. end;
  42013. function TUART3A_U3ASTA.getPERR : TBits_1; inline;
  42014. begin
  42015. getPERR := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  42016. end;
  42017. procedure TUART3A_U3ASTA.setRIDLE; inline;
  42018. begin
  42019. pTDefRegMap(@Self)^.&set := $00000010;
  42020. end;
  42021. procedure TUART3A_U3ASTA.clearRIDLE; inline;
  42022. begin
  42023. pTDefRegMap(@Self)^.clr := $00000010;
  42024. end;
  42025. procedure TUART3A_U3ASTA.setRIDLE(thebits : TBits_1); inline;
  42026. begin
  42027. if thebits = 0 then
  42028. pTDefRegMap(@Self)^.clr := $00000010
  42029. else
  42030. pTDefRegMap(@Self)^.&set := $00000010;
  42031. end;
  42032. function TUART3A_U3ASTA.getRIDLE : TBits_1; inline;
  42033. begin
  42034. getRIDLE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  42035. end;
  42036. procedure TUART3A_U3ASTA.setADDEN; inline;
  42037. begin
  42038. pTDefRegMap(@Self)^.&set := $00000020;
  42039. end;
  42040. procedure TUART3A_U3ASTA.clearADDEN; inline;
  42041. begin
  42042. pTDefRegMap(@Self)^.clr := $00000020;
  42043. end;
  42044. procedure TUART3A_U3ASTA.setADDEN(thebits : TBits_1); inline;
  42045. begin
  42046. if thebits = 0 then
  42047. pTDefRegMap(@Self)^.clr := $00000020
  42048. else
  42049. pTDefRegMap(@Self)^.&set := $00000020;
  42050. end;
  42051. function TUART3A_U3ASTA.getADDEN : TBits_1; inline;
  42052. begin
  42053. getADDEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  42054. end;
  42055. procedure TUART3A_U3ASTA.setURXISEL(thebits : TBits_2); inline;
  42056. begin
  42057. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
  42058. end;
  42059. function TUART3A_U3ASTA.getURXISEL : TBits_2; inline;
  42060. begin
  42061. getURXISEL := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
  42062. end;
  42063. procedure TUART3A_U3ASTA.setTRMT; inline;
  42064. begin
  42065. pTDefRegMap(@Self)^.&set := $00000100;
  42066. end;
  42067. procedure TUART3A_U3ASTA.clearTRMT; inline;
  42068. begin
  42069. pTDefRegMap(@Self)^.clr := $00000100;
  42070. end;
  42071. procedure TUART3A_U3ASTA.setTRMT(thebits : TBits_1); inline;
  42072. begin
  42073. if thebits = 0 then
  42074. pTDefRegMap(@Self)^.clr := $00000100
  42075. else
  42076. pTDefRegMap(@Self)^.&set := $00000100;
  42077. end;
  42078. function TUART3A_U3ASTA.getTRMT : TBits_1; inline;
  42079. begin
  42080. getTRMT := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  42081. end;
  42082. procedure TUART3A_U3ASTA.setUTXBF; inline;
  42083. begin
  42084. pTDefRegMap(@Self)^.&set := $00000200;
  42085. end;
  42086. procedure TUART3A_U3ASTA.clearUTXBF; inline;
  42087. begin
  42088. pTDefRegMap(@Self)^.clr := $00000200;
  42089. end;
  42090. procedure TUART3A_U3ASTA.setUTXBF(thebits : TBits_1); inline;
  42091. begin
  42092. if thebits = 0 then
  42093. pTDefRegMap(@Self)^.clr := $00000200
  42094. else
  42095. pTDefRegMap(@Self)^.&set := $00000200;
  42096. end;
  42097. function TUART3A_U3ASTA.getUTXBF : TBits_1; inline;
  42098. begin
  42099. getUTXBF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  42100. end;
  42101. procedure TUART3A_U3ASTA.setUTXEN; inline;
  42102. begin
  42103. pTDefRegMap(@Self)^.&set := $00000400;
  42104. end;
  42105. procedure TUART3A_U3ASTA.clearUTXEN; inline;
  42106. begin
  42107. pTDefRegMap(@Self)^.clr := $00000400;
  42108. end;
  42109. procedure TUART3A_U3ASTA.setUTXEN(thebits : TBits_1); inline;
  42110. begin
  42111. if thebits = 0 then
  42112. pTDefRegMap(@Self)^.clr := $00000400
  42113. else
  42114. pTDefRegMap(@Self)^.&set := $00000400;
  42115. end;
  42116. function TUART3A_U3ASTA.getUTXEN : TBits_1; inline;
  42117. begin
  42118. getUTXEN := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  42119. end;
  42120. procedure TUART3A_U3ASTA.setUTXBRK; inline;
  42121. begin
  42122. pTDefRegMap(@Self)^.&set := $00000800;
  42123. end;
  42124. procedure TUART3A_U3ASTA.clearUTXBRK; inline;
  42125. begin
  42126. pTDefRegMap(@Self)^.clr := $00000800;
  42127. end;
  42128. procedure TUART3A_U3ASTA.setUTXBRK(thebits : TBits_1); inline;
  42129. begin
  42130. if thebits = 0 then
  42131. pTDefRegMap(@Self)^.clr := $00000800
  42132. else
  42133. pTDefRegMap(@Self)^.&set := $00000800;
  42134. end;
  42135. function TUART3A_U3ASTA.getUTXBRK : TBits_1; inline;
  42136. begin
  42137. getUTXBRK := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  42138. end;
  42139. procedure TUART3A_U3ASTA.setURXEN; inline;
  42140. begin
  42141. pTDefRegMap(@Self)^.&set := $00001000;
  42142. end;
  42143. procedure TUART3A_U3ASTA.clearURXEN; inline;
  42144. begin
  42145. pTDefRegMap(@Self)^.clr := $00001000;
  42146. end;
  42147. procedure TUART3A_U3ASTA.setURXEN(thebits : TBits_1); inline;
  42148. begin
  42149. if thebits = 0 then
  42150. pTDefRegMap(@Self)^.clr := $00001000
  42151. else
  42152. pTDefRegMap(@Self)^.&set := $00001000;
  42153. end;
  42154. function TUART3A_U3ASTA.getURXEN : TBits_1; inline;
  42155. begin
  42156. getURXEN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  42157. end;
  42158. procedure TUART3A_U3ASTA.setUTXINV; inline;
  42159. begin
  42160. pTDefRegMap(@Self)^.&set := $00002000;
  42161. end;
  42162. procedure TUART3A_U3ASTA.clearUTXINV; inline;
  42163. begin
  42164. pTDefRegMap(@Self)^.clr := $00002000;
  42165. end;
  42166. procedure TUART3A_U3ASTA.setUTXINV(thebits : TBits_1); inline;
  42167. begin
  42168. if thebits = 0 then
  42169. pTDefRegMap(@Self)^.clr := $00002000
  42170. else
  42171. pTDefRegMap(@Self)^.&set := $00002000;
  42172. end;
  42173. function TUART3A_U3ASTA.getUTXINV : TBits_1; inline;
  42174. begin
  42175. getUTXINV := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  42176. end;
  42177. procedure TUART3A_U3ASTA.setUTXISEL(thebits : TBits_2); inline;
  42178. begin
  42179. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  42180. end;
  42181. function TUART3A_U3ASTA.getUTXISEL : TBits_2; inline;
  42182. begin
  42183. getUTXISEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  42184. end;
  42185. procedure TUART3A_U3ASTA.setADDR(thebits : TBits_8); inline;
  42186. begin
  42187. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
  42188. end;
  42189. function TUART3A_U3ASTA.getADDR : TBits_8; inline;
  42190. begin
  42191. getADDR := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
  42192. end;
  42193. procedure TUART3A_U3ASTA.setADM_EN; inline;
  42194. begin
  42195. pTDefRegMap(@Self)^.&set := $01000000;
  42196. end;
  42197. procedure TUART3A_U3ASTA.clearADM_EN; inline;
  42198. begin
  42199. pTDefRegMap(@Self)^.clr := $01000000;
  42200. end;
  42201. procedure TUART3A_U3ASTA.setADM_EN(thebits : TBits_1); inline;
  42202. begin
  42203. if thebits = 0 then
  42204. pTDefRegMap(@Self)^.clr := $01000000
  42205. else
  42206. pTDefRegMap(@Self)^.&set := $01000000;
  42207. end;
  42208. function TUART3A_U3ASTA.getADM_EN : TBits_1; inline;
  42209. begin
  42210. getADM_EN := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  42211. end;
  42212. procedure TUART3A_U3ASTA.setURXISEL0; inline;
  42213. begin
  42214. pTDefRegMap(@Self)^.&set := $00000040;
  42215. end;
  42216. procedure TUART3A_U3ASTA.clearURXISEL0; inline;
  42217. begin
  42218. pTDefRegMap(@Self)^.clr := $00000040;
  42219. end;
  42220. procedure TUART3A_U3ASTA.setURXISEL0(thebits : TBits_1); inline;
  42221. begin
  42222. if thebits = 0 then
  42223. pTDefRegMap(@Self)^.clr := $00000040
  42224. else
  42225. pTDefRegMap(@Self)^.&set := $00000040;
  42226. end;
  42227. function TUART3A_U3ASTA.getURXISEL0 : TBits_1; inline;
  42228. begin
  42229. getURXISEL0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  42230. end;
  42231. procedure TUART3A_U3ASTA.setURXISEL1; inline;
  42232. begin
  42233. pTDefRegMap(@Self)^.&set := $00000080;
  42234. end;
  42235. procedure TUART3A_U3ASTA.clearURXISEL1; inline;
  42236. begin
  42237. pTDefRegMap(@Self)^.clr := $00000080;
  42238. end;
  42239. procedure TUART3A_U3ASTA.setURXISEL1(thebits : TBits_1); inline;
  42240. begin
  42241. if thebits = 0 then
  42242. pTDefRegMap(@Self)^.clr := $00000080
  42243. else
  42244. pTDefRegMap(@Self)^.&set := $00000080;
  42245. end;
  42246. function TUART3A_U3ASTA.getURXISEL1 : TBits_1; inline;
  42247. begin
  42248. getURXISEL1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  42249. end;
  42250. procedure TUART3A_U3ASTA.setUTXISEL0; inline;
  42251. begin
  42252. pTDefRegMap(@Self)^.&set := $00004000;
  42253. end;
  42254. procedure TUART3A_U3ASTA.clearUTXISEL0; inline;
  42255. begin
  42256. pTDefRegMap(@Self)^.clr := $00004000;
  42257. end;
  42258. procedure TUART3A_U3ASTA.setUTXISEL0(thebits : TBits_1); inline;
  42259. begin
  42260. if thebits = 0 then
  42261. pTDefRegMap(@Self)^.clr := $00004000
  42262. else
  42263. pTDefRegMap(@Self)^.&set := $00004000;
  42264. end;
  42265. function TUART3A_U3ASTA.getUTXISEL0 : TBits_1; inline;
  42266. begin
  42267. getUTXISEL0 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  42268. end;
  42269. procedure TUART3A_U3ASTA.setUTXISEL1; inline;
  42270. begin
  42271. pTDefRegMap(@Self)^.&set := $00008000;
  42272. end;
  42273. procedure TUART3A_U3ASTA.clearUTXISEL1; inline;
  42274. begin
  42275. pTDefRegMap(@Self)^.clr := $00008000;
  42276. end;
  42277. procedure TUART3A_U3ASTA.setUTXISEL1(thebits : TBits_1); inline;
  42278. begin
  42279. if thebits = 0 then
  42280. pTDefRegMap(@Self)^.clr := $00008000
  42281. else
  42282. pTDefRegMap(@Self)^.&set := $00008000;
  42283. end;
  42284. function TUART3A_U3ASTA.getUTXISEL1 : TBits_1; inline;
  42285. begin
  42286. getUTXISEL1 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  42287. end;
  42288. procedure TUART3A_U3ASTA.setUTXSEL(thebits : TBits_2); inline;
  42289. begin
  42290. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  42291. end;
  42292. function TUART3A_U3ASTA.getUTXSEL : TBits_2; inline;
  42293. begin
  42294. getUTXSEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  42295. end;
  42296. procedure TUART3A_U3ASTA.setw(thebits : TBits_32); inline;
  42297. begin
  42298. pTDefRegMap(@Self)^.val := thebits;
  42299. end;
  42300. function TUART3A_U3ASTA.getw : TBits_32; inline;
  42301. begin
  42302. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  42303. end;
  42304. procedure TUART5_U3BMODE.setSTSEL; inline;
  42305. begin
  42306. pTDefRegMap(@Self)^.&set := $00000001;
  42307. end;
  42308. procedure TUART5_U3BMODE.clearSTSEL; inline;
  42309. begin
  42310. pTDefRegMap(@Self)^.clr := $00000001;
  42311. end;
  42312. procedure TUART5_U3BMODE.setSTSEL(thebits : TBits_1); inline;
  42313. begin
  42314. if thebits = 0 then
  42315. pTDefRegMap(@Self)^.clr := $00000001
  42316. else
  42317. pTDefRegMap(@Self)^.&set := $00000001;
  42318. end;
  42319. function TUART5_U3BMODE.getSTSEL : TBits_1; inline;
  42320. begin
  42321. getSTSEL := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  42322. end;
  42323. procedure TUART5_U3BMODE.setPDSEL(thebits : TBits_2); inline;
  42324. begin
  42325. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF9 or ( thebits shl 1 );
  42326. end;
  42327. function TUART5_U3BMODE.getPDSEL : TBits_2; inline;
  42328. begin
  42329. getPDSEL := (pTDefRegMap(@Self)^.val and $00000006) shr 1;
  42330. end;
  42331. procedure TUART5_U3BMODE.setBRGH; inline;
  42332. begin
  42333. pTDefRegMap(@Self)^.&set := $00000008;
  42334. end;
  42335. procedure TUART5_U3BMODE.clearBRGH; inline;
  42336. begin
  42337. pTDefRegMap(@Self)^.clr := $00000008;
  42338. end;
  42339. procedure TUART5_U3BMODE.setBRGH(thebits : TBits_1); inline;
  42340. begin
  42341. if thebits = 0 then
  42342. pTDefRegMap(@Self)^.clr := $00000008
  42343. else
  42344. pTDefRegMap(@Self)^.&set := $00000008;
  42345. end;
  42346. function TUART5_U3BMODE.getBRGH : TBits_1; inline;
  42347. begin
  42348. getBRGH := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  42349. end;
  42350. procedure TUART5_U3BMODE.setRXINV; inline;
  42351. begin
  42352. pTDefRegMap(@Self)^.&set := $00000010;
  42353. end;
  42354. procedure TUART5_U3BMODE.clearRXINV; inline;
  42355. begin
  42356. pTDefRegMap(@Self)^.clr := $00000010;
  42357. end;
  42358. procedure TUART5_U3BMODE.setRXINV(thebits : TBits_1); inline;
  42359. begin
  42360. if thebits = 0 then
  42361. pTDefRegMap(@Self)^.clr := $00000010
  42362. else
  42363. pTDefRegMap(@Self)^.&set := $00000010;
  42364. end;
  42365. function TUART5_U3BMODE.getRXINV : TBits_1; inline;
  42366. begin
  42367. getRXINV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  42368. end;
  42369. procedure TUART5_U3BMODE.setABAUD; inline;
  42370. begin
  42371. pTDefRegMap(@Self)^.&set := $00000020;
  42372. end;
  42373. procedure TUART5_U3BMODE.clearABAUD; inline;
  42374. begin
  42375. pTDefRegMap(@Self)^.clr := $00000020;
  42376. end;
  42377. procedure TUART5_U3BMODE.setABAUD(thebits : TBits_1); inline;
  42378. begin
  42379. if thebits = 0 then
  42380. pTDefRegMap(@Self)^.clr := $00000020
  42381. else
  42382. pTDefRegMap(@Self)^.&set := $00000020;
  42383. end;
  42384. function TUART5_U3BMODE.getABAUD : TBits_1; inline;
  42385. begin
  42386. getABAUD := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  42387. end;
  42388. procedure TUART5_U3BMODE.setLPBACK; inline;
  42389. begin
  42390. pTDefRegMap(@Self)^.&set := $00000040;
  42391. end;
  42392. procedure TUART5_U3BMODE.clearLPBACK; inline;
  42393. begin
  42394. pTDefRegMap(@Self)^.clr := $00000040;
  42395. end;
  42396. procedure TUART5_U3BMODE.setLPBACK(thebits : TBits_1); inline;
  42397. begin
  42398. if thebits = 0 then
  42399. pTDefRegMap(@Self)^.clr := $00000040
  42400. else
  42401. pTDefRegMap(@Self)^.&set := $00000040;
  42402. end;
  42403. function TUART5_U3BMODE.getLPBACK : TBits_1; inline;
  42404. begin
  42405. getLPBACK := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  42406. end;
  42407. procedure TUART5_U3BMODE.setWAKE; inline;
  42408. begin
  42409. pTDefRegMap(@Self)^.&set := $00000080;
  42410. end;
  42411. procedure TUART5_U3BMODE.clearWAKE; inline;
  42412. begin
  42413. pTDefRegMap(@Self)^.clr := $00000080;
  42414. end;
  42415. procedure TUART5_U3BMODE.setWAKE(thebits : TBits_1); inline;
  42416. begin
  42417. if thebits = 0 then
  42418. pTDefRegMap(@Self)^.clr := $00000080
  42419. else
  42420. pTDefRegMap(@Self)^.&set := $00000080;
  42421. end;
  42422. function TUART5_U3BMODE.getWAKE : TBits_1; inline;
  42423. begin
  42424. getWAKE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  42425. end;
  42426. procedure TUART5_U3BMODE.setIREN; inline;
  42427. begin
  42428. pTDefRegMap(@Self)^.&set := $00001000;
  42429. end;
  42430. procedure TUART5_U3BMODE.clearIREN; inline;
  42431. begin
  42432. pTDefRegMap(@Self)^.clr := $00001000;
  42433. end;
  42434. procedure TUART5_U3BMODE.setIREN(thebits : TBits_1); inline;
  42435. begin
  42436. if thebits = 0 then
  42437. pTDefRegMap(@Self)^.clr := $00001000
  42438. else
  42439. pTDefRegMap(@Self)^.&set := $00001000;
  42440. end;
  42441. function TUART5_U3BMODE.getIREN : TBits_1; inline;
  42442. begin
  42443. getIREN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  42444. end;
  42445. procedure TUART5_U3BMODE.setSIDL; inline;
  42446. begin
  42447. pTDefRegMap(@Self)^.&set := $00002000;
  42448. end;
  42449. procedure TUART5_U3BMODE.clearSIDL; inline;
  42450. begin
  42451. pTDefRegMap(@Self)^.clr := $00002000;
  42452. end;
  42453. procedure TUART5_U3BMODE.setSIDL(thebits : TBits_1); inline;
  42454. begin
  42455. if thebits = 0 then
  42456. pTDefRegMap(@Self)^.clr := $00002000
  42457. else
  42458. pTDefRegMap(@Self)^.&set := $00002000;
  42459. end;
  42460. function TUART5_U3BMODE.getSIDL : TBits_1; inline;
  42461. begin
  42462. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  42463. end;
  42464. procedure TUART5_U3BMODE.setON; inline;
  42465. begin
  42466. pTDefRegMap(@Self)^.&set := $00008000;
  42467. end;
  42468. procedure TUART5_U3BMODE.clearON; inline;
  42469. begin
  42470. pTDefRegMap(@Self)^.clr := $00008000;
  42471. end;
  42472. procedure TUART5_U3BMODE.setON(thebits : TBits_1); inline;
  42473. begin
  42474. if thebits = 0 then
  42475. pTDefRegMap(@Self)^.clr := $00008000
  42476. else
  42477. pTDefRegMap(@Self)^.&set := $00008000;
  42478. end;
  42479. function TUART5_U3BMODE.getON : TBits_1; inline;
  42480. begin
  42481. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  42482. end;
  42483. procedure TUART5_U3BMODE.setPDSEL0; inline;
  42484. begin
  42485. pTDefRegMap(@Self)^.&set := $00000002;
  42486. end;
  42487. procedure TUART5_U3BMODE.clearPDSEL0; inline;
  42488. begin
  42489. pTDefRegMap(@Self)^.clr := $00000002;
  42490. end;
  42491. procedure TUART5_U3BMODE.setPDSEL0(thebits : TBits_1); inline;
  42492. begin
  42493. if thebits = 0 then
  42494. pTDefRegMap(@Self)^.clr := $00000002
  42495. else
  42496. pTDefRegMap(@Self)^.&set := $00000002;
  42497. end;
  42498. function TUART5_U3BMODE.getPDSEL0 : TBits_1; inline;
  42499. begin
  42500. getPDSEL0 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  42501. end;
  42502. procedure TUART5_U3BMODE.setPDSEL1; inline;
  42503. begin
  42504. pTDefRegMap(@Self)^.&set := $00000004;
  42505. end;
  42506. procedure TUART5_U3BMODE.clearPDSEL1; inline;
  42507. begin
  42508. pTDefRegMap(@Self)^.clr := $00000004;
  42509. end;
  42510. procedure TUART5_U3BMODE.setPDSEL1(thebits : TBits_1); inline;
  42511. begin
  42512. if thebits = 0 then
  42513. pTDefRegMap(@Self)^.clr := $00000004
  42514. else
  42515. pTDefRegMap(@Self)^.&set := $00000004;
  42516. end;
  42517. function TUART5_U3BMODE.getPDSEL1 : TBits_1; inline;
  42518. begin
  42519. getPDSEL1 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  42520. end;
  42521. procedure TUART5_U3BMODE.setUSIDL; inline;
  42522. begin
  42523. pTDefRegMap(@Self)^.&set := $00002000;
  42524. end;
  42525. procedure TUART5_U3BMODE.clearUSIDL; inline;
  42526. begin
  42527. pTDefRegMap(@Self)^.clr := $00002000;
  42528. end;
  42529. procedure TUART5_U3BMODE.setUSIDL(thebits : TBits_1); inline;
  42530. begin
  42531. if thebits = 0 then
  42532. pTDefRegMap(@Self)^.clr := $00002000
  42533. else
  42534. pTDefRegMap(@Self)^.&set := $00002000;
  42535. end;
  42536. function TUART5_U3BMODE.getUSIDL : TBits_1; inline;
  42537. begin
  42538. getUSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  42539. end;
  42540. procedure TUART5_U3BMODE.setUARTEN; inline;
  42541. begin
  42542. pTDefRegMap(@Self)^.&set := $00008000;
  42543. end;
  42544. procedure TUART5_U3BMODE.clearUARTEN; inline;
  42545. begin
  42546. pTDefRegMap(@Self)^.clr := $00008000;
  42547. end;
  42548. procedure TUART5_U3BMODE.setUARTEN(thebits : TBits_1); inline;
  42549. begin
  42550. if thebits = 0 then
  42551. pTDefRegMap(@Self)^.clr := $00008000
  42552. else
  42553. pTDefRegMap(@Self)^.&set := $00008000;
  42554. end;
  42555. function TUART5_U3BMODE.getUARTEN : TBits_1; inline;
  42556. begin
  42557. getUARTEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  42558. end;
  42559. procedure TUART5_U3BMODE.setw(thebits : TBits_32); inline;
  42560. begin
  42561. pTDefRegMap(@Self)^.val := thebits;
  42562. end;
  42563. function TUART5_U3BMODE.getw : TBits_32; inline;
  42564. begin
  42565. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  42566. end;
  42567. procedure TUART5_U5MODE.setSTSEL; inline;
  42568. begin
  42569. pTDefRegMap(@Self)^.&set := $00000001;
  42570. end;
  42571. procedure TUART5_U5MODE.clearSTSEL; inline;
  42572. begin
  42573. pTDefRegMap(@Self)^.clr := $00000001;
  42574. end;
  42575. procedure TUART5_U5MODE.setSTSEL(thebits : TBits_1); inline;
  42576. begin
  42577. if thebits = 0 then
  42578. pTDefRegMap(@Self)^.clr := $00000001
  42579. else
  42580. pTDefRegMap(@Self)^.&set := $00000001;
  42581. end;
  42582. function TUART5_U5MODE.getSTSEL : TBits_1; inline;
  42583. begin
  42584. getSTSEL := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  42585. end;
  42586. procedure TUART5_U5MODE.setPDSEL(thebits : TBits_2); inline;
  42587. begin
  42588. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF9 or ( thebits shl 1 );
  42589. end;
  42590. function TUART5_U5MODE.getPDSEL : TBits_2; inline;
  42591. begin
  42592. getPDSEL := (pTDefRegMap(@Self)^.val and $00000006) shr 1;
  42593. end;
  42594. procedure TUART5_U5MODE.setBRGH; inline;
  42595. begin
  42596. pTDefRegMap(@Self)^.&set := $00000008;
  42597. end;
  42598. procedure TUART5_U5MODE.clearBRGH; inline;
  42599. begin
  42600. pTDefRegMap(@Self)^.clr := $00000008;
  42601. end;
  42602. procedure TUART5_U5MODE.setBRGH(thebits : TBits_1); inline;
  42603. begin
  42604. if thebits = 0 then
  42605. pTDefRegMap(@Self)^.clr := $00000008
  42606. else
  42607. pTDefRegMap(@Self)^.&set := $00000008;
  42608. end;
  42609. function TUART5_U5MODE.getBRGH : TBits_1; inline;
  42610. begin
  42611. getBRGH := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  42612. end;
  42613. procedure TUART5_U5MODE.setRXINV; inline;
  42614. begin
  42615. pTDefRegMap(@Self)^.&set := $00000010;
  42616. end;
  42617. procedure TUART5_U5MODE.clearRXINV; inline;
  42618. begin
  42619. pTDefRegMap(@Self)^.clr := $00000010;
  42620. end;
  42621. procedure TUART5_U5MODE.setRXINV(thebits : TBits_1); inline;
  42622. begin
  42623. if thebits = 0 then
  42624. pTDefRegMap(@Self)^.clr := $00000010
  42625. else
  42626. pTDefRegMap(@Self)^.&set := $00000010;
  42627. end;
  42628. function TUART5_U5MODE.getRXINV : TBits_1; inline;
  42629. begin
  42630. getRXINV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  42631. end;
  42632. procedure TUART5_U5MODE.setABAUD; inline;
  42633. begin
  42634. pTDefRegMap(@Self)^.&set := $00000020;
  42635. end;
  42636. procedure TUART5_U5MODE.clearABAUD; inline;
  42637. begin
  42638. pTDefRegMap(@Self)^.clr := $00000020;
  42639. end;
  42640. procedure TUART5_U5MODE.setABAUD(thebits : TBits_1); inline;
  42641. begin
  42642. if thebits = 0 then
  42643. pTDefRegMap(@Self)^.clr := $00000020
  42644. else
  42645. pTDefRegMap(@Self)^.&set := $00000020;
  42646. end;
  42647. function TUART5_U5MODE.getABAUD : TBits_1; inline;
  42648. begin
  42649. getABAUD := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  42650. end;
  42651. procedure TUART5_U5MODE.setLPBACK; inline;
  42652. begin
  42653. pTDefRegMap(@Self)^.&set := $00000040;
  42654. end;
  42655. procedure TUART5_U5MODE.clearLPBACK; inline;
  42656. begin
  42657. pTDefRegMap(@Self)^.clr := $00000040;
  42658. end;
  42659. procedure TUART5_U5MODE.setLPBACK(thebits : TBits_1); inline;
  42660. begin
  42661. if thebits = 0 then
  42662. pTDefRegMap(@Self)^.clr := $00000040
  42663. else
  42664. pTDefRegMap(@Self)^.&set := $00000040;
  42665. end;
  42666. function TUART5_U5MODE.getLPBACK : TBits_1; inline;
  42667. begin
  42668. getLPBACK := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  42669. end;
  42670. procedure TUART5_U5MODE.setWAKE; inline;
  42671. begin
  42672. pTDefRegMap(@Self)^.&set := $00000080;
  42673. end;
  42674. procedure TUART5_U5MODE.clearWAKE; inline;
  42675. begin
  42676. pTDefRegMap(@Self)^.clr := $00000080;
  42677. end;
  42678. procedure TUART5_U5MODE.setWAKE(thebits : TBits_1); inline;
  42679. begin
  42680. if thebits = 0 then
  42681. pTDefRegMap(@Self)^.clr := $00000080
  42682. else
  42683. pTDefRegMap(@Self)^.&set := $00000080;
  42684. end;
  42685. function TUART5_U5MODE.getWAKE : TBits_1; inline;
  42686. begin
  42687. getWAKE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  42688. end;
  42689. procedure TUART5_U5MODE.setIREN; inline;
  42690. begin
  42691. pTDefRegMap(@Self)^.&set := $00001000;
  42692. end;
  42693. procedure TUART5_U5MODE.clearIREN; inline;
  42694. begin
  42695. pTDefRegMap(@Self)^.clr := $00001000;
  42696. end;
  42697. procedure TUART5_U5MODE.setIREN(thebits : TBits_1); inline;
  42698. begin
  42699. if thebits = 0 then
  42700. pTDefRegMap(@Self)^.clr := $00001000
  42701. else
  42702. pTDefRegMap(@Self)^.&set := $00001000;
  42703. end;
  42704. function TUART5_U5MODE.getIREN : TBits_1; inline;
  42705. begin
  42706. getIREN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  42707. end;
  42708. procedure TUART5_U5MODE.setSIDL; inline;
  42709. begin
  42710. pTDefRegMap(@Self)^.&set := $00002000;
  42711. end;
  42712. procedure TUART5_U5MODE.clearSIDL; inline;
  42713. begin
  42714. pTDefRegMap(@Self)^.clr := $00002000;
  42715. end;
  42716. procedure TUART5_U5MODE.setSIDL(thebits : TBits_1); inline;
  42717. begin
  42718. if thebits = 0 then
  42719. pTDefRegMap(@Self)^.clr := $00002000
  42720. else
  42721. pTDefRegMap(@Self)^.&set := $00002000;
  42722. end;
  42723. function TUART5_U5MODE.getSIDL : TBits_1; inline;
  42724. begin
  42725. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  42726. end;
  42727. procedure TUART5_U5MODE.setON; inline;
  42728. begin
  42729. pTDefRegMap(@Self)^.&set := $00008000;
  42730. end;
  42731. procedure TUART5_U5MODE.clearON; inline;
  42732. begin
  42733. pTDefRegMap(@Self)^.clr := $00008000;
  42734. end;
  42735. procedure TUART5_U5MODE.setON(thebits : TBits_1); inline;
  42736. begin
  42737. if thebits = 0 then
  42738. pTDefRegMap(@Self)^.clr := $00008000
  42739. else
  42740. pTDefRegMap(@Self)^.&set := $00008000;
  42741. end;
  42742. function TUART5_U5MODE.getON : TBits_1; inline;
  42743. begin
  42744. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  42745. end;
  42746. procedure TUART5_U5MODE.setPDSEL0; inline;
  42747. begin
  42748. pTDefRegMap(@Self)^.&set := $00000002;
  42749. end;
  42750. procedure TUART5_U5MODE.clearPDSEL0; inline;
  42751. begin
  42752. pTDefRegMap(@Self)^.clr := $00000002;
  42753. end;
  42754. procedure TUART5_U5MODE.setPDSEL0(thebits : TBits_1); inline;
  42755. begin
  42756. if thebits = 0 then
  42757. pTDefRegMap(@Self)^.clr := $00000002
  42758. else
  42759. pTDefRegMap(@Self)^.&set := $00000002;
  42760. end;
  42761. function TUART5_U5MODE.getPDSEL0 : TBits_1; inline;
  42762. begin
  42763. getPDSEL0 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  42764. end;
  42765. procedure TUART5_U5MODE.setPDSEL1; inline;
  42766. begin
  42767. pTDefRegMap(@Self)^.&set := $00000004;
  42768. end;
  42769. procedure TUART5_U5MODE.clearPDSEL1; inline;
  42770. begin
  42771. pTDefRegMap(@Self)^.clr := $00000004;
  42772. end;
  42773. procedure TUART5_U5MODE.setPDSEL1(thebits : TBits_1); inline;
  42774. begin
  42775. if thebits = 0 then
  42776. pTDefRegMap(@Self)^.clr := $00000004
  42777. else
  42778. pTDefRegMap(@Self)^.&set := $00000004;
  42779. end;
  42780. function TUART5_U5MODE.getPDSEL1 : TBits_1; inline;
  42781. begin
  42782. getPDSEL1 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  42783. end;
  42784. procedure TUART5_U5MODE.setUSIDL; inline;
  42785. begin
  42786. pTDefRegMap(@Self)^.&set := $00002000;
  42787. end;
  42788. procedure TUART5_U5MODE.clearUSIDL; inline;
  42789. begin
  42790. pTDefRegMap(@Self)^.clr := $00002000;
  42791. end;
  42792. procedure TUART5_U5MODE.setUSIDL(thebits : TBits_1); inline;
  42793. begin
  42794. if thebits = 0 then
  42795. pTDefRegMap(@Self)^.clr := $00002000
  42796. else
  42797. pTDefRegMap(@Self)^.&set := $00002000;
  42798. end;
  42799. function TUART5_U5MODE.getUSIDL : TBits_1; inline;
  42800. begin
  42801. getUSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  42802. end;
  42803. procedure TUART5_U5MODE.setUARTEN; inline;
  42804. begin
  42805. pTDefRegMap(@Self)^.&set := $00008000;
  42806. end;
  42807. procedure TUART5_U5MODE.clearUARTEN; inline;
  42808. begin
  42809. pTDefRegMap(@Self)^.clr := $00008000;
  42810. end;
  42811. procedure TUART5_U5MODE.setUARTEN(thebits : TBits_1); inline;
  42812. begin
  42813. if thebits = 0 then
  42814. pTDefRegMap(@Self)^.clr := $00008000
  42815. else
  42816. pTDefRegMap(@Self)^.&set := $00008000;
  42817. end;
  42818. function TUART5_U5MODE.getUARTEN : TBits_1; inline;
  42819. begin
  42820. getUARTEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  42821. end;
  42822. procedure TUART5_U5MODE.setw(thebits : TBits_32); inline;
  42823. begin
  42824. pTDefRegMap(@Self)^.val := thebits;
  42825. end;
  42826. function TUART5_U5MODE.getw : TBits_32; inline;
  42827. begin
  42828. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  42829. end;
  42830. procedure TUART5_U3BSTA.setURXDA; inline;
  42831. begin
  42832. pTDefRegMap(@Self)^.&set := $00000001;
  42833. end;
  42834. procedure TUART5_U3BSTA.clearURXDA; inline;
  42835. begin
  42836. pTDefRegMap(@Self)^.clr := $00000001;
  42837. end;
  42838. procedure TUART5_U3BSTA.setURXDA(thebits : TBits_1); inline;
  42839. begin
  42840. if thebits = 0 then
  42841. pTDefRegMap(@Self)^.clr := $00000001
  42842. else
  42843. pTDefRegMap(@Self)^.&set := $00000001;
  42844. end;
  42845. function TUART5_U3BSTA.getURXDA : TBits_1; inline;
  42846. begin
  42847. getURXDA := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  42848. end;
  42849. procedure TUART5_U3BSTA.setOERR; inline;
  42850. begin
  42851. pTDefRegMap(@Self)^.&set := $00000002;
  42852. end;
  42853. procedure TUART5_U3BSTA.clearOERR; inline;
  42854. begin
  42855. pTDefRegMap(@Self)^.clr := $00000002;
  42856. end;
  42857. procedure TUART5_U3BSTA.setOERR(thebits : TBits_1); inline;
  42858. begin
  42859. if thebits = 0 then
  42860. pTDefRegMap(@Self)^.clr := $00000002
  42861. else
  42862. pTDefRegMap(@Self)^.&set := $00000002;
  42863. end;
  42864. function TUART5_U3BSTA.getOERR : TBits_1; inline;
  42865. begin
  42866. getOERR := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  42867. end;
  42868. procedure TUART5_U3BSTA.setFERR; inline;
  42869. begin
  42870. pTDefRegMap(@Self)^.&set := $00000004;
  42871. end;
  42872. procedure TUART5_U3BSTA.clearFERR; inline;
  42873. begin
  42874. pTDefRegMap(@Self)^.clr := $00000004;
  42875. end;
  42876. procedure TUART5_U3BSTA.setFERR(thebits : TBits_1); inline;
  42877. begin
  42878. if thebits = 0 then
  42879. pTDefRegMap(@Self)^.clr := $00000004
  42880. else
  42881. pTDefRegMap(@Self)^.&set := $00000004;
  42882. end;
  42883. function TUART5_U3BSTA.getFERR : TBits_1; inline;
  42884. begin
  42885. getFERR := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  42886. end;
  42887. procedure TUART5_U3BSTA.setPERR; inline;
  42888. begin
  42889. pTDefRegMap(@Self)^.&set := $00000008;
  42890. end;
  42891. procedure TUART5_U3BSTA.clearPERR; inline;
  42892. begin
  42893. pTDefRegMap(@Self)^.clr := $00000008;
  42894. end;
  42895. procedure TUART5_U3BSTA.setPERR(thebits : TBits_1); inline;
  42896. begin
  42897. if thebits = 0 then
  42898. pTDefRegMap(@Self)^.clr := $00000008
  42899. else
  42900. pTDefRegMap(@Self)^.&set := $00000008;
  42901. end;
  42902. function TUART5_U3BSTA.getPERR : TBits_1; inline;
  42903. begin
  42904. getPERR := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  42905. end;
  42906. procedure TUART5_U3BSTA.setRIDLE; inline;
  42907. begin
  42908. pTDefRegMap(@Self)^.&set := $00000010;
  42909. end;
  42910. procedure TUART5_U3BSTA.clearRIDLE; inline;
  42911. begin
  42912. pTDefRegMap(@Self)^.clr := $00000010;
  42913. end;
  42914. procedure TUART5_U3BSTA.setRIDLE(thebits : TBits_1); inline;
  42915. begin
  42916. if thebits = 0 then
  42917. pTDefRegMap(@Self)^.clr := $00000010
  42918. else
  42919. pTDefRegMap(@Self)^.&set := $00000010;
  42920. end;
  42921. function TUART5_U3BSTA.getRIDLE : TBits_1; inline;
  42922. begin
  42923. getRIDLE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  42924. end;
  42925. procedure TUART5_U3BSTA.setADDEN; inline;
  42926. begin
  42927. pTDefRegMap(@Self)^.&set := $00000020;
  42928. end;
  42929. procedure TUART5_U3BSTA.clearADDEN; inline;
  42930. begin
  42931. pTDefRegMap(@Self)^.clr := $00000020;
  42932. end;
  42933. procedure TUART5_U3BSTA.setADDEN(thebits : TBits_1); inline;
  42934. begin
  42935. if thebits = 0 then
  42936. pTDefRegMap(@Self)^.clr := $00000020
  42937. else
  42938. pTDefRegMap(@Self)^.&set := $00000020;
  42939. end;
  42940. function TUART5_U3BSTA.getADDEN : TBits_1; inline;
  42941. begin
  42942. getADDEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  42943. end;
  42944. procedure TUART5_U3BSTA.setURXISEL(thebits : TBits_2); inline;
  42945. begin
  42946. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
  42947. end;
  42948. function TUART5_U3BSTA.getURXISEL : TBits_2; inline;
  42949. begin
  42950. getURXISEL := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
  42951. end;
  42952. procedure TUART5_U3BSTA.setTRMT; inline;
  42953. begin
  42954. pTDefRegMap(@Self)^.&set := $00000100;
  42955. end;
  42956. procedure TUART5_U3BSTA.clearTRMT; inline;
  42957. begin
  42958. pTDefRegMap(@Self)^.clr := $00000100;
  42959. end;
  42960. procedure TUART5_U3BSTA.setTRMT(thebits : TBits_1); inline;
  42961. begin
  42962. if thebits = 0 then
  42963. pTDefRegMap(@Self)^.clr := $00000100
  42964. else
  42965. pTDefRegMap(@Self)^.&set := $00000100;
  42966. end;
  42967. function TUART5_U3BSTA.getTRMT : TBits_1; inline;
  42968. begin
  42969. getTRMT := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  42970. end;
  42971. procedure TUART5_U3BSTA.setUTXBF; inline;
  42972. begin
  42973. pTDefRegMap(@Self)^.&set := $00000200;
  42974. end;
  42975. procedure TUART5_U3BSTA.clearUTXBF; inline;
  42976. begin
  42977. pTDefRegMap(@Self)^.clr := $00000200;
  42978. end;
  42979. procedure TUART5_U3BSTA.setUTXBF(thebits : TBits_1); inline;
  42980. begin
  42981. if thebits = 0 then
  42982. pTDefRegMap(@Self)^.clr := $00000200
  42983. else
  42984. pTDefRegMap(@Self)^.&set := $00000200;
  42985. end;
  42986. function TUART5_U3BSTA.getUTXBF : TBits_1; inline;
  42987. begin
  42988. getUTXBF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  42989. end;
  42990. procedure TUART5_U3BSTA.setUTXEN; inline;
  42991. begin
  42992. pTDefRegMap(@Self)^.&set := $00000400;
  42993. end;
  42994. procedure TUART5_U3BSTA.clearUTXEN; inline;
  42995. begin
  42996. pTDefRegMap(@Self)^.clr := $00000400;
  42997. end;
  42998. procedure TUART5_U3BSTA.setUTXEN(thebits : TBits_1); inline;
  42999. begin
  43000. if thebits = 0 then
  43001. pTDefRegMap(@Self)^.clr := $00000400
  43002. else
  43003. pTDefRegMap(@Self)^.&set := $00000400;
  43004. end;
  43005. function TUART5_U3BSTA.getUTXEN : TBits_1; inline;
  43006. begin
  43007. getUTXEN := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  43008. end;
  43009. procedure TUART5_U3BSTA.setUTXBRK; inline;
  43010. begin
  43011. pTDefRegMap(@Self)^.&set := $00000800;
  43012. end;
  43013. procedure TUART5_U3BSTA.clearUTXBRK; inline;
  43014. begin
  43015. pTDefRegMap(@Self)^.clr := $00000800;
  43016. end;
  43017. procedure TUART5_U3BSTA.setUTXBRK(thebits : TBits_1); inline;
  43018. begin
  43019. if thebits = 0 then
  43020. pTDefRegMap(@Self)^.clr := $00000800
  43021. else
  43022. pTDefRegMap(@Self)^.&set := $00000800;
  43023. end;
  43024. function TUART5_U3BSTA.getUTXBRK : TBits_1; inline;
  43025. begin
  43026. getUTXBRK := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  43027. end;
  43028. procedure TUART5_U3BSTA.setURXEN; inline;
  43029. begin
  43030. pTDefRegMap(@Self)^.&set := $00001000;
  43031. end;
  43032. procedure TUART5_U3BSTA.clearURXEN; inline;
  43033. begin
  43034. pTDefRegMap(@Self)^.clr := $00001000;
  43035. end;
  43036. procedure TUART5_U3BSTA.setURXEN(thebits : TBits_1); inline;
  43037. begin
  43038. if thebits = 0 then
  43039. pTDefRegMap(@Self)^.clr := $00001000
  43040. else
  43041. pTDefRegMap(@Self)^.&set := $00001000;
  43042. end;
  43043. function TUART5_U3BSTA.getURXEN : TBits_1; inline;
  43044. begin
  43045. getURXEN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  43046. end;
  43047. procedure TUART5_U3BSTA.setUTXINV; inline;
  43048. begin
  43049. pTDefRegMap(@Self)^.&set := $00002000;
  43050. end;
  43051. procedure TUART5_U3BSTA.clearUTXINV; inline;
  43052. begin
  43053. pTDefRegMap(@Self)^.clr := $00002000;
  43054. end;
  43055. procedure TUART5_U3BSTA.setUTXINV(thebits : TBits_1); inline;
  43056. begin
  43057. if thebits = 0 then
  43058. pTDefRegMap(@Self)^.clr := $00002000
  43059. else
  43060. pTDefRegMap(@Self)^.&set := $00002000;
  43061. end;
  43062. function TUART5_U3BSTA.getUTXINV : TBits_1; inline;
  43063. begin
  43064. getUTXINV := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  43065. end;
  43066. procedure TUART5_U3BSTA.setUTXISEL(thebits : TBits_2); inline;
  43067. begin
  43068. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  43069. end;
  43070. function TUART5_U3BSTA.getUTXISEL : TBits_2; inline;
  43071. begin
  43072. getUTXISEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  43073. end;
  43074. procedure TUART5_U3BSTA.setADDR(thebits : TBits_8); inline;
  43075. begin
  43076. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
  43077. end;
  43078. function TUART5_U3BSTA.getADDR : TBits_8; inline;
  43079. begin
  43080. getADDR := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
  43081. end;
  43082. procedure TUART5_U3BSTA.setADM_EN; inline;
  43083. begin
  43084. pTDefRegMap(@Self)^.&set := $01000000;
  43085. end;
  43086. procedure TUART5_U3BSTA.clearADM_EN; inline;
  43087. begin
  43088. pTDefRegMap(@Self)^.clr := $01000000;
  43089. end;
  43090. procedure TUART5_U3BSTA.setADM_EN(thebits : TBits_1); inline;
  43091. begin
  43092. if thebits = 0 then
  43093. pTDefRegMap(@Self)^.clr := $01000000
  43094. else
  43095. pTDefRegMap(@Self)^.&set := $01000000;
  43096. end;
  43097. function TUART5_U3BSTA.getADM_EN : TBits_1; inline;
  43098. begin
  43099. getADM_EN := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  43100. end;
  43101. procedure TUART5_U3BSTA.setURXISEL0; inline;
  43102. begin
  43103. pTDefRegMap(@Self)^.&set := $00000040;
  43104. end;
  43105. procedure TUART5_U3BSTA.clearURXISEL0; inline;
  43106. begin
  43107. pTDefRegMap(@Self)^.clr := $00000040;
  43108. end;
  43109. procedure TUART5_U3BSTA.setURXISEL0(thebits : TBits_1); inline;
  43110. begin
  43111. if thebits = 0 then
  43112. pTDefRegMap(@Self)^.clr := $00000040
  43113. else
  43114. pTDefRegMap(@Self)^.&set := $00000040;
  43115. end;
  43116. function TUART5_U3BSTA.getURXISEL0 : TBits_1; inline;
  43117. begin
  43118. getURXISEL0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  43119. end;
  43120. procedure TUART5_U3BSTA.setURXISEL1; inline;
  43121. begin
  43122. pTDefRegMap(@Self)^.&set := $00000080;
  43123. end;
  43124. procedure TUART5_U3BSTA.clearURXISEL1; inline;
  43125. begin
  43126. pTDefRegMap(@Self)^.clr := $00000080;
  43127. end;
  43128. procedure TUART5_U3BSTA.setURXISEL1(thebits : TBits_1); inline;
  43129. begin
  43130. if thebits = 0 then
  43131. pTDefRegMap(@Self)^.clr := $00000080
  43132. else
  43133. pTDefRegMap(@Self)^.&set := $00000080;
  43134. end;
  43135. function TUART5_U3BSTA.getURXISEL1 : TBits_1; inline;
  43136. begin
  43137. getURXISEL1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  43138. end;
  43139. procedure TUART5_U3BSTA.setUTXISEL0; inline;
  43140. begin
  43141. pTDefRegMap(@Self)^.&set := $00004000;
  43142. end;
  43143. procedure TUART5_U3BSTA.clearUTXISEL0; inline;
  43144. begin
  43145. pTDefRegMap(@Self)^.clr := $00004000;
  43146. end;
  43147. procedure TUART5_U3BSTA.setUTXISEL0(thebits : TBits_1); inline;
  43148. begin
  43149. if thebits = 0 then
  43150. pTDefRegMap(@Self)^.clr := $00004000
  43151. else
  43152. pTDefRegMap(@Self)^.&set := $00004000;
  43153. end;
  43154. function TUART5_U3BSTA.getUTXISEL0 : TBits_1; inline;
  43155. begin
  43156. getUTXISEL0 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  43157. end;
  43158. procedure TUART5_U3BSTA.setUTXISEL1; inline;
  43159. begin
  43160. pTDefRegMap(@Self)^.&set := $00008000;
  43161. end;
  43162. procedure TUART5_U3BSTA.clearUTXISEL1; inline;
  43163. begin
  43164. pTDefRegMap(@Self)^.clr := $00008000;
  43165. end;
  43166. procedure TUART5_U3BSTA.setUTXISEL1(thebits : TBits_1); inline;
  43167. begin
  43168. if thebits = 0 then
  43169. pTDefRegMap(@Self)^.clr := $00008000
  43170. else
  43171. pTDefRegMap(@Self)^.&set := $00008000;
  43172. end;
  43173. function TUART5_U3BSTA.getUTXISEL1 : TBits_1; inline;
  43174. begin
  43175. getUTXISEL1 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  43176. end;
  43177. procedure TUART5_U3BSTA.setUTXSEL(thebits : TBits_2); inline;
  43178. begin
  43179. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  43180. end;
  43181. function TUART5_U3BSTA.getUTXSEL : TBits_2; inline;
  43182. begin
  43183. getUTXSEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  43184. end;
  43185. procedure TUART5_U3BSTA.setw(thebits : TBits_32); inline;
  43186. begin
  43187. pTDefRegMap(@Self)^.val := thebits;
  43188. end;
  43189. function TUART5_U3BSTA.getw : TBits_32; inline;
  43190. begin
  43191. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  43192. end;
  43193. procedure TUART5_U5STA.setURXDA; inline;
  43194. begin
  43195. pTDefRegMap(@Self)^.&set := $00000001;
  43196. end;
  43197. procedure TUART5_U5STA.clearURXDA; inline;
  43198. begin
  43199. pTDefRegMap(@Self)^.clr := $00000001;
  43200. end;
  43201. procedure TUART5_U5STA.setURXDA(thebits : TBits_1); inline;
  43202. begin
  43203. if thebits = 0 then
  43204. pTDefRegMap(@Self)^.clr := $00000001
  43205. else
  43206. pTDefRegMap(@Self)^.&set := $00000001;
  43207. end;
  43208. function TUART5_U5STA.getURXDA : TBits_1; inline;
  43209. begin
  43210. getURXDA := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  43211. end;
  43212. procedure TUART5_U5STA.setOERR; inline;
  43213. begin
  43214. pTDefRegMap(@Self)^.&set := $00000002;
  43215. end;
  43216. procedure TUART5_U5STA.clearOERR; inline;
  43217. begin
  43218. pTDefRegMap(@Self)^.clr := $00000002;
  43219. end;
  43220. procedure TUART5_U5STA.setOERR(thebits : TBits_1); inline;
  43221. begin
  43222. if thebits = 0 then
  43223. pTDefRegMap(@Self)^.clr := $00000002
  43224. else
  43225. pTDefRegMap(@Self)^.&set := $00000002;
  43226. end;
  43227. function TUART5_U5STA.getOERR : TBits_1; inline;
  43228. begin
  43229. getOERR := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  43230. end;
  43231. procedure TUART5_U5STA.setFERR; inline;
  43232. begin
  43233. pTDefRegMap(@Self)^.&set := $00000004;
  43234. end;
  43235. procedure TUART5_U5STA.clearFERR; inline;
  43236. begin
  43237. pTDefRegMap(@Self)^.clr := $00000004;
  43238. end;
  43239. procedure TUART5_U5STA.setFERR(thebits : TBits_1); inline;
  43240. begin
  43241. if thebits = 0 then
  43242. pTDefRegMap(@Self)^.clr := $00000004
  43243. else
  43244. pTDefRegMap(@Self)^.&set := $00000004;
  43245. end;
  43246. function TUART5_U5STA.getFERR : TBits_1; inline;
  43247. begin
  43248. getFERR := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  43249. end;
  43250. procedure TUART5_U5STA.setPERR; inline;
  43251. begin
  43252. pTDefRegMap(@Self)^.&set := $00000008;
  43253. end;
  43254. procedure TUART5_U5STA.clearPERR; inline;
  43255. begin
  43256. pTDefRegMap(@Self)^.clr := $00000008;
  43257. end;
  43258. procedure TUART5_U5STA.setPERR(thebits : TBits_1); inline;
  43259. begin
  43260. if thebits = 0 then
  43261. pTDefRegMap(@Self)^.clr := $00000008
  43262. else
  43263. pTDefRegMap(@Self)^.&set := $00000008;
  43264. end;
  43265. function TUART5_U5STA.getPERR : TBits_1; inline;
  43266. begin
  43267. getPERR := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  43268. end;
  43269. procedure TUART5_U5STA.setRIDLE; inline;
  43270. begin
  43271. pTDefRegMap(@Self)^.&set := $00000010;
  43272. end;
  43273. procedure TUART5_U5STA.clearRIDLE; inline;
  43274. begin
  43275. pTDefRegMap(@Self)^.clr := $00000010;
  43276. end;
  43277. procedure TUART5_U5STA.setRIDLE(thebits : TBits_1); inline;
  43278. begin
  43279. if thebits = 0 then
  43280. pTDefRegMap(@Self)^.clr := $00000010
  43281. else
  43282. pTDefRegMap(@Self)^.&set := $00000010;
  43283. end;
  43284. function TUART5_U5STA.getRIDLE : TBits_1; inline;
  43285. begin
  43286. getRIDLE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  43287. end;
  43288. procedure TUART5_U5STA.setADDEN; inline;
  43289. begin
  43290. pTDefRegMap(@Self)^.&set := $00000020;
  43291. end;
  43292. procedure TUART5_U5STA.clearADDEN; inline;
  43293. begin
  43294. pTDefRegMap(@Self)^.clr := $00000020;
  43295. end;
  43296. procedure TUART5_U5STA.setADDEN(thebits : TBits_1); inline;
  43297. begin
  43298. if thebits = 0 then
  43299. pTDefRegMap(@Self)^.clr := $00000020
  43300. else
  43301. pTDefRegMap(@Self)^.&set := $00000020;
  43302. end;
  43303. function TUART5_U5STA.getADDEN : TBits_1; inline;
  43304. begin
  43305. getADDEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  43306. end;
  43307. procedure TUART5_U5STA.setURXISEL(thebits : TBits_2); inline;
  43308. begin
  43309. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
  43310. end;
  43311. function TUART5_U5STA.getURXISEL : TBits_2; inline;
  43312. begin
  43313. getURXISEL := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
  43314. end;
  43315. procedure TUART5_U5STA.setTRMT; inline;
  43316. begin
  43317. pTDefRegMap(@Self)^.&set := $00000100;
  43318. end;
  43319. procedure TUART5_U5STA.clearTRMT; inline;
  43320. begin
  43321. pTDefRegMap(@Self)^.clr := $00000100;
  43322. end;
  43323. procedure TUART5_U5STA.setTRMT(thebits : TBits_1); inline;
  43324. begin
  43325. if thebits = 0 then
  43326. pTDefRegMap(@Self)^.clr := $00000100
  43327. else
  43328. pTDefRegMap(@Self)^.&set := $00000100;
  43329. end;
  43330. function TUART5_U5STA.getTRMT : TBits_1; inline;
  43331. begin
  43332. getTRMT := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  43333. end;
  43334. procedure TUART5_U5STA.setUTXBF; inline;
  43335. begin
  43336. pTDefRegMap(@Self)^.&set := $00000200;
  43337. end;
  43338. procedure TUART5_U5STA.clearUTXBF; inline;
  43339. begin
  43340. pTDefRegMap(@Self)^.clr := $00000200;
  43341. end;
  43342. procedure TUART5_U5STA.setUTXBF(thebits : TBits_1); inline;
  43343. begin
  43344. if thebits = 0 then
  43345. pTDefRegMap(@Self)^.clr := $00000200
  43346. else
  43347. pTDefRegMap(@Self)^.&set := $00000200;
  43348. end;
  43349. function TUART5_U5STA.getUTXBF : TBits_1; inline;
  43350. begin
  43351. getUTXBF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  43352. end;
  43353. procedure TUART5_U5STA.setUTXEN; inline;
  43354. begin
  43355. pTDefRegMap(@Self)^.&set := $00000400;
  43356. end;
  43357. procedure TUART5_U5STA.clearUTXEN; inline;
  43358. begin
  43359. pTDefRegMap(@Self)^.clr := $00000400;
  43360. end;
  43361. procedure TUART5_U5STA.setUTXEN(thebits : TBits_1); inline;
  43362. begin
  43363. if thebits = 0 then
  43364. pTDefRegMap(@Self)^.clr := $00000400
  43365. else
  43366. pTDefRegMap(@Self)^.&set := $00000400;
  43367. end;
  43368. function TUART5_U5STA.getUTXEN : TBits_1; inline;
  43369. begin
  43370. getUTXEN := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  43371. end;
  43372. procedure TUART5_U5STA.setUTXBRK; inline;
  43373. begin
  43374. pTDefRegMap(@Self)^.&set := $00000800;
  43375. end;
  43376. procedure TUART5_U5STA.clearUTXBRK; inline;
  43377. begin
  43378. pTDefRegMap(@Self)^.clr := $00000800;
  43379. end;
  43380. procedure TUART5_U5STA.setUTXBRK(thebits : TBits_1); inline;
  43381. begin
  43382. if thebits = 0 then
  43383. pTDefRegMap(@Self)^.clr := $00000800
  43384. else
  43385. pTDefRegMap(@Self)^.&set := $00000800;
  43386. end;
  43387. function TUART5_U5STA.getUTXBRK : TBits_1; inline;
  43388. begin
  43389. getUTXBRK := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  43390. end;
  43391. procedure TUART5_U5STA.setURXEN; inline;
  43392. begin
  43393. pTDefRegMap(@Self)^.&set := $00001000;
  43394. end;
  43395. procedure TUART5_U5STA.clearURXEN; inline;
  43396. begin
  43397. pTDefRegMap(@Self)^.clr := $00001000;
  43398. end;
  43399. procedure TUART5_U5STA.setURXEN(thebits : TBits_1); inline;
  43400. begin
  43401. if thebits = 0 then
  43402. pTDefRegMap(@Self)^.clr := $00001000
  43403. else
  43404. pTDefRegMap(@Self)^.&set := $00001000;
  43405. end;
  43406. function TUART5_U5STA.getURXEN : TBits_1; inline;
  43407. begin
  43408. getURXEN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  43409. end;
  43410. procedure TUART5_U5STA.setUTXINV; inline;
  43411. begin
  43412. pTDefRegMap(@Self)^.&set := $00002000;
  43413. end;
  43414. procedure TUART5_U5STA.clearUTXINV; inline;
  43415. begin
  43416. pTDefRegMap(@Self)^.clr := $00002000;
  43417. end;
  43418. procedure TUART5_U5STA.setUTXINV(thebits : TBits_1); inline;
  43419. begin
  43420. if thebits = 0 then
  43421. pTDefRegMap(@Self)^.clr := $00002000
  43422. else
  43423. pTDefRegMap(@Self)^.&set := $00002000;
  43424. end;
  43425. function TUART5_U5STA.getUTXINV : TBits_1; inline;
  43426. begin
  43427. getUTXINV := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  43428. end;
  43429. procedure TUART5_U5STA.setUTXISEL(thebits : TBits_2); inline;
  43430. begin
  43431. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  43432. end;
  43433. function TUART5_U5STA.getUTXISEL : TBits_2; inline;
  43434. begin
  43435. getUTXISEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  43436. end;
  43437. procedure TUART5_U5STA.setADDR(thebits : TBits_8); inline;
  43438. begin
  43439. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
  43440. end;
  43441. function TUART5_U5STA.getADDR : TBits_8; inline;
  43442. begin
  43443. getADDR := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
  43444. end;
  43445. procedure TUART5_U5STA.setADM_EN; inline;
  43446. begin
  43447. pTDefRegMap(@Self)^.&set := $01000000;
  43448. end;
  43449. procedure TUART5_U5STA.clearADM_EN; inline;
  43450. begin
  43451. pTDefRegMap(@Self)^.clr := $01000000;
  43452. end;
  43453. procedure TUART5_U5STA.setADM_EN(thebits : TBits_1); inline;
  43454. begin
  43455. if thebits = 0 then
  43456. pTDefRegMap(@Self)^.clr := $01000000
  43457. else
  43458. pTDefRegMap(@Self)^.&set := $01000000;
  43459. end;
  43460. function TUART5_U5STA.getADM_EN : TBits_1; inline;
  43461. begin
  43462. getADM_EN := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  43463. end;
  43464. procedure TUART5_U5STA.setURXISEL0; inline;
  43465. begin
  43466. pTDefRegMap(@Self)^.&set := $00000040;
  43467. end;
  43468. procedure TUART5_U5STA.clearURXISEL0; inline;
  43469. begin
  43470. pTDefRegMap(@Self)^.clr := $00000040;
  43471. end;
  43472. procedure TUART5_U5STA.setURXISEL0(thebits : TBits_1); inline;
  43473. begin
  43474. if thebits = 0 then
  43475. pTDefRegMap(@Self)^.clr := $00000040
  43476. else
  43477. pTDefRegMap(@Self)^.&set := $00000040;
  43478. end;
  43479. function TUART5_U5STA.getURXISEL0 : TBits_1; inline;
  43480. begin
  43481. getURXISEL0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  43482. end;
  43483. procedure TUART5_U5STA.setURXISEL1; inline;
  43484. begin
  43485. pTDefRegMap(@Self)^.&set := $00000080;
  43486. end;
  43487. procedure TUART5_U5STA.clearURXISEL1; inline;
  43488. begin
  43489. pTDefRegMap(@Self)^.clr := $00000080;
  43490. end;
  43491. procedure TUART5_U5STA.setURXISEL1(thebits : TBits_1); inline;
  43492. begin
  43493. if thebits = 0 then
  43494. pTDefRegMap(@Self)^.clr := $00000080
  43495. else
  43496. pTDefRegMap(@Self)^.&set := $00000080;
  43497. end;
  43498. function TUART5_U5STA.getURXISEL1 : TBits_1; inline;
  43499. begin
  43500. getURXISEL1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  43501. end;
  43502. procedure TUART5_U5STA.setUTXISEL0; inline;
  43503. begin
  43504. pTDefRegMap(@Self)^.&set := $00004000;
  43505. end;
  43506. procedure TUART5_U5STA.clearUTXISEL0; inline;
  43507. begin
  43508. pTDefRegMap(@Self)^.clr := $00004000;
  43509. end;
  43510. procedure TUART5_U5STA.setUTXISEL0(thebits : TBits_1); inline;
  43511. begin
  43512. if thebits = 0 then
  43513. pTDefRegMap(@Self)^.clr := $00004000
  43514. else
  43515. pTDefRegMap(@Self)^.&set := $00004000;
  43516. end;
  43517. function TUART5_U5STA.getUTXISEL0 : TBits_1; inline;
  43518. begin
  43519. getUTXISEL0 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  43520. end;
  43521. procedure TUART5_U5STA.setUTXISEL1; inline;
  43522. begin
  43523. pTDefRegMap(@Self)^.&set := $00008000;
  43524. end;
  43525. procedure TUART5_U5STA.clearUTXISEL1; inline;
  43526. begin
  43527. pTDefRegMap(@Self)^.clr := $00008000;
  43528. end;
  43529. procedure TUART5_U5STA.setUTXISEL1(thebits : TBits_1); inline;
  43530. begin
  43531. if thebits = 0 then
  43532. pTDefRegMap(@Self)^.clr := $00008000
  43533. else
  43534. pTDefRegMap(@Self)^.&set := $00008000;
  43535. end;
  43536. function TUART5_U5STA.getUTXISEL1 : TBits_1; inline;
  43537. begin
  43538. getUTXISEL1 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  43539. end;
  43540. procedure TUART5_U5STA.setUTXSEL(thebits : TBits_2); inline;
  43541. begin
  43542. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  43543. end;
  43544. function TUART5_U5STA.getUTXSEL : TBits_2; inline;
  43545. begin
  43546. getUTXSEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  43547. end;
  43548. procedure TUART5_U5STA.setw(thebits : TBits_32); inline;
  43549. begin
  43550. pTDefRegMap(@Self)^.val := thebits;
  43551. end;
  43552. function TUART5_U5STA.getw : TBits_32; inline;
  43553. begin
  43554. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  43555. end;
  43556. procedure TPMP_PMCON.setRDSP; inline;
  43557. begin
  43558. pTDefRegMap(@Self)^.&set := $00000001;
  43559. end;
  43560. procedure TPMP_PMCON.clearRDSP; inline;
  43561. begin
  43562. pTDefRegMap(@Self)^.clr := $00000001;
  43563. end;
  43564. procedure TPMP_PMCON.setRDSP(thebits : TBits_1); inline;
  43565. begin
  43566. if thebits = 0 then
  43567. pTDefRegMap(@Self)^.clr := $00000001
  43568. else
  43569. pTDefRegMap(@Self)^.&set := $00000001;
  43570. end;
  43571. function TPMP_PMCON.getRDSP : TBits_1; inline;
  43572. begin
  43573. getRDSP := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  43574. end;
  43575. procedure TPMP_PMCON.setWRSP; inline;
  43576. begin
  43577. pTDefRegMap(@Self)^.&set := $00000002;
  43578. end;
  43579. procedure TPMP_PMCON.clearWRSP; inline;
  43580. begin
  43581. pTDefRegMap(@Self)^.clr := $00000002;
  43582. end;
  43583. procedure TPMP_PMCON.setWRSP(thebits : TBits_1); inline;
  43584. begin
  43585. if thebits = 0 then
  43586. pTDefRegMap(@Self)^.clr := $00000002
  43587. else
  43588. pTDefRegMap(@Self)^.&set := $00000002;
  43589. end;
  43590. function TPMP_PMCON.getWRSP : TBits_1; inline;
  43591. begin
  43592. getWRSP := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  43593. end;
  43594. procedure TPMP_PMCON.setCS1P; inline;
  43595. begin
  43596. pTDefRegMap(@Self)^.&set := $00000008;
  43597. end;
  43598. procedure TPMP_PMCON.clearCS1P; inline;
  43599. begin
  43600. pTDefRegMap(@Self)^.clr := $00000008;
  43601. end;
  43602. procedure TPMP_PMCON.setCS1P(thebits : TBits_1); inline;
  43603. begin
  43604. if thebits = 0 then
  43605. pTDefRegMap(@Self)^.clr := $00000008
  43606. else
  43607. pTDefRegMap(@Self)^.&set := $00000008;
  43608. end;
  43609. function TPMP_PMCON.getCS1P : TBits_1; inline;
  43610. begin
  43611. getCS1P := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  43612. end;
  43613. procedure TPMP_PMCON.setCS2P; inline;
  43614. begin
  43615. pTDefRegMap(@Self)^.&set := $00000010;
  43616. end;
  43617. procedure TPMP_PMCON.clearCS2P; inline;
  43618. begin
  43619. pTDefRegMap(@Self)^.clr := $00000010;
  43620. end;
  43621. procedure TPMP_PMCON.setCS2P(thebits : TBits_1); inline;
  43622. begin
  43623. if thebits = 0 then
  43624. pTDefRegMap(@Self)^.clr := $00000010
  43625. else
  43626. pTDefRegMap(@Self)^.&set := $00000010;
  43627. end;
  43628. function TPMP_PMCON.getCS2P : TBits_1; inline;
  43629. begin
  43630. getCS2P := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  43631. end;
  43632. procedure TPMP_PMCON.setALP; inline;
  43633. begin
  43634. pTDefRegMap(@Self)^.&set := $00000020;
  43635. end;
  43636. procedure TPMP_PMCON.clearALP; inline;
  43637. begin
  43638. pTDefRegMap(@Self)^.clr := $00000020;
  43639. end;
  43640. procedure TPMP_PMCON.setALP(thebits : TBits_1); inline;
  43641. begin
  43642. if thebits = 0 then
  43643. pTDefRegMap(@Self)^.clr := $00000020
  43644. else
  43645. pTDefRegMap(@Self)^.&set := $00000020;
  43646. end;
  43647. function TPMP_PMCON.getALP : TBits_1; inline;
  43648. begin
  43649. getALP := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  43650. end;
  43651. procedure TPMP_PMCON.setCSF(thebits : TBits_2); inline;
  43652. begin
  43653. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
  43654. end;
  43655. function TPMP_PMCON.getCSF : TBits_2; inline;
  43656. begin
  43657. getCSF := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
  43658. end;
  43659. procedure TPMP_PMCON.setPTRDEN; inline;
  43660. begin
  43661. pTDefRegMap(@Self)^.&set := $00000100;
  43662. end;
  43663. procedure TPMP_PMCON.clearPTRDEN; inline;
  43664. begin
  43665. pTDefRegMap(@Self)^.clr := $00000100;
  43666. end;
  43667. procedure TPMP_PMCON.setPTRDEN(thebits : TBits_1); inline;
  43668. begin
  43669. if thebits = 0 then
  43670. pTDefRegMap(@Self)^.clr := $00000100
  43671. else
  43672. pTDefRegMap(@Self)^.&set := $00000100;
  43673. end;
  43674. function TPMP_PMCON.getPTRDEN : TBits_1; inline;
  43675. begin
  43676. getPTRDEN := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  43677. end;
  43678. procedure TPMP_PMCON.setPTWREN; inline;
  43679. begin
  43680. pTDefRegMap(@Self)^.&set := $00000200;
  43681. end;
  43682. procedure TPMP_PMCON.clearPTWREN; inline;
  43683. begin
  43684. pTDefRegMap(@Self)^.clr := $00000200;
  43685. end;
  43686. procedure TPMP_PMCON.setPTWREN(thebits : TBits_1); inline;
  43687. begin
  43688. if thebits = 0 then
  43689. pTDefRegMap(@Self)^.clr := $00000200
  43690. else
  43691. pTDefRegMap(@Self)^.&set := $00000200;
  43692. end;
  43693. function TPMP_PMCON.getPTWREN : TBits_1; inline;
  43694. begin
  43695. getPTWREN := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  43696. end;
  43697. procedure TPMP_PMCON.setPMPTTL; inline;
  43698. begin
  43699. pTDefRegMap(@Self)^.&set := $00000400;
  43700. end;
  43701. procedure TPMP_PMCON.clearPMPTTL; inline;
  43702. begin
  43703. pTDefRegMap(@Self)^.clr := $00000400;
  43704. end;
  43705. procedure TPMP_PMCON.setPMPTTL(thebits : TBits_1); inline;
  43706. begin
  43707. if thebits = 0 then
  43708. pTDefRegMap(@Self)^.clr := $00000400
  43709. else
  43710. pTDefRegMap(@Self)^.&set := $00000400;
  43711. end;
  43712. function TPMP_PMCON.getPMPTTL : TBits_1; inline;
  43713. begin
  43714. getPMPTTL := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  43715. end;
  43716. procedure TPMP_PMCON.setADRMUX(thebits : TBits_2); inline;
  43717. begin
  43718. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE7FF or ( thebits shl 11 );
  43719. end;
  43720. function TPMP_PMCON.getADRMUX : TBits_2; inline;
  43721. begin
  43722. getADRMUX := (pTDefRegMap(@Self)^.val and $00001800) shr 11;
  43723. end;
  43724. procedure TPMP_PMCON.setSIDL; inline;
  43725. begin
  43726. pTDefRegMap(@Self)^.&set := $00002000;
  43727. end;
  43728. procedure TPMP_PMCON.clearSIDL; inline;
  43729. begin
  43730. pTDefRegMap(@Self)^.clr := $00002000;
  43731. end;
  43732. procedure TPMP_PMCON.setSIDL(thebits : TBits_1); inline;
  43733. begin
  43734. if thebits = 0 then
  43735. pTDefRegMap(@Self)^.clr := $00002000
  43736. else
  43737. pTDefRegMap(@Self)^.&set := $00002000;
  43738. end;
  43739. function TPMP_PMCON.getSIDL : TBits_1; inline;
  43740. begin
  43741. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  43742. end;
  43743. procedure TPMP_PMCON.setON; inline;
  43744. begin
  43745. pTDefRegMap(@Self)^.&set := $00008000;
  43746. end;
  43747. procedure TPMP_PMCON.clearON; inline;
  43748. begin
  43749. pTDefRegMap(@Self)^.clr := $00008000;
  43750. end;
  43751. procedure TPMP_PMCON.setON(thebits : TBits_1); inline;
  43752. begin
  43753. if thebits = 0 then
  43754. pTDefRegMap(@Self)^.clr := $00008000
  43755. else
  43756. pTDefRegMap(@Self)^.&set := $00008000;
  43757. end;
  43758. function TPMP_PMCON.getON : TBits_1; inline;
  43759. begin
  43760. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  43761. end;
  43762. procedure TPMP_PMCON.setCSF0; inline;
  43763. begin
  43764. pTDefRegMap(@Self)^.&set := $00000040;
  43765. end;
  43766. procedure TPMP_PMCON.clearCSF0; inline;
  43767. begin
  43768. pTDefRegMap(@Self)^.clr := $00000040;
  43769. end;
  43770. procedure TPMP_PMCON.setCSF0(thebits : TBits_1); inline;
  43771. begin
  43772. if thebits = 0 then
  43773. pTDefRegMap(@Self)^.clr := $00000040
  43774. else
  43775. pTDefRegMap(@Self)^.&set := $00000040;
  43776. end;
  43777. function TPMP_PMCON.getCSF0 : TBits_1; inline;
  43778. begin
  43779. getCSF0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  43780. end;
  43781. procedure TPMP_PMCON.setCSF1; inline;
  43782. begin
  43783. pTDefRegMap(@Self)^.&set := $00000080;
  43784. end;
  43785. procedure TPMP_PMCON.clearCSF1; inline;
  43786. begin
  43787. pTDefRegMap(@Self)^.clr := $00000080;
  43788. end;
  43789. procedure TPMP_PMCON.setCSF1(thebits : TBits_1); inline;
  43790. begin
  43791. if thebits = 0 then
  43792. pTDefRegMap(@Self)^.clr := $00000080
  43793. else
  43794. pTDefRegMap(@Self)^.&set := $00000080;
  43795. end;
  43796. function TPMP_PMCON.getCSF1 : TBits_1; inline;
  43797. begin
  43798. getCSF1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  43799. end;
  43800. procedure TPMP_PMCON.setADRMUX0; inline;
  43801. begin
  43802. pTDefRegMap(@Self)^.&set := $00000800;
  43803. end;
  43804. procedure TPMP_PMCON.clearADRMUX0; inline;
  43805. begin
  43806. pTDefRegMap(@Self)^.clr := $00000800;
  43807. end;
  43808. procedure TPMP_PMCON.setADRMUX0(thebits : TBits_1); inline;
  43809. begin
  43810. if thebits = 0 then
  43811. pTDefRegMap(@Self)^.clr := $00000800
  43812. else
  43813. pTDefRegMap(@Self)^.&set := $00000800;
  43814. end;
  43815. function TPMP_PMCON.getADRMUX0 : TBits_1; inline;
  43816. begin
  43817. getADRMUX0 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  43818. end;
  43819. procedure TPMP_PMCON.setADRMUX1; inline;
  43820. begin
  43821. pTDefRegMap(@Self)^.&set := $00001000;
  43822. end;
  43823. procedure TPMP_PMCON.clearADRMUX1; inline;
  43824. begin
  43825. pTDefRegMap(@Self)^.clr := $00001000;
  43826. end;
  43827. procedure TPMP_PMCON.setADRMUX1(thebits : TBits_1); inline;
  43828. begin
  43829. if thebits = 0 then
  43830. pTDefRegMap(@Self)^.clr := $00001000
  43831. else
  43832. pTDefRegMap(@Self)^.&set := $00001000;
  43833. end;
  43834. function TPMP_PMCON.getADRMUX1 : TBits_1; inline;
  43835. begin
  43836. getADRMUX1 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  43837. end;
  43838. procedure TPMP_PMCON.setPSIDL; inline;
  43839. begin
  43840. pTDefRegMap(@Self)^.&set := $00002000;
  43841. end;
  43842. procedure TPMP_PMCON.clearPSIDL; inline;
  43843. begin
  43844. pTDefRegMap(@Self)^.clr := $00002000;
  43845. end;
  43846. procedure TPMP_PMCON.setPSIDL(thebits : TBits_1); inline;
  43847. begin
  43848. if thebits = 0 then
  43849. pTDefRegMap(@Self)^.clr := $00002000
  43850. else
  43851. pTDefRegMap(@Self)^.&set := $00002000;
  43852. end;
  43853. function TPMP_PMCON.getPSIDL : TBits_1; inline;
  43854. begin
  43855. getPSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  43856. end;
  43857. procedure TPMP_PMCON.setPMPEN; inline;
  43858. begin
  43859. pTDefRegMap(@Self)^.&set := $00008000;
  43860. end;
  43861. procedure TPMP_PMCON.clearPMPEN; inline;
  43862. begin
  43863. pTDefRegMap(@Self)^.clr := $00008000;
  43864. end;
  43865. procedure TPMP_PMCON.setPMPEN(thebits : TBits_1); inline;
  43866. begin
  43867. if thebits = 0 then
  43868. pTDefRegMap(@Self)^.clr := $00008000
  43869. else
  43870. pTDefRegMap(@Self)^.&set := $00008000;
  43871. end;
  43872. function TPMP_PMCON.getPMPEN : TBits_1; inline;
  43873. begin
  43874. getPMPEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  43875. end;
  43876. procedure TPMP_PMCON.setw(thebits : TBits_32); inline;
  43877. begin
  43878. pTDefRegMap(@Self)^.val := thebits;
  43879. end;
  43880. function TPMP_PMCON.getw : TBits_32; inline;
  43881. begin
  43882. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  43883. end;
  43884. procedure TPMP_PMMODE.setWAITE(thebits : TBits_2); inline;
  43885. begin
  43886. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  43887. end;
  43888. function TPMP_PMMODE.getWAITE : TBits_2; inline;
  43889. begin
  43890. getWAITE := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  43891. end;
  43892. procedure TPMP_PMMODE.setWAITM(thebits : TBits_4); inline;
  43893. begin
  43894. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFC3 or ( thebits shl 2 );
  43895. end;
  43896. function TPMP_PMMODE.getWAITM : TBits_4; inline;
  43897. begin
  43898. getWAITM := (pTDefRegMap(@Self)^.val and $0000003C) shr 2;
  43899. end;
  43900. procedure TPMP_PMMODE.setWAITB(thebits : TBits_2); inline;
  43901. begin
  43902. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
  43903. end;
  43904. function TPMP_PMMODE.getWAITB : TBits_2; inline;
  43905. begin
  43906. getWAITB := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
  43907. end;
  43908. procedure TPMP_PMMODE.setMODE(thebits : TBits_2); inline;
  43909. begin
  43910. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  43911. end;
  43912. function TPMP_PMMODE.getMODE : TBits_2; inline;
  43913. begin
  43914. getMODE := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  43915. end;
  43916. procedure TPMP_PMMODE.setMODE16; inline;
  43917. begin
  43918. pTDefRegMap(@Self)^.&set := $00000400;
  43919. end;
  43920. procedure TPMP_PMMODE.clearMODE16; inline;
  43921. begin
  43922. pTDefRegMap(@Self)^.clr := $00000400;
  43923. end;
  43924. procedure TPMP_PMMODE.setMODE16(thebits : TBits_1); inline;
  43925. begin
  43926. if thebits = 0 then
  43927. pTDefRegMap(@Self)^.clr := $00000400
  43928. else
  43929. pTDefRegMap(@Self)^.&set := $00000400;
  43930. end;
  43931. function TPMP_PMMODE.getMODE16 : TBits_1; inline;
  43932. begin
  43933. getMODE16 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  43934. end;
  43935. procedure TPMP_PMMODE.setINCM(thebits : TBits_2); inline;
  43936. begin
  43937. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE7FF or ( thebits shl 11 );
  43938. end;
  43939. function TPMP_PMMODE.getINCM : TBits_2; inline;
  43940. begin
  43941. getINCM := (pTDefRegMap(@Self)^.val and $00001800) shr 11;
  43942. end;
  43943. procedure TPMP_PMMODE.setIRQM(thebits : TBits_2); inline;
  43944. begin
  43945. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF9FFF or ( thebits shl 13 );
  43946. end;
  43947. function TPMP_PMMODE.getIRQM : TBits_2; inline;
  43948. begin
  43949. getIRQM := (pTDefRegMap(@Self)^.val and $00006000) shr 13;
  43950. end;
  43951. procedure TPMP_PMMODE.setBUSY; inline;
  43952. begin
  43953. pTDefRegMap(@Self)^.&set := $00008000;
  43954. end;
  43955. procedure TPMP_PMMODE.clearBUSY; inline;
  43956. begin
  43957. pTDefRegMap(@Self)^.clr := $00008000;
  43958. end;
  43959. procedure TPMP_PMMODE.setBUSY(thebits : TBits_1); inline;
  43960. begin
  43961. if thebits = 0 then
  43962. pTDefRegMap(@Self)^.clr := $00008000
  43963. else
  43964. pTDefRegMap(@Self)^.&set := $00008000;
  43965. end;
  43966. function TPMP_PMMODE.getBUSY : TBits_1; inline;
  43967. begin
  43968. getBUSY := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  43969. end;
  43970. procedure TPMP_PMMODE.setWAITE0; inline;
  43971. begin
  43972. pTDefRegMap(@Self)^.&set := $00000001;
  43973. end;
  43974. procedure TPMP_PMMODE.clearWAITE0; inline;
  43975. begin
  43976. pTDefRegMap(@Self)^.clr := $00000001;
  43977. end;
  43978. procedure TPMP_PMMODE.setWAITE0(thebits : TBits_1); inline;
  43979. begin
  43980. if thebits = 0 then
  43981. pTDefRegMap(@Self)^.clr := $00000001
  43982. else
  43983. pTDefRegMap(@Self)^.&set := $00000001;
  43984. end;
  43985. function TPMP_PMMODE.getWAITE0 : TBits_1; inline;
  43986. begin
  43987. getWAITE0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  43988. end;
  43989. procedure TPMP_PMMODE.setWAITE1; inline;
  43990. begin
  43991. pTDefRegMap(@Self)^.&set := $00000002;
  43992. end;
  43993. procedure TPMP_PMMODE.clearWAITE1; inline;
  43994. begin
  43995. pTDefRegMap(@Self)^.clr := $00000002;
  43996. end;
  43997. procedure TPMP_PMMODE.setWAITE1(thebits : TBits_1); inline;
  43998. begin
  43999. if thebits = 0 then
  44000. pTDefRegMap(@Self)^.clr := $00000002
  44001. else
  44002. pTDefRegMap(@Self)^.&set := $00000002;
  44003. end;
  44004. function TPMP_PMMODE.getWAITE1 : TBits_1; inline;
  44005. begin
  44006. getWAITE1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  44007. end;
  44008. procedure TPMP_PMMODE.setWAITM0; inline;
  44009. begin
  44010. pTDefRegMap(@Self)^.&set := $00000004;
  44011. end;
  44012. procedure TPMP_PMMODE.clearWAITM0; inline;
  44013. begin
  44014. pTDefRegMap(@Self)^.clr := $00000004;
  44015. end;
  44016. procedure TPMP_PMMODE.setWAITM0(thebits : TBits_1); inline;
  44017. begin
  44018. if thebits = 0 then
  44019. pTDefRegMap(@Self)^.clr := $00000004
  44020. else
  44021. pTDefRegMap(@Self)^.&set := $00000004;
  44022. end;
  44023. function TPMP_PMMODE.getWAITM0 : TBits_1; inline;
  44024. begin
  44025. getWAITM0 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  44026. end;
  44027. procedure TPMP_PMMODE.setWAITM1; inline;
  44028. begin
  44029. pTDefRegMap(@Self)^.&set := $00000008;
  44030. end;
  44031. procedure TPMP_PMMODE.clearWAITM1; inline;
  44032. begin
  44033. pTDefRegMap(@Self)^.clr := $00000008;
  44034. end;
  44035. procedure TPMP_PMMODE.setWAITM1(thebits : TBits_1); inline;
  44036. begin
  44037. if thebits = 0 then
  44038. pTDefRegMap(@Self)^.clr := $00000008
  44039. else
  44040. pTDefRegMap(@Self)^.&set := $00000008;
  44041. end;
  44042. function TPMP_PMMODE.getWAITM1 : TBits_1; inline;
  44043. begin
  44044. getWAITM1 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  44045. end;
  44046. procedure TPMP_PMMODE.setWAITM2; inline;
  44047. begin
  44048. pTDefRegMap(@Self)^.&set := $00000010;
  44049. end;
  44050. procedure TPMP_PMMODE.clearWAITM2; inline;
  44051. begin
  44052. pTDefRegMap(@Self)^.clr := $00000010;
  44053. end;
  44054. procedure TPMP_PMMODE.setWAITM2(thebits : TBits_1); inline;
  44055. begin
  44056. if thebits = 0 then
  44057. pTDefRegMap(@Self)^.clr := $00000010
  44058. else
  44059. pTDefRegMap(@Self)^.&set := $00000010;
  44060. end;
  44061. function TPMP_PMMODE.getWAITM2 : TBits_1; inline;
  44062. begin
  44063. getWAITM2 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  44064. end;
  44065. procedure TPMP_PMMODE.setWAITM3; inline;
  44066. begin
  44067. pTDefRegMap(@Self)^.&set := $00000020;
  44068. end;
  44069. procedure TPMP_PMMODE.clearWAITM3; inline;
  44070. begin
  44071. pTDefRegMap(@Self)^.clr := $00000020;
  44072. end;
  44073. procedure TPMP_PMMODE.setWAITM3(thebits : TBits_1); inline;
  44074. begin
  44075. if thebits = 0 then
  44076. pTDefRegMap(@Self)^.clr := $00000020
  44077. else
  44078. pTDefRegMap(@Self)^.&set := $00000020;
  44079. end;
  44080. function TPMP_PMMODE.getWAITM3 : TBits_1; inline;
  44081. begin
  44082. getWAITM3 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  44083. end;
  44084. procedure TPMP_PMMODE.setWAITB0; inline;
  44085. begin
  44086. pTDefRegMap(@Self)^.&set := $00000040;
  44087. end;
  44088. procedure TPMP_PMMODE.clearWAITB0; inline;
  44089. begin
  44090. pTDefRegMap(@Self)^.clr := $00000040;
  44091. end;
  44092. procedure TPMP_PMMODE.setWAITB0(thebits : TBits_1); inline;
  44093. begin
  44094. if thebits = 0 then
  44095. pTDefRegMap(@Self)^.clr := $00000040
  44096. else
  44097. pTDefRegMap(@Self)^.&set := $00000040;
  44098. end;
  44099. function TPMP_PMMODE.getWAITB0 : TBits_1; inline;
  44100. begin
  44101. getWAITB0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  44102. end;
  44103. procedure TPMP_PMMODE.setWAITB1; inline;
  44104. begin
  44105. pTDefRegMap(@Self)^.&set := $00000080;
  44106. end;
  44107. procedure TPMP_PMMODE.clearWAITB1; inline;
  44108. begin
  44109. pTDefRegMap(@Self)^.clr := $00000080;
  44110. end;
  44111. procedure TPMP_PMMODE.setWAITB1(thebits : TBits_1); inline;
  44112. begin
  44113. if thebits = 0 then
  44114. pTDefRegMap(@Self)^.clr := $00000080
  44115. else
  44116. pTDefRegMap(@Self)^.&set := $00000080;
  44117. end;
  44118. function TPMP_PMMODE.getWAITB1 : TBits_1; inline;
  44119. begin
  44120. getWAITB1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  44121. end;
  44122. procedure TPMP_PMMODE.setMODE0; inline;
  44123. begin
  44124. pTDefRegMap(@Self)^.&set := $00000100;
  44125. end;
  44126. procedure TPMP_PMMODE.clearMODE0; inline;
  44127. begin
  44128. pTDefRegMap(@Self)^.clr := $00000100;
  44129. end;
  44130. procedure TPMP_PMMODE.setMODE0(thebits : TBits_1); inline;
  44131. begin
  44132. if thebits = 0 then
  44133. pTDefRegMap(@Self)^.clr := $00000100
  44134. else
  44135. pTDefRegMap(@Self)^.&set := $00000100;
  44136. end;
  44137. function TPMP_PMMODE.getMODE0 : TBits_1; inline;
  44138. begin
  44139. getMODE0 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  44140. end;
  44141. procedure TPMP_PMMODE.setMODE1; inline;
  44142. begin
  44143. pTDefRegMap(@Self)^.&set := $00000200;
  44144. end;
  44145. procedure TPMP_PMMODE.clearMODE1; inline;
  44146. begin
  44147. pTDefRegMap(@Self)^.clr := $00000200;
  44148. end;
  44149. procedure TPMP_PMMODE.setMODE1(thebits : TBits_1); inline;
  44150. begin
  44151. if thebits = 0 then
  44152. pTDefRegMap(@Self)^.clr := $00000200
  44153. else
  44154. pTDefRegMap(@Self)^.&set := $00000200;
  44155. end;
  44156. function TPMP_PMMODE.getMODE1 : TBits_1; inline;
  44157. begin
  44158. getMODE1 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  44159. end;
  44160. procedure TPMP_PMMODE.setINCM0; inline;
  44161. begin
  44162. pTDefRegMap(@Self)^.&set := $00000800;
  44163. end;
  44164. procedure TPMP_PMMODE.clearINCM0; inline;
  44165. begin
  44166. pTDefRegMap(@Self)^.clr := $00000800;
  44167. end;
  44168. procedure TPMP_PMMODE.setINCM0(thebits : TBits_1); inline;
  44169. begin
  44170. if thebits = 0 then
  44171. pTDefRegMap(@Self)^.clr := $00000800
  44172. else
  44173. pTDefRegMap(@Self)^.&set := $00000800;
  44174. end;
  44175. function TPMP_PMMODE.getINCM0 : TBits_1; inline;
  44176. begin
  44177. getINCM0 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  44178. end;
  44179. procedure TPMP_PMMODE.setINCM1; inline;
  44180. begin
  44181. pTDefRegMap(@Self)^.&set := $00001000;
  44182. end;
  44183. procedure TPMP_PMMODE.clearINCM1; inline;
  44184. begin
  44185. pTDefRegMap(@Self)^.clr := $00001000;
  44186. end;
  44187. procedure TPMP_PMMODE.setINCM1(thebits : TBits_1); inline;
  44188. begin
  44189. if thebits = 0 then
  44190. pTDefRegMap(@Self)^.clr := $00001000
  44191. else
  44192. pTDefRegMap(@Self)^.&set := $00001000;
  44193. end;
  44194. function TPMP_PMMODE.getINCM1 : TBits_1; inline;
  44195. begin
  44196. getINCM1 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  44197. end;
  44198. procedure TPMP_PMMODE.setIRQM0; inline;
  44199. begin
  44200. pTDefRegMap(@Self)^.&set := $00002000;
  44201. end;
  44202. procedure TPMP_PMMODE.clearIRQM0; inline;
  44203. begin
  44204. pTDefRegMap(@Self)^.clr := $00002000;
  44205. end;
  44206. procedure TPMP_PMMODE.setIRQM0(thebits : TBits_1); inline;
  44207. begin
  44208. if thebits = 0 then
  44209. pTDefRegMap(@Self)^.clr := $00002000
  44210. else
  44211. pTDefRegMap(@Self)^.&set := $00002000;
  44212. end;
  44213. function TPMP_PMMODE.getIRQM0 : TBits_1; inline;
  44214. begin
  44215. getIRQM0 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  44216. end;
  44217. procedure TPMP_PMMODE.setIRQM1; inline;
  44218. begin
  44219. pTDefRegMap(@Self)^.&set := $00004000;
  44220. end;
  44221. procedure TPMP_PMMODE.clearIRQM1; inline;
  44222. begin
  44223. pTDefRegMap(@Self)^.clr := $00004000;
  44224. end;
  44225. procedure TPMP_PMMODE.setIRQM1(thebits : TBits_1); inline;
  44226. begin
  44227. if thebits = 0 then
  44228. pTDefRegMap(@Self)^.clr := $00004000
  44229. else
  44230. pTDefRegMap(@Self)^.&set := $00004000;
  44231. end;
  44232. function TPMP_PMMODE.getIRQM1 : TBits_1; inline;
  44233. begin
  44234. getIRQM1 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  44235. end;
  44236. procedure TPMP_PMMODE.setw(thebits : TBits_32); inline;
  44237. begin
  44238. pTDefRegMap(@Self)^.val := thebits;
  44239. end;
  44240. function TPMP_PMMODE.getw : TBits_32; inline;
  44241. begin
  44242. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  44243. end;
  44244. procedure TPMP_PMADDR.setADDR(thebits : TBits_14); inline;
  44245. begin
  44246. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFC000 or ( thebits shl 0 );
  44247. end;
  44248. function TPMP_PMADDR.getADDR : TBits_14; inline;
  44249. begin
  44250. getADDR := (pTDefRegMap(@Self)^.val and $00003FFF) shr 0;
  44251. end;
  44252. procedure TPMP_PMADDR.setCS(thebits : TBits_2); inline;
  44253. begin
  44254. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  44255. end;
  44256. function TPMP_PMADDR.getCS : TBits_2; inline;
  44257. begin
  44258. getCS := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  44259. end;
  44260. procedure TPMP_PMADDR.setPADDR(thebits : TBits_14); inline;
  44261. begin
  44262. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFC000 or ( thebits shl 0 );
  44263. end;
  44264. function TPMP_PMADDR.getPADDR : TBits_14; inline;
  44265. begin
  44266. getPADDR := (pTDefRegMap(@Self)^.val and $00003FFF) shr 0;
  44267. end;
  44268. procedure TPMP_PMADDR.setCS1; inline;
  44269. begin
  44270. pTDefRegMap(@Self)^.&set := $00004000;
  44271. end;
  44272. procedure TPMP_PMADDR.clearCS1; inline;
  44273. begin
  44274. pTDefRegMap(@Self)^.clr := $00004000;
  44275. end;
  44276. procedure TPMP_PMADDR.setCS1(thebits : TBits_1); inline;
  44277. begin
  44278. if thebits = 0 then
  44279. pTDefRegMap(@Self)^.clr := $00004000
  44280. else
  44281. pTDefRegMap(@Self)^.&set := $00004000;
  44282. end;
  44283. function TPMP_PMADDR.getCS1 : TBits_1; inline;
  44284. begin
  44285. getCS1 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  44286. end;
  44287. procedure TPMP_PMADDR.setCS2; inline;
  44288. begin
  44289. pTDefRegMap(@Self)^.&set := $00008000;
  44290. end;
  44291. procedure TPMP_PMADDR.clearCS2; inline;
  44292. begin
  44293. pTDefRegMap(@Self)^.clr := $00008000;
  44294. end;
  44295. procedure TPMP_PMADDR.setCS2(thebits : TBits_1); inline;
  44296. begin
  44297. if thebits = 0 then
  44298. pTDefRegMap(@Self)^.clr := $00008000
  44299. else
  44300. pTDefRegMap(@Self)^.&set := $00008000;
  44301. end;
  44302. function TPMP_PMADDR.getCS2 : TBits_1; inline;
  44303. begin
  44304. getCS2 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  44305. end;
  44306. procedure TPMP_PMADDR.setw(thebits : TBits_32); inline;
  44307. begin
  44308. pTDefRegMap(@Self)^.val := thebits;
  44309. end;
  44310. function TPMP_PMADDR.getw : TBits_32; inline;
  44311. begin
  44312. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  44313. end;
  44314. procedure TPMP_PMDOUT.setDATAOUT(thebits : TBits_32); inline;
  44315. begin
  44316. pTDefRegMap(@Self)^.val := thebits;
  44317. end;
  44318. function TPMP_PMDOUT.getDATAOUT : TBits_32; inline;
  44319. begin
  44320. getDATAOUT := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  44321. end;
  44322. procedure TPMP_PMDOUT.setw(thebits : TBits_32); inline;
  44323. begin
  44324. pTDefRegMap(@Self)^.val := thebits;
  44325. end;
  44326. function TPMP_PMDOUT.getw : TBits_32; inline;
  44327. begin
  44328. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  44329. end;
  44330. procedure TPMP_PMDIN.setDATAIN(thebits : TBits_32); inline;
  44331. begin
  44332. pTDefRegMap(@Self)^.val := thebits;
  44333. end;
  44334. function TPMP_PMDIN.getDATAIN : TBits_32; inline;
  44335. begin
  44336. getDATAIN := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  44337. end;
  44338. procedure TPMP_PMDIN.setw(thebits : TBits_32); inline;
  44339. begin
  44340. pTDefRegMap(@Self)^.val := thebits;
  44341. end;
  44342. function TPMP_PMDIN.getw : TBits_32; inline;
  44343. begin
  44344. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  44345. end;
  44346. procedure TPMP_PMAEN.setPTEN(thebits : TBits_16); inline;
  44347. begin
  44348. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF0000 or ( thebits shl 0 );
  44349. end;
  44350. function TPMP_PMAEN.getPTEN : TBits_16; inline;
  44351. begin
  44352. getPTEN := (pTDefRegMap(@Self)^.val and $0000FFFF) shr 0;
  44353. end;
  44354. procedure TPMP_PMAEN.setPTEN0; inline;
  44355. begin
  44356. pTDefRegMap(@Self)^.&set := $00000001;
  44357. end;
  44358. procedure TPMP_PMAEN.clearPTEN0; inline;
  44359. begin
  44360. pTDefRegMap(@Self)^.clr := $00000001;
  44361. end;
  44362. procedure TPMP_PMAEN.setPTEN0(thebits : TBits_1); inline;
  44363. begin
  44364. if thebits = 0 then
  44365. pTDefRegMap(@Self)^.clr := $00000001
  44366. else
  44367. pTDefRegMap(@Self)^.&set := $00000001;
  44368. end;
  44369. function TPMP_PMAEN.getPTEN0 : TBits_1; inline;
  44370. begin
  44371. getPTEN0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  44372. end;
  44373. procedure TPMP_PMAEN.setPTEN1; inline;
  44374. begin
  44375. pTDefRegMap(@Self)^.&set := $00000002;
  44376. end;
  44377. procedure TPMP_PMAEN.clearPTEN1; inline;
  44378. begin
  44379. pTDefRegMap(@Self)^.clr := $00000002;
  44380. end;
  44381. procedure TPMP_PMAEN.setPTEN1(thebits : TBits_1); inline;
  44382. begin
  44383. if thebits = 0 then
  44384. pTDefRegMap(@Self)^.clr := $00000002
  44385. else
  44386. pTDefRegMap(@Self)^.&set := $00000002;
  44387. end;
  44388. function TPMP_PMAEN.getPTEN1 : TBits_1; inline;
  44389. begin
  44390. getPTEN1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  44391. end;
  44392. procedure TPMP_PMAEN.setPTEN2; inline;
  44393. begin
  44394. pTDefRegMap(@Self)^.&set := $00000004;
  44395. end;
  44396. procedure TPMP_PMAEN.clearPTEN2; inline;
  44397. begin
  44398. pTDefRegMap(@Self)^.clr := $00000004;
  44399. end;
  44400. procedure TPMP_PMAEN.setPTEN2(thebits : TBits_1); inline;
  44401. begin
  44402. if thebits = 0 then
  44403. pTDefRegMap(@Self)^.clr := $00000004
  44404. else
  44405. pTDefRegMap(@Self)^.&set := $00000004;
  44406. end;
  44407. function TPMP_PMAEN.getPTEN2 : TBits_1; inline;
  44408. begin
  44409. getPTEN2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  44410. end;
  44411. procedure TPMP_PMAEN.setPTEN3; inline;
  44412. begin
  44413. pTDefRegMap(@Self)^.&set := $00000008;
  44414. end;
  44415. procedure TPMP_PMAEN.clearPTEN3; inline;
  44416. begin
  44417. pTDefRegMap(@Self)^.clr := $00000008;
  44418. end;
  44419. procedure TPMP_PMAEN.setPTEN3(thebits : TBits_1); inline;
  44420. begin
  44421. if thebits = 0 then
  44422. pTDefRegMap(@Self)^.clr := $00000008
  44423. else
  44424. pTDefRegMap(@Self)^.&set := $00000008;
  44425. end;
  44426. function TPMP_PMAEN.getPTEN3 : TBits_1; inline;
  44427. begin
  44428. getPTEN3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  44429. end;
  44430. procedure TPMP_PMAEN.setPTEN4; inline;
  44431. begin
  44432. pTDefRegMap(@Self)^.&set := $00000010;
  44433. end;
  44434. procedure TPMP_PMAEN.clearPTEN4; inline;
  44435. begin
  44436. pTDefRegMap(@Self)^.clr := $00000010;
  44437. end;
  44438. procedure TPMP_PMAEN.setPTEN4(thebits : TBits_1); inline;
  44439. begin
  44440. if thebits = 0 then
  44441. pTDefRegMap(@Self)^.clr := $00000010
  44442. else
  44443. pTDefRegMap(@Self)^.&set := $00000010;
  44444. end;
  44445. function TPMP_PMAEN.getPTEN4 : TBits_1; inline;
  44446. begin
  44447. getPTEN4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  44448. end;
  44449. procedure TPMP_PMAEN.setPTEN5; inline;
  44450. begin
  44451. pTDefRegMap(@Self)^.&set := $00000020;
  44452. end;
  44453. procedure TPMP_PMAEN.clearPTEN5; inline;
  44454. begin
  44455. pTDefRegMap(@Self)^.clr := $00000020;
  44456. end;
  44457. procedure TPMP_PMAEN.setPTEN5(thebits : TBits_1); inline;
  44458. begin
  44459. if thebits = 0 then
  44460. pTDefRegMap(@Self)^.clr := $00000020
  44461. else
  44462. pTDefRegMap(@Self)^.&set := $00000020;
  44463. end;
  44464. function TPMP_PMAEN.getPTEN5 : TBits_1; inline;
  44465. begin
  44466. getPTEN5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  44467. end;
  44468. procedure TPMP_PMAEN.setPTEN6; inline;
  44469. begin
  44470. pTDefRegMap(@Self)^.&set := $00000040;
  44471. end;
  44472. procedure TPMP_PMAEN.clearPTEN6; inline;
  44473. begin
  44474. pTDefRegMap(@Self)^.clr := $00000040;
  44475. end;
  44476. procedure TPMP_PMAEN.setPTEN6(thebits : TBits_1); inline;
  44477. begin
  44478. if thebits = 0 then
  44479. pTDefRegMap(@Self)^.clr := $00000040
  44480. else
  44481. pTDefRegMap(@Self)^.&set := $00000040;
  44482. end;
  44483. function TPMP_PMAEN.getPTEN6 : TBits_1; inline;
  44484. begin
  44485. getPTEN6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  44486. end;
  44487. procedure TPMP_PMAEN.setPTEN7; inline;
  44488. begin
  44489. pTDefRegMap(@Self)^.&set := $00000080;
  44490. end;
  44491. procedure TPMP_PMAEN.clearPTEN7; inline;
  44492. begin
  44493. pTDefRegMap(@Self)^.clr := $00000080;
  44494. end;
  44495. procedure TPMP_PMAEN.setPTEN7(thebits : TBits_1); inline;
  44496. begin
  44497. if thebits = 0 then
  44498. pTDefRegMap(@Self)^.clr := $00000080
  44499. else
  44500. pTDefRegMap(@Self)^.&set := $00000080;
  44501. end;
  44502. function TPMP_PMAEN.getPTEN7 : TBits_1; inline;
  44503. begin
  44504. getPTEN7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  44505. end;
  44506. procedure TPMP_PMAEN.setPTEN8; inline;
  44507. begin
  44508. pTDefRegMap(@Self)^.&set := $00000100;
  44509. end;
  44510. procedure TPMP_PMAEN.clearPTEN8; inline;
  44511. begin
  44512. pTDefRegMap(@Self)^.clr := $00000100;
  44513. end;
  44514. procedure TPMP_PMAEN.setPTEN8(thebits : TBits_1); inline;
  44515. begin
  44516. if thebits = 0 then
  44517. pTDefRegMap(@Self)^.clr := $00000100
  44518. else
  44519. pTDefRegMap(@Self)^.&set := $00000100;
  44520. end;
  44521. function TPMP_PMAEN.getPTEN8 : TBits_1; inline;
  44522. begin
  44523. getPTEN8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  44524. end;
  44525. procedure TPMP_PMAEN.setPTEN9; inline;
  44526. begin
  44527. pTDefRegMap(@Self)^.&set := $00000200;
  44528. end;
  44529. procedure TPMP_PMAEN.clearPTEN9; inline;
  44530. begin
  44531. pTDefRegMap(@Self)^.clr := $00000200;
  44532. end;
  44533. procedure TPMP_PMAEN.setPTEN9(thebits : TBits_1); inline;
  44534. begin
  44535. if thebits = 0 then
  44536. pTDefRegMap(@Self)^.clr := $00000200
  44537. else
  44538. pTDefRegMap(@Self)^.&set := $00000200;
  44539. end;
  44540. function TPMP_PMAEN.getPTEN9 : TBits_1; inline;
  44541. begin
  44542. getPTEN9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  44543. end;
  44544. procedure TPMP_PMAEN.setPTEN10; inline;
  44545. begin
  44546. pTDefRegMap(@Self)^.&set := $00000400;
  44547. end;
  44548. procedure TPMP_PMAEN.clearPTEN10; inline;
  44549. begin
  44550. pTDefRegMap(@Self)^.clr := $00000400;
  44551. end;
  44552. procedure TPMP_PMAEN.setPTEN10(thebits : TBits_1); inline;
  44553. begin
  44554. if thebits = 0 then
  44555. pTDefRegMap(@Self)^.clr := $00000400
  44556. else
  44557. pTDefRegMap(@Self)^.&set := $00000400;
  44558. end;
  44559. function TPMP_PMAEN.getPTEN10 : TBits_1; inline;
  44560. begin
  44561. getPTEN10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  44562. end;
  44563. procedure TPMP_PMAEN.setPTEN11; inline;
  44564. begin
  44565. pTDefRegMap(@Self)^.&set := $00000800;
  44566. end;
  44567. procedure TPMP_PMAEN.clearPTEN11; inline;
  44568. begin
  44569. pTDefRegMap(@Self)^.clr := $00000800;
  44570. end;
  44571. procedure TPMP_PMAEN.setPTEN11(thebits : TBits_1); inline;
  44572. begin
  44573. if thebits = 0 then
  44574. pTDefRegMap(@Self)^.clr := $00000800
  44575. else
  44576. pTDefRegMap(@Self)^.&set := $00000800;
  44577. end;
  44578. function TPMP_PMAEN.getPTEN11 : TBits_1; inline;
  44579. begin
  44580. getPTEN11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  44581. end;
  44582. procedure TPMP_PMAEN.setPTEN12; inline;
  44583. begin
  44584. pTDefRegMap(@Self)^.&set := $00001000;
  44585. end;
  44586. procedure TPMP_PMAEN.clearPTEN12; inline;
  44587. begin
  44588. pTDefRegMap(@Self)^.clr := $00001000;
  44589. end;
  44590. procedure TPMP_PMAEN.setPTEN12(thebits : TBits_1); inline;
  44591. begin
  44592. if thebits = 0 then
  44593. pTDefRegMap(@Self)^.clr := $00001000
  44594. else
  44595. pTDefRegMap(@Self)^.&set := $00001000;
  44596. end;
  44597. function TPMP_PMAEN.getPTEN12 : TBits_1; inline;
  44598. begin
  44599. getPTEN12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  44600. end;
  44601. procedure TPMP_PMAEN.setPTEN13; inline;
  44602. begin
  44603. pTDefRegMap(@Self)^.&set := $00002000;
  44604. end;
  44605. procedure TPMP_PMAEN.clearPTEN13; inline;
  44606. begin
  44607. pTDefRegMap(@Self)^.clr := $00002000;
  44608. end;
  44609. procedure TPMP_PMAEN.setPTEN13(thebits : TBits_1); inline;
  44610. begin
  44611. if thebits = 0 then
  44612. pTDefRegMap(@Self)^.clr := $00002000
  44613. else
  44614. pTDefRegMap(@Self)^.&set := $00002000;
  44615. end;
  44616. function TPMP_PMAEN.getPTEN13 : TBits_1; inline;
  44617. begin
  44618. getPTEN13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  44619. end;
  44620. procedure TPMP_PMAEN.setPTEN14; inline;
  44621. begin
  44622. pTDefRegMap(@Self)^.&set := $00004000;
  44623. end;
  44624. procedure TPMP_PMAEN.clearPTEN14; inline;
  44625. begin
  44626. pTDefRegMap(@Self)^.clr := $00004000;
  44627. end;
  44628. procedure TPMP_PMAEN.setPTEN14(thebits : TBits_1); inline;
  44629. begin
  44630. if thebits = 0 then
  44631. pTDefRegMap(@Self)^.clr := $00004000
  44632. else
  44633. pTDefRegMap(@Self)^.&set := $00004000;
  44634. end;
  44635. function TPMP_PMAEN.getPTEN14 : TBits_1; inline;
  44636. begin
  44637. getPTEN14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  44638. end;
  44639. procedure TPMP_PMAEN.setPTEN15; inline;
  44640. begin
  44641. pTDefRegMap(@Self)^.&set := $00008000;
  44642. end;
  44643. procedure TPMP_PMAEN.clearPTEN15; inline;
  44644. begin
  44645. pTDefRegMap(@Self)^.clr := $00008000;
  44646. end;
  44647. procedure TPMP_PMAEN.setPTEN15(thebits : TBits_1); inline;
  44648. begin
  44649. if thebits = 0 then
  44650. pTDefRegMap(@Self)^.clr := $00008000
  44651. else
  44652. pTDefRegMap(@Self)^.&set := $00008000;
  44653. end;
  44654. function TPMP_PMAEN.getPTEN15 : TBits_1; inline;
  44655. begin
  44656. getPTEN15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  44657. end;
  44658. procedure TPMP_PMAEN.setw(thebits : TBits_32); inline;
  44659. begin
  44660. pTDefRegMap(@Self)^.val := thebits;
  44661. end;
  44662. function TPMP_PMAEN.getw : TBits_32; inline;
  44663. begin
  44664. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  44665. end;
  44666. procedure TPMP_PMSTAT.setOB0E; inline;
  44667. begin
  44668. pTDefRegMap(@Self)^.&set := $00000001;
  44669. end;
  44670. procedure TPMP_PMSTAT.clearOB0E; inline;
  44671. begin
  44672. pTDefRegMap(@Self)^.clr := $00000001;
  44673. end;
  44674. procedure TPMP_PMSTAT.setOB0E(thebits : TBits_1); inline;
  44675. begin
  44676. if thebits = 0 then
  44677. pTDefRegMap(@Self)^.clr := $00000001
  44678. else
  44679. pTDefRegMap(@Self)^.&set := $00000001;
  44680. end;
  44681. function TPMP_PMSTAT.getOB0E : TBits_1; inline;
  44682. begin
  44683. getOB0E := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  44684. end;
  44685. procedure TPMP_PMSTAT.setOB1E; inline;
  44686. begin
  44687. pTDefRegMap(@Self)^.&set := $00000002;
  44688. end;
  44689. procedure TPMP_PMSTAT.clearOB1E; inline;
  44690. begin
  44691. pTDefRegMap(@Self)^.clr := $00000002;
  44692. end;
  44693. procedure TPMP_PMSTAT.setOB1E(thebits : TBits_1); inline;
  44694. begin
  44695. if thebits = 0 then
  44696. pTDefRegMap(@Self)^.clr := $00000002
  44697. else
  44698. pTDefRegMap(@Self)^.&set := $00000002;
  44699. end;
  44700. function TPMP_PMSTAT.getOB1E : TBits_1; inline;
  44701. begin
  44702. getOB1E := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  44703. end;
  44704. procedure TPMP_PMSTAT.setOB2E; inline;
  44705. begin
  44706. pTDefRegMap(@Self)^.&set := $00000004;
  44707. end;
  44708. procedure TPMP_PMSTAT.clearOB2E; inline;
  44709. begin
  44710. pTDefRegMap(@Self)^.clr := $00000004;
  44711. end;
  44712. procedure TPMP_PMSTAT.setOB2E(thebits : TBits_1); inline;
  44713. begin
  44714. if thebits = 0 then
  44715. pTDefRegMap(@Self)^.clr := $00000004
  44716. else
  44717. pTDefRegMap(@Self)^.&set := $00000004;
  44718. end;
  44719. function TPMP_PMSTAT.getOB2E : TBits_1; inline;
  44720. begin
  44721. getOB2E := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  44722. end;
  44723. procedure TPMP_PMSTAT.setOB3E; inline;
  44724. begin
  44725. pTDefRegMap(@Self)^.&set := $00000008;
  44726. end;
  44727. procedure TPMP_PMSTAT.clearOB3E; inline;
  44728. begin
  44729. pTDefRegMap(@Self)^.clr := $00000008;
  44730. end;
  44731. procedure TPMP_PMSTAT.setOB3E(thebits : TBits_1); inline;
  44732. begin
  44733. if thebits = 0 then
  44734. pTDefRegMap(@Self)^.clr := $00000008
  44735. else
  44736. pTDefRegMap(@Self)^.&set := $00000008;
  44737. end;
  44738. function TPMP_PMSTAT.getOB3E : TBits_1; inline;
  44739. begin
  44740. getOB3E := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  44741. end;
  44742. procedure TPMP_PMSTAT.setOBUF; inline;
  44743. begin
  44744. pTDefRegMap(@Self)^.&set := $00000040;
  44745. end;
  44746. procedure TPMP_PMSTAT.clearOBUF; inline;
  44747. begin
  44748. pTDefRegMap(@Self)^.clr := $00000040;
  44749. end;
  44750. procedure TPMP_PMSTAT.setOBUF(thebits : TBits_1); inline;
  44751. begin
  44752. if thebits = 0 then
  44753. pTDefRegMap(@Self)^.clr := $00000040
  44754. else
  44755. pTDefRegMap(@Self)^.&set := $00000040;
  44756. end;
  44757. function TPMP_PMSTAT.getOBUF : TBits_1; inline;
  44758. begin
  44759. getOBUF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  44760. end;
  44761. procedure TPMP_PMSTAT.setOBE; inline;
  44762. begin
  44763. pTDefRegMap(@Self)^.&set := $00000080;
  44764. end;
  44765. procedure TPMP_PMSTAT.clearOBE; inline;
  44766. begin
  44767. pTDefRegMap(@Self)^.clr := $00000080;
  44768. end;
  44769. procedure TPMP_PMSTAT.setOBE(thebits : TBits_1); inline;
  44770. begin
  44771. if thebits = 0 then
  44772. pTDefRegMap(@Self)^.clr := $00000080
  44773. else
  44774. pTDefRegMap(@Self)^.&set := $00000080;
  44775. end;
  44776. function TPMP_PMSTAT.getOBE : TBits_1; inline;
  44777. begin
  44778. getOBE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  44779. end;
  44780. procedure TPMP_PMSTAT.setIB0F; inline;
  44781. begin
  44782. pTDefRegMap(@Self)^.&set := $00000100;
  44783. end;
  44784. procedure TPMP_PMSTAT.clearIB0F; inline;
  44785. begin
  44786. pTDefRegMap(@Self)^.clr := $00000100;
  44787. end;
  44788. procedure TPMP_PMSTAT.setIB0F(thebits : TBits_1); inline;
  44789. begin
  44790. if thebits = 0 then
  44791. pTDefRegMap(@Self)^.clr := $00000100
  44792. else
  44793. pTDefRegMap(@Self)^.&set := $00000100;
  44794. end;
  44795. function TPMP_PMSTAT.getIB0F : TBits_1; inline;
  44796. begin
  44797. getIB0F := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  44798. end;
  44799. procedure TPMP_PMSTAT.setIB1F; inline;
  44800. begin
  44801. pTDefRegMap(@Self)^.&set := $00000200;
  44802. end;
  44803. procedure TPMP_PMSTAT.clearIB1F; inline;
  44804. begin
  44805. pTDefRegMap(@Self)^.clr := $00000200;
  44806. end;
  44807. procedure TPMP_PMSTAT.setIB1F(thebits : TBits_1); inline;
  44808. begin
  44809. if thebits = 0 then
  44810. pTDefRegMap(@Self)^.clr := $00000200
  44811. else
  44812. pTDefRegMap(@Self)^.&set := $00000200;
  44813. end;
  44814. function TPMP_PMSTAT.getIB1F : TBits_1; inline;
  44815. begin
  44816. getIB1F := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  44817. end;
  44818. procedure TPMP_PMSTAT.setIB2F; inline;
  44819. begin
  44820. pTDefRegMap(@Self)^.&set := $00000400;
  44821. end;
  44822. procedure TPMP_PMSTAT.clearIB2F; inline;
  44823. begin
  44824. pTDefRegMap(@Self)^.clr := $00000400;
  44825. end;
  44826. procedure TPMP_PMSTAT.setIB2F(thebits : TBits_1); inline;
  44827. begin
  44828. if thebits = 0 then
  44829. pTDefRegMap(@Self)^.clr := $00000400
  44830. else
  44831. pTDefRegMap(@Self)^.&set := $00000400;
  44832. end;
  44833. function TPMP_PMSTAT.getIB2F : TBits_1; inline;
  44834. begin
  44835. getIB2F := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  44836. end;
  44837. procedure TPMP_PMSTAT.setIB3F; inline;
  44838. begin
  44839. pTDefRegMap(@Self)^.&set := $00000800;
  44840. end;
  44841. procedure TPMP_PMSTAT.clearIB3F; inline;
  44842. begin
  44843. pTDefRegMap(@Self)^.clr := $00000800;
  44844. end;
  44845. procedure TPMP_PMSTAT.setIB3F(thebits : TBits_1); inline;
  44846. begin
  44847. if thebits = 0 then
  44848. pTDefRegMap(@Self)^.clr := $00000800
  44849. else
  44850. pTDefRegMap(@Self)^.&set := $00000800;
  44851. end;
  44852. function TPMP_PMSTAT.getIB3F : TBits_1; inline;
  44853. begin
  44854. getIB3F := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  44855. end;
  44856. procedure TPMP_PMSTAT.setIBOV; inline;
  44857. begin
  44858. pTDefRegMap(@Self)^.&set := $00004000;
  44859. end;
  44860. procedure TPMP_PMSTAT.clearIBOV; inline;
  44861. begin
  44862. pTDefRegMap(@Self)^.clr := $00004000;
  44863. end;
  44864. procedure TPMP_PMSTAT.setIBOV(thebits : TBits_1); inline;
  44865. begin
  44866. if thebits = 0 then
  44867. pTDefRegMap(@Self)^.clr := $00004000
  44868. else
  44869. pTDefRegMap(@Self)^.&set := $00004000;
  44870. end;
  44871. function TPMP_PMSTAT.getIBOV : TBits_1; inline;
  44872. begin
  44873. getIBOV := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  44874. end;
  44875. procedure TPMP_PMSTAT.setIBF; inline;
  44876. begin
  44877. pTDefRegMap(@Self)^.&set := $00008000;
  44878. end;
  44879. procedure TPMP_PMSTAT.clearIBF; inline;
  44880. begin
  44881. pTDefRegMap(@Self)^.clr := $00008000;
  44882. end;
  44883. procedure TPMP_PMSTAT.setIBF(thebits : TBits_1); inline;
  44884. begin
  44885. if thebits = 0 then
  44886. pTDefRegMap(@Self)^.clr := $00008000
  44887. else
  44888. pTDefRegMap(@Self)^.&set := $00008000;
  44889. end;
  44890. function TPMP_PMSTAT.getIBF : TBits_1; inline;
  44891. begin
  44892. getIBF := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  44893. end;
  44894. procedure TPMP_PMSTAT.setw(thebits : TBits_32); inline;
  44895. begin
  44896. pTDefRegMap(@Self)^.val := thebits;
  44897. end;
  44898. function TPMP_PMSTAT.getw : TBits_32; inline;
  44899. begin
  44900. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  44901. end;
  44902. procedure TADC10_AD1CON1.setDONE; inline;
  44903. begin
  44904. pTDefRegMap(@Self)^.&set := $00000001;
  44905. end;
  44906. procedure TADC10_AD1CON1.clearDONE; inline;
  44907. begin
  44908. pTDefRegMap(@Self)^.clr := $00000001;
  44909. end;
  44910. procedure TADC10_AD1CON1.setDONE(thebits : TBits_1); inline;
  44911. begin
  44912. if thebits = 0 then
  44913. pTDefRegMap(@Self)^.clr := $00000001
  44914. else
  44915. pTDefRegMap(@Self)^.&set := $00000001;
  44916. end;
  44917. function TADC10_AD1CON1.getDONE : TBits_1; inline;
  44918. begin
  44919. getDONE := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  44920. end;
  44921. procedure TADC10_AD1CON1.setSAMP; inline;
  44922. begin
  44923. pTDefRegMap(@Self)^.&set := $00000002;
  44924. end;
  44925. procedure TADC10_AD1CON1.clearSAMP; inline;
  44926. begin
  44927. pTDefRegMap(@Self)^.clr := $00000002;
  44928. end;
  44929. procedure TADC10_AD1CON1.setSAMP(thebits : TBits_1); inline;
  44930. begin
  44931. if thebits = 0 then
  44932. pTDefRegMap(@Self)^.clr := $00000002
  44933. else
  44934. pTDefRegMap(@Self)^.&set := $00000002;
  44935. end;
  44936. function TADC10_AD1CON1.getSAMP : TBits_1; inline;
  44937. begin
  44938. getSAMP := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  44939. end;
  44940. procedure TADC10_AD1CON1.setASAM; inline;
  44941. begin
  44942. pTDefRegMap(@Self)^.&set := $00000004;
  44943. end;
  44944. procedure TADC10_AD1CON1.clearASAM; inline;
  44945. begin
  44946. pTDefRegMap(@Self)^.clr := $00000004;
  44947. end;
  44948. procedure TADC10_AD1CON1.setASAM(thebits : TBits_1); inline;
  44949. begin
  44950. if thebits = 0 then
  44951. pTDefRegMap(@Self)^.clr := $00000004
  44952. else
  44953. pTDefRegMap(@Self)^.&set := $00000004;
  44954. end;
  44955. function TADC10_AD1CON1.getASAM : TBits_1; inline;
  44956. begin
  44957. getASAM := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  44958. end;
  44959. procedure TADC10_AD1CON1.setCLRASAM; inline;
  44960. begin
  44961. pTDefRegMap(@Self)^.&set := $00000010;
  44962. end;
  44963. procedure TADC10_AD1CON1.clearCLRASAM; inline;
  44964. begin
  44965. pTDefRegMap(@Self)^.clr := $00000010;
  44966. end;
  44967. procedure TADC10_AD1CON1.setCLRASAM(thebits : TBits_1); inline;
  44968. begin
  44969. if thebits = 0 then
  44970. pTDefRegMap(@Self)^.clr := $00000010
  44971. else
  44972. pTDefRegMap(@Self)^.&set := $00000010;
  44973. end;
  44974. function TADC10_AD1CON1.getCLRASAM : TBits_1; inline;
  44975. begin
  44976. getCLRASAM := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  44977. end;
  44978. procedure TADC10_AD1CON1.setSSRC(thebits : TBits_3); inline;
  44979. begin
  44980. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF1F or ( thebits shl 5 );
  44981. end;
  44982. function TADC10_AD1CON1.getSSRC : TBits_3; inline;
  44983. begin
  44984. getSSRC := (pTDefRegMap(@Self)^.val and $000000E0) shr 5;
  44985. end;
  44986. procedure TADC10_AD1CON1.setFORM(thebits : TBits_3); inline;
  44987. begin
  44988. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFF8FF or ( thebits shl 8 );
  44989. end;
  44990. function TADC10_AD1CON1.getFORM : TBits_3; inline;
  44991. begin
  44992. getFORM := (pTDefRegMap(@Self)^.val and $00000700) shr 8;
  44993. end;
  44994. procedure TADC10_AD1CON1.setSIDL; inline;
  44995. begin
  44996. pTDefRegMap(@Self)^.&set := $00002000;
  44997. end;
  44998. procedure TADC10_AD1CON1.clearSIDL; inline;
  44999. begin
  45000. pTDefRegMap(@Self)^.clr := $00002000;
  45001. end;
  45002. procedure TADC10_AD1CON1.setSIDL(thebits : TBits_1); inline;
  45003. begin
  45004. if thebits = 0 then
  45005. pTDefRegMap(@Self)^.clr := $00002000
  45006. else
  45007. pTDefRegMap(@Self)^.&set := $00002000;
  45008. end;
  45009. function TADC10_AD1CON1.getSIDL : TBits_1; inline;
  45010. begin
  45011. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  45012. end;
  45013. procedure TADC10_AD1CON1.setON; inline;
  45014. begin
  45015. pTDefRegMap(@Self)^.&set := $00008000;
  45016. end;
  45017. procedure TADC10_AD1CON1.clearON; inline;
  45018. begin
  45019. pTDefRegMap(@Self)^.clr := $00008000;
  45020. end;
  45021. procedure TADC10_AD1CON1.setON(thebits : TBits_1); inline;
  45022. begin
  45023. if thebits = 0 then
  45024. pTDefRegMap(@Self)^.clr := $00008000
  45025. else
  45026. pTDefRegMap(@Self)^.&set := $00008000;
  45027. end;
  45028. function TADC10_AD1CON1.getON : TBits_1; inline;
  45029. begin
  45030. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  45031. end;
  45032. procedure TADC10_AD1CON1.setSSRC0; inline;
  45033. begin
  45034. pTDefRegMap(@Self)^.&set := $00000020;
  45035. end;
  45036. procedure TADC10_AD1CON1.clearSSRC0; inline;
  45037. begin
  45038. pTDefRegMap(@Self)^.clr := $00000020;
  45039. end;
  45040. procedure TADC10_AD1CON1.setSSRC0(thebits : TBits_1); inline;
  45041. begin
  45042. if thebits = 0 then
  45043. pTDefRegMap(@Self)^.clr := $00000020
  45044. else
  45045. pTDefRegMap(@Self)^.&set := $00000020;
  45046. end;
  45047. function TADC10_AD1CON1.getSSRC0 : TBits_1; inline;
  45048. begin
  45049. getSSRC0 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  45050. end;
  45051. procedure TADC10_AD1CON1.setSSRC1; inline;
  45052. begin
  45053. pTDefRegMap(@Self)^.&set := $00000040;
  45054. end;
  45055. procedure TADC10_AD1CON1.clearSSRC1; inline;
  45056. begin
  45057. pTDefRegMap(@Self)^.clr := $00000040;
  45058. end;
  45059. procedure TADC10_AD1CON1.setSSRC1(thebits : TBits_1); inline;
  45060. begin
  45061. if thebits = 0 then
  45062. pTDefRegMap(@Self)^.clr := $00000040
  45063. else
  45064. pTDefRegMap(@Self)^.&set := $00000040;
  45065. end;
  45066. function TADC10_AD1CON1.getSSRC1 : TBits_1; inline;
  45067. begin
  45068. getSSRC1 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  45069. end;
  45070. procedure TADC10_AD1CON1.setSSRC2; inline;
  45071. begin
  45072. pTDefRegMap(@Self)^.&set := $00000080;
  45073. end;
  45074. procedure TADC10_AD1CON1.clearSSRC2; inline;
  45075. begin
  45076. pTDefRegMap(@Self)^.clr := $00000080;
  45077. end;
  45078. procedure TADC10_AD1CON1.setSSRC2(thebits : TBits_1); inline;
  45079. begin
  45080. if thebits = 0 then
  45081. pTDefRegMap(@Self)^.clr := $00000080
  45082. else
  45083. pTDefRegMap(@Self)^.&set := $00000080;
  45084. end;
  45085. function TADC10_AD1CON1.getSSRC2 : TBits_1; inline;
  45086. begin
  45087. getSSRC2 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  45088. end;
  45089. procedure TADC10_AD1CON1.setFORM0; inline;
  45090. begin
  45091. pTDefRegMap(@Self)^.&set := $00000100;
  45092. end;
  45093. procedure TADC10_AD1CON1.clearFORM0; inline;
  45094. begin
  45095. pTDefRegMap(@Self)^.clr := $00000100;
  45096. end;
  45097. procedure TADC10_AD1CON1.setFORM0(thebits : TBits_1); inline;
  45098. begin
  45099. if thebits = 0 then
  45100. pTDefRegMap(@Self)^.clr := $00000100
  45101. else
  45102. pTDefRegMap(@Self)^.&set := $00000100;
  45103. end;
  45104. function TADC10_AD1CON1.getFORM0 : TBits_1; inline;
  45105. begin
  45106. getFORM0 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  45107. end;
  45108. procedure TADC10_AD1CON1.setFORM1; inline;
  45109. begin
  45110. pTDefRegMap(@Self)^.&set := $00000200;
  45111. end;
  45112. procedure TADC10_AD1CON1.clearFORM1; inline;
  45113. begin
  45114. pTDefRegMap(@Self)^.clr := $00000200;
  45115. end;
  45116. procedure TADC10_AD1CON1.setFORM1(thebits : TBits_1); inline;
  45117. begin
  45118. if thebits = 0 then
  45119. pTDefRegMap(@Self)^.clr := $00000200
  45120. else
  45121. pTDefRegMap(@Self)^.&set := $00000200;
  45122. end;
  45123. function TADC10_AD1CON1.getFORM1 : TBits_1; inline;
  45124. begin
  45125. getFORM1 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  45126. end;
  45127. procedure TADC10_AD1CON1.setFORM2; inline;
  45128. begin
  45129. pTDefRegMap(@Self)^.&set := $00000400;
  45130. end;
  45131. procedure TADC10_AD1CON1.clearFORM2; inline;
  45132. begin
  45133. pTDefRegMap(@Self)^.clr := $00000400;
  45134. end;
  45135. procedure TADC10_AD1CON1.setFORM2(thebits : TBits_1); inline;
  45136. begin
  45137. if thebits = 0 then
  45138. pTDefRegMap(@Self)^.clr := $00000400
  45139. else
  45140. pTDefRegMap(@Self)^.&set := $00000400;
  45141. end;
  45142. function TADC10_AD1CON1.getFORM2 : TBits_1; inline;
  45143. begin
  45144. getFORM2 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  45145. end;
  45146. procedure TADC10_AD1CON1.setADSIDL; inline;
  45147. begin
  45148. pTDefRegMap(@Self)^.&set := $00002000;
  45149. end;
  45150. procedure TADC10_AD1CON1.clearADSIDL; inline;
  45151. begin
  45152. pTDefRegMap(@Self)^.clr := $00002000;
  45153. end;
  45154. procedure TADC10_AD1CON1.setADSIDL(thebits : TBits_1); inline;
  45155. begin
  45156. if thebits = 0 then
  45157. pTDefRegMap(@Self)^.clr := $00002000
  45158. else
  45159. pTDefRegMap(@Self)^.&set := $00002000;
  45160. end;
  45161. function TADC10_AD1CON1.getADSIDL : TBits_1; inline;
  45162. begin
  45163. getADSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  45164. end;
  45165. procedure TADC10_AD1CON1.setADON; inline;
  45166. begin
  45167. pTDefRegMap(@Self)^.&set := $00008000;
  45168. end;
  45169. procedure TADC10_AD1CON1.clearADON; inline;
  45170. begin
  45171. pTDefRegMap(@Self)^.clr := $00008000;
  45172. end;
  45173. procedure TADC10_AD1CON1.setADON(thebits : TBits_1); inline;
  45174. begin
  45175. if thebits = 0 then
  45176. pTDefRegMap(@Self)^.clr := $00008000
  45177. else
  45178. pTDefRegMap(@Self)^.&set := $00008000;
  45179. end;
  45180. function TADC10_AD1CON1.getADON : TBits_1; inline;
  45181. begin
  45182. getADON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  45183. end;
  45184. procedure TADC10_AD1CON1.setw(thebits : TBits_32); inline;
  45185. begin
  45186. pTDefRegMap(@Self)^.val := thebits;
  45187. end;
  45188. function TADC10_AD1CON1.getw : TBits_32; inline;
  45189. begin
  45190. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  45191. end;
  45192. procedure TADC10_AD1CON2.setALTS; inline;
  45193. begin
  45194. pTDefRegMap(@Self)^.&set := $00000001;
  45195. end;
  45196. procedure TADC10_AD1CON2.clearALTS; inline;
  45197. begin
  45198. pTDefRegMap(@Self)^.clr := $00000001;
  45199. end;
  45200. procedure TADC10_AD1CON2.setALTS(thebits : TBits_1); inline;
  45201. begin
  45202. if thebits = 0 then
  45203. pTDefRegMap(@Self)^.clr := $00000001
  45204. else
  45205. pTDefRegMap(@Self)^.&set := $00000001;
  45206. end;
  45207. function TADC10_AD1CON2.getALTS : TBits_1; inline;
  45208. begin
  45209. getALTS := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  45210. end;
  45211. procedure TADC10_AD1CON2.setBUFM; inline;
  45212. begin
  45213. pTDefRegMap(@Self)^.&set := $00000002;
  45214. end;
  45215. procedure TADC10_AD1CON2.clearBUFM; inline;
  45216. begin
  45217. pTDefRegMap(@Self)^.clr := $00000002;
  45218. end;
  45219. procedure TADC10_AD1CON2.setBUFM(thebits : TBits_1); inline;
  45220. begin
  45221. if thebits = 0 then
  45222. pTDefRegMap(@Self)^.clr := $00000002
  45223. else
  45224. pTDefRegMap(@Self)^.&set := $00000002;
  45225. end;
  45226. function TADC10_AD1CON2.getBUFM : TBits_1; inline;
  45227. begin
  45228. getBUFM := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  45229. end;
  45230. procedure TADC10_AD1CON2.setSMPI(thebits : TBits_4); inline;
  45231. begin
  45232. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFC3 or ( thebits shl 2 );
  45233. end;
  45234. function TADC10_AD1CON2.getSMPI : TBits_4; inline;
  45235. begin
  45236. getSMPI := (pTDefRegMap(@Self)^.val and $0000003C) shr 2;
  45237. end;
  45238. procedure TADC10_AD1CON2.setBUFS; inline;
  45239. begin
  45240. pTDefRegMap(@Self)^.&set := $00000080;
  45241. end;
  45242. procedure TADC10_AD1CON2.clearBUFS; inline;
  45243. begin
  45244. pTDefRegMap(@Self)^.clr := $00000080;
  45245. end;
  45246. procedure TADC10_AD1CON2.setBUFS(thebits : TBits_1); inline;
  45247. begin
  45248. if thebits = 0 then
  45249. pTDefRegMap(@Self)^.clr := $00000080
  45250. else
  45251. pTDefRegMap(@Self)^.&set := $00000080;
  45252. end;
  45253. function TADC10_AD1CON2.getBUFS : TBits_1; inline;
  45254. begin
  45255. getBUFS := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  45256. end;
  45257. procedure TADC10_AD1CON2.setCSCNA; inline;
  45258. begin
  45259. pTDefRegMap(@Self)^.&set := $00000400;
  45260. end;
  45261. procedure TADC10_AD1CON2.clearCSCNA; inline;
  45262. begin
  45263. pTDefRegMap(@Self)^.clr := $00000400;
  45264. end;
  45265. procedure TADC10_AD1CON2.setCSCNA(thebits : TBits_1); inline;
  45266. begin
  45267. if thebits = 0 then
  45268. pTDefRegMap(@Self)^.clr := $00000400
  45269. else
  45270. pTDefRegMap(@Self)^.&set := $00000400;
  45271. end;
  45272. function TADC10_AD1CON2.getCSCNA : TBits_1; inline;
  45273. begin
  45274. getCSCNA := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  45275. end;
  45276. procedure TADC10_AD1CON2.setOFFCAL; inline;
  45277. begin
  45278. pTDefRegMap(@Self)^.&set := $00001000;
  45279. end;
  45280. procedure TADC10_AD1CON2.clearOFFCAL; inline;
  45281. begin
  45282. pTDefRegMap(@Self)^.clr := $00001000;
  45283. end;
  45284. procedure TADC10_AD1CON2.setOFFCAL(thebits : TBits_1); inline;
  45285. begin
  45286. if thebits = 0 then
  45287. pTDefRegMap(@Self)^.clr := $00001000
  45288. else
  45289. pTDefRegMap(@Self)^.&set := $00001000;
  45290. end;
  45291. function TADC10_AD1CON2.getOFFCAL : TBits_1; inline;
  45292. begin
  45293. getOFFCAL := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  45294. end;
  45295. procedure TADC10_AD1CON2.setVCFG(thebits : TBits_3); inline;
  45296. begin
  45297. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF1FFF or ( thebits shl 13 );
  45298. end;
  45299. function TADC10_AD1CON2.getVCFG : TBits_3; inline;
  45300. begin
  45301. getVCFG := (pTDefRegMap(@Self)^.val and $0000E000) shr 13;
  45302. end;
  45303. procedure TADC10_AD1CON2.setSMPI0; inline;
  45304. begin
  45305. pTDefRegMap(@Self)^.&set := $00000004;
  45306. end;
  45307. procedure TADC10_AD1CON2.clearSMPI0; inline;
  45308. begin
  45309. pTDefRegMap(@Self)^.clr := $00000004;
  45310. end;
  45311. procedure TADC10_AD1CON2.setSMPI0(thebits : TBits_1); inline;
  45312. begin
  45313. if thebits = 0 then
  45314. pTDefRegMap(@Self)^.clr := $00000004
  45315. else
  45316. pTDefRegMap(@Self)^.&set := $00000004;
  45317. end;
  45318. function TADC10_AD1CON2.getSMPI0 : TBits_1; inline;
  45319. begin
  45320. getSMPI0 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  45321. end;
  45322. procedure TADC10_AD1CON2.setSMPI1; inline;
  45323. begin
  45324. pTDefRegMap(@Self)^.&set := $00000008;
  45325. end;
  45326. procedure TADC10_AD1CON2.clearSMPI1; inline;
  45327. begin
  45328. pTDefRegMap(@Self)^.clr := $00000008;
  45329. end;
  45330. procedure TADC10_AD1CON2.setSMPI1(thebits : TBits_1); inline;
  45331. begin
  45332. if thebits = 0 then
  45333. pTDefRegMap(@Self)^.clr := $00000008
  45334. else
  45335. pTDefRegMap(@Self)^.&set := $00000008;
  45336. end;
  45337. function TADC10_AD1CON2.getSMPI1 : TBits_1; inline;
  45338. begin
  45339. getSMPI1 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  45340. end;
  45341. procedure TADC10_AD1CON2.setSMPI2; inline;
  45342. begin
  45343. pTDefRegMap(@Self)^.&set := $00000010;
  45344. end;
  45345. procedure TADC10_AD1CON2.clearSMPI2; inline;
  45346. begin
  45347. pTDefRegMap(@Self)^.clr := $00000010;
  45348. end;
  45349. procedure TADC10_AD1CON2.setSMPI2(thebits : TBits_1); inline;
  45350. begin
  45351. if thebits = 0 then
  45352. pTDefRegMap(@Self)^.clr := $00000010
  45353. else
  45354. pTDefRegMap(@Self)^.&set := $00000010;
  45355. end;
  45356. function TADC10_AD1CON2.getSMPI2 : TBits_1; inline;
  45357. begin
  45358. getSMPI2 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  45359. end;
  45360. procedure TADC10_AD1CON2.setSMPI3; inline;
  45361. begin
  45362. pTDefRegMap(@Self)^.&set := $00000020;
  45363. end;
  45364. procedure TADC10_AD1CON2.clearSMPI3; inline;
  45365. begin
  45366. pTDefRegMap(@Self)^.clr := $00000020;
  45367. end;
  45368. procedure TADC10_AD1CON2.setSMPI3(thebits : TBits_1); inline;
  45369. begin
  45370. if thebits = 0 then
  45371. pTDefRegMap(@Self)^.clr := $00000020
  45372. else
  45373. pTDefRegMap(@Self)^.&set := $00000020;
  45374. end;
  45375. function TADC10_AD1CON2.getSMPI3 : TBits_1; inline;
  45376. begin
  45377. getSMPI3 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  45378. end;
  45379. procedure TADC10_AD1CON2.setVCFG0; inline;
  45380. begin
  45381. pTDefRegMap(@Self)^.&set := $00002000;
  45382. end;
  45383. procedure TADC10_AD1CON2.clearVCFG0; inline;
  45384. begin
  45385. pTDefRegMap(@Self)^.clr := $00002000;
  45386. end;
  45387. procedure TADC10_AD1CON2.setVCFG0(thebits : TBits_1); inline;
  45388. begin
  45389. if thebits = 0 then
  45390. pTDefRegMap(@Self)^.clr := $00002000
  45391. else
  45392. pTDefRegMap(@Self)^.&set := $00002000;
  45393. end;
  45394. function TADC10_AD1CON2.getVCFG0 : TBits_1; inline;
  45395. begin
  45396. getVCFG0 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  45397. end;
  45398. procedure TADC10_AD1CON2.setVCFG1; inline;
  45399. begin
  45400. pTDefRegMap(@Self)^.&set := $00004000;
  45401. end;
  45402. procedure TADC10_AD1CON2.clearVCFG1; inline;
  45403. begin
  45404. pTDefRegMap(@Self)^.clr := $00004000;
  45405. end;
  45406. procedure TADC10_AD1CON2.setVCFG1(thebits : TBits_1); inline;
  45407. begin
  45408. if thebits = 0 then
  45409. pTDefRegMap(@Self)^.clr := $00004000
  45410. else
  45411. pTDefRegMap(@Self)^.&set := $00004000;
  45412. end;
  45413. function TADC10_AD1CON2.getVCFG1 : TBits_1; inline;
  45414. begin
  45415. getVCFG1 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  45416. end;
  45417. procedure TADC10_AD1CON2.setVCFG2; inline;
  45418. begin
  45419. pTDefRegMap(@Self)^.&set := $00008000;
  45420. end;
  45421. procedure TADC10_AD1CON2.clearVCFG2; inline;
  45422. begin
  45423. pTDefRegMap(@Self)^.clr := $00008000;
  45424. end;
  45425. procedure TADC10_AD1CON2.setVCFG2(thebits : TBits_1); inline;
  45426. begin
  45427. if thebits = 0 then
  45428. pTDefRegMap(@Self)^.clr := $00008000
  45429. else
  45430. pTDefRegMap(@Self)^.&set := $00008000;
  45431. end;
  45432. function TADC10_AD1CON2.getVCFG2 : TBits_1; inline;
  45433. begin
  45434. getVCFG2 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  45435. end;
  45436. procedure TADC10_AD1CON2.setw(thebits : TBits_32); inline;
  45437. begin
  45438. pTDefRegMap(@Self)^.val := thebits;
  45439. end;
  45440. function TADC10_AD1CON2.getw : TBits_32; inline;
  45441. begin
  45442. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  45443. end;
  45444. procedure TADC10_AD1CON3.setADCS(thebits : TBits_8); inline;
  45445. begin
  45446. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF00 or ( thebits shl 0 );
  45447. end;
  45448. function TADC10_AD1CON3.getADCS : TBits_8; inline;
  45449. begin
  45450. getADCS := (pTDefRegMap(@Self)^.val and $000000FF) shr 0;
  45451. end;
  45452. procedure TADC10_AD1CON3.setSAMC(thebits : TBits_5); inline;
  45453. begin
  45454. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE0FF or ( thebits shl 8 );
  45455. end;
  45456. function TADC10_AD1CON3.getSAMC : TBits_5; inline;
  45457. begin
  45458. getSAMC := (pTDefRegMap(@Self)^.val and $00001F00) shr 8;
  45459. end;
  45460. procedure TADC10_AD1CON3.setADRC; inline;
  45461. begin
  45462. pTDefRegMap(@Self)^.&set := $00008000;
  45463. end;
  45464. procedure TADC10_AD1CON3.clearADRC; inline;
  45465. begin
  45466. pTDefRegMap(@Self)^.clr := $00008000;
  45467. end;
  45468. procedure TADC10_AD1CON3.setADRC(thebits : TBits_1); inline;
  45469. begin
  45470. if thebits = 0 then
  45471. pTDefRegMap(@Self)^.clr := $00008000
  45472. else
  45473. pTDefRegMap(@Self)^.&set := $00008000;
  45474. end;
  45475. function TADC10_AD1CON3.getADRC : TBits_1; inline;
  45476. begin
  45477. getADRC := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  45478. end;
  45479. procedure TADC10_AD1CON3.setADCS0; inline;
  45480. begin
  45481. pTDefRegMap(@Self)^.&set := $00000001;
  45482. end;
  45483. procedure TADC10_AD1CON3.clearADCS0; inline;
  45484. begin
  45485. pTDefRegMap(@Self)^.clr := $00000001;
  45486. end;
  45487. procedure TADC10_AD1CON3.setADCS0(thebits : TBits_1); inline;
  45488. begin
  45489. if thebits = 0 then
  45490. pTDefRegMap(@Self)^.clr := $00000001
  45491. else
  45492. pTDefRegMap(@Self)^.&set := $00000001;
  45493. end;
  45494. function TADC10_AD1CON3.getADCS0 : TBits_1; inline;
  45495. begin
  45496. getADCS0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  45497. end;
  45498. procedure TADC10_AD1CON3.setADCS1; inline;
  45499. begin
  45500. pTDefRegMap(@Self)^.&set := $00000002;
  45501. end;
  45502. procedure TADC10_AD1CON3.clearADCS1; inline;
  45503. begin
  45504. pTDefRegMap(@Self)^.clr := $00000002;
  45505. end;
  45506. procedure TADC10_AD1CON3.setADCS1(thebits : TBits_1); inline;
  45507. begin
  45508. if thebits = 0 then
  45509. pTDefRegMap(@Self)^.clr := $00000002
  45510. else
  45511. pTDefRegMap(@Self)^.&set := $00000002;
  45512. end;
  45513. function TADC10_AD1CON3.getADCS1 : TBits_1; inline;
  45514. begin
  45515. getADCS1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  45516. end;
  45517. procedure TADC10_AD1CON3.setADCS2; inline;
  45518. begin
  45519. pTDefRegMap(@Self)^.&set := $00000004;
  45520. end;
  45521. procedure TADC10_AD1CON3.clearADCS2; inline;
  45522. begin
  45523. pTDefRegMap(@Self)^.clr := $00000004;
  45524. end;
  45525. procedure TADC10_AD1CON3.setADCS2(thebits : TBits_1); inline;
  45526. begin
  45527. if thebits = 0 then
  45528. pTDefRegMap(@Self)^.clr := $00000004
  45529. else
  45530. pTDefRegMap(@Self)^.&set := $00000004;
  45531. end;
  45532. function TADC10_AD1CON3.getADCS2 : TBits_1; inline;
  45533. begin
  45534. getADCS2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  45535. end;
  45536. procedure TADC10_AD1CON3.setADCS3; inline;
  45537. begin
  45538. pTDefRegMap(@Self)^.&set := $00000008;
  45539. end;
  45540. procedure TADC10_AD1CON3.clearADCS3; inline;
  45541. begin
  45542. pTDefRegMap(@Self)^.clr := $00000008;
  45543. end;
  45544. procedure TADC10_AD1CON3.setADCS3(thebits : TBits_1); inline;
  45545. begin
  45546. if thebits = 0 then
  45547. pTDefRegMap(@Self)^.clr := $00000008
  45548. else
  45549. pTDefRegMap(@Self)^.&set := $00000008;
  45550. end;
  45551. function TADC10_AD1CON3.getADCS3 : TBits_1; inline;
  45552. begin
  45553. getADCS3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  45554. end;
  45555. procedure TADC10_AD1CON3.setADCS4; inline;
  45556. begin
  45557. pTDefRegMap(@Self)^.&set := $00000010;
  45558. end;
  45559. procedure TADC10_AD1CON3.clearADCS4; inline;
  45560. begin
  45561. pTDefRegMap(@Self)^.clr := $00000010;
  45562. end;
  45563. procedure TADC10_AD1CON3.setADCS4(thebits : TBits_1); inline;
  45564. begin
  45565. if thebits = 0 then
  45566. pTDefRegMap(@Self)^.clr := $00000010
  45567. else
  45568. pTDefRegMap(@Self)^.&set := $00000010;
  45569. end;
  45570. function TADC10_AD1CON3.getADCS4 : TBits_1; inline;
  45571. begin
  45572. getADCS4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  45573. end;
  45574. procedure TADC10_AD1CON3.setADCS5; inline;
  45575. begin
  45576. pTDefRegMap(@Self)^.&set := $00000020;
  45577. end;
  45578. procedure TADC10_AD1CON3.clearADCS5; inline;
  45579. begin
  45580. pTDefRegMap(@Self)^.clr := $00000020;
  45581. end;
  45582. procedure TADC10_AD1CON3.setADCS5(thebits : TBits_1); inline;
  45583. begin
  45584. if thebits = 0 then
  45585. pTDefRegMap(@Self)^.clr := $00000020
  45586. else
  45587. pTDefRegMap(@Self)^.&set := $00000020;
  45588. end;
  45589. function TADC10_AD1CON3.getADCS5 : TBits_1; inline;
  45590. begin
  45591. getADCS5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  45592. end;
  45593. procedure TADC10_AD1CON3.setADCS6; inline;
  45594. begin
  45595. pTDefRegMap(@Self)^.&set := $00000040;
  45596. end;
  45597. procedure TADC10_AD1CON3.clearADCS6; inline;
  45598. begin
  45599. pTDefRegMap(@Self)^.clr := $00000040;
  45600. end;
  45601. procedure TADC10_AD1CON3.setADCS6(thebits : TBits_1); inline;
  45602. begin
  45603. if thebits = 0 then
  45604. pTDefRegMap(@Self)^.clr := $00000040
  45605. else
  45606. pTDefRegMap(@Self)^.&set := $00000040;
  45607. end;
  45608. function TADC10_AD1CON3.getADCS6 : TBits_1; inline;
  45609. begin
  45610. getADCS6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  45611. end;
  45612. procedure TADC10_AD1CON3.setADCS7; inline;
  45613. begin
  45614. pTDefRegMap(@Self)^.&set := $00000080;
  45615. end;
  45616. procedure TADC10_AD1CON3.clearADCS7; inline;
  45617. begin
  45618. pTDefRegMap(@Self)^.clr := $00000080;
  45619. end;
  45620. procedure TADC10_AD1CON3.setADCS7(thebits : TBits_1); inline;
  45621. begin
  45622. if thebits = 0 then
  45623. pTDefRegMap(@Self)^.clr := $00000080
  45624. else
  45625. pTDefRegMap(@Self)^.&set := $00000080;
  45626. end;
  45627. function TADC10_AD1CON3.getADCS7 : TBits_1; inline;
  45628. begin
  45629. getADCS7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  45630. end;
  45631. procedure TADC10_AD1CON3.setSAMC0; inline;
  45632. begin
  45633. pTDefRegMap(@Self)^.&set := $00000100;
  45634. end;
  45635. procedure TADC10_AD1CON3.clearSAMC0; inline;
  45636. begin
  45637. pTDefRegMap(@Self)^.clr := $00000100;
  45638. end;
  45639. procedure TADC10_AD1CON3.setSAMC0(thebits : TBits_1); inline;
  45640. begin
  45641. if thebits = 0 then
  45642. pTDefRegMap(@Self)^.clr := $00000100
  45643. else
  45644. pTDefRegMap(@Self)^.&set := $00000100;
  45645. end;
  45646. function TADC10_AD1CON3.getSAMC0 : TBits_1; inline;
  45647. begin
  45648. getSAMC0 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  45649. end;
  45650. procedure TADC10_AD1CON3.setSAMC1; inline;
  45651. begin
  45652. pTDefRegMap(@Self)^.&set := $00000200;
  45653. end;
  45654. procedure TADC10_AD1CON3.clearSAMC1; inline;
  45655. begin
  45656. pTDefRegMap(@Self)^.clr := $00000200;
  45657. end;
  45658. procedure TADC10_AD1CON3.setSAMC1(thebits : TBits_1); inline;
  45659. begin
  45660. if thebits = 0 then
  45661. pTDefRegMap(@Self)^.clr := $00000200
  45662. else
  45663. pTDefRegMap(@Self)^.&set := $00000200;
  45664. end;
  45665. function TADC10_AD1CON3.getSAMC1 : TBits_1; inline;
  45666. begin
  45667. getSAMC1 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  45668. end;
  45669. procedure TADC10_AD1CON3.setSAMC2; inline;
  45670. begin
  45671. pTDefRegMap(@Self)^.&set := $00000400;
  45672. end;
  45673. procedure TADC10_AD1CON3.clearSAMC2; inline;
  45674. begin
  45675. pTDefRegMap(@Self)^.clr := $00000400;
  45676. end;
  45677. procedure TADC10_AD1CON3.setSAMC2(thebits : TBits_1); inline;
  45678. begin
  45679. if thebits = 0 then
  45680. pTDefRegMap(@Self)^.clr := $00000400
  45681. else
  45682. pTDefRegMap(@Self)^.&set := $00000400;
  45683. end;
  45684. function TADC10_AD1CON3.getSAMC2 : TBits_1; inline;
  45685. begin
  45686. getSAMC2 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  45687. end;
  45688. procedure TADC10_AD1CON3.setSAMC3; inline;
  45689. begin
  45690. pTDefRegMap(@Self)^.&set := $00000800;
  45691. end;
  45692. procedure TADC10_AD1CON3.clearSAMC3; inline;
  45693. begin
  45694. pTDefRegMap(@Self)^.clr := $00000800;
  45695. end;
  45696. procedure TADC10_AD1CON3.setSAMC3(thebits : TBits_1); inline;
  45697. begin
  45698. if thebits = 0 then
  45699. pTDefRegMap(@Self)^.clr := $00000800
  45700. else
  45701. pTDefRegMap(@Self)^.&set := $00000800;
  45702. end;
  45703. function TADC10_AD1CON3.getSAMC3 : TBits_1; inline;
  45704. begin
  45705. getSAMC3 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  45706. end;
  45707. procedure TADC10_AD1CON3.setSAMC4; inline;
  45708. begin
  45709. pTDefRegMap(@Self)^.&set := $00001000;
  45710. end;
  45711. procedure TADC10_AD1CON3.clearSAMC4; inline;
  45712. begin
  45713. pTDefRegMap(@Self)^.clr := $00001000;
  45714. end;
  45715. procedure TADC10_AD1CON3.setSAMC4(thebits : TBits_1); inline;
  45716. begin
  45717. if thebits = 0 then
  45718. pTDefRegMap(@Self)^.clr := $00001000
  45719. else
  45720. pTDefRegMap(@Self)^.&set := $00001000;
  45721. end;
  45722. function TADC10_AD1CON3.getSAMC4 : TBits_1; inline;
  45723. begin
  45724. getSAMC4 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  45725. end;
  45726. procedure TADC10_AD1CON3.setw(thebits : TBits_32); inline;
  45727. begin
  45728. pTDefRegMap(@Self)^.val := thebits;
  45729. end;
  45730. function TADC10_AD1CON3.getw : TBits_32; inline;
  45731. begin
  45732. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  45733. end;
  45734. procedure TADC10_AD1CHS.setCH0SA(thebits : TBits_4); inline;
  45735. begin
  45736. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFF0FFFF or ( thebits shl 16 );
  45737. end;
  45738. function TADC10_AD1CHS.getCH0SA : TBits_4; inline;
  45739. begin
  45740. getCH0SA := (pTDefRegMap(@Self)^.val and $000F0000) shr 16;
  45741. end;
  45742. procedure TADC10_AD1CHS.setCH0NA; inline;
  45743. begin
  45744. pTDefRegMap(@Self)^.&set := $00800000;
  45745. end;
  45746. procedure TADC10_AD1CHS.clearCH0NA; inline;
  45747. begin
  45748. pTDefRegMap(@Self)^.clr := $00800000;
  45749. end;
  45750. procedure TADC10_AD1CHS.setCH0NA(thebits : TBits_1); inline;
  45751. begin
  45752. if thebits = 0 then
  45753. pTDefRegMap(@Self)^.clr := $00800000
  45754. else
  45755. pTDefRegMap(@Self)^.&set := $00800000;
  45756. end;
  45757. function TADC10_AD1CHS.getCH0NA : TBits_1; inline;
  45758. begin
  45759. getCH0NA := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
  45760. end;
  45761. procedure TADC10_AD1CHS.setCH0SB(thebits : TBits_4); inline;
  45762. begin
  45763. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $F0FFFFFF or ( thebits shl 24 );
  45764. end;
  45765. function TADC10_AD1CHS.getCH0SB : TBits_4; inline;
  45766. begin
  45767. getCH0SB := (pTDefRegMap(@Self)^.val and $0F000000) shr 24;
  45768. end;
  45769. procedure TADC10_AD1CHS.setCH0NB; inline;
  45770. begin
  45771. pTDefRegMap(@Self)^.&set := $80000000;
  45772. end;
  45773. procedure TADC10_AD1CHS.clearCH0NB; inline;
  45774. begin
  45775. pTDefRegMap(@Self)^.clr := $80000000;
  45776. end;
  45777. procedure TADC10_AD1CHS.setCH0NB(thebits : TBits_1); inline;
  45778. begin
  45779. if thebits = 0 then
  45780. pTDefRegMap(@Self)^.clr := $80000000
  45781. else
  45782. pTDefRegMap(@Self)^.&set := $80000000;
  45783. end;
  45784. function TADC10_AD1CHS.getCH0NB : TBits_1; inline;
  45785. begin
  45786. getCH0NB := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  45787. end;
  45788. procedure TADC10_AD1CHS.setCH0SA0; inline;
  45789. begin
  45790. pTDefRegMap(@Self)^.&set := $00010000;
  45791. end;
  45792. procedure TADC10_AD1CHS.clearCH0SA0; inline;
  45793. begin
  45794. pTDefRegMap(@Self)^.clr := $00010000;
  45795. end;
  45796. procedure TADC10_AD1CHS.setCH0SA0(thebits : TBits_1); inline;
  45797. begin
  45798. if thebits = 0 then
  45799. pTDefRegMap(@Self)^.clr := $00010000
  45800. else
  45801. pTDefRegMap(@Self)^.&set := $00010000;
  45802. end;
  45803. function TADC10_AD1CHS.getCH0SA0 : TBits_1; inline;
  45804. begin
  45805. getCH0SA0 := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  45806. end;
  45807. procedure TADC10_AD1CHS.setCH0SA1; inline;
  45808. begin
  45809. pTDefRegMap(@Self)^.&set := $00020000;
  45810. end;
  45811. procedure TADC10_AD1CHS.clearCH0SA1; inline;
  45812. begin
  45813. pTDefRegMap(@Self)^.clr := $00020000;
  45814. end;
  45815. procedure TADC10_AD1CHS.setCH0SA1(thebits : TBits_1); inline;
  45816. begin
  45817. if thebits = 0 then
  45818. pTDefRegMap(@Self)^.clr := $00020000
  45819. else
  45820. pTDefRegMap(@Self)^.&set := $00020000;
  45821. end;
  45822. function TADC10_AD1CHS.getCH0SA1 : TBits_1; inline;
  45823. begin
  45824. getCH0SA1 := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  45825. end;
  45826. procedure TADC10_AD1CHS.setCH0SA2; inline;
  45827. begin
  45828. pTDefRegMap(@Self)^.&set := $00040000;
  45829. end;
  45830. procedure TADC10_AD1CHS.clearCH0SA2; inline;
  45831. begin
  45832. pTDefRegMap(@Self)^.clr := $00040000;
  45833. end;
  45834. procedure TADC10_AD1CHS.setCH0SA2(thebits : TBits_1); inline;
  45835. begin
  45836. if thebits = 0 then
  45837. pTDefRegMap(@Self)^.clr := $00040000
  45838. else
  45839. pTDefRegMap(@Self)^.&set := $00040000;
  45840. end;
  45841. function TADC10_AD1CHS.getCH0SA2 : TBits_1; inline;
  45842. begin
  45843. getCH0SA2 := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  45844. end;
  45845. procedure TADC10_AD1CHS.setCH0SA3; inline;
  45846. begin
  45847. pTDefRegMap(@Self)^.&set := $00080000;
  45848. end;
  45849. procedure TADC10_AD1CHS.clearCH0SA3; inline;
  45850. begin
  45851. pTDefRegMap(@Self)^.clr := $00080000;
  45852. end;
  45853. procedure TADC10_AD1CHS.setCH0SA3(thebits : TBits_1); inline;
  45854. begin
  45855. if thebits = 0 then
  45856. pTDefRegMap(@Self)^.clr := $00080000
  45857. else
  45858. pTDefRegMap(@Self)^.&set := $00080000;
  45859. end;
  45860. function TADC10_AD1CHS.getCH0SA3 : TBits_1; inline;
  45861. begin
  45862. getCH0SA3 := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  45863. end;
  45864. procedure TADC10_AD1CHS.setCH0SB0; inline;
  45865. begin
  45866. pTDefRegMap(@Self)^.&set := $01000000;
  45867. end;
  45868. procedure TADC10_AD1CHS.clearCH0SB0; inline;
  45869. begin
  45870. pTDefRegMap(@Self)^.clr := $01000000;
  45871. end;
  45872. procedure TADC10_AD1CHS.setCH0SB0(thebits : TBits_1); inline;
  45873. begin
  45874. if thebits = 0 then
  45875. pTDefRegMap(@Self)^.clr := $01000000
  45876. else
  45877. pTDefRegMap(@Self)^.&set := $01000000;
  45878. end;
  45879. function TADC10_AD1CHS.getCH0SB0 : TBits_1; inline;
  45880. begin
  45881. getCH0SB0 := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  45882. end;
  45883. procedure TADC10_AD1CHS.setCH0SB1; inline;
  45884. begin
  45885. pTDefRegMap(@Self)^.&set := $02000000;
  45886. end;
  45887. procedure TADC10_AD1CHS.clearCH0SB1; inline;
  45888. begin
  45889. pTDefRegMap(@Self)^.clr := $02000000;
  45890. end;
  45891. procedure TADC10_AD1CHS.setCH0SB1(thebits : TBits_1); inline;
  45892. begin
  45893. if thebits = 0 then
  45894. pTDefRegMap(@Self)^.clr := $02000000
  45895. else
  45896. pTDefRegMap(@Self)^.&set := $02000000;
  45897. end;
  45898. function TADC10_AD1CHS.getCH0SB1 : TBits_1; inline;
  45899. begin
  45900. getCH0SB1 := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  45901. end;
  45902. procedure TADC10_AD1CHS.setCH0SB2; inline;
  45903. begin
  45904. pTDefRegMap(@Self)^.&set := $04000000;
  45905. end;
  45906. procedure TADC10_AD1CHS.clearCH0SB2; inline;
  45907. begin
  45908. pTDefRegMap(@Self)^.clr := $04000000;
  45909. end;
  45910. procedure TADC10_AD1CHS.setCH0SB2(thebits : TBits_1); inline;
  45911. begin
  45912. if thebits = 0 then
  45913. pTDefRegMap(@Self)^.clr := $04000000
  45914. else
  45915. pTDefRegMap(@Self)^.&set := $04000000;
  45916. end;
  45917. function TADC10_AD1CHS.getCH0SB2 : TBits_1; inline;
  45918. begin
  45919. getCH0SB2 := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  45920. end;
  45921. procedure TADC10_AD1CHS.setCH0SB3; inline;
  45922. begin
  45923. pTDefRegMap(@Self)^.&set := $08000000;
  45924. end;
  45925. procedure TADC10_AD1CHS.clearCH0SB3; inline;
  45926. begin
  45927. pTDefRegMap(@Self)^.clr := $08000000;
  45928. end;
  45929. procedure TADC10_AD1CHS.setCH0SB3(thebits : TBits_1); inline;
  45930. begin
  45931. if thebits = 0 then
  45932. pTDefRegMap(@Self)^.clr := $08000000
  45933. else
  45934. pTDefRegMap(@Self)^.&set := $08000000;
  45935. end;
  45936. function TADC10_AD1CHS.getCH0SB3 : TBits_1; inline;
  45937. begin
  45938. getCH0SB3 := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  45939. end;
  45940. procedure TADC10_AD1CHS.setw(thebits : TBits_32); inline;
  45941. begin
  45942. pTDefRegMap(@Self)^.val := thebits;
  45943. end;
  45944. function TADC10_AD1CHS.getw : TBits_32; inline;
  45945. begin
  45946. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  45947. end;
  45948. procedure TADC10_AD1CSSL.setCSSL(thebits : TBits_16); inline;
  45949. begin
  45950. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF0000 or ( thebits shl 0 );
  45951. end;
  45952. function TADC10_AD1CSSL.getCSSL : TBits_16; inline;
  45953. begin
  45954. getCSSL := (pTDefRegMap(@Self)^.val and $0000FFFF) shr 0;
  45955. end;
  45956. procedure TADC10_AD1CSSL.setCSSL0; inline;
  45957. begin
  45958. pTDefRegMap(@Self)^.&set := $00000001;
  45959. end;
  45960. procedure TADC10_AD1CSSL.clearCSSL0; inline;
  45961. begin
  45962. pTDefRegMap(@Self)^.clr := $00000001;
  45963. end;
  45964. procedure TADC10_AD1CSSL.setCSSL0(thebits : TBits_1); inline;
  45965. begin
  45966. if thebits = 0 then
  45967. pTDefRegMap(@Self)^.clr := $00000001
  45968. else
  45969. pTDefRegMap(@Self)^.&set := $00000001;
  45970. end;
  45971. function TADC10_AD1CSSL.getCSSL0 : TBits_1; inline;
  45972. begin
  45973. getCSSL0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  45974. end;
  45975. procedure TADC10_AD1CSSL.setCSSL1; inline;
  45976. begin
  45977. pTDefRegMap(@Self)^.&set := $00000002;
  45978. end;
  45979. procedure TADC10_AD1CSSL.clearCSSL1; inline;
  45980. begin
  45981. pTDefRegMap(@Self)^.clr := $00000002;
  45982. end;
  45983. procedure TADC10_AD1CSSL.setCSSL1(thebits : TBits_1); inline;
  45984. begin
  45985. if thebits = 0 then
  45986. pTDefRegMap(@Self)^.clr := $00000002
  45987. else
  45988. pTDefRegMap(@Self)^.&set := $00000002;
  45989. end;
  45990. function TADC10_AD1CSSL.getCSSL1 : TBits_1; inline;
  45991. begin
  45992. getCSSL1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  45993. end;
  45994. procedure TADC10_AD1CSSL.setCSSL2; inline;
  45995. begin
  45996. pTDefRegMap(@Self)^.&set := $00000004;
  45997. end;
  45998. procedure TADC10_AD1CSSL.clearCSSL2; inline;
  45999. begin
  46000. pTDefRegMap(@Self)^.clr := $00000004;
  46001. end;
  46002. procedure TADC10_AD1CSSL.setCSSL2(thebits : TBits_1); inline;
  46003. begin
  46004. if thebits = 0 then
  46005. pTDefRegMap(@Self)^.clr := $00000004
  46006. else
  46007. pTDefRegMap(@Self)^.&set := $00000004;
  46008. end;
  46009. function TADC10_AD1CSSL.getCSSL2 : TBits_1; inline;
  46010. begin
  46011. getCSSL2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  46012. end;
  46013. procedure TADC10_AD1CSSL.setCSSL3; inline;
  46014. begin
  46015. pTDefRegMap(@Self)^.&set := $00000008;
  46016. end;
  46017. procedure TADC10_AD1CSSL.clearCSSL3; inline;
  46018. begin
  46019. pTDefRegMap(@Self)^.clr := $00000008;
  46020. end;
  46021. procedure TADC10_AD1CSSL.setCSSL3(thebits : TBits_1); inline;
  46022. begin
  46023. if thebits = 0 then
  46024. pTDefRegMap(@Self)^.clr := $00000008
  46025. else
  46026. pTDefRegMap(@Self)^.&set := $00000008;
  46027. end;
  46028. function TADC10_AD1CSSL.getCSSL3 : TBits_1; inline;
  46029. begin
  46030. getCSSL3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  46031. end;
  46032. procedure TADC10_AD1CSSL.setCSSL4; inline;
  46033. begin
  46034. pTDefRegMap(@Self)^.&set := $00000010;
  46035. end;
  46036. procedure TADC10_AD1CSSL.clearCSSL4; inline;
  46037. begin
  46038. pTDefRegMap(@Self)^.clr := $00000010;
  46039. end;
  46040. procedure TADC10_AD1CSSL.setCSSL4(thebits : TBits_1); inline;
  46041. begin
  46042. if thebits = 0 then
  46043. pTDefRegMap(@Self)^.clr := $00000010
  46044. else
  46045. pTDefRegMap(@Self)^.&set := $00000010;
  46046. end;
  46047. function TADC10_AD1CSSL.getCSSL4 : TBits_1; inline;
  46048. begin
  46049. getCSSL4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  46050. end;
  46051. procedure TADC10_AD1CSSL.setCSSL5; inline;
  46052. begin
  46053. pTDefRegMap(@Self)^.&set := $00000020;
  46054. end;
  46055. procedure TADC10_AD1CSSL.clearCSSL5; inline;
  46056. begin
  46057. pTDefRegMap(@Self)^.clr := $00000020;
  46058. end;
  46059. procedure TADC10_AD1CSSL.setCSSL5(thebits : TBits_1); inline;
  46060. begin
  46061. if thebits = 0 then
  46062. pTDefRegMap(@Self)^.clr := $00000020
  46063. else
  46064. pTDefRegMap(@Self)^.&set := $00000020;
  46065. end;
  46066. function TADC10_AD1CSSL.getCSSL5 : TBits_1; inline;
  46067. begin
  46068. getCSSL5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  46069. end;
  46070. procedure TADC10_AD1CSSL.setCSSL6; inline;
  46071. begin
  46072. pTDefRegMap(@Self)^.&set := $00000040;
  46073. end;
  46074. procedure TADC10_AD1CSSL.clearCSSL6; inline;
  46075. begin
  46076. pTDefRegMap(@Self)^.clr := $00000040;
  46077. end;
  46078. procedure TADC10_AD1CSSL.setCSSL6(thebits : TBits_1); inline;
  46079. begin
  46080. if thebits = 0 then
  46081. pTDefRegMap(@Self)^.clr := $00000040
  46082. else
  46083. pTDefRegMap(@Self)^.&set := $00000040;
  46084. end;
  46085. function TADC10_AD1CSSL.getCSSL6 : TBits_1; inline;
  46086. begin
  46087. getCSSL6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  46088. end;
  46089. procedure TADC10_AD1CSSL.setCSSL7; inline;
  46090. begin
  46091. pTDefRegMap(@Self)^.&set := $00000080;
  46092. end;
  46093. procedure TADC10_AD1CSSL.clearCSSL7; inline;
  46094. begin
  46095. pTDefRegMap(@Self)^.clr := $00000080;
  46096. end;
  46097. procedure TADC10_AD1CSSL.setCSSL7(thebits : TBits_1); inline;
  46098. begin
  46099. if thebits = 0 then
  46100. pTDefRegMap(@Self)^.clr := $00000080
  46101. else
  46102. pTDefRegMap(@Self)^.&set := $00000080;
  46103. end;
  46104. function TADC10_AD1CSSL.getCSSL7 : TBits_1; inline;
  46105. begin
  46106. getCSSL7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  46107. end;
  46108. procedure TADC10_AD1CSSL.setCSSL8; inline;
  46109. begin
  46110. pTDefRegMap(@Self)^.&set := $00000100;
  46111. end;
  46112. procedure TADC10_AD1CSSL.clearCSSL8; inline;
  46113. begin
  46114. pTDefRegMap(@Self)^.clr := $00000100;
  46115. end;
  46116. procedure TADC10_AD1CSSL.setCSSL8(thebits : TBits_1); inline;
  46117. begin
  46118. if thebits = 0 then
  46119. pTDefRegMap(@Self)^.clr := $00000100
  46120. else
  46121. pTDefRegMap(@Self)^.&set := $00000100;
  46122. end;
  46123. function TADC10_AD1CSSL.getCSSL8 : TBits_1; inline;
  46124. begin
  46125. getCSSL8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  46126. end;
  46127. procedure TADC10_AD1CSSL.setCSSL9; inline;
  46128. begin
  46129. pTDefRegMap(@Self)^.&set := $00000200;
  46130. end;
  46131. procedure TADC10_AD1CSSL.clearCSSL9; inline;
  46132. begin
  46133. pTDefRegMap(@Self)^.clr := $00000200;
  46134. end;
  46135. procedure TADC10_AD1CSSL.setCSSL9(thebits : TBits_1); inline;
  46136. begin
  46137. if thebits = 0 then
  46138. pTDefRegMap(@Self)^.clr := $00000200
  46139. else
  46140. pTDefRegMap(@Self)^.&set := $00000200;
  46141. end;
  46142. function TADC10_AD1CSSL.getCSSL9 : TBits_1; inline;
  46143. begin
  46144. getCSSL9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  46145. end;
  46146. procedure TADC10_AD1CSSL.setCSSL10; inline;
  46147. begin
  46148. pTDefRegMap(@Self)^.&set := $00000400;
  46149. end;
  46150. procedure TADC10_AD1CSSL.clearCSSL10; inline;
  46151. begin
  46152. pTDefRegMap(@Self)^.clr := $00000400;
  46153. end;
  46154. procedure TADC10_AD1CSSL.setCSSL10(thebits : TBits_1); inline;
  46155. begin
  46156. if thebits = 0 then
  46157. pTDefRegMap(@Self)^.clr := $00000400
  46158. else
  46159. pTDefRegMap(@Self)^.&set := $00000400;
  46160. end;
  46161. function TADC10_AD1CSSL.getCSSL10 : TBits_1; inline;
  46162. begin
  46163. getCSSL10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  46164. end;
  46165. procedure TADC10_AD1CSSL.setCSSL11; inline;
  46166. begin
  46167. pTDefRegMap(@Self)^.&set := $00000800;
  46168. end;
  46169. procedure TADC10_AD1CSSL.clearCSSL11; inline;
  46170. begin
  46171. pTDefRegMap(@Self)^.clr := $00000800;
  46172. end;
  46173. procedure TADC10_AD1CSSL.setCSSL11(thebits : TBits_1); inline;
  46174. begin
  46175. if thebits = 0 then
  46176. pTDefRegMap(@Self)^.clr := $00000800
  46177. else
  46178. pTDefRegMap(@Self)^.&set := $00000800;
  46179. end;
  46180. function TADC10_AD1CSSL.getCSSL11 : TBits_1; inline;
  46181. begin
  46182. getCSSL11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  46183. end;
  46184. procedure TADC10_AD1CSSL.setCSSL12; inline;
  46185. begin
  46186. pTDefRegMap(@Self)^.&set := $00001000;
  46187. end;
  46188. procedure TADC10_AD1CSSL.clearCSSL12; inline;
  46189. begin
  46190. pTDefRegMap(@Self)^.clr := $00001000;
  46191. end;
  46192. procedure TADC10_AD1CSSL.setCSSL12(thebits : TBits_1); inline;
  46193. begin
  46194. if thebits = 0 then
  46195. pTDefRegMap(@Self)^.clr := $00001000
  46196. else
  46197. pTDefRegMap(@Self)^.&set := $00001000;
  46198. end;
  46199. function TADC10_AD1CSSL.getCSSL12 : TBits_1; inline;
  46200. begin
  46201. getCSSL12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  46202. end;
  46203. procedure TADC10_AD1CSSL.setCSSL13; inline;
  46204. begin
  46205. pTDefRegMap(@Self)^.&set := $00002000;
  46206. end;
  46207. procedure TADC10_AD1CSSL.clearCSSL13; inline;
  46208. begin
  46209. pTDefRegMap(@Self)^.clr := $00002000;
  46210. end;
  46211. procedure TADC10_AD1CSSL.setCSSL13(thebits : TBits_1); inline;
  46212. begin
  46213. if thebits = 0 then
  46214. pTDefRegMap(@Self)^.clr := $00002000
  46215. else
  46216. pTDefRegMap(@Self)^.&set := $00002000;
  46217. end;
  46218. function TADC10_AD1CSSL.getCSSL13 : TBits_1; inline;
  46219. begin
  46220. getCSSL13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  46221. end;
  46222. procedure TADC10_AD1CSSL.setCSSL14; inline;
  46223. begin
  46224. pTDefRegMap(@Self)^.&set := $00004000;
  46225. end;
  46226. procedure TADC10_AD1CSSL.clearCSSL14; inline;
  46227. begin
  46228. pTDefRegMap(@Self)^.clr := $00004000;
  46229. end;
  46230. procedure TADC10_AD1CSSL.setCSSL14(thebits : TBits_1); inline;
  46231. begin
  46232. if thebits = 0 then
  46233. pTDefRegMap(@Self)^.clr := $00004000
  46234. else
  46235. pTDefRegMap(@Self)^.&set := $00004000;
  46236. end;
  46237. function TADC10_AD1CSSL.getCSSL14 : TBits_1; inline;
  46238. begin
  46239. getCSSL14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  46240. end;
  46241. procedure TADC10_AD1CSSL.setCSSL15; inline;
  46242. begin
  46243. pTDefRegMap(@Self)^.&set := $00008000;
  46244. end;
  46245. procedure TADC10_AD1CSSL.clearCSSL15; inline;
  46246. begin
  46247. pTDefRegMap(@Self)^.clr := $00008000;
  46248. end;
  46249. procedure TADC10_AD1CSSL.setCSSL15(thebits : TBits_1); inline;
  46250. begin
  46251. if thebits = 0 then
  46252. pTDefRegMap(@Self)^.clr := $00008000
  46253. else
  46254. pTDefRegMap(@Self)^.&set := $00008000;
  46255. end;
  46256. function TADC10_AD1CSSL.getCSSL15 : TBits_1; inline;
  46257. begin
  46258. getCSSL15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  46259. end;
  46260. procedure TADC10_AD1CSSL.setw(thebits : TBits_32); inline;
  46261. begin
  46262. pTDefRegMap(@Self)^.val := thebits;
  46263. end;
  46264. function TADC10_AD1CSSL.getw : TBits_32; inline;
  46265. begin
  46266. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  46267. end;
  46268. procedure TADC10_AD1PCFG.setPCFG(thebits : TBits_16); inline;
  46269. begin
  46270. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF0000 or ( thebits shl 0 );
  46271. end;
  46272. function TADC10_AD1PCFG.getPCFG : TBits_16; inline;
  46273. begin
  46274. getPCFG := (pTDefRegMap(@Self)^.val and $0000FFFF) shr 0;
  46275. end;
  46276. procedure TADC10_AD1PCFG.setPCFG0; inline;
  46277. begin
  46278. pTDefRegMap(@Self)^.&set := $00000001;
  46279. end;
  46280. procedure TADC10_AD1PCFG.clearPCFG0; inline;
  46281. begin
  46282. pTDefRegMap(@Self)^.clr := $00000001;
  46283. end;
  46284. procedure TADC10_AD1PCFG.setPCFG0(thebits : TBits_1); inline;
  46285. begin
  46286. if thebits = 0 then
  46287. pTDefRegMap(@Self)^.clr := $00000001
  46288. else
  46289. pTDefRegMap(@Self)^.&set := $00000001;
  46290. end;
  46291. function TADC10_AD1PCFG.getPCFG0 : TBits_1; inline;
  46292. begin
  46293. getPCFG0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  46294. end;
  46295. procedure TADC10_AD1PCFG.setPCFG1; inline;
  46296. begin
  46297. pTDefRegMap(@Self)^.&set := $00000002;
  46298. end;
  46299. procedure TADC10_AD1PCFG.clearPCFG1; inline;
  46300. begin
  46301. pTDefRegMap(@Self)^.clr := $00000002;
  46302. end;
  46303. procedure TADC10_AD1PCFG.setPCFG1(thebits : TBits_1); inline;
  46304. begin
  46305. if thebits = 0 then
  46306. pTDefRegMap(@Self)^.clr := $00000002
  46307. else
  46308. pTDefRegMap(@Self)^.&set := $00000002;
  46309. end;
  46310. function TADC10_AD1PCFG.getPCFG1 : TBits_1; inline;
  46311. begin
  46312. getPCFG1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  46313. end;
  46314. procedure TADC10_AD1PCFG.setPCFG2; inline;
  46315. begin
  46316. pTDefRegMap(@Self)^.&set := $00000004;
  46317. end;
  46318. procedure TADC10_AD1PCFG.clearPCFG2; inline;
  46319. begin
  46320. pTDefRegMap(@Self)^.clr := $00000004;
  46321. end;
  46322. procedure TADC10_AD1PCFG.setPCFG2(thebits : TBits_1); inline;
  46323. begin
  46324. if thebits = 0 then
  46325. pTDefRegMap(@Self)^.clr := $00000004
  46326. else
  46327. pTDefRegMap(@Self)^.&set := $00000004;
  46328. end;
  46329. function TADC10_AD1PCFG.getPCFG2 : TBits_1; inline;
  46330. begin
  46331. getPCFG2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  46332. end;
  46333. procedure TADC10_AD1PCFG.setPCFG3; inline;
  46334. begin
  46335. pTDefRegMap(@Self)^.&set := $00000008;
  46336. end;
  46337. procedure TADC10_AD1PCFG.clearPCFG3; inline;
  46338. begin
  46339. pTDefRegMap(@Self)^.clr := $00000008;
  46340. end;
  46341. procedure TADC10_AD1PCFG.setPCFG3(thebits : TBits_1); inline;
  46342. begin
  46343. if thebits = 0 then
  46344. pTDefRegMap(@Self)^.clr := $00000008
  46345. else
  46346. pTDefRegMap(@Self)^.&set := $00000008;
  46347. end;
  46348. function TADC10_AD1PCFG.getPCFG3 : TBits_1; inline;
  46349. begin
  46350. getPCFG3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  46351. end;
  46352. procedure TADC10_AD1PCFG.setPCFG4; inline;
  46353. begin
  46354. pTDefRegMap(@Self)^.&set := $00000010;
  46355. end;
  46356. procedure TADC10_AD1PCFG.clearPCFG4; inline;
  46357. begin
  46358. pTDefRegMap(@Self)^.clr := $00000010;
  46359. end;
  46360. procedure TADC10_AD1PCFG.setPCFG4(thebits : TBits_1); inline;
  46361. begin
  46362. if thebits = 0 then
  46363. pTDefRegMap(@Self)^.clr := $00000010
  46364. else
  46365. pTDefRegMap(@Self)^.&set := $00000010;
  46366. end;
  46367. function TADC10_AD1PCFG.getPCFG4 : TBits_1; inline;
  46368. begin
  46369. getPCFG4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  46370. end;
  46371. procedure TADC10_AD1PCFG.setPCFG5; inline;
  46372. begin
  46373. pTDefRegMap(@Self)^.&set := $00000020;
  46374. end;
  46375. procedure TADC10_AD1PCFG.clearPCFG5; inline;
  46376. begin
  46377. pTDefRegMap(@Self)^.clr := $00000020;
  46378. end;
  46379. procedure TADC10_AD1PCFG.setPCFG5(thebits : TBits_1); inline;
  46380. begin
  46381. if thebits = 0 then
  46382. pTDefRegMap(@Self)^.clr := $00000020
  46383. else
  46384. pTDefRegMap(@Self)^.&set := $00000020;
  46385. end;
  46386. function TADC10_AD1PCFG.getPCFG5 : TBits_1; inline;
  46387. begin
  46388. getPCFG5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  46389. end;
  46390. procedure TADC10_AD1PCFG.setPCFG6; inline;
  46391. begin
  46392. pTDefRegMap(@Self)^.&set := $00000040;
  46393. end;
  46394. procedure TADC10_AD1PCFG.clearPCFG6; inline;
  46395. begin
  46396. pTDefRegMap(@Self)^.clr := $00000040;
  46397. end;
  46398. procedure TADC10_AD1PCFG.setPCFG6(thebits : TBits_1); inline;
  46399. begin
  46400. if thebits = 0 then
  46401. pTDefRegMap(@Self)^.clr := $00000040
  46402. else
  46403. pTDefRegMap(@Self)^.&set := $00000040;
  46404. end;
  46405. function TADC10_AD1PCFG.getPCFG6 : TBits_1; inline;
  46406. begin
  46407. getPCFG6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  46408. end;
  46409. procedure TADC10_AD1PCFG.setPCFG7; inline;
  46410. begin
  46411. pTDefRegMap(@Self)^.&set := $00000080;
  46412. end;
  46413. procedure TADC10_AD1PCFG.clearPCFG7; inline;
  46414. begin
  46415. pTDefRegMap(@Self)^.clr := $00000080;
  46416. end;
  46417. procedure TADC10_AD1PCFG.setPCFG7(thebits : TBits_1); inline;
  46418. begin
  46419. if thebits = 0 then
  46420. pTDefRegMap(@Self)^.clr := $00000080
  46421. else
  46422. pTDefRegMap(@Self)^.&set := $00000080;
  46423. end;
  46424. function TADC10_AD1PCFG.getPCFG7 : TBits_1; inline;
  46425. begin
  46426. getPCFG7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  46427. end;
  46428. procedure TADC10_AD1PCFG.setPCFG8; inline;
  46429. begin
  46430. pTDefRegMap(@Self)^.&set := $00000100;
  46431. end;
  46432. procedure TADC10_AD1PCFG.clearPCFG8; inline;
  46433. begin
  46434. pTDefRegMap(@Self)^.clr := $00000100;
  46435. end;
  46436. procedure TADC10_AD1PCFG.setPCFG8(thebits : TBits_1); inline;
  46437. begin
  46438. if thebits = 0 then
  46439. pTDefRegMap(@Self)^.clr := $00000100
  46440. else
  46441. pTDefRegMap(@Self)^.&set := $00000100;
  46442. end;
  46443. function TADC10_AD1PCFG.getPCFG8 : TBits_1; inline;
  46444. begin
  46445. getPCFG8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  46446. end;
  46447. procedure TADC10_AD1PCFG.setPCFG9; inline;
  46448. begin
  46449. pTDefRegMap(@Self)^.&set := $00000200;
  46450. end;
  46451. procedure TADC10_AD1PCFG.clearPCFG9; inline;
  46452. begin
  46453. pTDefRegMap(@Self)^.clr := $00000200;
  46454. end;
  46455. procedure TADC10_AD1PCFG.setPCFG9(thebits : TBits_1); inline;
  46456. begin
  46457. if thebits = 0 then
  46458. pTDefRegMap(@Self)^.clr := $00000200
  46459. else
  46460. pTDefRegMap(@Self)^.&set := $00000200;
  46461. end;
  46462. function TADC10_AD1PCFG.getPCFG9 : TBits_1; inline;
  46463. begin
  46464. getPCFG9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  46465. end;
  46466. procedure TADC10_AD1PCFG.setPCFG10; inline;
  46467. begin
  46468. pTDefRegMap(@Self)^.&set := $00000400;
  46469. end;
  46470. procedure TADC10_AD1PCFG.clearPCFG10; inline;
  46471. begin
  46472. pTDefRegMap(@Self)^.clr := $00000400;
  46473. end;
  46474. procedure TADC10_AD1PCFG.setPCFG10(thebits : TBits_1); inline;
  46475. begin
  46476. if thebits = 0 then
  46477. pTDefRegMap(@Self)^.clr := $00000400
  46478. else
  46479. pTDefRegMap(@Self)^.&set := $00000400;
  46480. end;
  46481. function TADC10_AD1PCFG.getPCFG10 : TBits_1; inline;
  46482. begin
  46483. getPCFG10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  46484. end;
  46485. procedure TADC10_AD1PCFG.setPCFG11; inline;
  46486. begin
  46487. pTDefRegMap(@Self)^.&set := $00000800;
  46488. end;
  46489. procedure TADC10_AD1PCFG.clearPCFG11; inline;
  46490. begin
  46491. pTDefRegMap(@Self)^.clr := $00000800;
  46492. end;
  46493. procedure TADC10_AD1PCFG.setPCFG11(thebits : TBits_1); inline;
  46494. begin
  46495. if thebits = 0 then
  46496. pTDefRegMap(@Self)^.clr := $00000800
  46497. else
  46498. pTDefRegMap(@Self)^.&set := $00000800;
  46499. end;
  46500. function TADC10_AD1PCFG.getPCFG11 : TBits_1; inline;
  46501. begin
  46502. getPCFG11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  46503. end;
  46504. procedure TADC10_AD1PCFG.setPCFG12; inline;
  46505. begin
  46506. pTDefRegMap(@Self)^.&set := $00001000;
  46507. end;
  46508. procedure TADC10_AD1PCFG.clearPCFG12; inline;
  46509. begin
  46510. pTDefRegMap(@Self)^.clr := $00001000;
  46511. end;
  46512. procedure TADC10_AD1PCFG.setPCFG12(thebits : TBits_1); inline;
  46513. begin
  46514. if thebits = 0 then
  46515. pTDefRegMap(@Self)^.clr := $00001000
  46516. else
  46517. pTDefRegMap(@Self)^.&set := $00001000;
  46518. end;
  46519. function TADC10_AD1PCFG.getPCFG12 : TBits_1; inline;
  46520. begin
  46521. getPCFG12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  46522. end;
  46523. procedure TADC10_AD1PCFG.setPCFG13; inline;
  46524. begin
  46525. pTDefRegMap(@Self)^.&set := $00002000;
  46526. end;
  46527. procedure TADC10_AD1PCFG.clearPCFG13; inline;
  46528. begin
  46529. pTDefRegMap(@Self)^.clr := $00002000;
  46530. end;
  46531. procedure TADC10_AD1PCFG.setPCFG13(thebits : TBits_1); inline;
  46532. begin
  46533. if thebits = 0 then
  46534. pTDefRegMap(@Self)^.clr := $00002000
  46535. else
  46536. pTDefRegMap(@Self)^.&set := $00002000;
  46537. end;
  46538. function TADC10_AD1PCFG.getPCFG13 : TBits_1; inline;
  46539. begin
  46540. getPCFG13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  46541. end;
  46542. procedure TADC10_AD1PCFG.setPCFG14; inline;
  46543. begin
  46544. pTDefRegMap(@Self)^.&set := $00004000;
  46545. end;
  46546. procedure TADC10_AD1PCFG.clearPCFG14; inline;
  46547. begin
  46548. pTDefRegMap(@Self)^.clr := $00004000;
  46549. end;
  46550. procedure TADC10_AD1PCFG.setPCFG14(thebits : TBits_1); inline;
  46551. begin
  46552. if thebits = 0 then
  46553. pTDefRegMap(@Self)^.clr := $00004000
  46554. else
  46555. pTDefRegMap(@Self)^.&set := $00004000;
  46556. end;
  46557. function TADC10_AD1PCFG.getPCFG14 : TBits_1; inline;
  46558. begin
  46559. getPCFG14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  46560. end;
  46561. procedure TADC10_AD1PCFG.setPCFG15; inline;
  46562. begin
  46563. pTDefRegMap(@Self)^.&set := $00008000;
  46564. end;
  46565. procedure TADC10_AD1PCFG.clearPCFG15; inline;
  46566. begin
  46567. pTDefRegMap(@Self)^.clr := $00008000;
  46568. end;
  46569. procedure TADC10_AD1PCFG.setPCFG15(thebits : TBits_1); inline;
  46570. begin
  46571. if thebits = 0 then
  46572. pTDefRegMap(@Self)^.clr := $00008000
  46573. else
  46574. pTDefRegMap(@Self)^.&set := $00008000;
  46575. end;
  46576. function TADC10_AD1PCFG.getPCFG15 : TBits_1; inline;
  46577. begin
  46578. getPCFG15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  46579. end;
  46580. procedure TADC10_AD1PCFG.setw(thebits : TBits_32); inline;
  46581. begin
  46582. pTDefRegMap(@Self)^.val := thebits;
  46583. end;
  46584. function TADC10_AD1PCFG.getw : TBits_32; inline;
  46585. begin
  46586. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  46587. end;
  46588. procedure TCVR_CVRCON.setCVR(thebits : TBits_4); inline;
  46589. begin
  46590. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF0 or ( thebits shl 0 );
  46591. end;
  46592. function TCVR_CVRCON.getCVR : TBits_4; inline;
  46593. begin
  46594. getCVR := (pTDefRegMap(@Self)^.val and $0000000F) shr 0;
  46595. end;
  46596. procedure TCVR_CVRCON.setCVRSS; inline;
  46597. begin
  46598. pTDefRegMap(@Self)^.&set := $00000010;
  46599. end;
  46600. procedure TCVR_CVRCON.clearCVRSS; inline;
  46601. begin
  46602. pTDefRegMap(@Self)^.clr := $00000010;
  46603. end;
  46604. procedure TCVR_CVRCON.setCVRSS(thebits : TBits_1); inline;
  46605. begin
  46606. if thebits = 0 then
  46607. pTDefRegMap(@Self)^.clr := $00000010
  46608. else
  46609. pTDefRegMap(@Self)^.&set := $00000010;
  46610. end;
  46611. function TCVR_CVRCON.getCVRSS : TBits_1; inline;
  46612. begin
  46613. getCVRSS := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  46614. end;
  46615. procedure TCVR_CVRCON.setCVRR; inline;
  46616. begin
  46617. pTDefRegMap(@Self)^.&set := $00000020;
  46618. end;
  46619. procedure TCVR_CVRCON.clearCVRR; inline;
  46620. begin
  46621. pTDefRegMap(@Self)^.clr := $00000020;
  46622. end;
  46623. procedure TCVR_CVRCON.setCVRR(thebits : TBits_1); inline;
  46624. begin
  46625. if thebits = 0 then
  46626. pTDefRegMap(@Self)^.clr := $00000020
  46627. else
  46628. pTDefRegMap(@Self)^.&set := $00000020;
  46629. end;
  46630. function TCVR_CVRCON.getCVRR : TBits_1; inline;
  46631. begin
  46632. getCVRR := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  46633. end;
  46634. procedure TCVR_CVRCON.setCVROE; inline;
  46635. begin
  46636. pTDefRegMap(@Self)^.&set := $00000040;
  46637. end;
  46638. procedure TCVR_CVRCON.clearCVROE; inline;
  46639. begin
  46640. pTDefRegMap(@Self)^.clr := $00000040;
  46641. end;
  46642. procedure TCVR_CVRCON.setCVROE(thebits : TBits_1); inline;
  46643. begin
  46644. if thebits = 0 then
  46645. pTDefRegMap(@Self)^.clr := $00000040
  46646. else
  46647. pTDefRegMap(@Self)^.&set := $00000040;
  46648. end;
  46649. function TCVR_CVRCON.getCVROE : TBits_1; inline;
  46650. begin
  46651. getCVROE := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  46652. end;
  46653. procedure TCVR_CVRCON.setON; inline;
  46654. begin
  46655. pTDefRegMap(@Self)^.&set := $00008000;
  46656. end;
  46657. procedure TCVR_CVRCON.clearON; inline;
  46658. begin
  46659. pTDefRegMap(@Self)^.clr := $00008000;
  46660. end;
  46661. procedure TCVR_CVRCON.setON(thebits : TBits_1); inline;
  46662. begin
  46663. if thebits = 0 then
  46664. pTDefRegMap(@Self)^.clr := $00008000
  46665. else
  46666. pTDefRegMap(@Self)^.&set := $00008000;
  46667. end;
  46668. function TCVR_CVRCON.getON : TBits_1; inline;
  46669. begin
  46670. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  46671. end;
  46672. procedure TCVR_CVRCON.setCVR0; inline;
  46673. begin
  46674. pTDefRegMap(@Self)^.&set := $00000001;
  46675. end;
  46676. procedure TCVR_CVRCON.clearCVR0; inline;
  46677. begin
  46678. pTDefRegMap(@Self)^.clr := $00000001;
  46679. end;
  46680. procedure TCVR_CVRCON.setCVR0(thebits : TBits_1); inline;
  46681. begin
  46682. if thebits = 0 then
  46683. pTDefRegMap(@Self)^.clr := $00000001
  46684. else
  46685. pTDefRegMap(@Self)^.&set := $00000001;
  46686. end;
  46687. function TCVR_CVRCON.getCVR0 : TBits_1; inline;
  46688. begin
  46689. getCVR0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  46690. end;
  46691. procedure TCVR_CVRCON.setCVR1; inline;
  46692. begin
  46693. pTDefRegMap(@Self)^.&set := $00000002;
  46694. end;
  46695. procedure TCVR_CVRCON.clearCVR1; inline;
  46696. begin
  46697. pTDefRegMap(@Self)^.clr := $00000002;
  46698. end;
  46699. procedure TCVR_CVRCON.setCVR1(thebits : TBits_1); inline;
  46700. begin
  46701. if thebits = 0 then
  46702. pTDefRegMap(@Self)^.clr := $00000002
  46703. else
  46704. pTDefRegMap(@Self)^.&set := $00000002;
  46705. end;
  46706. function TCVR_CVRCON.getCVR1 : TBits_1; inline;
  46707. begin
  46708. getCVR1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  46709. end;
  46710. procedure TCVR_CVRCON.setCVR2; inline;
  46711. begin
  46712. pTDefRegMap(@Self)^.&set := $00000004;
  46713. end;
  46714. procedure TCVR_CVRCON.clearCVR2; inline;
  46715. begin
  46716. pTDefRegMap(@Self)^.clr := $00000004;
  46717. end;
  46718. procedure TCVR_CVRCON.setCVR2(thebits : TBits_1); inline;
  46719. begin
  46720. if thebits = 0 then
  46721. pTDefRegMap(@Self)^.clr := $00000004
  46722. else
  46723. pTDefRegMap(@Self)^.&set := $00000004;
  46724. end;
  46725. function TCVR_CVRCON.getCVR2 : TBits_1; inline;
  46726. begin
  46727. getCVR2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  46728. end;
  46729. procedure TCVR_CVRCON.setCVR3; inline;
  46730. begin
  46731. pTDefRegMap(@Self)^.&set := $00000008;
  46732. end;
  46733. procedure TCVR_CVRCON.clearCVR3; inline;
  46734. begin
  46735. pTDefRegMap(@Self)^.clr := $00000008;
  46736. end;
  46737. procedure TCVR_CVRCON.setCVR3(thebits : TBits_1); inline;
  46738. begin
  46739. if thebits = 0 then
  46740. pTDefRegMap(@Self)^.clr := $00000008
  46741. else
  46742. pTDefRegMap(@Self)^.&set := $00000008;
  46743. end;
  46744. function TCVR_CVRCON.getCVR3 : TBits_1; inline;
  46745. begin
  46746. getCVR3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  46747. end;
  46748. procedure TCVR_CVRCON.setw(thebits : TBits_32); inline;
  46749. begin
  46750. pTDefRegMap(@Self)^.val := thebits;
  46751. end;
  46752. function TCVR_CVRCON.getw : TBits_32; inline;
  46753. begin
  46754. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  46755. end;
  46756. procedure TCMP_CM1CON.setCCH(thebits : TBits_2); inline;
  46757. begin
  46758. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  46759. end;
  46760. function TCMP_CM1CON.getCCH : TBits_2; inline;
  46761. begin
  46762. getCCH := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  46763. end;
  46764. procedure TCMP_CM1CON.setCREF; inline;
  46765. begin
  46766. pTDefRegMap(@Self)^.&set := $00000010;
  46767. end;
  46768. procedure TCMP_CM1CON.clearCREF; inline;
  46769. begin
  46770. pTDefRegMap(@Self)^.clr := $00000010;
  46771. end;
  46772. procedure TCMP_CM1CON.setCREF(thebits : TBits_1); inline;
  46773. begin
  46774. if thebits = 0 then
  46775. pTDefRegMap(@Self)^.clr := $00000010
  46776. else
  46777. pTDefRegMap(@Self)^.&set := $00000010;
  46778. end;
  46779. function TCMP_CM1CON.getCREF : TBits_1; inline;
  46780. begin
  46781. getCREF := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  46782. end;
  46783. procedure TCMP_CM1CON.setEVPOL(thebits : TBits_2); inline;
  46784. begin
  46785. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
  46786. end;
  46787. function TCMP_CM1CON.getEVPOL : TBits_2; inline;
  46788. begin
  46789. getEVPOL := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
  46790. end;
  46791. procedure TCMP_CM1CON.setCOUT; inline;
  46792. begin
  46793. pTDefRegMap(@Self)^.&set := $00000100;
  46794. end;
  46795. procedure TCMP_CM1CON.clearCOUT; inline;
  46796. begin
  46797. pTDefRegMap(@Self)^.clr := $00000100;
  46798. end;
  46799. procedure TCMP_CM1CON.setCOUT(thebits : TBits_1); inline;
  46800. begin
  46801. if thebits = 0 then
  46802. pTDefRegMap(@Self)^.clr := $00000100
  46803. else
  46804. pTDefRegMap(@Self)^.&set := $00000100;
  46805. end;
  46806. function TCMP_CM1CON.getCOUT : TBits_1; inline;
  46807. begin
  46808. getCOUT := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  46809. end;
  46810. procedure TCMP_CM1CON.setCPOL; inline;
  46811. begin
  46812. pTDefRegMap(@Self)^.&set := $00002000;
  46813. end;
  46814. procedure TCMP_CM1CON.clearCPOL; inline;
  46815. begin
  46816. pTDefRegMap(@Self)^.clr := $00002000;
  46817. end;
  46818. procedure TCMP_CM1CON.setCPOL(thebits : TBits_1); inline;
  46819. begin
  46820. if thebits = 0 then
  46821. pTDefRegMap(@Self)^.clr := $00002000
  46822. else
  46823. pTDefRegMap(@Self)^.&set := $00002000;
  46824. end;
  46825. function TCMP_CM1CON.getCPOL : TBits_1; inline;
  46826. begin
  46827. getCPOL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  46828. end;
  46829. procedure TCMP_CM1CON.setCOE; inline;
  46830. begin
  46831. pTDefRegMap(@Self)^.&set := $00004000;
  46832. end;
  46833. procedure TCMP_CM1CON.clearCOE; inline;
  46834. begin
  46835. pTDefRegMap(@Self)^.clr := $00004000;
  46836. end;
  46837. procedure TCMP_CM1CON.setCOE(thebits : TBits_1); inline;
  46838. begin
  46839. if thebits = 0 then
  46840. pTDefRegMap(@Self)^.clr := $00004000
  46841. else
  46842. pTDefRegMap(@Self)^.&set := $00004000;
  46843. end;
  46844. function TCMP_CM1CON.getCOE : TBits_1; inline;
  46845. begin
  46846. getCOE := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  46847. end;
  46848. procedure TCMP_CM1CON.setON; inline;
  46849. begin
  46850. pTDefRegMap(@Self)^.&set := $00008000;
  46851. end;
  46852. procedure TCMP_CM1CON.clearON; inline;
  46853. begin
  46854. pTDefRegMap(@Self)^.clr := $00008000;
  46855. end;
  46856. procedure TCMP_CM1CON.setON(thebits : TBits_1); inline;
  46857. begin
  46858. if thebits = 0 then
  46859. pTDefRegMap(@Self)^.clr := $00008000
  46860. else
  46861. pTDefRegMap(@Self)^.&set := $00008000;
  46862. end;
  46863. function TCMP_CM1CON.getON : TBits_1; inline;
  46864. begin
  46865. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  46866. end;
  46867. procedure TCMP_CM1CON.setCCH0; inline;
  46868. begin
  46869. pTDefRegMap(@Self)^.&set := $00000001;
  46870. end;
  46871. procedure TCMP_CM1CON.clearCCH0; inline;
  46872. begin
  46873. pTDefRegMap(@Self)^.clr := $00000001;
  46874. end;
  46875. procedure TCMP_CM1CON.setCCH0(thebits : TBits_1); inline;
  46876. begin
  46877. if thebits = 0 then
  46878. pTDefRegMap(@Self)^.clr := $00000001
  46879. else
  46880. pTDefRegMap(@Self)^.&set := $00000001;
  46881. end;
  46882. function TCMP_CM1CON.getCCH0 : TBits_1; inline;
  46883. begin
  46884. getCCH0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  46885. end;
  46886. procedure TCMP_CM1CON.setCCH1; inline;
  46887. begin
  46888. pTDefRegMap(@Self)^.&set := $00000002;
  46889. end;
  46890. procedure TCMP_CM1CON.clearCCH1; inline;
  46891. begin
  46892. pTDefRegMap(@Self)^.clr := $00000002;
  46893. end;
  46894. procedure TCMP_CM1CON.setCCH1(thebits : TBits_1); inline;
  46895. begin
  46896. if thebits = 0 then
  46897. pTDefRegMap(@Self)^.clr := $00000002
  46898. else
  46899. pTDefRegMap(@Self)^.&set := $00000002;
  46900. end;
  46901. function TCMP_CM1CON.getCCH1 : TBits_1; inline;
  46902. begin
  46903. getCCH1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  46904. end;
  46905. procedure TCMP_CM1CON.setEVPOL0; inline;
  46906. begin
  46907. pTDefRegMap(@Self)^.&set := $00000040;
  46908. end;
  46909. procedure TCMP_CM1CON.clearEVPOL0; inline;
  46910. begin
  46911. pTDefRegMap(@Self)^.clr := $00000040;
  46912. end;
  46913. procedure TCMP_CM1CON.setEVPOL0(thebits : TBits_1); inline;
  46914. begin
  46915. if thebits = 0 then
  46916. pTDefRegMap(@Self)^.clr := $00000040
  46917. else
  46918. pTDefRegMap(@Self)^.&set := $00000040;
  46919. end;
  46920. function TCMP_CM1CON.getEVPOL0 : TBits_1; inline;
  46921. begin
  46922. getEVPOL0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  46923. end;
  46924. procedure TCMP_CM1CON.setEVPOL1; inline;
  46925. begin
  46926. pTDefRegMap(@Self)^.&set := $00000080;
  46927. end;
  46928. procedure TCMP_CM1CON.clearEVPOL1; inline;
  46929. begin
  46930. pTDefRegMap(@Self)^.clr := $00000080;
  46931. end;
  46932. procedure TCMP_CM1CON.setEVPOL1(thebits : TBits_1); inline;
  46933. begin
  46934. if thebits = 0 then
  46935. pTDefRegMap(@Self)^.clr := $00000080
  46936. else
  46937. pTDefRegMap(@Self)^.&set := $00000080;
  46938. end;
  46939. function TCMP_CM1CON.getEVPOL1 : TBits_1; inline;
  46940. begin
  46941. getEVPOL1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  46942. end;
  46943. procedure TCMP_CM1CON.setw(thebits : TBits_32); inline;
  46944. begin
  46945. pTDefRegMap(@Self)^.val := thebits;
  46946. end;
  46947. function TCMP_CM1CON.getw : TBits_32; inline;
  46948. begin
  46949. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  46950. end;
  46951. procedure TCMP_CM2CON.setCCH(thebits : TBits_2); inline;
  46952. begin
  46953. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  46954. end;
  46955. function TCMP_CM2CON.getCCH : TBits_2; inline;
  46956. begin
  46957. getCCH := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  46958. end;
  46959. procedure TCMP_CM2CON.setCREF; inline;
  46960. begin
  46961. pTDefRegMap(@Self)^.&set := $00000010;
  46962. end;
  46963. procedure TCMP_CM2CON.clearCREF; inline;
  46964. begin
  46965. pTDefRegMap(@Self)^.clr := $00000010;
  46966. end;
  46967. procedure TCMP_CM2CON.setCREF(thebits : TBits_1); inline;
  46968. begin
  46969. if thebits = 0 then
  46970. pTDefRegMap(@Self)^.clr := $00000010
  46971. else
  46972. pTDefRegMap(@Self)^.&set := $00000010;
  46973. end;
  46974. function TCMP_CM2CON.getCREF : TBits_1; inline;
  46975. begin
  46976. getCREF := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  46977. end;
  46978. procedure TCMP_CM2CON.setEVPOL(thebits : TBits_2); inline;
  46979. begin
  46980. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
  46981. end;
  46982. function TCMP_CM2CON.getEVPOL : TBits_2; inline;
  46983. begin
  46984. getEVPOL := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
  46985. end;
  46986. procedure TCMP_CM2CON.setCOUT; inline;
  46987. begin
  46988. pTDefRegMap(@Self)^.&set := $00000100;
  46989. end;
  46990. procedure TCMP_CM2CON.clearCOUT; inline;
  46991. begin
  46992. pTDefRegMap(@Self)^.clr := $00000100;
  46993. end;
  46994. procedure TCMP_CM2CON.setCOUT(thebits : TBits_1); inline;
  46995. begin
  46996. if thebits = 0 then
  46997. pTDefRegMap(@Self)^.clr := $00000100
  46998. else
  46999. pTDefRegMap(@Self)^.&set := $00000100;
  47000. end;
  47001. function TCMP_CM2CON.getCOUT : TBits_1; inline;
  47002. begin
  47003. getCOUT := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  47004. end;
  47005. procedure TCMP_CM2CON.setCPOL; inline;
  47006. begin
  47007. pTDefRegMap(@Self)^.&set := $00002000;
  47008. end;
  47009. procedure TCMP_CM2CON.clearCPOL; inline;
  47010. begin
  47011. pTDefRegMap(@Self)^.clr := $00002000;
  47012. end;
  47013. procedure TCMP_CM2CON.setCPOL(thebits : TBits_1); inline;
  47014. begin
  47015. if thebits = 0 then
  47016. pTDefRegMap(@Self)^.clr := $00002000
  47017. else
  47018. pTDefRegMap(@Self)^.&set := $00002000;
  47019. end;
  47020. function TCMP_CM2CON.getCPOL : TBits_1; inline;
  47021. begin
  47022. getCPOL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  47023. end;
  47024. procedure TCMP_CM2CON.setCOE; inline;
  47025. begin
  47026. pTDefRegMap(@Self)^.&set := $00004000;
  47027. end;
  47028. procedure TCMP_CM2CON.clearCOE; inline;
  47029. begin
  47030. pTDefRegMap(@Self)^.clr := $00004000;
  47031. end;
  47032. procedure TCMP_CM2CON.setCOE(thebits : TBits_1); inline;
  47033. begin
  47034. if thebits = 0 then
  47035. pTDefRegMap(@Self)^.clr := $00004000
  47036. else
  47037. pTDefRegMap(@Self)^.&set := $00004000;
  47038. end;
  47039. function TCMP_CM2CON.getCOE : TBits_1; inline;
  47040. begin
  47041. getCOE := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  47042. end;
  47043. procedure TCMP_CM2CON.setON; inline;
  47044. begin
  47045. pTDefRegMap(@Self)^.&set := $00008000;
  47046. end;
  47047. procedure TCMP_CM2CON.clearON; inline;
  47048. begin
  47049. pTDefRegMap(@Self)^.clr := $00008000;
  47050. end;
  47051. procedure TCMP_CM2CON.setON(thebits : TBits_1); inline;
  47052. begin
  47053. if thebits = 0 then
  47054. pTDefRegMap(@Self)^.clr := $00008000
  47055. else
  47056. pTDefRegMap(@Self)^.&set := $00008000;
  47057. end;
  47058. function TCMP_CM2CON.getON : TBits_1; inline;
  47059. begin
  47060. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  47061. end;
  47062. procedure TCMP_CM2CON.setCCH0; inline;
  47063. begin
  47064. pTDefRegMap(@Self)^.&set := $00000001;
  47065. end;
  47066. procedure TCMP_CM2CON.clearCCH0; inline;
  47067. begin
  47068. pTDefRegMap(@Self)^.clr := $00000001;
  47069. end;
  47070. procedure TCMP_CM2CON.setCCH0(thebits : TBits_1); inline;
  47071. begin
  47072. if thebits = 0 then
  47073. pTDefRegMap(@Self)^.clr := $00000001
  47074. else
  47075. pTDefRegMap(@Self)^.&set := $00000001;
  47076. end;
  47077. function TCMP_CM2CON.getCCH0 : TBits_1; inline;
  47078. begin
  47079. getCCH0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  47080. end;
  47081. procedure TCMP_CM2CON.setCCH1; inline;
  47082. begin
  47083. pTDefRegMap(@Self)^.&set := $00000002;
  47084. end;
  47085. procedure TCMP_CM2CON.clearCCH1; inline;
  47086. begin
  47087. pTDefRegMap(@Self)^.clr := $00000002;
  47088. end;
  47089. procedure TCMP_CM2CON.setCCH1(thebits : TBits_1); inline;
  47090. begin
  47091. if thebits = 0 then
  47092. pTDefRegMap(@Self)^.clr := $00000002
  47093. else
  47094. pTDefRegMap(@Self)^.&set := $00000002;
  47095. end;
  47096. function TCMP_CM2CON.getCCH1 : TBits_1; inline;
  47097. begin
  47098. getCCH1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  47099. end;
  47100. procedure TCMP_CM2CON.setEVPOL0; inline;
  47101. begin
  47102. pTDefRegMap(@Self)^.&set := $00000040;
  47103. end;
  47104. procedure TCMP_CM2CON.clearEVPOL0; inline;
  47105. begin
  47106. pTDefRegMap(@Self)^.clr := $00000040;
  47107. end;
  47108. procedure TCMP_CM2CON.setEVPOL0(thebits : TBits_1); inline;
  47109. begin
  47110. if thebits = 0 then
  47111. pTDefRegMap(@Self)^.clr := $00000040
  47112. else
  47113. pTDefRegMap(@Self)^.&set := $00000040;
  47114. end;
  47115. function TCMP_CM2CON.getEVPOL0 : TBits_1; inline;
  47116. begin
  47117. getEVPOL0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  47118. end;
  47119. procedure TCMP_CM2CON.setEVPOL1; inline;
  47120. begin
  47121. pTDefRegMap(@Self)^.&set := $00000080;
  47122. end;
  47123. procedure TCMP_CM2CON.clearEVPOL1; inline;
  47124. begin
  47125. pTDefRegMap(@Self)^.clr := $00000080;
  47126. end;
  47127. procedure TCMP_CM2CON.setEVPOL1(thebits : TBits_1); inline;
  47128. begin
  47129. if thebits = 0 then
  47130. pTDefRegMap(@Self)^.clr := $00000080
  47131. else
  47132. pTDefRegMap(@Self)^.&set := $00000080;
  47133. end;
  47134. function TCMP_CM2CON.getEVPOL1 : TBits_1; inline;
  47135. begin
  47136. getEVPOL1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  47137. end;
  47138. procedure TCMP_CM2CON.setw(thebits : TBits_32); inline;
  47139. begin
  47140. pTDefRegMap(@Self)^.val := thebits;
  47141. end;
  47142. function TCMP_CM2CON.getw : TBits_32; inline;
  47143. begin
  47144. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  47145. end;
  47146. procedure TCMP_CMSTAT.setC1OUT; inline;
  47147. begin
  47148. pTDefRegMap(@Self)^.&set := $00000001;
  47149. end;
  47150. procedure TCMP_CMSTAT.clearC1OUT; inline;
  47151. begin
  47152. pTDefRegMap(@Self)^.clr := $00000001;
  47153. end;
  47154. procedure TCMP_CMSTAT.setC1OUT(thebits : TBits_1); inline;
  47155. begin
  47156. if thebits = 0 then
  47157. pTDefRegMap(@Self)^.clr := $00000001
  47158. else
  47159. pTDefRegMap(@Self)^.&set := $00000001;
  47160. end;
  47161. function TCMP_CMSTAT.getC1OUT : TBits_1; inline;
  47162. begin
  47163. getC1OUT := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  47164. end;
  47165. procedure TCMP_CMSTAT.setC2OUT; inline;
  47166. begin
  47167. pTDefRegMap(@Self)^.&set := $00000002;
  47168. end;
  47169. procedure TCMP_CMSTAT.clearC2OUT; inline;
  47170. begin
  47171. pTDefRegMap(@Self)^.clr := $00000002;
  47172. end;
  47173. procedure TCMP_CMSTAT.setC2OUT(thebits : TBits_1); inline;
  47174. begin
  47175. if thebits = 0 then
  47176. pTDefRegMap(@Self)^.clr := $00000002
  47177. else
  47178. pTDefRegMap(@Self)^.&set := $00000002;
  47179. end;
  47180. function TCMP_CMSTAT.getC2OUT : TBits_1; inline;
  47181. begin
  47182. getC2OUT := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  47183. end;
  47184. procedure TCMP_CMSTAT.setSIDL; inline;
  47185. begin
  47186. pTDefRegMap(@Self)^.&set := $00002000;
  47187. end;
  47188. procedure TCMP_CMSTAT.clearSIDL; inline;
  47189. begin
  47190. pTDefRegMap(@Self)^.clr := $00002000;
  47191. end;
  47192. procedure TCMP_CMSTAT.setSIDL(thebits : TBits_1); inline;
  47193. begin
  47194. if thebits = 0 then
  47195. pTDefRegMap(@Self)^.clr := $00002000
  47196. else
  47197. pTDefRegMap(@Self)^.&set := $00002000;
  47198. end;
  47199. function TCMP_CMSTAT.getSIDL : TBits_1; inline;
  47200. begin
  47201. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  47202. end;
  47203. procedure TCMP_CMSTAT.setw(thebits : TBits_32); inline;
  47204. begin
  47205. pTDefRegMap(@Self)^.val := thebits;
  47206. end;
  47207. function TCMP_CMSTAT.getw : TBits_32; inline;
  47208. begin
  47209. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  47210. end;
  47211. procedure TOSC_OSCCON.setOSWEN; inline;
  47212. begin
  47213. pTDefRegMap(@Self)^.&set := $00000001;
  47214. end;
  47215. procedure TOSC_OSCCON.clearOSWEN; inline;
  47216. begin
  47217. pTDefRegMap(@Self)^.clr := $00000001;
  47218. end;
  47219. procedure TOSC_OSCCON.setOSWEN(thebits : TBits_1); inline;
  47220. begin
  47221. if thebits = 0 then
  47222. pTDefRegMap(@Self)^.clr := $00000001
  47223. else
  47224. pTDefRegMap(@Self)^.&set := $00000001;
  47225. end;
  47226. function TOSC_OSCCON.getOSWEN : TBits_1; inline;
  47227. begin
  47228. getOSWEN := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  47229. end;
  47230. procedure TOSC_OSCCON.setSOSCEN; inline;
  47231. begin
  47232. pTDefRegMap(@Self)^.&set := $00000002;
  47233. end;
  47234. procedure TOSC_OSCCON.clearSOSCEN; inline;
  47235. begin
  47236. pTDefRegMap(@Self)^.clr := $00000002;
  47237. end;
  47238. procedure TOSC_OSCCON.setSOSCEN(thebits : TBits_1); inline;
  47239. begin
  47240. if thebits = 0 then
  47241. pTDefRegMap(@Self)^.clr := $00000002
  47242. else
  47243. pTDefRegMap(@Self)^.&set := $00000002;
  47244. end;
  47245. function TOSC_OSCCON.getSOSCEN : TBits_1; inline;
  47246. begin
  47247. getSOSCEN := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  47248. end;
  47249. procedure TOSC_OSCCON.setUFRCEN; inline;
  47250. begin
  47251. pTDefRegMap(@Self)^.&set := $00000004;
  47252. end;
  47253. procedure TOSC_OSCCON.clearUFRCEN; inline;
  47254. begin
  47255. pTDefRegMap(@Self)^.clr := $00000004;
  47256. end;
  47257. procedure TOSC_OSCCON.setUFRCEN(thebits : TBits_1); inline;
  47258. begin
  47259. if thebits = 0 then
  47260. pTDefRegMap(@Self)^.clr := $00000004
  47261. else
  47262. pTDefRegMap(@Self)^.&set := $00000004;
  47263. end;
  47264. function TOSC_OSCCON.getUFRCEN : TBits_1; inline;
  47265. begin
  47266. getUFRCEN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  47267. end;
  47268. procedure TOSC_OSCCON.setCF; inline;
  47269. begin
  47270. pTDefRegMap(@Self)^.&set := $00000008;
  47271. end;
  47272. procedure TOSC_OSCCON.clearCF; inline;
  47273. begin
  47274. pTDefRegMap(@Self)^.clr := $00000008;
  47275. end;
  47276. procedure TOSC_OSCCON.setCF(thebits : TBits_1); inline;
  47277. begin
  47278. if thebits = 0 then
  47279. pTDefRegMap(@Self)^.clr := $00000008
  47280. else
  47281. pTDefRegMap(@Self)^.&set := $00000008;
  47282. end;
  47283. function TOSC_OSCCON.getCF : TBits_1; inline;
  47284. begin
  47285. getCF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  47286. end;
  47287. procedure TOSC_OSCCON.setSLPEN; inline;
  47288. begin
  47289. pTDefRegMap(@Self)^.&set := $00000010;
  47290. end;
  47291. procedure TOSC_OSCCON.clearSLPEN; inline;
  47292. begin
  47293. pTDefRegMap(@Self)^.clr := $00000010;
  47294. end;
  47295. procedure TOSC_OSCCON.setSLPEN(thebits : TBits_1); inline;
  47296. begin
  47297. if thebits = 0 then
  47298. pTDefRegMap(@Self)^.clr := $00000010
  47299. else
  47300. pTDefRegMap(@Self)^.&set := $00000010;
  47301. end;
  47302. function TOSC_OSCCON.getSLPEN : TBits_1; inline;
  47303. begin
  47304. getSLPEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  47305. end;
  47306. procedure TOSC_OSCCON.setSLOCK; inline;
  47307. begin
  47308. pTDefRegMap(@Self)^.&set := $00000020;
  47309. end;
  47310. procedure TOSC_OSCCON.clearSLOCK; inline;
  47311. begin
  47312. pTDefRegMap(@Self)^.clr := $00000020;
  47313. end;
  47314. procedure TOSC_OSCCON.setSLOCK(thebits : TBits_1); inline;
  47315. begin
  47316. if thebits = 0 then
  47317. pTDefRegMap(@Self)^.clr := $00000020
  47318. else
  47319. pTDefRegMap(@Self)^.&set := $00000020;
  47320. end;
  47321. function TOSC_OSCCON.getSLOCK : TBits_1; inline;
  47322. begin
  47323. getSLOCK := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  47324. end;
  47325. procedure TOSC_OSCCON.setULOCK; inline;
  47326. begin
  47327. pTDefRegMap(@Self)^.&set := $00000040;
  47328. end;
  47329. procedure TOSC_OSCCON.clearULOCK; inline;
  47330. begin
  47331. pTDefRegMap(@Self)^.clr := $00000040;
  47332. end;
  47333. procedure TOSC_OSCCON.setULOCK(thebits : TBits_1); inline;
  47334. begin
  47335. if thebits = 0 then
  47336. pTDefRegMap(@Self)^.clr := $00000040
  47337. else
  47338. pTDefRegMap(@Self)^.&set := $00000040;
  47339. end;
  47340. function TOSC_OSCCON.getULOCK : TBits_1; inline;
  47341. begin
  47342. getULOCK := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  47343. end;
  47344. procedure TOSC_OSCCON.setCLKLOCK; inline;
  47345. begin
  47346. pTDefRegMap(@Self)^.&set := $00000080;
  47347. end;
  47348. procedure TOSC_OSCCON.clearCLKLOCK; inline;
  47349. begin
  47350. pTDefRegMap(@Self)^.clr := $00000080;
  47351. end;
  47352. procedure TOSC_OSCCON.setCLKLOCK(thebits : TBits_1); inline;
  47353. begin
  47354. if thebits = 0 then
  47355. pTDefRegMap(@Self)^.clr := $00000080
  47356. else
  47357. pTDefRegMap(@Self)^.&set := $00000080;
  47358. end;
  47359. function TOSC_OSCCON.getCLKLOCK : TBits_1; inline;
  47360. begin
  47361. getCLKLOCK := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  47362. end;
  47363. procedure TOSC_OSCCON.setNOSC(thebits : TBits_3); inline;
  47364. begin
  47365. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFF8FF or ( thebits shl 8 );
  47366. end;
  47367. function TOSC_OSCCON.getNOSC : TBits_3; inline;
  47368. begin
  47369. getNOSC := (pTDefRegMap(@Self)^.val and $00000700) shr 8;
  47370. end;
  47371. procedure TOSC_OSCCON.setCOSC(thebits : TBits_3); inline;
  47372. begin
  47373. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF8FFF or ( thebits shl 12 );
  47374. end;
  47375. function TOSC_OSCCON.getCOSC : TBits_3; inline;
  47376. begin
  47377. getCOSC := (pTDefRegMap(@Self)^.val and $00007000) shr 12;
  47378. end;
  47379. procedure TOSC_OSCCON.setPLLMULT(thebits : TBits_3); inline;
  47380. begin
  47381. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFF8FFFF or ( thebits shl 16 );
  47382. end;
  47383. function TOSC_OSCCON.getPLLMULT : TBits_3; inline;
  47384. begin
  47385. getPLLMULT := (pTDefRegMap(@Self)^.val and $00070000) shr 16;
  47386. end;
  47387. procedure TOSC_OSCCON.setPBDIV(thebits : TBits_2); inline;
  47388. begin
  47389. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE7FFFF or ( thebits shl 19 );
  47390. end;
  47391. function TOSC_OSCCON.getPBDIV : TBits_2; inline;
  47392. begin
  47393. getPBDIV := (pTDefRegMap(@Self)^.val and $00180000) shr 19;
  47394. end;
  47395. procedure TOSC_OSCCON.setSOSCRDY; inline;
  47396. begin
  47397. pTDefRegMap(@Self)^.&set := $00400000;
  47398. end;
  47399. procedure TOSC_OSCCON.clearSOSCRDY; inline;
  47400. begin
  47401. pTDefRegMap(@Self)^.clr := $00400000;
  47402. end;
  47403. procedure TOSC_OSCCON.setSOSCRDY(thebits : TBits_1); inline;
  47404. begin
  47405. if thebits = 0 then
  47406. pTDefRegMap(@Self)^.clr := $00400000
  47407. else
  47408. pTDefRegMap(@Self)^.&set := $00400000;
  47409. end;
  47410. function TOSC_OSCCON.getSOSCRDY : TBits_1; inline;
  47411. begin
  47412. getSOSCRDY := (pTDefRegMap(@Self)^.val and $00400000) shr 22;
  47413. end;
  47414. procedure TOSC_OSCCON.setFRCDIV(thebits : TBits_3); inline;
  47415. begin
  47416. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $F8FFFFFF or ( thebits shl 24 );
  47417. end;
  47418. function TOSC_OSCCON.getFRCDIV : TBits_3; inline;
  47419. begin
  47420. getFRCDIV := (pTDefRegMap(@Self)^.val and $07000000) shr 24;
  47421. end;
  47422. procedure TOSC_OSCCON.setPLLODIV(thebits : TBits_3); inline;
  47423. begin
  47424. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $C7FFFFFF or ( thebits shl 27 );
  47425. end;
  47426. function TOSC_OSCCON.getPLLODIV : TBits_3; inline;
  47427. begin
  47428. getPLLODIV := (pTDefRegMap(@Self)^.val and $38000000) shr 27;
  47429. end;
  47430. procedure TOSC_OSCCON.setNOSC0; inline;
  47431. begin
  47432. pTDefRegMap(@Self)^.&set := $00000100;
  47433. end;
  47434. procedure TOSC_OSCCON.clearNOSC0; inline;
  47435. begin
  47436. pTDefRegMap(@Self)^.clr := $00000100;
  47437. end;
  47438. procedure TOSC_OSCCON.setNOSC0(thebits : TBits_1); inline;
  47439. begin
  47440. if thebits = 0 then
  47441. pTDefRegMap(@Self)^.clr := $00000100
  47442. else
  47443. pTDefRegMap(@Self)^.&set := $00000100;
  47444. end;
  47445. function TOSC_OSCCON.getNOSC0 : TBits_1; inline;
  47446. begin
  47447. getNOSC0 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  47448. end;
  47449. procedure TOSC_OSCCON.setNOSC1; inline;
  47450. begin
  47451. pTDefRegMap(@Self)^.&set := $00000200;
  47452. end;
  47453. procedure TOSC_OSCCON.clearNOSC1; inline;
  47454. begin
  47455. pTDefRegMap(@Self)^.clr := $00000200;
  47456. end;
  47457. procedure TOSC_OSCCON.setNOSC1(thebits : TBits_1); inline;
  47458. begin
  47459. if thebits = 0 then
  47460. pTDefRegMap(@Self)^.clr := $00000200
  47461. else
  47462. pTDefRegMap(@Self)^.&set := $00000200;
  47463. end;
  47464. function TOSC_OSCCON.getNOSC1 : TBits_1; inline;
  47465. begin
  47466. getNOSC1 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  47467. end;
  47468. procedure TOSC_OSCCON.setNOSC2; inline;
  47469. begin
  47470. pTDefRegMap(@Self)^.&set := $00000400;
  47471. end;
  47472. procedure TOSC_OSCCON.clearNOSC2; inline;
  47473. begin
  47474. pTDefRegMap(@Self)^.clr := $00000400;
  47475. end;
  47476. procedure TOSC_OSCCON.setNOSC2(thebits : TBits_1); inline;
  47477. begin
  47478. if thebits = 0 then
  47479. pTDefRegMap(@Self)^.clr := $00000400
  47480. else
  47481. pTDefRegMap(@Self)^.&set := $00000400;
  47482. end;
  47483. function TOSC_OSCCON.getNOSC2 : TBits_1; inline;
  47484. begin
  47485. getNOSC2 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  47486. end;
  47487. procedure TOSC_OSCCON.setCOSC0; inline;
  47488. begin
  47489. pTDefRegMap(@Self)^.&set := $00001000;
  47490. end;
  47491. procedure TOSC_OSCCON.clearCOSC0; inline;
  47492. begin
  47493. pTDefRegMap(@Self)^.clr := $00001000;
  47494. end;
  47495. procedure TOSC_OSCCON.setCOSC0(thebits : TBits_1); inline;
  47496. begin
  47497. if thebits = 0 then
  47498. pTDefRegMap(@Self)^.clr := $00001000
  47499. else
  47500. pTDefRegMap(@Self)^.&set := $00001000;
  47501. end;
  47502. function TOSC_OSCCON.getCOSC0 : TBits_1; inline;
  47503. begin
  47504. getCOSC0 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  47505. end;
  47506. procedure TOSC_OSCCON.setCOSC1; inline;
  47507. begin
  47508. pTDefRegMap(@Self)^.&set := $00002000;
  47509. end;
  47510. procedure TOSC_OSCCON.clearCOSC1; inline;
  47511. begin
  47512. pTDefRegMap(@Self)^.clr := $00002000;
  47513. end;
  47514. procedure TOSC_OSCCON.setCOSC1(thebits : TBits_1); inline;
  47515. begin
  47516. if thebits = 0 then
  47517. pTDefRegMap(@Self)^.clr := $00002000
  47518. else
  47519. pTDefRegMap(@Self)^.&set := $00002000;
  47520. end;
  47521. function TOSC_OSCCON.getCOSC1 : TBits_1; inline;
  47522. begin
  47523. getCOSC1 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  47524. end;
  47525. procedure TOSC_OSCCON.setCOSC2; inline;
  47526. begin
  47527. pTDefRegMap(@Self)^.&set := $00004000;
  47528. end;
  47529. procedure TOSC_OSCCON.clearCOSC2; inline;
  47530. begin
  47531. pTDefRegMap(@Self)^.clr := $00004000;
  47532. end;
  47533. procedure TOSC_OSCCON.setCOSC2(thebits : TBits_1); inline;
  47534. begin
  47535. if thebits = 0 then
  47536. pTDefRegMap(@Self)^.clr := $00004000
  47537. else
  47538. pTDefRegMap(@Self)^.&set := $00004000;
  47539. end;
  47540. function TOSC_OSCCON.getCOSC2 : TBits_1; inline;
  47541. begin
  47542. getCOSC2 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  47543. end;
  47544. procedure TOSC_OSCCON.setPLLMULT0; inline;
  47545. begin
  47546. pTDefRegMap(@Self)^.&set := $00010000;
  47547. end;
  47548. procedure TOSC_OSCCON.clearPLLMULT0; inline;
  47549. begin
  47550. pTDefRegMap(@Self)^.clr := $00010000;
  47551. end;
  47552. procedure TOSC_OSCCON.setPLLMULT0(thebits : TBits_1); inline;
  47553. begin
  47554. if thebits = 0 then
  47555. pTDefRegMap(@Self)^.clr := $00010000
  47556. else
  47557. pTDefRegMap(@Self)^.&set := $00010000;
  47558. end;
  47559. function TOSC_OSCCON.getPLLMULT0 : TBits_1; inline;
  47560. begin
  47561. getPLLMULT0 := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  47562. end;
  47563. procedure TOSC_OSCCON.setPLLMULT1; inline;
  47564. begin
  47565. pTDefRegMap(@Self)^.&set := $00020000;
  47566. end;
  47567. procedure TOSC_OSCCON.clearPLLMULT1; inline;
  47568. begin
  47569. pTDefRegMap(@Self)^.clr := $00020000;
  47570. end;
  47571. procedure TOSC_OSCCON.setPLLMULT1(thebits : TBits_1); inline;
  47572. begin
  47573. if thebits = 0 then
  47574. pTDefRegMap(@Self)^.clr := $00020000
  47575. else
  47576. pTDefRegMap(@Self)^.&set := $00020000;
  47577. end;
  47578. function TOSC_OSCCON.getPLLMULT1 : TBits_1; inline;
  47579. begin
  47580. getPLLMULT1 := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  47581. end;
  47582. procedure TOSC_OSCCON.setPLLMULT2; inline;
  47583. begin
  47584. pTDefRegMap(@Self)^.&set := $00040000;
  47585. end;
  47586. procedure TOSC_OSCCON.clearPLLMULT2; inline;
  47587. begin
  47588. pTDefRegMap(@Self)^.clr := $00040000;
  47589. end;
  47590. procedure TOSC_OSCCON.setPLLMULT2(thebits : TBits_1); inline;
  47591. begin
  47592. if thebits = 0 then
  47593. pTDefRegMap(@Self)^.clr := $00040000
  47594. else
  47595. pTDefRegMap(@Self)^.&set := $00040000;
  47596. end;
  47597. function TOSC_OSCCON.getPLLMULT2 : TBits_1; inline;
  47598. begin
  47599. getPLLMULT2 := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  47600. end;
  47601. procedure TOSC_OSCCON.setPBDIV0; inline;
  47602. begin
  47603. pTDefRegMap(@Self)^.&set := $00080000;
  47604. end;
  47605. procedure TOSC_OSCCON.clearPBDIV0; inline;
  47606. begin
  47607. pTDefRegMap(@Self)^.clr := $00080000;
  47608. end;
  47609. procedure TOSC_OSCCON.setPBDIV0(thebits : TBits_1); inline;
  47610. begin
  47611. if thebits = 0 then
  47612. pTDefRegMap(@Self)^.clr := $00080000
  47613. else
  47614. pTDefRegMap(@Self)^.&set := $00080000;
  47615. end;
  47616. function TOSC_OSCCON.getPBDIV0 : TBits_1; inline;
  47617. begin
  47618. getPBDIV0 := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  47619. end;
  47620. procedure TOSC_OSCCON.setPBDIV1; inline;
  47621. begin
  47622. pTDefRegMap(@Self)^.&set := $00100000;
  47623. end;
  47624. procedure TOSC_OSCCON.clearPBDIV1; inline;
  47625. begin
  47626. pTDefRegMap(@Self)^.clr := $00100000;
  47627. end;
  47628. procedure TOSC_OSCCON.setPBDIV1(thebits : TBits_1); inline;
  47629. begin
  47630. if thebits = 0 then
  47631. pTDefRegMap(@Self)^.clr := $00100000
  47632. else
  47633. pTDefRegMap(@Self)^.&set := $00100000;
  47634. end;
  47635. function TOSC_OSCCON.getPBDIV1 : TBits_1; inline;
  47636. begin
  47637. getPBDIV1 := (pTDefRegMap(@Self)^.val and $00100000) shr 20;
  47638. end;
  47639. procedure TOSC_OSCCON.setFRCDIV0; inline;
  47640. begin
  47641. pTDefRegMap(@Self)^.&set := $01000000;
  47642. end;
  47643. procedure TOSC_OSCCON.clearFRCDIV0; inline;
  47644. begin
  47645. pTDefRegMap(@Self)^.clr := $01000000;
  47646. end;
  47647. procedure TOSC_OSCCON.setFRCDIV0(thebits : TBits_1); inline;
  47648. begin
  47649. if thebits = 0 then
  47650. pTDefRegMap(@Self)^.clr := $01000000
  47651. else
  47652. pTDefRegMap(@Self)^.&set := $01000000;
  47653. end;
  47654. function TOSC_OSCCON.getFRCDIV0 : TBits_1; inline;
  47655. begin
  47656. getFRCDIV0 := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  47657. end;
  47658. procedure TOSC_OSCCON.setFRCDIV1; inline;
  47659. begin
  47660. pTDefRegMap(@Self)^.&set := $02000000;
  47661. end;
  47662. procedure TOSC_OSCCON.clearFRCDIV1; inline;
  47663. begin
  47664. pTDefRegMap(@Self)^.clr := $02000000;
  47665. end;
  47666. procedure TOSC_OSCCON.setFRCDIV1(thebits : TBits_1); inline;
  47667. begin
  47668. if thebits = 0 then
  47669. pTDefRegMap(@Self)^.clr := $02000000
  47670. else
  47671. pTDefRegMap(@Self)^.&set := $02000000;
  47672. end;
  47673. function TOSC_OSCCON.getFRCDIV1 : TBits_1; inline;
  47674. begin
  47675. getFRCDIV1 := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  47676. end;
  47677. procedure TOSC_OSCCON.setFRCDIV2; inline;
  47678. begin
  47679. pTDefRegMap(@Self)^.&set := $04000000;
  47680. end;
  47681. procedure TOSC_OSCCON.clearFRCDIV2; inline;
  47682. begin
  47683. pTDefRegMap(@Self)^.clr := $04000000;
  47684. end;
  47685. procedure TOSC_OSCCON.setFRCDIV2(thebits : TBits_1); inline;
  47686. begin
  47687. if thebits = 0 then
  47688. pTDefRegMap(@Self)^.clr := $04000000
  47689. else
  47690. pTDefRegMap(@Self)^.&set := $04000000;
  47691. end;
  47692. function TOSC_OSCCON.getFRCDIV2 : TBits_1; inline;
  47693. begin
  47694. getFRCDIV2 := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  47695. end;
  47696. procedure TOSC_OSCCON.setPLLODIV0; inline;
  47697. begin
  47698. pTDefRegMap(@Self)^.&set := $08000000;
  47699. end;
  47700. procedure TOSC_OSCCON.clearPLLODIV0; inline;
  47701. begin
  47702. pTDefRegMap(@Self)^.clr := $08000000;
  47703. end;
  47704. procedure TOSC_OSCCON.setPLLODIV0(thebits : TBits_1); inline;
  47705. begin
  47706. if thebits = 0 then
  47707. pTDefRegMap(@Self)^.clr := $08000000
  47708. else
  47709. pTDefRegMap(@Self)^.&set := $08000000;
  47710. end;
  47711. function TOSC_OSCCON.getPLLODIV0 : TBits_1; inline;
  47712. begin
  47713. getPLLODIV0 := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  47714. end;
  47715. procedure TOSC_OSCCON.setPLLODIV1; inline;
  47716. begin
  47717. pTDefRegMap(@Self)^.&set := $10000000;
  47718. end;
  47719. procedure TOSC_OSCCON.clearPLLODIV1; inline;
  47720. begin
  47721. pTDefRegMap(@Self)^.clr := $10000000;
  47722. end;
  47723. procedure TOSC_OSCCON.setPLLODIV1(thebits : TBits_1); inline;
  47724. begin
  47725. if thebits = 0 then
  47726. pTDefRegMap(@Self)^.clr := $10000000
  47727. else
  47728. pTDefRegMap(@Self)^.&set := $10000000;
  47729. end;
  47730. function TOSC_OSCCON.getPLLODIV1 : TBits_1; inline;
  47731. begin
  47732. getPLLODIV1 := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  47733. end;
  47734. procedure TOSC_OSCCON.setPLLODIV2; inline;
  47735. begin
  47736. pTDefRegMap(@Self)^.&set := $20000000;
  47737. end;
  47738. procedure TOSC_OSCCON.clearPLLODIV2; inline;
  47739. begin
  47740. pTDefRegMap(@Self)^.clr := $20000000;
  47741. end;
  47742. procedure TOSC_OSCCON.setPLLODIV2(thebits : TBits_1); inline;
  47743. begin
  47744. if thebits = 0 then
  47745. pTDefRegMap(@Self)^.clr := $20000000
  47746. else
  47747. pTDefRegMap(@Self)^.&set := $20000000;
  47748. end;
  47749. function TOSC_OSCCON.getPLLODIV2 : TBits_1; inline;
  47750. begin
  47751. getPLLODIV2 := (pTDefRegMap(@Self)^.val and $20000000) shr 29;
  47752. end;
  47753. procedure TOSC_OSCCON.setw(thebits : TBits_32); inline;
  47754. begin
  47755. pTDefRegMap(@Self)^.val := thebits;
  47756. end;
  47757. function TOSC_OSCCON.getw : TBits_32; inline;
  47758. begin
  47759. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  47760. end;
  47761. procedure TOSC_OSCTUN.setTUN(thebits : TBits_6); inline;
  47762. begin
  47763. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFC0 or ( thebits shl 0 );
  47764. end;
  47765. function TOSC_OSCTUN.getTUN : TBits_6; inline;
  47766. begin
  47767. getTUN := (pTDefRegMap(@Self)^.val and $0000003F) shr 0;
  47768. end;
  47769. procedure TOSC_OSCTUN.setTUN0; inline;
  47770. begin
  47771. pTDefRegMap(@Self)^.&set := $00000001;
  47772. end;
  47773. procedure TOSC_OSCTUN.clearTUN0; inline;
  47774. begin
  47775. pTDefRegMap(@Self)^.clr := $00000001;
  47776. end;
  47777. procedure TOSC_OSCTUN.setTUN0(thebits : TBits_1); inline;
  47778. begin
  47779. if thebits = 0 then
  47780. pTDefRegMap(@Self)^.clr := $00000001
  47781. else
  47782. pTDefRegMap(@Self)^.&set := $00000001;
  47783. end;
  47784. function TOSC_OSCTUN.getTUN0 : TBits_1; inline;
  47785. begin
  47786. getTUN0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  47787. end;
  47788. procedure TOSC_OSCTUN.setTUN1; inline;
  47789. begin
  47790. pTDefRegMap(@Self)^.&set := $00000002;
  47791. end;
  47792. procedure TOSC_OSCTUN.clearTUN1; inline;
  47793. begin
  47794. pTDefRegMap(@Self)^.clr := $00000002;
  47795. end;
  47796. procedure TOSC_OSCTUN.setTUN1(thebits : TBits_1); inline;
  47797. begin
  47798. if thebits = 0 then
  47799. pTDefRegMap(@Self)^.clr := $00000002
  47800. else
  47801. pTDefRegMap(@Self)^.&set := $00000002;
  47802. end;
  47803. function TOSC_OSCTUN.getTUN1 : TBits_1; inline;
  47804. begin
  47805. getTUN1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  47806. end;
  47807. procedure TOSC_OSCTUN.setTUN2; inline;
  47808. begin
  47809. pTDefRegMap(@Self)^.&set := $00000004;
  47810. end;
  47811. procedure TOSC_OSCTUN.clearTUN2; inline;
  47812. begin
  47813. pTDefRegMap(@Self)^.clr := $00000004;
  47814. end;
  47815. procedure TOSC_OSCTUN.setTUN2(thebits : TBits_1); inline;
  47816. begin
  47817. if thebits = 0 then
  47818. pTDefRegMap(@Self)^.clr := $00000004
  47819. else
  47820. pTDefRegMap(@Self)^.&set := $00000004;
  47821. end;
  47822. function TOSC_OSCTUN.getTUN2 : TBits_1; inline;
  47823. begin
  47824. getTUN2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  47825. end;
  47826. procedure TOSC_OSCTUN.setTUN3; inline;
  47827. begin
  47828. pTDefRegMap(@Self)^.&set := $00000008;
  47829. end;
  47830. procedure TOSC_OSCTUN.clearTUN3; inline;
  47831. begin
  47832. pTDefRegMap(@Self)^.clr := $00000008;
  47833. end;
  47834. procedure TOSC_OSCTUN.setTUN3(thebits : TBits_1); inline;
  47835. begin
  47836. if thebits = 0 then
  47837. pTDefRegMap(@Self)^.clr := $00000008
  47838. else
  47839. pTDefRegMap(@Self)^.&set := $00000008;
  47840. end;
  47841. function TOSC_OSCTUN.getTUN3 : TBits_1; inline;
  47842. begin
  47843. getTUN3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  47844. end;
  47845. procedure TOSC_OSCTUN.setTUN4; inline;
  47846. begin
  47847. pTDefRegMap(@Self)^.&set := $00000010;
  47848. end;
  47849. procedure TOSC_OSCTUN.clearTUN4; inline;
  47850. begin
  47851. pTDefRegMap(@Self)^.clr := $00000010;
  47852. end;
  47853. procedure TOSC_OSCTUN.setTUN4(thebits : TBits_1); inline;
  47854. begin
  47855. if thebits = 0 then
  47856. pTDefRegMap(@Self)^.clr := $00000010
  47857. else
  47858. pTDefRegMap(@Self)^.&set := $00000010;
  47859. end;
  47860. function TOSC_OSCTUN.getTUN4 : TBits_1; inline;
  47861. begin
  47862. getTUN4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  47863. end;
  47864. procedure TOSC_OSCTUN.setTUN5; inline;
  47865. begin
  47866. pTDefRegMap(@Self)^.&set := $00000020;
  47867. end;
  47868. procedure TOSC_OSCTUN.clearTUN5; inline;
  47869. begin
  47870. pTDefRegMap(@Self)^.clr := $00000020;
  47871. end;
  47872. procedure TOSC_OSCTUN.setTUN5(thebits : TBits_1); inline;
  47873. begin
  47874. if thebits = 0 then
  47875. pTDefRegMap(@Self)^.clr := $00000020
  47876. else
  47877. pTDefRegMap(@Self)^.&set := $00000020;
  47878. end;
  47879. function TOSC_OSCTUN.getTUN5 : TBits_1; inline;
  47880. begin
  47881. getTUN5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  47882. end;
  47883. procedure TOSC_OSCTUN.setw(thebits : TBits_32); inline;
  47884. begin
  47885. pTDefRegMap(@Self)^.val := thebits;
  47886. end;
  47887. function TOSC_OSCTUN.getw : TBits_32; inline;
  47888. begin
  47889. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  47890. end;
  47891. procedure TNVM_NVMCON.setNVMOP(thebits : TBits_4); inline;
  47892. begin
  47893. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF0 or ( thebits shl 0 );
  47894. end;
  47895. function TNVM_NVMCON.getNVMOP : TBits_4; inline;
  47896. begin
  47897. getNVMOP := (pTDefRegMap(@Self)^.val and $0000000F) shr 0;
  47898. end;
  47899. procedure TNVM_NVMCON.setLVDSTAT; inline;
  47900. begin
  47901. pTDefRegMap(@Self)^.&set := $00000800;
  47902. end;
  47903. procedure TNVM_NVMCON.clearLVDSTAT; inline;
  47904. begin
  47905. pTDefRegMap(@Self)^.clr := $00000800;
  47906. end;
  47907. procedure TNVM_NVMCON.setLVDSTAT(thebits : TBits_1); inline;
  47908. begin
  47909. if thebits = 0 then
  47910. pTDefRegMap(@Self)^.clr := $00000800
  47911. else
  47912. pTDefRegMap(@Self)^.&set := $00000800;
  47913. end;
  47914. function TNVM_NVMCON.getLVDSTAT : TBits_1; inline;
  47915. begin
  47916. getLVDSTAT := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  47917. end;
  47918. procedure TNVM_NVMCON.setLVDERR; inline;
  47919. begin
  47920. pTDefRegMap(@Self)^.&set := $00001000;
  47921. end;
  47922. procedure TNVM_NVMCON.clearLVDERR; inline;
  47923. begin
  47924. pTDefRegMap(@Self)^.clr := $00001000;
  47925. end;
  47926. procedure TNVM_NVMCON.setLVDERR(thebits : TBits_1); inline;
  47927. begin
  47928. if thebits = 0 then
  47929. pTDefRegMap(@Self)^.clr := $00001000
  47930. else
  47931. pTDefRegMap(@Self)^.&set := $00001000;
  47932. end;
  47933. function TNVM_NVMCON.getLVDERR : TBits_1; inline;
  47934. begin
  47935. getLVDERR := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  47936. end;
  47937. procedure TNVM_NVMCON.setWRERR; inline;
  47938. begin
  47939. pTDefRegMap(@Self)^.&set := $00002000;
  47940. end;
  47941. procedure TNVM_NVMCON.clearWRERR; inline;
  47942. begin
  47943. pTDefRegMap(@Self)^.clr := $00002000;
  47944. end;
  47945. procedure TNVM_NVMCON.setWRERR(thebits : TBits_1); inline;
  47946. begin
  47947. if thebits = 0 then
  47948. pTDefRegMap(@Self)^.clr := $00002000
  47949. else
  47950. pTDefRegMap(@Self)^.&set := $00002000;
  47951. end;
  47952. function TNVM_NVMCON.getWRERR : TBits_1; inline;
  47953. begin
  47954. getWRERR := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  47955. end;
  47956. procedure TNVM_NVMCON.setWREN; inline;
  47957. begin
  47958. pTDefRegMap(@Self)^.&set := $00004000;
  47959. end;
  47960. procedure TNVM_NVMCON.clearWREN; inline;
  47961. begin
  47962. pTDefRegMap(@Self)^.clr := $00004000;
  47963. end;
  47964. procedure TNVM_NVMCON.setWREN(thebits : TBits_1); inline;
  47965. begin
  47966. if thebits = 0 then
  47967. pTDefRegMap(@Self)^.clr := $00004000
  47968. else
  47969. pTDefRegMap(@Self)^.&set := $00004000;
  47970. end;
  47971. function TNVM_NVMCON.getWREN : TBits_1; inline;
  47972. begin
  47973. getWREN := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  47974. end;
  47975. procedure TNVM_NVMCON.setWR; inline;
  47976. begin
  47977. pTDefRegMap(@Self)^.&set := $00008000;
  47978. end;
  47979. procedure TNVM_NVMCON.clearWR; inline;
  47980. begin
  47981. pTDefRegMap(@Self)^.clr := $00008000;
  47982. end;
  47983. procedure TNVM_NVMCON.setWR(thebits : TBits_1); inline;
  47984. begin
  47985. if thebits = 0 then
  47986. pTDefRegMap(@Self)^.clr := $00008000
  47987. else
  47988. pTDefRegMap(@Self)^.&set := $00008000;
  47989. end;
  47990. function TNVM_NVMCON.getWR : TBits_1; inline;
  47991. begin
  47992. getWR := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  47993. end;
  47994. procedure TNVM_NVMCON.setNVMOP0; inline;
  47995. begin
  47996. pTDefRegMap(@Self)^.&set := $00000001;
  47997. end;
  47998. procedure TNVM_NVMCON.clearNVMOP0; inline;
  47999. begin
  48000. pTDefRegMap(@Self)^.clr := $00000001;
  48001. end;
  48002. procedure TNVM_NVMCON.setNVMOP0(thebits : TBits_1); inline;
  48003. begin
  48004. if thebits = 0 then
  48005. pTDefRegMap(@Self)^.clr := $00000001
  48006. else
  48007. pTDefRegMap(@Self)^.&set := $00000001;
  48008. end;
  48009. function TNVM_NVMCON.getNVMOP0 : TBits_1; inline;
  48010. begin
  48011. getNVMOP0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  48012. end;
  48013. procedure TNVM_NVMCON.setNVMOP1; inline;
  48014. begin
  48015. pTDefRegMap(@Self)^.&set := $00000002;
  48016. end;
  48017. procedure TNVM_NVMCON.clearNVMOP1; inline;
  48018. begin
  48019. pTDefRegMap(@Self)^.clr := $00000002;
  48020. end;
  48021. procedure TNVM_NVMCON.setNVMOP1(thebits : TBits_1); inline;
  48022. begin
  48023. if thebits = 0 then
  48024. pTDefRegMap(@Self)^.clr := $00000002
  48025. else
  48026. pTDefRegMap(@Self)^.&set := $00000002;
  48027. end;
  48028. function TNVM_NVMCON.getNVMOP1 : TBits_1; inline;
  48029. begin
  48030. getNVMOP1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  48031. end;
  48032. procedure TNVM_NVMCON.setNVMOP2; inline;
  48033. begin
  48034. pTDefRegMap(@Self)^.&set := $00000004;
  48035. end;
  48036. procedure TNVM_NVMCON.clearNVMOP2; inline;
  48037. begin
  48038. pTDefRegMap(@Self)^.clr := $00000004;
  48039. end;
  48040. procedure TNVM_NVMCON.setNVMOP2(thebits : TBits_1); inline;
  48041. begin
  48042. if thebits = 0 then
  48043. pTDefRegMap(@Self)^.clr := $00000004
  48044. else
  48045. pTDefRegMap(@Self)^.&set := $00000004;
  48046. end;
  48047. function TNVM_NVMCON.getNVMOP2 : TBits_1; inline;
  48048. begin
  48049. getNVMOP2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  48050. end;
  48051. procedure TNVM_NVMCON.setNVMOP3; inline;
  48052. begin
  48053. pTDefRegMap(@Self)^.&set := $00000008;
  48054. end;
  48055. procedure TNVM_NVMCON.clearNVMOP3; inline;
  48056. begin
  48057. pTDefRegMap(@Self)^.clr := $00000008;
  48058. end;
  48059. procedure TNVM_NVMCON.setNVMOP3(thebits : TBits_1); inline;
  48060. begin
  48061. if thebits = 0 then
  48062. pTDefRegMap(@Self)^.clr := $00000008
  48063. else
  48064. pTDefRegMap(@Self)^.&set := $00000008;
  48065. end;
  48066. function TNVM_NVMCON.getNVMOP3 : TBits_1; inline;
  48067. begin
  48068. getNVMOP3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  48069. end;
  48070. procedure TNVM_NVMCON.setPROGOP(thebits : TBits_4); inline;
  48071. begin
  48072. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF0 or ( thebits shl 0 );
  48073. end;
  48074. function TNVM_NVMCON.getPROGOP : TBits_4; inline;
  48075. begin
  48076. getPROGOP := (pTDefRegMap(@Self)^.val and $0000000F) shr 0;
  48077. end;
  48078. procedure TNVM_NVMCON.setPROGOP0; inline;
  48079. begin
  48080. pTDefRegMap(@Self)^.&set := $00000001;
  48081. end;
  48082. procedure TNVM_NVMCON.clearPROGOP0; inline;
  48083. begin
  48084. pTDefRegMap(@Self)^.clr := $00000001;
  48085. end;
  48086. procedure TNVM_NVMCON.setPROGOP0(thebits : TBits_1); inline;
  48087. begin
  48088. if thebits = 0 then
  48089. pTDefRegMap(@Self)^.clr := $00000001
  48090. else
  48091. pTDefRegMap(@Self)^.&set := $00000001;
  48092. end;
  48093. function TNVM_NVMCON.getPROGOP0 : TBits_1; inline;
  48094. begin
  48095. getPROGOP0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  48096. end;
  48097. procedure TNVM_NVMCON.setPROGOP1; inline;
  48098. begin
  48099. pTDefRegMap(@Self)^.&set := $00000002;
  48100. end;
  48101. procedure TNVM_NVMCON.clearPROGOP1; inline;
  48102. begin
  48103. pTDefRegMap(@Self)^.clr := $00000002;
  48104. end;
  48105. procedure TNVM_NVMCON.setPROGOP1(thebits : TBits_1); inline;
  48106. begin
  48107. if thebits = 0 then
  48108. pTDefRegMap(@Self)^.clr := $00000002
  48109. else
  48110. pTDefRegMap(@Self)^.&set := $00000002;
  48111. end;
  48112. function TNVM_NVMCON.getPROGOP1 : TBits_1; inline;
  48113. begin
  48114. getPROGOP1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  48115. end;
  48116. procedure TNVM_NVMCON.setPROGOP2; inline;
  48117. begin
  48118. pTDefRegMap(@Self)^.&set := $00000004;
  48119. end;
  48120. procedure TNVM_NVMCON.clearPROGOP2; inline;
  48121. begin
  48122. pTDefRegMap(@Self)^.clr := $00000004;
  48123. end;
  48124. procedure TNVM_NVMCON.setPROGOP2(thebits : TBits_1); inline;
  48125. begin
  48126. if thebits = 0 then
  48127. pTDefRegMap(@Self)^.clr := $00000004
  48128. else
  48129. pTDefRegMap(@Self)^.&set := $00000004;
  48130. end;
  48131. function TNVM_NVMCON.getPROGOP2 : TBits_1; inline;
  48132. begin
  48133. getPROGOP2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  48134. end;
  48135. procedure TNVM_NVMCON.setPROGOP3; inline;
  48136. begin
  48137. pTDefRegMap(@Self)^.&set := $00000008;
  48138. end;
  48139. procedure TNVM_NVMCON.clearPROGOP3; inline;
  48140. begin
  48141. pTDefRegMap(@Self)^.clr := $00000008;
  48142. end;
  48143. procedure TNVM_NVMCON.setPROGOP3(thebits : TBits_1); inline;
  48144. begin
  48145. if thebits = 0 then
  48146. pTDefRegMap(@Self)^.clr := $00000008
  48147. else
  48148. pTDefRegMap(@Self)^.&set := $00000008;
  48149. end;
  48150. function TNVM_NVMCON.getPROGOP3 : TBits_1; inline;
  48151. begin
  48152. getPROGOP3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  48153. end;
  48154. procedure TNVM_NVMCON.setw(thebits : TBits_32); inline;
  48155. begin
  48156. pTDefRegMap(@Self)^.val := thebits;
  48157. end;
  48158. function TNVM_NVMCON.getw : TBits_32; inline;
  48159. begin
  48160. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  48161. end;
  48162. procedure TRCON_RCON.setPOR; inline;
  48163. begin
  48164. pTDefRegMap(@Self)^.&set := $00000001;
  48165. end;
  48166. procedure TRCON_RCON.clearPOR; inline;
  48167. begin
  48168. pTDefRegMap(@Self)^.clr := $00000001;
  48169. end;
  48170. procedure TRCON_RCON.setPOR(thebits : TBits_1); inline;
  48171. begin
  48172. if thebits = 0 then
  48173. pTDefRegMap(@Self)^.clr := $00000001
  48174. else
  48175. pTDefRegMap(@Self)^.&set := $00000001;
  48176. end;
  48177. function TRCON_RCON.getPOR : TBits_1; inline;
  48178. begin
  48179. getPOR := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  48180. end;
  48181. procedure TRCON_RCON.setBOR; inline;
  48182. begin
  48183. pTDefRegMap(@Self)^.&set := $00000002;
  48184. end;
  48185. procedure TRCON_RCON.clearBOR; inline;
  48186. begin
  48187. pTDefRegMap(@Self)^.clr := $00000002;
  48188. end;
  48189. procedure TRCON_RCON.setBOR(thebits : TBits_1); inline;
  48190. begin
  48191. if thebits = 0 then
  48192. pTDefRegMap(@Self)^.clr := $00000002
  48193. else
  48194. pTDefRegMap(@Self)^.&set := $00000002;
  48195. end;
  48196. function TRCON_RCON.getBOR : TBits_1; inline;
  48197. begin
  48198. getBOR := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  48199. end;
  48200. procedure TRCON_RCON.setIDLE; inline;
  48201. begin
  48202. pTDefRegMap(@Self)^.&set := $00000004;
  48203. end;
  48204. procedure TRCON_RCON.clearIDLE; inline;
  48205. begin
  48206. pTDefRegMap(@Self)^.clr := $00000004;
  48207. end;
  48208. procedure TRCON_RCON.setIDLE(thebits : TBits_1); inline;
  48209. begin
  48210. if thebits = 0 then
  48211. pTDefRegMap(@Self)^.clr := $00000004
  48212. else
  48213. pTDefRegMap(@Self)^.&set := $00000004;
  48214. end;
  48215. function TRCON_RCON.getIDLE : TBits_1; inline;
  48216. begin
  48217. getIDLE := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  48218. end;
  48219. procedure TRCON_RCON.setSLEEP; inline;
  48220. begin
  48221. pTDefRegMap(@Self)^.&set := $00000008;
  48222. end;
  48223. procedure TRCON_RCON.clearSLEEP; inline;
  48224. begin
  48225. pTDefRegMap(@Self)^.clr := $00000008;
  48226. end;
  48227. procedure TRCON_RCON.setSLEEP(thebits : TBits_1); inline;
  48228. begin
  48229. if thebits = 0 then
  48230. pTDefRegMap(@Self)^.clr := $00000008
  48231. else
  48232. pTDefRegMap(@Self)^.&set := $00000008;
  48233. end;
  48234. function TRCON_RCON.getSLEEP : TBits_1; inline;
  48235. begin
  48236. getSLEEP := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  48237. end;
  48238. procedure TRCON_RCON.setWDTO; inline;
  48239. begin
  48240. pTDefRegMap(@Self)^.&set := $00000010;
  48241. end;
  48242. procedure TRCON_RCON.clearWDTO; inline;
  48243. begin
  48244. pTDefRegMap(@Self)^.clr := $00000010;
  48245. end;
  48246. procedure TRCON_RCON.setWDTO(thebits : TBits_1); inline;
  48247. begin
  48248. if thebits = 0 then
  48249. pTDefRegMap(@Self)^.clr := $00000010
  48250. else
  48251. pTDefRegMap(@Self)^.&set := $00000010;
  48252. end;
  48253. function TRCON_RCON.getWDTO : TBits_1; inline;
  48254. begin
  48255. getWDTO := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  48256. end;
  48257. procedure TRCON_RCON.setSWR; inline;
  48258. begin
  48259. pTDefRegMap(@Self)^.&set := $00000040;
  48260. end;
  48261. procedure TRCON_RCON.clearSWR; inline;
  48262. begin
  48263. pTDefRegMap(@Self)^.clr := $00000040;
  48264. end;
  48265. procedure TRCON_RCON.setSWR(thebits : TBits_1); inline;
  48266. begin
  48267. if thebits = 0 then
  48268. pTDefRegMap(@Self)^.clr := $00000040
  48269. else
  48270. pTDefRegMap(@Self)^.&set := $00000040;
  48271. end;
  48272. function TRCON_RCON.getSWR : TBits_1; inline;
  48273. begin
  48274. getSWR := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  48275. end;
  48276. procedure TRCON_RCON.setEXTR; inline;
  48277. begin
  48278. pTDefRegMap(@Self)^.&set := $00000080;
  48279. end;
  48280. procedure TRCON_RCON.clearEXTR; inline;
  48281. begin
  48282. pTDefRegMap(@Self)^.clr := $00000080;
  48283. end;
  48284. procedure TRCON_RCON.setEXTR(thebits : TBits_1); inline;
  48285. begin
  48286. if thebits = 0 then
  48287. pTDefRegMap(@Self)^.clr := $00000080
  48288. else
  48289. pTDefRegMap(@Self)^.&set := $00000080;
  48290. end;
  48291. function TRCON_RCON.getEXTR : TBits_1; inline;
  48292. begin
  48293. getEXTR := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  48294. end;
  48295. procedure TRCON_RCON.setVREGS; inline;
  48296. begin
  48297. pTDefRegMap(@Self)^.&set := $00000100;
  48298. end;
  48299. procedure TRCON_RCON.clearVREGS; inline;
  48300. begin
  48301. pTDefRegMap(@Self)^.clr := $00000100;
  48302. end;
  48303. procedure TRCON_RCON.setVREGS(thebits : TBits_1); inline;
  48304. begin
  48305. if thebits = 0 then
  48306. pTDefRegMap(@Self)^.clr := $00000100
  48307. else
  48308. pTDefRegMap(@Self)^.&set := $00000100;
  48309. end;
  48310. function TRCON_RCON.getVREGS : TBits_1; inline;
  48311. begin
  48312. getVREGS := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  48313. end;
  48314. procedure TRCON_RCON.setCMR; inline;
  48315. begin
  48316. pTDefRegMap(@Self)^.&set := $00000200;
  48317. end;
  48318. procedure TRCON_RCON.clearCMR; inline;
  48319. begin
  48320. pTDefRegMap(@Self)^.clr := $00000200;
  48321. end;
  48322. procedure TRCON_RCON.setCMR(thebits : TBits_1); inline;
  48323. begin
  48324. if thebits = 0 then
  48325. pTDefRegMap(@Self)^.clr := $00000200
  48326. else
  48327. pTDefRegMap(@Self)^.&set := $00000200;
  48328. end;
  48329. function TRCON_RCON.getCMR : TBits_1; inline;
  48330. begin
  48331. getCMR := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  48332. end;
  48333. procedure TRCON_RCON.setw(thebits : TBits_32); inline;
  48334. begin
  48335. pTDefRegMap(@Self)^.val := thebits;
  48336. end;
  48337. function TRCON_RCON.getw : TBits_32; inline;
  48338. begin
  48339. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  48340. end;
  48341. procedure TRCON_RSWRST.setSWRST; inline;
  48342. begin
  48343. pTDefRegMap(@Self)^.&set := $00000001;
  48344. end;
  48345. procedure TRCON_RSWRST.clearSWRST; inline;
  48346. begin
  48347. pTDefRegMap(@Self)^.clr := $00000001;
  48348. end;
  48349. procedure TRCON_RSWRST.setSWRST(thebits : TBits_1); inline;
  48350. begin
  48351. if thebits = 0 then
  48352. pTDefRegMap(@Self)^.clr := $00000001
  48353. else
  48354. pTDefRegMap(@Self)^.&set := $00000001;
  48355. end;
  48356. function TRCON_RSWRST.getSWRST : TBits_1; inline;
  48357. begin
  48358. getSWRST := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  48359. end;
  48360. procedure TRCON_RSWRST.setw(thebits : TBits_32); inline;
  48361. begin
  48362. pTDefRegMap(@Self)^.val := thebits;
  48363. end;
  48364. function TRCON_RSWRST.getw : TBits_32; inline;
  48365. begin
  48366. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  48367. end;
  48368. procedure TINT_INTCON.setINT0EP; inline;
  48369. begin
  48370. pTDefRegMap(@Self)^.&set := $00000001;
  48371. end;
  48372. procedure TINT_INTCON.clearINT0EP; inline;
  48373. begin
  48374. pTDefRegMap(@Self)^.clr := $00000001;
  48375. end;
  48376. procedure TINT_INTCON.setINT0EP(thebits : TBits_1); inline;
  48377. begin
  48378. if thebits = 0 then
  48379. pTDefRegMap(@Self)^.clr := $00000001
  48380. else
  48381. pTDefRegMap(@Self)^.&set := $00000001;
  48382. end;
  48383. function TINT_INTCON.getINT0EP : TBits_1; inline;
  48384. begin
  48385. getINT0EP := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  48386. end;
  48387. procedure TINT_INTCON.setINT1EP; inline;
  48388. begin
  48389. pTDefRegMap(@Self)^.&set := $00000002;
  48390. end;
  48391. procedure TINT_INTCON.clearINT1EP; inline;
  48392. begin
  48393. pTDefRegMap(@Self)^.clr := $00000002;
  48394. end;
  48395. procedure TINT_INTCON.setINT1EP(thebits : TBits_1); inline;
  48396. begin
  48397. if thebits = 0 then
  48398. pTDefRegMap(@Self)^.clr := $00000002
  48399. else
  48400. pTDefRegMap(@Self)^.&set := $00000002;
  48401. end;
  48402. function TINT_INTCON.getINT1EP : TBits_1; inline;
  48403. begin
  48404. getINT1EP := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  48405. end;
  48406. procedure TINT_INTCON.setINT2EP; inline;
  48407. begin
  48408. pTDefRegMap(@Self)^.&set := $00000004;
  48409. end;
  48410. procedure TINT_INTCON.clearINT2EP; inline;
  48411. begin
  48412. pTDefRegMap(@Self)^.clr := $00000004;
  48413. end;
  48414. procedure TINT_INTCON.setINT2EP(thebits : TBits_1); inline;
  48415. begin
  48416. if thebits = 0 then
  48417. pTDefRegMap(@Self)^.clr := $00000004
  48418. else
  48419. pTDefRegMap(@Self)^.&set := $00000004;
  48420. end;
  48421. function TINT_INTCON.getINT2EP : TBits_1; inline;
  48422. begin
  48423. getINT2EP := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  48424. end;
  48425. procedure TINT_INTCON.setINT3EP; inline;
  48426. begin
  48427. pTDefRegMap(@Self)^.&set := $00000008;
  48428. end;
  48429. procedure TINT_INTCON.clearINT3EP; inline;
  48430. begin
  48431. pTDefRegMap(@Self)^.clr := $00000008;
  48432. end;
  48433. procedure TINT_INTCON.setINT3EP(thebits : TBits_1); inline;
  48434. begin
  48435. if thebits = 0 then
  48436. pTDefRegMap(@Self)^.clr := $00000008
  48437. else
  48438. pTDefRegMap(@Self)^.&set := $00000008;
  48439. end;
  48440. function TINT_INTCON.getINT3EP : TBits_1; inline;
  48441. begin
  48442. getINT3EP := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  48443. end;
  48444. procedure TINT_INTCON.setINT4EP; inline;
  48445. begin
  48446. pTDefRegMap(@Self)^.&set := $00000010;
  48447. end;
  48448. procedure TINT_INTCON.clearINT4EP; inline;
  48449. begin
  48450. pTDefRegMap(@Self)^.clr := $00000010;
  48451. end;
  48452. procedure TINT_INTCON.setINT4EP(thebits : TBits_1); inline;
  48453. begin
  48454. if thebits = 0 then
  48455. pTDefRegMap(@Self)^.clr := $00000010
  48456. else
  48457. pTDefRegMap(@Self)^.&set := $00000010;
  48458. end;
  48459. function TINT_INTCON.getINT4EP : TBits_1; inline;
  48460. begin
  48461. getINT4EP := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  48462. end;
  48463. procedure TINT_INTCON.setTPC(thebits : TBits_3); inline;
  48464. begin
  48465. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFF8FF or ( thebits shl 8 );
  48466. end;
  48467. function TINT_INTCON.getTPC : TBits_3; inline;
  48468. begin
  48469. getTPC := (pTDefRegMap(@Self)^.val and $00000700) shr 8;
  48470. end;
  48471. procedure TINT_INTCON.setMVEC; inline;
  48472. begin
  48473. pTDefRegMap(@Self)^.&set := $00001000;
  48474. end;
  48475. procedure TINT_INTCON.clearMVEC; inline;
  48476. begin
  48477. pTDefRegMap(@Self)^.clr := $00001000;
  48478. end;
  48479. procedure TINT_INTCON.setMVEC(thebits : TBits_1); inline;
  48480. begin
  48481. if thebits = 0 then
  48482. pTDefRegMap(@Self)^.clr := $00001000
  48483. else
  48484. pTDefRegMap(@Self)^.&set := $00001000;
  48485. end;
  48486. function TINT_INTCON.getMVEC : TBits_1; inline;
  48487. begin
  48488. getMVEC := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  48489. end;
  48490. procedure TINT_INTCON.setFRZ; inline;
  48491. begin
  48492. pTDefRegMap(@Self)^.&set := $00004000;
  48493. end;
  48494. procedure TINT_INTCON.clearFRZ; inline;
  48495. begin
  48496. pTDefRegMap(@Self)^.clr := $00004000;
  48497. end;
  48498. procedure TINT_INTCON.setFRZ(thebits : TBits_1); inline;
  48499. begin
  48500. if thebits = 0 then
  48501. pTDefRegMap(@Self)^.clr := $00004000
  48502. else
  48503. pTDefRegMap(@Self)^.&set := $00004000;
  48504. end;
  48505. function TINT_INTCON.getFRZ : TBits_1; inline;
  48506. begin
  48507. getFRZ := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  48508. end;
  48509. procedure TINT_INTCON.setSS0; inline;
  48510. begin
  48511. pTDefRegMap(@Self)^.&set := $00010000;
  48512. end;
  48513. procedure TINT_INTCON.clearSS0; inline;
  48514. begin
  48515. pTDefRegMap(@Self)^.clr := $00010000;
  48516. end;
  48517. procedure TINT_INTCON.setSS0(thebits : TBits_1); inline;
  48518. begin
  48519. if thebits = 0 then
  48520. pTDefRegMap(@Self)^.clr := $00010000
  48521. else
  48522. pTDefRegMap(@Self)^.&set := $00010000;
  48523. end;
  48524. function TINT_INTCON.getSS0 : TBits_1; inline;
  48525. begin
  48526. getSS0 := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  48527. end;
  48528. procedure TINT_INTCON.setw(thebits : TBits_32); inline;
  48529. begin
  48530. pTDefRegMap(@Self)^.val := thebits;
  48531. end;
  48532. function TINT_INTCON.getw : TBits_32; inline;
  48533. begin
  48534. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  48535. end;
  48536. procedure TINT_IFS0.setCTIF; inline;
  48537. begin
  48538. pTDefRegMap(@Self)^.&set := $00000001;
  48539. end;
  48540. procedure TINT_IFS0.clearCTIF; inline;
  48541. begin
  48542. pTDefRegMap(@Self)^.clr := $00000001;
  48543. end;
  48544. procedure TINT_IFS0.setCTIF(thebits : TBits_1); inline;
  48545. begin
  48546. if thebits = 0 then
  48547. pTDefRegMap(@Self)^.clr := $00000001
  48548. else
  48549. pTDefRegMap(@Self)^.&set := $00000001;
  48550. end;
  48551. function TINT_IFS0.getCTIF : TBits_1; inline;
  48552. begin
  48553. getCTIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  48554. end;
  48555. procedure TINT_IFS0.setCS0IF; inline;
  48556. begin
  48557. pTDefRegMap(@Self)^.&set := $00000002;
  48558. end;
  48559. procedure TINT_IFS0.clearCS0IF; inline;
  48560. begin
  48561. pTDefRegMap(@Self)^.clr := $00000002;
  48562. end;
  48563. procedure TINT_IFS0.setCS0IF(thebits : TBits_1); inline;
  48564. begin
  48565. if thebits = 0 then
  48566. pTDefRegMap(@Self)^.clr := $00000002
  48567. else
  48568. pTDefRegMap(@Self)^.&set := $00000002;
  48569. end;
  48570. function TINT_IFS0.getCS0IF : TBits_1; inline;
  48571. begin
  48572. getCS0IF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  48573. end;
  48574. procedure TINT_IFS0.setCS1IF; inline;
  48575. begin
  48576. pTDefRegMap(@Self)^.&set := $00000004;
  48577. end;
  48578. procedure TINT_IFS0.clearCS1IF; inline;
  48579. begin
  48580. pTDefRegMap(@Self)^.clr := $00000004;
  48581. end;
  48582. procedure TINT_IFS0.setCS1IF(thebits : TBits_1); inline;
  48583. begin
  48584. if thebits = 0 then
  48585. pTDefRegMap(@Self)^.clr := $00000004
  48586. else
  48587. pTDefRegMap(@Self)^.&set := $00000004;
  48588. end;
  48589. function TINT_IFS0.getCS1IF : TBits_1; inline;
  48590. begin
  48591. getCS1IF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  48592. end;
  48593. procedure TINT_IFS0.setINT0IF; inline;
  48594. begin
  48595. pTDefRegMap(@Self)^.&set := $00000008;
  48596. end;
  48597. procedure TINT_IFS0.clearINT0IF; inline;
  48598. begin
  48599. pTDefRegMap(@Self)^.clr := $00000008;
  48600. end;
  48601. procedure TINT_IFS0.setINT0IF(thebits : TBits_1); inline;
  48602. begin
  48603. if thebits = 0 then
  48604. pTDefRegMap(@Self)^.clr := $00000008
  48605. else
  48606. pTDefRegMap(@Self)^.&set := $00000008;
  48607. end;
  48608. function TINT_IFS0.getINT0IF : TBits_1; inline;
  48609. begin
  48610. getINT0IF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  48611. end;
  48612. procedure TINT_IFS0.setT1IF; inline;
  48613. begin
  48614. pTDefRegMap(@Self)^.&set := $00000010;
  48615. end;
  48616. procedure TINT_IFS0.clearT1IF; inline;
  48617. begin
  48618. pTDefRegMap(@Self)^.clr := $00000010;
  48619. end;
  48620. procedure TINT_IFS0.setT1IF(thebits : TBits_1); inline;
  48621. begin
  48622. if thebits = 0 then
  48623. pTDefRegMap(@Self)^.clr := $00000010
  48624. else
  48625. pTDefRegMap(@Self)^.&set := $00000010;
  48626. end;
  48627. function TINT_IFS0.getT1IF : TBits_1; inline;
  48628. begin
  48629. getT1IF := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  48630. end;
  48631. procedure TINT_IFS0.setIC1IF; inline;
  48632. begin
  48633. pTDefRegMap(@Self)^.&set := $00000020;
  48634. end;
  48635. procedure TINT_IFS0.clearIC1IF; inline;
  48636. begin
  48637. pTDefRegMap(@Self)^.clr := $00000020;
  48638. end;
  48639. procedure TINT_IFS0.setIC1IF(thebits : TBits_1); inline;
  48640. begin
  48641. if thebits = 0 then
  48642. pTDefRegMap(@Self)^.clr := $00000020
  48643. else
  48644. pTDefRegMap(@Self)^.&set := $00000020;
  48645. end;
  48646. function TINT_IFS0.getIC1IF : TBits_1; inline;
  48647. begin
  48648. getIC1IF := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  48649. end;
  48650. procedure TINT_IFS0.setOC1IF; inline;
  48651. begin
  48652. pTDefRegMap(@Self)^.&set := $00000040;
  48653. end;
  48654. procedure TINT_IFS0.clearOC1IF; inline;
  48655. begin
  48656. pTDefRegMap(@Self)^.clr := $00000040;
  48657. end;
  48658. procedure TINT_IFS0.setOC1IF(thebits : TBits_1); inline;
  48659. begin
  48660. if thebits = 0 then
  48661. pTDefRegMap(@Self)^.clr := $00000040
  48662. else
  48663. pTDefRegMap(@Self)^.&set := $00000040;
  48664. end;
  48665. function TINT_IFS0.getOC1IF : TBits_1; inline;
  48666. begin
  48667. getOC1IF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  48668. end;
  48669. procedure TINT_IFS0.setINT1IF; inline;
  48670. begin
  48671. pTDefRegMap(@Self)^.&set := $00000080;
  48672. end;
  48673. procedure TINT_IFS0.clearINT1IF; inline;
  48674. begin
  48675. pTDefRegMap(@Self)^.clr := $00000080;
  48676. end;
  48677. procedure TINT_IFS0.setINT1IF(thebits : TBits_1); inline;
  48678. begin
  48679. if thebits = 0 then
  48680. pTDefRegMap(@Self)^.clr := $00000080
  48681. else
  48682. pTDefRegMap(@Self)^.&set := $00000080;
  48683. end;
  48684. function TINT_IFS0.getINT1IF : TBits_1; inline;
  48685. begin
  48686. getINT1IF := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  48687. end;
  48688. procedure TINT_IFS0.setT2IF; inline;
  48689. begin
  48690. pTDefRegMap(@Self)^.&set := $00000100;
  48691. end;
  48692. procedure TINT_IFS0.clearT2IF; inline;
  48693. begin
  48694. pTDefRegMap(@Self)^.clr := $00000100;
  48695. end;
  48696. procedure TINT_IFS0.setT2IF(thebits : TBits_1); inline;
  48697. begin
  48698. if thebits = 0 then
  48699. pTDefRegMap(@Self)^.clr := $00000100
  48700. else
  48701. pTDefRegMap(@Self)^.&set := $00000100;
  48702. end;
  48703. function TINT_IFS0.getT2IF : TBits_1; inline;
  48704. begin
  48705. getT2IF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  48706. end;
  48707. procedure TINT_IFS0.setIC2IF; inline;
  48708. begin
  48709. pTDefRegMap(@Self)^.&set := $00000200;
  48710. end;
  48711. procedure TINT_IFS0.clearIC2IF; inline;
  48712. begin
  48713. pTDefRegMap(@Self)^.clr := $00000200;
  48714. end;
  48715. procedure TINT_IFS0.setIC2IF(thebits : TBits_1); inline;
  48716. begin
  48717. if thebits = 0 then
  48718. pTDefRegMap(@Self)^.clr := $00000200
  48719. else
  48720. pTDefRegMap(@Self)^.&set := $00000200;
  48721. end;
  48722. function TINT_IFS0.getIC2IF : TBits_1; inline;
  48723. begin
  48724. getIC2IF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  48725. end;
  48726. procedure TINT_IFS0.setOC2IF; inline;
  48727. begin
  48728. pTDefRegMap(@Self)^.&set := $00000400;
  48729. end;
  48730. procedure TINT_IFS0.clearOC2IF; inline;
  48731. begin
  48732. pTDefRegMap(@Self)^.clr := $00000400;
  48733. end;
  48734. procedure TINT_IFS0.setOC2IF(thebits : TBits_1); inline;
  48735. begin
  48736. if thebits = 0 then
  48737. pTDefRegMap(@Self)^.clr := $00000400
  48738. else
  48739. pTDefRegMap(@Self)^.&set := $00000400;
  48740. end;
  48741. function TINT_IFS0.getOC2IF : TBits_1; inline;
  48742. begin
  48743. getOC2IF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  48744. end;
  48745. procedure TINT_IFS0.setINT2IF; inline;
  48746. begin
  48747. pTDefRegMap(@Self)^.&set := $00000800;
  48748. end;
  48749. procedure TINT_IFS0.clearINT2IF; inline;
  48750. begin
  48751. pTDefRegMap(@Self)^.clr := $00000800;
  48752. end;
  48753. procedure TINT_IFS0.setINT2IF(thebits : TBits_1); inline;
  48754. begin
  48755. if thebits = 0 then
  48756. pTDefRegMap(@Self)^.clr := $00000800
  48757. else
  48758. pTDefRegMap(@Self)^.&set := $00000800;
  48759. end;
  48760. function TINT_IFS0.getINT2IF : TBits_1; inline;
  48761. begin
  48762. getINT2IF := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  48763. end;
  48764. procedure TINT_IFS0.setT3IF; inline;
  48765. begin
  48766. pTDefRegMap(@Self)^.&set := $00001000;
  48767. end;
  48768. procedure TINT_IFS0.clearT3IF; inline;
  48769. begin
  48770. pTDefRegMap(@Self)^.clr := $00001000;
  48771. end;
  48772. procedure TINT_IFS0.setT3IF(thebits : TBits_1); inline;
  48773. begin
  48774. if thebits = 0 then
  48775. pTDefRegMap(@Self)^.clr := $00001000
  48776. else
  48777. pTDefRegMap(@Self)^.&set := $00001000;
  48778. end;
  48779. function TINT_IFS0.getT3IF : TBits_1; inline;
  48780. begin
  48781. getT3IF := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  48782. end;
  48783. procedure TINT_IFS0.setIC3IF; inline;
  48784. begin
  48785. pTDefRegMap(@Self)^.&set := $00002000;
  48786. end;
  48787. procedure TINT_IFS0.clearIC3IF; inline;
  48788. begin
  48789. pTDefRegMap(@Self)^.clr := $00002000;
  48790. end;
  48791. procedure TINT_IFS0.setIC3IF(thebits : TBits_1); inline;
  48792. begin
  48793. if thebits = 0 then
  48794. pTDefRegMap(@Self)^.clr := $00002000
  48795. else
  48796. pTDefRegMap(@Self)^.&set := $00002000;
  48797. end;
  48798. function TINT_IFS0.getIC3IF : TBits_1; inline;
  48799. begin
  48800. getIC3IF := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  48801. end;
  48802. procedure TINT_IFS0.setOC3IF; inline;
  48803. begin
  48804. pTDefRegMap(@Self)^.&set := $00004000;
  48805. end;
  48806. procedure TINT_IFS0.clearOC3IF; inline;
  48807. begin
  48808. pTDefRegMap(@Self)^.clr := $00004000;
  48809. end;
  48810. procedure TINT_IFS0.setOC3IF(thebits : TBits_1); inline;
  48811. begin
  48812. if thebits = 0 then
  48813. pTDefRegMap(@Self)^.clr := $00004000
  48814. else
  48815. pTDefRegMap(@Self)^.&set := $00004000;
  48816. end;
  48817. function TINT_IFS0.getOC3IF : TBits_1; inline;
  48818. begin
  48819. getOC3IF := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  48820. end;
  48821. procedure TINT_IFS0.setINT3IF; inline;
  48822. begin
  48823. pTDefRegMap(@Self)^.&set := $00008000;
  48824. end;
  48825. procedure TINT_IFS0.clearINT3IF; inline;
  48826. begin
  48827. pTDefRegMap(@Self)^.clr := $00008000;
  48828. end;
  48829. procedure TINT_IFS0.setINT3IF(thebits : TBits_1); inline;
  48830. begin
  48831. if thebits = 0 then
  48832. pTDefRegMap(@Self)^.clr := $00008000
  48833. else
  48834. pTDefRegMap(@Self)^.&set := $00008000;
  48835. end;
  48836. function TINT_IFS0.getINT3IF : TBits_1; inline;
  48837. begin
  48838. getINT3IF := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  48839. end;
  48840. procedure TINT_IFS0.setT4IF; inline;
  48841. begin
  48842. pTDefRegMap(@Self)^.&set := $00010000;
  48843. end;
  48844. procedure TINT_IFS0.clearT4IF; inline;
  48845. begin
  48846. pTDefRegMap(@Self)^.clr := $00010000;
  48847. end;
  48848. procedure TINT_IFS0.setT4IF(thebits : TBits_1); inline;
  48849. begin
  48850. if thebits = 0 then
  48851. pTDefRegMap(@Self)^.clr := $00010000
  48852. else
  48853. pTDefRegMap(@Self)^.&set := $00010000;
  48854. end;
  48855. function TINT_IFS0.getT4IF : TBits_1; inline;
  48856. begin
  48857. getT4IF := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  48858. end;
  48859. procedure TINT_IFS0.setIC4IF; inline;
  48860. begin
  48861. pTDefRegMap(@Self)^.&set := $00020000;
  48862. end;
  48863. procedure TINT_IFS0.clearIC4IF; inline;
  48864. begin
  48865. pTDefRegMap(@Self)^.clr := $00020000;
  48866. end;
  48867. procedure TINT_IFS0.setIC4IF(thebits : TBits_1); inline;
  48868. begin
  48869. if thebits = 0 then
  48870. pTDefRegMap(@Self)^.clr := $00020000
  48871. else
  48872. pTDefRegMap(@Self)^.&set := $00020000;
  48873. end;
  48874. function TINT_IFS0.getIC4IF : TBits_1; inline;
  48875. begin
  48876. getIC4IF := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  48877. end;
  48878. procedure TINT_IFS0.setOC4IF; inline;
  48879. begin
  48880. pTDefRegMap(@Self)^.&set := $00040000;
  48881. end;
  48882. procedure TINT_IFS0.clearOC4IF; inline;
  48883. begin
  48884. pTDefRegMap(@Self)^.clr := $00040000;
  48885. end;
  48886. procedure TINT_IFS0.setOC4IF(thebits : TBits_1); inline;
  48887. begin
  48888. if thebits = 0 then
  48889. pTDefRegMap(@Self)^.clr := $00040000
  48890. else
  48891. pTDefRegMap(@Self)^.&set := $00040000;
  48892. end;
  48893. function TINT_IFS0.getOC4IF : TBits_1; inline;
  48894. begin
  48895. getOC4IF := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  48896. end;
  48897. procedure TINT_IFS0.setINT4IF; inline;
  48898. begin
  48899. pTDefRegMap(@Self)^.&set := $00080000;
  48900. end;
  48901. procedure TINT_IFS0.clearINT4IF; inline;
  48902. begin
  48903. pTDefRegMap(@Self)^.clr := $00080000;
  48904. end;
  48905. procedure TINT_IFS0.setINT4IF(thebits : TBits_1); inline;
  48906. begin
  48907. if thebits = 0 then
  48908. pTDefRegMap(@Self)^.clr := $00080000
  48909. else
  48910. pTDefRegMap(@Self)^.&set := $00080000;
  48911. end;
  48912. function TINT_IFS0.getINT4IF : TBits_1; inline;
  48913. begin
  48914. getINT4IF := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  48915. end;
  48916. procedure TINT_IFS0.setT5IF; inline;
  48917. begin
  48918. pTDefRegMap(@Self)^.&set := $00100000;
  48919. end;
  48920. procedure TINT_IFS0.clearT5IF; inline;
  48921. begin
  48922. pTDefRegMap(@Self)^.clr := $00100000;
  48923. end;
  48924. procedure TINT_IFS0.setT5IF(thebits : TBits_1); inline;
  48925. begin
  48926. if thebits = 0 then
  48927. pTDefRegMap(@Self)^.clr := $00100000
  48928. else
  48929. pTDefRegMap(@Self)^.&set := $00100000;
  48930. end;
  48931. function TINT_IFS0.getT5IF : TBits_1; inline;
  48932. begin
  48933. getT5IF := (pTDefRegMap(@Self)^.val and $00100000) shr 20;
  48934. end;
  48935. procedure TINT_IFS0.setIC5IF; inline;
  48936. begin
  48937. pTDefRegMap(@Self)^.&set := $00200000;
  48938. end;
  48939. procedure TINT_IFS0.clearIC5IF; inline;
  48940. begin
  48941. pTDefRegMap(@Self)^.clr := $00200000;
  48942. end;
  48943. procedure TINT_IFS0.setIC5IF(thebits : TBits_1); inline;
  48944. begin
  48945. if thebits = 0 then
  48946. pTDefRegMap(@Self)^.clr := $00200000
  48947. else
  48948. pTDefRegMap(@Self)^.&set := $00200000;
  48949. end;
  48950. function TINT_IFS0.getIC5IF : TBits_1; inline;
  48951. begin
  48952. getIC5IF := (pTDefRegMap(@Self)^.val and $00200000) shr 21;
  48953. end;
  48954. procedure TINT_IFS0.setOC5IF; inline;
  48955. begin
  48956. pTDefRegMap(@Self)^.&set := $00400000;
  48957. end;
  48958. procedure TINT_IFS0.clearOC5IF; inline;
  48959. begin
  48960. pTDefRegMap(@Self)^.clr := $00400000;
  48961. end;
  48962. procedure TINT_IFS0.setOC5IF(thebits : TBits_1); inline;
  48963. begin
  48964. if thebits = 0 then
  48965. pTDefRegMap(@Self)^.clr := $00400000
  48966. else
  48967. pTDefRegMap(@Self)^.&set := $00400000;
  48968. end;
  48969. function TINT_IFS0.getOC5IF : TBits_1; inline;
  48970. begin
  48971. getOC5IF := (pTDefRegMap(@Self)^.val and $00400000) shr 22;
  48972. end;
  48973. procedure TINT_IFS0.setSPI1EIF; inline;
  48974. begin
  48975. pTDefRegMap(@Self)^.&set := $00800000;
  48976. end;
  48977. procedure TINT_IFS0.clearSPI1EIF; inline;
  48978. begin
  48979. pTDefRegMap(@Self)^.clr := $00800000;
  48980. end;
  48981. procedure TINT_IFS0.setSPI1EIF(thebits : TBits_1); inline;
  48982. begin
  48983. if thebits = 0 then
  48984. pTDefRegMap(@Self)^.clr := $00800000
  48985. else
  48986. pTDefRegMap(@Self)^.&set := $00800000;
  48987. end;
  48988. function TINT_IFS0.getSPI1EIF : TBits_1; inline;
  48989. begin
  48990. getSPI1EIF := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
  48991. end;
  48992. procedure TINT_IFS0.setSPI1RXIF; inline;
  48993. begin
  48994. pTDefRegMap(@Self)^.&set := $01000000;
  48995. end;
  48996. procedure TINT_IFS0.clearSPI1RXIF; inline;
  48997. begin
  48998. pTDefRegMap(@Self)^.clr := $01000000;
  48999. end;
  49000. procedure TINT_IFS0.setSPI1RXIF(thebits : TBits_1); inline;
  49001. begin
  49002. if thebits = 0 then
  49003. pTDefRegMap(@Self)^.clr := $01000000
  49004. else
  49005. pTDefRegMap(@Self)^.&set := $01000000;
  49006. end;
  49007. function TINT_IFS0.getSPI1RXIF : TBits_1; inline;
  49008. begin
  49009. getSPI1RXIF := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  49010. end;
  49011. procedure TINT_IFS0.setSPI1TXIF; inline;
  49012. begin
  49013. pTDefRegMap(@Self)^.&set := $02000000;
  49014. end;
  49015. procedure TINT_IFS0.clearSPI1TXIF; inline;
  49016. begin
  49017. pTDefRegMap(@Self)^.clr := $02000000;
  49018. end;
  49019. procedure TINT_IFS0.setSPI1TXIF(thebits : TBits_1); inline;
  49020. begin
  49021. if thebits = 0 then
  49022. pTDefRegMap(@Self)^.clr := $02000000
  49023. else
  49024. pTDefRegMap(@Self)^.&set := $02000000;
  49025. end;
  49026. function TINT_IFS0.getSPI1TXIF : TBits_1; inline;
  49027. begin
  49028. getSPI1TXIF := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  49029. end;
  49030. procedure TINT_IFS0.setU1EIF; inline;
  49031. begin
  49032. pTDefRegMap(@Self)^.&set := $04000000;
  49033. end;
  49034. procedure TINT_IFS0.clearU1EIF; inline;
  49035. begin
  49036. pTDefRegMap(@Self)^.clr := $04000000;
  49037. end;
  49038. procedure TINT_IFS0.setU1EIF(thebits : TBits_1); inline;
  49039. begin
  49040. if thebits = 0 then
  49041. pTDefRegMap(@Self)^.clr := $04000000
  49042. else
  49043. pTDefRegMap(@Self)^.&set := $04000000;
  49044. end;
  49045. function TINT_IFS0.getU1EIF : TBits_1; inline;
  49046. begin
  49047. getU1EIF := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  49048. end;
  49049. procedure TINT_IFS0.setU1RXIF; inline;
  49050. begin
  49051. pTDefRegMap(@Self)^.&set := $08000000;
  49052. end;
  49053. procedure TINT_IFS0.clearU1RXIF; inline;
  49054. begin
  49055. pTDefRegMap(@Self)^.clr := $08000000;
  49056. end;
  49057. procedure TINT_IFS0.setU1RXIF(thebits : TBits_1); inline;
  49058. begin
  49059. if thebits = 0 then
  49060. pTDefRegMap(@Self)^.clr := $08000000
  49061. else
  49062. pTDefRegMap(@Self)^.&set := $08000000;
  49063. end;
  49064. function TINT_IFS0.getU1RXIF : TBits_1; inline;
  49065. begin
  49066. getU1RXIF := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  49067. end;
  49068. procedure TINT_IFS0.setU1TXIF; inline;
  49069. begin
  49070. pTDefRegMap(@Self)^.&set := $10000000;
  49071. end;
  49072. procedure TINT_IFS0.clearU1TXIF; inline;
  49073. begin
  49074. pTDefRegMap(@Self)^.clr := $10000000;
  49075. end;
  49076. procedure TINT_IFS0.setU1TXIF(thebits : TBits_1); inline;
  49077. begin
  49078. if thebits = 0 then
  49079. pTDefRegMap(@Self)^.clr := $10000000
  49080. else
  49081. pTDefRegMap(@Self)^.&set := $10000000;
  49082. end;
  49083. function TINT_IFS0.getU1TXIF : TBits_1; inline;
  49084. begin
  49085. getU1TXIF := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  49086. end;
  49087. procedure TINT_IFS0.setI2C1BIF; inline;
  49088. begin
  49089. pTDefRegMap(@Self)^.&set := $20000000;
  49090. end;
  49091. procedure TINT_IFS0.clearI2C1BIF; inline;
  49092. begin
  49093. pTDefRegMap(@Self)^.clr := $20000000;
  49094. end;
  49095. procedure TINT_IFS0.setI2C1BIF(thebits : TBits_1); inline;
  49096. begin
  49097. if thebits = 0 then
  49098. pTDefRegMap(@Self)^.clr := $20000000
  49099. else
  49100. pTDefRegMap(@Self)^.&set := $20000000;
  49101. end;
  49102. function TINT_IFS0.getI2C1BIF : TBits_1; inline;
  49103. begin
  49104. getI2C1BIF := (pTDefRegMap(@Self)^.val and $20000000) shr 29;
  49105. end;
  49106. procedure TINT_IFS0.setI2C1SIF; inline;
  49107. begin
  49108. pTDefRegMap(@Self)^.&set := $40000000;
  49109. end;
  49110. procedure TINT_IFS0.clearI2C1SIF; inline;
  49111. begin
  49112. pTDefRegMap(@Self)^.clr := $40000000;
  49113. end;
  49114. procedure TINT_IFS0.setI2C1SIF(thebits : TBits_1); inline;
  49115. begin
  49116. if thebits = 0 then
  49117. pTDefRegMap(@Self)^.clr := $40000000
  49118. else
  49119. pTDefRegMap(@Self)^.&set := $40000000;
  49120. end;
  49121. function TINT_IFS0.getI2C1SIF : TBits_1; inline;
  49122. begin
  49123. getI2C1SIF := (pTDefRegMap(@Self)^.val and $40000000) shr 30;
  49124. end;
  49125. procedure TINT_IFS0.setI2C1MIF; inline;
  49126. begin
  49127. pTDefRegMap(@Self)^.&set := $80000000;
  49128. end;
  49129. procedure TINT_IFS0.clearI2C1MIF; inline;
  49130. begin
  49131. pTDefRegMap(@Self)^.clr := $80000000;
  49132. end;
  49133. procedure TINT_IFS0.setI2C1MIF(thebits : TBits_1); inline;
  49134. begin
  49135. if thebits = 0 then
  49136. pTDefRegMap(@Self)^.clr := $80000000
  49137. else
  49138. pTDefRegMap(@Self)^.&set := $80000000;
  49139. end;
  49140. function TINT_IFS0.getI2C1MIF : TBits_1; inline;
  49141. begin
  49142. getI2C1MIF := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  49143. end;
  49144. procedure TINT_IFS0.setU1AEIF; inline;
  49145. begin
  49146. pTDefRegMap(@Self)^.&set := $04000000;
  49147. end;
  49148. procedure TINT_IFS0.clearU1AEIF; inline;
  49149. begin
  49150. pTDefRegMap(@Self)^.clr := $04000000;
  49151. end;
  49152. procedure TINT_IFS0.setU1AEIF(thebits : TBits_1); inline;
  49153. begin
  49154. if thebits = 0 then
  49155. pTDefRegMap(@Self)^.clr := $04000000
  49156. else
  49157. pTDefRegMap(@Self)^.&set := $04000000;
  49158. end;
  49159. function TINT_IFS0.getU1AEIF : TBits_1; inline;
  49160. begin
  49161. getU1AEIF := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  49162. end;
  49163. procedure TINT_IFS0.setU1ARXIF; inline;
  49164. begin
  49165. pTDefRegMap(@Self)^.&set := $08000000;
  49166. end;
  49167. procedure TINT_IFS0.clearU1ARXIF; inline;
  49168. begin
  49169. pTDefRegMap(@Self)^.clr := $08000000;
  49170. end;
  49171. procedure TINT_IFS0.setU1ARXIF(thebits : TBits_1); inline;
  49172. begin
  49173. if thebits = 0 then
  49174. pTDefRegMap(@Self)^.clr := $08000000
  49175. else
  49176. pTDefRegMap(@Self)^.&set := $08000000;
  49177. end;
  49178. function TINT_IFS0.getU1ARXIF : TBits_1; inline;
  49179. begin
  49180. getU1ARXIF := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  49181. end;
  49182. procedure TINT_IFS0.setU1ATXIF; inline;
  49183. begin
  49184. pTDefRegMap(@Self)^.&set := $10000000;
  49185. end;
  49186. procedure TINT_IFS0.clearU1ATXIF; inline;
  49187. begin
  49188. pTDefRegMap(@Self)^.clr := $10000000;
  49189. end;
  49190. procedure TINT_IFS0.setU1ATXIF(thebits : TBits_1); inline;
  49191. begin
  49192. if thebits = 0 then
  49193. pTDefRegMap(@Self)^.clr := $10000000
  49194. else
  49195. pTDefRegMap(@Self)^.&set := $10000000;
  49196. end;
  49197. function TINT_IFS0.getU1ATXIF : TBits_1; inline;
  49198. begin
  49199. getU1ATXIF := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  49200. end;
  49201. procedure TINT_IFS0.setSPI3EIF; inline;
  49202. begin
  49203. pTDefRegMap(@Self)^.&set := $04000000;
  49204. end;
  49205. procedure TINT_IFS0.clearSPI3EIF; inline;
  49206. begin
  49207. pTDefRegMap(@Self)^.clr := $04000000;
  49208. end;
  49209. procedure TINT_IFS0.setSPI3EIF(thebits : TBits_1); inline;
  49210. begin
  49211. if thebits = 0 then
  49212. pTDefRegMap(@Self)^.clr := $04000000
  49213. else
  49214. pTDefRegMap(@Self)^.&set := $04000000;
  49215. end;
  49216. function TINT_IFS0.getSPI3EIF : TBits_1; inline;
  49217. begin
  49218. getSPI3EIF := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  49219. end;
  49220. procedure TINT_IFS0.setSPI3RXIF; inline;
  49221. begin
  49222. pTDefRegMap(@Self)^.&set := $08000000;
  49223. end;
  49224. procedure TINT_IFS0.clearSPI3RXIF; inline;
  49225. begin
  49226. pTDefRegMap(@Self)^.clr := $08000000;
  49227. end;
  49228. procedure TINT_IFS0.setSPI3RXIF(thebits : TBits_1); inline;
  49229. begin
  49230. if thebits = 0 then
  49231. pTDefRegMap(@Self)^.clr := $08000000
  49232. else
  49233. pTDefRegMap(@Self)^.&set := $08000000;
  49234. end;
  49235. function TINT_IFS0.getSPI3RXIF : TBits_1; inline;
  49236. begin
  49237. getSPI3RXIF := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  49238. end;
  49239. procedure TINT_IFS0.setSPI3TXIF; inline;
  49240. begin
  49241. pTDefRegMap(@Self)^.&set := $10000000;
  49242. end;
  49243. procedure TINT_IFS0.clearSPI3TXIF; inline;
  49244. begin
  49245. pTDefRegMap(@Self)^.clr := $10000000;
  49246. end;
  49247. procedure TINT_IFS0.setSPI3TXIF(thebits : TBits_1); inline;
  49248. begin
  49249. if thebits = 0 then
  49250. pTDefRegMap(@Self)^.clr := $10000000
  49251. else
  49252. pTDefRegMap(@Self)^.&set := $10000000;
  49253. end;
  49254. function TINT_IFS0.getSPI3TXIF : TBits_1; inline;
  49255. begin
  49256. getSPI3TXIF := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  49257. end;
  49258. procedure TINT_IFS0.setSPI1AEIF; inline;
  49259. begin
  49260. pTDefRegMap(@Self)^.&set := $04000000;
  49261. end;
  49262. procedure TINT_IFS0.clearSPI1AEIF; inline;
  49263. begin
  49264. pTDefRegMap(@Self)^.clr := $04000000;
  49265. end;
  49266. procedure TINT_IFS0.setSPI1AEIF(thebits : TBits_1); inline;
  49267. begin
  49268. if thebits = 0 then
  49269. pTDefRegMap(@Self)^.clr := $04000000
  49270. else
  49271. pTDefRegMap(@Self)^.&set := $04000000;
  49272. end;
  49273. function TINT_IFS0.getSPI1AEIF : TBits_1; inline;
  49274. begin
  49275. getSPI1AEIF := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  49276. end;
  49277. procedure TINT_IFS0.setSPI1ARXIF; inline;
  49278. begin
  49279. pTDefRegMap(@Self)^.&set := $08000000;
  49280. end;
  49281. procedure TINT_IFS0.clearSPI1ARXIF; inline;
  49282. begin
  49283. pTDefRegMap(@Self)^.clr := $08000000;
  49284. end;
  49285. procedure TINT_IFS0.setSPI1ARXIF(thebits : TBits_1); inline;
  49286. begin
  49287. if thebits = 0 then
  49288. pTDefRegMap(@Self)^.clr := $08000000
  49289. else
  49290. pTDefRegMap(@Self)^.&set := $08000000;
  49291. end;
  49292. function TINT_IFS0.getSPI1ARXIF : TBits_1; inline;
  49293. begin
  49294. getSPI1ARXIF := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  49295. end;
  49296. procedure TINT_IFS0.setSPI1ATXIF; inline;
  49297. begin
  49298. pTDefRegMap(@Self)^.&set := $10000000;
  49299. end;
  49300. procedure TINT_IFS0.clearSPI1ATXIF; inline;
  49301. begin
  49302. pTDefRegMap(@Self)^.clr := $10000000;
  49303. end;
  49304. procedure TINT_IFS0.setSPI1ATXIF(thebits : TBits_1); inline;
  49305. begin
  49306. if thebits = 0 then
  49307. pTDefRegMap(@Self)^.clr := $10000000
  49308. else
  49309. pTDefRegMap(@Self)^.&set := $10000000;
  49310. end;
  49311. function TINT_IFS0.getSPI1ATXIF : TBits_1; inline;
  49312. begin
  49313. getSPI1ATXIF := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  49314. end;
  49315. procedure TINT_IFS0.setI2C3BIF; inline;
  49316. begin
  49317. pTDefRegMap(@Self)^.&set := $04000000;
  49318. end;
  49319. procedure TINT_IFS0.clearI2C3BIF; inline;
  49320. begin
  49321. pTDefRegMap(@Self)^.clr := $04000000;
  49322. end;
  49323. procedure TINT_IFS0.setI2C3BIF(thebits : TBits_1); inline;
  49324. begin
  49325. if thebits = 0 then
  49326. pTDefRegMap(@Self)^.clr := $04000000
  49327. else
  49328. pTDefRegMap(@Self)^.&set := $04000000;
  49329. end;
  49330. function TINT_IFS0.getI2C3BIF : TBits_1; inline;
  49331. begin
  49332. getI2C3BIF := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  49333. end;
  49334. procedure TINT_IFS0.setI2C3SIF; inline;
  49335. begin
  49336. pTDefRegMap(@Self)^.&set := $08000000;
  49337. end;
  49338. procedure TINT_IFS0.clearI2C3SIF; inline;
  49339. begin
  49340. pTDefRegMap(@Self)^.clr := $08000000;
  49341. end;
  49342. procedure TINT_IFS0.setI2C3SIF(thebits : TBits_1); inline;
  49343. begin
  49344. if thebits = 0 then
  49345. pTDefRegMap(@Self)^.clr := $08000000
  49346. else
  49347. pTDefRegMap(@Self)^.&set := $08000000;
  49348. end;
  49349. function TINT_IFS0.getI2C3SIF : TBits_1; inline;
  49350. begin
  49351. getI2C3SIF := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  49352. end;
  49353. procedure TINT_IFS0.setI2C3MIF; inline;
  49354. begin
  49355. pTDefRegMap(@Self)^.&set := $10000000;
  49356. end;
  49357. procedure TINT_IFS0.clearI2C3MIF; inline;
  49358. begin
  49359. pTDefRegMap(@Self)^.clr := $10000000;
  49360. end;
  49361. procedure TINT_IFS0.setI2C3MIF(thebits : TBits_1); inline;
  49362. begin
  49363. if thebits = 0 then
  49364. pTDefRegMap(@Self)^.clr := $10000000
  49365. else
  49366. pTDefRegMap(@Self)^.&set := $10000000;
  49367. end;
  49368. function TINT_IFS0.getI2C3MIF : TBits_1; inline;
  49369. begin
  49370. getI2C3MIF := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  49371. end;
  49372. procedure TINT_IFS0.setI2C1ABIF; inline;
  49373. begin
  49374. pTDefRegMap(@Self)^.&set := $04000000;
  49375. end;
  49376. procedure TINT_IFS0.clearI2C1ABIF; inline;
  49377. begin
  49378. pTDefRegMap(@Self)^.clr := $04000000;
  49379. end;
  49380. procedure TINT_IFS0.setI2C1ABIF(thebits : TBits_1); inline;
  49381. begin
  49382. if thebits = 0 then
  49383. pTDefRegMap(@Self)^.clr := $04000000
  49384. else
  49385. pTDefRegMap(@Self)^.&set := $04000000;
  49386. end;
  49387. function TINT_IFS0.getI2C1ABIF : TBits_1; inline;
  49388. begin
  49389. getI2C1ABIF := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  49390. end;
  49391. procedure TINT_IFS0.setI2C1ASIF; inline;
  49392. begin
  49393. pTDefRegMap(@Self)^.&set := $08000000;
  49394. end;
  49395. procedure TINT_IFS0.clearI2C1ASIF; inline;
  49396. begin
  49397. pTDefRegMap(@Self)^.clr := $08000000;
  49398. end;
  49399. procedure TINT_IFS0.setI2C1ASIF(thebits : TBits_1); inline;
  49400. begin
  49401. if thebits = 0 then
  49402. pTDefRegMap(@Self)^.clr := $08000000
  49403. else
  49404. pTDefRegMap(@Self)^.&set := $08000000;
  49405. end;
  49406. function TINT_IFS0.getI2C1ASIF : TBits_1; inline;
  49407. begin
  49408. getI2C1ASIF := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  49409. end;
  49410. procedure TINT_IFS0.setI2C1AMIF; inline;
  49411. begin
  49412. pTDefRegMap(@Self)^.&set := $10000000;
  49413. end;
  49414. procedure TINT_IFS0.clearI2C1AMIF; inline;
  49415. begin
  49416. pTDefRegMap(@Self)^.clr := $10000000;
  49417. end;
  49418. procedure TINT_IFS0.setI2C1AMIF(thebits : TBits_1); inline;
  49419. begin
  49420. if thebits = 0 then
  49421. pTDefRegMap(@Self)^.clr := $10000000
  49422. else
  49423. pTDefRegMap(@Self)^.&set := $10000000;
  49424. end;
  49425. function TINT_IFS0.getI2C1AMIF : TBits_1; inline;
  49426. begin
  49427. getI2C1AMIF := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  49428. end;
  49429. procedure TINT_IFS0.setw(thebits : TBits_32); inline;
  49430. begin
  49431. pTDefRegMap(@Self)^.val := thebits;
  49432. end;
  49433. function TINT_IFS0.getw : TBits_32; inline;
  49434. begin
  49435. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  49436. end;
  49437. procedure TINT_IFS1.setCNIF; inline;
  49438. begin
  49439. pTDefRegMap(@Self)^.&set := $00000001;
  49440. end;
  49441. procedure TINT_IFS1.clearCNIF; inline;
  49442. begin
  49443. pTDefRegMap(@Self)^.clr := $00000001;
  49444. end;
  49445. procedure TINT_IFS1.setCNIF(thebits : TBits_1); inline;
  49446. begin
  49447. if thebits = 0 then
  49448. pTDefRegMap(@Self)^.clr := $00000001
  49449. else
  49450. pTDefRegMap(@Self)^.&set := $00000001;
  49451. end;
  49452. function TINT_IFS1.getCNIF : TBits_1; inline;
  49453. begin
  49454. getCNIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  49455. end;
  49456. procedure TINT_IFS1.setAD1IF; inline;
  49457. begin
  49458. pTDefRegMap(@Self)^.&set := $00000002;
  49459. end;
  49460. procedure TINT_IFS1.clearAD1IF; inline;
  49461. begin
  49462. pTDefRegMap(@Self)^.clr := $00000002;
  49463. end;
  49464. procedure TINT_IFS1.setAD1IF(thebits : TBits_1); inline;
  49465. begin
  49466. if thebits = 0 then
  49467. pTDefRegMap(@Self)^.clr := $00000002
  49468. else
  49469. pTDefRegMap(@Self)^.&set := $00000002;
  49470. end;
  49471. function TINT_IFS1.getAD1IF : TBits_1; inline;
  49472. begin
  49473. getAD1IF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  49474. end;
  49475. procedure TINT_IFS1.setPMPIF; inline;
  49476. begin
  49477. pTDefRegMap(@Self)^.&set := $00000004;
  49478. end;
  49479. procedure TINT_IFS1.clearPMPIF; inline;
  49480. begin
  49481. pTDefRegMap(@Self)^.clr := $00000004;
  49482. end;
  49483. procedure TINT_IFS1.setPMPIF(thebits : TBits_1); inline;
  49484. begin
  49485. if thebits = 0 then
  49486. pTDefRegMap(@Self)^.clr := $00000004
  49487. else
  49488. pTDefRegMap(@Self)^.&set := $00000004;
  49489. end;
  49490. function TINT_IFS1.getPMPIF : TBits_1; inline;
  49491. begin
  49492. getPMPIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  49493. end;
  49494. procedure TINT_IFS1.setCMP1IF; inline;
  49495. begin
  49496. pTDefRegMap(@Self)^.&set := $00000008;
  49497. end;
  49498. procedure TINT_IFS1.clearCMP1IF; inline;
  49499. begin
  49500. pTDefRegMap(@Self)^.clr := $00000008;
  49501. end;
  49502. procedure TINT_IFS1.setCMP1IF(thebits : TBits_1); inline;
  49503. begin
  49504. if thebits = 0 then
  49505. pTDefRegMap(@Self)^.clr := $00000008
  49506. else
  49507. pTDefRegMap(@Self)^.&set := $00000008;
  49508. end;
  49509. function TINT_IFS1.getCMP1IF : TBits_1; inline;
  49510. begin
  49511. getCMP1IF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  49512. end;
  49513. procedure TINT_IFS1.setCMP2IF; inline;
  49514. begin
  49515. pTDefRegMap(@Self)^.&set := $00000010;
  49516. end;
  49517. procedure TINT_IFS1.clearCMP2IF; inline;
  49518. begin
  49519. pTDefRegMap(@Self)^.clr := $00000010;
  49520. end;
  49521. procedure TINT_IFS1.setCMP2IF(thebits : TBits_1); inline;
  49522. begin
  49523. if thebits = 0 then
  49524. pTDefRegMap(@Self)^.clr := $00000010
  49525. else
  49526. pTDefRegMap(@Self)^.&set := $00000010;
  49527. end;
  49528. function TINT_IFS1.getCMP2IF : TBits_1; inline;
  49529. begin
  49530. getCMP2IF := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  49531. end;
  49532. procedure TINT_IFS1.setU3EIF; inline;
  49533. begin
  49534. pTDefRegMap(@Self)^.&set := $00000020;
  49535. end;
  49536. procedure TINT_IFS1.clearU3EIF; inline;
  49537. begin
  49538. pTDefRegMap(@Self)^.clr := $00000020;
  49539. end;
  49540. procedure TINT_IFS1.setU3EIF(thebits : TBits_1); inline;
  49541. begin
  49542. if thebits = 0 then
  49543. pTDefRegMap(@Self)^.clr := $00000020
  49544. else
  49545. pTDefRegMap(@Self)^.&set := $00000020;
  49546. end;
  49547. function TINT_IFS1.getU3EIF : TBits_1; inline;
  49548. begin
  49549. getU3EIF := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  49550. end;
  49551. procedure TINT_IFS1.setU3RXIF; inline;
  49552. begin
  49553. pTDefRegMap(@Self)^.&set := $00000040;
  49554. end;
  49555. procedure TINT_IFS1.clearU3RXIF; inline;
  49556. begin
  49557. pTDefRegMap(@Self)^.clr := $00000040;
  49558. end;
  49559. procedure TINT_IFS1.setU3RXIF(thebits : TBits_1); inline;
  49560. begin
  49561. if thebits = 0 then
  49562. pTDefRegMap(@Self)^.clr := $00000040
  49563. else
  49564. pTDefRegMap(@Self)^.&set := $00000040;
  49565. end;
  49566. function TINT_IFS1.getU3RXIF : TBits_1; inline;
  49567. begin
  49568. getU3RXIF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  49569. end;
  49570. procedure TINT_IFS1.setU3TXIF; inline;
  49571. begin
  49572. pTDefRegMap(@Self)^.&set := $00000080;
  49573. end;
  49574. procedure TINT_IFS1.clearU3TXIF; inline;
  49575. begin
  49576. pTDefRegMap(@Self)^.clr := $00000080;
  49577. end;
  49578. procedure TINT_IFS1.setU3TXIF(thebits : TBits_1); inline;
  49579. begin
  49580. if thebits = 0 then
  49581. pTDefRegMap(@Self)^.clr := $00000080
  49582. else
  49583. pTDefRegMap(@Self)^.&set := $00000080;
  49584. end;
  49585. function TINT_IFS1.getU3TXIF : TBits_1; inline;
  49586. begin
  49587. getU3TXIF := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  49588. end;
  49589. procedure TINT_IFS1.setU2EIF; inline;
  49590. begin
  49591. pTDefRegMap(@Self)^.&set := $00000100;
  49592. end;
  49593. procedure TINT_IFS1.clearU2EIF; inline;
  49594. begin
  49595. pTDefRegMap(@Self)^.clr := $00000100;
  49596. end;
  49597. procedure TINT_IFS1.setU2EIF(thebits : TBits_1); inline;
  49598. begin
  49599. if thebits = 0 then
  49600. pTDefRegMap(@Self)^.clr := $00000100
  49601. else
  49602. pTDefRegMap(@Self)^.&set := $00000100;
  49603. end;
  49604. function TINT_IFS1.getU2EIF : TBits_1; inline;
  49605. begin
  49606. getU2EIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  49607. end;
  49608. procedure TINT_IFS1.setU2RXIF; inline;
  49609. begin
  49610. pTDefRegMap(@Self)^.&set := $00000200;
  49611. end;
  49612. procedure TINT_IFS1.clearU2RXIF; inline;
  49613. begin
  49614. pTDefRegMap(@Self)^.clr := $00000200;
  49615. end;
  49616. procedure TINT_IFS1.setU2RXIF(thebits : TBits_1); inline;
  49617. begin
  49618. if thebits = 0 then
  49619. pTDefRegMap(@Self)^.clr := $00000200
  49620. else
  49621. pTDefRegMap(@Self)^.&set := $00000200;
  49622. end;
  49623. function TINT_IFS1.getU2RXIF : TBits_1; inline;
  49624. begin
  49625. getU2RXIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  49626. end;
  49627. procedure TINT_IFS1.setU2TXIF; inline;
  49628. begin
  49629. pTDefRegMap(@Self)^.&set := $00000400;
  49630. end;
  49631. procedure TINT_IFS1.clearU2TXIF; inline;
  49632. begin
  49633. pTDefRegMap(@Self)^.clr := $00000400;
  49634. end;
  49635. procedure TINT_IFS1.setU2TXIF(thebits : TBits_1); inline;
  49636. begin
  49637. if thebits = 0 then
  49638. pTDefRegMap(@Self)^.clr := $00000400
  49639. else
  49640. pTDefRegMap(@Self)^.&set := $00000400;
  49641. end;
  49642. function TINT_IFS1.getU2TXIF : TBits_1; inline;
  49643. begin
  49644. getU2TXIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  49645. end;
  49646. procedure TINT_IFS1.setI2C2BIF; inline;
  49647. begin
  49648. pTDefRegMap(@Self)^.&set := $00000800;
  49649. end;
  49650. procedure TINT_IFS1.clearI2C2BIF; inline;
  49651. begin
  49652. pTDefRegMap(@Self)^.clr := $00000800;
  49653. end;
  49654. procedure TINT_IFS1.setI2C2BIF(thebits : TBits_1); inline;
  49655. begin
  49656. if thebits = 0 then
  49657. pTDefRegMap(@Self)^.clr := $00000800
  49658. else
  49659. pTDefRegMap(@Self)^.&set := $00000800;
  49660. end;
  49661. function TINT_IFS1.getI2C2BIF : TBits_1; inline;
  49662. begin
  49663. getI2C2BIF := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  49664. end;
  49665. procedure TINT_IFS1.setI2C2SIF; inline;
  49666. begin
  49667. pTDefRegMap(@Self)^.&set := $00001000;
  49668. end;
  49669. procedure TINT_IFS1.clearI2C2SIF; inline;
  49670. begin
  49671. pTDefRegMap(@Self)^.clr := $00001000;
  49672. end;
  49673. procedure TINT_IFS1.setI2C2SIF(thebits : TBits_1); inline;
  49674. begin
  49675. if thebits = 0 then
  49676. pTDefRegMap(@Self)^.clr := $00001000
  49677. else
  49678. pTDefRegMap(@Self)^.&set := $00001000;
  49679. end;
  49680. function TINT_IFS1.getI2C2SIF : TBits_1; inline;
  49681. begin
  49682. getI2C2SIF := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  49683. end;
  49684. procedure TINT_IFS1.setI2C2MIF; inline;
  49685. begin
  49686. pTDefRegMap(@Self)^.&set := $00002000;
  49687. end;
  49688. procedure TINT_IFS1.clearI2C2MIF; inline;
  49689. begin
  49690. pTDefRegMap(@Self)^.clr := $00002000;
  49691. end;
  49692. procedure TINT_IFS1.setI2C2MIF(thebits : TBits_1); inline;
  49693. begin
  49694. if thebits = 0 then
  49695. pTDefRegMap(@Self)^.clr := $00002000
  49696. else
  49697. pTDefRegMap(@Self)^.&set := $00002000;
  49698. end;
  49699. function TINT_IFS1.getI2C2MIF : TBits_1; inline;
  49700. begin
  49701. getI2C2MIF := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  49702. end;
  49703. procedure TINT_IFS1.setFSCMIF; inline;
  49704. begin
  49705. pTDefRegMap(@Self)^.&set := $00004000;
  49706. end;
  49707. procedure TINT_IFS1.clearFSCMIF; inline;
  49708. begin
  49709. pTDefRegMap(@Self)^.clr := $00004000;
  49710. end;
  49711. procedure TINT_IFS1.setFSCMIF(thebits : TBits_1); inline;
  49712. begin
  49713. if thebits = 0 then
  49714. pTDefRegMap(@Self)^.clr := $00004000
  49715. else
  49716. pTDefRegMap(@Self)^.&set := $00004000;
  49717. end;
  49718. function TINT_IFS1.getFSCMIF : TBits_1; inline;
  49719. begin
  49720. getFSCMIF := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  49721. end;
  49722. procedure TINT_IFS1.setRTCCIF; inline;
  49723. begin
  49724. pTDefRegMap(@Self)^.&set := $00008000;
  49725. end;
  49726. procedure TINT_IFS1.clearRTCCIF; inline;
  49727. begin
  49728. pTDefRegMap(@Self)^.clr := $00008000;
  49729. end;
  49730. procedure TINT_IFS1.setRTCCIF(thebits : TBits_1); inline;
  49731. begin
  49732. if thebits = 0 then
  49733. pTDefRegMap(@Self)^.clr := $00008000
  49734. else
  49735. pTDefRegMap(@Self)^.&set := $00008000;
  49736. end;
  49737. function TINT_IFS1.getRTCCIF : TBits_1; inline;
  49738. begin
  49739. getRTCCIF := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  49740. end;
  49741. procedure TINT_IFS1.setDMA0IF; inline;
  49742. begin
  49743. pTDefRegMap(@Self)^.&set := $00010000;
  49744. end;
  49745. procedure TINT_IFS1.clearDMA0IF; inline;
  49746. begin
  49747. pTDefRegMap(@Self)^.clr := $00010000;
  49748. end;
  49749. procedure TINT_IFS1.setDMA0IF(thebits : TBits_1); inline;
  49750. begin
  49751. if thebits = 0 then
  49752. pTDefRegMap(@Self)^.clr := $00010000
  49753. else
  49754. pTDefRegMap(@Self)^.&set := $00010000;
  49755. end;
  49756. function TINT_IFS1.getDMA0IF : TBits_1; inline;
  49757. begin
  49758. getDMA0IF := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  49759. end;
  49760. procedure TINT_IFS1.setDMA1IF; inline;
  49761. begin
  49762. pTDefRegMap(@Self)^.&set := $00020000;
  49763. end;
  49764. procedure TINT_IFS1.clearDMA1IF; inline;
  49765. begin
  49766. pTDefRegMap(@Self)^.clr := $00020000;
  49767. end;
  49768. procedure TINT_IFS1.setDMA1IF(thebits : TBits_1); inline;
  49769. begin
  49770. if thebits = 0 then
  49771. pTDefRegMap(@Self)^.clr := $00020000
  49772. else
  49773. pTDefRegMap(@Self)^.&set := $00020000;
  49774. end;
  49775. function TINT_IFS1.getDMA1IF : TBits_1; inline;
  49776. begin
  49777. getDMA1IF := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  49778. end;
  49779. procedure TINT_IFS1.setDMA2IF; inline;
  49780. begin
  49781. pTDefRegMap(@Self)^.&set := $00040000;
  49782. end;
  49783. procedure TINT_IFS1.clearDMA2IF; inline;
  49784. begin
  49785. pTDefRegMap(@Self)^.clr := $00040000;
  49786. end;
  49787. procedure TINT_IFS1.setDMA2IF(thebits : TBits_1); inline;
  49788. begin
  49789. if thebits = 0 then
  49790. pTDefRegMap(@Self)^.clr := $00040000
  49791. else
  49792. pTDefRegMap(@Self)^.&set := $00040000;
  49793. end;
  49794. function TINT_IFS1.getDMA2IF : TBits_1; inline;
  49795. begin
  49796. getDMA2IF := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  49797. end;
  49798. procedure TINT_IFS1.setDMA3IF; inline;
  49799. begin
  49800. pTDefRegMap(@Self)^.&set := $00080000;
  49801. end;
  49802. procedure TINT_IFS1.clearDMA3IF; inline;
  49803. begin
  49804. pTDefRegMap(@Self)^.clr := $00080000;
  49805. end;
  49806. procedure TINT_IFS1.setDMA3IF(thebits : TBits_1); inline;
  49807. begin
  49808. if thebits = 0 then
  49809. pTDefRegMap(@Self)^.clr := $00080000
  49810. else
  49811. pTDefRegMap(@Self)^.&set := $00080000;
  49812. end;
  49813. function TINT_IFS1.getDMA3IF : TBits_1; inline;
  49814. begin
  49815. getDMA3IF := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  49816. end;
  49817. procedure TINT_IFS1.setDMA4IF; inline;
  49818. begin
  49819. pTDefRegMap(@Self)^.&set := $00100000;
  49820. end;
  49821. procedure TINT_IFS1.clearDMA4IF; inline;
  49822. begin
  49823. pTDefRegMap(@Self)^.clr := $00100000;
  49824. end;
  49825. procedure TINT_IFS1.setDMA4IF(thebits : TBits_1); inline;
  49826. begin
  49827. if thebits = 0 then
  49828. pTDefRegMap(@Self)^.clr := $00100000
  49829. else
  49830. pTDefRegMap(@Self)^.&set := $00100000;
  49831. end;
  49832. function TINT_IFS1.getDMA4IF : TBits_1; inline;
  49833. begin
  49834. getDMA4IF := (pTDefRegMap(@Self)^.val and $00100000) shr 20;
  49835. end;
  49836. procedure TINT_IFS1.setDMA5IF; inline;
  49837. begin
  49838. pTDefRegMap(@Self)^.&set := $00200000;
  49839. end;
  49840. procedure TINT_IFS1.clearDMA5IF; inline;
  49841. begin
  49842. pTDefRegMap(@Self)^.clr := $00200000;
  49843. end;
  49844. procedure TINT_IFS1.setDMA5IF(thebits : TBits_1); inline;
  49845. begin
  49846. if thebits = 0 then
  49847. pTDefRegMap(@Self)^.clr := $00200000
  49848. else
  49849. pTDefRegMap(@Self)^.&set := $00200000;
  49850. end;
  49851. function TINT_IFS1.getDMA5IF : TBits_1; inline;
  49852. begin
  49853. getDMA5IF := (pTDefRegMap(@Self)^.val and $00200000) shr 21;
  49854. end;
  49855. procedure TINT_IFS1.setDMA6IF; inline;
  49856. begin
  49857. pTDefRegMap(@Self)^.&set := $00400000;
  49858. end;
  49859. procedure TINT_IFS1.clearDMA6IF; inline;
  49860. begin
  49861. pTDefRegMap(@Self)^.clr := $00400000;
  49862. end;
  49863. procedure TINT_IFS1.setDMA6IF(thebits : TBits_1); inline;
  49864. begin
  49865. if thebits = 0 then
  49866. pTDefRegMap(@Self)^.clr := $00400000
  49867. else
  49868. pTDefRegMap(@Self)^.&set := $00400000;
  49869. end;
  49870. function TINT_IFS1.getDMA6IF : TBits_1; inline;
  49871. begin
  49872. getDMA6IF := (pTDefRegMap(@Self)^.val and $00400000) shr 22;
  49873. end;
  49874. procedure TINT_IFS1.setDMA7IF; inline;
  49875. begin
  49876. pTDefRegMap(@Self)^.&set := $00800000;
  49877. end;
  49878. procedure TINT_IFS1.clearDMA7IF; inline;
  49879. begin
  49880. pTDefRegMap(@Self)^.clr := $00800000;
  49881. end;
  49882. procedure TINT_IFS1.setDMA7IF(thebits : TBits_1); inline;
  49883. begin
  49884. if thebits = 0 then
  49885. pTDefRegMap(@Self)^.clr := $00800000
  49886. else
  49887. pTDefRegMap(@Self)^.&set := $00800000;
  49888. end;
  49889. function TINT_IFS1.getDMA7IF : TBits_1; inline;
  49890. begin
  49891. getDMA7IF := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
  49892. end;
  49893. procedure TINT_IFS1.setFCEIF; inline;
  49894. begin
  49895. pTDefRegMap(@Self)^.&set := $01000000;
  49896. end;
  49897. procedure TINT_IFS1.clearFCEIF; inline;
  49898. begin
  49899. pTDefRegMap(@Self)^.clr := $01000000;
  49900. end;
  49901. procedure TINT_IFS1.setFCEIF(thebits : TBits_1); inline;
  49902. begin
  49903. if thebits = 0 then
  49904. pTDefRegMap(@Self)^.clr := $01000000
  49905. else
  49906. pTDefRegMap(@Self)^.&set := $01000000;
  49907. end;
  49908. function TINT_IFS1.getFCEIF : TBits_1; inline;
  49909. begin
  49910. getFCEIF := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  49911. end;
  49912. procedure TINT_IFS1.setUSBIF; inline;
  49913. begin
  49914. pTDefRegMap(@Self)^.&set := $02000000;
  49915. end;
  49916. procedure TINT_IFS1.clearUSBIF; inline;
  49917. begin
  49918. pTDefRegMap(@Self)^.clr := $02000000;
  49919. end;
  49920. procedure TINT_IFS1.setUSBIF(thebits : TBits_1); inline;
  49921. begin
  49922. if thebits = 0 then
  49923. pTDefRegMap(@Self)^.clr := $02000000
  49924. else
  49925. pTDefRegMap(@Self)^.&set := $02000000;
  49926. end;
  49927. function TINT_IFS1.getUSBIF : TBits_1; inline;
  49928. begin
  49929. getUSBIF := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  49930. end;
  49931. procedure TINT_IFS1.setCAN1IF; inline;
  49932. begin
  49933. pTDefRegMap(@Self)^.&set := $04000000;
  49934. end;
  49935. procedure TINT_IFS1.clearCAN1IF; inline;
  49936. begin
  49937. pTDefRegMap(@Self)^.clr := $04000000;
  49938. end;
  49939. procedure TINT_IFS1.setCAN1IF(thebits : TBits_1); inline;
  49940. begin
  49941. if thebits = 0 then
  49942. pTDefRegMap(@Self)^.clr := $04000000
  49943. else
  49944. pTDefRegMap(@Self)^.&set := $04000000;
  49945. end;
  49946. function TINT_IFS1.getCAN1IF : TBits_1; inline;
  49947. begin
  49948. getCAN1IF := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  49949. end;
  49950. procedure TINT_IFS1.setIC1EIF; inline;
  49951. begin
  49952. pTDefRegMap(@Self)^.&set := $20000000;
  49953. end;
  49954. procedure TINT_IFS1.clearIC1EIF; inline;
  49955. begin
  49956. pTDefRegMap(@Self)^.clr := $20000000;
  49957. end;
  49958. procedure TINT_IFS1.setIC1EIF(thebits : TBits_1); inline;
  49959. begin
  49960. if thebits = 0 then
  49961. pTDefRegMap(@Self)^.clr := $20000000
  49962. else
  49963. pTDefRegMap(@Self)^.&set := $20000000;
  49964. end;
  49965. function TINT_IFS1.getIC1EIF : TBits_1; inline;
  49966. begin
  49967. getIC1EIF := (pTDefRegMap(@Self)^.val and $20000000) shr 29;
  49968. end;
  49969. procedure TINT_IFS1.setIC2EIF; inline;
  49970. begin
  49971. pTDefRegMap(@Self)^.&set := $40000000;
  49972. end;
  49973. procedure TINT_IFS1.clearIC2EIF; inline;
  49974. begin
  49975. pTDefRegMap(@Self)^.clr := $40000000;
  49976. end;
  49977. procedure TINT_IFS1.setIC2EIF(thebits : TBits_1); inline;
  49978. begin
  49979. if thebits = 0 then
  49980. pTDefRegMap(@Self)^.clr := $40000000
  49981. else
  49982. pTDefRegMap(@Self)^.&set := $40000000;
  49983. end;
  49984. function TINT_IFS1.getIC2EIF : TBits_1; inline;
  49985. begin
  49986. getIC2EIF := (pTDefRegMap(@Self)^.val and $40000000) shr 30;
  49987. end;
  49988. procedure TINT_IFS1.setIC3EIF; inline;
  49989. begin
  49990. pTDefRegMap(@Self)^.&set := $80000000;
  49991. end;
  49992. procedure TINT_IFS1.clearIC3EIF; inline;
  49993. begin
  49994. pTDefRegMap(@Self)^.clr := $80000000;
  49995. end;
  49996. procedure TINT_IFS1.setIC3EIF(thebits : TBits_1); inline;
  49997. begin
  49998. if thebits = 0 then
  49999. pTDefRegMap(@Self)^.clr := $80000000
  50000. else
  50001. pTDefRegMap(@Self)^.&set := $80000000;
  50002. end;
  50003. function TINT_IFS1.getIC3EIF : TBits_1; inline;
  50004. begin
  50005. getIC3EIF := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  50006. end;
  50007. procedure TINT_IFS1.setU2AEIF; inline;
  50008. begin
  50009. pTDefRegMap(@Self)^.&set := $00000020;
  50010. end;
  50011. procedure TINT_IFS1.clearU2AEIF; inline;
  50012. begin
  50013. pTDefRegMap(@Self)^.clr := $00000020;
  50014. end;
  50015. procedure TINT_IFS1.setU2AEIF(thebits : TBits_1); inline;
  50016. begin
  50017. if thebits = 0 then
  50018. pTDefRegMap(@Self)^.clr := $00000020
  50019. else
  50020. pTDefRegMap(@Self)^.&set := $00000020;
  50021. end;
  50022. function TINT_IFS1.getU2AEIF : TBits_1; inline;
  50023. begin
  50024. getU2AEIF := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  50025. end;
  50026. procedure TINT_IFS1.setU2ARXIF; inline;
  50027. begin
  50028. pTDefRegMap(@Self)^.&set := $00000040;
  50029. end;
  50030. procedure TINT_IFS1.clearU2ARXIF; inline;
  50031. begin
  50032. pTDefRegMap(@Self)^.clr := $00000040;
  50033. end;
  50034. procedure TINT_IFS1.setU2ARXIF(thebits : TBits_1); inline;
  50035. begin
  50036. if thebits = 0 then
  50037. pTDefRegMap(@Self)^.clr := $00000040
  50038. else
  50039. pTDefRegMap(@Self)^.&set := $00000040;
  50040. end;
  50041. function TINT_IFS1.getU2ARXIF : TBits_1; inline;
  50042. begin
  50043. getU2ARXIF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  50044. end;
  50045. procedure TINT_IFS1.setU2ATXIF; inline;
  50046. begin
  50047. pTDefRegMap(@Self)^.&set := $00000080;
  50048. end;
  50049. procedure TINT_IFS1.clearU2ATXIF; inline;
  50050. begin
  50051. pTDefRegMap(@Self)^.clr := $00000080;
  50052. end;
  50053. procedure TINT_IFS1.setU2ATXIF(thebits : TBits_1); inline;
  50054. begin
  50055. if thebits = 0 then
  50056. pTDefRegMap(@Self)^.clr := $00000080
  50057. else
  50058. pTDefRegMap(@Self)^.&set := $00000080;
  50059. end;
  50060. function TINT_IFS1.getU2ATXIF : TBits_1; inline;
  50061. begin
  50062. getU2ATXIF := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  50063. end;
  50064. procedure TINT_IFS1.setU3AEIF; inline;
  50065. begin
  50066. pTDefRegMap(@Self)^.&set := $00000100;
  50067. end;
  50068. procedure TINT_IFS1.clearU3AEIF; inline;
  50069. begin
  50070. pTDefRegMap(@Self)^.clr := $00000100;
  50071. end;
  50072. procedure TINT_IFS1.setU3AEIF(thebits : TBits_1); inline;
  50073. begin
  50074. if thebits = 0 then
  50075. pTDefRegMap(@Self)^.clr := $00000100
  50076. else
  50077. pTDefRegMap(@Self)^.&set := $00000100;
  50078. end;
  50079. function TINT_IFS1.getU3AEIF : TBits_1; inline;
  50080. begin
  50081. getU3AEIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  50082. end;
  50083. procedure TINT_IFS1.setU3ARXIF; inline;
  50084. begin
  50085. pTDefRegMap(@Self)^.&set := $00000200;
  50086. end;
  50087. procedure TINT_IFS1.clearU3ARXIF; inline;
  50088. begin
  50089. pTDefRegMap(@Self)^.clr := $00000200;
  50090. end;
  50091. procedure TINT_IFS1.setU3ARXIF(thebits : TBits_1); inline;
  50092. begin
  50093. if thebits = 0 then
  50094. pTDefRegMap(@Self)^.clr := $00000200
  50095. else
  50096. pTDefRegMap(@Self)^.&set := $00000200;
  50097. end;
  50098. function TINT_IFS1.getU3ARXIF : TBits_1; inline;
  50099. begin
  50100. getU3ARXIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  50101. end;
  50102. procedure TINT_IFS1.setU3ATXIF; inline;
  50103. begin
  50104. pTDefRegMap(@Self)^.&set := $00000400;
  50105. end;
  50106. procedure TINT_IFS1.clearU3ATXIF; inline;
  50107. begin
  50108. pTDefRegMap(@Self)^.clr := $00000400;
  50109. end;
  50110. procedure TINT_IFS1.setU3ATXIF(thebits : TBits_1); inline;
  50111. begin
  50112. if thebits = 0 then
  50113. pTDefRegMap(@Self)^.clr := $00000400
  50114. else
  50115. pTDefRegMap(@Self)^.&set := $00000400;
  50116. end;
  50117. function TINT_IFS1.getU3ATXIF : TBits_1; inline;
  50118. begin
  50119. getU3ATXIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  50120. end;
  50121. procedure TINT_IFS1.setSPI2EIF; inline;
  50122. begin
  50123. pTDefRegMap(@Self)^.&set := $00000020;
  50124. end;
  50125. procedure TINT_IFS1.clearSPI2EIF; inline;
  50126. begin
  50127. pTDefRegMap(@Self)^.clr := $00000020;
  50128. end;
  50129. procedure TINT_IFS1.setSPI2EIF(thebits : TBits_1); inline;
  50130. begin
  50131. if thebits = 0 then
  50132. pTDefRegMap(@Self)^.clr := $00000020
  50133. else
  50134. pTDefRegMap(@Self)^.&set := $00000020;
  50135. end;
  50136. function TINT_IFS1.getSPI2EIF : TBits_1; inline;
  50137. begin
  50138. getSPI2EIF := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  50139. end;
  50140. procedure TINT_IFS1.setSPI2RXIF; inline;
  50141. begin
  50142. pTDefRegMap(@Self)^.&set := $00000040;
  50143. end;
  50144. procedure TINT_IFS1.clearSPI2RXIF; inline;
  50145. begin
  50146. pTDefRegMap(@Self)^.clr := $00000040;
  50147. end;
  50148. procedure TINT_IFS1.setSPI2RXIF(thebits : TBits_1); inline;
  50149. begin
  50150. if thebits = 0 then
  50151. pTDefRegMap(@Self)^.clr := $00000040
  50152. else
  50153. pTDefRegMap(@Self)^.&set := $00000040;
  50154. end;
  50155. function TINT_IFS1.getSPI2RXIF : TBits_1; inline;
  50156. begin
  50157. getSPI2RXIF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  50158. end;
  50159. procedure TINT_IFS1.setSPI2TXIF; inline;
  50160. begin
  50161. pTDefRegMap(@Self)^.&set := $00000080;
  50162. end;
  50163. procedure TINT_IFS1.clearSPI2TXIF; inline;
  50164. begin
  50165. pTDefRegMap(@Self)^.clr := $00000080;
  50166. end;
  50167. procedure TINT_IFS1.setSPI2TXIF(thebits : TBits_1); inline;
  50168. begin
  50169. if thebits = 0 then
  50170. pTDefRegMap(@Self)^.clr := $00000080
  50171. else
  50172. pTDefRegMap(@Self)^.&set := $00000080;
  50173. end;
  50174. function TINT_IFS1.getSPI2TXIF : TBits_1; inline;
  50175. begin
  50176. getSPI2TXIF := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  50177. end;
  50178. procedure TINT_IFS1.setSPI4EIF; inline;
  50179. begin
  50180. pTDefRegMap(@Self)^.&set := $00000100;
  50181. end;
  50182. procedure TINT_IFS1.clearSPI4EIF; inline;
  50183. begin
  50184. pTDefRegMap(@Self)^.clr := $00000100;
  50185. end;
  50186. procedure TINT_IFS1.setSPI4EIF(thebits : TBits_1); inline;
  50187. begin
  50188. if thebits = 0 then
  50189. pTDefRegMap(@Self)^.clr := $00000100
  50190. else
  50191. pTDefRegMap(@Self)^.&set := $00000100;
  50192. end;
  50193. function TINT_IFS1.getSPI4EIF : TBits_1; inline;
  50194. begin
  50195. getSPI4EIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  50196. end;
  50197. procedure TINT_IFS1.setSPI4RXIF; inline;
  50198. begin
  50199. pTDefRegMap(@Self)^.&set := $00000200;
  50200. end;
  50201. procedure TINT_IFS1.clearSPI4RXIF; inline;
  50202. begin
  50203. pTDefRegMap(@Self)^.clr := $00000200;
  50204. end;
  50205. procedure TINT_IFS1.setSPI4RXIF(thebits : TBits_1); inline;
  50206. begin
  50207. if thebits = 0 then
  50208. pTDefRegMap(@Self)^.clr := $00000200
  50209. else
  50210. pTDefRegMap(@Self)^.&set := $00000200;
  50211. end;
  50212. function TINT_IFS1.getSPI4RXIF : TBits_1; inline;
  50213. begin
  50214. getSPI4RXIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  50215. end;
  50216. procedure TINT_IFS1.setSPI4TXIF; inline;
  50217. begin
  50218. pTDefRegMap(@Self)^.&set := $00000400;
  50219. end;
  50220. procedure TINT_IFS1.clearSPI4TXIF; inline;
  50221. begin
  50222. pTDefRegMap(@Self)^.clr := $00000400;
  50223. end;
  50224. procedure TINT_IFS1.setSPI4TXIF(thebits : TBits_1); inline;
  50225. begin
  50226. if thebits = 0 then
  50227. pTDefRegMap(@Self)^.clr := $00000400
  50228. else
  50229. pTDefRegMap(@Self)^.&set := $00000400;
  50230. end;
  50231. function TINT_IFS1.getSPI4TXIF : TBits_1; inline;
  50232. begin
  50233. getSPI4TXIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  50234. end;
  50235. procedure TINT_IFS1.setSPI2AEIF; inline;
  50236. begin
  50237. pTDefRegMap(@Self)^.&set := $00000020;
  50238. end;
  50239. procedure TINT_IFS1.clearSPI2AEIF; inline;
  50240. begin
  50241. pTDefRegMap(@Self)^.clr := $00000020;
  50242. end;
  50243. procedure TINT_IFS1.setSPI2AEIF(thebits : TBits_1); inline;
  50244. begin
  50245. if thebits = 0 then
  50246. pTDefRegMap(@Self)^.clr := $00000020
  50247. else
  50248. pTDefRegMap(@Self)^.&set := $00000020;
  50249. end;
  50250. function TINT_IFS1.getSPI2AEIF : TBits_1; inline;
  50251. begin
  50252. getSPI2AEIF := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  50253. end;
  50254. procedure TINT_IFS1.setSPI2ARXIF; inline;
  50255. begin
  50256. pTDefRegMap(@Self)^.&set := $00000040;
  50257. end;
  50258. procedure TINT_IFS1.clearSPI2ARXIF; inline;
  50259. begin
  50260. pTDefRegMap(@Self)^.clr := $00000040;
  50261. end;
  50262. procedure TINT_IFS1.setSPI2ARXIF(thebits : TBits_1); inline;
  50263. begin
  50264. if thebits = 0 then
  50265. pTDefRegMap(@Self)^.clr := $00000040
  50266. else
  50267. pTDefRegMap(@Self)^.&set := $00000040;
  50268. end;
  50269. function TINT_IFS1.getSPI2ARXIF : TBits_1; inline;
  50270. begin
  50271. getSPI2ARXIF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  50272. end;
  50273. procedure TINT_IFS1.setSPI2ATXIF; inline;
  50274. begin
  50275. pTDefRegMap(@Self)^.&set := $00000080;
  50276. end;
  50277. procedure TINT_IFS1.clearSPI2ATXIF; inline;
  50278. begin
  50279. pTDefRegMap(@Self)^.clr := $00000080;
  50280. end;
  50281. procedure TINT_IFS1.setSPI2ATXIF(thebits : TBits_1); inline;
  50282. begin
  50283. if thebits = 0 then
  50284. pTDefRegMap(@Self)^.clr := $00000080
  50285. else
  50286. pTDefRegMap(@Self)^.&set := $00000080;
  50287. end;
  50288. function TINT_IFS1.getSPI2ATXIF : TBits_1; inline;
  50289. begin
  50290. getSPI2ATXIF := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  50291. end;
  50292. procedure TINT_IFS1.setSPI3AEIF; inline;
  50293. begin
  50294. pTDefRegMap(@Self)^.&set := $00000100;
  50295. end;
  50296. procedure TINT_IFS1.clearSPI3AEIF; inline;
  50297. begin
  50298. pTDefRegMap(@Self)^.clr := $00000100;
  50299. end;
  50300. procedure TINT_IFS1.setSPI3AEIF(thebits : TBits_1); inline;
  50301. begin
  50302. if thebits = 0 then
  50303. pTDefRegMap(@Self)^.clr := $00000100
  50304. else
  50305. pTDefRegMap(@Self)^.&set := $00000100;
  50306. end;
  50307. function TINT_IFS1.getSPI3AEIF : TBits_1; inline;
  50308. begin
  50309. getSPI3AEIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  50310. end;
  50311. procedure TINT_IFS1.setSPI3ARXIF; inline;
  50312. begin
  50313. pTDefRegMap(@Self)^.&set := $00000200;
  50314. end;
  50315. procedure TINT_IFS1.clearSPI3ARXIF; inline;
  50316. begin
  50317. pTDefRegMap(@Self)^.clr := $00000200;
  50318. end;
  50319. procedure TINT_IFS1.setSPI3ARXIF(thebits : TBits_1); inline;
  50320. begin
  50321. if thebits = 0 then
  50322. pTDefRegMap(@Self)^.clr := $00000200
  50323. else
  50324. pTDefRegMap(@Self)^.&set := $00000200;
  50325. end;
  50326. function TINT_IFS1.getSPI3ARXIF : TBits_1; inline;
  50327. begin
  50328. getSPI3ARXIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  50329. end;
  50330. procedure TINT_IFS1.setSPI3ATXIF; inline;
  50331. begin
  50332. pTDefRegMap(@Self)^.&set := $00000400;
  50333. end;
  50334. procedure TINT_IFS1.clearSPI3ATXIF; inline;
  50335. begin
  50336. pTDefRegMap(@Self)^.clr := $00000400;
  50337. end;
  50338. procedure TINT_IFS1.setSPI3ATXIF(thebits : TBits_1); inline;
  50339. begin
  50340. if thebits = 0 then
  50341. pTDefRegMap(@Self)^.clr := $00000400
  50342. else
  50343. pTDefRegMap(@Self)^.&set := $00000400;
  50344. end;
  50345. function TINT_IFS1.getSPI3ATXIF : TBits_1; inline;
  50346. begin
  50347. getSPI3ATXIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  50348. end;
  50349. procedure TINT_IFS1.setI2C4BIF; inline;
  50350. begin
  50351. pTDefRegMap(@Self)^.&set := $00000020;
  50352. end;
  50353. procedure TINT_IFS1.clearI2C4BIF; inline;
  50354. begin
  50355. pTDefRegMap(@Self)^.clr := $00000020;
  50356. end;
  50357. procedure TINT_IFS1.setI2C4BIF(thebits : TBits_1); inline;
  50358. begin
  50359. if thebits = 0 then
  50360. pTDefRegMap(@Self)^.clr := $00000020
  50361. else
  50362. pTDefRegMap(@Self)^.&set := $00000020;
  50363. end;
  50364. function TINT_IFS1.getI2C4BIF : TBits_1; inline;
  50365. begin
  50366. getI2C4BIF := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  50367. end;
  50368. procedure TINT_IFS1.setI2C4SIF; inline;
  50369. begin
  50370. pTDefRegMap(@Self)^.&set := $00000040;
  50371. end;
  50372. procedure TINT_IFS1.clearI2C4SIF; inline;
  50373. begin
  50374. pTDefRegMap(@Self)^.clr := $00000040;
  50375. end;
  50376. procedure TINT_IFS1.setI2C4SIF(thebits : TBits_1); inline;
  50377. begin
  50378. if thebits = 0 then
  50379. pTDefRegMap(@Self)^.clr := $00000040
  50380. else
  50381. pTDefRegMap(@Self)^.&set := $00000040;
  50382. end;
  50383. function TINT_IFS1.getI2C4SIF : TBits_1; inline;
  50384. begin
  50385. getI2C4SIF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  50386. end;
  50387. procedure TINT_IFS1.setI2C4MIF; inline;
  50388. begin
  50389. pTDefRegMap(@Self)^.&set := $00000080;
  50390. end;
  50391. procedure TINT_IFS1.clearI2C4MIF; inline;
  50392. begin
  50393. pTDefRegMap(@Self)^.clr := $00000080;
  50394. end;
  50395. procedure TINT_IFS1.setI2C4MIF(thebits : TBits_1); inline;
  50396. begin
  50397. if thebits = 0 then
  50398. pTDefRegMap(@Self)^.clr := $00000080
  50399. else
  50400. pTDefRegMap(@Self)^.&set := $00000080;
  50401. end;
  50402. function TINT_IFS1.getI2C4MIF : TBits_1; inline;
  50403. begin
  50404. getI2C4MIF := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  50405. end;
  50406. procedure TINT_IFS1.setI2C5BIF; inline;
  50407. begin
  50408. pTDefRegMap(@Self)^.&set := $00000100;
  50409. end;
  50410. procedure TINT_IFS1.clearI2C5BIF; inline;
  50411. begin
  50412. pTDefRegMap(@Self)^.clr := $00000100;
  50413. end;
  50414. procedure TINT_IFS1.setI2C5BIF(thebits : TBits_1); inline;
  50415. begin
  50416. if thebits = 0 then
  50417. pTDefRegMap(@Self)^.clr := $00000100
  50418. else
  50419. pTDefRegMap(@Self)^.&set := $00000100;
  50420. end;
  50421. function TINT_IFS1.getI2C5BIF : TBits_1; inline;
  50422. begin
  50423. getI2C5BIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  50424. end;
  50425. procedure TINT_IFS1.setI2C5SIF; inline;
  50426. begin
  50427. pTDefRegMap(@Self)^.&set := $00000200;
  50428. end;
  50429. procedure TINT_IFS1.clearI2C5SIF; inline;
  50430. begin
  50431. pTDefRegMap(@Self)^.clr := $00000200;
  50432. end;
  50433. procedure TINT_IFS1.setI2C5SIF(thebits : TBits_1); inline;
  50434. begin
  50435. if thebits = 0 then
  50436. pTDefRegMap(@Self)^.clr := $00000200
  50437. else
  50438. pTDefRegMap(@Self)^.&set := $00000200;
  50439. end;
  50440. function TINT_IFS1.getI2C5SIF : TBits_1; inline;
  50441. begin
  50442. getI2C5SIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  50443. end;
  50444. procedure TINT_IFS1.setI2C5MIF; inline;
  50445. begin
  50446. pTDefRegMap(@Self)^.&set := $00000400;
  50447. end;
  50448. procedure TINT_IFS1.clearI2C5MIF; inline;
  50449. begin
  50450. pTDefRegMap(@Self)^.clr := $00000400;
  50451. end;
  50452. procedure TINT_IFS1.setI2C5MIF(thebits : TBits_1); inline;
  50453. begin
  50454. if thebits = 0 then
  50455. pTDefRegMap(@Self)^.clr := $00000400
  50456. else
  50457. pTDefRegMap(@Self)^.&set := $00000400;
  50458. end;
  50459. function TINT_IFS1.getI2C5MIF : TBits_1; inline;
  50460. begin
  50461. getI2C5MIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  50462. end;
  50463. procedure TINT_IFS1.setI2C2ABIF; inline;
  50464. begin
  50465. pTDefRegMap(@Self)^.&set := $00000020;
  50466. end;
  50467. procedure TINT_IFS1.clearI2C2ABIF; inline;
  50468. begin
  50469. pTDefRegMap(@Self)^.clr := $00000020;
  50470. end;
  50471. procedure TINT_IFS1.setI2C2ABIF(thebits : TBits_1); inline;
  50472. begin
  50473. if thebits = 0 then
  50474. pTDefRegMap(@Self)^.clr := $00000020
  50475. else
  50476. pTDefRegMap(@Self)^.&set := $00000020;
  50477. end;
  50478. function TINT_IFS1.getI2C2ABIF : TBits_1; inline;
  50479. begin
  50480. getI2C2ABIF := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  50481. end;
  50482. procedure TINT_IFS1.setI2C2ASIF; inline;
  50483. begin
  50484. pTDefRegMap(@Self)^.&set := $00000040;
  50485. end;
  50486. procedure TINT_IFS1.clearI2C2ASIF; inline;
  50487. begin
  50488. pTDefRegMap(@Self)^.clr := $00000040;
  50489. end;
  50490. procedure TINT_IFS1.setI2C2ASIF(thebits : TBits_1); inline;
  50491. begin
  50492. if thebits = 0 then
  50493. pTDefRegMap(@Self)^.clr := $00000040
  50494. else
  50495. pTDefRegMap(@Self)^.&set := $00000040;
  50496. end;
  50497. function TINT_IFS1.getI2C2ASIF : TBits_1; inline;
  50498. begin
  50499. getI2C2ASIF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  50500. end;
  50501. procedure TINT_IFS1.setI2C2AMIF; inline;
  50502. begin
  50503. pTDefRegMap(@Self)^.&set := $00000080;
  50504. end;
  50505. procedure TINT_IFS1.clearI2C2AMIF; inline;
  50506. begin
  50507. pTDefRegMap(@Self)^.clr := $00000080;
  50508. end;
  50509. procedure TINT_IFS1.setI2C2AMIF(thebits : TBits_1); inline;
  50510. begin
  50511. if thebits = 0 then
  50512. pTDefRegMap(@Self)^.clr := $00000080
  50513. else
  50514. pTDefRegMap(@Self)^.&set := $00000080;
  50515. end;
  50516. function TINT_IFS1.getI2C2AMIF : TBits_1; inline;
  50517. begin
  50518. getI2C2AMIF := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  50519. end;
  50520. procedure TINT_IFS1.setI2C3ABIF; inline;
  50521. begin
  50522. pTDefRegMap(@Self)^.&set := $00000100;
  50523. end;
  50524. procedure TINT_IFS1.clearI2C3ABIF; inline;
  50525. begin
  50526. pTDefRegMap(@Self)^.clr := $00000100;
  50527. end;
  50528. procedure TINT_IFS1.setI2C3ABIF(thebits : TBits_1); inline;
  50529. begin
  50530. if thebits = 0 then
  50531. pTDefRegMap(@Self)^.clr := $00000100
  50532. else
  50533. pTDefRegMap(@Self)^.&set := $00000100;
  50534. end;
  50535. function TINT_IFS1.getI2C3ABIF : TBits_1; inline;
  50536. begin
  50537. getI2C3ABIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  50538. end;
  50539. procedure TINT_IFS1.setI2C3ASIF; inline;
  50540. begin
  50541. pTDefRegMap(@Self)^.&set := $00000200;
  50542. end;
  50543. procedure TINT_IFS1.clearI2C3ASIF; inline;
  50544. begin
  50545. pTDefRegMap(@Self)^.clr := $00000200;
  50546. end;
  50547. procedure TINT_IFS1.setI2C3ASIF(thebits : TBits_1); inline;
  50548. begin
  50549. if thebits = 0 then
  50550. pTDefRegMap(@Self)^.clr := $00000200
  50551. else
  50552. pTDefRegMap(@Self)^.&set := $00000200;
  50553. end;
  50554. function TINT_IFS1.getI2C3ASIF : TBits_1; inline;
  50555. begin
  50556. getI2C3ASIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  50557. end;
  50558. procedure TINT_IFS1.setI2C3AMIF; inline;
  50559. begin
  50560. pTDefRegMap(@Self)^.&set := $00000400;
  50561. end;
  50562. procedure TINT_IFS1.clearI2C3AMIF; inline;
  50563. begin
  50564. pTDefRegMap(@Self)^.clr := $00000400;
  50565. end;
  50566. procedure TINT_IFS1.setI2C3AMIF(thebits : TBits_1); inline;
  50567. begin
  50568. if thebits = 0 then
  50569. pTDefRegMap(@Self)^.clr := $00000400
  50570. else
  50571. pTDefRegMap(@Self)^.&set := $00000400;
  50572. end;
  50573. function TINT_IFS1.getI2C3AMIF : TBits_1; inline;
  50574. begin
  50575. getI2C3AMIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  50576. end;
  50577. procedure TINT_IFS1.setw(thebits : TBits_32); inline;
  50578. begin
  50579. pTDefRegMap(@Self)^.val := thebits;
  50580. end;
  50581. function TINT_IFS1.getw : TBits_32; inline;
  50582. begin
  50583. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  50584. end;
  50585. procedure TINT_IFS2.setIC4EIF; inline;
  50586. begin
  50587. pTDefRegMap(@Self)^.&set := $00000001;
  50588. end;
  50589. procedure TINT_IFS2.clearIC4EIF; inline;
  50590. begin
  50591. pTDefRegMap(@Self)^.clr := $00000001;
  50592. end;
  50593. procedure TINT_IFS2.setIC4EIF(thebits : TBits_1); inline;
  50594. begin
  50595. if thebits = 0 then
  50596. pTDefRegMap(@Self)^.clr := $00000001
  50597. else
  50598. pTDefRegMap(@Self)^.&set := $00000001;
  50599. end;
  50600. function TINT_IFS2.getIC4EIF : TBits_1; inline;
  50601. begin
  50602. getIC4EIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  50603. end;
  50604. procedure TINT_IFS2.setIC5EIF; inline;
  50605. begin
  50606. pTDefRegMap(@Self)^.&set := $00000002;
  50607. end;
  50608. procedure TINT_IFS2.clearIC5EIF; inline;
  50609. begin
  50610. pTDefRegMap(@Self)^.clr := $00000002;
  50611. end;
  50612. procedure TINT_IFS2.setIC5EIF(thebits : TBits_1); inline;
  50613. begin
  50614. if thebits = 0 then
  50615. pTDefRegMap(@Self)^.clr := $00000002
  50616. else
  50617. pTDefRegMap(@Self)^.&set := $00000002;
  50618. end;
  50619. function TINT_IFS2.getIC5EIF : TBits_1; inline;
  50620. begin
  50621. getIC5EIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  50622. end;
  50623. procedure TINT_IFS2.setPMPEIF; inline;
  50624. begin
  50625. pTDefRegMap(@Self)^.&set := $00000004;
  50626. end;
  50627. procedure TINT_IFS2.clearPMPEIF; inline;
  50628. begin
  50629. pTDefRegMap(@Self)^.clr := $00000004;
  50630. end;
  50631. procedure TINT_IFS2.setPMPEIF(thebits : TBits_1); inline;
  50632. begin
  50633. if thebits = 0 then
  50634. pTDefRegMap(@Self)^.clr := $00000004
  50635. else
  50636. pTDefRegMap(@Self)^.&set := $00000004;
  50637. end;
  50638. function TINT_IFS2.getPMPEIF : TBits_1; inline;
  50639. begin
  50640. getPMPEIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  50641. end;
  50642. procedure TINT_IFS2.setU1BEIF; inline;
  50643. begin
  50644. pTDefRegMap(@Self)^.&set := $00000008;
  50645. end;
  50646. procedure TINT_IFS2.clearU1BEIF; inline;
  50647. begin
  50648. pTDefRegMap(@Self)^.clr := $00000008;
  50649. end;
  50650. procedure TINT_IFS2.setU1BEIF(thebits : TBits_1); inline;
  50651. begin
  50652. if thebits = 0 then
  50653. pTDefRegMap(@Self)^.clr := $00000008
  50654. else
  50655. pTDefRegMap(@Self)^.&set := $00000008;
  50656. end;
  50657. function TINT_IFS2.getU1BEIF : TBits_1; inline;
  50658. begin
  50659. getU1BEIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  50660. end;
  50661. procedure TINT_IFS2.setU1BRXIF; inline;
  50662. begin
  50663. pTDefRegMap(@Self)^.&set := $00000010;
  50664. end;
  50665. procedure TINT_IFS2.clearU1BRXIF; inline;
  50666. begin
  50667. pTDefRegMap(@Self)^.clr := $00000010;
  50668. end;
  50669. procedure TINT_IFS2.setU1BRXIF(thebits : TBits_1); inline;
  50670. begin
  50671. if thebits = 0 then
  50672. pTDefRegMap(@Self)^.clr := $00000010
  50673. else
  50674. pTDefRegMap(@Self)^.&set := $00000010;
  50675. end;
  50676. function TINT_IFS2.getU1BRXIF : TBits_1; inline;
  50677. begin
  50678. getU1BRXIF := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  50679. end;
  50680. procedure TINT_IFS2.setU1BTXIF; inline;
  50681. begin
  50682. pTDefRegMap(@Self)^.&set := $00000020;
  50683. end;
  50684. procedure TINT_IFS2.clearU1BTXIF; inline;
  50685. begin
  50686. pTDefRegMap(@Self)^.clr := $00000020;
  50687. end;
  50688. procedure TINT_IFS2.setU1BTXIF(thebits : TBits_1); inline;
  50689. begin
  50690. if thebits = 0 then
  50691. pTDefRegMap(@Self)^.clr := $00000020
  50692. else
  50693. pTDefRegMap(@Self)^.&set := $00000020;
  50694. end;
  50695. function TINT_IFS2.getU1BTXIF : TBits_1; inline;
  50696. begin
  50697. getU1BTXIF := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  50698. end;
  50699. procedure TINT_IFS2.setU2BEIF; inline;
  50700. begin
  50701. pTDefRegMap(@Self)^.&set := $00000040;
  50702. end;
  50703. procedure TINT_IFS2.clearU2BEIF; inline;
  50704. begin
  50705. pTDefRegMap(@Self)^.clr := $00000040;
  50706. end;
  50707. procedure TINT_IFS2.setU2BEIF(thebits : TBits_1); inline;
  50708. begin
  50709. if thebits = 0 then
  50710. pTDefRegMap(@Self)^.clr := $00000040
  50711. else
  50712. pTDefRegMap(@Self)^.&set := $00000040;
  50713. end;
  50714. function TINT_IFS2.getU2BEIF : TBits_1; inline;
  50715. begin
  50716. getU2BEIF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  50717. end;
  50718. procedure TINT_IFS2.setU2BRXIF; inline;
  50719. begin
  50720. pTDefRegMap(@Self)^.&set := $00000080;
  50721. end;
  50722. procedure TINT_IFS2.clearU2BRXIF; inline;
  50723. begin
  50724. pTDefRegMap(@Self)^.clr := $00000080;
  50725. end;
  50726. procedure TINT_IFS2.setU2BRXIF(thebits : TBits_1); inline;
  50727. begin
  50728. if thebits = 0 then
  50729. pTDefRegMap(@Self)^.clr := $00000080
  50730. else
  50731. pTDefRegMap(@Self)^.&set := $00000080;
  50732. end;
  50733. function TINT_IFS2.getU2BRXIF : TBits_1; inline;
  50734. begin
  50735. getU2BRXIF := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  50736. end;
  50737. procedure TINT_IFS2.setU2BTXIF; inline;
  50738. begin
  50739. pTDefRegMap(@Self)^.&set := $00000100;
  50740. end;
  50741. procedure TINT_IFS2.clearU2BTXIF; inline;
  50742. begin
  50743. pTDefRegMap(@Self)^.clr := $00000100;
  50744. end;
  50745. procedure TINT_IFS2.setU2BTXIF(thebits : TBits_1); inline;
  50746. begin
  50747. if thebits = 0 then
  50748. pTDefRegMap(@Self)^.clr := $00000100
  50749. else
  50750. pTDefRegMap(@Self)^.&set := $00000100;
  50751. end;
  50752. function TINT_IFS2.getU2BTXIF : TBits_1; inline;
  50753. begin
  50754. getU2BTXIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  50755. end;
  50756. procedure TINT_IFS2.setU3BEIF; inline;
  50757. begin
  50758. pTDefRegMap(@Self)^.&set := $00000200;
  50759. end;
  50760. procedure TINT_IFS2.clearU3BEIF; inline;
  50761. begin
  50762. pTDefRegMap(@Self)^.clr := $00000200;
  50763. end;
  50764. procedure TINT_IFS2.setU3BEIF(thebits : TBits_1); inline;
  50765. begin
  50766. if thebits = 0 then
  50767. pTDefRegMap(@Self)^.clr := $00000200
  50768. else
  50769. pTDefRegMap(@Self)^.&set := $00000200;
  50770. end;
  50771. function TINT_IFS2.getU3BEIF : TBits_1; inline;
  50772. begin
  50773. getU3BEIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  50774. end;
  50775. procedure TINT_IFS2.setU3BRXIF; inline;
  50776. begin
  50777. pTDefRegMap(@Self)^.&set := $00000400;
  50778. end;
  50779. procedure TINT_IFS2.clearU3BRXIF; inline;
  50780. begin
  50781. pTDefRegMap(@Self)^.clr := $00000400;
  50782. end;
  50783. procedure TINT_IFS2.setU3BRXIF(thebits : TBits_1); inline;
  50784. begin
  50785. if thebits = 0 then
  50786. pTDefRegMap(@Self)^.clr := $00000400
  50787. else
  50788. pTDefRegMap(@Self)^.&set := $00000400;
  50789. end;
  50790. function TINT_IFS2.getU3BRXIF : TBits_1; inline;
  50791. begin
  50792. getU3BRXIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  50793. end;
  50794. procedure TINT_IFS2.setU3BTXIF; inline;
  50795. begin
  50796. pTDefRegMap(@Self)^.&set := $00000800;
  50797. end;
  50798. procedure TINT_IFS2.clearU3BTXIF; inline;
  50799. begin
  50800. pTDefRegMap(@Self)^.clr := $00000800;
  50801. end;
  50802. procedure TINT_IFS2.setU3BTXIF(thebits : TBits_1); inline;
  50803. begin
  50804. if thebits = 0 then
  50805. pTDefRegMap(@Self)^.clr := $00000800
  50806. else
  50807. pTDefRegMap(@Self)^.&set := $00000800;
  50808. end;
  50809. function TINT_IFS2.getU3BTXIF : TBits_1; inline;
  50810. begin
  50811. getU3BTXIF := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  50812. end;
  50813. procedure TINT_IFS2.setU4EIF; inline;
  50814. begin
  50815. pTDefRegMap(@Self)^.&set := $00000008;
  50816. end;
  50817. procedure TINT_IFS2.clearU4EIF; inline;
  50818. begin
  50819. pTDefRegMap(@Self)^.clr := $00000008;
  50820. end;
  50821. procedure TINT_IFS2.setU4EIF(thebits : TBits_1); inline;
  50822. begin
  50823. if thebits = 0 then
  50824. pTDefRegMap(@Self)^.clr := $00000008
  50825. else
  50826. pTDefRegMap(@Self)^.&set := $00000008;
  50827. end;
  50828. function TINT_IFS2.getU4EIF : TBits_1; inline;
  50829. begin
  50830. getU4EIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  50831. end;
  50832. procedure TINT_IFS2.setU4RXIF; inline;
  50833. begin
  50834. pTDefRegMap(@Self)^.&set := $00000010;
  50835. end;
  50836. procedure TINT_IFS2.clearU4RXIF; inline;
  50837. begin
  50838. pTDefRegMap(@Self)^.clr := $00000010;
  50839. end;
  50840. procedure TINT_IFS2.setU4RXIF(thebits : TBits_1); inline;
  50841. begin
  50842. if thebits = 0 then
  50843. pTDefRegMap(@Self)^.clr := $00000010
  50844. else
  50845. pTDefRegMap(@Self)^.&set := $00000010;
  50846. end;
  50847. function TINT_IFS2.getU4RXIF : TBits_1; inline;
  50848. begin
  50849. getU4RXIF := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  50850. end;
  50851. procedure TINT_IFS2.setU4TXIF; inline;
  50852. begin
  50853. pTDefRegMap(@Self)^.&set := $00000020;
  50854. end;
  50855. procedure TINT_IFS2.clearU4TXIF; inline;
  50856. begin
  50857. pTDefRegMap(@Self)^.clr := $00000020;
  50858. end;
  50859. procedure TINT_IFS2.setU4TXIF(thebits : TBits_1); inline;
  50860. begin
  50861. if thebits = 0 then
  50862. pTDefRegMap(@Self)^.clr := $00000020
  50863. else
  50864. pTDefRegMap(@Self)^.&set := $00000020;
  50865. end;
  50866. function TINT_IFS2.getU4TXIF : TBits_1; inline;
  50867. begin
  50868. getU4TXIF := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  50869. end;
  50870. procedure TINT_IFS2.setU6EIF; inline;
  50871. begin
  50872. pTDefRegMap(@Self)^.&set := $00000040;
  50873. end;
  50874. procedure TINT_IFS2.clearU6EIF; inline;
  50875. begin
  50876. pTDefRegMap(@Self)^.clr := $00000040;
  50877. end;
  50878. procedure TINT_IFS2.setU6EIF(thebits : TBits_1); inline;
  50879. begin
  50880. if thebits = 0 then
  50881. pTDefRegMap(@Self)^.clr := $00000040
  50882. else
  50883. pTDefRegMap(@Self)^.&set := $00000040;
  50884. end;
  50885. function TINT_IFS2.getU6EIF : TBits_1; inline;
  50886. begin
  50887. getU6EIF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  50888. end;
  50889. procedure TINT_IFS2.setU6RXIF; inline;
  50890. begin
  50891. pTDefRegMap(@Self)^.&set := $00000080;
  50892. end;
  50893. procedure TINT_IFS2.clearU6RXIF; inline;
  50894. begin
  50895. pTDefRegMap(@Self)^.clr := $00000080;
  50896. end;
  50897. procedure TINT_IFS2.setU6RXIF(thebits : TBits_1); inline;
  50898. begin
  50899. if thebits = 0 then
  50900. pTDefRegMap(@Self)^.clr := $00000080
  50901. else
  50902. pTDefRegMap(@Self)^.&set := $00000080;
  50903. end;
  50904. function TINT_IFS2.getU6RXIF : TBits_1; inline;
  50905. begin
  50906. getU6RXIF := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  50907. end;
  50908. procedure TINT_IFS2.setU6TXIF; inline;
  50909. begin
  50910. pTDefRegMap(@Self)^.&set := $00000100;
  50911. end;
  50912. procedure TINT_IFS2.clearU6TXIF; inline;
  50913. begin
  50914. pTDefRegMap(@Self)^.clr := $00000100;
  50915. end;
  50916. procedure TINT_IFS2.setU6TXIF(thebits : TBits_1); inline;
  50917. begin
  50918. if thebits = 0 then
  50919. pTDefRegMap(@Self)^.clr := $00000100
  50920. else
  50921. pTDefRegMap(@Self)^.&set := $00000100;
  50922. end;
  50923. function TINT_IFS2.getU6TXIF : TBits_1; inline;
  50924. begin
  50925. getU6TXIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  50926. end;
  50927. procedure TINT_IFS2.setU5EIF; inline;
  50928. begin
  50929. pTDefRegMap(@Self)^.&set := $00000200;
  50930. end;
  50931. procedure TINT_IFS2.clearU5EIF; inline;
  50932. begin
  50933. pTDefRegMap(@Self)^.clr := $00000200;
  50934. end;
  50935. procedure TINT_IFS2.setU5EIF(thebits : TBits_1); inline;
  50936. begin
  50937. if thebits = 0 then
  50938. pTDefRegMap(@Self)^.clr := $00000200
  50939. else
  50940. pTDefRegMap(@Self)^.&set := $00000200;
  50941. end;
  50942. function TINT_IFS2.getU5EIF : TBits_1; inline;
  50943. begin
  50944. getU5EIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  50945. end;
  50946. procedure TINT_IFS2.setU5RXIF; inline;
  50947. begin
  50948. pTDefRegMap(@Self)^.&set := $00000400;
  50949. end;
  50950. procedure TINT_IFS2.clearU5RXIF; inline;
  50951. begin
  50952. pTDefRegMap(@Self)^.clr := $00000400;
  50953. end;
  50954. procedure TINT_IFS2.setU5RXIF(thebits : TBits_1); inline;
  50955. begin
  50956. if thebits = 0 then
  50957. pTDefRegMap(@Self)^.clr := $00000400
  50958. else
  50959. pTDefRegMap(@Self)^.&set := $00000400;
  50960. end;
  50961. function TINT_IFS2.getU5RXIF : TBits_1; inline;
  50962. begin
  50963. getU5RXIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  50964. end;
  50965. procedure TINT_IFS2.setU5TXIF; inline;
  50966. begin
  50967. pTDefRegMap(@Self)^.&set := $00000800;
  50968. end;
  50969. procedure TINT_IFS2.clearU5TXIF; inline;
  50970. begin
  50971. pTDefRegMap(@Self)^.clr := $00000800;
  50972. end;
  50973. procedure TINT_IFS2.setU5TXIF(thebits : TBits_1); inline;
  50974. begin
  50975. if thebits = 0 then
  50976. pTDefRegMap(@Self)^.clr := $00000800
  50977. else
  50978. pTDefRegMap(@Self)^.&set := $00000800;
  50979. end;
  50980. function TINT_IFS2.getU5TXIF : TBits_1; inline;
  50981. begin
  50982. getU5TXIF := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  50983. end;
  50984. procedure TINT_IFS2.setw(thebits : TBits_32); inline;
  50985. begin
  50986. pTDefRegMap(@Self)^.val := thebits;
  50987. end;
  50988. function TINT_IFS2.getw : TBits_32; inline;
  50989. begin
  50990. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  50991. end;
  50992. procedure TINT_IEC0.setCTIE; inline;
  50993. begin
  50994. pTDefRegMap(@Self)^.&set := $00000001;
  50995. end;
  50996. procedure TINT_IEC0.clearCTIE; inline;
  50997. begin
  50998. pTDefRegMap(@Self)^.clr := $00000001;
  50999. end;
  51000. procedure TINT_IEC0.setCTIE(thebits : TBits_1); inline;
  51001. begin
  51002. if thebits = 0 then
  51003. pTDefRegMap(@Self)^.clr := $00000001
  51004. else
  51005. pTDefRegMap(@Self)^.&set := $00000001;
  51006. end;
  51007. function TINT_IEC0.getCTIE : TBits_1; inline;
  51008. begin
  51009. getCTIE := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  51010. end;
  51011. procedure TINT_IEC0.setCS0IE; inline;
  51012. begin
  51013. pTDefRegMap(@Self)^.&set := $00000002;
  51014. end;
  51015. procedure TINT_IEC0.clearCS0IE; inline;
  51016. begin
  51017. pTDefRegMap(@Self)^.clr := $00000002;
  51018. end;
  51019. procedure TINT_IEC0.setCS0IE(thebits : TBits_1); inline;
  51020. begin
  51021. if thebits = 0 then
  51022. pTDefRegMap(@Self)^.clr := $00000002
  51023. else
  51024. pTDefRegMap(@Self)^.&set := $00000002;
  51025. end;
  51026. function TINT_IEC0.getCS0IE : TBits_1; inline;
  51027. begin
  51028. getCS0IE := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  51029. end;
  51030. procedure TINT_IEC0.setCS1IE; inline;
  51031. begin
  51032. pTDefRegMap(@Self)^.&set := $00000004;
  51033. end;
  51034. procedure TINT_IEC0.clearCS1IE; inline;
  51035. begin
  51036. pTDefRegMap(@Self)^.clr := $00000004;
  51037. end;
  51038. procedure TINT_IEC0.setCS1IE(thebits : TBits_1); inline;
  51039. begin
  51040. if thebits = 0 then
  51041. pTDefRegMap(@Self)^.clr := $00000004
  51042. else
  51043. pTDefRegMap(@Self)^.&set := $00000004;
  51044. end;
  51045. function TINT_IEC0.getCS1IE : TBits_1; inline;
  51046. begin
  51047. getCS1IE := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  51048. end;
  51049. procedure TINT_IEC0.setINT0IE; inline;
  51050. begin
  51051. pTDefRegMap(@Self)^.&set := $00000008;
  51052. end;
  51053. procedure TINT_IEC0.clearINT0IE; inline;
  51054. begin
  51055. pTDefRegMap(@Self)^.clr := $00000008;
  51056. end;
  51057. procedure TINT_IEC0.setINT0IE(thebits : TBits_1); inline;
  51058. begin
  51059. if thebits = 0 then
  51060. pTDefRegMap(@Self)^.clr := $00000008
  51061. else
  51062. pTDefRegMap(@Self)^.&set := $00000008;
  51063. end;
  51064. function TINT_IEC0.getINT0IE : TBits_1; inline;
  51065. begin
  51066. getINT0IE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  51067. end;
  51068. procedure TINT_IEC0.setT1IE; inline;
  51069. begin
  51070. pTDefRegMap(@Self)^.&set := $00000010;
  51071. end;
  51072. procedure TINT_IEC0.clearT1IE; inline;
  51073. begin
  51074. pTDefRegMap(@Self)^.clr := $00000010;
  51075. end;
  51076. procedure TINT_IEC0.setT1IE(thebits : TBits_1); inline;
  51077. begin
  51078. if thebits = 0 then
  51079. pTDefRegMap(@Self)^.clr := $00000010
  51080. else
  51081. pTDefRegMap(@Self)^.&set := $00000010;
  51082. end;
  51083. function TINT_IEC0.getT1IE : TBits_1; inline;
  51084. begin
  51085. getT1IE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  51086. end;
  51087. procedure TINT_IEC0.setIC1IE; inline;
  51088. begin
  51089. pTDefRegMap(@Self)^.&set := $00000020;
  51090. end;
  51091. procedure TINT_IEC0.clearIC1IE; inline;
  51092. begin
  51093. pTDefRegMap(@Self)^.clr := $00000020;
  51094. end;
  51095. procedure TINT_IEC0.setIC1IE(thebits : TBits_1); inline;
  51096. begin
  51097. if thebits = 0 then
  51098. pTDefRegMap(@Self)^.clr := $00000020
  51099. else
  51100. pTDefRegMap(@Self)^.&set := $00000020;
  51101. end;
  51102. function TINT_IEC0.getIC1IE : TBits_1; inline;
  51103. begin
  51104. getIC1IE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  51105. end;
  51106. procedure TINT_IEC0.setOC1IE; inline;
  51107. begin
  51108. pTDefRegMap(@Self)^.&set := $00000040;
  51109. end;
  51110. procedure TINT_IEC0.clearOC1IE; inline;
  51111. begin
  51112. pTDefRegMap(@Self)^.clr := $00000040;
  51113. end;
  51114. procedure TINT_IEC0.setOC1IE(thebits : TBits_1); inline;
  51115. begin
  51116. if thebits = 0 then
  51117. pTDefRegMap(@Self)^.clr := $00000040
  51118. else
  51119. pTDefRegMap(@Self)^.&set := $00000040;
  51120. end;
  51121. function TINT_IEC0.getOC1IE : TBits_1; inline;
  51122. begin
  51123. getOC1IE := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  51124. end;
  51125. procedure TINT_IEC0.setINT1IE; inline;
  51126. begin
  51127. pTDefRegMap(@Self)^.&set := $00000080;
  51128. end;
  51129. procedure TINT_IEC0.clearINT1IE; inline;
  51130. begin
  51131. pTDefRegMap(@Self)^.clr := $00000080;
  51132. end;
  51133. procedure TINT_IEC0.setINT1IE(thebits : TBits_1); inline;
  51134. begin
  51135. if thebits = 0 then
  51136. pTDefRegMap(@Self)^.clr := $00000080
  51137. else
  51138. pTDefRegMap(@Self)^.&set := $00000080;
  51139. end;
  51140. function TINT_IEC0.getINT1IE : TBits_1; inline;
  51141. begin
  51142. getINT1IE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  51143. end;
  51144. procedure TINT_IEC0.setT2IE; inline;
  51145. begin
  51146. pTDefRegMap(@Self)^.&set := $00000100;
  51147. end;
  51148. procedure TINT_IEC0.clearT2IE; inline;
  51149. begin
  51150. pTDefRegMap(@Self)^.clr := $00000100;
  51151. end;
  51152. procedure TINT_IEC0.setT2IE(thebits : TBits_1); inline;
  51153. begin
  51154. if thebits = 0 then
  51155. pTDefRegMap(@Self)^.clr := $00000100
  51156. else
  51157. pTDefRegMap(@Self)^.&set := $00000100;
  51158. end;
  51159. function TINT_IEC0.getT2IE : TBits_1; inline;
  51160. begin
  51161. getT2IE := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  51162. end;
  51163. procedure TINT_IEC0.setIC2IE; inline;
  51164. begin
  51165. pTDefRegMap(@Self)^.&set := $00000200;
  51166. end;
  51167. procedure TINT_IEC0.clearIC2IE; inline;
  51168. begin
  51169. pTDefRegMap(@Self)^.clr := $00000200;
  51170. end;
  51171. procedure TINT_IEC0.setIC2IE(thebits : TBits_1); inline;
  51172. begin
  51173. if thebits = 0 then
  51174. pTDefRegMap(@Self)^.clr := $00000200
  51175. else
  51176. pTDefRegMap(@Self)^.&set := $00000200;
  51177. end;
  51178. function TINT_IEC0.getIC2IE : TBits_1; inline;
  51179. begin
  51180. getIC2IE := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  51181. end;
  51182. procedure TINT_IEC0.setOC2IE; inline;
  51183. begin
  51184. pTDefRegMap(@Self)^.&set := $00000400;
  51185. end;
  51186. procedure TINT_IEC0.clearOC2IE; inline;
  51187. begin
  51188. pTDefRegMap(@Self)^.clr := $00000400;
  51189. end;
  51190. procedure TINT_IEC0.setOC2IE(thebits : TBits_1); inline;
  51191. begin
  51192. if thebits = 0 then
  51193. pTDefRegMap(@Self)^.clr := $00000400
  51194. else
  51195. pTDefRegMap(@Self)^.&set := $00000400;
  51196. end;
  51197. function TINT_IEC0.getOC2IE : TBits_1; inline;
  51198. begin
  51199. getOC2IE := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  51200. end;
  51201. procedure TINT_IEC0.setINT2IE; inline;
  51202. begin
  51203. pTDefRegMap(@Self)^.&set := $00000800;
  51204. end;
  51205. procedure TINT_IEC0.clearINT2IE; inline;
  51206. begin
  51207. pTDefRegMap(@Self)^.clr := $00000800;
  51208. end;
  51209. procedure TINT_IEC0.setINT2IE(thebits : TBits_1); inline;
  51210. begin
  51211. if thebits = 0 then
  51212. pTDefRegMap(@Self)^.clr := $00000800
  51213. else
  51214. pTDefRegMap(@Self)^.&set := $00000800;
  51215. end;
  51216. function TINT_IEC0.getINT2IE : TBits_1; inline;
  51217. begin
  51218. getINT2IE := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  51219. end;
  51220. procedure TINT_IEC0.setT3IE; inline;
  51221. begin
  51222. pTDefRegMap(@Self)^.&set := $00001000;
  51223. end;
  51224. procedure TINT_IEC0.clearT3IE; inline;
  51225. begin
  51226. pTDefRegMap(@Self)^.clr := $00001000;
  51227. end;
  51228. procedure TINT_IEC0.setT3IE(thebits : TBits_1); inline;
  51229. begin
  51230. if thebits = 0 then
  51231. pTDefRegMap(@Self)^.clr := $00001000
  51232. else
  51233. pTDefRegMap(@Self)^.&set := $00001000;
  51234. end;
  51235. function TINT_IEC0.getT3IE : TBits_1; inline;
  51236. begin
  51237. getT3IE := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  51238. end;
  51239. procedure TINT_IEC0.setIC3IE; inline;
  51240. begin
  51241. pTDefRegMap(@Self)^.&set := $00002000;
  51242. end;
  51243. procedure TINT_IEC0.clearIC3IE; inline;
  51244. begin
  51245. pTDefRegMap(@Self)^.clr := $00002000;
  51246. end;
  51247. procedure TINT_IEC0.setIC3IE(thebits : TBits_1); inline;
  51248. begin
  51249. if thebits = 0 then
  51250. pTDefRegMap(@Self)^.clr := $00002000
  51251. else
  51252. pTDefRegMap(@Self)^.&set := $00002000;
  51253. end;
  51254. function TINT_IEC0.getIC3IE : TBits_1; inline;
  51255. begin
  51256. getIC3IE := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  51257. end;
  51258. procedure TINT_IEC0.setOC3IE; inline;
  51259. begin
  51260. pTDefRegMap(@Self)^.&set := $00004000;
  51261. end;
  51262. procedure TINT_IEC0.clearOC3IE; inline;
  51263. begin
  51264. pTDefRegMap(@Self)^.clr := $00004000;
  51265. end;
  51266. procedure TINT_IEC0.setOC3IE(thebits : TBits_1); inline;
  51267. begin
  51268. if thebits = 0 then
  51269. pTDefRegMap(@Self)^.clr := $00004000
  51270. else
  51271. pTDefRegMap(@Self)^.&set := $00004000;
  51272. end;
  51273. function TINT_IEC0.getOC3IE : TBits_1; inline;
  51274. begin
  51275. getOC3IE := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  51276. end;
  51277. procedure TINT_IEC0.setINT3IE; inline;
  51278. begin
  51279. pTDefRegMap(@Self)^.&set := $00008000;
  51280. end;
  51281. procedure TINT_IEC0.clearINT3IE; inline;
  51282. begin
  51283. pTDefRegMap(@Self)^.clr := $00008000;
  51284. end;
  51285. procedure TINT_IEC0.setINT3IE(thebits : TBits_1); inline;
  51286. begin
  51287. if thebits = 0 then
  51288. pTDefRegMap(@Self)^.clr := $00008000
  51289. else
  51290. pTDefRegMap(@Self)^.&set := $00008000;
  51291. end;
  51292. function TINT_IEC0.getINT3IE : TBits_1; inline;
  51293. begin
  51294. getINT3IE := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  51295. end;
  51296. procedure TINT_IEC0.setT4IE; inline;
  51297. begin
  51298. pTDefRegMap(@Self)^.&set := $00010000;
  51299. end;
  51300. procedure TINT_IEC0.clearT4IE; inline;
  51301. begin
  51302. pTDefRegMap(@Self)^.clr := $00010000;
  51303. end;
  51304. procedure TINT_IEC0.setT4IE(thebits : TBits_1); inline;
  51305. begin
  51306. if thebits = 0 then
  51307. pTDefRegMap(@Self)^.clr := $00010000
  51308. else
  51309. pTDefRegMap(@Self)^.&set := $00010000;
  51310. end;
  51311. function TINT_IEC0.getT4IE : TBits_1; inline;
  51312. begin
  51313. getT4IE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  51314. end;
  51315. procedure TINT_IEC0.setIC4IE; inline;
  51316. begin
  51317. pTDefRegMap(@Self)^.&set := $00020000;
  51318. end;
  51319. procedure TINT_IEC0.clearIC4IE; inline;
  51320. begin
  51321. pTDefRegMap(@Self)^.clr := $00020000;
  51322. end;
  51323. procedure TINT_IEC0.setIC4IE(thebits : TBits_1); inline;
  51324. begin
  51325. if thebits = 0 then
  51326. pTDefRegMap(@Self)^.clr := $00020000
  51327. else
  51328. pTDefRegMap(@Self)^.&set := $00020000;
  51329. end;
  51330. function TINT_IEC0.getIC4IE : TBits_1; inline;
  51331. begin
  51332. getIC4IE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  51333. end;
  51334. procedure TINT_IEC0.setOC4IE; inline;
  51335. begin
  51336. pTDefRegMap(@Self)^.&set := $00040000;
  51337. end;
  51338. procedure TINT_IEC0.clearOC4IE; inline;
  51339. begin
  51340. pTDefRegMap(@Self)^.clr := $00040000;
  51341. end;
  51342. procedure TINT_IEC0.setOC4IE(thebits : TBits_1); inline;
  51343. begin
  51344. if thebits = 0 then
  51345. pTDefRegMap(@Self)^.clr := $00040000
  51346. else
  51347. pTDefRegMap(@Self)^.&set := $00040000;
  51348. end;
  51349. function TINT_IEC0.getOC4IE : TBits_1; inline;
  51350. begin
  51351. getOC4IE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  51352. end;
  51353. procedure TINT_IEC0.setINT4IE; inline;
  51354. begin
  51355. pTDefRegMap(@Self)^.&set := $00080000;
  51356. end;
  51357. procedure TINT_IEC0.clearINT4IE; inline;
  51358. begin
  51359. pTDefRegMap(@Self)^.clr := $00080000;
  51360. end;
  51361. procedure TINT_IEC0.setINT4IE(thebits : TBits_1); inline;
  51362. begin
  51363. if thebits = 0 then
  51364. pTDefRegMap(@Self)^.clr := $00080000
  51365. else
  51366. pTDefRegMap(@Self)^.&set := $00080000;
  51367. end;
  51368. function TINT_IEC0.getINT4IE : TBits_1; inline;
  51369. begin
  51370. getINT4IE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  51371. end;
  51372. procedure TINT_IEC0.setT5IE; inline;
  51373. begin
  51374. pTDefRegMap(@Self)^.&set := $00100000;
  51375. end;
  51376. procedure TINT_IEC0.clearT5IE; inline;
  51377. begin
  51378. pTDefRegMap(@Self)^.clr := $00100000;
  51379. end;
  51380. procedure TINT_IEC0.setT5IE(thebits : TBits_1); inline;
  51381. begin
  51382. if thebits = 0 then
  51383. pTDefRegMap(@Self)^.clr := $00100000
  51384. else
  51385. pTDefRegMap(@Self)^.&set := $00100000;
  51386. end;
  51387. function TINT_IEC0.getT5IE : TBits_1; inline;
  51388. begin
  51389. getT5IE := (pTDefRegMap(@Self)^.val and $00100000) shr 20;
  51390. end;
  51391. procedure TINT_IEC0.setIC5IE; inline;
  51392. begin
  51393. pTDefRegMap(@Self)^.&set := $00200000;
  51394. end;
  51395. procedure TINT_IEC0.clearIC5IE; inline;
  51396. begin
  51397. pTDefRegMap(@Self)^.clr := $00200000;
  51398. end;
  51399. procedure TINT_IEC0.setIC5IE(thebits : TBits_1); inline;
  51400. begin
  51401. if thebits = 0 then
  51402. pTDefRegMap(@Self)^.clr := $00200000
  51403. else
  51404. pTDefRegMap(@Self)^.&set := $00200000;
  51405. end;
  51406. function TINT_IEC0.getIC5IE : TBits_1; inline;
  51407. begin
  51408. getIC5IE := (pTDefRegMap(@Self)^.val and $00200000) shr 21;
  51409. end;
  51410. procedure TINT_IEC0.setOC5IE; inline;
  51411. begin
  51412. pTDefRegMap(@Self)^.&set := $00400000;
  51413. end;
  51414. procedure TINT_IEC0.clearOC5IE; inline;
  51415. begin
  51416. pTDefRegMap(@Self)^.clr := $00400000;
  51417. end;
  51418. procedure TINT_IEC0.setOC5IE(thebits : TBits_1); inline;
  51419. begin
  51420. if thebits = 0 then
  51421. pTDefRegMap(@Self)^.clr := $00400000
  51422. else
  51423. pTDefRegMap(@Self)^.&set := $00400000;
  51424. end;
  51425. function TINT_IEC0.getOC5IE : TBits_1; inline;
  51426. begin
  51427. getOC5IE := (pTDefRegMap(@Self)^.val and $00400000) shr 22;
  51428. end;
  51429. procedure TINT_IEC0.setSPI1EIE; inline;
  51430. begin
  51431. pTDefRegMap(@Self)^.&set := $00800000;
  51432. end;
  51433. procedure TINT_IEC0.clearSPI1EIE; inline;
  51434. begin
  51435. pTDefRegMap(@Self)^.clr := $00800000;
  51436. end;
  51437. procedure TINT_IEC0.setSPI1EIE(thebits : TBits_1); inline;
  51438. begin
  51439. if thebits = 0 then
  51440. pTDefRegMap(@Self)^.clr := $00800000
  51441. else
  51442. pTDefRegMap(@Self)^.&set := $00800000;
  51443. end;
  51444. function TINT_IEC0.getSPI1EIE : TBits_1; inline;
  51445. begin
  51446. getSPI1EIE := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
  51447. end;
  51448. procedure TINT_IEC0.setSPI1RXIE; inline;
  51449. begin
  51450. pTDefRegMap(@Self)^.&set := $01000000;
  51451. end;
  51452. procedure TINT_IEC0.clearSPI1RXIE; inline;
  51453. begin
  51454. pTDefRegMap(@Self)^.clr := $01000000;
  51455. end;
  51456. procedure TINT_IEC0.setSPI1RXIE(thebits : TBits_1); inline;
  51457. begin
  51458. if thebits = 0 then
  51459. pTDefRegMap(@Self)^.clr := $01000000
  51460. else
  51461. pTDefRegMap(@Self)^.&set := $01000000;
  51462. end;
  51463. function TINT_IEC0.getSPI1RXIE : TBits_1; inline;
  51464. begin
  51465. getSPI1RXIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  51466. end;
  51467. procedure TINT_IEC0.setSPI1TXIE; inline;
  51468. begin
  51469. pTDefRegMap(@Self)^.&set := $02000000;
  51470. end;
  51471. procedure TINT_IEC0.clearSPI1TXIE; inline;
  51472. begin
  51473. pTDefRegMap(@Self)^.clr := $02000000;
  51474. end;
  51475. procedure TINT_IEC0.setSPI1TXIE(thebits : TBits_1); inline;
  51476. begin
  51477. if thebits = 0 then
  51478. pTDefRegMap(@Self)^.clr := $02000000
  51479. else
  51480. pTDefRegMap(@Self)^.&set := $02000000;
  51481. end;
  51482. function TINT_IEC0.getSPI1TXIE : TBits_1; inline;
  51483. begin
  51484. getSPI1TXIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  51485. end;
  51486. procedure TINT_IEC0.setU1EIE; inline;
  51487. begin
  51488. pTDefRegMap(@Self)^.&set := $04000000;
  51489. end;
  51490. procedure TINT_IEC0.clearU1EIE; inline;
  51491. begin
  51492. pTDefRegMap(@Self)^.clr := $04000000;
  51493. end;
  51494. procedure TINT_IEC0.setU1EIE(thebits : TBits_1); inline;
  51495. begin
  51496. if thebits = 0 then
  51497. pTDefRegMap(@Self)^.clr := $04000000
  51498. else
  51499. pTDefRegMap(@Self)^.&set := $04000000;
  51500. end;
  51501. function TINT_IEC0.getU1EIE : TBits_1; inline;
  51502. begin
  51503. getU1EIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  51504. end;
  51505. procedure TINT_IEC0.setU1RXIE; inline;
  51506. begin
  51507. pTDefRegMap(@Self)^.&set := $08000000;
  51508. end;
  51509. procedure TINT_IEC0.clearU1RXIE; inline;
  51510. begin
  51511. pTDefRegMap(@Self)^.clr := $08000000;
  51512. end;
  51513. procedure TINT_IEC0.setU1RXIE(thebits : TBits_1); inline;
  51514. begin
  51515. if thebits = 0 then
  51516. pTDefRegMap(@Self)^.clr := $08000000
  51517. else
  51518. pTDefRegMap(@Self)^.&set := $08000000;
  51519. end;
  51520. function TINT_IEC0.getU1RXIE : TBits_1; inline;
  51521. begin
  51522. getU1RXIE := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  51523. end;
  51524. procedure TINT_IEC0.setU1TXIE; inline;
  51525. begin
  51526. pTDefRegMap(@Self)^.&set := $10000000;
  51527. end;
  51528. procedure TINT_IEC0.clearU1TXIE; inline;
  51529. begin
  51530. pTDefRegMap(@Self)^.clr := $10000000;
  51531. end;
  51532. procedure TINT_IEC0.setU1TXIE(thebits : TBits_1); inline;
  51533. begin
  51534. if thebits = 0 then
  51535. pTDefRegMap(@Self)^.clr := $10000000
  51536. else
  51537. pTDefRegMap(@Self)^.&set := $10000000;
  51538. end;
  51539. function TINT_IEC0.getU1TXIE : TBits_1; inline;
  51540. begin
  51541. getU1TXIE := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  51542. end;
  51543. procedure TINT_IEC0.setI2C1BIE; inline;
  51544. begin
  51545. pTDefRegMap(@Self)^.&set := $20000000;
  51546. end;
  51547. procedure TINT_IEC0.clearI2C1BIE; inline;
  51548. begin
  51549. pTDefRegMap(@Self)^.clr := $20000000;
  51550. end;
  51551. procedure TINT_IEC0.setI2C1BIE(thebits : TBits_1); inline;
  51552. begin
  51553. if thebits = 0 then
  51554. pTDefRegMap(@Self)^.clr := $20000000
  51555. else
  51556. pTDefRegMap(@Self)^.&set := $20000000;
  51557. end;
  51558. function TINT_IEC0.getI2C1BIE : TBits_1; inline;
  51559. begin
  51560. getI2C1BIE := (pTDefRegMap(@Self)^.val and $20000000) shr 29;
  51561. end;
  51562. procedure TINT_IEC0.setI2C1SIE; inline;
  51563. begin
  51564. pTDefRegMap(@Self)^.&set := $40000000;
  51565. end;
  51566. procedure TINT_IEC0.clearI2C1SIE; inline;
  51567. begin
  51568. pTDefRegMap(@Self)^.clr := $40000000;
  51569. end;
  51570. procedure TINT_IEC0.setI2C1SIE(thebits : TBits_1); inline;
  51571. begin
  51572. if thebits = 0 then
  51573. pTDefRegMap(@Self)^.clr := $40000000
  51574. else
  51575. pTDefRegMap(@Self)^.&set := $40000000;
  51576. end;
  51577. function TINT_IEC0.getI2C1SIE : TBits_1; inline;
  51578. begin
  51579. getI2C1SIE := (pTDefRegMap(@Self)^.val and $40000000) shr 30;
  51580. end;
  51581. procedure TINT_IEC0.setI2C1MIE; inline;
  51582. begin
  51583. pTDefRegMap(@Self)^.&set := $80000000;
  51584. end;
  51585. procedure TINT_IEC0.clearI2C1MIE; inline;
  51586. begin
  51587. pTDefRegMap(@Self)^.clr := $80000000;
  51588. end;
  51589. procedure TINT_IEC0.setI2C1MIE(thebits : TBits_1); inline;
  51590. begin
  51591. if thebits = 0 then
  51592. pTDefRegMap(@Self)^.clr := $80000000
  51593. else
  51594. pTDefRegMap(@Self)^.&set := $80000000;
  51595. end;
  51596. function TINT_IEC0.getI2C1MIE : TBits_1; inline;
  51597. begin
  51598. getI2C1MIE := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  51599. end;
  51600. procedure TINT_IEC0.setU1AEIE; inline;
  51601. begin
  51602. pTDefRegMap(@Self)^.&set := $04000000;
  51603. end;
  51604. procedure TINT_IEC0.clearU1AEIE; inline;
  51605. begin
  51606. pTDefRegMap(@Self)^.clr := $04000000;
  51607. end;
  51608. procedure TINT_IEC0.setU1AEIE(thebits : TBits_1); inline;
  51609. begin
  51610. if thebits = 0 then
  51611. pTDefRegMap(@Self)^.clr := $04000000
  51612. else
  51613. pTDefRegMap(@Self)^.&set := $04000000;
  51614. end;
  51615. function TINT_IEC0.getU1AEIE : TBits_1; inline;
  51616. begin
  51617. getU1AEIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  51618. end;
  51619. procedure TINT_IEC0.setU1ARXIE; inline;
  51620. begin
  51621. pTDefRegMap(@Self)^.&set := $08000000;
  51622. end;
  51623. procedure TINT_IEC0.clearU1ARXIE; inline;
  51624. begin
  51625. pTDefRegMap(@Self)^.clr := $08000000;
  51626. end;
  51627. procedure TINT_IEC0.setU1ARXIE(thebits : TBits_1); inline;
  51628. begin
  51629. if thebits = 0 then
  51630. pTDefRegMap(@Self)^.clr := $08000000
  51631. else
  51632. pTDefRegMap(@Self)^.&set := $08000000;
  51633. end;
  51634. function TINT_IEC0.getU1ARXIE : TBits_1; inline;
  51635. begin
  51636. getU1ARXIE := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  51637. end;
  51638. procedure TINT_IEC0.setU1ATXIE; inline;
  51639. begin
  51640. pTDefRegMap(@Self)^.&set := $10000000;
  51641. end;
  51642. procedure TINT_IEC0.clearU1ATXIE; inline;
  51643. begin
  51644. pTDefRegMap(@Self)^.clr := $10000000;
  51645. end;
  51646. procedure TINT_IEC0.setU1ATXIE(thebits : TBits_1); inline;
  51647. begin
  51648. if thebits = 0 then
  51649. pTDefRegMap(@Self)^.clr := $10000000
  51650. else
  51651. pTDefRegMap(@Self)^.&set := $10000000;
  51652. end;
  51653. function TINT_IEC0.getU1ATXIE : TBits_1; inline;
  51654. begin
  51655. getU1ATXIE := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  51656. end;
  51657. procedure TINT_IEC0.setSPI3EIE; inline;
  51658. begin
  51659. pTDefRegMap(@Self)^.&set := $04000000;
  51660. end;
  51661. procedure TINT_IEC0.clearSPI3EIE; inline;
  51662. begin
  51663. pTDefRegMap(@Self)^.clr := $04000000;
  51664. end;
  51665. procedure TINT_IEC0.setSPI3EIE(thebits : TBits_1); inline;
  51666. begin
  51667. if thebits = 0 then
  51668. pTDefRegMap(@Self)^.clr := $04000000
  51669. else
  51670. pTDefRegMap(@Self)^.&set := $04000000;
  51671. end;
  51672. function TINT_IEC0.getSPI3EIE : TBits_1; inline;
  51673. begin
  51674. getSPI3EIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  51675. end;
  51676. procedure TINT_IEC0.setSPI3RXIE; inline;
  51677. begin
  51678. pTDefRegMap(@Self)^.&set := $08000000;
  51679. end;
  51680. procedure TINT_IEC0.clearSPI3RXIE; inline;
  51681. begin
  51682. pTDefRegMap(@Self)^.clr := $08000000;
  51683. end;
  51684. procedure TINT_IEC0.setSPI3RXIE(thebits : TBits_1); inline;
  51685. begin
  51686. if thebits = 0 then
  51687. pTDefRegMap(@Self)^.clr := $08000000
  51688. else
  51689. pTDefRegMap(@Self)^.&set := $08000000;
  51690. end;
  51691. function TINT_IEC0.getSPI3RXIE : TBits_1; inline;
  51692. begin
  51693. getSPI3RXIE := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  51694. end;
  51695. procedure TINT_IEC0.setSPI3TXIE; inline;
  51696. begin
  51697. pTDefRegMap(@Self)^.&set := $10000000;
  51698. end;
  51699. procedure TINT_IEC0.clearSPI3TXIE; inline;
  51700. begin
  51701. pTDefRegMap(@Self)^.clr := $10000000;
  51702. end;
  51703. procedure TINT_IEC0.setSPI3TXIE(thebits : TBits_1); inline;
  51704. begin
  51705. if thebits = 0 then
  51706. pTDefRegMap(@Self)^.clr := $10000000
  51707. else
  51708. pTDefRegMap(@Self)^.&set := $10000000;
  51709. end;
  51710. function TINT_IEC0.getSPI3TXIE : TBits_1; inline;
  51711. begin
  51712. getSPI3TXIE := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  51713. end;
  51714. procedure TINT_IEC0.setSPI1AEIE; inline;
  51715. begin
  51716. pTDefRegMap(@Self)^.&set := $04000000;
  51717. end;
  51718. procedure TINT_IEC0.clearSPI1AEIE; inline;
  51719. begin
  51720. pTDefRegMap(@Self)^.clr := $04000000;
  51721. end;
  51722. procedure TINT_IEC0.setSPI1AEIE(thebits : TBits_1); inline;
  51723. begin
  51724. if thebits = 0 then
  51725. pTDefRegMap(@Self)^.clr := $04000000
  51726. else
  51727. pTDefRegMap(@Self)^.&set := $04000000;
  51728. end;
  51729. function TINT_IEC0.getSPI1AEIE : TBits_1; inline;
  51730. begin
  51731. getSPI1AEIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  51732. end;
  51733. procedure TINT_IEC0.setSPI1ARXIE; inline;
  51734. begin
  51735. pTDefRegMap(@Self)^.&set := $08000000;
  51736. end;
  51737. procedure TINT_IEC0.clearSPI1ARXIE; inline;
  51738. begin
  51739. pTDefRegMap(@Self)^.clr := $08000000;
  51740. end;
  51741. procedure TINT_IEC0.setSPI1ARXIE(thebits : TBits_1); inline;
  51742. begin
  51743. if thebits = 0 then
  51744. pTDefRegMap(@Self)^.clr := $08000000
  51745. else
  51746. pTDefRegMap(@Self)^.&set := $08000000;
  51747. end;
  51748. function TINT_IEC0.getSPI1ARXIE : TBits_1; inline;
  51749. begin
  51750. getSPI1ARXIE := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  51751. end;
  51752. procedure TINT_IEC0.setSPI1ATXIE; inline;
  51753. begin
  51754. pTDefRegMap(@Self)^.&set := $10000000;
  51755. end;
  51756. procedure TINT_IEC0.clearSPI1ATXIE; inline;
  51757. begin
  51758. pTDefRegMap(@Self)^.clr := $10000000;
  51759. end;
  51760. procedure TINT_IEC0.setSPI1ATXIE(thebits : TBits_1); inline;
  51761. begin
  51762. if thebits = 0 then
  51763. pTDefRegMap(@Self)^.clr := $10000000
  51764. else
  51765. pTDefRegMap(@Self)^.&set := $10000000;
  51766. end;
  51767. function TINT_IEC0.getSPI1ATXIE : TBits_1; inline;
  51768. begin
  51769. getSPI1ATXIE := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  51770. end;
  51771. procedure TINT_IEC0.setI2C3BIE; inline;
  51772. begin
  51773. pTDefRegMap(@Self)^.&set := $04000000;
  51774. end;
  51775. procedure TINT_IEC0.clearI2C3BIE; inline;
  51776. begin
  51777. pTDefRegMap(@Self)^.clr := $04000000;
  51778. end;
  51779. procedure TINT_IEC0.setI2C3BIE(thebits : TBits_1); inline;
  51780. begin
  51781. if thebits = 0 then
  51782. pTDefRegMap(@Self)^.clr := $04000000
  51783. else
  51784. pTDefRegMap(@Self)^.&set := $04000000;
  51785. end;
  51786. function TINT_IEC0.getI2C3BIE : TBits_1; inline;
  51787. begin
  51788. getI2C3BIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  51789. end;
  51790. procedure TINT_IEC0.setI2C3SIE; inline;
  51791. begin
  51792. pTDefRegMap(@Self)^.&set := $08000000;
  51793. end;
  51794. procedure TINT_IEC0.clearI2C3SIE; inline;
  51795. begin
  51796. pTDefRegMap(@Self)^.clr := $08000000;
  51797. end;
  51798. procedure TINT_IEC0.setI2C3SIE(thebits : TBits_1); inline;
  51799. begin
  51800. if thebits = 0 then
  51801. pTDefRegMap(@Self)^.clr := $08000000
  51802. else
  51803. pTDefRegMap(@Self)^.&set := $08000000;
  51804. end;
  51805. function TINT_IEC0.getI2C3SIE : TBits_1; inline;
  51806. begin
  51807. getI2C3SIE := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  51808. end;
  51809. procedure TINT_IEC0.setI2C3MIE; inline;
  51810. begin
  51811. pTDefRegMap(@Self)^.&set := $10000000;
  51812. end;
  51813. procedure TINT_IEC0.clearI2C3MIE; inline;
  51814. begin
  51815. pTDefRegMap(@Self)^.clr := $10000000;
  51816. end;
  51817. procedure TINT_IEC0.setI2C3MIE(thebits : TBits_1); inline;
  51818. begin
  51819. if thebits = 0 then
  51820. pTDefRegMap(@Self)^.clr := $10000000
  51821. else
  51822. pTDefRegMap(@Self)^.&set := $10000000;
  51823. end;
  51824. function TINT_IEC0.getI2C3MIE : TBits_1; inline;
  51825. begin
  51826. getI2C3MIE := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  51827. end;
  51828. procedure TINT_IEC0.setI2C1ABIE; inline;
  51829. begin
  51830. pTDefRegMap(@Self)^.&set := $04000000;
  51831. end;
  51832. procedure TINT_IEC0.clearI2C1ABIE; inline;
  51833. begin
  51834. pTDefRegMap(@Self)^.clr := $04000000;
  51835. end;
  51836. procedure TINT_IEC0.setI2C1ABIE(thebits : TBits_1); inline;
  51837. begin
  51838. if thebits = 0 then
  51839. pTDefRegMap(@Self)^.clr := $04000000
  51840. else
  51841. pTDefRegMap(@Self)^.&set := $04000000;
  51842. end;
  51843. function TINT_IEC0.getI2C1ABIE : TBits_1; inline;
  51844. begin
  51845. getI2C1ABIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  51846. end;
  51847. procedure TINT_IEC0.setI2C1ASIE; inline;
  51848. begin
  51849. pTDefRegMap(@Self)^.&set := $08000000;
  51850. end;
  51851. procedure TINT_IEC0.clearI2C1ASIE; inline;
  51852. begin
  51853. pTDefRegMap(@Self)^.clr := $08000000;
  51854. end;
  51855. procedure TINT_IEC0.setI2C1ASIE(thebits : TBits_1); inline;
  51856. begin
  51857. if thebits = 0 then
  51858. pTDefRegMap(@Self)^.clr := $08000000
  51859. else
  51860. pTDefRegMap(@Self)^.&set := $08000000;
  51861. end;
  51862. function TINT_IEC0.getI2C1ASIE : TBits_1; inline;
  51863. begin
  51864. getI2C1ASIE := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  51865. end;
  51866. procedure TINT_IEC0.setI2C1AMIE; inline;
  51867. begin
  51868. pTDefRegMap(@Self)^.&set := $10000000;
  51869. end;
  51870. procedure TINT_IEC0.clearI2C1AMIE; inline;
  51871. begin
  51872. pTDefRegMap(@Self)^.clr := $10000000;
  51873. end;
  51874. procedure TINT_IEC0.setI2C1AMIE(thebits : TBits_1); inline;
  51875. begin
  51876. if thebits = 0 then
  51877. pTDefRegMap(@Self)^.clr := $10000000
  51878. else
  51879. pTDefRegMap(@Self)^.&set := $10000000;
  51880. end;
  51881. function TINT_IEC0.getI2C1AMIE : TBits_1; inline;
  51882. begin
  51883. getI2C1AMIE := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  51884. end;
  51885. procedure TINT_IEC0.setw(thebits : TBits_32); inline;
  51886. begin
  51887. pTDefRegMap(@Self)^.val := thebits;
  51888. end;
  51889. function TINT_IEC0.getw : TBits_32; inline;
  51890. begin
  51891. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  51892. end;
  51893. procedure TINT_IEC1.setCNIE; inline;
  51894. begin
  51895. pTDefRegMap(@Self)^.&set := $00000001;
  51896. end;
  51897. procedure TINT_IEC1.clearCNIE; inline;
  51898. begin
  51899. pTDefRegMap(@Self)^.clr := $00000001;
  51900. end;
  51901. procedure TINT_IEC1.setCNIE(thebits : TBits_1); inline;
  51902. begin
  51903. if thebits = 0 then
  51904. pTDefRegMap(@Self)^.clr := $00000001
  51905. else
  51906. pTDefRegMap(@Self)^.&set := $00000001;
  51907. end;
  51908. function TINT_IEC1.getCNIE : TBits_1; inline;
  51909. begin
  51910. getCNIE := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  51911. end;
  51912. procedure TINT_IEC1.setAD1IE; inline;
  51913. begin
  51914. pTDefRegMap(@Self)^.&set := $00000002;
  51915. end;
  51916. procedure TINT_IEC1.clearAD1IE; inline;
  51917. begin
  51918. pTDefRegMap(@Self)^.clr := $00000002;
  51919. end;
  51920. procedure TINT_IEC1.setAD1IE(thebits : TBits_1); inline;
  51921. begin
  51922. if thebits = 0 then
  51923. pTDefRegMap(@Self)^.clr := $00000002
  51924. else
  51925. pTDefRegMap(@Self)^.&set := $00000002;
  51926. end;
  51927. function TINT_IEC1.getAD1IE : TBits_1; inline;
  51928. begin
  51929. getAD1IE := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  51930. end;
  51931. procedure TINT_IEC1.setPMPIE; inline;
  51932. begin
  51933. pTDefRegMap(@Self)^.&set := $00000004;
  51934. end;
  51935. procedure TINT_IEC1.clearPMPIE; inline;
  51936. begin
  51937. pTDefRegMap(@Self)^.clr := $00000004;
  51938. end;
  51939. procedure TINT_IEC1.setPMPIE(thebits : TBits_1); inline;
  51940. begin
  51941. if thebits = 0 then
  51942. pTDefRegMap(@Self)^.clr := $00000004
  51943. else
  51944. pTDefRegMap(@Self)^.&set := $00000004;
  51945. end;
  51946. function TINT_IEC1.getPMPIE : TBits_1; inline;
  51947. begin
  51948. getPMPIE := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  51949. end;
  51950. procedure TINT_IEC1.setCMP1IE; inline;
  51951. begin
  51952. pTDefRegMap(@Self)^.&set := $00000008;
  51953. end;
  51954. procedure TINT_IEC1.clearCMP1IE; inline;
  51955. begin
  51956. pTDefRegMap(@Self)^.clr := $00000008;
  51957. end;
  51958. procedure TINT_IEC1.setCMP1IE(thebits : TBits_1); inline;
  51959. begin
  51960. if thebits = 0 then
  51961. pTDefRegMap(@Self)^.clr := $00000008
  51962. else
  51963. pTDefRegMap(@Self)^.&set := $00000008;
  51964. end;
  51965. function TINT_IEC1.getCMP1IE : TBits_1; inline;
  51966. begin
  51967. getCMP1IE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  51968. end;
  51969. procedure TINT_IEC1.setCMP2IE; inline;
  51970. begin
  51971. pTDefRegMap(@Self)^.&set := $00000010;
  51972. end;
  51973. procedure TINT_IEC1.clearCMP2IE; inline;
  51974. begin
  51975. pTDefRegMap(@Self)^.clr := $00000010;
  51976. end;
  51977. procedure TINT_IEC1.setCMP2IE(thebits : TBits_1); inline;
  51978. begin
  51979. if thebits = 0 then
  51980. pTDefRegMap(@Self)^.clr := $00000010
  51981. else
  51982. pTDefRegMap(@Self)^.&set := $00000010;
  51983. end;
  51984. function TINT_IEC1.getCMP2IE : TBits_1; inline;
  51985. begin
  51986. getCMP2IE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  51987. end;
  51988. procedure TINT_IEC1.setU3EIE; inline;
  51989. begin
  51990. pTDefRegMap(@Self)^.&set := $00000020;
  51991. end;
  51992. procedure TINT_IEC1.clearU3EIE; inline;
  51993. begin
  51994. pTDefRegMap(@Self)^.clr := $00000020;
  51995. end;
  51996. procedure TINT_IEC1.setU3EIE(thebits : TBits_1); inline;
  51997. begin
  51998. if thebits = 0 then
  51999. pTDefRegMap(@Self)^.clr := $00000020
  52000. else
  52001. pTDefRegMap(@Self)^.&set := $00000020;
  52002. end;
  52003. function TINT_IEC1.getU3EIE : TBits_1; inline;
  52004. begin
  52005. getU3EIE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  52006. end;
  52007. procedure TINT_IEC1.setU3RXIE; inline;
  52008. begin
  52009. pTDefRegMap(@Self)^.&set := $00000040;
  52010. end;
  52011. procedure TINT_IEC1.clearU3RXIE; inline;
  52012. begin
  52013. pTDefRegMap(@Self)^.clr := $00000040;
  52014. end;
  52015. procedure TINT_IEC1.setU3RXIE(thebits : TBits_1); inline;
  52016. begin
  52017. if thebits = 0 then
  52018. pTDefRegMap(@Self)^.clr := $00000040
  52019. else
  52020. pTDefRegMap(@Self)^.&set := $00000040;
  52021. end;
  52022. function TINT_IEC1.getU3RXIE : TBits_1; inline;
  52023. begin
  52024. getU3RXIE := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  52025. end;
  52026. procedure TINT_IEC1.setU3TXIE; inline;
  52027. begin
  52028. pTDefRegMap(@Self)^.&set := $00000080;
  52029. end;
  52030. procedure TINT_IEC1.clearU3TXIE; inline;
  52031. begin
  52032. pTDefRegMap(@Self)^.clr := $00000080;
  52033. end;
  52034. procedure TINT_IEC1.setU3TXIE(thebits : TBits_1); inline;
  52035. begin
  52036. if thebits = 0 then
  52037. pTDefRegMap(@Self)^.clr := $00000080
  52038. else
  52039. pTDefRegMap(@Self)^.&set := $00000080;
  52040. end;
  52041. function TINT_IEC1.getU3TXIE : TBits_1; inline;
  52042. begin
  52043. getU3TXIE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  52044. end;
  52045. procedure TINT_IEC1.setU2EIE; inline;
  52046. begin
  52047. pTDefRegMap(@Self)^.&set := $00000100;
  52048. end;
  52049. procedure TINT_IEC1.clearU2EIE; inline;
  52050. begin
  52051. pTDefRegMap(@Self)^.clr := $00000100;
  52052. end;
  52053. procedure TINT_IEC1.setU2EIE(thebits : TBits_1); inline;
  52054. begin
  52055. if thebits = 0 then
  52056. pTDefRegMap(@Self)^.clr := $00000100
  52057. else
  52058. pTDefRegMap(@Self)^.&set := $00000100;
  52059. end;
  52060. function TINT_IEC1.getU2EIE : TBits_1; inline;
  52061. begin
  52062. getU2EIE := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  52063. end;
  52064. procedure TINT_IEC1.setU2RXIE; inline;
  52065. begin
  52066. pTDefRegMap(@Self)^.&set := $00000200;
  52067. end;
  52068. procedure TINT_IEC1.clearU2RXIE; inline;
  52069. begin
  52070. pTDefRegMap(@Self)^.clr := $00000200;
  52071. end;
  52072. procedure TINT_IEC1.setU2RXIE(thebits : TBits_1); inline;
  52073. begin
  52074. if thebits = 0 then
  52075. pTDefRegMap(@Self)^.clr := $00000200
  52076. else
  52077. pTDefRegMap(@Self)^.&set := $00000200;
  52078. end;
  52079. function TINT_IEC1.getU2RXIE : TBits_1; inline;
  52080. begin
  52081. getU2RXIE := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  52082. end;
  52083. procedure TINT_IEC1.setU2TXIE; inline;
  52084. begin
  52085. pTDefRegMap(@Self)^.&set := $00000400;
  52086. end;
  52087. procedure TINT_IEC1.clearU2TXIE; inline;
  52088. begin
  52089. pTDefRegMap(@Self)^.clr := $00000400;
  52090. end;
  52091. procedure TINT_IEC1.setU2TXIE(thebits : TBits_1); inline;
  52092. begin
  52093. if thebits = 0 then
  52094. pTDefRegMap(@Self)^.clr := $00000400
  52095. else
  52096. pTDefRegMap(@Self)^.&set := $00000400;
  52097. end;
  52098. function TINT_IEC1.getU2TXIE : TBits_1; inline;
  52099. begin
  52100. getU2TXIE := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  52101. end;
  52102. procedure TINT_IEC1.setI2C2BIE; inline;
  52103. begin
  52104. pTDefRegMap(@Self)^.&set := $00000800;
  52105. end;
  52106. procedure TINT_IEC1.clearI2C2BIE; inline;
  52107. begin
  52108. pTDefRegMap(@Self)^.clr := $00000800;
  52109. end;
  52110. procedure TINT_IEC1.setI2C2BIE(thebits : TBits_1); inline;
  52111. begin
  52112. if thebits = 0 then
  52113. pTDefRegMap(@Self)^.clr := $00000800
  52114. else
  52115. pTDefRegMap(@Self)^.&set := $00000800;
  52116. end;
  52117. function TINT_IEC1.getI2C2BIE : TBits_1; inline;
  52118. begin
  52119. getI2C2BIE := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  52120. end;
  52121. procedure TINT_IEC1.setI2C2SIE; inline;
  52122. begin
  52123. pTDefRegMap(@Self)^.&set := $00001000;
  52124. end;
  52125. procedure TINT_IEC1.clearI2C2SIE; inline;
  52126. begin
  52127. pTDefRegMap(@Self)^.clr := $00001000;
  52128. end;
  52129. procedure TINT_IEC1.setI2C2SIE(thebits : TBits_1); inline;
  52130. begin
  52131. if thebits = 0 then
  52132. pTDefRegMap(@Self)^.clr := $00001000
  52133. else
  52134. pTDefRegMap(@Self)^.&set := $00001000;
  52135. end;
  52136. function TINT_IEC1.getI2C2SIE : TBits_1; inline;
  52137. begin
  52138. getI2C2SIE := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  52139. end;
  52140. procedure TINT_IEC1.setI2C2MIE; inline;
  52141. begin
  52142. pTDefRegMap(@Self)^.&set := $00002000;
  52143. end;
  52144. procedure TINT_IEC1.clearI2C2MIE; inline;
  52145. begin
  52146. pTDefRegMap(@Self)^.clr := $00002000;
  52147. end;
  52148. procedure TINT_IEC1.setI2C2MIE(thebits : TBits_1); inline;
  52149. begin
  52150. if thebits = 0 then
  52151. pTDefRegMap(@Self)^.clr := $00002000
  52152. else
  52153. pTDefRegMap(@Self)^.&set := $00002000;
  52154. end;
  52155. function TINT_IEC1.getI2C2MIE : TBits_1; inline;
  52156. begin
  52157. getI2C2MIE := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  52158. end;
  52159. procedure TINT_IEC1.setFSCMIE; inline;
  52160. begin
  52161. pTDefRegMap(@Self)^.&set := $00004000;
  52162. end;
  52163. procedure TINT_IEC1.clearFSCMIE; inline;
  52164. begin
  52165. pTDefRegMap(@Self)^.clr := $00004000;
  52166. end;
  52167. procedure TINT_IEC1.setFSCMIE(thebits : TBits_1); inline;
  52168. begin
  52169. if thebits = 0 then
  52170. pTDefRegMap(@Self)^.clr := $00004000
  52171. else
  52172. pTDefRegMap(@Self)^.&set := $00004000;
  52173. end;
  52174. function TINT_IEC1.getFSCMIE : TBits_1; inline;
  52175. begin
  52176. getFSCMIE := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  52177. end;
  52178. procedure TINT_IEC1.setRTCCIE; inline;
  52179. begin
  52180. pTDefRegMap(@Self)^.&set := $00008000;
  52181. end;
  52182. procedure TINT_IEC1.clearRTCCIE; inline;
  52183. begin
  52184. pTDefRegMap(@Self)^.clr := $00008000;
  52185. end;
  52186. procedure TINT_IEC1.setRTCCIE(thebits : TBits_1); inline;
  52187. begin
  52188. if thebits = 0 then
  52189. pTDefRegMap(@Self)^.clr := $00008000
  52190. else
  52191. pTDefRegMap(@Self)^.&set := $00008000;
  52192. end;
  52193. function TINT_IEC1.getRTCCIE : TBits_1; inline;
  52194. begin
  52195. getRTCCIE := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  52196. end;
  52197. procedure TINT_IEC1.setDMA0IE; inline;
  52198. begin
  52199. pTDefRegMap(@Self)^.&set := $00010000;
  52200. end;
  52201. procedure TINT_IEC1.clearDMA0IE; inline;
  52202. begin
  52203. pTDefRegMap(@Self)^.clr := $00010000;
  52204. end;
  52205. procedure TINT_IEC1.setDMA0IE(thebits : TBits_1); inline;
  52206. begin
  52207. if thebits = 0 then
  52208. pTDefRegMap(@Self)^.clr := $00010000
  52209. else
  52210. pTDefRegMap(@Self)^.&set := $00010000;
  52211. end;
  52212. function TINT_IEC1.getDMA0IE : TBits_1; inline;
  52213. begin
  52214. getDMA0IE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  52215. end;
  52216. procedure TINT_IEC1.setDMA1IE; inline;
  52217. begin
  52218. pTDefRegMap(@Self)^.&set := $00020000;
  52219. end;
  52220. procedure TINT_IEC1.clearDMA1IE; inline;
  52221. begin
  52222. pTDefRegMap(@Self)^.clr := $00020000;
  52223. end;
  52224. procedure TINT_IEC1.setDMA1IE(thebits : TBits_1); inline;
  52225. begin
  52226. if thebits = 0 then
  52227. pTDefRegMap(@Self)^.clr := $00020000
  52228. else
  52229. pTDefRegMap(@Self)^.&set := $00020000;
  52230. end;
  52231. function TINT_IEC1.getDMA1IE : TBits_1; inline;
  52232. begin
  52233. getDMA1IE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  52234. end;
  52235. procedure TINT_IEC1.setDMA2IE; inline;
  52236. begin
  52237. pTDefRegMap(@Self)^.&set := $00040000;
  52238. end;
  52239. procedure TINT_IEC1.clearDMA2IE; inline;
  52240. begin
  52241. pTDefRegMap(@Self)^.clr := $00040000;
  52242. end;
  52243. procedure TINT_IEC1.setDMA2IE(thebits : TBits_1); inline;
  52244. begin
  52245. if thebits = 0 then
  52246. pTDefRegMap(@Self)^.clr := $00040000
  52247. else
  52248. pTDefRegMap(@Self)^.&set := $00040000;
  52249. end;
  52250. function TINT_IEC1.getDMA2IE : TBits_1; inline;
  52251. begin
  52252. getDMA2IE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  52253. end;
  52254. procedure TINT_IEC1.setDMA3IE; inline;
  52255. begin
  52256. pTDefRegMap(@Self)^.&set := $00080000;
  52257. end;
  52258. procedure TINT_IEC1.clearDMA3IE; inline;
  52259. begin
  52260. pTDefRegMap(@Self)^.clr := $00080000;
  52261. end;
  52262. procedure TINT_IEC1.setDMA3IE(thebits : TBits_1); inline;
  52263. begin
  52264. if thebits = 0 then
  52265. pTDefRegMap(@Self)^.clr := $00080000
  52266. else
  52267. pTDefRegMap(@Self)^.&set := $00080000;
  52268. end;
  52269. function TINT_IEC1.getDMA3IE : TBits_1; inline;
  52270. begin
  52271. getDMA3IE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  52272. end;
  52273. procedure TINT_IEC1.setDMA4IE; inline;
  52274. begin
  52275. pTDefRegMap(@Self)^.&set := $00100000;
  52276. end;
  52277. procedure TINT_IEC1.clearDMA4IE; inline;
  52278. begin
  52279. pTDefRegMap(@Self)^.clr := $00100000;
  52280. end;
  52281. procedure TINT_IEC1.setDMA4IE(thebits : TBits_1); inline;
  52282. begin
  52283. if thebits = 0 then
  52284. pTDefRegMap(@Self)^.clr := $00100000
  52285. else
  52286. pTDefRegMap(@Self)^.&set := $00100000;
  52287. end;
  52288. function TINT_IEC1.getDMA4IE : TBits_1; inline;
  52289. begin
  52290. getDMA4IE := (pTDefRegMap(@Self)^.val and $00100000) shr 20;
  52291. end;
  52292. procedure TINT_IEC1.setDMA5IE; inline;
  52293. begin
  52294. pTDefRegMap(@Self)^.&set := $00200000;
  52295. end;
  52296. procedure TINT_IEC1.clearDMA5IE; inline;
  52297. begin
  52298. pTDefRegMap(@Self)^.clr := $00200000;
  52299. end;
  52300. procedure TINT_IEC1.setDMA5IE(thebits : TBits_1); inline;
  52301. begin
  52302. if thebits = 0 then
  52303. pTDefRegMap(@Self)^.clr := $00200000
  52304. else
  52305. pTDefRegMap(@Self)^.&set := $00200000;
  52306. end;
  52307. function TINT_IEC1.getDMA5IE : TBits_1; inline;
  52308. begin
  52309. getDMA5IE := (pTDefRegMap(@Self)^.val and $00200000) shr 21;
  52310. end;
  52311. procedure TINT_IEC1.setDMA6IE; inline;
  52312. begin
  52313. pTDefRegMap(@Self)^.&set := $00400000;
  52314. end;
  52315. procedure TINT_IEC1.clearDMA6IE; inline;
  52316. begin
  52317. pTDefRegMap(@Self)^.clr := $00400000;
  52318. end;
  52319. procedure TINT_IEC1.setDMA6IE(thebits : TBits_1); inline;
  52320. begin
  52321. if thebits = 0 then
  52322. pTDefRegMap(@Self)^.clr := $00400000
  52323. else
  52324. pTDefRegMap(@Self)^.&set := $00400000;
  52325. end;
  52326. function TINT_IEC1.getDMA6IE : TBits_1; inline;
  52327. begin
  52328. getDMA6IE := (pTDefRegMap(@Self)^.val and $00400000) shr 22;
  52329. end;
  52330. procedure TINT_IEC1.setDMA7IE; inline;
  52331. begin
  52332. pTDefRegMap(@Self)^.&set := $00800000;
  52333. end;
  52334. procedure TINT_IEC1.clearDMA7IE; inline;
  52335. begin
  52336. pTDefRegMap(@Self)^.clr := $00800000;
  52337. end;
  52338. procedure TINT_IEC1.setDMA7IE(thebits : TBits_1); inline;
  52339. begin
  52340. if thebits = 0 then
  52341. pTDefRegMap(@Self)^.clr := $00800000
  52342. else
  52343. pTDefRegMap(@Self)^.&set := $00800000;
  52344. end;
  52345. function TINT_IEC1.getDMA7IE : TBits_1; inline;
  52346. begin
  52347. getDMA7IE := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
  52348. end;
  52349. procedure TINT_IEC1.setFCEIE; inline;
  52350. begin
  52351. pTDefRegMap(@Self)^.&set := $01000000;
  52352. end;
  52353. procedure TINT_IEC1.clearFCEIE; inline;
  52354. begin
  52355. pTDefRegMap(@Self)^.clr := $01000000;
  52356. end;
  52357. procedure TINT_IEC1.setFCEIE(thebits : TBits_1); inline;
  52358. begin
  52359. if thebits = 0 then
  52360. pTDefRegMap(@Self)^.clr := $01000000
  52361. else
  52362. pTDefRegMap(@Self)^.&set := $01000000;
  52363. end;
  52364. function TINT_IEC1.getFCEIE : TBits_1; inline;
  52365. begin
  52366. getFCEIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  52367. end;
  52368. procedure TINT_IEC1.setUSBIE; inline;
  52369. begin
  52370. pTDefRegMap(@Self)^.&set := $02000000;
  52371. end;
  52372. procedure TINT_IEC1.clearUSBIE; inline;
  52373. begin
  52374. pTDefRegMap(@Self)^.clr := $02000000;
  52375. end;
  52376. procedure TINT_IEC1.setUSBIE(thebits : TBits_1); inline;
  52377. begin
  52378. if thebits = 0 then
  52379. pTDefRegMap(@Self)^.clr := $02000000
  52380. else
  52381. pTDefRegMap(@Self)^.&set := $02000000;
  52382. end;
  52383. function TINT_IEC1.getUSBIE : TBits_1; inline;
  52384. begin
  52385. getUSBIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  52386. end;
  52387. procedure TINT_IEC1.setCAN1IE; inline;
  52388. begin
  52389. pTDefRegMap(@Self)^.&set := $04000000;
  52390. end;
  52391. procedure TINT_IEC1.clearCAN1IE; inline;
  52392. begin
  52393. pTDefRegMap(@Self)^.clr := $04000000;
  52394. end;
  52395. procedure TINT_IEC1.setCAN1IE(thebits : TBits_1); inline;
  52396. begin
  52397. if thebits = 0 then
  52398. pTDefRegMap(@Self)^.clr := $04000000
  52399. else
  52400. pTDefRegMap(@Self)^.&set := $04000000;
  52401. end;
  52402. function TINT_IEC1.getCAN1IE : TBits_1; inline;
  52403. begin
  52404. getCAN1IE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  52405. end;
  52406. procedure TINT_IEC1.setIC1EIE; inline;
  52407. begin
  52408. pTDefRegMap(@Self)^.&set := $20000000;
  52409. end;
  52410. procedure TINT_IEC1.clearIC1EIE; inline;
  52411. begin
  52412. pTDefRegMap(@Self)^.clr := $20000000;
  52413. end;
  52414. procedure TINT_IEC1.setIC1EIE(thebits : TBits_1); inline;
  52415. begin
  52416. if thebits = 0 then
  52417. pTDefRegMap(@Self)^.clr := $20000000
  52418. else
  52419. pTDefRegMap(@Self)^.&set := $20000000;
  52420. end;
  52421. function TINT_IEC1.getIC1EIE : TBits_1; inline;
  52422. begin
  52423. getIC1EIE := (pTDefRegMap(@Self)^.val and $20000000) shr 29;
  52424. end;
  52425. procedure TINT_IEC1.setIC2EIE; inline;
  52426. begin
  52427. pTDefRegMap(@Self)^.&set := $40000000;
  52428. end;
  52429. procedure TINT_IEC1.clearIC2EIE; inline;
  52430. begin
  52431. pTDefRegMap(@Self)^.clr := $40000000;
  52432. end;
  52433. procedure TINT_IEC1.setIC2EIE(thebits : TBits_1); inline;
  52434. begin
  52435. if thebits = 0 then
  52436. pTDefRegMap(@Self)^.clr := $40000000
  52437. else
  52438. pTDefRegMap(@Self)^.&set := $40000000;
  52439. end;
  52440. function TINT_IEC1.getIC2EIE : TBits_1; inline;
  52441. begin
  52442. getIC2EIE := (pTDefRegMap(@Self)^.val and $40000000) shr 30;
  52443. end;
  52444. procedure TINT_IEC1.setIC3EIE; inline;
  52445. begin
  52446. pTDefRegMap(@Self)^.&set := $80000000;
  52447. end;
  52448. procedure TINT_IEC1.clearIC3EIE; inline;
  52449. begin
  52450. pTDefRegMap(@Self)^.clr := $80000000;
  52451. end;
  52452. procedure TINT_IEC1.setIC3EIE(thebits : TBits_1); inline;
  52453. begin
  52454. if thebits = 0 then
  52455. pTDefRegMap(@Self)^.clr := $80000000
  52456. else
  52457. pTDefRegMap(@Self)^.&set := $80000000;
  52458. end;
  52459. function TINT_IEC1.getIC3EIE : TBits_1; inline;
  52460. begin
  52461. getIC3EIE := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  52462. end;
  52463. procedure TINT_IEC1.setU2AEIE; inline;
  52464. begin
  52465. pTDefRegMap(@Self)^.&set := $00000020;
  52466. end;
  52467. procedure TINT_IEC1.clearU2AEIE; inline;
  52468. begin
  52469. pTDefRegMap(@Self)^.clr := $00000020;
  52470. end;
  52471. procedure TINT_IEC1.setU2AEIE(thebits : TBits_1); inline;
  52472. begin
  52473. if thebits = 0 then
  52474. pTDefRegMap(@Self)^.clr := $00000020
  52475. else
  52476. pTDefRegMap(@Self)^.&set := $00000020;
  52477. end;
  52478. function TINT_IEC1.getU2AEIE : TBits_1; inline;
  52479. begin
  52480. getU2AEIE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  52481. end;
  52482. procedure TINT_IEC1.setU2ARXIE; inline;
  52483. begin
  52484. pTDefRegMap(@Self)^.&set := $00000040;
  52485. end;
  52486. procedure TINT_IEC1.clearU2ARXIE; inline;
  52487. begin
  52488. pTDefRegMap(@Self)^.clr := $00000040;
  52489. end;
  52490. procedure TINT_IEC1.setU2ARXIE(thebits : TBits_1); inline;
  52491. begin
  52492. if thebits = 0 then
  52493. pTDefRegMap(@Self)^.clr := $00000040
  52494. else
  52495. pTDefRegMap(@Self)^.&set := $00000040;
  52496. end;
  52497. function TINT_IEC1.getU2ARXIE : TBits_1; inline;
  52498. begin
  52499. getU2ARXIE := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  52500. end;
  52501. procedure TINT_IEC1.setU2ATXIE; inline;
  52502. begin
  52503. pTDefRegMap(@Self)^.&set := $00000080;
  52504. end;
  52505. procedure TINT_IEC1.clearU2ATXIE; inline;
  52506. begin
  52507. pTDefRegMap(@Self)^.clr := $00000080;
  52508. end;
  52509. procedure TINT_IEC1.setU2ATXIE(thebits : TBits_1); inline;
  52510. begin
  52511. if thebits = 0 then
  52512. pTDefRegMap(@Self)^.clr := $00000080
  52513. else
  52514. pTDefRegMap(@Self)^.&set := $00000080;
  52515. end;
  52516. function TINT_IEC1.getU2ATXIE : TBits_1; inline;
  52517. begin
  52518. getU2ATXIE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  52519. end;
  52520. procedure TINT_IEC1.setU3AEIE; inline;
  52521. begin
  52522. pTDefRegMap(@Self)^.&set := $00000100;
  52523. end;
  52524. procedure TINT_IEC1.clearU3AEIE; inline;
  52525. begin
  52526. pTDefRegMap(@Self)^.clr := $00000100;
  52527. end;
  52528. procedure TINT_IEC1.setU3AEIE(thebits : TBits_1); inline;
  52529. begin
  52530. if thebits = 0 then
  52531. pTDefRegMap(@Self)^.clr := $00000100
  52532. else
  52533. pTDefRegMap(@Self)^.&set := $00000100;
  52534. end;
  52535. function TINT_IEC1.getU3AEIE : TBits_1; inline;
  52536. begin
  52537. getU3AEIE := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  52538. end;
  52539. procedure TINT_IEC1.setU3ARXIE; inline;
  52540. begin
  52541. pTDefRegMap(@Self)^.&set := $00000200;
  52542. end;
  52543. procedure TINT_IEC1.clearU3ARXIE; inline;
  52544. begin
  52545. pTDefRegMap(@Self)^.clr := $00000200;
  52546. end;
  52547. procedure TINT_IEC1.setU3ARXIE(thebits : TBits_1); inline;
  52548. begin
  52549. if thebits = 0 then
  52550. pTDefRegMap(@Self)^.clr := $00000200
  52551. else
  52552. pTDefRegMap(@Self)^.&set := $00000200;
  52553. end;
  52554. function TINT_IEC1.getU3ARXIE : TBits_1; inline;
  52555. begin
  52556. getU3ARXIE := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  52557. end;
  52558. procedure TINT_IEC1.setU3ATXIE; inline;
  52559. begin
  52560. pTDefRegMap(@Self)^.&set := $00000400;
  52561. end;
  52562. procedure TINT_IEC1.clearU3ATXIE; inline;
  52563. begin
  52564. pTDefRegMap(@Self)^.clr := $00000400;
  52565. end;
  52566. procedure TINT_IEC1.setU3ATXIE(thebits : TBits_1); inline;
  52567. begin
  52568. if thebits = 0 then
  52569. pTDefRegMap(@Self)^.clr := $00000400
  52570. else
  52571. pTDefRegMap(@Self)^.&set := $00000400;
  52572. end;
  52573. function TINT_IEC1.getU3ATXIE : TBits_1; inline;
  52574. begin
  52575. getU3ATXIE := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  52576. end;
  52577. procedure TINT_IEC1.setSPI2EIE; inline;
  52578. begin
  52579. pTDefRegMap(@Self)^.&set := $00000020;
  52580. end;
  52581. procedure TINT_IEC1.clearSPI2EIE; inline;
  52582. begin
  52583. pTDefRegMap(@Self)^.clr := $00000020;
  52584. end;
  52585. procedure TINT_IEC1.setSPI2EIE(thebits : TBits_1); inline;
  52586. begin
  52587. if thebits = 0 then
  52588. pTDefRegMap(@Self)^.clr := $00000020
  52589. else
  52590. pTDefRegMap(@Self)^.&set := $00000020;
  52591. end;
  52592. function TINT_IEC1.getSPI2EIE : TBits_1; inline;
  52593. begin
  52594. getSPI2EIE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  52595. end;
  52596. procedure TINT_IEC1.setSPI2RXIE; inline;
  52597. begin
  52598. pTDefRegMap(@Self)^.&set := $00000040;
  52599. end;
  52600. procedure TINT_IEC1.clearSPI2RXIE; inline;
  52601. begin
  52602. pTDefRegMap(@Self)^.clr := $00000040;
  52603. end;
  52604. procedure TINT_IEC1.setSPI2RXIE(thebits : TBits_1); inline;
  52605. begin
  52606. if thebits = 0 then
  52607. pTDefRegMap(@Self)^.clr := $00000040
  52608. else
  52609. pTDefRegMap(@Self)^.&set := $00000040;
  52610. end;
  52611. function TINT_IEC1.getSPI2RXIE : TBits_1; inline;
  52612. begin
  52613. getSPI2RXIE := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  52614. end;
  52615. procedure TINT_IEC1.setSPI2TXIE; inline;
  52616. begin
  52617. pTDefRegMap(@Self)^.&set := $00000080;
  52618. end;
  52619. procedure TINT_IEC1.clearSPI2TXIE; inline;
  52620. begin
  52621. pTDefRegMap(@Self)^.clr := $00000080;
  52622. end;
  52623. procedure TINT_IEC1.setSPI2TXIE(thebits : TBits_1); inline;
  52624. begin
  52625. if thebits = 0 then
  52626. pTDefRegMap(@Self)^.clr := $00000080
  52627. else
  52628. pTDefRegMap(@Self)^.&set := $00000080;
  52629. end;
  52630. function TINT_IEC1.getSPI2TXIE : TBits_1; inline;
  52631. begin
  52632. getSPI2TXIE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  52633. end;
  52634. procedure TINT_IEC1.setSPI4EIE; inline;
  52635. begin
  52636. pTDefRegMap(@Self)^.&set := $00000100;
  52637. end;
  52638. procedure TINT_IEC1.clearSPI4EIE; inline;
  52639. begin
  52640. pTDefRegMap(@Self)^.clr := $00000100;
  52641. end;
  52642. procedure TINT_IEC1.setSPI4EIE(thebits : TBits_1); inline;
  52643. begin
  52644. if thebits = 0 then
  52645. pTDefRegMap(@Self)^.clr := $00000100
  52646. else
  52647. pTDefRegMap(@Self)^.&set := $00000100;
  52648. end;
  52649. function TINT_IEC1.getSPI4EIE : TBits_1; inline;
  52650. begin
  52651. getSPI4EIE := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  52652. end;
  52653. procedure TINT_IEC1.setSPI4RXIE; inline;
  52654. begin
  52655. pTDefRegMap(@Self)^.&set := $00000200;
  52656. end;
  52657. procedure TINT_IEC1.clearSPI4RXIE; inline;
  52658. begin
  52659. pTDefRegMap(@Self)^.clr := $00000200;
  52660. end;
  52661. procedure TINT_IEC1.setSPI4RXIE(thebits : TBits_1); inline;
  52662. begin
  52663. if thebits = 0 then
  52664. pTDefRegMap(@Self)^.clr := $00000200
  52665. else
  52666. pTDefRegMap(@Self)^.&set := $00000200;
  52667. end;
  52668. function TINT_IEC1.getSPI4RXIE : TBits_1; inline;
  52669. begin
  52670. getSPI4RXIE := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  52671. end;
  52672. procedure TINT_IEC1.setSPI4TXIE; inline;
  52673. begin
  52674. pTDefRegMap(@Self)^.&set := $00000400;
  52675. end;
  52676. procedure TINT_IEC1.clearSPI4TXIE; inline;
  52677. begin
  52678. pTDefRegMap(@Self)^.clr := $00000400;
  52679. end;
  52680. procedure TINT_IEC1.setSPI4TXIE(thebits : TBits_1); inline;
  52681. begin
  52682. if thebits = 0 then
  52683. pTDefRegMap(@Self)^.clr := $00000400
  52684. else
  52685. pTDefRegMap(@Self)^.&set := $00000400;
  52686. end;
  52687. function TINT_IEC1.getSPI4TXIE : TBits_1; inline;
  52688. begin
  52689. getSPI4TXIE := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  52690. end;
  52691. procedure TINT_IEC1.setSPI2AEIE; inline;
  52692. begin
  52693. pTDefRegMap(@Self)^.&set := $00000020;
  52694. end;
  52695. procedure TINT_IEC1.clearSPI2AEIE; inline;
  52696. begin
  52697. pTDefRegMap(@Self)^.clr := $00000020;
  52698. end;
  52699. procedure TINT_IEC1.setSPI2AEIE(thebits : TBits_1); inline;
  52700. begin
  52701. if thebits = 0 then
  52702. pTDefRegMap(@Self)^.clr := $00000020
  52703. else
  52704. pTDefRegMap(@Self)^.&set := $00000020;
  52705. end;
  52706. function TINT_IEC1.getSPI2AEIE : TBits_1; inline;
  52707. begin
  52708. getSPI2AEIE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  52709. end;
  52710. procedure TINT_IEC1.setSPI2ARXIE; inline;
  52711. begin
  52712. pTDefRegMap(@Self)^.&set := $00000040;
  52713. end;
  52714. procedure TINT_IEC1.clearSPI2ARXIE; inline;
  52715. begin
  52716. pTDefRegMap(@Self)^.clr := $00000040;
  52717. end;
  52718. procedure TINT_IEC1.setSPI2ARXIE(thebits : TBits_1); inline;
  52719. begin
  52720. if thebits = 0 then
  52721. pTDefRegMap(@Self)^.clr := $00000040
  52722. else
  52723. pTDefRegMap(@Self)^.&set := $00000040;
  52724. end;
  52725. function TINT_IEC1.getSPI2ARXIE : TBits_1; inline;
  52726. begin
  52727. getSPI2ARXIE := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  52728. end;
  52729. procedure TINT_IEC1.setSPI2ATXIE; inline;
  52730. begin
  52731. pTDefRegMap(@Self)^.&set := $00000080;
  52732. end;
  52733. procedure TINT_IEC1.clearSPI2ATXIE; inline;
  52734. begin
  52735. pTDefRegMap(@Self)^.clr := $00000080;
  52736. end;
  52737. procedure TINT_IEC1.setSPI2ATXIE(thebits : TBits_1); inline;
  52738. begin
  52739. if thebits = 0 then
  52740. pTDefRegMap(@Self)^.clr := $00000080
  52741. else
  52742. pTDefRegMap(@Self)^.&set := $00000080;
  52743. end;
  52744. function TINT_IEC1.getSPI2ATXIE : TBits_1; inline;
  52745. begin
  52746. getSPI2ATXIE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  52747. end;
  52748. procedure TINT_IEC1.setSPI3AEIE; inline;
  52749. begin
  52750. pTDefRegMap(@Self)^.&set := $00000100;
  52751. end;
  52752. procedure TINT_IEC1.clearSPI3AEIE; inline;
  52753. begin
  52754. pTDefRegMap(@Self)^.clr := $00000100;
  52755. end;
  52756. procedure TINT_IEC1.setSPI3AEIE(thebits : TBits_1); inline;
  52757. begin
  52758. if thebits = 0 then
  52759. pTDefRegMap(@Self)^.clr := $00000100
  52760. else
  52761. pTDefRegMap(@Self)^.&set := $00000100;
  52762. end;
  52763. function TINT_IEC1.getSPI3AEIE : TBits_1; inline;
  52764. begin
  52765. getSPI3AEIE := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  52766. end;
  52767. procedure TINT_IEC1.setSPI3ARXIE; inline;
  52768. begin
  52769. pTDefRegMap(@Self)^.&set := $00000200;
  52770. end;
  52771. procedure TINT_IEC1.clearSPI3ARXIE; inline;
  52772. begin
  52773. pTDefRegMap(@Self)^.clr := $00000200;
  52774. end;
  52775. procedure TINT_IEC1.setSPI3ARXIE(thebits : TBits_1); inline;
  52776. begin
  52777. if thebits = 0 then
  52778. pTDefRegMap(@Self)^.clr := $00000200
  52779. else
  52780. pTDefRegMap(@Self)^.&set := $00000200;
  52781. end;
  52782. function TINT_IEC1.getSPI3ARXIE : TBits_1; inline;
  52783. begin
  52784. getSPI3ARXIE := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  52785. end;
  52786. procedure TINT_IEC1.setSPI3ATXIE; inline;
  52787. begin
  52788. pTDefRegMap(@Self)^.&set := $00000400;
  52789. end;
  52790. procedure TINT_IEC1.clearSPI3ATXIE; inline;
  52791. begin
  52792. pTDefRegMap(@Self)^.clr := $00000400;
  52793. end;
  52794. procedure TINT_IEC1.setSPI3ATXIE(thebits : TBits_1); inline;
  52795. begin
  52796. if thebits = 0 then
  52797. pTDefRegMap(@Self)^.clr := $00000400
  52798. else
  52799. pTDefRegMap(@Self)^.&set := $00000400;
  52800. end;
  52801. function TINT_IEC1.getSPI3ATXIE : TBits_1; inline;
  52802. begin
  52803. getSPI3ATXIE := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  52804. end;
  52805. procedure TINT_IEC1.setI2C4BIE; inline;
  52806. begin
  52807. pTDefRegMap(@Self)^.&set := $00000020;
  52808. end;
  52809. procedure TINT_IEC1.clearI2C4BIE; inline;
  52810. begin
  52811. pTDefRegMap(@Self)^.clr := $00000020;
  52812. end;
  52813. procedure TINT_IEC1.setI2C4BIE(thebits : TBits_1); inline;
  52814. begin
  52815. if thebits = 0 then
  52816. pTDefRegMap(@Self)^.clr := $00000020
  52817. else
  52818. pTDefRegMap(@Self)^.&set := $00000020;
  52819. end;
  52820. function TINT_IEC1.getI2C4BIE : TBits_1; inline;
  52821. begin
  52822. getI2C4BIE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  52823. end;
  52824. procedure TINT_IEC1.setI2C4SIE; inline;
  52825. begin
  52826. pTDefRegMap(@Self)^.&set := $00000040;
  52827. end;
  52828. procedure TINT_IEC1.clearI2C4SIE; inline;
  52829. begin
  52830. pTDefRegMap(@Self)^.clr := $00000040;
  52831. end;
  52832. procedure TINT_IEC1.setI2C4SIE(thebits : TBits_1); inline;
  52833. begin
  52834. if thebits = 0 then
  52835. pTDefRegMap(@Self)^.clr := $00000040
  52836. else
  52837. pTDefRegMap(@Self)^.&set := $00000040;
  52838. end;
  52839. function TINT_IEC1.getI2C4SIE : TBits_1; inline;
  52840. begin
  52841. getI2C4SIE := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  52842. end;
  52843. procedure TINT_IEC1.setI2C4MIE; inline;
  52844. begin
  52845. pTDefRegMap(@Self)^.&set := $00000080;
  52846. end;
  52847. procedure TINT_IEC1.clearI2C4MIE; inline;
  52848. begin
  52849. pTDefRegMap(@Self)^.clr := $00000080;
  52850. end;
  52851. procedure TINT_IEC1.setI2C4MIE(thebits : TBits_1); inline;
  52852. begin
  52853. if thebits = 0 then
  52854. pTDefRegMap(@Self)^.clr := $00000080
  52855. else
  52856. pTDefRegMap(@Self)^.&set := $00000080;
  52857. end;
  52858. function TINT_IEC1.getI2C4MIE : TBits_1; inline;
  52859. begin
  52860. getI2C4MIE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  52861. end;
  52862. procedure TINT_IEC1.setI2C5BIE; inline;
  52863. begin
  52864. pTDefRegMap(@Self)^.&set := $00000100;
  52865. end;
  52866. procedure TINT_IEC1.clearI2C5BIE; inline;
  52867. begin
  52868. pTDefRegMap(@Self)^.clr := $00000100;
  52869. end;
  52870. procedure TINT_IEC1.setI2C5BIE(thebits : TBits_1); inline;
  52871. begin
  52872. if thebits = 0 then
  52873. pTDefRegMap(@Self)^.clr := $00000100
  52874. else
  52875. pTDefRegMap(@Self)^.&set := $00000100;
  52876. end;
  52877. function TINT_IEC1.getI2C5BIE : TBits_1; inline;
  52878. begin
  52879. getI2C5BIE := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  52880. end;
  52881. procedure TINT_IEC1.setI2C5SIE; inline;
  52882. begin
  52883. pTDefRegMap(@Self)^.&set := $00000200;
  52884. end;
  52885. procedure TINT_IEC1.clearI2C5SIE; inline;
  52886. begin
  52887. pTDefRegMap(@Self)^.clr := $00000200;
  52888. end;
  52889. procedure TINT_IEC1.setI2C5SIE(thebits : TBits_1); inline;
  52890. begin
  52891. if thebits = 0 then
  52892. pTDefRegMap(@Self)^.clr := $00000200
  52893. else
  52894. pTDefRegMap(@Self)^.&set := $00000200;
  52895. end;
  52896. function TINT_IEC1.getI2C5SIE : TBits_1; inline;
  52897. begin
  52898. getI2C5SIE := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  52899. end;
  52900. procedure TINT_IEC1.setI2C5MIE; inline;
  52901. begin
  52902. pTDefRegMap(@Self)^.&set := $00000400;
  52903. end;
  52904. procedure TINT_IEC1.clearI2C5MIE; inline;
  52905. begin
  52906. pTDefRegMap(@Self)^.clr := $00000400;
  52907. end;
  52908. procedure TINT_IEC1.setI2C5MIE(thebits : TBits_1); inline;
  52909. begin
  52910. if thebits = 0 then
  52911. pTDefRegMap(@Self)^.clr := $00000400
  52912. else
  52913. pTDefRegMap(@Self)^.&set := $00000400;
  52914. end;
  52915. function TINT_IEC1.getI2C5MIE : TBits_1; inline;
  52916. begin
  52917. getI2C5MIE := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  52918. end;
  52919. procedure TINT_IEC1.setI2C2ABIE; inline;
  52920. begin
  52921. pTDefRegMap(@Self)^.&set := $00000020;
  52922. end;
  52923. procedure TINT_IEC1.clearI2C2ABIE; inline;
  52924. begin
  52925. pTDefRegMap(@Self)^.clr := $00000020;
  52926. end;
  52927. procedure TINT_IEC1.setI2C2ABIE(thebits : TBits_1); inline;
  52928. begin
  52929. if thebits = 0 then
  52930. pTDefRegMap(@Self)^.clr := $00000020
  52931. else
  52932. pTDefRegMap(@Self)^.&set := $00000020;
  52933. end;
  52934. function TINT_IEC1.getI2C2ABIE : TBits_1; inline;
  52935. begin
  52936. getI2C2ABIE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  52937. end;
  52938. procedure TINT_IEC1.setI2C2ASIE; inline;
  52939. begin
  52940. pTDefRegMap(@Self)^.&set := $00000040;
  52941. end;
  52942. procedure TINT_IEC1.clearI2C2ASIE; inline;
  52943. begin
  52944. pTDefRegMap(@Self)^.clr := $00000040;
  52945. end;
  52946. procedure TINT_IEC1.setI2C2ASIE(thebits : TBits_1); inline;
  52947. begin
  52948. if thebits = 0 then
  52949. pTDefRegMap(@Self)^.clr := $00000040
  52950. else
  52951. pTDefRegMap(@Self)^.&set := $00000040;
  52952. end;
  52953. function TINT_IEC1.getI2C2ASIE : TBits_1; inline;
  52954. begin
  52955. getI2C2ASIE := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  52956. end;
  52957. procedure TINT_IEC1.setI2C2AMIE; inline;
  52958. begin
  52959. pTDefRegMap(@Self)^.&set := $00000080;
  52960. end;
  52961. procedure TINT_IEC1.clearI2C2AMIE; inline;
  52962. begin
  52963. pTDefRegMap(@Self)^.clr := $00000080;
  52964. end;
  52965. procedure TINT_IEC1.setI2C2AMIE(thebits : TBits_1); inline;
  52966. begin
  52967. if thebits = 0 then
  52968. pTDefRegMap(@Self)^.clr := $00000080
  52969. else
  52970. pTDefRegMap(@Self)^.&set := $00000080;
  52971. end;
  52972. function TINT_IEC1.getI2C2AMIE : TBits_1; inline;
  52973. begin
  52974. getI2C2AMIE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  52975. end;
  52976. procedure TINT_IEC1.setI2C3ABIE; inline;
  52977. begin
  52978. pTDefRegMap(@Self)^.&set := $00000100;
  52979. end;
  52980. procedure TINT_IEC1.clearI2C3ABIE; inline;
  52981. begin
  52982. pTDefRegMap(@Self)^.clr := $00000100;
  52983. end;
  52984. procedure TINT_IEC1.setI2C3ABIE(thebits : TBits_1); inline;
  52985. begin
  52986. if thebits = 0 then
  52987. pTDefRegMap(@Self)^.clr := $00000100
  52988. else
  52989. pTDefRegMap(@Self)^.&set := $00000100;
  52990. end;
  52991. function TINT_IEC1.getI2C3ABIE : TBits_1; inline;
  52992. begin
  52993. getI2C3ABIE := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  52994. end;
  52995. procedure TINT_IEC1.setI2C3ASIE; inline;
  52996. begin
  52997. pTDefRegMap(@Self)^.&set := $00000200;
  52998. end;
  52999. procedure TINT_IEC1.clearI2C3ASIE; inline;
  53000. begin
  53001. pTDefRegMap(@Self)^.clr := $00000200;
  53002. end;
  53003. procedure TINT_IEC1.setI2C3ASIE(thebits : TBits_1); inline;
  53004. begin
  53005. if thebits = 0 then
  53006. pTDefRegMap(@Self)^.clr := $00000200
  53007. else
  53008. pTDefRegMap(@Self)^.&set := $00000200;
  53009. end;
  53010. function TINT_IEC1.getI2C3ASIE : TBits_1; inline;
  53011. begin
  53012. getI2C3ASIE := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  53013. end;
  53014. procedure TINT_IEC1.setI2C3AMIE; inline;
  53015. begin
  53016. pTDefRegMap(@Self)^.&set := $00000400;
  53017. end;
  53018. procedure TINT_IEC1.clearI2C3AMIE; inline;
  53019. begin
  53020. pTDefRegMap(@Self)^.clr := $00000400;
  53021. end;
  53022. procedure TINT_IEC1.setI2C3AMIE(thebits : TBits_1); inline;
  53023. begin
  53024. if thebits = 0 then
  53025. pTDefRegMap(@Self)^.clr := $00000400
  53026. else
  53027. pTDefRegMap(@Self)^.&set := $00000400;
  53028. end;
  53029. function TINT_IEC1.getI2C3AMIE : TBits_1; inline;
  53030. begin
  53031. getI2C3AMIE := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  53032. end;
  53033. procedure TINT_IEC1.setw(thebits : TBits_32); inline;
  53034. begin
  53035. pTDefRegMap(@Self)^.val := thebits;
  53036. end;
  53037. function TINT_IEC1.getw : TBits_32; inline;
  53038. begin
  53039. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  53040. end;
  53041. procedure TINT_IEC2.setIC4EIE; inline;
  53042. begin
  53043. pTDefRegMap(@Self)^.&set := $00000001;
  53044. end;
  53045. procedure TINT_IEC2.clearIC4EIE; inline;
  53046. begin
  53047. pTDefRegMap(@Self)^.clr := $00000001;
  53048. end;
  53049. procedure TINT_IEC2.setIC4EIE(thebits : TBits_1); inline;
  53050. begin
  53051. if thebits = 0 then
  53052. pTDefRegMap(@Self)^.clr := $00000001
  53053. else
  53054. pTDefRegMap(@Self)^.&set := $00000001;
  53055. end;
  53056. function TINT_IEC2.getIC4EIE : TBits_1; inline;
  53057. begin
  53058. getIC4EIE := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  53059. end;
  53060. procedure TINT_IEC2.setIC5EIE; inline;
  53061. begin
  53062. pTDefRegMap(@Self)^.&set := $00000002;
  53063. end;
  53064. procedure TINT_IEC2.clearIC5EIE; inline;
  53065. begin
  53066. pTDefRegMap(@Self)^.clr := $00000002;
  53067. end;
  53068. procedure TINT_IEC2.setIC5EIE(thebits : TBits_1); inline;
  53069. begin
  53070. if thebits = 0 then
  53071. pTDefRegMap(@Self)^.clr := $00000002
  53072. else
  53073. pTDefRegMap(@Self)^.&set := $00000002;
  53074. end;
  53075. function TINT_IEC2.getIC5EIE : TBits_1; inline;
  53076. begin
  53077. getIC5EIE := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  53078. end;
  53079. procedure TINT_IEC2.setPMPEIE; inline;
  53080. begin
  53081. pTDefRegMap(@Self)^.&set := $00000004;
  53082. end;
  53083. procedure TINT_IEC2.clearPMPEIE; inline;
  53084. begin
  53085. pTDefRegMap(@Self)^.clr := $00000004;
  53086. end;
  53087. procedure TINT_IEC2.setPMPEIE(thebits : TBits_1); inline;
  53088. begin
  53089. if thebits = 0 then
  53090. pTDefRegMap(@Self)^.clr := $00000004
  53091. else
  53092. pTDefRegMap(@Self)^.&set := $00000004;
  53093. end;
  53094. function TINT_IEC2.getPMPEIE : TBits_1; inline;
  53095. begin
  53096. getPMPEIE := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  53097. end;
  53098. procedure TINT_IEC2.setU1BEIE; inline;
  53099. begin
  53100. pTDefRegMap(@Self)^.&set := $00000008;
  53101. end;
  53102. procedure TINT_IEC2.clearU1BEIE; inline;
  53103. begin
  53104. pTDefRegMap(@Self)^.clr := $00000008;
  53105. end;
  53106. procedure TINT_IEC2.setU1BEIE(thebits : TBits_1); inline;
  53107. begin
  53108. if thebits = 0 then
  53109. pTDefRegMap(@Self)^.clr := $00000008
  53110. else
  53111. pTDefRegMap(@Self)^.&set := $00000008;
  53112. end;
  53113. function TINT_IEC2.getU1BEIE : TBits_1; inline;
  53114. begin
  53115. getU1BEIE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  53116. end;
  53117. procedure TINT_IEC2.setU1BRXIE; inline;
  53118. begin
  53119. pTDefRegMap(@Self)^.&set := $00000010;
  53120. end;
  53121. procedure TINT_IEC2.clearU1BRXIE; inline;
  53122. begin
  53123. pTDefRegMap(@Self)^.clr := $00000010;
  53124. end;
  53125. procedure TINT_IEC2.setU1BRXIE(thebits : TBits_1); inline;
  53126. begin
  53127. if thebits = 0 then
  53128. pTDefRegMap(@Self)^.clr := $00000010
  53129. else
  53130. pTDefRegMap(@Self)^.&set := $00000010;
  53131. end;
  53132. function TINT_IEC2.getU1BRXIE : TBits_1; inline;
  53133. begin
  53134. getU1BRXIE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  53135. end;
  53136. procedure TINT_IEC2.setU1BTXIE; inline;
  53137. begin
  53138. pTDefRegMap(@Self)^.&set := $00000020;
  53139. end;
  53140. procedure TINT_IEC2.clearU1BTXIE; inline;
  53141. begin
  53142. pTDefRegMap(@Self)^.clr := $00000020;
  53143. end;
  53144. procedure TINT_IEC2.setU1BTXIE(thebits : TBits_1); inline;
  53145. begin
  53146. if thebits = 0 then
  53147. pTDefRegMap(@Self)^.clr := $00000020
  53148. else
  53149. pTDefRegMap(@Self)^.&set := $00000020;
  53150. end;
  53151. function TINT_IEC2.getU1BTXIE : TBits_1; inline;
  53152. begin
  53153. getU1BTXIE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  53154. end;
  53155. procedure TINT_IEC2.setU2BEIE; inline;
  53156. begin
  53157. pTDefRegMap(@Self)^.&set := $00000040;
  53158. end;
  53159. procedure TINT_IEC2.clearU2BEIE; inline;
  53160. begin
  53161. pTDefRegMap(@Self)^.clr := $00000040;
  53162. end;
  53163. procedure TINT_IEC2.setU2BEIE(thebits : TBits_1); inline;
  53164. begin
  53165. if thebits = 0 then
  53166. pTDefRegMap(@Self)^.clr := $00000040
  53167. else
  53168. pTDefRegMap(@Self)^.&set := $00000040;
  53169. end;
  53170. function TINT_IEC2.getU2BEIE : TBits_1; inline;
  53171. begin
  53172. getU2BEIE := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  53173. end;
  53174. procedure TINT_IEC2.setU2BRXIE; inline;
  53175. begin
  53176. pTDefRegMap(@Self)^.&set := $00000080;
  53177. end;
  53178. procedure TINT_IEC2.clearU2BRXIE; inline;
  53179. begin
  53180. pTDefRegMap(@Self)^.clr := $00000080;
  53181. end;
  53182. procedure TINT_IEC2.setU2BRXIE(thebits : TBits_1); inline;
  53183. begin
  53184. if thebits = 0 then
  53185. pTDefRegMap(@Self)^.clr := $00000080
  53186. else
  53187. pTDefRegMap(@Self)^.&set := $00000080;
  53188. end;
  53189. function TINT_IEC2.getU2BRXIE : TBits_1; inline;
  53190. begin
  53191. getU2BRXIE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  53192. end;
  53193. procedure TINT_IEC2.setU2BTXIE; inline;
  53194. begin
  53195. pTDefRegMap(@Self)^.&set := $00000100;
  53196. end;
  53197. procedure TINT_IEC2.clearU2BTXIE; inline;
  53198. begin
  53199. pTDefRegMap(@Self)^.clr := $00000100;
  53200. end;
  53201. procedure TINT_IEC2.setU2BTXIE(thebits : TBits_1); inline;
  53202. begin
  53203. if thebits = 0 then
  53204. pTDefRegMap(@Self)^.clr := $00000100
  53205. else
  53206. pTDefRegMap(@Self)^.&set := $00000100;
  53207. end;
  53208. function TINT_IEC2.getU2BTXIE : TBits_1; inline;
  53209. begin
  53210. getU2BTXIE := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  53211. end;
  53212. procedure TINT_IEC2.setU3BEIE; inline;
  53213. begin
  53214. pTDefRegMap(@Self)^.&set := $00000200;
  53215. end;
  53216. procedure TINT_IEC2.clearU3BEIE; inline;
  53217. begin
  53218. pTDefRegMap(@Self)^.clr := $00000200;
  53219. end;
  53220. procedure TINT_IEC2.setU3BEIE(thebits : TBits_1); inline;
  53221. begin
  53222. if thebits = 0 then
  53223. pTDefRegMap(@Self)^.clr := $00000200
  53224. else
  53225. pTDefRegMap(@Self)^.&set := $00000200;
  53226. end;
  53227. function TINT_IEC2.getU3BEIE : TBits_1; inline;
  53228. begin
  53229. getU3BEIE := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  53230. end;
  53231. procedure TINT_IEC2.setU3BRXIE; inline;
  53232. begin
  53233. pTDefRegMap(@Self)^.&set := $00000400;
  53234. end;
  53235. procedure TINT_IEC2.clearU3BRXIE; inline;
  53236. begin
  53237. pTDefRegMap(@Self)^.clr := $00000400;
  53238. end;
  53239. procedure TINT_IEC2.setU3BRXIE(thebits : TBits_1); inline;
  53240. begin
  53241. if thebits = 0 then
  53242. pTDefRegMap(@Self)^.clr := $00000400
  53243. else
  53244. pTDefRegMap(@Self)^.&set := $00000400;
  53245. end;
  53246. function TINT_IEC2.getU3BRXIE : TBits_1; inline;
  53247. begin
  53248. getU3BRXIE := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  53249. end;
  53250. procedure TINT_IEC2.setU3BTXIE; inline;
  53251. begin
  53252. pTDefRegMap(@Self)^.&set := $00000800;
  53253. end;
  53254. procedure TINT_IEC2.clearU3BTXIE; inline;
  53255. begin
  53256. pTDefRegMap(@Self)^.clr := $00000800;
  53257. end;
  53258. procedure TINT_IEC2.setU3BTXIE(thebits : TBits_1); inline;
  53259. begin
  53260. if thebits = 0 then
  53261. pTDefRegMap(@Self)^.clr := $00000800
  53262. else
  53263. pTDefRegMap(@Self)^.&set := $00000800;
  53264. end;
  53265. function TINT_IEC2.getU3BTXIE : TBits_1; inline;
  53266. begin
  53267. getU3BTXIE := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  53268. end;
  53269. procedure TINT_IEC2.setU4EIE; inline;
  53270. begin
  53271. pTDefRegMap(@Self)^.&set := $00000008;
  53272. end;
  53273. procedure TINT_IEC2.clearU4EIE; inline;
  53274. begin
  53275. pTDefRegMap(@Self)^.clr := $00000008;
  53276. end;
  53277. procedure TINT_IEC2.setU4EIE(thebits : TBits_1); inline;
  53278. begin
  53279. if thebits = 0 then
  53280. pTDefRegMap(@Self)^.clr := $00000008
  53281. else
  53282. pTDefRegMap(@Self)^.&set := $00000008;
  53283. end;
  53284. function TINT_IEC2.getU4EIE : TBits_1; inline;
  53285. begin
  53286. getU4EIE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  53287. end;
  53288. procedure TINT_IEC2.setU4RXIE; inline;
  53289. begin
  53290. pTDefRegMap(@Self)^.&set := $00000010;
  53291. end;
  53292. procedure TINT_IEC2.clearU4RXIE; inline;
  53293. begin
  53294. pTDefRegMap(@Self)^.clr := $00000010;
  53295. end;
  53296. procedure TINT_IEC2.setU4RXIE(thebits : TBits_1); inline;
  53297. begin
  53298. if thebits = 0 then
  53299. pTDefRegMap(@Self)^.clr := $00000010
  53300. else
  53301. pTDefRegMap(@Self)^.&set := $00000010;
  53302. end;
  53303. function TINT_IEC2.getU4RXIE : TBits_1; inline;
  53304. begin
  53305. getU4RXIE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  53306. end;
  53307. procedure TINT_IEC2.setU4TXIE; inline;
  53308. begin
  53309. pTDefRegMap(@Self)^.&set := $00000020;
  53310. end;
  53311. procedure TINT_IEC2.clearU4TXIE; inline;
  53312. begin
  53313. pTDefRegMap(@Self)^.clr := $00000020;
  53314. end;
  53315. procedure TINT_IEC2.setU4TXIE(thebits : TBits_1); inline;
  53316. begin
  53317. if thebits = 0 then
  53318. pTDefRegMap(@Self)^.clr := $00000020
  53319. else
  53320. pTDefRegMap(@Self)^.&set := $00000020;
  53321. end;
  53322. function TINT_IEC2.getU4TXIE : TBits_1; inline;
  53323. begin
  53324. getU4TXIE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  53325. end;
  53326. procedure TINT_IEC2.setU6EIE; inline;
  53327. begin
  53328. pTDefRegMap(@Self)^.&set := $00000040;
  53329. end;
  53330. procedure TINT_IEC2.clearU6EIE; inline;
  53331. begin
  53332. pTDefRegMap(@Self)^.clr := $00000040;
  53333. end;
  53334. procedure TINT_IEC2.setU6EIE(thebits : TBits_1); inline;
  53335. begin
  53336. if thebits = 0 then
  53337. pTDefRegMap(@Self)^.clr := $00000040
  53338. else
  53339. pTDefRegMap(@Self)^.&set := $00000040;
  53340. end;
  53341. function TINT_IEC2.getU6EIE : TBits_1; inline;
  53342. begin
  53343. getU6EIE := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  53344. end;
  53345. procedure TINT_IEC2.setU6RXIE; inline;
  53346. begin
  53347. pTDefRegMap(@Self)^.&set := $00000080;
  53348. end;
  53349. procedure TINT_IEC2.clearU6RXIE; inline;
  53350. begin
  53351. pTDefRegMap(@Self)^.clr := $00000080;
  53352. end;
  53353. procedure TINT_IEC2.setU6RXIE(thebits : TBits_1); inline;
  53354. begin
  53355. if thebits = 0 then
  53356. pTDefRegMap(@Self)^.clr := $00000080
  53357. else
  53358. pTDefRegMap(@Self)^.&set := $00000080;
  53359. end;
  53360. function TINT_IEC2.getU6RXIE : TBits_1; inline;
  53361. begin
  53362. getU6RXIE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  53363. end;
  53364. procedure TINT_IEC2.setU6TXIE; inline;
  53365. begin
  53366. pTDefRegMap(@Self)^.&set := $00000100;
  53367. end;
  53368. procedure TINT_IEC2.clearU6TXIE; inline;
  53369. begin
  53370. pTDefRegMap(@Self)^.clr := $00000100;
  53371. end;
  53372. procedure TINT_IEC2.setU6TXIE(thebits : TBits_1); inline;
  53373. begin
  53374. if thebits = 0 then
  53375. pTDefRegMap(@Self)^.clr := $00000100
  53376. else
  53377. pTDefRegMap(@Self)^.&set := $00000100;
  53378. end;
  53379. function TINT_IEC2.getU6TXIE : TBits_1; inline;
  53380. begin
  53381. getU6TXIE := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  53382. end;
  53383. procedure TINT_IEC2.setU5EIE; inline;
  53384. begin
  53385. pTDefRegMap(@Self)^.&set := $00000200;
  53386. end;
  53387. procedure TINT_IEC2.clearU5EIE; inline;
  53388. begin
  53389. pTDefRegMap(@Self)^.clr := $00000200;
  53390. end;
  53391. procedure TINT_IEC2.setU5EIE(thebits : TBits_1); inline;
  53392. begin
  53393. if thebits = 0 then
  53394. pTDefRegMap(@Self)^.clr := $00000200
  53395. else
  53396. pTDefRegMap(@Self)^.&set := $00000200;
  53397. end;
  53398. function TINT_IEC2.getU5EIE : TBits_1; inline;
  53399. begin
  53400. getU5EIE := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  53401. end;
  53402. procedure TINT_IEC2.setU5RXIE; inline;
  53403. begin
  53404. pTDefRegMap(@Self)^.&set := $00000400;
  53405. end;
  53406. procedure TINT_IEC2.clearU5RXIE; inline;
  53407. begin
  53408. pTDefRegMap(@Self)^.clr := $00000400;
  53409. end;
  53410. procedure TINT_IEC2.setU5RXIE(thebits : TBits_1); inline;
  53411. begin
  53412. if thebits = 0 then
  53413. pTDefRegMap(@Self)^.clr := $00000400
  53414. else
  53415. pTDefRegMap(@Self)^.&set := $00000400;
  53416. end;
  53417. function TINT_IEC2.getU5RXIE : TBits_1; inline;
  53418. begin
  53419. getU5RXIE := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  53420. end;
  53421. procedure TINT_IEC2.setU5TXIE; inline;
  53422. begin
  53423. pTDefRegMap(@Self)^.&set := $00000800;
  53424. end;
  53425. procedure TINT_IEC2.clearU5TXIE; inline;
  53426. begin
  53427. pTDefRegMap(@Self)^.clr := $00000800;
  53428. end;
  53429. procedure TINT_IEC2.setU5TXIE(thebits : TBits_1); inline;
  53430. begin
  53431. if thebits = 0 then
  53432. pTDefRegMap(@Self)^.clr := $00000800
  53433. else
  53434. pTDefRegMap(@Self)^.&set := $00000800;
  53435. end;
  53436. function TINT_IEC2.getU5TXIE : TBits_1; inline;
  53437. begin
  53438. getU5TXIE := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  53439. end;
  53440. procedure TINT_IEC2.setw(thebits : TBits_32); inline;
  53441. begin
  53442. pTDefRegMap(@Self)^.val := thebits;
  53443. end;
  53444. function TINT_IEC2.getw : TBits_32; inline;
  53445. begin
  53446. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  53447. end;
  53448. procedure TINT_IPC0.setCTIS(thebits : TBits_2); inline;
  53449. begin
  53450. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  53451. end;
  53452. function TINT_IPC0.getCTIS : TBits_2; inline;
  53453. begin
  53454. getCTIS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  53455. end;
  53456. procedure TINT_IPC0.setCTIP(thebits : TBits_3); inline;
  53457. begin
  53458. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  53459. end;
  53460. function TINT_IPC0.getCTIP : TBits_3; inline;
  53461. begin
  53462. getCTIP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  53463. end;
  53464. procedure TINT_IPC0.setCS0IS(thebits : TBits_2); inline;
  53465. begin
  53466. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  53467. end;
  53468. function TINT_IPC0.getCS0IS : TBits_2; inline;
  53469. begin
  53470. getCS0IS := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  53471. end;
  53472. procedure TINT_IPC0.setCS0IP(thebits : TBits_3); inline;
  53473. begin
  53474. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE3FF or ( thebits shl 10 );
  53475. end;
  53476. function TINT_IPC0.getCS0IP : TBits_3; inline;
  53477. begin
  53478. getCS0IP := (pTDefRegMap(@Self)^.val and $00001C00) shr 10;
  53479. end;
  53480. procedure TINT_IPC0.setCS1IS(thebits : TBits_2); inline;
  53481. begin
  53482. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFCFFFF or ( thebits shl 16 );
  53483. end;
  53484. function TINT_IPC0.getCS1IS : TBits_2; inline;
  53485. begin
  53486. getCS1IS := (pTDefRegMap(@Self)^.val and $00030000) shr 16;
  53487. end;
  53488. procedure TINT_IPC0.setCS1IP(thebits : TBits_3); inline;
  53489. begin
  53490. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE3FFFF or ( thebits shl 18 );
  53491. end;
  53492. function TINT_IPC0.getCS1IP : TBits_3; inline;
  53493. begin
  53494. getCS1IP := (pTDefRegMap(@Self)^.val and $001C0000) shr 18;
  53495. end;
  53496. procedure TINT_IPC0.setINT0IS(thebits : TBits_2); inline;
  53497. begin
  53498. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
  53499. end;
  53500. function TINT_IPC0.getINT0IS : TBits_2; inline;
  53501. begin
  53502. getINT0IS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
  53503. end;
  53504. procedure TINT_IPC0.setINT0IP(thebits : TBits_3); inline;
  53505. begin
  53506. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
  53507. end;
  53508. function TINT_IPC0.getINT0IP : TBits_3; inline;
  53509. begin
  53510. getINT0IP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
  53511. end;
  53512. procedure TINT_IPC0.setw(thebits : TBits_32); inline;
  53513. begin
  53514. pTDefRegMap(@Self)^.val := thebits;
  53515. end;
  53516. function TINT_IPC0.getw : TBits_32; inline;
  53517. begin
  53518. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  53519. end;
  53520. procedure TINT_IPC1.setT1IS(thebits : TBits_2); inline;
  53521. begin
  53522. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  53523. end;
  53524. function TINT_IPC1.getT1IS : TBits_2; inline;
  53525. begin
  53526. getT1IS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  53527. end;
  53528. procedure TINT_IPC1.setT1IP(thebits : TBits_3); inline;
  53529. begin
  53530. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  53531. end;
  53532. function TINT_IPC1.getT1IP : TBits_3; inline;
  53533. begin
  53534. getT1IP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  53535. end;
  53536. procedure TINT_IPC1.setIC1IS(thebits : TBits_2); inline;
  53537. begin
  53538. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  53539. end;
  53540. function TINT_IPC1.getIC1IS : TBits_2; inline;
  53541. begin
  53542. getIC1IS := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  53543. end;
  53544. procedure TINT_IPC1.setIC1IP(thebits : TBits_3); inline;
  53545. begin
  53546. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE3FF or ( thebits shl 10 );
  53547. end;
  53548. function TINT_IPC1.getIC1IP : TBits_3; inline;
  53549. begin
  53550. getIC1IP := (pTDefRegMap(@Self)^.val and $00001C00) shr 10;
  53551. end;
  53552. procedure TINT_IPC1.setOC1IS(thebits : TBits_2); inline;
  53553. begin
  53554. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFCFFFF or ( thebits shl 16 );
  53555. end;
  53556. function TINT_IPC1.getOC1IS : TBits_2; inline;
  53557. begin
  53558. getOC1IS := (pTDefRegMap(@Self)^.val and $00030000) shr 16;
  53559. end;
  53560. procedure TINT_IPC1.setOC1IP(thebits : TBits_3); inline;
  53561. begin
  53562. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE3FFFF or ( thebits shl 18 );
  53563. end;
  53564. function TINT_IPC1.getOC1IP : TBits_3; inline;
  53565. begin
  53566. getOC1IP := (pTDefRegMap(@Self)^.val and $001C0000) shr 18;
  53567. end;
  53568. procedure TINT_IPC1.setINT1IS(thebits : TBits_2); inline;
  53569. begin
  53570. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
  53571. end;
  53572. function TINT_IPC1.getINT1IS : TBits_2; inline;
  53573. begin
  53574. getINT1IS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
  53575. end;
  53576. procedure TINT_IPC1.setINT1IP(thebits : TBits_3); inline;
  53577. begin
  53578. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
  53579. end;
  53580. function TINT_IPC1.getINT1IP : TBits_3; inline;
  53581. begin
  53582. getINT1IP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
  53583. end;
  53584. procedure TINT_IPC1.setw(thebits : TBits_32); inline;
  53585. begin
  53586. pTDefRegMap(@Self)^.val := thebits;
  53587. end;
  53588. function TINT_IPC1.getw : TBits_32; inline;
  53589. begin
  53590. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  53591. end;
  53592. procedure TINT_IPC2.setT2IS(thebits : TBits_2); inline;
  53593. begin
  53594. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  53595. end;
  53596. function TINT_IPC2.getT2IS : TBits_2; inline;
  53597. begin
  53598. getT2IS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  53599. end;
  53600. procedure TINT_IPC2.setT2IP(thebits : TBits_3); inline;
  53601. begin
  53602. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  53603. end;
  53604. function TINT_IPC2.getT2IP : TBits_3; inline;
  53605. begin
  53606. getT2IP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  53607. end;
  53608. procedure TINT_IPC2.setIC2IS(thebits : TBits_2); inline;
  53609. begin
  53610. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  53611. end;
  53612. function TINT_IPC2.getIC2IS : TBits_2; inline;
  53613. begin
  53614. getIC2IS := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  53615. end;
  53616. procedure TINT_IPC2.setIC2IP(thebits : TBits_3); inline;
  53617. begin
  53618. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE3FF or ( thebits shl 10 );
  53619. end;
  53620. function TINT_IPC2.getIC2IP : TBits_3; inline;
  53621. begin
  53622. getIC2IP := (pTDefRegMap(@Self)^.val and $00001C00) shr 10;
  53623. end;
  53624. procedure TINT_IPC2.setOC2IS(thebits : TBits_2); inline;
  53625. begin
  53626. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFCFFFF or ( thebits shl 16 );
  53627. end;
  53628. function TINT_IPC2.getOC2IS : TBits_2; inline;
  53629. begin
  53630. getOC2IS := (pTDefRegMap(@Self)^.val and $00030000) shr 16;
  53631. end;
  53632. procedure TINT_IPC2.setOC2IP(thebits : TBits_3); inline;
  53633. begin
  53634. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE3FFFF or ( thebits shl 18 );
  53635. end;
  53636. function TINT_IPC2.getOC2IP : TBits_3; inline;
  53637. begin
  53638. getOC2IP := (pTDefRegMap(@Self)^.val and $001C0000) shr 18;
  53639. end;
  53640. procedure TINT_IPC2.setINT2IS(thebits : TBits_2); inline;
  53641. begin
  53642. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
  53643. end;
  53644. function TINT_IPC2.getINT2IS : TBits_2; inline;
  53645. begin
  53646. getINT2IS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
  53647. end;
  53648. procedure TINT_IPC2.setINT2IP(thebits : TBits_3); inline;
  53649. begin
  53650. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
  53651. end;
  53652. function TINT_IPC2.getINT2IP : TBits_3; inline;
  53653. begin
  53654. getINT2IP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
  53655. end;
  53656. procedure TINT_IPC2.setw(thebits : TBits_32); inline;
  53657. begin
  53658. pTDefRegMap(@Self)^.val := thebits;
  53659. end;
  53660. function TINT_IPC2.getw : TBits_32; inline;
  53661. begin
  53662. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  53663. end;
  53664. procedure TINT_IPC3.setT3IS(thebits : TBits_2); inline;
  53665. begin
  53666. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  53667. end;
  53668. function TINT_IPC3.getT3IS : TBits_2; inline;
  53669. begin
  53670. getT3IS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  53671. end;
  53672. procedure TINT_IPC3.setT3IP(thebits : TBits_3); inline;
  53673. begin
  53674. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  53675. end;
  53676. function TINT_IPC3.getT3IP : TBits_3; inline;
  53677. begin
  53678. getT3IP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  53679. end;
  53680. procedure TINT_IPC3.setIC3IS(thebits : TBits_2); inline;
  53681. begin
  53682. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  53683. end;
  53684. function TINT_IPC3.getIC3IS : TBits_2; inline;
  53685. begin
  53686. getIC3IS := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  53687. end;
  53688. procedure TINT_IPC3.setIC3IP(thebits : TBits_3); inline;
  53689. begin
  53690. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE3FF or ( thebits shl 10 );
  53691. end;
  53692. function TINT_IPC3.getIC3IP : TBits_3; inline;
  53693. begin
  53694. getIC3IP := (pTDefRegMap(@Self)^.val and $00001C00) shr 10;
  53695. end;
  53696. procedure TINT_IPC3.setOC3IS(thebits : TBits_2); inline;
  53697. begin
  53698. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFCFFFF or ( thebits shl 16 );
  53699. end;
  53700. function TINT_IPC3.getOC3IS : TBits_2; inline;
  53701. begin
  53702. getOC3IS := (pTDefRegMap(@Self)^.val and $00030000) shr 16;
  53703. end;
  53704. procedure TINT_IPC3.setOC3IP(thebits : TBits_3); inline;
  53705. begin
  53706. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE3FFFF or ( thebits shl 18 );
  53707. end;
  53708. function TINT_IPC3.getOC3IP : TBits_3; inline;
  53709. begin
  53710. getOC3IP := (pTDefRegMap(@Self)^.val and $001C0000) shr 18;
  53711. end;
  53712. procedure TINT_IPC3.setINT3IS(thebits : TBits_2); inline;
  53713. begin
  53714. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
  53715. end;
  53716. function TINT_IPC3.getINT3IS : TBits_2; inline;
  53717. begin
  53718. getINT3IS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
  53719. end;
  53720. procedure TINT_IPC3.setINT3IP(thebits : TBits_3); inline;
  53721. begin
  53722. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
  53723. end;
  53724. function TINT_IPC3.getINT3IP : TBits_3; inline;
  53725. begin
  53726. getINT3IP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
  53727. end;
  53728. procedure TINT_IPC3.setw(thebits : TBits_32); inline;
  53729. begin
  53730. pTDefRegMap(@Self)^.val := thebits;
  53731. end;
  53732. function TINT_IPC3.getw : TBits_32; inline;
  53733. begin
  53734. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  53735. end;
  53736. procedure TINT_IPC4.setT4IS(thebits : TBits_2); inline;
  53737. begin
  53738. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  53739. end;
  53740. function TINT_IPC4.getT4IS : TBits_2; inline;
  53741. begin
  53742. getT4IS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  53743. end;
  53744. procedure TINT_IPC4.setT4IP(thebits : TBits_3); inline;
  53745. begin
  53746. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  53747. end;
  53748. function TINT_IPC4.getT4IP : TBits_3; inline;
  53749. begin
  53750. getT4IP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  53751. end;
  53752. procedure TINT_IPC4.setIC4IS(thebits : TBits_2); inline;
  53753. begin
  53754. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  53755. end;
  53756. function TINT_IPC4.getIC4IS : TBits_2; inline;
  53757. begin
  53758. getIC4IS := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  53759. end;
  53760. procedure TINT_IPC4.setIC4IP(thebits : TBits_3); inline;
  53761. begin
  53762. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE3FF or ( thebits shl 10 );
  53763. end;
  53764. function TINT_IPC4.getIC4IP : TBits_3; inline;
  53765. begin
  53766. getIC4IP := (pTDefRegMap(@Self)^.val and $00001C00) shr 10;
  53767. end;
  53768. procedure TINT_IPC4.setOC4IS(thebits : TBits_2); inline;
  53769. begin
  53770. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFCFFFF or ( thebits shl 16 );
  53771. end;
  53772. function TINT_IPC4.getOC4IS : TBits_2; inline;
  53773. begin
  53774. getOC4IS := (pTDefRegMap(@Self)^.val and $00030000) shr 16;
  53775. end;
  53776. procedure TINT_IPC4.setOC4IP(thebits : TBits_3); inline;
  53777. begin
  53778. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE3FFFF or ( thebits shl 18 );
  53779. end;
  53780. function TINT_IPC4.getOC4IP : TBits_3; inline;
  53781. begin
  53782. getOC4IP := (pTDefRegMap(@Self)^.val and $001C0000) shr 18;
  53783. end;
  53784. procedure TINT_IPC4.setINT4IS(thebits : TBits_2); inline;
  53785. begin
  53786. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
  53787. end;
  53788. function TINT_IPC4.getINT4IS : TBits_2; inline;
  53789. begin
  53790. getINT4IS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
  53791. end;
  53792. procedure TINT_IPC4.setINT4IP(thebits : TBits_3); inline;
  53793. begin
  53794. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
  53795. end;
  53796. function TINT_IPC4.getINT4IP : TBits_3; inline;
  53797. begin
  53798. getINT4IP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
  53799. end;
  53800. procedure TINT_IPC4.setw(thebits : TBits_32); inline;
  53801. begin
  53802. pTDefRegMap(@Self)^.val := thebits;
  53803. end;
  53804. function TINT_IPC4.getw : TBits_32; inline;
  53805. begin
  53806. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  53807. end;
  53808. procedure TINT_IPC5.setT5IS(thebits : TBits_2); inline;
  53809. begin
  53810. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  53811. end;
  53812. function TINT_IPC5.getT5IS : TBits_2; inline;
  53813. begin
  53814. getT5IS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  53815. end;
  53816. procedure TINT_IPC5.setT5IP(thebits : TBits_3); inline;
  53817. begin
  53818. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  53819. end;
  53820. function TINT_IPC5.getT5IP : TBits_3; inline;
  53821. begin
  53822. getT5IP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  53823. end;
  53824. procedure TINT_IPC5.setIC5IS(thebits : TBits_2); inline;
  53825. begin
  53826. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  53827. end;
  53828. function TINT_IPC5.getIC5IS : TBits_2; inline;
  53829. begin
  53830. getIC5IS := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  53831. end;
  53832. procedure TINT_IPC5.setIC5IP(thebits : TBits_3); inline;
  53833. begin
  53834. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE3FF or ( thebits shl 10 );
  53835. end;
  53836. function TINT_IPC5.getIC5IP : TBits_3; inline;
  53837. begin
  53838. getIC5IP := (pTDefRegMap(@Self)^.val and $00001C00) shr 10;
  53839. end;
  53840. procedure TINT_IPC5.setOC5IS(thebits : TBits_2); inline;
  53841. begin
  53842. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFCFFFF or ( thebits shl 16 );
  53843. end;
  53844. function TINT_IPC5.getOC5IS : TBits_2; inline;
  53845. begin
  53846. getOC5IS := (pTDefRegMap(@Self)^.val and $00030000) shr 16;
  53847. end;
  53848. procedure TINT_IPC5.setOC5IP(thebits : TBits_3); inline;
  53849. begin
  53850. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE3FFFF or ( thebits shl 18 );
  53851. end;
  53852. function TINT_IPC5.getOC5IP : TBits_3; inline;
  53853. begin
  53854. getOC5IP := (pTDefRegMap(@Self)^.val and $001C0000) shr 18;
  53855. end;
  53856. procedure TINT_IPC5.setSPI1IS(thebits : TBits_2); inline;
  53857. begin
  53858. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
  53859. end;
  53860. function TINT_IPC5.getSPI1IS : TBits_2; inline;
  53861. begin
  53862. getSPI1IS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
  53863. end;
  53864. procedure TINT_IPC5.setSPI1IP(thebits : TBits_3); inline;
  53865. begin
  53866. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
  53867. end;
  53868. function TINT_IPC5.getSPI1IP : TBits_3; inline;
  53869. begin
  53870. getSPI1IP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
  53871. end;
  53872. procedure TINT_IPC5.setw(thebits : TBits_32); inline;
  53873. begin
  53874. pTDefRegMap(@Self)^.val := thebits;
  53875. end;
  53876. function TINT_IPC5.getw : TBits_32; inline;
  53877. begin
  53878. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  53879. end;
  53880. procedure TINT_IPC6.setU1IS(thebits : TBits_2); inline;
  53881. begin
  53882. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  53883. end;
  53884. function TINT_IPC6.getU1IS : TBits_2; inline;
  53885. begin
  53886. getU1IS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  53887. end;
  53888. procedure TINT_IPC6.setU1IP(thebits : TBits_3); inline;
  53889. begin
  53890. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  53891. end;
  53892. function TINT_IPC6.getU1IP : TBits_3; inline;
  53893. begin
  53894. getU1IP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  53895. end;
  53896. procedure TINT_IPC6.setI2C1IS(thebits : TBits_2); inline;
  53897. begin
  53898. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  53899. end;
  53900. function TINT_IPC6.getI2C1IS : TBits_2; inline;
  53901. begin
  53902. getI2C1IS := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  53903. end;
  53904. procedure TINT_IPC6.setI2C1IP(thebits : TBits_3); inline;
  53905. begin
  53906. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE3FF or ( thebits shl 10 );
  53907. end;
  53908. function TINT_IPC6.getI2C1IP : TBits_3; inline;
  53909. begin
  53910. getI2C1IP := (pTDefRegMap(@Self)^.val and $00001C00) shr 10;
  53911. end;
  53912. procedure TINT_IPC6.setCNIS(thebits : TBits_2); inline;
  53913. begin
  53914. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFCFFFF or ( thebits shl 16 );
  53915. end;
  53916. function TINT_IPC6.getCNIS : TBits_2; inline;
  53917. begin
  53918. getCNIS := (pTDefRegMap(@Self)^.val and $00030000) shr 16;
  53919. end;
  53920. procedure TINT_IPC6.setCNIP(thebits : TBits_3); inline;
  53921. begin
  53922. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE3FFFF or ( thebits shl 18 );
  53923. end;
  53924. function TINT_IPC6.getCNIP : TBits_3; inline;
  53925. begin
  53926. getCNIP := (pTDefRegMap(@Self)^.val and $001C0000) shr 18;
  53927. end;
  53928. procedure TINT_IPC6.setAD1IS(thebits : TBits_2); inline;
  53929. begin
  53930. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
  53931. end;
  53932. function TINT_IPC6.getAD1IS : TBits_2; inline;
  53933. begin
  53934. getAD1IS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
  53935. end;
  53936. procedure TINT_IPC6.setAD1IP(thebits : TBits_3); inline;
  53937. begin
  53938. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
  53939. end;
  53940. function TINT_IPC6.getAD1IP : TBits_3; inline;
  53941. begin
  53942. getAD1IP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
  53943. end;
  53944. procedure TINT_IPC6.setU1AIS(thebits : TBits_2); inline;
  53945. begin
  53946. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  53947. end;
  53948. function TINT_IPC6.getU1AIS : TBits_2; inline;
  53949. begin
  53950. getU1AIS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  53951. end;
  53952. procedure TINT_IPC6.setU1AIP(thebits : TBits_3); inline;
  53953. begin
  53954. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  53955. end;
  53956. function TINT_IPC6.getU1AIP : TBits_3; inline;
  53957. begin
  53958. getU1AIP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  53959. end;
  53960. procedure TINT_IPC6.setSPI3IS(thebits : TBits_2); inline;
  53961. begin
  53962. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  53963. end;
  53964. function TINT_IPC6.getSPI3IS : TBits_2; inline;
  53965. begin
  53966. getSPI3IS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  53967. end;
  53968. procedure TINT_IPC6.setSPI3IP(thebits : TBits_3); inline;
  53969. begin
  53970. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  53971. end;
  53972. function TINT_IPC6.getSPI3IP : TBits_3; inline;
  53973. begin
  53974. getSPI3IP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  53975. end;
  53976. procedure TINT_IPC6.setSPI1AIS(thebits : TBits_2); inline;
  53977. begin
  53978. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  53979. end;
  53980. function TINT_IPC6.getSPI1AIS : TBits_2; inline;
  53981. begin
  53982. getSPI1AIS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  53983. end;
  53984. procedure TINT_IPC6.setSPI1AIP(thebits : TBits_3); inline;
  53985. begin
  53986. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  53987. end;
  53988. function TINT_IPC6.getSPI1AIP : TBits_3; inline;
  53989. begin
  53990. getSPI1AIP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  53991. end;
  53992. procedure TINT_IPC6.setI2C3IS(thebits : TBits_2); inline;
  53993. begin
  53994. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  53995. end;
  53996. function TINT_IPC6.getI2C3IS : TBits_2; inline;
  53997. begin
  53998. getI2C3IS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  53999. end;
  54000. procedure TINT_IPC6.setI2C3IP(thebits : TBits_3); inline;
  54001. begin
  54002. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  54003. end;
  54004. function TINT_IPC6.getI2C3IP : TBits_3; inline;
  54005. begin
  54006. getI2C3IP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  54007. end;
  54008. procedure TINT_IPC6.setI2C1AIS(thebits : TBits_2); inline;
  54009. begin
  54010. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  54011. end;
  54012. function TINT_IPC6.getI2C1AIS : TBits_2; inline;
  54013. begin
  54014. getI2C1AIS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  54015. end;
  54016. procedure TINT_IPC6.setI2C1AIP(thebits : TBits_3); inline;
  54017. begin
  54018. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  54019. end;
  54020. function TINT_IPC6.getI2C1AIP : TBits_3; inline;
  54021. begin
  54022. getI2C1AIP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  54023. end;
  54024. procedure TINT_IPC6.setw(thebits : TBits_32); inline;
  54025. begin
  54026. pTDefRegMap(@Self)^.val := thebits;
  54027. end;
  54028. function TINT_IPC6.getw : TBits_32; inline;
  54029. begin
  54030. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  54031. end;
  54032. procedure TINT_IPC7.setPMPIS(thebits : TBits_2); inline;
  54033. begin
  54034. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  54035. end;
  54036. function TINT_IPC7.getPMPIS : TBits_2; inline;
  54037. begin
  54038. getPMPIS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  54039. end;
  54040. procedure TINT_IPC7.setPMPIP(thebits : TBits_3); inline;
  54041. begin
  54042. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  54043. end;
  54044. function TINT_IPC7.getPMPIP : TBits_3; inline;
  54045. begin
  54046. getPMPIP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  54047. end;
  54048. procedure TINT_IPC7.setCMP1IS(thebits : TBits_2); inline;
  54049. begin
  54050. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  54051. end;
  54052. function TINT_IPC7.getCMP1IS : TBits_2; inline;
  54053. begin
  54054. getCMP1IS := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  54055. end;
  54056. procedure TINT_IPC7.setCMP1IP(thebits : TBits_3); inline;
  54057. begin
  54058. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE3FF or ( thebits shl 10 );
  54059. end;
  54060. function TINT_IPC7.getCMP1IP : TBits_3; inline;
  54061. begin
  54062. getCMP1IP := (pTDefRegMap(@Self)^.val and $00001C00) shr 10;
  54063. end;
  54064. procedure TINT_IPC7.setCMP2IS(thebits : TBits_2); inline;
  54065. begin
  54066. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFCFFFF or ( thebits shl 16 );
  54067. end;
  54068. function TINT_IPC7.getCMP2IS : TBits_2; inline;
  54069. begin
  54070. getCMP2IS := (pTDefRegMap(@Self)^.val and $00030000) shr 16;
  54071. end;
  54072. procedure TINT_IPC7.setCMP2IP(thebits : TBits_3); inline;
  54073. begin
  54074. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE3FFFF or ( thebits shl 18 );
  54075. end;
  54076. function TINT_IPC7.getCMP2IP : TBits_3; inline;
  54077. begin
  54078. getCMP2IP := (pTDefRegMap(@Self)^.val and $001C0000) shr 18;
  54079. end;
  54080. procedure TINT_IPC7.setU3IS(thebits : TBits_2); inline;
  54081. begin
  54082. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
  54083. end;
  54084. function TINT_IPC7.getU3IS : TBits_2; inline;
  54085. begin
  54086. getU3IS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
  54087. end;
  54088. procedure TINT_IPC7.setU3IP(thebits : TBits_3); inline;
  54089. begin
  54090. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
  54091. end;
  54092. function TINT_IPC7.getU3IP : TBits_3; inline;
  54093. begin
  54094. getU3IP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
  54095. end;
  54096. procedure TINT_IPC7.setU2AIS(thebits : TBits_2); inline;
  54097. begin
  54098. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
  54099. end;
  54100. function TINT_IPC7.getU2AIS : TBits_2; inline;
  54101. begin
  54102. getU2AIS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
  54103. end;
  54104. procedure TINT_IPC7.setU2AIP(thebits : TBits_3); inline;
  54105. begin
  54106. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
  54107. end;
  54108. function TINT_IPC7.getU2AIP : TBits_3; inline;
  54109. begin
  54110. getU2AIP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
  54111. end;
  54112. procedure TINT_IPC7.setSPI2IS(thebits : TBits_2); inline;
  54113. begin
  54114. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
  54115. end;
  54116. function TINT_IPC7.getSPI2IS : TBits_2; inline;
  54117. begin
  54118. getSPI2IS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
  54119. end;
  54120. procedure TINT_IPC7.setSPI2IP(thebits : TBits_3); inline;
  54121. begin
  54122. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
  54123. end;
  54124. function TINT_IPC7.getSPI2IP : TBits_3; inline;
  54125. begin
  54126. getSPI2IP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
  54127. end;
  54128. procedure TINT_IPC7.setSPI2AIS(thebits : TBits_2); inline;
  54129. begin
  54130. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
  54131. end;
  54132. function TINT_IPC7.getSPI2AIS : TBits_2; inline;
  54133. begin
  54134. getSPI2AIS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
  54135. end;
  54136. procedure TINT_IPC7.setSPI2AIP(thebits : TBits_3); inline;
  54137. begin
  54138. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
  54139. end;
  54140. function TINT_IPC7.getSPI2AIP : TBits_3; inline;
  54141. begin
  54142. getSPI2AIP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
  54143. end;
  54144. procedure TINT_IPC7.setI2C4IS(thebits : TBits_2); inline;
  54145. begin
  54146. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
  54147. end;
  54148. function TINT_IPC7.getI2C4IS : TBits_2; inline;
  54149. begin
  54150. getI2C4IS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
  54151. end;
  54152. procedure TINT_IPC7.setI2C4IP(thebits : TBits_3); inline;
  54153. begin
  54154. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
  54155. end;
  54156. function TINT_IPC7.getI2C4IP : TBits_3; inline;
  54157. begin
  54158. getI2C4IP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
  54159. end;
  54160. procedure TINT_IPC7.setI2C2AIS(thebits : TBits_2); inline;
  54161. begin
  54162. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
  54163. end;
  54164. function TINT_IPC7.getI2C2AIS : TBits_2; inline;
  54165. begin
  54166. getI2C2AIS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
  54167. end;
  54168. procedure TINT_IPC7.setI2C2AIP(thebits : TBits_3); inline;
  54169. begin
  54170. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
  54171. end;
  54172. function TINT_IPC7.getI2C2AIP : TBits_3; inline;
  54173. begin
  54174. getI2C2AIP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
  54175. end;
  54176. procedure TINT_IPC7.setw(thebits : TBits_32); inline;
  54177. begin
  54178. pTDefRegMap(@Self)^.val := thebits;
  54179. end;
  54180. function TINT_IPC7.getw : TBits_32; inline;
  54181. begin
  54182. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  54183. end;
  54184. procedure TINT_IPC8.setU2IS(thebits : TBits_2); inline;
  54185. begin
  54186. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  54187. end;
  54188. function TINT_IPC8.getU2IS : TBits_2; inline;
  54189. begin
  54190. getU2IS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  54191. end;
  54192. procedure TINT_IPC8.setU2IP(thebits : TBits_3); inline;
  54193. begin
  54194. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  54195. end;
  54196. function TINT_IPC8.getU2IP : TBits_3; inline;
  54197. begin
  54198. getU2IP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  54199. end;
  54200. procedure TINT_IPC8.setI2C2IS(thebits : TBits_2); inline;
  54201. begin
  54202. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  54203. end;
  54204. function TINT_IPC8.getI2C2IS : TBits_2; inline;
  54205. begin
  54206. getI2C2IS := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  54207. end;
  54208. procedure TINT_IPC8.setI2C2IP(thebits : TBits_3); inline;
  54209. begin
  54210. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE3FF or ( thebits shl 10 );
  54211. end;
  54212. function TINT_IPC8.getI2C2IP : TBits_3; inline;
  54213. begin
  54214. getI2C2IP := (pTDefRegMap(@Self)^.val and $00001C00) shr 10;
  54215. end;
  54216. procedure TINT_IPC8.setFSCMIS(thebits : TBits_2); inline;
  54217. begin
  54218. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFCFFFF or ( thebits shl 16 );
  54219. end;
  54220. function TINT_IPC8.getFSCMIS : TBits_2; inline;
  54221. begin
  54222. getFSCMIS := (pTDefRegMap(@Self)^.val and $00030000) shr 16;
  54223. end;
  54224. procedure TINT_IPC8.setFSCMIP(thebits : TBits_3); inline;
  54225. begin
  54226. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE3FFFF or ( thebits shl 18 );
  54227. end;
  54228. function TINT_IPC8.getFSCMIP : TBits_3; inline;
  54229. begin
  54230. getFSCMIP := (pTDefRegMap(@Self)^.val and $001C0000) shr 18;
  54231. end;
  54232. procedure TINT_IPC8.setRTCCIS(thebits : TBits_2); inline;
  54233. begin
  54234. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
  54235. end;
  54236. function TINT_IPC8.getRTCCIS : TBits_2; inline;
  54237. begin
  54238. getRTCCIS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
  54239. end;
  54240. procedure TINT_IPC8.setRTCCIP(thebits : TBits_3); inline;
  54241. begin
  54242. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
  54243. end;
  54244. function TINT_IPC8.getRTCCIP : TBits_3; inline;
  54245. begin
  54246. getRTCCIP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
  54247. end;
  54248. procedure TINT_IPC8.setU3AIS(thebits : TBits_2); inline;
  54249. begin
  54250. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  54251. end;
  54252. function TINT_IPC8.getU3AIS : TBits_2; inline;
  54253. begin
  54254. getU3AIS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  54255. end;
  54256. procedure TINT_IPC8.setU3AIP(thebits : TBits_3); inline;
  54257. begin
  54258. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  54259. end;
  54260. function TINT_IPC8.getU3AIP : TBits_3; inline;
  54261. begin
  54262. getU3AIP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  54263. end;
  54264. procedure TINT_IPC8.setSPI4IS(thebits : TBits_2); inline;
  54265. begin
  54266. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  54267. end;
  54268. function TINT_IPC8.getSPI4IS : TBits_2; inline;
  54269. begin
  54270. getSPI4IS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  54271. end;
  54272. procedure TINT_IPC8.setSPI4IP(thebits : TBits_3); inline;
  54273. begin
  54274. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  54275. end;
  54276. function TINT_IPC8.getSPI4IP : TBits_3; inline;
  54277. begin
  54278. getSPI4IP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  54279. end;
  54280. procedure TINT_IPC8.setSPI3AIS(thebits : TBits_2); inline;
  54281. begin
  54282. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  54283. end;
  54284. function TINT_IPC8.getSPI3AIS : TBits_2; inline;
  54285. begin
  54286. getSPI3AIS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  54287. end;
  54288. procedure TINT_IPC8.setSPI3AIP(thebits : TBits_3); inline;
  54289. begin
  54290. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  54291. end;
  54292. function TINT_IPC8.getSPI3AIP : TBits_3; inline;
  54293. begin
  54294. getSPI3AIP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  54295. end;
  54296. procedure TINT_IPC8.setI2C5IS(thebits : TBits_2); inline;
  54297. begin
  54298. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  54299. end;
  54300. function TINT_IPC8.getI2C5IS : TBits_2; inline;
  54301. begin
  54302. getI2C5IS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  54303. end;
  54304. procedure TINT_IPC8.setI2C5IP(thebits : TBits_3); inline;
  54305. begin
  54306. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  54307. end;
  54308. function TINT_IPC8.getI2C5IP : TBits_3; inline;
  54309. begin
  54310. getI2C5IP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  54311. end;
  54312. procedure TINT_IPC8.setI2C3AIS(thebits : TBits_2); inline;
  54313. begin
  54314. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  54315. end;
  54316. function TINT_IPC8.getI2C3AIS : TBits_2; inline;
  54317. begin
  54318. getI2C3AIS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  54319. end;
  54320. procedure TINT_IPC8.setI2C3AIP(thebits : TBits_3); inline;
  54321. begin
  54322. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  54323. end;
  54324. function TINT_IPC8.getI2C3AIP : TBits_3; inline;
  54325. begin
  54326. getI2C3AIP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  54327. end;
  54328. procedure TINT_IPC8.setw(thebits : TBits_32); inline;
  54329. begin
  54330. pTDefRegMap(@Self)^.val := thebits;
  54331. end;
  54332. function TINT_IPC8.getw : TBits_32; inline;
  54333. begin
  54334. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  54335. end;
  54336. procedure TINT_IPC9.setDMA0IS(thebits : TBits_2); inline;
  54337. begin
  54338. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  54339. end;
  54340. function TINT_IPC9.getDMA0IS : TBits_2; inline;
  54341. begin
  54342. getDMA0IS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  54343. end;
  54344. procedure TINT_IPC9.setDMA0IP(thebits : TBits_3); inline;
  54345. begin
  54346. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  54347. end;
  54348. function TINT_IPC9.getDMA0IP : TBits_3; inline;
  54349. begin
  54350. getDMA0IP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  54351. end;
  54352. procedure TINT_IPC9.setDMA1IS(thebits : TBits_2); inline;
  54353. begin
  54354. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  54355. end;
  54356. function TINT_IPC9.getDMA1IS : TBits_2; inline;
  54357. begin
  54358. getDMA1IS := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  54359. end;
  54360. procedure TINT_IPC9.setDMA1IP(thebits : TBits_3); inline;
  54361. begin
  54362. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE3FF or ( thebits shl 10 );
  54363. end;
  54364. function TINT_IPC9.getDMA1IP : TBits_3; inline;
  54365. begin
  54366. getDMA1IP := (pTDefRegMap(@Self)^.val and $00001C00) shr 10;
  54367. end;
  54368. procedure TINT_IPC9.setDMA2IS(thebits : TBits_2); inline;
  54369. begin
  54370. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFCFFFF or ( thebits shl 16 );
  54371. end;
  54372. function TINT_IPC9.getDMA2IS : TBits_2; inline;
  54373. begin
  54374. getDMA2IS := (pTDefRegMap(@Self)^.val and $00030000) shr 16;
  54375. end;
  54376. procedure TINT_IPC9.setDMA2IP(thebits : TBits_3); inline;
  54377. begin
  54378. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE3FFFF or ( thebits shl 18 );
  54379. end;
  54380. function TINT_IPC9.getDMA2IP : TBits_3; inline;
  54381. begin
  54382. getDMA2IP := (pTDefRegMap(@Self)^.val and $001C0000) shr 18;
  54383. end;
  54384. procedure TINT_IPC9.setDMA3IS(thebits : TBits_2); inline;
  54385. begin
  54386. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
  54387. end;
  54388. function TINT_IPC9.getDMA3IS : TBits_2; inline;
  54389. begin
  54390. getDMA3IS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
  54391. end;
  54392. procedure TINT_IPC9.setDMA3IP(thebits : TBits_3); inline;
  54393. begin
  54394. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
  54395. end;
  54396. function TINT_IPC9.getDMA3IP : TBits_3; inline;
  54397. begin
  54398. getDMA3IP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
  54399. end;
  54400. procedure TINT_IPC9.setw(thebits : TBits_32); inline;
  54401. begin
  54402. pTDefRegMap(@Self)^.val := thebits;
  54403. end;
  54404. function TINT_IPC9.getw : TBits_32; inline;
  54405. begin
  54406. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  54407. end;
  54408. procedure TINT_IPC10.setDMA4IS(thebits : TBits_2); inline;
  54409. begin
  54410. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  54411. end;
  54412. function TINT_IPC10.getDMA4IS : TBits_2; inline;
  54413. begin
  54414. getDMA4IS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  54415. end;
  54416. procedure TINT_IPC10.setDMA4IP(thebits : TBits_3); inline;
  54417. begin
  54418. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  54419. end;
  54420. function TINT_IPC10.getDMA4IP : TBits_3; inline;
  54421. begin
  54422. getDMA4IP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  54423. end;
  54424. procedure TINT_IPC10.setDMA5IS(thebits : TBits_2); inline;
  54425. begin
  54426. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  54427. end;
  54428. function TINT_IPC10.getDMA5IS : TBits_2; inline;
  54429. begin
  54430. getDMA5IS := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  54431. end;
  54432. procedure TINT_IPC10.setDMA5IP(thebits : TBits_3); inline;
  54433. begin
  54434. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE3FF or ( thebits shl 10 );
  54435. end;
  54436. function TINT_IPC10.getDMA5IP : TBits_3; inline;
  54437. begin
  54438. getDMA5IP := (pTDefRegMap(@Self)^.val and $00001C00) shr 10;
  54439. end;
  54440. procedure TINT_IPC10.setDMA6IS(thebits : TBits_2); inline;
  54441. begin
  54442. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFCFFFF or ( thebits shl 16 );
  54443. end;
  54444. function TINT_IPC10.getDMA6IS : TBits_2; inline;
  54445. begin
  54446. getDMA6IS := (pTDefRegMap(@Self)^.val and $00030000) shr 16;
  54447. end;
  54448. procedure TINT_IPC10.setDMA6IP(thebits : TBits_3); inline;
  54449. begin
  54450. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE3FFFF or ( thebits shl 18 );
  54451. end;
  54452. function TINT_IPC10.getDMA6IP : TBits_3; inline;
  54453. begin
  54454. getDMA6IP := (pTDefRegMap(@Self)^.val and $001C0000) shr 18;
  54455. end;
  54456. procedure TINT_IPC10.setDMA7IS(thebits : TBits_2); inline;
  54457. begin
  54458. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
  54459. end;
  54460. function TINT_IPC10.getDMA7IS : TBits_2; inline;
  54461. begin
  54462. getDMA7IS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
  54463. end;
  54464. procedure TINT_IPC10.setDMA7IP(thebits : TBits_3); inline;
  54465. begin
  54466. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
  54467. end;
  54468. function TINT_IPC10.getDMA7IP : TBits_3; inline;
  54469. begin
  54470. getDMA7IP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
  54471. end;
  54472. procedure TINT_IPC10.setw(thebits : TBits_32); inline;
  54473. begin
  54474. pTDefRegMap(@Self)^.val := thebits;
  54475. end;
  54476. function TINT_IPC10.getw : TBits_32; inline;
  54477. begin
  54478. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  54479. end;
  54480. procedure TINT_IPC11.setFCEIS(thebits : TBits_2); inline;
  54481. begin
  54482. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  54483. end;
  54484. function TINT_IPC11.getFCEIS : TBits_2; inline;
  54485. begin
  54486. getFCEIS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  54487. end;
  54488. procedure TINT_IPC11.setFCEIP(thebits : TBits_3); inline;
  54489. begin
  54490. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  54491. end;
  54492. function TINT_IPC11.getFCEIP : TBits_3; inline;
  54493. begin
  54494. getFCEIP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  54495. end;
  54496. procedure TINT_IPC11.setUSBIS(thebits : TBits_2); inline;
  54497. begin
  54498. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  54499. end;
  54500. function TINT_IPC11.getUSBIS : TBits_2; inline;
  54501. begin
  54502. getUSBIS := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  54503. end;
  54504. procedure TINT_IPC11.setUSBIP(thebits : TBits_3); inline;
  54505. begin
  54506. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE3FF or ( thebits shl 10 );
  54507. end;
  54508. function TINT_IPC11.getUSBIP : TBits_3; inline;
  54509. begin
  54510. getUSBIP := (pTDefRegMap(@Self)^.val and $00001C00) shr 10;
  54511. end;
  54512. procedure TINT_IPC11.setCAN1IS(thebits : TBits_2); inline;
  54513. begin
  54514. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFCFFFF or ( thebits shl 16 );
  54515. end;
  54516. function TINT_IPC11.getCAN1IS : TBits_2; inline;
  54517. begin
  54518. getCAN1IS := (pTDefRegMap(@Self)^.val and $00030000) shr 16;
  54519. end;
  54520. procedure TINT_IPC11.setCAN1IP(thebits : TBits_3); inline;
  54521. begin
  54522. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE3FFFF or ( thebits shl 18 );
  54523. end;
  54524. function TINT_IPC11.getCAN1IP : TBits_3; inline;
  54525. begin
  54526. getCAN1IP := (pTDefRegMap(@Self)^.val and $001C0000) shr 18;
  54527. end;
  54528. procedure TINT_IPC11.setw(thebits : TBits_32); inline;
  54529. begin
  54530. pTDefRegMap(@Self)^.val := thebits;
  54531. end;
  54532. function TINT_IPC11.getw : TBits_32; inline;
  54533. begin
  54534. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  54535. end;
  54536. procedure TINT_IPC12.setU4IS(thebits : TBits_2); inline;
  54537. begin
  54538. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  54539. end;
  54540. function TINT_IPC12.getU4IS : TBits_2; inline;
  54541. begin
  54542. getU4IS := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  54543. end;
  54544. procedure TINT_IPC12.setU4IP(thebits : TBits_3); inline;
  54545. begin
  54546. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE3FF or ( thebits shl 10 );
  54547. end;
  54548. function TINT_IPC12.getU4IP : TBits_3; inline;
  54549. begin
  54550. getU4IP := (pTDefRegMap(@Self)^.val and $00001C00) shr 10;
  54551. end;
  54552. procedure TINT_IPC12.setU6IS(thebits : TBits_2); inline;
  54553. begin
  54554. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFCFFFF or ( thebits shl 16 );
  54555. end;
  54556. function TINT_IPC12.getU6IS : TBits_2; inline;
  54557. begin
  54558. getU6IS := (pTDefRegMap(@Self)^.val and $00030000) shr 16;
  54559. end;
  54560. procedure TINT_IPC12.setU6IP(thebits : TBits_3); inline;
  54561. begin
  54562. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE3FFFF or ( thebits shl 18 );
  54563. end;
  54564. function TINT_IPC12.getU6IP : TBits_3; inline;
  54565. begin
  54566. getU6IP := (pTDefRegMap(@Self)^.val and $001C0000) shr 18;
  54567. end;
  54568. procedure TINT_IPC12.setU5IS(thebits : TBits_2); inline;
  54569. begin
  54570. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
  54571. end;
  54572. function TINT_IPC12.getU5IS : TBits_2; inline;
  54573. begin
  54574. getU5IS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
  54575. end;
  54576. procedure TINT_IPC12.setU5IP(thebits : TBits_3); inline;
  54577. begin
  54578. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
  54579. end;
  54580. function TINT_IPC12.getU5IP : TBits_3; inline;
  54581. begin
  54582. getU5IP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
  54583. end;
  54584. procedure TINT_IPC12.setU1BIS(thebits : TBits_2); inline;
  54585. begin
  54586. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  54587. end;
  54588. function TINT_IPC12.getU1BIS : TBits_2; inline;
  54589. begin
  54590. getU1BIS := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  54591. end;
  54592. procedure TINT_IPC12.setU1BIP(thebits : TBits_3); inline;
  54593. begin
  54594. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE3FF or ( thebits shl 10 );
  54595. end;
  54596. function TINT_IPC12.getU1BIP : TBits_3; inline;
  54597. begin
  54598. getU1BIP := (pTDefRegMap(@Self)^.val and $00001C00) shr 10;
  54599. end;
  54600. procedure TINT_IPC12.setU2BIS(thebits : TBits_2); inline;
  54601. begin
  54602. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFCFFFF or ( thebits shl 16 );
  54603. end;
  54604. function TINT_IPC12.getU2BIS : TBits_2; inline;
  54605. begin
  54606. getU2BIS := (pTDefRegMap(@Self)^.val and $00030000) shr 16;
  54607. end;
  54608. procedure TINT_IPC12.setU2BIP(thebits : TBits_3); inline;
  54609. begin
  54610. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE3FFFF or ( thebits shl 18 );
  54611. end;
  54612. function TINT_IPC12.getU2BIP : TBits_3; inline;
  54613. begin
  54614. getU2BIP := (pTDefRegMap(@Self)^.val and $001C0000) shr 18;
  54615. end;
  54616. procedure TINT_IPC12.setU3BIS(thebits : TBits_2); inline;
  54617. begin
  54618. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
  54619. end;
  54620. function TINT_IPC12.getU3BIS : TBits_2; inline;
  54621. begin
  54622. getU3BIS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
  54623. end;
  54624. procedure TINT_IPC12.setU3BIP(thebits : TBits_3); inline;
  54625. begin
  54626. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
  54627. end;
  54628. function TINT_IPC12.getU3BIP : TBits_3; inline;
  54629. begin
  54630. getU3BIP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
  54631. end;
  54632. procedure TINT_IPC12.setw(thebits : TBits_32); inline;
  54633. begin
  54634. pTDefRegMap(@Self)^.val := thebits;
  54635. end;
  54636. function TINT_IPC12.getw : TBits_32; inline;
  54637. begin
  54638. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  54639. end;
  54640. procedure TBMX_BMXCON.setBMXARB(thebits : TBits_3); inline;
  54641. begin
  54642. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  54643. end;
  54644. function TBMX_BMXCON.getBMXARB : TBits_3; inline;
  54645. begin
  54646. getBMXARB := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  54647. end;
  54648. procedure TBMX_BMXCON.setBMXWSDRM; inline;
  54649. begin
  54650. pTDefRegMap(@Self)^.&set := $00000040;
  54651. end;
  54652. procedure TBMX_BMXCON.clearBMXWSDRM; inline;
  54653. begin
  54654. pTDefRegMap(@Self)^.clr := $00000040;
  54655. end;
  54656. procedure TBMX_BMXCON.setBMXWSDRM(thebits : TBits_1); inline;
  54657. begin
  54658. if thebits = 0 then
  54659. pTDefRegMap(@Self)^.clr := $00000040
  54660. else
  54661. pTDefRegMap(@Self)^.&set := $00000040;
  54662. end;
  54663. function TBMX_BMXCON.getBMXWSDRM : TBits_1; inline;
  54664. begin
  54665. getBMXWSDRM := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  54666. end;
  54667. procedure TBMX_BMXCON.setBMXERRIS; inline;
  54668. begin
  54669. pTDefRegMap(@Self)^.&set := $00010000;
  54670. end;
  54671. procedure TBMX_BMXCON.clearBMXERRIS; inline;
  54672. begin
  54673. pTDefRegMap(@Self)^.clr := $00010000;
  54674. end;
  54675. procedure TBMX_BMXCON.setBMXERRIS(thebits : TBits_1); inline;
  54676. begin
  54677. if thebits = 0 then
  54678. pTDefRegMap(@Self)^.clr := $00010000
  54679. else
  54680. pTDefRegMap(@Self)^.&set := $00010000;
  54681. end;
  54682. function TBMX_BMXCON.getBMXERRIS : TBits_1; inline;
  54683. begin
  54684. getBMXERRIS := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  54685. end;
  54686. procedure TBMX_BMXCON.setBMXERRDS; inline;
  54687. begin
  54688. pTDefRegMap(@Self)^.&set := $00020000;
  54689. end;
  54690. procedure TBMX_BMXCON.clearBMXERRDS; inline;
  54691. begin
  54692. pTDefRegMap(@Self)^.clr := $00020000;
  54693. end;
  54694. procedure TBMX_BMXCON.setBMXERRDS(thebits : TBits_1); inline;
  54695. begin
  54696. if thebits = 0 then
  54697. pTDefRegMap(@Self)^.clr := $00020000
  54698. else
  54699. pTDefRegMap(@Self)^.&set := $00020000;
  54700. end;
  54701. function TBMX_BMXCON.getBMXERRDS : TBits_1; inline;
  54702. begin
  54703. getBMXERRDS := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  54704. end;
  54705. procedure TBMX_BMXCON.setBMXERRDMA; inline;
  54706. begin
  54707. pTDefRegMap(@Self)^.&set := $00040000;
  54708. end;
  54709. procedure TBMX_BMXCON.clearBMXERRDMA; inline;
  54710. begin
  54711. pTDefRegMap(@Self)^.clr := $00040000;
  54712. end;
  54713. procedure TBMX_BMXCON.setBMXERRDMA(thebits : TBits_1); inline;
  54714. begin
  54715. if thebits = 0 then
  54716. pTDefRegMap(@Self)^.clr := $00040000
  54717. else
  54718. pTDefRegMap(@Self)^.&set := $00040000;
  54719. end;
  54720. function TBMX_BMXCON.getBMXERRDMA : TBits_1; inline;
  54721. begin
  54722. getBMXERRDMA := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  54723. end;
  54724. procedure TBMX_BMXCON.setBMXERRICD; inline;
  54725. begin
  54726. pTDefRegMap(@Self)^.&set := $00080000;
  54727. end;
  54728. procedure TBMX_BMXCON.clearBMXERRICD; inline;
  54729. begin
  54730. pTDefRegMap(@Self)^.clr := $00080000;
  54731. end;
  54732. procedure TBMX_BMXCON.setBMXERRICD(thebits : TBits_1); inline;
  54733. begin
  54734. if thebits = 0 then
  54735. pTDefRegMap(@Self)^.clr := $00080000
  54736. else
  54737. pTDefRegMap(@Self)^.&set := $00080000;
  54738. end;
  54739. function TBMX_BMXCON.getBMXERRICD : TBits_1; inline;
  54740. begin
  54741. getBMXERRICD := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  54742. end;
  54743. procedure TBMX_BMXCON.setBMXERRIXI; inline;
  54744. begin
  54745. pTDefRegMap(@Self)^.&set := $00100000;
  54746. end;
  54747. procedure TBMX_BMXCON.clearBMXERRIXI; inline;
  54748. begin
  54749. pTDefRegMap(@Self)^.clr := $00100000;
  54750. end;
  54751. procedure TBMX_BMXCON.setBMXERRIXI(thebits : TBits_1); inline;
  54752. begin
  54753. if thebits = 0 then
  54754. pTDefRegMap(@Self)^.clr := $00100000
  54755. else
  54756. pTDefRegMap(@Self)^.&set := $00100000;
  54757. end;
  54758. function TBMX_BMXCON.getBMXERRIXI : TBits_1; inline;
  54759. begin
  54760. getBMXERRIXI := (pTDefRegMap(@Self)^.val and $00100000) shr 20;
  54761. end;
  54762. procedure TBMX_BMXCON.setBMXCHEDMA; inline;
  54763. begin
  54764. pTDefRegMap(@Self)^.&set := $04000000;
  54765. end;
  54766. procedure TBMX_BMXCON.clearBMXCHEDMA; inline;
  54767. begin
  54768. pTDefRegMap(@Self)^.clr := $04000000;
  54769. end;
  54770. procedure TBMX_BMXCON.setBMXCHEDMA(thebits : TBits_1); inline;
  54771. begin
  54772. if thebits = 0 then
  54773. pTDefRegMap(@Self)^.clr := $04000000
  54774. else
  54775. pTDefRegMap(@Self)^.&set := $04000000;
  54776. end;
  54777. function TBMX_BMXCON.getBMXCHEDMA : TBits_1; inline;
  54778. begin
  54779. getBMXCHEDMA := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  54780. end;
  54781. procedure TBMX_BMXCON.setw(thebits : TBits_32); inline;
  54782. begin
  54783. pTDefRegMap(@Self)^.val := thebits;
  54784. end;
  54785. function TBMX_BMXCON.getw : TBits_32; inline;
  54786. begin
  54787. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  54788. end;
  54789. procedure TDMAC_DMACON.setDMABUSY; inline;
  54790. begin
  54791. pTDefRegMap(@Self)^.&set := $00000800;
  54792. end;
  54793. procedure TDMAC_DMACON.clearDMABUSY; inline;
  54794. begin
  54795. pTDefRegMap(@Self)^.clr := $00000800;
  54796. end;
  54797. procedure TDMAC_DMACON.setDMABUSY(thebits : TBits_1); inline;
  54798. begin
  54799. if thebits = 0 then
  54800. pTDefRegMap(@Self)^.clr := $00000800
  54801. else
  54802. pTDefRegMap(@Self)^.&set := $00000800;
  54803. end;
  54804. function TDMAC_DMACON.getDMABUSY : TBits_1; inline;
  54805. begin
  54806. getDMABUSY := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  54807. end;
  54808. procedure TDMAC_DMACON.setSUSPEND; inline;
  54809. begin
  54810. pTDefRegMap(@Self)^.&set := $00001000;
  54811. end;
  54812. procedure TDMAC_DMACON.clearSUSPEND; inline;
  54813. begin
  54814. pTDefRegMap(@Self)^.clr := $00001000;
  54815. end;
  54816. procedure TDMAC_DMACON.setSUSPEND(thebits : TBits_1); inline;
  54817. begin
  54818. if thebits = 0 then
  54819. pTDefRegMap(@Self)^.clr := $00001000
  54820. else
  54821. pTDefRegMap(@Self)^.&set := $00001000;
  54822. end;
  54823. function TDMAC_DMACON.getSUSPEND : TBits_1; inline;
  54824. begin
  54825. getSUSPEND := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  54826. end;
  54827. procedure TDMAC_DMACON.setON; inline;
  54828. begin
  54829. pTDefRegMap(@Self)^.&set := $00008000;
  54830. end;
  54831. procedure TDMAC_DMACON.clearON; inline;
  54832. begin
  54833. pTDefRegMap(@Self)^.clr := $00008000;
  54834. end;
  54835. procedure TDMAC_DMACON.setON(thebits : TBits_1); inline;
  54836. begin
  54837. if thebits = 0 then
  54838. pTDefRegMap(@Self)^.clr := $00008000
  54839. else
  54840. pTDefRegMap(@Self)^.&set := $00008000;
  54841. end;
  54842. function TDMAC_DMACON.getON : TBits_1; inline;
  54843. begin
  54844. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  54845. end;
  54846. procedure TDMAC_DMACON.setw(thebits : TBits_32); inline;
  54847. begin
  54848. pTDefRegMap(@Self)^.val := thebits;
  54849. end;
  54850. function TDMAC_DMACON.getw : TBits_32; inline;
  54851. begin
  54852. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  54853. end;
  54854. procedure TDMAC_DMASTAT.setDMACH(thebits : TBits_3); inline;
  54855. begin
  54856. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  54857. end;
  54858. function TDMAC_DMASTAT.getDMACH : TBits_3; inline;
  54859. begin
  54860. getDMACH := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  54861. end;
  54862. procedure TDMAC_DMASTAT.setRDWR; inline;
  54863. begin
  54864. pTDefRegMap(@Self)^.&set := $00000008;
  54865. end;
  54866. procedure TDMAC_DMASTAT.clearRDWR; inline;
  54867. begin
  54868. pTDefRegMap(@Self)^.clr := $00000008;
  54869. end;
  54870. procedure TDMAC_DMASTAT.setRDWR(thebits : TBits_1); inline;
  54871. begin
  54872. if thebits = 0 then
  54873. pTDefRegMap(@Self)^.clr := $00000008
  54874. else
  54875. pTDefRegMap(@Self)^.&set := $00000008;
  54876. end;
  54877. function TDMAC_DMASTAT.getRDWR : TBits_1; inline;
  54878. begin
  54879. getRDWR := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  54880. end;
  54881. procedure TDMAC_DMASTAT.setw(thebits : TBits_32); inline;
  54882. begin
  54883. pTDefRegMap(@Self)^.val := thebits;
  54884. end;
  54885. function TDMAC_DMASTAT.getw : TBits_32; inline;
  54886. begin
  54887. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  54888. end;
  54889. procedure TDMAC_DCRCCON.setCRCCH(thebits : TBits_3); inline;
  54890. begin
  54891. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  54892. end;
  54893. function TDMAC_DCRCCON.getCRCCH : TBits_3; inline;
  54894. begin
  54895. getCRCCH := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  54896. end;
  54897. procedure TDMAC_DCRCCON.setCRCTYP; inline;
  54898. begin
  54899. pTDefRegMap(@Self)^.&set := $00000020;
  54900. end;
  54901. procedure TDMAC_DCRCCON.clearCRCTYP; inline;
  54902. begin
  54903. pTDefRegMap(@Self)^.clr := $00000020;
  54904. end;
  54905. procedure TDMAC_DCRCCON.setCRCTYP(thebits : TBits_1); inline;
  54906. begin
  54907. if thebits = 0 then
  54908. pTDefRegMap(@Self)^.clr := $00000020
  54909. else
  54910. pTDefRegMap(@Self)^.&set := $00000020;
  54911. end;
  54912. function TDMAC_DCRCCON.getCRCTYP : TBits_1; inline;
  54913. begin
  54914. getCRCTYP := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  54915. end;
  54916. procedure TDMAC_DCRCCON.setCRCAPP; inline;
  54917. begin
  54918. pTDefRegMap(@Self)^.&set := $00000040;
  54919. end;
  54920. procedure TDMAC_DCRCCON.clearCRCAPP; inline;
  54921. begin
  54922. pTDefRegMap(@Self)^.clr := $00000040;
  54923. end;
  54924. procedure TDMAC_DCRCCON.setCRCAPP(thebits : TBits_1); inline;
  54925. begin
  54926. if thebits = 0 then
  54927. pTDefRegMap(@Self)^.clr := $00000040
  54928. else
  54929. pTDefRegMap(@Self)^.&set := $00000040;
  54930. end;
  54931. function TDMAC_DCRCCON.getCRCAPP : TBits_1; inline;
  54932. begin
  54933. getCRCAPP := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  54934. end;
  54935. procedure TDMAC_DCRCCON.setCRCEN; inline;
  54936. begin
  54937. pTDefRegMap(@Self)^.&set := $00000080;
  54938. end;
  54939. procedure TDMAC_DCRCCON.clearCRCEN; inline;
  54940. begin
  54941. pTDefRegMap(@Self)^.clr := $00000080;
  54942. end;
  54943. procedure TDMAC_DCRCCON.setCRCEN(thebits : TBits_1); inline;
  54944. begin
  54945. if thebits = 0 then
  54946. pTDefRegMap(@Self)^.clr := $00000080
  54947. else
  54948. pTDefRegMap(@Self)^.&set := $00000080;
  54949. end;
  54950. function TDMAC_DCRCCON.getCRCEN : TBits_1; inline;
  54951. begin
  54952. getCRCEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  54953. end;
  54954. procedure TDMAC_DCRCCON.setPLEN(thebits : TBits_5); inline;
  54955. begin
  54956. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE0FF or ( thebits shl 8 );
  54957. end;
  54958. function TDMAC_DCRCCON.getPLEN : TBits_5; inline;
  54959. begin
  54960. getPLEN := (pTDefRegMap(@Self)^.val and $00001F00) shr 8;
  54961. end;
  54962. procedure TDMAC_DCRCCON.setBITO; inline;
  54963. begin
  54964. pTDefRegMap(@Self)^.&set := $01000000;
  54965. end;
  54966. procedure TDMAC_DCRCCON.clearBITO; inline;
  54967. begin
  54968. pTDefRegMap(@Self)^.clr := $01000000;
  54969. end;
  54970. procedure TDMAC_DCRCCON.setBITO(thebits : TBits_1); inline;
  54971. begin
  54972. if thebits = 0 then
  54973. pTDefRegMap(@Self)^.clr := $01000000
  54974. else
  54975. pTDefRegMap(@Self)^.&set := $01000000;
  54976. end;
  54977. function TDMAC_DCRCCON.getBITO : TBits_1; inline;
  54978. begin
  54979. getBITO := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  54980. end;
  54981. procedure TDMAC_DCRCCON.setWBO; inline;
  54982. begin
  54983. pTDefRegMap(@Self)^.&set := $08000000;
  54984. end;
  54985. procedure TDMAC_DCRCCON.clearWBO; inline;
  54986. begin
  54987. pTDefRegMap(@Self)^.clr := $08000000;
  54988. end;
  54989. procedure TDMAC_DCRCCON.setWBO(thebits : TBits_1); inline;
  54990. begin
  54991. if thebits = 0 then
  54992. pTDefRegMap(@Self)^.clr := $08000000
  54993. else
  54994. pTDefRegMap(@Self)^.&set := $08000000;
  54995. end;
  54996. function TDMAC_DCRCCON.getWBO : TBits_1; inline;
  54997. begin
  54998. getWBO := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  54999. end;
  55000. procedure TDMAC_DCRCCON.setBYTO(thebits : TBits_2); inline;
  55001. begin
  55002. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $CFFFFFFF or ( thebits shl 28 );
  55003. end;
  55004. function TDMAC_DCRCCON.getBYTO : TBits_2; inline;
  55005. begin
  55006. getBYTO := (pTDefRegMap(@Self)^.val and $30000000) shr 28;
  55007. end;
  55008. procedure TDMAC_DCRCCON.setw(thebits : TBits_32); inline;
  55009. begin
  55010. pTDefRegMap(@Self)^.val := thebits;
  55011. end;
  55012. function TDMAC_DCRCCON.getw : TBits_32; inline;
  55013. begin
  55014. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  55015. end;
  55016. procedure TDMAC0_DCH0CON.setCHPRI(thebits : TBits_2); inline;
  55017. begin
  55018. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  55019. end;
  55020. function TDMAC0_DCH0CON.getCHPRI : TBits_2; inline;
  55021. begin
  55022. getCHPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  55023. end;
  55024. procedure TDMAC0_DCH0CON.setCHEDET; inline;
  55025. begin
  55026. pTDefRegMap(@Self)^.&set := $00000004;
  55027. end;
  55028. procedure TDMAC0_DCH0CON.clearCHEDET; inline;
  55029. begin
  55030. pTDefRegMap(@Self)^.clr := $00000004;
  55031. end;
  55032. procedure TDMAC0_DCH0CON.setCHEDET(thebits : TBits_1); inline;
  55033. begin
  55034. if thebits = 0 then
  55035. pTDefRegMap(@Self)^.clr := $00000004
  55036. else
  55037. pTDefRegMap(@Self)^.&set := $00000004;
  55038. end;
  55039. function TDMAC0_DCH0CON.getCHEDET : TBits_1; inline;
  55040. begin
  55041. getCHEDET := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  55042. end;
  55043. procedure TDMAC0_DCH0CON.setCHAEN; inline;
  55044. begin
  55045. pTDefRegMap(@Self)^.&set := $00000010;
  55046. end;
  55047. procedure TDMAC0_DCH0CON.clearCHAEN; inline;
  55048. begin
  55049. pTDefRegMap(@Self)^.clr := $00000010;
  55050. end;
  55051. procedure TDMAC0_DCH0CON.setCHAEN(thebits : TBits_1); inline;
  55052. begin
  55053. if thebits = 0 then
  55054. pTDefRegMap(@Self)^.clr := $00000010
  55055. else
  55056. pTDefRegMap(@Self)^.&set := $00000010;
  55057. end;
  55058. function TDMAC0_DCH0CON.getCHAEN : TBits_1; inline;
  55059. begin
  55060. getCHAEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  55061. end;
  55062. procedure TDMAC0_DCH0CON.setCHCHN; inline;
  55063. begin
  55064. pTDefRegMap(@Self)^.&set := $00000020;
  55065. end;
  55066. procedure TDMAC0_DCH0CON.clearCHCHN; inline;
  55067. begin
  55068. pTDefRegMap(@Self)^.clr := $00000020;
  55069. end;
  55070. procedure TDMAC0_DCH0CON.setCHCHN(thebits : TBits_1); inline;
  55071. begin
  55072. if thebits = 0 then
  55073. pTDefRegMap(@Self)^.clr := $00000020
  55074. else
  55075. pTDefRegMap(@Self)^.&set := $00000020;
  55076. end;
  55077. function TDMAC0_DCH0CON.getCHCHN : TBits_1; inline;
  55078. begin
  55079. getCHCHN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  55080. end;
  55081. procedure TDMAC0_DCH0CON.setCHAED; inline;
  55082. begin
  55083. pTDefRegMap(@Self)^.&set := $00000040;
  55084. end;
  55085. procedure TDMAC0_DCH0CON.clearCHAED; inline;
  55086. begin
  55087. pTDefRegMap(@Self)^.clr := $00000040;
  55088. end;
  55089. procedure TDMAC0_DCH0CON.setCHAED(thebits : TBits_1); inline;
  55090. begin
  55091. if thebits = 0 then
  55092. pTDefRegMap(@Self)^.clr := $00000040
  55093. else
  55094. pTDefRegMap(@Self)^.&set := $00000040;
  55095. end;
  55096. function TDMAC0_DCH0CON.getCHAED : TBits_1; inline;
  55097. begin
  55098. getCHAED := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  55099. end;
  55100. procedure TDMAC0_DCH0CON.setCHEN; inline;
  55101. begin
  55102. pTDefRegMap(@Self)^.&set := $00000080;
  55103. end;
  55104. procedure TDMAC0_DCH0CON.clearCHEN; inline;
  55105. begin
  55106. pTDefRegMap(@Self)^.clr := $00000080;
  55107. end;
  55108. procedure TDMAC0_DCH0CON.setCHEN(thebits : TBits_1); inline;
  55109. begin
  55110. if thebits = 0 then
  55111. pTDefRegMap(@Self)^.clr := $00000080
  55112. else
  55113. pTDefRegMap(@Self)^.&set := $00000080;
  55114. end;
  55115. function TDMAC0_DCH0CON.getCHEN : TBits_1; inline;
  55116. begin
  55117. getCHEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  55118. end;
  55119. procedure TDMAC0_DCH0CON.setCHCHNS; inline;
  55120. begin
  55121. pTDefRegMap(@Self)^.&set := $00000100;
  55122. end;
  55123. procedure TDMAC0_DCH0CON.clearCHCHNS; inline;
  55124. begin
  55125. pTDefRegMap(@Self)^.clr := $00000100;
  55126. end;
  55127. procedure TDMAC0_DCH0CON.setCHCHNS(thebits : TBits_1); inline;
  55128. begin
  55129. if thebits = 0 then
  55130. pTDefRegMap(@Self)^.clr := $00000100
  55131. else
  55132. pTDefRegMap(@Self)^.&set := $00000100;
  55133. end;
  55134. function TDMAC0_DCH0CON.getCHCHNS : TBits_1; inline;
  55135. begin
  55136. getCHCHNS := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  55137. end;
  55138. procedure TDMAC0_DCH0CON.setCHBUSY; inline;
  55139. begin
  55140. pTDefRegMap(@Self)^.&set := $00008000;
  55141. end;
  55142. procedure TDMAC0_DCH0CON.clearCHBUSY; inline;
  55143. begin
  55144. pTDefRegMap(@Self)^.clr := $00008000;
  55145. end;
  55146. procedure TDMAC0_DCH0CON.setCHBUSY(thebits : TBits_1); inline;
  55147. begin
  55148. if thebits = 0 then
  55149. pTDefRegMap(@Self)^.clr := $00008000
  55150. else
  55151. pTDefRegMap(@Self)^.&set := $00008000;
  55152. end;
  55153. function TDMAC0_DCH0CON.getCHBUSY : TBits_1; inline;
  55154. begin
  55155. getCHBUSY := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  55156. end;
  55157. procedure TDMAC0_DCH0CON.setw(thebits : TBits_32); inline;
  55158. begin
  55159. pTDefRegMap(@Self)^.val := thebits;
  55160. end;
  55161. function TDMAC0_DCH0CON.getw : TBits_32; inline;
  55162. begin
  55163. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  55164. end;
  55165. procedure TDMAC0_DCH0ECON.setAIRQEN; inline;
  55166. begin
  55167. pTDefRegMap(@Self)^.&set := $00000008;
  55168. end;
  55169. procedure TDMAC0_DCH0ECON.clearAIRQEN; inline;
  55170. begin
  55171. pTDefRegMap(@Self)^.clr := $00000008;
  55172. end;
  55173. procedure TDMAC0_DCH0ECON.setAIRQEN(thebits : TBits_1); inline;
  55174. begin
  55175. if thebits = 0 then
  55176. pTDefRegMap(@Self)^.clr := $00000008
  55177. else
  55178. pTDefRegMap(@Self)^.&set := $00000008;
  55179. end;
  55180. function TDMAC0_DCH0ECON.getAIRQEN : TBits_1; inline;
  55181. begin
  55182. getAIRQEN := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  55183. end;
  55184. procedure TDMAC0_DCH0ECON.setSIRQEN; inline;
  55185. begin
  55186. pTDefRegMap(@Self)^.&set := $00000010;
  55187. end;
  55188. procedure TDMAC0_DCH0ECON.clearSIRQEN; inline;
  55189. begin
  55190. pTDefRegMap(@Self)^.clr := $00000010;
  55191. end;
  55192. procedure TDMAC0_DCH0ECON.setSIRQEN(thebits : TBits_1); inline;
  55193. begin
  55194. if thebits = 0 then
  55195. pTDefRegMap(@Self)^.clr := $00000010
  55196. else
  55197. pTDefRegMap(@Self)^.&set := $00000010;
  55198. end;
  55199. function TDMAC0_DCH0ECON.getSIRQEN : TBits_1; inline;
  55200. begin
  55201. getSIRQEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  55202. end;
  55203. procedure TDMAC0_DCH0ECON.setPATEN; inline;
  55204. begin
  55205. pTDefRegMap(@Self)^.&set := $00000020;
  55206. end;
  55207. procedure TDMAC0_DCH0ECON.clearPATEN; inline;
  55208. begin
  55209. pTDefRegMap(@Self)^.clr := $00000020;
  55210. end;
  55211. procedure TDMAC0_DCH0ECON.setPATEN(thebits : TBits_1); inline;
  55212. begin
  55213. if thebits = 0 then
  55214. pTDefRegMap(@Self)^.clr := $00000020
  55215. else
  55216. pTDefRegMap(@Self)^.&set := $00000020;
  55217. end;
  55218. function TDMAC0_DCH0ECON.getPATEN : TBits_1; inline;
  55219. begin
  55220. getPATEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  55221. end;
  55222. procedure TDMAC0_DCH0ECON.setCABORT; inline;
  55223. begin
  55224. pTDefRegMap(@Self)^.&set := $00000040;
  55225. end;
  55226. procedure TDMAC0_DCH0ECON.clearCABORT; inline;
  55227. begin
  55228. pTDefRegMap(@Self)^.clr := $00000040;
  55229. end;
  55230. procedure TDMAC0_DCH0ECON.setCABORT(thebits : TBits_1); inline;
  55231. begin
  55232. if thebits = 0 then
  55233. pTDefRegMap(@Self)^.clr := $00000040
  55234. else
  55235. pTDefRegMap(@Self)^.&set := $00000040;
  55236. end;
  55237. function TDMAC0_DCH0ECON.getCABORT : TBits_1; inline;
  55238. begin
  55239. getCABORT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  55240. end;
  55241. procedure TDMAC0_DCH0ECON.setCFORCE; inline;
  55242. begin
  55243. pTDefRegMap(@Self)^.&set := $00000080;
  55244. end;
  55245. procedure TDMAC0_DCH0ECON.clearCFORCE; inline;
  55246. begin
  55247. pTDefRegMap(@Self)^.clr := $00000080;
  55248. end;
  55249. procedure TDMAC0_DCH0ECON.setCFORCE(thebits : TBits_1); inline;
  55250. begin
  55251. if thebits = 0 then
  55252. pTDefRegMap(@Self)^.clr := $00000080
  55253. else
  55254. pTDefRegMap(@Self)^.&set := $00000080;
  55255. end;
  55256. function TDMAC0_DCH0ECON.getCFORCE : TBits_1; inline;
  55257. begin
  55258. getCFORCE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  55259. end;
  55260. procedure TDMAC0_DCH0ECON.setCHSIRQ(thebits : TBits_8); inline;
  55261. begin
  55262. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF00FF or ( thebits shl 8 );
  55263. end;
  55264. function TDMAC0_DCH0ECON.getCHSIRQ : TBits_8; inline;
  55265. begin
  55266. getCHSIRQ := (pTDefRegMap(@Self)^.val and $0000FF00) shr 8;
  55267. end;
  55268. procedure TDMAC0_DCH0ECON.setCHAIRQ(thebits : TBits_8); inline;
  55269. begin
  55270. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
  55271. end;
  55272. function TDMAC0_DCH0ECON.getCHAIRQ : TBits_8; inline;
  55273. begin
  55274. getCHAIRQ := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
  55275. end;
  55276. procedure TDMAC0_DCH0ECON.setw(thebits : TBits_32); inline;
  55277. begin
  55278. pTDefRegMap(@Self)^.val := thebits;
  55279. end;
  55280. function TDMAC0_DCH0ECON.getw : TBits_32; inline;
  55281. begin
  55282. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  55283. end;
  55284. procedure TDMAC0_DCH0INT.setCHERIF; inline;
  55285. begin
  55286. pTDefRegMap(@Self)^.&set := $00000001;
  55287. end;
  55288. procedure TDMAC0_DCH0INT.clearCHERIF; inline;
  55289. begin
  55290. pTDefRegMap(@Self)^.clr := $00000001;
  55291. end;
  55292. procedure TDMAC0_DCH0INT.setCHERIF(thebits : TBits_1); inline;
  55293. begin
  55294. if thebits = 0 then
  55295. pTDefRegMap(@Self)^.clr := $00000001
  55296. else
  55297. pTDefRegMap(@Self)^.&set := $00000001;
  55298. end;
  55299. function TDMAC0_DCH0INT.getCHERIF : TBits_1; inline;
  55300. begin
  55301. getCHERIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  55302. end;
  55303. procedure TDMAC0_DCH0INT.setCHTAIF; inline;
  55304. begin
  55305. pTDefRegMap(@Self)^.&set := $00000002;
  55306. end;
  55307. procedure TDMAC0_DCH0INT.clearCHTAIF; inline;
  55308. begin
  55309. pTDefRegMap(@Self)^.clr := $00000002;
  55310. end;
  55311. procedure TDMAC0_DCH0INT.setCHTAIF(thebits : TBits_1); inline;
  55312. begin
  55313. if thebits = 0 then
  55314. pTDefRegMap(@Self)^.clr := $00000002
  55315. else
  55316. pTDefRegMap(@Self)^.&set := $00000002;
  55317. end;
  55318. function TDMAC0_DCH0INT.getCHTAIF : TBits_1; inline;
  55319. begin
  55320. getCHTAIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  55321. end;
  55322. procedure TDMAC0_DCH0INT.setCHCCIF; inline;
  55323. begin
  55324. pTDefRegMap(@Self)^.&set := $00000004;
  55325. end;
  55326. procedure TDMAC0_DCH0INT.clearCHCCIF; inline;
  55327. begin
  55328. pTDefRegMap(@Self)^.clr := $00000004;
  55329. end;
  55330. procedure TDMAC0_DCH0INT.setCHCCIF(thebits : TBits_1); inline;
  55331. begin
  55332. if thebits = 0 then
  55333. pTDefRegMap(@Self)^.clr := $00000004
  55334. else
  55335. pTDefRegMap(@Self)^.&set := $00000004;
  55336. end;
  55337. function TDMAC0_DCH0INT.getCHCCIF : TBits_1; inline;
  55338. begin
  55339. getCHCCIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  55340. end;
  55341. procedure TDMAC0_DCH0INT.setCHBCIF; inline;
  55342. begin
  55343. pTDefRegMap(@Self)^.&set := $00000008;
  55344. end;
  55345. procedure TDMAC0_DCH0INT.clearCHBCIF; inline;
  55346. begin
  55347. pTDefRegMap(@Self)^.clr := $00000008;
  55348. end;
  55349. procedure TDMAC0_DCH0INT.setCHBCIF(thebits : TBits_1); inline;
  55350. begin
  55351. if thebits = 0 then
  55352. pTDefRegMap(@Self)^.clr := $00000008
  55353. else
  55354. pTDefRegMap(@Self)^.&set := $00000008;
  55355. end;
  55356. function TDMAC0_DCH0INT.getCHBCIF : TBits_1; inline;
  55357. begin
  55358. getCHBCIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  55359. end;
  55360. procedure TDMAC0_DCH0INT.setCHDHIF; inline;
  55361. begin
  55362. pTDefRegMap(@Self)^.&set := $00000010;
  55363. end;
  55364. procedure TDMAC0_DCH0INT.clearCHDHIF; inline;
  55365. begin
  55366. pTDefRegMap(@Self)^.clr := $00000010;
  55367. end;
  55368. procedure TDMAC0_DCH0INT.setCHDHIF(thebits : TBits_1); inline;
  55369. begin
  55370. if thebits = 0 then
  55371. pTDefRegMap(@Self)^.clr := $00000010
  55372. else
  55373. pTDefRegMap(@Self)^.&set := $00000010;
  55374. end;
  55375. function TDMAC0_DCH0INT.getCHDHIF : TBits_1; inline;
  55376. begin
  55377. getCHDHIF := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  55378. end;
  55379. procedure TDMAC0_DCH0INT.setCHDDIF; inline;
  55380. begin
  55381. pTDefRegMap(@Self)^.&set := $00000020;
  55382. end;
  55383. procedure TDMAC0_DCH0INT.clearCHDDIF; inline;
  55384. begin
  55385. pTDefRegMap(@Self)^.clr := $00000020;
  55386. end;
  55387. procedure TDMAC0_DCH0INT.setCHDDIF(thebits : TBits_1); inline;
  55388. begin
  55389. if thebits = 0 then
  55390. pTDefRegMap(@Self)^.clr := $00000020
  55391. else
  55392. pTDefRegMap(@Self)^.&set := $00000020;
  55393. end;
  55394. function TDMAC0_DCH0INT.getCHDDIF : TBits_1; inline;
  55395. begin
  55396. getCHDDIF := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  55397. end;
  55398. procedure TDMAC0_DCH0INT.setCHSHIF; inline;
  55399. begin
  55400. pTDefRegMap(@Self)^.&set := $00000040;
  55401. end;
  55402. procedure TDMAC0_DCH0INT.clearCHSHIF; inline;
  55403. begin
  55404. pTDefRegMap(@Self)^.clr := $00000040;
  55405. end;
  55406. procedure TDMAC0_DCH0INT.setCHSHIF(thebits : TBits_1); inline;
  55407. begin
  55408. if thebits = 0 then
  55409. pTDefRegMap(@Self)^.clr := $00000040
  55410. else
  55411. pTDefRegMap(@Self)^.&set := $00000040;
  55412. end;
  55413. function TDMAC0_DCH0INT.getCHSHIF : TBits_1; inline;
  55414. begin
  55415. getCHSHIF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  55416. end;
  55417. procedure TDMAC0_DCH0INT.setCHSDIF; inline;
  55418. begin
  55419. pTDefRegMap(@Self)^.&set := $00000080;
  55420. end;
  55421. procedure TDMAC0_DCH0INT.clearCHSDIF; inline;
  55422. begin
  55423. pTDefRegMap(@Self)^.clr := $00000080;
  55424. end;
  55425. procedure TDMAC0_DCH0INT.setCHSDIF(thebits : TBits_1); inline;
  55426. begin
  55427. if thebits = 0 then
  55428. pTDefRegMap(@Self)^.clr := $00000080
  55429. else
  55430. pTDefRegMap(@Self)^.&set := $00000080;
  55431. end;
  55432. function TDMAC0_DCH0INT.getCHSDIF : TBits_1; inline;
  55433. begin
  55434. getCHSDIF := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  55435. end;
  55436. procedure TDMAC0_DCH0INT.setCHERIE; inline;
  55437. begin
  55438. pTDefRegMap(@Self)^.&set := $00010000;
  55439. end;
  55440. procedure TDMAC0_DCH0INT.clearCHERIE; inline;
  55441. begin
  55442. pTDefRegMap(@Self)^.clr := $00010000;
  55443. end;
  55444. procedure TDMAC0_DCH0INT.setCHERIE(thebits : TBits_1); inline;
  55445. begin
  55446. if thebits = 0 then
  55447. pTDefRegMap(@Self)^.clr := $00010000
  55448. else
  55449. pTDefRegMap(@Self)^.&set := $00010000;
  55450. end;
  55451. function TDMAC0_DCH0INT.getCHERIE : TBits_1; inline;
  55452. begin
  55453. getCHERIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  55454. end;
  55455. procedure TDMAC0_DCH0INT.setCHTAIE; inline;
  55456. begin
  55457. pTDefRegMap(@Self)^.&set := $00020000;
  55458. end;
  55459. procedure TDMAC0_DCH0INT.clearCHTAIE; inline;
  55460. begin
  55461. pTDefRegMap(@Self)^.clr := $00020000;
  55462. end;
  55463. procedure TDMAC0_DCH0INT.setCHTAIE(thebits : TBits_1); inline;
  55464. begin
  55465. if thebits = 0 then
  55466. pTDefRegMap(@Self)^.clr := $00020000
  55467. else
  55468. pTDefRegMap(@Self)^.&set := $00020000;
  55469. end;
  55470. function TDMAC0_DCH0INT.getCHTAIE : TBits_1; inline;
  55471. begin
  55472. getCHTAIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  55473. end;
  55474. procedure TDMAC0_DCH0INT.setCHCCIE; inline;
  55475. begin
  55476. pTDefRegMap(@Self)^.&set := $00040000;
  55477. end;
  55478. procedure TDMAC0_DCH0INT.clearCHCCIE; inline;
  55479. begin
  55480. pTDefRegMap(@Self)^.clr := $00040000;
  55481. end;
  55482. procedure TDMAC0_DCH0INT.setCHCCIE(thebits : TBits_1); inline;
  55483. begin
  55484. if thebits = 0 then
  55485. pTDefRegMap(@Self)^.clr := $00040000
  55486. else
  55487. pTDefRegMap(@Self)^.&set := $00040000;
  55488. end;
  55489. function TDMAC0_DCH0INT.getCHCCIE : TBits_1; inline;
  55490. begin
  55491. getCHCCIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  55492. end;
  55493. procedure TDMAC0_DCH0INT.setCHBCIE; inline;
  55494. begin
  55495. pTDefRegMap(@Self)^.&set := $00080000;
  55496. end;
  55497. procedure TDMAC0_DCH0INT.clearCHBCIE; inline;
  55498. begin
  55499. pTDefRegMap(@Self)^.clr := $00080000;
  55500. end;
  55501. procedure TDMAC0_DCH0INT.setCHBCIE(thebits : TBits_1); inline;
  55502. begin
  55503. if thebits = 0 then
  55504. pTDefRegMap(@Self)^.clr := $00080000
  55505. else
  55506. pTDefRegMap(@Self)^.&set := $00080000;
  55507. end;
  55508. function TDMAC0_DCH0INT.getCHBCIE : TBits_1; inline;
  55509. begin
  55510. getCHBCIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  55511. end;
  55512. procedure TDMAC0_DCH0INT.setCHDHIE; inline;
  55513. begin
  55514. pTDefRegMap(@Self)^.&set := $00100000;
  55515. end;
  55516. procedure TDMAC0_DCH0INT.clearCHDHIE; inline;
  55517. begin
  55518. pTDefRegMap(@Self)^.clr := $00100000;
  55519. end;
  55520. procedure TDMAC0_DCH0INT.setCHDHIE(thebits : TBits_1); inline;
  55521. begin
  55522. if thebits = 0 then
  55523. pTDefRegMap(@Self)^.clr := $00100000
  55524. else
  55525. pTDefRegMap(@Self)^.&set := $00100000;
  55526. end;
  55527. function TDMAC0_DCH0INT.getCHDHIE : TBits_1; inline;
  55528. begin
  55529. getCHDHIE := (pTDefRegMap(@Self)^.val and $00100000) shr 20;
  55530. end;
  55531. procedure TDMAC0_DCH0INT.setCHDDIE; inline;
  55532. begin
  55533. pTDefRegMap(@Self)^.&set := $00200000;
  55534. end;
  55535. procedure TDMAC0_DCH0INT.clearCHDDIE; inline;
  55536. begin
  55537. pTDefRegMap(@Self)^.clr := $00200000;
  55538. end;
  55539. procedure TDMAC0_DCH0INT.setCHDDIE(thebits : TBits_1); inline;
  55540. begin
  55541. if thebits = 0 then
  55542. pTDefRegMap(@Self)^.clr := $00200000
  55543. else
  55544. pTDefRegMap(@Self)^.&set := $00200000;
  55545. end;
  55546. function TDMAC0_DCH0INT.getCHDDIE : TBits_1; inline;
  55547. begin
  55548. getCHDDIE := (pTDefRegMap(@Self)^.val and $00200000) shr 21;
  55549. end;
  55550. procedure TDMAC0_DCH0INT.setCHSHIE; inline;
  55551. begin
  55552. pTDefRegMap(@Self)^.&set := $00400000;
  55553. end;
  55554. procedure TDMAC0_DCH0INT.clearCHSHIE; inline;
  55555. begin
  55556. pTDefRegMap(@Self)^.clr := $00400000;
  55557. end;
  55558. procedure TDMAC0_DCH0INT.setCHSHIE(thebits : TBits_1); inline;
  55559. begin
  55560. if thebits = 0 then
  55561. pTDefRegMap(@Self)^.clr := $00400000
  55562. else
  55563. pTDefRegMap(@Self)^.&set := $00400000;
  55564. end;
  55565. function TDMAC0_DCH0INT.getCHSHIE : TBits_1; inline;
  55566. begin
  55567. getCHSHIE := (pTDefRegMap(@Self)^.val and $00400000) shr 22;
  55568. end;
  55569. procedure TDMAC0_DCH0INT.setCHSDIE; inline;
  55570. begin
  55571. pTDefRegMap(@Self)^.&set := $00800000;
  55572. end;
  55573. procedure TDMAC0_DCH0INT.clearCHSDIE; inline;
  55574. begin
  55575. pTDefRegMap(@Self)^.clr := $00800000;
  55576. end;
  55577. procedure TDMAC0_DCH0INT.setCHSDIE(thebits : TBits_1); inline;
  55578. begin
  55579. if thebits = 0 then
  55580. pTDefRegMap(@Self)^.clr := $00800000
  55581. else
  55582. pTDefRegMap(@Self)^.&set := $00800000;
  55583. end;
  55584. function TDMAC0_DCH0INT.getCHSDIE : TBits_1; inline;
  55585. begin
  55586. getCHSDIE := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
  55587. end;
  55588. procedure TDMAC0_DCH0INT.setw(thebits : TBits_32); inline;
  55589. begin
  55590. pTDefRegMap(@Self)^.val := thebits;
  55591. end;
  55592. function TDMAC0_DCH0INT.getw : TBits_32; inline;
  55593. begin
  55594. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  55595. end;
  55596. procedure TDMAC1_DCH1CON.setCHPRI(thebits : TBits_2); inline;
  55597. begin
  55598. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  55599. end;
  55600. function TDMAC1_DCH1CON.getCHPRI : TBits_2; inline;
  55601. begin
  55602. getCHPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  55603. end;
  55604. procedure TDMAC1_DCH1CON.setCHEDET; inline;
  55605. begin
  55606. pTDefRegMap(@Self)^.&set := $00000004;
  55607. end;
  55608. procedure TDMAC1_DCH1CON.clearCHEDET; inline;
  55609. begin
  55610. pTDefRegMap(@Self)^.clr := $00000004;
  55611. end;
  55612. procedure TDMAC1_DCH1CON.setCHEDET(thebits : TBits_1); inline;
  55613. begin
  55614. if thebits = 0 then
  55615. pTDefRegMap(@Self)^.clr := $00000004
  55616. else
  55617. pTDefRegMap(@Self)^.&set := $00000004;
  55618. end;
  55619. function TDMAC1_DCH1CON.getCHEDET : TBits_1; inline;
  55620. begin
  55621. getCHEDET := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  55622. end;
  55623. procedure TDMAC1_DCH1CON.setCHAEN; inline;
  55624. begin
  55625. pTDefRegMap(@Self)^.&set := $00000010;
  55626. end;
  55627. procedure TDMAC1_DCH1CON.clearCHAEN; inline;
  55628. begin
  55629. pTDefRegMap(@Self)^.clr := $00000010;
  55630. end;
  55631. procedure TDMAC1_DCH1CON.setCHAEN(thebits : TBits_1); inline;
  55632. begin
  55633. if thebits = 0 then
  55634. pTDefRegMap(@Self)^.clr := $00000010
  55635. else
  55636. pTDefRegMap(@Self)^.&set := $00000010;
  55637. end;
  55638. function TDMAC1_DCH1CON.getCHAEN : TBits_1; inline;
  55639. begin
  55640. getCHAEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  55641. end;
  55642. procedure TDMAC1_DCH1CON.setCHCHN; inline;
  55643. begin
  55644. pTDefRegMap(@Self)^.&set := $00000020;
  55645. end;
  55646. procedure TDMAC1_DCH1CON.clearCHCHN; inline;
  55647. begin
  55648. pTDefRegMap(@Self)^.clr := $00000020;
  55649. end;
  55650. procedure TDMAC1_DCH1CON.setCHCHN(thebits : TBits_1); inline;
  55651. begin
  55652. if thebits = 0 then
  55653. pTDefRegMap(@Self)^.clr := $00000020
  55654. else
  55655. pTDefRegMap(@Self)^.&set := $00000020;
  55656. end;
  55657. function TDMAC1_DCH1CON.getCHCHN : TBits_1; inline;
  55658. begin
  55659. getCHCHN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  55660. end;
  55661. procedure TDMAC1_DCH1CON.setCHAED; inline;
  55662. begin
  55663. pTDefRegMap(@Self)^.&set := $00000040;
  55664. end;
  55665. procedure TDMAC1_DCH1CON.clearCHAED; inline;
  55666. begin
  55667. pTDefRegMap(@Self)^.clr := $00000040;
  55668. end;
  55669. procedure TDMAC1_DCH1CON.setCHAED(thebits : TBits_1); inline;
  55670. begin
  55671. if thebits = 0 then
  55672. pTDefRegMap(@Self)^.clr := $00000040
  55673. else
  55674. pTDefRegMap(@Self)^.&set := $00000040;
  55675. end;
  55676. function TDMAC1_DCH1CON.getCHAED : TBits_1; inline;
  55677. begin
  55678. getCHAED := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  55679. end;
  55680. procedure TDMAC1_DCH1CON.setCHEN; inline;
  55681. begin
  55682. pTDefRegMap(@Self)^.&set := $00000080;
  55683. end;
  55684. procedure TDMAC1_DCH1CON.clearCHEN; inline;
  55685. begin
  55686. pTDefRegMap(@Self)^.clr := $00000080;
  55687. end;
  55688. procedure TDMAC1_DCH1CON.setCHEN(thebits : TBits_1); inline;
  55689. begin
  55690. if thebits = 0 then
  55691. pTDefRegMap(@Self)^.clr := $00000080
  55692. else
  55693. pTDefRegMap(@Self)^.&set := $00000080;
  55694. end;
  55695. function TDMAC1_DCH1CON.getCHEN : TBits_1; inline;
  55696. begin
  55697. getCHEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  55698. end;
  55699. procedure TDMAC1_DCH1CON.setCHCHNS; inline;
  55700. begin
  55701. pTDefRegMap(@Self)^.&set := $00000100;
  55702. end;
  55703. procedure TDMAC1_DCH1CON.clearCHCHNS; inline;
  55704. begin
  55705. pTDefRegMap(@Self)^.clr := $00000100;
  55706. end;
  55707. procedure TDMAC1_DCH1CON.setCHCHNS(thebits : TBits_1); inline;
  55708. begin
  55709. if thebits = 0 then
  55710. pTDefRegMap(@Self)^.clr := $00000100
  55711. else
  55712. pTDefRegMap(@Self)^.&set := $00000100;
  55713. end;
  55714. function TDMAC1_DCH1CON.getCHCHNS : TBits_1; inline;
  55715. begin
  55716. getCHCHNS := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  55717. end;
  55718. procedure TDMAC1_DCH1CON.setCHBUSY; inline;
  55719. begin
  55720. pTDefRegMap(@Self)^.&set := $00008000;
  55721. end;
  55722. procedure TDMAC1_DCH1CON.clearCHBUSY; inline;
  55723. begin
  55724. pTDefRegMap(@Self)^.clr := $00008000;
  55725. end;
  55726. procedure TDMAC1_DCH1CON.setCHBUSY(thebits : TBits_1); inline;
  55727. begin
  55728. if thebits = 0 then
  55729. pTDefRegMap(@Self)^.clr := $00008000
  55730. else
  55731. pTDefRegMap(@Self)^.&set := $00008000;
  55732. end;
  55733. function TDMAC1_DCH1CON.getCHBUSY : TBits_1; inline;
  55734. begin
  55735. getCHBUSY := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  55736. end;
  55737. procedure TDMAC1_DCH1CON.setw(thebits : TBits_32); inline;
  55738. begin
  55739. pTDefRegMap(@Self)^.val := thebits;
  55740. end;
  55741. function TDMAC1_DCH1CON.getw : TBits_32; inline;
  55742. begin
  55743. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  55744. end;
  55745. procedure TDMAC1_DCH1ECON.setAIRQEN; inline;
  55746. begin
  55747. pTDefRegMap(@Self)^.&set := $00000008;
  55748. end;
  55749. procedure TDMAC1_DCH1ECON.clearAIRQEN; inline;
  55750. begin
  55751. pTDefRegMap(@Self)^.clr := $00000008;
  55752. end;
  55753. procedure TDMAC1_DCH1ECON.setAIRQEN(thebits : TBits_1); inline;
  55754. begin
  55755. if thebits = 0 then
  55756. pTDefRegMap(@Self)^.clr := $00000008
  55757. else
  55758. pTDefRegMap(@Self)^.&set := $00000008;
  55759. end;
  55760. function TDMAC1_DCH1ECON.getAIRQEN : TBits_1; inline;
  55761. begin
  55762. getAIRQEN := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  55763. end;
  55764. procedure TDMAC1_DCH1ECON.setSIRQEN; inline;
  55765. begin
  55766. pTDefRegMap(@Self)^.&set := $00000010;
  55767. end;
  55768. procedure TDMAC1_DCH1ECON.clearSIRQEN; inline;
  55769. begin
  55770. pTDefRegMap(@Self)^.clr := $00000010;
  55771. end;
  55772. procedure TDMAC1_DCH1ECON.setSIRQEN(thebits : TBits_1); inline;
  55773. begin
  55774. if thebits = 0 then
  55775. pTDefRegMap(@Self)^.clr := $00000010
  55776. else
  55777. pTDefRegMap(@Self)^.&set := $00000010;
  55778. end;
  55779. function TDMAC1_DCH1ECON.getSIRQEN : TBits_1; inline;
  55780. begin
  55781. getSIRQEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  55782. end;
  55783. procedure TDMAC1_DCH1ECON.setPATEN; inline;
  55784. begin
  55785. pTDefRegMap(@Self)^.&set := $00000020;
  55786. end;
  55787. procedure TDMAC1_DCH1ECON.clearPATEN; inline;
  55788. begin
  55789. pTDefRegMap(@Self)^.clr := $00000020;
  55790. end;
  55791. procedure TDMAC1_DCH1ECON.setPATEN(thebits : TBits_1); inline;
  55792. begin
  55793. if thebits = 0 then
  55794. pTDefRegMap(@Self)^.clr := $00000020
  55795. else
  55796. pTDefRegMap(@Self)^.&set := $00000020;
  55797. end;
  55798. function TDMAC1_DCH1ECON.getPATEN : TBits_1; inline;
  55799. begin
  55800. getPATEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  55801. end;
  55802. procedure TDMAC1_DCH1ECON.setCABORT; inline;
  55803. begin
  55804. pTDefRegMap(@Self)^.&set := $00000040;
  55805. end;
  55806. procedure TDMAC1_DCH1ECON.clearCABORT; inline;
  55807. begin
  55808. pTDefRegMap(@Self)^.clr := $00000040;
  55809. end;
  55810. procedure TDMAC1_DCH1ECON.setCABORT(thebits : TBits_1); inline;
  55811. begin
  55812. if thebits = 0 then
  55813. pTDefRegMap(@Self)^.clr := $00000040
  55814. else
  55815. pTDefRegMap(@Self)^.&set := $00000040;
  55816. end;
  55817. function TDMAC1_DCH1ECON.getCABORT : TBits_1; inline;
  55818. begin
  55819. getCABORT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  55820. end;
  55821. procedure TDMAC1_DCH1ECON.setCFORCE; inline;
  55822. begin
  55823. pTDefRegMap(@Self)^.&set := $00000080;
  55824. end;
  55825. procedure TDMAC1_DCH1ECON.clearCFORCE; inline;
  55826. begin
  55827. pTDefRegMap(@Self)^.clr := $00000080;
  55828. end;
  55829. procedure TDMAC1_DCH1ECON.setCFORCE(thebits : TBits_1); inline;
  55830. begin
  55831. if thebits = 0 then
  55832. pTDefRegMap(@Self)^.clr := $00000080
  55833. else
  55834. pTDefRegMap(@Self)^.&set := $00000080;
  55835. end;
  55836. function TDMAC1_DCH1ECON.getCFORCE : TBits_1; inline;
  55837. begin
  55838. getCFORCE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  55839. end;
  55840. procedure TDMAC1_DCH1ECON.setCHSIRQ(thebits : TBits_8); inline;
  55841. begin
  55842. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF00FF or ( thebits shl 8 );
  55843. end;
  55844. function TDMAC1_DCH1ECON.getCHSIRQ : TBits_8; inline;
  55845. begin
  55846. getCHSIRQ := (pTDefRegMap(@Self)^.val and $0000FF00) shr 8;
  55847. end;
  55848. procedure TDMAC1_DCH1ECON.setCHAIRQ(thebits : TBits_8); inline;
  55849. begin
  55850. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
  55851. end;
  55852. function TDMAC1_DCH1ECON.getCHAIRQ : TBits_8; inline;
  55853. begin
  55854. getCHAIRQ := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
  55855. end;
  55856. procedure TDMAC1_DCH1ECON.setw(thebits : TBits_32); inline;
  55857. begin
  55858. pTDefRegMap(@Self)^.val := thebits;
  55859. end;
  55860. function TDMAC1_DCH1ECON.getw : TBits_32; inline;
  55861. begin
  55862. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  55863. end;
  55864. procedure TDMAC1_DCH1INT.setCHERIF; inline;
  55865. begin
  55866. pTDefRegMap(@Self)^.&set := $00000001;
  55867. end;
  55868. procedure TDMAC1_DCH1INT.clearCHERIF; inline;
  55869. begin
  55870. pTDefRegMap(@Self)^.clr := $00000001;
  55871. end;
  55872. procedure TDMAC1_DCH1INT.setCHERIF(thebits : TBits_1); inline;
  55873. begin
  55874. if thebits = 0 then
  55875. pTDefRegMap(@Self)^.clr := $00000001
  55876. else
  55877. pTDefRegMap(@Self)^.&set := $00000001;
  55878. end;
  55879. function TDMAC1_DCH1INT.getCHERIF : TBits_1; inline;
  55880. begin
  55881. getCHERIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  55882. end;
  55883. procedure TDMAC1_DCH1INT.setCHTAIF; inline;
  55884. begin
  55885. pTDefRegMap(@Self)^.&set := $00000002;
  55886. end;
  55887. procedure TDMAC1_DCH1INT.clearCHTAIF; inline;
  55888. begin
  55889. pTDefRegMap(@Self)^.clr := $00000002;
  55890. end;
  55891. procedure TDMAC1_DCH1INT.setCHTAIF(thebits : TBits_1); inline;
  55892. begin
  55893. if thebits = 0 then
  55894. pTDefRegMap(@Self)^.clr := $00000002
  55895. else
  55896. pTDefRegMap(@Self)^.&set := $00000002;
  55897. end;
  55898. function TDMAC1_DCH1INT.getCHTAIF : TBits_1; inline;
  55899. begin
  55900. getCHTAIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  55901. end;
  55902. procedure TDMAC1_DCH1INT.setCHCCIF; inline;
  55903. begin
  55904. pTDefRegMap(@Self)^.&set := $00000004;
  55905. end;
  55906. procedure TDMAC1_DCH1INT.clearCHCCIF; inline;
  55907. begin
  55908. pTDefRegMap(@Self)^.clr := $00000004;
  55909. end;
  55910. procedure TDMAC1_DCH1INT.setCHCCIF(thebits : TBits_1); inline;
  55911. begin
  55912. if thebits = 0 then
  55913. pTDefRegMap(@Self)^.clr := $00000004
  55914. else
  55915. pTDefRegMap(@Self)^.&set := $00000004;
  55916. end;
  55917. function TDMAC1_DCH1INT.getCHCCIF : TBits_1; inline;
  55918. begin
  55919. getCHCCIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  55920. end;
  55921. procedure TDMAC1_DCH1INT.setCHBCIF; inline;
  55922. begin
  55923. pTDefRegMap(@Self)^.&set := $00000008;
  55924. end;
  55925. procedure TDMAC1_DCH1INT.clearCHBCIF; inline;
  55926. begin
  55927. pTDefRegMap(@Self)^.clr := $00000008;
  55928. end;
  55929. procedure TDMAC1_DCH1INT.setCHBCIF(thebits : TBits_1); inline;
  55930. begin
  55931. if thebits = 0 then
  55932. pTDefRegMap(@Self)^.clr := $00000008
  55933. else
  55934. pTDefRegMap(@Self)^.&set := $00000008;
  55935. end;
  55936. function TDMAC1_DCH1INT.getCHBCIF : TBits_1; inline;
  55937. begin
  55938. getCHBCIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  55939. end;
  55940. procedure TDMAC1_DCH1INT.setCHDHIF; inline;
  55941. begin
  55942. pTDefRegMap(@Self)^.&set := $00000010;
  55943. end;
  55944. procedure TDMAC1_DCH1INT.clearCHDHIF; inline;
  55945. begin
  55946. pTDefRegMap(@Self)^.clr := $00000010;
  55947. end;
  55948. procedure TDMAC1_DCH1INT.setCHDHIF(thebits : TBits_1); inline;
  55949. begin
  55950. if thebits = 0 then
  55951. pTDefRegMap(@Self)^.clr := $00000010
  55952. else
  55953. pTDefRegMap(@Self)^.&set := $00000010;
  55954. end;
  55955. function TDMAC1_DCH1INT.getCHDHIF : TBits_1; inline;
  55956. begin
  55957. getCHDHIF := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  55958. end;
  55959. procedure TDMAC1_DCH1INT.setCHDDIF; inline;
  55960. begin
  55961. pTDefRegMap(@Self)^.&set := $00000020;
  55962. end;
  55963. procedure TDMAC1_DCH1INT.clearCHDDIF; inline;
  55964. begin
  55965. pTDefRegMap(@Self)^.clr := $00000020;
  55966. end;
  55967. procedure TDMAC1_DCH1INT.setCHDDIF(thebits : TBits_1); inline;
  55968. begin
  55969. if thebits = 0 then
  55970. pTDefRegMap(@Self)^.clr := $00000020
  55971. else
  55972. pTDefRegMap(@Self)^.&set := $00000020;
  55973. end;
  55974. function TDMAC1_DCH1INT.getCHDDIF : TBits_1; inline;
  55975. begin
  55976. getCHDDIF := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  55977. end;
  55978. procedure TDMAC1_DCH1INT.setCHSHIF; inline;
  55979. begin
  55980. pTDefRegMap(@Self)^.&set := $00000040;
  55981. end;
  55982. procedure TDMAC1_DCH1INT.clearCHSHIF; inline;
  55983. begin
  55984. pTDefRegMap(@Self)^.clr := $00000040;
  55985. end;
  55986. procedure TDMAC1_DCH1INT.setCHSHIF(thebits : TBits_1); inline;
  55987. begin
  55988. if thebits = 0 then
  55989. pTDefRegMap(@Self)^.clr := $00000040
  55990. else
  55991. pTDefRegMap(@Self)^.&set := $00000040;
  55992. end;
  55993. function TDMAC1_DCH1INT.getCHSHIF : TBits_1; inline;
  55994. begin
  55995. getCHSHIF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  55996. end;
  55997. procedure TDMAC1_DCH1INT.setCHSDIF; inline;
  55998. begin
  55999. pTDefRegMap(@Self)^.&set := $00000080;
  56000. end;
  56001. procedure TDMAC1_DCH1INT.clearCHSDIF; inline;
  56002. begin
  56003. pTDefRegMap(@Self)^.clr := $00000080;
  56004. end;
  56005. procedure TDMAC1_DCH1INT.setCHSDIF(thebits : TBits_1); inline;
  56006. begin
  56007. if thebits = 0 then
  56008. pTDefRegMap(@Self)^.clr := $00000080
  56009. else
  56010. pTDefRegMap(@Self)^.&set := $00000080;
  56011. end;
  56012. function TDMAC1_DCH1INT.getCHSDIF : TBits_1; inline;
  56013. begin
  56014. getCHSDIF := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  56015. end;
  56016. procedure TDMAC1_DCH1INT.setCHERIE; inline;
  56017. begin
  56018. pTDefRegMap(@Self)^.&set := $00010000;
  56019. end;
  56020. procedure TDMAC1_DCH1INT.clearCHERIE; inline;
  56021. begin
  56022. pTDefRegMap(@Self)^.clr := $00010000;
  56023. end;
  56024. procedure TDMAC1_DCH1INT.setCHERIE(thebits : TBits_1); inline;
  56025. begin
  56026. if thebits = 0 then
  56027. pTDefRegMap(@Self)^.clr := $00010000
  56028. else
  56029. pTDefRegMap(@Self)^.&set := $00010000;
  56030. end;
  56031. function TDMAC1_DCH1INT.getCHERIE : TBits_1; inline;
  56032. begin
  56033. getCHERIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  56034. end;
  56035. procedure TDMAC1_DCH1INT.setCHTAIE; inline;
  56036. begin
  56037. pTDefRegMap(@Self)^.&set := $00020000;
  56038. end;
  56039. procedure TDMAC1_DCH1INT.clearCHTAIE; inline;
  56040. begin
  56041. pTDefRegMap(@Self)^.clr := $00020000;
  56042. end;
  56043. procedure TDMAC1_DCH1INT.setCHTAIE(thebits : TBits_1); inline;
  56044. begin
  56045. if thebits = 0 then
  56046. pTDefRegMap(@Self)^.clr := $00020000
  56047. else
  56048. pTDefRegMap(@Self)^.&set := $00020000;
  56049. end;
  56050. function TDMAC1_DCH1INT.getCHTAIE : TBits_1; inline;
  56051. begin
  56052. getCHTAIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  56053. end;
  56054. procedure TDMAC1_DCH1INT.setCHCCIE; inline;
  56055. begin
  56056. pTDefRegMap(@Self)^.&set := $00040000;
  56057. end;
  56058. procedure TDMAC1_DCH1INT.clearCHCCIE; inline;
  56059. begin
  56060. pTDefRegMap(@Self)^.clr := $00040000;
  56061. end;
  56062. procedure TDMAC1_DCH1INT.setCHCCIE(thebits : TBits_1); inline;
  56063. begin
  56064. if thebits = 0 then
  56065. pTDefRegMap(@Self)^.clr := $00040000
  56066. else
  56067. pTDefRegMap(@Self)^.&set := $00040000;
  56068. end;
  56069. function TDMAC1_DCH1INT.getCHCCIE : TBits_1; inline;
  56070. begin
  56071. getCHCCIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  56072. end;
  56073. procedure TDMAC1_DCH1INT.setCHBCIE; inline;
  56074. begin
  56075. pTDefRegMap(@Self)^.&set := $00080000;
  56076. end;
  56077. procedure TDMAC1_DCH1INT.clearCHBCIE; inline;
  56078. begin
  56079. pTDefRegMap(@Self)^.clr := $00080000;
  56080. end;
  56081. procedure TDMAC1_DCH1INT.setCHBCIE(thebits : TBits_1); inline;
  56082. begin
  56083. if thebits = 0 then
  56084. pTDefRegMap(@Self)^.clr := $00080000
  56085. else
  56086. pTDefRegMap(@Self)^.&set := $00080000;
  56087. end;
  56088. function TDMAC1_DCH1INT.getCHBCIE : TBits_1; inline;
  56089. begin
  56090. getCHBCIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  56091. end;
  56092. procedure TDMAC1_DCH1INT.setCHDHIE; inline;
  56093. begin
  56094. pTDefRegMap(@Self)^.&set := $00100000;
  56095. end;
  56096. procedure TDMAC1_DCH1INT.clearCHDHIE; inline;
  56097. begin
  56098. pTDefRegMap(@Self)^.clr := $00100000;
  56099. end;
  56100. procedure TDMAC1_DCH1INT.setCHDHIE(thebits : TBits_1); inline;
  56101. begin
  56102. if thebits = 0 then
  56103. pTDefRegMap(@Self)^.clr := $00100000
  56104. else
  56105. pTDefRegMap(@Self)^.&set := $00100000;
  56106. end;
  56107. function TDMAC1_DCH1INT.getCHDHIE : TBits_1; inline;
  56108. begin
  56109. getCHDHIE := (pTDefRegMap(@Self)^.val and $00100000) shr 20;
  56110. end;
  56111. procedure TDMAC1_DCH1INT.setCHDDIE; inline;
  56112. begin
  56113. pTDefRegMap(@Self)^.&set := $00200000;
  56114. end;
  56115. procedure TDMAC1_DCH1INT.clearCHDDIE; inline;
  56116. begin
  56117. pTDefRegMap(@Self)^.clr := $00200000;
  56118. end;
  56119. procedure TDMAC1_DCH1INT.setCHDDIE(thebits : TBits_1); inline;
  56120. begin
  56121. if thebits = 0 then
  56122. pTDefRegMap(@Self)^.clr := $00200000
  56123. else
  56124. pTDefRegMap(@Self)^.&set := $00200000;
  56125. end;
  56126. function TDMAC1_DCH1INT.getCHDDIE : TBits_1; inline;
  56127. begin
  56128. getCHDDIE := (pTDefRegMap(@Self)^.val and $00200000) shr 21;
  56129. end;
  56130. procedure TDMAC1_DCH1INT.setCHSHIE; inline;
  56131. begin
  56132. pTDefRegMap(@Self)^.&set := $00400000;
  56133. end;
  56134. procedure TDMAC1_DCH1INT.clearCHSHIE; inline;
  56135. begin
  56136. pTDefRegMap(@Self)^.clr := $00400000;
  56137. end;
  56138. procedure TDMAC1_DCH1INT.setCHSHIE(thebits : TBits_1); inline;
  56139. begin
  56140. if thebits = 0 then
  56141. pTDefRegMap(@Self)^.clr := $00400000
  56142. else
  56143. pTDefRegMap(@Self)^.&set := $00400000;
  56144. end;
  56145. function TDMAC1_DCH1INT.getCHSHIE : TBits_1; inline;
  56146. begin
  56147. getCHSHIE := (pTDefRegMap(@Self)^.val and $00400000) shr 22;
  56148. end;
  56149. procedure TDMAC1_DCH1INT.setCHSDIE; inline;
  56150. begin
  56151. pTDefRegMap(@Self)^.&set := $00800000;
  56152. end;
  56153. procedure TDMAC1_DCH1INT.clearCHSDIE; inline;
  56154. begin
  56155. pTDefRegMap(@Self)^.clr := $00800000;
  56156. end;
  56157. procedure TDMAC1_DCH1INT.setCHSDIE(thebits : TBits_1); inline;
  56158. begin
  56159. if thebits = 0 then
  56160. pTDefRegMap(@Self)^.clr := $00800000
  56161. else
  56162. pTDefRegMap(@Self)^.&set := $00800000;
  56163. end;
  56164. function TDMAC1_DCH1INT.getCHSDIE : TBits_1; inline;
  56165. begin
  56166. getCHSDIE := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
  56167. end;
  56168. procedure TDMAC1_DCH1INT.setw(thebits : TBits_32); inline;
  56169. begin
  56170. pTDefRegMap(@Self)^.val := thebits;
  56171. end;
  56172. function TDMAC1_DCH1INT.getw : TBits_32; inline;
  56173. begin
  56174. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  56175. end;
  56176. procedure TDMAC2_DCH2CON.setCHPRI(thebits : TBits_2); inline;
  56177. begin
  56178. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  56179. end;
  56180. function TDMAC2_DCH2CON.getCHPRI : TBits_2; inline;
  56181. begin
  56182. getCHPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  56183. end;
  56184. procedure TDMAC2_DCH2CON.setCHEDET; inline;
  56185. begin
  56186. pTDefRegMap(@Self)^.&set := $00000004;
  56187. end;
  56188. procedure TDMAC2_DCH2CON.clearCHEDET; inline;
  56189. begin
  56190. pTDefRegMap(@Self)^.clr := $00000004;
  56191. end;
  56192. procedure TDMAC2_DCH2CON.setCHEDET(thebits : TBits_1); inline;
  56193. begin
  56194. if thebits = 0 then
  56195. pTDefRegMap(@Self)^.clr := $00000004
  56196. else
  56197. pTDefRegMap(@Self)^.&set := $00000004;
  56198. end;
  56199. function TDMAC2_DCH2CON.getCHEDET : TBits_1; inline;
  56200. begin
  56201. getCHEDET := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  56202. end;
  56203. procedure TDMAC2_DCH2CON.setCHAEN; inline;
  56204. begin
  56205. pTDefRegMap(@Self)^.&set := $00000010;
  56206. end;
  56207. procedure TDMAC2_DCH2CON.clearCHAEN; inline;
  56208. begin
  56209. pTDefRegMap(@Self)^.clr := $00000010;
  56210. end;
  56211. procedure TDMAC2_DCH2CON.setCHAEN(thebits : TBits_1); inline;
  56212. begin
  56213. if thebits = 0 then
  56214. pTDefRegMap(@Self)^.clr := $00000010
  56215. else
  56216. pTDefRegMap(@Self)^.&set := $00000010;
  56217. end;
  56218. function TDMAC2_DCH2CON.getCHAEN : TBits_1; inline;
  56219. begin
  56220. getCHAEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  56221. end;
  56222. procedure TDMAC2_DCH2CON.setCHCHN; inline;
  56223. begin
  56224. pTDefRegMap(@Self)^.&set := $00000020;
  56225. end;
  56226. procedure TDMAC2_DCH2CON.clearCHCHN; inline;
  56227. begin
  56228. pTDefRegMap(@Self)^.clr := $00000020;
  56229. end;
  56230. procedure TDMAC2_DCH2CON.setCHCHN(thebits : TBits_1); inline;
  56231. begin
  56232. if thebits = 0 then
  56233. pTDefRegMap(@Self)^.clr := $00000020
  56234. else
  56235. pTDefRegMap(@Self)^.&set := $00000020;
  56236. end;
  56237. function TDMAC2_DCH2CON.getCHCHN : TBits_1; inline;
  56238. begin
  56239. getCHCHN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  56240. end;
  56241. procedure TDMAC2_DCH2CON.setCHAED; inline;
  56242. begin
  56243. pTDefRegMap(@Self)^.&set := $00000040;
  56244. end;
  56245. procedure TDMAC2_DCH2CON.clearCHAED; inline;
  56246. begin
  56247. pTDefRegMap(@Self)^.clr := $00000040;
  56248. end;
  56249. procedure TDMAC2_DCH2CON.setCHAED(thebits : TBits_1); inline;
  56250. begin
  56251. if thebits = 0 then
  56252. pTDefRegMap(@Self)^.clr := $00000040
  56253. else
  56254. pTDefRegMap(@Self)^.&set := $00000040;
  56255. end;
  56256. function TDMAC2_DCH2CON.getCHAED : TBits_1; inline;
  56257. begin
  56258. getCHAED := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  56259. end;
  56260. procedure TDMAC2_DCH2CON.setCHEN; inline;
  56261. begin
  56262. pTDefRegMap(@Self)^.&set := $00000080;
  56263. end;
  56264. procedure TDMAC2_DCH2CON.clearCHEN; inline;
  56265. begin
  56266. pTDefRegMap(@Self)^.clr := $00000080;
  56267. end;
  56268. procedure TDMAC2_DCH2CON.setCHEN(thebits : TBits_1); inline;
  56269. begin
  56270. if thebits = 0 then
  56271. pTDefRegMap(@Self)^.clr := $00000080
  56272. else
  56273. pTDefRegMap(@Self)^.&set := $00000080;
  56274. end;
  56275. function TDMAC2_DCH2CON.getCHEN : TBits_1; inline;
  56276. begin
  56277. getCHEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  56278. end;
  56279. procedure TDMAC2_DCH2CON.setCHCHNS; inline;
  56280. begin
  56281. pTDefRegMap(@Self)^.&set := $00000100;
  56282. end;
  56283. procedure TDMAC2_DCH2CON.clearCHCHNS; inline;
  56284. begin
  56285. pTDefRegMap(@Self)^.clr := $00000100;
  56286. end;
  56287. procedure TDMAC2_DCH2CON.setCHCHNS(thebits : TBits_1); inline;
  56288. begin
  56289. if thebits = 0 then
  56290. pTDefRegMap(@Self)^.clr := $00000100
  56291. else
  56292. pTDefRegMap(@Self)^.&set := $00000100;
  56293. end;
  56294. function TDMAC2_DCH2CON.getCHCHNS : TBits_1; inline;
  56295. begin
  56296. getCHCHNS := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  56297. end;
  56298. procedure TDMAC2_DCH2CON.setCHBUSY; inline;
  56299. begin
  56300. pTDefRegMap(@Self)^.&set := $00008000;
  56301. end;
  56302. procedure TDMAC2_DCH2CON.clearCHBUSY; inline;
  56303. begin
  56304. pTDefRegMap(@Self)^.clr := $00008000;
  56305. end;
  56306. procedure TDMAC2_DCH2CON.setCHBUSY(thebits : TBits_1); inline;
  56307. begin
  56308. if thebits = 0 then
  56309. pTDefRegMap(@Self)^.clr := $00008000
  56310. else
  56311. pTDefRegMap(@Self)^.&set := $00008000;
  56312. end;
  56313. function TDMAC2_DCH2CON.getCHBUSY : TBits_1; inline;
  56314. begin
  56315. getCHBUSY := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  56316. end;
  56317. procedure TDMAC2_DCH2CON.setw(thebits : TBits_32); inline;
  56318. begin
  56319. pTDefRegMap(@Self)^.val := thebits;
  56320. end;
  56321. function TDMAC2_DCH2CON.getw : TBits_32; inline;
  56322. begin
  56323. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  56324. end;
  56325. procedure TDMAC2_DCH2ECON.setAIRQEN; inline;
  56326. begin
  56327. pTDefRegMap(@Self)^.&set := $00000008;
  56328. end;
  56329. procedure TDMAC2_DCH2ECON.clearAIRQEN; inline;
  56330. begin
  56331. pTDefRegMap(@Self)^.clr := $00000008;
  56332. end;
  56333. procedure TDMAC2_DCH2ECON.setAIRQEN(thebits : TBits_1); inline;
  56334. begin
  56335. if thebits = 0 then
  56336. pTDefRegMap(@Self)^.clr := $00000008
  56337. else
  56338. pTDefRegMap(@Self)^.&set := $00000008;
  56339. end;
  56340. function TDMAC2_DCH2ECON.getAIRQEN : TBits_1; inline;
  56341. begin
  56342. getAIRQEN := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  56343. end;
  56344. procedure TDMAC2_DCH2ECON.setSIRQEN; inline;
  56345. begin
  56346. pTDefRegMap(@Self)^.&set := $00000010;
  56347. end;
  56348. procedure TDMAC2_DCH2ECON.clearSIRQEN; inline;
  56349. begin
  56350. pTDefRegMap(@Self)^.clr := $00000010;
  56351. end;
  56352. procedure TDMAC2_DCH2ECON.setSIRQEN(thebits : TBits_1); inline;
  56353. begin
  56354. if thebits = 0 then
  56355. pTDefRegMap(@Self)^.clr := $00000010
  56356. else
  56357. pTDefRegMap(@Self)^.&set := $00000010;
  56358. end;
  56359. function TDMAC2_DCH2ECON.getSIRQEN : TBits_1; inline;
  56360. begin
  56361. getSIRQEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  56362. end;
  56363. procedure TDMAC2_DCH2ECON.setPATEN; inline;
  56364. begin
  56365. pTDefRegMap(@Self)^.&set := $00000020;
  56366. end;
  56367. procedure TDMAC2_DCH2ECON.clearPATEN; inline;
  56368. begin
  56369. pTDefRegMap(@Self)^.clr := $00000020;
  56370. end;
  56371. procedure TDMAC2_DCH2ECON.setPATEN(thebits : TBits_1); inline;
  56372. begin
  56373. if thebits = 0 then
  56374. pTDefRegMap(@Self)^.clr := $00000020
  56375. else
  56376. pTDefRegMap(@Self)^.&set := $00000020;
  56377. end;
  56378. function TDMAC2_DCH2ECON.getPATEN : TBits_1; inline;
  56379. begin
  56380. getPATEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  56381. end;
  56382. procedure TDMAC2_DCH2ECON.setCABORT; inline;
  56383. begin
  56384. pTDefRegMap(@Self)^.&set := $00000040;
  56385. end;
  56386. procedure TDMAC2_DCH2ECON.clearCABORT; inline;
  56387. begin
  56388. pTDefRegMap(@Self)^.clr := $00000040;
  56389. end;
  56390. procedure TDMAC2_DCH2ECON.setCABORT(thebits : TBits_1); inline;
  56391. begin
  56392. if thebits = 0 then
  56393. pTDefRegMap(@Self)^.clr := $00000040
  56394. else
  56395. pTDefRegMap(@Self)^.&set := $00000040;
  56396. end;
  56397. function TDMAC2_DCH2ECON.getCABORT : TBits_1; inline;
  56398. begin
  56399. getCABORT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  56400. end;
  56401. procedure TDMAC2_DCH2ECON.setCFORCE; inline;
  56402. begin
  56403. pTDefRegMap(@Self)^.&set := $00000080;
  56404. end;
  56405. procedure TDMAC2_DCH2ECON.clearCFORCE; inline;
  56406. begin
  56407. pTDefRegMap(@Self)^.clr := $00000080;
  56408. end;
  56409. procedure TDMAC2_DCH2ECON.setCFORCE(thebits : TBits_1); inline;
  56410. begin
  56411. if thebits = 0 then
  56412. pTDefRegMap(@Self)^.clr := $00000080
  56413. else
  56414. pTDefRegMap(@Self)^.&set := $00000080;
  56415. end;
  56416. function TDMAC2_DCH2ECON.getCFORCE : TBits_1; inline;
  56417. begin
  56418. getCFORCE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  56419. end;
  56420. procedure TDMAC2_DCH2ECON.setCHSIRQ(thebits : TBits_8); inline;
  56421. begin
  56422. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF00FF or ( thebits shl 8 );
  56423. end;
  56424. function TDMAC2_DCH2ECON.getCHSIRQ : TBits_8; inline;
  56425. begin
  56426. getCHSIRQ := (pTDefRegMap(@Self)^.val and $0000FF00) shr 8;
  56427. end;
  56428. procedure TDMAC2_DCH2ECON.setCHAIRQ(thebits : TBits_8); inline;
  56429. begin
  56430. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
  56431. end;
  56432. function TDMAC2_DCH2ECON.getCHAIRQ : TBits_8; inline;
  56433. begin
  56434. getCHAIRQ := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
  56435. end;
  56436. procedure TDMAC2_DCH2ECON.setw(thebits : TBits_32); inline;
  56437. begin
  56438. pTDefRegMap(@Self)^.val := thebits;
  56439. end;
  56440. function TDMAC2_DCH2ECON.getw : TBits_32; inline;
  56441. begin
  56442. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  56443. end;
  56444. procedure TDMAC2_DCH2INT.setCHERIF; inline;
  56445. begin
  56446. pTDefRegMap(@Self)^.&set := $00000001;
  56447. end;
  56448. procedure TDMAC2_DCH2INT.clearCHERIF; inline;
  56449. begin
  56450. pTDefRegMap(@Self)^.clr := $00000001;
  56451. end;
  56452. procedure TDMAC2_DCH2INT.setCHERIF(thebits : TBits_1); inline;
  56453. begin
  56454. if thebits = 0 then
  56455. pTDefRegMap(@Self)^.clr := $00000001
  56456. else
  56457. pTDefRegMap(@Self)^.&set := $00000001;
  56458. end;
  56459. function TDMAC2_DCH2INT.getCHERIF : TBits_1; inline;
  56460. begin
  56461. getCHERIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  56462. end;
  56463. procedure TDMAC2_DCH2INT.setCHTAIF; inline;
  56464. begin
  56465. pTDefRegMap(@Self)^.&set := $00000002;
  56466. end;
  56467. procedure TDMAC2_DCH2INT.clearCHTAIF; inline;
  56468. begin
  56469. pTDefRegMap(@Self)^.clr := $00000002;
  56470. end;
  56471. procedure TDMAC2_DCH2INT.setCHTAIF(thebits : TBits_1); inline;
  56472. begin
  56473. if thebits = 0 then
  56474. pTDefRegMap(@Self)^.clr := $00000002
  56475. else
  56476. pTDefRegMap(@Self)^.&set := $00000002;
  56477. end;
  56478. function TDMAC2_DCH2INT.getCHTAIF : TBits_1; inline;
  56479. begin
  56480. getCHTAIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  56481. end;
  56482. procedure TDMAC2_DCH2INT.setCHCCIF; inline;
  56483. begin
  56484. pTDefRegMap(@Self)^.&set := $00000004;
  56485. end;
  56486. procedure TDMAC2_DCH2INT.clearCHCCIF; inline;
  56487. begin
  56488. pTDefRegMap(@Self)^.clr := $00000004;
  56489. end;
  56490. procedure TDMAC2_DCH2INT.setCHCCIF(thebits : TBits_1); inline;
  56491. begin
  56492. if thebits = 0 then
  56493. pTDefRegMap(@Self)^.clr := $00000004
  56494. else
  56495. pTDefRegMap(@Self)^.&set := $00000004;
  56496. end;
  56497. function TDMAC2_DCH2INT.getCHCCIF : TBits_1; inline;
  56498. begin
  56499. getCHCCIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  56500. end;
  56501. procedure TDMAC2_DCH2INT.setCHBCIF; inline;
  56502. begin
  56503. pTDefRegMap(@Self)^.&set := $00000008;
  56504. end;
  56505. procedure TDMAC2_DCH2INT.clearCHBCIF; inline;
  56506. begin
  56507. pTDefRegMap(@Self)^.clr := $00000008;
  56508. end;
  56509. procedure TDMAC2_DCH2INT.setCHBCIF(thebits : TBits_1); inline;
  56510. begin
  56511. if thebits = 0 then
  56512. pTDefRegMap(@Self)^.clr := $00000008
  56513. else
  56514. pTDefRegMap(@Self)^.&set := $00000008;
  56515. end;
  56516. function TDMAC2_DCH2INT.getCHBCIF : TBits_1; inline;
  56517. begin
  56518. getCHBCIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  56519. end;
  56520. procedure TDMAC2_DCH2INT.setCHDHIF; inline;
  56521. begin
  56522. pTDefRegMap(@Self)^.&set := $00000010;
  56523. end;
  56524. procedure TDMAC2_DCH2INT.clearCHDHIF; inline;
  56525. begin
  56526. pTDefRegMap(@Self)^.clr := $00000010;
  56527. end;
  56528. procedure TDMAC2_DCH2INT.setCHDHIF(thebits : TBits_1); inline;
  56529. begin
  56530. if thebits = 0 then
  56531. pTDefRegMap(@Self)^.clr := $00000010
  56532. else
  56533. pTDefRegMap(@Self)^.&set := $00000010;
  56534. end;
  56535. function TDMAC2_DCH2INT.getCHDHIF : TBits_1; inline;
  56536. begin
  56537. getCHDHIF := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  56538. end;
  56539. procedure TDMAC2_DCH2INT.setCHDDIF; inline;
  56540. begin
  56541. pTDefRegMap(@Self)^.&set := $00000020;
  56542. end;
  56543. procedure TDMAC2_DCH2INT.clearCHDDIF; inline;
  56544. begin
  56545. pTDefRegMap(@Self)^.clr := $00000020;
  56546. end;
  56547. procedure TDMAC2_DCH2INT.setCHDDIF(thebits : TBits_1); inline;
  56548. begin
  56549. if thebits = 0 then
  56550. pTDefRegMap(@Self)^.clr := $00000020
  56551. else
  56552. pTDefRegMap(@Self)^.&set := $00000020;
  56553. end;
  56554. function TDMAC2_DCH2INT.getCHDDIF : TBits_1; inline;
  56555. begin
  56556. getCHDDIF := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  56557. end;
  56558. procedure TDMAC2_DCH2INT.setCHSHIF; inline;
  56559. begin
  56560. pTDefRegMap(@Self)^.&set := $00000040;
  56561. end;
  56562. procedure TDMAC2_DCH2INT.clearCHSHIF; inline;
  56563. begin
  56564. pTDefRegMap(@Self)^.clr := $00000040;
  56565. end;
  56566. procedure TDMAC2_DCH2INT.setCHSHIF(thebits : TBits_1); inline;
  56567. begin
  56568. if thebits = 0 then
  56569. pTDefRegMap(@Self)^.clr := $00000040
  56570. else
  56571. pTDefRegMap(@Self)^.&set := $00000040;
  56572. end;
  56573. function TDMAC2_DCH2INT.getCHSHIF : TBits_1; inline;
  56574. begin
  56575. getCHSHIF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  56576. end;
  56577. procedure TDMAC2_DCH2INT.setCHSDIF; inline;
  56578. begin
  56579. pTDefRegMap(@Self)^.&set := $00000080;
  56580. end;
  56581. procedure TDMAC2_DCH2INT.clearCHSDIF; inline;
  56582. begin
  56583. pTDefRegMap(@Self)^.clr := $00000080;
  56584. end;
  56585. procedure TDMAC2_DCH2INT.setCHSDIF(thebits : TBits_1); inline;
  56586. begin
  56587. if thebits = 0 then
  56588. pTDefRegMap(@Self)^.clr := $00000080
  56589. else
  56590. pTDefRegMap(@Self)^.&set := $00000080;
  56591. end;
  56592. function TDMAC2_DCH2INT.getCHSDIF : TBits_1; inline;
  56593. begin
  56594. getCHSDIF := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  56595. end;
  56596. procedure TDMAC2_DCH2INT.setCHERIE; inline;
  56597. begin
  56598. pTDefRegMap(@Self)^.&set := $00010000;
  56599. end;
  56600. procedure TDMAC2_DCH2INT.clearCHERIE; inline;
  56601. begin
  56602. pTDefRegMap(@Self)^.clr := $00010000;
  56603. end;
  56604. procedure TDMAC2_DCH2INT.setCHERIE(thebits : TBits_1); inline;
  56605. begin
  56606. if thebits = 0 then
  56607. pTDefRegMap(@Self)^.clr := $00010000
  56608. else
  56609. pTDefRegMap(@Self)^.&set := $00010000;
  56610. end;
  56611. function TDMAC2_DCH2INT.getCHERIE : TBits_1; inline;
  56612. begin
  56613. getCHERIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  56614. end;
  56615. procedure TDMAC2_DCH2INT.setCHTAIE; inline;
  56616. begin
  56617. pTDefRegMap(@Self)^.&set := $00020000;
  56618. end;
  56619. procedure TDMAC2_DCH2INT.clearCHTAIE; inline;
  56620. begin
  56621. pTDefRegMap(@Self)^.clr := $00020000;
  56622. end;
  56623. procedure TDMAC2_DCH2INT.setCHTAIE(thebits : TBits_1); inline;
  56624. begin
  56625. if thebits = 0 then
  56626. pTDefRegMap(@Self)^.clr := $00020000
  56627. else
  56628. pTDefRegMap(@Self)^.&set := $00020000;
  56629. end;
  56630. function TDMAC2_DCH2INT.getCHTAIE : TBits_1; inline;
  56631. begin
  56632. getCHTAIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  56633. end;
  56634. procedure TDMAC2_DCH2INT.setCHCCIE; inline;
  56635. begin
  56636. pTDefRegMap(@Self)^.&set := $00040000;
  56637. end;
  56638. procedure TDMAC2_DCH2INT.clearCHCCIE; inline;
  56639. begin
  56640. pTDefRegMap(@Self)^.clr := $00040000;
  56641. end;
  56642. procedure TDMAC2_DCH2INT.setCHCCIE(thebits : TBits_1); inline;
  56643. begin
  56644. if thebits = 0 then
  56645. pTDefRegMap(@Self)^.clr := $00040000
  56646. else
  56647. pTDefRegMap(@Self)^.&set := $00040000;
  56648. end;
  56649. function TDMAC2_DCH2INT.getCHCCIE : TBits_1; inline;
  56650. begin
  56651. getCHCCIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  56652. end;
  56653. procedure TDMAC2_DCH2INT.setCHBCIE; inline;
  56654. begin
  56655. pTDefRegMap(@Self)^.&set := $00080000;
  56656. end;
  56657. procedure TDMAC2_DCH2INT.clearCHBCIE; inline;
  56658. begin
  56659. pTDefRegMap(@Self)^.clr := $00080000;
  56660. end;
  56661. procedure TDMAC2_DCH2INT.setCHBCIE(thebits : TBits_1); inline;
  56662. begin
  56663. if thebits = 0 then
  56664. pTDefRegMap(@Self)^.clr := $00080000
  56665. else
  56666. pTDefRegMap(@Self)^.&set := $00080000;
  56667. end;
  56668. function TDMAC2_DCH2INT.getCHBCIE : TBits_1; inline;
  56669. begin
  56670. getCHBCIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  56671. end;
  56672. procedure TDMAC2_DCH2INT.setCHDHIE; inline;
  56673. begin
  56674. pTDefRegMap(@Self)^.&set := $00100000;
  56675. end;
  56676. procedure TDMAC2_DCH2INT.clearCHDHIE; inline;
  56677. begin
  56678. pTDefRegMap(@Self)^.clr := $00100000;
  56679. end;
  56680. procedure TDMAC2_DCH2INT.setCHDHIE(thebits : TBits_1); inline;
  56681. begin
  56682. if thebits = 0 then
  56683. pTDefRegMap(@Self)^.clr := $00100000
  56684. else
  56685. pTDefRegMap(@Self)^.&set := $00100000;
  56686. end;
  56687. function TDMAC2_DCH2INT.getCHDHIE : TBits_1; inline;
  56688. begin
  56689. getCHDHIE := (pTDefRegMap(@Self)^.val and $00100000) shr 20;
  56690. end;
  56691. procedure TDMAC2_DCH2INT.setCHDDIE; inline;
  56692. begin
  56693. pTDefRegMap(@Self)^.&set := $00200000;
  56694. end;
  56695. procedure TDMAC2_DCH2INT.clearCHDDIE; inline;
  56696. begin
  56697. pTDefRegMap(@Self)^.clr := $00200000;
  56698. end;
  56699. procedure TDMAC2_DCH2INT.setCHDDIE(thebits : TBits_1); inline;
  56700. begin
  56701. if thebits = 0 then
  56702. pTDefRegMap(@Self)^.clr := $00200000
  56703. else
  56704. pTDefRegMap(@Self)^.&set := $00200000;
  56705. end;
  56706. function TDMAC2_DCH2INT.getCHDDIE : TBits_1; inline;
  56707. begin
  56708. getCHDDIE := (pTDefRegMap(@Self)^.val and $00200000) shr 21;
  56709. end;
  56710. procedure TDMAC2_DCH2INT.setCHSHIE; inline;
  56711. begin
  56712. pTDefRegMap(@Self)^.&set := $00400000;
  56713. end;
  56714. procedure TDMAC2_DCH2INT.clearCHSHIE; inline;
  56715. begin
  56716. pTDefRegMap(@Self)^.clr := $00400000;
  56717. end;
  56718. procedure TDMAC2_DCH2INT.setCHSHIE(thebits : TBits_1); inline;
  56719. begin
  56720. if thebits = 0 then
  56721. pTDefRegMap(@Self)^.clr := $00400000
  56722. else
  56723. pTDefRegMap(@Self)^.&set := $00400000;
  56724. end;
  56725. function TDMAC2_DCH2INT.getCHSHIE : TBits_1; inline;
  56726. begin
  56727. getCHSHIE := (pTDefRegMap(@Self)^.val and $00400000) shr 22;
  56728. end;
  56729. procedure TDMAC2_DCH2INT.setCHSDIE; inline;
  56730. begin
  56731. pTDefRegMap(@Self)^.&set := $00800000;
  56732. end;
  56733. procedure TDMAC2_DCH2INT.clearCHSDIE; inline;
  56734. begin
  56735. pTDefRegMap(@Self)^.clr := $00800000;
  56736. end;
  56737. procedure TDMAC2_DCH2INT.setCHSDIE(thebits : TBits_1); inline;
  56738. begin
  56739. if thebits = 0 then
  56740. pTDefRegMap(@Self)^.clr := $00800000
  56741. else
  56742. pTDefRegMap(@Self)^.&set := $00800000;
  56743. end;
  56744. function TDMAC2_DCH2INT.getCHSDIE : TBits_1; inline;
  56745. begin
  56746. getCHSDIE := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
  56747. end;
  56748. procedure TDMAC2_DCH2INT.setw(thebits : TBits_32); inline;
  56749. begin
  56750. pTDefRegMap(@Self)^.val := thebits;
  56751. end;
  56752. function TDMAC2_DCH2INT.getw : TBits_32; inline;
  56753. begin
  56754. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  56755. end;
  56756. procedure TDMAC3_DCH3CON.setCHPRI(thebits : TBits_2); inline;
  56757. begin
  56758. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  56759. end;
  56760. function TDMAC3_DCH3CON.getCHPRI : TBits_2; inline;
  56761. begin
  56762. getCHPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  56763. end;
  56764. procedure TDMAC3_DCH3CON.setCHEDET; inline;
  56765. begin
  56766. pTDefRegMap(@Self)^.&set := $00000004;
  56767. end;
  56768. procedure TDMAC3_DCH3CON.clearCHEDET; inline;
  56769. begin
  56770. pTDefRegMap(@Self)^.clr := $00000004;
  56771. end;
  56772. procedure TDMAC3_DCH3CON.setCHEDET(thebits : TBits_1); inline;
  56773. begin
  56774. if thebits = 0 then
  56775. pTDefRegMap(@Self)^.clr := $00000004
  56776. else
  56777. pTDefRegMap(@Self)^.&set := $00000004;
  56778. end;
  56779. function TDMAC3_DCH3CON.getCHEDET : TBits_1; inline;
  56780. begin
  56781. getCHEDET := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  56782. end;
  56783. procedure TDMAC3_DCH3CON.setCHAEN; inline;
  56784. begin
  56785. pTDefRegMap(@Self)^.&set := $00000010;
  56786. end;
  56787. procedure TDMAC3_DCH3CON.clearCHAEN; inline;
  56788. begin
  56789. pTDefRegMap(@Self)^.clr := $00000010;
  56790. end;
  56791. procedure TDMAC3_DCH3CON.setCHAEN(thebits : TBits_1); inline;
  56792. begin
  56793. if thebits = 0 then
  56794. pTDefRegMap(@Self)^.clr := $00000010
  56795. else
  56796. pTDefRegMap(@Self)^.&set := $00000010;
  56797. end;
  56798. function TDMAC3_DCH3CON.getCHAEN : TBits_1; inline;
  56799. begin
  56800. getCHAEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  56801. end;
  56802. procedure TDMAC3_DCH3CON.setCHCHN; inline;
  56803. begin
  56804. pTDefRegMap(@Self)^.&set := $00000020;
  56805. end;
  56806. procedure TDMAC3_DCH3CON.clearCHCHN; inline;
  56807. begin
  56808. pTDefRegMap(@Self)^.clr := $00000020;
  56809. end;
  56810. procedure TDMAC3_DCH3CON.setCHCHN(thebits : TBits_1); inline;
  56811. begin
  56812. if thebits = 0 then
  56813. pTDefRegMap(@Self)^.clr := $00000020
  56814. else
  56815. pTDefRegMap(@Self)^.&set := $00000020;
  56816. end;
  56817. function TDMAC3_DCH3CON.getCHCHN : TBits_1; inline;
  56818. begin
  56819. getCHCHN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  56820. end;
  56821. procedure TDMAC3_DCH3CON.setCHAED; inline;
  56822. begin
  56823. pTDefRegMap(@Self)^.&set := $00000040;
  56824. end;
  56825. procedure TDMAC3_DCH3CON.clearCHAED; inline;
  56826. begin
  56827. pTDefRegMap(@Self)^.clr := $00000040;
  56828. end;
  56829. procedure TDMAC3_DCH3CON.setCHAED(thebits : TBits_1); inline;
  56830. begin
  56831. if thebits = 0 then
  56832. pTDefRegMap(@Self)^.clr := $00000040
  56833. else
  56834. pTDefRegMap(@Self)^.&set := $00000040;
  56835. end;
  56836. function TDMAC3_DCH3CON.getCHAED : TBits_1; inline;
  56837. begin
  56838. getCHAED := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  56839. end;
  56840. procedure TDMAC3_DCH3CON.setCHEN; inline;
  56841. begin
  56842. pTDefRegMap(@Self)^.&set := $00000080;
  56843. end;
  56844. procedure TDMAC3_DCH3CON.clearCHEN; inline;
  56845. begin
  56846. pTDefRegMap(@Self)^.clr := $00000080;
  56847. end;
  56848. procedure TDMAC3_DCH3CON.setCHEN(thebits : TBits_1); inline;
  56849. begin
  56850. if thebits = 0 then
  56851. pTDefRegMap(@Self)^.clr := $00000080
  56852. else
  56853. pTDefRegMap(@Self)^.&set := $00000080;
  56854. end;
  56855. function TDMAC3_DCH3CON.getCHEN : TBits_1; inline;
  56856. begin
  56857. getCHEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  56858. end;
  56859. procedure TDMAC3_DCH3CON.setCHCHNS; inline;
  56860. begin
  56861. pTDefRegMap(@Self)^.&set := $00000100;
  56862. end;
  56863. procedure TDMAC3_DCH3CON.clearCHCHNS; inline;
  56864. begin
  56865. pTDefRegMap(@Self)^.clr := $00000100;
  56866. end;
  56867. procedure TDMAC3_DCH3CON.setCHCHNS(thebits : TBits_1); inline;
  56868. begin
  56869. if thebits = 0 then
  56870. pTDefRegMap(@Self)^.clr := $00000100
  56871. else
  56872. pTDefRegMap(@Self)^.&set := $00000100;
  56873. end;
  56874. function TDMAC3_DCH3CON.getCHCHNS : TBits_1; inline;
  56875. begin
  56876. getCHCHNS := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  56877. end;
  56878. procedure TDMAC3_DCH3CON.setCHBUSY; inline;
  56879. begin
  56880. pTDefRegMap(@Self)^.&set := $00008000;
  56881. end;
  56882. procedure TDMAC3_DCH3CON.clearCHBUSY; inline;
  56883. begin
  56884. pTDefRegMap(@Self)^.clr := $00008000;
  56885. end;
  56886. procedure TDMAC3_DCH3CON.setCHBUSY(thebits : TBits_1); inline;
  56887. begin
  56888. if thebits = 0 then
  56889. pTDefRegMap(@Self)^.clr := $00008000
  56890. else
  56891. pTDefRegMap(@Self)^.&set := $00008000;
  56892. end;
  56893. function TDMAC3_DCH3CON.getCHBUSY : TBits_1; inline;
  56894. begin
  56895. getCHBUSY := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  56896. end;
  56897. procedure TDMAC3_DCH3CON.setw(thebits : TBits_32); inline;
  56898. begin
  56899. pTDefRegMap(@Self)^.val := thebits;
  56900. end;
  56901. function TDMAC3_DCH3CON.getw : TBits_32; inline;
  56902. begin
  56903. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  56904. end;
  56905. procedure TDMAC3_DCH3ECON.setAIRQEN; inline;
  56906. begin
  56907. pTDefRegMap(@Self)^.&set := $00000008;
  56908. end;
  56909. procedure TDMAC3_DCH3ECON.clearAIRQEN; inline;
  56910. begin
  56911. pTDefRegMap(@Self)^.clr := $00000008;
  56912. end;
  56913. procedure TDMAC3_DCH3ECON.setAIRQEN(thebits : TBits_1); inline;
  56914. begin
  56915. if thebits = 0 then
  56916. pTDefRegMap(@Self)^.clr := $00000008
  56917. else
  56918. pTDefRegMap(@Self)^.&set := $00000008;
  56919. end;
  56920. function TDMAC3_DCH3ECON.getAIRQEN : TBits_1; inline;
  56921. begin
  56922. getAIRQEN := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  56923. end;
  56924. procedure TDMAC3_DCH3ECON.setSIRQEN; inline;
  56925. begin
  56926. pTDefRegMap(@Self)^.&set := $00000010;
  56927. end;
  56928. procedure TDMAC3_DCH3ECON.clearSIRQEN; inline;
  56929. begin
  56930. pTDefRegMap(@Self)^.clr := $00000010;
  56931. end;
  56932. procedure TDMAC3_DCH3ECON.setSIRQEN(thebits : TBits_1); inline;
  56933. begin
  56934. if thebits = 0 then
  56935. pTDefRegMap(@Self)^.clr := $00000010
  56936. else
  56937. pTDefRegMap(@Self)^.&set := $00000010;
  56938. end;
  56939. function TDMAC3_DCH3ECON.getSIRQEN : TBits_1; inline;
  56940. begin
  56941. getSIRQEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  56942. end;
  56943. procedure TDMAC3_DCH3ECON.setPATEN; inline;
  56944. begin
  56945. pTDefRegMap(@Self)^.&set := $00000020;
  56946. end;
  56947. procedure TDMAC3_DCH3ECON.clearPATEN; inline;
  56948. begin
  56949. pTDefRegMap(@Self)^.clr := $00000020;
  56950. end;
  56951. procedure TDMAC3_DCH3ECON.setPATEN(thebits : TBits_1); inline;
  56952. begin
  56953. if thebits = 0 then
  56954. pTDefRegMap(@Self)^.clr := $00000020
  56955. else
  56956. pTDefRegMap(@Self)^.&set := $00000020;
  56957. end;
  56958. function TDMAC3_DCH3ECON.getPATEN : TBits_1; inline;
  56959. begin
  56960. getPATEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  56961. end;
  56962. procedure TDMAC3_DCH3ECON.setCABORT; inline;
  56963. begin
  56964. pTDefRegMap(@Self)^.&set := $00000040;
  56965. end;
  56966. procedure TDMAC3_DCH3ECON.clearCABORT; inline;
  56967. begin
  56968. pTDefRegMap(@Self)^.clr := $00000040;
  56969. end;
  56970. procedure TDMAC3_DCH3ECON.setCABORT(thebits : TBits_1); inline;
  56971. begin
  56972. if thebits = 0 then
  56973. pTDefRegMap(@Self)^.clr := $00000040
  56974. else
  56975. pTDefRegMap(@Self)^.&set := $00000040;
  56976. end;
  56977. function TDMAC3_DCH3ECON.getCABORT : TBits_1; inline;
  56978. begin
  56979. getCABORT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  56980. end;
  56981. procedure TDMAC3_DCH3ECON.setCFORCE; inline;
  56982. begin
  56983. pTDefRegMap(@Self)^.&set := $00000080;
  56984. end;
  56985. procedure TDMAC3_DCH3ECON.clearCFORCE; inline;
  56986. begin
  56987. pTDefRegMap(@Self)^.clr := $00000080;
  56988. end;
  56989. procedure TDMAC3_DCH3ECON.setCFORCE(thebits : TBits_1); inline;
  56990. begin
  56991. if thebits = 0 then
  56992. pTDefRegMap(@Self)^.clr := $00000080
  56993. else
  56994. pTDefRegMap(@Self)^.&set := $00000080;
  56995. end;
  56996. function TDMAC3_DCH3ECON.getCFORCE : TBits_1; inline;
  56997. begin
  56998. getCFORCE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  56999. end;
  57000. procedure TDMAC3_DCH3ECON.setCHSIRQ(thebits : TBits_8); inline;
  57001. begin
  57002. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF00FF or ( thebits shl 8 );
  57003. end;
  57004. function TDMAC3_DCH3ECON.getCHSIRQ : TBits_8; inline;
  57005. begin
  57006. getCHSIRQ := (pTDefRegMap(@Self)^.val and $0000FF00) shr 8;
  57007. end;
  57008. procedure TDMAC3_DCH3ECON.setCHAIRQ(thebits : TBits_8); inline;
  57009. begin
  57010. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
  57011. end;
  57012. function TDMAC3_DCH3ECON.getCHAIRQ : TBits_8; inline;
  57013. begin
  57014. getCHAIRQ := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
  57015. end;
  57016. procedure TDMAC3_DCH3ECON.setw(thebits : TBits_32); inline;
  57017. begin
  57018. pTDefRegMap(@Self)^.val := thebits;
  57019. end;
  57020. function TDMAC3_DCH3ECON.getw : TBits_32; inline;
  57021. begin
  57022. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  57023. end;
  57024. procedure TDMAC3_DCH3INT.setCHERIF; inline;
  57025. begin
  57026. pTDefRegMap(@Self)^.&set := $00000001;
  57027. end;
  57028. procedure TDMAC3_DCH3INT.clearCHERIF; inline;
  57029. begin
  57030. pTDefRegMap(@Self)^.clr := $00000001;
  57031. end;
  57032. procedure TDMAC3_DCH3INT.setCHERIF(thebits : TBits_1); inline;
  57033. begin
  57034. if thebits = 0 then
  57035. pTDefRegMap(@Self)^.clr := $00000001
  57036. else
  57037. pTDefRegMap(@Self)^.&set := $00000001;
  57038. end;
  57039. function TDMAC3_DCH3INT.getCHERIF : TBits_1; inline;
  57040. begin
  57041. getCHERIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  57042. end;
  57043. procedure TDMAC3_DCH3INT.setCHTAIF; inline;
  57044. begin
  57045. pTDefRegMap(@Self)^.&set := $00000002;
  57046. end;
  57047. procedure TDMAC3_DCH3INT.clearCHTAIF; inline;
  57048. begin
  57049. pTDefRegMap(@Self)^.clr := $00000002;
  57050. end;
  57051. procedure TDMAC3_DCH3INT.setCHTAIF(thebits : TBits_1); inline;
  57052. begin
  57053. if thebits = 0 then
  57054. pTDefRegMap(@Self)^.clr := $00000002
  57055. else
  57056. pTDefRegMap(@Self)^.&set := $00000002;
  57057. end;
  57058. function TDMAC3_DCH3INT.getCHTAIF : TBits_1; inline;
  57059. begin
  57060. getCHTAIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  57061. end;
  57062. procedure TDMAC3_DCH3INT.setCHCCIF; inline;
  57063. begin
  57064. pTDefRegMap(@Self)^.&set := $00000004;
  57065. end;
  57066. procedure TDMAC3_DCH3INT.clearCHCCIF; inline;
  57067. begin
  57068. pTDefRegMap(@Self)^.clr := $00000004;
  57069. end;
  57070. procedure TDMAC3_DCH3INT.setCHCCIF(thebits : TBits_1); inline;
  57071. begin
  57072. if thebits = 0 then
  57073. pTDefRegMap(@Self)^.clr := $00000004
  57074. else
  57075. pTDefRegMap(@Self)^.&set := $00000004;
  57076. end;
  57077. function TDMAC3_DCH3INT.getCHCCIF : TBits_1; inline;
  57078. begin
  57079. getCHCCIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  57080. end;
  57081. procedure TDMAC3_DCH3INT.setCHBCIF; inline;
  57082. begin
  57083. pTDefRegMap(@Self)^.&set := $00000008;
  57084. end;
  57085. procedure TDMAC3_DCH3INT.clearCHBCIF; inline;
  57086. begin
  57087. pTDefRegMap(@Self)^.clr := $00000008;
  57088. end;
  57089. procedure TDMAC3_DCH3INT.setCHBCIF(thebits : TBits_1); inline;
  57090. begin
  57091. if thebits = 0 then
  57092. pTDefRegMap(@Self)^.clr := $00000008
  57093. else
  57094. pTDefRegMap(@Self)^.&set := $00000008;
  57095. end;
  57096. function TDMAC3_DCH3INT.getCHBCIF : TBits_1; inline;
  57097. begin
  57098. getCHBCIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  57099. end;
  57100. procedure TDMAC3_DCH3INT.setCHDHIF; inline;
  57101. begin
  57102. pTDefRegMap(@Self)^.&set := $00000010;
  57103. end;
  57104. procedure TDMAC3_DCH3INT.clearCHDHIF; inline;
  57105. begin
  57106. pTDefRegMap(@Self)^.clr := $00000010;
  57107. end;
  57108. procedure TDMAC3_DCH3INT.setCHDHIF(thebits : TBits_1); inline;
  57109. begin
  57110. if thebits = 0 then
  57111. pTDefRegMap(@Self)^.clr := $00000010
  57112. else
  57113. pTDefRegMap(@Self)^.&set := $00000010;
  57114. end;
  57115. function TDMAC3_DCH3INT.getCHDHIF : TBits_1; inline;
  57116. begin
  57117. getCHDHIF := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  57118. end;
  57119. procedure TDMAC3_DCH3INT.setCHDDIF; inline;
  57120. begin
  57121. pTDefRegMap(@Self)^.&set := $00000020;
  57122. end;
  57123. procedure TDMAC3_DCH3INT.clearCHDDIF; inline;
  57124. begin
  57125. pTDefRegMap(@Self)^.clr := $00000020;
  57126. end;
  57127. procedure TDMAC3_DCH3INT.setCHDDIF(thebits : TBits_1); inline;
  57128. begin
  57129. if thebits = 0 then
  57130. pTDefRegMap(@Self)^.clr := $00000020
  57131. else
  57132. pTDefRegMap(@Self)^.&set := $00000020;
  57133. end;
  57134. function TDMAC3_DCH3INT.getCHDDIF : TBits_1; inline;
  57135. begin
  57136. getCHDDIF := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  57137. end;
  57138. procedure TDMAC3_DCH3INT.setCHSHIF; inline;
  57139. begin
  57140. pTDefRegMap(@Self)^.&set := $00000040;
  57141. end;
  57142. procedure TDMAC3_DCH3INT.clearCHSHIF; inline;
  57143. begin
  57144. pTDefRegMap(@Self)^.clr := $00000040;
  57145. end;
  57146. procedure TDMAC3_DCH3INT.setCHSHIF(thebits : TBits_1); inline;
  57147. begin
  57148. if thebits = 0 then
  57149. pTDefRegMap(@Self)^.clr := $00000040
  57150. else
  57151. pTDefRegMap(@Self)^.&set := $00000040;
  57152. end;
  57153. function TDMAC3_DCH3INT.getCHSHIF : TBits_1; inline;
  57154. begin
  57155. getCHSHIF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  57156. end;
  57157. procedure TDMAC3_DCH3INT.setCHSDIF; inline;
  57158. begin
  57159. pTDefRegMap(@Self)^.&set := $00000080;
  57160. end;
  57161. procedure TDMAC3_DCH3INT.clearCHSDIF; inline;
  57162. begin
  57163. pTDefRegMap(@Self)^.clr := $00000080;
  57164. end;
  57165. procedure TDMAC3_DCH3INT.setCHSDIF(thebits : TBits_1); inline;
  57166. begin
  57167. if thebits = 0 then
  57168. pTDefRegMap(@Self)^.clr := $00000080
  57169. else
  57170. pTDefRegMap(@Self)^.&set := $00000080;
  57171. end;
  57172. function TDMAC3_DCH3INT.getCHSDIF : TBits_1; inline;
  57173. begin
  57174. getCHSDIF := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  57175. end;
  57176. procedure TDMAC3_DCH3INT.setCHERIE; inline;
  57177. begin
  57178. pTDefRegMap(@Self)^.&set := $00010000;
  57179. end;
  57180. procedure TDMAC3_DCH3INT.clearCHERIE; inline;
  57181. begin
  57182. pTDefRegMap(@Self)^.clr := $00010000;
  57183. end;
  57184. procedure TDMAC3_DCH3INT.setCHERIE(thebits : TBits_1); inline;
  57185. begin
  57186. if thebits = 0 then
  57187. pTDefRegMap(@Self)^.clr := $00010000
  57188. else
  57189. pTDefRegMap(@Self)^.&set := $00010000;
  57190. end;
  57191. function TDMAC3_DCH3INT.getCHERIE : TBits_1; inline;
  57192. begin
  57193. getCHERIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  57194. end;
  57195. procedure TDMAC3_DCH3INT.setCHTAIE; inline;
  57196. begin
  57197. pTDefRegMap(@Self)^.&set := $00020000;
  57198. end;
  57199. procedure TDMAC3_DCH3INT.clearCHTAIE; inline;
  57200. begin
  57201. pTDefRegMap(@Self)^.clr := $00020000;
  57202. end;
  57203. procedure TDMAC3_DCH3INT.setCHTAIE(thebits : TBits_1); inline;
  57204. begin
  57205. if thebits = 0 then
  57206. pTDefRegMap(@Self)^.clr := $00020000
  57207. else
  57208. pTDefRegMap(@Self)^.&set := $00020000;
  57209. end;
  57210. function TDMAC3_DCH3INT.getCHTAIE : TBits_1; inline;
  57211. begin
  57212. getCHTAIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  57213. end;
  57214. procedure TDMAC3_DCH3INT.setCHCCIE; inline;
  57215. begin
  57216. pTDefRegMap(@Self)^.&set := $00040000;
  57217. end;
  57218. procedure TDMAC3_DCH3INT.clearCHCCIE; inline;
  57219. begin
  57220. pTDefRegMap(@Self)^.clr := $00040000;
  57221. end;
  57222. procedure TDMAC3_DCH3INT.setCHCCIE(thebits : TBits_1); inline;
  57223. begin
  57224. if thebits = 0 then
  57225. pTDefRegMap(@Self)^.clr := $00040000
  57226. else
  57227. pTDefRegMap(@Self)^.&set := $00040000;
  57228. end;
  57229. function TDMAC3_DCH3INT.getCHCCIE : TBits_1; inline;
  57230. begin
  57231. getCHCCIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  57232. end;
  57233. procedure TDMAC3_DCH3INT.setCHBCIE; inline;
  57234. begin
  57235. pTDefRegMap(@Self)^.&set := $00080000;
  57236. end;
  57237. procedure TDMAC3_DCH3INT.clearCHBCIE; inline;
  57238. begin
  57239. pTDefRegMap(@Self)^.clr := $00080000;
  57240. end;
  57241. procedure TDMAC3_DCH3INT.setCHBCIE(thebits : TBits_1); inline;
  57242. begin
  57243. if thebits = 0 then
  57244. pTDefRegMap(@Self)^.clr := $00080000
  57245. else
  57246. pTDefRegMap(@Self)^.&set := $00080000;
  57247. end;
  57248. function TDMAC3_DCH3INT.getCHBCIE : TBits_1; inline;
  57249. begin
  57250. getCHBCIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  57251. end;
  57252. procedure TDMAC3_DCH3INT.setCHDHIE; inline;
  57253. begin
  57254. pTDefRegMap(@Self)^.&set := $00100000;
  57255. end;
  57256. procedure TDMAC3_DCH3INT.clearCHDHIE; inline;
  57257. begin
  57258. pTDefRegMap(@Self)^.clr := $00100000;
  57259. end;
  57260. procedure TDMAC3_DCH3INT.setCHDHIE(thebits : TBits_1); inline;
  57261. begin
  57262. if thebits = 0 then
  57263. pTDefRegMap(@Self)^.clr := $00100000
  57264. else
  57265. pTDefRegMap(@Self)^.&set := $00100000;
  57266. end;
  57267. function TDMAC3_DCH3INT.getCHDHIE : TBits_1; inline;
  57268. begin
  57269. getCHDHIE := (pTDefRegMap(@Self)^.val and $00100000) shr 20;
  57270. end;
  57271. procedure TDMAC3_DCH3INT.setCHDDIE; inline;
  57272. begin
  57273. pTDefRegMap(@Self)^.&set := $00200000;
  57274. end;
  57275. procedure TDMAC3_DCH3INT.clearCHDDIE; inline;
  57276. begin
  57277. pTDefRegMap(@Self)^.clr := $00200000;
  57278. end;
  57279. procedure TDMAC3_DCH3INT.setCHDDIE(thebits : TBits_1); inline;
  57280. begin
  57281. if thebits = 0 then
  57282. pTDefRegMap(@Self)^.clr := $00200000
  57283. else
  57284. pTDefRegMap(@Self)^.&set := $00200000;
  57285. end;
  57286. function TDMAC3_DCH3INT.getCHDDIE : TBits_1; inline;
  57287. begin
  57288. getCHDDIE := (pTDefRegMap(@Self)^.val and $00200000) shr 21;
  57289. end;
  57290. procedure TDMAC3_DCH3INT.setCHSHIE; inline;
  57291. begin
  57292. pTDefRegMap(@Self)^.&set := $00400000;
  57293. end;
  57294. procedure TDMAC3_DCH3INT.clearCHSHIE; inline;
  57295. begin
  57296. pTDefRegMap(@Self)^.clr := $00400000;
  57297. end;
  57298. procedure TDMAC3_DCH3INT.setCHSHIE(thebits : TBits_1); inline;
  57299. begin
  57300. if thebits = 0 then
  57301. pTDefRegMap(@Self)^.clr := $00400000
  57302. else
  57303. pTDefRegMap(@Self)^.&set := $00400000;
  57304. end;
  57305. function TDMAC3_DCH3INT.getCHSHIE : TBits_1; inline;
  57306. begin
  57307. getCHSHIE := (pTDefRegMap(@Self)^.val and $00400000) shr 22;
  57308. end;
  57309. procedure TDMAC3_DCH3INT.setCHSDIE; inline;
  57310. begin
  57311. pTDefRegMap(@Self)^.&set := $00800000;
  57312. end;
  57313. procedure TDMAC3_DCH3INT.clearCHSDIE; inline;
  57314. begin
  57315. pTDefRegMap(@Self)^.clr := $00800000;
  57316. end;
  57317. procedure TDMAC3_DCH3INT.setCHSDIE(thebits : TBits_1); inline;
  57318. begin
  57319. if thebits = 0 then
  57320. pTDefRegMap(@Self)^.clr := $00800000
  57321. else
  57322. pTDefRegMap(@Self)^.&set := $00800000;
  57323. end;
  57324. function TDMAC3_DCH3INT.getCHSDIE : TBits_1; inline;
  57325. begin
  57326. getCHSDIE := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
  57327. end;
  57328. procedure TDMAC3_DCH3INT.setw(thebits : TBits_32); inline;
  57329. begin
  57330. pTDefRegMap(@Self)^.val := thebits;
  57331. end;
  57332. function TDMAC3_DCH3INT.getw : TBits_32; inline;
  57333. begin
  57334. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  57335. end;
  57336. procedure TDMAC4_DCH4CON.setCHPRI(thebits : TBits_2); inline;
  57337. begin
  57338. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  57339. end;
  57340. function TDMAC4_DCH4CON.getCHPRI : TBits_2; inline;
  57341. begin
  57342. getCHPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  57343. end;
  57344. procedure TDMAC4_DCH4CON.setCHEDET; inline;
  57345. begin
  57346. pTDefRegMap(@Self)^.&set := $00000004;
  57347. end;
  57348. procedure TDMAC4_DCH4CON.clearCHEDET; inline;
  57349. begin
  57350. pTDefRegMap(@Self)^.clr := $00000004;
  57351. end;
  57352. procedure TDMAC4_DCH4CON.setCHEDET(thebits : TBits_1); inline;
  57353. begin
  57354. if thebits = 0 then
  57355. pTDefRegMap(@Self)^.clr := $00000004
  57356. else
  57357. pTDefRegMap(@Self)^.&set := $00000004;
  57358. end;
  57359. function TDMAC4_DCH4CON.getCHEDET : TBits_1; inline;
  57360. begin
  57361. getCHEDET := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  57362. end;
  57363. procedure TDMAC4_DCH4CON.setCHAEN; inline;
  57364. begin
  57365. pTDefRegMap(@Self)^.&set := $00000010;
  57366. end;
  57367. procedure TDMAC4_DCH4CON.clearCHAEN; inline;
  57368. begin
  57369. pTDefRegMap(@Self)^.clr := $00000010;
  57370. end;
  57371. procedure TDMAC4_DCH4CON.setCHAEN(thebits : TBits_1); inline;
  57372. begin
  57373. if thebits = 0 then
  57374. pTDefRegMap(@Self)^.clr := $00000010
  57375. else
  57376. pTDefRegMap(@Self)^.&set := $00000010;
  57377. end;
  57378. function TDMAC4_DCH4CON.getCHAEN : TBits_1; inline;
  57379. begin
  57380. getCHAEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  57381. end;
  57382. procedure TDMAC4_DCH4CON.setCHCHN; inline;
  57383. begin
  57384. pTDefRegMap(@Self)^.&set := $00000020;
  57385. end;
  57386. procedure TDMAC4_DCH4CON.clearCHCHN; inline;
  57387. begin
  57388. pTDefRegMap(@Self)^.clr := $00000020;
  57389. end;
  57390. procedure TDMAC4_DCH4CON.setCHCHN(thebits : TBits_1); inline;
  57391. begin
  57392. if thebits = 0 then
  57393. pTDefRegMap(@Self)^.clr := $00000020
  57394. else
  57395. pTDefRegMap(@Self)^.&set := $00000020;
  57396. end;
  57397. function TDMAC4_DCH4CON.getCHCHN : TBits_1; inline;
  57398. begin
  57399. getCHCHN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  57400. end;
  57401. procedure TDMAC4_DCH4CON.setCHAED; inline;
  57402. begin
  57403. pTDefRegMap(@Self)^.&set := $00000040;
  57404. end;
  57405. procedure TDMAC4_DCH4CON.clearCHAED; inline;
  57406. begin
  57407. pTDefRegMap(@Self)^.clr := $00000040;
  57408. end;
  57409. procedure TDMAC4_DCH4CON.setCHAED(thebits : TBits_1); inline;
  57410. begin
  57411. if thebits = 0 then
  57412. pTDefRegMap(@Self)^.clr := $00000040
  57413. else
  57414. pTDefRegMap(@Self)^.&set := $00000040;
  57415. end;
  57416. function TDMAC4_DCH4CON.getCHAED : TBits_1; inline;
  57417. begin
  57418. getCHAED := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  57419. end;
  57420. procedure TDMAC4_DCH4CON.setCHEN; inline;
  57421. begin
  57422. pTDefRegMap(@Self)^.&set := $00000080;
  57423. end;
  57424. procedure TDMAC4_DCH4CON.clearCHEN; inline;
  57425. begin
  57426. pTDefRegMap(@Self)^.clr := $00000080;
  57427. end;
  57428. procedure TDMAC4_DCH4CON.setCHEN(thebits : TBits_1); inline;
  57429. begin
  57430. if thebits = 0 then
  57431. pTDefRegMap(@Self)^.clr := $00000080
  57432. else
  57433. pTDefRegMap(@Self)^.&set := $00000080;
  57434. end;
  57435. function TDMAC4_DCH4CON.getCHEN : TBits_1; inline;
  57436. begin
  57437. getCHEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  57438. end;
  57439. procedure TDMAC4_DCH4CON.setCHCHNS; inline;
  57440. begin
  57441. pTDefRegMap(@Self)^.&set := $00000100;
  57442. end;
  57443. procedure TDMAC4_DCH4CON.clearCHCHNS; inline;
  57444. begin
  57445. pTDefRegMap(@Self)^.clr := $00000100;
  57446. end;
  57447. procedure TDMAC4_DCH4CON.setCHCHNS(thebits : TBits_1); inline;
  57448. begin
  57449. if thebits = 0 then
  57450. pTDefRegMap(@Self)^.clr := $00000100
  57451. else
  57452. pTDefRegMap(@Self)^.&set := $00000100;
  57453. end;
  57454. function TDMAC4_DCH4CON.getCHCHNS : TBits_1; inline;
  57455. begin
  57456. getCHCHNS := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  57457. end;
  57458. procedure TDMAC4_DCH4CON.setCHBUSY; inline;
  57459. begin
  57460. pTDefRegMap(@Self)^.&set := $00008000;
  57461. end;
  57462. procedure TDMAC4_DCH4CON.clearCHBUSY; inline;
  57463. begin
  57464. pTDefRegMap(@Self)^.clr := $00008000;
  57465. end;
  57466. procedure TDMAC4_DCH4CON.setCHBUSY(thebits : TBits_1); inline;
  57467. begin
  57468. if thebits = 0 then
  57469. pTDefRegMap(@Self)^.clr := $00008000
  57470. else
  57471. pTDefRegMap(@Self)^.&set := $00008000;
  57472. end;
  57473. function TDMAC4_DCH4CON.getCHBUSY : TBits_1; inline;
  57474. begin
  57475. getCHBUSY := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  57476. end;
  57477. procedure TDMAC4_DCH4CON.setw(thebits : TBits_32); inline;
  57478. begin
  57479. pTDefRegMap(@Self)^.val := thebits;
  57480. end;
  57481. function TDMAC4_DCH4CON.getw : TBits_32; inline;
  57482. begin
  57483. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  57484. end;
  57485. procedure TDMAC4_DCH4ECON.setAIRQEN; inline;
  57486. begin
  57487. pTDefRegMap(@Self)^.&set := $00000008;
  57488. end;
  57489. procedure TDMAC4_DCH4ECON.clearAIRQEN; inline;
  57490. begin
  57491. pTDefRegMap(@Self)^.clr := $00000008;
  57492. end;
  57493. procedure TDMAC4_DCH4ECON.setAIRQEN(thebits : TBits_1); inline;
  57494. begin
  57495. if thebits = 0 then
  57496. pTDefRegMap(@Self)^.clr := $00000008
  57497. else
  57498. pTDefRegMap(@Self)^.&set := $00000008;
  57499. end;
  57500. function TDMAC4_DCH4ECON.getAIRQEN : TBits_1; inline;
  57501. begin
  57502. getAIRQEN := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  57503. end;
  57504. procedure TDMAC4_DCH4ECON.setSIRQEN; inline;
  57505. begin
  57506. pTDefRegMap(@Self)^.&set := $00000010;
  57507. end;
  57508. procedure TDMAC4_DCH4ECON.clearSIRQEN; inline;
  57509. begin
  57510. pTDefRegMap(@Self)^.clr := $00000010;
  57511. end;
  57512. procedure TDMAC4_DCH4ECON.setSIRQEN(thebits : TBits_1); inline;
  57513. begin
  57514. if thebits = 0 then
  57515. pTDefRegMap(@Self)^.clr := $00000010
  57516. else
  57517. pTDefRegMap(@Self)^.&set := $00000010;
  57518. end;
  57519. function TDMAC4_DCH4ECON.getSIRQEN : TBits_1; inline;
  57520. begin
  57521. getSIRQEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  57522. end;
  57523. procedure TDMAC4_DCH4ECON.setPATEN; inline;
  57524. begin
  57525. pTDefRegMap(@Self)^.&set := $00000020;
  57526. end;
  57527. procedure TDMAC4_DCH4ECON.clearPATEN; inline;
  57528. begin
  57529. pTDefRegMap(@Self)^.clr := $00000020;
  57530. end;
  57531. procedure TDMAC4_DCH4ECON.setPATEN(thebits : TBits_1); inline;
  57532. begin
  57533. if thebits = 0 then
  57534. pTDefRegMap(@Self)^.clr := $00000020
  57535. else
  57536. pTDefRegMap(@Self)^.&set := $00000020;
  57537. end;
  57538. function TDMAC4_DCH4ECON.getPATEN : TBits_1; inline;
  57539. begin
  57540. getPATEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  57541. end;
  57542. procedure TDMAC4_DCH4ECON.setCABORT; inline;
  57543. begin
  57544. pTDefRegMap(@Self)^.&set := $00000040;
  57545. end;
  57546. procedure TDMAC4_DCH4ECON.clearCABORT; inline;
  57547. begin
  57548. pTDefRegMap(@Self)^.clr := $00000040;
  57549. end;
  57550. procedure TDMAC4_DCH4ECON.setCABORT(thebits : TBits_1); inline;
  57551. begin
  57552. if thebits = 0 then
  57553. pTDefRegMap(@Self)^.clr := $00000040
  57554. else
  57555. pTDefRegMap(@Self)^.&set := $00000040;
  57556. end;
  57557. function TDMAC4_DCH4ECON.getCABORT : TBits_1; inline;
  57558. begin
  57559. getCABORT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  57560. end;
  57561. procedure TDMAC4_DCH4ECON.setCFORCE; inline;
  57562. begin
  57563. pTDefRegMap(@Self)^.&set := $00000080;
  57564. end;
  57565. procedure TDMAC4_DCH4ECON.clearCFORCE; inline;
  57566. begin
  57567. pTDefRegMap(@Self)^.clr := $00000080;
  57568. end;
  57569. procedure TDMAC4_DCH4ECON.setCFORCE(thebits : TBits_1); inline;
  57570. begin
  57571. if thebits = 0 then
  57572. pTDefRegMap(@Self)^.clr := $00000080
  57573. else
  57574. pTDefRegMap(@Self)^.&set := $00000080;
  57575. end;
  57576. function TDMAC4_DCH4ECON.getCFORCE : TBits_1; inline;
  57577. begin
  57578. getCFORCE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  57579. end;
  57580. procedure TDMAC4_DCH4ECON.setCHSIRQ(thebits : TBits_8); inline;
  57581. begin
  57582. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF00FF or ( thebits shl 8 );
  57583. end;
  57584. function TDMAC4_DCH4ECON.getCHSIRQ : TBits_8; inline;
  57585. begin
  57586. getCHSIRQ := (pTDefRegMap(@Self)^.val and $0000FF00) shr 8;
  57587. end;
  57588. procedure TDMAC4_DCH4ECON.setCHAIRQ(thebits : TBits_8); inline;
  57589. begin
  57590. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
  57591. end;
  57592. function TDMAC4_DCH4ECON.getCHAIRQ : TBits_8; inline;
  57593. begin
  57594. getCHAIRQ := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
  57595. end;
  57596. procedure TDMAC4_DCH4ECON.setw(thebits : TBits_32); inline;
  57597. begin
  57598. pTDefRegMap(@Self)^.val := thebits;
  57599. end;
  57600. function TDMAC4_DCH4ECON.getw : TBits_32; inline;
  57601. begin
  57602. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  57603. end;
  57604. procedure TDMAC4_DCH4INT.setCHERIF; inline;
  57605. begin
  57606. pTDefRegMap(@Self)^.&set := $00000001;
  57607. end;
  57608. procedure TDMAC4_DCH4INT.clearCHERIF; inline;
  57609. begin
  57610. pTDefRegMap(@Self)^.clr := $00000001;
  57611. end;
  57612. procedure TDMAC4_DCH4INT.setCHERIF(thebits : TBits_1); inline;
  57613. begin
  57614. if thebits = 0 then
  57615. pTDefRegMap(@Self)^.clr := $00000001
  57616. else
  57617. pTDefRegMap(@Self)^.&set := $00000001;
  57618. end;
  57619. function TDMAC4_DCH4INT.getCHERIF : TBits_1; inline;
  57620. begin
  57621. getCHERIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  57622. end;
  57623. procedure TDMAC4_DCH4INT.setCHTAIF; inline;
  57624. begin
  57625. pTDefRegMap(@Self)^.&set := $00000002;
  57626. end;
  57627. procedure TDMAC4_DCH4INT.clearCHTAIF; inline;
  57628. begin
  57629. pTDefRegMap(@Self)^.clr := $00000002;
  57630. end;
  57631. procedure TDMAC4_DCH4INT.setCHTAIF(thebits : TBits_1); inline;
  57632. begin
  57633. if thebits = 0 then
  57634. pTDefRegMap(@Self)^.clr := $00000002
  57635. else
  57636. pTDefRegMap(@Self)^.&set := $00000002;
  57637. end;
  57638. function TDMAC4_DCH4INT.getCHTAIF : TBits_1; inline;
  57639. begin
  57640. getCHTAIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  57641. end;
  57642. procedure TDMAC4_DCH4INT.setCHCCIF; inline;
  57643. begin
  57644. pTDefRegMap(@Self)^.&set := $00000004;
  57645. end;
  57646. procedure TDMAC4_DCH4INT.clearCHCCIF; inline;
  57647. begin
  57648. pTDefRegMap(@Self)^.clr := $00000004;
  57649. end;
  57650. procedure TDMAC4_DCH4INT.setCHCCIF(thebits : TBits_1); inline;
  57651. begin
  57652. if thebits = 0 then
  57653. pTDefRegMap(@Self)^.clr := $00000004
  57654. else
  57655. pTDefRegMap(@Self)^.&set := $00000004;
  57656. end;
  57657. function TDMAC4_DCH4INT.getCHCCIF : TBits_1; inline;
  57658. begin
  57659. getCHCCIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  57660. end;
  57661. procedure TDMAC4_DCH4INT.setCHBCIF; inline;
  57662. begin
  57663. pTDefRegMap(@Self)^.&set := $00000008;
  57664. end;
  57665. procedure TDMAC4_DCH4INT.clearCHBCIF; inline;
  57666. begin
  57667. pTDefRegMap(@Self)^.clr := $00000008;
  57668. end;
  57669. procedure TDMAC4_DCH4INT.setCHBCIF(thebits : TBits_1); inline;
  57670. begin
  57671. if thebits = 0 then
  57672. pTDefRegMap(@Self)^.clr := $00000008
  57673. else
  57674. pTDefRegMap(@Self)^.&set := $00000008;
  57675. end;
  57676. function TDMAC4_DCH4INT.getCHBCIF : TBits_1; inline;
  57677. begin
  57678. getCHBCIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  57679. end;
  57680. procedure TDMAC4_DCH4INT.setCHDHIF; inline;
  57681. begin
  57682. pTDefRegMap(@Self)^.&set := $00000010;
  57683. end;
  57684. procedure TDMAC4_DCH4INT.clearCHDHIF; inline;
  57685. begin
  57686. pTDefRegMap(@Self)^.clr := $00000010;
  57687. end;
  57688. procedure TDMAC4_DCH4INT.setCHDHIF(thebits : TBits_1); inline;
  57689. begin
  57690. if thebits = 0 then
  57691. pTDefRegMap(@Self)^.clr := $00000010
  57692. else
  57693. pTDefRegMap(@Self)^.&set := $00000010;
  57694. end;
  57695. function TDMAC4_DCH4INT.getCHDHIF : TBits_1; inline;
  57696. begin
  57697. getCHDHIF := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  57698. end;
  57699. procedure TDMAC4_DCH4INT.setCHDDIF; inline;
  57700. begin
  57701. pTDefRegMap(@Self)^.&set := $00000020;
  57702. end;
  57703. procedure TDMAC4_DCH4INT.clearCHDDIF; inline;
  57704. begin
  57705. pTDefRegMap(@Self)^.clr := $00000020;
  57706. end;
  57707. procedure TDMAC4_DCH4INT.setCHDDIF(thebits : TBits_1); inline;
  57708. begin
  57709. if thebits = 0 then
  57710. pTDefRegMap(@Self)^.clr := $00000020
  57711. else
  57712. pTDefRegMap(@Self)^.&set := $00000020;
  57713. end;
  57714. function TDMAC4_DCH4INT.getCHDDIF : TBits_1; inline;
  57715. begin
  57716. getCHDDIF := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  57717. end;
  57718. procedure TDMAC4_DCH4INT.setCHSHIF; inline;
  57719. begin
  57720. pTDefRegMap(@Self)^.&set := $00000040;
  57721. end;
  57722. procedure TDMAC4_DCH4INT.clearCHSHIF; inline;
  57723. begin
  57724. pTDefRegMap(@Self)^.clr := $00000040;
  57725. end;
  57726. procedure TDMAC4_DCH4INT.setCHSHIF(thebits : TBits_1); inline;
  57727. begin
  57728. if thebits = 0 then
  57729. pTDefRegMap(@Self)^.clr := $00000040
  57730. else
  57731. pTDefRegMap(@Self)^.&set := $00000040;
  57732. end;
  57733. function TDMAC4_DCH4INT.getCHSHIF : TBits_1; inline;
  57734. begin
  57735. getCHSHIF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  57736. end;
  57737. procedure TDMAC4_DCH4INT.setCHSDIF; inline;
  57738. begin
  57739. pTDefRegMap(@Self)^.&set := $00000080;
  57740. end;
  57741. procedure TDMAC4_DCH4INT.clearCHSDIF; inline;
  57742. begin
  57743. pTDefRegMap(@Self)^.clr := $00000080;
  57744. end;
  57745. procedure TDMAC4_DCH4INT.setCHSDIF(thebits : TBits_1); inline;
  57746. begin
  57747. if thebits = 0 then
  57748. pTDefRegMap(@Self)^.clr := $00000080
  57749. else
  57750. pTDefRegMap(@Self)^.&set := $00000080;
  57751. end;
  57752. function TDMAC4_DCH4INT.getCHSDIF : TBits_1; inline;
  57753. begin
  57754. getCHSDIF := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  57755. end;
  57756. procedure TDMAC4_DCH4INT.setCHERIE; inline;
  57757. begin
  57758. pTDefRegMap(@Self)^.&set := $00010000;
  57759. end;
  57760. procedure TDMAC4_DCH4INT.clearCHERIE; inline;
  57761. begin
  57762. pTDefRegMap(@Self)^.clr := $00010000;
  57763. end;
  57764. procedure TDMAC4_DCH4INT.setCHERIE(thebits : TBits_1); inline;
  57765. begin
  57766. if thebits = 0 then
  57767. pTDefRegMap(@Self)^.clr := $00010000
  57768. else
  57769. pTDefRegMap(@Self)^.&set := $00010000;
  57770. end;
  57771. function TDMAC4_DCH4INT.getCHERIE : TBits_1; inline;
  57772. begin
  57773. getCHERIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  57774. end;
  57775. procedure TDMAC4_DCH4INT.setCHTAIE; inline;
  57776. begin
  57777. pTDefRegMap(@Self)^.&set := $00020000;
  57778. end;
  57779. procedure TDMAC4_DCH4INT.clearCHTAIE; inline;
  57780. begin
  57781. pTDefRegMap(@Self)^.clr := $00020000;
  57782. end;
  57783. procedure TDMAC4_DCH4INT.setCHTAIE(thebits : TBits_1); inline;
  57784. begin
  57785. if thebits = 0 then
  57786. pTDefRegMap(@Self)^.clr := $00020000
  57787. else
  57788. pTDefRegMap(@Self)^.&set := $00020000;
  57789. end;
  57790. function TDMAC4_DCH4INT.getCHTAIE : TBits_1; inline;
  57791. begin
  57792. getCHTAIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  57793. end;
  57794. procedure TDMAC4_DCH4INT.setCHCCIE; inline;
  57795. begin
  57796. pTDefRegMap(@Self)^.&set := $00040000;
  57797. end;
  57798. procedure TDMAC4_DCH4INT.clearCHCCIE; inline;
  57799. begin
  57800. pTDefRegMap(@Self)^.clr := $00040000;
  57801. end;
  57802. procedure TDMAC4_DCH4INT.setCHCCIE(thebits : TBits_1); inline;
  57803. begin
  57804. if thebits = 0 then
  57805. pTDefRegMap(@Self)^.clr := $00040000
  57806. else
  57807. pTDefRegMap(@Self)^.&set := $00040000;
  57808. end;
  57809. function TDMAC4_DCH4INT.getCHCCIE : TBits_1; inline;
  57810. begin
  57811. getCHCCIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  57812. end;
  57813. procedure TDMAC4_DCH4INT.setCHBCIE; inline;
  57814. begin
  57815. pTDefRegMap(@Self)^.&set := $00080000;
  57816. end;
  57817. procedure TDMAC4_DCH4INT.clearCHBCIE; inline;
  57818. begin
  57819. pTDefRegMap(@Self)^.clr := $00080000;
  57820. end;
  57821. procedure TDMAC4_DCH4INT.setCHBCIE(thebits : TBits_1); inline;
  57822. begin
  57823. if thebits = 0 then
  57824. pTDefRegMap(@Self)^.clr := $00080000
  57825. else
  57826. pTDefRegMap(@Self)^.&set := $00080000;
  57827. end;
  57828. function TDMAC4_DCH4INT.getCHBCIE : TBits_1; inline;
  57829. begin
  57830. getCHBCIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  57831. end;
  57832. procedure TDMAC4_DCH4INT.setCHDHIE; inline;
  57833. begin
  57834. pTDefRegMap(@Self)^.&set := $00100000;
  57835. end;
  57836. procedure TDMAC4_DCH4INT.clearCHDHIE; inline;
  57837. begin
  57838. pTDefRegMap(@Self)^.clr := $00100000;
  57839. end;
  57840. procedure TDMAC4_DCH4INT.setCHDHIE(thebits : TBits_1); inline;
  57841. begin
  57842. if thebits = 0 then
  57843. pTDefRegMap(@Self)^.clr := $00100000
  57844. else
  57845. pTDefRegMap(@Self)^.&set := $00100000;
  57846. end;
  57847. function TDMAC4_DCH4INT.getCHDHIE : TBits_1; inline;
  57848. begin
  57849. getCHDHIE := (pTDefRegMap(@Self)^.val and $00100000) shr 20;
  57850. end;
  57851. procedure TDMAC4_DCH4INT.setCHDDIE; inline;
  57852. begin
  57853. pTDefRegMap(@Self)^.&set := $00200000;
  57854. end;
  57855. procedure TDMAC4_DCH4INT.clearCHDDIE; inline;
  57856. begin
  57857. pTDefRegMap(@Self)^.clr := $00200000;
  57858. end;
  57859. procedure TDMAC4_DCH4INT.setCHDDIE(thebits : TBits_1); inline;
  57860. begin
  57861. if thebits = 0 then
  57862. pTDefRegMap(@Self)^.clr := $00200000
  57863. else
  57864. pTDefRegMap(@Self)^.&set := $00200000;
  57865. end;
  57866. function TDMAC4_DCH4INT.getCHDDIE : TBits_1; inline;
  57867. begin
  57868. getCHDDIE := (pTDefRegMap(@Self)^.val and $00200000) shr 21;
  57869. end;
  57870. procedure TDMAC4_DCH4INT.setCHSHIE; inline;
  57871. begin
  57872. pTDefRegMap(@Self)^.&set := $00400000;
  57873. end;
  57874. procedure TDMAC4_DCH4INT.clearCHSHIE; inline;
  57875. begin
  57876. pTDefRegMap(@Self)^.clr := $00400000;
  57877. end;
  57878. procedure TDMAC4_DCH4INT.setCHSHIE(thebits : TBits_1); inline;
  57879. begin
  57880. if thebits = 0 then
  57881. pTDefRegMap(@Self)^.clr := $00400000
  57882. else
  57883. pTDefRegMap(@Self)^.&set := $00400000;
  57884. end;
  57885. function TDMAC4_DCH4INT.getCHSHIE : TBits_1; inline;
  57886. begin
  57887. getCHSHIE := (pTDefRegMap(@Self)^.val and $00400000) shr 22;
  57888. end;
  57889. procedure TDMAC4_DCH4INT.setCHSDIE; inline;
  57890. begin
  57891. pTDefRegMap(@Self)^.&set := $00800000;
  57892. end;
  57893. procedure TDMAC4_DCH4INT.clearCHSDIE; inline;
  57894. begin
  57895. pTDefRegMap(@Self)^.clr := $00800000;
  57896. end;
  57897. procedure TDMAC4_DCH4INT.setCHSDIE(thebits : TBits_1); inline;
  57898. begin
  57899. if thebits = 0 then
  57900. pTDefRegMap(@Self)^.clr := $00800000
  57901. else
  57902. pTDefRegMap(@Self)^.&set := $00800000;
  57903. end;
  57904. function TDMAC4_DCH4INT.getCHSDIE : TBits_1; inline;
  57905. begin
  57906. getCHSDIE := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
  57907. end;
  57908. procedure TDMAC4_DCH4INT.setw(thebits : TBits_32); inline;
  57909. begin
  57910. pTDefRegMap(@Self)^.val := thebits;
  57911. end;
  57912. function TDMAC4_DCH4INT.getw : TBits_32; inline;
  57913. begin
  57914. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  57915. end;
  57916. procedure TDMAC5_DCH5CON.setCHPRI(thebits : TBits_2); inline;
  57917. begin
  57918. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  57919. end;
  57920. function TDMAC5_DCH5CON.getCHPRI : TBits_2; inline;
  57921. begin
  57922. getCHPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  57923. end;
  57924. procedure TDMAC5_DCH5CON.setCHEDET; inline;
  57925. begin
  57926. pTDefRegMap(@Self)^.&set := $00000004;
  57927. end;
  57928. procedure TDMAC5_DCH5CON.clearCHEDET; inline;
  57929. begin
  57930. pTDefRegMap(@Self)^.clr := $00000004;
  57931. end;
  57932. procedure TDMAC5_DCH5CON.setCHEDET(thebits : TBits_1); inline;
  57933. begin
  57934. if thebits = 0 then
  57935. pTDefRegMap(@Self)^.clr := $00000004
  57936. else
  57937. pTDefRegMap(@Self)^.&set := $00000004;
  57938. end;
  57939. function TDMAC5_DCH5CON.getCHEDET : TBits_1; inline;
  57940. begin
  57941. getCHEDET := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  57942. end;
  57943. procedure TDMAC5_DCH5CON.setCHAEN; inline;
  57944. begin
  57945. pTDefRegMap(@Self)^.&set := $00000010;
  57946. end;
  57947. procedure TDMAC5_DCH5CON.clearCHAEN; inline;
  57948. begin
  57949. pTDefRegMap(@Self)^.clr := $00000010;
  57950. end;
  57951. procedure TDMAC5_DCH5CON.setCHAEN(thebits : TBits_1); inline;
  57952. begin
  57953. if thebits = 0 then
  57954. pTDefRegMap(@Self)^.clr := $00000010
  57955. else
  57956. pTDefRegMap(@Self)^.&set := $00000010;
  57957. end;
  57958. function TDMAC5_DCH5CON.getCHAEN : TBits_1; inline;
  57959. begin
  57960. getCHAEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  57961. end;
  57962. procedure TDMAC5_DCH5CON.setCHCHN; inline;
  57963. begin
  57964. pTDefRegMap(@Self)^.&set := $00000020;
  57965. end;
  57966. procedure TDMAC5_DCH5CON.clearCHCHN; inline;
  57967. begin
  57968. pTDefRegMap(@Self)^.clr := $00000020;
  57969. end;
  57970. procedure TDMAC5_DCH5CON.setCHCHN(thebits : TBits_1); inline;
  57971. begin
  57972. if thebits = 0 then
  57973. pTDefRegMap(@Self)^.clr := $00000020
  57974. else
  57975. pTDefRegMap(@Self)^.&set := $00000020;
  57976. end;
  57977. function TDMAC5_DCH5CON.getCHCHN : TBits_1; inline;
  57978. begin
  57979. getCHCHN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  57980. end;
  57981. procedure TDMAC5_DCH5CON.setCHAED; inline;
  57982. begin
  57983. pTDefRegMap(@Self)^.&set := $00000040;
  57984. end;
  57985. procedure TDMAC5_DCH5CON.clearCHAED; inline;
  57986. begin
  57987. pTDefRegMap(@Self)^.clr := $00000040;
  57988. end;
  57989. procedure TDMAC5_DCH5CON.setCHAED(thebits : TBits_1); inline;
  57990. begin
  57991. if thebits = 0 then
  57992. pTDefRegMap(@Self)^.clr := $00000040
  57993. else
  57994. pTDefRegMap(@Self)^.&set := $00000040;
  57995. end;
  57996. function TDMAC5_DCH5CON.getCHAED : TBits_1; inline;
  57997. begin
  57998. getCHAED := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  57999. end;
  58000. procedure TDMAC5_DCH5CON.setCHEN; inline;
  58001. begin
  58002. pTDefRegMap(@Self)^.&set := $00000080;
  58003. end;
  58004. procedure TDMAC5_DCH5CON.clearCHEN; inline;
  58005. begin
  58006. pTDefRegMap(@Self)^.clr := $00000080;
  58007. end;
  58008. procedure TDMAC5_DCH5CON.setCHEN(thebits : TBits_1); inline;
  58009. begin
  58010. if thebits = 0 then
  58011. pTDefRegMap(@Self)^.clr := $00000080
  58012. else
  58013. pTDefRegMap(@Self)^.&set := $00000080;
  58014. end;
  58015. function TDMAC5_DCH5CON.getCHEN : TBits_1; inline;
  58016. begin
  58017. getCHEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  58018. end;
  58019. procedure TDMAC5_DCH5CON.setCHCHNS; inline;
  58020. begin
  58021. pTDefRegMap(@Self)^.&set := $00000100;
  58022. end;
  58023. procedure TDMAC5_DCH5CON.clearCHCHNS; inline;
  58024. begin
  58025. pTDefRegMap(@Self)^.clr := $00000100;
  58026. end;
  58027. procedure TDMAC5_DCH5CON.setCHCHNS(thebits : TBits_1); inline;
  58028. begin
  58029. if thebits = 0 then
  58030. pTDefRegMap(@Self)^.clr := $00000100
  58031. else
  58032. pTDefRegMap(@Self)^.&set := $00000100;
  58033. end;
  58034. function TDMAC5_DCH5CON.getCHCHNS : TBits_1; inline;
  58035. begin
  58036. getCHCHNS := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  58037. end;
  58038. procedure TDMAC5_DCH5CON.setCHBUSY; inline;
  58039. begin
  58040. pTDefRegMap(@Self)^.&set := $00008000;
  58041. end;
  58042. procedure TDMAC5_DCH5CON.clearCHBUSY; inline;
  58043. begin
  58044. pTDefRegMap(@Self)^.clr := $00008000;
  58045. end;
  58046. procedure TDMAC5_DCH5CON.setCHBUSY(thebits : TBits_1); inline;
  58047. begin
  58048. if thebits = 0 then
  58049. pTDefRegMap(@Self)^.clr := $00008000
  58050. else
  58051. pTDefRegMap(@Self)^.&set := $00008000;
  58052. end;
  58053. function TDMAC5_DCH5CON.getCHBUSY : TBits_1; inline;
  58054. begin
  58055. getCHBUSY := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  58056. end;
  58057. procedure TDMAC5_DCH5CON.setw(thebits : TBits_32); inline;
  58058. begin
  58059. pTDefRegMap(@Self)^.val := thebits;
  58060. end;
  58061. function TDMAC5_DCH5CON.getw : TBits_32; inline;
  58062. begin
  58063. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  58064. end;
  58065. procedure TDMAC5_DCH5ECON.setAIRQEN; inline;
  58066. begin
  58067. pTDefRegMap(@Self)^.&set := $00000008;
  58068. end;
  58069. procedure TDMAC5_DCH5ECON.clearAIRQEN; inline;
  58070. begin
  58071. pTDefRegMap(@Self)^.clr := $00000008;
  58072. end;
  58073. procedure TDMAC5_DCH5ECON.setAIRQEN(thebits : TBits_1); inline;
  58074. begin
  58075. if thebits = 0 then
  58076. pTDefRegMap(@Self)^.clr := $00000008
  58077. else
  58078. pTDefRegMap(@Self)^.&set := $00000008;
  58079. end;
  58080. function TDMAC5_DCH5ECON.getAIRQEN : TBits_1; inline;
  58081. begin
  58082. getAIRQEN := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  58083. end;
  58084. procedure TDMAC5_DCH5ECON.setSIRQEN; inline;
  58085. begin
  58086. pTDefRegMap(@Self)^.&set := $00000010;
  58087. end;
  58088. procedure TDMAC5_DCH5ECON.clearSIRQEN; inline;
  58089. begin
  58090. pTDefRegMap(@Self)^.clr := $00000010;
  58091. end;
  58092. procedure TDMAC5_DCH5ECON.setSIRQEN(thebits : TBits_1); inline;
  58093. begin
  58094. if thebits = 0 then
  58095. pTDefRegMap(@Self)^.clr := $00000010
  58096. else
  58097. pTDefRegMap(@Self)^.&set := $00000010;
  58098. end;
  58099. function TDMAC5_DCH5ECON.getSIRQEN : TBits_1; inline;
  58100. begin
  58101. getSIRQEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  58102. end;
  58103. procedure TDMAC5_DCH5ECON.setPATEN; inline;
  58104. begin
  58105. pTDefRegMap(@Self)^.&set := $00000020;
  58106. end;
  58107. procedure TDMAC5_DCH5ECON.clearPATEN; inline;
  58108. begin
  58109. pTDefRegMap(@Self)^.clr := $00000020;
  58110. end;
  58111. procedure TDMAC5_DCH5ECON.setPATEN(thebits : TBits_1); inline;
  58112. begin
  58113. if thebits = 0 then
  58114. pTDefRegMap(@Self)^.clr := $00000020
  58115. else
  58116. pTDefRegMap(@Self)^.&set := $00000020;
  58117. end;
  58118. function TDMAC5_DCH5ECON.getPATEN : TBits_1; inline;
  58119. begin
  58120. getPATEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  58121. end;
  58122. procedure TDMAC5_DCH5ECON.setCABORT; inline;
  58123. begin
  58124. pTDefRegMap(@Self)^.&set := $00000040;
  58125. end;
  58126. procedure TDMAC5_DCH5ECON.clearCABORT; inline;
  58127. begin
  58128. pTDefRegMap(@Self)^.clr := $00000040;
  58129. end;
  58130. procedure TDMAC5_DCH5ECON.setCABORT(thebits : TBits_1); inline;
  58131. begin
  58132. if thebits = 0 then
  58133. pTDefRegMap(@Self)^.clr := $00000040
  58134. else
  58135. pTDefRegMap(@Self)^.&set := $00000040;
  58136. end;
  58137. function TDMAC5_DCH5ECON.getCABORT : TBits_1; inline;
  58138. begin
  58139. getCABORT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  58140. end;
  58141. procedure TDMAC5_DCH5ECON.setCFORCE; inline;
  58142. begin
  58143. pTDefRegMap(@Self)^.&set := $00000080;
  58144. end;
  58145. procedure TDMAC5_DCH5ECON.clearCFORCE; inline;
  58146. begin
  58147. pTDefRegMap(@Self)^.clr := $00000080;
  58148. end;
  58149. procedure TDMAC5_DCH5ECON.setCFORCE(thebits : TBits_1); inline;
  58150. begin
  58151. if thebits = 0 then
  58152. pTDefRegMap(@Self)^.clr := $00000080
  58153. else
  58154. pTDefRegMap(@Self)^.&set := $00000080;
  58155. end;
  58156. function TDMAC5_DCH5ECON.getCFORCE : TBits_1; inline;
  58157. begin
  58158. getCFORCE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  58159. end;
  58160. procedure TDMAC5_DCH5ECON.setCHSIRQ(thebits : TBits_8); inline;
  58161. begin
  58162. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF00FF or ( thebits shl 8 );
  58163. end;
  58164. function TDMAC5_DCH5ECON.getCHSIRQ : TBits_8; inline;
  58165. begin
  58166. getCHSIRQ := (pTDefRegMap(@Self)^.val and $0000FF00) shr 8;
  58167. end;
  58168. procedure TDMAC5_DCH5ECON.setCHAIRQ(thebits : TBits_8); inline;
  58169. begin
  58170. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
  58171. end;
  58172. function TDMAC5_DCH5ECON.getCHAIRQ : TBits_8; inline;
  58173. begin
  58174. getCHAIRQ := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
  58175. end;
  58176. procedure TDMAC5_DCH5ECON.setw(thebits : TBits_32); inline;
  58177. begin
  58178. pTDefRegMap(@Self)^.val := thebits;
  58179. end;
  58180. function TDMAC5_DCH5ECON.getw : TBits_32; inline;
  58181. begin
  58182. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  58183. end;
  58184. procedure TDMAC5_DCH5INT.setCHERIF; inline;
  58185. begin
  58186. pTDefRegMap(@Self)^.&set := $00000001;
  58187. end;
  58188. procedure TDMAC5_DCH5INT.clearCHERIF; inline;
  58189. begin
  58190. pTDefRegMap(@Self)^.clr := $00000001;
  58191. end;
  58192. procedure TDMAC5_DCH5INT.setCHERIF(thebits : TBits_1); inline;
  58193. begin
  58194. if thebits = 0 then
  58195. pTDefRegMap(@Self)^.clr := $00000001
  58196. else
  58197. pTDefRegMap(@Self)^.&set := $00000001;
  58198. end;
  58199. function TDMAC5_DCH5INT.getCHERIF : TBits_1; inline;
  58200. begin
  58201. getCHERIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  58202. end;
  58203. procedure TDMAC5_DCH5INT.setCHTAIF; inline;
  58204. begin
  58205. pTDefRegMap(@Self)^.&set := $00000002;
  58206. end;
  58207. procedure TDMAC5_DCH5INT.clearCHTAIF; inline;
  58208. begin
  58209. pTDefRegMap(@Self)^.clr := $00000002;
  58210. end;
  58211. procedure TDMAC5_DCH5INT.setCHTAIF(thebits : TBits_1); inline;
  58212. begin
  58213. if thebits = 0 then
  58214. pTDefRegMap(@Self)^.clr := $00000002
  58215. else
  58216. pTDefRegMap(@Self)^.&set := $00000002;
  58217. end;
  58218. function TDMAC5_DCH5INT.getCHTAIF : TBits_1; inline;
  58219. begin
  58220. getCHTAIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  58221. end;
  58222. procedure TDMAC5_DCH5INT.setCHCCIF; inline;
  58223. begin
  58224. pTDefRegMap(@Self)^.&set := $00000004;
  58225. end;
  58226. procedure TDMAC5_DCH5INT.clearCHCCIF; inline;
  58227. begin
  58228. pTDefRegMap(@Self)^.clr := $00000004;
  58229. end;
  58230. procedure TDMAC5_DCH5INT.setCHCCIF(thebits : TBits_1); inline;
  58231. begin
  58232. if thebits = 0 then
  58233. pTDefRegMap(@Self)^.clr := $00000004
  58234. else
  58235. pTDefRegMap(@Self)^.&set := $00000004;
  58236. end;
  58237. function TDMAC5_DCH5INT.getCHCCIF : TBits_1; inline;
  58238. begin
  58239. getCHCCIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  58240. end;
  58241. procedure TDMAC5_DCH5INT.setCHBCIF; inline;
  58242. begin
  58243. pTDefRegMap(@Self)^.&set := $00000008;
  58244. end;
  58245. procedure TDMAC5_DCH5INT.clearCHBCIF; inline;
  58246. begin
  58247. pTDefRegMap(@Self)^.clr := $00000008;
  58248. end;
  58249. procedure TDMAC5_DCH5INT.setCHBCIF(thebits : TBits_1); inline;
  58250. begin
  58251. if thebits = 0 then
  58252. pTDefRegMap(@Self)^.clr := $00000008
  58253. else
  58254. pTDefRegMap(@Self)^.&set := $00000008;
  58255. end;
  58256. function TDMAC5_DCH5INT.getCHBCIF : TBits_1; inline;
  58257. begin
  58258. getCHBCIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  58259. end;
  58260. procedure TDMAC5_DCH5INT.setCHDHIF; inline;
  58261. begin
  58262. pTDefRegMap(@Self)^.&set := $00000010;
  58263. end;
  58264. procedure TDMAC5_DCH5INT.clearCHDHIF; inline;
  58265. begin
  58266. pTDefRegMap(@Self)^.clr := $00000010;
  58267. end;
  58268. procedure TDMAC5_DCH5INT.setCHDHIF(thebits : TBits_1); inline;
  58269. begin
  58270. if thebits = 0 then
  58271. pTDefRegMap(@Self)^.clr := $00000010
  58272. else
  58273. pTDefRegMap(@Self)^.&set := $00000010;
  58274. end;
  58275. function TDMAC5_DCH5INT.getCHDHIF : TBits_1; inline;
  58276. begin
  58277. getCHDHIF := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  58278. end;
  58279. procedure TDMAC5_DCH5INT.setCHDDIF; inline;
  58280. begin
  58281. pTDefRegMap(@Self)^.&set := $00000020;
  58282. end;
  58283. procedure TDMAC5_DCH5INT.clearCHDDIF; inline;
  58284. begin
  58285. pTDefRegMap(@Self)^.clr := $00000020;
  58286. end;
  58287. procedure TDMAC5_DCH5INT.setCHDDIF(thebits : TBits_1); inline;
  58288. begin
  58289. if thebits = 0 then
  58290. pTDefRegMap(@Self)^.clr := $00000020
  58291. else
  58292. pTDefRegMap(@Self)^.&set := $00000020;
  58293. end;
  58294. function TDMAC5_DCH5INT.getCHDDIF : TBits_1; inline;
  58295. begin
  58296. getCHDDIF := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  58297. end;
  58298. procedure TDMAC5_DCH5INT.setCHSHIF; inline;
  58299. begin
  58300. pTDefRegMap(@Self)^.&set := $00000040;
  58301. end;
  58302. procedure TDMAC5_DCH5INT.clearCHSHIF; inline;
  58303. begin
  58304. pTDefRegMap(@Self)^.clr := $00000040;
  58305. end;
  58306. procedure TDMAC5_DCH5INT.setCHSHIF(thebits : TBits_1); inline;
  58307. begin
  58308. if thebits = 0 then
  58309. pTDefRegMap(@Self)^.clr := $00000040
  58310. else
  58311. pTDefRegMap(@Self)^.&set := $00000040;
  58312. end;
  58313. function TDMAC5_DCH5INT.getCHSHIF : TBits_1; inline;
  58314. begin
  58315. getCHSHIF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  58316. end;
  58317. procedure TDMAC5_DCH5INT.setCHSDIF; inline;
  58318. begin
  58319. pTDefRegMap(@Self)^.&set := $00000080;
  58320. end;
  58321. procedure TDMAC5_DCH5INT.clearCHSDIF; inline;
  58322. begin
  58323. pTDefRegMap(@Self)^.clr := $00000080;
  58324. end;
  58325. procedure TDMAC5_DCH5INT.setCHSDIF(thebits : TBits_1); inline;
  58326. begin
  58327. if thebits = 0 then
  58328. pTDefRegMap(@Self)^.clr := $00000080
  58329. else
  58330. pTDefRegMap(@Self)^.&set := $00000080;
  58331. end;
  58332. function TDMAC5_DCH5INT.getCHSDIF : TBits_1; inline;
  58333. begin
  58334. getCHSDIF := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  58335. end;
  58336. procedure TDMAC5_DCH5INT.setCHERIE; inline;
  58337. begin
  58338. pTDefRegMap(@Self)^.&set := $00010000;
  58339. end;
  58340. procedure TDMAC5_DCH5INT.clearCHERIE; inline;
  58341. begin
  58342. pTDefRegMap(@Self)^.clr := $00010000;
  58343. end;
  58344. procedure TDMAC5_DCH5INT.setCHERIE(thebits : TBits_1); inline;
  58345. begin
  58346. if thebits = 0 then
  58347. pTDefRegMap(@Self)^.clr := $00010000
  58348. else
  58349. pTDefRegMap(@Self)^.&set := $00010000;
  58350. end;
  58351. function TDMAC5_DCH5INT.getCHERIE : TBits_1; inline;
  58352. begin
  58353. getCHERIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  58354. end;
  58355. procedure TDMAC5_DCH5INT.setCHTAIE; inline;
  58356. begin
  58357. pTDefRegMap(@Self)^.&set := $00020000;
  58358. end;
  58359. procedure TDMAC5_DCH5INT.clearCHTAIE; inline;
  58360. begin
  58361. pTDefRegMap(@Self)^.clr := $00020000;
  58362. end;
  58363. procedure TDMAC5_DCH5INT.setCHTAIE(thebits : TBits_1); inline;
  58364. begin
  58365. if thebits = 0 then
  58366. pTDefRegMap(@Self)^.clr := $00020000
  58367. else
  58368. pTDefRegMap(@Self)^.&set := $00020000;
  58369. end;
  58370. function TDMAC5_DCH5INT.getCHTAIE : TBits_1; inline;
  58371. begin
  58372. getCHTAIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  58373. end;
  58374. procedure TDMAC5_DCH5INT.setCHCCIE; inline;
  58375. begin
  58376. pTDefRegMap(@Self)^.&set := $00040000;
  58377. end;
  58378. procedure TDMAC5_DCH5INT.clearCHCCIE; inline;
  58379. begin
  58380. pTDefRegMap(@Self)^.clr := $00040000;
  58381. end;
  58382. procedure TDMAC5_DCH5INT.setCHCCIE(thebits : TBits_1); inline;
  58383. begin
  58384. if thebits = 0 then
  58385. pTDefRegMap(@Self)^.clr := $00040000
  58386. else
  58387. pTDefRegMap(@Self)^.&set := $00040000;
  58388. end;
  58389. function TDMAC5_DCH5INT.getCHCCIE : TBits_1; inline;
  58390. begin
  58391. getCHCCIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  58392. end;
  58393. procedure TDMAC5_DCH5INT.setCHBCIE; inline;
  58394. begin
  58395. pTDefRegMap(@Self)^.&set := $00080000;
  58396. end;
  58397. procedure TDMAC5_DCH5INT.clearCHBCIE; inline;
  58398. begin
  58399. pTDefRegMap(@Self)^.clr := $00080000;
  58400. end;
  58401. procedure TDMAC5_DCH5INT.setCHBCIE(thebits : TBits_1); inline;
  58402. begin
  58403. if thebits = 0 then
  58404. pTDefRegMap(@Self)^.clr := $00080000
  58405. else
  58406. pTDefRegMap(@Self)^.&set := $00080000;
  58407. end;
  58408. function TDMAC5_DCH5INT.getCHBCIE : TBits_1; inline;
  58409. begin
  58410. getCHBCIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  58411. end;
  58412. procedure TDMAC5_DCH5INT.setCHDHIE; inline;
  58413. begin
  58414. pTDefRegMap(@Self)^.&set := $00100000;
  58415. end;
  58416. procedure TDMAC5_DCH5INT.clearCHDHIE; inline;
  58417. begin
  58418. pTDefRegMap(@Self)^.clr := $00100000;
  58419. end;
  58420. procedure TDMAC5_DCH5INT.setCHDHIE(thebits : TBits_1); inline;
  58421. begin
  58422. if thebits = 0 then
  58423. pTDefRegMap(@Self)^.clr := $00100000
  58424. else
  58425. pTDefRegMap(@Self)^.&set := $00100000;
  58426. end;
  58427. function TDMAC5_DCH5INT.getCHDHIE : TBits_1; inline;
  58428. begin
  58429. getCHDHIE := (pTDefRegMap(@Self)^.val and $00100000) shr 20;
  58430. end;
  58431. procedure TDMAC5_DCH5INT.setCHDDIE; inline;
  58432. begin
  58433. pTDefRegMap(@Self)^.&set := $00200000;
  58434. end;
  58435. procedure TDMAC5_DCH5INT.clearCHDDIE; inline;
  58436. begin
  58437. pTDefRegMap(@Self)^.clr := $00200000;
  58438. end;
  58439. procedure TDMAC5_DCH5INT.setCHDDIE(thebits : TBits_1); inline;
  58440. begin
  58441. if thebits = 0 then
  58442. pTDefRegMap(@Self)^.clr := $00200000
  58443. else
  58444. pTDefRegMap(@Self)^.&set := $00200000;
  58445. end;
  58446. function TDMAC5_DCH5INT.getCHDDIE : TBits_1; inline;
  58447. begin
  58448. getCHDDIE := (pTDefRegMap(@Self)^.val and $00200000) shr 21;
  58449. end;
  58450. procedure TDMAC5_DCH5INT.setCHSHIE; inline;
  58451. begin
  58452. pTDefRegMap(@Self)^.&set := $00400000;
  58453. end;
  58454. procedure TDMAC5_DCH5INT.clearCHSHIE; inline;
  58455. begin
  58456. pTDefRegMap(@Self)^.clr := $00400000;
  58457. end;
  58458. procedure TDMAC5_DCH5INT.setCHSHIE(thebits : TBits_1); inline;
  58459. begin
  58460. if thebits = 0 then
  58461. pTDefRegMap(@Self)^.clr := $00400000
  58462. else
  58463. pTDefRegMap(@Self)^.&set := $00400000;
  58464. end;
  58465. function TDMAC5_DCH5INT.getCHSHIE : TBits_1; inline;
  58466. begin
  58467. getCHSHIE := (pTDefRegMap(@Self)^.val and $00400000) shr 22;
  58468. end;
  58469. procedure TDMAC5_DCH5INT.setCHSDIE; inline;
  58470. begin
  58471. pTDefRegMap(@Self)^.&set := $00800000;
  58472. end;
  58473. procedure TDMAC5_DCH5INT.clearCHSDIE; inline;
  58474. begin
  58475. pTDefRegMap(@Self)^.clr := $00800000;
  58476. end;
  58477. procedure TDMAC5_DCH5INT.setCHSDIE(thebits : TBits_1); inline;
  58478. begin
  58479. if thebits = 0 then
  58480. pTDefRegMap(@Self)^.clr := $00800000
  58481. else
  58482. pTDefRegMap(@Self)^.&set := $00800000;
  58483. end;
  58484. function TDMAC5_DCH5INT.getCHSDIE : TBits_1; inline;
  58485. begin
  58486. getCHSDIE := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
  58487. end;
  58488. procedure TDMAC5_DCH5INT.setw(thebits : TBits_32); inline;
  58489. begin
  58490. pTDefRegMap(@Self)^.val := thebits;
  58491. end;
  58492. function TDMAC5_DCH5INT.getw : TBits_32; inline;
  58493. begin
  58494. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  58495. end;
  58496. procedure TDMAC6_DCH6CON.setCHPRI(thebits : TBits_2); inline;
  58497. begin
  58498. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  58499. end;
  58500. function TDMAC6_DCH6CON.getCHPRI : TBits_2; inline;
  58501. begin
  58502. getCHPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  58503. end;
  58504. procedure TDMAC6_DCH6CON.setCHEDET; inline;
  58505. begin
  58506. pTDefRegMap(@Self)^.&set := $00000004;
  58507. end;
  58508. procedure TDMAC6_DCH6CON.clearCHEDET; inline;
  58509. begin
  58510. pTDefRegMap(@Self)^.clr := $00000004;
  58511. end;
  58512. procedure TDMAC6_DCH6CON.setCHEDET(thebits : TBits_1); inline;
  58513. begin
  58514. if thebits = 0 then
  58515. pTDefRegMap(@Self)^.clr := $00000004
  58516. else
  58517. pTDefRegMap(@Self)^.&set := $00000004;
  58518. end;
  58519. function TDMAC6_DCH6CON.getCHEDET : TBits_1; inline;
  58520. begin
  58521. getCHEDET := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  58522. end;
  58523. procedure TDMAC6_DCH6CON.setCHAEN; inline;
  58524. begin
  58525. pTDefRegMap(@Self)^.&set := $00000010;
  58526. end;
  58527. procedure TDMAC6_DCH6CON.clearCHAEN; inline;
  58528. begin
  58529. pTDefRegMap(@Self)^.clr := $00000010;
  58530. end;
  58531. procedure TDMAC6_DCH6CON.setCHAEN(thebits : TBits_1); inline;
  58532. begin
  58533. if thebits = 0 then
  58534. pTDefRegMap(@Self)^.clr := $00000010
  58535. else
  58536. pTDefRegMap(@Self)^.&set := $00000010;
  58537. end;
  58538. function TDMAC6_DCH6CON.getCHAEN : TBits_1; inline;
  58539. begin
  58540. getCHAEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  58541. end;
  58542. procedure TDMAC6_DCH6CON.setCHCHN; inline;
  58543. begin
  58544. pTDefRegMap(@Self)^.&set := $00000020;
  58545. end;
  58546. procedure TDMAC6_DCH6CON.clearCHCHN; inline;
  58547. begin
  58548. pTDefRegMap(@Self)^.clr := $00000020;
  58549. end;
  58550. procedure TDMAC6_DCH6CON.setCHCHN(thebits : TBits_1); inline;
  58551. begin
  58552. if thebits = 0 then
  58553. pTDefRegMap(@Self)^.clr := $00000020
  58554. else
  58555. pTDefRegMap(@Self)^.&set := $00000020;
  58556. end;
  58557. function TDMAC6_DCH6CON.getCHCHN : TBits_1; inline;
  58558. begin
  58559. getCHCHN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  58560. end;
  58561. procedure TDMAC6_DCH6CON.setCHAED; inline;
  58562. begin
  58563. pTDefRegMap(@Self)^.&set := $00000040;
  58564. end;
  58565. procedure TDMAC6_DCH6CON.clearCHAED; inline;
  58566. begin
  58567. pTDefRegMap(@Self)^.clr := $00000040;
  58568. end;
  58569. procedure TDMAC6_DCH6CON.setCHAED(thebits : TBits_1); inline;
  58570. begin
  58571. if thebits = 0 then
  58572. pTDefRegMap(@Self)^.clr := $00000040
  58573. else
  58574. pTDefRegMap(@Self)^.&set := $00000040;
  58575. end;
  58576. function TDMAC6_DCH6CON.getCHAED : TBits_1; inline;
  58577. begin
  58578. getCHAED := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  58579. end;
  58580. procedure TDMAC6_DCH6CON.setCHEN; inline;
  58581. begin
  58582. pTDefRegMap(@Self)^.&set := $00000080;
  58583. end;
  58584. procedure TDMAC6_DCH6CON.clearCHEN; inline;
  58585. begin
  58586. pTDefRegMap(@Self)^.clr := $00000080;
  58587. end;
  58588. procedure TDMAC6_DCH6CON.setCHEN(thebits : TBits_1); inline;
  58589. begin
  58590. if thebits = 0 then
  58591. pTDefRegMap(@Self)^.clr := $00000080
  58592. else
  58593. pTDefRegMap(@Self)^.&set := $00000080;
  58594. end;
  58595. function TDMAC6_DCH6CON.getCHEN : TBits_1; inline;
  58596. begin
  58597. getCHEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  58598. end;
  58599. procedure TDMAC6_DCH6CON.setCHCHNS; inline;
  58600. begin
  58601. pTDefRegMap(@Self)^.&set := $00000100;
  58602. end;
  58603. procedure TDMAC6_DCH6CON.clearCHCHNS; inline;
  58604. begin
  58605. pTDefRegMap(@Self)^.clr := $00000100;
  58606. end;
  58607. procedure TDMAC6_DCH6CON.setCHCHNS(thebits : TBits_1); inline;
  58608. begin
  58609. if thebits = 0 then
  58610. pTDefRegMap(@Self)^.clr := $00000100
  58611. else
  58612. pTDefRegMap(@Self)^.&set := $00000100;
  58613. end;
  58614. function TDMAC6_DCH6CON.getCHCHNS : TBits_1; inline;
  58615. begin
  58616. getCHCHNS := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  58617. end;
  58618. procedure TDMAC6_DCH6CON.setCHBUSY; inline;
  58619. begin
  58620. pTDefRegMap(@Self)^.&set := $00008000;
  58621. end;
  58622. procedure TDMAC6_DCH6CON.clearCHBUSY; inline;
  58623. begin
  58624. pTDefRegMap(@Self)^.clr := $00008000;
  58625. end;
  58626. procedure TDMAC6_DCH6CON.setCHBUSY(thebits : TBits_1); inline;
  58627. begin
  58628. if thebits = 0 then
  58629. pTDefRegMap(@Self)^.clr := $00008000
  58630. else
  58631. pTDefRegMap(@Self)^.&set := $00008000;
  58632. end;
  58633. function TDMAC6_DCH6CON.getCHBUSY : TBits_1; inline;
  58634. begin
  58635. getCHBUSY := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  58636. end;
  58637. procedure TDMAC6_DCH6CON.setw(thebits : TBits_32); inline;
  58638. begin
  58639. pTDefRegMap(@Self)^.val := thebits;
  58640. end;
  58641. function TDMAC6_DCH6CON.getw : TBits_32; inline;
  58642. begin
  58643. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  58644. end;
  58645. procedure TDMAC6_DCH6ECON.setAIRQEN; inline;
  58646. begin
  58647. pTDefRegMap(@Self)^.&set := $00000008;
  58648. end;
  58649. procedure TDMAC6_DCH6ECON.clearAIRQEN; inline;
  58650. begin
  58651. pTDefRegMap(@Self)^.clr := $00000008;
  58652. end;
  58653. procedure TDMAC6_DCH6ECON.setAIRQEN(thebits : TBits_1); inline;
  58654. begin
  58655. if thebits = 0 then
  58656. pTDefRegMap(@Self)^.clr := $00000008
  58657. else
  58658. pTDefRegMap(@Self)^.&set := $00000008;
  58659. end;
  58660. function TDMAC6_DCH6ECON.getAIRQEN : TBits_1; inline;
  58661. begin
  58662. getAIRQEN := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  58663. end;
  58664. procedure TDMAC6_DCH6ECON.setSIRQEN; inline;
  58665. begin
  58666. pTDefRegMap(@Self)^.&set := $00000010;
  58667. end;
  58668. procedure TDMAC6_DCH6ECON.clearSIRQEN; inline;
  58669. begin
  58670. pTDefRegMap(@Self)^.clr := $00000010;
  58671. end;
  58672. procedure TDMAC6_DCH6ECON.setSIRQEN(thebits : TBits_1); inline;
  58673. begin
  58674. if thebits = 0 then
  58675. pTDefRegMap(@Self)^.clr := $00000010
  58676. else
  58677. pTDefRegMap(@Self)^.&set := $00000010;
  58678. end;
  58679. function TDMAC6_DCH6ECON.getSIRQEN : TBits_1; inline;
  58680. begin
  58681. getSIRQEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  58682. end;
  58683. procedure TDMAC6_DCH6ECON.setPATEN; inline;
  58684. begin
  58685. pTDefRegMap(@Self)^.&set := $00000020;
  58686. end;
  58687. procedure TDMAC6_DCH6ECON.clearPATEN; inline;
  58688. begin
  58689. pTDefRegMap(@Self)^.clr := $00000020;
  58690. end;
  58691. procedure TDMAC6_DCH6ECON.setPATEN(thebits : TBits_1); inline;
  58692. begin
  58693. if thebits = 0 then
  58694. pTDefRegMap(@Self)^.clr := $00000020
  58695. else
  58696. pTDefRegMap(@Self)^.&set := $00000020;
  58697. end;
  58698. function TDMAC6_DCH6ECON.getPATEN : TBits_1; inline;
  58699. begin
  58700. getPATEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  58701. end;
  58702. procedure TDMAC6_DCH6ECON.setCABORT; inline;
  58703. begin
  58704. pTDefRegMap(@Self)^.&set := $00000040;
  58705. end;
  58706. procedure TDMAC6_DCH6ECON.clearCABORT; inline;
  58707. begin
  58708. pTDefRegMap(@Self)^.clr := $00000040;
  58709. end;
  58710. procedure TDMAC6_DCH6ECON.setCABORT(thebits : TBits_1); inline;
  58711. begin
  58712. if thebits = 0 then
  58713. pTDefRegMap(@Self)^.clr := $00000040
  58714. else
  58715. pTDefRegMap(@Self)^.&set := $00000040;
  58716. end;
  58717. function TDMAC6_DCH6ECON.getCABORT : TBits_1; inline;
  58718. begin
  58719. getCABORT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  58720. end;
  58721. procedure TDMAC6_DCH6ECON.setCFORCE; inline;
  58722. begin
  58723. pTDefRegMap(@Self)^.&set := $00000080;
  58724. end;
  58725. procedure TDMAC6_DCH6ECON.clearCFORCE; inline;
  58726. begin
  58727. pTDefRegMap(@Self)^.clr := $00000080;
  58728. end;
  58729. procedure TDMAC6_DCH6ECON.setCFORCE(thebits : TBits_1); inline;
  58730. begin
  58731. if thebits = 0 then
  58732. pTDefRegMap(@Self)^.clr := $00000080
  58733. else
  58734. pTDefRegMap(@Self)^.&set := $00000080;
  58735. end;
  58736. function TDMAC6_DCH6ECON.getCFORCE : TBits_1; inline;
  58737. begin
  58738. getCFORCE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  58739. end;
  58740. procedure TDMAC6_DCH6ECON.setCHSIRQ(thebits : TBits_8); inline;
  58741. begin
  58742. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF00FF or ( thebits shl 8 );
  58743. end;
  58744. function TDMAC6_DCH6ECON.getCHSIRQ : TBits_8; inline;
  58745. begin
  58746. getCHSIRQ := (pTDefRegMap(@Self)^.val and $0000FF00) shr 8;
  58747. end;
  58748. procedure TDMAC6_DCH6ECON.setCHAIRQ(thebits : TBits_8); inline;
  58749. begin
  58750. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
  58751. end;
  58752. function TDMAC6_DCH6ECON.getCHAIRQ : TBits_8; inline;
  58753. begin
  58754. getCHAIRQ := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
  58755. end;
  58756. procedure TDMAC6_DCH6ECON.setw(thebits : TBits_32); inline;
  58757. begin
  58758. pTDefRegMap(@Self)^.val := thebits;
  58759. end;
  58760. function TDMAC6_DCH6ECON.getw : TBits_32; inline;
  58761. begin
  58762. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  58763. end;
  58764. procedure TDMAC6_DCH6INT.setCHERIF; inline;
  58765. begin
  58766. pTDefRegMap(@Self)^.&set := $00000001;
  58767. end;
  58768. procedure TDMAC6_DCH6INT.clearCHERIF; inline;
  58769. begin
  58770. pTDefRegMap(@Self)^.clr := $00000001;
  58771. end;
  58772. procedure TDMAC6_DCH6INT.setCHERIF(thebits : TBits_1); inline;
  58773. begin
  58774. if thebits = 0 then
  58775. pTDefRegMap(@Self)^.clr := $00000001
  58776. else
  58777. pTDefRegMap(@Self)^.&set := $00000001;
  58778. end;
  58779. function TDMAC6_DCH6INT.getCHERIF : TBits_1; inline;
  58780. begin
  58781. getCHERIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  58782. end;
  58783. procedure TDMAC6_DCH6INT.setCHTAIF; inline;
  58784. begin
  58785. pTDefRegMap(@Self)^.&set := $00000002;
  58786. end;
  58787. procedure TDMAC6_DCH6INT.clearCHTAIF; inline;
  58788. begin
  58789. pTDefRegMap(@Self)^.clr := $00000002;
  58790. end;
  58791. procedure TDMAC6_DCH6INT.setCHTAIF(thebits : TBits_1); inline;
  58792. begin
  58793. if thebits = 0 then
  58794. pTDefRegMap(@Self)^.clr := $00000002
  58795. else
  58796. pTDefRegMap(@Self)^.&set := $00000002;
  58797. end;
  58798. function TDMAC6_DCH6INT.getCHTAIF : TBits_1; inline;
  58799. begin
  58800. getCHTAIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  58801. end;
  58802. procedure TDMAC6_DCH6INT.setCHCCIF; inline;
  58803. begin
  58804. pTDefRegMap(@Self)^.&set := $00000004;
  58805. end;
  58806. procedure TDMAC6_DCH6INT.clearCHCCIF; inline;
  58807. begin
  58808. pTDefRegMap(@Self)^.clr := $00000004;
  58809. end;
  58810. procedure TDMAC6_DCH6INT.setCHCCIF(thebits : TBits_1); inline;
  58811. begin
  58812. if thebits = 0 then
  58813. pTDefRegMap(@Self)^.clr := $00000004
  58814. else
  58815. pTDefRegMap(@Self)^.&set := $00000004;
  58816. end;
  58817. function TDMAC6_DCH6INT.getCHCCIF : TBits_1; inline;
  58818. begin
  58819. getCHCCIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  58820. end;
  58821. procedure TDMAC6_DCH6INT.setCHBCIF; inline;
  58822. begin
  58823. pTDefRegMap(@Self)^.&set := $00000008;
  58824. end;
  58825. procedure TDMAC6_DCH6INT.clearCHBCIF; inline;
  58826. begin
  58827. pTDefRegMap(@Self)^.clr := $00000008;
  58828. end;
  58829. procedure TDMAC6_DCH6INT.setCHBCIF(thebits : TBits_1); inline;
  58830. begin
  58831. if thebits = 0 then
  58832. pTDefRegMap(@Self)^.clr := $00000008
  58833. else
  58834. pTDefRegMap(@Self)^.&set := $00000008;
  58835. end;
  58836. function TDMAC6_DCH6INT.getCHBCIF : TBits_1; inline;
  58837. begin
  58838. getCHBCIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  58839. end;
  58840. procedure TDMAC6_DCH6INT.setCHDHIF; inline;
  58841. begin
  58842. pTDefRegMap(@Self)^.&set := $00000010;
  58843. end;
  58844. procedure TDMAC6_DCH6INT.clearCHDHIF; inline;
  58845. begin
  58846. pTDefRegMap(@Self)^.clr := $00000010;
  58847. end;
  58848. procedure TDMAC6_DCH6INT.setCHDHIF(thebits : TBits_1); inline;
  58849. begin
  58850. if thebits = 0 then
  58851. pTDefRegMap(@Self)^.clr := $00000010
  58852. else
  58853. pTDefRegMap(@Self)^.&set := $00000010;
  58854. end;
  58855. function TDMAC6_DCH6INT.getCHDHIF : TBits_1; inline;
  58856. begin
  58857. getCHDHIF := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  58858. end;
  58859. procedure TDMAC6_DCH6INT.setCHDDIF; inline;
  58860. begin
  58861. pTDefRegMap(@Self)^.&set := $00000020;
  58862. end;
  58863. procedure TDMAC6_DCH6INT.clearCHDDIF; inline;
  58864. begin
  58865. pTDefRegMap(@Self)^.clr := $00000020;
  58866. end;
  58867. procedure TDMAC6_DCH6INT.setCHDDIF(thebits : TBits_1); inline;
  58868. begin
  58869. if thebits = 0 then
  58870. pTDefRegMap(@Self)^.clr := $00000020
  58871. else
  58872. pTDefRegMap(@Self)^.&set := $00000020;
  58873. end;
  58874. function TDMAC6_DCH6INT.getCHDDIF : TBits_1; inline;
  58875. begin
  58876. getCHDDIF := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  58877. end;
  58878. procedure TDMAC6_DCH6INT.setCHSHIF; inline;
  58879. begin
  58880. pTDefRegMap(@Self)^.&set := $00000040;
  58881. end;
  58882. procedure TDMAC6_DCH6INT.clearCHSHIF; inline;
  58883. begin
  58884. pTDefRegMap(@Self)^.clr := $00000040;
  58885. end;
  58886. procedure TDMAC6_DCH6INT.setCHSHIF(thebits : TBits_1); inline;
  58887. begin
  58888. if thebits = 0 then
  58889. pTDefRegMap(@Self)^.clr := $00000040
  58890. else
  58891. pTDefRegMap(@Self)^.&set := $00000040;
  58892. end;
  58893. function TDMAC6_DCH6INT.getCHSHIF : TBits_1; inline;
  58894. begin
  58895. getCHSHIF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  58896. end;
  58897. procedure TDMAC6_DCH6INT.setCHSDIF; inline;
  58898. begin
  58899. pTDefRegMap(@Self)^.&set := $00000080;
  58900. end;
  58901. procedure TDMAC6_DCH6INT.clearCHSDIF; inline;
  58902. begin
  58903. pTDefRegMap(@Self)^.clr := $00000080;
  58904. end;
  58905. procedure TDMAC6_DCH6INT.setCHSDIF(thebits : TBits_1); inline;
  58906. begin
  58907. if thebits = 0 then
  58908. pTDefRegMap(@Self)^.clr := $00000080
  58909. else
  58910. pTDefRegMap(@Self)^.&set := $00000080;
  58911. end;
  58912. function TDMAC6_DCH6INT.getCHSDIF : TBits_1; inline;
  58913. begin
  58914. getCHSDIF := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  58915. end;
  58916. procedure TDMAC6_DCH6INT.setCHERIE; inline;
  58917. begin
  58918. pTDefRegMap(@Self)^.&set := $00010000;
  58919. end;
  58920. procedure TDMAC6_DCH6INT.clearCHERIE; inline;
  58921. begin
  58922. pTDefRegMap(@Self)^.clr := $00010000;
  58923. end;
  58924. procedure TDMAC6_DCH6INT.setCHERIE(thebits : TBits_1); inline;
  58925. begin
  58926. if thebits = 0 then
  58927. pTDefRegMap(@Self)^.clr := $00010000
  58928. else
  58929. pTDefRegMap(@Self)^.&set := $00010000;
  58930. end;
  58931. function TDMAC6_DCH6INT.getCHERIE : TBits_1; inline;
  58932. begin
  58933. getCHERIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  58934. end;
  58935. procedure TDMAC6_DCH6INT.setCHTAIE; inline;
  58936. begin
  58937. pTDefRegMap(@Self)^.&set := $00020000;
  58938. end;
  58939. procedure TDMAC6_DCH6INT.clearCHTAIE; inline;
  58940. begin
  58941. pTDefRegMap(@Self)^.clr := $00020000;
  58942. end;
  58943. procedure TDMAC6_DCH6INT.setCHTAIE(thebits : TBits_1); inline;
  58944. begin
  58945. if thebits = 0 then
  58946. pTDefRegMap(@Self)^.clr := $00020000
  58947. else
  58948. pTDefRegMap(@Self)^.&set := $00020000;
  58949. end;
  58950. function TDMAC6_DCH6INT.getCHTAIE : TBits_1; inline;
  58951. begin
  58952. getCHTAIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  58953. end;
  58954. procedure TDMAC6_DCH6INT.setCHCCIE; inline;
  58955. begin
  58956. pTDefRegMap(@Self)^.&set := $00040000;
  58957. end;
  58958. procedure TDMAC6_DCH6INT.clearCHCCIE; inline;
  58959. begin
  58960. pTDefRegMap(@Self)^.clr := $00040000;
  58961. end;
  58962. procedure TDMAC6_DCH6INT.setCHCCIE(thebits : TBits_1); inline;
  58963. begin
  58964. if thebits = 0 then
  58965. pTDefRegMap(@Self)^.clr := $00040000
  58966. else
  58967. pTDefRegMap(@Self)^.&set := $00040000;
  58968. end;
  58969. function TDMAC6_DCH6INT.getCHCCIE : TBits_1; inline;
  58970. begin
  58971. getCHCCIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  58972. end;
  58973. procedure TDMAC6_DCH6INT.setCHBCIE; inline;
  58974. begin
  58975. pTDefRegMap(@Self)^.&set := $00080000;
  58976. end;
  58977. procedure TDMAC6_DCH6INT.clearCHBCIE; inline;
  58978. begin
  58979. pTDefRegMap(@Self)^.clr := $00080000;
  58980. end;
  58981. procedure TDMAC6_DCH6INT.setCHBCIE(thebits : TBits_1); inline;
  58982. begin
  58983. if thebits = 0 then
  58984. pTDefRegMap(@Self)^.clr := $00080000
  58985. else
  58986. pTDefRegMap(@Self)^.&set := $00080000;
  58987. end;
  58988. function TDMAC6_DCH6INT.getCHBCIE : TBits_1; inline;
  58989. begin
  58990. getCHBCIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  58991. end;
  58992. procedure TDMAC6_DCH6INT.setCHDHIE; inline;
  58993. begin
  58994. pTDefRegMap(@Self)^.&set := $00100000;
  58995. end;
  58996. procedure TDMAC6_DCH6INT.clearCHDHIE; inline;
  58997. begin
  58998. pTDefRegMap(@Self)^.clr := $00100000;
  58999. end;
  59000. procedure TDMAC6_DCH6INT.setCHDHIE(thebits : TBits_1); inline;
  59001. begin
  59002. if thebits = 0 then
  59003. pTDefRegMap(@Self)^.clr := $00100000
  59004. else
  59005. pTDefRegMap(@Self)^.&set := $00100000;
  59006. end;
  59007. function TDMAC6_DCH6INT.getCHDHIE : TBits_1; inline;
  59008. begin
  59009. getCHDHIE := (pTDefRegMap(@Self)^.val and $00100000) shr 20;
  59010. end;
  59011. procedure TDMAC6_DCH6INT.setCHDDIE; inline;
  59012. begin
  59013. pTDefRegMap(@Self)^.&set := $00200000;
  59014. end;
  59015. procedure TDMAC6_DCH6INT.clearCHDDIE; inline;
  59016. begin
  59017. pTDefRegMap(@Self)^.clr := $00200000;
  59018. end;
  59019. procedure TDMAC6_DCH6INT.setCHDDIE(thebits : TBits_1); inline;
  59020. begin
  59021. if thebits = 0 then
  59022. pTDefRegMap(@Self)^.clr := $00200000
  59023. else
  59024. pTDefRegMap(@Self)^.&set := $00200000;
  59025. end;
  59026. function TDMAC6_DCH6INT.getCHDDIE : TBits_1; inline;
  59027. begin
  59028. getCHDDIE := (pTDefRegMap(@Self)^.val and $00200000) shr 21;
  59029. end;
  59030. procedure TDMAC6_DCH6INT.setCHSHIE; inline;
  59031. begin
  59032. pTDefRegMap(@Self)^.&set := $00400000;
  59033. end;
  59034. procedure TDMAC6_DCH6INT.clearCHSHIE; inline;
  59035. begin
  59036. pTDefRegMap(@Self)^.clr := $00400000;
  59037. end;
  59038. procedure TDMAC6_DCH6INT.setCHSHIE(thebits : TBits_1); inline;
  59039. begin
  59040. if thebits = 0 then
  59041. pTDefRegMap(@Self)^.clr := $00400000
  59042. else
  59043. pTDefRegMap(@Self)^.&set := $00400000;
  59044. end;
  59045. function TDMAC6_DCH6INT.getCHSHIE : TBits_1; inline;
  59046. begin
  59047. getCHSHIE := (pTDefRegMap(@Self)^.val and $00400000) shr 22;
  59048. end;
  59049. procedure TDMAC6_DCH6INT.setCHSDIE; inline;
  59050. begin
  59051. pTDefRegMap(@Self)^.&set := $00800000;
  59052. end;
  59053. procedure TDMAC6_DCH6INT.clearCHSDIE; inline;
  59054. begin
  59055. pTDefRegMap(@Self)^.clr := $00800000;
  59056. end;
  59057. procedure TDMAC6_DCH6INT.setCHSDIE(thebits : TBits_1); inline;
  59058. begin
  59059. if thebits = 0 then
  59060. pTDefRegMap(@Self)^.clr := $00800000
  59061. else
  59062. pTDefRegMap(@Self)^.&set := $00800000;
  59063. end;
  59064. function TDMAC6_DCH6INT.getCHSDIE : TBits_1; inline;
  59065. begin
  59066. getCHSDIE := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
  59067. end;
  59068. procedure TDMAC6_DCH6INT.setw(thebits : TBits_32); inline;
  59069. begin
  59070. pTDefRegMap(@Self)^.val := thebits;
  59071. end;
  59072. function TDMAC6_DCH6INT.getw : TBits_32; inline;
  59073. begin
  59074. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  59075. end;
  59076. procedure TDMAC7_DCH7CON.setCHPRI(thebits : TBits_2); inline;
  59077. begin
  59078. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  59079. end;
  59080. function TDMAC7_DCH7CON.getCHPRI : TBits_2; inline;
  59081. begin
  59082. getCHPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  59083. end;
  59084. procedure TDMAC7_DCH7CON.setCHEDET; inline;
  59085. begin
  59086. pTDefRegMap(@Self)^.&set := $00000004;
  59087. end;
  59088. procedure TDMAC7_DCH7CON.clearCHEDET; inline;
  59089. begin
  59090. pTDefRegMap(@Self)^.clr := $00000004;
  59091. end;
  59092. procedure TDMAC7_DCH7CON.setCHEDET(thebits : TBits_1); inline;
  59093. begin
  59094. if thebits = 0 then
  59095. pTDefRegMap(@Self)^.clr := $00000004
  59096. else
  59097. pTDefRegMap(@Self)^.&set := $00000004;
  59098. end;
  59099. function TDMAC7_DCH7CON.getCHEDET : TBits_1; inline;
  59100. begin
  59101. getCHEDET := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  59102. end;
  59103. procedure TDMAC7_DCH7CON.setCHAEN; inline;
  59104. begin
  59105. pTDefRegMap(@Self)^.&set := $00000010;
  59106. end;
  59107. procedure TDMAC7_DCH7CON.clearCHAEN; inline;
  59108. begin
  59109. pTDefRegMap(@Self)^.clr := $00000010;
  59110. end;
  59111. procedure TDMAC7_DCH7CON.setCHAEN(thebits : TBits_1); inline;
  59112. begin
  59113. if thebits = 0 then
  59114. pTDefRegMap(@Self)^.clr := $00000010
  59115. else
  59116. pTDefRegMap(@Self)^.&set := $00000010;
  59117. end;
  59118. function TDMAC7_DCH7CON.getCHAEN : TBits_1; inline;
  59119. begin
  59120. getCHAEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  59121. end;
  59122. procedure TDMAC7_DCH7CON.setCHCHN; inline;
  59123. begin
  59124. pTDefRegMap(@Self)^.&set := $00000020;
  59125. end;
  59126. procedure TDMAC7_DCH7CON.clearCHCHN; inline;
  59127. begin
  59128. pTDefRegMap(@Self)^.clr := $00000020;
  59129. end;
  59130. procedure TDMAC7_DCH7CON.setCHCHN(thebits : TBits_1); inline;
  59131. begin
  59132. if thebits = 0 then
  59133. pTDefRegMap(@Self)^.clr := $00000020
  59134. else
  59135. pTDefRegMap(@Self)^.&set := $00000020;
  59136. end;
  59137. function TDMAC7_DCH7CON.getCHCHN : TBits_1; inline;
  59138. begin
  59139. getCHCHN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  59140. end;
  59141. procedure TDMAC7_DCH7CON.setCHAED; inline;
  59142. begin
  59143. pTDefRegMap(@Self)^.&set := $00000040;
  59144. end;
  59145. procedure TDMAC7_DCH7CON.clearCHAED; inline;
  59146. begin
  59147. pTDefRegMap(@Self)^.clr := $00000040;
  59148. end;
  59149. procedure TDMAC7_DCH7CON.setCHAED(thebits : TBits_1); inline;
  59150. begin
  59151. if thebits = 0 then
  59152. pTDefRegMap(@Self)^.clr := $00000040
  59153. else
  59154. pTDefRegMap(@Self)^.&set := $00000040;
  59155. end;
  59156. function TDMAC7_DCH7CON.getCHAED : TBits_1; inline;
  59157. begin
  59158. getCHAED := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  59159. end;
  59160. procedure TDMAC7_DCH7CON.setCHEN; inline;
  59161. begin
  59162. pTDefRegMap(@Self)^.&set := $00000080;
  59163. end;
  59164. procedure TDMAC7_DCH7CON.clearCHEN; inline;
  59165. begin
  59166. pTDefRegMap(@Self)^.clr := $00000080;
  59167. end;
  59168. procedure TDMAC7_DCH7CON.setCHEN(thebits : TBits_1); inline;
  59169. begin
  59170. if thebits = 0 then
  59171. pTDefRegMap(@Self)^.clr := $00000080
  59172. else
  59173. pTDefRegMap(@Self)^.&set := $00000080;
  59174. end;
  59175. function TDMAC7_DCH7CON.getCHEN : TBits_1; inline;
  59176. begin
  59177. getCHEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  59178. end;
  59179. procedure TDMAC7_DCH7CON.setCHCHNS; inline;
  59180. begin
  59181. pTDefRegMap(@Self)^.&set := $00000100;
  59182. end;
  59183. procedure TDMAC7_DCH7CON.clearCHCHNS; inline;
  59184. begin
  59185. pTDefRegMap(@Self)^.clr := $00000100;
  59186. end;
  59187. procedure TDMAC7_DCH7CON.setCHCHNS(thebits : TBits_1); inline;
  59188. begin
  59189. if thebits = 0 then
  59190. pTDefRegMap(@Self)^.clr := $00000100
  59191. else
  59192. pTDefRegMap(@Self)^.&set := $00000100;
  59193. end;
  59194. function TDMAC7_DCH7CON.getCHCHNS : TBits_1; inline;
  59195. begin
  59196. getCHCHNS := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  59197. end;
  59198. procedure TDMAC7_DCH7CON.setCHBUSY; inline;
  59199. begin
  59200. pTDefRegMap(@Self)^.&set := $00008000;
  59201. end;
  59202. procedure TDMAC7_DCH7CON.clearCHBUSY; inline;
  59203. begin
  59204. pTDefRegMap(@Self)^.clr := $00008000;
  59205. end;
  59206. procedure TDMAC7_DCH7CON.setCHBUSY(thebits : TBits_1); inline;
  59207. begin
  59208. if thebits = 0 then
  59209. pTDefRegMap(@Self)^.clr := $00008000
  59210. else
  59211. pTDefRegMap(@Self)^.&set := $00008000;
  59212. end;
  59213. function TDMAC7_DCH7CON.getCHBUSY : TBits_1; inline;
  59214. begin
  59215. getCHBUSY := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  59216. end;
  59217. procedure TDMAC7_DCH7CON.setw(thebits : TBits_32); inline;
  59218. begin
  59219. pTDefRegMap(@Self)^.val := thebits;
  59220. end;
  59221. function TDMAC7_DCH7CON.getw : TBits_32; inline;
  59222. begin
  59223. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  59224. end;
  59225. procedure TDMAC7_DCH7ECON.setAIRQEN; inline;
  59226. begin
  59227. pTDefRegMap(@Self)^.&set := $00000008;
  59228. end;
  59229. procedure TDMAC7_DCH7ECON.clearAIRQEN; inline;
  59230. begin
  59231. pTDefRegMap(@Self)^.clr := $00000008;
  59232. end;
  59233. procedure TDMAC7_DCH7ECON.setAIRQEN(thebits : TBits_1); inline;
  59234. begin
  59235. if thebits = 0 then
  59236. pTDefRegMap(@Self)^.clr := $00000008
  59237. else
  59238. pTDefRegMap(@Self)^.&set := $00000008;
  59239. end;
  59240. function TDMAC7_DCH7ECON.getAIRQEN : TBits_1; inline;
  59241. begin
  59242. getAIRQEN := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  59243. end;
  59244. procedure TDMAC7_DCH7ECON.setSIRQEN; inline;
  59245. begin
  59246. pTDefRegMap(@Self)^.&set := $00000010;
  59247. end;
  59248. procedure TDMAC7_DCH7ECON.clearSIRQEN; inline;
  59249. begin
  59250. pTDefRegMap(@Self)^.clr := $00000010;
  59251. end;
  59252. procedure TDMAC7_DCH7ECON.setSIRQEN(thebits : TBits_1); inline;
  59253. begin
  59254. if thebits = 0 then
  59255. pTDefRegMap(@Self)^.clr := $00000010
  59256. else
  59257. pTDefRegMap(@Self)^.&set := $00000010;
  59258. end;
  59259. function TDMAC7_DCH7ECON.getSIRQEN : TBits_1; inline;
  59260. begin
  59261. getSIRQEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  59262. end;
  59263. procedure TDMAC7_DCH7ECON.setPATEN; inline;
  59264. begin
  59265. pTDefRegMap(@Self)^.&set := $00000020;
  59266. end;
  59267. procedure TDMAC7_DCH7ECON.clearPATEN; inline;
  59268. begin
  59269. pTDefRegMap(@Self)^.clr := $00000020;
  59270. end;
  59271. procedure TDMAC7_DCH7ECON.setPATEN(thebits : TBits_1); inline;
  59272. begin
  59273. if thebits = 0 then
  59274. pTDefRegMap(@Self)^.clr := $00000020
  59275. else
  59276. pTDefRegMap(@Self)^.&set := $00000020;
  59277. end;
  59278. function TDMAC7_DCH7ECON.getPATEN : TBits_1; inline;
  59279. begin
  59280. getPATEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  59281. end;
  59282. procedure TDMAC7_DCH7ECON.setCABORT; inline;
  59283. begin
  59284. pTDefRegMap(@Self)^.&set := $00000040;
  59285. end;
  59286. procedure TDMAC7_DCH7ECON.clearCABORT; inline;
  59287. begin
  59288. pTDefRegMap(@Self)^.clr := $00000040;
  59289. end;
  59290. procedure TDMAC7_DCH7ECON.setCABORT(thebits : TBits_1); inline;
  59291. begin
  59292. if thebits = 0 then
  59293. pTDefRegMap(@Self)^.clr := $00000040
  59294. else
  59295. pTDefRegMap(@Self)^.&set := $00000040;
  59296. end;
  59297. function TDMAC7_DCH7ECON.getCABORT : TBits_1; inline;
  59298. begin
  59299. getCABORT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  59300. end;
  59301. procedure TDMAC7_DCH7ECON.setCFORCE; inline;
  59302. begin
  59303. pTDefRegMap(@Self)^.&set := $00000080;
  59304. end;
  59305. procedure TDMAC7_DCH7ECON.clearCFORCE; inline;
  59306. begin
  59307. pTDefRegMap(@Self)^.clr := $00000080;
  59308. end;
  59309. procedure TDMAC7_DCH7ECON.setCFORCE(thebits : TBits_1); inline;
  59310. begin
  59311. if thebits = 0 then
  59312. pTDefRegMap(@Self)^.clr := $00000080
  59313. else
  59314. pTDefRegMap(@Self)^.&set := $00000080;
  59315. end;
  59316. function TDMAC7_DCH7ECON.getCFORCE : TBits_1; inline;
  59317. begin
  59318. getCFORCE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  59319. end;
  59320. procedure TDMAC7_DCH7ECON.setCHSIRQ(thebits : TBits_8); inline;
  59321. begin
  59322. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF00FF or ( thebits shl 8 );
  59323. end;
  59324. function TDMAC7_DCH7ECON.getCHSIRQ : TBits_8; inline;
  59325. begin
  59326. getCHSIRQ := (pTDefRegMap(@Self)^.val and $0000FF00) shr 8;
  59327. end;
  59328. procedure TDMAC7_DCH7ECON.setCHAIRQ(thebits : TBits_8); inline;
  59329. begin
  59330. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
  59331. end;
  59332. function TDMAC7_DCH7ECON.getCHAIRQ : TBits_8; inline;
  59333. begin
  59334. getCHAIRQ := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
  59335. end;
  59336. procedure TDMAC7_DCH7ECON.setw(thebits : TBits_32); inline;
  59337. begin
  59338. pTDefRegMap(@Self)^.val := thebits;
  59339. end;
  59340. function TDMAC7_DCH7ECON.getw : TBits_32; inline;
  59341. begin
  59342. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  59343. end;
  59344. procedure TDMAC7_DCH7INT.setCHERIF; inline;
  59345. begin
  59346. pTDefRegMap(@Self)^.&set := $00000001;
  59347. end;
  59348. procedure TDMAC7_DCH7INT.clearCHERIF; inline;
  59349. begin
  59350. pTDefRegMap(@Self)^.clr := $00000001;
  59351. end;
  59352. procedure TDMAC7_DCH7INT.setCHERIF(thebits : TBits_1); inline;
  59353. begin
  59354. if thebits = 0 then
  59355. pTDefRegMap(@Self)^.clr := $00000001
  59356. else
  59357. pTDefRegMap(@Self)^.&set := $00000001;
  59358. end;
  59359. function TDMAC7_DCH7INT.getCHERIF : TBits_1; inline;
  59360. begin
  59361. getCHERIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  59362. end;
  59363. procedure TDMAC7_DCH7INT.setCHTAIF; inline;
  59364. begin
  59365. pTDefRegMap(@Self)^.&set := $00000002;
  59366. end;
  59367. procedure TDMAC7_DCH7INT.clearCHTAIF; inline;
  59368. begin
  59369. pTDefRegMap(@Self)^.clr := $00000002;
  59370. end;
  59371. procedure TDMAC7_DCH7INT.setCHTAIF(thebits : TBits_1); inline;
  59372. begin
  59373. if thebits = 0 then
  59374. pTDefRegMap(@Self)^.clr := $00000002
  59375. else
  59376. pTDefRegMap(@Self)^.&set := $00000002;
  59377. end;
  59378. function TDMAC7_DCH7INT.getCHTAIF : TBits_1; inline;
  59379. begin
  59380. getCHTAIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  59381. end;
  59382. procedure TDMAC7_DCH7INT.setCHCCIF; inline;
  59383. begin
  59384. pTDefRegMap(@Self)^.&set := $00000004;
  59385. end;
  59386. procedure TDMAC7_DCH7INT.clearCHCCIF; inline;
  59387. begin
  59388. pTDefRegMap(@Self)^.clr := $00000004;
  59389. end;
  59390. procedure TDMAC7_DCH7INT.setCHCCIF(thebits : TBits_1); inline;
  59391. begin
  59392. if thebits = 0 then
  59393. pTDefRegMap(@Self)^.clr := $00000004
  59394. else
  59395. pTDefRegMap(@Self)^.&set := $00000004;
  59396. end;
  59397. function TDMAC7_DCH7INT.getCHCCIF : TBits_1; inline;
  59398. begin
  59399. getCHCCIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  59400. end;
  59401. procedure TDMAC7_DCH7INT.setCHBCIF; inline;
  59402. begin
  59403. pTDefRegMap(@Self)^.&set := $00000008;
  59404. end;
  59405. procedure TDMAC7_DCH7INT.clearCHBCIF; inline;
  59406. begin
  59407. pTDefRegMap(@Self)^.clr := $00000008;
  59408. end;
  59409. procedure TDMAC7_DCH7INT.setCHBCIF(thebits : TBits_1); inline;
  59410. begin
  59411. if thebits = 0 then
  59412. pTDefRegMap(@Self)^.clr := $00000008
  59413. else
  59414. pTDefRegMap(@Self)^.&set := $00000008;
  59415. end;
  59416. function TDMAC7_DCH7INT.getCHBCIF : TBits_1; inline;
  59417. begin
  59418. getCHBCIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  59419. end;
  59420. procedure TDMAC7_DCH7INT.setCHDHIF; inline;
  59421. begin
  59422. pTDefRegMap(@Self)^.&set := $00000010;
  59423. end;
  59424. procedure TDMAC7_DCH7INT.clearCHDHIF; inline;
  59425. begin
  59426. pTDefRegMap(@Self)^.clr := $00000010;
  59427. end;
  59428. procedure TDMAC7_DCH7INT.setCHDHIF(thebits : TBits_1); inline;
  59429. begin
  59430. if thebits = 0 then
  59431. pTDefRegMap(@Self)^.clr := $00000010
  59432. else
  59433. pTDefRegMap(@Self)^.&set := $00000010;
  59434. end;
  59435. function TDMAC7_DCH7INT.getCHDHIF : TBits_1; inline;
  59436. begin
  59437. getCHDHIF := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  59438. end;
  59439. procedure TDMAC7_DCH7INT.setCHDDIF; inline;
  59440. begin
  59441. pTDefRegMap(@Self)^.&set := $00000020;
  59442. end;
  59443. procedure TDMAC7_DCH7INT.clearCHDDIF; inline;
  59444. begin
  59445. pTDefRegMap(@Self)^.clr := $00000020;
  59446. end;
  59447. procedure TDMAC7_DCH7INT.setCHDDIF(thebits : TBits_1); inline;
  59448. begin
  59449. if thebits = 0 then
  59450. pTDefRegMap(@Self)^.clr := $00000020
  59451. else
  59452. pTDefRegMap(@Self)^.&set := $00000020;
  59453. end;
  59454. function TDMAC7_DCH7INT.getCHDDIF : TBits_1; inline;
  59455. begin
  59456. getCHDDIF := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  59457. end;
  59458. procedure TDMAC7_DCH7INT.setCHSHIF; inline;
  59459. begin
  59460. pTDefRegMap(@Self)^.&set := $00000040;
  59461. end;
  59462. procedure TDMAC7_DCH7INT.clearCHSHIF; inline;
  59463. begin
  59464. pTDefRegMap(@Self)^.clr := $00000040;
  59465. end;
  59466. procedure TDMAC7_DCH7INT.setCHSHIF(thebits : TBits_1); inline;
  59467. begin
  59468. if thebits = 0 then
  59469. pTDefRegMap(@Self)^.clr := $00000040
  59470. else
  59471. pTDefRegMap(@Self)^.&set := $00000040;
  59472. end;
  59473. function TDMAC7_DCH7INT.getCHSHIF : TBits_1; inline;
  59474. begin
  59475. getCHSHIF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  59476. end;
  59477. procedure TDMAC7_DCH7INT.setCHSDIF; inline;
  59478. begin
  59479. pTDefRegMap(@Self)^.&set := $00000080;
  59480. end;
  59481. procedure TDMAC7_DCH7INT.clearCHSDIF; inline;
  59482. begin
  59483. pTDefRegMap(@Self)^.clr := $00000080;
  59484. end;
  59485. procedure TDMAC7_DCH7INT.setCHSDIF(thebits : TBits_1); inline;
  59486. begin
  59487. if thebits = 0 then
  59488. pTDefRegMap(@Self)^.clr := $00000080
  59489. else
  59490. pTDefRegMap(@Self)^.&set := $00000080;
  59491. end;
  59492. function TDMAC7_DCH7INT.getCHSDIF : TBits_1; inline;
  59493. begin
  59494. getCHSDIF := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  59495. end;
  59496. procedure TDMAC7_DCH7INT.setCHERIE; inline;
  59497. begin
  59498. pTDefRegMap(@Self)^.&set := $00010000;
  59499. end;
  59500. procedure TDMAC7_DCH7INT.clearCHERIE; inline;
  59501. begin
  59502. pTDefRegMap(@Self)^.clr := $00010000;
  59503. end;
  59504. procedure TDMAC7_DCH7INT.setCHERIE(thebits : TBits_1); inline;
  59505. begin
  59506. if thebits = 0 then
  59507. pTDefRegMap(@Self)^.clr := $00010000
  59508. else
  59509. pTDefRegMap(@Self)^.&set := $00010000;
  59510. end;
  59511. function TDMAC7_DCH7INT.getCHERIE : TBits_1; inline;
  59512. begin
  59513. getCHERIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  59514. end;
  59515. procedure TDMAC7_DCH7INT.setCHTAIE; inline;
  59516. begin
  59517. pTDefRegMap(@Self)^.&set := $00020000;
  59518. end;
  59519. procedure TDMAC7_DCH7INT.clearCHTAIE; inline;
  59520. begin
  59521. pTDefRegMap(@Self)^.clr := $00020000;
  59522. end;
  59523. procedure TDMAC7_DCH7INT.setCHTAIE(thebits : TBits_1); inline;
  59524. begin
  59525. if thebits = 0 then
  59526. pTDefRegMap(@Self)^.clr := $00020000
  59527. else
  59528. pTDefRegMap(@Self)^.&set := $00020000;
  59529. end;
  59530. function TDMAC7_DCH7INT.getCHTAIE : TBits_1; inline;
  59531. begin
  59532. getCHTAIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  59533. end;
  59534. procedure TDMAC7_DCH7INT.setCHCCIE; inline;
  59535. begin
  59536. pTDefRegMap(@Self)^.&set := $00040000;
  59537. end;
  59538. procedure TDMAC7_DCH7INT.clearCHCCIE; inline;
  59539. begin
  59540. pTDefRegMap(@Self)^.clr := $00040000;
  59541. end;
  59542. procedure TDMAC7_DCH7INT.setCHCCIE(thebits : TBits_1); inline;
  59543. begin
  59544. if thebits = 0 then
  59545. pTDefRegMap(@Self)^.clr := $00040000
  59546. else
  59547. pTDefRegMap(@Self)^.&set := $00040000;
  59548. end;
  59549. function TDMAC7_DCH7INT.getCHCCIE : TBits_1; inline;
  59550. begin
  59551. getCHCCIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  59552. end;
  59553. procedure TDMAC7_DCH7INT.setCHBCIE; inline;
  59554. begin
  59555. pTDefRegMap(@Self)^.&set := $00080000;
  59556. end;
  59557. procedure TDMAC7_DCH7INT.clearCHBCIE; inline;
  59558. begin
  59559. pTDefRegMap(@Self)^.clr := $00080000;
  59560. end;
  59561. procedure TDMAC7_DCH7INT.setCHBCIE(thebits : TBits_1); inline;
  59562. begin
  59563. if thebits = 0 then
  59564. pTDefRegMap(@Self)^.clr := $00080000
  59565. else
  59566. pTDefRegMap(@Self)^.&set := $00080000;
  59567. end;
  59568. function TDMAC7_DCH7INT.getCHBCIE : TBits_1; inline;
  59569. begin
  59570. getCHBCIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  59571. end;
  59572. procedure TDMAC7_DCH7INT.setCHDHIE; inline;
  59573. begin
  59574. pTDefRegMap(@Self)^.&set := $00100000;
  59575. end;
  59576. procedure TDMAC7_DCH7INT.clearCHDHIE; inline;
  59577. begin
  59578. pTDefRegMap(@Self)^.clr := $00100000;
  59579. end;
  59580. procedure TDMAC7_DCH7INT.setCHDHIE(thebits : TBits_1); inline;
  59581. begin
  59582. if thebits = 0 then
  59583. pTDefRegMap(@Self)^.clr := $00100000
  59584. else
  59585. pTDefRegMap(@Self)^.&set := $00100000;
  59586. end;
  59587. function TDMAC7_DCH7INT.getCHDHIE : TBits_1; inline;
  59588. begin
  59589. getCHDHIE := (pTDefRegMap(@Self)^.val and $00100000) shr 20;
  59590. end;
  59591. procedure TDMAC7_DCH7INT.setCHDDIE; inline;
  59592. begin
  59593. pTDefRegMap(@Self)^.&set := $00200000;
  59594. end;
  59595. procedure TDMAC7_DCH7INT.clearCHDDIE; inline;
  59596. begin
  59597. pTDefRegMap(@Self)^.clr := $00200000;
  59598. end;
  59599. procedure TDMAC7_DCH7INT.setCHDDIE(thebits : TBits_1); inline;
  59600. begin
  59601. if thebits = 0 then
  59602. pTDefRegMap(@Self)^.clr := $00200000
  59603. else
  59604. pTDefRegMap(@Self)^.&set := $00200000;
  59605. end;
  59606. function TDMAC7_DCH7INT.getCHDDIE : TBits_1; inline;
  59607. begin
  59608. getCHDDIE := (pTDefRegMap(@Self)^.val and $00200000) shr 21;
  59609. end;
  59610. procedure TDMAC7_DCH7INT.setCHSHIE; inline;
  59611. begin
  59612. pTDefRegMap(@Self)^.&set := $00400000;
  59613. end;
  59614. procedure TDMAC7_DCH7INT.clearCHSHIE; inline;
  59615. begin
  59616. pTDefRegMap(@Self)^.clr := $00400000;
  59617. end;
  59618. procedure TDMAC7_DCH7INT.setCHSHIE(thebits : TBits_1); inline;
  59619. begin
  59620. if thebits = 0 then
  59621. pTDefRegMap(@Self)^.clr := $00400000
  59622. else
  59623. pTDefRegMap(@Self)^.&set := $00400000;
  59624. end;
  59625. function TDMAC7_DCH7INT.getCHSHIE : TBits_1; inline;
  59626. begin
  59627. getCHSHIE := (pTDefRegMap(@Self)^.val and $00400000) shr 22;
  59628. end;
  59629. procedure TDMAC7_DCH7INT.setCHSDIE; inline;
  59630. begin
  59631. pTDefRegMap(@Self)^.&set := $00800000;
  59632. end;
  59633. procedure TDMAC7_DCH7INT.clearCHSDIE; inline;
  59634. begin
  59635. pTDefRegMap(@Self)^.clr := $00800000;
  59636. end;
  59637. procedure TDMAC7_DCH7INT.setCHSDIE(thebits : TBits_1); inline;
  59638. begin
  59639. if thebits = 0 then
  59640. pTDefRegMap(@Self)^.clr := $00800000
  59641. else
  59642. pTDefRegMap(@Self)^.&set := $00800000;
  59643. end;
  59644. function TDMAC7_DCH7INT.getCHSDIE : TBits_1; inline;
  59645. begin
  59646. getCHSDIE := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
  59647. end;
  59648. procedure TDMAC7_DCH7INT.setw(thebits : TBits_32); inline;
  59649. begin
  59650. pTDefRegMap(@Self)^.val := thebits;
  59651. end;
  59652. function TDMAC7_DCH7INT.getw : TBits_32; inline;
  59653. begin
  59654. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  59655. end;
  59656. procedure TPCACHE_CHECON.setPFMWS(thebits : TBits_3); inline;
  59657. begin
  59658. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  59659. end;
  59660. function TPCACHE_CHECON.getPFMWS : TBits_3; inline;
  59661. begin
  59662. getPFMWS := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  59663. end;
  59664. procedure TPCACHE_CHECON.setPREFEN(thebits : TBits_2); inline;
  59665. begin
  59666. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFCF or ( thebits shl 4 );
  59667. end;
  59668. function TPCACHE_CHECON.getPREFEN : TBits_2; inline;
  59669. begin
  59670. getPREFEN := (pTDefRegMap(@Self)^.val and $00000030) shr 4;
  59671. end;
  59672. procedure TPCACHE_CHECON.setDCSZ(thebits : TBits_2); inline;
  59673. begin
  59674. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  59675. end;
  59676. function TPCACHE_CHECON.getDCSZ : TBits_2; inline;
  59677. begin
  59678. getDCSZ := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  59679. end;
  59680. procedure TPCACHE_CHECON.setCHECOH; inline;
  59681. begin
  59682. pTDefRegMap(@Self)^.&set := $00010000;
  59683. end;
  59684. procedure TPCACHE_CHECON.clearCHECOH; inline;
  59685. begin
  59686. pTDefRegMap(@Self)^.clr := $00010000;
  59687. end;
  59688. procedure TPCACHE_CHECON.setCHECOH(thebits : TBits_1); inline;
  59689. begin
  59690. if thebits = 0 then
  59691. pTDefRegMap(@Self)^.clr := $00010000
  59692. else
  59693. pTDefRegMap(@Self)^.&set := $00010000;
  59694. end;
  59695. function TPCACHE_CHECON.getCHECOH : TBits_1; inline;
  59696. begin
  59697. getCHECOH := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  59698. end;
  59699. procedure TPCACHE_CHECON.setw(thebits : TBits_32); inline;
  59700. begin
  59701. pTDefRegMap(@Self)^.val := thebits;
  59702. end;
  59703. function TPCACHE_CHECON.getw : TBits_32; inline;
  59704. begin
  59705. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  59706. end;
  59707. procedure TPCACHE_CHETAG.setLTYPE; inline;
  59708. begin
  59709. pTDefRegMap(@Self)^.&set := $00000002;
  59710. end;
  59711. procedure TPCACHE_CHETAG.clearLTYPE; inline;
  59712. begin
  59713. pTDefRegMap(@Self)^.clr := $00000002;
  59714. end;
  59715. procedure TPCACHE_CHETAG.setLTYPE(thebits : TBits_1); inline;
  59716. begin
  59717. if thebits = 0 then
  59718. pTDefRegMap(@Self)^.clr := $00000002
  59719. else
  59720. pTDefRegMap(@Self)^.&set := $00000002;
  59721. end;
  59722. function TPCACHE_CHETAG.getLTYPE : TBits_1; inline;
  59723. begin
  59724. getLTYPE := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  59725. end;
  59726. procedure TPCACHE_CHETAG.setLLOCK; inline;
  59727. begin
  59728. pTDefRegMap(@Self)^.&set := $00000004;
  59729. end;
  59730. procedure TPCACHE_CHETAG.clearLLOCK; inline;
  59731. begin
  59732. pTDefRegMap(@Self)^.clr := $00000004;
  59733. end;
  59734. procedure TPCACHE_CHETAG.setLLOCK(thebits : TBits_1); inline;
  59735. begin
  59736. if thebits = 0 then
  59737. pTDefRegMap(@Self)^.clr := $00000004
  59738. else
  59739. pTDefRegMap(@Self)^.&set := $00000004;
  59740. end;
  59741. function TPCACHE_CHETAG.getLLOCK : TBits_1; inline;
  59742. begin
  59743. getLLOCK := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  59744. end;
  59745. procedure TPCACHE_CHETAG.setLVALID; inline;
  59746. begin
  59747. pTDefRegMap(@Self)^.&set := $00000008;
  59748. end;
  59749. procedure TPCACHE_CHETAG.clearLVALID; inline;
  59750. begin
  59751. pTDefRegMap(@Self)^.clr := $00000008;
  59752. end;
  59753. procedure TPCACHE_CHETAG.setLVALID(thebits : TBits_1); inline;
  59754. begin
  59755. if thebits = 0 then
  59756. pTDefRegMap(@Self)^.clr := $00000008
  59757. else
  59758. pTDefRegMap(@Self)^.&set := $00000008;
  59759. end;
  59760. function TPCACHE_CHETAG.getLVALID : TBits_1; inline;
  59761. begin
  59762. getLVALID := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  59763. end;
  59764. procedure TPCACHE_CHETAG.setLTAG(thebits : TBits_20); inline;
  59765. begin
  59766. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00000F or ( thebits shl 4 );
  59767. end;
  59768. function TPCACHE_CHETAG.getLTAG : TBits_20; inline;
  59769. begin
  59770. getLTAG := (pTDefRegMap(@Self)^.val and $00FFFFF0) shr 4;
  59771. end;
  59772. procedure TPCACHE_CHETAG.setLTAGBOOT; inline;
  59773. begin
  59774. pTDefRegMap(@Self)^.&set := $80000000;
  59775. end;
  59776. procedure TPCACHE_CHETAG.clearLTAGBOOT; inline;
  59777. begin
  59778. pTDefRegMap(@Self)^.clr := $80000000;
  59779. end;
  59780. procedure TPCACHE_CHETAG.setLTAGBOOT(thebits : TBits_1); inline;
  59781. begin
  59782. if thebits = 0 then
  59783. pTDefRegMap(@Self)^.clr := $80000000
  59784. else
  59785. pTDefRegMap(@Self)^.&set := $80000000;
  59786. end;
  59787. function TPCACHE_CHETAG.getLTAGBOOT : TBits_1; inline;
  59788. begin
  59789. getLTAGBOOT := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  59790. end;
  59791. procedure TPCACHE_CHETAG.setw(thebits : TBits_32); inline;
  59792. begin
  59793. pTDefRegMap(@Self)^.val := thebits;
  59794. end;
  59795. function TPCACHE_CHETAG.getw : TBits_32; inline;
  59796. begin
  59797. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  59798. end;
  59799. procedure TUSB_U1IR.setURSTIF_DETACHIF; inline;
  59800. begin
  59801. pTDefRegMap(@Self)^.&set := $00000001;
  59802. end;
  59803. procedure TUSB_U1IR.clearURSTIF_DETACHIF; inline;
  59804. begin
  59805. pTDefRegMap(@Self)^.clr := $00000001;
  59806. end;
  59807. procedure TUSB_U1IR.setURSTIF_DETACHIF(thebits : TBits_1); inline;
  59808. begin
  59809. if thebits = 0 then
  59810. pTDefRegMap(@Self)^.clr := $00000001
  59811. else
  59812. pTDefRegMap(@Self)^.&set := $00000001;
  59813. end;
  59814. function TUSB_U1IR.getURSTIF_DETACHIF : TBits_1; inline;
  59815. begin
  59816. getURSTIF_DETACHIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  59817. end;
  59818. procedure TUSB_U1IR.setUERRIF; inline;
  59819. begin
  59820. pTDefRegMap(@Self)^.&set := $00000002;
  59821. end;
  59822. procedure TUSB_U1IR.clearUERRIF; inline;
  59823. begin
  59824. pTDefRegMap(@Self)^.clr := $00000002;
  59825. end;
  59826. procedure TUSB_U1IR.setUERRIF(thebits : TBits_1); inline;
  59827. begin
  59828. if thebits = 0 then
  59829. pTDefRegMap(@Self)^.clr := $00000002
  59830. else
  59831. pTDefRegMap(@Self)^.&set := $00000002;
  59832. end;
  59833. function TUSB_U1IR.getUERRIF : TBits_1; inline;
  59834. begin
  59835. getUERRIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  59836. end;
  59837. procedure TUSB_U1IR.setSOFIF; inline;
  59838. begin
  59839. pTDefRegMap(@Self)^.&set := $00000004;
  59840. end;
  59841. procedure TUSB_U1IR.clearSOFIF; inline;
  59842. begin
  59843. pTDefRegMap(@Self)^.clr := $00000004;
  59844. end;
  59845. procedure TUSB_U1IR.setSOFIF(thebits : TBits_1); inline;
  59846. begin
  59847. if thebits = 0 then
  59848. pTDefRegMap(@Self)^.clr := $00000004
  59849. else
  59850. pTDefRegMap(@Self)^.&set := $00000004;
  59851. end;
  59852. function TUSB_U1IR.getSOFIF : TBits_1; inline;
  59853. begin
  59854. getSOFIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  59855. end;
  59856. procedure TUSB_U1IR.setTRNIF; inline;
  59857. begin
  59858. pTDefRegMap(@Self)^.&set := $00000008;
  59859. end;
  59860. procedure TUSB_U1IR.clearTRNIF; inline;
  59861. begin
  59862. pTDefRegMap(@Self)^.clr := $00000008;
  59863. end;
  59864. procedure TUSB_U1IR.setTRNIF(thebits : TBits_1); inline;
  59865. begin
  59866. if thebits = 0 then
  59867. pTDefRegMap(@Self)^.clr := $00000008
  59868. else
  59869. pTDefRegMap(@Self)^.&set := $00000008;
  59870. end;
  59871. function TUSB_U1IR.getTRNIF : TBits_1; inline;
  59872. begin
  59873. getTRNIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  59874. end;
  59875. procedure TUSB_U1IR.setIDLEIF; inline;
  59876. begin
  59877. pTDefRegMap(@Self)^.&set := $00000010;
  59878. end;
  59879. procedure TUSB_U1IR.clearIDLEIF; inline;
  59880. begin
  59881. pTDefRegMap(@Self)^.clr := $00000010;
  59882. end;
  59883. procedure TUSB_U1IR.setIDLEIF(thebits : TBits_1); inline;
  59884. begin
  59885. if thebits = 0 then
  59886. pTDefRegMap(@Self)^.clr := $00000010
  59887. else
  59888. pTDefRegMap(@Self)^.&set := $00000010;
  59889. end;
  59890. function TUSB_U1IR.getIDLEIF : TBits_1; inline;
  59891. begin
  59892. getIDLEIF := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  59893. end;
  59894. procedure TUSB_U1IR.setRESUMEIF; inline;
  59895. begin
  59896. pTDefRegMap(@Self)^.&set := $00000020;
  59897. end;
  59898. procedure TUSB_U1IR.clearRESUMEIF; inline;
  59899. begin
  59900. pTDefRegMap(@Self)^.clr := $00000020;
  59901. end;
  59902. procedure TUSB_U1IR.setRESUMEIF(thebits : TBits_1); inline;
  59903. begin
  59904. if thebits = 0 then
  59905. pTDefRegMap(@Self)^.clr := $00000020
  59906. else
  59907. pTDefRegMap(@Self)^.&set := $00000020;
  59908. end;
  59909. function TUSB_U1IR.getRESUMEIF : TBits_1; inline;
  59910. begin
  59911. getRESUMEIF := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  59912. end;
  59913. procedure TUSB_U1IR.setATTACHIF; inline;
  59914. begin
  59915. pTDefRegMap(@Self)^.&set := $00000040;
  59916. end;
  59917. procedure TUSB_U1IR.clearATTACHIF; inline;
  59918. begin
  59919. pTDefRegMap(@Self)^.clr := $00000040;
  59920. end;
  59921. procedure TUSB_U1IR.setATTACHIF(thebits : TBits_1); inline;
  59922. begin
  59923. if thebits = 0 then
  59924. pTDefRegMap(@Self)^.clr := $00000040
  59925. else
  59926. pTDefRegMap(@Self)^.&set := $00000040;
  59927. end;
  59928. function TUSB_U1IR.getATTACHIF : TBits_1; inline;
  59929. begin
  59930. getATTACHIF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  59931. end;
  59932. procedure TUSB_U1IR.setSTALLIF; inline;
  59933. begin
  59934. pTDefRegMap(@Self)^.&set := $00000080;
  59935. end;
  59936. procedure TUSB_U1IR.clearSTALLIF; inline;
  59937. begin
  59938. pTDefRegMap(@Self)^.clr := $00000080;
  59939. end;
  59940. procedure TUSB_U1IR.setSTALLIF(thebits : TBits_1); inline;
  59941. begin
  59942. if thebits = 0 then
  59943. pTDefRegMap(@Self)^.clr := $00000080
  59944. else
  59945. pTDefRegMap(@Self)^.&set := $00000080;
  59946. end;
  59947. function TUSB_U1IR.getSTALLIF : TBits_1; inline;
  59948. begin
  59949. getSTALLIF := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  59950. end;
  59951. procedure TUSB_U1IR.setDETACHIF; inline;
  59952. begin
  59953. pTDefRegMap(@Self)^.&set := $00000001;
  59954. end;
  59955. procedure TUSB_U1IR.clearDETACHIF; inline;
  59956. begin
  59957. pTDefRegMap(@Self)^.clr := $00000001;
  59958. end;
  59959. procedure TUSB_U1IR.setDETACHIF(thebits : TBits_1); inline;
  59960. begin
  59961. if thebits = 0 then
  59962. pTDefRegMap(@Self)^.clr := $00000001
  59963. else
  59964. pTDefRegMap(@Self)^.&set := $00000001;
  59965. end;
  59966. function TUSB_U1IR.getDETACHIF : TBits_1; inline;
  59967. begin
  59968. getDETACHIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  59969. end;
  59970. procedure TUSB_U1IR.setURSTIF; inline;
  59971. begin
  59972. pTDefRegMap(@Self)^.&set := $00000001;
  59973. end;
  59974. procedure TUSB_U1IR.clearURSTIF; inline;
  59975. begin
  59976. pTDefRegMap(@Self)^.clr := $00000001;
  59977. end;
  59978. procedure TUSB_U1IR.setURSTIF(thebits : TBits_1); inline;
  59979. begin
  59980. if thebits = 0 then
  59981. pTDefRegMap(@Self)^.clr := $00000001
  59982. else
  59983. pTDefRegMap(@Self)^.&set := $00000001;
  59984. end;
  59985. function TUSB_U1IR.getURSTIF : TBits_1; inline;
  59986. begin
  59987. getURSTIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  59988. end;
  59989. procedure TUSB_U1IE.setURSTIE_DETACHIE; inline;
  59990. begin
  59991. pTDefRegMap(@Self)^.&set := $00000001;
  59992. end;
  59993. procedure TUSB_U1IE.clearURSTIE_DETACHIE; inline;
  59994. begin
  59995. pTDefRegMap(@Self)^.clr := $00000001;
  59996. end;
  59997. procedure TUSB_U1IE.setURSTIE_DETACHIE(thebits : TBits_1); inline;
  59998. begin
  59999. if thebits = 0 then
  60000. pTDefRegMap(@Self)^.clr := $00000001
  60001. else
  60002. pTDefRegMap(@Self)^.&set := $00000001;
  60003. end;
  60004. function TUSB_U1IE.getURSTIE_DETACHIE : TBits_1; inline;
  60005. begin
  60006. getURSTIE_DETACHIE := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  60007. end;
  60008. procedure TUSB_U1IE.setUERRIE; inline;
  60009. begin
  60010. pTDefRegMap(@Self)^.&set := $00000002;
  60011. end;
  60012. procedure TUSB_U1IE.clearUERRIE; inline;
  60013. begin
  60014. pTDefRegMap(@Self)^.clr := $00000002;
  60015. end;
  60016. procedure TUSB_U1IE.setUERRIE(thebits : TBits_1); inline;
  60017. begin
  60018. if thebits = 0 then
  60019. pTDefRegMap(@Self)^.clr := $00000002
  60020. else
  60021. pTDefRegMap(@Self)^.&set := $00000002;
  60022. end;
  60023. function TUSB_U1IE.getUERRIE : TBits_1; inline;
  60024. begin
  60025. getUERRIE := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  60026. end;
  60027. procedure TUSB_U1IE.setSOFIE; inline;
  60028. begin
  60029. pTDefRegMap(@Self)^.&set := $00000004;
  60030. end;
  60031. procedure TUSB_U1IE.clearSOFIE; inline;
  60032. begin
  60033. pTDefRegMap(@Self)^.clr := $00000004;
  60034. end;
  60035. procedure TUSB_U1IE.setSOFIE(thebits : TBits_1); inline;
  60036. begin
  60037. if thebits = 0 then
  60038. pTDefRegMap(@Self)^.clr := $00000004
  60039. else
  60040. pTDefRegMap(@Self)^.&set := $00000004;
  60041. end;
  60042. function TUSB_U1IE.getSOFIE : TBits_1; inline;
  60043. begin
  60044. getSOFIE := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  60045. end;
  60046. procedure TUSB_U1IE.setTRNIE; inline;
  60047. begin
  60048. pTDefRegMap(@Self)^.&set := $00000008;
  60049. end;
  60050. procedure TUSB_U1IE.clearTRNIE; inline;
  60051. begin
  60052. pTDefRegMap(@Self)^.clr := $00000008;
  60053. end;
  60054. procedure TUSB_U1IE.setTRNIE(thebits : TBits_1); inline;
  60055. begin
  60056. if thebits = 0 then
  60057. pTDefRegMap(@Self)^.clr := $00000008
  60058. else
  60059. pTDefRegMap(@Self)^.&set := $00000008;
  60060. end;
  60061. function TUSB_U1IE.getTRNIE : TBits_1; inline;
  60062. begin
  60063. getTRNIE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  60064. end;
  60065. procedure TUSB_U1IE.setIDLEIE; inline;
  60066. begin
  60067. pTDefRegMap(@Self)^.&set := $00000010;
  60068. end;
  60069. procedure TUSB_U1IE.clearIDLEIE; inline;
  60070. begin
  60071. pTDefRegMap(@Self)^.clr := $00000010;
  60072. end;
  60073. procedure TUSB_U1IE.setIDLEIE(thebits : TBits_1); inline;
  60074. begin
  60075. if thebits = 0 then
  60076. pTDefRegMap(@Self)^.clr := $00000010
  60077. else
  60078. pTDefRegMap(@Self)^.&set := $00000010;
  60079. end;
  60080. function TUSB_U1IE.getIDLEIE : TBits_1; inline;
  60081. begin
  60082. getIDLEIE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  60083. end;
  60084. procedure TUSB_U1IE.setRESUMEIE; inline;
  60085. begin
  60086. pTDefRegMap(@Self)^.&set := $00000020;
  60087. end;
  60088. procedure TUSB_U1IE.clearRESUMEIE; inline;
  60089. begin
  60090. pTDefRegMap(@Self)^.clr := $00000020;
  60091. end;
  60092. procedure TUSB_U1IE.setRESUMEIE(thebits : TBits_1); inline;
  60093. begin
  60094. if thebits = 0 then
  60095. pTDefRegMap(@Self)^.clr := $00000020
  60096. else
  60097. pTDefRegMap(@Self)^.&set := $00000020;
  60098. end;
  60099. function TUSB_U1IE.getRESUMEIE : TBits_1; inline;
  60100. begin
  60101. getRESUMEIE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  60102. end;
  60103. procedure TUSB_U1IE.setATTACHIE; inline;
  60104. begin
  60105. pTDefRegMap(@Self)^.&set := $00000040;
  60106. end;
  60107. procedure TUSB_U1IE.clearATTACHIE; inline;
  60108. begin
  60109. pTDefRegMap(@Self)^.clr := $00000040;
  60110. end;
  60111. procedure TUSB_U1IE.setATTACHIE(thebits : TBits_1); inline;
  60112. begin
  60113. if thebits = 0 then
  60114. pTDefRegMap(@Self)^.clr := $00000040
  60115. else
  60116. pTDefRegMap(@Self)^.&set := $00000040;
  60117. end;
  60118. function TUSB_U1IE.getATTACHIE : TBits_1; inline;
  60119. begin
  60120. getATTACHIE := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  60121. end;
  60122. procedure TUSB_U1IE.setSTALLIE; inline;
  60123. begin
  60124. pTDefRegMap(@Self)^.&set := $00000080;
  60125. end;
  60126. procedure TUSB_U1IE.clearSTALLIE; inline;
  60127. begin
  60128. pTDefRegMap(@Self)^.clr := $00000080;
  60129. end;
  60130. procedure TUSB_U1IE.setSTALLIE(thebits : TBits_1); inline;
  60131. begin
  60132. if thebits = 0 then
  60133. pTDefRegMap(@Self)^.clr := $00000080
  60134. else
  60135. pTDefRegMap(@Self)^.&set := $00000080;
  60136. end;
  60137. function TUSB_U1IE.getSTALLIE : TBits_1; inline;
  60138. begin
  60139. getSTALLIE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  60140. end;
  60141. procedure TUSB_U1IE.setDETACHIE; inline;
  60142. begin
  60143. pTDefRegMap(@Self)^.&set := $00000001;
  60144. end;
  60145. procedure TUSB_U1IE.clearDETACHIE; inline;
  60146. begin
  60147. pTDefRegMap(@Self)^.clr := $00000001;
  60148. end;
  60149. procedure TUSB_U1IE.setDETACHIE(thebits : TBits_1); inline;
  60150. begin
  60151. if thebits = 0 then
  60152. pTDefRegMap(@Self)^.clr := $00000001
  60153. else
  60154. pTDefRegMap(@Self)^.&set := $00000001;
  60155. end;
  60156. function TUSB_U1IE.getDETACHIE : TBits_1; inline;
  60157. begin
  60158. getDETACHIE := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  60159. end;
  60160. procedure TUSB_U1IE.setURSTIE; inline;
  60161. begin
  60162. pTDefRegMap(@Self)^.&set := $00000001;
  60163. end;
  60164. procedure TUSB_U1IE.clearURSTIE; inline;
  60165. begin
  60166. pTDefRegMap(@Self)^.clr := $00000001;
  60167. end;
  60168. procedure TUSB_U1IE.setURSTIE(thebits : TBits_1); inline;
  60169. begin
  60170. if thebits = 0 then
  60171. pTDefRegMap(@Self)^.clr := $00000001
  60172. else
  60173. pTDefRegMap(@Self)^.&set := $00000001;
  60174. end;
  60175. function TUSB_U1IE.getURSTIE : TBits_1; inline;
  60176. begin
  60177. getURSTIE := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  60178. end;
  60179. procedure TUSB_U1EIR.setPIDEF; inline;
  60180. begin
  60181. pTDefRegMap(@Self)^.&set := $00000001;
  60182. end;
  60183. procedure TUSB_U1EIR.clearPIDEF; inline;
  60184. begin
  60185. pTDefRegMap(@Self)^.clr := $00000001;
  60186. end;
  60187. procedure TUSB_U1EIR.setPIDEF(thebits : TBits_1); inline;
  60188. begin
  60189. if thebits = 0 then
  60190. pTDefRegMap(@Self)^.clr := $00000001
  60191. else
  60192. pTDefRegMap(@Self)^.&set := $00000001;
  60193. end;
  60194. function TUSB_U1EIR.getPIDEF : TBits_1; inline;
  60195. begin
  60196. getPIDEF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  60197. end;
  60198. procedure TUSB_U1EIR.setCRC5EF_EOFEF; inline;
  60199. begin
  60200. pTDefRegMap(@Self)^.&set := $00000002;
  60201. end;
  60202. procedure TUSB_U1EIR.clearCRC5EF_EOFEF; inline;
  60203. begin
  60204. pTDefRegMap(@Self)^.clr := $00000002;
  60205. end;
  60206. procedure TUSB_U1EIR.setCRC5EF_EOFEF(thebits : TBits_1); inline;
  60207. begin
  60208. if thebits = 0 then
  60209. pTDefRegMap(@Self)^.clr := $00000002
  60210. else
  60211. pTDefRegMap(@Self)^.&set := $00000002;
  60212. end;
  60213. function TUSB_U1EIR.getCRC5EF_EOFEF : TBits_1; inline;
  60214. begin
  60215. getCRC5EF_EOFEF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  60216. end;
  60217. procedure TUSB_U1EIR.setCRC16EF; inline;
  60218. begin
  60219. pTDefRegMap(@Self)^.&set := $00000004;
  60220. end;
  60221. procedure TUSB_U1EIR.clearCRC16EF; inline;
  60222. begin
  60223. pTDefRegMap(@Self)^.clr := $00000004;
  60224. end;
  60225. procedure TUSB_U1EIR.setCRC16EF(thebits : TBits_1); inline;
  60226. begin
  60227. if thebits = 0 then
  60228. pTDefRegMap(@Self)^.clr := $00000004
  60229. else
  60230. pTDefRegMap(@Self)^.&set := $00000004;
  60231. end;
  60232. function TUSB_U1EIR.getCRC16EF : TBits_1; inline;
  60233. begin
  60234. getCRC16EF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  60235. end;
  60236. procedure TUSB_U1EIR.setDFN8EF; inline;
  60237. begin
  60238. pTDefRegMap(@Self)^.&set := $00000008;
  60239. end;
  60240. procedure TUSB_U1EIR.clearDFN8EF; inline;
  60241. begin
  60242. pTDefRegMap(@Self)^.clr := $00000008;
  60243. end;
  60244. procedure TUSB_U1EIR.setDFN8EF(thebits : TBits_1); inline;
  60245. begin
  60246. if thebits = 0 then
  60247. pTDefRegMap(@Self)^.clr := $00000008
  60248. else
  60249. pTDefRegMap(@Self)^.&set := $00000008;
  60250. end;
  60251. function TUSB_U1EIR.getDFN8EF : TBits_1; inline;
  60252. begin
  60253. getDFN8EF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  60254. end;
  60255. procedure TUSB_U1EIR.setBTOEF; inline;
  60256. begin
  60257. pTDefRegMap(@Self)^.&set := $00000010;
  60258. end;
  60259. procedure TUSB_U1EIR.clearBTOEF; inline;
  60260. begin
  60261. pTDefRegMap(@Self)^.clr := $00000010;
  60262. end;
  60263. procedure TUSB_U1EIR.setBTOEF(thebits : TBits_1); inline;
  60264. begin
  60265. if thebits = 0 then
  60266. pTDefRegMap(@Self)^.clr := $00000010
  60267. else
  60268. pTDefRegMap(@Self)^.&set := $00000010;
  60269. end;
  60270. function TUSB_U1EIR.getBTOEF : TBits_1; inline;
  60271. begin
  60272. getBTOEF := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  60273. end;
  60274. procedure TUSB_U1EIR.setDMAEF; inline;
  60275. begin
  60276. pTDefRegMap(@Self)^.&set := $00000020;
  60277. end;
  60278. procedure TUSB_U1EIR.clearDMAEF; inline;
  60279. begin
  60280. pTDefRegMap(@Self)^.clr := $00000020;
  60281. end;
  60282. procedure TUSB_U1EIR.setDMAEF(thebits : TBits_1); inline;
  60283. begin
  60284. if thebits = 0 then
  60285. pTDefRegMap(@Self)^.clr := $00000020
  60286. else
  60287. pTDefRegMap(@Self)^.&set := $00000020;
  60288. end;
  60289. function TUSB_U1EIR.getDMAEF : TBits_1; inline;
  60290. begin
  60291. getDMAEF := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  60292. end;
  60293. procedure TUSB_U1EIR.setBMXEF; inline;
  60294. begin
  60295. pTDefRegMap(@Self)^.&set := $00000040;
  60296. end;
  60297. procedure TUSB_U1EIR.clearBMXEF; inline;
  60298. begin
  60299. pTDefRegMap(@Self)^.clr := $00000040;
  60300. end;
  60301. procedure TUSB_U1EIR.setBMXEF(thebits : TBits_1); inline;
  60302. begin
  60303. if thebits = 0 then
  60304. pTDefRegMap(@Self)^.clr := $00000040
  60305. else
  60306. pTDefRegMap(@Self)^.&set := $00000040;
  60307. end;
  60308. function TUSB_U1EIR.getBMXEF : TBits_1; inline;
  60309. begin
  60310. getBMXEF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  60311. end;
  60312. procedure TUSB_U1EIR.setBTSEF; inline;
  60313. begin
  60314. pTDefRegMap(@Self)^.&set := $00000080;
  60315. end;
  60316. procedure TUSB_U1EIR.clearBTSEF; inline;
  60317. begin
  60318. pTDefRegMap(@Self)^.clr := $00000080;
  60319. end;
  60320. procedure TUSB_U1EIR.setBTSEF(thebits : TBits_1); inline;
  60321. begin
  60322. if thebits = 0 then
  60323. pTDefRegMap(@Self)^.clr := $00000080
  60324. else
  60325. pTDefRegMap(@Self)^.&set := $00000080;
  60326. end;
  60327. function TUSB_U1EIR.getBTSEF : TBits_1; inline;
  60328. begin
  60329. getBTSEF := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  60330. end;
  60331. procedure TUSB_U1EIR.setCRC5EF; inline;
  60332. begin
  60333. pTDefRegMap(@Self)^.&set := $00000002;
  60334. end;
  60335. procedure TUSB_U1EIR.clearCRC5EF; inline;
  60336. begin
  60337. pTDefRegMap(@Self)^.clr := $00000002;
  60338. end;
  60339. procedure TUSB_U1EIR.setCRC5EF(thebits : TBits_1); inline;
  60340. begin
  60341. if thebits = 0 then
  60342. pTDefRegMap(@Self)^.clr := $00000002
  60343. else
  60344. pTDefRegMap(@Self)^.&set := $00000002;
  60345. end;
  60346. function TUSB_U1EIR.getCRC5EF : TBits_1; inline;
  60347. begin
  60348. getCRC5EF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  60349. end;
  60350. procedure TUSB_U1EIR.setEOFEF; inline;
  60351. begin
  60352. pTDefRegMap(@Self)^.&set := $00000002;
  60353. end;
  60354. procedure TUSB_U1EIR.clearEOFEF; inline;
  60355. begin
  60356. pTDefRegMap(@Self)^.clr := $00000002;
  60357. end;
  60358. procedure TUSB_U1EIR.setEOFEF(thebits : TBits_1); inline;
  60359. begin
  60360. if thebits = 0 then
  60361. pTDefRegMap(@Self)^.clr := $00000002
  60362. else
  60363. pTDefRegMap(@Self)^.&set := $00000002;
  60364. end;
  60365. function TUSB_U1EIR.getEOFEF : TBits_1; inline;
  60366. begin
  60367. getEOFEF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  60368. end;
  60369. procedure TUSB_U1EIE.setPIDEE; inline;
  60370. begin
  60371. pTDefRegMap(@Self)^.&set := $00000001;
  60372. end;
  60373. procedure TUSB_U1EIE.clearPIDEE; inline;
  60374. begin
  60375. pTDefRegMap(@Self)^.clr := $00000001;
  60376. end;
  60377. procedure TUSB_U1EIE.setPIDEE(thebits : TBits_1); inline;
  60378. begin
  60379. if thebits = 0 then
  60380. pTDefRegMap(@Self)^.clr := $00000001
  60381. else
  60382. pTDefRegMap(@Self)^.&set := $00000001;
  60383. end;
  60384. function TUSB_U1EIE.getPIDEE : TBits_1; inline;
  60385. begin
  60386. getPIDEE := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  60387. end;
  60388. procedure TUSB_U1EIE.setCRC5EE_EOFEE; inline;
  60389. begin
  60390. pTDefRegMap(@Self)^.&set := $00000002;
  60391. end;
  60392. procedure TUSB_U1EIE.clearCRC5EE_EOFEE; inline;
  60393. begin
  60394. pTDefRegMap(@Self)^.clr := $00000002;
  60395. end;
  60396. procedure TUSB_U1EIE.setCRC5EE_EOFEE(thebits : TBits_1); inline;
  60397. begin
  60398. if thebits = 0 then
  60399. pTDefRegMap(@Self)^.clr := $00000002
  60400. else
  60401. pTDefRegMap(@Self)^.&set := $00000002;
  60402. end;
  60403. function TUSB_U1EIE.getCRC5EE_EOFEE : TBits_1; inline;
  60404. begin
  60405. getCRC5EE_EOFEE := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  60406. end;
  60407. procedure TUSB_U1EIE.setCRC16EE; inline;
  60408. begin
  60409. pTDefRegMap(@Self)^.&set := $00000004;
  60410. end;
  60411. procedure TUSB_U1EIE.clearCRC16EE; inline;
  60412. begin
  60413. pTDefRegMap(@Self)^.clr := $00000004;
  60414. end;
  60415. procedure TUSB_U1EIE.setCRC16EE(thebits : TBits_1); inline;
  60416. begin
  60417. if thebits = 0 then
  60418. pTDefRegMap(@Self)^.clr := $00000004
  60419. else
  60420. pTDefRegMap(@Self)^.&set := $00000004;
  60421. end;
  60422. function TUSB_U1EIE.getCRC16EE : TBits_1; inline;
  60423. begin
  60424. getCRC16EE := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  60425. end;
  60426. procedure TUSB_U1EIE.setDFN8EE; inline;
  60427. begin
  60428. pTDefRegMap(@Self)^.&set := $00000008;
  60429. end;
  60430. procedure TUSB_U1EIE.clearDFN8EE; inline;
  60431. begin
  60432. pTDefRegMap(@Self)^.clr := $00000008;
  60433. end;
  60434. procedure TUSB_U1EIE.setDFN8EE(thebits : TBits_1); inline;
  60435. begin
  60436. if thebits = 0 then
  60437. pTDefRegMap(@Self)^.clr := $00000008
  60438. else
  60439. pTDefRegMap(@Self)^.&set := $00000008;
  60440. end;
  60441. function TUSB_U1EIE.getDFN8EE : TBits_1; inline;
  60442. begin
  60443. getDFN8EE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  60444. end;
  60445. procedure TUSB_U1EIE.setBTOEE; inline;
  60446. begin
  60447. pTDefRegMap(@Self)^.&set := $00000010;
  60448. end;
  60449. procedure TUSB_U1EIE.clearBTOEE; inline;
  60450. begin
  60451. pTDefRegMap(@Self)^.clr := $00000010;
  60452. end;
  60453. procedure TUSB_U1EIE.setBTOEE(thebits : TBits_1); inline;
  60454. begin
  60455. if thebits = 0 then
  60456. pTDefRegMap(@Self)^.clr := $00000010
  60457. else
  60458. pTDefRegMap(@Self)^.&set := $00000010;
  60459. end;
  60460. function TUSB_U1EIE.getBTOEE : TBits_1; inline;
  60461. begin
  60462. getBTOEE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  60463. end;
  60464. procedure TUSB_U1EIE.setDMAEE; inline;
  60465. begin
  60466. pTDefRegMap(@Self)^.&set := $00000020;
  60467. end;
  60468. procedure TUSB_U1EIE.clearDMAEE; inline;
  60469. begin
  60470. pTDefRegMap(@Self)^.clr := $00000020;
  60471. end;
  60472. procedure TUSB_U1EIE.setDMAEE(thebits : TBits_1); inline;
  60473. begin
  60474. if thebits = 0 then
  60475. pTDefRegMap(@Self)^.clr := $00000020
  60476. else
  60477. pTDefRegMap(@Self)^.&set := $00000020;
  60478. end;
  60479. function TUSB_U1EIE.getDMAEE : TBits_1; inline;
  60480. begin
  60481. getDMAEE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  60482. end;
  60483. procedure TUSB_U1EIE.setBMXEE; inline;
  60484. begin
  60485. pTDefRegMap(@Self)^.&set := $00000040;
  60486. end;
  60487. procedure TUSB_U1EIE.clearBMXEE; inline;
  60488. begin
  60489. pTDefRegMap(@Self)^.clr := $00000040;
  60490. end;
  60491. procedure TUSB_U1EIE.setBMXEE(thebits : TBits_1); inline;
  60492. begin
  60493. if thebits = 0 then
  60494. pTDefRegMap(@Self)^.clr := $00000040
  60495. else
  60496. pTDefRegMap(@Self)^.&set := $00000040;
  60497. end;
  60498. function TUSB_U1EIE.getBMXEE : TBits_1; inline;
  60499. begin
  60500. getBMXEE := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  60501. end;
  60502. procedure TUSB_U1EIE.setBTSEE; inline;
  60503. begin
  60504. pTDefRegMap(@Self)^.&set := $00000080;
  60505. end;
  60506. procedure TUSB_U1EIE.clearBTSEE; inline;
  60507. begin
  60508. pTDefRegMap(@Self)^.clr := $00000080;
  60509. end;
  60510. procedure TUSB_U1EIE.setBTSEE(thebits : TBits_1); inline;
  60511. begin
  60512. if thebits = 0 then
  60513. pTDefRegMap(@Self)^.clr := $00000080
  60514. else
  60515. pTDefRegMap(@Self)^.&set := $00000080;
  60516. end;
  60517. function TUSB_U1EIE.getBTSEE : TBits_1; inline;
  60518. begin
  60519. getBTSEE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  60520. end;
  60521. procedure TUSB_U1EIE.setCRC5EE; inline;
  60522. begin
  60523. pTDefRegMap(@Self)^.&set := $00000002;
  60524. end;
  60525. procedure TUSB_U1EIE.clearCRC5EE; inline;
  60526. begin
  60527. pTDefRegMap(@Self)^.clr := $00000002;
  60528. end;
  60529. procedure TUSB_U1EIE.setCRC5EE(thebits : TBits_1); inline;
  60530. begin
  60531. if thebits = 0 then
  60532. pTDefRegMap(@Self)^.clr := $00000002
  60533. else
  60534. pTDefRegMap(@Self)^.&set := $00000002;
  60535. end;
  60536. function TUSB_U1EIE.getCRC5EE : TBits_1; inline;
  60537. begin
  60538. getCRC5EE := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  60539. end;
  60540. procedure TUSB_U1EIE.setEOFEE; inline;
  60541. begin
  60542. pTDefRegMap(@Self)^.&set := $00000002;
  60543. end;
  60544. procedure TUSB_U1EIE.clearEOFEE; inline;
  60545. begin
  60546. pTDefRegMap(@Self)^.clr := $00000002;
  60547. end;
  60548. procedure TUSB_U1EIE.setEOFEE(thebits : TBits_1); inline;
  60549. begin
  60550. if thebits = 0 then
  60551. pTDefRegMap(@Self)^.clr := $00000002
  60552. else
  60553. pTDefRegMap(@Self)^.&set := $00000002;
  60554. end;
  60555. function TUSB_U1EIE.getEOFEE : TBits_1; inline;
  60556. begin
  60557. getEOFEE := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  60558. end;
  60559. procedure TUSB_U1STAT.setPPBI; inline;
  60560. begin
  60561. pTDefRegMap(@Self)^.&set := $00000004;
  60562. end;
  60563. procedure TUSB_U1STAT.clearPPBI; inline;
  60564. begin
  60565. pTDefRegMap(@Self)^.clr := $00000004;
  60566. end;
  60567. procedure TUSB_U1STAT.setPPBI(thebits : TBits_1); inline;
  60568. begin
  60569. if thebits = 0 then
  60570. pTDefRegMap(@Self)^.clr := $00000004
  60571. else
  60572. pTDefRegMap(@Self)^.&set := $00000004;
  60573. end;
  60574. function TUSB_U1STAT.getPPBI : TBits_1; inline;
  60575. begin
  60576. getPPBI := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  60577. end;
  60578. procedure TUSB_U1STAT.setDIR; inline;
  60579. begin
  60580. pTDefRegMap(@Self)^.&set := $00000008;
  60581. end;
  60582. procedure TUSB_U1STAT.clearDIR; inline;
  60583. begin
  60584. pTDefRegMap(@Self)^.clr := $00000008;
  60585. end;
  60586. procedure TUSB_U1STAT.setDIR(thebits : TBits_1); inline;
  60587. begin
  60588. if thebits = 0 then
  60589. pTDefRegMap(@Self)^.clr := $00000008
  60590. else
  60591. pTDefRegMap(@Self)^.&set := $00000008;
  60592. end;
  60593. function TUSB_U1STAT.getDIR : TBits_1; inline;
  60594. begin
  60595. getDIR := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  60596. end;
  60597. procedure TUSB_U1STAT.setENDPT(thebits : TBits_4); inline;
  60598. begin
  60599. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF0F or ( thebits shl 4 );
  60600. end;
  60601. function TUSB_U1STAT.getENDPT : TBits_4; inline;
  60602. begin
  60603. getENDPT := (pTDefRegMap(@Self)^.val and $000000F0) shr 4;
  60604. end;
  60605. procedure TUSB_U1STAT.setENDPT0; inline;
  60606. begin
  60607. pTDefRegMap(@Self)^.&set := $00000010;
  60608. end;
  60609. procedure TUSB_U1STAT.clearENDPT0; inline;
  60610. begin
  60611. pTDefRegMap(@Self)^.clr := $00000010;
  60612. end;
  60613. procedure TUSB_U1STAT.setENDPT0(thebits : TBits_1); inline;
  60614. begin
  60615. if thebits = 0 then
  60616. pTDefRegMap(@Self)^.clr := $00000010
  60617. else
  60618. pTDefRegMap(@Self)^.&set := $00000010;
  60619. end;
  60620. function TUSB_U1STAT.getENDPT0 : TBits_1; inline;
  60621. begin
  60622. getENDPT0 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  60623. end;
  60624. procedure TUSB_U1STAT.setENDPT1; inline;
  60625. begin
  60626. pTDefRegMap(@Self)^.&set := $00000020;
  60627. end;
  60628. procedure TUSB_U1STAT.clearENDPT1; inline;
  60629. begin
  60630. pTDefRegMap(@Self)^.clr := $00000020;
  60631. end;
  60632. procedure TUSB_U1STAT.setENDPT1(thebits : TBits_1); inline;
  60633. begin
  60634. if thebits = 0 then
  60635. pTDefRegMap(@Self)^.clr := $00000020
  60636. else
  60637. pTDefRegMap(@Self)^.&set := $00000020;
  60638. end;
  60639. function TUSB_U1STAT.getENDPT1 : TBits_1; inline;
  60640. begin
  60641. getENDPT1 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  60642. end;
  60643. procedure TUSB_U1STAT.setENDPT2; inline;
  60644. begin
  60645. pTDefRegMap(@Self)^.&set := $00000040;
  60646. end;
  60647. procedure TUSB_U1STAT.clearENDPT2; inline;
  60648. begin
  60649. pTDefRegMap(@Self)^.clr := $00000040;
  60650. end;
  60651. procedure TUSB_U1STAT.setENDPT2(thebits : TBits_1); inline;
  60652. begin
  60653. if thebits = 0 then
  60654. pTDefRegMap(@Self)^.clr := $00000040
  60655. else
  60656. pTDefRegMap(@Self)^.&set := $00000040;
  60657. end;
  60658. function TUSB_U1STAT.getENDPT2 : TBits_1; inline;
  60659. begin
  60660. getENDPT2 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  60661. end;
  60662. procedure TUSB_U1STAT.setENDPT3; inline;
  60663. begin
  60664. pTDefRegMap(@Self)^.&set := $00000080;
  60665. end;
  60666. procedure TUSB_U1STAT.clearENDPT3; inline;
  60667. begin
  60668. pTDefRegMap(@Self)^.clr := $00000080;
  60669. end;
  60670. procedure TUSB_U1STAT.setENDPT3(thebits : TBits_1); inline;
  60671. begin
  60672. if thebits = 0 then
  60673. pTDefRegMap(@Self)^.clr := $00000080
  60674. else
  60675. pTDefRegMap(@Self)^.&set := $00000080;
  60676. end;
  60677. function TUSB_U1STAT.getENDPT3 : TBits_1; inline;
  60678. begin
  60679. getENDPT3 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  60680. end;
  60681. procedure TUSB_U1CON.setUSBEN_SOFEN; inline;
  60682. begin
  60683. pTDefRegMap(@Self)^.&set := $00000001;
  60684. end;
  60685. procedure TUSB_U1CON.clearUSBEN_SOFEN; inline;
  60686. begin
  60687. pTDefRegMap(@Self)^.clr := $00000001;
  60688. end;
  60689. procedure TUSB_U1CON.setUSBEN_SOFEN(thebits : TBits_1); inline;
  60690. begin
  60691. if thebits = 0 then
  60692. pTDefRegMap(@Self)^.clr := $00000001
  60693. else
  60694. pTDefRegMap(@Self)^.&set := $00000001;
  60695. end;
  60696. function TUSB_U1CON.getUSBEN_SOFEN : TBits_1; inline;
  60697. begin
  60698. getUSBEN_SOFEN := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  60699. end;
  60700. procedure TUSB_U1CON.setPPBRST; inline;
  60701. begin
  60702. pTDefRegMap(@Self)^.&set := $00000002;
  60703. end;
  60704. procedure TUSB_U1CON.clearPPBRST; inline;
  60705. begin
  60706. pTDefRegMap(@Self)^.clr := $00000002;
  60707. end;
  60708. procedure TUSB_U1CON.setPPBRST(thebits : TBits_1); inline;
  60709. begin
  60710. if thebits = 0 then
  60711. pTDefRegMap(@Self)^.clr := $00000002
  60712. else
  60713. pTDefRegMap(@Self)^.&set := $00000002;
  60714. end;
  60715. function TUSB_U1CON.getPPBRST : TBits_1; inline;
  60716. begin
  60717. getPPBRST := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  60718. end;
  60719. procedure TUSB_U1CON.setRESUME; inline;
  60720. begin
  60721. pTDefRegMap(@Self)^.&set := $00000004;
  60722. end;
  60723. procedure TUSB_U1CON.clearRESUME; inline;
  60724. begin
  60725. pTDefRegMap(@Self)^.clr := $00000004;
  60726. end;
  60727. procedure TUSB_U1CON.setRESUME(thebits : TBits_1); inline;
  60728. begin
  60729. if thebits = 0 then
  60730. pTDefRegMap(@Self)^.clr := $00000004
  60731. else
  60732. pTDefRegMap(@Self)^.&set := $00000004;
  60733. end;
  60734. function TUSB_U1CON.getRESUME : TBits_1; inline;
  60735. begin
  60736. getRESUME := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  60737. end;
  60738. procedure TUSB_U1CON.setHOSTEN; inline;
  60739. begin
  60740. pTDefRegMap(@Self)^.&set := $00000008;
  60741. end;
  60742. procedure TUSB_U1CON.clearHOSTEN; inline;
  60743. begin
  60744. pTDefRegMap(@Self)^.clr := $00000008;
  60745. end;
  60746. procedure TUSB_U1CON.setHOSTEN(thebits : TBits_1); inline;
  60747. begin
  60748. if thebits = 0 then
  60749. pTDefRegMap(@Self)^.clr := $00000008
  60750. else
  60751. pTDefRegMap(@Self)^.&set := $00000008;
  60752. end;
  60753. function TUSB_U1CON.getHOSTEN : TBits_1; inline;
  60754. begin
  60755. getHOSTEN := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  60756. end;
  60757. procedure TUSB_U1CON.setUSBRST; inline;
  60758. begin
  60759. pTDefRegMap(@Self)^.&set := $00000010;
  60760. end;
  60761. procedure TUSB_U1CON.clearUSBRST; inline;
  60762. begin
  60763. pTDefRegMap(@Self)^.clr := $00000010;
  60764. end;
  60765. procedure TUSB_U1CON.setUSBRST(thebits : TBits_1); inline;
  60766. begin
  60767. if thebits = 0 then
  60768. pTDefRegMap(@Self)^.clr := $00000010
  60769. else
  60770. pTDefRegMap(@Self)^.&set := $00000010;
  60771. end;
  60772. function TUSB_U1CON.getUSBRST : TBits_1; inline;
  60773. begin
  60774. getUSBRST := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  60775. end;
  60776. procedure TUSB_U1CON.setPKTDIS_TOKBUSY; inline;
  60777. begin
  60778. pTDefRegMap(@Self)^.&set := $00000020;
  60779. end;
  60780. procedure TUSB_U1CON.clearPKTDIS_TOKBUSY; inline;
  60781. begin
  60782. pTDefRegMap(@Self)^.clr := $00000020;
  60783. end;
  60784. procedure TUSB_U1CON.setPKTDIS_TOKBUSY(thebits : TBits_1); inline;
  60785. begin
  60786. if thebits = 0 then
  60787. pTDefRegMap(@Self)^.clr := $00000020
  60788. else
  60789. pTDefRegMap(@Self)^.&set := $00000020;
  60790. end;
  60791. function TUSB_U1CON.getPKTDIS_TOKBUSY : TBits_1; inline;
  60792. begin
  60793. getPKTDIS_TOKBUSY := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  60794. end;
  60795. procedure TUSB_U1CON.setSE0; inline;
  60796. begin
  60797. pTDefRegMap(@Self)^.&set := $00000040;
  60798. end;
  60799. procedure TUSB_U1CON.clearSE0; inline;
  60800. begin
  60801. pTDefRegMap(@Self)^.clr := $00000040;
  60802. end;
  60803. procedure TUSB_U1CON.setSE0(thebits : TBits_1); inline;
  60804. begin
  60805. if thebits = 0 then
  60806. pTDefRegMap(@Self)^.clr := $00000040
  60807. else
  60808. pTDefRegMap(@Self)^.&set := $00000040;
  60809. end;
  60810. function TUSB_U1CON.getSE0 : TBits_1; inline;
  60811. begin
  60812. getSE0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  60813. end;
  60814. procedure TUSB_U1CON.setJSTATE; inline;
  60815. begin
  60816. pTDefRegMap(@Self)^.&set := $00000080;
  60817. end;
  60818. procedure TUSB_U1CON.clearJSTATE; inline;
  60819. begin
  60820. pTDefRegMap(@Self)^.clr := $00000080;
  60821. end;
  60822. procedure TUSB_U1CON.setJSTATE(thebits : TBits_1); inline;
  60823. begin
  60824. if thebits = 0 then
  60825. pTDefRegMap(@Self)^.clr := $00000080
  60826. else
  60827. pTDefRegMap(@Self)^.&set := $00000080;
  60828. end;
  60829. function TUSB_U1CON.getJSTATE : TBits_1; inline;
  60830. begin
  60831. getJSTATE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  60832. end;
  60833. procedure TUSB_U1CON.setUSBEN; inline;
  60834. begin
  60835. pTDefRegMap(@Self)^.&set := $00000001;
  60836. end;
  60837. procedure TUSB_U1CON.clearUSBEN; inline;
  60838. begin
  60839. pTDefRegMap(@Self)^.clr := $00000001;
  60840. end;
  60841. procedure TUSB_U1CON.setUSBEN(thebits : TBits_1); inline;
  60842. begin
  60843. if thebits = 0 then
  60844. pTDefRegMap(@Self)^.clr := $00000001
  60845. else
  60846. pTDefRegMap(@Self)^.&set := $00000001;
  60847. end;
  60848. function TUSB_U1CON.getUSBEN : TBits_1; inline;
  60849. begin
  60850. getUSBEN := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  60851. end;
  60852. procedure TUSB_U1CON.setSOFEN; inline;
  60853. begin
  60854. pTDefRegMap(@Self)^.&set := $00000001;
  60855. end;
  60856. procedure TUSB_U1CON.clearSOFEN; inline;
  60857. begin
  60858. pTDefRegMap(@Self)^.clr := $00000001;
  60859. end;
  60860. procedure TUSB_U1CON.setSOFEN(thebits : TBits_1); inline;
  60861. begin
  60862. if thebits = 0 then
  60863. pTDefRegMap(@Self)^.clr := $00000001
  60864. else
  60865. pTDefRegMap(@Self)^.&set := $00000001;
  60866. end;
  60867. function TUSB_U1CON.getSOFEN : TBits_1; inline;
  60868. begin
  60869. getSOFEN := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  60870. end;
  60871. procedure TUSB_U1CON.setPKTDIS; inline;
  60872. begin
  60873. pTDefRegMap(@Self)^.&set := $00000020;
  60874. end;
  60875. procedure TUSB_U1CON.clearPKTDIS; inline;
  60876. begin
  60877. pTDefRegMap(@Self)^.clr := $00000020;
  60878. end;
  60879. procedure TUSB_U1CON.setPKTDIS(thebits : TBits_1); inline;
  60880. begin
  60881. if thebits = 0 then
  60882. pTDefRegMap(@Self)^.clr := $00000020
  60883. else
  60884. pTDefRegMap(@Self)^.&set := $00000020;
  60885. end;
  60886. function TUSB_U1CON.getPKTDIS : TBits_1; inline;
  60887. begin
  60888. getPKTDIS := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  60889. end;
  60890. procedure TUSB_U1CON.setTOKBUSY; inline;
  60891. begin
  60892. pTDefRegMap(@Self)^.&set := $00000020;
  60893. end;
  60894. procedure TUSB_U1CON.clearTOKBUSY; inline;
  60895. begin
  60896. pTDefRegMap(@Self)^.clr := $00000020;
  60897. end;
  60898. procedure TUSB_U1CON.setTOKBUSY(thebits : TBits_1); inline;
  60899. begin
  60900. if thebits = 0 then
  60901. pTDefRegMap(@Self)^.clr := $00000020
  60902. else
  60903. pTDefRegMap(@Self)^.&set := $00000020;
  60904. end;
  60905. function TUSB_U1CON.getTOKBUSY : TBits_1; inline;
  60906. begin
  60907. getTOKBUSY := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  60908. end;
  60909. procedure TUSB_U1ADDR.setDEVADDR(thebits : TBits_7); inline;
  60910. begin
  60911. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF80 or ( thebits shl 0 );
  60912. end;
  60913. function TUSB_U1ADDR.getDEVADDR : TBits_7; inline;
  60914. begin
  60915. getDEVADDR := (pTDefRegMap(@Self)^.val and $0000007F) shr 0;
  60916. end;
  60917. procedure TUSB_U1ADDR.setLSPDEN; inline;
  60918. begin
  60919. pTDefRegMap(@Self)^.&set := $00000080;
  60920. end;
  60921. procedure TUSB_U1ADDR.clearLSPDEN; inline;
  60922. begin
  60923. pTDefRegMap(@Self)^.clr := $00000080;
  60924. end;
  60925. procedure TUSB_U1ADDR.setLSPDEN(thebits : TBits_1); inline;
  60926. begin
  60927. if thebits = 0 then
  60928. pTDefRegMap(@Self)^.clr := $00000080
  60929. else
  60930. pTDefRegMap(@Self)^.&set := $00000080;
  60931. end;
  60932. function TUSB_U1ADDR.getLSPDEN : TBits_1; inline;
  60933. begin
  60934. getLSPDEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  60935. end;
  60936. procedure TUSB_U1ADDR.setDEVADDR0; inline;
  60937. begin
  60938. pTDefRegMap(@Self)^.&set := $00000001;
  60939. end;
  60940. procedure TUSB_U1ADDR.clearDEVADDR0; inline;
  60941. begin
  60942. pTDefRegMap(@Self)^.clr := $00000001;
  60943. end;
  60944. procedure TUSB_U1ADDR.setDEVADDR0(thebits : TBits_1); inline;
  60945. begin
  60946. if thebits = 0 then
  60947. pTDefRegMap(@Self)^.clr := $00000001
  60948. else
  60949. pTDefRegMap(@Self)^.&set := $00000001;
  60950. end;
  60951. function TUSB_U1ADDR.getDEVADDR0 : TBits_1; inline;
  60952. begin
  60953. getDEVADDR0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  60954. end;
  60955. procedure TUSB_U1ADDR.setDEVADDR1; inline;
  60956. begin
  60957. pTDefRegMap(@Self)^.&set := $00000002;
  60958. end;
  60959. procedure TUSB_U1ADDR.clearDEVADDR1; inline;
  60960. begin
  60961. pTDefRegMap(@Self)^.clr := $00000002;
  60962. end;
  60963. procedure TUSB_U1ADDR.setDEVADDR1(thebits : TBits_1); inline;
  60964. begin
  60965. if thebits = 0 then
  60966. pTDefRegMap(@Self)^.clr := $00000002
  60967. else
  60968. pTDefRegMap(@Self)^.&set := $00000002;
  60969. end;
  60970. function TUSB_U1ADDR.getDEVADDR1 : TBits_1; inline;
  60971. begin
  60972. getDEVADDR1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  60973. end;
  60974. procedure TUSB_U1ADDR.setDEVADDR2; inline;
  60975. begin
  60976. pTDefRegMap(@Self)^.&set := $00000004;
  60977. end;
  60978. procedure TUSB_U1ADDR.clearDEVADDR2; inline;
  60979. begin
  60980. pTDefRegMap(@Self)^.clr := $00000004;
  60981. end;
  60982. procedure TUSB_U1ADDR.setDEVADDR2(thebits : TBits_1); inline;
  60983. begin
  60984. if thebits = 0 then
  60985. pTDefRegMap(@Self)^.clr := $00000004
  60986. else
  60987. pTDefRegMap(@Self)^.&set := $00000004;
  60988. end;
  60989. function TUSB_U1ADDR.getDEVADDR2 : TBits_1; inline;
  60990. begin
  60991. getDEVADDR2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  60992. end;
  60993. procedure TUSB_U1ADDR.setDEVADDR3; inline;
  60994. begin
  60995. pTDefRegMap(@Self)^.&set := $00000008;
  60996. end;
  60997. procedure TUSB_U1ADDR.clearDEVADDR3; inline;
  60998. begin
  60999. pTDefRegMap(@Self)^.clr := $00000008;
  61000. end;
  61001. procedure TUSB_U1ADDR.setDEVADDR3(thebits : TBits_1); inline;
  61002. begin
  61003. if thebits = 0 then
  61004. pTDefRegMap(@Self)^.clr := $00000008
  61005. else
  61006. pTDefRegMap(@Self)^.&set := $00000008;
  61007. end;
  61008. function TUSB_U1ADDR.getDEVADDR3 : TBits_1; inline;
  61009. begin
  61010. getDEVADDR3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  61011. end;
  61012. procedure TUSB_U1ADDR.setDEVADDR4; inline;
  61013. begin
  61014. pTDefRegMap(@Self)^.&set := $00000010;
  61015. end;
  61016. procedure TUSB_U1ADDR.clearDEVADDR4; inline;
  61017. begin
  61018. pTDefRegMap(@Self)^.clr := $00000010;
  61019. end;
  61020. procedure TUSB_U1ADDR.setDEVADDR4(thebits : TBits_1); inline;
  61021. begin
  61022. if thebits = 0 then
  61023. pTDefRegMap(@Self)^.clr := $00000010
  61024. else
  61025. pTDefRegMap(@Self)^.&set := $00000010;
  61026. end;
  61027. function TUSB_U1ADDR.getDEVADDR4 : TBits_1; inline;
  61028. begin
  61029. getDEVADDR4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  61030. end;
  61031. procedure TUSB_U1ADDR.setDEVADDR5; inline;
  61032. begin
  61033. pTDefRegMap(@Self)^.&set := $00000020;
  61034. end;
  61035. procedure TUSB_U1ADDR.clearDEVADDR5; inline;
  61036. begin
  61037. pTDefRegMap(@Self)^.clr := $00000020;
  61038. end;
  61039. procedure TUSB_U1ADDR.setDEVADDR5(thebits : TBits_1); inline;
  61040. begin
  61041. if thebits = 0 then
  61042. pTDefRegMap(@Self)^.clr := $00000020
  61043. else
  61044. pTDefRegMap(@Self)^.&set := $00000020;
  61045. end;
  61046. function TUSB_U1ADDR.getDEVADDR5 : TBits_1; inline;
  61047. begin
  61048. getDEVADDR5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  61049. end;
  61050. procedure TUSB_U1ADDR.setDEVADDR6; inline;
  61051. begin
  61052. pTDefRegMap(@Self)^.&set := $00000040;
  61053. end;
  61054. procedure TUSB_U1ADDR.clearDEVADDR6; inline;
  61055. begin
  61056. pTDefRegMap(@Self)^.clr := $00000040;
  61057. end;
  61058. procedure TUSB_U1ADDR.setDEVADDR6(thebits : TBits_1); inline;
  61059. begin
  61060. if thebits = 0 then
  61061. pTDefRegMap(@Self)^.clr := $00000040
  61062. else
  61063. pTDefRegMap(@Self)^.&set := $00000040;
  61064. end;
  61065. function TUSB_U1ADDR.getDEVADDR6 : TBits_1; inline;
  61066. begin
  61067. getDEVADDR6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  61068. end;
  61069. procedure TUSB_U1FRML.setFRML(thebits : TBits_8); inline;
  61070. begin
  61071. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF00 or ( thebits shl 0 );
  61072. end;
  61073. function TUSB_U1FRML.getFRML : TBits_8; inline;
  61074. begin
  61075. getFRML := (pTDefRegMap(@Self)^.val and $000000FF) shr 0;
  61076. end;
  61077. procedure TUSB_U1FRML.setFRM0; inline;
  61078. begin
  61079. pTDefRegMap(@Self)^.&set := $00000001;
  61080. end;
  61081. procedure TUSB_U1FRML.clearFRM0; inline;
  61082. begin
  61083. pTDefRegMap(@Self)^.clr := $00000001;
  61084. end;
  61085. procedure TUSB_U1FRML.setFRM0(thebits : TBits_1); inline;
  61086. begin
  61087. if thebits = 0 then
  61088. pTDefRegMap(@Self)^.clr := $00000001
  61089. else
  61090. pTDefRegMap(@Self)^.&set := $00000001;
  61091. end;
  61092. function TUSB_U1FRML.getFRM0 : TBits_1; inline;
  61093. begin
  61094. getFRM0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  61095. end;
  61096. procedure TUSB_U1FRML.setFRM1; inline;
  61097. begin
  61098. pTDefRegMap(@Self)^.&set := $00000002;
  61099. end;
  61100. procedure TUSB_U1FRML.clearFRM1; inline;
  61101. begin
  61102. pTDefRegMap(@Self)^.clr := $00000002;
  61103. end;
  61104. procedure TUSB_U1FRML.setFRM1(thebits : TBits_1); inline;
  61105. begin
  61106. if thebits = 0 then
  61107. pTDefRegMap(@Self)^.clr := $00000002
  61108. else
  61109. pTDefRegMap(@Self)^.&set := $00000002;
  61110. end;
  61111. function TUSB_U1FRML.getFRM1 : TBits_1; inline;
  61112. begin
  61113. getFRM1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  61114. end;
  61115. procedure TUSB_U1FRML.setFRM2; inline;
  61116. begin
  61117. pTDefRegMap(@Self)^.&set := $00000004;
  61118. end;
  61119. procedure TUSB_U1FRML.clearFRM2; inline;
  61120. begin
  61121. pTDefRegMap(@Self)^.clr := $00000004;
  61122. end;
  61123. procedure TUSB_U1FRML.setFRM2(thebits : TBits_1); inline;
  61124. begin
  61125. if thebits = 0 then
  61126. pTDefRegMap(@Self)^.clr := $00000004
  61127. else
  61128. pTDefRegMap(@Self)^.&set := $00000004;
  61129. end;
  61130. function TUSB_U1FRML.getFRM2 : TBits_1; inline;
  61131. begin
  61132. getFRM2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  61133. end;
  61134. procedure TUSB_U1FRML.setFRM3; inline;
  61135. begin
  61136. pTDefRegMap(@Self)^.&set := $00000008;
  61137. end;
  61138. procedure TUSB_U1FRML.clearFRM3; inline;
  61139. begin
  61140. pTDefRegMap(@Self)^.clr := $00000008;
  61141. end;
  61142. procedure TUSB_U1FRML.setFRM3(thebits : TBits_1); inline;
  61143. begin
  61144. if thebits = 0 then
  61145. pTDefRegMap(@Self)^.clr := $00000008
  61146. else
  61147. pTDefRegMap(@Self)^.&set := $00000008;
  61148. end;
  61149. function TUSB_U1FRML.getFRM3 : TBits_1; inline;
  61150. begin
  61151. getFRM3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  61152. end;
  61153. procedure TUSB_U1FRML.setFRM4; inline;
  61154. begin
  61155. pTDefRegMap(@Self)^.&set := $00000010;
  61156. end;
  61157. procedure TUSB_U1FRML.clearFRM4; inline;
  61158. begin
  61159. pTDefRegMap(@Self)^.clr := $00000010;
  61160. end;
  61161. procedure TUSB_U1FRML.setFRM4(thebits : TBits_1); inline;
  61162. begin
  61163. if thebits = 0 then
  61164. pTDefRegMap(@Self)^.clr := $00000010
  61165. else
  61166. pTDefRegMap(@Self)^.&set := $00000010;
  61167. end;
  61168. function TUSB_U1FRML.getFRM4 : TBits_1; inline;
  61169. begin
  61170. getFRM4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  61171. end;
  61172. procedure TUSB_U1FRML.setFRM5; inline;
  61173. begin
  61174. pTDefRegMap(@Self)^.&set := $00000020;
  61175. end;
  61176. procedure TUSB_U1FRML.clearFRM5; inline;
  61177. begin
  61178. pTDefRegMap(@Self)^.clr := $00000020;
  61179. end;
  61180. procedure TUSB_U1FRML.setFRM5(thebits : TBits_1); inline;
  61181. begin
  61182. if thebits = 0 then
  61183. pTDefRegMap(@Self)^.clr := $00000020
  61184. else
  61185. pTDefRegMap(@Self)^.&set := $00000020;
  61186. end;
  61187. function TUSB_U1FRML.getFRM5 : TBits_1; inline;
  61188. begin
  61189. getFRM5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  61190. end;
  61191. procedure TUSB_U1FRML.setFRM6; inline;
  61192. begin
  61193. pTDefRegMap(@Self)^.&set := $00000040;
  61194. end;
  61195. procedure TUSB_U1FRML.clearFRM6; inline;
  61196. begin
  61197. pTDefRegMap(@Self)^.clr := $00000040;
  61198. end;
  61199. procedure TUSB_U1FRML.setFRM6(thebits : TBits_1); inline;
  61200. begin
  61201. if thebits = 0 then
  61202. pTDefRegMap(@Self)^.clr := $00000040
  61203. else
  61204. pTDefRegMap(@Self)^.&set := $00000040;
  61205. end;
  61206. function TUSB_U1FRML.getFRM6 : TBits_1; inline;
  61207. begin
  61208. getFRM6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  61209. end;
  61210. procedure TUSB_U1FRML.setFRM7; inline;
  61211. begin
  61212. pTDefRegMap(@Self)^.&set := $00000080;
  61213. end;
  61214. procedure TUSB_U1FRML.clearFRM7; inline;
  61215. begin
  61216. pTDefRegMap(@Self)^.clr := $00000080;
  61217. end;
  61218. procedure TUSB_U1FRML.setFRM7(thebits : TBits_1); inline;
  61219. begin
  61220. if thebits = 0 then
  61221. pTDefRegMap(@Self)^.clr := $00000080
  61222. else
  61223. pTDefRegMap(@Self)^.&set := $00000080;
  61224. end;
  61225. function TUSB_U1FRML.getFRM7 : TBits_1; inline;
  61226. begin
  61227. getFRM7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  61228. end;
  61229. procedure TUSB_U1FRMH.setFRMH(thebits : TBits_3); inline;
  61230. begin
  61231. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  61232. end;
  61233. function TUSB_U1FRMH.getFRMH : TBits_3; inline;
  61234. begin
  61235. getFRMH := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  61236. end;
  61237. procedure TUSB_U1FRMH.setFRM8; inline;
  61238. begin
  61239. pTDefRegMap(@Self)^.&set := $00000001;
  61240. end;
  61241. procedure TUSB_U1FRMH.clearFRM8; inline;
  61242. begin
  61243. pTDefRegMap(@Self)^.clr := $00000001;
  61244. end;
  61245. procedure TUSB_U1FRMH.setFRM8(thebits : TBits_1); inline;
  61246. begin
  61247. if thebits = 0 then
  61248. pTDefRegMap(@Self)^.clr := $00000001
  61249. else
  61250. pTDefRegMap(@Self)^.&set := $00000001;
  61251. end;
  61252. function TUSB_U1FRMH.getFRM8 : TBits_1; inline;
  61253. begin
  61254. getFRM8 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  61255. end;
  61256. procedure TUSB_U1FRMH.setFRM9; inline;
  61257. begin
  61258. pTDefRegMap(@Self)^.&set := $00000002;
  61259. end;
  61260. procedure TUSB_U1FRMH.clearFRM9; inline;
  61261. begin
  61262. pTDefRegMap(@Self)^.clr := $00000002;
  61263. end;
  61264. procedure TUSB_U1FRMH.setFRM9(thebits : TBits_1); inline;
  61265. begin
  61266. if thebits = 0 then
  61267. pTDefRegMap(@Self)^.clr := $00000002
  61268. else
  61269. pTDefRegMap(@Self)^.&set := $00000002;
  61270. end;
  61271. function TUSB_U1FRMH.getFRM9 : TBits_1; inline;
  61272. begin
  61273. getFRM9 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  61274. end;
  61275. procedure TUSB_U1FRMH.setFRM10; inline;
  61276. begin
  61277. pTDefRegMap(@Self)^.&set := $00000004;
  61278. end;
  61279. procedure TUSB_U1FRMH.clearFRM10; inline;
  61280. begin
  61281. pTDefRegMap(@Self)^.clr := $00000004;
  61282. end;
  61283. procedure TUSB_U1FRMH.setFRM10(thebits : TBits_1); inline;
  61284. begin
  61285. if thebits = 0 then
  61286. pTDefRegMap(@Self)^.clr := $00000004
  61287. else
  61288. pTDefRegMap(@Self)^.&set := $00000004;
  61289. end;
  61290. function TUSB_U1FRMH.getFRM10 : TBits_1; inline;
  61291. begin
  61292. getFRM10 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  61293. end;
  61294. procedure TUSB_U1TOK.setEP(thebits : TBits_4); inline;
  61295. begin
  61296. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF0 or ( thebits shl 0 );
  61297. end;
  61298. function TUSB_U1TOK.getEP : TBits_4; inline;
  61299. begin
  61300. getEP := (pTDefRegMap(@Self)^.val and $0000000F) shr 0;
  61301. end;
  61302. procedure TUSB_U1TOK.setPID(thebits : TBits_4); inline;
  61303. begin
  61304. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF0F or ( thebits shl 4 );
  61305. end;
  61306. function TUSB_U1TOK.getPID : TBits_4; inline;
  61307. begin
  61308. getPID := (pTDefRegMap(@Self)^.val and $000000F0) shr 4;
  61309. end;
  61310. procedure TUSB_U1TOK.setEP0; inline;
  61311. begin
  61312. pTDefRegMap(@Self)^.&set := $00000001;
  61313. end;
  61314. procedure TUSB_U1TOK.clearEP0; inline;
  61315. begin
  61316. pTDefRegMap(@Self)^.clr := $00000001;
  61317. end;
  61318. procedure TUSB_U1TOK.setEP0(thebits : TBits_1); inline;
  61319. begin
  61320. if thebits = 0 then
  61321. pTDefRegMap(@Self)^.clr := $00000001
  61322. else
  61323. pTDefRegMap(@Self)^.&set := $00000001;
  61324. end;
  61325. function TUSB_U1TOK.getEP0 : TBits_1; inline;
  61326. begin
  61327. getEP0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  61328. end;
  61329. procedure TUSB_U1TOK.setEP1; inline;
  61330. begin
  61331. pTDefRegMap(@Self)^.&set := $00000002;
  61332. end;
  61333. procedure TUSB_U1TOK.clearEP1; inline;
  61334. begin
  61335. pTDefRegMap(@Self)^.clr := $00000002;
  61336. end;
  61337. procedure TUSB_U1TOK.setEP1(thebits : TBits_1); inline;
  61338. begin
  61339. if thebits = 0 then
  61340. pTDefRegMap(@Self)^.clr := $00000002
  61341. else
  61342. pTDefRegMap(@Self)^.&set := $00000002;
  61343. end;
  61344. function TUSB_U1TOK.getEP1 : TBits_1; inline;
  61345. begin
  61346. getEP1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  61347. end;
  61348. procedure TUSB_U1TOK.setEP2; inline;
  61349. begin
  61350. pTDefRegMap(@Self)^.&set := $00000004;
  61351. end;
  61352. procedure TUSB_U1TOK.clearEP2; inline;
  61353. begin
  61354. pTDefRegMap(@Self)^.clr := $00000004;
  61355. end;
  61356. procedure TUSB_U1TOK.setEP2(thebits : TBits_1); inline;
  61357. begin
  61358. if thebits = 0 then
  61359. pTDefRegMap(@Self)^.clr := $00000004
  61360. else
  61361. pTDefRegMap(@Self)^.&set := $00000004;
  61362. end;
  61363. function TUSB_U1TOK.getEP2 : TBits_1; inline;
  61364. begin
  61365. getEP2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  61366. end;
  61367. procedure TUSB_U1TOK.setEP3; inline;
  61368. begin
  61369. pTDefRegMap(@Self)^.&set := $00000008;
  61370. end;
  61371. procedure TUSB_U1TOK.clearEP3; inline;
  61372. begin
  61373. pTDefRegMap(@Self)^.clr := $00000008;
  61374. end;
  61375. procedure TUSB_U1TOK.setEP3(thebits : TBits_1); inline;
  61376. begin
  61377. if thebits = 0 then
  61378. pTDefRegMap(@Self)^.clr := $00000008
  61379. else
  61380. pTDefRegMap(@Self)^.&set := $00000008;
  61381. end;
  61382. function TUSB_U1TOK.getEP3 : TBits_1; inline;
  61383. begin
  61384. getEP3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  61385. end;
  61386. procedure TUSB_U1TOK.setPID0; inline;
  61387. begin
  61388. pTDefRegMap(@Self)^.&set := $00000010;
  61389. end;
  61390. procedure TUSB_U1TOK.clearPID0; inline;
  61391. begin
  61392. pTDefRegMap(@Self)^.clr := $00000010;
  61393. end;
  61394. procedure TUSB_U1TOK.setPID0(thebits : TBits_1); inline;
  61395. begin
  61396. if thebits = 0 then
  61397. pTDefRegMap(@Self)^.clr := $00000010
  61398. else
  61399. pTDefRegMap(@Self)^.&set := $00000010;
  61400. end;
  61401. function TUSB_U1TOK.getPID0 : TBits_1; inline;
  61402. begin
  61403. getPID0 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  61404. end;
  61405. procedure TUSB_U1TOK.setPID1; inline;
  61406. begin
  61407. pTDefRegMap(@Self)^.&set := $00000020;
  61408. end;
  61409. procedure TUSB_U1TOK.clearPID1; inline;
  61410. begin
  61411. pTDefRegMap(@Self)^.clr := $00000020;
  61412. end;
  61413. procedure TUSB_U1TOK.setPID1(thebits : TBits_1); inline;
  61414. begin
  61415. if thebits = 0 then
  61416. pTDefRegMap(@Self)^.clr := $00000020
  61417. else
  61418. pTDefRegMap(@Self)^.&set := $00000020;
  61419. end;
  61420. function TUSB_U1TOK.getPID1 : TBits_1; inline;
  61421. begin
  61422. getPID1 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  61423. end;
  61424. procedure TUSB_U1TOK.setPID2; inline;
  61425. begin
  61426. pTDefRegMap(@Self)^.&set := $00000040;
  61427. end;
  61428. procedure TUSB_U1TOK.clearPID2; inline;
  61429. begin
  61430. pTDefRegMap(@Self)^.clr := $00000040;
  61431. end;
  61432. procedure TUSB_U1TOK.setPID2(thebits : TBits_1); inline;
  61433. begin
  61434. if thebits = 0 then
  61435. pTDefRegMap(@Self)^.clr := $00000040
  61436. else
  61437. pTDefRegMap(@Self)^.&set := $00000040;
  61438. end;
  61439. function TUSB_U1TOK.getPID2 : TBits_1; inline;
  61440. begin
  61441. getPID2 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  61442. end;
  61443. procedure TUSB_U1TOK.setPID3; inline;
  61444. begin
  61445. pTDefRegMap(@Self)^.&set := $00000080;
  61446. end;
  61447. procedure TUSB_U1TOK.clearPID3; inline;
  61448. begin
  61449. pTDefRegMap(@Self)^.clr := $00000080;
  61450. end;
  61451. procedure TUSB_U1TOK.setPID3(thebits : TBits_1); inline;
  61452. begin
  61453. if thebits = 0 then
  61454. pTDefRegMap(@Self)^.clr := $00000080
  61455. else
  61456. pTDefRegMap(@Self)^.&set := $00000080;
  61457. end;
  61458. function TUSB_U1TOK.getPID3 : TBits_1; inline;
  61459. begin
  61460. getPID3 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  61461. end;
  61462. procedure TPORTA_TRISA.setTRISA0; inline;
  61463. begin
  61464. pTDefRegMap(@Self)^.&set := $00000001;
  61465. end;
  61466. procedure TPORTA_TRISA.clearTRISA0; inline;
  61467. begin
  61468. pTDefRegMap(@Self)^.clr := $00000001;
  61469. end;
  61470. procedure TPORTA_TRISA.setTRISA0(thebits : TBits_1); inline;
  61471. begin
  61472. if thebits = 0 then
  61473. pTDefRegMap(@Self)^.clr := $00000001
  61474. else
  61475. pTDefRegMap(@Self)^.&set := $00000001;
  61476. end;
  61477. function TPORTA_TRISA.getTRISA0 : TBits_1; inline;
  61478. begin
  61479. getTRISA0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  61480. end;
  61481. procedure TPORTA_TRISA.setTRISA1; inline;
  61482. begin
  61483. pTDefRegMap(@Self)^.&set := $00000002;
  61484. end;
  61485. procedure TPORTA_TRISA.clearTRISA1; inline;
  61486. begin
  61487. pTDefRegMap(@Self)^.clr := $00000002;
  61488. end;
  61489. procedure TPORTA_TRISA.setTRISA1(thebits : TBits_1); inline;
  61490. begin
  61491. if thebits = 0 then
  61492. pTDefRegMap(@Self)^.clr := $00000002
  61493. else
  61494. pTDefRegMap(@Self)^.&set := $00000002;
  61495. end;
  61496. function TPORTA_TRISA.getTRISA1 : TBits_1; inline;
  61497. begin
  61498. getTRISA1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  61499. end;
  61500. procedure TPORTA_TRISA.setTRISA2; inline;
  61501. begin
  61502. pTDefRegMap(@Self)^.&set := $00000004;
  61503. end;
  61504. procedure TPORTA_TRISA.clearTRISA2; inline;
  61505. begin
  61506. pTDefRegMap(@Self)^.clr := $00000004;
  61507. end;
  61508. procedure TPORTA_TRISA.setTRISA2(thebits : TBits_1); inline;
  61509. begin
  61510. if thebits = 0 then
  61511. pTDefRegMap(@Self)^.clr := $00000004
  61512. else
  61513. pTDefRegMap(@Self)^.&set := $00000004;
  61514. end;
  61515. function TPORTA_TRISA.getTRISA2 : TBits_1; inline;
  61516. begin
  61517. getTRISA2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  61518. end;
  61519. procedure TPORTA_TRISA.setTRISA3; inline;
  61520. begin
  61521. pTDefRegMap(@Self)^.&set := $00000008;
  61522. end;
  61523. procedure TPORTA_TRISA.clearTRISA3; inline;
  61524. begin
  61525. pTDefRegMap(@Self)^.clr := $00000008;
  61526. end;
  61527. procedure TPORTA_TRISA.setTRISA3(thebits : TBits_1); inline;
  61528. begin
  61529. if thebits = 0 then
  61530. pTDefRegMap(@Self)^.clr := $00000008
  61531. else
  61532. pTDefRegMap(@Self)^.&set := $00000008;
  61533. end;
  61534. function TPORTA_TRISA.getTRISA3 : TBits_1; inline;
  61535. begin
  61536. getTRISA3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  61537. end;
  61538. procedure TPORTA_TRISA.setTRISA4; inline;
  61539. begin
  61540. pTDefRegMap(@Self)^.&set := $00000010;
  61541. end;
  61542. procedure TPORTA_TRISA.clearTRISA4; inline;
  61543. begin
  61544. pTDefRegMap(@Self)^.clr := $00000010;
  61545. end;
  61546. procedure TPORTA_TRISA.setTRISA4(thebits : TBits_1); inline;
  61547. begin
  61548. if thebits = 0 then
  61549. pTDefRegMap(@Self)^.clr := $00000010
  61550. else
  61551. pTDefRegMap(@Self)^.&set := $00000010;
  61552. end;
  61553. function TPORTA_TRISA.getTRISA4 : TBits_1; inline;
  61554. begin
  61555. getTRISA4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  61556. end;
  61557. procedure TPORTA_TRISA.setTRISA5; inline;
  61558. begin
  61559. pTDefRegMap(@Self)^.&set := $00000020;
  61560. end;
  61561. procedure TPORTA_TRISA.clearTRISA5; inline;
  61562. begin
  61563. pTDefRegMap(@Self)^.clr := $00000020;
  61564. end;
  61565. procedure TPORTA_TRISA.setTRISA5(thebits : TBits_1); inline;
  61566. begin
  61567. if thebits = 0 then
  61568. pTDefRegMap(@Self)^.clr := $00000020
  61569. else
  61570. pTDefRegMap(@Self)^.&set := $00000020;
  61571. end;
  61572. function TPORTA_TRISA.getTRISA5 : TBits_1; inline;
  61573. begin
  61574. getTRISA5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  61575. end;
  61576. procedure TPORTA_TRISA.setTRISA6; inline;
  61577. begin
  61578. pTDefRegMap(@Self)^.&set := $00000040;
  61579. end;
  61580. procedure TPORTA_TRISA.clearTRISA6; inline;
  61581. begin
  61582. pTDefRegMap(@Self)^.clr := $00000040;
  61583. end;
  61584. procedure TPORTA_TRISA.setTRISA6(thebits : TBits_1); inline;
  61585. begin
  61586. if thebits = 0 then
  61587. pTDefRegMap(@Self)^.clr := $00000040
  61588. else
  61589. pTDefRegMap(@Self)^.&set := $00000040;
  61590. end;
  61591. function TPORTA_TRISA.getTRISA6 : TBits_1; inline;
  61592. begin
  61593. getTRISA6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  61594. end;
  61595. procedure TPORTA_TRISA.setTRISA7; inline;
  61596. begin
  61597. pTDefRegMap(@Self)^.&set := $00000080;
  61598. end;
  61599. procedure TPORTA_TRISA.clearTRISA7; inline;
  61600. begin
  61601. pTDefRegMap(@Self)^.clr := $00000080;
  61602. end;
  61603. procedure TPORTA_TRISA.setTRISA7(thebits : TBits_1); inline;
  61604. begin
  61605. if thebits = 0 then
  61606. pTDefRegMap(@Self)^.clr := $00000080
  61607. else
  61608. pTDefRegMap(@Self)^.&set := $00000080;
  61609. end;
  61610. function TPORTA_TRISA.getTRISA7 : TBits_1; inline;
  61611. begin
  61612. getTRISA7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  61613. end;
  61614. procedure TPORTA_TRISA.setTRISA9; inline;
  61615. begin
  61616. pTDefRegMap(@Self)^.&set := $00000200;
  61617. end;
  61618. procedure TPORTA_TRISA.clearTRISA9; inline;
  61619. begin
  61620. pTDefRegMap(@Self)^.clr := $00000200;
  61621. end;
  61622. procedure TPORTA_TRISA.setTRISA9(thebits : TBits_1); inline;
  61623. begin
  61624. if thebits = 0 then
  61625. pTDefRegMap(@Self)^.clr := $00000200
  61626. else
  61627. pTDefRegMap(@Self)^.&set := $00000200;
  61628. end;
  61629. function TPORTA_TRISA.getTRISA9 : TBits_1; inline;
  61630. begin
  61631. getTRISA9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  61632. end;
  61633. procedure TPORTA_TRISA.setTRISA10; inline;
  61634. begin
  61635. pTDefRegMap(@Self)^.&set := $00000400;
  61636. end;
  61637. procedure TPORTA_TRISA.clearTRISA10; inline;
  61638. begin
  61639. pTDefRegMap(@Self)^.clr := $00000400;
  61640. end;
  61641. procedure TPORTA_TRISA.setTRISA10(thebits : TBits_1); inline;
  61642. begin
  61643. if thebits = 0 then
  61644. pTDefRegMap(@Self)^.clr := $00000400
  61645. else
  61646. pTDefRegMap(@Self)^.&set := $00000400;
  61647. end;
  61648. function TPORTA_TRISA.getTRISA10 : TBits_1; inline;
  61649. begin
  61650. getTRISA10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  61651. end;
  61652. procedure TPORTA_TRISA.setTRISA14; inline;
  61653. begin
  61654. pTDefRegMap(@Self)^.&set := $00004000;
  61655. end;
  61656. procedure TPORTA_TRISA.clearTRISA14; inline;
  61657. begin
  61658. pTDefRegMap(@Self)^.clr := $00004000;
  61659. end;
  61660. procedure TPORTA_TRISA.setTRISA14(thebits : TBits_1); inline;
  61661. begin
  61662. if thebits = 0 then
  61663. pTDefRegMap(@Self)^.clr := $00004000
  61664. else
  61665. pTDefRegMap(@Self)^.&set := $00004000;
  61666. end;
  61667. function TPORTA_TRISA.getTRISA14 : TBits_1; inline;
  61668. begin
  61669. getTRISA14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  61670. end;
  61671. procedure TPORTA_TRISA.setTRISA15; inline;
  61672. begin
  61673. pTDefRegMap(@Self)^.&set := $00008000;
  61674. end;
  61675. procedure TPORTA_TRISA.clearTRISA15; inline;
  61676. begin
  61677. pTDefRegMap(@Self)^.clr := $00008000;
  61678. end;
  61679. procedure TPORTA_TRISA.setTRISA15(thebits : TBits_1); inline;
  61680. begin
  61681. if thebits = 0 then
  61682. pTDefRegMap(@Self)^.clr := $00008000
  61683. else
  61684. pTDefRegMap(@Self)^.&set := $00008000;
  61685. end;
  61686. function TPORTA_TRISA.getTRISA15 : TBits_1; inline;
  61687. begin
  61688. getTRISA15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  61689. end;
  61690. procedure TPORTA_TRISA.setw(thebits : TBits_32); inline;
  61691. begin
  61692. pTDefRegMap(@Self)^.val := thebits;
  61693. end;
  61694. function TPORTA_TRISA.getw : TBits_32; inline;
  61695. begin
  61696. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  61697. end;
  61698. procedure TPORTA_PORTA.setRA0; inline;
  61699. begin
  61700. pTDefRegMap(@Self)^.&set := $00000001;
  61701. end;
  61702. procedure TPORTA_PORTA.clearRA0; inline;
  61703. begin
  61704. pTDefRegMap(@Self)^.clr := $00000001;
  61705. end;
  61706. procedure TPORTA_PORTA.setRA0(thebits : TBits_1); inline;
  61707. begin
  61708. if thebits = 0 then
  61709. pTDefRegMap(@Self)^.clr := $00000001
  61710. else
  61711. pTDefRegMap(@Self)^.&set := $00000001;
  61712. end;
  61713. function TPORTA_PORTA.getRA0 : TBits_1; inline;
  61714. begin
  61715. getRA0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  61716. end;
  61717. procedure TPORTA_PORTA.setRA1; inline;
  61718. begin
  61719. pTDefRegMap(@Self)^.&set := $00000002;
  61720. end;
  61721. procedure TPORTA_PORTA.clearRA1; inline;
  61722. begin
  61723. pTDefRegMap(@Self)^.clr := $00000002;
  61724. end;
  61725. procedure TPORTA_PORTA.setRA1(thebits : TBits_1); inline;
  61726. begin
  61727. if thebits = 0 then
  61728. pTDefRegMap(@Self)^.clr := $00000002
  61729. else
  61730. pTDefRegMap(@Self)^.&set := $00000002;
  61731. end;
  61732. function TPORTA_PORTA.getRA1 : TBits_1; inline;
  61733. begin
  61734. getRA1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  61735. end;
  61736. procedure TPORTA_PORTA.setRA2; inline;
  61737. begin
  61738. pTDefRegMap(@Self)^.&set := $00000004;
  61739. end;
  61740. procedure TPORTA_PORTA.clearRA2; inline;
  61741. begin
  61742. pTDefRegMap(@Self)^.clr := $00000004;
  61743. end;
  61744. procedure TPORTA_PORTA.setRA2(thebits : TBits_1); inline;
  61745. begin
  61746. if thebits = 0 then
  61747. pTDefRegMap(@Self)^.clr := $00000004
  61748. else
  61749. pTDefRegMap(@Self)^.&set := $00000004;
  61750. end;
  61751. function TPORTA_PORTA.getRA2 : TBits_1; inline;
  61752. begin
  61753. getRA2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  61754. end;
  61755. procedure TPORTA_PORTA.setRA3; inline;
  61756. begin
  61757. pTDefRegMap(@Self)^.&set := $00000008;
  61758. end;
  61759. procedure TPORTA_PORTA.clearRA3; inline;
  61760. begin
  61761. pTDefRegMap(@Self)^.clr := $00000008;
  61762. end;
  61763. procedure TPORTA_PORTA.setRA3(thebits : TBits_1); inline;
  61764. begin
  61765. if thebits = 0 then
  61766. pTDefRegMap(@Self)^.clr := $00000008
  61767. else
  61768. pTDefRegMap(@Self)^.&set := $00000008;
  61769. end;
  61770. function TPORTA_PORTA.getRA3 : TBits_1; inline;
  61771. begin
  61772. getRA3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  61773. end;
  61774. procedure TPORTA_PORTA.setRA4; inline;
  61775. begin
  61776. pTDefRegMap(@Self)^.&set := $00000010;
  61777. end;
  61778. procedure TPORTA_PORTA.clearRA4; inline;
  61779. begin
  61780. pTDefRegMap(@Self)^.clr := $00000010;
  61781. end;
  61782. procedure TPORTA_PORTA.setRA4(thebits : TBits_1); inline;
  61783. begin
  61784. if thebits = 0 then
  61785. pTDefRegMap(@Self)^.clr := $00000010
  61786. else
  61787. pTDefRegMap(@Self)^.&set := $00000010;
  61788. end;
  61789. function TPORTA_PORTA.getRA4 : TBits_1; inline;
  61790. begin
  61791. getRA4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  61792. end;
  61793. procedure TPORTA_PORTA.setRA5; inline;
  61794. begin
  61795. pTDefRegMap(@Self)^.&set := $00000020;
  61796. end;
  61797. procedure TPORTA_PORTA.clearRA5; inline;
  61798. begin
  61799. pTDefRegMap(@Self)^.clr := $00000020;
  61800. end;
  61801. procedure TPORTA_PORTA.setRA5(thebits : TBits_1); inline;
  61802. begin
  61803. if thebits = 0 then
  61804. pTDefRegMap(@Self)^.clr := $00000020
  61805. else
  61806. pTDefRegMap(@Self)^.&set := $00000020;
  61807. end;
  61808. function TPORTA_PORTA.getRA5 : TBits_1; inline;
  61809. begin
  61810. getRA5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  61811. end;
  61812. procedure TPORTA_PORTA.setRA6; inline;
  61813. begin
  61814. pTDefRegMap(@Self)^.&set := $00000040;
  61815. end;
  61816. procedure TPORTA_PORTA.clearRA6; inline;
  61817. begin
  61818. pTDefRegMap(@Self)^.clr := $00000040;
  61819. end;
  61820. procedure TPORTA_PORTA.setRA6(thebits : TBits_1); inline;
  61821. begin
  61822. if thebits = 0 then
  61823. pTDefRegMap(@Self)^.clr := $00000040
  61824. else
  61825. pTDefRegMap(@Self)^.&set := $00000040;
  61826. end;
  61827. function TPORTA_PORTA.getRA6 : TBits_1; inline;
  61828. begin
  61829. getRA6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  61830. end;
  61831. procedure TPORTA_PORTA.setRA7; inline;
  61832. begin
  61833. pTDefRegMap(@Self)^.&set := $00000080;
  61834. end;
  61835. procedure TPORTA_PORTA.clearRA7; inline;
  61836. begin
  61837. pTDefRegMap(@Self)^.clr := $00000080;
  61838. end;
  61839. procedure TPORTA_PORTA.setRA7(thebits : TBits_1); inline;
  61840. begin
  61841. if thebits = 0 then
  61842. pTDefRegMap(@Self)^.clr := $00000080
  61843. else
  61844. pTDefRegMap(@Self)^.&set := $00000080;
  61845. end;
  61846. function TPORTA_PORTA.getRA7 : TBits_1; inline;
  61847. begin
  61848. getRA7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  61849. end;
  61850. procedure TPORTA_PORTA.setRA9; inline;
  61851. begin
  61852. pTDefRegMap(@Self)^.&set := $00000200;
  61853. end;
  61854. procedure TPORTA_PORTA.clearRA9; inline;
  61855. begin
  61856. pTDefRegMap(@Self)^.clr := $00000200;
  61857. end;
  61858. procedure TPORTA_PORTA.setRA9(thebits : TBits_1); inline;
  61859. begin
  61860. if thebits = 0 then
  61861. pTDefRegMap(@Self)^.clr := $00000200
  61862. else
  61863. pTDefRegMap(@Self)^.&set := $00000200;
  61864. end;
  61865. function TPORTA_PORTA.getRA9 : TBits_1; inline;
  61866. begin
  61867. getRA9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  61868. end;
  61869. procedure TPORTA_PORTA.setRA10; inline;
  61870. begin
  61871. pTDefRegMap(@Self)^.&set := $00000400;
  61872. end;
  61873. procedure TPORTA_PORTA.clearRA10; inline;
  61874. begin
  61875. pTDefRegMap(@Self)^.clr := $00000400;
  61876. end;
  61877. procedure TPORTA_PORTA.setRA10(thebits : TBits_1); inline;
  61878. begin
  61879. if thebits = 0 then
  61880. pTDefRegMap(@Self)^.clr := $00000400
  61881. else
  61882. pTDefRegMap(@Self)^.&set := $00000400;
  61883. end;
  61884. function TPORTA_PORTA.getRA10 : TBits_1; inline;
  61885. begin
  61886. getRA10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  61887. end;
  61888. procedure TPORTA_PORTA.setRA14; inline;
  61889. begin
  61890. pTDefRegMap(@Self)^.&set := $00004000;
  61891. end;
  61892. procedure TPORTA_PORTA.clearRA14; inline;
  61893. begin
  61894. pTDefRegMap(@Self)^.clr := $00004000;
  61895. end;
  61896. procedure TPORTA_PORTA.setRA14(thebits : TBits_1); inline;
  61897. begin
  61898. if thebits = 0 then
  61899. pTDefRegMap(@Self)^.clr := $00004000
  61900. else
  61901. pTDefRegMap(@Self)^.&set := $00004000;
  61902. end;
  61903. function TPORTA_PORTA.getRA14 : TBits_1; inline;
  61904. begin
  61905. getRA14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  61906. end;
  61907. procedure TPORTA_PORTA.setRA15; inline;
  61908. begin
  61909. pTDefRegMap(@Self)^.&set := $00008000;
  61910. end;
  61911. procedure TPORTA_PORTA.clearRA15; inline;
  61912. begin
  61913. pTDefRegMap(@Self)^.clr := $00008000;
  61914. end;
  61915. procedure TPORTA_PORTA.setRA15(thebits : TBits_1); inline;
  61916. begin
  61917. if thebits = 0 then
  61918. pTDefRegMap(@Self)^.clr := $00008000
  61919. else
  61920. pTDefRegMap(@Self)^.&set := $00008000;
  61921. end;
  61922. function TPORTA_PORTA.getRA15 : TBits_1; inline;
  61923. begin
  61924. getRA15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  61925. end;
  61926. procedure TPORTA_PORTA.setw(thebits : TBits_32); inline;
  61927. begin
  61928. pTDefRegMap(@Self)^.val := thebits;
  61929. end;
  61930. function TPORTA_PORTA.getw : TBits_32; inline;
  61931. begin
  61932. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  61933. end;
  61934. procedure TPORTA_LATA.setLATA0; inline;
  61935. begin
  61936. pTDefRegMap(@Self)^.&set := $00000001;
  61937. end;
  61938. procedure TPORTA_LATA.clearLATA0; inline;
  61939. begin
  61940. pTDefRegMap(@Self)^.clr := $00000001;
  61941. end;
  61942. procedure TPORTA_LATA.setLATA0(thebits : TBits_1); inline;
  61943. begin
  61944. if thebits = 0 then
  61945. pTDefRegMap(@Self)^.clr := $00000001
  61946. else
  61947. pTDefRegMap(@Self)^.&set := $00000001;
  61948. end;
  61949. function TPORTA_LATA.getLATA0 : TBits_1; inline;
  61950. begin
  61951. getLATA0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  61952. end;
  61953. procedure TPORTA_LATA.setLATA1; inline;
  61954. begin
  61955. pTDefRegMap(@Self)^.&set := $00000002;
  61956. end;
  61957. procedure TPORTA_LATA.clearLATA1; inline;
  61958. begin
  61959. pTDefRegMap(@Self)^.clr := $00000002;
  61960. end;
  61961. procedure TPORTA_LATA.setLATA1(thebits : TBits_1); inline;
  61962. begin
  61963. if thebits = 0 then
  61964. pTDefRegMap(@Self)^.clr := $00000002
  61965. else
  61966. pTDefRegMap(@Self)^.&set := $00000002;
  61967. end;
  61968. function TPORTA_LATA.getLATA1 : TBits_1; inline;
  61969. begin
  61970. getLATA1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  61971. end;
  61972. procedure TPORTA_LATA.setLATA2; inline;
  61973. begin
  61974. pTDefRegMap(@Self)^.&set := $00000004;
  61975. end;
  61976. procedure TPORTA_LATA.clearLATA2; inline;
  61977. begin
  61978. pTDefRegMap(@Self)^.clr := $00000004;
  61979. end;
  61980. procedure TPORTA_LATA.setLATA2(thebits : TBits_1); inline;
  61981. begin
  61982. if thebits = 0 then
  61983. pTDefRegMap(@Self)^.clr := $00000004
  61984. else
  61985. pTDefRegMap(@Self)^.&set := $00000004;
  61986. end;
  61987. function TPORTA_LATA.getLATA2 : TBits_1; inline;
  61988. begin
  61989. getLATA2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  61990. end;
  61991. procedure TPORTA_LATA.setLATA3; inline;
  61992. begin
  61993. pTDefRegMap(@Self)^.&set := $00000008;
  61994. end;
  61995. procedure TPORTA_LATA.clearLATA3; inline;
  61996. begin
  61997. pTDefRegMap(@Self)^.clr := $00000008;
  61998. end;
  61999. procedure TPORTA_LATA.setLATA3(thebits : TBits_1); inline;
  62000. begin
  62001. if thebits = 0 then
  62002. pTDefRegMap(@Self)^.clr := $00000008
  62003. else
  62004. pTDefRegMap(@Self)^.&set := $00000008;
  62005. end;
  62006. function TPORTA_LATA.getLATA3 : TBits_1; inline;
  62007. begin
  62008. getLATA3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  62009. end;
  62010. procedure TPORTA_LATA.setLATA4; inline;
  62011. begin
  62012. pTDefRegMap(@Self)^.&set := $00000010;
  62013. end;
  62014. procedure TPORTA_LATA.clearLATA4; inline;
  62015. begin
  62016. pTDefRegMap(@Self)^.clr := $00000010;
  62017. end;
  62018. procedure TPORTA_LATA.setLATA4(thebits : TBits_1); inline;
  62019. begin
  62020. if thebits = 0 then
  62021. pTDefRegMap(@Self)^.clr := $00000010
  62022. else
  62023. pTDefRegMap(@Self)^.&set := $00000010;
  62024. end;
  62025. function TPORTA_LATA.getLATA4 : TBits_1; inline;
  62026. begin
  62027. getLATA4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  62028. end;
  62029. procedure TPORTA_LATA.setLATA5; inline;
  62030. begin
  62031. pTDefRegMap(@Self)^.&set := $00000020;
  62032. end;
  62033. procedure TPORTA_LATA.clearLATA5; inline;
  62034. begin
  62035. pTDefRegMap(@Self)^.clr := $00000020;
  62036. end;
  62037. procedure TPORTA_LATA.setLATA5(thebits : TBits_1); inline;
  62038. begin
  62039. if thebits = 0 then
  62040. pTDefRegMap(@Self)^.clr := $00000020
  62041. else
  62042. pTDefRegMap(@Self)^.&set := $00000020;
  62043. end;
  62044. function TPORTA_LATA.getLATA5 : TBits_1; inline;
  62045. begin
  62046. getLATA5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  62047. end;
  62048. procedure TPORTA_LATA.setLATA6; inline;
  62049. begin
  62050. pTDefRegMap(@Self)^.&set := $00000040;
  62051. end;
  62052. procedure TPORTA_LATA.clearLATA6; inline;
  62053. begin
  62054. pTDefRegMap(@Self)^.clr := $00000040;
  62055. end;
  62056. procedure TPORTA_LATA.setLATA6(thebits : TBits_1); inline;
  62057. begin
  62058. if thebits = 0 then
  62059. pTDefRegMap(@Self)^.clr := $00000040
  62060. else
  62061. pTDefRegMap(@Self)^.&set := $00000040;
  62062. end;
  62063. function TPORTA_LATA.getLATA6 : TBits_1; inline;
  62064. begin
  62065. getLATA6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  62066. end;
  62067. procedure TPORTA_LATA.setLATA7; inline;
  62068. begin
  62069. pTDefRegMap(@Self)^.&set := $00000080;
  62070. end;
  62071. procedure TPORTA_LATA.clearLATA7; inline;
  62072. begin
  62073. pTDefRegMap(@Self)^.clr := $00000080;
  62074. end;
  62075. procedure TPORTA_LATA.setLATA7(thebits : TBits_1); inline;
  62076. begin
  62077. if thebits = 0 then
  62078. pTDefRegMap(@Self)^.clr := $00000080
  62079. else
  62080. pTDefRegMap(@Self)^.&set := $00000080;
  62081. end;
  62082. function TPORTA_LATA.getLATA7 : TBits_1; inline;
  62083. begin
  62084. getLATA7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  62085. end;
  62086. procedure TPORTA_LATA.setLATA9; inline;
  62087. begin
  62088. pTDefRegMap(@Self)^.&set := $00000200;
  62089. end;
  62090. procedure TPORTA_LATA.clearLATA9; inline;
  62091. begin
  62092. pTDefRegMap(@Self)^.clr := $00000200;
  62093. end;
  62094. procedure TPORTA_LATA.setLATA9(thebits : TBits_1); inline;
  62095. begin
  62096. if thebits = 0 then
  62097. pTDefRegMap(@Self)^.clr := $00000200
  62098. else
  62099. pTDefRegMap(@Self)^.&set := $00000200;
  62100. end;
  62101. function TPORTA_LATA.getLATA9 : TBits_1; inline;
  62102. begin
  62103. getLATA9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  62104. end;
  62105. procedure TPORTA_LATA.setLATA10; inline;
  62106. begin
  62107. pTDefRegMap(@Self)^.&set := $00000400;
  62108. end;
  62109. procedure TPORTA_LATA.clearLATA10; inline;
  62110. begin
  62111. pTDefRegMap(@Self)^.clr := $00000400;
  62112. end;
  62113. procedure TPORTA_LATA.setLATA10(thebits : TBits_1); inline;
  62114. begin
  62115. if thebits = 0 then
  62116. pTDefRegMap(@Self)^.clr := $00000400
  62117. else
  62118. pTDefRegMap(@Self)^.&set := $00000400;
  62119. end;
  62120. function TPORTA_LATA.getLATA10 : TBits_1; inline;
  62121. begin
  62122. getLATA10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  62123. end;
  62124. procedure TPORTA_LATA.setLATA14; inline;
  62125. begin
  62126. pTDefRegMap(@Self)^.&set := $00004000;
  62127. end;
  62128. procedure TPORTA_LATA.clearLATA14; inline;
  62129. begin
  62130. pTDefRegMap(@Self)^.clr := $00004000;
  62131. end;
  62132. procedure TPORTA_LATA.setLATA14(thebits : TBits_1); inline;
  62133. begin
  62134. if thebits = 0 then
  62135. pTDefRegMap(@Self)^.clr := $00004000
  62136. else
  62137. pTDefRegMap(@Self)^.&set := $00004000;
  62138. end;
  62139. function TPORTA_LATA.getLATA14 : TBits_1; inline;
  62140. begin
  62141. getLATA14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  62142. end;
  62143. procedure TPORTA_LATA.setLATA15; inline;
  62144. begin
  62145. pTDefRegMap(@Self)^.&set := $00008000;
  62146. end;
  62147. procedure TPORTA_LATA.clearLATA15; inline;
  62148. begin
  62149. pTDefRegMap(@Self)^.clr := $00008000;
  62150. end;
  62151. procedure TPORTA_LATA.setLATA15(thebits : TBits_1); inline;
  62152. begin
  62153. if thebits = 0 then
  62154. pTDefRegMap(@Self)^.clr := $00008000
  62155. else
  62156. pTDefRegMap(@Self)^.&set := $00008000;
  62157. end;
  62158. function TPORTA_LATA.getLATA15 : TBits_1; inline;
  62159. begin
  62160. getLATA15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  62161. end;
  62162. procedure TPORTA_LATA.setw(thebits : TBits_32); inline;
  62163. begin
  62164. pTDefRegMap(@Self)^.val := thebits;
  62165. end;
  62166. function TPORTA_LATA.getw : TBits_32; inline;
  62167. begin
  62168. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  62169. end;
  62170. procedure TPORTA_ODCA.setODCA0; inline;
  62171. begin
  62172. pTDefRegMap(@Self)^.&set := $00000001;
  62173. end;
  62174. procedure TPORTA_ODCA.clearODCA0; inline;
  62175. begin
  62176. pTDefRegMap(@Self)^.clr := $00000001;
  62177. end;
  62178. procedure TPORTA_ODCA.setODCA0(thebits : TBits_1); inline;
  62179. begin
  62180. if thebits = 0 then
  62181. pTDefRegMap(@Self)^.clr := $00000001
  62182. else
  62183. pTDefRegMap(@Self)^.&set := $00000001;
  62184. end;
  62185. function TPORTA_ODCA.getODCA0 : TBits_1; inline;
  62186. begin
  62187. getODCA0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  62188. end;
  62189. procedure TPORTA_ODCA.setODCA1; inline;
  62190. begin
  62191. pTDefRegMap(@Self)^.&set := $00000002;
  62192. end;
  62193. procedure TPORTA_ODCA.clearODCA1; inline;
  62194. begin
  62195. pTDefRegMap(@Self)^.clr := $00000002;
  62196. end;
  62197. procedure TPORTA_ODCA.setODCA1(thebits : TBits_1); inline;
  62198. begin
  62199. if thebits = 0 then
  62200. pTDefRegMap(@Self)^.clr := $00000002
  62201. else
  62202. pTDefRegMap(@Self)^.&set := $00000002;
  62203. end;
  62204. function TPORTA_ODCA.getODCA1 : TBits_1; inline;
  62205. begin
  62206. getODCA1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  62207. end;
  62208. procedure TPORTA_ODCA.setODCA2; inline;
  62209. begin
  62210. pTDefRegMap(@Self)^.&set := $00000004;
  62211. end;
  62212. procedure TPORTA_ODCA.clearODCA2; inline;
  62213. begin
  62214. pTDefRegMap(@Self)^.clr := $00000004;
  62215. end;
  62216. procedure TPORTA_ODCA.setODCA2(thebits : TBits_1); inline;
  62217. begin
  62218. if thebits = 0 then
  62219. pTDefRegMap(@Self)^.clr := $00000004
  62220. else
  62221. pTDefRegMap(@Self)^.&set := $00000004;
  62222. end;
  62223. function TPORTA_ODCA.getODCA2 : TBits_1; inline;
  62224. begin
  62225. getODCA2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  62226. end;
  62227. procedure TPORTA_ODCA.setODCA3; inline;
  62228. begin
  62229. pTDefRegMap(@Self)^.&set := $00000008;
  62230. end;
  62231. procedure TPORTA_ODCA.clearODCA3; inline;
  62232. begin
  62233. pTDefRegMap(@Self)^.clr := $00000008;
  62234. end;
  62235. procedure TPORTA_ODCA.setODCA3(thebits : TBits_1); inline;
  62236. begin
  62237. if thebits = 0 then
  62238. pTDefRegMap(@Self)^.clr := $00000008
  62239. else
  62240. pTDefRegMap(@Self)^.&set := $00000008;
  62241. end;
  62242. function TPORTA_ODCA.getODCA3 : TBits_1; inline;
  62243. begin
  62244. getODCA3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  62245. end;
  62246. procedure TPORTA_ODCA.setODCA4; inline;
  62247. begin
  62248. pTDefRegMap(@Self)^.&set := $00000010;
  62249. end;
  62250. procedure TPORTA_ODCA.clearODCA4; inline;
  62251. begin
  62252. pTDefRegMap(@Self)^.clr := $00000010;
  62253. end;
  62254. procedure TPORTA_ODCA.setODCA4(thebits : TBits_1); inline;
  62255. begin
  62256. if thebits = 0 then
  62257. pTDefRegMap(@Self)^.clr := $00000010
  62258. else
  62259. pTDefRegMap(@Self)^.&set := $00000010;
  62260. end;
  62261. function TPORTA_ODCA.getODCA4 : TBits_1; inline;
  62262. begin
  62263. getODCA4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  62264. end;
  62265. procedure TPORTA_ODCA.setODCA5; inline;
  62266. begin
  62267. pTDefRegMap(@Self)^.&set := $00000020;
  62268. end;
  62269. procedure TPORTA_ODCA.clearODCA5; inline;
  62270. begin
  62271. pTDefRegMap(@Self)^.clr := $00000020;
  62272. end;
  62273. procedure TPORTA_ODCA.setODCA5(thebits : TBits_1); inline;
  62274. begin
  62275. if thebits = 0 then
  62276. pTDefRegMap(@Self)^.clr := $00000020
  62277. else
  62278. pTDefRegMap(@Self)^.&set := $00000020;
  62279. end;
  62280. function TPORTA_ODCA.getODCA5 : TBits_1; inline;
  62281. begin
  62282. getODCA5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  62283. end;
  62284. procedure TPORTA_ODCA.setODCA6; inline;
  62285. begin
  62286. pTDefRegMap(@Self)^.&set := $00000040;
  62287. end;
  62288. procedure TPORTA_ODCA.clearODCA6; inline;
  62289. begin
  62290. pTDefRegMap(@Self)^.clr := $00000040;
  62291. end;
  62292. procedure TPORTA_ODCA.setODCA6(thebits : TBits_1); inline;
  62293. begin
  62294. if thebits = 0 then
  62295. pTDefRegMap(@Self)^.clr := $00000040
  62296. else
  62297. pTDefRegMap(@Self)^.&set := $00000040;
  62298. end;
  62299. function TPORTA_ODCA.getODCA6 : TBits_1; inline;
  62300. begin
  62301. getODCA6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  62302. end;
  62303. procedure TPORTA_ODCA.setODCA7; inline;
  62304. begin
  62305. pTDefRegMap(@Self)^.&set := $00000080;
  62306. end;
  62307. procedure TPORTA_ODCA.clearODCA7; inline;
  62308. begin
  62309. pTDefRegMap(@Self)^.clr := $00000080;
  62310. end;
  62311. procedure TPORTA_ODCA.setODCA7(thebits : TBits_1); inline;
  62312. begin
  62313. if thebits = 0 then
  62314. pTDefRegMap(@Self)^.clr := $00000080
  62315. else
  62316. pTDefRegMap(@Self)^.&set := $00000080;
  62317. end;
  62318. function TPORTA_ODCA.getODCA7 : TBits_1; inline;
  62319. begin
  62320. getODCA7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  62321. end;
  62322. procedure TPORTA_ODCA.setODCA9; inline;
  62323. begin
  62324. pTDefRegMap(@Self)^.&set := $00000200;
  62325. end;
  62326. procedure TPORTA_ODCA.clearODCA9; inline;
  62327. begin
  62328. pTDefRegMap(@Self)^.clr := $00000200;
  62329. end;
  62330. procedure TPORTA_ODCA.setODCA9(thebits : TBits_1); inline;
  62331. begin
  62332. if thebits = 0 then
  62333. pTDefRegMap(@Self)^.clr := $00000200
  62334. else
  62335. pTDefRegMap(@Self)^.&set := $00000200;
  62336. end;
  62337. function TPORTA_ODCA.getODCA9 : TBits_1; inline;
  62338. begin
  62339. getODCA9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  62340. end;
  62341. procedure TPORTA_ODCA.setODCA10; inline;
  62342. begin
  62343. pTDefRegMap(@Self)^.&set := $00000400;
  62344. end;
  62345. procedure TPORTA_ODCA.clearODCA10; inline;
  62346. begin
  62347. pTDefRegMap(@Self)^.clr := $00000400;
  62348. end;
  62349. procedure TPORTA_ODCA.setODCA10(thebits : TBits_1); inline;
  62350. begin
  62351. if thebits = 0 then
  62352. pTDefRegMap(@Self)^.clr := $00000400
  62353. else
  62354. pTDefRegMap(@Self)^.&set := $00000400;
  62355. end;
  62356. function TPORTA_ODCA.getODCA10 : TBits_1; inline;
  62357. begin
  62358. getODCA10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  62359. end;
  62360. procedure TPORTA_ODCA.setODCA14; inline;
  62361. begin
  62362. pTDefRegMap(@Self)^.&set := $00004000;
  62363. end;
  62364. procedure TPORTA_ODCA.clearODCA14; inline;
  62365. begin
  62366. pTDefRegMap(@Self)^.clr := $00004000;
  62367. end;
  62368. procedure TPORTA_ODCA.setODCA14(thebits : TBits_1); inline;
  62369. begin
  62370. if thebits = 0 then
  62371. pTDefRegMap(@Self)^.clr := $00004000
  62372. else
  62373. pTDefRegMap(@Self)^.&set := $00004000;
  62374. end;
  62375. function TPORTA_ODCA.getODCA14 : TBits_1; inline;
  62376. begin
  62377. getODCA14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  62378. end;
  62379. procedure TPORTA_ODCA.setODCA15; inline;
  62380. begin
  62381. pTDefRegMap(@Self)^.&set := $00008000;
  62382. end;
  62383. procedure TPORTA_ODCA.clearODCA15; inline;
  62384. begin
  62385. pTDefRegMap(@Self)^.clr := $00008000;
  62386. end;
  62387. procedure TPORTA_ODCA.setODCA15(thebits : TBits_1); inline;
  62388. begin
  62389. if thebits = 0 then
  62390. pTDefRegMap(@Self)^.clr := $00008000
  62391. else
  62392. pTDefRegMap(@Self)^.&set := $00008000;
  62393. end;
  62394. function TPORTA_ODCA.getODCA15 : TBits_1; inline;
  62395. begin
  62396. getODCA15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  62397. end;
  62398. procedure TPORTA_ODCA.setw(thebits : TBits_32); inline;
  62399. begin
  62400. pTDefRegMap(@Self)^.val := thebits;
  62401. end;
  62402. function TPORTA_ODCA.getw : TBits_32; inline;
  62403. begin
  62404. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  62405. end;
  62406. procedure TPORTB_TRISB.setTRISB0; inline;
  62407. begin
  62408. pTDefRegMap(@Self)^.&set := $00000001;
  62409. end;
  62410. procedure TPORTB_TRISB.clearTRISB0; inline;
  62411. begin
  62412. pTDefRegMap(@Self)^.clr := $00000001;
  62413. end;
  62414. procedure TPORTB_TRISB.setTRISB0(thebits : TBits_1); inline;
  62415. begin
  62416. if thebits = 0 then
  62417. pTDefRegMap(@Self)^.clr := $00000001
  62418. else
  62419. pTDefRegMap(@Self)^.&set := $00000001;
  62420. end;
  62421. function TPORTB_TRISB.getTRISB0 : TBits_1; inline;
  62422. begin
  62423. getTRISB0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  62424. end;
  62425. procedure TPORTB_TRISB.setTRISB1; inline;
  62426. begin
  62427. pTDefRegMap(@Self)^.&set := $00000002;
  62428. end;
  62429. procedure TPORTB_TRISB.clearTRISB1; inline;
  62430. begin
  62431. pTDefRegMap(@Self)^.clr := $00000002;
  62432. end;
  62433. procedure TPORTB_TRISB.setTRISB1(thebits : TBits_1); inline;
  62434. begin
  62435. if thebits = 0 then
  62436. pTDefRegMap(@Self)^.clr := $00000002
  62437. else
  62438. pTDefRegMap(@Self)^.&set := $00000002;
  62439. end;
  62440. function TPORTB_TRISB.getTRISB1 : TBits_1; inline;
  62441. begin
  62442. getTRISB1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  62443. end;
  62444. procedure TPORTB_TRISB.setTRISB2; inline;
  62445. begin
  62446. pTDefRegMap(@Self)^.&set := $00000004;
  62447. end;
  62448. procedure TPORTB_TRISB.clearTRISB2; inline;
  62449. begin
  62450. pTDefRegMap(@Self)^.clr := $00000004;
  62451. end;
  62452. procedure TPORTB_TRISB.setTRISB2(thebits : TBits_1); inline;
  62453. begin
  62454. if thebits = 0 then
  62455. pTDefRegMap(@Self)^.clr := $00000004
  62456. else
  62457. pTDefRegMap(@Self)^.&set := $00000004;
  62458. end;
  62459. function TPORTB_TRISB.getTRISB2 : TBits_1; inline;
  62460. begin
  62461. getTRISB2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  62462. end;
  62463. procedure TPORTB_TRISB.setTRISB3; inline;
  62464. begin
  62465. pTDefRegMap(@Self)^.&set := $00000008;
  62466. end;
  62467. procedure TPORTB_TRISB.clearTRISB3; inline;
  62468. begin
  62469. pTDefRegMap(@Self)^.clr := $00000008;
  62470. end;
  62471. procedure TPORTB_TRISB.setTRISB3(thebits : TBits_1); inline;
  62472. begin
  62473. if thebits = 0 then
  62474. pTDefRegMap(@Self)^.clr := $00000008
  62475. else
  62476. pTDefRegMap(@Self)^.&set := $00000008;
  62477. end;
  62478. function TPORTB_TRISB.getTRISB3 : TBits_1; inline;
  62479. begin
  62480. getTRISB3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  62481. end;
  62482. procedure TPORTB_TRISB.setTRISB4; inline;
  62483. begin
  62484. pTDefRegMap(@Self)^.&set := $00000010;
  62485. end;
  62486. procedure TPORTB_TRISB.clearTRISB4; inline;
  62487. begin
  62488. pTDefRegMap(@Self)^.clr := $00000010;
  62489. end;
  62490. procedure TPORTB_TRISB.setTRISB4(thebits : TBits_1); inline;
  62491. begin
  62492. if thebits = 0 then
  62493. pTDefRegMap(@Self)^.clr := $00000010
  62494. else
  62495. pTDefRegMap(@Self)^.&set := $00000010;
  62496. end;
  62497. function TPORTB_TRISB.getTRISB4 : TBits_1; inline;
  62498. begin
  62499. getTRISB4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  62500. end;
  62501. procedure TPORTB_TRISB.setTRISB5; inline;
  62502. begin
  62503. pTDefRegMap(@Self)^.&set := $00000020;
  62504. end;
  62505. procedure TPORTB_TRISB.clearTRISB5; inline;
  62506. begin
  62507. pTDefRegMap(@Self)^.clr := $00000020;
  62508. end;
  62509. procedure TPORTB_TRISB.setTRISB5(thebits : TBits_1); inline;
  62510. begin
  62511. if thebits = 0 then
  62512. pTDefRegMap(@Self)^.clr := $00000020
  62513. else
  62514. pTDefRegMap(@Self)^.&set := $00000020;
  62515. end;
  62516. function TPORTB_TRISB.getTRISB5 : TBits_1; inline;
  62517. begin
  62518. getTRISB5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  62519. end;
  62520. procedure TPORTB_TRISB.setTRISB6; inline;
  62521. begin
  62522. pTDefRegMap(@Self)^.&set := $00000040;
  62523. end;
  62524. procedure TPORTB_TRISB.clearTRISB6; inline;
  62525. begin
  62526. pTDefRegMap(@Self)^.clr := $00000040;
  62527. end;
  62528. procedure TPORTB_TRISB.setTRISB6(thebits : TBits_1); inline;
  62529. begin
  62530. if thebits = 0 then
  62531. pTDefRegMap(@Self)^.clr := $00000040
  62532. else
  62533. pTDefRegMap(@Self)^.&set := $00000040;
  62534. end;
  62535. function TPORTB_TRISB.getTRISB6 : TBits_1; inline;
  62536. begin
  62537. getTRISB6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  62538. end;
  62539. procedure TPORTB_TRISB.setTRISB7; inline;
  62540. begin
  62541. pTDefRegMap(@Self)^.&set := $00000080;
  62542. end;
  62543. procedure TPORTB_TRISB.clearTRISB7; inline;
  62544. begin
  62545. pTDefRegMap(@Self)^.clr := $00000080;
  62546. end;
  62547. procedure TPORTB_TRISB.setTRISB7(thebits : TBits_1); inline;
  62548. begin
  62549. if thebits = 0 then
  62550. pTDefRegMap(@Self)^.clr := $00000080
  62551. else
  62552. pTDefRegMap(@Self)^.&set := $00000080;
  62553. end;
  62554. function TPORTB_TRISB.getTRISB7 : TBits_1; inline;
  62555. begin
  62556. getTRISB7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  62557. end;
  62558. procedure TPORTB_TRISB.setTRISB8; inline;
  62559. begin
  62560. pTDefRegMap(@Self)^.&set := $00000100;
  62561. end;
  62562. procedure TPORTB_TRISB.clearTRISB8; inline;
  62563. begin
  62564. pTDefRegMap(@Self)^.clr := $00000100;
  62565. end;
  62566. procedure TPORTB_TRISB.setTRISB8(thebits : TBits_1); inline;
  62567. begin
  62568. if thebits = 0 then
  62569. pTDefRegMap(@Self)^.clr := $00000100
  62570. else
  62571. pTDefRegMap(@Self)^.&set := $00000100;
  62572. end;
  62573. function TPORTB_TRISB.getTRISB8 : TBits_1; inline;
  62574. begin
  62575. getTRISB8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  62576. end;
  62577. procedure TPORTB_TRISB.setTRISB9; inline;
  62578. begin
  62579. pTDefRegMap(@Self)^.&set := $00000200;
  62580. end;
  62581. procedure TPORTB_TRISB.clearTRISB9; inline;
  62582. begin
  62583. pTDefRegMap(@Self)^.clr := $00000200;
  62584. end;
  62585. procedure TPORTB_TRISB.setTRISB9(thebits : TBits_1); inline;
  62586. begin
  62587. if thebits = 0 then
  62588. pTDefRegMap(@Self)^.clr := $00000200
  62589. else
  62590. pTDefRegMap(@Self)^.&set := $00000200;
  62591. end;
  62592. function TPORTB_TRISB.getTRISB9 : TBits_1; inline;
  62593. begin
  62594. getTRISB9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  62595. end;
  62596. procedure TPORTB_TRISB.setTRISB10; inline;
  62597. begin
  62598. pTDefRegMap(@Self)^.&set := $00000400;
  62599. end;
  62600. procedure TPORTB_TRISB.clearTRISB10; inline;
  62601. begin
  62602. pTDefRegMap(@Self)^.clr := $00000400;
  62603. end;
  62604. procedure TPORTB_TRISB.setTRISB10(thebits : TBits_1); inline;
  62605. begin
  62606. if thebits = 0 then
  62607. pTDefRegMap(@Self)^.clr := $00000400
  62608. else
  62609. pTDefRegMap(@Self)^.&set := $00000400;
  62610. end;
  62611. function TPORTB_TRISB.getTRISB10 : TBits_1; inline;
  62612. begin
  62613. getTRISB10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  62614. end;
  62615. procedure TPORTB_TRISB.setTRISB11; inline;
  62616. begin
  62617. pTDefRegMap(@Self)^.&set := $00000800;
  62618. end;
  62619. procedure TPORTB_TRISB.clearTRISB11; inline;
  62620. begin
  62621. pTDefRegMap(@Self)^.clr := $00000800;
  62622. end;
  62623. procedure TPORTB_TRISB.setTRISB11(thebits : TBits_1); inline;
  62624. begin
  62625. if thebits = 0 then
  62626. pTDefRegMap(@Self)^.clr := $00000800
  62627. else
  62628. pTDefRegMap(@Self)^.&set := $00000800;
  62629. end;
  62630. function TPORTB_TRISB.getTRISB11 : TBits_1; inline;
  62631. begin
  62632. getTRISB11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  62633. end;
  62634. procedure TPORTB_TRISB.setTRISB12; inline;
  62635. begin
  62636. pTDefRegMap(@Self)^.&set := $00001000;
  62637. end;
  62638. procedure TPORTB_TRISB.clearTRISB12; inline;
  62639. begin
  62640. pTDefRegMap(@Self)^.clr := $00001000;
  62641. end;
  62642. procedure TPORTB_TRISB.setTRISB12(thebits : TBits_1); inline;
  62643. begin
  62644. if thebits = 0 then
  62645. pTDefRegMap(@Self)^.clr := $00001000
  62646. else
  62647. pTDefRegMap(@Self)^.&set := $00001000;
  62648. end;
  62649. function TPORTB_TRISB.getTRISB12 : TBits_1; inline;
  62650. begin
  62651. getTRISB12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  62652. end;
  62653. procedure TPORTB_TRISB.setTRISB13; inline;
  62654. begin
  62655. pTDefRegMap(@Self)^.&set := $00002000;
  62656. end;
  62657. procedure TPORTB_TRISB.clearTRISB13; inline;
  62658. begin
  62659. pTDefRegMap(@Self)^.clr := $00002000;
  62660. end;
  62661. procedure TPORTB_TRISB.setTRISB13(thebits : TBits_1); inline;
  62662. begin
  62663. if thebits = 0 then
  62664. pTDefRegMap(@Self)^.clr := $00002000
  62665. else
  62666. pTDefRegMap(@Self)^.&set := $00002000;
  62667. end;
  62668. function TPORTB_TRISB.getTRISB13 : TBits_1; inline;
  62669. begin
  62670. getTRISB13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  62671. end;
  62672. procedure TPORTB_TRISB.setTRISB14; inline;
  62673. begin
  62674. pTDefRegMap(@Self)^.&set := $00004000;
  62675. end;
  62676. procedure TPORTB_TRISB.clearTRISB14; inline;
  62677. begin
  62678. pTDefRegMap(@Self)^.clr := $00004000;
  62679. end;
  62680. procedure TPORTB_TRISB.setTRISB14(thebits : TBits_1); inline;
  62681. begin
  62682. if thebits = 0 then
  62683. pTDefRegMap(@Self)^.clr := $00004000
  62684. else
  62685. pTDefRegMap(@Self)^.&set := $00004000;
  62686. end;
  62687. function TPORTB_TRISB.getTRISB14 : TBits_1; inline;
  62688. begin
  62689. getTRISB14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  62690. end;
  62691. procedure TPORTB_TRISB.setTRISB15; inline;
  62692. begin
  62693. pTDefRegMap(@Self)^.&set := $00008000;
  62694. end;
  62695. procedure TPORTB_TRISB.clearTRISB15; inline;
  62696. begin
  62697. pTDefRegMap(@Self)^.clr := $00008000;
  62698. end;
  62699. procedure TPORTB_TRISB.setTRISB15(thebits : TBits_1); inline;
  62700. begin
  62701. if thebits = 0 then
  62702. pTDefRegMap(@Self)^.clr := $00008000
  62703. else
  62704. pTDefRegMap(@Self)^.&set := $00008000;
  62705. end;
  62706. function TPORTB_TRISB.getTRISB15 : TBits_1; inline;
  62707. begin
  62708. getTRISB15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  62709. end;
  62710. procedure TPORTB_TRISB.setw(thebits : TBits_32); inline;
  62711. begin
  62712. pTDefRegMap(@Self)^.val := thebits;
  62713. end;
  62714. function TPORTB_TRISB.getw : TBits_32; inline;
  62715. begin
  62716. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  62717. end;
  62718. procedure TPORTB_PORTB.setRB0; inline;
  62719. begin
  62720. pTDefRegMap(@Self)^.&set := $00000001;
  62721. end;
  62722. procedure TPORTB_PORTB.clearRB0; inline;
  62723. begin
  62724. pTDefRegMap(@Self)^.clr := $00000001;
  62725. end;
  62726. procedure TPORTB_PORTB.setRB0(thebits : TBits_1); inline;
  62727. begin
  62728. if thebits = 0 then
  62729. pTDefRegMap(@Self)^.clr := $00000001
  62730. else
  62731. pTDefRegMap(@Self)^.&set := $00000001;
  62732. end;
  62733. function TPORTB_PORTB.getRB0 : TBits_1; inline;
  62734. begin
  62735. getRB0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  62736. end;
  62737. procedure TPORTB_PORTB.setRB1; inline;
  62738. begin
  62739. pTDefRegMap(@Self)^.&set := $00000002;
  62740. end;
  62741. procedure TPORTB_PORTB.clearRB1; inline;
  62742. begin
  62743. pTDefRegMap(@Self)^.clr := $00000002;
  62744. end;
  62745. procedure TPORTB_PORTB.setRB1(thebits : TBits_1); inline;
  62746. begin
  62747. if thebits = 0 then
  62748. pTDefRegMap(@Self)^.clr := $00000002
  62749. else
  62750. pTDefRegMap(@Self)^.&set := $00000002;
  62751. end;
  62752. function TPORTB_PORTB.getRB1 : TBits_1; inline;
  62753. begin
  62754. getRB1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  62755. end;
  62756. procedure TPORTB_PORTB.setRB2; inline;
  62757. begin
  62758. pTDefRegMap(@Self)^.&set := $00000004;
  62759. end;
  62760. procedure TPORTB_PORTB.clearRB2; inline;
  62761. begin
  62762. pTDefRegMap(@Self)^.clr := $00000004;
  62763. end;
  62764. procedure TPORTB_PORTB.setRB2(thebits : TBits_1); inline;
  62765. begin
  62766. if thebits = 0 then
  62767. pTDefRegMap(@Self)^.clr := $00000004
  62768. else
  62769. pTDefRegMap(@Self)^.&set := $00000004;
  62770. end;
  62771. function TPORTB_PORTB.getRB2 : TBits_1; inline;
  62772. begin
  62773. getRB2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  62774. end;
  62775. procedure TPORTB_PORTB.setRB3; inline;
  62776. begin
  62777. pTDefRegMap(@Self)^.&set := $00000008;
  62778. end;
  62779. procedure TPORTB_PORTB.clearRB3; inline;
  62780. begin
  62781. pTDefRegMap(@Self)^.clr := $00000008;
  62782. end;
  62783. procedure TPORTB_PORTB.setRB3(thebits : TBits_1); inline;
  62784. begin
  62785. if thebits = 0 then
  62786. pTDefRegMap(@Self)^.clr := $00000008
  62787. else
  62788. pTDefRegMap(@Self)^.&set := $00000008;
  62789. end;
  62790. function TPORTB_PORTB.getRB3 : TBits_1; inline;
  62791. begin
  62792. getRB3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  62793. end;
  62794. procedure TPORTB_PORTB.setRB4; inline;
  62795. begin
  62796. pTDefRegMap(@Self)^.&set := $00000010;
  62797. end;
  62798. procedure TPORTB_PORTB.clearRB4; inline;
  62799. begin
  62800. pTDefRegMap(@Self)^.clr := $00000010;
  62801. end;
  62802. procedure TPORTB_PORTB.setRB4(thebits : TBits_1); inline;
  62803. begin
  62804. if thebits = 0 then
  62805. pTDefRegMap(@Self)^.clr := $00000010
  62806. else
  62807. pTDefRegMap(@Self)^.&set := $00000010;
  62808. end;
  62809. function TPORTB_PORTB.getRB4 : TBits_1; inline;
  62810. begin
  62811. getRB4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  62812. end;
  62813. procedure TPORTB_PORTB.setRB5; inline;
  62814. begin
  62815. pTDefRegMap(@Self)^.&set := $00000020;
  62816. end;
  62817. procedure TPORTB_PORTB.clearRB5; inline;
  62818. begin
  62819. pTDefRegMap(@Self)^.clr := $00000020;
  62820. end;
  62821. procedure TPORTB_PORTB.setRB5(thebits : TBits_1); inline;
  62822. begin
  62823. if thebits = 0 then
  62824. pTDefRegMap(@Self)^.clr := $00000020
  62825. else
  62826. pTDefRegMap(@Self)^.&set := $00000020;
  62827. end;
  62828. function TPORTB_PORTB.getRB5 : TBits_1; inline;
  62829. begin
  62830. getRB5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  62831. end;
  62832. procedure TPORTB_PORTB.setRB6; inline;
  62833. begin
  62834. pTDefRegMap(@Self)^.&set := $00000040;
  62835. end;
  62836. procedure TPORTB_PORTB.clearRB6; inline;
  62837. begin
  62838. pTDefRegMap(@Self)^.clr := $00000040;
  62839. end;
  62840. procedure TPORTB_PORTB.setRB6(thebits : TBits_1); inline;
  62841. begin
  62842. if thebits = 0 then
  62843. pTDefRegMap(@Self)^.clr := $00000040
  62844. else
  62845. pTDefRegMap(@Self)^.&set := $00000040;
  62846. end;
  62847. function TPORTB_PORTB.getRB6 : TBits_1; inline;
  62848. begin
  62849. getRB6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  62850. end;
  62851. procedure TPORTB_PORTB.setRB7; inline;
  62852. begin
  62853. pTDefRegMap(@Self)^.&set := $00000080;
  62854. end;
  62855. procedure TPORTB_PORTB.clearRB7; inline;
  62856. begin
  62857. pTDefRegMap(@Self)^.clr := $00000080;
  62858. end;
  62859. procedure TPORTB_PORTB.setRB7(thebits : TBits_1); inline;
  62860. begin
  62861. if thebits = 0 then
  62862. pTDefRegMap(@Self)^.clr := $00000080
  62863. else
  62864. pTDefRegMap(@Self)^.&set := $00000080;
  62865. end;
  62866. function TPORTB_PORTB.getRB7 : TBits_1; inline;
  62867. begin
  62868. getRB7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  62869. end;
  62870. procedure TPORTB_PORTB.setRB8; inline;
  62871. begin
  62872. pTDefRegMap(@Self)^.&set := $00000100;
  62873. end;
  62874. procedure TPORTB_PORTB.clearRB8; inline;
  62875. begin
  62876. pTDefRegMap(@Self)^.clr := $00000100;
  62877. end;
  62878. procedure TPORTB_PORTB.setRB8(thebits : TBits_1); inline;
  62879. begin
  62880. if thebits = 0 then
  62881. pTDefRegMap(@Self)^.clr := $00000100
  62882. else
  62883. pTDefRegMap(@Self)^.&set := $00000100;
  62884. end;
  62885. function TPORTB_PORTB.getRB8 : TBits_1; inline;
  62886. begin
  62887. getRB8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  62888. end;
  62889. procedure TPORTB_PORTB.setRB9; inline;
  62890. begin
  62891. pTDefRegMap(@Self)^.&set := $00000200;
  62892. end;
  62893. procedure TPORTB_PORTB.clearRB9; inline;
  62894. begin
  62895. pTDefRegMap(@Self)^.clr := $00000200;
  62896. end;
  62897. procedure TPORTB_PORTB.setRB9(thebits : TBits_1); inline;
  62898. begin
  62899. if thebits = 0 then
  62900. pTDefRegMap(@Self)^.clr := $00000200
  62901. else
  62902. pTDefRegMap(@Self)^.&set := $00000200;
  62903. end;
  62904. function TPORTB_PORTB.getRB9 : TBits_1; inline;
  62905. begin
  62906. getRB9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  62907. end;
  62908. procedure TPORTB_PORTB.setRB10; inline;
  62909. begin
  62910. pTDefRegMap(@Self)^.&set := $00000400;
  62911. end;
  62912. procedure TPORTB_PORTB.clearRB10; inline;
  62913. begin
  62914. pTDefRegMap(@Self)^.clr := $00000400;
  62915. end;
  62916. procedure TPORTB_PORTB.setRB10(thebits : TBits_1); inline;
  62917. begin
  62918. if thebits = 0 then
  62919. pTDefRegMap(@Self)^.clr := $00000400
  62920. else
  62921. pTDefRegMap(@Self)^.&set := $00000400;
  62922. end;
  62923. function TPORTB_PORTB.getRB10 : TBits_1; inline;
  62924. begin
  62925. getRB10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  62926. end;
  62927. procedure TPORTB_PORTB.setRB11; inline;
  62928. begin
  62929. pTDefRegMap(@Self)^.&set := $00000800;
  62930. end;
  62931. procedure TPORTB_PORTB.clearRB11; inline;
  62932. begin
  62933. pTDefRegMap(@Self)^.clr := $00000800;
  62934. end;
  62935. procedure TPORTB_PORTB.setRB11(thebits : TBits_1); inline;
  62936. begin
  62937. if thebits = 0 then
  62938. pTDefRegMap(@Self)^.clr := $00000800
  62939. else
  62940. pTDefRegMap(@Self)^.&set := $00000800;
  62941. end;
  62942. function TPORTB_PORTB.getRB11 : TBits_1; inline;
  62943. begin
  62944. getRB11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  62945. end;
  62946. procedure TPORTB_PORTB.setRB12; inline;
  62947. begin
  62948. pTDefRegMap(@Self)^.&set := $00001000;
  62949. end;
  62950. procedure TPORTB_PORTB.clearRB12; inline;
  62951. begin
  62952. pTDefRegMap(@Self)^.clr := $00001000;
  62953. end;
  62954. procedure TPORTB_PORTB.setRB12(thebits : TBits_1); inline;
  62955. begin
  62956. if thebits = 0 then
  62957. pTDefRegMap(@Self)^.clr := $00001000
  62958. else
  62959. pTDefRegMap(@Self)^.&set := $00001000;
  62960. end;
  62961. function TPORTB_PORTB.getRB12 : TBits_1; inline;
  62962. begin
  62963. getRB12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  62964. end;
  62965. procedure TPORTB_PORTB.setRB13; inline;
  62966. begin
  62967. pTDefRegMap(@Self)^.&set := $00002000;
  62968. end;
  62969. procedure TPORTB_PORTB.clearRB13; inline;
  62970. begin
  62971. pTDefRegMap(@Self)^.clr := $00002000;
  62972. end;
  62973. procedure TPORTB_PORTB.setRB13(thebits : TBits_1); inline;
  62974. begin
  62975. if thebits = 0 then
  62976. pTDefRegMap(@Self)^.clr := $00002000
  62977. else
  62978. pTDefRegMap(@Self)^.&set := $00002000;
  62979. end;
  62980. function TPORTB_PORTB.getRB13 : TBits_1; inline;
  62981. begin
  62982. getRB13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  62983. end;
  62984. procedure TPORTB_PORTB.setRB14; inline;
  62985. begin
  62986. pTDefRegMap(@Self)^.&set := $00004000;
  62987. end;
  62988. procedure TPORTB_PORTB.clearRB14; inline;
  62989. begin
  62990. pTDefRegMap(@Self)^.clr := $00004000;
  62991. end;
  62992. procedure TPORTB_PORTB.setRB14(thebits : TBits_1); inline;
  62993. begin
  62994. if thebits = 0 then
  62995. pTDefRegMap(@Self)^.clr := $00004000
  62996. else
  62997. pTDefRegMap(@Self)^.&set := $00004000;
  62998. end;
  62999. function TPORTB_PORTB.getRB14 : TBits_1; inline;
  63000. begin
  63001. getRB14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  63002. end;
  63003. procedure TPORTB_PORTB.setRB15; inline;
  63004. begin
  63005. pTDefRegMap(@Self)^.&set := $00008000;
  63006. end;
  63007. procedure TPORTB_PORTB.clearRB15; inline;
  63008. begin
  63009. pTDefRegMap(@Self)^.clr := $00008000;
  63010. end;
  63011. procedure TPORTB_PORTB.setRB15(thebits : TBits_1); inline;
  63012. begin
  63013. if thebits = 0 then
  63014. pTDefRegMap(@Self)^.clr := $00008000
  63015. else
  63016. pTDefRegMap(@Self)^.&set := $00008000;
  63017. end;
  63018. function TPORTB_PORTB.getRB15 : TBits_1; inline;
  63019. begin
  63020. getRB15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  63021. end;
  63022. procedure TPORTB_PORTB.setw(thebits : TBits_32); inline;
  63023. begin
  63024. pTDefRegMap(@Self)^.val := thebits;
  63025. end;
  63026. function TPORTB_PORTB.getw : TBits_32; inline;
  63027. begin
  63028. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  63029. end;
  63030. procedure TPORTB_LATB.setLATB0; inline;
  63031. begin
  63032. pTDefRegMap(@Self)^.&set := $00000001;
  63033. end;
  63034. procedure TPORTB_LATB.clearLATB0; inline;
  63035. begin
  63036. pTDefRegMap(@Self)^.clr := $00000001;
  63037. end;
  63038. procedure TPORTB_LATB.setLATB0(thebits : TBits_1); inline;
  63039. begin
  63040. if thebits = 0 then
  63041. pTDefRegMap(@Self)^.clr := $00000001
  63042. else
  63043. pTDefRegMap(@Self)^.&set := $00000001;
  63044. end;
  63045. function TPORTB_LATB.getLATB0 : TBits_1; inline;
  63046. begin
  63047. getLATB0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  63048. end;
  63049. procedure TPORTB_LATB.setLATB1; inline;
  63050. begin
  63051. pTDefRegMap(@Self)^.&set := $00000002;
  63052. end;
  63053. procedure TPORTB_LATB.clearLATB1; inline;
  63054. begin
  63055. pTDefRegMap(@Self)^.clr := $00000002;
  63056. end;
  63057. procedure TPORTB_LATB.setLATB1(thebits : TBits_1); inline;
  63058. begin
  63059. if thebits = 0 then
  63060. pTDefRegMap(@Self)^.clr := $00000002
  63061. else
  63062. pTDefRegMap(@Self)^.&set := $00000002;
  63063. end;
  63064. function TPORTB_LATB.getLATB1 : TBits_1; inline;
  63065. begin
  63066. getLATB1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  63067. end;
  63068. procedure TPORTB_LATB.setLATB2; inline;
  63069. begin
  63070. pTDefRegMap(@Self)^.&set := $00000004;
  63071. end;
  63072. procedure TPORTB_LATB.clearLATB2; inline;
  63073. begin
  63074. pTDefRegMap(@Self)^.clr := $00000004;
  63075. end;
  63076. procedure TPORTB_LATB.setLATB2(thebits : TBits_1); inline;
  63077. begin
  63078. if thebits = 0 then
  63079. pTDefRegMap(@Self)^.clr := $00000004
  63080. else
  63081. pTDefRegMap(@Self)^.&set := $00000004;
  63082. end;
  63083. function TPORTB_LATB.getLATB2 : TBits_1; inline;
  63084. begin
  63085. getLATB2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  63086. end;
  63087. procedure TPORTB_LATB.setLATB3; inline;
  63088. begin
  63089. pTDefRegMap(@Self)^.&set := $00000008;
  63090. end;
  63091. procedure TPORTB_LATB.clearLATB3; inline;
  63092. begin
  63093. pTDefRegMap(@Self)^.clr := $00000008;
  63094. end;
  63095. procedure TPORTB_LATB.setLATB3(thebits : TBits_1); inline;
  63096. begin
  63097. if thebits = 0 then
  63098. pTDefRegMap(@Self)^.clr := $00000008
  63099. else
  63100. pTDefRegMap(@Self)^.&set := $00000008;
  63101. end;
  63102. function TPORTB_LATB.getLATB3 : TBits_1; inline;
  63103. begin
  63104. getLATB3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  63105. end;
  63106. procedure TPORTB_LATB.setLATB4; inline;
  63107. begin
  63108. pTDefRegMap(@Self)^.&set := $00000010;
  63109. end;
  63110. procedure TPORTB_LATB.clearLATB4; inline;
  63111. begin
  63112. pTDefRegMap(@Self)^.clr := $00000010;
  63113. end;
  63114. procedure TPORTB_LATB.setLATB4(thebits : TBits_1); inline;
  63115. begin
  63116. if thebits = 0 then
  63117. pTDefRegMap(@Self)^.clr := $00000010
  63118. else
  63119. pTDefRegMap(@Self)^.&set := $00000010;
  63120. end;
  63121. function TPORTB_LATB.getLATB4 : TBits_1; inline;
  63122. begin
  63123. getLATB4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  63124. end;
  63125. procedure TPORTB_LATB.setLATB5; inline;
  63126. begin
  63127. pTDefRegMap(@Self)^.&set := $00000020;
  63128. end;
  63129. procedure TPORTB_LATB.clearLATB5; inline;
  63130. begin
  63131. pTDefRegMap(@Self)^.clr := $00000020;
  63132. end;
  63133. procedure TPORTB_LATB.setLATB5(thebits : TBits_1); inline;
  63134. begin
  63135. if thebits = 0 then
  63136. pTDefRegMap(@Self)^.clr := $00000020
  63137. else
  63138. pTDefRegMap(@Self)^.&set := $00000020;
  63139. end;
  63140. function TPORTB_LATB.getLATB5 : TBits_1; inline;
  63141. begin
  63142. getLATB5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  63143. end;
  63144. procedure TPORTB_LATB.setLATB6; inline;
  63145. begin
  63146. pTDefRegMap(@Self)^.&set := $00000040;
  63147. end;
  63148. procedure TPORTB_LATB.clearLATB6; inline;
  63149. begin
  63150. pTDefRegMap(@Self)^.clr := $00000040;
  63151. end;
  63152. procedure TPORTB_LATB.setLATB6(thebits : TBits_1); inline;
  63153. begin
  63154. if thebits = 0 then
  63155. pTDefRegMap(@Self)^.clr := $00000040
  63156. else
  63157. pTDefRegMap(@Self)^.&set := $00000040;
  63158. end;
  63159. function TPORTB_LATB.getLATB6 : TBits_1; inline;
  63160. begin
  63161. getLATB6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  63162. end;
  63163. procedure TPORTB_LATB.setLATB7; inline;
  63164. begin
  63165. pTDefRegMap(@Self)^.&set := $00000080;
  63166. end;
  63167. procedure TPORTB_LATB.clearLATB7; inline;
  63168. begin
  63169. pTDefRegMap(@Self)^.clr := $00000080;
  63170. end;
  63171. procedure TPORTB_LATB.setLATB7(thebits : TBits_1); inline;
  63172. begin
  63173. if thebits = 0 then
  63174. pTDefRegMap(@Self)^.clr := $00000080
  63175. else
  63176. pTDefRegMap(@Self)^.&set := $00000080;
  63177. end;
  63178. function TPORTB_LATB.getLATB7 : TBits_1; inline;
  63179. begin
  63180. getLATB7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  63181. end;
  63182. procedure TPORTB_LATB.setLATB8; inline;
  63183. begin
  63184. pTDefRegMap(@Self)^.&set := $00000100;
  63185. end;
  63186. procedure TPORTB_LATB.clearLATB8; inline;
  63187. begin
  63188. pTDefRegMap(@Self)^.clr := $00000100;
  63189. end;
  63190. procedure TPORTB_LATB.setLATB8(thebits : TBits_1); inline;
  63191. begin
  63192. if thebits = 0 then
  63193. pTDefRegMap(@Self)^.clr := $00000100
  63194. else
  63195. pTDefRegMap(@Self)^.&set := $00000100;
  63196. end;
  63197. function TPORTB_LATB.getLATB8 : TBits_1; inline;
  63198. begin
  63199. getLATB8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  63200. end;
  63201. procedure TPORTB_LATB.setLATB9; inline;
  63202. begin
  63203. pTDefRegMap(@Self)^.&set := $00000200;
  63204. end;
  63205. procedure TPORTB_LATB.clearLATB9; inline;
  63206. begin
  63207. pTDefRegMap(@Self)^.clr := $00000200;
  63208. end;
  63209. procedure TPORTB_LATB.setLATB9(thebits : TBits_1); inline;
  63210. begin
  63211. if thebits = 0 then
  63212. pTDefRegMap(@Self)^.clr := $00000200
  63213. else
  63214. pTDefRegMap(@Self)^.&set := $00000200;
  63215. end;
  63216. function TPORTB_LATB.getLATB9 : TBits_1; inline;
  63217. begin
  63218. getLATB9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  63219. end;
  63220. procedure TPORTB_LATB.setLATB10; inline;
  63221. begin
  63222. pTDefRegMap(@Self)^.&set := $00000400;
  63223. end;
  63224. procedure TPORTB_LATB.clearLATB10; inline;
  63225. begin
  63226. pTDefRegMap(@Self)^.clr := $00000400;
  63227. end;
  63228. procedure TPORTB_LATB.setLATB10(thebits : TBits_1); inline;
  63229. begin
  63230. if thebits = 0 then
  63231. pTDefRegMap(@Self)^.clr := $00000400
  63232. else
  63233. pTDefRegMap(@Self)^.&set := $00000400;
  63234. end;
  63235. function TPORTB_LATB.getLATB10 : TBits_1; inline;
  63236. begin
  63237. getLATB10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  63238. end;
  63239. procedure TPORTB_LATB.setLATB11; inline;
  63240. begin
  63241. pTDefRegMap(@Self)^.&set := $00000800;
  63242. end;
  63243. procedure TPORTB_LATB.clearLATB11; inline;
  63244. begin
  63245. pTDefRegMap(@Self)^.clr := $00000800;
  63246. end;
  63247. procedure TPORTB_LATB.setLATB11(thebits : TBits_1); inline;
  63248. begin
  63249. if thebits = 0 then
  63250. pTDefRegMap(@Self)^.clr := $00000800
  63251. else
  63252. pTDefRegMap(@Self)^.&set := $00000800;
  63253. end;
  63254. function TPORTB_LATB.getLATB11 : TBits_1; inline;
  63255. begin
  63256. getLATB11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  63257. end;
  63258. procedure TPORTB_LATB.setLATB12; inline;
  63259. begin
  63260. pTDefRegMap(@Self)^.&set := $00001000;
  63261. end;
  63262. procedure TPORTB_LATB.clearLATB12; inline;
  63263. begin
  63264. pTDefRegMap(@Self)^.clr := $00001000;
  63265. end;
  63266. procedure TPORTB_LATB.setLATB12(thebits : TBits_1); inline;
  63267. begin
  63268. if thebits = 0 then
  63269. pTDefRegMap(@Self)^.clr := $00001000
  63270. else
  63271. pTDefRegMap(@Self)^.&set := $00001000;
  63272. end;
  63273. function TPORTB_LATB.getLATB12 : TBits_1; inline;
  63274. begin
  63275. getLATB12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  63276. end;
  63277. procedure TPORTB_LATB.setLATB13; inline;
  63278. begin
  63279. pTDefRegMap(@Self)^.&set := $00002000;
  63280. end;
  63281. procedure TPORTB_LATB.clearLATB13; inline;
  63282. begin
  63283. pTDefRegMap(@Self)^.clr := $00002000;
  63284. end;
  63285. procedure TPORTB_LATB.setLATB13(thebits : TBits_1); inline;
  63286. begin
  63287. if thebits = 0 then
  63288. pTDefRegMap(@Self)^.clr := $00002000
  63289. else
  63290. pTDefRegMap(@Self)^.&set := $00002000;
  63291. end;
  63292. function TPORTB_LATB.getLATB13 : TBits_1; inline;
  63293. begin
  63294. getLATB13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  63295. end;
  63296. procedure TPORTB_LATB.setLATB14; inline;
  63297. begin
  63298. pTDefRegMap(@Self)^.&set := $00004000;
  63299. end;
  63300. procedure TPORTB_LATB.clearLATB14; inline;
  63301. begin
  63302. pTDefRegMap(@Self)^.clr := $00004000;
  63303. end;
  63304. procedure TPORTB_LATB.setLATB14(thebits : TBits_1); inline;
  63305. begin
  63306. if thebits = 0 then
  63307. pTDefRegMap(@Self)^.clr := $00004000
  63308. else
  63309. pTDefRegMap(@Self)^.&set := $00004000;
  63310. end;
  63311. function TPORTB_LATB.getLATB14 : TBits_1; inline;
  63312. begin
  63313. getLATB14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  63314. end;
  63315. procedure TPORTB_LATB.setLATB15; inline;
  63316. begin
  63317. pTDefRegMap(@Self)^.&set := $00008000;
  63318. end;
  63319. procedure TPORTB_LATB.clearLATB15; inline;
  63320. begin
  63321. pTDefRegMap(@Self)^.clr := $00008000;
  63322. end;
  63323. procedure TPORTB_LATB.setLATB15(thebits : TBits_1); inline;
  63324. begin
  63325. if thebits = 0 then
  63326. pTDefRegMap(@Self)^.clr := $00008000
  63327. else
  63328. pTDefRegMap(@Self)^.&set := $00008000;
  63329. end;
  63330. function TPORTB_LATB.getLATB15 : TBits_1; inline;
  63331. begin
  63332. getLATB15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  63333. end;
  63334. procedure TPORTB_LATB.setw(thebits : TBits_32); inline;
  63335. begin
  63336. pTDefRegMap(@Self)^.val := thebits;
  63337. end;
  63338. function TPORTB_LATB.getw : TBits_32; inline;
  63339. begin
  63340. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  63341. end;
  63342. procedure TPORTB_ODCB.setODCB0; inline;
  63343. begin
  63344. pTDefRegMap(@Self)^.&set := $00000001;
  63345. end;
  63346. procedure TPORTB_ODCB.clearODCB0; inline;
  63347. begin
  63348. pTDefRegMap(@Self)^.clr := $00000001;
  63349. end;
  63350. procedure TPORTB_ODCB.setODCB0(thebits : TBits_1); inline;
  63351. begin
  63352. if thebits = 0 then
  63353. pTDefRegMap(@Self)^.clr := $00000001
  63354. else
  63355. pTDefRegMap(@Self)^.&set := $00000001;
  63356. end;
  63357. function TPORTB_ODCB.getODCB0 : TBits_1; inline;
  63358. begin
  63359. getODCB0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  63360. end;
  63361. procedure TPORTB_ODCB.setODCB1; inline;
  63362. begin
  63363. pTDefRegMap(@Self)^.&set := $00000002;
  63364. end;
  63365. procedure TPORTB_ODCB.clearODCB1; inline;
  63366. begin
  63367. pTDefRegMap(@Self)^.clr := $00000002;
  63368. end;
  63369. procedure TPORTB_ODCB.setODCB1(thebits : TBits_1); inline;
  63370. begin
  63371. if thebits = 0 then
  63372. pTDefRegMap(@Self)^.clr := $00000002
  63373. else
  63374. pTDefRegMap(@Self)^.&set := $00000002;
  63375. end;
  63376. function TPORTB_ODCB.getODCB1 : TBits_1; inline;
  63377. begin
  63378. getODCB1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  63379. end;
  63380. procedure TPORTB_ODCB.setODCB2; inline;
  63381. begin
  63382. pTDefRegMap(@Self)^.&set := $00000004;
  63383. end;
  63384. procedure TPORTB_ODCB.clearODCB2; inline;
  63385. begin
  63386. pTDefRegMap(@Self)^.clr := $00000004;
  63387. end;
  63388. procedure TPORTB_ODCB.setODCB2(thebits : TBits_1); inline;
  63389. begin
  63390. if thebits = 0 then
  63391. pTDefRegMap(@Self)^.clr := $00000004
  63392. else
  63393. pTDefRegMap(@Self)^.&set := $00000004;
  63394. end;
  63395. function TPORTB_ODCB.getODCB2 : TBits_1; inline;
  63396. begin
  63397. getODCB2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  63398. end;
  63399. procedure TPORTB_ODCB.setODCB3; inline;
  63400. begin
  63401. pTDefRegMap(@Self)^.&set := $00000008;
  63402. end;
  63403. procedure TPORTB_ODCB.clearODCB3; inline;
  63404. begin
  63405. pTDefRegMap(@Self)^.clr := $00000008;
  63406. end;
  63407. procedure TPORTB_ODCB.setODCB3(thebits : TBits_1); inline;
  63408. begin
  63409. if thebits = 0 then
  63410. pTDefRegMap(@Self)^.clr := $00000008
  63411. else
  63412. pTDefRegMap(@Self)^.&set := $00000008;
  63413. end;
  63414. function TPORTB_ODCB.getODCB3 : TBits_1; inline;
  63415. begin
  63416. getODCB3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  63417. end;
  63418. procedure TPORTB_ODCB.setODCB4; inline;
  63419. begin
  63420. pTDefRegMap(@Self)^.&set := $00000010;
  63421. end;
  63422. procedure TPORTB_ODCB.clearODCB4; inline;
  63423. begin
  63424. pTDefRegMap(@Self)^.clr := $00000010;
  63425. end;
  63426. procedure TPORTB_ODCB.setODCB4(thebits : TBits_1); inline;
  63427. begin
  63428. if thebits = 0 then
  63429. pTDefRegMap(@Self)^.clr := $00000010
  63430. else
  63431. pTDefRegMap(@Self)^.&set := $00000010;
  63432. end;
  63433. function TPORTB_ODCB.getODCB4 : TBits_1; inline;
  63434. begin
  63435. getODCB4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  63436. end;
  63437. procedure TPORTB_ODCB.setODCB5; inline;
  63438. begin
  63439. pTDefRegMap(@Self)^.&set := $00000020;
  63440. end;
  63441. procedure TPORTB_ODCB.clearODCB5; inline;
  63442. begin
  63443. pTDefRegMap(@Self)^.clr := $00000020;
  63444. end;
  63445. procedure TPORTB_ODCB.setODCB5(thebits : TBits_1); inline;
  63446. begin
  63447. if thebits = 0 then
  63448. pTDefRegMap(@Self)^.clr := $00000020
  63449. else
  63450. pTDefRegMap(@Self)^.&set := $00000020;
  63451. end;
  63452. function TPORTB_ODCB.getODCB5 : TBits_1; inline;
  63453. begin
  63454. getODCB5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  63455. end;
  63456. procedure TPORTB_ODCB.setODCB6; inline;
  63457. begin
  63458. pTDefRegMap(@Self)^.&set := $00000040;
  63459. end;
  63460. procedure TPORTB_ODCB.clearODCB6; inline;
  63461. begin
  63462. pTDefRegMap(@Self)^.clr := $00000040;
  63463. end;
  63464. procedure TPORTB_ODCB.setODCB6(thebits : TBits_1); inline;
  63465. begin
  63466. if thebits = 0 then
  63467. pTDefRegMap(@Self)^.clr := $00000040
  63468. else
  63469. pTDefRegMap(@Self)^.&set := $00000040;
  63470. end;
  63471. function TPORTB_ODCB.getODCB6 : TBits_1; inline;
  63472. begin
  63473. getODCB6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  63474. end;
  63475. procedure TPORTB_ODCB.setODCB7; inline;
  63476. begin
  63477. pTDefRegMap(@Self)^.&set := $00000080;
  63478. end;
  63479. procedure TPORTB_ODCB.clearODCB7; inline;
  63480. begin
  63481. pTDefRegMap(@Self)^.clr := $00000080;
  63482. end;
  63483. procedure TPORTB_ODCB.setODCB7(thebits : TBits_1); inline;
  63484. begin
  63485. if thebits = 0 then
  63486. pTDefRegMap(@Self)^.clr := $00000080
  63487. else
  63488. pTDefRegMap(@Self)^.&set := $00000080;
  63489. end;
  63490. function TPORTB_ODCB.getODCB7 : TBits_1; inline;
  63491. begin
  63492. getODCB7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  63493. end;
  63494. procedure TPORTB_ODCB.setODCB8; inline;
  63495. begin
  63496. pTDefRegMap(@Self)^.&set := $00000100;
  63497. end;
  63498. procedure TPORTB_ODCB.clearODCB8; inline;
  63499. begin
  63500. pTDefRegMap(@Self)^.clr := $00000100;
  63501. end;
  63502. procedure TPORTB_ODCB.setODCB8(thebits : TBits_1); inline;
  63503. begin
  63504. if thebits = 0 then
  63505. pTDefRegMap(@Self)^.clr := $00000100
  63506. else
  63507. pTDefRegMap(@Self)^.&set := $00000100;
  63508. end;
  63509. function TPORTB_ODCB.getODCB8 : TBits_1; inline;
  63510. begin
  63511. getODCB8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  63512. end;
  63513. procedure TPORTB_ODCB.setODCB9; inline;
  63514. begin
  63515. pTDefRegMap(@Self)^.&set := $00000200;
  63516. end;
  63517. procedure TPORTB_ODCB.clearODCB9; inline;
  63518. begin
  63519. pTDefRegMap(@Self)^.clr := $00000200;
  63520. end;
  63521. procedure TPORTB_ODCB.setODCB9(thebits : TBits_1); inline;
  63522. begin
  63523. if thebits = 0 then
  63524. pTDefRegMap(@Self)^.clr := $00000200
  63525. else
  63526. pTDefRegMap(@Self)^.&set := $00000200;
  63527. end;
  63528. function TPORTB_ODCB.getODCB9 : TBits_1; inline;
  63529. begin
  63530. getODCB9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  63531. end;
  63532. procedure TPORTB_ODCB.setODCB10; inline;
  63533. begin
  63534. pTDefRegMap(@Self)^.&set := $00000400;
  63535. end;
  63536. procedure TPORTB_ODCB.clearODCB10; inline;
  63537. begin
  63538. pTDefRegMap(@Self)^.clr := $00000400;
  63539. end;
  63540. procedure TPORTB_ODCB.setODCB10(thebits : TBits_1); inline;
  63541. begin
  63542. if thebits = 0 then
  63543. pTDefRegMap(@Self)^.clr := $00000400
  63544. else
  63545. pTDefRegMap(@Self)^.&set := $00000400;
  63546. end;
  63547. function TPORTB_ODCB.getODCB10 : TBits_1; inline;
  63548. begin
  63549. getODCB10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  63550. end;
  63551. procedure TPORTB_ODCB.setODCB11; inline;
  63552. begin
  63553. pTDefRegMap(@Self)^.&set := $00000800;
  63554. end;
  63555. procedure TPORTB_ODCB.clearODCB11; inline;
  63556. begin
  63557. pTDefRegMap(@Self)^.clr := $00000800;
  63558. end;
  63559. procedure TPORTB_ODCB.setODCB11(thebits : TBits_1); inline;
  63560. begin
  63561. if thebits = 0 then
  63562. pTDefRegMap(@Self)^.clr := $00000800
  63563. else
  63564. pTDefRegMap(@Self)^.&set := $00000800;
  63565. end;
  63566. function TPORTB_ODCB.getODCB11 : TBits_1; inline;
  63567. begin
  63568. getODCB11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  63569. end;
  63570. procedure TPORTB_ODCB.setODCB12; inline;
  63571. begin
  63572. pTDefRegMap(@Self)^.&set := $00001000;
  63573. end;
  63574. procedure TPORTB_ODCB.clearODCB12; inline;
  63575. begin
  63576. pTDefRegMap(@Self)^.clr := $00001000;
  63577. end;
  63578. procedure TPORTB_ODCB.setODCB12(thebits : TBits_1); inline;
  63579. begin
  63580. if thebits = 0 then
  63581. pTDefRegMap(@Self)^.clr := $00001000
  63582. else
  63583. pTDefRegMap(@Self)^.&set := $00001000;
  63584. end;
  63585. function TPORTB_ODCB.getODCB12 : TBits_1; inline;
  63586. begin
  63587. getODCB12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  63588. end;
  63589. procedure TPORTB_ODCB.setODCB13; inline;
  63590. begin
  63591. pTDefRegMap(@Self)^.&set := $00002000;
  63592. end;
  63593. procedure TPORTB_ODCB.clearODCB13; inline;
  63594. begin
  63595. pTDefRegMap(@Self)^.clr := $00002000;
  63596. end;
  63597. procedure TPORTB_ODCB.setODCB13(thebits : TBits_1); inline;
  63598. begin
  63599. if thebits = 0 then
  63600. pTDefRegMap(@Self)^.clr := $00002000
  63601. else
  63602. pTDefRegMap(@Self)^.&set := $00002000;
  63603. end;
  63604. function TPORTB_ODCB.getODCB13 : TBits_1; inline;
  63605. begin
  63606. getODCB13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  63607. end;
  63608. procedure TPORTB_ODCB.setODCB14; inline;
  63609. begin
  63610. pTDefRegMap(@Self)^.&set := $00004000;
  63611. end;
  63612. procedure TPORTB_ODCB.clearODCB14; inline;
  63613. begin
  63614. pTDefRegMap(@Self)^.clr := $00004000;
  63615. end;
  63616. procedure TPORTB_ODCB.setODCB14(thebits : TBits_1); inline;
  63617. begin
  63618. if thebits = 0 then
  63619. pTDefRegMap(@Self)^.clr := $00004000
  63620. else
  63621. pTDefRegMap(@Self)^.&set := $00004000;
  63622. end;
  63623. function TPORTB_ODCB.getODCB14 : TBits_1; inline;
  63624. begin
  63625. getODCB14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  63626. end;
  63627. procedure TPORTB_ODCB.setODCB15; inline;
  63628. begin
  63629. pTDefRegMap(@Self)^.&set := $00008000;
  63630. end;
  63631. procedure TPORTB_ODCB.clearODCB15; inline;
  63632. begin
  63633. pTDefRegMap(@Self)^.clr := $00008000;
  63634. end;
  63635. procedure TPORTB_ODCB.setODCB15(thebits : TBits_1); inline;
  63636. begin
  63637. if thebits = 0 then
  63638. pTDefRegMap(@Self)^.clr := $00008000
  63639. else
  63640. pTDefRegMap(@Self)^.&set := $00008000;
  63641. end;
  63642. function TPORTB_ODCB.getODCB15 : TBits_1; inline;
  63643. begin
  63644. getODCB15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  63645. end;
  63646. procedure TPORTB_ODCB.setw(thebits : TBits_32); inline;
  63647. begin
  63648. pTDefRegMap(@Self)^.val := thebits;
  63649. end;
  63650. function TPORTB_ODCB.getw : TBits_32; inline;
  63651. begin
  63652. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  63653. end;
  63654. procedure TPORTC_TRISC.setTRISC1; inline;
  63655. begin
  63656. pTDefRegMap(@Self)^.&set := $00000002;
  63657. end;
  63658. procedure TPORTC_TRISC.clearTRISC1; inline;
  63659. begin
  63660. pTDefRegMap(@Self)^.clr := $00000002;
  63661. end;
  63662. procedure TPORTC_TRISC.setTRISC1(thebits : TBits_1); inline;
  63663. begin
  63664. if thebits = 0 then
  63665. pTDefRegMap(@Self)^.clr := $00000002
  63666. else
  63667. pTDefRegMap(@Self)^.&set := $00000002;
  63668. end;
  63669. function TPORTC_TRISC.getTRISC1 : TBits_1; inline;
  63670. begin
  63671. getTRISC1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  63672. end;
  63673. procedure TPORTC_TRISC.setTRISC2; inline;
  63674. begin
  63675. pTDefRegMap(@Self)^.&set := $00000004;
  63676. end;
  63677. procedure TPORTC_TRISC.clearTRISC2; inline;
  63678. begin
  63679. pTDefRegMap(@Self)^.clr := $00000004;
  63680. end;
  63681. procedure TPORTC_TRISC.setTRISC2(thebits : TBits_1); inline;
  63682. begin
  63683. if thebits = 0 then
  63684. pTDefRegMap(@Self)^.clr := $00000004
  63685. else
  63686. pTDefRegMap(@Self)^.&set := $00000004;
  63687. end;
  63688. function TPORTC_TRISC.getTRISC2 : TBits_1; inline;
  63689. begin
  63690. getTRISC2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  63691. end;
  63692. procedure TPORTC_TRISC.setTRISC3; inline;
  63693. begin
  63694. pTDefRegMap(@Self)^.&set := $00000008;
  63695. end;
  63696. procedure TPORTC_TRISC.clearTRISC3; inline;
  63697. begin
  63698. pTDefRegMap(@Self)^.clr := $00000008;
  63699. end;
  63700. procedure TPORTC_TRISC.setTRISC3(thebits : TBits_1); inline;
  63701. begin
  63702. if thebits = 0 then
  63703. pTDefRegMap(@Self)^.clr := $00000008
  63704. else
  63705. pTDefRegMap(@Self)^.&set := $00000008;
  63706. end;
  63707. function TPORTC_TRISC.getTRISC3 : TBits_1; inline;
  63708. begin
  63709. getTRISC3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  63710. end;
  63711. procedure TPORTC_TRISC.setTRISC4; inline;
  63712. begin
  63713. pTDefRegMap(@Self)^.&set := $00000010;
  63714. end;
  63715. procedure TPORTC_TRISC.clearTRISC4; inline;
  63716. begin
  63717. pTDefRegMap(@Self)^.clr := $00000010;
  63718. end;
  63719. procedure TPORTC_TRISC.setTRISC4(thebits : TBits_1); inline;
  63720. begin
  63721. if thebits = 0 then
  63722. pTDefRegMap(@Self)^.clr := $00000010
  63723. else
  63724. pTDefRegMap(@Self)^.&set := $00000010;
  63725. end;
  63726. function TPORTC_TRISC.getTRISC4 : TBits_1; inline;
  63727. begin
  63728. getTRISC4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  63729. end;
  63730. procedure TPORTC_TRISC.setTRISC12; inline;
  63731. begin
  63732. pTDefRegMap(@Self)^.&set := $00001000;
  63733. end;
  63734. procedure TPORTC_TRISC.clearTRISC12; inline;
  63735. begin
  63736. pTDefRegMap(@Self)^.clr := $00001000;
  63737. end;
  63738. procedure TPORTC_TRISC.setTRISC12(thebits : TBits_1); inline;
  63739. begin
  63740. if thebits = 0 then
  63741. pTDefRegMap(@Self)^.clr := $00001000
  63742. else
  63743. pTDefRegMap(@Self)^.&set := $00001000;
  63744. end;
  63745. function TPORTC_TRISC.getTRISC12 : TBits_1; inline;
  63746. begin
  63747. getTRISC12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  63748. end;
  63749. procedure TPORTC_TRISC.setTRISC13; inline;
  63750. begin
  63751. pTDefRegMap(@Self)^.&set := $00002000;
  63752. end;
  63753. procedure TPORTC_TRISC.clearTRISC13; inline;
  63754. begin
  63755. pTDefRegMap(@Self)^.clr := $00002000;
  63756. end;
  63757. procedure TPORTC_TRISC.setTRISC13(thebits : TBits_1); inline;
  63758. begin
  63759. if thebits = 0 then
  63760. pTDefRegMap(@Self)^.clr := $00002000
  63761. else
  63762. pTDefRegMap(@Self)^.&set := $00002000;
  63763. end;
  63764. function TPORTC_TRISC.getTRISC13 : TBits_1; inline;
  63765. begin
  63766. getTRISC13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  63767. end;
  63768. procedure TPORTC_TRISC.setTRISC14; inline;
  63769. begin
  63770. pTDefRegMap(@Self)^.&set := $00004000;
  63771. end;
  63772. procedure TPORTC_TRISC.clearTRISC14; inline;
  63773. begin
  63774. pTDefRegMap(@Self)^.clr := $00004000;
  63775. end;
  63776. procedure TPORTC_TRISC.setTRISC14(thebits : TBits_1); inline;
  63777. begin
  63778. if thebits = 0 then
  63779. pTDefRegMap(@Self)^.clr := $00004000
  63780. else
  63781. pTDefRegMap(@Self)^.&set := $00004000;
  63782. end;
  63783. function TPORTC_TRISC.getTRISC14 : TBits_1; inline;
  63784. begin
  63785. getTRISC14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  63786. end;
  63787. procedure TPORTC_TRISC.setTRISC15; inline;
  63788. begin
  63789. pTDefRegMap(@Self)^.&set := $00008000;
  63790. end;
  63791. procedure TPORTC_TRISC.clearTRISC15; inline;
  63792. begin
  63793. pTDefRegMap(@Self)^.clr := $00008000;
  63794. end;
  63795. procedure TPORTC_TRISC.setTRISC15(thebits : TBits_1); inline;
  63796. begin
  63797. if thebits = 0 then
  63798. pTDefRegMap(@Self)^.clr := $00008000
  63799. else
  63800. pTDefRegMap(@Self)^.&set := $00008000;
  63801. end;
  63802. function TPORTC_TRISC.getTRISC15 : TBits_1; inline;
  63803. begin
  63804. getTRISC15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  63805. end;
  63806. procedure TPORTC_TRISC.setw(thebits : TBits_32); inline;
  63807. begin
  63808. pTDefRegMap(@Self)^.val := thebits;
  63809. end;
  63810. function TPORTC_TRISC.getw : TBits_32; inline;
  63811. begin
  63812. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  63813. end;
  63814. procedure TPORTC_PORTC.setRC1; inline;
  63815. begin
  63816. pTDefRegMap(@Self)^.&set := $00000002;
  63817. end;
  63818. procedure TPORTC_PORTC.clearRC1; inline;
  63819. begin
  63820. pTDefRegMap(@Self)^.clr := $00000002;
  63821. end;
  63822. procedure TPORTC_PORTC.setRC1(thebits : TBits_1); inline;
  63823. begin
  63824. if thebits = 0 then
  63825. pTDefRegMap(@Self)^.clr := $00000002
  63826. else
  63827. pTDefRegMap(@Self)^.&set := $00000002;
  63828. end;
  63829. function TPORTC_PORTC.getRC1 : TBits_1; inline;
  63830. begin
  63831. getRC1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  63832. end;
  63833. procedure TPORTC_PORTC.setRC2; inline;
  63834. begin
  63835. pTDefRegMap(@Self)^.&set := $00000004;
  63836. end;
  63837. procedure TPORTC_PORTC.clearRC2; inline;
  63838. begin
  63839. pTDefRegMap(@Self)^.clr := $00000004;
  63840. end;
  63841. procedure TPORTC_PORTC.setRC2(thebits : TBits_1); inline;
  63842. begin
  63843. if thebits = 0 then
  63844. pTDefRegMap(@Self)^.clr := $00000004
  63845. else
  63846. pTDefRegMap(@Self)^.&set := $00000004;
  63847. end;
  63848. function TPORTC_PORTC.getRC2 : TBits_1; inline;
  63849. begin
  63850. getRC2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  63851. end;
  63852. procedure TPORTC_PORTC.setRC3; inline;
  63853. begin
  63854. pTDefRegMap(@Self)^.&set := $00000008;
  63855. end;
  63856. procedure TPORTC_PORTC.clearRC3; inline;
  63857. begin
  63858. pTDefRegMap(@Self)^.clr := $00000008;
  63859. end;
  63860. procedure TPORTC_PORTC.setRC3(thebits : TBits_1); inline;
  63861. begin
  63862. if thebits = 0 then
  63863. pTDefRegMap(@Self)^.clr := $00000008
  63864. else
  63865. pTDefRegMap(@Self)^.&set := $00000008;
  63866. end;
  63867. function TPORTC_PORTC.getRC3 : TBits_1; inline;
  63868. begin
  63869. getRC3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  63870. end;
  63871. procedure TPORTC_PORTC.setRC4; inline;
  63872. begin
  63873. pTDefRegMap(@Self)^.&set := $00000010;
  63874. end;
  63875. procedure TPORTC_PORTC.clearRC4; inline;
  63876. begin
  63877. pTDefRegMap(@Self)^.clr := $00000010;
  63878. end;
  63879. procedure TPORTC_PORTC.setRC4(thebits : TBits_1); inline;
  63880. begin
  63881. if thebits = 0 then
  63882. pTDefRegMap(@Self)^.clr := $00000010
  63883. else
  63884. pTDefRegMap(@Self)^.&set := $00000010;
  63885. end;
  63886. function TPORTC_PORTC.getRC4 : TBits_1; inline;
  63887. begin
  63888. getRC4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  63889. end;
  63890. procedure TPORTC_PORTC.setRC12; inline;
  63891. begin
  63892. pTDefRegMap(@Self)^.&set := $00001000;
  63893. end;
  63894. procedure TPORTC_PORTC.clearRC12; inline;
  63895. begin
  63896. pTDefRegMap(@Self)^.clr := $00001000;
  63897. end;
  63898. procedure TPORTC_PORTC.setRC12(thebits : TBits_1); inline;
  63899. begin
  63900. if thebits = 0 then
  63901. pTDefRegMap(@Self)^.clr := $00001000
  63902. else
  63903. pTDefRegMap(@Self)^.&set := $00001000;
  63904. end;
  63905. function TPORTC_PORTC.getRC12 : TBits_1; inline;
  63906. begin
  63907. getRC12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  63908. end;
  63909. procedure TPORTC_PORTC.setRC13; inline;
  63910. begin
  63911. pTDefRegMap(@Self)^.&set := $00002000;
  63912. end;
  63913. procedure TPORTC_PORTC.clearRC13; inline;
  63914. begin
  63915. pTDefRegMap(@Self)^.clr := $00002000;
  63916. end;
  63917. procedure TPORTC_PORTC.setRC13(thebits : TBits_1); inline;
  63918. begin
  63919. if thebits = 0 then
  63920. pTDefRegMap(@Self)^.clr := $00002000
  63921. else
  63922. pTDefRegMap(@Self)^.&set := $00002000;
  63923. end;
  63924. function TPORTC_PORTC.getRC13 : TBits_1; inline;
  63925. begin
  63926. getRC13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  63927. end;
  63928. procedure TPORTC_PORTC.setRC14; inline;
  63929. begin
  63930. pTDefRegMap(@Self)^.&set := $00004000;
  63931. end;
  63932. procedure TPORTC_PORTC.clearRC14; inline;
  63933. begin
  63934. pTDefRegMap(@Self)^.clr := $00004000;
  63935. end;
  63936. procedure TPORTC_PORTC.setRC14(thebits : TBits_1); inline;
  63937. begin
  63938. if thebits = 0 then
  63939. pTDefRegMap(@Self)^.clr := $00004000
  63940. else
  63941. pTDefRegMap(@Self)^.&set := $00004000;
  63942. end;
  63943. function TPORTC_PORTC.getRC14 : TBits_1; inline;
  63944. begin
  63945. getRC14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  63946. end;
  63947. procedure TPORTC_PORTC.setRC15; inline;
  63948. begin
  63949. pTDefRegMap(@Self)^.&set := $00008000;
  63950. end;
  63951. procedure TPORTC_PORTC.clearRC15; inline;
  63952. begin
  63953. pTDefRegMap(@Self)^.clr := $00008000;
  63954. end;
  63955. procedure TPORTC_PORTC.setRC15(thebits : TBits_1); inline;
  63956. begin
  63957. if thebits = 0 then
  63958. pTDefRegMap(@Self)^.clr := $00008000
  63959. else
  63960. pTDefRegMap(@Self)^.&set := $00008000;
  63961. end;
  63962. function TPORTC_PORTC.getRC15 : TBits_1; inline;
  63963. begin
  63964. getRC15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  63965. end;
  63966. procedure TPORTC_PORTC.setw(thebits : TBits_32); inline;
  63967. begin
  63968. pTDefRegMap(@Self)^.val := thebits;
  63969. end;
  63970. function TPORTC_PORTC.getw : TBits_32; inline;
  63971. begin
  63972. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  63973. end;
  63974. procedure TPORTC_LATC.setLATC1; inline;
  63975. begin
  63976. pTDefRegMap(@Self)^.&set := $00000002;
  63977. end;
  63978. procedure TPORTC_LATC.clearLATC1; inline;
  63979. begin
  63980. pTDefRegMap(@Self)^.clr := $00000002;
  63981. end;
  63982. procedure TPORTC_LATC.setLATC1(thebits : TBits_1); inline;
  63983. begin
  63984. if thebits = 0 then
  63985. pTDefRegMap(@Self)^.clr := $00000002
  63986. else
  63987. pTDefRegMap(@Self)^.&set := $00000002;
  63988. end;
  63989. function TPORTC_LATC.getLATC1 : TBits_1; inline;
  63990. begin
  63991. getLATC1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  63992. end;
  63993. procedure TPORTC_LATC.setLATC2; inline;
  63994. begin
  63995. pTDefRegMap(@Self)^.&set := $00000004;
  63996. end;
  63997. procedure TPORTC_LATC.clearLATC2; inline;
  63998. begin
  63999. pTDefRegMap(@Self)^.clr := $00000004;
  64000. end;
  64001. procedure TPORTC_LATC.setLATC2(thebits : TBits_1); inline;
  64002. begin
  64003. if thebits = 0 then
  64004. pTDefRegMap(@Self)^.clr := $00000004
  64005. else
  64006. pTDefRegMap(@Self)^.&set := $00000004;
  64007. end;
  64008. function TPORTC_LATC.getLATC2 : TBits_1; inline;
  64009. begin
  64010. getLATC2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  64011. end;
  64012. procedure TPORTC_LATC.setLATC3; inline;
  64013. begin
  64014. pTDefRegMap(@Self)^.&set := $00000008;
  64015. end;
  64016. procedure TPORTC_LATC.clearLATC3; inline;
  64017. begin
  64018. pTDefRegMap(@Self)^.clr := $00000008;
  64019. end;
  64020. procedure TPORTC_LATC.setLATC3(thebits : TBits_1); inline;
  64021. begin
  64022. if thebits = 0 then
  64023. pTDefRegMap(@Self)^.clr := $00000008
  64024. else
  64025. pTDefRegMap(@Self)^.&set := $00000008;
  64026. end;
  64027. function TPORTC_LATC.getLATC3 : TBits_1; inline;
  64028. begin
  64029. getLATC3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  64030. end;
  64031. procedure TPORTC_LATC.setLATC4; inline;
  64032. begin
  64033. pTDefRegMap(@Self)^.&set := $00000010;
  64034. end;
  64035. procedure TPORTC_LATC.clearLATC4; inline;
  64036. begin
  64037. pTDefRegMap(@Self)^.clr := $00000010;
  64038. end;
  64039. procedure TPORTC_LATC.setLATC4(thebits : TBits_1); inline;
  64040. begin
  64041. if thebits = 0 then
  64042. pTDefRegMap(@Self)^.clr := $00000010
  64043. else
  64044. pTDefRegMap(@Self)^.&set := $00000010;
  64045. end;
  64046. function TPORTC_LATC.getLATC4 : TBits_1; inline;
  64047. begin
  64048. getLATC4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  64049. end;
  64050. procedure TPORTC_LATC.setLATC12; inline;
  64051. begin
  64052. pTDefRegMap(@Self)^.&set := $00001000;
  64053. end;
  64054. procedure TPORTC_LATC.clearLATC12; inline;
  64055. begin
  64056. pTDefRegMap(@Self)^.clr := $00001000;
  64057. end;
  64058. procedure TPORTC_LATC.setLATC12(thebits : TBits_1); inline;
  64059. begin
  64060. if thebits = 0 then
  64061. pTDefRegMap(@Self)^.clr := $00001000
  64062. else
  64063. pTDefRegMap(@Self)^.&set := $00001000;
  64064. end;
  64065. function TPORTC_LATC.getLATC12 : TBits_1; inline;
  64066. begin
  64067. getLATC12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  64068. end;
  64069. procedure TPORTC_LATC.setLATC13; inline;
  64070. begin
  64071. pTDefRegMap(@Self)^.&set := $00002000;
  64072. end;
  64073. procedure TPORTC_LATC.clearLATC13; inline;
  64074. begin
  64075. pTDefRegMap(@Self)^.clr := $00002000;
  64076. end;
  64077. procedure TPORTC_LATC.setLATC13(thebits : TBits_1); inline;
  64078. begin
  64079. if thebits = 0 then
  64080. pTDefRegMap(@Self)^.clr := $00002000
  64081. else
  64082. pTDefRegMap(@Self)^.&set := $00002000;
  64083. end;
  64084. function TPORTC_LATC.getLATC13 : TBits_1; inline;
  64085. begin
  64086. getLATC13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  64087. end;
  64088. procedure TPORTC_LATC.setLATC14; inline;
  64089. begin
  64090. pTDefRegMap(@Self)^.&set := $00004000;
  64091. end;
  64092. procedure TPORTC_LATC.clearLATC14; inline;
  64093. begin
  64094. pTDefRegMap(@Self)^.clr := $00004000;
  64095. end;
  64096. procedure TPORTC_LATC.setLATC14(thebits : TBits_1); inline;
  64097. begin
  64098. if thebits = 0 then
  64099. pTDefRegMap(@Self)^.clr := $00004000
  64100. else
  64101. pTDefRegMap(@Self)^.&set := $00004000;
  64102. end;
  64103. function TPORTC_LATC.getLATC14 : TBits_1; inline;
  64104. begin
  64105. getLATC14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  64106. end;
  64107. procedure TPORTC_LATC.setLATC15; inline;
  64108. begin
  64109. pTDefRegMap(@Self)^.&set := $00008000;
  64110. end;
  64111. procedure TPORTC_LATC.clearLATC15; inline;
  64112. begin
  64113. pTDefRegMap(@Self)^.clr := $00008000;
  64114. end;
  64115. procedure TPORTC_LATC.setLATC15(thebits : TBits_1); inline;
  64116. begin
  64117. if thebits = 0 then
  64118. pTDefRegMap(@Self)^.clr := $00008000
  64119. else
  64120. pTDefRegMap(@Self)^.&set := $00008000;
  64121. end;
  64122. function TPORTC_LATC.getLATC15 : TBits_1; inline;
  64123. begin
  64124. getLATC15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  64125. end;
  64126. procedure TPORTC_LATC.setw(thebits : TBits_32); inline;
  64127. begin
  64128. pTDefRegMap(@Self)^.val := thebits;
  64129. end;
  64130. function TPORTC_LATC.getw : TBits_32; inline;
  64131. begin
  64132. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  64133. end;
  64134. procedure TPORTC_ODCC.setODCC1; inline;
  64135. begin
  64136. pTDefRegMap(@Self)^.&set := $00000002;
  64137. end;
  64138. procedure TPORTC_ODCC.clearODCC1; inline;
  64139. begin
  64140. pTDefRegMap(@Self)^.clr := $00000002;
  64141. end;
  64142. procedure TPORTC_ODCC.setODCC1(thebits : TBits_1); inline;
  64143. begin
  64144. if thebits = 0 then
  64145. pTDefRegMap(@Self)^.clr := $00000002
  64146. else
  64147. pTDefRegMap(@Self)^.&set := $00000002;
  64148. end;
  64149. function TPORTC_ODCC.getODCC1 : TBits_1; inline;
  64150. begin
  64151. getODCC1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  64152. end;
  64153. procedure TPORTC_ODCC.setODCC2; inline;
  64154. begin
  64155. pTDefRegMap(@Self)^.&set := $00000004;
  64156. end;
  64157. procedure TPORTC_ODCC.clearODCC2; inline;
  64158. begin
  64159. pTDefRegMap(@Self)^.clr := $00000004;
  64160. end;
  64161. procedure TPORTC_ODCC.setODCC2(thebits : TBits_1); inline;
  64162. begin
  64163. if thebits = 0 then
  64164. pTDefRegMap(@Self)^.clr := $00000004
  64165. else
  64166. pTDefRegMap(@Self)^.&set := $00000004;
  64167. end;
  64168. function TPORTC_ODCC.getODCC2 : TBits_1; inline;
  64169. begin
  64170. getODCC2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  64171. end;
  64172. procedure TPORTC_ODCC.setODCC3; inline;
  64173. begin
  64174. pTDefRegMap(@Self)^.&set := $00000008;
  64175. end;
  64176. procedure TPORTC_ODCC.clearODCC3; inline;
  64177. begin
  64178. pTDefRegMap(@Self)^.clr := $00000008;
  64179. end;
  64180. procedure TPORTC_ODCC.setODCC3(thebits : TBits_1); inline;
  64181. begin
  64182. if thebits = 0 then
  64183. pTDefRegMap(@Self)^.clr := $00000008
  64184. else
  64185. pTDefRegMap(@Self)^.&set := $00000008;
  64186. end;
  64187. function TPORTC_ODCC.getODCC3 : TBits_1; inline;
  64188. begin
  64189. getODCC3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  64190. end;
  64191. procedure TPORTC_ODCC.setODCC4; inline;
  64192. begin
  64193. pTDefRegMap(@Self)^.&set := $00000010;
  64194. end;
  64195. procedure TPORTC_ODCC.clearODCC4; inline;
  64196. begin
  64197. pTDefRegMap(@Self)^.clr := $00000010;
  64198. end;
  64199. procedure TPORTC_ODCC.setODCC4(thebits : TBits_1); inline;
  64200. begin
  64201. if thebits = 0 then
  64202. pTDefRegMap(@Self)^.clr := $00000010
  64203. else
  64204. pTDefRegMap(@Self)^.&set := $00000010;
  64205. end;
  64206. function TPORTC_ODCC.getODCC4 : TBits_1; inline;
  64207. begin
  64208. getODCC4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  64209. end;
  64210. procedure TPORTC_ODCC.setODCC12; inline;
  64211. begin
  64212. pTDefRegMap(@Self)^.&set := $00001000;
  64213. end;
  64214. procedure TPORTC_ODCC.clearODCC12; inline;
  64215. begin
  64216. pTDefRegMap(@Self)^.clr := $00001000;
  64217. end;
  64218. procedure TPORTC_ODCC.setODCC12(thebits : TBits_1); inline;
  64219. begin
  64220. if thebits = 0 then
  64221. pTDefRegMap(@Self)^.clr := $00001000
  64222. else
  64223. pTDefRegMap(@Self)^.&set := $00001000;
  64224. end;
  64225. function TPORTC_ODCC.getODCC12 : TBits_1; inline;
  64226. begin
  64227. getODCC12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  64228. end;
  64229. procedure TPORTC_ODCC.setODCC13; inline;
  64230. begin
  64231. pTDefRegMap(@Self)^.&set := $00002000;
  64232. end;
  64233. procedure TPORTC_ODCC.clearODCC13; inline;
  64234. begin
  64235. pTDefRegMap(@Self)^.clr := $00002000;
  64236. end;
  64237. procedure TPORTC_ODCC.setODCC13(thebits : TBits_1); inline;
  64238. begin
  64239. if thebits = 0 then
  64240. pTDefRegMap(@Self)^.clr := $00002000
  64241. else
  64242. pTDefRegMap(@Self)^.&set := $00002000;
  64243. end;
  64244. function TPORTC_ODCC.getODCC13 : TBits_1; inline;
  64245. begin
  64246. getODCC13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  64247. end;
  64248. procedure TPORTC_ODCC.setODCC14; inline;
  64249. begin
  64250. pTDefRegMap(@Self)^.&set := $00004000;
  64251. end;
  64252. procedure TPORTC_ODCC.clearODCC14; inline;
  64253. begin
  64254. pTDefRegMap(@Self)^.clr := $00004000;
  64255. end;
  64256. procedure TPORTC_ODCC.setODCC14(thebits : TBits_1); inline;
  64257. begin
  64258. if thebits = 0 then
  64259. pTDefRegMap(@Self)^.clr := $00004000
  64260. else
  64261. pTDefRegMap(@Self)^.&set := $00004000;
  64262. end;
  64263. function TPORTC_ODCC.getODCC14 : TBits_1; inline;
  64264. begin
  64265. getODCC14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  64266. end;
  64267. procedure TPORTC_ODCC.setODCC15; inline;
  64268. begin
  64269. pTDefRegMap(@Self)^.&set := $00008000;
  64270. end;
  64271. procedure TPORTC_ODCC.clearODCC15; inline;
  64272. begin
  64273. pTDefRegMap(@Self)^.clr := $00008000;
  64274. end;
  64275. procedure TPORTC_ODCC.setODCC15(thebits : TBits_1); inline;
  64276. begin
  64277. if thebits = 0 then
  64278. pTDefRegMap(@Self)^.clr := $00008000
  64279. else
  64280. pTDefRegMap(@Self)^.&set := $00008000;
  64281. end;
  64282. function TPORTC_ODCC.getODCC15 : TBits_1; inline;
  64283. begin
  64284. getODCC15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  64285. end;
  64286. procedure TPORTC_ODCC.setw(thebits : TBits_32); inline;
  64287. begin
  64288. pTDefRegMap(@Self)^.val := thebits;
  64289. end;
  64290. function TPORTC_ODCC.getw : TBits_32; inline;
  64291. begin
  64292. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  64293. end;
  64294. procedure TPORTD_TRISD.setTRISD0; inline;
  64295. begin
  64296. pTDefRegMap(@Self)^.&set := $00000001;
  64297. end;
  64298. procedure TPORTD_TRISD.clearTRISD0; inline;
  64299. begin
  64300. pTDefRegMap(@Self)^.clr := $00000001;
  64301. end;
  64302. procedure TPORTD_TRISD.setTRISD0(thebits : TBits_1); inline;
  64303. begin
  64304. if thebits = 0 then
  64305. pTDefRegMap(@Self)^.clr := $00000001
  64306. else
  64307. pTDefRegMap(@Self)^.&set := $00000001;
  64308. end;
  64309. function TPORTD_TRISD.getTRISD0 : TBits_1; inline;
  64310. begin
  64311. getTRISD0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  64312. end;
  64313. procedure TPORTD_TRISD.setTRISD1; inline;
  64314. begin
  64315. pTDefRegMap(@Self)^.&set := $00000002;
  64316. end;
  64317. procedure TPORTD_TRISD.clearTRISD1; inline;
  64318. begin
  64319. pTDefRegMap(@Self)^.clr := $00000002;
  64320. end;
  64321. procedure TPORTD_TRISD.setTRISD1(thebits : TBits_1); inline;
  64322. begin
  64323. if thebits = 0 then
  64324. pTDefRegMap(@Self)^.clr := $00000002
  64325. else
  64326. pTDefRegMap(@Self)^.&set := $00000002;
  64327. end;
  64328. function TPORTD_TRISD.getTRISD1 : TBits_1; inline;
  64329. begin
  64330. getTRISD1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  64331. end;
  64332. procedure TPORTD_TRISD.setTRISD2; inline;
  64333. begin
  64334. pTDefRegMap(@Self)^.&set := $00000004;
  64335. end;
  64336. procedure TPORTD_TRISD.clearTRISD2; inline;
  64337. begin
  64338. pTDefRegMap(@Self)^.clr := $00000004;
  64339. end;
  64340. procedure TPORTD_TRISD.setTRISD2(thebits : TBits_1); inline;
  64341. begin
  64342. if thebits = 0 then
  64343. pTDefRegMap(@Self)^.clr := $00000004
  64344. else
  64345. pTDefRegMap(@Self)^.&set := $00000004;
  64346. end;
  64347. function TPORTD_TRISD.getTRISD2 : TBits_1; inline;
  64348. begin
  64349. getTRISD2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  64350. end;
  64351. procedure TPORTD_TRISD.setTRISD3; inline;
  64352. begin
  64353. pTDefRegMap(@Self)^.&set := $00000008;
  64354. end;
  64355. procedure TPORTD_TRISD.clearTRISD3; inline;
  64356. begin
  64357. pTDefRegMap(@Self)^.clr := $00000008;
  64358. end;
  64359. procedure TPORTD_TRISD.setTRISD3(thebits : TBits_1); inline;
  64360. begin
  64361. if thebits = 0 then
  64362. pTDefRegMap(@Self)^.clr := $00000008
  64363. else
  64364. pTDefRegMap(@Self)^.&set := $00000008;
  64365. end;
  64366. function TPORTD_TRISD.getTRISD3 : TBits_1; inline;
  64367. begin
  64368. getTRISD3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  64369. end;
  64370. procedure TPORTD_TRISD.setTRISD4; inline;
  64371. begin
  64372. pTDefRegMap(@Self)^.&set := $00000010;
  64373. end;
  64374. procedure TPORTD_TRISD.clearTRISD4; inline;
  64375. begin
  64376. pTDefRegMap(@Self)^.clr := $00000010;
  64377. end;
  64378. procedure TPORTD_TRISD.setTRISD4(thebits : TBits_1); inline;
  64379. begin
  64380. if thebits = 0 then
  64381. pTDefRegMap(@Self)^.clr := $00000010
  64382. else
  64383. pTDefRegMap(@Self)^.&set := $00000010;
  64384. end;
  64385. function TPORTD_TRISD.getTRISD4 : TBits_1; inline;
  64386. begin
  64387. getTRISD4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  64388. end;
  64389. procedure TPORTD_TRISD.setTRISD5; inline;
  64390. begin
  64391. pTDefRegMap(@Self)^.&set := $00000020;
  64392. end;
  64393. procedure TPORTD_TRISD.clearTRISD5; inline;
  64394. begin
  64395. pTDefRegMap(@Self)^.clr := $00000020;
  64396. end;
  64397. procedure TPORTD_TRISD.setTRISD5(thebits : TBits_1); inline;
  64398. begin
  64399. if thebits = 0 then
  64400. pTDefRegMap(@Self)^.clr := $00000020
  64401. else
  64402. pTDefRegMap(@Self)^.&set := $00000020;
  64403. end;
  64404. function TPORTD_TRISD.getTRISD5 : TBits_1; inline;
  64405. begin
  64406. getTRISD5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  64407. end;
  64408. procedure TPORTD_TRISD.setTRISD6; inline;
  64409. begin
  64410. pTDefRegMap(@Self)^.&set := $00000040;
  64411. end;
  64412. procedure TPORTD_TRISD.clearTRISD6; inline;
  64413. begin
  64414. pTDefRegMap(@Self)^.clr := $00000040;
  64415. end;
  64416. procedure TPORTD_TRISD.setTRISD6(thebits : TBits_1); inline;
  64417. begin
  64418. if thebits = 0 then
  64419. pTDefRegMap(@Self)^.clr := $00000040
  64420. else
  64421. pTDefRegMap(@Self)^.&set := $00000040;
  64422. end;
  64423. function TPORTD_TRISD.getTRISD6 : TBits_1; inline;
  64424. begin
  64425. getTRISD6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  64426. end;
  64427. procedure TPORTD_TRISD.setTRISD7; inline;
  64428. begin
  64429. pTDefRegMap(@Self)^.&set := $00000080;
  64430. end;
  64431. procedure TPORTD_TRISD.clearTRISD7; inline;
  64432. begin
  64433. pTDefRegMap(@Self)^.clr := $00000080;
  64434. end;
  64435. procedure TPORTD_TRISD.setTRISD7(thebits : TBits_1); inline;
  64436. begin
  64437. if thebits = 0 then
  64438. pTDefRegMap(@Self)^.clr := $00000080
  64439. else
  64440. pTDefRegMap(@Self)^.&set := $00000080;
  64441. end;
  64442. function TPORTD_TRISD.getTRISD7 : TBits_1; inline;
  64443. begin
  64444. getTRISD7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  64445. end;
  64446. procedure TPORTD_TRISD.setTRISD8; inline;
  64447. begin
  64448. pTDefRegMap(@Self)^.&set := $00000100;
  64449. end;
  64450. procedure TPORTD_TRISD.clearTRISD8; inline;
  64451. begin
  64452. pTDefRegMap(@Self)^.clr := $00000100;
  64453. end;
  64454. procedure TPORTD_TRISD.setTRISD8(thebits : TBits_1); inline;
  64455. begin
  64456. if thebits = 0 then
  64457. pTDefRegMap(@Self)^.clr := $00000100
  64458. else
  64459. pTDefRegMap(@Self)^.&set := $00000100;
  64460. end;
  64461. function TPORTD_TRISD.getTRISD8 : TBits_1; inline;
  64462. begin
  64463. getTRISD8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  64464. end;
  64465. procedure TPORTD_TRISD.setTRISD9; inline;
  64466. begin
  64467. pTDefRegMap(@Self)^.&set := $00000200;
  64468. end;
  64469. procedure TPORTD_TRISD.clearTRISD9; inline;
  64470. begin
  64471. pTDefRegMap(@Self)^.clr := $00000200;
  64472. end;
  64473. procedure TPORTD_TRISD.setTRISD9(thebits : TBits_1); inline;
  64474. begin
  64475. if thebits = 0 then
  64476. pTDefRegMap(@Self)^.clr := $00000200
  64477. else
  64478. pTDefRegMap(@Self)^.&set := $00000200;
  64479. end;
  64480. function TPORTD_TRISD.getTRISD9 : TBits_1; inline;
  64481. begin
  64482. getTRISD9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  64483. end;
  64484. procedure TPORTD_TRISD.setTRISD10; inline;
  64485. begin
  64486. pTDefRegMap(@Self)^.&set := $00000400;
  64487. end;
  64488. procedure TPORTD_TRISD.clearTRISD10; inline;
  64489. begin
  64490. pTDefRegMap(@Self)^.clr := $00000400;
  64491. end;
  64492. procedure TPORTD_TRISD.setTRISD10(thebits : TBits_1); inline;
  64493. begin
  64494. if thebits = 0 then
  64495. pTDefRegMap(@Self)^.clr := $00000400
  64496. else
  64497. pTDefRegMap(@Self)^.&set := $00000400;
  64498. end;
  64499. function TPORTD_TRISD.getTRISD10 : TBits_1; inline;
  64500. begin
  64501. getTRISD10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  64502. end;
  64503. procedure TPORTD_TRISD.setTRISD11; inline;
  64504. begin
  64505. pTDefRegMap(@Self)^.&set := $00000800;
  64506. end;
  64507. procedure TPORTD_TRISD.clearTRISD11; inline;
  64508. begin
  64509. pTDefRegMap(@Self)^.clr := $00000800;
  64510. end;
  64511. procedure TPORTD_TRISD.setTRISD11(thebits : TBits_1); inline;
  64512. begin
  64513. if thebits = 0 then
  64514. pTDefRegMap(@Self)^.clr := $00000800
  64515. else
  64516. pTDefRegMap(@Self)^.&set := $00000800;
  64517. end;
  64518. function TPORTD_TRISD.getTRISD11 : TBits_1; inline;
  64519. begin
  64520. getTRISD11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  64521. end;
  64522. procedure TPORTD_TRISD.setTRISD12; inline;
  64523. begin
  64524. pTDefRegMap(@Self)^.&set := $00001000;
  64525. end;
  64526. procedure TPORTD_TRISD.clearTRISD12; inline;
  64527. begin
  64528. pTDefRegMap(@Self)^.clr := $00001000;
  64529. end;
  64530. procedure TPORTD_TRISD.setTRISD12(thebits : TBits_1); inline;
  64531. begin
  64532. if thebits = 0 then
  64533. pTDefRegMap(@Self)^.clr := $00001000
  64534. else
  64535. pTDefRegMap(@Self)^.&set := $00001000;
  64536. end;
  64537. function TPORTD_TRISD.getTRISD12 : TBits_1; inline;
  64538. begin
  64539. getTRISD12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  64540. end;
  64541. procedure TPORTD_TRISD.setTRISD13; inline;
  64542. begin
  64543. pTDefRegMap(@Self)^.&set := $00002000;
  64544. end;
  64545. procedure TPORTD_TRISD.clearTRISD13; inline;
  64546. begin
  64547. pTDefRegMap(@Self)^.clr := $00002000;
  64548. end;
  64549. procedure TPORTD_TRISD.setTRISD13(thebits : TBits_1); inline;
  64550. begin
  64551. if thebits = 0 then
  64552. pTDefRegMap(@Self)^.clr := $00002000
  64553. else
  64554. pTDefRegMap(@Self)^.&set := $00002000;
  64555. end;
  64556. function TPORTD_TRISD.getTRISD13 : TBits_1; inline;
  64557. begin
  64558. getTRISD13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  64559. end;
  64560. procedure TPORTD_TRISD.setTRISD14; inline;
  64561. begin
  64562. pTDefRegMap(@Self)^.&set := $00004000;
  64563. end;
  64564. procedure TPORTD_TRISD.clearTRISD14; inline;
  64565. begin
  64566. pTDefRegMap(@Self)^.clr := $00004000;
  64567. end;
  64568. procedure TPORTD_TRISD.setTRISD14(thebits : TBits_1); inline;
  64569. begin
  64570. if thebits = 0 then
  64571. pTDefRegMap(@Self)^.clr := $00004000
  64572. else
  64573. pTDefRegMap(@Self)^.&set := $00004000;
  64574. end;
  64575. function TPORTD_TRISD.getTRISD14 : TBits_1; inline;
  64576. begin
  64577. getTRISD14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  64578. end;
  64579. procedure TPORTD_TRISD.setTRISD15; inline;
  64580. begin
  64581. pTDefRegMap(@Self)^.&set := $00008000;
  64582. end;
  64583. procedure TPORTD_TRISD.clearTRISD15; inline;
  64584. begin
  64585. pTDefRegMap(@Self)^.clr := $00008000;
  64586. end;
  64587. procedure TPORTD_TRISD.setTRISD15(thebits : TBits_1); inline;
  64588. begin
  64589. if thebits = 0 then
  64590. pTDefRegMap(@Self)^.clr := $00008000
  64591. else
  64592. pTDefRegMap(@Self)^.&set := $00008000;
  64593. end;
  64594. function TPORTD_TRISD.getTRISD15 : TBits_1; inline;
  64595. begin
  64596. getTRISD15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  64597. end;
  64598. procedure TPORTD_TRISD.setw(thebits : TBits_32); inline;
  64599. begin
  64600. pTDefRegMap(@Self)^.val := thebits;
  64601. end;
  64602. function TPORTD_TRISD.getw : TBits_32; inline;
  64603. begin
  64604. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  64605. end;
  64606. procedure TPORTD_PORTD.setRD0; inline;
  64607. begin
  64608. pTDefRegMap(@Self)^.&set := $00000001;
  64609. end;
  64610. procedure TPORTD_PORTD.clearRD0; inline;
  64611. begin
  64612. pTDefRegMap(@Self)^.clr := $00000001;
  64613. end;
  64614. procedure TPORTD_PORTD.setRD0(thebits : TBits_1); inline;
  64615. begin
  64616. if thebits = 0 then
  64617. pTDefRegMap(@Self)^.clr := $00000001
  64618. else
  64619. pTDefRegMap(@Self)^.&set := $00000001;
  64620. end;
  64621. function TPORTD_PORTD.getRD0 : TBits_1; inline;
  64622. begin
  64623. getRD0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  64624. end;
  64625. procedure TPORTD_PORTD.setRD1; inline;
  64626. begin
  64627. pTDefRegMap(@Self)^.&set := $00000002;
  64628. end;
  64629. procedure TPORTD_PORTD.clearRD1; inline;
  64630. begin
  64631. pTDefRegMap(@Self)^.clr := $00000002;
  64632. end;
  64633. procedure TPORTD_PORTD.setRD1(thebits : TBits_1); inline;
  64634. begin
  64635. if thebits = 0 then
  64636. pTDefRegMap(@Self)^.clr := $00000002
  64637. else
  64638. pTDefRegMap(@Self)^.&set := $00000002;
  64639. end;
  64640. function TPORTD_PORTD.getRD1 : TBits_1; inline;
  64641. begin
  64642. getRD1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  64643. end;
  64644. procedure TPORTD_PORTD.setRD2; inline;
  64645. begin
  64646. pTDefRegMap(@Self)^.&set := $00000004;
  64647. end;
  64648. procedure TPORTD_PORTD.clearRD2; inline;
  64649. begin
  64650. pTDefRegMap(@Self)^.clr := $00000004;
  64651. end;
  64652. procedure TPORTD_PORTD.setRD2(thebits : TBits_1); inline;
  64653. begin
  64654. if thebits = 0 then
  64655. pTDefRegMap(@Self)^.clr := $00000004
  64656. else
  64657. pTDefRegMap(@Self)^.&set := $00000004;
  64658. end;
  64659. function TPORTD_PORTD.getRD2 : TBits_1; inline;
  64660. begin
  64661. getRD2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  64662. end;
  64663. procedure TPORTD_PORTD.setRD3; inline;
  64664. begin
  64665. pTDefRegMap(@Self)^.&set := $00000008;
  64666. end;
  64667. procedure TPORTD_PORTD.clearRD3; inline;
  64668. begin
  64669. pTDefRegMap(@Self)^.clr := $00000008;
  64670. end;
  64671. procedure TPORTD_PORTD.setRD3(thebits : TBits_1); inline;
  64672. begin
  64673. if thebits = 0 then
  64674. pTDefRegMap(@Self)^.clr := $00000008
  64675. else
  64676. pTDefRegMap(@Self)^.&set := $00000008;
  64677. end;
  64678. function TPORTD_PORTD.getRD3 : TBits_1; inline;
  64679. begin
  64680. getRD3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  64681. end;
  64682. procedure TPORTD_PORTD.setRD4; inline;
  64683. begin
  64684. pTDefRegMap(@Self)^.&set := $00000010;
  64685. end;
  64686. procedure TPORTD_PORTD.clearRD4; inline;
  64687. begin
  64688. pTDefRegMap(@Self)^.clr := $00000010;
  64689. end;
  64690. procedure TPORTD_PORTD.setRD4(thebits : TBits_1); inline;
  64691. begin
  64692. if thebits = 0 then
  64693. pTDefRegMap(@Self)^.clr := $00000010
  64694. else
  64695. pTDefRegMap(@Self)^.&set := $00000010;
  64696. end;
  64697. function TPORTD_PORTD.getRD4 : TBits_1; inline;
  64698. begin
  64699. getRD4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  64700. end;
  64701. procedure TPORTD_PORTD.setRD5; inline;
  64702. begin
  64703. pTDefRegMap(@Self)^.&set := $00000020;
  64704. end;
  64705. procedure TPORTD_PORTD.clearRD5; inline;
  64706. begin
  64707. pTDefRegMap(@Self)^.clr := $00000020;
  64708. end;
  64709. procedure TPORTD_PORTD.setRD5(thebits : TBits_1); inline;
  64710. begin
  64711. if thebits = 0 then
  64712. pTDefRegMap(@Self)^.clr := $00000020
  64713. else
  64714. pTDefRegMap(@Self)^.&set := $00000020;
  64715. end;
  64716. function TPORTD_PORTD.getRD5 : TBits_1; inline;
  64717. begin
  64718. getRD5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  64719. end;
  64720. procedure TPORTD_PORTD.setRD6; inline;
  64721. begin
  64722. pTDefRegMap(@Self)^.&set := $00000040;
  64723. end;
  64724. procedure TPORTD_PORTD.clearRD6; inline;
  64725. begin
  64726. pTDefRegMap(@Self)^.clr := $00000040;
  64727. end;
  64728. procedure TPORTD_PORTD.setRD6(thebits : TBits_1); inline;
  64729. begin
  64730. if thebits = 0 then
  64731. pTDefRegMap(@Self)^.clr := $00000040
  64732. else
  64733. pTDefRegMap(@Self)^.&set := $00000040;
  64734. end;
  64735. function TPORTD_PORTD.getRD6 : TBits_1; inline;
  64736. begin
  64737. getRD6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  64738. end;
  64739. procedure TPORTD_PORTD.setRD7; inline;
  64740. begin
  64741. pTDefRegMap(@Self)^.&set := $00000080;
  64742. end;
  64743. procedure TPORTD_PORTD.clearRD7; inline;
  64744. begin
  64745. pTDefRegMap(@Self)^.clr := $00000080;
  64746. end;
  64747. procedure TPORTD_PORTD.setRD7(thebits : TBits_1); inline;
  64748. begin
  64749. if thebits = 0 then
  64750. pTDefRegMap(@Self)^.clr := $00000080
  64751. else
  64752. pTDefRegMap(@Self)^.&set := $00000080;
  64753. end;
  64754. function TPORTD_PORTD.getRD7 : TBits_1; inline;
  64755. begin
  64756. getRD7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  64757. end;
  64758. procedure TPORTD_PORTD.setRD8; inline;
  64759. begin
  64760. pTDefRegMap(@Self)^.&set := $00000100;
  64761. end;
  64762. procedure TPORTD_PORTD.clearRD8; inline;
  64763. begin
  64764. pTDefRegMap(@Self)^.clr := $00000100;
  64765. end;
  64766. procedure TPORTD_PORTD.setRD8(thebits : TBits_1); inline;
  64767. begin
  64768. if thebits = 0 then
  64769. pTDefRegMap(@Self)^.clr := $00000100
  64770. else
  64771. pTDefRegMap(@Self)^.&set := $00000100;
  64772. end;
  64773. function TPORTD_PORTD.getRD8 : TBits_1; inline;
  64774. begin
  64775. getRD8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  64776. end;
  64777. procedure TPORTD_PORTD.setRD9; inline;
  64778. begin
  64779. pTDefRegMap(@Self)^.&set := $00000200;
  64780. end;
  64781. procedure TPORTD_PORTD.clearRD9; inline;
  64782. begin
  64783. pTDefRegMap(@Self)^.clr := $00000200;
  64784. end;
  64785. procedure TPORTD_PORTD.setRD9(thebits : TBits_1); inline;
  64786. begin
  64787. if thebits = 0 then
  64788. pTDefRegMap(@Self)^.clr := $00000200
  64789. else
  64790. pTDefRegMap(@Self)^.&set := $00000200;
  64791. end;
  64792. function TPORTD_PORTD.getRD9 : TBits_1; inline;
  64793. begin
  64794. getRD9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  64795. end;
  64796. procedure TPORTD_PORTD.setRD10; inline;
  64797. begin
  64798. pTDefRegMap(@Self)^.&set := $00000400;
  64799. end;
  64800. procedure TPORTD_PORTD.clearRD10; inline;
  64801. begin
  64802. pTDefRegMap(@Self)^.clr := $00000400;
  64803. end;
  64804. procedure TPORTD_PORTD.setRD10(thebits : TBits_1); inline;
  64805. begin
  64806. if thebits = 0 then
  64807. pTDefRegMap(@Self)^.clr := $00000400
  64808. else
  64809. pTDefRegMap(@Self)^.&set := $00000400;
  64810. end;
  64811. function TPORTD_PORTD.getRD10 : TBits_1; inline;
  64812. begin
  64813. getRD10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  64814. end;
  64815. procedure TPORTD_PORTD.setRD11; inline;
  64816. begin
  64817. pTDefRegMap(@Self)^.&set := $00000800;
  64818. end;
  64819. procedure TPORTD_PORTD.clearRD11; inline;
  64820. begin
  64821. pTDefRegMap(@Self)^.clr := $00000800;
  64822. end;
  64823. procedure TPORTD_PORTD.setRD11(thebits : TBits_1); inline;
  64824. begin
  64825. if thebits = 0 then
  64826. pTDefRegMap(@Self)^.clr := $00000800
  64827. else
  64828. pTDefRegMap(@Self)^.&set := $00000800;
  64829. end;
  64830. function TPORTD_PORTD.getRD11 : TBits_1; inline;
  64831. begin
  64832. getRD11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  64833. end;
  64834. procedure TPORTD_PORTD.setRD12; inline;
  64835. begin
  64836. pTDefRegMap(@Self)^.&set := $00001000;
  64837. end;
  64838. procedure TPORTD_PORTD.clearRD12; inline;
  64839. begin
  64840. pTDefRegMap(@Self)^.clr := $00001000;
  64841. end;
  64842. procedure TPORTD_PORTD.setRD12(thebits : TBits_1); inline;
  64843. begin
  64844. if thebits = 0 then
  64845. pTDefRegMap(@Self)^.clr := $00001000
  64846. else
  64847. pTDefRegMap(@Self)^.&set := $00001000;
  64848. end;
  64849. function TPORTD_PORTD.getRD12 : TBits_1; inline;
  64850. begin
  64851. getRD12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  64852. end;
  64853. procedure TPORTD_PORTD.setRD13; inline;
  64854. begin
  64855. pTDefRegMap(@Self)^.&set := $00002000;
  64856. end;
  64857. procedure TPORTD_PORTD.clearRD13; inline;
  64858. begin
  64859. pTDefRegMap(@Self)^.clr := $00002000;
  64860. end;
  64861. procedure TPORTD_PORTD.setRD13(thebits : TBits_1); inline;
  64862. begin
  64863. if thebits = 0 then
  64864. pTDefRegMap(@Self)^.clr := $00002000
  64865. else
  64866. pTDefRegMap(@Self)^.&set := $00002000;
  64867. end;
  64868. function TPORTD_PORTD.getRD13 : TBits_1; inline;
  64869. begin
  64870. getRD13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  64871. end;
  64872. procedure TPORTD_PORTD.setRD14; inline;
  64873. begin
  64874. pTDefRegMap(@Self)^.&set := $00004000;
  64875. end;
  64876. procedure TPORTD_PORTD.clearRD14; inline;
  64877. begin
  64878. pTDefRegMap(@Self)^.clr := $00004000;
  64879. end;
  64880. procedure TPORTD_PORTD.setRD14(thebits : TBits_1); inline;
  64881. begin
  64882. if thebits = 0 then
  64883. pTDefRegMap(@Self)^.clr := $00004000
  64884. else
  64885. pTDefRegMap(@Self)^.&set := $00004000;
  64886. end;
  64887. function TPORTD_PORTD.getRD14 : TBits_1; inline;
  64888. begin
  64889. getRD14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  64890. end;
  64891. procedure TPORTD_PORTD.setRD15; inline;
  64892. begin
  64893. pTDefRegMap(@Self)^.&set := $00008000;
  64894. end;
  64895. procedure TPORTD_PORTD.clearRD15; inline;
  64896. begin
  64897. pTDefRegMap(@Self)^.clr := $00008000;
  64898. end;
  64899. procedure TPORTD_PORTD.setRD15(thebits : TBits_1); inline;
  64900. begin
  64901. if thebits = 0 then
  64902. pTDefRegMap(@Self)^.clr := $00008000
  64903. else
  64904. pTDefRegMap(@Self)^.&set := $00008000;
  64905. end;
  64906. function TPORTD_PORTD.getRD15 : TBits_1; inline;
  64907. begin
  64908. getRD15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  64909. end;
  64910. procedure TPORTD_PORTD.setw(thebits : TBits_32); inline;
  64911. begin
  64912. pTDefRegMap(@Self)^.val := thebits;
  64913. end;
  64914. function TPORTD_PORTD.getw : TBits_32; inline;
  64915. begin
  64916. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  64917. end;
  64918. procedure TPORTD_LATD.setLATD0; inline;
  64919. begin
  64920. pTDefRegMap(@Self)^.&set := $00000001;
  64921. end;
  64922. procedure TPORTD_LATD.clearLATD0; inline;
  64923. begin
  64924. pTDefRegMap(@Self)^.clr := $00000001;
  64925. end;
  64926. procedure TPORTD_LATD.setLATD0(thebits : TBits_1); inline;
  64927. begin
  64928. if thebits = 0 then
  64929. pTDefRegMap(@Self)^.clr := $00000001
  64930. else
  64931. pTDefRegMap(@Self)^.&set := $00000001;
  64932. end;
  64933. function TPORTD_LATD.getLATD0 : TBits_1; inline;
  64934. begin
  64935. getLATD0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  64936. end;
  64937. procedure TPORTD_LATD.setLATD1; inline;
  64938. begin
  64939. pTDefRegMap(@Self)^.&set := $00000002;
  64940. end;
  64941. procedure TPORTD_LATD.clearLATD1; inline;
  64942. begin
  64943. pTDefRegMap(@Self)^.clr := $00000002;
  64944. end;
  64945. procedure TPORTD_LATD.setLATD1(thebits : TBits_1); inline;
  64946. begin
  64947. if thebits = 0 then
  64948. pTDefRegMap(@Self)^.clr := $00000002
  64949. else
  64950. pTDefRegMap(@Self)^.&set := $00000002;
  64951. end;
  64952. function TPORTD_LATD.getLATD1 : TBits_1; inline;
  64953. begin
  64954. getLATD1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  64955. end;
  64956. procedure TPORTD_LATD.setLATD2; inline;
  64957. begin
  64958. pTDefRegMap(@Self)^.&set := $00000004;
  64959. end;
  64960. procedure TPORTD_LATD.clearLATD2; inline;
  64961. begin
  64962. pTDefRegMap(@Self)^.clr := $00000004;
  64963. end;
  64964. procedure TPORTD_LATD.setLATD2(thebits : TBits_1); inline;
  64965. begin
  64966. if thebits = 0 then
  64967. pTDefRegMap(@Self)^.clr := $00000004
  64968. else
  64969. pTDefRegMap(@Self)^.&set := $00000004;
  64970. end;
  64971. function TPORTD_LATD.getLATD2 : TBits_1; inline;
  64972. begin
  64973. getLATD2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  64974. end;
  64975. procedure TPORTD_LATD.setLATD3; inline;
  64976. begin
  64977. pTDefRegMap(@Self)^.&set := $00000008;
  64978. end;
  64979. procedure TPORTD_LATD.clearLATD3; inline;
  64980. begin
  64981. pTDefRegMap(@Self)^.clr := $00000008;
  64982. end;
  64983. procedure TPORTD_LATD.setLATD3(thebits : TBits_1); inline;
  64984. begin
  64985. if thebits = 0 then
  64986. pTDefRegMap(@Self)^.clr := $00000008
  64987. else
  64988. pTDefRegMap(@Self)^.&set := $00000008;
  64989. end;
  64990. function TPORTD_LATD.getLATD3 : TBits_1; inline;
  64991. begin
  64992. getLATD3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  64993. end;
  64994. procedure TPORTD_LATD.setLATD4; inline;
  64995. begin
  64996. pTDefRegMap(@Self)^.&set := $00000010;
  64997. end;
  64998. procedure TPORTD_LATD.clearLATD4; inline;
  64999. begin
  65000. pTDefRegMap(@Self)^.clr := $00000010;
  65001. end;
  65002. procedure TPORTD_LATD.setLATD4(thebits : TBits_1); inline;
  65003. begin
  65004. if thebits = 0 then
  65005. pTDefRegMap(@Self)^.clr := $00000010
  65006. else
  65007. pTDefRegMap(@Self)^.&set := $00000010;
  65008. end;
  65009. function TPORTD_LATD.getLATD4 : TBits_1; inline;
  65010. begin
  65011. getLATD4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  65012. end;
  65013. procedure TPORTD_LATD.setLATD5; inline;
  65014. begin
  65015. pTDefRegMap(@Self)^.&set := $00000020;
  65016. end;
  65017. procedure TPORTD_LATD.clearLATD5; inline;
  65018. begin
  65019. pTDefRegMap(@Self)^.clr := $00000020;
  65020. end;
  65021. procedure TPORTD_LATD.setLATD5(thebits : TBits_1); inline;
  65022. begin
  65023. if thebits = 0 then
  65024. pTDefRegMap(@Self)^.clr := $00000020
  65025. else
  65026. pTDefRegMap(@Self)^.&set := $00000020;
  65027. end;
  65028. function TPORTD_LATD.getLATD5 : TBits_1; inline;
  65029. begin
  65030. getLATD5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  65031. end;
  65032. procedure TPORTD_LATD.setLATD6; inline;
  65033. begin
  65034. pTDefRegMap(@Self)^.&set := $00000040;
  65035. end;
  65036. procedure TPORTD_LATD.clearLATD6; inline;
  65037. begin
  65038. pTDefRegMap(@Self)^.clr := $00000040;
  65039. end;
  65040. procedure TPORTD_LATD.setLATD6(thebits : TBits_1); inline;
  65041. begin
  65042. if thebits = 0 then
  65043. pTDefRegMap(@Self)^.clr := $00000040
  65044. else
  65045. pTDefRegMap(@Self)^.&set := $00000040;
  65046. end;
  65047. function TPORTD_LATD.getLATD6 : TBits_1; inline;
  65048. begin
  65049. getLATD6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  65050. end;
  65051. procedure TPORTD_LATD.setLATD7; inline;
  65052. begin
  65053. pTDefRegMap(@Self)^.&set := $00000080;
  65054. end;
  65055. procedure TPORTD_LATD.clearLATD7; inline;
  65056. begin
  65057. pTDefRegMap(@Self)^.clr := $00000080;
  65058. end;
  65059. procedure TPORTD_LATD.setLATD7(thebits : TBits_1); inline;
  65060. begin
  65061. if thebits = 0 then
  65062. pTDefRegMap(@Self)^.clr := $00000080
  65063. else
  65064. pTDefRegMap(@Self)^.&set := $00000080;
  65065. end;
  65066. function TPORTD_LATD.getLATD7 : TBits_1; inline;
  65067. begin
  65068. getLATD7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  65069. end;
  65070. procedure TPORTD_LATD.setLATD8; inline;
  65071. begin
  65072. pTDefRegMap(@Self)^.&set := $00000100;
  65073. end;
  65074. procedure TPORTD_LATD.clearLATD8; inline;
  65075. begin
  65076. pTDefRegMap(@Self)^.clr := $00000100;
  65077. end;
  65078. procedure TPORTD_LATD.setLATD8(thebits : TBits_1); inline;
  65079. begin
  65080. if thebits = 0 then
  65081. pTDefRegMap(@Self)^.clr := $00000100
  65082. else
  65083. pTDefRegMap(@Self)^.&set := $00000100;
  65084. end;
  65085. function TPORTD_LATD.getLATD8 : TBits_1; inline;
  65086. begin
  65087. getLATD8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  65088. end;
  65089. procedure TPORTD_LATD.setLATD9; inline;
  65090. begin
  65091. pTDefRegMap(@Self)^.&set := $00000200;
  65092. end;
  65093. procedure TPORTD_LATD.clearLATD9; inline;
  65094. begin
  65095. pTDefRegMap(@Self)^.clr := $00000200;
  65096. end;
  65097. procedure TPORTD_LATD.setLATD9(thebits : TBits_1); inline;
  65098. begin
  65099. if thebits = 0 then
  65100. pTDefRegMap(@Self)^.clr := $00000200
  65101. else
  65102. pTDefRegMap(@Self)^.&set := $00000200;
  65103. end;
  65104. function TPORTD_LATD.getLATD9 : TBits_1; inline;
  65105. begin
  65106. getLATD9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  65107. end;
  65108. procedure TPORTD_LATD.setLATD10; inline;
  65109. begin
  65110. pTDefRegMap(@Self)^.&set := $00000400;
  65111. end;
  65112. procedure TPORTD_LATD.clearLATD10; inline;
  65113. begin
  65114. pTDefRegMap(@Self)^.clr := $00000400;
  65115. end;
  65116. procedure TPORTD_LATD.setLATD10(thebits : TBits_1); inline;
  65117. begin
  65118. if thebits = 0 then
  65119. pTDefRegMap(@Self)^.clr := $00000400
  65120. else
  65121. pTDefRegMap(@Self)^.&set := $00000400;
  65122. end;
  65123. function TPORTD_LATD.getLATD10 : TBits_1; inline;
  65124. begin
  65125. getLATD10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  65126. end;
  65127. procedure TPORTD_LATD.setLATD11; inline;
  65128. begin
  65129. pTDefRegMap(@Self)^.&set := $00000800;
  65130. end;
  65131. procedure TPORTD_LATD.clearLATD11; inline;
  65132. begin
  65133. pTDefRegMap(@Self)^.clr := $00000800;
  65134. end;
  65135. procedure TPORTD_LATD.setLATD11(thebits : TBits_1); inline;
  65136. begin
  65137. if thebits = 0 then
  65138. pTDefRegMap(@Self)^.clr := $00000800
  65139. else
  65140. pTDefRegMap(@Self)^.&set := $00000800;
  65141. end;
  65142. function TPORTD_LATD.getLATD11 : TBits_1; inline;
  65143. begin
  65144. getLATD11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  65145. end;
  65146. procedure TPORTD_LATD.setLATD12; inline;
  65147. begin
  65148. pTDefRegMap(@Self)^.&set := $00001000;
  65149. end;
  65150. procedure TPORTD_LATD.clearLATD12; inline;
  65151. begin
  65152. pTDefRegMap(@Self)^.clr := $00001000;
  65153. end;
  65154. procedure TPORTD_LATD.setLATD12(thebits : TBits_1); inline;
  65155. begin
  65156. if thebits = 0 then
  65157. pTDefRegMap(@Self)^.clr := $00001000
  65158. else
  65159. pTDefRegMap(@Self)^.&set := $00001000;
  65160. end;
  65161. function TPORTD_LATD.getLATD12 : TBits_1; inline;
  65162. begin
  65163. getLATD12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  65164. end;
  65165. procedure TPORTD_LATD.setLATD13; inline;
  65166. begin
  65167. pTDefRegMap(@Self)^.&set := $00002000;
  65168. end;
  65169. procedure TPORTD_LATD.clearLATD13; inline;
  65170. begin
  65171. pTDefRegMap(@Self)^.clr := $00002000;
  65172. end;
  65173. procedure TPORTD_LATD.setLATD13(thebits : TBits_1); inline;
  65174. begin
  65175. if thebits = 0 then
  65176. pTDefRegMap(@Self)^.clr := $00002000
  65177. else
  65178. pTDefRegMap(@Self)^.&set := $00002000;
  65179. end;
  65180. function TPORTD_LATD.getLATD13 : TBits_1; inline;
  65181. begin
  65182. getLATD13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  65183. end;
  65184. procedure TPORTD_LATD.setLATD14; inline;
  65185. begin
  65186. pTDefRegMap(@Self)^.&set := $00004000;
  65187. end;
  65188. procedure TPORTD_LATD.clearLATD14; inline;
  65189. begin
  65190. pTDefRegMap(@Self)^.clr := $00004000;
  65191. end;
  65192. procedure TPORTD_LATD.setLATD14(thebits : TBits_1); inline;
  65193. begin
  65194. if thebits = 0 then
  65195. pTDefRegMap(@Self)^.clr := $00004000
  65196. else
  65197. pTDefRegMap(@Self)^.&set := $00004000;
  65198. end;
  65199. function TPORTD_LATD.getLATD14 : TBits_1; inline;
  65200. begin
  65201. getLATD14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  65202. end;
  65203. procedure TPORTD_LATD.setLATD15; inline;
  65204. begin
  65205. pTDefRegMap(@Self)^.&set := $00008000;
  65206. end;
  65207. procedure TPORTD_LATD.clearLATD15; inline;
  65208. begin
  65209. pTDefRegMap(@Self)^.clr := $00008000;
  65210. end;
  65211. procedure TPORTD_LATD.setLATD15(thebits : TBits_1); inline;
  65212. begin
  65213. if thebits = 0 then
  65214. pTDefRegMap(@Self)^.clr := $00008000
  65215. else
  65216. pTDefRegMap(@Self)^.&set := $00008000;
  65217. end;
  65218. function TPORTD_LATD.getLATD15 : TBits_1; inline;
  65219. begin
  65220. getLATD15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  65221. end;
  65222. procedure TPORTD_LATD.setw(thebits : TBits_32); inline;
  65223. begin
  65224. pTDefRegMap(@Self)^.val := thebits;
  65225. end;
  65226. function TPORTD_LATD.getw : TBits_32; inline;
  65227. begin
  65228. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  65229. end;
  65230. procedure TPORTD_ODCD.setODCD0; inline;
  65231. begin
  65232. pTDefRegMap(@Self)^.&set := $00000001;
  65233. end;
  65234. procedure TPORTD_ODCD.clearODCD0; inline;
  65235. begin
  65236. pTDefRegMap(@Self)^.clr := $00000001;
  65237. end;
  65238. procedure TPORTD_ODCD.setODCD0(thebits : TBits_1); inline;
  65239. begin
  65240. if thebits = 0 then
  65241. pTDefRegMap(@Self)^.clr := $00000001
  65242. else
  65243. pTDefRegMap(@Self)^.&set := $00000001;
  65244. end;
  65245. function TPORTD_ODCD.getODCD0 : TBits_1; inline;
  65246. begin
  65247. getODCD0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  65248. end;
  65249. procedure TPORTD_ODCD.setODCD1; inline;
  65250. begin
  65251. pTDefRegMap(@Self)^.&set := $00000002;
  65252. end;
  65253. procedure TPORTD_ODCD.clearODCD1; inline;
  65254. begin
  65255. pTDefRegMap(@Self)^.clr := $00000002;
  65256. end;
  65257. procedure TPORTD_ODCD.setODCD1(thebits : TBits_1); inline;
  65258. begin
  65259. if thebits = 0 then
  65260. pTDefRegMap(@Self)^.clr := $00000002
  65261. else
  65262. pTDefRegMap(@Self)^.&set := $00000002;
  65263. end;
  65264. function TPORTD_ODCD.getODCD1 : TBits_1; inline;
  65265. begin
  65266. getODCD1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  65267. end;
  65268. procedure TPORTD_ODCD.setODCD2; inline;
  65269. begin
  65270. pTDefRegMap(@Self)^.&set := $00000004;
  65271. end;
  65272. procedure TPORTD_ODCD.clearODCD2; inline;
  65273. begin
  65274. pTDefRegMap(@Self)^.clr := $00000004;
  65275. end;
  65276. procedure TPORTD_ODCD.setODCD2(thebits : TBits_1); inline;
  65277. begin
  65278. if thebits = 0 then
  65279. pTDefRegMap(@Self)^.clr := $00000004
  65280. else
  65281. pTDefRegMap(@Self)^.&set := $00000004;
  65282. end;
  65283. function TPORTD_ODCD.getODCD2 : TBits_1; inline;
  65284. begin
  65285. getODCD2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  65286. end;
  65287. procedure TPORTD_ODCD.setODCD3; inline;
  65288. begin
  65289. pTDefRegMap(@Self)^.&set := $00000008;
  65290. end;
  65291. procedure TPORTD_ODCD.clearODCD3; inline;
  65292. begin
  65293. pTDefRegMap(@Self)^.clr := $00000008;
  65294. end;
  65295. procedure TPORTD_ODCD.setODCD3(thebits : TBits_1); inline;
  65296. begin
  65297. if thebits = 0 then
  65298. pTDefRegMap(@Self)^.clr := $00000008
  65299. else
  65300. pTDefRegMap(@Self)^.&set := $00000008;
  65301. end;
  65302. function TPORTD_ODCD.getODCD3 : TBits_1; inline;
  65303. begin
  65304. getODCD3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  65305. end;
  65306. procedure TPORTD_ODCD.setODCD4; inline;
  65307. begin
  65308. pTDefRegMap(@Self)^.&set := $00000010;
  65309. end;
  65310. procedure TPORTD_ODCD.clearODCD4; inline;
  65311. begin
  65312. pTDefRegMap(@Self)^.clr := $00000010;
  65313. end;
  65314. procedure TPORTD_ODCD.setODCD4(thebits : TBits_1); inline;
  65315. begin
  65316. if thebits = 0 then
  65317. pTDefRegMap(@Self)^.clr := $00000010
  65318. else
  65319. pTDefRegMap(@Self)^.&set := $00000010;
  65320. end;
  65321. function TPORTD_ODCD.getODCD4 : TBits_1; inline;
  65322. begin
  65323. getODCD4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  65324. end;
  65325. procedure TPORTD_ODCD.setODCD5; inline;
  65326. begin
  65327. pTDefRegMap(@Self)^.&set := $00000020;
  65328. end;
  65329. procedure TPORTD_ODCD.clearODCD5; inline;
  65330. begin
  65331. pTDefRegMap(@Self)^.clr := $00000020;
  65332. end;
  65333. procedure TPORTD_ODCD.setODCD5(thebits : TBits_1); inline;
  65334. begin
  65335. if thebits = 0 then
  65336. pTDefRegMap(@Self)^.clr := $00000020
  65337. else
  65338. pTDefRegMap(@Self)^.&set := $00000020;
  65339. end;
  65340. function TPORTD_ODCD.getODCD5 : TBits_1; inline;
  65341. begin
  65342. getODCD5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  65343. end;
  65344. procedure TPORTD_ODCD.setODCD6; inline;
  65345. begin
  65346. pTDefRegMap(@Self)^.&set := $00000040;
  65347. end;
  65348. procedure TPORTD_ODCD.clearODCD6; inline;
  65349. begin
  65350. pTDefRegMap(@Self)^.clr := $00000040;
  65351. end;
  65352. procedure TPORTD_ODCD.setODCD6(thebits : TBits_1); inline;
  65353. begin
  65354. if thebits = 0 then
  65355. pTDefRegMap(@Self)^.clr := $00000040
  65356. else
  65357. pTDefRegMap(@Self)^.&set := $00000040;
  65358. end;
  65359. function TPORTD_ODCD.getODCD6 : TBits_1; inline;
  65360. begin
  65361. getODCD6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  65362. end;
  65363. procedure TPORTD_ODCD.setODCD7; inline;
  65364. begin
  65365. pTDefRegMap(@Self)^.&set := $00000080;
  65366. end;
  65367. procedure TPORTD_ODCD.clearODCD7; inline;
  65368. begin
  65369. pTDefRegMap(@Self)^.clr := $00000080;
  65370. end;
  65371. procedure TPORTD_ODCD.setODCD7(thebits : TBits_1); inline;
  65372. begin
  65373. if thebits = 0 then
  65374. pTDefRegMap(@Self)^.clr := $00000080
  65375. else
  65376. pTDefRegMap(@Self)^.&set := $00000080;
  65377. end;
  65378. function TPORTD_ODCD.getODCD7 : TBits_1; inline;
  65379. begin
  65380. getODCD7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  65381. end;
  65382. procedure TPORTD_ODCD.setODCD8; inline;
  65383. begin
  65384. pTDefRegMap(@Self)^.&set := $00000100;
  65385. end;
  65386. procedure TPORTD_ODCD.clearODCD8; inline;
  65387. begin
  65388. pTDefRegMap(@Self)^.clr := $00000100;
  65389. end;
  65390. procedure TPORTD_ODCD.setODCD8(thebits : TBits_1); inline;
  65391. begin
  65392. if thebits = 0 then
  65393. pTDefRegMap(@Self)^.clr := $00000100
  65394. else
  65395. pTDefRegMap(@Self)^.&set := $00000100;
  65396. end;
  65397. function TPORTD_ODCD.getODCD8 : TBits_1; inline;
  65398. begin
  65399. getODCD8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  65400. end;
  65401. procedure TPORTD_ODCD.setODCD9; inline;
  65402. begin
  65403. pTDefRegMap(@Self)^.&set := $00000200;
  65404. end;
  65405. procedure TPORTD_ODCD.clearODCD9; inline;
  65406. begin
  65407. pTDefRegMap(@Self)^.clr := $00000200;
  65408. end;
  65409. procedure TPORTD_ODCD.setODCD9(thebits : TBits_1); inline;
  65410. begin
  65411. if thebits = 0 then
  65412. pTDefRegMap(@Self)^.clr := $00000200
  65413. else
  65414. pTDefRegMap(@Self)^.&set := $00000200;
  65415. end;
  65416. function TPORTD_ODCD.getODCD9 : TBits_1; inline;
  65417. begin
  65418. getODCD9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  65419. end;
  65420. procedure TPORTD_ODCD.setODCD10; inline;
  65421. begin
  65422. pTDefRegMap(@Self)^.&set := $00000400;
  65423. end;
  65424. procedure TPORTD_ODCD.clearODCD10; inline;
  65425. begin
  65426. pTDefRegMap(@Self)^.clr := $00000400;
  65427. end;
  65428. procedure TPORTD_ODCD.setODCD10(thebits : TBits_1); inline;
  65429. begin
  65430. if thebits = 0 then
  65431. pTDefRegMap(@Self)^.clr := $00000400
  65432. else
  65433. pTDefRegMap(@Self)^.&set := $00000400;
  65434. end;
  65435. function TPORTD_ODCD.getODCD10 : TBits_1; inline;
  65436. begin
  65437. getODCD10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  65438. end;
  65439. procedure TPORTD_ODCD.setODCD11; inline;
  65440. begin
  65441. pTDefRegMap(@Self)^.&set := $00000800;
  65442. end;
  65443. procedure TPORTD_ODCD.clearODCD11; inline;
  65444. begin
  65445. pTDefRegMap(@Self)^.clr := $00000800;
  65446. end;
  65447. procedure TPORTD_ODCD.setODCD11(thebits : TBits_1); inline;
  65448. begin
  65449. if thebits = 0 then
  65450. pTDefRegMap(@Self)^.clr := $00000800
  65451. else
  65452. pTDefRegMap(@Self)^.&set := $00000800;
  65453. end;
  65454. function TPORTD_ODCD.getODCD11 : TBits_1; inline;
  65455. begin
  65456. getODCD11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  65457. end;
  65458. procedure TPORTD_ODCD.setODCD12; inline;
  65459. begin
  65460. pTDefRegMap(@Self)^.&set := $00001000;
  65461. end;
  65462. procedure TPORTD_ODCD.clearODCD12; inline;
  65463. begin
  65464. pTDefRegMap(@Self)^.clr := $00001000;
  65465. end;
  65466. procedure TPORTD_ODCD.setODCD12(thebits : TBits_1); inline;
  65467. begin
  65468. if thebits = 0 then
  65469. pTDefRegMap(@Self)^.clr := $00001000
  65470. else
  65471. pTDefRegMap(@Self)^.&set := $00001000;
  65472. end;
  65473. function TPORTD_ODCD.getODCD12 : TBits_1; inline;
  65474. begin
  65475. getODCD12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  65476. end;
  65477. procedure TPORTD_ODCD.setODCD13; inline;
  65478. begin
  65479. pTDefRegMap(@Self)^.&set := $00002000;
  65480. end;
  65481. procedure TPORTD_ODCD.clearODCD13; inline;
  65482. begin
  65483. pTDefRegMap(@Self)^.clr := $00002000;
  65484. end;
  65485. procedure TPORTD_ODCD.setODCD13(thebits : TBits_1); inline;
  65486. begin
  65487. if thebits = 0 then
  65488. pTDefRegMap(@Self)^.clr := $00002000
  65489. else
  65490. pTDefRegMap(@Self)^.&set := $00002000;
  65491. end;
  65492. function TPORTD_ODCD.getODCD13 : TBits_1; inline;
  65493. begin
  65494. getODCD13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  65495. end;
  65496. procedure TPORTD_ODCD.setODCD14; inline;
  65497. begin
  65498. pTDefRegMap(@Self)^.&set := $00004000;
  65499. end;
  65500. procedure TPORTD_ODCD.clearODCD14; inline;
  65501. begin
  65502. pTDefRegMap(@Self)^.clr := $00004000;
  65503. end;
  65504. procedure TPORTD_ODCD.setODCD14(thebits : TBits_1); inline;
  65505. begin
  65506. if thebits = 0 then
  65507. pTDefRegMap(@Self)^.clr := $00004000
  65508. else
  65509. pTDefRegMap(@Self)^.&set := $00004000;
  65510. end;
  65511. function TPORTD_ODCD.getODCD14 : TBits_1; inline;
  65512. begin
  65513. getODCD14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  65514. end;
  65515. procedure TPORTD_ODCD.setODCD15; inline;
  65516. begin
  65517. pTDefRegMap(@Self)^.&set := $00008000;
  65518. end;
  65519. procedure TPORTD_ODCD.clearODCD15; inline;
  65520. begin
  65521. pTDefRegMap(@Self)^.clr := $00008000;
  65522. end;
  65523. procedure TPORTD_ODCD.setODCD15(thebits : TBits_1); inline;
  65524. begin
  65525. if thebits = 0 then
  65526. pTDefRegMap(@Self)^.clr := $00008000
  65527. else
  65528. pTDefRegMap(@Self)^.&set := $00008000;
  65529. end;
  65530. function TPORTD_ODCD.getODCD15 : TBits_1; inline;
  65531. begin
  65532. getODCD15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  65533. end;
  65534. procedure TPORTD_ODCD.setw(thebits : TBits_32); inline;
  65535. begin
  65536. pTDefRegMap(@Self)^.val := thebits;
  65537. end;
  65538. function TPORTD_ODCD.getw : TBits_32; inline;
  65539. begin
  65540. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  65541. end;
  65542. procedure TPORTE_TRISE.setTRISE0; inline;
  65543. begin
  65544. pTDefRegMap(@Self)^.&set := $00000001;
  65545. end;
  65546. procedure TPORTE_TRISE.clearTRISE0; inline;
  65547. begin
  65548. pTDefRegMap(@Self)^.clr := $00000001;
  65549. end;
  65550. procedure TPORTE_TRISE.setTRISE0(thebits : TBits_1); inline;
  65551. begin
  65552. if thebits = 0 then
  65553. pTDefRegMap(@Self)^.clr := $00000001
  65554. else
  65555. pTDefRegMap(@Self)^.&set := $00000001;
  65556. end;
  65557. function TPORTE_TRISE.getTRISE0 : TBits_1; inline;
  65558. begin
  65559. getTRISE0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  65560. end;
  65561. procedure TPORTE_TRISE.setTRISE1; inline;
  65562. begin
  65563. pTDefRegMap(@Self)^.&set := $00000002;
  65564. end;
  65565. procedure TPORTE_TRISE.clearTRISE1; inline;
  65566. begin
  65567. pTDefRegMap(@Self)^.clr := $00000002;
  65568. end;
  65569. procedure TPORTE_TRISE.setTRISE1(thebits : TBits_1); inline;
  65570. begin
  65571. if thebits = 0 then
  65572. pTDefRegMap(@Self)^.clr := $00000002
  65573. else
  65574. pTDefRegMap(@Self)^.&set := $00000002;
  65575. end;
  65576. function TPORTE_TRISE.getTRISE1 : TBits_1; inline;
  65577. begin
  65578. getTRISE1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  65579. end;
  65580. procedure TPORTE_TRISE.setTRISE2; inline;
  65581. begin
  65582. pTDefRegMap(@Self)^.&set := $00000004;
  65583. end;
  65584. procedure TPORTE_TRISE.clearTRISE2; inline;
  65585. begin
  65586. pTDefRegMap(@Self)^.clr := $00000004;
  65587. end;
  65588. procedure TPORTE_TRISE.setTRISE2(thebits : TBits_1); inline;
  65589. begin
  65590. if thebits = 0 then
  65591. pTDefRegMap(@Self)^.clr := $00000004
  65592. else
  65593. pTDefRegMap(@Self)^.&set := $00000004;
  65594. end;
  65595. function TPORTE_TRISE.getTRISE2 : TBits_1; inline;
  65596. begin
  65597. getTRISE2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  65598. end;
  65599. procedure TPORTE_TRISE.setTRISE3; inline;
  65600. begin
  65601. pTDefRegMap(@Self)^.&set := $00000008;
  65602. end;
  65603. procedure TPORTE_TRISE.clearTRISE3; inline;
  65604. begin
  65605. pTDefRegMap(@Self)^.clr := $00000008;
  65606. end;
  65607. procedure TPORTE_TRISE.setTRISE3(thebits : TBits_1); inline;
  65608. begin
  65609. if thebits = 0 then
  65610. pTDefRegMap(@Self)^.clr := $00000008
  65611. else
  65612. pTDefRegMap(@Self)^.&set := $00000008;
  65613. end;
  65614. function TPORTE_TRISE.getTRISE3 : TBits_1; inline;
  65615. begin
  65616. getTRISE3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  65617. end;
  65618. procedure TPORTE_TRISE.setTRISE4; inline;
  65619. begin
  65620. pTDefRegMap(@Self)^.&set := $00000010;
  65621. end;
  65622. procedure TPORTE_TRISE.clearTRISE4; inline;
  65623. begin
  65624. pTDefRegMap(@Self)^.clr := $00000010;
  65625. end;
  65626. procedure TPORTE_TRISE.setTRISE4(thebits : TBits_1); inline;
  65627. begin
  65628. if thebits = 0 then
  65629. pTDefRegMap(@Self)^.clr := $00000010
  65630. else
  65631. pTDefRegMap(@Self)^.&set := $00000010;
  65632. end;
  65633. function TPORTE_TRISE.getTRISE4 : TBits_1; inline;
  65634. begin
  65635. getTRISE4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  65636. end;
  65637. procedure TPORTE_TRISE.setTRISE5; inline;
  65638. begin
  65639. pTDefRegMap(@Self)^.&set := $00000020;
  65640. end;
  65641. procedure TPORTE_TRISE.clearTRISE5; inline;
  65642. begin
  65643. pTDefRegMap(@Self)^.clr := $00000020;
  65644. end;
  65645. procedure TPORTE_TRISE.setTRISE5(thebits : TBits_1); inline;
  65646. begin
  65647. if thebits = 0 then
  65648. pTDefRegMap(@Self)^.clr := $00000020
  65649. else
  65650. pTDefRegMap(@Self)^.&set := $00000020;
  65651. end;
  65652. function TPORTE_TRISE.getTRISE5 : TBits_1; inline;
  65653. begin
  65654. getTRISE5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  65655. end;
  65656. procedure TPORTE_TRISE.setTRISE6; inline;
  65657. begin
  65658. pTDefRegMap(@Self)^.&set := $00000040;
  65659. end;
  65660. procedure TPORTE_TRISE.clearTRISE6; inline;
  65661. begin
  65662. pTDefRegMap(@Self)^.clr := $00000040;
  65663. end;
  65664. procedure TPORTE_TRISE.setTRISE6(thebits : TBits_1); inline;
  65665. begin
  65666. if thebits = 0 then
  65667. pTDefRegMap(@Self)^.clr := $00000040
  65668. else
  65669. pTDefRegMap(@Self)^.&set := $00000040;
  65670. end;
  65671. function TPORTE_TRISE.getTRISE6 : TBits_1; inline;
  65672. begin
  65673. getTRISE6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  65674. end;
  65675. procedure TPORTE_TRISE.setTRISE7; inline;
  65676. begin
  65677. pTDefRegMap(@Self)^.&set := $00000080;
  65678. end;
  65679. procedure TPORTE_TRISE.clearTRISE7; inline;
  65680. begin
  65681. pTDefRegMap(@Self)^.clr := $00000080;
  65682. end;
  65683. procedure TPORTE_TRISE.setTRISE7(thebits : TBits_1); inline;
  65684. begin
  65685. if thebits = 0 then
  65686. pTDefRegMap(@Self)^.clr := $00000080
  65687. else
  65688. pTDefRegMap(@Self)^.&set := $00000080;
  65689. end;
  65690. function TPORTE_TRISE.getTRISE7 : TBits_1; inline;
  65691. begin
  65692. getTRISE7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  65693. end;
  65694. procedure TPORTE_TRISE.setTRISE8; inline;
  65695. begin
  65696. pTDefRegMap(@Self)^.&set := $00000100;
  65697. end;
  65698. procedure TPORTE_TRISE.clearTRISE8; inline;
  65699. begin
  65700. pTDefRegMap(@Self)^.clr := $00000100;
  65701. end;
  65702. procedure TPORTE_TRISE.setTRISE8(thebits : TBits_1); inline;
  65703. begin
  65704. if thebits = 0 then
  65705. pTDefRegMap(@Self)^.clr := $00000100
  65706. else
  65707. pTDefRegMap(@Self)^.&set := $00000100;
  65708. end;
  65709. function TPORTE_TRISE.getTRISE8 : TBits_1; inline;
  65710. begin
  65711. getTRISE8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  65712. end;
  65713. procedure TPORTE_TRISE.setTRISE9; inline;
  65714. begin
  65715. pTDefRegMap(@Self)^.&set := $00000200;
  65716. end;
  65717. procedure TPORTE_TRISE.clearTRISE9; inline;
  65718. begin
  65719. pTDefRegMap(@Self)^.clr := $00000200;
  65720. end;
  65721. procedure TPORTE_TRISE.setTRISE9(thebits : TBits_1); inline;
  65722. begin
  65723. if thebits = 0 then
  65724. pTDefRegMap(@Self)^.clr := $00000200
  65725. else
  65726. pTDefRegMap(@Self)^.&set := $00000200;
  65727. end;
  65728. function TPORTE_TRISE.getTRISE9 : TBits_1; inline;
  65729. begin
  65730. getTRISE9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  65731. end;
  65732. procedure TPORTE_TRISE.setw(thebits : TBits_32); inline;
  65733. begin
  65734. pTDefRegMap(@Self)^.val := thebits;
  65735. end;
  65736. function TPORTE_TRISE.getw : TBits_32; inline;
  65737. begin
  65738. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  65739. end;
  65740. procedure TPORTE_PORTE.setRE0; inline;
  65741. begin
  65742. pTDefRegMap(@Self)^.&set := $00000001;
  65743. end;
  65744. procedure TPORTE_PORTE.clearRE0; inline;
  65745. begin
  65746. pTDefRegMap(@Self)^.clr := $00000001;
  65747. end;
  65748. procedure TPORTE_PORTE.setRE0(thebits : TBits_1); inline;
  65749. begin
  65750. if thebits = 0 then
  65751. pTDefRegMap(@Self)^.clr := $00000001
  65752. else
  65753. pTDefRegMap(@Self)^.&set := $00000001;
  65754. end;
  65755. function TPORTE_PORTE.getRE0 : TBits_1; inline;
  65756. begin
  65757. getRE0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  65758. end;
  65759. procedure TPORTE_PORTE.setRE1; inline;
  65760. begin
  65761. pTDefRegMap(@Self)^.&set := $00000002;
  65762. end;
  65763. procedure TPORTE_PORTE.clearRE1; inline;
  65764. begin
  65765. pTDefRegMap(@Self)^.clr := $00000002;
  65766. end;
  65767. procedure TPORTE_PORTE.setRE1(thebits : TBits_1); inline;
  65768. begin
  65769. if thebits = 0 then
  65770. pTDefRegMap(@Self)^.clr := $00000002
  65771. else
  65772. pTDefRegMap(@Self)^.&set := $00000002;
  65773. end;
  65774. function TPORTE_PORTE.getRE1 : TBits_1; inline;
  65775. begin
  65776. getRE1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  65777. end;
  65778. procedure TPORTE_PORTE.setRE2; inline;
  65779. begin
  65780. pTDefRegMap(@Self)^.&set := $00000004;
  65781. end;
  65782. procedure TPORTE_PORTE.clearRE2; inline;
  65783. begin
  65784. pTDefRegMap(@Self)^.clr := $00000004;
  65785. end;
  65786. procedure TPORTE_PORTE.setRE2(thebits : TBits_1); inline;
  65787. begin
  65788. if thebits = 0 then
  65789. pTDefRegMap(@Self)^.clr := $00000004
  65790. else
  65791. pTDefRegMap(@Self)^.&set := $00000004;
  65792. end;
  65793. function TPORTE_PORTE.getRE2 : TBits_1; inline;
  65794. begin
  65795. getRE2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  65796. end;
  65797. procedure TPORTE_PORTE.setRE3; inline;
  65798. begin
  65799. pTDefRegMap(@Self)^.&set := $00000008;
  65800. end;
  65801. procedure TPORTE_PORTE.clearRE3; inline;
  65802. begin
  65803. pTDefRegMap(@Self)^.clr := $00000008;
  65804. end;
  65805. procedure TPORTE_PORTE.setRE3(thebits : TBits_1); inline;
  65806. begin
  65807. if thebits = 0 then
  65808. pTDefRegMap(@Self)^.clr := $00000008
  65809. else
  65810. pTDefRegMap(@Self)^.&set := $00000008;
  65811. end;
  65812. function TPORTE_PORTE.getRE3 : TBits_1; inline;
  65813. begin
  65814. getRE3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  65815. end;
  65816. procedure TPORTE_PORTE.setRE4; inline;
  65817. begin
  65818. pTDefRegMap(@Self)^.&set := $00000010;
  65819. end;
  65820. procedure TPORTE_PORTE.clearRE4; inline;
  65821. begin
  65822. pTDefRegMap(@Self)^.clr := $00000010;
  65823. end;
  65824. procedure TPORTE_PORTE.setRE4(thebits : TBits_1); inline;
  65825. begin
  65826. if thebits = 0 then
  65827. pTDefRegMap(@Self)^.clr := $00000010
  65828. else
  65829. pTDefRegMap(@Self)^.&set := $00000010;
  65830. end;
  65831. function TPORTE_PORTE.getRE4 : TBits_1; inline;
  65832. begin
  65833. getRE4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  65834. end;
  65835. procedure TPORTE_PORTE.setRE5; inline;
  65836. begin
  65837. pTDefRegMap(@Self)^.&set := $00000020;
  65838. end;
  65839. procedure TPORTE_PORTE.clearRE5; inline;
  65840. begin
  65841. pTDefRegMap(@Self)^.clr := $00000020;
  65842. end;
  65843. procedure TPORTE_PORTE.setRE5(thebits : TBits_1); inline;
  65844. begin
  65845. if thebits = 0 then
  65846. pTDefRegMap(@Self)^.clr := $00000020
  65847. else
  65848. pTDefRegMap(@Self)^.&set := $00000020;
  65849. end;
  65850. function TPORTE_PORTE.getRE5 : TBits_1; inline;
  65851. begin
  65852. getRE5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  65853. end;
  65854. procedure TPORTE_PORTE.setRE6; inline;
  65855. begin
  65856. pTDefRegMap(@Self)^.&set := $00000040;
  65857. end;
  65858. procedure TPORTE_PORTE.clearRE6; inline;
  65859. begin
  65860. pTDefRegMap(@Self)^.clr := $00000040;
  65861. end;
  65862. procedure TPORTE_PORTE.setRE6(thebits : TBits_1); inline;
  65863. begin
  65864. if thebits = 0 then
  65865. pTDefRegMap(@Self)^.clr := $00000040
  65866. else
  65867. pTDefRegMap(@Self)^.&set := $00000040;
  65868. end;
  65869. function TPORTE_PORTE.getRE6 : TBits_1; inline;
  65870. begin
  65871. getRE6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  65872. end;
  65873. procedure TPORTE_PORTE.setRE7; inline;
  65874. begin
  65875. pTDefRegMap(@Self)^.&set := $00000080;
  65876. end;
  65877. procedure TPORTE_PORTE.clearRE7; inline;
  65878. begin
  65879. pTDefRegMap(@Self)^.clr := $00000080;
  65880. end;
  65881. procedure TPORTE_PORTE.setRE7(thebits : TBits_1); inline;
  65882. begin
  65883. if thebits = 0 then
  65884. pTDefRegMap(@Self)^.clr := $00000080
  65885. else
  65886. pTDefRegMap(@Self)^.&set := $00000080;
  65887. end;
  65888. function TPORTE_PORTE.getRE7 : TBits_1; inline;
  65889. begin
  65890. getRE7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  65891. end;
  65892. procedure TPORTE_PORTE.setRE8; inline;
  65893. begin
  65894. pTDefRegMap(@Self)^.&set := $00000100;
  65895. end;
  65896. procedure TPORTE_PORTE.clearRE8; inline;
  65897. begin
  65898. pTDefRegMap(@Self)^.clr := $00000100;
  65899. end;
  65900. procedure TPORTE_PORTE.setRE8(thebits : TBits_1); inline;
  65901. begin
  65902. if thebits = 0 then
  65903. pTDefRegMap(@Self)^.clr := $00000100
  65904. else
  65905. pTDefRegMap(@Self)^.&set := $00000100;
  65906. end;
  65907. function TPORTE_PORTE.getRE8 : TBits_1; inline;
  65908. begin
  65909. getRE8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  65910. end;
  65911. procedure TPORTE_PORTE.setRE9; inline;
  65912. begin
  65913. pTDefRegMap(@Self)^.&set := $00000200;
  65914. end;
  65915. procedure TPORTE_PORTE.clearRE9; inline;
  65916. begin
  65917. pTDefRegMap(@Self)^.clr := $00000200;
  65918. end;
  65919. procedure TPORTE_PORTE.setRE9(thebits : TBits_1); inline;
  65920. begin
  65921. if thebits = 0 then
  65922. pTDefRegMap(@Self)^.clr := $00000200
  65923. else
  65924. pTDefRegMap(@Self)^.&set := $00000200;
  65925. end;
  65926. function TPORTE_PORTE.getRE9 : TBits_1; inline;
  65927. begin
  65928. getRE9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  65929. end;
  65930. procedure TPORTE_PORTE.setw(thebits : TBits_32); inline;
  65931. begin
  65932. pTDefRegMap(@Self)^.val := thebits;
  65933. end;
  65934. function TPORTE_PORTE.getw : TBits_32; inline;
  65935. begin
  65936. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  65937. end;
  65938. procedure TPORTE_LATE.setLATE0; inline;
  65939. begin
  65940. pTDefRegMap(@Self)^.&set := $00000001;
  65941. end;
  65942. procedure TPORTE_LATE.clearLATE0; inline;
  65943. begin
  65944. pTDefRegMap(@Self)^.clr := $00000001;
  65945. end;
  65946. procedure TPORTE_LATE.setLATE0(thebits : TBits_1); inline;
  65947. begin
  65948. if thebits = 0 then
  65949. pTDefRegMap(@Self)^.clr := $00000001
  65950. else
  65951. pTDefRegMap(@Self)^.&set := $00000001;
  65952. end;
  65953. function TPORTE_LATE.getLATE0 : TBits_1; inline;
  65954. begin
  65955. getLATE0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  65956. end;
  65957. procedure TPORTE_LATE.setLATE1; inline;
  65958. begin
  65959. pTDefRegMap(@Self)^.&set := $00000002;
  65960. end;
  65961. procedure TPORTE_LATE.clearLATE1; inline;
  65962. begin
  65963. pTDefRegMap(@Self)^.clr := $00000002;
  65964. end;
  65965. procedure TPORTE_LATE.setLATE1(thebits : TBits_1); inline;
  65966. begin
  65967. if thebits = 0 then
  65968. pTDefRegMap(@Self)^.clr := $00000002
  65969. else
  65970. pTDefRegMap(@Self)^.&set := $00000002;
  65971. end;
  65972. function TPORTE_LATE.getLATE1 : TBits_1; inline;
  65973. begin
  65974. getLATE1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  65975. end;
  65976. procedure TPORTE_LATE.setLATE2; inline;
  65977. begin
  65978. pTDefRegMap(@Self)^.&set := $00000004;
  65979. end;
  65980. procedure TPORTE_LATE.clearLATE2; inline;
  65981. begin
  65982. pTDefRegMap(@Self)^.clr := $00000004;
  65983. end;
  65984. procedure TPORTE_LATE.setLATE2(thebits : TBits_1); inline;
  65985. begin
  65986. if thebits = 0 then
  65987. pTDefRegMap(@Self)^.clr := $00000004
  65988. else
  65989. pTDefRegMap(@Self)^.&set := $00000004;
  65990. end;
  65991. function TPORTE_LATE.getLATE2 : TBits_1; inline;
  65992. begin
  65993. getLATE2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  65994. end;
  65995. procedure TPORTE_LATE.setLATE3; inline;
  65996. begin
  65997. pTDefRegMap(@Self)^.&set := $00000008;
  65998. end;
  65999. procedure TPORTE_LATE.clearLATE3; inline;
  66000. begin
  66001. pTDefRegMap(@Self)^.clr := $00000008;
  66002. end;
  66003. procedure TPORTE_LATE.setLATE3(thebits : TBits_1); inline;
  66004. begin
  66005. if thebits = 0 then
  66006. pTDefRegMap(@Self)^.clr := $00000008
  66007. else
  66008. pTDefRegMap(@Self)^.&set := $00000008;
  66009. end;
  66010. function TPORTE_LATE.getLATE3 : TBits_1; inline;
  66011. begin
  66012. getLATE3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  66013. end;
  66014. procedure TPORTE_LATE.setLATE4; inline;
  66015. begin
  66016. pTDefRegMap(@Self)^.&set := $00000010;
  66017. end;
  66018. procedure TPORTE_LATE.clearLATE4; inline;
  66019. begin
  66020. pTDefRegMap(@Self)^.clr := $00000010;
  66021. end;
  66022. procedure TPORTE_LATE.setLATE4(thebits : TBits_1); inline;
  66023. begin
  66024. if thebits = 0 then
  66025. pTDefRegMap(@Self)^.clr := $00000010
  66026. else
  66027. pTDefRegMap(@Self)^.&set := $00000010;
  66028. end;
  66029. function TPORTE_LATE.getLATE4 : TBits_1; inline;
  66030. begin
  66031. getLATE4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  66032. end;
  66033. procedure TPORTE_LATE.setLATE5; inline;
  66034. begin
  66035. pTDefRegMap(@Self)^.&set := $00000020;
  66036. end;
  66037. procedure TPORTE_LATE.clearLATE5; inline;
  66038. begin
  66039. pTDefRegMap(@Self)^.clr := $00000020;
  66040. end;
  66041. procedure TPORTE_LATE.setLATE5(thebits : TBits_1); inline;
  66042. begin
  66043. if thebits = 0 then
  66044. pTDefRegMap(@Self)^.clr := $00000020
  66045. else
  66046. pTDefRegMap(@Self)^.&set := $00000020;
  66047. end;
  66048. function TPORTE_LATE.getLATE5 : TBits_1; inline;
  66049. begin
  66050. getLATE5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  66051. end;
  66052. procedure TPORTE_LATE.setLATE6; inline;
  66053. begin
  66054. pTDefRegMap(@Self)^.&set := $00000040;
  66055. end;
  66056. procedure TPORTE_LATE.clearLATE6; inline;
  66057. begin
  66058. pTDefRegMap(@Self)^.clr := $00000040;
  66059. end;
  66060. procedure TPORTE_LATE.setLATE6(thebits : TBits_1); inline;
  66061. begin
  66062. if thebits = 0 then
  66063. pTDefRegMap(@Self)^.clr := $00000040
  66064. else
  66065. pTDefRegMap(@Self)^.&set := $00000040;
  66066. end;
  66067. function TPORTE_LATE.getLATE6 : TBits_1; inline;
  66068. begin
  66069. getLATE6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  66070. end;
  66071. procedure TPORTE_LATE.setLATE7; inline;
  66072. begin
  66073. pTDefRegMap(@Self)^.&set := $00000080;
  66074. end;
  66075. procedure TPORTE_LATE.clearLATE7; inline;
  66076. begin
  66077. pTDefRegMap(@Self)^.clr := $00000080;
  66078. end;
  66079. procedure TPORTE_LATE.setLATE7(thebits : TBits_1); inline;
  66080. begin
  66081. if thebits = 0 then
  66082. pTDefRegMap(@Self)^.clr := $00000080
  66083. else
  66084. pTDefRegMap(@Self)^.&set := $00000080;
  66085. end;
  66086. function TPORTE_LATE.getLATE7 : TBits_1; inline;
  66087. begin
  66088. getLATE7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  66089. end;
  66090. procedure TPORTE_LATE.setLATE8; inline;
  66091. begin
  66092. pTDefRegMap(@Self)^.&set := $00000100;
  66093. end;
  66094. procedure TPORTE_LATE.clearLATE8; inline;
  66095. begin
  66096. pTDefRegMap(@Self)^.clr := $00000100;
  66097. end;
  66098. procedure TPORTE_LATE.setLATE8(thebits : TBits_1); inline;
  66099. begin
  66100. if thebits = 0 then
  66101. pTDefRegMap(@Self)^.clr := $00000100
  66102. else
  66103. pTDefRegMap(@Self)^.&set := $00000100;
  66104. end;
  66105. function TPORTE_LATE.getLATE8 : TBits_1; inline;
  66106. begin
  66107. getLATE8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  66108. end;
  66109. procedure TPORTE_LATE.setLATE9; inline;
  66110. begin
  66111. pTDefRegMap(@Self)^.&set := $00000200;
  66112. end;
  66113. procedure TPORTE_LATE.clearLATE9; inline;
  66114. begin
  66115. pTDefRegMap(@Self)^.clr := $00000200;
  66116. end;
  66117. procedure TPORTE_LATE.setLATE9(thebits : TBits_1); inline;
  66118. begin
  66119. if thebits = 0 then
  66120. pTDefRegMap(@Self)^.clr := $00000200
  66121. else
  66122. pTDefRegMap(@Self)^.&set := $00000200;
  66123. end;
  66124. function TPORTE_LATE.getLATE9 : TBits_1; inline;
  66125. begin
  66126. getLATE9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  66127. end;
  66128. procedure TPORTE_LATE.setw(thebits : TBits_32); inline;
  66129. begin
  66130. pTDefRegMap(@Self)^.val := thebits;
  66131. end;
  66132. function TPORTE_LATE.getw : TBits_32; inline;
  66133. begin
  66134. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  66135. end;
  66136. procedure TPORTE_ODCE.setODCE0; inline;
  66137. begin
  66138. pTDefRegMap(@Self)^.&set := $00000001;
  66139. end;
  66140. procedure TPORTE_ODCE.clearODCE0; inline;
  66141. begin
  66142. pTDefRegMap(@Self)^.clr := $00000001;
  66143. end;
  66144. procedure TPORTE_ODCE.setODCE0(thebits : TBits_1); inline;
  66145. begin
  66146. if thebits = 0 then
  66147. pTDefRegMap(@Self)^.clr := $00000001
  66148. else
  66149. pTDefRegMap(@Self)^.&set := $00000001;
  66150. end;
  66151. function TPORTE_ODCE.getODCE0 : TBits_1; inline;
  66152. begin
  66153. getODCE0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  66154. end;
  66155. procedure TPORTE_ODCE.setODCE1; inline;
  66156. begin
  66157. pTDefRegMap(@Self)^.&set := $00000002;
  66158. end;
  66159. procedure TPORTE_ODCE.clearODCE1; inline;
  66160. begin
  66161. pTDefRegMap(@Self)^.clr := $00000002;
  66162. end;
  66163. procedure TPORTE_ODCE.setODCE1(thebits : TBits_1); inline;
  66164. begin
  66165. if thebits = 0 then
  66166. pTDefRegMap(@Self)^.clr := $00000002
  66167. else
  66168. pTDefRegMap(@Self)^.&set := $00000002;
  66169. end;
  66170. function TPORTE_ODCE.getODCE1 : TBits_1; inline;
  66171. begin
  66172. getODCE1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  66173. end;
  66174. procedure TPORTE_ODCE.setODCE2; inline;
  66175. begin
  66176. pTDefRegMap(@Self)^.&set := $00000004;
  66177. end;
  66178. procedure TPORTE_ODCE.clearODCE2; inline;
  66179. begin
  66180. pTDefRegMap(@Self)^.clr := $00000004;
  66181. end;
  66182. procedure TPORTE_ODCE.setODCE2(thebits : TBits_1); inline;
  66183. begin
  66184. if thebits = 0 then
  66185. pTDefRegMap(@Self)^.clr := $00000004
  66186. else
  66187. pTDefRegMap(@Self)^.&set := $00000004;
  66188. end;
  66189. function TPORTE_ODCE.getODCE2 : TBits_1; inline;
  66190. begin
  66191. getODCE2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  66192. end;
  66193. procedure TPORTE_ODCE.setODCE3; inline;
  66194. begin
  66195. pTDefRegMap(@Self)^.&set := $00000008;
  66196. end;
  66197. procedure TPORTE_ODCE.clearODCE3; inline;
  66198. begin
  66199. pTDefRegMap(@Self)^.clr := $00000008;
  66200. end;
  66201. procedure TPORTE_ODCE.setODCE3(thebits : TBits_1); inline;
  66202. begin
  66203. if thebits = 0 then
  66204. pTDefRegMap(@Self)^.clr := $00000008
  66205. else
  66206. pTDefRegMap(@Self)^.&set := $00000008;
  66207. end;
  66208. function TPORTE_ODCE.getODCE3 : TBits_1; inline;
  66209. begin
  66210. getODCE3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  66211. end;
  66212. procedure TPORTE_ODCE.setODCE4; inline;
  66213. begin
  66214. pTDefRegMap(@Self)^.&set := $00000010;
  66215. end;
  66216. procedure TPORTE_ODCE.clearODCE4; inline;
  66217. begin
  66218. pTDefRegMap(@Self)^.clr := $00000010;
  66219. end;
  66220. procedure TPORTE_ODCE.setODCE4(thebits : TBits_1); inline;
  66221. begin
  66222. if thebits = 0 then
  66223. pTDefRegMap(@Self)^.clr := $00000010
  66224. else
  66225. pTDefRegMap(@Self)^.&set := $00000010;
  66226. end;
  66227. function TPORTE_ODCE.getODCE4 : TBits_1; inline;
  66228. begin
  66229. getODCE4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  66230. end;
  66231. procedure TPORTE_ODCE.setODCE5; inline;
  66232. begin
  66233. pTDefRegMap(@Self)^.&set := $00000020;
  66234. end;
  66235. procedure TPORTE_ODCE.clearODCE5; inline;
  66236. begin
  66237. pTDefRegMap(@Self)^.clr := $00000020;
  66238. end;
  66239. procedure TPORTE_ODCE.setODCE5(thebits : TBits_1); inline;
  66240. begin
  66241. if thebits = 0 then
  66242. pTDefRegMap(@Self)^.clr := $00000020
  66243. else
  66244. pTDefRegMap(@Self)^.&set := $00000020;
  66245. end;
  66246. function TPORTE_ODCE.getODCE5 : TBits_1; inline;
  66247. begin
  66248. getODCE5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  66249. end;
  66250. procedure TPORTE_ODCE.setODCE6; inline;
  66251. begin
  66252. pTDefRegMap(@Self)^.&set := $00000040;
  66253. end;
  66254. procedure TPORTE_ODCE.clearODCE6; inline;
  66255. begin
  66256. pTDefRegMap(@Self)^.clr := $00000040;
  66257. end;
  66258. procedure TPORTE_ODCE.setODCE6(thebits : TBits_1); inline;
  66259. begin
  66260. if thebits = 0 then
  66261. pTDefRegMap(@Self)^.clr := $00000040
  66262. else
  66263. pTDefRegMap(@Self)^.&set := $00000040;
  66264. end;
  66265. function TPORTE_ODCE.getODCE6 : TBits_1; inline;
  66266. begin
  66267. getODCE6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  66268. end;
  66269. procedure TPORTE_ODCE.setODCE7; inline;
  66270. begin
  66271. pTDefRegMap(@Self)^.&set := $00000080;
  66272. end;
  66273. procedure TPORTE_ODCE.clearODCE7; inline;
  66274. begin
  66275. pTDefRegMap(@Self)^.clr := $00000080;
  66276. end;
  66277. procedure TPORTE_ODCE.setODCE7(thebits : TBits_1); inline;
  66278. begin
  66279. if thebits = 0 then
  66280. pTDefRegMap(@Self)^.clr := $00000080
  66281. else
  66282. pTDefRegMap(@Self)^.&set := $00000080;
  66283. end;
  66284. function TPORTE_ODCE.getODCE7 : TBits_1; inline;
  66285. begin
  66286. getODCE7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  66287. end;
  66288. procedure TPORTE_ODCE.setODCE8; inline;
  66289. begin
  66290. pTDefRegMap(@Self)^.&set := $00000100;
  66291. end;
  66292. procedure TPORTE_ODCE.clearODCE8; inline;
  66293. begin
  66294. pTDefRegMap(@Self)^.clr := $00000100;
  66295. end;
  66296. procedure TPORTE_ODCE.setODCE8(thebits : TBits_1); inline;
  66297. begin
  66298. if thebits = 0 then
  66299. pTDefRegMap(@Self)^.clr := $00000100
  66300. else
  66301. pTDefRegMap(@Self)^.&set := $00000100;
  66302. end;
  66303. function TPORTE_ODCE.getODCE8 : TBits_1; inline;
  66304. begin
  66305. getODCE8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  66306. end;
  66307. procedure TPORTE_ODCE.setODCE9; inline;
  66308. begin
  66309. pTDefRegMap(@Self)^.&set := $00000200;
  66310. end;
  66311. procedure TPORTE_ODCE.clearODCE9; inline;
  66312. begin
  66313. pTDefRegMap(@Self)^.clr := $00000200;
  66314. end;
  66315. procedure TPORTE_ODCE.setODCE9(thebits : TBits_1); inline;
  66316. begin
  66317. if thebits = 0 then
  66318. pTDefRegMap(@Self)^.clr := $00000200
  66319. else
  66320. pTDefRegMap(@Self)^.&set := $00000200;
  66321. end;
  66322. function TPORTE_ODCE.getODCE9 : TBits_1; inline;
  66323. begin
  66324. getODCE9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  66325. end;
  66326. procedure TPORTE_ODCE.setw(thebits : TBits_32); inline;
  66327. begin
  66328. pTDefRegMap(@Self)^.val := thebits;
  66329. end;
  66330. function TPORTE_ODCE.getw : TBits_32; inline;
  66331. begin
  66332. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  66333. end;
  66334. procedure TPORTF_TRISF.setTRISF0; inline;
  66335. begin
  66336. pTDefRegMap(@Self)^.&set := $00000001;
  66337. end;
  66338. procedure TPORTF_TRISF.clearTRISF0; inline;
  66339. begin
  66340. pTDefRegMap(@Self)^.clr := $00000001;
  66341. end;
  66342. procedure TPORTF_TRISF.setTRISF0(thebits : TBits_1); inline;
  66343. begin
  66344. if thebits = 0 then
  66345. pTDefRegMap(@Self)^.clr := $00000001
  66346. else
  66347. pTDefRegMap(@Self)^.&set := $00000001;
  66348. end;
  66349. function TPORTF_TRISF.getTRISF0 : TBits_1; inline;
  66350. begin
  66351. getTRISF0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  66352. end;
  66353. procedure TPORTF_TRISF.setTRISF1; inline;
  66354. begin
  66355. pTDefRegMap(@Self)^.&set := $00000002;
  66356. end;
  66357. procedure TPORTF_TRISF.clearTRISF1; inline;
  66358. begin
  66359. pTDefRegMap(@Self)^.clr := $00000002;
  66360. end;
  66361. procedure TPORTF_TRISF.setTRISF1(thebits : TBits_1); inline;
  66362. begin
  66363. if thebits = 0 then
  66364. pTDefRegMap(@Self)^.clr := $00000002
  66365. else
  66366. pTDefRegMap(@Self)^.&set := $00000002;
  66367. end;
  66368. function TPORTF_TRISF.getTRISF1 : TBits_1; inline;
  66369. begin
  66370. getTRISF1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  66371. end;
  66372. procedure TPORTF_TRISF.setTRISF2; inline;
  66373. begin
  66374. pTDefRegMap(@Self)^.&set := $00000004;
  66375. end;
  66376. procedure TPORTF_TRISF.clearTRISF2; inline;
  66377. begin
  66378. pTDefRegMap(@Self)^.clr := $00000004;
  66379. end;
  66380. procedure TPORTF_TRISF.setTRISF2(thebits : TBits_1); inline;
  66381. begin
  66382. if thebits = 0 then
  66383. pTDefRegMap(@Self)^.clr := $00000004
  66384. else
  66385. pTDefRegMap(@Self)^.&set := $00000004;
  66386. end;
  66387. function TPORTF_TRISF.getTRISF2 : TBits_1; inline;
  66388. begin
  66389. getTRISF2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  66390. end;
  66391. procedure TPORTF_TRISF.setTRISF3; inline;
  66392. begin
  66393. pTDefRegMap(@Self)^.&set := $00000008;
  66394. end;
  66395. procedure TPORTF_TRISF.clearTRISF3; inline;
  66396. begin
  66397. pTDefRegMap(@Self)^.clr := $00000008;
  66398. end;
  66399. procedure TPORTF_TRISF.setTRISF3(thebits : TBits_1); inline;
  66400. begin
  66401. if thebits = 0 then
  66402. pTDefRegMap(@Self)^.clr := $00000008
  66403. else
  66404. pTDefRegMap(@Self)^.&set := $00000008;
  66405. end;
  66406. function TPORTF_TRISF.getTRISF3 : TBits_1; inline;
  66407. begin
  66408. getTRISF3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  66409. end;
  66410. procedure TPORTF_TRISF.setTRISF4; inline;
  66411. begin
  66412. pTDefRegMap(@Self)^.&set := $00000010;
  66413. end;
  66414. procedure TPORTF_TRISF.clearTRISF4; inline;
  66415. begin
  66416. pTDefRegMap(@Self)^.clr := $00000010;
  66417. end;
  66418. procedure TPORTF_TRISF.setTRISF4(thebits : TBits_1); inline;
  66419. begin
  66420. if thebits = 0 then
  66421. pTDefRegMap(@Self)^.clr := $00000010
  66422. else
  66423. pTDefRegMap(@Self)^.&set := $00000010;
  66424. end;
  66425. function TPORTF_TRISF.getTRISF4 : TBits_1; inline;
  66426. begin
  66427. getTRISF4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  66428. end;
  66429. procedure TPORTF_TRISF.setTRISF5; inline;
  66430. begin
  66431. pTDefRegMap(@Self)^.&set := $00000020;
  66432. end;
  66433. procedure TPORTF_TRISF.clearTRISF5; inline;
  66434. begin
  66435. pTDefRegMap(@Self)^.clr := $00000020;
  66436. end;
  66437. procedure TPORTF_TRISF.setTRISF5(thebits : TBits_1); inline;
  66438. begin
  66439. if thebits = 0 then
  66440. pTDefRegMap(@Self)^.clr := $00000020
  66441. else
  66442. pTDefRegMap(@Self)^.&set := $00000020;
  66443. end;
  66444. function TPORTF_TRISF.getTRISF5 : TBits_1; inline;
  66445. begin
  66446. getTRISF5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  66447. end;
  66448. procedure TPORTF_TRISF.setTRISF8; inline;
  66449. begin
  66450. pTDefRegMap(@Self)^.&set := $00000100;
  66451. end;
  66452. procedure TPORTF_TRISF.clearTRISF8; inline;
  66453. begin
  66454. pTDefRegMap(@Self)^.clr := $00000100;
  66455. end;
  66456. procedure TPORTF_TRISF.setTRISF8(thebits : TBits_1); inline;
  66457. begin
  66458. if thebits = 0 then
  66459. pTDefRegMap(@Self)^.clr := $00000100
  66460. else
  66461. pTDefRegMap(@Self)^.&set := $00000100;
  66462. end;
  66463. function TPORTF_TRISF.getTRISF8 : TBits_1; inline;
  66464. begin
  66465. getTRISF8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  66466. end;
  66467. procedure TPORTF_TRISF.setTRISF12; inline;
  66468. begin
  66469. pTDefRegMap(@Self)^.&set := $00001000;
  66470. end;
  66471. procedure TPORTF_TRISF.clearTRISF12; inline;
  66472. begin
  66473. pTDefRegMap(@Self)^.clr := $00001000;
  66474. end;
  66475. procedure TPORTF_TRISF.setTRISF12(thebits : TBits_1); inline;
  66476. begin
  66477. if thebits = 0 then
  66478. pTDefRegMap(@Self)^.clr := $00001000
  66479. else
  66480. pTDefRegMap(@Self)^.&set := $00001000;
  66481. end;
  66482. function TPORTF_TRISF.getTRISF12 : TBits_1; inline;
  66483. begin
  66484. getTRISF12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  66485. end;
  66486. procedure TPORTF_TRISF.setTRISF13; inline;
  66487. begin
  66488. pTDefRegMap(@Self)^.&set := $00002000;
  66489. end;
  66490. procedure TPORTF_TRISF.clearTRISF13; inline;
  66491. begin
  66492. pTDefRegMap(@Self)^.clr := $00002000;
  66493. end;
  66494. procedure TPORTF_TRISF.setTRISF13(thebits : TBits_1); inline;
  66495. begin
  66496. if thebits = 0 then
  66497. pTDefRegMap(@Self)^.clr := $00002000
  66498. else
  66499. pTDefRegMap(@Self)^.&set := $00002000;
  66500. end;
  66501. function TPORTF_TRISF.getTRISF13 : TBits_1; inline;
  66502. begin
  66503. getTRISF13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  66504. end;
  66505. procedure TPORTF_TRISF.setw(thebits : TBits_32); inline;
  66506. begin
  66507. pTDefRegMap(@Self)^.val := thebits;
  66508. end;
  66509. function TPORTF_TRISF.getw : TBits_32; inline;
  66510. begin
  66511. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  66512. end;
  66513. procedure TPORTF_PORTF.setRF0; inline;
  66514. begin
  66515. pTDefRegMap(@Self)^.&set := $00000001;
  66516. end;
  66517. procedure TPORTF_PORTF.clearRF0; inline;
  66518. begin
  66519. pTDefRegMap(@Self)^.clr := $00000001;
  66520. end;
  66521. procedure TPORTF_PORTF.setRF0(thebits : TBits_1); inline;
  66522. begin
  66523. if thebits = 0 then
  66524. pTDefRegMap(@Self)^.clr := $00000001
  66525. else
  66526. pTDefRegMap(@Self)^.&set := $00000001;
  66527. end;
  66528. function TPORTF_PORTF.getRF0 : TBits_1; inline;
  66529. begin
  66530. getRF0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  66531. end;
  66532. procedure TPORTF_PORTF.setRF1; inline;
  66533. begin
  66534. pTDefRegMap(@Self)^.&set := $00000002;
  66535. end;
  66536. procedure TPORTF_PORTF.clearRF1; inline;
  66537. begin
  66538. pTDefRegMap(@Self)^.clr := $00000002;
  66539. end;
  66540. procedure TPORTF_PORTF.setRF1(thebits : TBits_1); inline;
  66541. begin
  66542. if thebits = 0 then
  66543. pTDefRegMap(@Self)^.clr := $00000002
  66544. else
  66545. pTDefRegMap(@Self)^.&set := $00000002;
  66546. end;
  66547. function TPORTF_PORTF.getRF1 : TBits_1; inline;
  66548. begin
  66549. getRF1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  66550. end;
  66551. procedure TPORTF_PORTF.setRF2; inline;
  66552. begin
  66553. pTDefRegMap(@Self)^.&set := $00000004;
  66554. end;
  66555. procedure TPORTF_PORTF.clearRF2; inline;
  66556. begin
  66557. pTDefRegMap(@Self)^.clr := $00000004;
  66558. end;
  66559. procedure TPORTF_PORTF.setRF2(thebits : TBits_1); inline;
  66560. begin
  66561. if thebits = 0 then
  66562. pTDefRegMap(@Self)^.clr := $00000004
  66563. else
  66564. pTDefRegMap(@Self)^.&set := $00000004;
  66565. end;
  66566. function TPORTF_PORTF.getRF2 : TBits_1; inline;
  66567. begin
  66568. getRF2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  66569. end;
  66570. procedure TPORTF_PORTF.setRF3; inline;
  66571. begin
  66572. pTDefRegMap(@Self)^.&set := $00000008;
  66573. end;
  66574. procedure TPORTF_PORTF.clearRF3; inline;
  66575. begin
  66576. pTDefRegMap(@Self)^.clr := $00000008;
  66577. end;
  66578. procedure TPORTF_PORTF.setRF3(thebits : TBits_1); inline;
  66579. begin
  66580. if thebits = 0 then
  66581. pTDefRegMap(@Self)^.clr := $00000008
  66582. else
  66583. pTDefRegMap(@Self)^.&set := $00000008;
  66584. end;
  66585. function TPORTF_PORTF.getRF3 : TBits_1; inline;
  66586. begin
  66587. getRF3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  66588. end;
  66589. procedure TPORTF_PORTF.setRF4; inline;
  66590. begin
  66591. pTDefRegMap(@Self)^.&set := $00000010;
  66592. end;
  66593. procedure TPORTF_PORTF.clearRF4; inline;
  66594. begin
  66595. pTDefRegMap(@Self)^.clr := $00000010;
  66596. end;
  66597. procedure TPORTF_PORTF.setRF4(thebits : TBits_1); inline;
  66598. begin
  66599. if thebits = 0 then
  66600. pTDefRegMap(@Self)^.clr := $00000010
  66601. else
  66602. pTDefRegMap(@Self)^.&set := $00000010;
  66603. end;
  66604. function TPORTF_PORTF.getRF4 : TBits_1; inline;
  66605. begin
  66606. getRF4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  66607. end;
  66608. procedure TPORTF_PORTF.setRF5; inline;
  66609. begin
  66610. pTDefRegMap(@Self)^.&set := $00000020;
  66611. end;
  66612. procedure TPORTF_PORTF.clearRF5; inline;
  66613. begin
  66614. pTDefRegMap(@Self)^.clr := $00000020;
  66615. end;
  66616. procedure TPORTF_PORTF.setRF5(thebits : TBits_1); inline;
  66617. begin
  66618. if thebits = 0 then
  66619. pTDefRegMap(@Self)^.clr := $00000020
  66620. else
  66621. pTDefRegMap(@Self)^.&set := $00000020;
  66622. end;
  66623. function TPORTF_PORTF.getRF5 : TBits_1; inline;
  66624. begin
  66625. getRF5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  66626. end;
  66627. procedure TPORTF_PORTF.setRF8; inline;
  66628. begin
  66629. pTDefRegMap(@Self)^.&set := $00000100;
  66630. end;
  66631. procedure TPORTF_PORTF.clearRF8; inline;
  66632. begin
  66633. pTDefRegMap(@Self)^.clr := $00000100;
  66634. end;
  66635. procedure TPORTF_PORTF.setRF8(thebits : TBits_1); inline;
  66636. begin
  66637. if thebits = 0 then
  66638. pTDefRegMap(@Self)^.clr := $00000100
  66639. else
  66640. pTDefRegMap(@Self)^.&set := $00000100;
  66641. end;
  66642. function TPORTF_PORTF.getRF8 : TBits_1; inline;
  66643. begin
  66644. getRF8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  66645. end;
  66646. procedure TPORTF_PORTF.setRF12; inline;
  66647. begin
  66648. pTDefRegMap(@Self)^.&set := $00001000;
  66649. end;
  66650. procedure TPORTF_PORTF.clearRF12; inline;
  66651. begin
  66652. pTDefRegMap(@Self)^.clr := $00001000;
  66653. end;
  66654. procedure TPORTF_PORTF.setRF12(thebits : TBits_1); inline;
  66655. begin
  66656. if thebits = 0 then
  66657. pTDefRegMap(@Self)^.clr := $00001000
  66658. else
  66659. pTDefRegMap(@Self)^.&set := $00001000;
  66660. end;
  66661. function TPORTF_PORTF.getRF12 : TBits_1; inline;
  66662. begin
  66663. getRF12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  66664. end;
  66665. procedure TPORTF_PORTF.setRF13; inline;
  66666. begin
  66667. pTDefRegMap(@Self)^.&set := $00002000;
  66668. end;
  66669. procedure TPORTF_PORTF.clearRF13; inline;
  66670. begin
  66671. pTDefRegMap(@Self)^.clr := $00002000;
  66672. end;
  66673. procedure TPORTF_PORTF.setRF13(thebits : TBits_1); inline;
  66674. begin
  66675. if thebits = 0 then
  66676. pTDefRegMap(@Self)^.clr := $00002000
  66677. else
  66678. pTDefRegMap(@Self)^.&set := $00002000;
  66679. end;
  66680. function TPORTF_PORTF.getRF13 : TBits_1; inline;
  66681. begin
  66682. getRF13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  66683. end;
  66684. procedure TPORTF_PORTF.setw(thebits : TBits_32); inline;
  66685. begin
  66686. pTDefRegMap(@Self)^.val := thebits;
  66687. end;
  66688. function TPORTF_PORTF.getw : TBits_32; inline;
  66689. begin
  66690. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  66691. end;
  66692. procedure TPORTF_LATF.setLATF0; inline;
  66693. begin
  66694. pTDefRegMap(@Self)^.&set := $00000001;
  66695. end;
  66696. procedure TPORTF_LATF.clearLATF0; inline;
  66697. begin
  66698. pTDefRegMap(@Self)^.clr := $00000001;
  66699. end;
  66700. procedure TPORTF_LATF.setLATF0(thebits : TBits_1); inline;
  66701. begin
  66702. if thebits = 0 then
  66703. pTDefRegMap(@Self)^.clr := $00000001
  66704. else
  66705. pTDefRegMap(@Self)^.&set := $00000001;
  66706. end;
  66707. function TPORTF_LATF.getLATF0 : TBits_1; inline;
  66708. begin
  66709. getLATF0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  66710. end;
  66711. procedure TPORTF_LATF.setLATF1; inline;
  66712. begin
  66713. pTDefRegMap(@Self)^.&set := $00000002;
  66714. end;
  66715. procedure TPORTF_LATF.clearLATF1; inline;
  66716. begin
  66717. pTDefRegMap(@Self)^.clr := $00000002;
  66718. end;
  66719. procedure TPORTF_LATF.setLATF1(thebits : TBits_1); inline;
  66720. begin
  66721. if thebits = 0 then
  66722. pTDefRegMap(@Self)^.clr := $00000002
  66723. else
  66724. pTDefRegMap(@Self)^.&set := $00000002;
  66725. end;
  66726. function TPORTF_LATF.getLATF1 : TBits_1; inline;
  66727. begin
  66728. getLATF1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  66729. end;
  66730. procedure TPORTF_LATF.setLATF2; inline;
  66731. begin
  66732. pTDefRegMap(@Self)^.&set := $00000004;
  66733. end;
  66734. procedure TPORTF_LATF.clearLATF2; inline;
  66735. begin
  66736. pTDefRegMap(@Self)^.clr := $00000004;
  66737. end;
  66738. procedure TPORTF_LATF.setLATF2(thebits : TBits_1); inline;
  66739. begin
  66740. if thebits = 0 then
  66741. pTDefRegMap(@Self)^.clr := $00000004
  66742. else
  66743. pTDefRegMap(@Self)^.&set := $00000004;
  66744. end;
  66745. function TPORTF_LATF.getLATF2 : TBits_1; inline;
  66746. begin
  66747. getLATF2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  66748. end;
  66749. procedure TPORTF_LATF.setLATF3; inline;
  66750. begin
  66751. pTDefRegMap(@Self)^.&set := $00000008;
  66752. end;
  66753. procedure TPORTF_LATF.clearLATF3; inline;
  66754. begin
  66755. pTDefRegMap(@Self)^.clr := $00000008;
  66756. end;
  66757. procedure TPORTF_LATF.setLATF3(thebits : TBits_1); inline;
  66758. begin
  66759. if thebits = 0 then
  66760. pTDefRegMap(@Self)^.clr := $00000008
  66761. else
  66762. pTDefRegMap(@Self)^.&set := $00000008;
  66763. end;
  66764. function TPORTF_LATF.getLATF3 : TBits_1; inline;
  66765. begin
  66766. getLATF3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  66767. end;
  66768. procedure TPORTF_LATF.setLATF4; inline;
  66769. begin
  66770. pTDefRegMap(@Self)^.&set := $00000010;
  66771. end;
  66772. procedure TPORTF_LATF.clearLATF4; inline;
  66773. begin
  66774. pTDefRegMap(@Self)^.clr := $00000010;
  66775. end;
  66776. procedure TPORTF_LATF.setLATF4(thebits : TBits_1); inline;
  66777. begin
  66778. if thebits = 0 then
  66779. pTDefRegMap(@Self)^.clr := $00000010
  66780. else
  66781. pTDefRegMap(@Self)^.&set := $00000010;
  66782. end;
  66783. function TPORTF_LATF.getLATF4 : TBits_1; inline;
  66784. begin
  66785. getLATF4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  66786. end;
  66787. procedure TPORTF_LATF.setLATF5; inline;
  66788. begin
  66789. pTDefRegMap(@Self)^.&set := $00000020;
  66790. end;
  66791. procedure TPORTF_LATF.clearLATF5; inline;
  66792. begin
  66793. pTDefRegMap(@Self)^.clr := $00000020;
  66794. end;
  66795. procedure TPORTF_LATF.setLATF5(thebits : TBits_1); inline;
  66796. begin
  66797. if thebits = 0 then
  66798. pTDefRegMap(@Self)^.clr := $00000020
  66799. else
  66800. pTDefRegMap(@Self)^.&set := $00000020;
  66801. end;
  66802. function TPORTF_LATF.getLATF5 : TBits_1; inline;
  66803. begin
  66804. getLATF5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  66805. end;
  66806. procedure TPORTF_LATF.setLATF8; inline;
  66807. begin
  66808. pTDefRegMap(@Self)^.&set := $00000100;
  66809. end;
  66810. procedure TPORTF_LATF.clearLATF8; inline;
  66811. begin
  66812. pTDefRegMap(@Self)^.clr := $00000100;
  66813. end;
  66814. procedure TPORTF_LATF.setLATF8(thebits : TBits_1); inline;
  66815. begin
  66816. if thebits = 0 then
  66817. pTDefRegMap(@Self)^.clr := $00000100
  66818. else
  66819. pTDefRegMap(@Self)^.&set := $00000100;
  66820. end;
  66821. function TPORTF_LATF.getLATF8 : TBits_1; inline;
  66822. begin
  66823. getLATF8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  66824. end;
  66825. procedure TPORTF_LATF.setLATF12; inline;
  66826. begin
  66827. pTDefRegMap(@Self)^.&set := $00001000;
  66828. end;
  66829. procedure TPORTF_LATF.clearLATF12; inline;
  66830. begin
  66831. pTDefRegMap(@Self)^.clr := $00001000;
  66832. end;
  66833. procedure TPORTF_LATF.setLATF12(thebits : TBits_1); inline;
  66834. begin
  66835. if thebits = 0 then
  66836. pTDefRegMap(@Self)^.clr := $00001000
  66837. else
  66838. pTDefRegMap(@Self)^.&set := $00001000;
  66839. end;
  66840. function TPORTF_LATF.getLATF12 : TBits_1; inline;
  66841. begin
  66842. getLATF12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  66843. end;
  66844. procedure TPORTF_LATF.setLATF13; inline;
  66845. begin
  66846. pTDefRegMap(@Self)^.&set := $00002000;
  66847. end;
  66848. procedure TPORTF_LATF.clearLATF13; inline;
  66849. begin
  66850. pTDefRegMap(@Self)^.clr := $00002000;
  66851. end;
  66852. procedure TPORTF_LATF.setLATF13(thebits : TBits_1); inline;
  66853. begin
  66854. if thebits = 0 then
  66855. pTDefRegMap(@Self)^.clr := $00002000
  66856. else
  66857. pTDefRegMap(@Self)^.&set := $00002000;
  66858. end;
  66859. function TPORTF_LATF.getLATF13 : TBits_1; inline;
  66860. begin
  66861. getLATF13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  66862. end;
  66863. procedure TPORTF_LATF.setw(thebits : TBits_32); inline;
  66864. begin
  66865. pTDefRegMap(@Self)^.val := thebits;
  66866. end;
  66867. function TPORTF_LATF.getw : TBits_32; inline;
  66868. begin
  66869. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  66870. end;
  66871. procedure TPORTF_ODCF.setODCF0; inline;
  66872. begin
  66873. pTDefRegMap(@Self)^.&set := $00000001;
  66874. end;
  66875. procedure TPORTF_ODCF.clearODCF0; inline;
  66876. begin
  66877. pTDefRegMap(@Self)^.clr := $00000001;
  66878. end;
  66879. procedure TPORTF_ODCF.setODCF0(thebits : TBits_1); inline;
  66880. begin
  66881. if thebits = 0 then
  66882. pTDefRegMap(@Self)^.clr := $00000001
  66883. else
  66884. pTDefRegMap(@Self)^.&set := $00000001;
  66885. end;
  66886. function TPORTF_ODCF.getODCF0 : TBits_1; inline;
  66887. begin
  66888. getODCF0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  66889. end;
  66890. procedure TPORTF_ODCF.setODCF1; inline;
  66891. begin
  66892. pTDefRegMap(@Self)^.&set := $00000002;
  66893. end;
  66894. procedure TPORTF_ODCF.clearODCF1; inline;
  66895. begin
  66896. pTDefRegMap(@Self)^.clr := $00000002;
  66897. end;
  66898. procedure TPORTF_ODCF.setODCF1(thebits : TBits_1); inline;
  66899. begin
  66900. if thebits = 0 then
  66901. pTDefRegMap(@Self)^.clr := $00000002
  66902. else
  66903. pTDefRegMap(@Self)^.&set := $00000002;
  66904. end;
  66905. function TPORTF_ODCF.getODCF1 : TBits_1; inline;
  66906. begin
  66907. getODCF1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  66908. end;
  66909. procedure TPORTF_ODCF.setODCF2; inline;
  66910. begin
  66911. pTDefRegMap(@Self)^.&set := $00000004;
  66912. end;
  66913. procedure TPORTF_ODCF.clearODCF2; inline;
  66914. begin
  66915. pTDefRegMap(@Self)^.clr := $00000004;
  66916. end;
  66917. procedure TPORTF_ODCF.setODCF2(thebits : TBits_1); inline;
  66918. begin
  66919. if thebits = 0 then
  66920. pTDefRegMap(@Self)^.clr := $00000004
  66921. else
  66922. pTDefRegMap(@Self)^.&set := $00000004;
  66923. end;
  66924. function TPORTF_ODCF.getODCF2 : TBits_1; inline;
  66925. begin
  66926. getODCF2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  66927. end;
  66928. procedure TPORTF_ODCF.setODCF3; inline;
  66929. begin
  66930. pTDefRegMap(@Self)^.&set := $00000008;
  66931. end;
  66932. procedure TPORTF_ODCF.clearODCF3; inline;
  66933. begin
  66934. pTDefRegMap(@Self)^.clr := $00000008;
  66935. end;
  66936. procedure TPORTF_ODCF.setODCF3(thebits : TBits_1); inline;
  66937. begin
  66938. if thebits = 0 then
  66939. pTDefRegMap(@Self)^.clr := $00000008
  66940. else
  66941. pTDefRegMap(@Self)^.&set := $00000008;
  66942. end;
  66943. function TPORTF_ODCF.getODCF3 : TBits_1; inline;
  66944. begin
  66945. getODCF3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  66946. end;
  66947. procedure TPORTF_ODCF.setODCF4; inline;
  66948. begin
  66949. pTDefRegMap(@Self)^.&set := $00000010;
  66950. end;
  66951. procedure TPORTF_ODCF.clearODCF4; inline;
  66952. begin
  66953. pTDefRegMap(@Self)^.clr := $00000010;
  66954. end;
  66955. procedure TPORTF_ODCF.setODCF4(thebits : TBits_1); inline;
  66956. begin
  66957. if thebits = 0 then
  66958. pTDefRegMap(@Self)^.clr := $00000010
  66959. else
  66960. pTDefRegMap(@Self)^.&set := $00000010;
  66961. end;
  66962. function TPORTF_ODCF.getODCF4 : TBits_1; inline;
  66963. begin
  66964. getODCF4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  66965. end;
  66966. procedure TPORTF_ODCF.setODCF5; inline;
  66967. begin
  66968. pTDefRegMap(@Self)^.&set := $00000020;
  66969. end;
  66970. procedure TPORTF_ODCF.clearODCF5; inline;
  66971. begin
  66972. pTDefRegMap(@Self)^.clr := $00000020;
  66973. end;
  66974. procedure TPORTF_ODCF.setODCF5(thebits : TBits_1); inline;
  66975. begin
  66976. if thebits = 0 then
  66977. pTDefRegMap(@Self)^.clr := $00000020
  66978. else
  66979. pTDefRegMap(@Self)^.&set := $00000020;
  66980. end;
  66981. function TPORTF_ODCF.getODCF5 : TBits_1; inline;
  66982. begin
  66983. getODCF5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  66984. end;
  66985. procedure TPORTF_ODCF.setODCF8; inline;
  66986. begin
  66987. pTDefRegMap(@Self)^.&set := $00000100;
  66988. end;
  66989. procedure TPORTF_ODCF.clearODCF8; inline;
  66990. begin
  66991. pTDefRegMap(@Self)^.clr := $00000100;
  66992. end;
  66993. procedure TPORTF_ODCF.setODCF8(thebits : TBits_1); inline;
  66994. begin
  66995. if thebits = 0 then
  66996. pTDefRegMap(@Self)^.clr := $00000100
  66997. else
  66998. pTDefRegMap(@Self)^.&set := $00000100;
  66999. end;
  67000. function TPORTF_ODCF.getODCF8 : TBits_1; inline;
  67001. begin
  67002. getODCF8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  67003. end;
  67004. procedure TPORTF_ODCF.setODCF12; inline;
  67005. begin
  67006. pTDefRegMap(@Self)^.&set := $00001000;
  67007. end;
  67008. procedure TPORTF_ODCF.clearODCF12; inline;
  67009. begin
  67010. pTDefRegMap(@Self)^.clr := $00001000;
  67011. end;
  67012. procedure TPORTF_ODCF.setODCF12(thebits : TBits_1); inline;
  67013. begin
  67014. if thebits = 0 then
  67015. pTDefRegMap(@Self)^.clr := $00001000
  67016. else
  67017. pTDefRegMap(@Self)^.&set := $00001000;
  67018. end;
  67019. function TPORTF_ODCF.getODCF12 : TBits_1; inline;
  67020. begin
  67021. getODCF12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  67022. end;
  67023. procedure TPORTF_ODCF.setODCF13; inline;
  67024. begin
  67025. pTDefRegMap(@Self)^.&set := $00002000;
  67026. end;
  67027. procedure TPORTF_ODCF.clearODCF13; inline;
  67028. begin
  67029. pTDefRegMap(@Self)^.clr := $00002000;
  67030. end;
  67031. procedure TPORTF_ODCF.setODCF13(thebits : TBits_1); inline;
  67032. begin
  67033. if thebits = 0 then
  67034. pTDefRegMap(@Self)^.clr := $00002000
  67035. else
  67036. pTDefRegMap(@Self)^.&set := $00002000;
  67037. end;
  67038. function TPORTF_ODCF.getODCF13 : TBits_1; inline;
  67039. begin
  67040. getODCF13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  67041. end;
  67042. procedure TPORTF_ODCF.setw(thebits : TBits_32); inline;
  67043. begin
  67044. pTDefRegMap(@Self)^.val := thebits;
  67045. end;
  67046. function TPORTF_ODCF.getw : TBits_32; inline;
  67047. begin
  67048. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  67049. end;
  67050. procedure TPORTG_TRISG.setTRISG0; inline;
  67051. begin
  67052. pTDefRegMap(@Self)^.&set := $00000001;
  67053. end;
  67054. procedure TPORTG_TRISG.clearTRISG0; inline;
  67055. begin
  67056. pTDefRegMap(@Self)^.clr := $00000001;
  67057. end;
  67058. procedure TPORTG_TRISG.setTRISG0(thebits : TBits_1); inline;
  67059. begin
  67060. if thebits = 0 then
  67061. pTDefRegMap(@Self)^.clr := $00000001
  67062. else
  67063. pTDefRegMap(@Self)^.&set := $00000001;
  67064. end;
  67065. function TPORTG_TRISG.getTRISG0 : TBits_1; inline;
  67066. begin
  67067. getTRISG0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  67068. end;
  67069. procedure TPORTG_TRISG.setTRISG1; inline;
  67070. begin
  67071. pTDefRegMap(@Self)^.&set := $00000002;
  67072. end;
  67073. procedure TPORTG_TRISG.clearTRISG1; inline;
  67074. begin
  67075. pTDefRegMap(@Self)^.clr := $00000002;
  67076. end;
  67077. procedure TPORTG_TRISG.setTRISG1(thebits : TBits_1); inline;
  67078. begin
  67079. if thebits = 0 then
  67080. pTDefRegMap(@Self)^.clr := $00000002
  67081. else
  67082. pTDefRegMap(@Self)^.&set := $00000002;
  67083. end;
  67084. function TPORTG_TRISG.getTRISG1 : TBits_1; inline;
  67085. begin
  67086. getTRISG1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  67087. end;
  67088. procedure TPORTG_TRISG.setTRISG2; inline;
  67089. begin
  67090. pTDefRegMap(@Self)^.&set := $00000004;
  67091. end;
  67092. procedure TPORTG_TRISG.clearTRISG2; inline;
  67093. begin
  67094. pTDefRegMap(@Self)^.clr := $00000004;
  67095. end;
  67096. procedure TPORTG_TRISG.setTRISG2(thebits : TBits_1); inline;
  67097. begin
  67098. if thebits = 0 then
  67099. pTDefRegMap(@Self)^.clr := $00000004
  67100. else
  67101. pTDefRegMap(@Self)^.&set := $00000004;
  67102. end;
  67103. function TPORTG_TRISG.getTRISG2 : TBits_1; inline;
  67104. begin
  67105. getTRISG2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  67106. end;
  67107. procedure TPORTG_TRISG.setTRISG3; inline;
  67108. begin
  67109. pTDefRegMap(@Self)^.&set := $00000008;
  67110. end;
  67111. procedure TPORTG_TRISG.clearTRISG3; inline;
  67112. begin
  67113. pTDefRegMap(@Self)^.clr := $00000008;
  67114. end;
  67115. procedure TPORTG_TRISG.setTRISG3(thebits : TBits_1); inline;
  67116. begin
  67117. if thebits = 0 then
  67118. pTDefRegMap(@Self)^.clr := $00000008
  67119. else
  67120. pTDefRegMap(@Self)^.&set := $00000008;
  67121. end;
  67122. function TPORTG_TRISG.getTRISG3 : TBits_1; inline;
  67123. begin
  67124. getTRISG3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  67125. end;
  67126. procedure TPORTG_TRISG.setTRISG6; inline;
  67127. begin
  67128. pTDefRegMap(@Self)^.&set := $00000040;
  67129. end;
  67130. procedure TPORTG_TRISG.clearTRISG6; inline;
  67131. begin
  67132. pTDefRegMap(@Self)^.clr := $00000040;
  67133. end;
  67134. procedure TPORTG_TRISG.setTRISG6(thebits : TBits_1); inline;
  67135. begin
  67136. if thebits = 0 then
  67137. pTDefRegMap(@Self)^.clr := $00000040
  67138. else
  67139. pTDefRegMap(@Self)^.&set := $00000040;
  67140. end;
  67141. function TPORTG_TRISG.getTRISG6 : TBits_1; inline;
  67142. begin
  67143. getTRISG6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  67144. end;
  67145. procedure TPORTG_TRISG.setTRISG7; inline;
  67146. begin
  67147. pTDefRegMap(@Self)^.&set := $00000080;
  67148. end;
  67149. procedure TPORTG_TRISG.clearTRISG7; inline;
  67150. begin
  67151. pTDefRegMap(@Self)^.clr := $00000080;
  67152. end;
  67153. procedure TPORTG_TRISG.setTRISG7(thebits : TBits_1); inline;
  67154. begin
  67155. if thebits = 0 then
  67156. pTDefRegMap(@Self)^.clr := $00000080
  67157. else
  67158. pTDefRegMap(@Self)^.&set := $00000080;
  67159. end;
  67160. function TPORTG_TRISG.getTRISG7 : TBits_1; inline;
  67161. begin
  67162. getTRISG7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  67163. end;
  67164. procedure TPORTG_TRISG.setTRISG8; inline;
  67165. begin
  67166. pTDefRegMap(@Self)^.&set := $00000100;
  67167. end;
  67168. procedure TPORTG_TRISG.clearTRISG8; inline;
  67169. begin
  67170. pTDefRegMap(@Self)^.clr := $00000100;
  67171. end;
  67172. procedure TPORTG_TRISG.setTRISG8(thebits : TBits_1); inline;
  67173. begin
  67174. if thebits = 0 then
  67175. pTDefRegMap(@Self)^.clr := $00000100
  67176. else
  67177. pTDefRegMap(@Self)^.&set := $00000100;
  67178. end;
  67179. function TPORTG_TRISG.getTRISG8 : TBits_1; inline;
  67180. begin
  67181. getTRISG8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  67182. end;
  67183. procedure TPORTG_TRISG.setTRISG9; inline;
  67184. begin
  67185. pTDefRegMap(@Self)^.&set := $00000200;
  67186. end;
  67187. procedure TPORTG_TRISG.clearTRISG9; inline;
  67188. begin
  67189. pTDefRegMap(@Self)^.clr := $00000200;
  67190. end;
  67191. procedure TPORTG_TRISG.setTRISG9(thebits : TBits_1); inline;
  67192. begin
  67193. if thebits = 0 then
  67194. pTDefRegMap(@Self)^.clr := $00000200
  67195. else
  67196. pTDefRegMap(@Self)^.&set := $00000200;
  67197. end;
  67198. function TPORTG_TRISG.getTRISG9 : TBits_1; inline;
  67199. begin
  67200. getTRISG9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  67201. end;
  67202. procedure TPORTG_TRISG.setTRISG12; inline;
  67203. begin
  67204. pTDefRegMap(@Self)^.&set := $00001000;
  67205. end;
  67206. procedure TPORTG_TRISG.clearTRISG12; inline;
  67207. begin
  67208. pTDefRegMap(@Self)^.clr := $00001000;
  67209. end;
  67210. procedure TPORTG_TRISG.setTRISG12(thebits : TBits_1); inline;
  67211. begin
  67212. if thebits = 0 then
  67213. pTDefRegMap(@Self)^.clr := $00001000
  67214. else
  67215. pTDefRegMap(@Self)^.&set := $00001000;
  67216. end;
  67217. function TPORTG_TRISG.getTRISG12 : TBits_1; inline;
  67218. begin
  67219. getTRISG12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  67220. end;
  67221. procedure TPORTG_TRISG.setTRISG13; inline;
  67222. begin
  67223. pTDefRegMap(@Self)^.&set := $00002000;
  67224. end;
  67225. procedure TPORTG_TRISG.clearTRISG13; inline;
  67226. begin
  67227. pTDefRegMap(@Self)^.clr := $00002000;
  67228. end;
  67229. procedure TPORTG_TRISG.setTRISG13(thebits : TBits_1); inline;
  67230. begin
  67231. if thebits = 0 then
  67232. pTDefRegMap(@Self)^.clr := $00002000
  67233. else
  67234. pTDefRegMap(@Self)^.&set := $00002000;
  67235. end;
  67236. function TPORTG_TRISG.getTRISG13 : TBits_1; inline;
  67237. begin
  67238. getTRISG13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  67239. end;
  67240. procedure TPORTG_TRISG.setTRISG14; inline;
  67241. begin
  67242. pTDefRegMap(@Self)^.&set := $00004000;
  67243. end;
  67244. procedure TPORTG_TRISG.clearTRISG14; inline;
  67245. begin
  67246. pTDefRegMap(@Self)^.clr := $00004000;
  67247. end;
  67248. procedure TPORTG_TRISG.setTRISG14(thebits : TBits_1); inline;
  67249. begin
  67250. if thebits = 0 then
  67251. pTDefRegMap(@Self)^.clr := $00004000
  67252. else
  67253. pTDefRegMap(@Self)^.&set := $00004000;
  67254. end;
  67255. function TPORTG_TRISG.getTRISG14 : TBits_1; inline;
  67256. begin
  67257. getTRISG14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  67258. end;
  67259. procedure TPORTG_TRISG.setTRISG15; inline;
  67260. begin
  67261. pTDefRegMap(@Self)^.&set := $00008000;
  67262. end;
  67263. procedure TPORTG_TRISG.clearTRISG15; inline;
  67264. begin
  67265. pTDefRegMap(@Self)^.clr := $00008000;
  67266. end;
  67267. procedure TPORTG_TRISG.setTRISG15(thebits : TBits_1); inline;
  67268. begin
  67269. if thebits = 0 then
  67270. pTDefRegMap(@Self)^.clr := $00008000
  67271. else
  67272. pTDefRegMap(@Self)^.&set := $00008000;
  67273. end;
  67274. function TPORTG_TRISG.getTRISG15 : TBits_1; inline;
  67275. begin
  67276. getTRISG15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  67277. end;
  67278. procedure TPORTG_TRISG.setw(thebits : TBits_32); inline;
  67279. begin
  67280. pTDefRegMap(@Self)^.val := thebits;
  67281. end;
  67282. function TPORTG_TRISG.getw : TBits_32; inline;
  67283. begin
  67284. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  67285. end;
  67286. procedure TPORTG_PORTG.setRG0; inline;
  67287. begin
  67288. pTDefRegMap(@Self)^.&set := $00000001;
  67289. end;
  67290. procedure TPORTG_PORTG.clearRG0; inline;
  67291. begin
  67292. pTDefRegMap(@Self)^.clr := $00000001;
  67293. end;
  67294. procedure TPORTG_PORTG.setRG0(thebits : TBits_1); inline;
  67295. begin
  67296. if thebits = 0 then
  67297. pTDefRegMap(@Self)^.clr := $00000001
  67298. else
  67299. pTDefRegMap(@Self)^.&set := $00000001;
  67300. end;
  67301. function TPORTG_PORTG.getRG0 : TBits_1; inline;
  67302. begin
  67303. getRG0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  67304. end;
  67305. procedure TPORTG_PORTG.setRG1; inline;
  67306. begin
  67307. pTDefRegMap(@Self)^.&set := $00000002;
  67308. end;
  67309. procedure TPORTG_PORTG.clearRG1; inline;
  67310. begin
  67311. pTDefRegMap(@Self)^.clr := $00000002;
  67312. end;
  67313. procedure TPORTG_PORTG.setRG1(thebits : TBits_1); inline;
  67314. begin
  67315. if thebits = 0 then
  67316. pTDefRegMap(@Self)^.clr := $00000002
  67317. else
  67318. pTDefRegMap(@Self)^.&set := $00000002;
  67319. end;
  67320. function TPORTG_PORTG.getRG1 : TBits_1; inline;
  67321. begin
  67322. getRG1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  67323. end;
  67324. procedure TPORTG_PORTG.setRG2; inline;
  67325. begin
  67326. pTDefRegMap(@Self)^.&set := $00000004;
  67327. end;
  67328. procedure TPORTG_PORTG.clearRG2; inline;
  67329. begin
  67330. pTDefRegMap(@Self)^.clr := $00000004;
  67331. end;
  67332. procedure TPORTG_PORTG.setRG2(thebits : TBits_1); inline;
  67333. begin
  67334. if thebits = 0 then
  67335. pTDefRegMap(@Self)^.clr := $00000004
  67336. else
  67337. pTDefRegMap(@Self)^.&set := $00000004;
  67338. end;
  67339. function TPORTG_PORTG.getRG2 : TBits_1; inline;
  67340. begin
  67341. getRG2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  67342. end;
  67343. procedure TPORTG_PORTG.setRG3; inline;
  67344. begin
  67345. pTDefRegMap(@Self)^.&set := $00000008;
  67346. end;
  67347. procedure TPORTG_PORTG.clearRG3; inline;
  67348. begin
  67349. pTDefRegMap(@Self)^.clr := $00000008;
  67350. end;
  67351. procedure TPORTG_PORTG.setRG3(thebits : TBits_1); inline;
  67352. begin
  67353. if thebits = 0 then
  67354. pTDefRegMap(@Self)^.clr := $00000008
  67355. else
  67356. pTDefRegMap(@Self)^.&set := $00000008;
  67357. end;
  67358. function TPORTG_PORTG.getRG3 : TBits_1; inline;
  67359. begin
  67360. getRG3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  67361. end;
  67362. procedure TPORTG_PORTG.setRG6; inline;
  67363. begin
  67364. pTDefRegMap(@Self)^.&set := $00000040;
  67365. end;
  67366. procedure TPORTG_PORTG.clearRG6; inline;
  67367. begin
  67368. pTDefRegMap(@Self)^.clr := $00000040;
  67369. end;
  67370. procedure TPORTG_PORTG.setRG6(thebits : TBits_1); inline;
  67371. begin
  67372. if thebits = 0 then
  67373. pTDefRegMap(@Self)^.clr := $00000040
  67374. else
  67375. pTDefRegMap(@Self)^.&set := $00000040;
  67376. end;
  67377. function TPORTG_PORTG.getRG6 : TBits_1; inline;
  67378. begin
  67379. getRG6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  67380. end;
  67381. procedure TPORTG_PORTG.setRG7; inline;
  67382. begin
  67383. pTDefRegMap(@Self)^.&set := $00000080;
  67384. end;
  67385. procedure TPORTG_PORTG.clearRG7; inline;
  67386. begin
  67387. pTDefRegMap(@Self)^.clr := $00000080;
  67388. end;
  67389. procedure TPORTG_PORTG.setRG7(thebits : TBits_1); inline;
  67390. begin
  67391. if thebits = 0 then
  67392. pTDefRegMap(@Self)^.clr := $00000080
  67393. else
  67394. pTDefRegMap(@Self)^.&set := $00000080;
  67395. end;
  67396. function TPORTG_PORTG.getRG7 : TBits_1; inline;
  67397. begin
  67398. getRG7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  67399. end;
  67400. procedure TPORTG_PORTG.setRG8; inline;
  67401. begin
  67402. pTDefRegMap(@Self)^.&set := $00000100;
  67403. end;
  67404. procedure TPORTG_PORTG.clearRG8; inline;
  67405. begin
  67406. pTDefRegMap(@Self)^.clr := $00000100;
  67407. end;
  67408. procedure TPORTG_PORTG.setRG8(thebits : TBits_1); inline;
  67409. begin
  67410. if thebits = 0 then
  67411. pTDefRegMap(@Self)^.clr := $00000100
  67412. else
  67413. pTDefRegMap(@Self)^.&set := $00000100;
  67414. end;
  67415. function TPORTG_PORTG.getRG8 : TBits_1; inline;
  67416. begin
  67417. getRG8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  67418. end;
  67419. procedure TPORTG_PORTG.setRG9; inline;
  67420. begin
  67421. pTDefRegMap(@Self)^.&set := $00000200;
  67422. end;
  67423. procedure TPORTG_PORTG.clearRG9; inline;
  67424. begin
  67425. pTDefRegMap(@Self)^.clr := $00000200;
  67426. end;
  67427. procedure TPORTG_PORTG.setRG9(thebits : TBits_1); inline;
  67428. begin
  67429. if thebits = 0 then
  67430. pTDefRegMap(@Self)^.clr := $00000200
  67431. else
  67432. pTDefRegMap(@Self)^.&set := $00000200;
  67433. end;
  67434. function TPORTG_PORTG.getRG9 : TBits_1; inline;
  67435. begin
  67436. getRG9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  67437. end;
  67438. procedure TPORTG_PORTG.setRG12; inline;
  67439. begin
  67440. pTDefRegMap(@Self)^.&set := $00001000;
  67441. end;
  67442. procedure TPORTG_PORTG.clearRG12; inline;
  67443. begin
  67444. pTDefRegMap(@Self)^.clr := $00001000;
  67445. end;
  67446. procedure TPORTG_PORTG.setRG12(thebits : TBits_1); inline;
  67447. begin
  67448. if thebits = 0 then
  67449. pTDefRegMap(@Self)^.clr := $00001000
  67450. else
  67451. pTDefRegMap(@Self)^.&set := $00001000;
  67452. end;
  67453. function TPORTG_PORTG.getRG12 : TBits_1; inline;
  67454. begin
  67455. getRG12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  67456. end;
  67457. procedure TPORTG_PORTG.setRG13; inline;
  67458. begin
  67459. pTDefRegMap(@Self)^.&set := $00002000;
  67460. end;
  67461. procedure TPORTG_PORTG.clearRG13; inline;
  67462. begin
  67463. pTDefRegMap(@Self)^.clr := $00002000;
  67464. end;
  67465. procedure TPORTG_PORTG.setRG13(thebits : TBits_1); inline;
  67466. begin
  67467. if thebits = 0 then
  67468. pTDefRegMap(@Self)^.clr := $00002000
  67469. else
  67470. pTDefRegMap(@Self)^.&set := $00002000;
  67471. end;
  67472. function TPORTG_PORTG.getRG13 : TBits_1; inline;
  67473. begin
  67474. getRG13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  67475. end;
  67476. procedure TPORTG_PORTG.setRG14; inline;
  67477. begin
  67478. pTDefRegMap(@Self)^.&set := $00004000;
  67479. end;
  67480. procedure TPORTG_PORTG.clearRG14; inline;
  67481. begin
  67482. pTDefRegMap(@Self)^.clr := $00004000;
  67483. end;
  67484. procedure TPORTG_PORTG.setRG14(thebits : TBits_1); inline;
  67485. begin
  67486. if thebits = 0 then
  67487. pTDefRegMap(@Self)^.clr := $00004000
  67488. else
  67489. pTDefRegMap(@Self)^.&set := $00004000;
  67490. end;
  67491. function TPORTG_PORTG.getRG14 : TBits_1; inline;
  67492. begin
  67493. getRG14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  67494. end;
  67495. procedure TPORTG_PORTG.setRG15; inline;
  67496. begin
  67497. pTDefRegMap(@Self)^.&set := $00008000;
  67498. end;
  67499. procedure TPORTG_PORTG.clearRG15; inline;
  67500. begin
  67501. pTDefRegMap(@Self)^.clr := $00008000;
  67502. end;
  67503. procedure TPORTG_PORTG.setRG15(thebits : TBits_1); inline;
  67504. begin
  67505. if thebits = 0 then
  67506. pTDefRegMap(@Self)^.clr := $00008000
  67507. else
  67508. pTDefRegMap(@Self)^.&set := $00008000;
  67509. end;
  67510. function TPORTG_PORTG.getRG15 : TBits_1; inline;
  67511. begin
  67512. getRG15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  67513. end;
  67514. procedure TPORTG_PORTG.setw(thebits : TBits_32); inline;
  67515. begin
  67516. pTDefRegMap(@Self)^.val := thebits;
  67517. end;
  67518. function TPORTG_PORTG.getw : TBits_32; inline;
  67519. begin
  67520. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  67521. end;
  67522. procedure TPORTG_LATG.setLATG0; inline;
  67523. begin
  67524. pTDefRegMap(@Self)^.&set := $00000001;
  67525. end;
  67526. procedure TPORTG_LATG.clearLATG0; inline;
  67527. begin
  67528. pTDefRegMap(@Self)^.clr := $00000001;
  67529. end;
  67530. procedure TPORTG_LATG.setLATG0(thebits : TBits_1); inline;
  67531. begin
  67532. if thebits = 0 then
  67533. pTDefRegMap(@Self)^.clr := $00000001
  67534. else
  67535. pTDefRegMap(@Self)^.&set := $00000001;
  67536. end;
  67537. function TPORTG_LATG.getLATG0 : TBits_1; inline;
  67538. begin
  67539. getLATG0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  67540. end;
  67541. procedure TPORTG_LATG.setLATG1; inline;
  67542. begin
  67543. pTDefRegMap(@Self)^.&set := $00000002;
  67544. end;
  67545. procedure TPORTG_LATG.clearLATG1; inline;
  67546. begin
  67547. pTDefRegMap(@Self)^.clr := $00000002;
  67548. end;
  67549. procedure TPORTG_LATG.setLATG1(thebits : TBits_1); inline;
  67550. begin
  67551. if thebits = 0 then
  67552. pTDefRegMap(@Self)^.clr := $00000002
  67553. else
  67554. pTDefRegMap(@Self)^.&set := $00000002;
  67555. end;
  67556. function TPORTG_LATG.getLATG1 : TBits_1; inline;
  67557. begin
  67558. getLATG1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  67559. end;
  67560. procedure TPORTG_LATG.setLATG2; inline;
  67561. begin
  67562. pTDefRegMap(@Self)^.&set := $00000004;
  67563. end;
  67564. procedure TPORTG_LATG.clearLATG2; inline;
  67565. begin
  67566. pTDefRegMap(@Self)^.clr := $00000004;
  67567. end;
  67568. procedure TPORTG_LATG.setLATG2(thebits : TBits_1); inline;
  67569. begin
  67570. if thebits = 0 then
  67571. pTDefRegMap(@Self)^.clr := $00000004
  67572. else
  67573. pTDefRegMap(@Self)^.&set := $00000004;
  67574. end;
  67575. function TPORTG_LATG.getLATG2 : TBits_1; inline;
  67576. begin
  67577. getLATG2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  67578. end;
  67579. procedure TPORTG_LATG.setLATG3; inline;
  67580. begin
  67581. pTDefRegMap(@Self)^.&set := $00000008;
  67582. end;
  67583. procedure TPORTG_LATG.clearLATG3; inline;
  67584. begin
  67585. pTDefRegMap(@Self)^.clr := $00000008;
  67586. end;
  67587. procedure TPORTG_LATG.setLATG3(thebits : TBits_1); inline;
  67588. begin
  67589. if thebits = 0 then
  67590. pTDefRegMap(@Self)^.clr := $00000008
  67591. else
  67592. pTDefRegMap(@Self)^.&set := $00000008;
  67593. end;
  67594. function TPORTG_LATG.getLATG3 : TBits_1; inline;
  67595. begin
  67596. getLATG3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  67597. end;
  67598. procedure TPORTG_LATG.setLATG6; inline;
  67599. begin
  67600. pTDefRegMap(@Self)^.&set := $00000040;
  67601. end;
  67602. procedure TPORTG_LATG.clearLATG6; inline;
  67603. begin
  67604. pTDefRegMap(@Self)^.clr := $00000040;
  67605. end;
  67606. procedure TPORTG_LATG.setLATG6(thebits : TBits_1); inline;
  67607. begin
  67608. if thebits = 0 then
  67609. pTDefRegMap(@Self)^.clr := $00000040
  67610. else
  67611. pTDefRegMap(@Self)^.&set := $00000040;
  67612. end;
  67613. function TPORTG_LATG.getLATG6 : TBits_1; inline;
  67614. begin
  67615. getLATG6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  67616. end;
  67617. procedure TPORTG_LATG.setLATG7; inline;
  67618. begin
  67619. pTDefRegMap(@Self)^.&set := $00000080;
  67620. end;
  67621. procedure TPORTG_LATG.clearLATG7; inline;
  67622. begin
  67623. pTDefRegMap(@Self)^.clr := $00000080;
  67624. end;
  67625. procedure TPORTG_LATG.setLATG7(thebits : TBits_1); inline;
  67626. begin
  67627. if thebits = 0 then
  67628. pTDefRegMap(@Self)^.clr := $00000080
  67629. else
  67630. pTDefRegMap(@Self)^.&set := $00000080;
  67631. end;
  67632. function TPORTG_LATG.getLATG7 : TBits_1; inline;
  67633. begin
  67634. getLATG7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  67635. end;
  67636. procedure TPORTG_LATG.setLATG8; inline;
  67637. begin
  67638. pTDefRegMap(@Self)^.&set := $00000100;
  67639. end;
  67640. procedure TPORTG_LATG.clearLATG8; inline;
  67641. begin
  67642. pTDefRegMap(@Self)^.clr := $00000100;
  67643. end;
  67644. procedure TPORTG_LATG.setLATG8(thebits : TBits_1); inline;
  67645. begin
  67646. if thebits = 0 then
  67647. pTDefRegMap(@Self)^.clr := $00000100
  67648. else
  67649. pTDefRegMap(@Self)^.&set := $00000100;
  67650. end;
  67651. function TPORTG_LATG.getLATG8 : TBits_1; inline;
  67652. begin
  67653. getLATG8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  67654. end;
  67655. procedure TPORTG_LATG.setLATG9; inline;
  67656. begin
  67657. pTDefRegMap(@Self)^.&set := $00000200;
  67658. end;
  67659. procedure TPORTG_LATG.clearLATG9; inline;
  67660. begin
  67661. pTDefRegMap(@Self)^.clr := $00000200;
  67662. end;
  67663. procedure TPORTG_LATG.setLATG9(thebits : TBits_1); inline;
  67664. begin
  67665. if thebits = 0 then
  67666. pTDefRegMap(@Self)^.clr := $00000200
  67667. else
  67668. pTDefRegMap(@Self)^.&set := $00000200;
  67669. end;
  67670. function TPORTG_LATG.getLATG9 : TBits_1; inline;
  67671. begin
  67672. getLATG9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  67673. end;
  67674. procedure TPORTG_LATG.setLATG12; inline;
  67675. begin
  67676. pTDefRegMap(@Self)^.&set := $00001000;
  67677. end;
  67678. procedure TPORTG_LATG.clearLATG12; inline;
  67679. begin
  67680. pTDefRegMap(@Self)^.clr := $00001000;
  67681. end;
  67682. procedure TPORTG_LATG.setLATG12(thebits : TBits_1); inline;
  67683. begin
  67684. if thebits = 0 then
  67685. pTDefRegMap(@Self)^.clr := $00001000
  67686. else
  67687. pTDefRegMap(@Self)^.&set := $00001000;
  67688. end;
  67689. function TPORTG_LATG.getLATG12 : TBits_1; inline;
  67690. begin
  67691. getLATG12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  67692. end;
  67693. procedure TPORTG_LATG.setLATG13; inline;
  67694. begin
  67695. pTDefRegMap(@Self)^.&set := $00002000;
  67696. end;
  67697. procedure TPORTG_LATG.clearLATG13; inline;
  67698. begin
  67699. pTDefRegMap(@Self)^.clr := $00002000;
  67700. end;
  67701. procedure TPORTG_LATG.setLATG13(thebits : TBits_1); inline;
  67702. begin
  67703. if thebits = 0 then
  67704. pTDefRegMap(@Self)^.clr := $00002000
  67705. else
  67706. pTDefRegMap(@Self)^.&set := $00002000;
  67707. end;
  67708. function TPORTG_LATG.getLATG13 : TBits_1; inline;
  67709. begin
  67710. getLATG13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  67711. end;
  67712. procedure TPORTG_LATG.setLATG14; inline;
  67713. begin
  67714. pTDefRegMap(@Self)^.&set := $00004000;
  67715. end;
  67716. procedure TPORTG_LATG.clearLATG14; inline;
  67717. begin
  67718. pTDefRegMap(@Self)^.clr := $00004000;
  67719. end;
  67720. procedure TPORTG_LATG.setLATG14(thebits : TBits_1); inline;
  67721. begin
  67722. if thebits = 0 then
  67723. pTDefRegMap(@Self)^.clr := $00004000
  67724. else
  67725. pTDefRegMap(@Self)^.&set := $00004000;
  67726. end;
  67727. function TPORTG_LATG.getLATG14 : TBits_1; inline;
  67728. begin
  67729. getLATG14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  67730. end;
  67731. procedure TPORTG_LATG.setLATG15; inline;
  67732. begin
  67733. pTDefRegMap(@Self)^.&set := $00008000;
  67734. end;
  67735. procedure TPORTG_LATG.clearLATG15; inline;
  67736. begin
  67737. pTDefRegMap(@Self)^.clr := $00008000;
  67738. end;
  67739. procedure TPORTG_LATG.setLATG15(thebits : TBits_1); inline;
  67740. begin
  67741. if thebits = 0 then
  67742. pTDefRegMap(@Self)^.clr := $00008000
  67743. else
  67744. pTDefRegMap(@Self)^.&set := $00008000;
  67745. end;
  67746. function TPORTG_LATG.getLATG15 : TBits_1; inline;
  67747. begin
  67748. getLATG15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  67749. end;
  67750. procedure TPORTG_LATG.setw(thebits : TBits_32); inline;
  67751. begin
  67752. pTDefRegMap(@Self)^.val := thebits;
  67753. end;
  67754. function TPORTG_LATG.getw : TBits_32; inline;
  67755. begin
  67756. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  67757. end;
  67758. procedure TPORTG_ODCG.setODCG0; inline;
  67759. begin
  67760. pTDefRegMap(@Self)^.&set := $00000001;
  67761. end;
  67762. procedure TPORTG_ODCG.clearODCG0; inline;
  67763. begin
  67764. pTDefRegMap(@Self)^.clr := $00000001;
  67765. end;
  67766. procedure TPORTG_ODCG.setODCG0(thebits : TBits_1); inline;
  67767. begin
  67768. if thebits = 0 then
  67769. pTDefRegMap(@Self)^.clr := $00000001
  67770. else
  67771. pTDefRegMap(@Self)^.&set := $00000001;
  67772. end;
  67773. function TPORTG_ODCG.getODCG0 : TBits_1; inline;
  67774. begin
  67775. getODCG0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  67776. end;
  67777. procedure TPORTG_ODCG.setODCG1; inline;
  67778. begin
  67779. pTDefRegMap(@Self)^.&set := $00000002;
  67780. end;
  67781. procedure TPORTG_ODCG.clearODCG1; inline;
  67782. begin
  67783. pTDefRegMap(@Self)^.clr := $00000002;
  67784. end;
  67785. procedure TPORTG_ODCG.setODCG1(thebits : TBits_1); inline;
  67786. begin
  67787. if thebits = 0 then
  67788. pTDefRegMap(@Self)^.clr := $00000002
  67789. else
  67790. pTDefRegMap(@Self)^.&set := $00000002;
  67791. end;
  67792. function TPORTG_ODCG.getODCG1 : TBits_1; inline;
  67793. begin
  67794. getODCG1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  67795. end;
  67796. procedure TPORTG_ODCG.setODCG2; inline;
  67797. begin
  67798. pTDefRegMap(@Self)^.&set := $00000004;
  67799. end;
  67800. procedure TPORTG_ODCG.clearODCG2; inline;
  67801. begin
  67802. pTDefRegMap(@Self)^.clr := $00000004;
  67803. end;
  67804. procedure TPORTG_ODCG.setODCG2(thebits : TBits_1); inline;
  67805. begin
  67806. if thebits = 0 then
  67807. pTDefRegMap(@Self)^.clr := $00000004
  67808. else
  67809. pTDefRegMap(@Self)^.&set := $00000004;
  67810. end;
  67811. function TPORTG_ODCG.getODCG2 : TBits_1; inline;
  67812. begin
  67813. getODCG2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  67814. end;
  67815. procedure TPORTG_ODCG.setODCG3; inline;
  67816. begin
  67817. pTDefRegMap(@Self)^.&set := $00000008;
  67818. end;
  67819. procedure TPORTG_ODCG.clearODCG3; inline;
  67820. begin
  67821. pTDefRegMap(@Self)^.clr := $00000008;
  67822. end;
  67823. procedure TPORTG_ODCG.setODCG3(thebits : TBits_1); inline;
  67824. begin
  67825. if thebits = 0 then
  67826. pTDefRegMap(@Self)^.clr := $00000008
  67827. else
  67828. pTDefRegMap(@Self)^.&set := $00000008;
  67829. end;
  67830. function TPORTG_ODCG.getODCG3 : TBits_1; inline;
  67831. begin
  67832. getODCG3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  67833. end;
  67834. procedure TPORTG_ODCG.setODCG6; inline;
  67835. begin
  67836. pTDefRegMap(@Self)^.&set := $00000040;
  67837. end;
  67838. procedure TPORTG_ODCG.clearODCG6; inline;
  67839. begin
  67840. pTDefRegMap(@Self)^.clr := $00000040;
  67841. end;
  67842. procedure TPORTG_ODCG.setODCG6(thebits : TBits_1); inline;
  67843. begin
  67844. if thebits = 0 then
  67845. pTDefRegMap(@Self)^.clr := $00000040
  67846. else
  67847. pTDefRegMap(@Self)^.&set := $00000040;
  67848. end;
  67849. function TPORTG_ODCG.getODCG6 : TBits_1; inline;
  67850. begin
  67851. getODCG6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  67852. end;
  67853. procedure TPORTG_ODCG.setODCG7; inline;
  67854. begin
  67855. pTDefRegMap(@Self)^.&set := $00000080;
  67856. end;
  67857. procedure TPORTG_ODCG.clearODCG7; inline;
  67858. begin
  67859. pTDefRegMap(@Self)^.clr := $00000080;
  67860. end;
  67861. procedure TPORTG_ODCG.setODCG7(thebits : TBits_1); inline;
  67862. begin
  67863. if thebits = 0 then
  67864. pTDefRegMap(@Self)^.clr := $00000080
  67865. else
  67866. pTDefRegMap(@Self)^.&set := $00000080;
  67867. end;
  67868. function TPORTG_ODCG.getODCG7 : TBits_1; inline;
  67869. begin
  67870. getODCG7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  67871. end;
  67872. procedure TPORTG_ODCG.setODCG8; inline;
  67873. begin
  67874. pTDefRegMap(@Self)^.&set := $00000100;
  67875. end;
  67876. procedure TPORTG_ODCG.clearODCG8; inline;
  67877. begin
  67878. pTDefRegMap(@Self)^.clr := $00000100;
  67879. end;
  67880. procedure TPORTG_ODCG.setODCG8(thebits : TBits_1); inline;
  67881. begin
  67882. if thebits = 0 then
  67883. pTDefRegMap(@Self)^.clr := $00000100
  67884. else
  67885. pTDefRegMap(@Self)^.&set := $00000100;
  67886. end;
  67887. function TPORTG_ODCG.getODCG8 : TBits_1; inline;
  67888. begin
  67889. getODCG8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  67890. end;
  67891. procedure TPORTG_ODCG.setODCG9; inline;
  67892. begin
  67893. pTDefRegMap(@Self)^.&set := $00000200;
  67894. end;
  67895. procedure TPORTG_ODCG.clearODCG9; inline;
  67896. begin
  67897. pTDefRegMap(@Self)^.clr := $00000200;
  67898. end;
  67899. procedure TPORTG_ODCG.setODCG9(thebits : TBits_1); inline;
  67900. begin
  67901. if thebits = 0 then
  67902. pTDefRegMap(@Self)^.clr := $00000200
  67903. else
  67904. pTDefRegMap(@Self)^.&set := $00000200;
  67905. end;
  67906. function TPORTG_ODCG.getODCG9 : TBits_1; inline;
  67907. begin
  67908. getODCG9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  67909. end;
  67910. procedure TPORTG_ODCG.setODCG12; inline;
  67911. begin
  67912. pTDefRegMap(@Self)^.&set := $00001000;
  67913. end;
  67914. procedure TPORTG_ODCG.clearODCG12; inline;
  67915. begin
  67916. pTDefRegMap(@Self)^.clr := $00001000;
  67917. end;
  67918. procedure TPORTG_ODCG.setODCG12(thebits : TBits_1); inline;
  67919. begin
  67920. if thebits = 0 then
  67921. pTDefRegMap(@Self)^.clr := $00001000
  67922. else
  67923. pTDefRegMap(@Self)^.&set := $00001000;
  67924. end;
  67925. function TPORTG_ODCG.getODCG12 : TBits_1; inline;
  67926. begin
  67927. getODCG12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  67928. end;
  67929. procedure TPORTG_ODCG.setODCG13; inline;
  67930. begin
  67931. pTDefRegMap(@Self)^.&set := $00002000;
  67932. end;
  67933. procedure TPORTG_ODCG.clearODCG13; inline;
  67934. begin
  67935. pTDefRegMap(@Self)^.clr := $00002000;
  67936. end;
  67937. procedure TPORTG_ODCG.setODCG13(thebits : TBits_1); inline;
  67938. begin
  67939. if thebits = 0 then
  67940. pTDefRegMap(@Self)^.clr := $00002000
  67941. else
  67942. pTDefRegMap(@Self)^.&set := $00002000;
  67943. end;
  67944. function TPORTG_ODCG.getODCG13 : TBits_1; inline;
  67945. begin
  67946. getODCG13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  67947. end;
  67948. procedure TPORTG_ODCG.setODCG14; inline;
  67949. begin
  67950. pTDefRegMap(@Self)^.&set := $00004000;
  67951. end;
  67952. procedure TPORTG_ODCG.clearODCG14; inline;
  67953. begin
  67954. pTDefRegMap(@Self)^.clr := $00004000;
  67955. end;
  67956. procedure TPORTG_ODCG.setODCG14(thebits : TBits_1); inline;
  67957. begin
  67958. if thebits = 0 then
  67959. pTDefRegMap(@Self)^.clr := $00004000
  67960. else
  67961. pTDefRegMap(@Self)^.&set := $00004000;
  67962. end;
  67963. function TPORTG_ODCG.getODCG14 : TBits_1; inline;
  67964. begin
  67965. getODCG14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  67966. end;
  67967. procedure TPORTG_ODCG.setODCG15; inline;
  67968. begin
  67969. pTDefRegMap(@Self)^.&set := $00008000;
  67970. end;
  67971. procedure TPORTG_ODCG.clearODCG15; inline;
  67972. begin
  67973. pTDefRegMap(@Self)^.clr := $00008000;
  67974. end;
  67975. procedure TPORTG_ODCG.setODCG15(thebits : TBits_1); inline;
  67976. begin
  67977. if thebits = 0 then
  67978. pTDefRegMap(@Self)^.clr := $00008000
  67979. else
  67980. pTDefRegMap(@Self)^.&set := $00008000;
  67981. end;
  67982. function TPORTG_ODCG.getODCG15 : TBits_1; inline;
  67983. begin
  67984. getODCG15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  67985. end;
  67986. procedure TPORTG_ODCG.setw(thebits : TBits_32); inline;
  67987. begin
  67988. pTDefRegMap(@Self)^.val := thebits;
  67989. end;
  67990. function TPORTG_ODCG.getw : TBits_32; inline;
  67991. begin
  67992. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  67993. end;
  67994. procedure TPORTG_CNCON.setSIDL; inline;
  67995. begin
  67996. pTDefRegMap(@Self)^.&set := $00002000;
  67997. end;
  67998. procedure TPORTG_CNCON.clearSIDL; inline;
  67999. begin
  68000. pTDefRegMap(@Self)^.clr := $00002000;
  68001. end;
  68002. procedure TPORTG_CNCON.setSIDL(thebits : TBits_1); inline;
  68003. begin
  68004. if thebits = 0 then
  68005. pTDefRegMap(@Self)^.clr := $00002000
  68006. else
  68007. pTDefRegMap(@Self)^.&set := $00002000;
  68008. end;
  68009. function TPORTG_CNCON.getSIDL : TBits_1; inline;
  68010. begin
  68011. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  68012. end;
  68013. procedure TPORTG_CNCON.setON; inline;
  68014. begin
  68015. pTDefRegMap(@Self)^.&set := $00008000;
  68016. end;
  68017. procedure TPORTG_CNCON.clearON; inline;
  68018. begin
  68019. pTDefRegMap(@Self)^.clr := $00008000;
  68020. end;
  68021. procedure TPORTG_CNCON.setON(thebits : TBits_1); inline;
  68022. begin
  68023. if thebits = 0 then
  68024. pTDefRegMap(@Self)^.clr := $00008000
  68025. else
  68026. pTDefRegMap(@Self)^.&set := $00008000;
  68027. end;
  68028. function TPORTG_CNCON.getON : TBits_1; inline;
  68029. begin
  68030. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  68031. end;
  68032. procedure TPORTG_CNCON.setw(thebits : TBits_32); inline;
  68033. begin
  68034. pTDefRegMap(@Self)^.val := thebits;
  68035. end;
  68036. function TPORTG_CNCON.getw : TBits_32; inline;
  68037. begin
  68038. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  68039. end;
  68040. procedure TPORTG_CNEN.setCNEN0; inline;
  68041. begin
  68042. pTDefRegMap(@Self)^.&set := $00000001;
  68043. end;
  68044. procedure TPORTG_CNEN.clearCNEN0; inline;
  68045. begin
  68046. pTDefRegMap(@Self)^.clr := $00000001;
  68047. end;
  68048. procedure TPORTG_CNEN.setCNEN0(thebits : TBits_1); inline;
  68049. begin
  68050. if thebits = 0 then
  68051. pTDefRegMap(@Self)^.clr := $00000001
  68052. else
  68053. pTDefRegMap(@Self)^.&set := $00000001;
  68054. end;
  68055. function TPORTG_CNEN.getCNEN0 : TBits_1; inline;
  68056. begin
  68057. getCNEN0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  68058. end;
  68059. procedure TPORTG_CNEN.setCNEN1; inline;
  68060. begin
  68061. pTDefRegMap(@Self)^.&set := $00000002;
  68062. end;
  68063. procedure TPORTG_CNEN.clearCNEN1; inline;
  68064. begin
  68065. pTDefRegMap(@Self)^.clr := $00000002;
  68066. end;
  68067. procedure TPORTG_CNEN.setCNEN1(thebits : TBits_1); inline;
  68068. begin
  68069. if thebits = 0 then
  68070. pTDefRegMap(@Self)^.clr := $00000002
  68071. else
  68072. pTDefRegMap(@Self)^.&set := $00000002;
  68073. end;
  68074. function TPORTG_CNEN.getCNEN1 : TBits_1; inline;
  68075. begin
  68076. getCNEN1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  68077. end;
  68078. procedure TPORTG_CNEN.setCNEN2; inline;
  68079. begin
  68080. pTDefRegMap(@Self)^.&set := $00000004;
  68081. end;
  68082. procedure TPORTG_CNEN.clearCNEN2; inline;
  68083. begin
  68084. pTDefRegMap(@Self)^.clr := $00000004;
  68085. end;
  68086. procedure TPORTG_CNEN.setCNEN2(thebits : TBits_1); inline;
  68087. begin
  68088. if thebits = 0 then
  68089. pTDefRegMap(@Self)^.clr := $00000004
  68090. else
  68091. pTDefRegMap(@Self)^.&set := $00000004;
  68092. end;
  68093. function TPORTG_CNEN.getCNEN2 : TBits_1; inline;
  68094. begin
  68095. getCNEN2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  68096. end;
  68097. procedure TPORTG_CNEN.setCNEN3; inline;
  68098. begin
  68099. pTDefRegMap(@Self)^.&set := $00000008;
  68100. end;
  68101. procedure TPORTG_CNEN.clearCNEN3; inline;
  68102. begin
  68103. pTDefRegMap(@Self)^.clr := $00000008;
  68104. end;
  68105. procedure TPORTG_CNEN.setCNEN3(thebits : TBits_1); inline;
  68106. begin
  68107. if thebits = 0 then
  68108. pTDefRegMap(@Self)^.clr := $00000008
  68109. else
  68110. pTDefRegMap(@Self)^.&set := $00000008;
  68111. end;
  68112. function TPORTG_CNEN.getCNEN3 : TBits_1; inline;
  68113. begin
  68114. getCNEN3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  68115. end;
  68116. procedure TPORTG_CNEN.setCNEN4; inline;
  68117. begin
  68118. pTDefRegMap(@Self)^.&set := $00000010;
  68119. end;
  68120. procedure TPORTG_CNEN.clearCNEN4; inline;
  68121. begin
  68122. pTDefRegMap(@Self)^.clr := $00000010;
  68123. end;
  68124. procedure TPORTG_CNEN.setCNEN4(thebits : TBits_1); inline;
  68125. begin
  68126. if thebits = 0 then
  68127. pTDefRegMap(@Self)^.clr := $00000010
  68128. else
  68129. pTDefRegMap(@Self)^.&set := $00000010;
  68130. end;
  68131. function TPORTG_CNEN.getCNEN4 : TBits_1; inline;
  68132. begin
  68133. getCNEN4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  68134. end;
  68135. procedure TPORTG_CNEN.setCNEN5; inline;
  68136. begin
  68137. pTDefRegMap(@Self)^.&set := $00000020;
  68138. end;
  68139. procedure TPORTG_CNEN.clearCNEN5; inline;
  68140. begin
  68141. pTDefRegMap(@Self)^.clr := $00000020;
  68142. end;
  68143. procedure TPORTG_CNEN.setCNEN5(thebits : TBits_1); inline;
  68144. begin
  68145. if thebits = 0 then
  68146. pTDefRegMap(@Self)^.clr := $00000020
  68147. else
  68148. pTDefRegMap(@Self)^.&set := $00000020;
  68149. end;
  68150. function TPORTG_CNEN.getCNEN5 : TBits_1; inline;
  68151. begin
  68152. getCNEN5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  68153. end;
  68154. procedure TPORTG_CNEN.setCNEN6; inline;
  68155. begin
  68156. pTDefRegMap(@Self)^.&set := $00000040;
  68157. end;
  68158. procedure TPORTG_CNEN.clearCNEN6; inline;
  68159. begin
  68160. pTDefRegMap(@Self)^.clr := $00000040;
  68161. end;
  68162. procedure TPORTG_CNEN.setCNEN6(thebits : TBits_1); inline;
  68163. begin
  68164. if thebits = 0 then
  68165. pTDefRegMap(@Self)^.clr := $00000040
  68166. else
  68167. pTDefRegMap(@Self)^.&set := $00000040;
  68168. end;
  68169. function TPORTG_CNEN.getCNEN6 : TBits_1; inline;
  68170. begin
  68171. getCNEN6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  68172. end;
  68173. procedure TPORTG_CNEN.setCNEN7; inline;
  68174. begin
  68175. pTDefRegMap(@Self)^.&set := $00000080;
  68176. end;
  68177. procedure TPORTG_CNEN.clearCNEN7; inline;
  68178. begin
  68179. pTDefRegMap(@Self)^.clr := $00000080;
  68180. end;
  68181. procedure TPORTG_CNEN.setCNEN7(thebits : TBits_1); inline;
  68182. begin
  68183. if thebits = 0 then
  68184. pTDefRegMap(@Self)^.clr := $00000080
  68185. else
  68186. pTDefRegMap(@Self)^.&set := $00000080;
  68187. end;
  68188. function TPORTG_CNEN.getCNEN7 : TBits_1; inline;
  68189. begin
  68190. getCNEN7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  68191. end;
  68192. procedure TPORTG_CNEN.setCNEN8; inline;
  68193. begin
  68194. pTDefRegMap(@Self)^.&set := $00000100;
  68195. end;
  68196. procedure TPORTG_CNEN.clearCNEN8; inline;
  68197. begin
  68198. pTDefRegMap(@Self)^.clr := $00000100;
  68199. end;
  68200. procedure TPORTG_CNEN.setCNEN8(thebits : TBits_1); inline;
  68201. begin
  68202. if thebits = 0 then
  68203. pTDefRegMap(@Self)^.clr := $00000100
  68204. else
  68205. pTDefRegMap(@Self)^.&set := $00000100;
  68206. end;
  68207. function TPORTG_CNEN.getCNEN8 : TBits_1; inline;
  68208. begin
  68209. getCNEN8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  68210. end;
  68211. procedure TPORTG_CNEN.setCNEN9; inline;
  68212. begin
  68213. pTDefRegMap(@Self)^.&set := $00000200;
  68214. end;
  68215. procedure TPORTG_CNEN.clearCNEN9; inline;
  68216. begin
  68217. pTDefRegMap(@Self)^.clr := $00000200;
  68218. end;
  68219. procedure TPORTG_CNEN.setCNEN9(thebits : TBits_1); inline;
  68220. begin
  68221. if thebits = 0 then
  68222. pTDefRegMap(@Self)^.clr := $00000200
  68223. else
  68224. pTDefRegMap(@Self)^.&set := $00000200;
  68225. end;
  68226. function TPORTG_CNEN.getCNEN9 : TBits_1; inline;
  68227. begin
  68228. getCNEN9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  68229. end;
  68230. procedure TPORTG_CNEN.setCNEN10; inline;
  68231. begin
  68232. pTDefRegMap(@Self)^.&set := $00000400;
  68233. end;
  68234. procedure TPORTG_CNEN.clearCNEN10; inline;
  68235. begin
  68236. pTDefRegMap(@Self)^.clr := $00000400;
  68237. end;
  68238. procedure TPORTG_CNEN.setCNEN10(thebits : TBits_1); inline;
  68239. begin
  68240. if thebits = 0 then
  68241. pTDefRegMap(@Self)^.clr := $00000400
  68242. else
  68243. pTDefRegMap(@Self)^.&set := $00000400;
  68244. end;
  68245. function TPORTG_CNEN.getCNEN10 : TBits_1; inline;
  68246. begin
  68247. getCNEN10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  68248. end;
  68249. procedure TPORTG_CNEN.setCNEN11; inline;
  68250. begin
  68251. pTDefRegMap(@Self)^.&set := $00000800;
  68252. end;
  68253. procedure TPORTG_CNEN.clearCNEN11; inline;
  68254. begin
  68255. pTDefRegMap(@Self)^.clr := $00000800;
  68256. end;
  68257. procedure TPORTG_CNEN.setCNEN11(thebits : TBits_1); inline;
  68258. begin
  68259. if thebits = 0 then
  68260. pTDefRegMap(@Self)^.clr := $00000800
  68261. else
  68262. pTDefRegMap(@Self)^.&set := $00000800;
  68263. end;
  68264. function TPORTG_CNEN.getCNEN11 : TBits_1; inline;
  68265. begin
  68266. getCNEN11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  68267. end;
  68268. procedure TPORTG_CNEN.setCNEN12; inline;
  68269. begin
  68270. pTDefRegMap(@Self)^.&set := $00001000;
  68271. end;
  68272. procedure TPORTG_CNEN.clearCNEN12; inline;
  68273. begin
  68274. pTDefRegMap(@Self)^.clr := $00001000;
  68275. end;
  68276. procedure TPORTG_CNEN.setCNEN12(thebits : TBits_1); inline;
  68277. begin
  68278. if thebits = 0 then
  68279. pTDefRegMap(@Self)^.clr := $00001000
  68280. else
  68281. pTDefRegMap(@Self)^.&set := $00001000;
  68282. end;
  68283. function TPORTG_CNEN.getCNEN12 : TBits_1; inline;
  68284. begin
  68285. getCNEN12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  68286. end;
  68287. procedure TPORTG_CNEN.setCNEN13; inline;
  68288. begin
  68289. pTDefRegMap(@Self)^.&set := $00002000;
  68290. end;
  68291. procedure TPORTG_CNEN.clearCNEN13; inline;
  68292. begin
  68293. pTDefRegMap(@Self)^.clr := $00002000;
  68294. end;
  68295. procedure TPORTG_CNEN.setCNEN13(thebits : TBits_1); inline;
  68296. begin
  68297. if thebits = 0 then
  68298. pTDefRegMap(@Self)^.clr := $00002000
  68299. else
  68300. pTDefRegMap(@Self)^.&set := $00002000;
  68301. end;
  68302. function TPORTG_CNEN.getCNEN13 : TBits_1; inline;
  68303. begin
  68304. getCNEN13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  68305. end;
  68306. procedure TPORTG_CNEN.setCNEN14; inline;
  68307. begin
  68308. pTDefRegMap(@Self)^.&set := $00004000;
  68309. end;
  68310. procedure TPORTG_CNEN.clearCNEN14; inline;
  68311. begin
  68312. pTDefRegMap(@Self)^.clr := $00004000;
  68313. end;
  68314. procedure TPORTG_CNEN.setCNEN14(thebits : TBits_1); inline;
  68315. begin
  68316. if thebits = 0 then
  68317. pTDefRegMap(@Self)^.clr := $00004000
  68318. else
  68319. pTDefRegMap(@Self)^.&set := $00004000;
  68320. end;
  68321. function TPORTG_CNEN.getCNEN14 : TBits_1; inline;
  68322. begin
  68323. getCNEN14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  68324. end;
  68325. procedure TPORTG_CNEN.setCNEN15; inline;
  68326. begin
  68327. pTDefRegMap(@Self)^.&set := $00008000;
  68328. end;
  68329. procedure TPORTG_CNEN.clearCNEN15; inline;
  68330. begin
  68331. pTDefRegMap(@Self)^.clr := $00008000;
  68332. end;
  68333. procedure TPORTG_CNEN.setCNEN15(thebits : TBits_1); inline;
  68334. begin
  68335. if thebits = 0 then
  68336. pTDefRegMap(@Self)^.clr := $00008000
  68337. else
  68338. pTDefRegMap(@Self)^.&set := $00008000;
  68339. end;
  68340. function TPORTG_CNEN.getCNEN15 : TBits_1; inline;
  68341. begin
  68342. getCNEN15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  68343. end;
  68344. procedure TPORTG_CNEN.setCNEN16; inline;
  68345. begin
  68346. pTDefRegMap(@Self)^.&set := $00010000;
  68347. end;
  68348. procedure TPORTG_CNEN.clearCNEN16; inline;
  68349. begin
  68350. pTDefRegMap(@Self)^.clr := $00010000;
  68351. end;
  68352. procedure TPORTG_CNEN.setCNEN16(thebits : TBits_1); inline;
  68353. begin
  68354. if thebits = 0 then
  68355. pTDefRegMap(@Self)^.clr := $00010000
  68356. else
  68357. pTDefRegMap(@Self)^.&set := $00010000;
  68358. end;
  68359. function TPORTG_CNEN.getCNEN16 : TBits_1; inline;
  68360. begin
  68361. getCNEN16 := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  68362. end;
  68363. procedure TPORTG_CNEN.setCNEN17; inline;
  68364. begin
  68365. pTDefRegMap(@Self)^.&set := $00020000;
  68366. end;
  68367. procedure TPORTG_CNEN.clearCNEN17; inline;
  68368. begin
  68369. pTDefRegMap(@Self)^.clr := $00020000;
  68370. end;
  68371. procedure TPORTG_CNEN.setCNEN17(thebits : TBits_1); inline;
  68372. begin
  68373. if thebits = 0 then
  68374. pTDefRegMap(@Self)^.clr := $00020000
  68375. else
  68376. pTDefRegMap(@Self)^.&set := $00020000;
  68377. end;
  68378. function TPORTG_CNEN.getCNEN17 : TBits_1; inline;
  68379. begin
  68380. getCNEN17 := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  68381. end;
  68382. procedure TPORTG_CNEN.setCNEN18; inline;
  68383. begin
  68384. pTDefRegMap(@Self)^.&set := $00040000;
  68385. end;
  68386. procedure TPORTG_CNEN.clearCNEN18; inline;
  68387. begin
  68388. pTDefRegMap(@Self)^.clr := $00040000;
  68389. end;
  68390. procedure TPORTG_CNEN.setCNEN18(thebits : TBits_1); inline;
  68391. begin
  68392. if thebits = 0 then
  68393. pTDefRegMap(@Self)^.clr := $00040000
  68394. else
  68395. pTDefRegMap(@Self)^.&set := $00040000;
  68396. end;
  68397. function TPORTG_CNEN.getCNEN18 : TBits_1; inline;
  68398. begin
  68399. getCNEN18 := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  68400. end;
  68401. procedure TPORTG_CNEN.setCNEN19; inline;
  68402. begin
  68403. pTDefRegMap(@Self)^.&set := $00080000;
  68404. end;
  68405. procedure TPORTG_CNEN.clearCNEN19; inline;
  68406. begin
  68407. pTDefRegMap(@Self)^.clr := $00080000;
  68408. end;
  68409. procedure TPORTG_CNEN.setCNEN19(thebits : TBits_1); inline;
  68410. begin
  68411. if thebits = 0 then
  68412. pTDefRegMap(@Self)^.clr := $00080000
  68413. else
  68414. pTDefRegMap(@Self)^.&set := $00080000;
  68415. end;
  68416. function TPORTG_CNEN.getCNEN19 : TBits_1; inline;
  68417. begin
  68418. getCNEN19 := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  68419. end;
  68420. procedure TPORTG_CNEN.setCNEN20; inline;
  68421. begin
  68422. pTDefRegMap(@Self)^.&set := $00100000;
  68423. end;
  68424. procedure TPORTG_CNEN.clearCNEN20; inline;
  68425. begin
  68426. pTDefRegMap(@Self)^.clr := $00100000;
  68427. end;
  68428. procedure TPORTG_CNEN.setCNEN20(thebits : TBits_1); inline;
  68429. begin
  68430. if thebits = 0 then
  68431. pTDefRegMap(@Self)^.clr := $00100000
  68432. else
  68433. pTDefRegMap(@Self)^.&set := $00100000;
  68434. end;
  68435. function TPORTG_CNEN.getCNEN20 : TBits_1; inline;
  68436. begin
  68437. getCNEN20 := (pTDefRegMap(@Self)^.val and $00100000) shr 20;
  68438. end;
  68439. procedure TPORTG_CNEN.setCNEN21; inline;
  68440. begin
  68441. pTDefRegMap(@Self)^.&set := $00200000;
  68442. end;
  68443. procedure TPORTG_CNEN.clearCNEN21; inline;
  68444. begin
  68445. pTDefRegMap(@Self)^.clr := $00200000;
  68446. end;
  68447. procedure TPORTG_CNEN.setCNEN21(thebits : TBits_1); inline;
  68448. begin
  68449. if thebits = 0 then
  68450. pTDefRegMap(@Self)^.clr := $00200000
  68451. else
  68452. pTDefRegMap(@Self)^.&set := $00200000;
  68453. end;
  68454. function TPORTG_CNEN.getCNEN21 : TBits_1; inline;
  68455. begin
  68456. getCNEN21 := (pTDefRegMap(@Self)^.val and $00200000) shr 21;
  68457. end;
  68458. procedure TPORTG_CNEN.setw(thebits : TBits_32); inline;
  68459. begin
  68460. pTDefRegMap(@Self)^.val := thebits;
  68461. end;
  68462. function TPORTG_CNEN.getw : TBits_32; inline;
  68463. begin
  68464. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  68465. end;
  68466. procedure TPORTG_CNPUE.setCNPUE0; inline;
  68467. begin
  68468. pTDefRegMap(@Self)^.&set := $00000001;
  68469. end;
  68470. procedure TPORTG_CNPUE.clearCNPUE0; inline;
  68471. begin
  68472. pTDefRegMap(@Self)^.clr := $00000001;
  68473. end;
  68474. procedure TPORTG_CNPUE.setCNPUE0(thebits : TBits_1); inline;
  68475. begin
  68476. if thebits = 0 then
  68477. pTDefRegMap(@Self)^.clr := $00000001
  68478. else
  68479. pTDefRegMap(@Self)^.&set := $00000001;
  68480. end;
  68481. function TPORTG_CNPUE.getCNPUE0 : TBits_1; inline;
  68482. begin
  68483. getCNPUE0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  68484. end;
  68485. procedure TPORTG_CNPUE.setCNPUE1; inline;
  68486. begin
  68487. pTDefRegMap(@Self)^.&set := $00000002;
  68488. end;
  68489. procedure TPORTG_CNPUE.clearCNPUE1; inline;
  68490. begin
  68491. pTDefRegMap(@Self)^.clr := $00000002;
  68492. end;
  68493. procedure TPORTG_CNPUE.setCNPUE1(thebits : TBits_1); inline;
  68494. begin
  68495. if thebits = 0 then
  68496. pTDefRegMap(@Self)^.clr := $00000002
  68497. else
  68498. pTDefRegMap(@Self)^.&set := $00000002;
  68499. end;
  68500. function TPORTG_CNPUE.getCNPUE1 : TBits_1; inline;
  68501. begin
  68502. getCNPUE1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  68503. end;
  68504. procedure TPORTG_CNPUE.setCNPUE2; inline;
  68505. begin
  68506. pTDefRegMap(@Self)^.&set := $00000004;
  68507. end;
  68508. procedure TPORTG_CNPUE.clearCNPUE2; inline;
  68509. begin
  68510. pTDefRegMap(@Self)^.clr := $00000004;
  68511. end;
  68512. procedure TPORTG_CNPUE.setCNPUE2(thebits : TBits_1); inline;
  68513. begin
  68514. if thebits = 0 then
  68515. pTDefRegMap(@Self)^.clr := $00000004
  68516. else
  68517. pTDefRegMap(@Self)^.&set := $00000004;
  68518. end;
  68519. function TPORTG_CNPUE.getCNPUE2 : TBits_1; inline;
  68520. begin
  68521. getCNPUE2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  68522. end;
  68523. procedure TPORTG_CNPUE.setCNPUE3; inline;
  68524. begin
  68525. pTDefRegMap(@Self)^.&set := $00000008;
  68526. end;
  68527. procedure TPORTG_CNPUE.clearCNPUE3; inline;
  68528. begin
  68529. pTDefRegMap(@Self)^.clr := $00000008;
  68530. end;
  68531. procedure TPORTG_CNPUE.setCNPUE3(thebits : TBits_1); inline;
  68532. begin
  68533. if thebits = 0 then
  68534. pTDefRegMap(@Self)^.clr := $00000008
  68535. else
  68536. pTDefRegMap(@Self)^.&set := $00000008;
  68537. end;
  68538. function TPORTG_CNPUE.getCNPUE3 : TBits_1; inline;
  68539. begin
  68540. getCNPUE3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  68541. end;
  68542. procedure TPORTG_CNPUE.setCNPUE4; inline;
  68543. begin
  68544. pTDefRegMap(@Self)^.&set := $00000010;
  68545. end;
  68546. procedure TPORTG_CNPUE.clearCNPUE4; inline;
  68547. begin
  68548. pTDefRegMap(@Self)^.clr := $00000010;
  68549. end;
  68550. procedure TPORTG_CNPUE.setCNPUE4(thebits : TBits_1); inline;
  68551. begin
  68552. if thebits = 0 then
  68553. pTDefRegMap(@Self)^.clr := $00000010
  68554. else
  68555. pTDefRegMap(@Self)^.&set := $00000010;
  68556. end;
  68557. function TPORTG_CNPUE.getCNPUE4 : TBits_1; inline;
  68558. begin
  68559. getCNPUE4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  68560. end;
  68561. procedure TPORTG_CNPUE.setCNPUE5; inline;
  68562. begin
  68563. pTDefRegMap(@Self)^.&set := $00000020;
  68564. end;
  68565. procedure TPORTG_CNPUE.clearCNPUE5; inline;
  68566. begin
  68567. pTDefRegMap(@Self)^.clr := $00000020;
  68568. end;
  68569. procedure TPORTG_CNPUE.setCNPUE5(thebits : TBits_1); inline;
  68570. begin
  68571. if thebits = 0 then
  68572. pTDefRegMap(@Self)^.clr := $00000020
  68573. else
  68574. pTDefRegMap(@Self)^.&set := $00000020;
  68575. end;
  68576. function TPORTG_CNPUE.getCNPUE5 : TBits_1; inline;
  68577. begin
  68578. getCNPUE5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  68579. end;
  68580. procedure TPORTG_CNPUE.setCNPUE6; inline;
  68581. begin
  68582. pTDefRegMap(@Self)^.&set := $00000040;
  68583. end;
  68584. procedure TPORTG_CNPUE.clearCNPUE6; inline;
  68585. begin
  68586. pTDefRegMap(@Self)^.clr := $00000040;
  68587. end;
  68588. procedure TPORTG_CNPUE.setCNPUE6(thebits : TBits_1); inline;
  68589. begin
  68590. if thebits = 0 then
  68591. pTDefRegMap(@Self)^.clr := $00000040
  68592. else
  68593. pTDefRegMap(@Self)^.&set := $00000040;
  68594. end;
  68595. function TPORTG_CNPUE.getCNPUE6 : TBits_1; inline;
  68596. begin
  68597. getCNPUE6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  68598. end;
  68599. procedure TPORTG_CNPUE.setCNPUE7; inline;
  68600. begin
  68601. pTDefRegMap(@Self)^.&set := $00000080;
  68602. end;
  68603. procedure TPORTG_CNPUE.clearCNPUE7; inline;
  68604. begin
  68605. pTDefRegMap(@Self)^.clr := $00000080;
  68606. end;
  68607. procedure TPORTG_CNPUE.setCNPUE7(thebits : TBits_1); inline;
  68608. begin
  68609. if thebits = 0 then
  68610. pTDefRegMap(@Self)^.clr := $00000080
  68611. else
  68612. pTDefRegMap(@Self)^.&set := $00000080;
  68613. end;
  68614. function TPORTG_CNPUE.getCNPUE7 : TBits_1; inline;
  68615. begin
  68616. getCNPUE7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  68617. end;
  68618. procedure TPORTG_CNPUE.setCNPUE8; inline;
  68619. begin
  68620. pTDefRegMap(@Self)^.&set := $00000100;
  68621. end;
  68622. procedure TPORTG_CNPUE.clearCNPUE8; inline;
  68623. begin
  68624. pTDefRegMap(@Self)^.clr := $00000100;
  68625. end;
  68626. procedure TPORTG_CNPUE.setCNPUE8(thebits : TBits_1); inline;
  68627. begin
  68628. if thebits = 0 then
  68629. pTDefRegMap(@Self)^.clr := $00000100
  68630. else
  68631. pTDefRegMap(@Self)^.&set := $00000100;
  68632. end;
  68633. function TPORTG_CNPUE.getCNPUE8 : TBits_1; inline;
  68634. begin
  68635. getCNPUE8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  68636. end;
  68637. procedure TPORTG_CNPUE.setCNPUE9; inline;
  68638. begin
  68639. pTDefRegMap(@Self)^.&set := $00000200;
  68640. end;
  68641. procedure TPORTG_CNPUE.clearCNPUE9; inline;
  68642. begin
  68643. pTDefRegMap(@Self)^.clr := $00000200;
  68644. end;
  68645. procedure TPORTG_CNPUE.setCNPUE9(thebits : TBits_1); inline;
  68646. begin
  68647. if thebits = 0 then
  68648. pTDefRegMap(@Self)^.clr := $00000200
  68649. else
  68650. pTDefRegMap(@Self)^.&set := $00000200;
  68651. end;
  68652. function TPORTG_CNPUE.getCNPUE9 : TBits_1; inline;
  68653. begin
  68654. getCNPUE9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  68655. end;
  68656. procedure TPORTG_CNPUE.setCNPUE10; inline;
  68657. begin
  68658. pTDefRegMap(@Self)^.&set := $00000400;
  68659. end;
  68660. procedure TPORTG_CNPUE.clearCNPUE10; inline;
  68661. begin
  68662. pTDefRegMap(@Self)^.clr := $00000400;
  68663. end;
  68664. procedure TPORTG_CNPUE.setCNPUE10(thebits : TBits_1); inline;
  68665. begin
  68666. if thebits = 0 then
  68667. pTDefRegMap(@Self)^.clr := $00000400
  68668. else
  68669. pTDefRegMap(@Self)^.&set := $00000400;
  68670. end;
  68671. function TPORTG_CNPUE.getCNPUE10 : TBits_1; inline;
  68672. begin
  68673. getCNPUE10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  68674. end;
  68675. procedure TPORTG_CNPUE.setCNPUE11; inline;
  68676. begin
  68677. pTDefRegMap(@Self)^.&set := $00000800;
  68678. end;
  68679. procedure TPORTG_CNPUE.clearCNPUE11; inline;
  68680. begin
  68681. pTDefRegMap(@Self)^.clr := $00000800;
  68682. end;
  68683. procedure TPORTG_CNPUE.setCNPUE11(thebits : TBits_1); inline;
  68684. begin
  68685. if thebits = 0 then
  68686. pTDefRegMap(@Self)^.clr := $00000800
  68687. else
  68688. pTDefRegMap(@Self)^.&set := $00000800;
  68689. end;
  68690. function TPORTG_CNPUE.getCNPUE11 : TBits_1; inline;
  68691. begin
  68692. getCNPUE11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  68693. end;
  68694. procedure TPORTG_CNPUE.setCNPUE12; inline;
  68695. begin
  68696. pTDefRegMap(@Self)^.&set := $00001000;
  68697. end;
  68698. procedure TPORTG_CNPUE.clearCNPUE12; inline;
  68699. begin
  68700. pTDefRegMap(@Self)^.clr := $00001000;
  68701. end;
  68702. procedure TPORTG_CNPUE.setCNPUE12(thebits : TBits_1); inline;
  68703. begin
  68704. if thebits = 0 then
  68705. pTDefRegMap(@Self)^.clr := $00001000
  68706. else
  68707. pTDefRegMap(@Self)^.&set := $00001000;
  68708. end;
  68709. function TPORTG_CNPUE.getCNPUE12 : TBits_1; inline;
  68710. begin
  68711. getCNPUE12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  68712. end;
  68713. procedure TPORTG_CNPUE.setCNPUE13; inline;
  68714. begin
  68715. pTDefRegMap(@Self)^.&set := $00002000;
  68716. end;
  68717. procedure TPORTG_CNPUE.clearCNPUE13; inline;
  68718. begin
  68719. pTDefRegMap(@Self)^.clr := $00002000;
  68720. end;
  68721. procedure TPORTG_CNPUE.setCNPUE13(thebits : TBits_1); inline;
  68722. begin
  68723. if thebits = 0 then
  68724. pTDefRegMap(@Self)^.clr := $00002000
  68725. else
  68726. pTDefRegMap(@Self)^.&set := $00002000;
  68727. end;
  68728. function TPORTG_CNPUE.getCNPUE13 : TBits_1; inline;
  68729. begin
  68730. getCNPUE13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  68731. end;
  68732. procedure TPORTG_CNPUE.setCNPUE14; inline;
  68733. begin
  68734. pTDefRegMap(@Self)^.&set := $00004000;
  68735. end;
  68736. procedure TPORTG_CNPUE.clearCNPUE14; inline;
  68737. begin
  68738. pTDefRegMap(@Self)^.clr := $00004000;
  68739. end;
  68740. procedure TPORTG_CNPUE.setCNPUE14(thebits : TBits_1); inline;
  68741. begin
  68742. if thebits = 0 then
  68743. pTDefRegMap(@Self)^.clr := $00004000
  68744. else
  68745. pTDefRegMap(@Self)^.&set := $00004000;
  68746. end;
  68747. function TPORTG_CNPUE.getCNPUE14 : TBits_1; inline;
  68748. begin
  68749. getCNPUE14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  68750. end;
  68751. procedure TPORTG_CNPUE.setCNPUE15; inline;
  68752. begin
  68753. pTDefRegMap(@Self)^.&set := $00008000;
  68754. end;
  68755. procedure TPORTG_CNPUE.clearCNPUE15; inline;
  68756. begin
  68757. pTDefRegMap(@Self)^.clr := $00008000;
  68758. end;
  68759. procedure TPORTG_CNPUE.setCNPUE15(thebits : TBits_1); inline;
  68760. begin
  68761. if thebits = 0 then
  68762. pTDefRegMap(@Self)^.clr := $00008000
  68763. else
  68764. pTDefRegMap(@Self)^.&set := $00008000;
  68765. end;
  68766. function TPORTG_CNPUE.getCNPUE15 : TBits_1; inline;
  68767. begin
  68768. getCNPUE15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  68769. end;
  68770. procedure TPORTG_CNPUE.setCNPUE16; inline;
  68771. begin
  68772. pTDefRegMap(@Self)^.&set := $00010000;
  68773. end;
  68774. procedure TPORTG_CNPUE.clearCNPUE16; inline;
  68775. begin
  68776. pTDefRegMap(@Self)^.clr := $00010000;
  68777. end;
  68778. procedure TPORTG_CNPUE.setCNPUE16(thebits : TBits_1); inline;
  68779. begin
  68780. if thebits = 0 then
  68781. pTDefRegMap(@Self)^.clr := $00010000
  68782. else
  68783. pTDefRegMap(@Self)^.&set := $00010000;
  68784. end;
  68785. function TPORTG_CNPUE.getCNPUE16 : TBits_1; inline;
  68786. begin
  68787. getCNPUE16 := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  68788. end;
  68789. procedure TPORTG_CNPUE.setCNPUE17; inline;
  68790. begin
  68791. pTDefRegMap(@Self)^.&set := $00020000;
  68792. end;
  68793. procedure TPORTG_CNPUE.clearCNPUE17; inline;
  68794. begin
  68795. pTDefRegMap(@Self)^.clr := $00020000;
  68796. end;
  68797. procedure TPORTG_CNPUE.setCNPUE17(thebits : TBits_1); inline;
  68798. begin
  68799. if thebits = 0 then
  68800. pTDefRegMap(@Self)^.clr := $00020000
  68801. else
  68802. pTDefRegMap(@Self)^.&set := $00020000;
  68803. end;
  68804. function TPORTG_CNPUE.getCNPUE17 : TBits_1; inline;
  68805. begin
  68806. getCNPUE17 := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  68807. end;
  68808. procedure TPORTG_CNPUE.setCNPUE18; inline;
  68809. begin
  68810. pTDefRegMap(@Self)^.&set := $00040000;
  68811. end;
  68812. procedure TPORTG_CNPUE.clearCNPUE18; inline;
  68813. begin
  68814. pTDefRegMap(@Self)^.clr := $00040000;
  68815. end;
  68816. procedure TPORTG_CNPUE.setCNPUE18(thebits : TBits_1); inline;
  68817. begin
  68818. if thebits = 0 then
  68819. pTDefRegMap(@Self)^.clr := $00040000
  68820. else
  68821. pTDefRegMap(@Self)^.&set := $00040000;
  68822. end;
  68823. function TPORTG_CNPUE.getCNPUE18 : TBits_1; inline;
  68824. begin
  68825. getCNPUE18 := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  68826. end;
  68827. procedure TPORTG_CNPUE.setCNPUE19; inline;
  68828. begin
  68829. pTDefRegMap(@Self)^.&set := $00080000;
  68830. end;
  68831. procedure TPORTG_CNPUE.clearCNPUE19; inline;
  68832. begin
  68833. pTDefRegMap(@Self)^.clr := $00080000;
  68834. end;
  68835. procedure TPORTG_CNPUE.setCNPUE19(thebits : TBits_1); inline;
  68836. begin
  68837. if thebits = 0 then
  68838. pTDefRegMap(@Self)^.clr := $00080000
  68839. else
  68840. pTDefRegMap(@Self)^.&set := $00080000;
  68841. end;
  68842. function TPORTG_CNPUE.getCNPUE19 : TBits_1; inline;
  68843. begin
  68844. getCNPUE19 := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  68845. end;
  68846. procedure TPORTG_CNPUE.setCNPUE20; inline;
  68847. begin
  68848. pTDefRegMap(@Self)^.&set := $00100000;
  68849. end;
  68850. procedure TPORTG_CNPUE.clearCNPUE20; inline;
  68851. begin
  68852. pTDefRegMap(@Self)^.clr := $00100000;
  68853. end;
  68854. procedure TPORTG_CNPUE.setCNPUE20(thebits : TBits_1); inline;
  68855. begin
  68856. if thebits = 0 then
  68857. pTDefRegMap(@Self)^.clr := $00100000
  68858. else
  68859. pTDefRegMap(@Self)^.&set := $00100000;
  68860. end;
  68861. function TPORTG_CNPUE.getCNPUE20 : TBits_1; inline;
  68862. begin
  68863. getCNPUE20 := (pTDefRegMap(@Self)^.val and $00100000) shr 20;
  68864. end;
  68865. procedure TPORTG_CNPUE.setCNPUE21; inline;
  68866. begin
  68867. pTDefRegMap(@Self)^.&set := $00200000;
  68868. end;
  68869. procedure TPORTG_CNPUE.clearCNPUE21; inline;
  68870. begin
  68871. pTDefRegMap(@Self)^.clr := $00200000;
  68872. end;
  68873. procedure TPORTG_CNPUE.setCNPUE21(thebits : TBits_1); inline;
  68874. begin
  68875. if thebits = 0 then
  68876. pTDefRegMap(@Self)^.clr := $00200000
  68877. else
  68878. pTDefRegMap(@Self)^.&set := $00200000;
  68879. end;
  68880. function TPORTG_CNPUE.getCNPUE21 : TBits_1; inline;
  68881. begin
  68882. getCNPUE21 := (pTDefRegMap(@Self)^.val and $00200000) shr 21;
  68883. end;
  68884. procedure TPORTG_CNPUE.setw(thebits : TBits_32); inline;
  68885. begin
  68886. pTDefRegMap(@Self)^.val := thebits;
  68887. end;
  68888. function TPORTG_CNPUE.getw : TBits_32; inline;
  68889. begin
  68890. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  68891. end;
  68892. procedure TCAN1_C1CON.setDNCNT(thebits : TBits_5); inline;
  68893. begin
  68894. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  68895. end;
  68896. function TCAN1_C1CON.getDNCNT : TBits_5; inline;
  68897. begin
  68898. getDNCNT := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  68899. end;
  68900. procedure TCAN1_C1CON.setCANBUSY; inline;
  68901. begin
  68902. pTDefRegMap(@Self)^.&set := $00000800;
  68903. end;
  68904. procedure TCAN1_C1CON.clearCANBUSY; inline;
  68905. begin
  68906. pTDefRegMap(@Self)^.clr := $00000800;
  68907. end;
  68908. procedure TCAN1_C1CON.setCANBUSY(thebits : TBits_1); inline;
  68909. begin
  68910. if thebits = 0 then
  68911. pTDefRegMap(@Self)^.clr := $00000800
  68912. else
  68913. pTDefRegMap(@Self)^.&set := $00000800;
  68914. end;
  68915. function TCAN1_C1CON.getCANBUSY : TBits_1; inline;
  68916. begin
  68917. getCANBUSY := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  68918. end;
  68919. procedure TCAN1_C1CON.setSIDL; inline;
  68920. begin
  68921. pTDefRegMap(@Self)^.&set := $00002000;
  68922. end;
  68923. procedure TCAN1_C1CON.clearSIDL; inline;
  68924. begin
  68925. pTDefRegMap(@Self)^.clr := $00002000;
  68926. end;
  68927. procedure TCAN1_C1CON.setSIDL(thebits : TBits_1); inline;
  68928. begin
  68929. if thebits = 0 then
  68930. pTDefRegMap(@Self)^.clr := $00002000
  68931. else
  68932. pTDefRegMap(@Self)^.&set := $00002000;
  68933. end;
  68934. function TCAN1_C1CON.getSIDL : TBits_1; inline;
  68935. begin
  68936. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  68937. end;
  68938. procedure TCAN1_C1CON.setON; inline;
  68939. begin
  68940. pTDefRegMap(@Self)^.&set := $00008000;
  68941. end;
  68942. procedure TCAN1_C1CON.clearON; inline;
  68943. begin
  68944. pTDefRegMap(@Self)^.clr := $00008000;
  68945. end;
  68946. procedure TCAN1_C1CON.setON(thebits : TBits_1); inline;
  68947. begin
  68948. if thebits = 0 then
  68949. pTDefRegMap(@Self)^.clr := $00008000
  68950. else
  68951. pTDefRegMap(@Self)^.&set := $00008000;
  68952. end;
  68953. function TCAN1_C1CON.getON : TBits_1; inline;
  68954. begin
  68955. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  68956. end;
  68957. procedure TCAN1_C1CON.setCANCAP; inline;
  68958. begin
  68959. pTDefRegMap(@Self)^.&set := $00100000;
  68960. end;
  68961. procedure TCAN1_C1CON.clearCANCAP; inline;
  68962. begin
  68963. pTDefRegMap(@Self)^.clr := $00100000;
  68964. end;
  68965. procedure TCAN1_C1CON.setCANCAP(thebits : TBits_1); inline;
  68966. begin
  68967. if thebits = 0 then
  68968. pTDefRegMap(@Self)^.clr := $00100000
  68969. else
  68970. pTDefRegMap(@Self)^.&set := $00100000;
  68971. end;
  68972. function TCAN1_C1CON.getCANCAP : TBits_1; inline;
  68973. begin
  68974. getCANCAP := (pTDefRegMap(@Self)^.val and $00100000) shr 20;
  68975. end;
  68976. procedure TCAN1_C1CON.setOPMOD(thebits : TBits_3); inline;
  68977. begin
  68978. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF1FFFFF or ( thebits shl 21 );
  68979. end;
  68980. function TCAN1_C1CON.getOPMOD : TBits_3; inline;
  68981. begin
  68982. getOPMOD := (pTDefRegMap(@Self)^.val and $00E00000) shr 21;
  68983. end;
  68984. procedure TCAN1_C1CON.setREQOP(thebits : TBits_3); inline;
  68985. begin
  68986. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $F8FFFFFF or ( thebits shl 24 );
  68987. end;
  68988. function TCAN1_C1CON.getREQOP : TBits_3; inline;
  68989. begin
  68990. getREQOP := (pTDefRegMap(@Self)^.val and $07000000) shr 24;
  68991. end;
  68992. procedure TCAN1_C1CON.setABAT; inline;
  68993. begin
  68994. pTDefRegMap(@Self)^.&set := $08000000;
  68995. end;
  68996. procedure TCAN1_C1CON.clearABAT; inline;
  68997. begin
  68998. pTDefRegMap(@Self)^.clr := $08000000;
  68999. end;
  69000. procedure TCAN1_C1CON.setABAT(thebits : TBits_1); inline;
  69001. begin
  69002. if thebits = 0 then
  69003. pTDefRegMap(@Self)^.clr := $08000000
  69004. else
  69005. pTDefRegMap(@Self)^.&set := $08000000;
  69006. end;
  69007. function TCAN1_C1CON.getABAT : TBits_1; inline;
  69008. begin
  69009. getABAT := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  69010. end;
  69011. procedure TCAN1_C1CON.setw(thebits : TBits_32); inline;
  69012. begin
  69013. pTDefRegMap(@Self)^.val := thebits;
  69014. end;
  69015. function TCAN1_C1CON.getw : TBits_32; inline;
  69016. begin
  69017. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  69018. end;
  69019. procedure TCAN1_C1CFG.setBRP(thebits : TBits_6); inline;
  69020. begin
  69021. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFC0 or ( thebits shl 0 );
  69022. end;
  69023. function TCAN1_C1CFG.getBRP : TBits_6; inline;
  69024. begin
  69025. getBRP := (pTDefRegMap(@Self)^.val and $0000003F) shr 0;
  69026. end;
  69027. procedure TCAN1_C1CFG.setSJW(thebits : TBits_2); inline;
  69028. begin
  69029. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
  69030. end;
  69031. function TCAN1_C1CFG.getSJW : TBits_2; inline;
  69032. begin
  69033. getSJW := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
  69034. end;
  69035. procedure TCAN1_C1CFG.setPRSEG(thebits : TBits_3); inline;
  69036. begin
  69037. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFF8FF or ( thebits shl 8 );
  69038. end;
  69039. function TCAN1_C1CFG.getPRSEG : TBits_3; inline;
  69040. begin
  69041. getPRSEG := (pTDefRegMap(@Self)^.val and $00000700) shr 8;
  69042. end;
  69043. procedure TCAN1_C1CFG.setSEG1PH(thebits : TBits_3); inline;
  69044. begin
  69045. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFC7FF or ( thebits shl 11 );
  69046. end;
  69047. function TCAN1_C1CFG.getSEG1PH : TBits_3; inline;
  69048. begin
  69049. getSEG1PH := (pTDefRegMap(@Self)^.val and $00003800) shr 11;
  69050. end;
  69051. procedure TCAN1_C1CFG.setSAM; inline;
  69052. begin
  69053. pTDefRegMap(@Self)^.&set := $00004000;
  69054. end;
  69055. procedure TCAN1_C1CFG.clearSAM; inline;
  69056. begin
  69057. pTDefRegMap(@Self)^.clr := $00004000;
  69058. end;
  69059. procedure TCAN1_C1CFG.setSAM(thebits : TBits_1); inline;
  69060. begin
  69061. if thebits = 0 then
  69062. pTDefRegMap(@Self)^.clr := $00004000
  69063. else
  69064. pTDefRegMap(@Self)^.&set := $00004000;
  69065. end;
  69066. function TCAN1_C1CFG.getSAM : TBits_1; inline;
  69067. begin
  69068. getSAM := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  69069. end;
  69070. procedure TCAN1_C1CFG.setSEG2PHTS; inline;
  69071. begin
  69072. pTDefRegMap(@Self)^.&set := $00008000;
  69073. end;
  69074. procedure TCAN1_C1CFG.clearSEG2PHTS; inline;
  69075. begin
  69076. pTDefRegMap(@Self)^.clr := $00008000;
  69077. end;
  69078. procedure TCAN1_C1CFG.setSEG2PHTS(thebits : TBits_1); inline;
  69079. begin
  69080. if thebits = 0 then
  69081. pTDefRegMap(@Self)^.clr := $00008000
  69082. else
  69083. pTDefRegMap(@Self)^.&set := $00008000;
  69084. end;
  69085. function TCAN1_C1CFG.getSEG2PHTS : TBits_1; inline;
  69086. begin
  69087. getSEG2PHTS := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  69088. end;
  69089. procedure TCAN1_C1CFG.setSEG2PH(thebits : TBits_3); inline;
  69090. begin
  69091. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFF8FFFF or ( thebits shl 16 );
  69092. end;
  69093. function TCAN1_C1CFG.getSEG2PH : TBits_3; inline;
  69094. begin
  69095. getSEG2PH := (pTDefRegMap(@Self)^.val and $00070000) shr 16;
  69096. end;
  69097. procedure TCAN1_C1CFG.setWAKFIL; inline;
  69098. begin
  69099. pTDefRegMap(@Self)^.&set := $00400000;
  69100. end;
  69101. procedure TCAN1_C1CFG.clearWAKFIL; inline;
  69102. begin
  69103. pTDefRegMap(@Self)^.clr := $00400000;
  69104. end;
  69105. procedure TCAN1_C1CFG.setWAKFIL(thebits : TBits_1); inline;
  69106. begin
  69107. if thebits = 0 then
  69108. pTDefRegMap(@Self)^.clr := $00400000
  69109. else
  69110. pTDefRegMap(@Self)^.&set := $00400000;
  69111. end;
  69112. function TCAN1_C1CFG.getWAKFIL : TBits_1; inline;
  69113. begin
  69114. getWAKFIL := (pTDefRegMap(@Self)^.val and $00400000) shr 22;
  69115. end;
  69116. procedure TCAN1_C1CFG.setw(thebits : TBits_32); inline;
  69117. begin
  69118. pTDefRegMap(@Self)^.val := thebits;
  69119. end;
  69120. function TCAN1_C1CFG.getw : TBits_32; inline;
  69121. begin
  69122. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  69123. end;
  69124. procedure TCAN1_C1INT.setTBIF; inline;
  69125. begin
  69126. pTDefRegMap(@Self)^.&set := $00000001;
  69127. end;
  69128. procedure TCAN1_C1INT.clearTBIF; inline;
  69129. begin
  69130. pTDefRegMap(@Self)^.clr := $00000001;
  69131. end;
  69132. procedure TCAN1_C1INT.setTBIF(thebits : TBits_1); inline;
  69133. begin
  69134. if thebits = 0 then
  69135. pTDefRegMap(@Self)^.clr := $00000001
  69136. else
  69137. pTDefRegMap(@Self)^.&set := $00000001;
  69138. end;
  69139. function TCAN1_C1INT.getTBIF : TBits_1; inline;
  69140. begin
  69141. getTBIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  69142. end;
  69143. procedure TCAN1_C1INT.setRBIF; inline;
  69144. begin
  69145. pTDefRegMap(@Self)^.&set := $00000002;
  69146. end;
  69147. procedure TCAN1_C1INT.clearRBIF; inline;
  69148. begin
  69149. pTDefRegMap(@Self)^.clr := $00000002;
  69150. end;
  69151. procedure TCAN1_C1INT.setRBIF(thebits : TBits_1); inline;
  69152. begin
  69153. if thebits = 0 then
  69154. pTDefRegMap(@Self)^.clr := $00000002
  69155. else
  69156. pTDefRegMap(@Self)^.&set := $00000002;
  69157. end;
  69158. function TCAN1_C1INT.getRBIF : TBits_1; inline;
  69159. begin
  69160. getRBIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  69161. end;
  69162. procedure TCAN1_C1INT.setCTMRIF; inline;
  69163. begin
  69164. pTDefRegMap(@Self)^.&set := $00000004;
  69165. end;
  69166. procedure TCAN1_C1INT.clearCTMRIF; inline;
  69167. begin
  69168. pTDefRegMap(@Self)^.clr := $00000004;
  69169. end;
  69170. procedure TCAN1_C1INT.setCTMRIF(thebits : TBits_1); inline;
  69171. begin
  69172. if thebits = 0 then
  69173. pTDefRegMap(@Self)^.clr := $00000004
  69174. else
  69175. pTDefRegMap(@Self)^.&set := $00000004;
  69176. end;
  69177. function TCAN1_C1INT.getCTMRIF : TBits_1; inline;
  69178. begin
  69179. getCTMRIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  69180. end;
  69181. procedure TCAN1_C1INT.setMODIF; inline;
  69182. begin
  69183. pTDefRegMap(@Self)^.&set := $00000008;
  69184. end;
  69185. procedure TCAN1_C1INT.clearMODIF; inline;
  69186. begin
  69187. pTDefRegMap(@Self)^.clr := $00000008;
  69188. end;
  69189. procedure TCAN1_C1INT.setMODIF(thebits : TBits_1); inline;
  69190. begin
  69191. if thebits = 0 then
  69192. pTDefRegMap(@Self)^.clr := $00000008
  69193. else
  69194. pTDefRegMap(@Self)^.&set := $00000008;
  69195. end;
  69196. function TCAN1_C1INT.getMODIF : TBits_1; inline;
  69197. begin
  69198. getMODIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  69199. end;
  69200. procedure TCAN1_C1INT.setRBOVIF; inline;
  69201. begin
  69202. pTDefRegMap(@Self)^.&set := $00000800;
  69203. end;
  69204. procedure TCAN1_C1INT.clearRBOVIF; inline;
  69205. begin
  69206. pTDefRegMap(@Self)^.clr := $00000800;
  69207. end;
  69208. procedure TCAN1_C1INT.setRBOVIF(thebits : TBits_1); inline;
  69209. begin
  69210. if thebits = 0 then
  69211. pTDefRegMap(@Self)^.clr := $00000800
  69212. else
  69213. pTDefRegMap(@Self)^.&set := $00000800;
  69214. end;
  69215. function TCAN1_C1INT.getRBOVIF : TBits_1; inline;
  69216. begin
  69217. getRBOVIF := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  69218. end;
  69219. procedure TCAN1_C1INT.setSERRIF; inline;
  69220. begin
  69221. pTDefRegMap(@Self)^.&set := $00001000;
  69222. end;
  69223. procedure TCAN1_C1INT.clearSERRIF; inline;
  69224. begin
  69225. pTDefRegMap(@Self)^.clr := $00001000;
  69226. end;
  69227. procedure TCAN1_C1INT.setSERRIF(thebits : TBits_1); inline;
  69228. begin
  69229. if thebits = 0 then
  69230. pTDefRegMap(@Self)^.clr := $00001000
  69231. else
  69232. pTDefRegMap(@Self)^.&set := $00001000;
  69233. end;
  69234. function TCAN1_C1INT.getSERRIF : TBits_1; inline;
  69235. begin
  69236. getSERRIF := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  69237. end;
  69238. procedure TCAN1_C1INT.setCERRIF; inline;
  69239. begin
  69240. pTDefRegMap(@Self)^.&set := $00002000;
  69241. end;
  69242. procedure TCAN1_C1INT.clearCERRIF; inline;
  69243. begin
  69244. pTDefRegMap(@Self)^.clr := $00002000;
  69245. end;
  69246. procedure TCAN1_C1INT.setCERRIF(thebits : TBits_1); inline;
  69247. begin
  69248. if thebits = 0 then
  69249. pTDefRegMap(@Self)^.clr := $00002000
  69250. else
  69251. pTDefRegMap(@Self)^.&set := $00002000;
  69252. end;
  69253. function TCAN1_C1INT.getCERRIF : TBits_1; inline;
  69254. begin
  69255. getCERRIF := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  69256. end;
  69257. procedure TCAN1_C1INT.setWAKIF; inline;
  69258. begin
  69259. pTDefRegMap(@Self)^.&set := $00004000;
  69260. end;
  69261. procedure TCAN1_C1INT.clearWAKIF; inline;
  69262. begin
  69263. pTDefRegMap(@Self)^.clr := $00004000;
  69264. end;
  69265. procedure TCAN1_C1INT.setWAKIF(thebits : TBits_1); inline;
  69266. begin
  69267. if thebits = 0 then
  69268. pTDefRegMap(@Self)^.clr := $00004000
  69269. else
  69270. pTDefRegMap(@Self)^.&set := $00004000;
  69271. end;
  69272. function TCAN1_C1INT.getWAKIF : TBits_1; inline;
  69273. begin
  69274. getWAKIF := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  69275. end;
  69276. procedure TCAN1_C1INT.setIVRIF; inline;
  69277. begin
  69278. pTDefRegMap(@Self)^.&set := $00008000;
  69279. end;
  69280. procedure TCAN1_C1INT.clearIVRIF; inline;
  69281. begin
  69282. pTDefRegMap(@Self)^.clr := $00008000;
  69283. end;
  69284. procedure TCAN1_C1INT.setIVRIF(thebits : TBits_1); inline;
  69285. begin
  69286. if thebits = 0 then
  69287. pTDefRegMap(@Self)^.clr := $00008000
  69288. else
  69289. pTDefRegMap(@Self)^.&set := $00008000;
  69290. end;
  69291. function TCAN1_C1INT.getIVRIF : TBits_1; inline;
  69292. begin
  69293. getIVRIF := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  69294. end;
  69295. procedure TCAN1_C1INT.setTBIE; inline;
  69296. begin
  69297. pTDefRegMap(@Self)^.&set := $00010000;
  69298. end;
  69299. procedure TCAN1_C1INT.clearTBIE; inline;
  69300. begin
  69301. pTDefRegMap(@Self)^.clr := $00010000;
  69302. end;
  69303. procedure TCAN1_C1INT.setTBIE(thebits : TBits_1); inline;
  69304. begin
  69305. if thebits = 0 then
  69306. pTDefRegMap(@Self)^.clr := $00010000
  69307. else
  69308. pTDefRegMap(@Self)^.&set := $00010000;
  69309. end;
  69310. function TCAN1_C1INT.getTBIE : TBits_1; inline;
  69311. begin
  69312. getTBIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  69313. end;
  69314. procedure TCAN1_C1INT.setRBIE; inline;
  69315. begin
  69316. pTDefRegMap(@Self)^.&set := $00020000;
  69317. end;
  69318. procedure TCAN1_C1INT.clearRBIE; inline;
  69319. begin
  69320. pTDefRegMap(@Self)^.clr := $00020000;
  69321. end;
  69322. procedure TCAN1_C1INT.setRBIE(thebits : TBits_1); inline;
  69323. begin
  69324. if thebits = 0 then
  69325. pTDefRegMap(@Self)^.clr := $00020000
  69326. else
  69327. pTDefRegMap(@Self)^.&set := $00020000;
  69328. end;
  69329. function TCAN1_C1INT.getRBIE : TBits_1; inline;
  69330. begin
  69331. getRBIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  69332. end;
  69333. procedure TCAN1_C1INT.setCTMRIE; inline;
  69334. begin
  69335. pTDefRegMap(@Self)^.&set := $00040000;
  69336. end;
  69337. procedure TCAN1_C1INT.clearCTMRIE; inline;
  69338. begin
  69339. pTDefRegMap(@Self)^.clr := $00040000;
  69340. end;
  69341. procedure TCAN1_C1INT.setCTMRIE(thebits : TBits_1); inline;
  69342. begin
  69343. if thebits = 0 then
  69344. pTDefRegMap(@Self)^.clr := $00040000
  69345. else
  69346. pTDefRegMap(@Self)^.&set := $00040000;
  69347. end;
  69348. function TCAN1_C1INT.getCTMRIE : TBits_1; inline;
  69349. begin
  69350. getCTMRIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  69351. end;
  69352. procedure TCAN1_C1INT.setMODIE; inline;
  69353. begin
  69354. pTDefRegMap(@Self)^.&set := $00080000;
  69355. end;
  69356. procedure TCAN1_C1INT.clearMODIE; inline;
  69357. begin
  69358. pTDefRegMap(@Self)^.clr := $00080000;
  69359. end;
  69360. procedure TCAN1_C1INT.setMODIE(thebits : TBits_1); inline;
  69361. begin
  69362. if thebits = 0 then
  69363. pTDefRegMap(@Self)^.clr := $00080000
  69364. else
  69365. pTDefRegMap(@Self)^.&set := $00080000;
  69366. end;
  69367. function TCAN1_C1INT.getMODIE : TBits_1; inline;
  69368. begin
  69369. getMODIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  69370. end;
  69371. procedure TCAN1_C1INT.setRBOVIE; inline;
  69372. begin
  69373. pTDefRegMap(@Self)^.&set := $08000000;
  69374. end;
  69375. procedure TCAN1_C1INT.clearRBOVIE; inline;
  69376. begin
  69377. pTDefRegMap(@Self)^.clr := $08000000;
  69378. end;
  69379. procedure TCAN1_C1INT.setRBOVIE(thebits : TBits_1); inline;
  69380. begin
  69381. if thebits = 0 then
  69382. pTDefRegMap(@Self)^.clr := $08000000
  69383. else
  69384. pTDefRegMap(@Self)^.&set := $08000000;
  69385. end;
  69386. function TCAN1_C1INT.getRBOVIE : TBits_1; inline;
  69387. begin
  69388. getRBOVIE := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  69389. end;
  69390. procedure TCAN1_C1INT.setSERRIE; inline;
  69391. begin
  69392. pTDefRegMap(@Self)^.&set := $10000000;
  69393. end;
  69394. procedure TCAN1_C1INT.clearSERRIE; inline;
  69395. begin
  69396. pTDefRegMap(@Self)^.clr := $10000000;
  69397. end;
  69398. procedure TCAN1_C1INT.setSERRIE(thebits : TBits_1); inline;
  69399. begin
  69400. if thebits = 0 then
  69401. pTDefRegMap(@Self)^.clr := $10000000
  69402. else
  69403. pTDefRegMap(@Self)^.&set := $10000000;
  69404. end;
  69405. function TCAN1_C1INT.getSERRIE : TBits_1; inline;
  69406. begin
  69407. getSERRIE := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  69408. end;
  69409. procedure TCAN1_C1INT.setCERRIE; inline;
  69410. begin
  69411. pTDefRegMap(@Self)^.&set := $20000000;
  69412. end;
  69413. procedure TCAN1_C1INT.clearCERRIE; inline;
  69414. begin
  69415. pTDefRegMap(@Self)^.clr := $20000000;
  69416. end;
  69417. procedure TCAN1_C1INT.setCERRIE(thebits : TBits_1); inline;
  69418. begin
  69419. if thebits = 0 then
  69420. pTDefRegMap(@Self)^.clr := $20000000
  69421. else
  69422. pTDefRegMap(@Self)^.&set := $20000000;
  69423. end;
  69424. function TCAN1_C1INT.getCERRIE : TBits_1; inline;
  69425. begin
  69426. getCERRIE := (pTDefRegMap(@Self)^.val and $20000000) shr 29;
  69427. end;
  69428. procedure TCAN1_C1INT.setWAKIE; inline;
  69429. begin
  69430. pTDefRegMap(@Self)^.&set := $40000000;
  69431. end;
  69432. procedure TCAN1_C1INT.clearWAKIE; inline;
  69433. begin
  69434. pTDefRegMap(@Self)^.clr := $40000000;
  69435. end;
  69436. procedure TCAN1_C1INT.setWAKIE(thebits : TBits_1); inline;
  69437. begin
  69438. if thebits = 0 then
  69439. pTDefRegMap(@Self)^.clr := $40000000
  69440. else
  69441. pTDefRegMap(@Self)^.&set := $40000000;
  69442. end;
  69443. function TCAN1_C1INT.getWAKIE : TBits_1; inline;
  69444. begin
  69445. getWAKIE := (pTDefRegMap(@Self)^.val and $40000000) shr 30;
  69446. end;
  69447. procedure TCAN1_C1INT.setIVRIE; inline;
  69448. begin
  69449. pTDefRegMap(@Self)^.&set := $80000000;
  69450. end;
  69451. procedure TCAN1_C1INT.clearIVRIE; inline;
  69452. begin
  69453. pTDefRegMap(@Self)^.clr := $80000000;
  69454. end;
  69455. procedure TCAN1_C1INT.setIVRIE(thebits : TBits_1); inline;
  69456. begin
  69457. if thebits = 0 then
  69458. pTDefRegMap(@Self)^.clr := $80000000
  69459. else
  69460. pTDefRegMap(@Self)^.&set := $80000000;
  69461. end;
  69462. function TCAN1_C1INT.getIVRIE : TBits_1; inline;
  69463. begin
  69464. getIVRIE := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  69465. end;
  69466. procedure TCAN1_C1INT.setw(thebits : TBits_32); inline;
  69467. begin
  69468. pTDefRegMap(@Self)^.val := thebits;
  69469. end;
  69470. function TCAN1_C1INT.getw : TBits_32; inline;
  69471. begin
  69472. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  69473. end;
  69474. procedure TCAN1_C1VEC.setICODE(thebits : TBits_7); inline;
  69475. begin
  69476. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF80 or ( thebits shl 0 );
  69477. end;
  69478. function TCAN1_C1VEC.getICODE : TBits_7; inline;
  69479. begin
  69480. getICODE := (pTDefRegMap(@Self)^.val and $0000007F) shr 0;
  69481. end;
  69482. procedure TCAN1_C1VEC.setFILHIT(thebits : TBits_5); inline;
  69483. begin
  69484. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE0FF or ( thebits shl 8 );
  69485. end;
  69486. function TCAN1_C1VEC.getFILHIT : TBits_5; inline;
  69487. begin
  69488. getFILHIT := (pTDefRegMap(@Self)^.val and $00001F00) shr 8;
  69489. end;
  69490. procedure TCAN1_C1VEC.setw(thebits : TBits_32); inline;
  69491. begin
  69492. pTDefRegMap(@Self)^.val := thebits;
  69493. end;
  69494. function TCAN1_C1VEC.getw : TBits_32; inline;
  69495. begin
  69496. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  69497. end;
  69498. procedure TCAN1_C1TREC.setRERRCNT(thebits : TBits_8); inline;
  69499. begin
  69500. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF00 or ( thebits shl 0 );
  69501. end;
  69502. function TCAN1_C1TREC.getRERRCNT : TBits_8; inline;
  69503. begin
  69504. getRERRCNT := (pTDefRegMap(@Self)^.val and $000000FF) shr 0;
  69505. end;
  69506. procedure TCAN1_C1TREC.setTERRCNT(thebits : TBits_8); inline;
  69507. begin
  69508. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF00FF or ( thebits shl 8 );
  69509. end;
  69510. function TCAN1_C1TREC.getTERRCNT : TBits_8; inline;
  69511. begin
  69512. getTERRCNT := (pTDefRegMap(@Self)^.val and $0000FF00) shr 8;
  69513. end;
  69514. procedure TCAN1_C1TREC.setEWARN; inline;
  69515. begin
  69516. pTDefRegMap(@Self)^.&set := $00010000;
  69517. end;
  69518. procedure TCAN1_C1TREC.clearEWARN; inline;
  69519. begin
  69520. pTDefRegMap(@Self)^.clr := $00010000;
  69521. end;
  69522. procedure TCAN1_C1TREC.setEWARN(thebits : TBits_1); inline;
  69523. begin
  69524. if thebits = 0 then
  69525. pTDefRegMap(@Self)^.clr := $00010000
  69526. else
  69527. pTDefRegMap(@Self)^.&set := $00010000;
  69528. end;
  69529. function TCAN1_C1TREC.getEWARN : TBits_1; inline;
  69530. begin
  69531. getEWARN := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  69532. end;
  69533. procedure TCAN1_C1TREC.setRXWARN; inline;
  69534. begin
  69535. pTDefRegMap(@Self)^.&set := $00020000;
  69536. end;
  69537. procedure TCAN1_C1TREC.clearRXWARN; inline;
  69538. begin
  69539. pTDefRegMap(@Self)^.clr := $00020000;
  69540. end;
  69541. procedure TCAN1_C1TREC.setRXWARN(thebits : TBits_1); inline;
  69542. begin
  69543. if thebits = 0 then
  69544. pTDefRegMap(@Self)^.clr := $00020000
  69545. else
  69546. pTDefRegMap(@Self)^.&set := $00020000;
  69547. end;
  69548. function TCAN1_C1TREC.getRXWARN : TBits_1; inline;
  69549. begin
  69550. getRXWARN := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  69551. end;
  69552. procedure TCAN1_C1TREC.setTXWARN; inline;
  69553. begin
  69554. pTDefRegMap(@Self)^.&set := $00040000;
  69555. end;
  69556. procedure TCAN1_C1TREC.clearTXWARN; inline;
  69557. begin
  69558. pTDefRegMap(@Self)^.clr := $00040000;
  69559. end;
  69560. procedure TCAN1_C1TREC.setTXWARN(thebits : TBits_1); inline;
  69561. begin
  69562. if thebits = 0 then
  69563. pTDefRegMap(@Self)^.clr := $00040000
  69564. else
  69565. pTDefRegMap(@Self)^.&set := $00040000;
  69566. end;
  69567. function TCAN1_C1TREC.getTXWARN : TBits_1; inline;
  69568. begin
  69569. getTXWARN := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  69570. end;
  69571. procedure TCAN1_C1TREC.setRXBP; inline;
  69572. begin
  69573. pTDefRegMap(@Self)^.&set := $00080000;
  69574. end;
  69575. procedure TCAN1_C1TREC.clearRXBP; inline;
  69576. begin
  69577. pTDefRegMap(@Self)^.clr := $00080000;
  69578. end;
  69579. procedure TCAN1_C1TREC.setRXBP(thebits : TBits_1); inline;
  69580. begin
  69581. if thebits = 0 then
  69582. pTDefRegMap(@Self)^.clr := $00080000
  69583. else
  69584. pTDefRegMap(@Self)^.&set := $00080000;
  69585. end;
  69586. function TCAN1_C1TREC.getRXBP : TBits_1; inline;
  69587. begin
  69588. getRXBP := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  69589. end;
  69590. procedure TCAN1_C1TREC.setTXBP; inline;
  69591. begin
  69592. pTDefRegMap(@Self)^.&set := $00100000;
  69593. end;
  69594. procedure TCAN1_C1TREC.clearTXBP; inline;
  69595. begin
  69596. pTDefRegMap(@Self)^.clr := $00100000;
  69597. end;
  69598. procedure TCAN1_C1TREC.setTXBP(thebits : TBits_1); inline;
  69599. begin
  69600. if thebits = 0 then
  69601. pTDefRegMap(@Self)^.clr := $00100000
  69602. else
  69603. pTDefRegMap(@Self)^.&set := $00100000;
  69604. end;
  69605. function TCAN1_C1TREC.getTXBP : TBits_1; inline;
  69606. begin
  69607. getTXBP := (pTDefRegMap(@Self)^.val and $00100000) shr 20;
  69608. end;
  69609. procedure TCAN1_C1TREC.setTXBO; inline;
  69610. begin
  69611. pTDefRegMap(@Self)^.&set := $00200000;
  69612. end;
  69613. procedure TCAN1_C1TREC.clearTXBO; inline;
  69614. begin
  69615. pTDefRegMap(@Self)^.clr := $00200000;
  69616. end;
  69617. procedure TCAN1_C1TREC.setTXBO(thebits : TBits_1); inline;
  69618. begin
  69619. if thebits = 0 then
  69620. pTDefRegMap(@Self)^.clr := $00200000
  69621. else
  69622. pTDefRegMap(@Self)^.&set := $00200000;
  69623. end;
  69624. function TCAN1_C1TREC.getTXBO : TBits_1; inline;
  69625. begin
  69626. getTXBO := (pTDefRegMap(@Self)^.val and $00200000) shr 21;
  69627. end;
  69628. procedure TCAN1_C1TREC.setw(thebits : TBits_32); inline;
  69629. begin
  69630. pTDefRegMap(@Self)^.val := thebits;
  69631. end;
  69632. function TCAN1_C1TREC.getw : TBits_32; inline;
  69633. begin
  69634. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  69635. end;
  69636. procedure TCAN1_C1FSTAT.setFIFOIP(thebits : TBits_32); inline;
  69637. begin
  69638. pTDefRegMap(@Self)^.val := thebits;
  69639. end;
  69640. function TCAN1_C1FSTAT.getFIFOIP : TBits_32; inline;
  69641. begin
  69642. getFIFOIP := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  69643. end;
  69644. procedure TCAN1_C1FSTAT.setFIFOIP0; inline;
  69645. begin
  69646. pTDefRegMap(@Self)^.&set := $00000001;
  69647. end;
  69648. procedure TCAN1_C1FSTAT.clearFIFOIP0; inline;
  69649. begin
  69650. pTDefRegMap(@Self)^.clr := $00000001;
  69651. end;
  69652. procedure TCAN1_C1FSTAT.setFIFOIP0(thebits : TBits_1); inline;
  69653. begin
  69654. if thebits = 0 then
  69655. pTDefRegMap(@Self)^.clr := $00000001
  69656. else
  69657. pTDefRegMap(@Self)^.&set := $00000001;
  69658. end;
  69659. function TCAN1_C1FSTAT.getFIFOIP0 : TBits_1; inline;
  69660. begin
  69661. getFIFOIP0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  69662. end;
  69663. procedure TCAN1_C1FSTAT.setFIFOIP1; inline;
  69664. begin
  69665. pTDefRegMap(@Self)^.&set := $00000002;
  69666. end;
  69667. procedure TCAN1_C1FSTAT.clearFIFOIP1; inline;
  69668. begin
  69669. pTDefRegMap(@Self)^.clr := $00000002;
  69670. end;
  69671. procedure TCAN1_C1FSTAT.setFIFOIP1(thebits : TBits_1); inline;
  69672. begin
  69673. if thebits = 0 then
  69674. pTDefRegMap(@Self)^.clr := $00000002
  69675. else
  69676. pTDefRegMap(@Self)^.&set := $00000002;
  69677. end;
  69678. function TCAN1_C1FSTAT.getFIFOIP1 : TBits_1; inline;
  69679. begin
  69680. getFIFOIP1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  69681. end;
  69682. procedure TCAN1_C1FSTAT.setFIFOIP2; inline;
  69683. begin
  69684. pTDefRegMap(@Self)^.&set := $00000004;
  69685. end;
  69686. procedure TCAN1_C1FSTAT.clearFIFOIP2; inline;
  69687. begin
  69688. pTDefRegMap(@Self)^.clr := $00000004;
  69689. end;
  69690. procedure TCAN1_C1FSTAT.setFIFOIP2(thebits : TBits_1); inline;
  69691. begin
  69692. if thebits = 0 then
  69693. pTDefRegMap(@Self)^.clr := $00000004
  69694. else
  69695. pTDefRegMap(@Self)^.&set := $00000004;
  69696. end;
  69697. function TCAN1_C1FSTAT.getFIFOIP2 : TBits_1; inline;
  69698. begin
  69699. getFIFOIP2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  69700. end;
  69701. procedure TCAN1_C1FSTAT.setFIFOIP3; inline;
  69702. begin
  69703. pTDefRegMap(@Self)^.&set := $00000008;
  69704. end;
  69705. procedure TCAN1_C1FSTAT.clearFIFOIP3; inline;
  69706. begin
  69707. pTDefRegMap(@Self)^.clr := $00000008;
  69708. end;
  69709. procedure TCAN1_C1FSTAT.setFIFOIP3(thebits : TBits_1); inline;
  69710. begin
  69711. if thebits = 0 then
  69712. pTDefRegMap(@Self)^.clr := $00000008
  69713. else
  69714. pTDefRegMap(@Self)^.&set := $00000008;
  69715. end;
  69716. function TCAN1_C1FSTAT.getFIFOIP3 : TBits_1; inline;
  69717. begin
  69718. getFIFOIP3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  69719. end;
  69720. procedure TCAN1_C1FSTAT.setFIFOIP4; inline;
  69721. begin
  69722. pTDefRegMap(@Self)^.&set := $00000010;
  69723. end;
  69724. procedure TCAN1_C1FSTAT.clearFIFOIP4; inline;
  69725. begin
  69726. pTDefRegMap(@Self)^.clr := $00000010;
  69727. end;
  69728. procedure TCAN1_C1FSTAT.setFIFOIP4(thebits : TBits_1); inline;
  69729. begin
  69730. if thebits = 0 then
  69731. pTDefRegMap(@Self)^.clr := $00000010
  69732. else
  69733. pTDefRegMap(@Self)^.&set := $00000010;
  69734. end;
  69735. function TCAN1_C1FSTAT.getFIFOIP4 : TBits_1; inline;
  69736. begin
  69737. getFIFOIP4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  69738. end;
  69739. procedure TCAN1_C1FSTAT.setFIFOIP5; inline;
  69740. begin
  69741. pTDefRegMap(@Self)^.&set := $00000020;
  69742. end;
  69743. procedure TCAN1_C1FSTAT.clearFIFOIP5; inline;
  69744. begin
  69745. pTDefRegMap(@Self)^.clr := $00000020;
  69746. end;
  69747. procedure TCAN1_C1FSTAT.setFIFOIP5(thebits : TBits_1); inline;
  69748. begin
  69749. if thebits = 0 then
  69750. pTDefRegMap(@Self)^.clr := $00000020
  69751. else
  69752. pTDefRegMap(@Self)^.&set := $00000020;
  69753. end;
  69754. function TCAN1_C1FSTAT.getFIFOIP5 : TBits_1; inline;
  69755. begin
  69756. getFIFOIP5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  69757. end;
  69758. procedure TCAN1_C1FSTAT.setFIFOIP6; inline;
  69759. begin
  69760. pTDefRegMap(@Self)^.&set := $00000040;
  69761. end;
  69762. procedure TCAN1_C1FSTAT.clearFIFOIP6; inline;
  69763. begin
  69764. pTDefRegMap(@Self)^.clr := $00000040;
  69765. end;
  69766. procedure TCAN1_C1FSTAT.setFIFOIP6(thebits : TBits_1); inline;
  69767. begin
  69768. if thebits = 0 then
  69769. pTDefRegMap(@Self)^.clr := $00000040
  69770. else
  69771. pTDefRegMap(@Self)^.&set := $00000040;
  69772. end;
  69773. function TCAN1_C1FSTAT.getFIFOIP6 : TBits_1; inline;
  69774. begin
  69775. getFIFOIP6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  69776. end;
  69777. procedure TCAN1_C1FSTAT.setFIFOIP7; inline;
  69778. begin
  69779. pTDefRegMap(@Self)^.&set := $00000080;
  69780. end;
  69781. procedure TCAN1_C1FSTAT.clearFIFOIP7; inline;
  69782. begin
  69783. pTDefRegMap(@Self)^.clr := $00000080;
  69784. end;
  69785. procedure TCAN1_C1FSTAT.setFIFOIP7(thebits : TBits_1); inline;
  69786. begin
  69787. if thebits = 0 then
  69788. pTDefRegMap(@Self)^.clr := $00000080
  69789. else
  69790. pTDefRegMap(@Self)^.&set := $00000080;
  69791. end;
  69792. function TCAN1_C1FSTAT.getFIFOIP7 : TBits_1; inline;
  69793. begin
  69794. getFIFOIP7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  69795. end;
  69796. procedure TCAN1_C1FSTAT.setFIFOIP8; inline;
  69797. begin
  69798. pTDefRegMap(@Self)^.&set := $00000100;
  69799. end;
  69800. procedure TCAN1_C1FSTAT.clearFIFOIP8; inline;
  69801. begin
  69802. pTDefRegMap(@Self)^.clr := $00000100;
  69803. end;
  69804. procedure TCAN1_C1FSTAT.setFIFOIP8(thebits : TBits_1); inline;
  69805. begin
  69806. if thebits = 0 then
  69807. pTDefRegMap(@Self)^.clr := $00000100
  69808. else
  69809. pTDefRegMap(@Self)^.&set := $00000100;
  69810. end;
  69811. function TCAN1_C1FSTAT.getFIFOIP8 : TBits_1; inline;
  69812. begin
  69813. getFIFOIP8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  69814. end;
  69815. procedure TCAN1_C1FSTAT.setFIFOIP9; inline;
  69816. begin
  69817. pTDefRegMap(@Self)^.&set := $00000200;
  69818. end;
  69819. procedure TCAN1_C1FSTAT.clearFIFOIP9; inline;
  69820. begin
  69821. pTDefRegMap(@Self)^.clr := $00000200;
  69822. end;
  69823. procedure TCAN1_C1FSTAT.setFIFOIP9(thebits : TBits_1); inline;
  69824. begin
  69825. if thebits = 0 then
  69826. pTDefRegMap(@Self)^.clr := $00000200
  69827. else
  69828. pTDefRegMap(@Self)^.&set := $00000200;
  69829. end;
  69830. function TCAN1_C1FSTAT.getFIFOIP9 : TBits_1; inline;
  69831. begin
  69832. getFIFOIP9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  69833. end;
  69834. procedure TCAN1_C1FSTAT.setFIFOIP10; inline;
  69835. begin
  69836. pTDefRegMap(@Self)^.&set := $00000400;
  69837. end;
  69838. procedure TCAN1_C1FSTAT.clearFIFOIP10; inline;
  69839. begin
  69840. pTDefRegMap(@Self)^.clr := $00000400;
  69841. end;
  69842. procedure TCAN1_C1FSTAT.setFIFOIP10(thebits : TBits_1); inline;
  69843. begin
  69844. if thebits = 0 then
  69845. pTDefRegMap(@Self)^.clr := $00000400
  69846. else
  69847. pTDefRegMap(@Self)^.&set := $00000400;
  69848. end;
  69849. function TCAN1_C1FSTAT.getFIFOIP10 : TBits_1; inline;
  69850. begin
  69851. getFIFOIP10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  69852. end;
  69853. procedure TCAN1_C1FSTAT.setFIFOIP11; inline;
  69854. begin
  69855. pTDefRegMap(@Self)^.&set := $00000800;
  69856. end;
  69857. procedure TCAN1_C1FSTAT.clearFIFOIP11; inline;
  69858. begin
  69859. pTDefRegMap(@Self)^.clr := $00000800;
  69860. end;
  69861. procedure TCAN1_C1FSTAT.setFIFOIP11(thebits : TBits_1); inline;
  69862. begin
  69863. if thebits = 0 then
  69864. pTDefRegMap(@Self)^.clr := $00000800
  69865. else
  69866. pTDefRegMap(@Self)^.&set := $00000800;
  69867. end;
  69868. function TCAN1_C1FSTAT.getFIFOIP11 : TBits_1; inline;
  69869. begin
  69870. getFIFOIP11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  69871. end;
  69872. procedure TCAN1_C1FSTAT.setFIFOIP12; inline;
  69873. begin
  69874. pTDefRegMap(@Self)^.&set := $00001000;
  69875. end;
  69876. procedure TCAN1_C1FSTAT.clearFIFOIP12; inline;
  69877. begin
  69878. pTDefRegMap(@Self)^.clr := $00001000;
  69879. end;
  69880. procedure TCAN1_C1FSTAT.setFIFOIP12(thebits : TBits_1); inline;
  69881. begin
  69882. if thebits = 0 then
  69883. pTDefRegMap(@Self)^.clr := $00001000
  69884. else
  69885. pTDefRegMap(@Self)^.&set := $00001000;
  69886. end;
  69887. function TCAN1_C1FSTAT.getFIFOIP12 : TBits_1; inline;
  69888. begin
  69889. getFIFOIP12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  69890. end;
  69891. procedure TCAN1_C1FSTAT.setFIFOIP13; inline;
  69892. begin
  69893. pTDefRegMap(@Self)^.&set := $00002000;
  69894. end;
  69895. procedure TCAN1_C1FSTAT.clearFIFOIP13; inline;
  69896. begin
  69897. pTDefRegMap(@Self)^.clr := $00002000;
  69898. end;
  69899. procedure TCAN1_C1FSTAT.setFIFOIP13(thebits : TBits_1); inline;
  69900. begin
  69901. if thebits = 0 then
  69902. pTDefRegMap(@Self)^.clr := $00002000
  69903. else
  69904. pTDefRegMap(@Self)^.&set := $00002000;
  69905. end;
  69906. function TCAN1_C1FSTAT.getFIFOIP13 : TBits_1; inline;
  69907. begin
  69908. getFIFOIP13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  69909. end;
  69910. procedure TCAN1_C1FSTAT.setFIFOIP14; inline;
  69911. begin
  69912. pTDefRegMap(@Self)^.&set := $00004000;
  69913. end;
  69914. procedure TCAN1_C1FSTAT.clearFIFOIP14; inline;
  69915. begin
  69916. pTDefRegMap(@Self)^.clr := $00004000;
  69917. end;
  69918. procedure TCAN1_C1FSTAT.setFIFOIP14(thebits : TBits_1); inline;
  69919. begin
  69920. if thebits = 0 then
  69921. pTDefRegMap(@Self)^.clr := $00004000
  69922. else
  69923. pTDefRegMap(@Self)^.&set := $00004000;
  69924. end;
  69925. function TCAN1_C1FSTAT.getFIFOIP14 : TBits_1; inline;
  69926. begin
  69927. getFIFOIP14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  69928. end;
  69929. procedure TCAN1_C1FSTAT.setFIFOIP15; inline;
  69930. begin
  69931. pTDefRegMap(@Self)^.&set := $00008000;
  69932. end;
  69933. procedure TCAN1_C1FSTAT.clearFIFOIP15; inline;
  69934. begin
  69935. pTDefRegMap(@Self)^.clr := $00008000;
  69936. end;
  69937. procedure TCAN1_C1FSTAT.setFIFOIP15(thebits : TBits_1); inline;
  69938. begin
  69939. if thebits = 0 then
  69940. pTDefRegMap(@Self)^.clr := $00008000
  69941. else
  69942. pTDefRegMap(@Self)^.&set := $00008000;
  69943. end;
  69944. function TCAN1_C1FSTAT.getFIFOIP15 : TBits_1; inline;
  69945. begin
  69946. getFIFOIP15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  69947. end;
  69948. procedure TCAN1_C1FSTAT.setFIFOIP16; inline;
  69949. begin
  69950. pTDefRegMap(@Self)^.&set := $00010000;
  69951. end;
  69952. procedure TCAN1_C1FSTAT.clearFIFOIP16; inline;
  69953. begin
  69954. pTDefRegMap(@Self)^.clr := $00010000;
  69955. end;
  69956. procedure TCAN1_C1FSTAT.setFIFOIP16(thebits : TBits_1); inline;
  69957. begin
  69958. if thebits = 0 then
  69959. pTDefRegMap(@Self)^.clr := $00010000
  69960. else
  69961. pTDefRegMap(@Self)^.&set := $00010000;
  69962. end;
  69963. function TCAN1_C1FSTAT.getFIFOIP16 : TBits_1; inline;
  69964. begin
  69965. getFIFOIP16 := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  69966. end;
  69967. procedure TCAN1_C1FSTAT.setFIFOIP17; inline;
  69968. begin
  69969. pTDefRegMap(@Self)^.&set := $00020000;
  69970. end;
  69971. procedure TCAN1_C1FSTAT.clearFIFOIP17; inline;
  69972. begin
  69973. pTDefRegMap(@Self)^.clr := $00020000;
  69974. end;
  69975. procedure TCAN1_C1FSTAT.setFIFOIP17(thebits : TBits_1); inline;
  69976. begin
  69977. if thebits = 0 then
  69978. pTDefRegMap(@Self)^.clr := $00020000
  69979. else
  69980. pTDefRegMap(@Self)^.&set := $00020000;
  69981. end;
  69982. function TCAN1_C1FSTAT.getFIFOIP17 : TBits_1; inline;
  69983. begin
  69984. getFIFOIP17 := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  69985. end;
  69986. procedure TCAN1_C1FSTAT.setFIFOIP18; inline;
  69987. begin
  69988. pTDefRegMap(@Self)^.&set := $00040000;
  69989. end;
  69990. procedure TCAN1_C1FSTAT.clearFIFOIP18; inline;
  69991. begin
  69992. pTDefRegMap(@Self)^.clr := $00040000;
  69993. end;
  69994. procedure TCAN1_C1FSTAT.setFIFOIP18(thebits : TBits_1); inline;
  69995. begin
  69996. if thebits = 0 then
  69997. pTDefRegMap(@Self)^.clr := $00040000
  69998. else
  69999. pTDefRegMap(@Self)^.&set := $00040000;
  70000. end;
  70001. function TCAN1_C1FSTAT.getFIFOIP18 : TBits_1; inline;
  70002. begin
  70003. getFIFOIP18 := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  70004. end;
  70005. procedure TCAN1_C1FSTAT.setFIFOIP19; inline;
  70006. begin
  70007. pTDefRegMap(@Self)^.&set := $00080000;
  70008. end;
  70009. procedure TCAN1_C1FSTAT.clearFIFOIP19; inline;
  70010. begin
  70011. pTDefRegMap(@Self)^.clr := $00080000;
  70012. end;
  70013. procedure TCAN1_C1FSTAT.setFIFOIP19(thebits : TBits_1); inline;
  70014. begin
  70015. if thebits = 0 then
  70016. pTDefRegMap(@Self)^.clr := $00080000
  70017. else
  70018. pTDefRegMap(@Self)^.&set := $00080000;
  70019. end;
  70020. function TCAN1_C1FSTAT.getFIFOIP19 : TBits_1; inline;
  70021. begin
  70022. getFIFOIP19 := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  70023. end;
  70024. procedure TCAN1_C1FSTAT.setFIFOIP20; inline;
  70025. begin
  70026. pTDefRegMap(@Self)^.&set := $00100000;
  70027. end;
  70028. procedure TCAN1_C1FSTAT.clearFIFOIP20; inline;
  70029. begin
  70030. pTDefRegMap(@Self)^.clr := $00100000;
  70031. end;
  70032. procedure TCAN1_C1FSTAT.setFIFOIP20(thebits : TBits_1); inline;
  70033. begin
  70034. if thebits = 0 then
  70035. pTDefRegMap(@Self)^.clr := $00100000
  70036. else
  70037. pTDefRegMap(@Self)^.&set := $00100000;
  70038. end;
  70039. function TCAN1_C1FSTAT.getFIFOIP20 : TBits_1; inline;
  70040. begin
  70041. getFIFOIP20 := (pTDefRegMap(@Self)^.val and $00100000) shr 20;
  70042. end;
  70043. procedure TCAN1_C1FSTAT.setFIFOIP21; inline;
  70044. begin
  70045. pTDefRegMap(@Self)^.&set := $00200000;
  70046. end;
  70047. procedure TCAN1_C1FSTAT.clearFIFOIP21; inline;
  70048. begin
  70049. pTDefRegMap(@Self)^.clr := $00200000;
  70050. end;
  70051. procedure TCAN1_C1FSTAT.setFIFOIP21(thebits : TBits_1); inline;
  70052. begin
  70053. if thebits = 0 then
  70054. pTDefRegMap(@Self)^.clr := $00200000
  70055. else
  70056. pTDefRegMap(@Self)^.&set := $00200000;
  70057. end;
  70058. function TCAN1_C1FSTAT.getFIFOIP21 : TBits_1; inline;
  70059. begin
  70060. getFIFOIP21 := (pTDefRegMap(@Self)^.val and $00200000) shr 21;
  70061. end;
  70062. procedure TCAN1_C1FSTAT.setFIFOIP22; inline;
  70063. begin
  70064. pTDefRegMap(@Self)^.&set := $00400000;
  70065. end;
  70066. procedure TCAN1_C1FSTAT.clearFIFOIP22; inline;
  70067. begin
  70068. pTDefRegMap(@Self)^.clr := $00400000;
  70069. end;
  70070. procedure TCAN1_C1FSTAT.setFIFOIP22(thebits : TBits_1); inline;
  70071. begin
  70072. if thebits = 0 then
  70073. pTDefRegMap(@Self)^.clr := $00400000
  70074. else
  70075. pTDefRegMap(@Self)^.&set := $00400000;
  70076. end;
  70077. function TCAN1_C1FSTAT.getFIFOIP22 : TBits_1; inline;
  70078. begin
  70079. getFIFOIP22 := (pTDefRegMap(@Self)^.val and $00400000) shr 22;
  70080. end;
  70081. procedure TCAN1_C1FSTAT.setFIFOIP23; inline;
  70082. begin
  70083. pTDefRegMap(@Self)^.&set := $00800000;
  70084. end;
  70085. procedure TCAN1_C1FSTAT.clearFIFOIP23; inline;
  70086. begin
  70087. pTDefRegMap(@Self)^.clr := $00800000;
  70088. end;
  70089. procedure TCAN1_C1FSTAT.setFIFOIP23(thebits : TBits_1); inline;
  70090. begin
  70091. if thebits = 0 then
  70092. pTDefRegMap(@Self)^.clr := $00800000
  70093. else
  70094. pTDefRegMap(@Self)^.&set := $00800000;
  70095. end;
  70096. function TCAN1_C1FSTAT.getFIFOIP23 : TBits_1; inline;
  70097. begin
  70098. getFIFOIP23 := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
  70099. end;
  70100. procedure TCAN1_C1FSTAT.setFIFOIP24; inline;
  70101. begin
  70102. pTDefRegMap(@Self)^.&set := $01000000;
  70103. end;
  70104. procedure TCAN1_C1FSTAT.clearFIFOIP24; inline;
  70105. begin
  70106. pTDefRegMap(@Self)^.clr := $01000000;
  70107. end;
  70108. procedure TCAN1_C1FSTAT.setFIFOIP24(thebits : TBits_1); inline;
  70109. begin
  70110. if thebits = 0 then
  70111. pTDefRegMap(@Self)^.clr := $01000000
  70112. else
  70113. pTDefRegMap(@Self)^.&set := $01000000;
  70114. end;
  70115. function TCAN1_C1FSTAT.getFIFOIP24 : TBits_1; inline;
  70116. begin
  70117. getFIFOIP24 := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  70118. end;
  70119. procedure TCAN1_C1FSTAT.setFIFOIP25; inline;
  70120. begin
  70121. pTDefRegMap(@Self)^.&set := $02000000;
  70122. end;
  70123. procedure TCAN1_C1FSTAT.clearFIFOIP25; inline;
  70124. begin
  70125. pTDefRegMap(@Self)^.clr := $02000000;
  70126. end;
  70127. procedure TCAN1_C1FSTAT.setFIFOIP25(thebits : TBits_1); inline;
  70128. begin
  70129. if thebits = 0 then
  70130. pTDefRegMap(@Self)^.clr := $02000000
  70131. else
  70132. pTDefRegMap(@Self)^.&set := $02000000;
  70133. end;
  70134. function TCAN1_C1FSTAT.getFIFOIP25 : TBits_1; inline;
  70135. begin
  70136. getFIFOIP25 := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  70137. end;
  70138. procedure TCAN1_C1FSTAT.setFIFOIP26; inline;
  70139. begin
  70140. pTDefRegMap(@Self)^.&set := $04000000;
  70141. end;
  70142. procedure TCAN1_C1FSTAT.clearFIFOIP26; inline;
  70143. begin
  70144. pTDefRegMap(@Self)^.clr := $04000000;
  70145. end;
  70146. procedure TCAN1_C1FSTAT.setFIFOIP26(thebits : TBits_1); inline;
  70147. begin
  70148. if thebits = 0 then
  70149. pTDefRegMap(@Self)^.clr := $04000000
  70150. else
  70151. pTDefRegMap(@Self)^.&set := $04000000;
  70152. end;
  70153. function TCAN1_C1FSTAT.getFIFOIP26 : TBits_1; inline;
  70154. begin
  70155. getFIFOIP26 := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  70156. end;
  70157. procedure TCAN1_C1FSTAT.setFIFOIP27; inline;
  70158. begin
  70159. pTDefRegMap(@Self)^.&set := $08000000;
  70160. end;
  70161. procedure TCAN1_C1FSTAT.clearFIFOIP27; inline;
  70162. begin
  70163. pTDefRegMap(@Self)^.clr := $08000000;
  70164. end;
  70165. procedure TCAN1_C1FSTAT.setFIFOIP27(thebits : TBits_1); inline;
  70166. begin
  70167. if thebits = 0 then
  70168. pTDefRegMap(@Self)^.clr := $08000000
  70169. else
  70170. pTDefRegMap(@Self)^.&set := $08000000;
  70171. end;
  70172. function TCAN1_C1FSTAT.getFIFOIP27 : TBits_1; inline;
  70173. begin
  70174. getFIFOIP27 := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  70175. end;
  70176. procedure TCAN1_C1FSTAT.setFIFOIP28; inline;
  70177. begin
  70178. pTDefRegMap(@Self)^.&set := $10000000;
  70179. end;
  70180. procedure TCAN1_C1FSTAT.clearFIFOIP28; inline;
  70181. begin
  70182. pTDefRegMap(@Self)^.clr := $10000000;
  70183. end;
  70184. procedure TCAN1_C1FSTAT.setFIFOIP28(thebits : TBits_1); inline;
  70185. begin
  70186. if thebits = 0 then
  70187. pTDefRegMap(@Self)^.clr := $10000000
  70188. else
  70189. pTDefRegMap(@Self)^.&set := $10000000;
  70190. end;
  70191. function TCAN1_C1FSTAT.getFIFOIP28 : TBits_1; inline;
  70192. begin
  70193. getFIFOIP28 := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  70194. end;
  70195. procedure TCAN1_C1FSTAT.setFIFOIP29; inline;
  70196. begin
  70197. pTDefRegMap(@Self)^.&set := $20000000;
  70198. end;
  70199. procedure TCAN1_C1FSTAT.clearFIFOIP29; inline;
  70200. begin
  70201. pTDefRegMap(@Self)^.clr := $20000000;
  70202. end;
  70203. procedure TCAN1_C1FSTAT.setFIFOIP29(thebits : TBits_1); inline;
  70204. begin
  70205. if thebits = 0 then
  70206. pTDefRegMap(@Self)^.clr := $20000000
  70207. else
  70208. pTDefRegMap(@Self)^.&set := $20000000;
  70209. end;
  70210. function TCAN1_C1FSTAT.getFIFOIP29 : TBits_1; inline;
  70211. begin
  70212. getFIFOIP29 := (pTDefRegMap(@Self)^.val and $20000000) shr 29;
  70213. end;
  70214. procedure TCAN1_C1FSTAT.setFIFOIP30; inline;
  70215. begin
  70216. pTDefRegMap(@Self)^.&set := $40000000;
  70217. end;
  70218. procedure TCAN1_C1FSTAT.clearFIFOIP30; inline;
  70219. begin
  70220. pTDefRegMap(@Self)^.clr := $40000000;
  70221. end;
  70222. procedure TCAN1_C1FSTAT.setFIFOIP30(thebits : TBits_1); inline;
  70223. begin
  70224. if thebits = 0 then
  70225. pTDefRegMap(@Self)^.clr := $40000000
  70226. else
  70227. pTDefRegMap(@Self)^.&set := $40000000;
  70228. end;
  70229. function TCAN1_C1FSTAT.getFIFOIP30 : TBits_1; inline;
  70230. begin
  70231. getFIFOIP30 := (pTDefRegMap(@Self)^.val and $40000000) shr 30;
  70232. end;
  70233. procedure TCAN1_C1FSTAT.setFIFOIP31; inline;
  70234. begin
  70235. pTDefRegMap(@Self)^.&set := $80000000;
  70236. end;
  70237. procedure TCAN1_C1FSTAT.clearFIFOIP31; inline;
  70238. begin
  70239. pTDefRegMap(@Self)^.clr := $80000000;
  70240. end;
  70241. procedure TCAN1_C1FSTAT.setFIFOIP31(thebits : TBits_1); inline;
  70242. begin
  70243. if thebits = 0 then
  70244. pTDefRegMap(@Self)^.clr := $80000000
  70245. else
  70246. pTDefRegMap(@Self)^.&set := $80000000;
  70247. end;
  70248. function TCAN1_C1FSTAT.getFIFOIP31 : TBits_1; inline;
  70249. begin
  70250. getFIFOIP31 := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  70251. end;
  70252. procedure TCAN1_C1FSTAT.setw(thebits : TBits_32); inline;
  70253. begin
  70254. pTDefRegMap(@Self)^.val := thebits;
  70255. end;
  70256. function TCAN1_C1FSTAT.getw : TBits_32; inline;
  70257. begin
  70258. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  70259. end;
  70260. procedure TCAN1_C1RXOVF.setRXOVF(thebits : TBits_32); inline;
  70261. begin
  70262. pTDefRegMap(@Self)^.val := thebits;
  70263. end;
  70264. function TCAN1_C1RXOVF.getRXOVF : TBits_32; inline;
  70265. begin
  70266. getRXOVF := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  70267. end;
  70268. procedure TCAN1_C1RXOVF.setRXOVF0; inline;
  70269. begin
  70270. pTDefRegMap(@Self)^.&set := $00000001;
  70271. end;
  70272. procedure TCAN1_C1RXOVF.clearRXOVF0; inline;
  70273. begin
  70274. pTDefRegMap(@Self)^.clr := $00000001;
  70275. end;
  70276. procedure TCAN1_C1RXOVF.setRXOVF0(thebits : TBits_1); inline;
  70277. begin
  70278. if thebits = 0 then
  70279. pTDefRegMap(@Self)^.clr := $00000001
  70280. else
  70281. pTDefRegMap(@Self)^.&set := $00000001;
  70282. end;
  70283. function TCAN1_C1RXOVF.getRXOVF0 : TBits_1; inline;
  70284. begin
  70285. getRXOVF0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  70286. end;
  70287. procedure TCAN1_C1RXOVF.setRXOVF1; inline;
  70288. begin
  70289. pTDefRegMap(@Self)^.&set := $00000002;
  70290. end;
  70291. procedure TCAN1_C1RXOVF.clearRXOVF1; inline;
  70292. begin
  70293. pTDefRegMap(@Self)^.clr := $00000002;
  70294. end;
  70295. procedure TCAN1_C1RXOVF.setRXOVF1(thebits : TBits_1); inline;
  70296. begin
  70297. if thebits = 0 then
  70298. pTDefRegMap(@Self)^.clr := $00000002
  70299. else
  70300. pTDefRegMap(@Self)^.&set := $00000002;
  70301. end;
  70302. function TCAN1_C1RXOVF.getRXOVF1 : TBits_1; inline;
  70303. begin
  70304. getRXOVF1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  70305. end;
  70306. procedure TCAN1_C1RXOVF.setRXOVF2; inline;
  70307. begin
  70308. pTDefRegMap(@Self)^.&set := $00000004;
  70309. end;
  70310. procedure TCAN1_C1RXOVF.clearRXOVF2; inline;
  70311. begin
  70312. pTDefRegMap(@Self)^.clr := $00000004;
  70313. end;
  70314. procedure TCAN1_C1RXOVF.setRXOVF2(thebits : TBits_1); inline;
  70315. begin
  70316. if thebits = 0 then
  70317. pTDefRegMap(@Self)^.clr := $00000004
  70318. else
  70319. pTDefRegMap(@Self)^.&set := $00000004;
  70320. end;
  70321. function TCAN1_C1RXOVF.getRXOVF2 : TBits_1; inline;
  70322. begin
  70323. getRXOVF2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  70324. end;
  70325. procedure TCAN1_C1RXOVF.setRXOVF3; inline;
  70326. begin
  70327. pTDefRegMap(@Self)^.&set := $00000008;
  70328. end;
  70329. procedure TCAN1_C1RXOVF.clearRXOVF3; inline;
  70330. begin
  70331. pTDefRegMap(@Self)^.clr := $00000008;
  70332. end;
  70333. procedure TCAN1_C1RXOVF.setRXOVF3(thebits : TBits_1); inline;
  70334. begin
  70335. if thebits = 0 then
  70336. pTDefRegMap(@Self)^.clr := $00000008
  70337. else
  70338. pTDefRegMap(@Self)^.&set := $00000008;
  70339. end;
  70340. function TCAN1_C1RXOVF.getRXOVF3 : TBits_1; inline;
  70341. begin
  70342. getRXOVF3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  70343. end;
  70344. procedure TCAN1_C1RXOVF.setRXOVF4; inline;
  70345. begin
  70346. pTDefRegMap(@Self)^.&set := $00000010;
  70347. end;
  70348. procedure TCAN1_C1RXOVF.clearRXOVF4; inline;
  70349. begin
  70350. pTDefRegMap(@Self)^.clr := $00000010;
  70351. end;
  70352. procedure TCAN1_C1RXOVF.setRXOVF4(thebits : TBits_1); inline;
  70353. begin
  70354. if thebits = 0 then
  70355. pTDefRegMap(@Self)^.clr := $00000010
  70356. else
  70357. pTDefRegMap(@Self)^.&set := $00000010;
  70358. end;
  70359. function TCAN1_C1RXOVF.getRXOVF4 : TBits_1; inline;
  70360. begin
  70361. getRXOVF4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  70362. end;
  70363. procedure TCAN1_C1RXOVF.setRXOVF5; inline;
  70364. begin
  70365. pTDefRegMap(@Self)^.&set := $00000020;
  70366. end;
  70367. procedure TCAN1_C1RXOVF.clearRXOVF5; inline;
  70368. begin
  70369. pTDefRegMap(@Self)^.clr := $00000020;
  70370. end;
  70371. procedure TCAN1_C1RXOVF.setRXOVF5(thebits : TBits_1); inline;
  70372. begin
  70373. if thebits = 0 then
  70374. pTDefRegMap(@Self)^.clr := $00000020
  70375. else
  70376. pTDefRegMap(@Self)^.&set := $00000020;
  70377. end;
  70378. function TCAN1_C1RXOVF.getRXOVF5 : TBits_1; inline;
  70379. begin
  70380. getRXOVF5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  70381. end;
  70382. procedure TCAN1_C1RXOVF.setRXOVF6; inline;
  70383. begin
  70384. pTDefRegMap(@Self)^.&set := $00000040;
  70385. end;
  70386. procedure TCAN1_C1RXOVF.clearRXOVF6; inline;
  70387. begin
  70388. pTDefRegMap(@Self)^.clr := $00000040;
  70389. end;
  70390. procedure TCAN1_C1RXOVF.setRXOVF6(thebits : TBits_1); inline;
  70391. begin
  70392. if thebits = 0 then
  70393. pTDefRegMap(@Self)^.clr := $00000040
  70394. else
  70395. pTDefRegMap(@Self)^.&set := $00000040;
  70396. end;
  70397. function TCAN1_C1RXOVF.getRXOVF6 : TBits_1; inline;
  70398. begin
  70399. getRXOVF6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  70400. end;
  70401. procedure TCAN1_C1RXOVF.setRXOVF7; inline;
  70402. begin
  70403. pTDefRegMap(@Self)^.&set := $00000080;
  70404. end;
  70405. procedure TCAN1_C1RXOVF.clearRXOVF7; inline;
  70406. begin
  70407. pTDefRegMap(@Self)^.clr := $00000080;
  70408. end;
  70409. procedure TCAN1_C1RXOVF.setRXOVF7(thebits : TBits_1); inline;
  70410. begin
  70411. if thebits = 0 then
  70412. pTDefRegMap(@Self)^.clr := $00000080
  70413. else
  70414. pTDefRegMap(@Self)^.&set := $00000080;
  70415. end;
  70416. function TCAN1_C1RXOVF.getRXOVF7 : TBits_1; inline;
  70417. begin
  70418. getRXOVF7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  70419. end;
  70420. procedure TCAN1_C1RXOVF.setRXOVF8; inline;
  70421. begin
  70422. pTDefRegMap(@Self)^.&set := $00000100;
  70423. end;
  70424. procedure TCAN1_C1RXOVF.clearRXOVF8; inline;
  70425. begin
  70426. pTDefRegMap(@Self)^.clr := $00000100;
  70427. end;
  70428. procedure TCAN1_C1RXOVF.setRXOVF8(thebits : TBits_1); inline;
  70429. begin
  70430. if thebits = 0 then
  70431. pTDefRegMap(@Self)^.clr := $00000100
  70432. else
  70433. pTDefRegMap(@Self)^.&set := $00000100;
  70434. end;
  70435. function TCAN1_C1RXOVF.getRXOVF8 : TBits_1; inline;
  70436. begin
  70437. getRXOVF8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  70438. end;
  70439. procedure TCAN1_C1RXOVF.setRXOVF9; inline;
  70440. begin
  70441. pTDefRegMap(@Self)^.&set := $00000200;
  70442. end;
  70443. procedure TCAN1_C1RXOVF.clearRXOVF9; inline;
  70444. begin
  70445. pTDefRegMap(@Self)^.clr := $00000200;
  70446. end;
  70447. procedure TCAN1_C1RXOVF.setRXOVF9(thebits : TBits_1); inline;
  70448. begin
  70449. if thebits = 0 then
  70450. pTDefRegMap(@Self)^.clr := $00000200
  70451. else
  70452. pTDefRegMap(@Self)^.&set := $00000200;
  70453. end;
  70454. function TCAN1_C1RXOVF.getRXOVF9 : TBits_1; inline;
  70455. begin
  70456. getRXOVF9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  70457. end;
  70458. procedure TCAN1_C1RXOVF.setRXOVF10; inline;
  70459. begin
  70460. pTDefRegMap(@Self)^.&set := $00000400;
  70461. end;
  70462. procedure TCAN1_C1RXOVF.clearRXOVF10; inline;
  70463. begin
  70464. pTDefRegMap(@Self)^.clr := $00000400;
  70465. end;
  70466. procedure TCAN1_C1RXOVF.setRXOVF10(thebits : TBits_1); inline;
  70467. begin
  70468. if thebits = 0 then
  70469. pTDefRegMap(@Self)^.clr := $00000400
  70470. else
  70471. pTDefRegMap(@Self)^.&set := $00000400;
  70472. end;
  70473. function TCAN1_C1RXOVF.getRXOVF10 : TBits_1; inline;
  70474. begin
  70475. getRXOVF10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  70476. end;
  70477. procedure TCAN1_C1RXOVF.setRXOVF11; inline;
  70478. begin
  70479. pTDefRegMap(@Self)^.&set := $00000800;
  70480. end;
  70481. procedure TCAN1_C1RXOVF.clearRXOVF11; inline;
  70482. begin
  70483. pTDefRegMap(@Self)^.clr := $00000800;
  70484. end;
  70485. procedure TCAN1_C1RXOVF.setRXOVF11(thebits : TBits_1); inline;
  70486. begin
  70487. if thebits = 0 then
  70488. pTDefRegMap(@Self)^.clr := $00000800
  70489. else
  70490. pTDefRegMap(@Self)^.&set := $00000800;
  70491. end;
  70492. function TCAN1_C1RXOVF.getRXOVF11 : TBits_1; inline;
  70493. begin
  70494. getRXOVF11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  70495. end;
  70496. procedure TCAN1_C1RXOVF.setRXOVF12; inline;
  70497. begin
  70498. pTDefRegMap(@Self)^.&set := $00001000;
  70499. end;
  70500. procedure TCAN1_C1RXOVF.clearRXOVF12; inline;
  70501. begin
  70502. pTDefRegMap(@Self)^.clr := $00001000;
  70503. end;
  70504. procedure TCAN1_C1RXOVF.setRXOVF12(thebits : TBits_1); inline;
  70505. begin
  70506. if thebits = 0 then
  70507. pTDefRegMap(@Self)^.clr := $00001000
  70508. else
  70509. pTDefRegMap(@Self)^.&set := $00001000;
  70510. end;
  70511. function TCAN1_C1RXOVF.getRXOVF12 : TBits_1; inline;
  70512. begin
  70513. getRXOVF12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  70514. end;
  70515. procedure TCAN1_C1RXOVF.setRXOVF13; inline;
  70516. begin
  70517. pTDefRegMap(@Self)^.&set := $00002000;
  70518. end;
  70519. procedure TCAN1_C1RXOVF.clearRXOVF13; inline;
  70520. begin
  70521. pTDefRegMap(@Self)^.clr := $00002000;
  70522. end;
  70523. procedure TCAN1_C1RXOVF.setRXOVF13(thebits : TBits_1); inline;
  70524. begin
  70525. if thebits = 0 then
  70526. pTDefRegMap(@Self)^.clr := $00002000
  70527. else
  70528. pTDefRegMap(@Self)^.&set := $00002000;
  70529. end;
  70530. function TCAN1_C1RXOVF.getRXOVF13 : TBits_1; inline;
  70531. begin
  70532. getRXOVF13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  70533. end;
  70534. procedure TCAN1_C1RXOVF.setRXOVF14; inline;
  70535. begin
  70536. pTDefRegMap(@Self)^.&set := $00004000;
  70537. end;
  70538. procedure TCAN1_C1RXOVF.clearRXOVF14; inline;
  70539. begin
  70540. pTDefRegMap(@Self)^.clr := $00004000;
  70541. end;
  70542. procedure TCAN1_C1RXOVF.setRXOVF14(thebits : TBits_1); inline;
  70543. begin
  70544. if thebits = 0 then
  70545. pTDefRegMap(@Self)^.clr := $00004000
  70546. else
  70547. pTDefRegMap(@Self)^.&set := $00004000;
  70548. end;
  70549. function TCAN1_C1RXOVF.getRXOVF14 : TBits_1; inline;
  70550. begin
  70551. getRXOVF14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  70552. end;
  70553. procedure TCAN1_C1RXOVF.setRXOVF15; inline;
  70554. begin
  70555. pTDefRegMap(@Self)^.&set := $00008000;
  70556. end;
  70557. procedure TCAN1_C1RXOVF.clearRXOVF15; inline;
  70558. begin
  70559. pTDefRegMap(@Self)^.clr := $00008000;
  70560. end;
  70561. procedure TCAN1_C1RXOVF.setRXOVF15(thebits : TBits_1); inline;
  70562. begin
  70563. if thebits = 0 then
  70564. pTDefRegMap(@Self)^.clr := $00008000
  70565. else
  70566. pTDefRegMap(@Self)^.&set := $00008000;
  70567. end;
  70568. function TCAN1_C1RXOVF.getRXOVF15 : TBits_1; inline;
  70569. begin
  70570. getRXOVF15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  70571. end;
  70572. procedure TCAN1_C1RXOVF.setRXOVF16; inline;
  70573. begin
  70574. pTDefRegMap(@Self)^.&set := $00010000;
  70575. end;
  70576. procedure TCAN1_C1RXOVF.clearRXOVF16; inline;
  70577. begin
  70578. pTDefRegMap(@Self)^.clr := $00010000;
  70579. end;
  70580. procedure TCAN1_C1RXOVF.setRXOVF16(thebits : TBits_1); inline;
  70581. begin
  70582. if thebits = 0 then
  70583. pTDefRegMap(@Self)^.clr := $00010000
  70584. else
  70585. pTDefRegMap(@Self)^.&set := $00010000;
  70586. end;
  70587. function TCAN1_C1RXOVF.getRXOVF16 : TBits_1; inline;
  70588. begin
  70589. getRXOVF16 := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  70590. end;
  70591. procedure TCAN1_C1RXOVF.setRXOVF17; inline;
  70592. begin
  70593. pTDefRegMap(@Self)^.&set := $00020000;
  70594. end;
  70595. procedure TCAN1_C1RXOVF.clearRXOVF17; inline;
  70596. begin
  70597. pTDefRegMap(@Self)^.clr := $00020000;
  70598. end;
  70599. procedure TCAN1_C1RXOVF.setRXOVF17(thebits : TBits_1); inline;
  70600. begin
  70601. if thebits = 0 then
  70602. pTDefRegMap(@Self)^.clr := $00020000
  70603. else
  70604. pTDefRegMap(@Self)^.&set := $00020000;
  70605. end;
  70606. function TCAN1_C1RXOVF.getRXOVF17 : TBits_1; inline;
  70607. begin
  70608. getRXOVF17 := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  70609. end;
  70610. procedure TCAN1_C1RXOVF.setRXOVF18; inline;
  70611. begin
  70612. pTDefRegMap(@Self)^.&set := $00040000;
  70613. end;
  70614. procedure TCAN1_C1RXOVF.clearRXOVF18; inline;
  70615. begin
  70616. pTDefRegMap(@Self)^.clr := $00040000;
  70617. end;
  70618. procedure TCAN1_C1RXOVF.setRXOVF18(thebits : TBits_1); inline;
  70619. begin
  70620. if thebits = 0 then
  70621. pTDefRegMap(@Self)^.clr := $00040000
  70622. else
  70623. pTDefRegMap(@Self)^.&set := $00040000;
  70624. end;
  70625. function TCAN1_C1RXOVF.getRXOVF18 : TBits_1; inline;
  70626. begin
  70627. getRXOVF18 := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  70628. end;
  70629. procedure TCAN1_C1RXOVF.setRXOVF19; inline;
  70630. begin
  70631. pTDefRegMap(@Self)^.&set := $00080000;
  70632. end;
  70633. procedure TCAN1_C1RXOVF.clearRXOVF19; inline;
  70634. begin
  70635. pTDefRegMap(@Self)^.clr := $00080000;
  70636. end;
  70637. procedure TCAN1_C1RXOVF.setRXOVF19(thebits : TBits_1); inline;
  70638. begin
  70639. if thebits = 0 then
  70640. pTDefRegMap(@Self)^.clr := $00080000
  70641. else
  70642. pTDefRegMap(@Self)^.&set := $00080000;
  70643. end;
  70644. function TCAN1_C1RXOVF.getRXOVF19 : TBits_1; inline;
  70645. begin
  70646. getRXOVF19 := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  70647. end;
  70648. procedure TCAN1_C1RXOVF.setRXOVF20; inline;
  70649. begin
  70650. pTDefRegMap(@Self)^.&set := $00100000;
  70651. end;
  70652. procedure TCAN1_C1RXOVF.clearRXOVF20; inline;
  70653. begin
  70654. pTDefRegMap(@Self)^.clr := $00100000;
  70655. end;
  70656. procedure TCAN1_C1RXOVF.setRXOVF20(thebits : TBits_1); inline;
  70657. begin
  70658. if thebits = 0 then
  70659. pTDefRegMap(@Self)^.clr := $00100000
  70660. else
  70661. pTDefRegMap(@Self)^.&set := $00100000;
  70662. end;
  70663. function TCAN1_C1RXOVF.getRXOVF20 : TBits_1; inline;
  70664. begin
  70665. getRXOVF20 := (pTDefRegMap(@Self)^.val and $00100000) shr 20;
  70666. end;
  70667. procedure TCAN1_C1RXOVF.setRXOVF21; inline;
  70668. begin
  70669. pTDefRegMap(@Self)^.&set := $00200000;
  70670. end;
  70671. procedure TCAN1_C1RXOVF.clearRXOVF21; inline;
  70672. begin
  70673. pTDefRegMap(@Self)^.clr := $00200000;
  70674. end;
  70675. procedure TCAN1_C1RXOVF.setRXOVF21(thebits : TBits_1); inline;
  70676. begin
  70677. if thebits = 0 then
  70678. pTDefRegMap(@Self)^.clr := $00200000
  70679. else
  70680. pTDefRegMap(@Self)^.&set := $00200000;
  70681. end;
  70682. function TCAN1_C1RXOVF.getRXOVF21 : TBits_1; inline;
  70683. begin
  70684. getRXOVF21 := (pTDefRegMap(@Self)^.val and $00200000) shr 21;
  70685. end;
  70686. procedure TCAN1_C1RXOVF.setRXOVF22; inline;
  70687. begin
  70688. pTDefRegMap(@Self)^.&set := $00400000;
  70689. end;
  70690. procedure TCAN1_C1RXOVF.clearRXOVF22; inline;
  70691. begin
  70692. pTDefRegMap(@Self)^.clr := $00400000;
  70693. end;
  70694. procedure TCAN1_C1RXOVF.setRXOVF22(thebits : TBits_1); inline;
  70695. begin
  70696. if thebits = 0 then
  70697. pTDefRegMap(@Self)^.clr := $00400000
  70698. else
  70699. pTDefRegMap(@Self)^.&set := $00400000;
  70700. end;
  70701. function TCAN1_C1RXOVF.getRXOVF22 : TBits_1; inline;
  70702. begin
  70703. getRXOVF22 := (pTDefRegMap(@Self)^.val and $00400000) shr 22;
  70704. end;
  70705. procedure TCAN1_C1RXOVF.setRXOVF23; inline;
  70706. begin
  70707. pTDefRegMap(@Self)^.&set := $00800000;
  70708. end;
  70709. procedure TCAN1_C1RXOVF.clearRXOVF23; inline;
  70710. begin
  70711. pTDefRegMap(@Self)^.clr := $00800000;
  70712. end;
  70713. procedure TCAN1_C1RXOVF.setRXOVF23(thebits : TBits_1); inline;
  70714. begin
  70715. if thebits = 0 then
  70716. pTDefRegMap(@Self)^.clr := $00800000
  70717. else
  70718. pTDefRegMap(@Self)^.&set := $00800000;
  70719. end;
  70720. function TCAN1_C1RXOVF.getRXOVF23 : TBits_1; inline;
  70721. begin
  70722. getRXOVF23 := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
  70723. end;
  70724. procedure TCAN1_C1RXOVF.setRXOVF24; inline;
  70725. begin
  70726. pTDefRegMap(@Self)^.&set := $01000000;
  70727. end;
  70728. procedure TCAN1_C1RXOVF.clearRXOVF24; inline;
  70729. begin
  70730. pTDefRegMap(@Self)^.clr := $01000000;
  70731. end;
  70732. procedure TCAN1_C1RXOVF.setRXOVF24(thebits : TBits_1); inline;
  70733. begin
  70734. if thebits = 0 then
  70735. pTDefRegMap(@Self)^.clr := $01000000
  70736. else
  70737. pTDefRegMap(@Self)^.&set := $01000000;
  70738. end;
  70739. function TCAN1_C1RXOVF.getRXOVF24 : TBits_1; inline;
  70740. begin
  70741. getRXOVF24 := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  70742. end;
  70743. procedure TCAN1_C1RXOVF.setRXOVF25; inline;
  70744. begin
  70745. pTDefRegMap(@Self)^.&set := $02000000;
  70746. end;
  70747. procedure TCAN1_C1RXOVF.clearRXOVF25; inline;
  70748. begin
  70749. pTDefRegMap(@Self)^.clr := $02000000;
  70750. end;
  70751. procedure TCAN1_C1RXOVF.setRXOVF25(thebits : TBits_1); inline;
  70752. begin
  70753. if thebits = 0 then
  70754. pTDefRegMap(@Self)^.clr := $02000000
  70755. else
  70756. pTDefRegMap(@Self)^.&set := $02000000;
  70757. end;
  70758. function TCAN1_C1RXOVF.getRXOVF25 : TBits_1; inline;
  70759. begin
  70760. getRXOVF25 := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  70761. end;
  70762. procedure TCAN1_C1RXOVF.setRXOVF26; inline;
  70763. begin
  70764. pTDefRegMap(@Self)^.&set := $04000000;
  70765. end;
  70766. procedure TCAN1_C1RXOVF.clearRXOVF26; inline;
  70767. begin
  70768. pTDefRegMap(@Self)^.clr := $04000000;
  70769. end;
  70770. procedure TCAN1_C1RXOVF.setRXOVF26(thebits : TBits_1); inline;
  70771. begin
  70772. if thebits = 0 then
  70773. pTDefRegMap(@Self)^.clr := $04000000
  70774. else
  70775. pTDefRegMap(@Self)^.&set := $04000000;
  70776. end;
  70777. function TCAN1_C1RXOVF.getRXOVF26 : TBits_1; inline;
  70778. begin
  70779. getRXOVF26 := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  70780. end;
  70781. procedure TCAN1_C1RXOVF.setRXOVF27; inline;
  70782. begin
  70783. pTDefRegMap(@Self)^.&set := $08000000;
  70784. end;
  70785. procedure TCAN1_C1RXOVF.clearRXOVF27; inline;
  70786. begin
  70787. pTDefRegMap(@Self)^.clr := $08000000;
  70788. end;
  70789. procedure TCAN1_C1RXOVF.setRXOVF27(thebits : TBits_1); inline;
  70790. begin
  70791. if thebits = 0 then
  70792. pTDefRegMap(@Self)^.clr := $08000000
  70793. else
  70794. pTDefRegMap(@Self)^.&set := $08000000;
  70795. end;
  70796. function TCAN1_C1RXOVF.getRXOVF27 : TBits_1; inline;
  70797. begin
  70798. getRXOVF27 := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  70799. end;
  70800. procedure TCAN1_C1RXOVF.setRXOVF28; inline;
  70801. begin
  70802. pTDefRegMap(@Self)^.&set := $10000000;
  70803. end;
  70804. procedure TCAN1_C1RXOVF.clearRXOVF28; inline;
  70805. begin
  70806. pTDefRegMap(@Self)^.clr := $10000000;
  70807. end;
  70808. procedure TCAN1_C1RXOVF.setRXOVF28(thebits : TBits_1); inline;
  70809. begin
  70810. if thebits = 0 then
  70811. pTDefRegMap(@Self)^.clr := $10000000
  70812. else
  70813. pTDefRegMap(@Self)^.&set := $10000000;
  70814. end;
  70815. function TCAN1_C1RXOVF.getRXOVF28 : TBits_1; inline;
  70816. begin
  70817. getRXOVF28 := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  70818. end;
  70819. procedure TCAN1_C1RXOVF.setRXOVF29; inline;
  70820. begin
  70821. pTDefRegMap(@Self)^.&set := $20000000;
  70822. end;
  70823. procedure TCAN1_C1RXOVF.clearRXOVF29; inline;
  70824. begin
  70825. pTDefRegMap(@Self)^.clr := $20000000;
  70826. end;
  70827. procedure TCAN1_C1RXOVF.setRXOVF29(thebits : TBits_1); inline;
  70828. begin
  70829. if thebits = 0 then
  70830. pTDefRegMap(@Self)^.clr := $20000000
  70831. else
  70832. pTDefRegMap(@Self)^.&set := $20000000;
  70833. end;
  70834. function TCAN1_C1RXOVF.getRXOVF29 : TBits_1; inline;
  70835. begin
  70836. getRXOVF29 := (pTDefRegMap(@Self)^.val and $20000000) shr 29;
  70837. end;
  70838. procedure TCAN1_C1RXOVF.setRXOVF30; inline;
  70839. begin
  70840. pTDefRegMap(@Self)^.&set := $40000000;
  70841. end;
  70842. procedure TCAN1_C1RXOVF.clearRXOVF30; inline;
  70843. begin
  70844. pTDefRegMap(@Self)^.clr := $40000000;
  70845. end;
  70846. procedure TCAN1_C1RXOVF.setRXOVF30(thebits : TBits_1); inline;
  70847. begin
  70848. if thebits = 0 then
  70849. pTDefRegMap(@Self)^.clr := $40000000
  70850. else
  70851. pTDefRegMap(@Self)^.&set := $40000000;
  70852. end;
  70853. function TCAN1_C1RXOVF.getRXOVF30 : TBits_1; inline;
  70854. begin
  70855. getRXOVF30 := (pTDefRegMap(@Self)^.val and $40000000) shr 30;
  70856. end;
  70857. procedure TCAN1_C1RXOVF.setRXOVF31; inline;
  70858. begin
  70859. pTDefRegMap(@Self)^.&set := $80000000;
  70860. end;
  70861. procedure TCAN1_C1RXOVF.clearRXOVF31; inline;
  70862. begin
  70863. pTDefRegMap(@Self)^.clr := $80000000;
  70864. end;
  70865. procedure TCAN1_C1RXOVF.setRXOVF31(thebits : TBits_1); inline;
  70866. begin
  70867. if thebits = 0 then
  70868. pTDefRegMap(@Self)^.clr := $80000000
  70869. else
  70870. pTDefRegMap(@Self)^.&set := $80000000;
  70871. end;
  70872. function TCAN1_C1RXOVF.getRXOVF31 : TBits_1; inline;
  70873. begin
  70874. getRXOVF31 := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  70875. end;
  70876. procedure TCAN1_C1RXOVF.setw(thebits : TBits_32); inline;
  70877. begin
  70878. pTDefRegMap(@Self)^.val := thebits;
  70879. end;
  70880. function TCAN1_C1RXOVF.getw : TBits_32; inline;
  70881. begin
  70882. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  70883. end;
  70884. procedure TCAN1_C1TMR.setCANTSPRE(thebits : TBits_16); inline;
  70885. begin
  70886. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF0000 or ( thebits shl 0 );
  70887. end;
  70888. function TCAN1_C1TMR.getCANTSPRE : TBits_16; inline;
  70889. begin
  70890. getCANTSPRE := (pTDefRegMap(@Self)^.val and $0000FFFF) shr 0;
  70891. end;
  70892. procedure TCAN1_C1TMR.setCANTS(thebits : TBits_16); inline;
  70893. begin
  70894. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $0000FFFF or ( thebits shl 16 );
  70895. end;
  70896. function TCAN1_C1TMR.getCANTS : TBits_16; inline;
  70897. begin
  70898. getCANTS := (pTDefRegMap(@Self)^.val and $FFFF0000) shr 16;
  70899. end;
  70900. procedure TCAN1_C1TMR.setw(thebits : TBits_32); inline;
  70901. begin
  70902. pTDefRegMap(@Self)^.val := thebits;
  70903. end;
  70904. function TCAN1_C1TMR.getw : TBits_32; inline;
  70905. begin
  70906. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  70907. end;
  70908. procedure TCAN1_C1RXM0.setEID(thebits : TBits_18); inline;
  70909. begin
  70910. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  70911. end;
  70912. function TCAN1_C1RXM0.getEID : TBits_18; inline;
  70913. begin
  70914. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  70915. end;
  70916. procedure TCAN1_C1RXM0.setMIDE; inline;
  70917. begin
  70918. pTDefRegMap(@Self)^.&set := $00080000;
  70919. end;
  70920. procedure TCAN1_C1RXM0.clearMIDE; inline;
  70921. begin
  70922. pTDefRegMap(@Self)^.clr := $00080000;
  70923. end;
  70924. procedure TCAN1_C1RXM0.setMIDE(thebits : TBits_1); inline;
  70925. begin
  70926. if thebits = 0 then
  70927. pTDefRegMap(@Self)^.clr := $00080000
  70928. else
  70929. pTDefRegMap(@Self)^.&set := $00080000;
  70930. end;
  70931. function TCAN1_C1RXM0.getMIDE : TBits_1; inline;
  70932. begin
  70933. getMIDE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  70934. end;
  70935. procedure TCAN1_C1RXM0.setSID(thebits : TBits_11); inline;
  70936. begin
  70937. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  70938. end;
  70939. function TCAN1_C1RXM0.getSID : TBits_11; inline;
  70940. begin
  70941. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  70942. end;
  70943. procedure TCAN1_C1RXM0.setw(thebits : TBits_32); inline;
  70944. begin
  70945. pTDefRegMap(@Self)^.val := thebits;
  70946. end;
  70947. function TCAN1_C1RXM0.getw : TBits_32; inline;
  70948. begin
  70949. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  70950. end;
  70951. procedure TCAN1_C1RXM1.setEID(thebits : TBits_18); inline;
  70952. begin
  70953. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  70954. end;
  70955. function TCAN1_C1RXM1.getEID : TBits_18; inline;
  70956. begin
  70957. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  70958. end;
  70959. procedure TCAN1_C1RXM1.setMIDE; inline;
  70960. begin
  70961. pTDefRegMap(@Self)^.&set := $00080000;
  70962. end;
  70963. procedure TCAN1_C1RXM1.clearMIDE; inline;
  70964. begin
  70965. pTDefRegMap(@Self)^.clr := $00080000;
  70966. end;
  70967. procedure TCAN1_C1RXM1.setMIDE(thebits : TBits_1); inline;
  70968. begin
  70969. if thebits = 0 then
  70970. pTDefRegMap(@Self)^.clr := $00080000
  70971. else
  70972. pTDefRegMap(@Self)^.&set := $00080000;
  70973. end;
  70974. function TCAN1_C1RXM1.getMIDE : TBits_1; inline;
  70975. begin
  70976. getMIDE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  70977. end;
  70978. procedure TCAN1_C1RXM1.setSID(thebits : TBits_11); inline;
  70979. begin
  70980. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  70981. end;
  70982. function TCAN1_C1RXM1.getSID : TBits_11; inline;
  70983. begin
  70984. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  70985. end;
  70986. procedure TCAN1_C1RXM1.setw(thebits : TBits_32); inline;
  70987. begin
  70988. pTDefRegMap(@Self)^.val := thebits;
  70989. end;
  70990. function TCAN1_C1RXM1.getw : TBits_32; inline;
  70991. begin
  70992. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  70993. end;
  70994. procedure TCAN1_C1RXM2.setEID(thebits : TBits_18); inline;
  70995. begin
  70996. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  70997. end;
  70998. function TCAN1_C1RXM2.getEID : TBits_18; inline;
  70999. begin
  71000. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  71001. end;
  71002. procedure TCAN1_C1RXM2.setMIDE; inline;
  71003. begin
  71004. pTDefRegMap(@Self)^.&set := $00080000;
  71005. end;
  71006. procedure TCAN1_C1RXM2.clearMIDE; inline;
  71007. begin
  71008. pTDefRegMap(@Self)^.clr := $00080000;
  71009. end;
  71010. procedure TCAN1_C1RXM2.setMIDE(thebits : TBits_1); inline;
  71011. begin
  71012. if thebits = 0 then
  71013. pTDefRegMap(@Self)^.clr := $00080000
  71014. else
  71015. pTDefRegMap(@Self)^.&set := $00080000;
  71016. end;
  71017. function TCAN1_C1RXM2.getMIDE : TBits_1; inline;
  71018. begin
  71019. getMIDE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  71020. end;
  71021. procedure TCAN1_C1RXM2.setSID(thebits : TBits_11); inline;
  71022. begin
  71023. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  71024. end;
  71025. function TCAN1_C1RXM2.getSID : TBits_11; inline;
  71026. begin
  71027. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  71028. end;
  71029. procedure TCAN1_C1RXM2.setw(thebits : TBits_32); inline;
  71030. begin
  71031. pTDefRegMap(@Self)^.val := thebits;
  71032. end;
  71033. function TCAN1_C1RXM2.getw : TBits_32; inline;
  71034. begin
  71035. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  71036. end;
  71037. procedure TCAN1_C1RXM3.setEID(thebits : TBits_18); inline;
  71038. begin
  71039. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  71040. end;
  71041. function TCAN1_C1RXM3.getEID : TBits_18; inline;
  71042. begin
  71043. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  71044. end;
  71045. procedure TCAN1_C1RXM3.setMIDE; inline;
  71046. begin
  71047. pTDefRegMap(@Self)^.&set := $00080000;
  71048. end;
  71049. procedure TCAN1_C1RXM3.clearMIDE; inline;
  71050. begin
  71051. pTDefRegMap(@Self)^.clr := $00080000;
  71052. end;
  71053. procedure TCAN1_C1RXM3.setMIDE(thebits : TBits_1); inline;
  71054. begin
  71055. if thebits = 0 then
  71056. pTDefRegMap(@Self)^.clr := $00080000
  71057. else
  71058. pTDefRegMap(@Self)^.&set := $00080000;
  71059. end;
  71060. function TCAN1_C1RXM3.getMIDE : TBits_1; inline;
  71061. begin
  71062. getMIDE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  71063. end;
  71064. procedure TCAN1_C1RXM3.setSID(thebits : TBits_11); inline;
  71065. begin
  71066. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  71067. end;
  71068. function TCAN1_C1RXM3.getSID : TBits_11; inline;
  71069. begin
  71070. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  71071. end;
  71072. procedure TCAN1_C1RXM3.setw(thebits : TBits_32); inline;
  71073. begin
  71074. pTDefRegMap(@Self)^.val := thebits;
  71075. end;
  71076. function TCAN1_C1RXM3.getw : TBits_32; inline;
  71077. begin
  71078. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  71079. end;
  71080. procedure TCAN1_C1FLTCON0.setFSEL0(thebits : TBits_5); inline;
  71081. begin
  71082. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  71083. end;
  71084. function TCAN1_C1FLTCON0.getFSEL0 : TBits_5; inline;
  71085. begin
  71086. getFSEL0 := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  71087. end;
  71088. procedure TCAN1_C1FLTCON0.setMSEL0(thebits : TBits_2); inline;
  71089. begin
  71090. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF9F or ( thebits shl 5 );
  71091. end;
  71092. function TCAN1_C1FLTCON0.getMSEL0 : TBits_2; inline;
  71093. begin
  71094. getMSEL0 := (pTDefRegMap(@Self)^.val and $00000060) shr 5;
  71095. end;
  71096. procedure TCAN1_C1FLTCON0.setFLTEN0; inline;
  71097. begin
  71098. pTDefRegMap(@Self)^.&set := $00000080;
  71099. end;
  71100. procedure TCAN1_C1FLTCON0.clearFLTEN0; inline;
  71101. begin
  71102. pTDefRegMap(@Self)^.clr := $00000080;
  71103. end;
  71104. procedure TCAN1_C1FLTCON0.setFLTEN0(thebits : TBits_1); inline;
  71105. begin
  71106. if thebits = 0 then
  71107. pTDefRegMap(@Self)^.clr := $00000080
  71108. else
  71109. pTDefRegMap(@Self)^.&set := $00000080;
  71110. end;
  71111. function TCAN1_C1FLTCON0.getFLTEN0 : TBits_1; inline;
  71112. begin
  71113. getFLTEN0 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  71114. end;
  71115. procedure TCAN1_C1FLTCON0.setFSEL1(thebits : TBits_5); inline;
  71116. begin
  71117. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE0FF or ( thebits shl 8 );
  71118. end;
  71119. function TCAN1_C1FLTCON0.getFSEL1 : TBits_5; inline;
  71120. begin
  71121. getFSEL1 := (pTDefRegMap(@Self)^.val and $00001F00) shr 8;
  71122. end;
  71123. procedure TCAN1_C1FLTCON0.setMSEL1(thebits : TBits_2); inline;
  71124. begin
  71125. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF9FFF or ( thebits shl 13 );
  71126. end;
  71127. function TCAN1_C1FLTCON0.getMSEL1 : TBits_2; inline;
  71128. begin
  71129. getMSEL1 := (pTDefRegMap(@Self)^.val and $00006000) shr 13;
  71130. end;
  71131. procedure TCAN1_C1FLTCON0.setFLTEN1; inline;
  71132. begin
  71133. pTDefRegMap(@Self)^.&set := $00008000;
  71134. end;
  71135. procedure TCAN1_C1FLTCON0.clearFLTEN1; inline;
  71136. begin
  71137. pTDefRegMap(@Self)^.clr := $00008000;
  71138. end;
  71139. procedure TCAN1_C1FLTCON0.setFLTEN1(thebits : TBits_1); inline;
  71140. begin
  71141. if thebits = 0 then
  71142. pTDefRegMap(@Self)^.clr := $00008000
  71143. else
  71144. pTDefRegMap(@Self)^.&set := $00008000;
  71145. end;
  71146. function TCAN1_C1FLTCON0.getFLTEN1 : TBits_1; inline;
  71147. begin
  71148. getFLTEN1 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  71149. end;
  71150. procedure TCAN1_C1FLTCON0.setFSEL2(thebits : TBits_5); inline;
  71151. begin
  71152. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  71153. end;
  71154. function TCAN1_C1FLTCON0.getFSEL2 : TBits_5; inline;
  71155. begin
  71156. getFSEL2 := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  71157. end;
  71158. procedure TCAN1_C1FLTCON0.setMSEL2(thebits : TBits_2); inline;
  71159. begin
  71160. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF9FFFFF or ( thebits shl 21 );
  71161. end;
  71162. function TCAN1_C1FLTCON0.getMSEL2 : TBits_2; inline;
  71163. begin
  71164. getMSEL2 := (pTDefRegMap(@Self)^.val and $00600000) shr 21;
  71165. end;
  71166. procedure TCAN1_C1FLTCON0.setFLTEN2; inline;
  71167. begin
  71168. pTDefRegMap(@Self)^.&set := $00800000;
  71169. end;
  71170. procedure TCAN1_C1FLTCON0.clearFLTEN2; inline;
  71171. begin
  71172. pTDefRegMap(@Self)^.clr := $00800000;
  71173. end;
  71174. procedure TCAN1_C1FLTCON0.setFLTEN2(thebits : TBits_1); inline;
  71175. begin
  71176. if thebits = 0 then
  71177. pTDefRegMap(@Self)^.clr := $00800000
  71178. else
  71179. pTDefRegMap(@Self)^.&set := $00800000;
  71180. end;
  71181. function TCAN1_C1FLTCON0.getFLTEN2 : TBits_1; inline;
  71182. begin
  71183. getFLTEN2 := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
  71184. end;
  71185. procedure TCAN1_C1FLTCON0.setFSEL3(thebits : TBits_5); inline;
  71186. begin
  71187. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E0FFFFFF or ( thebits shl 24 );
  71188. end;
  71189. function TCAN1_C1FLTCON0.getFSEL3 : TBits_5; inline;
  71190. begin
  71191. getFSEL3 := (pTDefRegMap(@Self)^.val and $1F000000) shr 24;
  71192. end;
  71193. procedure TCAN1_C1FLTCON0.setMSEL3(thebits : TBits_2); inline;
  71194. begin
  71195. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $9FFFFFFF or ( thebits shl 29 );
  71196. end;
  71197. function TCAN1_C1FLTCON0.getMSEL3 : TBits_2; inline;
  71198. begin
  71199. getMSEL3 := (pTDefRegMap(@Self)^.val and $60000000) shr 29;
  71200. end;
  71201. procedure TCAN1_C1FLTCON0.setFLTEN3; inline;
  71202. begin
  71203. pTDefRegMap(@Self)^.&set := $80000000;
  71204. end;
  71205. procedure TCAN1_C1FLTCON0.clearFLTEN3; inline;
  71206. begin
  71207. pTDefRegMap(@Self)^.clr := $80000000;
  71208. end;
  71209. procedure TCAN1_C1FLTCON0.setFLTEN3(thebits : TBits_1); inline;
  71210. begin
  71211. if thebits = 0 then
  71212. pTDefRegMap(@Self)^.clr := $80000000
  71213. else
  71214. pTDefRegMap(@Self)^.&set := $80000000;
  71215. end;
  71216. function TCAN1_C1FLTCON0.getFLTEN3 : TBits_1; inline;
  71217. begin
  71218. getFLTEN3 := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  71219. end;
  71220. procedure TCAN1_C1FLTCON0.setw(thebits : TBits_32); inline;
  71221. begin
  71222. pTDefRegMap(@Self)^.val := thebits;
  71223. end;
  71224. function TCAN1_C1FLTCON0.getw : TBits_32; inline;
  71225. begin
  71226. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  71227. end;
  71228. procedure TCAN1_C1FLTCON1.setFSEL4(thebits : TBits_5); inline;
  71229. begin
  71230. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  71231. end;
  71232. function TCAN1_C1FLTCON1.getFSEL4 : TBits_5; inline;
  71233. begin
  71234. getFSEL4 := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  71235. end;
  71236. procedure TCAN1_C1FLTCON1.setMSEL4(thebits : TBits_2); inline;
  71237. begin
  71238. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF9F or ( thebits shl 5 );
  71239. end;
  71240. function TCAN1_C1FLTCON1.getMSEL4 : TBits_2; inline;
  71241. begin
  71242. getMSEL4 := (pTDefRegMap(@Self)^.val and $00000060) shr 5;
  71243. end;
  71244. procedure TCAN1_C1FLTCON1.setFLTEN4; inline;
  71245. begin
  71246. pTDefRegMap(@Self)^.&set := $00000080;
  71247. end;
  71248. procedure TCAN1_C1FLTCON1.clearFLTEN4; inline;
  71249. begin
  71250. pTDefRegMap(@Self)^.clr := $00000080;
  71251. end;
  71252. procedure TCAN1_C1FLTCON1.setFLTEN4(thebits : TBits_1); inline;
  71253. begin
  71254. if thebits = 0 then
  71255. pTDefRegMap(@Self)^.clr := $00000080
  71256. else
  71257. pTDefRegMap(@Self)^.&set := $00000080;
  71258. end;
  71259. function TCAN1_C1FLTCON1.getFLTEN4 : TBits_1; inline;
  71260. begin
  71261. getFLTEN4 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  71262. end;
  71263. procedure TCAN1_C1FLTCON1.setFSEL5(thebits : TBits_5); inline;
  71264. begin
  71265. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE0FF or ( thebits shl 8 );
  71266. end;
  71267. function TCAN1_C1FLTCON1.getFSEL5 : TBits_5; inline;
  71268. begin
  71269. getFSEL5 := (pTDefRegMap(@Self)^.val and $00001F00) shr 8;
  71270. end;
  71271. procedure TCAN1_C1FLTCON1.setMSEL5(thebits : TBits_2); inline;
  71272. begin
  71273. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF9FFF or ( thebits shl 13 );
  71274. end;
  71275. function TCAN1_C1FLTCON1.getMSEL5 : TBits_2; inline;
  71276. begin
  71277. getMSEL5 := (pTDefRegMap(@Self)^.val and $00006000) shr 13;
  71278. end;
  71279. procedure TCAN1_C1FLTCON1.setFLTEN5; inline;
  71280. begin
  71281. pTDefRegMap(@Self)^.&set := $00008000;
  71282. end;
  71283. procedure TCAN1_C1FLTCON1.clearFLTEN5; inline;
  71284. begin
  71285. pTDefRegMap(@Self)^.clr := $00008000;
  71286. end;
  71287. procedure TCAN1_C1FLTCON1.setFLTEN5(thebits : TBits_1); inline;
  71288. begin
  71289. if thebits = 0 then
  71290. pTDefRegMap(@Self)^.clr := $00008000
  71291. else
  71292. pTDefRegMap(@Self)^.&set := $00008000;
  71293. end;
  71294. function TCAN1_C1FLTCON1.getFLTEN5 : TBits_1; inline;
  71295. begin
  71296. getFLTEN5 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  71297. end;
  71298. procedure TCAN1_C1FLTCON1.setFSEL6(thebits : TBits_5); inline;
  71299. begin
  71300. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  71301. end;
  71302. function TCAN1_C1FLTCON1.getFSEL6 : TBits_5; inline;
  71303. begin
  71304. getFSEL6 := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  71305. end;
  71306. procedure TCAN1_C1FLTCON1.setMSEL6(thebits : TBits_2); inline;
  71307. begin
  71308. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF9FFFFF or ( thebits shl 21 );
  71309. end;
  71310. function TCAN1_C1FLTCON1.getMSEL6 : TBits_2; inline;
  71311. begin
  71312. getMSEL6 := (pTDefRegMap(@Self)^.val and $00600000) shr 21;
  71313. end;
  71314. procedure TCAN1_C1FLTCON1.setFLTEN6; inline;
  71315. begin
  71316. pTDefRegMap(@Self)^.&set := $00800000;
  71317. end;
  71318. procedure TCAN1_C1FLTCON1.clearFLTEN6; inline;
  71319. begin
  71320. pTDefRegMap(@Self)^.clr := $00800000;
  71321. end;
  71322. procedure TCAN1_C1FLTCON1.setFLTEN6(thebits : TBits_1); inline;
  71323. begin
  71324. if thebits = 0 then
  71325. pTDefRegMap(@Self)^.clr := $00800000
  71326. else
  71327. pTDefRegMap(@Self)^.&set := $00800000;
  71328. end;
  71329. function TCAN1_C1FLTCON1.getFLTEN6 : TBits_1; inline;
  71330. begin
  71331. getFLTEN6 := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
  71332. end;
  71333. procedure TCAN1_C1FLTCON1.setFSEL7(thebits : TBits_5); inline;
  71334. begin
  71335. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E0FFFFFF or ( thebits shl 24 );
  71336. end;
  71337. function TCAN1_C1FLTCON1.getFSEL7 : TBits_5; inline;
  71338. begin
  71339. getFSEL7 := (pTDefRegMap(@Self)^.val and $1F000000) shr 24;
  71340. end;
  71341. procedure TCAN1_C1FLTCON1.setMSEL7(thebits : TBits_2); inline;
  71342. begin
  71343. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $9FFFFFFF or ( thebits shl 29 );
  71344. end;
  71345. function TCAN1_C1FLTCON1.getMSEL7 : TBits_2; inline;
  71346. begin
  71347. getMSEL7 := (pTDefRegMap(@Self)^.val and $60000000) shr 29;
  71348. end;
  71349. procedure TCAN1_C1FLTCON1.setFLTEN7; inline;
  71350. begin
  71351. pTDefRegMap(@Self)^.&set := $80000000;
  71352. end;
  71353. procedure TCAN1_C1FLTCON1.clearFLTEN7; inline;
  71354. begin
  71355. pTDefRegMap(@Self)^.clr := $80000000;
  71356. end;
  71357. procedure TCAN1_C1FLTCON1.setFLTEN7(thebits : TBits_1); inline;
  71358. begin
  71359. if thebits = 0 then
  71360. pTDefRegMap(@Self)^.clr := $80000000
  71361. else
  71362. pTDefRegMap(@Self)^.&set := $80000000;
  71363. end;
  71364. function TCAN1_C1FLTCON1.getFLTEN7 : TBits_1; inline;
  71365. begin
  71366. getFLTEN7 := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  71367. end;
  71368. procedure TCAN1_C1FLTCON1.setw(thebits : TBits_32); inline;
  71369. begin
  71370. pTDefRegMap(@Self)^.val := thebits;
  71371. end;
  71372. function TCAN1_C1FLTCON1.getw : TBits_32; inline;
  71373. begin
  71374. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  71375. end;
  71376. procedure TCAN1_C1FLTCON2.setFSEL8(thebits : TBits_5); inline;
  71377. begin
  71378. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  71379. end;
  71380. function TCAN1_C1FLTCON2.getFSEL8 : TBits_5; inline;
  71381. begin
  71382. getFSEL8 := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  71383. end;
  71384. procedure TCAN1_C1FLTCON2.setMSEL8(thebits : TBits_2); inline;
  71385. begin
  71386. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF9F or ( thebits shl 5 );
  71387. end;
  71388. function TCAN1_C1FLTCON2.getMSEL8 : TBits_2; inline;
  71389. begin
  71390. getMSEL8 := (pTDefRegMap(@Self)^.val and $00000060) shr 5;
  71391. end;
  71392. procedure TCAN1_C1FLTCON2.setFLTEN8; inline;
  71393. begin
  71394. pTDefRegMap(@Self)^.&set := $00000080;
  71395. end;
  71396. procedure TCAN1_C1FLTCON2.clearFLTEN8; inline;
  71397. begin
  71398. pTDefRegMap(@Self)^.clr := $00000080;
  71399. end;
  71400. procedure TCAN1_C1FLTCON2.setFLTEN8(thebits : TBits_1); inline;
  71401. begin
  71402. if thebits = 0 then
  71403. pTDefRegMap(@Self)^.clr := $00000080
  71404. else
  71405. pTDefRegMap(@Self)^.&set := $00000080;
  71406. end;
  71407. function TCAN1_C1FLTCON2.getFLTEN8 : TBits_1; inline;
  71408. begin
  71409. getFLTEN8 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  71410. end;
  71411. procedure TCAN1_C1FLTCON2.setFSEL9(thebits : TBits_5); inline;
  71412. begin
  71413. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE0FF or ( thebits shl 8 );
  71414. end;
  71415. function TCAN1_C1FLTCON2.getFSEL9 : TBits_5; inline;
  71416. begin
  71417. getFSEL9 := (pTDefRegMap(@Self)^.val and $00001F00) shr 8;
  71418. end;
  71419. procedure TCAN1_C1FLTCON2.setMSEL9(thebits : TBits_2); inline;
  71420. begin
  71421. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF9FFF or ( thebits shl 13 );
  71422. end;
  71423. function TCAN1_C1FLTCON2.getMSEL9 : TBits_2; inline;
  71424. begin
  71425. getMSEL9 := (pTDefRegMap(@Self)^.val and $00006000) shr 13;
  71426. end;
  71427. procedure TCAN1_C1FLTCON2.setFLTEN9; inline;
  71428. begin
  71429. pTDefRegMap(@Self)^.&set := $00008000;
  71430. end;
  71431. procedure TCAN1_C1FLTCON2.clearFLTEN9; inline;
  71432. begin
  71433. pTDefRegMap(@Self)^.clr := $00008000;
  71434. end;
  71435. procedure TCAN1_C1FLTCON2.setFLTEN9(thebits : TBits_1); inline;
  71436. begin
  71437. if thebits = 0 then
  71438. pTDefRegMap(@Self)^.clr := $00008000
  71439. else
  71440. pTDefRegMap(@Self)^.&set := $00008000;
  71441. end;
  71442. function TCAN1_C1FLTCON2.getFLTEN9 : TBits_1; inline;
  71443. begin
  71444. getFLTEN9 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  71445. end;
  71446. procedure TCAN1_C1FLTCON2.setFSEL10(thebits : TBits_5); inline;
  71447. begin
  71448. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  71449. end;
  71450. function TCAN1_C1FLTCON2.getFSEL10 : TBits_5; inline;
  71451. begin
  71452. getFSEL10 := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  71453. end;
  71454. procedure TCAN1_C1FLTCON2.setMSEL10(thebits : TBits_2); inline;
  71455. begin
  71456. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF9FFFFF or ( thebits shl 21 );
  71457. end;
  71458. function TCAN1_C1FLTCON2.getMSEL10 : TBits_2; inline;
  71459. begin
  71460. getMSEL10 := (pTDefRegMap(@Self)^.val and $00600000) shr 21;
  71461. end;
  71462. procedure TCAN1_C1FLTCON2.setFLTEN10; inline;
  71463. begin
  71464. pTDefRegMap(@Self)^.&set := $00800000;
  71465. end;
  71466. procedure TCAN1_C1FLTCON2.clearFLTEN10; inline;
  71467. begin
  71468. pTDefRegMap(@Self)^.clr := $00800000;
  71469. end;
  71470. procedure TCAN1_C1FLTCON2.setFLTEN10(thebits : TBits_1); inline;
  71471. begin
  71472. if thebits = 0 then
  71473. pTDefRegMap(@Self)^.clr := $00800000
  71474. else
  71475. pTDefRegMap(@Self)^.&set := $00800000;
  71476. end;
  71477. function TCAN1_C1FLTCON2.getFLTEN10 : TBits_1; inline;
  71478. begin
  71479. getFLTEN10 := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
  71480. end;
  71481. procedure TCAN1_C1FLTCON2.setFSEL11(thebits : TBits_5); inline;
  71482. begin
  71483. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E0FFFFFF or ( thebits shl 24 );
  71484. end;
  71485. function TCAN1_C1FLTCON2.getFSEL11 : TBits_5; inline;
  71486. begin
  71487. getFSEL11 := (pTDefRegMap(@Self)^.val and $1F000000) shr 24;
  71488. end;
  71489. procedure TCAN1_C1FLTCON2.setMSEL11(thebits : TBits_2); inline;
  71490. begin
  71491. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $9FFFFFFF or ( thebits shl 29 );
  71492. end;
  71493. function TCAN1_C1FLTCON2.getMSEL11 : TBits_2; inline;
  71494. begin
  71495. getMSEL11 := (pTDefRegMap(@Self)^.val and $60000000) shr 29;
  71496. end;
  71497. procedure TCAN1_C1FLTCON2.setFLTEN11; inline;
  71498. begin
  71499. pTDefRegMap(@Self)^.&set := $80000000;
  71500. end;
  71501. procedure TCAN1_C1FLTCON2.clearFLTEN11; inline;
  71502. begin
  71503. pTDefRegMap(@Self)^.clr := $80000000;
  71504. end;
  71505. procedure TCAN1_C1FLTCON2.setFLTEN11(thebits : TBits_1); inline;
  71506. begin
  71507. if thebits = 0 then
  71508. pTDefRegMap(@Self)^.clr := $80000000
  71509. else
  71510. pTDefRegMap(@Self)^.&set := $80000000;
  71511. end;
  71512. function TCAN1_C1FLTCON2.getFLTEN11 : TBits_1; inline;
  71513. begin
  71514. getFLTEN11 := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  71515. end;
  71516. procedure TCAN1_C1FLTCON2.setw(thebits : TBits_32); inline;
  71517. begin
  71518. pTDefRegMap(@Self)^.val := thebits;
  71519. end;
  71520. function TCAN1_C1FLTCON2.getw : TBits_32; inline;
  71521. begin
  71522. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  71523. end;
  71524. procedure TCAN1_C1FLTCON3.setFSEL12(thebits : TBits_5); inline;
  71525. begin
  71526. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  71527. end;
  71528. function TCAN1_C1FLTCON3.getFSEL12 : TBits_5; inline;
  71529. begin
  71530. getFSEL12 := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  71531. end;
  71532. procedure TCAN1_C1FLTCON3.setMSEL12(thebits : TBits_2); inline;
  71533. begin
  71534. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF9F or ( thebits shl 5 );
  71535. end;
  71536. function TCAN1_C1FLTCON3.getMSEL12 : TBits_2; inline;
  71537. begin
  71538. getMSEL12 := (pTDefRegMap(@Self)^.val and $00000060) shr 5;
  71539. end;
  71540. procedure TCAN1_C1FLTCON3.setFLTEN12; inline;
  71541. begin
  71542. pTDefRegMap(@Self)^.&set := $00000080;
  71543. end;
  71544. procedure TCAN1_C1FLTCON3.clearFLTEN12; inline;
  71545. begin
  71546. pTDefRegMap(@Self)^.clr := $00000080;
  71547. end;
  71548. procedure TCAN1_C1FLTCON3.setFLTEN12(thebits : TBits_1); inline;
  71549. begin
  71550. if thebits = 0 then
  71551. pTDefRegMap(@Self)^.clr := $00000080
  71552. else
  71553. pTDefRegMap(@Self)^.&set := $00000080;
  71554. end;
  71555. function TCAN1_C1FLTCON3.getFLTEN12 : TBits_1; inline;
  71556. begin
  71557. getFLTEN12 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  71558. end;
  71559. procedure TCAN1_C1FLTCON3.setFSEL13(thebits : TBits_5); inline;
  71560. begin
  71561. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE0FF or ( thebits shl 8 );
  71562. end;
  71563. function TCAN1_C1FLTCON3.getFSEL13 : TBits_5; inline;
  71564. begin
  71565. getFSEL13 := (pTDefRegMap(@Self)^.val and $00001F00) shr 8;
  71566. end;
  71567. procedure TCAN1_C1FLTCON3.setMSEL13(thebits : TBits_2); inline;
  71568. begin
  71569. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF9FFF or ( thebits shl 13 );
  71570. end;
  71571. function TCAN1_C1FLTCON3.getMSEL13 : TBits_2; inline;
  71572. begin
  71573. getMSEL13 := (pTDefRegMap(@Self)^.val and $00006000) shr 13;
  71574. end;
  71575. procedure TCAN1_C1FLTCON3.setFLTEN13; inline;
  71576. begin
  71577. pTDefRegMap(@Self)^.&set := $00008000;
  71578. end;
  71579. procedure TCAN1_C1FLTCON3.clearFLTEN13; inline;
  71580. begin
  71581. pTDefRegMap(@Self)^.clr := $00008000;
  71582. end;
  71583. procedure TCAN1_C1FLTCON3.setFLTEN13(thebits : TBits_1); inline;
  71584. begin
  71585. if thebits = 0 then
  71586. pTDefRegMap(@Self)^.clr := $00008000
  71587. else
  71588. pTDefRegMap(@Self)^.&set := $00008000;
  71589. end;
  71590. function TCAN1_C1FLTCON3.getFLTEN13 : TBits_1; inline;
  71591. begin
  71592. getFLTEN13 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  71593. end;
  71594. procedure TCAN1_C1FLTCON3.setFSEL14(thebits : TBits_5); inline;
  71595. begin
  71596. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  71597. end;
  71598. function TCAN1_C1FLTCON3.getFSEL14 : TBits_5; inline;
  71599. begin
  71600. getFSEL14 := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  71601. end;
  71602. procedure TCAN1_C1FLTCON3.setMSEL14(thebits : TBits_2); inline;
  71603. begin
  71604. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF9FFFFF or ( thebits shl 21 );
  71605. end;
  71606. function TCAN1_C1FLTCON3.getMSEL14 : TBits_2; inline;
  71607. begin
  71608. getMSEL14 := (pTDefRegMap(@Self)^.val and $00600000) shr 21;
  71609. end;
  71610. procedure TCAN1_C1FLTCON3.setFLTEN14; inline;
  71611. begin
  71612. pTDefRegMap(@Self)^.&set := $00800000;
  71613. end;
  71614. procedure TCAN1_C1FLTCON3.clearFLTEN14; inline;
  71615. begin
  71616. pTDefRegMap(@Self)^.clr := $00800000;
  71617. end;
  71618. procedure TCAN1_C1FLTCON3.setFLTEN14(thebits : TBits_1); inline;
  71619. begin
  71620. if thebits = 0 then
  71621. pTDefRegMap(@Self)^.clr := $00800000
  71622. else
  71623. pTDefRegMap(@Self)^.&set := $00800000;
  71624. end;
  71625. function TCAN1_C1FLTCON3.getFLTEN14 : TBits_1; inline;
  71626. begin
  71627. getFLTEN14 := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
  71628. end;
  71629. procedure TCAN1_C1FLTCON3.setFSEL15(thebits : TBits_5); inline;
  71630. begin
  71631. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E0FFFFFF or ( thebits shl 24 );
  71632. end;
  71633. function TCAN1_C1FLTCON3.getFSEL15 : TBits_5; inline;
  71634. begin
  71635. getFSEL15 := (pTDefRegMap(@Self)^.val and $1F000000) shr 24;
  71636. end;
  71637. procedure TCAN1_C1FLTCON3.setMSEL15(thebits : TBits_2); inline;
  71638. begin
  71639. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $9FFFFFFF or ( thebits shl 29 );
  71640. end;
  71641. function TCAN1_C1FLTCON3.getMSEL15 : TBits_2; inline;
  71642. begin
  71643. getMSEL15 := (pTDefRegMap(@Self)^.val and $60000000) shr 29;
  71644. end;
  71645. procedure TCAN1_C1FLTCON3.setFLTEN15; inline;
  71646. begin
  71647. pTDefRegMap(@Self)^.&set := $80000000;
  71648. end;
  71649. procedure TCAN1_C1FLTCON3.clearFLTEN15; inline;
  71650. begin
  71651. pTDefRegMap(@Self)^.clr := $80000000;
  71652. end;
  71653. procedure TCAN1_C1FLTCON3.setFLTEN15(thebits : TBits_1); inline;
  71654. begin
  71655. if thebits = 0 then
  71656. pTDefRegMap(@Self)^.clr := $80000000
  71657. else
  71658. pTDefRegMap(@Self)^.&set := $80000000;
  71659. end;
  71660. function TCAN1_C1FLTCON3.getFLTEN15 : TBits_1; inline;
  71661. begin
  71662. getFLTEN15 := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  71663. end;
  71664. procedure TCAN1_C1FLTCON3.setw(thebits : TBits_32); inline;
  71665. begin
  71666. pTDefRegMap(@Self)^.val := thebits;
  71667. end;
  71668. function TCAN1_C1FLTCON3.getw : TBits_32; inline;
  71669. begin
  71670. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  71671. end;
  71672. procedure TCAN1_C1FLTCON4.setFSEL16(thebits : TBits_5); inline;
  71673. begin
  71674. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  71675. end;
  71676. function TCAN1_C1FLTCON4.getFSEL16 : TBits_5; inline;
  71677. begin
  71678. getFSEL16 := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  71679. end;
  71680. procedure TCAN1_C1FLTCON4.setMSEL16(thebits : TBits_2); inline;
  71681. begin
  71682. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF9F or ( thebits shl 5 );
  71683. end;
  71684. function TCAN1_C1FLTCON4.getMSEL16 : TBits_2; inline;
  71685. begin
  71686. getMSEL16 := (pTDefRegMap(@Self)^.val and $00000060) shr 5;
  71687. end;
  71688. procedure TCAN1_C1FLTCON4.setFLTEN16; inline;
  71689. begin
  71690. pTDefRegMap(@Self)^.&set := $00000080;
  71691. end;
  71692. procedure TCAN1_C1FLTCON4.clearFLTEN16; inline;
  71693. begin
  71694. pTDefRegMap(@Self)^.clr := $00000080;
  71695. end;
  71696. procedure TCAN1_C1FLTCON4.setFLTEN16(thebits : TBits_1); inline;
  71697. begin
  71698. if thebits = 0 then
  71699. pTDefRegMap(@Self)^.clr := $00000080
  71700. else
  71701. pTDefRegMap(@Self)^.&set := $00000080;
  71702. end;
  71703. function TCAN1_C1FLTCON4.getFLTEN16 : TBits_1; inline;
  71704. begin
  71705. getFLTEN16 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  71706. end;
  71707. procedure TCAN1_C1FLTCON4.setFSEL17(thebits : TBits_5); inline;
  71708. begin
  71709. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE0FF or ( thebits shl 8 );
  71710. end;
  71711. function TCAN1_C1FLTCON4.getFSEL17 : TBits_5; inline;
  71712. begin
  71713. getFSEL17 := (pTDefRegMap(@Self)^.val and $00001F00) shr 8;
  71714. end;
  71715. procedure TCAN1_C1FLTCON4.setMSEL17(thebits : TBits_2); inline;
  71716. begin
  71717. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF9FFF or ( thebits shl 13 );
  71718. end;
  71719. function TCAN1_C1FLTCON4.getMSEL17 : TBits_2; inline;
  71720. begin
  71721. getMSEL17 := (pTDefRegMap(@Self)^.val and $00006000) shr 13;
  71722. end;
  71723. procedure TCAN1_C1FLTCON4.setFLTEN17; inline;
  71724. begin
  71725. pTDefRegMap(@Self)^.&set := $00008000;
  71726. end;
  71727. procedure TCAN1_C1FLTCON4.clearFLTEN17; inline;
  71728. begin
  71729. pTDefRegMap(@Self)^.clr := $00008000;
  71730. end;
  71731. procedure TCAN1_C1FLTCON4.setFLTEN17(thebits : TBits_1); inline;
  71732. begin
  71733. if thebits = 0 then
  71734. pTDefRegMap(@Self)^.clr := $00008000
  71735. else
  71736. pTDefRegMap(@Self)^.&set := $00008000;
  71737. end;
  71738. function TCAN1_C1FLTCON4.getFLTEN17 : TBits_1; inline;
  71739. begin
  71740. getFLTEN17 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  71741. end;
  71742. procedure TCAN1_C1FLTCON4.setFSEL18(thebits : TBits_5); inline;
  71743. begin
  71744. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  71745. end;
  71746. function TCAN1_C1FLTCON4.getFSEL18 : TBits_5; inline;
  71747. begin
  71748. getFSEL18 := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  71749. end;
  71750. procedure TCAN1_C1FLTCON4.setMSEL18(thebits : TBits_2); inline;
  71751. begin
  71752. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF9FFFFF or ( thebits shl 21 );
  71753. end;
  71754. function TCAN1_C1FLTCON4.getMSEL18 : TBits_2; inline;
  71755. begin
  71756. getMSEL18 := (pTDefRegMap(@Self)^.val and $00600000) shr 21;
  71757. end;
  71758. procedure TCAN1_C1FLTCON4.setFLTEN18; inline;
  71759. begin
  71760. pTDefRegMap(@Self)^.&set := $00800000;
  71761. end;
  71762. procedure TCAN1_C1FLTCON4.clearFLTEN18; inline;
  71763. begin
  71764. pTDefRegMap(@Self)^.clr := $00800000;
  71765. end;
  71766. procedure TCAN1_C1FLTCON4.setFLTEN18(thebits : TBits_1); inline;
  71767. begin
  71768. if thebits = 0 then
  71769. pTDefRegMap(@Self)^.clr := $00800000
  71770. else
  71771. pTDefRegMap(@Self)^.&set := $00800000;
  71772. end;
  71773. function TCAN1_C1FLTCON4.getFLTEN18 : TBits_1; inline;
  71774. begin
  71775. getFLTEN18 := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
  71776. end;
  71777. procedure TCAN1_C1FLTCON4.setFSEL19(thebits : TBits_5); inline;
  71778. begin
  71779. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E0FFFFFF or ( thebits shl 24 );
  71780. end;
  71781. function TCAN1_C1FLTCON4.getFSEL19 : TBits_5; inline;
  71782. begin
  71783. getFSEL19 := (pTDefRegMap(@Self)^.val and $1F000000) shr 24;
  71784. end;
  71785. procedure TCAN1_C1FLTCON4.setMSEL19(thebits : TBits_2); inline;
  71786. begin
  71787. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $9FFFFFFF or ( thebits shl 29 );
  71788. end;
  71789. function TCAN1_C1FLTCON4.getMSEL19 : TBits_2; inline;
  71790. begin
  71791. getMSEL19 := (pTDefRegMap(@Self)^.val and $60000000) shr 29;
  71792. end;
  71793. procedure TCAN1_C1FLTCON4.setFLTEN19; inline;
  71794. begin
  71795. pTDefRegMap(@Self)^.&set := $80000000;
  71796. end;
  71797. procedure TCAN1_C1FLTCON4.clearFLTEN19; inline;
  71798. begin
  71799. pTDefRegMap(@Self)^.clr := $80000000;
  71800. end;
  71801. procedure TCAN1_C1FLTCON4.setFLTEN19(thebits : TBits_1); inline;
  71802. begin
  71803. if thebits = 0 then
  71804. pTDefRegMap(@Self)^.clr := $80000000
  71805. else
  71806. pTDefRegMap(@Self)^.&set := $80000000;
  71807. end;
  71808. function TCAN1_C1FLTCON4.getFLTEN19 : TBits_1; inline;
  71809. begin
  71810. getFLTEN19 := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  71811. end;
  71812. procedure TCAN1_C1FLTCON4.setw(thebits : TBits_32); inline;
  71813. begin
  71814. pTDefRegMap(@Self)^.val := thebits;
  71815. end;
  71816. function TCAN1_C1FLTCON4.getw : TBits_32; inline;
  71817. begin
  71818. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  71819. end;
  71820. procedure TCAN1_C1FLTCON5.setFSEL20(thebits : TBits_5); inline;
  71821. begin
  71822. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  71823. end;
  71824. function TCAN1_C1FLTCON5.getFSEL20 : TBits_5; inline;
  71825. begin
  71826. getFSEL20 := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  71827. end;
  71828. procedure TCAN1_C1FLTCON5.setMSEL20(thebits : TBits_2); inline;
  71829. begin
  71830. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF9F or ( thebits shl 5 );
  71831. end;
  71832. function TCAN1_C1FLTCON5.getMSEL20 : TBits_2; inline;
  71833. begin
  71834. getMSEL20 := (pTDefRegMap(@Self)^.val and $00000060) shr 5;
  71835. end;
  71836. procedure TCAN1_C1FLTCON5.setFLTEN20; inline;
  71837. begin
  71838. pTDefRegMap(@Self)^.&set := $00000080;
  71839. end;
  71840. procedure TCAN1_C1FLTCON5.clearFLTEN20; inline;
  71841. begin
  71842. pTDefRegMap(@Self)^.clr := $00000080;
  71843. end;
  71844. procedure TCAN1_C1FLTCON5.setFLTEN20(thebits : TBits_1); inline;
  71845. begin
  71846. if thebits = 0 then
  71847. pTDefRegMap(@Self)^.clr := $00000080
  71848. else
  71849. pTDefRegMap(@Self)^.&set := $00000080;
  71850. end;
  71851. function TCAN1_C1FLTCON5.getFLTEN20 : TBits_1; inline;
  71852. begin
  71853. getFLTEN20 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  71854. end;
  71855. procedure TCAN1_C1FLTCON5.setFSEL21(thebits : TBits_5); inline;
  71856. begin
  71857. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE0FF or ( thebits shl 8 );
  71858. end;
  71859. function TCAN1_C1FLTCON5.getFSEL21 : TBits_5; inline;
  71860. begin
  71861. getFSEL21 := (pTDefRegMap(@Self)^.val and $00001F00) shr 8;
  71862. end;
  71863. procedure TCAN1_C1FLTCON5.setMSEL21(thebits : TBits_2); inline;
  71864. begin
  71865. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF9FFF or ( thebits shl 13 );
  71866. end;
  71867. function TCAN1_C1FLTCON5.getMSEL21 : TBits_2; inline;
  71868. begin
  71869. getMSEL21 := (pTDefRegMap(@Self)^.val and $00006000) shr 13;
  71870. end;
  71871. procedure TCAN1_C1FLTCON5.setFLTEN21; inline;
  71872. begin
  71873. pTDefRegMap(@Self)^.&set := $00008000;
  71874. end;
  71875. procedure TCAN1_C1FLTCON5.clearFLTEN21; inline;
  71876. begin
  71877. pTDefRegMap(@Self)^.clr := $00008000;
  71878. end;
  71879. procedure TCAN1_C1FLTCON5.setFLTEN21(thebits : TBits_1); inline;
  71880. begin
  71881. if thebits = 0 then
  71882. pTDefRegMap(@Self)^.clr := $00008000
  71883. else
  71884. pTDefRegMap(@Self)^.&set := $00008000;
  71885. end;
  71886. function TCAN1_C1FLTCON5.getFLTEN21 : TBits_1; inline;
  71887. begin
  71888. getFLTEN21 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  71889. end;
  71890. procedure TCAN1_C1FLTCON5.setFSEL22(thebits : TBits_5); inline;
  71891. begin
  71892. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  71893. end;
  71894. function TCAN1_C1FLTCON5.getFSEL22 : TBits_5; inline;
  71895. begin
  71896. getFSEL22 := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  71897. end;
  71898. procedure TCAN1_C1FLTCON5.setMSEL22(thebits : TBits_2); inline;
  71899. begin
  71900. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF9FFFFF or ( thebits shl 21 );
  71901. end;
  71902. function TCAN1_C1FLTCON5.getMSEL22 : TBits_2; inline;
  71903. begin
  71904. getMSEL22 := (pTDefRegMap(@Self)^.val and $00600000) shr 21;
  71905. end;
  71906. procedure TCAN1_C1FLTCON5.setFLTEN22; inline;
  71907. begin
  71908. pTDefRegMap(@Self)^.&set := $00800000;
  71909. end;
  71910. procedure TCAN1_C1FLTCON5.clearFLTEN22; inline;
  71911. begin
  71912. pTDefRegMap(@Self)^.clr := $00800000;
  71913. end;
  71914. procedure TCAN1_C1FLTCON5.setFLTEN22(thebits : TBits_1); inline;
  71915. begin
  71916. if thebits = 0 then
  71917. pTDefRegMap(@Self)^.clr := $00800000
  71918. else
  71919. pTDefRegMap(@Self)^.&set := $00800000;
  71920. end;
  71921. function TCAN1_C1FLTCON5.getFLTEN22 : TBits_1; inline;
  71922. begin
  71923. getFLTEN22 := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
  71924. end;
  71925. procedure TCAN1_C1FLTCON5.setFSEL23(thebits : TBits_5); inline;
  71926. begin
  71927. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E0FFFFFF or ( thebits shl 24 );
  71928. end;
  71929. function TCAN1_C1FLTCON5.getFSEL23 : TBits_5; inline;
  71930. begin
  71931. getFSEL23 := (pTDefRegMap(@Self)^.val and $1F000000) shr 24;
  71932. end;
  71933. procedure TCAN1_C1FLTCON5.setMSEL23(thebits : TBits_2); inline;
  71934. begin
  71935. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $9FFFFFFF or ( thebits shl 29 );
  71936. end;
  71937. function TCAN1_C1FLTCON5.getMSEL23 : TBits_2; inline;
  71938. begin
  71939. getMSEL23 := (pTDefRegMap(@Self)^.val and $60000000) shr 29;
  71940. end;
  71941. procedure TCAN1_C1FLTCON5.setFLTEN23; inline;
  71942. begin
  71943. pTDefRegMap(@Self)^.&set := $80000000;
  71944. end;
  71945. procedure TCAN1_C1FLTCON5.clearFLTEN23; inline;
  71946. begin
  71947. pTDefRegMap(@Self)^.clr := $80000000;
  71948. end;
  71949. procedure TCAN1_C1FLTCON5.setFLTEN23(thebits : TBits_1); inline;
  71950. begin
  71951. if thebits = 0 then
  71952. pTDefRegMap(@Self)^.clr := $80000000
  71953. else
  71954. pTDefRegMap(@Self)^.&set := $80000000;
  71955. end;
  71956. function TCAN1_C1FLTCON5.getFLTEN23 : TBits_1; inline;
  71957. begin
  71958. getFLTEN23 := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  71959. end;
  71960. procedure TCAN1_C1FLTCON5.setw(thebits : TBits_32); inline;
  71961. begin
  71962. pTDefRegMap(@Self)^.val := thebits;
  71963. end;
  71964. function TCAN1_C1FLTCON5.getw : TBits_32; inline;
  71965. begin
  71966. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  71967. end;
  71968. procedure TCAN1_C1FLTCON6.setFSEL24(thebits : TBits_5); inline;
  71969. begin
  71970. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  71971. end;
  71972. function TCAN1_C1FLTCON6.getFSEL24 : TBits_5; inline;
  71973. begin
  71974. getFSEL24 := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  71975. end;
  71976. procedure TCAN1_C1FLTCON6.setMSEL24(thebits : TBits_2); inline;
  71977. begin
  71978. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF9F or ( thebits shl 5 );
  71979. end;
  71980. function TCAN1_C1FLTCON6.getMSEL24 : TBits_2; inline;
  71981. begin
  71982. getMSEL24 := (pTDefRegMap(@Self)^.val and $00000060) shr 5;
  71983. end;
  71984. procedure TCAN1_C1FLTCON6.setFLTEN24; inline;
  71985. begin
  71986. pTDefRegMap(@Self)^.&set := $00000080;
  71987. end;
  71988. procedure TCAN1_C1FLTCON6.clearFLTEN24; inline;
  71989. begin
  71990. pTDefRegMap(@Self)^.clr := $00000080;
  71991. end;
  71992. procedure TCAN1_C1FLTCON6.setFLTEN24(thebits : TBits_1); inline;
  71993. begin
  71994. if thebits = 0 then
  71995. pTDefRegMap(@Self)^.clr := $00000080
  71996. else
  71997. pTDefRegMap(@Self)^.&set := $00000080;
  71998. end;
  71999. function TCAN1_C1FLTCON6.getFLTEN24 : TBits_1; inline;
  72000. begin
  72001. getFLTEN24 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  72002. end;
  72003. procedure TCAN1_C1FLTCON6.setFSEL25(thebits : TBits_5); inline;
  72004. begin
  72005. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE0FF or ( thebits shl 8 );
  72006. end;
  72007. function TCAN1_C1FLTCON6.getFSEL25 : TBits_5; inline;
  72008. begin
  72009. getFSEL25 := (pTDefRegMap(@Self)^.val and $00001F00) shr 8;
  72010. end;
  72011. procedure TCAN1_C1FLTCON6.setMSEL25(thebits : TBits_2); inline;
  72012. begin
  72013. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF9FFF or ( thebits shl 13 );
  72014. end;
  72015. function TCAN1_C1FLTCON6.getMSEL25 : TBits_2; inline;
  72016. begin
  72017. getMSEL25 := (pTDefRegMap(@Self)^.val and $00006000) shr 13;
  72018. end;
  72019. procedure TCAN1_C1FLTCON6.setFLTEN25; inline;
  72020. begin
  72021. pTDefRegMap(@Self)^.&set := $00008000;
  72022. end;
  72023. procedure TCAN1_C1FLTCON6.clearFLTEN25; inline;
  72024. begin
  72025. pTDefRegMap(@Self)^.clr := $00008000;
  72026. end;
  72027. procedure TCAN1_C1FLTCON6.setFLTEN25(thebits : TBits_1); inline;
  72028. begin
  72029. if thebits = 0 then
  72030. pTDefRegMap(@Self)^.clr := $00008000
  72031. else
  72032. pTDefRegMap(@Self)^.&set := $00008000;
  72033. end;
  72034. function TCAN1_C1FLTCON6.getFLTEN25 : TBits_1; inline;
  72035. begin
  72036. getFLTEN25 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  72037. end;
  72038. procedure TCAN1_C1FLTCON6.setFSEL26(thebits : TBits_5); inline;
  72039. begin
  72040. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  72041. end;
  72042. function TCAN1_C1FLTCON6.getFSEL26 : TBits_5; inline;
  72043. begin
  72044. getFSEL26 := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  72045. end;
  72046. procedure TCAN1_C1FLTCON6.setMSEL26(thebits : TBits_2); inline;
  72047. begin
  72048. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF9FFFFF or ( thebits shl 21 );
  72049. end;
  72050. function TCAN1_C1FLTCON6.getMSEL26 : TBits_2; inline;
  72051. begin
  72052. getMSEL26 := (pTDefRegMap(@Self)^.val and $00600000) shr 21;
  72053. end;
  72054. procedure TCAN1_C1FLTCON6.setFLTEN26; inline;
  72055. begin
  72056. pTDefRegMap(@Self)^.&set := $00800000;
  72057. end;
  72058. procedure TCAN1_C1FLTCON6.clearFLTEN26; inline;
  72059. begin
  72060. pTDefRegMap(@Self)^.clr := $00800000;
  72061. end;
  72062. procedure TCAN1_C1FLTCON6.setFLTEN26(thebits : TBits_1); inline;
  72063. begin
  72064. if thebits = 0 then
  72065. pTDefRegMap(@Self)^.clr := $00800000
  72066. else
  72067. pTDefRegMap(@Self)^.&set := $00800000;
  72068. end;
  72069. function TCAN1_C1FLTCON6.getFLTEN26 : TBits_1; inline;
  72070. begin
  72071. getFLTEN26 := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
  72072. end;
  72073. procedure TCAN1_C1FLTCON6.setFSEL27(thebits : TBits_5); inline;
  72074. begin
  72075. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E0FFFFFF or ( thebits shl 24 );
  72076. end;
  72077. function TCAN1_C1FLTCON6.getFSEL27 : TBits_5; inline;
  72078. begin
  72079. getFSEL27 := (pTDefRegMap(@Self)^.val and $1F000000) shr 24;
  72080. end;
  72081. procedure TCAN1_C1FLTCON6.setMSEL27(thebits : TBits_2); inline;
  72082. begin
  72083. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $9FFFFFFF or ( thebits shl 29 );
  72084. end;
  72085. function TCAN1_C1FLTCON6.getMSEL27 : TBits_2; inline;
  72086. begin
  72087. getMSEL27 := (pTDefRegMap(@Self)^.val and $60000000) shr 29;
  72088. end;
  72089. procedure TCAN1_C1FLTCON6.setFLTEN27; inline;
  72090. begin
  72091. pTDefRegMap(@Self)^.&set := $80000000;
  72092. end;
  72093. procedure TCAN1_C1FLTCON6.clearFLTEN27; inline;
  72094. begin
  72095. pTDefRegMap(@Self)^.clr := $80000000;
  72096. end;
  72097. procedure TCAN1_C1FLTCON6.setFLTEN27(thebits : TBits_1); inline;
  72098. begin
  72099. if thebits = 0 then
  72100. pTDefRegMap(@Self)^.clr := $80000000
  72101. else
  72102. pTDefRegMap(@Self)^.&set := $80000000;
  72103. end;
  72104. function TCAN1_C1FLTCON6.getFLTEN27 : TBits_1; inline;
  72105. begin
  72106. getFLTEN27 := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  72107. end;
  72108. procedure TCAN1_C1FLTCON6.setw(thebits : TBits_32); inline;
  72109. begin
  72110. pTDefRegMap(@Self)^.val := thebits;
  72111. end;
  72112. function TCAN1_C1FLTCON6.getw : TBits_32; inline;
  72113. begin
  72114. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  72115. end;
  72116. procedure TCAN1_C1FLTCON7.setFSEL28(thebits : TBits_5); inline;
  72117. begin
  72118. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  72119. end;
  72120. function TCAN1_C1FLTCON7.getFSEL28 : TBits_5; inline;
  72121. begin
  72122. getFSEL28 := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  72123. end;
  72124. procedure TCAN1_C1FLTCON7.setMSEL28(thebits : TBits_2); inline;
  72125. begin
  72126. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF9F or ( thebits shl 5 );
  72127. end;
  72128. function TCAN1_C1FLTCON7.getMSEL28 : TBits_2; inline;
  72129. begin
  72130. getMSEL28 := (pTDefRegMap(@Self)^.val and $00000060) shr 5;
  72131. end;
  72132. procedure TCAN1_C1FLTCON7.setFLTEN28; inline;
  72133. begin
  72134. pTDefRegMap(@Self)^.&set := $00000080;
  72135. end;
  72136. procedure TCAN1_C1FLTCON7.clearFLTEN28; inline;
  72137. begin
  72138. pTDefRegMap(@Self)^.clr := $00000080;
  72139. end;
  72140. procedure TCAN1_C1FLTCON7.setFLTEN28(thebits : TBits_1); inline;
  72141. begin
  72142. if thebits = 0 then
  72143. pTDefRegMap(@Self)^.clr := $00000080
  72144. else
  72145. pTDefRegMap(@Self)^.&set := $00000080;
  72146. end;
  72147. function TCAN1_C1FLTCON7.getFLTEN28 : TBits_1; inline;
  72148. begin
  72149. getFLTEN28 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  72150. end;
  72151. procedure TCAN1_C1FLTCON7.setFSEL29(thebits : TBits_5); inline;
  72152. begin
  72153. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE0FF or ( thebits shl 8 );
  72154. end;
  72155. function TCAN1_C1FLTCON7.getFSEL29 : TBits_5; inline;
  72156. begin
  72157. getFSEL29 := (pTDefRegMap(@Self)^.val and $00001F00) shr 8;
  72158. end;
  72159. procedure TCAN1_C1FLTCON7.setMSEL29(thebits : TBits_2); inline;
  72160. begin
  72161. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF9FFF or ( thebits shl 13 );
  72162. end;
  72163. function TCAN1_C1FLTCON7.getMSEL29 : TBits_2; inline;
  72164. begin
  72165. getMSEL29 := (pTDefRegMap(@Self)^.val and $00006000) shr 13;
  72166. end;
  72167. procedure TCAN1_C1FLTCON7.setFLTEN29; inline;
  72168. begin
  72169. pTDefRegMap(@Self)^.&set := $00008000;
  72170. end;
  72171. procedure TCAN1_C1FLTCON7.clearFLTEN29; inline;
  72172. begin
  72173. pTDefRegMap(@Self)^.clr := $00008000;
  72174. end;
  72175. procedure TCAN1_C1FLTCON7.setFLTEN29(thebits : TBits_1); inline;
  72176. begin
  72177. if thebits = 0 then
  72178. pTDefRegMap(@Self)^.clr := $00008000
  72179. else
  72180. pTDefRegMap(@Self)^.&set := $00008000;
  72181. end;
  72182. function TCAN1_C1FLTCON7.getFLTEN29 : TBits_1; inline;
  72183. begin
  72184. getFLTEN29 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  72185. end;
  72186. procedure TCAN1_C1FLTCON7.setFSEL30(thebits : TBits_5); inline;
  72187. begin
  72188. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  72189. end;
  72190. function TCAN1_C1FLTCON7.getFSEL30 : TBits_5; inline;
  72191. begin
  72192. getFSEL30 := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  72193. end;
  72194. procedure TCAN1_C1FLTCON7.setMSEL30(thebits : TBits_2); inline;
  72195. begin
  72196. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF9FFFFF or ( thebits shl 21 );
  72197. end;
  72198. function TCAN1_C1FLTCON7.getMSEL30 : TBits_2; inline;
  72199. begin
  72200. getMSEL30 := (pTDefRegMap(@Self)^.val and $00600000) shr 21;
  72201. end;
  72202. procedure TCAN1_C1FLTCON7.setFLTEN30; inline;
  72203. begin
  72204. pTDefRegMap(@Self)^.&set := $00800000;
  72205. end;
  72206. procedure TCAN1_C1FLTCON7.clearFLTEN30; inline;
  72207. begin
  72208. pTDefRegMap(@Self)^.clr := $00800000;
  72209. end;
  72210. procedure TCAN1_C1FLTCON7.setFLTEN30(thebits : TBits_1); inline;
  72211. begin
  72212. if thebits = 0 then
  72213. pTDefRegMap(@Self)^.clr := $00800000
  72214. else
  72215. pTDefRegMap(@Self)^.&set := $00800000;
  72216. end;
  72217. function TCAN1_C1FLTCON7.getFLTEN30 : TBits_1; inline;
  72218. begin
  72219. getFLTEN30 := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
  72220. end;
  72221. procedure TCAN1_C1FLTCON7.setFSEL31(thebits : TBits_5); inline;
  72222. begin
  72223. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E0FFFFFF or ( thebits shl 24 );
  72224. end;
  72225. function TCAN1_C1FLTCON7.getFSEL31 : TBits_5; inline;
  72226. begin
  72227. getFSEL31 := (pTDefRegMap(@Self)^.val and $1F000000) shr 24;
  72228. end;
  72229. procedure TCAN1_C1FLTCON7.setMSEL31(thebits : TBits_2); inline;
  72230. begin
  72231. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $9FFFFFFF or ( thebits shl 29 );
  72232. end;
  72233. function TCAN1_C1FLTCON7.getMSEL31 : TBits_2; inline;
  72234. begin
  72235. getMSEL31 := (pTDefRegMap(@Self)^.val and $60000000) shr 29;
  72236. end;
  72237. procedure TCAN1_C1FLTCON7.setFLTEN31; inline;
  72238. begin
  72239. pTDefRegMap(@Self)^.&set := $80000000;
  72240. end;
  72241. procedure TCAN1_C1FLTCON7.clearFLTEN31; inline;
  72242. begin
  72243. pTDefRegMap(@Self)^.clr := $80000000;
  72244. end;
  72245. procedure TCAN1_C1FLTCON7.setFLTEN31(thebits : TBits_1); inline;
  72246. begin
  72247. if thebits = 0 then
  72248. pTDefRegMap(@Self)^.clr := $80000000
  72249. else
  72250. pTDefRegMap(@Self)^.&set := $80000000;
  72251. end;
  72252. function TCAN1_C1FLTCON7.getFLTEN31 : TBits_1; inline;
  72253. begin
  72254. getFLTEN31 := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  72255. end;
  72256. procedure TCAN1_C1FLTCON7.setw(thebits : TBits_32); inline;
  72257. begin
  72258. pTDefRegMap(@Self)^.val := thebits;
  72259. end;
  72260. function TCAN1_C1FLTCON7.getw : TBits_32; inline;
  72261. begin
  72262. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  72263. end;
  72264. procedure TCAN1_C1RXF0.setEID(thebits : TBits_18); inline;
  72265. begin
  72266. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  72267. end;
  72268. function TCAN1_C1RXF0.getEID : TBits_18; inline;
  72269. begin
  72270. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  72271. end;
  72272. procedure TCAN1_C1RXF0.setEXID; inline;
  72273. begin
  72274. pTDefRegMap(@Self)^.&set := $00080000;
  72275. end;
  72276. procedure TCAN1_C1RXF0.clearEXID; inline;
  72277. begin
  72278. pTDefRegMap(@Self)^.clr := $00080000;
  72279. end;
  72280. procedure TCAN1_C1RXF0.setEXID(thebits : TBits_1); inline;
  72281. begin
  72282. if thebits = 0 then
  72283. pTDefRegMap(@Self)^.clr := $00080000
  72284. else
  72285. pTDefRegMap(@Self)^.&set := $00080000;
  72286. end;
  72287. function TCAN1_C1RXF0.getEXID : TBits_1; inline;
  72288. begin
  72289. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  72290. end;
  72291. procedure TCAN1_C1RXF0.setSID(thebits : TBits_11); inline;
  72292. begin
  72293. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  72294. end;
  72295. function TCAN1_C1RXF0.getSID : TBits_11; inline;
  72296. begin
  72297. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  72298. end;
  72299. procedure TCAN1_C1RXF0.setw(thebits : TBits_32); inline;
  72300. begin
  72301. pTDefRegMap(@Self)^.val := thebits;
  72302. end;
  72303. function TCAN1_C1RXF0.getw : TBits_32; inline;
  72304. begin
  72305. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  72306. end;
  72307. procedure TCAN1_C1RXF1.setEID(thebits : TBits_18); inline;
  72308. begin
  72309. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  72310. end;
  72311. function TCAN1_C1RXF1.getEID : TBits_18; inline;
  72312. begin
  72313. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  72314. end;
  72315. procedure TCAN1_C1RXF1.setEXID; inline;
  72316. begin
  72317. pTDefRegMap(@Self)^.&set := $00080000;
  72318. end;
  72319. procedure TCAN1_C1RXF1.clearEXID; inline;
  72320. begin
  72321. pTDefRegMap(@Self)^.clr := $00080000;
  72322. end;
  72323. procedure TCAN1_C1RXF1.setEXID(thebits : TBits_1); inline;
  72324. begin
  72325. if thebits = 0 then
  72326. pTDefRegMap(@Self)^.clr := $00080000
  72327. else
  72328. pTDefRegMap(@Self)^.&set := $00080000;
  72329. end;
  72330. function TCAN1_C1RXF1.getEXID : TBits_1; inline;
  72331. begin
  72332. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  72333. end;
  72334. procedure TCAN1_C1RXF1.setSID(thebits : TBits_11); inline;
  72335. begin
  72336. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  72337. end;
  72338. function TCAN1_C1RXF1.getSID : TBits_11; inline;
  72339. begin
  72340. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  72341. end;
  72342. procedure TCAN1_C1RXF1.setw(thebits : TBits_32); inline;
  72343. begin
  72344. pTDefRegMap(@Self)^.val := thebits;
  72345. end;
  72346. function TCAN1_C1RXF1.getw : TBits_32; inline;
  72347. begin
  72348. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  72349. end;
  72350. procedure TCAN1_C1RXF2.setEID(thebits : TBits_18); inline;
  72351. begin
  72352. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  72353. end;
  72354. function TCAN1_C1RXF2.getEID : TBits_18; inline;
  72355. begin
  72356. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  72357. end;
  72358. procedure TCAN1_C1RXF2.setEXID; inline;
  72359. begin
  72360. pTDefRegMap(@Self)^.&set := $00080000;
  72361. end;
  72362. procedure TCAN1_C1RXF2.clearEXID; inline;
  72363. begin
  72364. pTDefRegMap(@Self)^.clr := $00080000;
  72365. end;
  72366. procedure TCAN1_C1RXF2.setEXID(thebits : TBits_1); inline;
  72367. begin
  72368. if thebits = 0 then
  72369. pTDefRegMap(@Self)^.clr := $00080000
  72370. else
  72371. pTDefRegMap(@Self)^.&set := $00080000;
  72372. end;
  72373. function TCAN1_C1RXF2.getEXID : TBits_1; inline;
  72374. begin
  72375. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  72376. end;
  72377. procedure TCAN1_C1RXF2.setSID(thebits : TBits_11); inline;
  72378. begin
  72379. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  72380. end;
  72381. function TCAN1_C1RXF2.getSID : TBits_11; inline;
  72382. begin
  72383. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  72384. end;
  72385. procedure TCAN1_C1RXF2.setw(thebits : TBits_32); inline;
  72386. begin
  72387. pTDefRegMap(@Self)^.val := thebits;
  72388. end;
  72389. function TCAN1_C1RXF2.getw : TBits_32; inline;
  72390. begin
  72391. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  72392. end;
  72393. procedure TCAN1_C1RXF3.setEID(thebits : TBits_18); inline;
  72394. begin
  72395. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  72396. end;
  72397. function TCAN1_C1RXF3.getEID : TBits_18; inline;
  72398. begin
  72399. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  72400. end;
  72401. procedure TCAN1_C1RXF3.setEXID; inline;
  72402. begin
  72403. pTDefRegMap(@Self)^.&set := $00080000;
  72404. end;
  72405. procedure TCAN1_C1RXF3.clearEXID; inline;
  72406. begin
  72407. pTDefRegMap(@Self)^.clr := $00080000;
  72408. end;
  72409. procedure TCAN1_C1RXF3.setEXID(thebits : TBits_1); inline;
  72410. begin
  72411. if thebits = 0 then
  72412. pTDefRegMap(@Self)^.clr := $00080000
  72413. else
  72414. pTDefRegMap(@Self)^.&set := $00080000;
  72415. end;
  72416. function TCAN1_C1RXF3.getEXID : TBits_1; inline;
  72417. begin
  72418. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  72419. end;
  72420. procedure TCAN1_C1RXF3.setSID(thebits : TBits_11); inline;
  72421. begin
  72422. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  72423. end;
  72424. function TCAN1_C1RXF3.getSID : TBits_11; inline;
  72425. begin
  72426. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  72427. end;
  72428. procedure TCAN1_C1RXF3.setw(thebits : TBits_32); inline;
  72429. begin
  72430. pTDefRegMap(@Self)^.val := thebits;
  72431. end;
  72432. function TCAN1_C1RXF3.getw : TBits_32; inline;
  72433. begin
  72434. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  72435. end;
  72436. procedure TCAN1_C1RXF4.setEID(thebits : TBits_18); inline;
  72437. begin
  72438. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  72439. end;
  72440. function TCAN1_C1RXF4.getEID : TBits_18; inline;
  72441. begin
  72442. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  72443. end;
  72444. procedure TCAN1_C1RXF4.setEXID; inline;
  72445. begin
  72446. pTDefRegMap(@Self)^.&set := $00080000;
  72447. end;
  72448. procedure TCAN1_C1RXF4.clearEXID; inline;
  72449. begin
  72450. pTDefRegMap(@Self)^.clr := $00080000;
  72451. end;
  72452. procedure TCAN1_C1RXF4.setEXID(thebits : TBits_1); inline;
  72453. begin
  72454. if thebits = 0 then
  72455. pTDefRegMap(@Self)^.clr := $00080000
  72456. else
  72457. pTDefRegMap(@Self)^.&set := $00080000;
  72458. end;
  72459. function TCAN1_C1RXF4.getEXID : TBits_1; inline;
  72460. begin
  72461. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  72462. end;
  72463. procedure TCAN1_C1RXF4.setSID(thebits : TBits_11); inline;
  72464. begin
  72465. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  72466. end;
  72467. function TCAN1_C1RXF4.getSID : TBits_11; inline;
  72468. begin
  72469. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  72470. end;
  72471. procedure TCAN1_C1RXF4.setw(thebits : TBits_32); inline;
  72472. begin
  72473. pTDefRegMap(@Self)^.val := thebits;
  72474. end;
  72475. function TCAN1_C1RXF4.getw : TBits_32; inline;
  72476. begin
  72477. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  72478. end;
  72479. procedure TCAN1_C1RXF5.setEID(thebits : TBits_18); inline;
  72480. begin
  72481. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  72482. end;
  72483. function TCAN1_C1RXF5.getEID : TBits_18; inline;
  72484. begin
  72485. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  72486. end;
  72487. procedure TCAN1_C1RXF5.setEXID; inline;
  72488. begin
  72489. pTDefRegMap(@Self)^.&set := $00080000;
  72490. end;
  72491. procedure TCAN1_C1RXF5.clearEXID; inline;
  72492. begin
  72493. pTDefRegMap(@Self)^.clr := $00080000;
  72494. end;
  72495. procedure TCAN1_C1RXF5.setEXID(thebits : TBits_1); inline;
  72496. begin
  72497. if thebits = 0 then
  72498. pTDefRegMap(@Self)^.clr := $00080000
  72499. else
  72500. pTDefRegMap(@Self)^.&set := $00080000;
  72501. end;
  72502. function TCAN1_C1RXF5.getEXID : TBits_1; inline;
  72503. begin
  72504. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  72505. end;
  72506. procedure TCAN1_C1RXF5.setSID(thebits : TBits_11); inline;
  72507. begin
  72508. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  72509. end;
  72510. function TCAN1_C1RXF5.getSID : TBits_11; inline;
  72511. begin
  72512. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  72513. end;
  72514. procedure TCAN1_C1RXF5.setw(thebits : TBits_32); inline;
  72515. begin
  72516. pTDefRegMap(@Self)^.val := thebits;
  72517. end;
  72518. function TCAN1_C1RXF5.getw : TBits_32; inline;
  72519. begin
  72520. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  72521. end;
  72522. procedure TCAN1_C1RXF6.setEID(thebits : TBits_18); inline;
  72523. begin
  72524. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  72525. end;
  72526. function TCAN1_C1RXF6.getEID : TBits_18; inline;
  72527. begin
  72528. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  72529. end;
  72530. procedure TCAN1_C1RXF6.setEXID; inline;
  72531. begin
  72532. pTDefRegMap(@Self)^.&set := $00080000;
  72533. end;
  72534. procedure TCAN1_C1RXF6.clearEXID; inline;
  72535. begin
  72536. pTDefRegMap(@Self)^.clr := $00080000;
  72537. end;
  72538. procedure TCAN1_C1RXF6.setEXID(thebits : TBits_1); inline;
  72539. begin
  72540. if thebits = 0 then
  72541. pTDefRegMap(@Self)^.clr := $00080000
  72542. else
  72543. pTDefRegMap(@Self)^.&set := $00080000;
  72544. end;
  72545. function TCAN1_C1RXF6.getEXID : TBits_1; inline;
  72546. begin
  72547. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  72548. end;
  72549. procedure TCAN1_C1RXF6.setSID(thebits : TBits_11); inline;
  72550. begin
  72551. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  72552. end;
  72553. function TCAN1_C1RXF6.getSID : TBits_11; inline;
  72554. begin
  72555. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  72556. end;
  72557. procedure TCAN1_C1RXF6.setw(thebits : TBits_32); inline;
  72558. begin
  72559. pTDefRegMap(@Self)^.val := thebits;
  72560. end;
  72561. function TCAN1_C1RXF6.getw : TBits_32; inline;
  72562. begin
  72563. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  72564. end;
  72565. procedure TCAN1_C1RXF7.setEID(thebits : TBits_18); inline;
  72566. begin
  72567. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  72568. end;
  72569. function TCAN1_C1RXF7.getEID : TBits_18; inline;
  72570. begin
  72571. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  72572. end;
  72573. procedure TCAN1_C1RXF7.setEXID; inline;
  72574. begin
  72575. pTDefRegMap(@Self)^.&set := $00080000;
  72576. end;
  72577. procedure TCAN1_C1RXF7.clearEXID; inline;
  72578. begin
  72579. pTDefRegMap(@Self)^.clr := $00080000;
  72580. end;
  72581. procedure TCAN1_C1RXF7.setEXID(thebits : TBits_1); inline;
  72582. begin
  72583. if thebits = 0 then
  72584. pTDefRegMap(@Self)^.clr := $00080000
  72585. else
  72586. pTDefRegMap(@Self)^.&set := $00080000;
  72587. end;
  72588. function TCAN1_C1RXF7.getEXID : TBits_1; inline;
  72589. begin
  72590. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  72591. end;
  72592. procedure TCAN1_C1RXF7.setSID(thebits : TBits_11); inline;
  72593. begin
  72594. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  72595. end;
  72596. function TCAN1_C1RXF7.getSID : TBits_11; inline;
  72597. begin
  72598. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  72599. end;
  72600. procedure TCAN1_C1RXF7.setw(thebits : TBits_32); inline;
  72601. begin
  72602. pTDefRegMap(@Self)^.val := thebits;
  72603. end;
  72604. function TCAN1_C1RXF7.getw : TBits_32; inline;
  72605. begin
  72606. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  72607. end;
  72608. procedure TCAN1_C1RXF8.setEID(thebits : TBits_18); inline;
  72609. begin
  72610. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  72611. end;
  72612. function TCAN1_C1RXF8.getEID : TBits_18; inline;
  72613. begin
  72614. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  72615. end;
  72616. procedure TCAN1_C1RXF8.setEXID; inline;
  72617. begin
  72618. pTDefRegMap(@Self)^.&set := $00080000;
  72619. end;
  72620. procedure TCAN1_C1RXF8.clearEXID; inline;
  72621. begin
  72622. pTDefRegMap(@Self)^.clr := $00080000;
  72623. end;
  72624. procedure TCAN1_C1RXF8.setEXID(thebits : TBits_1); inline;
  72625. begin
  72626. if thebits = 0 then
  72627. pTDefRegMap(@Self)^.clr := $00080000
  72628. else
  72629. pTDefRegMap(@Self)^.&set := $00080000;
  72630. end;
  72631. function TCAN1_C1RXF8.getEXID : TBits_1; inline;
  72632. begin
  72633. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  72634. end;
  72635. procedure TCAN1_C1RXF8.setSID(thebits : TBits_11); inline;
  72636. begin
  72637. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  72638. end;
  72639. function TCAN1_C1RXF8.getSID : TBits_11; inline;
  72640. begin
  72641. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  72642. end;
  72643. procedure TCAN1_C1RXF8.setw(thebits : TBits_32); inline;
  72644. begin
  72645. pTDefRegMap(@Self)^.val := thebits;
  72646. end;
  72647. function TCAN1_C1RXF8.getw : TBits_32; inline;
  72648. begin
  72649. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  72650. end;
  72651. procedure TCAN1_C1RXF9.setEID(thebits : TBits_18); inline;
  72652. begin
  72653. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  72654. end;
  72655. function TCAN1_C1RXF9.getEID : TBits_18; inline;
  72656. begin
  72657. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  72658. end;
  72659. procedure TCAN1_C1RXF9.setEXID; inline;
  72660. begin
  72661. pTDefRegMap(@Self)^.&set := $00080000;
  72662. end;
  72663. procedure TCAN1_C1RXF9.clearEXID; inline;
  72664. begin
  72665. pTDefRegMap(@Self)^.clr := $00080000;
  72666. end;
  72667. procedure TCAN1_C1RXF9.setEXID(thebits : TBits_1); inline;
  72668. begin
  72669. if thebits = 0 then
  72670. pTDefRegMap(@Self)^.clr := $00080000
  72671. else
  72672. pTDefRegMap(@Self)^.&set := $00080000;
  72673. end;
  72674. function TCAN1_C1RXF9.getEXID : TBits_1; inline;
  72675. begin
  72676. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  72677. end;
  72678. procedure TCAN1_C1RXF9.setSID(thebits : TBits_11); inline;
  72679. begin
  72680. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  72681. end;
  72682. function TCAN1_C1RXF9.getSID : TBits_11; inline;
  72683. begin
  72684. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  72685. end;
  72686. procedure TCAN1_C1RXF9.setw(thebits : TBits_32); inline;
  72687. begin
  72688. pTDefRegMap(@Self)^.val := thebits;
  72689. end;
  72690. function TCAN1_C1RXF9.getw : TBits_32; inline;
  72691. begin
  72692. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  72693. end;
  72694. procedure TCAN1_C1RXF10.setEID(thebits : TBits_18); inline;
  72695. begin
  72696. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  72697. end;
  72698. function TCAN1_C1RXF10.getEID : TBits_18; inline;
  72699. begin
  72700. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  72701. end;
  72702. procedure TCAN1_C1RXF10.setEXID; inline;
  72703. begin
  72704. pTDefRegMap(@Self)^.&set := $00080000;
  72705. end;
  72706. procedure TCAN1_C1RXF10.clearEXID; inline;
  72707. begin
  72708. pTDefRegMap(@Self)^.clr := $00080000;
  72709. end;
  72710. procedure TCAN1_C1RXF10.setEXID(thebits : TBits_1); inline;
  72711. begin
  72712. if thebits = 0 then
  72713. pTDefRegMap(@Self)^.clr := $00080000
  72714. else
  72715. pTDefRegMap(@Self)^.&set := $00080000;
  72716. end;
  72717. function TCAN1_C1RXF10.getEXID : TBits_1; inline;
  72718. begin
  72719. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  72720. end;
  72721. procedure TCAN1_C1RXF10.setSID(thebits : TBits_11); inline;
  72722. begin
  72723. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  72724. end;
  72725. function TCAN1_C1RXF10.getSID : TBits_11; inline;
  72726. begin
  72727. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  72728. end;
  72729. procedure TCAN1_C1RXF10.setw(thebits : TBits_32); inline;
  72730. begin
  72731. pTDefRegMap(@Self)^.val := thebits;
  72732. end;
  72733. function TCAN1_C1RXF10.getw : TBits_32; inline;
  72734. begin
  72735. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  72736. end;
  72737. procedure TCAN1_C1RXF11.setEID(thebits : TBits_18); inline;
  72738. begin
  72739. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  72740. end;
  72741. function TCAN1_C1RXF11.getEID : TBits_18; inline;
  72742. begin
  72743. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  72744. end;
  72745. procedure TCAN1_C1RXF11.setEXID; inline;
  72746. begin
  72747. pTDefRegMap(@Self)^.&set := $00080000;
  72748. end;
  72749. procedure TCAN1_C1RXF11.clearEXID; inline;
  72750. begin
  72751. pTDefRegMap(@Self)^.clr := $00080000;
  72752. end;
  72753. procedure TCAN1_C1RXF11.setEXID(thebits : TBits_1); inline;
  72754. begin
  72755. if thebits = 0 then
  72756. pTDefRegMap(@Self)^.clr := $00080000
  72757. else
  72758. pTDefRegMap(@Self)^.&set := $00080000;
  72759. end;
  72760. function TCAN1_C1RXF11.getEXID : TBits_1; inline;
  72761. begin
  72762. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  72763. end;
  72764. procedure TCAN1_C1RXF11.setSID(thebits : TBits_11); inline;
  72765. begin
  72766. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  72767. end;
  72768. function TCAN1_C1RXF11.getSID : TBits_11; inline;
  72769. begin
  72770. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  72771. end;
  72772. procedure TCAN1_C1RXF11.setw(thebits : TBits_32); inline;
  72773. begin
  72774. pTDefRegMap(@Self)^.val := thebits;
  72775. end;
  72776. function TCAN1_C1RXF11.getw : TBits_32; inline;
  72777. begin
  72778. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  72779. end;
  72780. procedure TCAN1_C1RXF12.setEID(thebits : TBits_18); inline;
  72781. begin
  72782. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  72783. end;
  72784. function TCAN1_C1RXF12.getEID : TBits_18; inline;
  72785. begin
  72786. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  72787. end;
  72788. procedure TCAN1_C1RXF12.setEXID; inline;
  72789. begin
  72790. pTDefRegMap(@Self)^.&set := $00080000;
  72791. end;
  72792. procedure TCAN1_C1RXF12.clearEXID; inline;
  72793. begin
  72794. pTDefRegMap(@Self)^.clr := $00080000;
  72795. end;
  72796. procedure TCAN1_C1RXF12.setEXID(thebits : TBits_1); inline;
  72797. begin
  72798. if thebits = 0 then
  72799. pTDefRegMap(@Self)^.clr := $00080000
  72800. else
  72801. pTDefRegMap(@Self)^.&set := $00080000;
  72802. end;
  72803. function TCAN1_C1RXF12.getEXID : TBits_1; inline;
  72804. begin
  72805. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  72806. end;
  72807. procedure TCAN1_C1RXF12.setSID(thebits : TBits_11); inline;
  72808. begin
  72809. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  72810. end;
  72811. function TCAN1_C1RXF12.getSID : TBits_11; inline;
  72812. begin
  72813. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  72814. end;
  72815. procedure TCAN1_C1RXF12.setw(thebits : TBits_32); inline;
  72816. begin
  72817. pTDefRegMap(@Self)^.val := thebits;
  72818. end;
  72819. function TCAN1_C1RXF12.getw : TBits_32; inline;
  72820. begin
  72821. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  72822. end;
  72823. procedure TCAN1_C1RXF13.setEID(thebits : TBits_18); inline;
  72824. begin
  72825. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  72826. end;
  72827. function TCAN1_C1RXF13.getEID : TBits_18; inline;
  72828. begin
  72829. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  72830. end;
  72831. procedure TCAN1_C1RXF13.setEXID; inline;
  72832. begin
  72833. pTDefRegMap(@Self)^.&set := $00080000;
  72834. end;
  72835. procedure TCAN1_C1RXF13.clearEXID; inline;
  72836. begin
  72837. pTDefRegMap(@Self)^.clr := $00080000;
  72838. end;
  72839. procedure TCAN1_C1RXF13.setEXID(thebits : TBits_1); inline;
  72840. begin
  72841. if thebits = 0 then
  72842. pTDefRegMap(@Self)^.clr := $00080000
  72843. else
  72844. pTDefRegMap(@Self)^.&set := $00080000;
  72845. end;
  72846. function TCAN1_C1RXF13.getEXID : TBits_1; inline;
  72847. begin
  72848. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  72849. end;
  72850. procedure TCAN1_C1RXF13.setSID(thebits : TBits_11); inline;
  72851. begin
  72852. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  72853. end;
  72854. function TCAN1_C1RXF13.getSID : TBits_11; inline;
  72855. begin
  72856. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  72857. end;
  72858. procedure TCAN1_C1RXF13.setw(thebits : TBits_32); inline;
  72859. begin
  72860. pTDefRegMap(@Self)^.val := thebits;
  72861. end;
  72862. function TCAN1_C1RXF13.getw : TBits_32; inline;
  72863. begin
  72864. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  72865. end;
  72866. procedure TCAN1_C1RXF14.setEID(thebits : TBits_18); inline;
  72867. begin
  72868. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  72869. end;
  72870. function TCAN1_C1RXF14.getEID : TBits_18; inline;
  72871. begin
  72872. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  72873. end;
  72874. procedure TCAN1_C1RXF14.setEXID; inline;
  72875. begin
  72876. pTDefRegMap(@Self)^.&set := $00080000;
  72877. end;
  72878. procedure TCAN1_C1RXF14.clearEXID; inline;
  72879. begin
  72880. pTDefRegMap(@Self)^.clr := $00080000;
  72881. end;
  72882. procedure TCAN1_C1RXF14.setEXID(thebits : TBits_1); inline;
  72883. begin
  72884. if thebits = 0 then
  72885. pTDefRegMap(@Self)^.clr := $00080000
  72886. else
  72887. pTDefRegMap(@Self)^.&set := $00080000;
  72888. end;
  72889. function TCAN1_C1RXF14.getEXID : TBits_1; inline;
  72890. begin
  72891. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  72892. end;
  72893. procedure TCAN1_C1RXF14.setSID(thebits : TBits_11); inline;
  72894. begin
  72895. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  72896. end;
  72897. function TCAN1_C1RXF14.getSID : TBits_11; inline;
  72898. begin
  72899. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  72900. end;
  72901. procedure TCAN1_C1RXF14.setw(thebits : TBits_32); inline;
  72902. begin
  72903. pTDefRegMap(@Self)^.val := thebits;
  72904. end;
  72905. function TCAN1_C1RXF14.getw : TBits_32; inline;
  72906. begin
  72907. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  72908. end;
  72909. procedure TCAN1_C1RXF15.setEID(thebits : TBits_18); inline;
  72910. begin
  72911. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  72912. end;
  72913. function TCAN1_C1RXF15.getEID : TBits_18; inline;
  72914. begin
  72915. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  72916. end;
  72917. procedure TCAN1_C1RXF15.setEXID; inline;
  72918. begin
  72919. pTDefRegMap(@Self)^.&set := $00080000;
  72920. end;
  72921. procedure TCAN1_C1RXF15.clearEXID; inline;
  72922. begin
  72923. pTDefRegMap(@Self)^.clr := $00080000;
  72924. end;
  72925. procedure TCAN1_C1RXF15.setEXID(thebits : TBits_1); inline;
  72926. begin
  72927. if thebits = 0 then
  72928. pTDefRegMap(@Self)^.clr := $00080000
  72929. else
  72930. pTDefRegMap(@Self)^.&set := $00080000;
  72931. end;
  72932. function TCAN1_C1RXF15.getEXID : TBits_1; inline;
  72933. begin
  72934. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  72935. end;
  72936. procedure TCAN1_C1RXF15.setSID(thebits : TBits_11); inline;
  72937. begin
  72938. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  72939. end;
  72940. function TCAN1_C1RXF15.getSID : TBits_11; inline;
  72941. begin
  72942. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  72943. end;
  72944. procedure TCAN1_C1RXF15.setw(thebits : TBits_32); inline;
  72945. begin
  72946. pTDefRegMap(@Self)^.val := thebits;
  72947. end;
  72948. function TCAN1_C1RXF15.getw : TBits_32; inline;
  72949. begin
  72950. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  72951. end;
  72952. procedure TCAN1_C1RXF16.setEID(thebits : TBits_18); inline;
  72953. begin
  72954. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  72955. end;
  72956. function TCAN1_C1RXF16.getEID : TBits_18; inline;
  72957. begin
  72958. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  72959. end;
  72960. procedure TCAN1_C1RXF16.setEXID; inline;
  72961. begin
  72962. pTDefRegMap(@Self)^.&set := $00080000;
  72963. end;
  72964. procedure TCAN1_C1RXF16.clearEXID; inline;
  72965. begin
  72966. pTDefRegMap(@Self)^.clr := $00080000;
  72967. end;
  72968. procedure TCAN1_C1RXF16.setEXID(thebits : TBits_1); inline;
  72969. begin
  72970. if thebits = 0 then
  72971. pTDefRegMap(@Self)^.clr := $00080000
  72972. else
  72973. pTDefRegMap(@Self)^.&set := $00080000;
  72974. end;
  72975. function TCAN1_C1RXF16.getEXID : TBits_1; inline;
  72976. begin
  72977. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  72978. end;
  72979. procedure TCAN1_C1RXF16.setSID(thebits : TBits_11); inline;
  72980. begin
  72981. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  72982. end;
  72983. function TCAN1_C1RXF16.getSID : TBits_11; inline;
  72984. begin
  72985. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  72986. end;
  72987. procedure TCAN1_C1RXF16.setw(thebits : TBits_32); inline;
  72988. begin
  72989. pTDefRegMap(@Self)^.val := thebits;
  72990. end;
  72991. function TCAN1_C1RXF16.getw : TBits_32; inline;
  72992. begin
  72993. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  72994. end;
  72995. procedure TCAN1_C1RXF17.setEID(thebits : TBits_18); inline;
  72996. begin
  72997. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  72998. end;
  72999. function TCAN1_C1RXF17.getEID : TBits_18; inline;
  73000. begin
  73001. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  73002. end;
  73003. procedure TCAN1_C1RXF17.setEXID; inline;
  73004. begin
  73005. pTDefRegMap(@Self)^.&set := $00080000;
  73006. end;
  73007. procedure TCAN1_C1RXF17.clearEXID; inline;
  73008. begin
  73009. pTDefRegMap(@Self)^.clr := $00080000;
  73010. end;
  73011. procedure TCAN1_C1RXF17.setEXID(thebits : TBits_1); inline;
  73012. begin
  73013. if thebits = 0 then
  73014. pTDefRegMap(@Self)^.clr := $00080000
  73015. else
  73016. pTDefRegMap(@Self)^.&set := $00080000;
  73017. end;
  73018. function TCAN1_C1RXF17.getEXID : TBits_1; inline;
  73019. begin
  73020. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  73021. end;
  73022. procedure TCAN1_C1RXF17.setSID(thebits : TBits_11); inline;
  73023. begin
  73024. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  73025. end;
  73026. function TCAN1_C1RXF17.getSID : TBits_11; inline;
  73027. begin
  73028. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  73029. end;
  73030. procedure TCAN1_C1RXF17.setw(thebits : TBits_32); inline;
  73031. begin
  73032. pTDefRegMap(@Self)^.val := thebits;
  73033. end;
  73034. function TCAN1_C1RXF17.getw : TBits_32; inline;
  73035. begin
  73036. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  73037. end;
  73038. procedure TCAN1_C1RXF18.setEID(thebits : TBits_18); inline;
  73039. begin
  73040. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  73041. end;
  73042. function TCAN1_C1RXF18.getEID : TBits_18; inline;
  73043. begin
  73044. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  73045. end;
  73046. procedure TCAN1_C1RXF18.setEXID; inline;
  73047. begin
  73048. pTDefRegMap(@Self)^.&set := $00080000;
  73049. end;
  73050. procedure TCAN1_C1RXF18.clearEXID; inline;
  73051. begin
  73052. pTDefRegMap(@Self)^.clr := $00080000;
  73053. end;
  73054. procedure TCAN1_C1RXF18.setEXID(thebits : TBits_1); inline;
  73055. begin
  73056. if thebits = 0 then
  73057. pTDefRegMap(@Self)^.clr := $00080000
  73058. else
  73059. pTDefRegMap(@Self)^.&set := $00080000;
  73060. end;
  73061. function TCAN1_C1RXF18.getEXID : TBits_1; inline;
  73062. begin
  73063. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  73064. end;
  73065. procedure TCAN1_C1RXF18.setSID(thebits : TBits_11); inline;
  73066. begin
  73067. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  73068. end;
  73069. function TCAN1_C1RXF18.getSID : TBits_11; inline;
  73070. begin
  73071. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  73072. end;
  73073. procedure TCAN1_C1RXF18.setw(thebits : TBits_32); inline;
  73074. begin
  73075. pTDefRegMap(@Self)^.val := thebits;
  73076. end;
  73077. function TCAN1_C1RXF18.getw : TBits_32; inline;
  73078. begin
  73079. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  73080. end;
  73081. procedure TCAN1_C1RXF19.setEID(thebits : TBits_18); inline;
  73082. begin
  73083. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  73084. end;
  73085. function TCAN1_C1RXF19.getEID : TBits_18; inline;
  73086. begin
  73087. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  73088. end;
  73089. procedure TCAN1_C1RXF19.setEXID; inline;
  73090. begin
  73091. pTDefRegMap(@Self)^.&set := $00080000;
  73092. end;
  73093. procedure TCAN1_C1RXF19.clearEXID; inline;
  73094. begin
  73095. pTDefRegMap(@Self)^.clr := $00080000;
  73096. end;
  73097. procedure TCAN1_C1RXF19.setEXID(thebits : TBits_1); inline;
  73098. begin
  73099. if thebits = 0 then
  73100. pTDefRegMap(@Self)^.clr := $00080000
  73101. else
  73102. pTDefRegMap(@Self)^.&set := $00080000;
  73103. end;
  73104. function TCAN1_C1RXF19.getEXID : TBits_1; inline;
  73105. begin
  73106. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  73107. end;
  73108. procedure TCAN1_C1RXF19.setSID(thebits : TBits_11); inline;
  73109. begin
  73110. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  73111. end;
  73112. function TCAN1_C1RXF19.getSID : TBits_11; inline;
  73113. begin
  73114. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  73115. end;
  73116. procedure TCAN1_C1RXF19.setw(thebits : TBits_32); inline;
  73117. begin
  73118. pTDefRegMap(@Self)^.val := thebits;
  73119. end;
  73120. function TCAN1_C1RXF19.getw : TBits_32; inline;
  73121. begin
  73122. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  73123. end;
  73124. procedure TCAN1_C1RXF20.setEID(thebits : TBits_18); inline;
  73125. begin
  73126. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  73127. end;
  73128. function TCAN1_C1RXF20.getEID : TBits_18; inline;
  73129. begin
  73130. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  73131. end;
  73132. procedure TCAN1_C1RXF20.setEXID; inline;
  73133. begin
  73134. pTDefRegMap(@Self)^.&set := $00080000;
  73135. end;
  73136. procedure TCAN1_C1RXF20.clearEXID; inline;
  73137. begin
  73138. pTDefRegMap(@Self)^.clr := $00080000;
  73139. end;
  73140. procedure TCAN1_C1RXF20.setEXID(thebits : TBits_1); inline;
  73141. begin
  73142. if thebits = 0 then
  73143. pTDefRegMap(@Self)^.clr := $00080000
  73144. else
  73145. pTDefRegMap(@Self)^.&set := $00080000;
  73146. end;
  73147. function TCAN1_C1RXF20.getEXID : TBits_1; inline;
  73148. begin
  73149. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  73150. end;
  73151. procedure TCAN1_C1RXF20.setSID(thebits : TBits_11); inline;
  73152. begin
  73153. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  73154. end;
  73155. function TCAN1_C1RXF20.getSID : TBits_11; inline;
  73156. begin
  73157. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  73158. end;
  73159. procedure TCAN1_C1RXF20.setw(thebits : TBits_32); inline;
  73160. begin
  73161. pTDefRegMap(@Self)^.val := thebits;
  73162. end;
  73163. function TCAN1_C1RXF20.getw : TBits_32; inline;
  73164. begin
  73165. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  73166. end;
  73167. procedure TCAN1_C1RXF21.setEID(thebits : TBits_18); inline;
  73168. begin
  73169. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  73170. end;
  73171. function TCAN1_C1RXF21.getEID : TBits_18; inline;
  73172. begin
  73173. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  73174. end;
  73175. procedure TCAN1_C1RXF21.setEXID; inline;
  73176. begin
  73177. pTDefRegMap(@Self)^.&set := $00080000;
  73178. end;
  73179. procedure TCAN1_C1RXF21.clearEXID; inline;
  73180. begin
  73181. pTDefRegMap(@Self)^.clr := $00080000;
  73182. end;
  73183. procedure TCAN1_C1RXF21.setEXID(thebits : TBits_1); inline;
  73184. begin
  73185. if thebits = 0 then
  73186. pTDefRegMap(@Self)^.clr := $00080000
  73187. else
  73188. pTDefRegMap(@Self)^.&set := $00080000;
  73189. end;
  73190. function TCAN1_C1RXF21.getEXID : TBits_1; inline;
  73191. begin
  73192. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  73193. end;
  73194. procedure TCAN1_C1RXF21.setSID(thebits : TBits_11); inline;
  73195. begin
  73196. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  73197. end;
  73198. function TCAN1_C1RXF21.getSID : TBits_11; inline;
  73199. begin
  73200. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  73201. end;
  73202. procedure TCAN1_C1RXF21.setw(thebits : TBits_32); inline;
  73203. begin
  73204. pTDefRegMap(@Self)^.val := thebits;
  73205. end;
  73206. function TCAN1_C1RXF21.getw : TBits_32; inline;
  73207. begin
  73208. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  73209. end;
  73210. procedure TCAN1_C1RXF22.setEID(thebits : TBits_18); inline;
  73211. begin
  73212. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  73213. end;
  73214. function TCAN1_C1RXF22.getEID : TBits_18; inline;
  73215. begin
  73216. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  73217. end;
  73218. procedure TCAN1_C1RXF22.setEXID; inline;
  73219. begin
  73220. pTDefRegMap(@Self)^.&set := $00080000;
  73221. end;
  73222. procedure TCAN1_C1RXF22.clearEXID; inline;
  73223. begin
  73224. pTDefRegMap(@Self)^.clr := $00080000;
  73225. end;
  73226. procedure TCAN1_C1RXF22.setEXID(thebits : TBits_1); inline;
  73227. begin
  73228. if thebits = 0 then
  73229. pTDefRegMap(@Self)^.clr := $00080000
  73230. else
  73231. pTDefRegMap(@Self)^.&set := $00080000;
  73232. end;
  73233. function TCAN1_C1RXF22.getEXID : TBits_1; inline;
  73234. begin
  73235. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  73236. end;
  73237. procedure TCAN1_C1RXF22.setSID(thebits : TBits_11); inline;
  73238. begin
  73239. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  73240. end;
  73241. function TCAN1_C1RXF22.getSID : TBits_11; inline;
  73242. begin
  73243. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  73244. end;
  73245. procedure TCAN1_C1RXF22.setw(thebits : TBits_32); inline;
  73246. begin
  73247. pTDefRegMap(@Self)^.val := thebits;
  73248. end;
  73249. function TCAN1_C1RXF22.getw : TBits_32; inline;
  73250. begin
  73251. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  73252. end;
  73253. procedure TCAN1_C1RXF23.setEID(thebits : TBits_18); inline;
  73254. begin
  73255. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  73256. end;
  73257. function TCAN1_C1RXF23.getEID : TBits_18; inline;
  73258. begin
  73259. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  73260. end;
  73261. procedure TCAN1_C1RXF23.setEXID; inline;
  73262. begin
  73263. pTDefRegMap(@Self)^.&set := $00080000;
  73264. end;
  73265. procedure TCAN1_C1RXF23.clearEXID; inline;
  73266. begin
  73267. pTDefRegMap(@Self)^.clr := $00080000;
  73268. end;
  73269. procedure TCAN1_C1RXF23.setEXID(thebits : TBits_1); inline;
  73270. begin
  73271. if thebits = 0 then
  73272. pTDefRegMap(@Self)^.clr := $00080000
  73273. else
  73274. pTDefRegMap(@Self)^.&set := $00080000;
  73275. end;
  73276. function TCAN1_C1RXF23.getEXID : TBits_1; inline;
  73277. begin
  73278. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  73279. end;
  73280. procedure TCAN1_C1RXF23.setSID(thebits : TBits_11); inline;
  73281. begin
  73282. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  73283. end;
  73284. function TCAN1_C1RXF23.getSID : TBits_11; inline;
  73285. begin
  73286. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  73287. end;
  73288. procedure TCAN1_C1RXF23.setw(thebits : TBits_32); inline;
  73289. begin
  73290. pTDefRegMap(@Self)^.val := thebits;
  73291. end;
  73292. function TCAN1_C1RXF23.getw : TBits_32; inline;
  73293. begin
  73294. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  73295. end;
  73296. procedure TCAN1_C1RXF24.setEID(thebits : TBits_18); inline;
  73297. begin
  73298. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  73299. end;
  73300. function TCAN1_C1RXF24.getEID : TBits_18; inline;
  73301. begin
  73302. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  73303. end;
  73304. procedure TCAN1_C1RXF24.setEXID; inline;
  73305. begin
  73306. pTDefRegMap(@Self)^.&set := $00080000;
  73307. end;
  73308. procedure TCAN1_C1RXF24.clearEXID; inline;
  73309. begin
  73310. pTDefRegMap(@Self)^.clr := $00080000;
  73311. end;
  73312. procedure TCAN1_C1RXF24.setEXID(thebits : TBits_1); inline;
  73313. begin
  73314. if thebits = 0 then
  73315. pTDefRegMap(@Self)^.clr := $00080000
  73316. else
  73317. pTDefRegMap(@Self)^.&set := $00080000;
  73318. end;
  73319. function TCAN1_C1RXF24.getEXID : TBits_1; inline;
  73320. begin
  73321. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  73322. end;
  73323. procedure TCAN1_C1RXF24.setSID(thebits : TBits_11); inline;
  73324. begin
  73325. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  73326. end;
  73327. function TCAN1_C1RXF24.getSID : TBits_11; inline;
  73328. begin
  73329. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  73330. end;
  73331. procedure TCAN1_C1RXF24.setw(thebits : TBits_32); inline;
  73332. begin
  73333. pTDefRegMap(@Self)^.val := thebits;
  73334. end;
  73335. function TCAN1_C1RXF24.getw : TBits_32; inline;
  73336. begin
  73337. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  73338. end;
  73339. procedure TCAN1_C1RXF25.setEID(thebits : TBits_18); inline;
  73340. begin
  73341. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  73342. end;
  73343. function TCAN1_C1RXF25.getEID : TBits_18; inline;
  73344. begin
  73345. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  73346. end;
  73347. procedure TCAN1_C1RXF25.setEXID; inline;
  73348. begin
  73349. pTDefRegMap(@Self)^.&set := $00080000;
  73350. end;
  73351. procedure TCAN1_C1RXF25.clearEXID; inline;
  73352. begin
  73353. pTDefRegMap(@Self)^.clr := $00080000;
  73354. end;
  73355. procedure TCAN1_C1RXF25.setEXID(thebits : TBits_1); inline;
  73356. begin
  73357. if thebits = 0 then
  73358. pTDefRegMap(@Self)^.clr := $00080000
  73359. else
  73360. pTDefRegMap(@Self)^.&set := $00080000;
  73361. end;
  73362. function TCAN1_C1RXF25.getEXID : TBits_1; inline;
  73363. begin
  73364. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  73365. end;
  73366. procedure TCAN1_C1RXF25.setSID(thebits : TBits_11); inline;
  73367. begin
  73368. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  73369. end;
  73370. function TCAN1_C1RXF25.getSID : TBits_11; inline;
  73371. begin
  73372. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  73373. end;
  73374. procedure TCAN1_C1RXF25.setw(thebits : TBits_32); inline;
  73375. begin
  73376. pTDefRegMap(@Self)^.val := thebits;
  73377. end;
  73378. function TCAN1_C1RXF25.getw : TBits_32; inline;
  73379. begin
  73380. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  73381. end;
  73382. procedure TCAN1_C1RXF26.setEID(thebits : TBits_18); inline;
  73383. begin
  73384. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  73385. end;
  73386. function TCAN1_C1RXF26.getEID : TBits_18; inline;
  73387. begin
  73388. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  73389. end;
  73390. procedure TCAN1_C1RXF26.setEXID; inline;
  73391. begin
  73392. pTDefRegMap(@Self)^.&set := $00080000;
  73393. end;
  73394. procedure TCAN1_C1RXF26.clearEXID; inline;
  73395. begin
  73396. pTDefRegMap(@Self)^.clr := $00080000;
  73397. end;
  73398. procedure TCAN1_C1RXF26.setEXID(thebits : TBits_1); inline;
  73399. begin
  73400. if thebits = 0 then
  73401. pTDefRegMap(@Self)^.clr := $00080000
  73402. else
  73403. pTDefRegMap(@Self)^.&set := $00080000;
  73404. end;
  73405. function TCAN1_C1RXF26.getEXID : TBits_1; inline;
  73406. begin
  73407. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  73408. end;
  73409. procedure TCAN1_C1RXF26.setSID(thebits : TBits_11); inline;
  73410. begin
  73411. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  73412. end;
  73413. function TCAN1_C1RXF26.getSID : TBits_11; inline;
  73414. begin
  73415. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  73416. end;
  73417. procedure TCAN1_C1RXF26.setw(thebits : TBits_32); inline;
  73418. begin
  73419. pTDefRegMap(@Self)^.val := thebits;
  73420. end;
  73421. function TCAN1_C1RXF26.getw : TBits_32; inline;
  73422. begin
  73423. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  73424. end;
  73425. procedure TCAN1_C1RXF27.setEID(thebits : TBits_18); inline;
  73426. begin
  73427. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  73428. end;
  73429. function TCAN1_C1RXF27.getEID : TBits_18; inline;
  73430. begin
  73431. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  73432. end;
  73433. procedure TCAN1_C1RXF27.setEXID; inline;
  73434. begin
  73435. pTDefRegMap(@Self)^.&set := $00080000;
  73436. end;
  73437. procedure TCAN1_C1RXF27.clearEXID; inline;
  73438. begin
  73439. pTDefRegMap(@Self)^.clr := $00080000;
  73440. end;
  73441. procedure TCAN1_C1RXF27.setEXID(thebits : TBits_1); inline;
  73442. begin
  73443. if thebits = 0 then
  73444. pTDefRegMap(@Self)^.clr := $00080000
  73445. else
  73446. pTDefRegMap(@Self)^.&set := $00080000;
  73447. end;
  73448. function TCAN1_C1RXF27.getEXID : TBits_1; inline;
  73449. begin
  73450. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  73451. end;
  73452. procedure TCAN1_C1RXF27.setSID(thebits : TBits_11); inline;
  73453. begin
  73454. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  73455. end;
  73456. function TCAN1_C1RXF27.getSID : TBits_11; inline;
  73457. begin
  73458. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  73459. end;
  73460. procedure TCAN1_C1RXF27.setw(thebits : TBits_32); inline;
  73461. begin
  73462. pTDefRegMap(@Self)^.val := thebits;
  73463. end;
  73464. function TCAN1_C1RXF27.getw : TBits_32; inline;
  73465. begin
  73466. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  73467. end;
  73468. procedure TCAN1_C1RXF28.setEID(thebits : TBits_18); inline;
  73469. begin
  73470. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  73471. end;
  73472. function TCAN1_C1RXF28.getEID : TBits_18; inline;
  73473. begin
  73474. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  73475. end;
  73476. procedure TCAN1_C1RXF28.setEXID; inline;
  73477. begin
  73478. pTDefRegMap(@Self)^.&set := $00080000;
  73479. end;
  73480. procedure TCAN1_C1RXF28.clearEXID; inline;
  73481. begin
  73482. pTDefRegMap(@Self)^.clr := $00080000;
  73483. end;
  73484. procedure TCAN1_C1RXF28.setEXID(thebits : TBits_1); inline;
  73485. begin
  73486. if thebits = 0 then
  73487. pTDefRegMap(@Self)^.clr := $00080000
  73488. else
  73489. pTDefRegMap(@Self)^.&set := $00080000;
  73490. end;
  73491. function TCAN1_C1RXF28.getEXID : TBits_1; inline;
  73492. begin
  73493. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  73494. end;
  73495. procedure TCAN1_C1RXF28.setSID(thebits : TBits_11); inline;
  73496. begin
  73497. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  73498. end;
  73499. function TCAN1_C1RXF28.getSID : TBits_11; inline;
  73500. begin
  73501. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  73502. end;
  73503. procedure TCAN1_C1RXF28.setw(thebits : TBits_32); inline;
  73504. begin
  73505. pTDefRegMap(@Self)^.val := thebits;
  73506. end;
  73507. function TCAN1_C1RXF28.getw : TBits_32; inline;
  73508. begin
  73509. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  73510. end;
  73511. procedure TCAN1_C1RXF29.setEID(thebits : TBits_18); inline;
  73512. begin
  73513. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  73514. end;
  73515. function TCAN1_C1RXF29.getEID : TBits_18; inline;
  73516. begin
  73517. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  73518. end;
  73519. procedure TCAN1_C1RXF29.setEXID; inline;
  73520. begin
  73521. pTDefRegMap(@Self)^.&set := $00080000;
  73522. end;
  73523. procedure TCAN1_C1RXF29.clearEXID; inline;
  73524. begin
  73525. pTDefRegMap(@Self)^.clr := $00080000;
  73526. end;
  73527. procedure TCAN1_C1RXF29.setEXID(thebits : TBits_1); inline;
  73528. begin
  73529. if thebits = 0 then
  73530. pTDefRegMap(@Self)^.clr := $00080000
  73531. else
  73532. pTDefRegMap(@Self)^.&set := $00080000;
  73533. end;
  73534. function TCAN1_C1RXF29.getEXID : TBits_1; inline;
  73535. begin
  73536. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  73537. end;
  73538. procedure TCAN1_C1RXF29.setSID(thebits : TBits_11); inline;
  73539. begin
  73540. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  73541. end;
  73542. function TCAN1_C1RXF29.getSID : TBits_11; inline;
  73543. begin
  73544. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  73545. end;
  73546. procedure TCAN1_C1RXF29.setw(thebits : TBits_32); inline;
  73547. begin
  73548. pTDefRegMap(@Self)^.val := thebits;
  73549. end;
  73550. function TCAN1_C1RXF29.getw : TBits_32; inline;
  73551. begin
  73552. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  73553. end;
  73554. procedure TCAN1_C1RXF30.setEID(thebits : TBits_18); inline;
  73555. begin
  73556. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  73557. end;
  73558. function TCAN1_C1RXF30.getEID : TBits_18; inline;
  73559. begin
  73560. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  73561. end;
  73562. procedure TCAN1_C1RXF30.setEXID; inline;
  73563. begin
  73564. pTDefRegMap(@Self)^.&set := $00080000;
  73565. end;
  73566. procedure TCAN1_C1RXF30.clearEXID; inline;
  73567. begin
  73568. pTDefRegMap(@Self)^.clr := $00080000;
  73569. end;
  73570. procedure TCAN1_C1RXF30.setEXID(thebits : TBits_1); inline;
  73571. begin
  73572. if thebits = 0 then
  73573. pTDefRegMap(@Self)^.clr := $00080000
  73574. else
  73575. pTDefRegMap(@Self)^.&set := $00080000;
  73576. end;
  73577. function TCAN1_C1RXF30.getEXID : TBits_1; inline;
  73578. begin
  73579. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  73580. end;
  73581. procedure TCAN1_C1RXF30.setSID(thebits : TBits_11); inline;
  73582. begin
  73583. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  73584. end;
  73585. function TCAN1_C1RXF30.getSID : TBits_11; inline;
  73586. begin
  73587. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  73588. end;
  73589. procedure TCAN1_C1RXF30.setw(thebits : TBits_32); inline;
  73590. begin
  73591. pTDefRegMap(@Self)^.val := thebits;
  73592. end;
  73593. function TCAN1_C1RXF30.getw : TBits_32; inline;
  73594. begin
  73595. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  73596. end;
  73597. procedure TCAN1_C1RXF31.setEID(thebits : TBits_18); inline;
  73598. begin
  73599. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  73600. end;
  73601. function TCAN1_C1RXF31.getEID : TBits_18; inline;
  73602. begin
  73603. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  73604. end;
  73605. procedure TCAN1_C1RXF31.setEXID; inline;
  73606. begin
  73607. pTDefRegMap(@Self)^.&set := $00080000;
  73608. end;
  73609. procedure TCAN1_C1RXF31.clearEXID; inline;
  73610. begin
  73611. pTDefRegMap(@Self)^.clr := $00080000;
  73612. end;
  73613. procedure TCAN1_C1RXF31.setEXID(thebits : TBits_1); inline;
  73614. begin
  73615. if thebits = 0 then
  73616. pTDefRegMap(@Self)^.clr := $00080000
  73617. else
  73618. pTDefRegMap(@Self)^.&set := $00080000;
  73619. end;
  73620. function TCAN1_C1RXF31.getEXID : TBits_1; inline;
  73621. begin
  73622. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  73623. end;
  73624. procedure TCAN1_C1RXF31.setSID(thebits : TBits_11); inline;
  73625. begin
  73626. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  73627. end;
  73628. function TCAN1_C1RXF31.getSID : TBits_11; inline;
  73629. begin
  73630. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  73631. end;
  73632. procedure TCAN1_C1RXF31.setw(thebits : TBits_32); inline;
  73633. begin
  73634. pTDefRegMap(@Self)^.val := thebits;
  73635. end;
  73636. function TCAN1_C1RXF31.getw : TBits_32; inline;
  73637. begin
  73638. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  73639. end;
  73640. procedure TCAN1_C1FIFOCON0.setTXPRI(thebits : TBits_2); inline;
  73641. begin
  73642. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  73643. end;
  73644. function TCAN1_C1FIFOCON0.getTXPRI : TBits_2; inline;
  73645. begin
  73646. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  73647. end;
  73648. procedure TCAN1_C1FIFOCON0.setRTREN; inline;
  73649. begin
  73650. pTDefRegMap(@Self)^.&set := $00000004;
  73651. end;
  73652. procedure TCAN1_C1FIFOCON0.clearRTREN; inline;
  73653. begin
  73654. pTDefRegMap(@Self)^.clr := $00000004;
  73655. end;
  73656. procedure TCAN1_C1FIFOCON0.setRTREN(thebits : TBits_1); inline;
  73657. begin
  73658. if thebits = 0 then
  73659. pTDefRegMap(@Self)^.clr := $00000004
  73660. else
  73661. pTDefRegMap(@Self)^.&set := $00000004;
  73662. end;
  73663. function TCAN1_C1FIFOCON0.getRTREN : TBits_1; inline;
  73664. begin
  73665. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  73666. end;
  73667. procedure TCAN1_C1FIFOCON0.setTXREQ; inline;
  73668. begin
  73669. pTDefRegMap(@Self)^.&set := $00000008;
  73670. end;
  73671. procedure TCAN1_C1FIFOCON0.clearTXREQ; inline;
  73672. begin
  73673. pTDefRegMap(@Self)^.clr := $00000008;
  73674. end;
  73675. procedure TCAN1_C1FIFOCON0.setTXREQ(thebits : TBits_1); inline;
  73676. begin
  73677. if thebits = 0 then
  73678. pTDefRegMap(@Self)^.clr := $00000008
  73679. else
  73680. pTDefRegMap(@Self)^.&set := $00000008;
  73681. end;
  73682. function TCAN1_C1FIFOCON0.getTXREQ : TBits_1; inline;
  73683. begin
  73684. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  73685. end;
  73686. procedure TCAN1_C1FIFOCON0.setTXERR; inline;
  73687. begin
  73688. pTDefRegMap(@Self)^.&set := $00000010;
  73689. end;
  73690. procedure TCAN1_C1FIFOCON0.clearTXERR; inline;
  73691. begin
  73692. pTDefRegMap(@Self)^.clr := $00000010;
  73693. end;
  73694. procedure TCAN1_C1FIFOCON0.setTXERR(thebits : TBits_1); inline;
  73695. begin
  73696. if thebits = 0 then
  73697. pTDefRegMap(@Self)^.clr := $00000010
  73698. else
  73699. pTDefRegMap(@Self)^.&set := $00000010;
  73700. end;
  73701. function TCAN1_C1FIFOCON0.getTXERR : TBits_1; inline;
  73702. begin
  73703. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  73704. end;
  73705. procedure TCAN1_C1FIFOCON0.setTXLARB; inline;
  73706. begin
  73707. pTDefRegMap(@Self)^.&set := $00000020;
  73708. end;
  73709. procedure TCAN1_C1FIFOCON0.clearTXLARB; inline;
  73710. begin
  73711. pTDefRegMap(@Self)^.clr := $00000020;
  73712. end;
  73713. procedure TCAN1_C1FIFOCON0.setTXLARB(thebits : TBits_1); inline;
  73714. begin
  73715. if thebits = 0 then
  73716. pTDefRegMap(@Self)^.clr := $00000020
  73717. else
  73718. pTDefRegMap(@Self)^.&set := $00000020;
  73719. end;
  73720. function TCAN1_C1FIFOCON0.getTXLARB : TBits_1; inline;
  73721. begin
  73722. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  73723. end;
  73724. procedure TCAN1_C1FIFOCON0.setTXABAT; inline;
  73725. begin
  73726. pTDefRegMap(@Self)^.&set := $00000040;
  73727. end;
  73728. procedure TCAN1_C1FIFOCON0.clearTXABAT; inline;
  73729. begin
  73730. pTDefRegMap(@Self)^.clr := $00000040;
  73731. end;
  73732. procedure TCAN1_C1FIFOCON0.setTXABAT(thebits : TBits_1); inline;
  73733. begin
  73734. if thebits = 0 then
  73735. pTDefRegMap(@Self)^.clr := $00000040
  73736. else
  73737. pTDefRegMap(@Self)^.&set := $00000040;
  73738. end;
  73739. function TCAN1_C1FIFOCON0.getTXABAT : TBits_1; inline;
  73740. begin
  73741. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  73742. end;
  73743. procedure TCAN1_C1FIFOCON0.setTXEN; inline;
  73744. begin
  73745. pTDefRegMap(@Self)^.&set := $00000080;
  73746. end;
  73747. procedure TCAN1_C1FIFOCON0.clearTXEN; inline;
  73748. begin
  73749. pTDefRegMap(@Self)^.clr := $00000080;
  73750. end;
  73751. procedure TCAN1_C1FIFOCON0.setTXEN(thebits : TBits_1); inline;
  73752. begin
  73753. if thebits = 0 then
  73754. pTDefRegMap(@Self)^.clr := $00000080
  73755. else
  73756. pTDefRegMap(@Self)^.&set := $00000080;
  73757. end;
  73758. function TCAN1_C1FIFOCON0.getTXEN : TBits_1; inline;
  73759. begin
  73760. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  73761. end;
  73762. procedure TCAN1_C1FIFOCON0.setDONLY; inline;
  73763. begin
  73764. pTDefRegMap(@Self)^.&set := $00001000;
  73765. end;
  73766. procedure TCAN1_C1FIFOCON0.clearDONLY; inline;
  73767. begin
  73768. pTDefRegMap(@Self)^.clr := $00001000;
  73769. end;
  73770. procedure TCAN1_C1FIFOCON0.setDONLY(thebits : TBits_1); inline;
  73771. begin
  73772. if thebits = 0 then
  73773. pTDefRegMap(@Self)^.clr := $00001000
  73774. else
  73775. pTDefRegMap(@Self)^.&set := $00001000;
  73776. end;
  73777. function TCAN1_C1FIFOCON0.getDONLY : TBits_1; inline;
  73778. begin
  73779. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  73780. end;
  73781. procedure TCAN1_C1FIFOCON0.setUINC; inline;
  73782. begin
  73783. pTDefRegMap(@Self)^.&set := $00002000;
  73784. end;
  73785. procedure TCAN1_C1FIFOCON0.clearUINC; inline;
  73786. begin
  73787. pTDefRegMap(@Self)^.clr := $00002000;
  73788. end;
  73789. procedure TCAN1_C1FIFOCON0.setUINC(thebits : TBits_1); inline;
  73790. begin
  73791. if thebits = 0 then
  73792. pTDefRegMap(@Self)^.clr := $00002000
  73793. else
  73794. pTDefRegMap(@Self)^.&set := $00002000;
  73795. end;
  73796. function TCAN1_C1FIFOCON0.getUINC : TBits_1; inline;
  73797. begin
  73798. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  73799. end;
  73800. procedure TCAN1_C1FIFOCON0.setFRESET; inline;
  73801. begin
  73802. pTDefRegMap(@Self)^.&set := $00004000;
  73803. end;
  73804. procedure TCAN1_C1FIFOCON0.clearFRESET; inline;
  73805. begin
  73806. pTDefRegMap(@Self)^.clr := $00004000;
  73807. end;
  73808. procedure TCAN1_C1FIFOCON0.setFRESET(thebits : TBits_1); inline;
  73809. begin
  73810. if thebits = 0 then
  73811. pTDefRegMap(@Self)^.clr := $00004000
  73812. else
  73813. pTDefRegMap(@Self)^.&set := $00004000;
  73814. end;
  73815. function TCAN1_C1FIFOCON0.getFRESET : TBits_1; inline;
  73816. begin
  73817. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  73818. end;
  73819. procedure TCAN1_C1FIFOCON0.setFSIZE(thebits : TBits_5); inline;
  73820. begin
  73821. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  73822. end;
  73823. function TCAN1_C1FIFOCON0.getFSIZE : TBits_5; inline;
  73824. begin
  73825. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  73826. end;
  73827. procedure TCAN1_C1FIFOCON0.setw(thebits : TBits_32); inline;
  73828. begin
  73829. pTDefRegMap(@Self)^.val := thebits;
  73830. end;
  73831. function TCAN1_C1FIFOCON0.getw : TBits_32; inline;
  73832. begin
  73833. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  73834. end;
  73835. procedure TCAN1_C1FIFOINT0.setRXNEMPTYIF; inline;
  73836. begin
  73837. pTDefRegMap(@Self)^.&set := $00000001;
  73838. end;
  73839. procedure TCAN1_C1FIFOINT0.clearRXNEMPTYIF; inline;
  73840. begin
  73841. pTDefRegMap(@Self)^.clr := $00000001;
  73842. end;
  73843. procedure TCAN1_C1FIFOINT0.setRXNEMPTYIF(thebits : TBits_1); inline;
  73844. begin
  73845. if thebits = 0 then
  73846. pTDefRegMap(@Self)^.clr := $00000001
  73847. else
  73848. pTDefRegMap(@Self)^.&set := $00000001;
  73849. end;
  73850. function TCAN1_C1FIFOINT0.getRXNEMPTYIF : TBits_1; inline;
  73851. begin
  73852. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  73853. end;
  73854. procedure TCAN1_C1FIFOINT0.setRXHALFIF; inline;
  73855. begin
  73856. pTDefRegMap(@Self)^.&set := $00000002;
  73857. end;
  73858. procedure TCAN1_C1FIFOINT0.clearRXHALFIF; inline;
  73859. begin
  73860. pTDefRegMap(@Self)^.clr := $00000002;
  73861. end;
  73862. procedure TCAN1_C1FIFOINT0.setRXHALFIF(thebits : TBits_1); inline;
  73863. begin
  73864. if thebits = 0 then
  73865. pTDefRegMap(@Self)^.clr := $00000002
  73866. else
  73867. pTDefRegMap(@Self)^.&set := $00000002;
  73868. end;
  73869. function TCAN1_C1FIFOINT0.getRXHALFIF : TBits_1; inline;
  73870. begin
  73871. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  73872. end;
  73873. procedure TCAN1_C1FIFOINT0.setRXFULLIF; inline;
  73874. begin
  73875. pTDefRegMap(@Self)^.&set := $00000004;
  73876. end;
  73877. procedure TCAN1_C1FIFOINT0.clearRXFULLIF; inline;
  73878. begin
  73879. pTDefRegMap(@Self)^.clr := $00000004;
  73880. end;
  73881. procedure TCAN1_C1FIFOINT0.setRXFULLIF(thebits : TBits_1); inline;
  73882. begin
  73883. if thebits = 0 then
  73884. pTDefRegMap(@Self)^.clr := $00000004
  73885. else
  73886. pTDefRegMap(@Self)^.&set := $00000004;
  73887. end;
  73888. function TCAN1_C1FIFOINT0.getRXFULLIF : TBits_1; inline;
  73889. begin
  73890. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  73891. end;
  73892. procedure TCAN1_C1FIFOINT0.setRXOVFLIF; inline;
  73893. begin
  73894. pTDefRegMap(@Self)^.&set := $00000008;
  73895. end;
  73896. procedure TCAN1_C1FIFOINT0.clearRXOVFLIF; inline;
  73897. begin
  73898. pTDefRegMap(@Self)^.clr := $00000008;
  73899. end;
  73900. procedure TCAN1_C1FIFOINT0.setRXOVFLIF(thebits : TBits_1); inline;
  73901. begin
  73902. if thebits = 0 then
  73903. pTDefRegMap(@Self)^.clr := $00000008
  73904. else
  73905. pTDefRegMap(@Self)^.&set := $00000008;
  73906. end;
  73907. function TCAN1_C1FIFOINT0.getRXOVFLIF : TBits_1; inline;
  73908. begin
  73909. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  73910. end;
  73911. procedure TCAN1_C1FIFOINT0.setTXEMPTYIF; inline;
  73912. begin
  73913. pTDefRegMap(@Self)^.&set := $00000100;
  73914. end;
  73915. procedure TCAN1_C1FIFOINT0.clearTXEMPTYIF; inline;
  73916. begin
  73917. pTDefRegMap(@Self)^.clr := $00000100;
  73918. end;
  73919. procedure TCAN1_C1FIFOINT0.setTXEMPTYIF(thebits : TBits_1); inline;
  73920. begin
  73921. if thebits = 0 then
  73922. pTDefRegMap(@Self)^.clr := $00000100
  73923. else
  73924. pTDefRegMap(@Self)^.&set := $00000100;
  73925. end;
  73926. function TCAN1_C1FIFOINT0.getTXEMPTYIF : TBits_1; inline;
  73927. begin
  73928. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  73929. end;
  73930. procedure TCAN1_C1FIFOINT0.setTXHALFIF; inline;
  73931. begin
  73932. pTDefRegMap(@Self)^.&set := $00000200;
  73933. end;
  73934. procedure TCAN1_C1FIFOINT0.clearTXHALFIF; inline;
  73935. begin
  73936. pTDefRegMap(@Self)^.clr := $00000200;
  73937. end;
  73938. procedure TCAN1_C1FIFOINT0.setTXHALFIF(thebits : TBits_1); inline;
  73939. begin
  73940. if thebits = 0 then
  73941. pTDefRegMap(@Self)^.clr := $00000200
  73942. else
  73943. pTDefRegMap(@Self)^.&set := $00000200;
  73944. end;
  73945. function TCAN1_C1FIFOINT0.getTXHALFIF : TBits_1; inline;
  73946. begin
  73947. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  73948. end;
  73949. procedure TCAN1_C1FIFOINT0.setTXNFULLIF; inline;
  73950. begin
  73951. pTDefRegMap(@Self)^.&set := $00000400;
  73952. end;
  73953. procedure TCAN1_C1FIFOINT0.clearTXNFULLIF; inline;
  73954. begin
  73955. pTDefRegMap(@Self)^.clr := $00000400;
  73956. end;
  73957. procedure TCAN1_C1FIFOINT0.setTXNFULLIF(thebits : TBits_1); inline;
  73958. begin
  73959. if thebits = 0 then
  73960. pTDefRegMap(@Self)^.clr := $00000400
  73961. else
  73962. pTDefRegMap(@Self)^.&set := $00000400;
  73963. end;
  73964. function TCAN1_C1FIFOINT0.getTXNFULLIF : TBits_1; inline;
  73965. begin
  73966. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  73967. end;
  73968. procedure TCAN1_C1FIFOINT0.setRXNEMPTYIE; inline;
  73969. begin
  73970. pTDefRegMap(@Self)^.&set := $00010000;
  73971. end;
  73972. procedure TCAN1_C1FIFOINT0.clearRXNEMPTYIE; inline;
  73973. begin
  73974. pTDefRegMap(@Self)^.clr := $00010000;
  73975. end;
  73976. procedure TCAN1_C1FIFOINT0.setRXNEMPTYIE(thebits : TBits_1); inline;
  73977. begin
  73978. if thebits = 0 then
  73979. pTDefRegMap(@Self)^.clr := $00010000
  73980. else
  73981. pTDefRegMap(@Self)^.&set := $00010000;
  73982. end;
  73983. function TCAN1_C1FIFOINT0.getRXNEMPTYIE : TBits_1; inline;
  73984. begin
  73985. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  73986. end;
  73987. procedure TCAN1_C1FIFOINT0.setRXHALFIE; inline;
  73988. begin
  73989. pTDefRegMap(@Self)^.&set := $00020000;
  73990. end;
  73991. procedure TCAN1_C1FIFOINT0.clearRXHALFIE; inline;
  73992. begin
  73993. pTDefRegMap(@Self)^.clr := $00020000;
  73994. end;
  73995. procedure TCAN1_C1FIFOINT0.setRXHALFIE(thebits : TBits_1); inline;
  73996. begin
  73997. if thebits = 0 then
  73998. pTDefRegMap(@Self)^.clr := $00020000
  73999. else
  74000. pTDefRegMap(@Self)^.&set := $00020000;
  74001. end;
  74002. function TCAN1_C1FIFOINT0.getRXHALFIE : TBits_1; inline;
  74003. begin
  74004. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  74005. end;
  74006. procedure TCAN1_C1FIFOINT0.setRXFULLIE; inline;
  74007. begin
  74008. pTDefRegMap(@Self)^.&set := $00040000;
  74009. end;
  74010. procedure TCAN1_C1FIFOINT0.clearRXFULLIE; inline;
  74011. begin
  74012. pTDefRegMap(@Self)^.clr := $00040000;
  74013. end;
  74014. procedure TCAN1_C1FIFOINT0.setRXFULLIE(thebits : TBits_1); inline;
  74015. begin
  74016. if thebits = 0 then
  74017. pTDefRegMap(@Self)^.clr := $00040000
  74018. else
  74019. pTDefRegMap(@Self)^.&set := $00040000;
  74020. end;
  74021. function TCAN1_C1FIFOINT0.getRXFULLIE : TBits_1; inline;
  74022. begin
  74023. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  74024. end;
  74025. procedure TCAN1_C1FIFOINT0.setRXOVFLIE; inline;
  74026. begin
  74027. pTDefRegMap(@Self)^.&set := $00080000;
  74028. end;
  74029. procedure TCAN1_C1FIFOINT0.clearRXOVFLIE; inline;
  74030. begin
  74031. pTDefRegMap(@Self)^.clr := $00080000;
  74032. end;
  74033. procedure TCAN1_C1FIFOINT0.setRXOVFLIE(thebits : TBits_1); inline;
  74034. begin
  74035. if thebits = 0 then
  74036. pTDefRegMap(@Self)^.clr := $00080000
  74037. else
  74038. pTDefRegMap(@Self)^.&set := $00080000;
  74039. end;
  74040. function TCAN1_C1FIFOINT0.getRXOVFLIE : TBits_1; inline;
  74041. begin
  74042. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  74043. end;
  74044. procedure TCAN1_C1FIFOINT0.setTXEMPTYIE; inline;
  74045. begin
  74046. pTDefRegMap(@Self)^.&set := $01000000;
  74047. end;
  74048. procedure TCAN1_C1FIFOINT0.clearTXEMPTYIE; inline;
  74049. begin
  74050. pTDefRegMap(@Self)^.clr := $01000000;
  74051. end;
  74052. procedure TCAN1_C1FIFOINT0.setTXEMPTYIE(thebits : TBits_1); inline;
  74053. begin
  74054. if thebits = 0 then
  74055. pTDefRegMap(@Self)^.clr := $01000000
  74056. else
  74057. pTDefRegMap(@Self)^.&set := $01000000;
  74058. end;
  74059. function TCAN1_C1FIFOINT0.getTXEMPTYIE : TBits_1; inline;
  74060. begin
  74061. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  74062. end;
  74063. procedure TCAN1_C1FIFOINT0.setTXHALFIE; inline;
  74064. begin
  74065. pTDefRegMap(@Self)^.&set := $02000000;
  74066. end;
  74067. procedure TCAN1_C1FIFOINT0.clearTXHALFIE; inline;
  74068. begin
  74069. pTDefRegMap(@Self)^.clr := $02000000;
  74070. end;
  74071. procedure TCAN1_C1FIFOINT0.setTXHALFIE(thebits : TBits_1); inline;
  74072. begin
  74073. if thebits = 0 then
  74074. pTDefRegMap(@Self)^.clr := $02000000
  74075. else
  74076. pTDefRegMap(@Self)^.&set := $02000000;
  74077. end;
  74078. function TCAN1_C1FIFOINT0.getTXHALFIE : TBits_1; inline;
  74079. begin
  74080. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  74081. end;
  74082. procedure TCAN1_C1FIFOINT0.setTXNFULLIE; inline;
  74083. begin
  74084. pTDefRegMap(@Self)^.&set := $04000000;
  74085. end;
  74086. procedure TCAN1_C1FIFOINT0.clearTXNFULLIE; inline;
  74087. begin
  74088. pTDefRegMap(@Self)^.clr := $04000000;
  74089. end;
  74090. procedure TCAN1_C1FIFOINT0.setTXNFULLIE(thebits : TBits_1); inline;
  74091. begin
  74092. if thebits = 0 then
  74093. pTDefRegMap(@Self)^.clr := $04000000
  74094. else
  74095. pTDefRegMap(@Self)^.&set := $04000000;
  74096. end;
  74097. function TCAN1_C1FIFOINT0.getTXNFULLIE : TBits_1; inline;
  74098. begin
  74099. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  74100. end;
  74101. procedure TCAN1_C1FIFOINT0.setw(thebits : TBits_32); inline;
  74102. begin
  74103. pTDefRegMap(@Self)^.val := thebits;
  74104. end;
  74105. function TCAN1_C1FIFOINT0.getw : TBits_32; inline;
  74106. begin
  74107. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  74108. end;
  74109. procedure TCAN1_C1FIFOCI0.setCFIFOCI(thebits : TBits_5); inline;
  74110. begin
  74111. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  74112. end;
  74113. function TCAN1_C1FIFOCI0.getCFIFOCI : TBits_5; inline;
  74114. begin
  74115. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  74116. end;
  74117. procedure TCAN1_C1FIFOCI0.setw(thebits : TBits_32); inline;
  74118. begin
  74119. pTDefRegMap(@Self)^.val := thebits;
  74120. end;
  74121. function TCAN1_C1FIFOCI0.getw : TBits_32; inline;
  74122. begin
  74123. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  74124. end;
  74125. procedure TCAN1_C1FIFOCON1.setTXPRI(thebits : TBits_2); inline;
  74126. begin
  74127. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  74128. end;
  74129. function TCAN1_C1FIFOCON1.getTXPRI : TBits_2; inline;
  74130. begin
  74131. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  74132. end;
  74133. procedure TCAN1_C1FIFOCON1.setRTREN; inline;
  74134. begin
  74135. pTDefRegMap(@Self)^.&set := $00000004;
  74136. end;
  74137. procedure TCAN1_C1FIFOCON1.clearRTREN; inline;
  74138. begin
  74139. pTDefRegMap(@Self)^.clr := $00000004;
  74140. end;
  74141. procedure TCAN1_C1FIFOCON1.setRTREN(thebits : TBits_1); inline;
  74142. begin
  74143. if thebits = 0 then
  74144. pTDefRegMap(@Self)^.clr := $00000004
  74145. else
  74146. pTDefRegMap(@Self)^.&set := $00000004;
  74147. end;
  74148. function TCAN1_C1FIFOCON1.getRTREN : TBits_1; inline;
  74149. begin
  74150. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  74151. end;
  74152. procedure TCAN1_C1FIFOCON1.setTXREQ; inline;
  74153. begin
  74154. pTDefRegMap(@Self)^.&set := $00000008;
  74155. end;
  74156. procedure TCAN1_C1FIFOCON1.clearTXREQ; inline;
  74157. begin
  74158. pTDefRegMap(@Self)^.clr := $00000008;
  74159. end;
  74160. procedure TCAN1_C1FIFOCON1.setTXREQ(thebits : TBits_1); inline;
  74161. begin
  74162. if thebits = 0 then
  74163. pTDefRegMap(@Self)^.clr := $00000008
  74164. else
  74165. pTDefRegMap(@Self)^.&set := $00000008;
  74166. end;
  74167. function TCAN1_C1FIFOCON1.getTXREQ : TBits_1; inline;
  74168. begin
  74169. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  74170. end;
  74171. procedure TCAN1_C1FIFOCON1.setTXERR; inline;
  74172. begin
  74173. pTDefRegMap(@Self)^.&set := $00000010;
  74174. end;
  74175. procedure TCAN1_C1FIFOCON1.clearTXERR; inline;
  74176. begin
  74177. pTDefRegMap(@Self)^.clr := $00000010;
  74178. end;
  74179. procedure TCAN1_C1FIFOCON1.setTXERR(thebits : TBits_1); inline;
  74180. begin
  74181. if thebits = 0 then
  74182. pTDefRegMap(@Self)^.clr := $00000010
  74183. else
  74184. pTDefRegMap(@Self)^.&set := $00000010;
  74185. end;
  74186. function TCAN1_C1FIFOCON1.getTXERR : TBits_1; inline;
  74187. begin
  74188. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  74189. end;
  74190. procedure TCAN1_C1FIFOCON1.setTXLARB; inline;
  74191. begin
  74192. pTDefRegMap(@Self)^.&set := $00000020;
  74193. end;
  74194. procedure TCAN1_C1FIFOCON1.clearTXLARB; inline;
  74195. begin
  74196. pTDefRegMap(@Self)^.clr := $00000020;
  74197. end;
  74198. procedure TCAN1_C1FIFOCON1.setTXLARB(thebits : TBits_1); inline;
  74199. begin
  74200. if thebits = 0 then
  74201. pTDefRegMap(@Self)^.clr := $00000020
  74202. else
  74203. pTDefRegMap(@Self)^.&set := $00000020;
  74204. end;
  74205. function TCAN1_C1FIFOCON1.getTXLARB : TBits_1; inline;
  74206. begin
  74207. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  74208. end;
  74209. procedure TCAN1_C1FIFOCON1.setTXABAT; inline;
  74210. begin
  74211. pTDefRegMap(@Self)^.&set := $00000040;
  74212. end;
  74213. procedure TCAN1_C1FIFOCON1.clearTXABAT; inline;
  74214. begin
  74215. pTDefRegMap(@Self)^.clr := $00000040;
  74216. end;
  74217. procedure TCAN1_C1FIFOCON1.setTXABAT(thebits : TBits_1); inline;
  74218. begin
  74219. if thebits = 0 then
  74220. pTDefRegMap(@Self)^.clr := $00000040
  74221. else
  74222. pTDefRegMap(@Self)^.&set := $00000040;
  74223. end;
  74224. function TCAN1_C1FIFOCON1.getTXABAT : TBits_1; inline;
  74225. begin
  74226. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  74227. end;
  74228. procedure TCAN1_C1FIFOCON1.setTXEN; inline;
  74229. begin
  74230. pTDefRegMap(@Self)^.&set := $00000080;
  74231. end;
  74232. procedure TCAN1_C1FIFOCON1.clearTXEN; inline;
  74233. begin
  74234. pTDefRegMap(@Self)^.clr := $00000080;
  74235. end;
  74236. procedure TCAN1_C1FIFOCON1.setTXEN(thebits : TBits_1); inline;
  74237. begin
  74238. if thebits = 0 then
  74239. pTDefRegMap(@Self)^.clr := $00000080
  74240. else
  74241. pTDefRegMap(@Self)^.&set := $00000080;
  74242. end;
  74243. function TCAN1_C1FIFOCON1.getTXEN : TBits_1; inline;
  74244. begin
  74245. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  74246. end;
  74247. procedure TCAN1_C1FIFOCON1.setDONLY; inline;
  74248. begin
  74249. pTDefRegMap(@Self)^.&set := $00001000;
  74250. end;
  74251. procedure TCAN1_C1FIFOCON1.clearDONLY; inline;
  74252. begin
  74253. pTDefRegMap(@Self)^.clr := $00001000;
  74254. end;
  74255. procedure TCAN1_C1FIFOCON1.setDONLY(thebits : TBits_1); inline;
  74256. begin
  74257. if thebits = 0 then
  74258. pTDefRegMap(@Self)^.clr := $00001000
  74259. else
  74260. pTDefRegMap(@Self)^.&set := $00001000;
  74261. end;
  74262. function TCAN1_C1FIFOCON1.getDONLY : TBits_1; inline;
  74263. begin
  74264. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  74265. end;
  74266. procedure TCAN1_C1FIFOCON1.setUINC; inline;
  74267. begin
  74268. pTDefRegMap(@Self)^.&set := $00002000;
  74269. end;
  74270. procedure TCAN1_C1FIFOCON1.clearUINC; inline;
  74271. begin
  74272. pTDefRegMap(@Self)^.clr := $00002000;
  74273. end;
  74274. procedure TCAN1_C1FIFOCON1.setUINC(thebits : TBits_1); inline;
  74275. begin
  74276. if thebits = 0 then
  74277. pTDefRegMap(@Self)^.clr := $00002000
  74278. else
  74279. pTDefRegMap(@Self)^.&set := $00002000;
  74280. end;
  74281. function TCAN1_C1FIFOCON1.getUINC : TBits_1; inline;
  74282. begin
  74283. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  74284. end;
  74285. procedure TCAN1_C1FIFOCON1.setFRESET; inline;
  74286. begin
  74287. pTDefRegMap(@Self)^.&set := $00004000;
  74288. end;
  74289. procedure TCAN1_C1FIFOCON1.clearFRESET; inline;
  74290. begin
  74291. pTDefRegMap(@Self)^.clr := $00004000;
  74292. end;
  74293. procedure TCAN1_C1FIFOCON1.setFRESET(thebits : TBits_1); inline;
  74294. begin
  74295. if thebits = 0 then
  74296. pTDefRegMap(@Self)^.clr := $00004000
  74297. else
  74298. pTDefRegMap(@Self)^.&set := $00004000;
  74299. end;
  74300. function TCAN1_C1FIFOCON1.getFRESET : TBits_1; inline;
  74301. begin
  74302. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  74303. end;
  74304. procedure TCAN1_C1FIFOCON1.setFSIZE(thebits : TBits_5); inline;
  74305. begin
  74306. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  74307. end;
  74308. function TCAN1_C1FIFOCON1.getFSIZE : TBits_5; inline;
  74309. begin
  74310. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  74311. end;
  74312. procedure TCAN1_C1FIFOCON1.setw(thebits : TBits_32); inline;
  74313. begin
  74314. pTDefRegMap(@Self)^.val := thebits;
  74315. end;
  74316. function TCAN1_C1FIFOCON1.getw : TBits_32; inline;
  74317. begin
  74318. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  74319. end;
  74320. procedure TCAN1_C1FIFOINT1.setRXNEMPTYIF; inline;
  74321. begin
  74322. pTDefRegMap(@Self)^.&set := $00000001;
  74323. end;
  74324. procedure TCAN1_C1FIFOINT1.clearRXNEMPTYIF; inline;
  74325. begin
  74326. pTDefRegMap(@Self)^.clr := $00000001;
  74327. end;
  74328. procedure TCAN1_C1FIFOINT1.setRXNEMPTYIF(thebits : TBits_1); inline;
  74329. begin
  74330. if thebits = 0 then
  74331. pTDefRegMap(@Self)^.clr := $00000001
  74332. else
  74333. pTDefRegMap(@Self)^.&set := $00000001;
  74334. end;
  74335. function TCAN1_C1FIFOINT1.getRXNEMPTYIF : TBits_1; inline;
  74336. begin
  74337. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  74338. end;
  74339. procedure TCAN1_C1FIFOINT1.setRXHALFIF; inline;
  74340. begin
  74341. pTDefRegMap(@Self)^.&set := $00000002;
  74342. end;
  74343. procedure TCAN1_C1FIFOINT1.clearRXHALFIF; inline;
  74344. begin
  74345. pTDefRegMap(@Self)^.clr := $00000002;
  74346. end;
  74347. procedure TCAN1_C1FIFOINT1.setRXHALFIF(thebits : TBits_1); inline;
  74348. begin
  74349. if thebits = 0 then
  74350. pTDefRegMap(@Self)^.clr := $00000002
  74351. else
  74352. pTDefRegMap(@Self)^.&set := $00000002;
  74353. end;
  74354. function TCAN1_C1FIFOINT1.getRXHALFIF : TBits_1; inline;
  74355. begin
  74356. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  74357. end;
  74358. procedure TCAN1_C1FIFOINT1.setRXFULLIF; inline;
  74359. begin
  74360. pTDefRegMap(@Self)^.&set := $00000004;
  74361. end;
  74362. procedure TCAN1_C1FIFOINT1.clearRXFULLIF; inline;
  74363. begin
  74364. pTDefRegMap(@Self)^.clr := $00000004;
  74365. end;
  74366. procedure TCAN1_C1FIFOINT1.setRXFULLIF(thebits : TBits_1); inline;
  74367. begin
  74368. if thebits = 0 then
  74369. pTDefRegMap(@Self)^.clr := $00000004
  74370. else
  74371. pTDefRegMap(@Self)^.&set := $00000004;
  74372. end;
  74373. function TCAN1_C1FIFOINT1.getRXFULLIF : TBits_1; inline;
  74374. begin
  74375. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  74376. end;
  74377. procedure TCAN1_C1FIFOINT1.setRXOVFLIF; inline;
  74378. begin
  74379. pTDefRegMap(@Self)^.&set := $00000008;
  74380. end;
  74381. procedure TCAN1_C1FIFOINT1.clearRXOVFLIF; inline;
  74382. begin
  74383. pTDefRegMap(@Self)^.clr := $00000008;
  74384. end;
  74385. procedure TCAN1_C1FIFOINT1.setRXOVFLIF(thebits : TBits_1); inline;
  74386. begin
  74387. if thebits = 0 then
  74388. pTDefRegMap(@Self)^.clr := $00000008
  74389. else
  74390. pTDefRegMap(@Self)^.&set := $00000008;
  74391. end;
  74392. function TCAN1_C1FIFOINT1.getRXOVFLIF : TBits_1; inline;
  74393. begin
  74394. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  74395. end;
  74396. procedure TCAN1_C1FIFOINT1.setTXEMPTYIF; inline;
  74397. begin
  74398. pTDefRegMap(@Self)^.&set := $00000100;
  74399. end;
  74400. procedure TCAN1_C1FIFOINT1.clearTXEMPTYIF; inline;
  74401. begin
  74402. pTDefRegMap(@Self)^.clr := $00000100;
  74403. end;
  74404. procedure TCAN1_C1FIFOINT1.setTXEMPTYIF(thebits : TBits_1); inline;
  74405. begin
  74406. if thebits = 0 then
  74407. pTDefRegMap(@Self)^.clr := $00000100
  74408. else
  74409. pTDefRegMap(@Self)^.&set := $00000100;
  74410. end;
  74411. function TCAN1_C1FIFOINT1.getTXEMPTYIF : TBits_1; inline;
  74412. begin
  74413. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  74414. end;
  74415. procedure TCAN1_C1FIFOINT1.setTXHALFIF; inline;
  74416. begin
  74417. pTDefRegMap(@Self)^.&set := $00000200;
  74418. end;
  74419. procedure TCAN1_C1FIFOINT1.clearTXHALFIF; inline;
  74420. begin
  74421. pTDefRegMap(@Self)^.clr := $00000200;
  74422. end;
  74423. procedure TCAN1_C1FIFOINT1.setTXHALFIF(thebits : TBits_1); inline;
  74424. begin
  74425. if thebits = 0 then
  74426. pTDefRegMap(@Self)^.clr := $00000200
  74427. else
  74428. pTDefRegMap(@Self)^.&set := $00000200;
  74429. end;
  74430. function TCAN1_C1FIFOINT1.getTXHALFIF : TBits_1; inline;
  74431. begin
  74432. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  74433. end;
  74434. procedure TCAN1_C1FIFOINT1.setTXNFULLIF; inline;
  74435. begin
  74436. pTDefRegMap(@Self)^.&set := $00000400;
  74437. end;
  74438. procedure TCAN1_C1FIFOINT1.clearTXNFULLIF; inline;
  74439. begin
  74440. pTDefRegMap(@Self)^.clr := $00000400;
  74441. end;
  74442. procedure TCAN1_C1FIFOINT1.setTXNFULLIF(thebits : TBits_1); inline;
  74443. begin
  74444. if thebits = 0 then
  74445. pTDefRegMap(@Self)^.clr := $00000400
  74446. else
  74447. pTDefRegMap(@Self)^.&set := $00000400;
  74448. end;
  74449. function TCAN1_C1FIFOINT1.getTXNFULLIF : TBits_1; inline;
  74450. begin
  74451. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  74452. end;
  74453. procedure TCAN1_C1FIFOINT1.setRXNEMPTYIE; inline;
  74454. begin
  74455. pTDefRegMap(@Self)^.&set := $00010000;
  74456. end;
  74457. procedure TCAN1_C1FIFOINT1.clearRXNEMPTYIE; inline;
  74458. begin
  74459. pTDefRegMap(@Self)^.clr := $00010000;
  74460. end;
  74461. procedure TCAN1_C1FIFOINT1.setRXNEMPTYIE(thebits : TBits_1); inline;
  74462. begin
  74463. if thebits = 0 then
  74464. pTDefRegMap(@Self)^.clr := $00010000
  74465. else
  74466. pTDefRegMap(@Self)^.&set := $00010000;
  74467. end;
  74468. function TCAN1_C1FIFOINT1.getRXNEMPTYIE : TBits_1; inline;
  74469. begin
  74470. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  74471. end;
  74472. procedure TCAN1_C1FIFOINT1.setRXHALFIE; inline;
  74473. begin
  74474. pTDefRegMap(@Self)^.&set := $00020000;
  74475. end;
  74476. procedure TCAN1_C1FIFOINT1.clearRXHALFIE; inline;
  74477. begin
  74478. pTDefRegMap(@Self)^.clr := $00020000;
  74479. end;
  74480. procedure TCAN1_C1FIFOINT1.setRXHALFIE(thebits : TBits_1); inline;
  74481. begin
  74482. if thebits = 0 then
  74483. pTDefRegMap(@Self)^.clr := $00020000
  74484. else
  74485. pTDefRegMap(@Self)^.&set := $00020000;
  74486. end;
  74487. function TCAN1_C1FIFOINT1.getRXHALFIE : TBits_1; inline;
  74488. begin
  74489. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  74490. end;
  74491. procedure TCAN1_C1FIFOINT1.setRXFULLIE; inline;
  74492. begin
  74493. pTDefRegMap(@Self)^.&set := $00040000;
  74494. end;
  74495. procedure TCAN1_C1FIFOINT1.clearRXFULLIE; inline;
  74496. begin
  74497. pTDefRegMap(@Self)^.clr := $00040000;
  74498. end;
  74499. procedure TCAN1_C1FIFOINT1.setRXFULLIE(thebits : TBits_1); inline;
  74500. begin
  74501. if thebits = 0 then
  74502. pTDefRegMap(@Self)^.clr := $00040000
  74503. else
  74504. pTDefRegMap(@Self)^.&set := $00040000;
  74505. end;
  74506. function TCAN1_C1FIFOINT1.getRXFULLIE : TBits_1; inline;
  74507. begin
  74508. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  74509. end;
  74510. procedure TCAN1_C1FIFOINT1.setRXOVFLIE; inline;
  74511. begin
  74512. pTDefRegMap(@Self)^.&set := $00080000;
  74513. end;
  74514. procedure TCAN1_C1FIFOINT1.clearRXOVFLIE; inline;
  74515. begin
  74516. pTDefRegMap(@Self)^.clr := $00080000;
  74517. end;
  74518. procedure TCAN1_C1FIFOINT1.setRXOVFLIE(thebits : TBits_1); inline;
  74519. begin
  74520. if thebits = 0 then
  74521. pTDefRegMap(@Self)^.clr := $00080000
  74522. else
  74523. pTDefRegMap(@Self)^.&set := $00080000;
  74524. end;
  74525. function TCAN1_C1FIFOINT1.getRXOVFLIE : TBits_1; inline;
  74526. begin
  74527. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  74528. end;
  74529. procedure TCAN1_C1FIFOINT1.setTXEMPTYIE; inline;
  74530. begin
  74531. pTDefRegMap(@Self)^.&set := $01000000;
  74532. end;
  74533. procedure TCAN1_C1FIFOINT1.clearTXEMPTYIE; inline;
  74534. begin
  74535. pTDefRegMap(@Self)^.clr := $01000000;
  74536. end;
  74537. procedure TCAN1_C1FIFOINT1.setTXEMPTYIE(thebits : TBits_1); inline;
  74538. begin
  74539. if thebits = 0 then
  74540. pTDefRegMap(@Self)^.clr := $01000000
  74541. else
  74542. pTDefRegMap(@Self)^.&set := $01000000;
  74543. end;
  74544. function TCAN1_C1FIFOINT1.getTXEMPTYIE : TBits_1; inline;
  74545. begin
  74546. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  74547. end;
  74548. procedure TCAN1_C1FIFOINT1.setTXHALFIE; inline;
  74549. begin
  74550. pTDefRegMap(@Self)^.&set := $02000000;
  74551. end;
  74552. procedure TCAN1_C1FIFOINT1.clearTXHALFIE; inline;
  74553. begin
  74554. pTDefRegMap(@Self)^.clr := $02000000;
  74555. end;
  74556. procedure TCAN1_C1FIFOINT1.setTXHALFIE(thebits : TBits_1); inline;
  74557. begin
  74558. if thebits = 0 then
  74559. pTDefRegMap(@Self)^.clr := $02000000
  74560. else
  74561. pTDefRegMap(@Self)^.&set := $02000000;
  74562. end;
  74563. function TCAN1_C1FIFOINT1.getTXHALFIE : TBits_1; inline;
  74564. begin
  74565. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  74566. end;
  74567. procedure TCAN1_C1FIFOINT1.setTXNFULLIE; inline;
  74568. begin
  74569. pTDefRegMap(@Self)^.&set := $04000000;
  74570. end;
  74571. procedure TCAN1_C1FIFOINT1.clearTXNFULLIE; inline;
  74572. begin
  74573. pTDefRegMap(@Self)^.clr := $04000000;
  74574. end;
  74575. procedure TCAN1_C1FIFOINT1.setTXNFULLIE(thebits : TBits_1); inline;
  74576. begin
  74577. if thebits = 0 then
  74578. pTDefRegMap(@Self)^.clr := $04000000
  74579. else
  74580. pTDefRegMap(@Self)^.&set := $04000000;
  74581. end;
  74582. function TCAN1_C1FIFOINT1.getTXNFULLIE : TBits_1; inline;
  74583. begin
  74584. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  74585. end;
  74586. procedure TCAN1_C1FIFOINT1.setw(thebits : TBits_32); inline;
  74587. begin
  74588. pTDefRegMap(@Self)^.val := thebits;
  74589. end;
  74590. function TCAN1_C1FIFOINT1.getw : TBits_32; inline;
  74591. begin
  74592. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  74593. end;
  74594. procedure TCAN1_C1FIFOCI1.setCFIFOCI(thebits : TBits_5); inline;
  74595. begin
  74596. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  74597. end;
  74598. function TCAN1_C1FIFOCI1.getCFIFOCI : TBits_5; inline;
  74599. begin
  74600. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  74601. end;
  74602. procedure TCAN1_C1FIFOCI1.setw(thebits : TBits_32); inline;
  74603. begin
  74604. pTDefRegMap(@Self)^.val := thebits;
  74605. end;
  74606. function TCAN1_C1FIFOCI1.getw : TBits_32; inline;
  74607. begin
  74608. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  74609. end;
  74610. procedure TCAN1_C1FIFOCON2.setTXPRI(thebits : TBits_2); inline;
  74611. begin
  74612. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  74613. end;
  74614. function TCAN1_C1FIFOCON2.getTXPRI : TBits_2; inline;
  74615. begin
  74616. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  74617. end;
  74618. procedure TCAN1_C1FIFOCON2.setRTREN; inline;
  74619. begin
  74620. pTDefRegMap(@Self)^.&set := $00000004;
  74621. end;
  74622. procedure TCAN1_C1FIFOCON2.clearRTREN; inline;
  74623. begin
  74624. pTDefRegMap(@Self)^.clr := $00000004;
  74625. end;
  74626. procedure TCAN1_C1FIFOCON2.setRTREN(thebits : TBits_1); inline;
  74627. begin
  74628. if thebits = 0 then
  74629. pTDefRegMap(@Self)^.clr := $00000004
  74630. else
  74631. pTDefRegMap(@Self)^.&set := $00000004;
  74632. end;
  74633. function TCAN1_C1FIFOCON2.getRTREN : TBits_1; inline;
  74634. begin
  74635. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  74636. end;
  74637. procedure TCAN1_C1FIFOCON2.setTXREQ; inline;
  74638. begin
  74639. pTDefRegMap(@Self)^.&set := $00000008;
  74640. end;
  74641. procedure TCAN1_C1FIFOCON2.clearTXREQ; inline;
  74642. begin
  74643. pTDefRegMap(@Self)^.clr := $00000008;
  74644. end;
  74645. procedure TCAN1_C1FIFOCON2.setTXREQ(thebits : TBits_1); inline;
  74646. begin
  74647. if thebits = 0 then
  74648. pTDefRegMap(@Self)^.clr := $00000008
  74649. else
  74650. pTDefRegMap(@Self)^.&set := $00000008;
  74651. end;
  74652. function TCAN1_C1FIFOCON2.getTXREQ : TBits_1; inline;
  74653. begin
  74654. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  74655. end;
  74656. procedure TCAN1_C1FIFOCON2.setTXERR; inline;
  74657. begin
  74658. pTDefRegMap(@Self)^.&set := $00000010;
  74659. end;
  74660. procedure TCAN1_C1FIFOCON2.clearTXERR; inline;
  74661. begin
  74662. pTDefRegMap(@Self)^.clr := $00000010;
  74663. end;
  74664. procedure TCAN1_C1FIFOCON2.setTXERR(thebits : TBits_1); inline;
  74665. begin
  74666. if thebits = 0 then
  74667. pTDefRegMap(@Self)^.clr := $00000010
  74668. else
  74669. pTDefRegMap(@Self)^.&set := $00000010;
  74670. end;
  74671. function TCAN1_C1FIFOCON2.getTXERR : TBits_1; inline;
  74672. begin
  74673. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  74674. end;
  74675. procedure TCAN1_C1FIFOCON2.setTXLARB; inline;
  74676. begin
  74677. pTDefRegMap(@Self)^.&set := $00000020;
  74678. end;
  74679. procedure TCAN1_C1FIFOCON2.clearTXLARB; inline;
  74680. begin
  74681. pTDefRegMap(@Self)^.clr := $00000020;
  74682. end;
  74683. procedure TCAN1_C1FIFOCON2.setTXLARB(thebits : TBits_1); inline;
  74684. begin
  74685. if thebits = 0 then
  74686. pTDefRegMap(@Self)^.clr := $00000020
  74687. else
  74688. pTDefRegMap(@Self)^.&set := $00000020;
  74689. end;
  74690. function TCAN1_C1FIFOCON2.getTXLARB : TBits_1; inline;
  74691. begin
  74692. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  74693. end;
  74694. procedure TCAN1_C1FIFOCON2.setTXABAT; inline;
  74695. begin
  74696. pTDefRegMap(@Self)^.&set := $00000040;
  74697. end;
  74698. procedure TCAN1_C1FIFOCON2.clearTXABAT; inline;
  74699. begin
  74700. pTDefRegMap(@Self)^.clr := $00000040;
  74701. end;
  74702. procedure TCAN1_C1FIFOCON2.setTXABAT(thebits : TBits_1); inline;
  74703. begin
  74704. if thebits = 0 then
  74705. pTDefRegMap(@Self)^.clr := $00000040
  74706. else
  74707. pTDefRegMap(@Self)^.&set := $00000040;
  74708. end;
  74709. function TCAN1_C1FIFOCON2.getTXABAT : TBits_1; inline;
  74710. begin
  74711. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  74712. end;
  74713. procedure TCAN1_C1FIFOCON2.setTXEN; inline;
  74714. begin
  74715. pTDefRegMap(@Self)^.&set := $00000080;
  74716. end;
  74717. procedure TCAN1_C1FIFOCON2.clearTXEN; inline;
  74718. begin
  74719. pTDefRegMap(@Self)^.clr := $00000080;
  74720. end;
  74721. procedure TCAN1_C1FIFOCON2.setTXEN(thebits : TBits_1); inline;
  74722. begin
  74723. if thebits = 0 then
  74724. pTDefRegMap(@Self)^.clr := $00000080
  74725. else
  74726. pTDefRegMap(@Self)^.&set := $00000080;
  74727. end;
  74728. function TCAN1_C1FIFOCON2.getTXEN : TBits_1; inline;
  74729. begin
  74730. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  74731. end;
  74732. procedure TCAN1_C1FIFOCON2.setDONLY; inline;
  74733. begin
  74734. pTDefRegMap(@Self)^.&set := $00001000;
  74735. end;
  74736. procedure TCAN1_C1FIFOCON2.clearDONLY; inline;
  74737. begin
  74738. pTDefRegMap(@Self)^.clr := $00001000;
  74739. end;
  74740. procedure TCAN1_C1FIFOCON2.setDONLY(thebits : TBits_1); inline;
  74741. begin
  74742. if thebits = 0 then
  74743. pTDefRegMap(@Self)^.clr := $00001000
  74744. else
  74745. pTDefRegMap(@Self)^.&set := $00001000;
  74746. end;
  74747. function TCAN1_C1FIFOCON2.getDONLY : TBits_1; inline;
  74748. begin
  74749. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  74750. end;
  74751. procedure TCAN1_C1FIFOCON2.setUINC; inline;
  74752. begin
  74753. pTDefRegMap(@Self)^.&set := $00002000;
  74754. end;
  74755. procedure TCAN1_C1FIFOCON2.clearUINC; inline;
  74756. begin
  74757. pTDefRegMap(@Self)^.clr := $00002000;
  74758. end;
  74759. procedure TCAN1_C1FIFOCON2.setUINC(thebits : TBits_1); inline;
  74760. begin
  74761. if thebits = 0 then
  74762. pTDefRegMap(@Self)^.clr := $00002000
  74763. else
  74764. pTDefRegMap(@Self)^.&set := $00002000;
  74765. end;
  74766. function TCAN1_C1FIFOCON2.getUINC : TBits_1; inline;
  74767. begin
  74768. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  74769. end;
  74770. procedure TCAN1_C1FIFOCON2.setFRESET; inline;
  74771. begin
  74772. pTDefRegMap(@Self)^.&set := $00004000;
  74773. end;
  74774. procedure TCAN1_C1FIFOCON2.clearFRESET; inline;
  74775. begin
  74776. pTDefRegMap(@Self)^.clr := $00004000;
  74777. end;
  74778. procedure TCAN1_C1FIFOCON2.setFRESET(thebits : TBits_1); inline;
  74779. begin
  74780. if thebits = 0 then
  74781. pTDefRegMap(@Self)^.clr := $00004000
  74782. else
  74783. pTDefRegMap(@Self)^.&set := $00004000;
  74784. end;
  74785. function TCAN1_C1FIFOCON2.getFRESET : TBits_1; inline;
  74786. begin
  74787. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  74788. end;
  74789. procedure TCAN1_C1FIFOCON2.setFSIZE(thebits : TBits_5); inline;
  74790. begin
  74791. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  74792. end;
  74793. function TCAN1_C1FIFOCON2.getFSIZE : TBits_5; inline;
  74794. begin
  74795. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  74796. end;
  74797. procedure TCAN1_C1FIFOCON2.setw(thebits : TBits_32); inline;
  74798. begin
  74799. pTDefRegMap(@Self)^.val := thebits;
  74800. end;
  74801. function TCAN1_C1FIFOCON2.getw : TBits_32; inline;
  74802. begin
  74803. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  74804. end;
  74805. procedure TCAN1_C1FIFOINT2.setRXNEMPTYIF; inline;
  74806. begin
  74807. pTDefRegMap(@Self)^.&set := $00000001;
  74808. end;
  74809. procedure TCAN1_C1FIFOINT2.clearRXNEMPTYIF; inline;
  74810. begin
  74811. pTDefRegMap(@Self)^.clr := $00000001;
  74812. end;
  74813. procedure TCAN1_C1FIFOINT2.setRXNEMPTYIF(thebits : TBits_1); inline;
  74814. begin
  74815. if thebits = 0 then
  74816. pTDefRegMap(@Self)^.clr := $00000001
  74817. else
  74818. pTDefRegMap(@Self)^.&set := $00000001;
  74819. end;
  74820. function TCAN1_C1FIFOINT2.getRXNEMPTYIF : TBits_1; inline;
  74821. begin
  74822. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  74823. end;
  74824. procedure TCAN1_C1FIFOINT2.setRXHALFIF; inline;
  74825. begin
  74826. pTDefRegMap(@Self)^.&set := $00000002;
  74827. end;
  74828. procedure TCAN1_C1FIFOINT2.clearRXHALFIF; inline;
  74829. begin
  74830. pTDefRegMap(@Self)^.clr := $00000002;
  74831. end;
  74832. procedure TCAN1_C1FIFOINT2.setRXHALFIF(thebits : TBits_1); inline;
  74833. begin
  74834. if thebits = 0 then
  74835. pTDefRegMap(@Self)^.clr := $00000002
  74836. else
  74837. pTDefRegMap(@Self)^.&set := $00000002;
  74838. end;
  74839. function TCAN1_C1FIFOINT2.getRXHALFIF : TBits_1; inline;
  74840. begin
  74841. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  74842. end;
  74843. procedure TCAN1_C1FIFOINT2.setRXFULLIF; inline;
  74844. begin
  74845. pTDefRegMap(@Self)^.&set := $00000004;
  74846. end;
  74847. procedure TCAN1_C1FIFOINT2.clearRXFULLIF; inline;
  74848. begin
  74849. pTDefRegMap(@Self)^.clr := $00000004;
  74850. end;
  74851. procedure TCAN1_C1FIFOINT2.setRXFULLIF(thebits : TBits_1); inline;
  74852. begin
  74853. if thebits = 0 then
  74854. pTDefRegMap(@Self)^.clr := $00000004
  74855. else
  74856. pTDefRegMap(@Self)^.&set := $00000004;
  74857. end;
  74858. function TCAN1_C1FIFOINT2.getRXFULLIF : TBits_1; inline;
  74859. begin
  74860. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  74861. end;
  74862. procedure TCAN1_C1FIFOINT2.setRXOVFLIF; inline;
  74863. begin
  74864. pTDefRegMap(@Self)^.&set := $00000008;
  74865. end;
  74866. procedure TCAN1_C1FIFOINT2.clearRXOVFLIF; inline;
  74867. begin
  74868. pTDefRegMap(@Self)^.clr := $00000008;
  74869. end;
  74870. procedure TCAN1_C1FIFOINT2.setRXOVFLIF(thebits : TBits_1); inline;
  74871. begin
  74872. if thebits = 0 then
  74873. pTDefRegMap(@Self)^.clr := $00000008
  74874. else
  74875. pTDefRegMap(@Self)^.&set := $00000008;
  74876. end;
  74877. function TCAN1_C1FIFOINT2.getRXOVFLIF : TBits_1; inline;
  74878. begin
  74879. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  74880. end;
  74881. procedure TCAN1_C1FIFOINT2.setTXEMPTYIF; inline;
  74882. begin
  74883. pTDefRegMap(@Self)^.&set := $00000100;
  74884. end;
  74885. procedure TCAN1_C1FIFOINT2.clearTXEMPTYIF; inline;
  74886. begin
  74887. pTDefRegMap(@Self)^.clr := $00000100;
  74888. end;
  74889. procedure TCAN1_C1FIFOINT2.setTXEMPTYIF(thebits : TBits_1); inline;
  74890. begin
  74891. if thebits = 0 then
  74892. pTDefRegMap(@Self)^.clr := $00000100
  74893. else
  74894. pTDefRegMap(@Self)^.&set := $00000100;
  74895. end;
  74896. function TCAN1_C1FIFOINT2.getTXEMPTYIF : TBits_1; inline;
  74897. begin
  74898. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  74899. end;
  74900. procedure TCAN1_C1FIFOINT2.setTXHALFIF; inline;
  74901. begin
  74902. pTDefRegMap(@Self)^.&set := $00000200;
  74903. end;
  74904. procedure TCAN1_C1FIFOINT2.clearTXHALFIF; inline;
  74905. begin
  74906. pTDefRegMap(@Self)^.clr := $00000200;
  74907. end;
  74908. procedure TCAN1_C1FIFOINT2.setTXHALFIF(thebits : TBits_1); inline;
  74909. begin
  74910. if thebits = 0 then
  74911. pTDefRegMap(@Self)^.clr := $00000200
  74912. else
  74913. pTDefRegMap(@Self)^.&set := $00000200;
  74914. end;
  74915. function TCAN1_C1FIFOINT2.getTXHALFIF : TBits_1; inline;
  74916. begin
  74917. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  74918. end;
  74919. procedure TCAN1_C1FIFOINT2.setTXNFULLIF; inline;
  74920. begin
  74921. pTDefRegMap(@Self)^.&set := $00000400;
  74922. end;
  74923. procedure TCAN1_C1FIFOINT2.clearTXNFULLIF; inline;
  74924. begin
  74925. pTDefRegMap(@Self)^.clr := $00000400;
  74926. end;
  74927. procedure TCAN1_C1FIFOINT2.setTXNFULLIF(thebits : TBits_1); inline;
  74928. begin
  74929. if thebits = 0 then
  74930. pTDefRegMap(@Self)^.clr := $00000400
  74931. else
  74932. pTDefRegMap(@Self)^.&set := $00000400;
  74933. end;
  74934. function TCAN1_C1FIFOINT2.getTXNFULLIF : TBits_1; inline;
  74935. begin
  74936. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  74937. end;
  74938. procedure TCAN1_C1FIFOINT2.setRXNEMPTYIE; inline;
  74939. begin
  74940. pTDefRegMap(@Self)^.&set := $00010000;
  74941. end;
  74942. procedure TCAN1_C1FIFOINT2.clearRXNEMPTYIE; inline;
  74943. begin
  74944. pTDefRegMap(@Self)^.clr := $00010000;
  74945. end;
  74946. procedure TCAN1_C1FIFOINT2.setRXNEMPTYIE(thebits : TBits_1); inline;
  74947. begin
  74948. if thebits = 0 then
  74949. pTDefRegMap(@Self)^.clr := $00010000
  74950. else
  74951. pTDefRegMap(@Self)^.&set := $00010000;
  74952. end;
  74953. function TCAN1_C1FIFOINT2.getRXNEMPTYIE : TBits_1; inline;
  74954. begin
  74955. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  74956. end;
  74957. procedure TCAN1_C1FIFOINT2.setRXHALFIE; inline;
  74958. begin
  74959. pTDefRegMap(@Self)^.&set := $00020000;
  74960. end;
  74961. procedure TCAN1_C1FIFOINT2.clearRXHALFIE; inline;
  74962. begin
  74963. pTDefRegMap(@Self)^.clr := $00020000;
  74964. end;
  74965. procedure TCAN1_C1FIFOINT2.setRXHALFIE(thebits : TBits_1); inline;
  74966. begin
  74967. if thebits = 0 then
  74968. pTDefRegMap(@Self)^.clr := $00020000
  74969. else
  74970. pTDefRegMap(@Self)^.&set := $00020000;
  74971. end;
  74972. function TCAN1_C1FIFOINT2.getRXHALFIE : TBits_1; inline;
  74973. begin
  74974. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  74975. end;
  74976. procedure TCAN1_C1FIFOINT2.setRXFULLIE; inline;
  74977. begin
  74978. pTDefRegMap(@Self)^.&set := $00040000;
  74979. end;
  74980. procedure TCAN1_C1FIFOINT2.clearRXFULLIE; inline;
  74981. begin
  74982. pTDefRegMap(@Self)^.clr := $00040000;
  74983. end;
  74984. procedure TCAN1_C1FIFOINT2.setRXFULLIE(thebits : TBits_1); inline;
  74985. begin
  74986. if thebits = 0 then
  74987. pTDefRegMap(@Self)^.clr := $00040000
  74988. else
  74989. pTDefRegMap(@Self)^.&set := $00040000;
  74990. end;
  74991. function TCAN1_C1FIFOINT2.getRXFULLIE : TBits_1; inline;
  74992. begin
  74993. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  74994. end;
  74995. procedure TCAN1_C1FIFOINT2.setRXOVFLIE; inline;
  74996. begin
  74997. pTDefRegMap(@Self)^.&set := $00080000;
  74998. end;
  74999. procedure TCAN1_C1FIFOINT2.clearRXOVFLIE; inline;
  75000. begin
  75001. pTDefRegMap(@Self)^.clr := $00080000;
  75002. end;
  75003. procedure TCAN1_C1FIFOINT2.setRXOVFLIE(thebits : TBits_1); inline;
  75004. begin
  75005. if thebits = 0 then
  75006. pTDefRegMap(@Self)^.clr := $00080000
  75007. else
  75008. pTDefRegMap(@Self)^.&set := $00080000;
  75009. end;
  75010. function TCAN1_C1FIFOINT2.getRXOVFLIE : TBits_1; inline;
  75011. begin
  75012. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  75013. end;
  75014. procedure TCAN1_C1FIFOINT2.setTXEMPTYIE; inline;
  75015. begin
  75016. pTDefRegMap(@Self)^.&set := $01000000;
  75017. end;
  75018. procedure TCAN1_C1FIFOINT2.clearTXEMPTYIE; inline;
  75019. begin
  75020. pTDefRegMap(@Self)^.clr := $01000000;
  75021. end;
  75022. procedure TCAN1_C1FIFOINT2.setTXEMPTYIE(thebits : TBits_1); inline;
  75023. begin
  75024. if thebits = 0 then
  75025. pTDefRegMap(@Self)^.clr := $01000000
  75026. else
  75027. pTDefRegMap(@Self)^.&set := $01000000;
  75028. end;
  75029. function TCAN1_C1FIFOINT2.getTXEMPTYIE : TBits_1; inline;
  75030. begin
  75031. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  75032. end;
  75033. procedure TCAN1_C1FIFOINT2.setTXHALFIE; inline;
  75034. begin
  75035. pTDefRegMap(@Self)^.&set := $02000000;
  75036. end;
  75037. procedure TCAN1_C1FIFOINT2.clearTXHALFIE; inline;
  75038. begin
  75039. pTDefRegMap(@Self)^.clr := $02000000;
  75040. end;
  75041. procedure TCAN1_C1FIFOINT2.setTXHALFIE(thebits : TBits_1); inline;
  75042. begin
  75043. if thebits = 0 then
  75044. pTDefRegMap(@Self)^.clr := $02000000
  75045. else
  75046. pTDefRegMap(@Self)^.&set := $02000000;
  75047. end;
  75048. function TCAN1_C1FIFOINT2.getTXHALFIE : TBits_1; inline;
  75049. begin
  75050. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  75051. end;
  75052. procedure TCAN1_C1FIFOINT2.setTXNFULLIE; inline;
  75053. begin
  75054. pTDefRegMap(@Self)^.&set := $04000000;
  75055. end;
  75056. procedure TCAN1_C1FIFOINT2.clearTXNFULLIE; inline;
  75057. begin
  75058. pTDefRegMap(@Self)^.clr := $04000000;
  75059. end;
  75060. procedure TCAN1_C1FIFOINT2.setTXNFULLIE(thebits : TBits_1); inline;
  75061. begin
  75062. if thebits = 0 then
  75063. pTDefRegMap(@Self)^.clr := $04000000
  75064. else
  75065. pTDefRegMap(@Self)^.&set := $04000000;
  75066. end;
  75067. function TCAN1_C1FIFOINT2.getTXNFULLIE : TBits_1; inline;
  75068. begin
  75069. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  75070. end;
  75071. procedure TCAN1_C1FIFOINT2.setw(thebits : TBits_32); inline;
  75072. begin
  75073. pTDefRegMap(@Self)^.val := thebits;
  75074. end;
  75075. function TCAN1_C1FIFOINT2.getw : TBits_32; inline;
  75076. begin
  75077. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  75078. end;
  75079. procedure TCAN1_C1FIFOCI2.setCFIFOCI(thebits : TBits_5); inline;
  75080. begin
  75081. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  75082. end;
  75083. function TCAN1_C1FIFOCI2.getCFIFOCI : TBits_5; inline;
  75084. begin
  75085. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  75086. end;
  75087. procedure TCAN1_C1FIFOCI2.setw(thebits : TBits_32); inline;
  75088. begin
  75089. pTDefRegMap(@Self)^.val := thebits;
  75090. end;
  75091. function TCAN1_C1FIFOCI2.getw : TBits_32; inline;
  75092. begin
  75093. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  75094. end;
  75095. procedure TCAN1_C1FIFOCON3.setTXPRI(thebits : TBits_2); inline;
  75096. begin
  75097. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  75098. end;
  75099. function TCAN1_C1FIFOCON3.getTXPRI : TBits_2; inline;
  75100. begin
  75101. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  75102. end;
  75103. procedure TCAN1_C1FIFOCON3.setRTREN; inline;
  75104. begin
  75105. pTDefRegMap(@Self)^.&set := $00000004;
  75106. end;
  75107. procedure TCAN1_C1FIFOCON3.clearRTREN; inline;
  75108. begin
  75109. pTDefRegMap(@Self)^.clr := $00000004;
  75110. end;
  75111. procedure TCAN1_C1FIFOCON3.setRTREN(thebits : TBits_1); inline;
  75112. begin
  75113. if thebits = 0 then
  75114. pTDefRegMap(@Self)^.clr := $00000004
  75115. else
  75116. pTDefRegMap(@Self)^.&set := $00000004;
  75117. end;
  75118. function TCAN1_C1FIFOCON3.getRTREN : TBits_1; inline;
  75119. begin
  75120. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  75121. end;
  75122. procedure TCAN1_C1FIFOCON3.setTXREQ; inline;
  75123. begin
  75124. pTDefRegMap(@Self)^.&set := $00000008;
  75125. end;
  75126. procedure TCAN1_C1FIFOCON3.clearTXREQ; inline;
  75127. begin
  75128. pTDefRegMap(@Self)^.clr := $00000008;
  75129. end;
  75130. procedure TCAN1_C1FIFOCON3.setTXREQ(thebits : TBits_1); inline;
  75131. begin
  75132. if thebits = 0 then
  75133. pTDefRegMap(@Self)^.clr := $00000008
  75134. else
  75135. pTDefRegMap(@Self)^.&set := $00000008;
  75136. end;
  75137. function TCAN1_C1FIFOCON3.getTXREQ : TBits_1; inline;
  75138. begin
  75139. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  75140. end;
  75141. procedure TCAN1_C1FIFOCON3.setTXERR; inline;
  75142. begin
  75143. pTDefRegMap(@Self)^.&set := $00000010;
  75144. end;
  75145. procedure TCAN1_C1FIFOCON3.clearTXERR; inline;
  75146. begin
  75147. pTDefRegMap(@Self)^.clr := $00000010;
  75148. end;
  75149. procedure TCAN1_C1FIFOCON3.setTXERR(thebits : TBits_1); inline;
  75150. begin
  75151. if thebits = 0 then
  75152. pTDefRegMap(@Self)^.clr := $00000010
  75153. else
  75154. pTDefRegMap(@Self)^.&set := $00000010;
  75155. end;
  75156. function TCAN1_C1FIFOCON3.getTXERR : TBits_1; inline;
  75157. begin
  75158. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  75159. end;
  75160. procedure TCAN1_C1FIFOCON3.setTXLARB; inline;
  75161. begin
  75162. pTDefRegMap(@Self)^.&set := $00000020;
  75163. end;
  75164. procedure TCAN1_C1FIFOCON3.clearTXLARB; inline;
  75165. begin
  75166. pTDefRegMap(@Self)^.clr := $00000020;
  75167. end;
  75168. procedure TCAN1_C1FIFOCON3.setTXLARB(thebits : TBits_1); inline;
  75169. begin
  75170. if thebits = 0 then
  75171. pTDefRegMap(@Self)^.clr := $00000020
  75172. else
  75173. pTDefRegMap(@Self)^.&set := $00000020;
  75174. end;
  75175. function TCAN1_C1FIFOCON3.getTXLARB : TBits_1; inline;
  75176. begin
  75177. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  75178. end;
  75179. procedure TCAN1_C1FIFOCON3.setTXABAT; inline;
  75180. begin
  75181. pTDefRegMap(@Self)^.&set := $00000040;
  75182. end;
  75183. procedure TCAN1_C1FIFOCON3.clearTXABAT; inline;
  75184. begin
  75185. pTDefRegMap(@Self)^.clr := $00000040;
  75186. end;
  75187. procedure TCAN1_C1FIFOCON3.setTXABAT(thebits : TBits_1); inline;
  75188. begin
  75189. if thebits = 0 then
  75190. pTDefRegMap(@Self)^.clr := $00000040
  75191. else
  75192. pTDefRegMap(@Self)^.&set := $00000040;
  75193. end;
  75194. function TCAN1_C1FIFOCON3.getTXABAT : TBits_1; inline;
  75195. begin
  75196. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  75197. end;
  75198. procedure TCAN1_C1FIFOCON3.setTXEN; inline;
  75199. begin
  75200. pTDefRegMap(@Self)^.&set := $00000080;
  75201. end;
  75202. procedure TCAN1_C1FIFOCON3.clearTXEN; inline;
  75203. begin
  75204. pTDefRegMap(@Self)^.clr := $00000080;
  75205. end;
  75206. procedure TCAN1_C1FIFOCON3.setTXEN(thebits : TBits_1); inline;
  75207. begin
  75208. if thebits = 0 then
  75209. pTDefRegMap(@Self)^.clr := $00000080
  75210. else
  75211. pTDefRegMap(@Self)^.&set := $00000080;
  75212. end;
  75213. function TCAN1_C1FIFOCON3.getTXEN : TBits_1; inline;
  75214. begin
  75215. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  75216. end;
  75217. procedure TCAN1_C1FIFOCON3.setDONLY; inline;
  75218. begin
  75219. pTDefRegMap(@Self)^.&set := $00001000;
  75220. end;
  75221. procedure TCAN1_C1FIFOCON3.clearDONLY; inline;
  75222. begin
  75223. pTDefRegMap(@Self)^.clr := $00001000;
  75224. end;
  75225. procedure TCAN1_C1FIFOCON3.setDONLY(thebits : TBits_1); inline;
  75226. begin
  75227. if thebits = 0 then
  75228. pTDefRegMap(@Self)^.clr := $00001000
  75229. else
  75230. pTDefRegMap(@Self)^.&set := $00001000;
  75231. end;
  75232. function TCAN1_C1FIFOCON3.getDONLY : TBits_1; inline;
  75233. begin
  75234. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  75235. end;
  75236. procedure TCAN1_C1FIFOCON3.setUINC; inline;
  75237. begin
  75238. pTDefRegMap(@Self)^.&set := $00002000;
  75239. end;
  75240. procedure TCAN1_C1FIFOCON3.clearUINC; inline;
  75241. begin
  75242. pTDefRegMap(@Self)^.clr := $00002000;
  75243. end;
  75244. procedure TCAN1_C1FIFOCON3.setUINC(thebits : TBits_1); inline;
  75245. begin
  75246. if thebits = 0 then
  75247. pTDefRegMap(@Self)^.clr := $00002000
  75248. else
  75249. pTDefRegMap(@Self)^.&set := $00002000;
  75250. end;
  75251. function TCAN1_C1FIFOCON3.getUINC : TBits_1; inline;
  75252. begin
  75253. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  75254. end;
  75255. procedure TCAN1_C1FIFOCON3.setFRESET; inline;
  75256. begin
  75257. pTDefRegMap(@Self)^.&set := $00004000;
  75258. end;
  75259. procedure TCAN1_C1FIFOCON3.clearFRESET; inline;
  75260. begin
  75261. pTDefRegMap(@Self)^.clr := $00004000;
  75262. end;
  75263. procedure TCAN1_C1FIFOCON3.setFRESET(thebits : TBits_1); inline;
  75264. begin
  75265. if thebits = 0 then
  75266. pTDefRegMap(@Self)^.clr := $00004000
  75267. else
  75268. pTDefRegMap(@Self)^.&set := $00004000;
  75269. end;
  75270. function TCAN1_C1FIFOCON3.getFRESET : TBits_1; inline;
  75271. begin
  75272. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  75273. end;
  75274. procedure TCAN1_C1FIFOCON3.setFSIZE(thebits : TBits_5); inline;
  75275. begin
  75276. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  75277. end;
  75278. function TCAN1_C1FIFOCON3.getFSIZE : TBits_5; inline;
  75279. begin
  75280. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  75281. end;
  75282. procedure TCAN1_C1FIFOCON3.setw(thebits : TBits_32); inline;
  75283. begin
  75284. pTDefRegMap(@Self)^.val := thebits;
  75285. end;
  75286. function TCAN1_C1FIFOCON3.getw : TBits_32; inline;
  75287. begin
  75288. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  75289. end;
  75290. procedure TCAN1_C1FIFOINT3.setRXNEMPTYIF; inline;
  75291. begin
  75292. pTDefRegMap(@Self)^.&set := $00000001;
  75293. end;
  75294. procedure TCAN1_C1FIFOINT3.clearRXNEMPTYIF; inline;
  75295. begin
  75296. pTDefRegMap(@Self)^.clr := $00000001;
  75297. end;
  75298. procedure TCAN1_C1FIFOINT3.setRXNEMPTYIF(thebits : TBits_1); inline;
  75299. begin
  75300. if thebits = 0 then
  75301. pTDefRegMap(@Self)^.clr := $00000001
  75302. else
  75303. pTDefRegMap(@Self)^.&set := $00000001;
  75304. end;
  75305. function TCAN1_C1FIFOINT3.getRXNEMPTYIF : TBits_1; inline;
  75306. begin
  75307. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  75308. end;
  75309. procedure TCAN1_C1FIFOINT3.setRXHALFIF; inline;
  75310. begin
  75311. pTDefRegMap(@Self)^.&set := $00000002;
  75312. end;
  75313. procedure TCAN1_C1FIFOINT3.clearRXHALFIF; inline;
  75314. begin
  75315. pTDefRegMap(@Self)^.clr := $00000002;
  75316. end;
  75317. procedure TCAN1_C1FIFOINT3.setRXHALFIF(thebits : TBits_1); inline;
  75318. begin
  75319. if thebits = 0 then
  75320. pTDefRegMap(@Self)^.clr := $00000002
  75321. else
  75322. pTDefRegMap(@Self)^.&set := $00000002;
  75323. end;
  75324. function TCAN1_C1FIFOINT3.getRXHALFIF : TBits_1; inline;
  75325. begin
  75326. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  75327. end;
  75328. procedure TCAN1_C1FIFOINT3.setRXFULLIF; inline;
  75329. begin
  75330. pTDefRegMap(@Self)^.&set := $00000004;
  75331. end;
  75332. procedure TCAN1_C1FIFOINT3.clearRXFULLIF; inline;
  75333. begin
  75334. pTDefRegMap(@Self)^.clr := $00000004;
  75335. end;
  75336. procedure TCAN1_C1FIFOINT3.setRXFULLIF(thebits : TBits_1); inline;
  75337. begin
  75338. if thebits = 0 then
  75339. pTDefRegMap(@Self)^.clr := $00000004
  75340. else
  75341. pTDefRegMap(@Self)^.&set := $00000004;
  75342. end;
  75343. function TCAN1_C1FIFOINT3.getRXFULLIF : TBits_1; inline;
  75344. begin
  75345. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  75346. end;
  75347. procedure TCAN1_C1FIFOINT3.setRXOVFLIF; inline;
  75348. begin
  75349. pTDefRegMap(@Self)^.&set := $00000008;
  75350. end;
  75351. procedure TCAN1_C1FIFOINT3.clearRXOVFLIF; inline;
  75352. begin
  75353. pTDefRegMap(@Self)^.clr := $00000008;
  75354. end;
  75355. procedure TCAN1_C1FIFOINT3.setRXOVFLIF(thebits : TBits_1); inline;
  75356. begin
  75357. if thebits = 0 then
  75358. pTDefRegMap(@Self)^.clr := $00000008
  75359. else
  75360. pTDefRegMap(@Self)^.&set := $00000008;
  75361. end;
  75362. function TCAN1_C1FIFOINT3.getRXOVFLIF : TBits_1; inline;
  75363. begin
  75364. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  75365. end;
  75366. procedure TCAN1_C1FIFOINT3.setTXEMPTYIF; inline;
  75367. begin
  75368. pTDefRegMap(@Self)^.&set := $00000100;
  75369. end;
  75370. procedure TCAN1_C1FIFOINT3.clearTXEMPTYIF; inline;
  75371. begin
  75372. pTDefRegMap(@Self)^.clr := $00000100;
  75373. end;
  75374. procedure TCAN1_C1FIFOINT3.setTXEMPTYIF(thebits : TBits_1); inline;
  75375. begin
  75376. if thebits = 0 then
  75377. pTDefRegMap(@Self)^.clr := $00000100
  75378. else
  75379. pTDefRegMap(@Self)^.&set := $00000100;
  75380. end;
  75381. function TCAN1_C1FIFOINT3.getTXEMPTYIF : TBits_1; inline;
  75382. begin
  75383. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  75384. end;
  75385. procedure TCAN1_C1FIFOINT3.setTXHALFIF; inline;
  75386. begin
  75387. pTDefRegMap(@Self)^.&set := $00000200;
  75388. end;
  75389. procedure TCAN1_C1FIFOINT3.clearTXHALFIF; inline;
  75390. begin
  75391. pTDefRegMap(@Self)^.clr := $00000200;
  75392. end;
  75393. procedure TCAN1_C1FIFOINT3.setTXHALFIF(thebits : TBits_1); inline;
  75394. begin
  75395. if thebits = 0 then
  75396. pTDefRegMap(@Self)^.clr := $00000200
  75397. else
  75398. pTDefRegMap(@Self)^.&set := $00000200;
  75399. end;
  75400. function TCAN1_C1FIFOINT3.getTXHALFIF : TBits_1; inline;
  75401. begin
  75402. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  75403. end;
  75404. procedure TCAN1_C1FIFOINT3.setTXNFULLIF; inline;
  75405. begin
  75406. pTDefRegMap(@Self)^.&set := $00000400;
  75407. end;
  75408. procedure TCAN1_C1FIFOINT3.clearTXNFULLIF; inline;
  75409. begin
  75410. pTDefRegMap(@Self)^.clr := $00000400;
  75411. end;
  75412. procedure TCAN1_C1FIFOINT3.setTXNFULLIF(thebits : TBits_1); inline;
  75413. begin
  75414. if thebits = 0 then
  75415. pTDefRegMap(@Self)^.clr := $00000400
  75416. else
  75417. pTDefRegMap(@Self)^.&set := $00000400;
  75418. end;
  75419. function TCAN1_C1FIFOINT3.getTXNFULLIF : TBits_1; inline;
  75420. begin
  75421. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  75422. end;
  75423. procedure TCAN1_C1FIFOINT3.setRXNEMPTYIE; inline;
  75424. begin
  75425. pTDefRegMap(@Self)^.&set := $00010000;
  75426. end;
  75427. procedure TCAN1_C1FIFOINT3.clearRXNEMPTYIE; inline;
  75428. begin
  75429. pTDefRegMap(@Self)^.clr := $00010000;
  75430. end;
  75431. procedure TCAN1_C1FIFOINT3.setRXNEMPTYIE(thebits : TBits_1); inline;
  75432. begin
  75433. if thebits = 0 then
  75434. pTDefRegMap(@Self)^.clr := $00010000
  75435. else
  75436. pTDefRegMap(@Self)^.&set := $00010000;
  75437. end;
  75438. function TCAN1_C1FIFOINT3.getRXNEMPTYIE : TBits_1; inline;
  75439. begin
  75440. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  75441. end;
  75442. procedure TCAN1_C1FIFOINT3.setRXHALFIE; inline;
  75443. begin
  75444. pTDefRegMap(@Self)^.&set := $00020000;
  75445. end;
  75446. procedure TCAN1_C1FIFOINT3.clearRXHALFIE; inline;
  75447. begin
  75448. pTDefRegMap(@Self)^.clr := $00020000;
  75449. end;
  75450. procedure TCAN1_C1FIFOINT3.setRXHALFIE(thebits : TBits_1); inline;
  75451. begin
  75452. if thebits = 0 then
  75453. pTDefRegMap(@Self)^.clr := $00020000
  75454. else
  75455. pTDefRegMap(@Self)^.&set := $00020000;
  75456. end;
  75457. function TCAN1_C1FIFOINT3.getRXHALFIE : TBits_1; inline;
  75458. begin
  75459. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  75460. end;
  75461. procedure TCAN1_C1FIFOINT3.setRXFULLIE; inline;
  75462. begin
  75463. pTDefRegMap(@Self)^.&set := $00040000;
  75464. end;
  75465. procedure TCAN1_C1FIFOINT3.clearRXFULLIE; inline;
  75466. begin
  75467. pTDefRegMap(@Self)^.clr := $00040000;
  75468. end;
  75469. procedure TCAN1_C1FIFOINT3.setRXFULLIE(thebits : TBits_1); inline;
  75470. begin
  75471. if thebits = 0 then
  75472. pTDefRegMap(@Self)^.clr := $00040000
  75473. else
  75474. pTDefRegMap(@Self)^.&set := $00040000;
  75475. end;
  75476. function TCAN1_C1FIFOINT3.getRXFULLIE : TBits_1; inline;
  75477. begin
  75478. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  75479. end;
  75480. procedure TCAN1_C1FIFOINT3.setRXOVFLIE; inline;
  75481. begin
  75482. pTDefRegMap(@Self)^.&set := $00080000;
  75483. end;
  75484. procedure TCAN1_C1FIFOINT3.clearRXOVFLIE; inline;
  75485. begin
  75486. pTDefRegMap(@Self)^.clr := $00080000;
  75487. end;
  75488. procedure TCAN1_C1FIFOINT3.setRXOVFLIE(thebits : TBits_1); inline;
  75489. begin
  75490. if thebits = 0 then
  75491. pTDefRegMap(@Self)^.clr := $00080000
  75492. else
  75493. pTDefRegMap(@Self)^.&set := $00080000;
  75494. end;
  75495. function TCAN1_C1FIFOINT3.getRXOVFLIE : TBits_1; inline;
  75496. begin
  75497. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  75498. end;
  75499. procedure TCAN1_C1FIFOINT3.setTXEMPTYIE; inline;
  75500. begin
  75501. pTDefRegMap(@Self)^.&set := $01000000;
  75502. end;
  75503. procedure TCAN1_C1FIFOINT3.clearTXEMPTYIE; inline;
  75504. begin
  75505. pTDefRegMap(@Self)^.clr := $01000000;
  75506. end;
  75507. procedure TCAN1_C1FIFOINT3.setTXEMPTYIE(thebits : TBits_1); inline;
  75508. begin
  75509. if thebits = 0 then
  75510. pTDefRegMap(@Self)^.clr := $01000000
  75511. else
  75512. pTDefRegMap(@Self)^.&set := $01000000;
  75513. end;
  75514. function TCAN1_C1FIFOINT3.getTXEMPTYIE : TBits_1; inline;
  75515. begin
  75516. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  75517. end;
  75518. procedure TCAN1_C1FIFOINT3.setTXHALFIE; inline;
  75519. begin
  75520. pTDefRegMap(@Self)^.&set := $02000000;
  75521. end;
  75522. procedure TCAN1_C1FIFOINT3.clearTXHALFIE; inline;
  75523. begin
  75524. pTDefRegMap(@Self)^.clr := $02000000;
  75525. end;
  75526. procedure TCAN1_C1FIFOINT3.setTXHALFIE(thebits : TBits_1); inline;
  75527. begin
  75528. if thebits = 0 then
  75529. pTDefRegMap(@Self)^.clr := $02000000
  75530. else
  75531. pTDefRegMap(@Self)^.&set := $02000000;
  75532. end;
  75533. function TCAN1_C1FIFOINT3.getTXHALFIE : TBits_1; inline;
  75534. begin
  75535. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  75536. end;
  75537. procedure TCAN1_C1FIFOINT3.setTXNFULLIE; inline;
  75538. begin
  75539. pTDefRegMap(@Self)^.&set := $04000000;
  75540. end;
  75541. procedure TCAN1_C1FIFOINT3.clearTXNFULLIE; inline;
  75542. begin
  75543. pTDefRegMap(@Self)^.clr := $04000000;
  75544. end;
  75545. procedure TCAN1_C1FIFOINT3.setTXNFULLIE(thebits : TBits_1); inline;
  75546. begin
  75547. if thebits = 0 then
  75548. pTDefRegMap(@Self)^.clr := $04000000
  75549. else
  75550. pTDefRegMap(@Self)^.&set := $04000000;
  75551. end;
  75552. function TCAN1_C1FIFOINT3.getTXNFULLIE : TBits_1; inline;
  75553. begin
  75554. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  75555. end;
  75556. procedure TCAN1_C1FIFOINT3.setw(thebits : TBits_32); inline;
  75557. begin
  75558. pTDefRegMap(@Self)^.val := thebits;
  75559. end;
  75560. function TCAN1_C1FIFOINT3.getw : TBits_32; inline;
  75561. begin
  75562. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  75563. end;
  75564. procedure TCAN1_C1FIFOCI3.setCFIFOCI(thebits : TBits_5); inline;
  75565. begin
  75566. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  75567. end;
  75568. function TCAN1_C1FIFOCI3.getCFIFOCI : TBits_5; inline;
  75569. begin
  75570. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  75571. end;
  75572. procedure TCAN1_C1FIFOCI3.setw(thebits : TBits_32); inline;
  75573. begin
  75574. pTDefRegMap(@Self)^.val := thebits;
  75575. end;
  75576. function TCAN1_C1FIFOCI3.getw : TBits_32; inline;
  75577. begin
  75578. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  75579. end;
  75580. procedure TCAN1_C1FIFOCON4.setTXPRI(thebits : TBits_2); inline;
  75581. begin
  75582. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  75583. end;
  75584. function TCAN1_C1FIFOCON4.getTXPRI : TBits_2; inline;
  75585. begin
  75586. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  75587. end;
  75588. procedure TCAN1_C1FIFOCON4.setRTREN; inline;
  75589. begin
  75590. pTDefRegMap(@Self)^.&set := $00000004;
  75591. end;
  75592. procedure TCAN1_C1FIFOCON4.clearRTREN; inline;
  75593. begin
  75594. pTDefRegMap(@Self)^.clr := $00000004;
  75595. end;
  75596. procedure TCAN1_C1FIFOCON4.setRTREN(thebits : TBits_1); inline;
  75597. begin
  75598. if thebits = 0 then
  75599. pTDefRegMap(@Self)^.clr := $00000004
  75600. else
  75601. pTDefRegMap(@Self)^.&set := $00000004;
  75602. end;
  75603. function TCAN1_C1FIFOCON4.getRTREN : TBits_1; inline;
  75604. begin
  75605. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  75606. end;
  75607. procedure TCAN1_C1FIFOCON4.setTXREQ; inline;
  75608. begin
  75609. pTDefRegMap(@Self)^.&set := $00000008;
  75610. end;
  75611. procedure TCAN1_C1FIFOCON4.clearTXREQ; inline;
  75612. begin
  75613. pTDefRegMap(@Self)^.clr := $00000008;
  75614. end;
  75615. procedure TCAN1_C1FIFOCON4.setTXREQ(thebits : TBits_1); inline;
  75616. begin
  75617. if thebits = 0 then
  75618. pTDefRegMap(@Self)^.clr := $00000008
  75619. else
  75620. pTDefRegMap(@Self)^.&set := $00000008;
  75621. end;
  75622. function TCAN1_C1FIFOCON4.getTXREQ : TBits_1; inline;
  75623. begin
  75624. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  75625. end;
  75626. procedure TCAN1_C1FIFOCON4.setTXERR; inline;
  75627. begin
  75628. pTDefRegMap(@Self)^.&set := $00000010;
  75629. end;
  75630. procedure TCAN1_C1FIFOCON4.clearTXERR; inline;
  75631. begin
  75632. pTDefRegMap(@Self)^.clr := $00000010;
  75633. end;
  75634. procedure TCAN1_C1FIFOCON4.setTXERR(thebits : TBits_1); inline;
  75635. begin
  75636. if thebits = 0 then
  75637. pTDefRegMap(@Self)^.clr := $00000010
  75638. else
  75639. pTDefRegMap(@Self)^.&set := $00000010;
  75640. end;
  75641. function TCAN1_C1FIFOCON4.getTXERR : TBits_1; inline;
  75642. begin
  75643. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  75644. end;
  75645. procedure TCAN1_C1FIFOCON4.setTXLARB; inline;
  75646. begin
  75647. pTDefRegMap(@Self)^.&set := $00000020;
  75648. end;
  75649. procedure TCAN1_C1FIFOCON4.clearTXLARB; inline;
  75650. begin
  75651. pTDefRegMap(@Self)^.clr := $00000020;
  75652. end;
  75653. procedure TCAN1_C1FIFOCON4.setTXLARB(thebits : TBits_1); inline;
  75654. begin
  75655. if thebits = 0 then
  75656. pTDefRegMap(@Self)^.clr := $00000020
  75657. else
  75658. pTDefRegMap(@Self)^.&set := $00000020;
  75659. end;
  75660. function TCAN1_C1FIFOCON4.getTXLARB : TBits_1; inline;
  75661. begin
  75662. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  75663. end;
  75664. procedure TCAN1_C1FIFOCON4.setTXABAT; inline;
  75665. begin
  75666. pTDefRegMap(@Self)^.&set := $00000040;
  75667. end;
  75668. procedure TCAN1_C1FIFOCON4.clearTXABAT; inline;
  75669. begin
  75670. pTDefRegMap(@Self)^.clr := $00000040;
  75671. end;
  75672. procedure TCAN1_C1FIFOCON4.setTXABAT(thebits : TBits_1); inline;
  75673. begin
  75674. if thebits = 0 then
  75675. pTDefRegMap(@Self)^.clr := $00000040
  75676. else
  75677. pTDefRegMap(@Self)^.&set := $00000040;
  75678. end;
  75679. function TCAN1_C1FIFOCON4.getTXABAT : TBits_1; inline;
  75680. begin
  75681. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  75682. end;
  75683. procedure TCAN1_C1FIFOCON4.setTXEN; inline;
  75684. begin
  75685. pTDefRegMap(@Self)^.&set := $00000080;
  75686. end;
  75687. procedure TCAN1_C1FIFOCON4.clearTXEN; inline;
  75688. begin
  75689. pTDefRegMap(@Self)^.clr := $00000080;
  75690. end;
  75691. procedure TCAN1_C1FIFOCON4.setTXEN(thebits : TBits_1); inline;
  75692. begin
  75693. if thebits = 0 then
  75694. pTDefRegMap(@Self)^.clr := $00000080
  75695. else
  75696. pTDefRegMap(@Self)^.&set := $00000080;
  75697. end;
  75698. function TCAN1_C1FIFOCON4.getTXEN : TBits_1; inline;
  75699. begin
  75700. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  75701. end;
  75702. procedure TCAN1_C1FIFOCON4.setDONLY; inline;
  75703. begin
  75704. pTDefRegMap(@Self)^.&set := $00001000;
  75705. end;
  75706. procedure TCAN1_C1FIFOCON4.clearDONLY; inline;
  75707. begin
  75708. pTDefRegMap(@Self)^.clr := $00001000;
  75709. end;
  75710. procedure TCAN1_C1FIFOCON4.setDONLY(thebits : TBits_1); inline;
  75711. begin
  75712. if thebits = 0 then
  75713. pTDefRegMap(@Self)^.clr := $00001000
  75714. else
  75715. pTDefRegMap(@Self)^.&set := $00001000;
  75716. end;
  75717. function TCAN1_C1FIFOCON4.getDONLY : TBits_1; inline;
  75718. begin
  75719. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  75720. end;
  75721. procedure TCAN1_C1FIFOCON4.setUINC; inline;
  75722. begin
  75723. pTDefRegMap(@Self)^.&set := $00002000;
  75724. end;
  75725. procedure TCAN1_C1FIFOCON4.clearUINC; inline;
  75726. begin
  75727. pTDefRegMap(@Self)^.clr := $00002000;
  75728. end;
  75729. procedure TCAN1_C1FIFOCON4.setUINC(thebits : TBits_1); inline;
  75730. begin
  75731. if thebits = 0 then
  75732. pTDefRegMap(@Self)^.clr := $00002000
  75733. else
  75734. pTDefRegMap(@Self)^.&set := $00002000;
  75735. end;
  75736. function TCAN1_C1FIFOCON4.getUINC : TBits_1; inline;
  75737. begin
  75738. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  75739. end;
  75740. procedure TCAN1_C1FIFOCON4.setFRESET; inline;
  75741. begin
  75742. pTDefRegMap(@Self)^.&set := $00004000;
  75743. end;
  75744. procedure TCAN1_C1FIFOCON4.clearFRESET; inline;
  75745. begin
  75746. pTDefRegMap(@Self)^.clr := $00004000;
  75747. end;
  75748. procedure TCAN1_C1FIFOCON4.setFRESET(thebits : TBits_1); inline;
  75749. begin
  75750. if thebits = 0 then
  75751. pTDefRegMap(@Self)^.clr := $00004000
  75752. else
  75753. pTDefRegMap(@Self)^.&set := $00004000;
  75754. end;
  75755. function TCAN1_C1FIFOCON4.getFRESET : TBits_1; inline;
  75756. begin
  75757. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  75758. end;
  75759. procedure TCAN1_C1FIFOCON4.setFSIZE(thebits : TBits_5); inline;
  75760. begin
  75761. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  75762. end;
  75763. function TCAN1_C1FIFOCON4.getFSIZE : TBits_5; inline;
  75764. begin
  75765. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  75766. end;
  75767. procedure TCAN1_C1FIFOCON4.setw(thebits : TBits_32); inline;
  75768. begin
  75769. pTDefRegMap(@Self)^.val := thebits;
  75770. end;
  75771. function TCAN1_C1FIFOCON4.getw : TBits_32; inline;
  75772. begin
  75773. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  75774. end;
  75775. procedure TCAN1_C1FIFOINT4.setRXNEMPTYIF; inline;
  75776. begin
  75777. pTDefRegMap(@Self)^.&set := $00000001;
  75778. end;
  75779. procedure TCAN1_C1FIFOINT4.clearRXNEMPTYIF; inline;
  75780. begin
  75781. pTDefRegMap(@Self)^.clr := $00000001;
  75782. end;
  75783. procedure TCAN1_C1FIFOINT4.setRXNEMPTYIF(thebits : TBits_1); inline;
  75784. begin
  75785. if thebits = 0 then
  75786. pTDefRegMap(@Self)^.clr := $00000001
  75787. else
  75788. pTDefRegMap(@Self)^.&set := $00000001;
  75789. end;
  75790. function TCAN1_C1FIFOINT4.getRXNEMPTYIF : TBits_1; inline;
  75791. begin
  75792. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  75793. end;
  75794. procedure TCAN1_C1FIFOINT4.setRXHALFIF; inline;
  75795. begin
  75796. pTDefRegMap(@Self)^.&set := $00000002;
  75797. end;
  75798. procedure TCAN1_C1FIFOINT4.clearRXHALFIF; inline;
  75799. begin
  75800. pTDefRegMap(@Self)^.clr := $00000002;
  75801. end;
  75802. procedure TCAN1_C1FIFOINT4.setRXHALFIF(thebits : TBits_1); inline;
  75803. begin
  75804. if thebits = 0 then
  75805. pTDefRegMap(@Self)^.clr := $00000002
  75806. else
  75807. pTDefRegMap(@Self)^.&set := $00000002;
  75808. end;
  75809. function TCAN1_C1FIFOINT4.getRXHALFIF : TBits_1; inline;
  75810. begin
  75811. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  75812. end;
  75813. procedure TCAN1_C1FIFOINT4.setRXFULLIF; inline;
  75814. begin
  75815. pTDefRegMap(@Self)^.&set := $00000004;
  75816. end;
  75817. procedure TCAN1_C1FIFOINT4.clearRXFULLIF; inline;
  75818. begin
  75819. pTDefRegMap(@Self)^.clr := $00000004;
  75820. end;
  75821. procedure TCAN1_C1FIFOINT4.setRXFULLIF(thebits : TBits_1); inline;
  75822. begin
  75823. if thebits = 0 then
  75824. pTDefRegMap(@Self)^.clr := $00000004
  75825. else
  75826. pTDefRegMap(@Self)^.&set := $00000004;
  75827. end;
  75828. function TCAN1_C1FIFOINT4.getRXFULLIF : TBits_1; inline;
  75829. begin
  75830. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  75831. end;
  75832. procedure TCAN1_C1FIFOINT4.setRXOVFLIF; inline;
  75833. begin
  75834. pTDefRegMap(@Self)^.&set := $00000008;
  75835. end;
  75836. procedure TCAN1_C1FIFOINT4.clearRXOVFLIF; inline;
  75837. begin
  75838. pTDefRegMap(@Self)^.clr := $00000008;
  75839. end;
  75840. procedure TCAN1_C1FIFOINT4.setRXOVFLIF(thebits : TBits_1); inline;
  75841. begin
  75842. if thebits = 0 then
  75843. pTDefRegMap(@Self)^.clr := $00000008
  75844. else
  75845. pTDefRegMap(@Self)^.&set := $00000008;
  75846. end;
  75847. function TCAN1_C1FIFOINT4.getRXOVFLIF : TBits_1; inline;
  75848. begin
  75849. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  75850. end;
  75851. procedure TCAN1_C1FIFOINT4.setTXEMPTYIF; inline;
  75852. begin
  75853. pTDefRegMap(@Self)^.&set := $00000100;
  75854. end;
  75855. procedure TCAN1_C1FIFOINT4.clearTXEMPTYIF; inline;
  75856. begin
  75857. pTDefRegMap(@Self)^.clr := $00000100;
  75858. end;
  75859. procedure TCAN1_C1FIFOINT4.setTXEMPTYIF(thebits : TBits_1); inline;
  75860. begin
  75861. if thebits = 0 then
  75862. pTDefRegMap(@Self)^.clr := $00000100
  75863. else
  75864. pTDefRegMap(@Self)^.&set := $00000100;
  75865. end;
  75866. function TCAN1_C1FIFOINT4.getTXEMPTYIF : TBits_1; inline;
  75867. begin
  75868. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  75869. end;
  75870. procedure TCAN1_C1FIFOINT4.setTXHALFIF; inline;
  75871. begin
  75872. pTDefRegMap(@Self)^.&set := $00000200;
  75873. end;
  75874. procedure TCAN1_C1FIFOINT4.clearTXHALFIF; inline;
  75875. begin
  75876. pTDefRegMap(@Self)^.clr := $00000200;
  75877. end;
  75878. procedure TCAN1_C1FIFOINT4.setTXHALFIF(thebits : TBits_1); inline;
  75879. begin
  75880. if thebits = 0 then
  75881. pTDefRegMap(@Self)^.clr := $00000200
  75882. else
  75883. pTDefRegMap(@Self)^.&set := $00000200;
  75884. end;
  75885. function TCAN1_C1FIFOINT4.getTXHALFIF : TBits_1; inline;
  75886. begin
  75887. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  75888. end;
  75889. procedure TCAN1_C1FIFOINT4.setTXNFULLIF; inline;
  75890. begin
  75891. pTDefRegMap(@Self)^.&set := $00000400;
  75892. end;
  75893. procedure TCAN1_C1FIFOINT4.clearTXNFULLIF; inline;
  75894. begin
  75895. pTDefRegMap(@Self)^.clr := $00000400;
  75896. end;
  75897. procedure TCAN1_C1FIFOINT4.setTXNFULLIF(thebits : TBits_1); inline;
  75898. begin
  75899. if thebits = 0 then
  75900. pTDefRegMap(@Self)^.clr := $00000400
  75901. else
  75902. pTDefRegMap(@Self)^.&set := $00000400;
  75903. end;
  75904. function TCAN1_C1FIFOINT4.getTXNFULLIF : TBits_1; inline;
  75905. begin
  75906. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  75907. end;
  75908. procedure TCAN1_C1FIFOINT4.setRXNEMPTYIE; inline;
  75909. begin
  75910. pTDefRegMap(@Self)^.&set := $00010000;
  75911. end;
  75912. procedure TCAN1_C1FIFOINT4.clearRXNEMPTYIE; inline;
  75913. begin
  75914. pTDefRegMap(@Self)^.clr := $00010000;
  75915. end;
  75916. procedure TCAN1_C1FIFOINT4.setRXNEMPTYIE(thebits : TBits_1); inline;
  75917. begin
  75918. if thebits = 0 then
  75919. pTDefRegMap(@Self)^.clr := $00010000
  75920. else
  75921. pTDefRegMap(@Self)^.&set := $00010000;
  75922. end;
  75923. function TCAN1_C1FIFOINT4.getRXNEMPTYIE : TBits_1; inline;
  75924. begin
  75925. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  75926. end;
  75927. procedure TCAN1_C1FIFOINT4.setRXHALFIE; inline;
  75928. begin
  75929. pTDefRegMap(@Self)^.&set := $00020000;
  75930. end;
  75931. procedure TCAN1_C1FIFOINT4.clearRXHALFIE; inline;
  75932. begin
  75933. pTDefRegMap(@Self)^.clr := $00020000;
  75934. end;
  75935. procedure TCAN1_C1FIFOINT4.setRXHALFIE(thebits : TBits_1); inline;
  75936. begin
  75937. if thebits = 0 then
  75938. pTDefRegMap(@Self)^.clr := $00020000
  75939. else
  75940. pTDefRegMap(@Self)^.&set := $00020000;
  75941. end;
  75942. function TCAN1_C1FIFOINT4.getRXHALFIE : TBits_1; inline;
  75943. begin
  75944. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  75945. end;
  75946. procedure TCAN1_C1FIFOINT4.setRXFULLIE; inline;
  75947. begin
  75948. pTDefRegMap(@Self)^.&set := $00040000;
  75949. end;
  75950. procedure TCAN1_C1FIFOINT4.clearRXFULLIE; inline;
  75951. begin
  75952. pTDefRegMap(@Self)^.clr := $00040000;
  75953. end;
  75954. procedure TCAN1_C1FIFOINT4.setRXFULLIE(thebits : TBits_1); inline;
  75955. begin
  75956. if thebits = 0 then
  75957. pTDefRegMap(@Self)^.clr := $00040000
  75958. else
  75959. pTDefRegMap(@Self)^.&set := $00040000;
  75960. end;
  75961. function TCAN1_C1FIFOINT4.getRXFULLIE : TBits_1; inline;
  75962. begin
  75963. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  75964. end;
  75965. procedure TCAN1_C1FIFOINT4.setRXOVFLIE; inline;
  75966. begin
  75967. pTDefRegMap(@Self)^.&set := $00080000;
  75968. end;
  75969. procedure TCAN1_C1FIFOINT4.clearRXOVFLIE; inline;
  75970. begin
  75971. pTDefRegMap(@Self)^.clr := $00080000;
  75972. end;
  75973. procedure TCAN1_C1FIFOINT4.setRXOVFLIE(thebits : TBits_1); inline;
  75974. begin
  75975. if thebits = 0 then
  75976. pTDefRegMap(@Self)^.clr := $00080000
  75977. else
  75978. pTDefRegMap(@Self)^.&set := $00080000;
  75979. end;
  75980. function TCAN1_C1FIFOINT4.getRXOVFLIE : TBits_1; inline;
  75981. begin
  75982. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  75983. end;
  75984. procedure TCAN1_C1FIFOINT4.setTXEMPTYIE; inline;
  75985. begin
  75986. pTDefRegMap(@Self)^.&set := $01000000;
  75987. end;
  75988. procedure TCAN1_C1FIFOINT4.clearTXEMPTYIE; inline;
  75989. begin
  75990. pTDefRegMap(@Self)^.clr := $01000000;
  75991. end;
  75992. procedure TCAN1_C1FIFOINT4.setTXEMPTYIE(thebits : TBits_1); inline;
  75993. begin
  75994. if thebits = 0 then
  75995. pTDefRegMap(@Self)^.clr := $01000000
  75996. else
  75997. pTDefRegMap(@Self)^.&set := $01000000;
  75998. end;
  75999. function TCAN1_C1FIFOINT4.getTXEMPTYIE : TBits_1; inline;
  76000. begin
  76001. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  76002. end;
  76003. procedure TCAN1_C1FIFOINT4.setTXHALFIE; inline;
  76004. begin
  76005. pTDefRegMap(@Self)^.&set := $02000000;
  76006. end;
  76007. procedure TCAN1_C1FIFOINT4.clearTXHALFIE; inline;
  76008. begin
  76009. pTDefRegMap(@Self)^.clr := $02000000;
  76010. end;
  76011. procedure TCAN1_C1FIFOINT4.setTXHALFIE(thebits : TBits_1); inline;
  76012. begin
  76013. if thebits = 0 then
  76014. pTDefRegMap(@Self)^.clr := $02000000
  76015. else
  76016. pTDefRegMap(@Self)^.&set := $02000000;
  76017. end;
  76018. function TCAN1_C1FIFOINT4.getTXHALFIE : TBits_1; inline;
  76019. begin
  76020. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  76021. end;
  76022. procedure TCAN1_C1FIFOINT4.setTXNFULLIE; inline;
  76023. begin
  76024. pTDefRegMap(@Self)^.&set := $04000000;
  76025. end;
  76026. procedure TCAN1_C1FIFOINT4.clearTXNFULLIE; inline;
  76027. begin
  76028. pTDefRegMap(@Self)^.clr := $04000000;
  76029. end;
  76030. procedure TCAN1_C1FIFOINT4.setTXNFULLIE(thebits : TBits_1); inline;
  76031. begin
  76032. if thebits = 0 then
  76033. pTDefRegMap(@Self)^.clr := $04000000
  76034. else
  76035. pTDefRegMap(@Self)^.&set := $04000000;
  76036. end;
  76037. function TCAN1_C1FIFOINT4.getTXNFULLIE : TBits_1; inline;
  76038. begin
  76039. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  76040. end;
  76041. procedure TCAN1_C1FIFOINT4.setw(thebits : TBits_32); inline;
  76042. begin
  76043. pTDefRegMap(@Self)^.val := thebits;
  76044. end;
  76045. function TCAN1_C1FIFOINT4.getw : TBits_32; inline;
  76046. begin
  76047. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  76048. end;
  76049. procedure TCAN1_C1FIFOCI4.setCFIFOCI(thebits : TBits_5); inline;
  76050. begin
  76051. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  76052. end;
  76053. function TCAN1_C1FIFOCI4.getCFIFOCI : TBits_5; inline;
  76054. begin
  76055. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  76056. end;
  76057. procedure TCAN1_C1FIFOCI4.setw(thebits : TBits_32); inline;
  76058. begin
  76059. pTDefRegMap(@Self)^.val := thebits;
  76060. end;
  76061. function TCAN1_C1FIFOCI4.getw : TBits_32; inline;
  76062. begin
  76063. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  76064. end;
  76065. procedure TCAN1_C1FIFOCON5.setTXPRI(thebits : TBits_2); inline;
  76066. begin
  76067. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  76068. end;
  76069. function TCAN1_C1FIFOCON5.getTXPRI : TBits_2; inline;
  76070. begin
  76071. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  76072. end;
  76073. procedure TCAN1_C1FIFOCON5.setRTREN; inline;
  76074. begin
  76075. pTDefRegMap(@Self)^.&set := $00000004;
  76076. end;
  76077. procedure TCAN1_C1FIFOCON5.clearRTREN; inline;
  76078. begin
  76079. pTDefRegMap(@Self)^.clr := $00000004;
  76080. end;
  76081. procedure TCAN1_C1FIFOCON5.setRTREN(thebits : TBits_1); inline;
  76082. begin
  76083. if thebits = 0 then
  76084. pTDefRegMap(@Self)^.clr := $00000004
  76085. else
  76086. pTDefRegMap(@Self)^.&set := $00000004;
  76087. end;
  76088. function TCAN1_C1FIFOCON5.getRTREN : TBits_1; inline;
  76089. begin
  76090. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  76091. end;
  76092. procedure TCAN1_C1FIFOCON5.setTXREQ; inline;
  76093. begin
  76094. pTDefRegMap(@Self)^.&set := $00000008;
  76095. end;
  76096. procedure TCAN1_C1FIFOCON5.clearTXREQ; inline;
  76097. begin
  76098. pTDefRegMap(@Self)^.clr := $00000008;
  76099. end;
  76100. procedure TCAN1_C1FIFOCON5.setTXREQ(thebits : TBits_1); inline;
  76101. begin
  76102. if thebits = 0 then
  76103. pTDefRegMap(@Self)^.clr := $00000008
  76104. else
  76105. pTDefRegMap(@Self)^.&set := $00000008;
  76106. end;
  76107. function TCAN1_C1FIFOCON5.getTXREQ : TBits_1; inline;
  76108. begin
  76109. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  76110. end;
  76111. procedure TCAN1_C1FIFOCON5.setTXERR; inline;
  76112. begin
  76113. pTDefRegMap(@Self)^.&set := $00000010;
  76114. end;
  76115. procedure TCAN1_C1FIFOCON5.clearTXERR; inline;
  76116. begin
  76117. pTDefRegMap(@Self)^.clr := $00000010;
  76118. end;
  76119. procedure TCAN1_C1FIFOCON5.setTXERR(thebits : TBits_1); inline;
  76120. begin
  76121. if thebits = 0 then
  76122. pTDefRegMap(@Self)^.clr := $00000010
  76123. else
  76124. pTDefRegMap(@Self)^.&set := $00000010;
  76125. end;
  76126. function TCAN1_C1FIFOCON5.getTXERR : TBits_1; inline;
  76127. begin
  76128. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  76129. end;
  76130. procedure TCAN1_C1FIFOCON5.setTXLARB; inline;
  76131. begin
  76132. pTDefRegMap(@Self)^.&set := $00000020;
  76133. end;
  76134. procedure TCAN1_C1FIFOCON5.clearTXLARB; inline;
  76135. begin
  76136. pTDefRegMap(@Self)^.clr := $00000020;
  76137. end;
  76138. procedure TCAN1_C1FIFOCON5.setTXLARB(thebits : TBits_1); inline;
  76139. begin
  76140. if thebits = 0 then
  76141. pTDefRegMap(@Self)^.clr := $00000020
  76142. else
  76143. pTDefRegMap(@Self)^.&set := $00000020;
  76144. end;
  76145. function TCAN1_C1FIFOCON5.getTXLARB : TBits_1; inline;
  76146. begin
  76147. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  76148. end;
  76149. procedure TCAN1_C1FIFOCON5.setTXABAT; inline;
  76150. begin
  76151. pTDefRegMap(@Self)^.&set := $00000040;
  76152. end;
  76153. procedure TCAN1_C1FIFOCON5.clearTXABAT; inline;
  76154. begin
  76155. pTDefRegMap(@Self)^.clr := $00000040;
  76156. end;
  76157. procedure TCAN1_C1FIFOCON5.setTXABAT(thebits : TBits_1); inline;
  76158. begin
  76159. if thebits = 0 then
  76160. pTDefRegMap(@Self)^.clr := $00000040
  76161. else
  76162. pTDefRegMap(@Self)^.&set := $00000040;
  76163. end;
  76164. function TCAN1_C1FIFOCON5.getTXABAT : TBits_1; inline;
  76165. begin
  76166. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  76167. end;
  76168. procedure TCAN1_C1FIFOCON5.setTXEN; inline;
  76169. begin
  76170. pTDefRegMap(@Self)^.&set := $00000080;
  76171. end;
  76172. procedure TCAN1_C1FIFOCON5.clearTXEN; inline;
  76173. begin
  76174. pTDefRegMap(@Self)^.clr := $00000080;
  76175. end;
  76176. procedure TCAN1_C1FIFOCON5.setTXEN(thebits : TBits_1); inline;
  76177. begin
  76178. if thebits = 0 then
  76179. pTDefRegMap(@Self)^.clr := $00000080
  76180. else
  76181. pTDefRegMap(@Self)^.&set := $00000080;
  76182. end;
  76183. function TCAN1_C1FIFOCON5.getTXEN : TBits_1; inline;
  76184. begin
  76185. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  76186. end;
  76187. procedure TCAN1_C1FIFOCON5.setDONLY; inline;
  76188. begin
  76189. pTDefRegMap(@Self)^.&set := $00001000;
  76190. end;
  76191. procedure TCAN1_C1FIFOCON5.clearDONLY; inline;
  76192. begin
  76193. pTDefRegMap(@Self)^.clr := $00001000;
  76194. end;
  76195. procedure TCAN1_C1FIFOCON5.setDONLY(thebits : TBits_1); inline;
  76196. begin
  76197. if thebits = 0 then
  76198. pTDefRegMap(@Self)^.clr := $00001000
  76199. else
  76200. pTDefRegMap(@Self)^.&set := $00001000;
  76201. end;
  76202. function TCAN1_C1FIFOCON5.getDONLY : TBits_1; inline;
  76203. begin
  76204. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  76205. end;
  76206. procedure TCAN1_C1FIFOCON5.setUINC; inline;
  76207. begin
  76208. pTDefRegMap(@Self)^.&set := $00002000;
  76209. end;
  76210. procedure TCAN1_C1FIFOCON5.clearUINC; inline;
  76211. begin
  76212. pTDefRegMap(@Self)^.clr := $00002000;
  76213. end;
  76214. procedure TCAN1_C1FIFOCON5.setUINC(thebits : TBits_1); inline;
  76215. begin
  76216. if thebits = 0 then
  76217. pTDefRegMap(@Self)^.clr := $00002000
  76218. else
  76219. pTDefRegMap(@Self)^.&set := $00002000;
  76220. end;
  76221. function TCAN1_C1FIFOCON5.getUINC : TBits_1; inline;
  76222. begin
  76223. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  76224. end;
  76225. procedure TCAN1_C1FIFOCON5.setFRESET; inline;
  76226. begin
  76227. pTDefRegMap(@Self)^.&set := $00004000;
  76228. end;
  76229. procedure TCAN1_C1FIFOCON5.clearFRESET; inline;
  76230. begin
  76231. pTDefRegMap(@Self)^.clr := $00004000;
  76232. end;
  76233. procedure TCAN1_C1FIFOCON5.setFRESET(thebits : TBits_1); inline;
  76234. begin
  76235. if thebits = 0 then
  76236. pTDefRegMap(@Self)^.clr := $00004000
  76237. else
  76238. pTDefRegMap(@Self)^.&set := $00004000;
  76239. end;
  76240. function TCAN1_C1FIFOCON5.getFRESET : TBits_1; inline;
  76241. begin
  76242. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  76243. end;
  76244. procedure TCAN1_C1FIFOCON5.setFSIZE(thebits : TBits_5); inline;
  76245. begin
  76246. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  76247. end;
  76248. function TCAN1_C1FIFOCON5.getFSIZE : TBits_5; inline;
  76249. begin
  76250. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  76251. end;
  76252. procedure TCAN1_C1FIFOCON5.setw(thebits : TBits_32); inline;
  76253. begin
  76254. pTDefRegMap(@Self)^.val := thebits;
  76255. end;
  76256. function TCAN1_C1FIFOCON5.getw : TBits_32; inline;
  76257. begin
  76258. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  76259. end;
  76260. procedure TCAN1_C1FIFOINT5.setRXNEMPTYIF; inline;
  76261. begin
  76262. pTDefRegMap(@Self)^.&set := $00000001;
  76263. end;
  76264. procedure TCAN1_C1FIFOINT5.clearRXNEMPTYIF; inline;
  76265. begin
  76266. pTDefRegMap(@Self)^.clr := $00000001;
  76267. end;
  76268. procedure TCAN1_C1FIFOINT5.setRXNEMPTYIF(thebits : TBits_1); inline;
  76269. begin
  76270. if thebits = 0 then
  76271. pTDefRegMap(@Self)^.clr := $00000001
  76272. else
  76273. pTDefRegMap(@Self)^.&set := $00000001;
  76274. end;
  76275. function TCAN1_C1FIFOINT5.getRXNEMPTYIF : TBits_1; inline;
  76276. begin
  76277. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  76278. end;
  76279. procedure TCAN1_C1FIFOINT5.setRXHALFIF; inline;
  76280. begin
  76281. pTDefRegMap(@Self)^.&set := $00000002;
  76282. end;
  76283. procedure TCAN1_C1FIFOINT5.clearRXHALFIF; inline;
  76284. begin
  76285. pTDefRegMap(@Self)^.clr := $00000002;
  76286. end;
  76287. procedure TCAN1_C1FIFOINT5.setRXHALFIF(thebits : TBits_1); inline;
  76288. begin
  76289. if thebits = 0 then
  76290. pTDefRegMap(@Self)^.clr := $00000002
  76291. else
  76292. pTDefRegMap(@Self)^.&set := $00000002;
  76293. end;
  76294. function TCAN1_C1FIFOINT5.getRXHALFIF : TBits_1; inline;
  76295. begin
  76296. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  76297. end;
  76298. procedure TCAN1_C1FIFOINT5.setRXFULLIF; inline;
  76299. begin
  76300. pTDefRegMap(@Self)^.&set := $00000004;
  76301. end;
  76302. procedure TCAN1_C1FIFOINT5.clearRXFULLIF; inline;
  76303. begin
  76304. pTDefRegMap(@Self)^.clr := $00000004;
  76305. end;
  76306. procedure TCAN1_C1FIFOINT5.setRXFULLIF(thebits : TBits_1); inline;
  76307. begin
  76308. if thebits = 0 then
  76309. pTDefRegMap(@Self)^.clr := $00000004
  76310. else
  76311. pTDefRegMap(@Self)^.&set := $00000004;
  76312. end;
  76313. function TCAN1_C1FIFOINT5.getRXFULLIF : TBits_1; inline;
  76314. begin
  76315. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  76316. end;
  76317. procedure TCAN1_C1FIFOINT5.setRXOVFLIF; inline;
  76318. begin
  76319. pTDefRegMap(@Self)^.&set := $00000008;
  76320. end;
  76321. procedure TCAN1_C1FIFOINT5.clearRXOVFLIF; inline;
  76322. begin
  76323. pTDefRegMap(@Self)^.clr := $00000008;
  76324. end;
  76325. procedure TCAN1_C1FIFOINT5.setRXOVFLIF(thebits : TBits_1); inline;
  76326. begin
  76327. if thebits = 0 then
  76328. pTDefRegMap(@Self)^.clr := $00000008
  76329. else
  76330. pTDefRegMap(@Self)^.&set := $00000008;
  76331. end;
  76332. function TCAN1_C1FIFOINT5.getRXOVFLIF : TBits_1; inline;
  76333. begin
  76334. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  76335. end;
  76336. procedure TCAN1_C1FIFOINT5.setTXEMPTYIF; inline;
  76337. begin
  76338. pTDefRegMap(@Self)^.&set := $00000100;
  76339. end;
  76340. procedure TCAN1_C1FIFOINT5.clearTXEMPTYIF; inline;
  76341. begin
  76342. pTDefRegMap(@Self)^.clr := $00000100;
  76343. end;
  76344. procedure TCAN1_C1FIFOINT5.setTXEMPTYIF(thebits : TBits_1); inline;
  76345. begin
  76346. if thebits = 0 then
  76347. pTDefRegMap(@Self)^.clr := $00000100
  76348. else
  76349. pTDefRegMap(@Self)^.&set := $00000100;
  76350. end;
  76351. function TCAN1_C1FIFOINT5.getTXEMPTYIF : TBits_1; inline;
  76352. begin
  76353. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  76354. end;
  76355. procedure TCAN1_C1FIFOINT5.setTXHALFIF; inline;
  76356. begin
  76357. pTDefRegMap(@Self)^.&set := $00000200;
  76358. end;
  76359. procedure TCAN1_C1FIFOINT5.clearTXHALFIF; inline;
  76360. begin
  76361. pTDefRegMap(@Self)^.clr := $00000200;
  76362. end;
  76363. procedure TCAN1_C1FIFOINT5.setTXHALFIF(thebits : TBits_1); inline;
  76364. begin
  76365. if thebits = 0 then
  76366. pTDefRegMap(@Self)^.clr := $00000200
  76367. else
  76368. pTDefRegMap(@Self)^.&set := $00000200;
  76369. end;
  76370. function TCAN1_C1FIFOINT5.getTXHALFIF : TBits_1; inline;
  76371. begin
  76372. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  76373. end;
  76374. procedure TCAN1_C1FIFOINT5.setTXNFULLIF; inline;
  76375. begin
  76376. pTDefRegMap(@Self)^.&set := $00000400;
  76377. end;
  76378. procedure TCAN1_C1FIFOINT5.clearTXNFULLIF; inline;
  76379. begin
  76380. pTDefRegMap(@Self)^.clr := $00000400;
  76381. end;
  76382. procedure TCAN1_C1FIFOINT5.setTXNFULLIF(thebits : TBits_1); inline;
  76383. begin
  76384. if thebits = 0 then
  76385. pTDefRegMap(@Self)^.clr := $00000400
  76386. else
  76387. pTDefRegMap(@Self)^.&set := $00000400;
  76388. end;
  76389. function TCAN1_C1FIFOINT5.getTXNFULLIF : TBits_1; inline;
  76390. begin
  76391. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  76392. end;
  76393. procedure TCAN1_C1FIFOINT5.setRXNEMPTYIE; inline;
  76394. begin
  76395. pTDefRegMap(@Self)^.&set := $00010000;
  76396. end;
  76397. procedure TCAN1_C1FIFOINT5.clearRXNEMPTYIE; inline;
  76398. begin
  76399. pTDefRegMap(@Self)^.clr := $00010000;
  76400. end;
  76401. procedure TCAN1_C1FIFOINT5.setRXNEMPTYIE(thebits : TBits_1); inline;
  76402. begin
  76403. if thebits = 0 then
  76404. pTDefRegMap(@Self)^.clr := $00010000
  76405. else
  76406. pTDefRegMap(@Self)^.&set := $00010000;
  76407. end;
  76408. function TCAN1_C1FIFOINT5.getRXNEMPTYIE : TBits_1; inline;
  76409. begin
  76410. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  76411. end;
  76412. procedure TCAN1_C1FIFOINT5.setRXHALFIE; inline;
  76413. begin
  76414. pTDefRegMap(@Self)^.&set := $00020000;
  76415. end;
  76416. procedure TCAN1_C1FIFOINT5.clearRXHALFIE; inline;
  76417. begin
  76418. pTDefRegMap(@Self)^.clr := $00020000;
  76419. end;
  76420. procedure TCAN1_C1FIFOINT5.setRXHALFIE(thebits : TBits_1); inline;
  76421. begin
  76422. if thebits = 0 then
  76423. pTDefRegMap(@Self)^.clr := $00020000
  76424. else
  76425. pTDefRegMap(@Self)^.&set := $00020000;
  76426. end;
  76427. function TCAN1_C1FIFOINT5.getRXHALFIE : TBits_1; inline;
  76428. begin
  76429. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  76430. end;
  76431. procedure TCAN1_C1FIFOINT5.setRXFULLIE; inline;
  76432. begin
  76433. pTDefRegMap(@Self)^.&set := $00040000;
  76434. end;
  76435. procedure TCAN1_C1FIFOINT5.clearRXFULLIE; inline;
  76436. begin
  76437. pTDefRegMap(@Self)^.clr := $00040000;
  76438. end;
  76439. procedure TCAN1_C1FIFOINT5.setRXFULLIE(thebits : TBits_1); inline;
  76440. begin
  76441. if thebits = 0 then
  76442. pTDefRegMap(@Self)^.clr := $00040000
  76443. else
  76444. pTDefRegMap(@Self)^.&set := $00040000;
  76445. end;
  76446. function TCAN1_C1FIFOINT5.getRXFULLIE : TBits_1; inline;
  76447. begin
  76448. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  76449. end;
  76450. procedure TCAN1_C1FIFOINT5.setRXOVFLIE; inline;
  76451. begin
  76452. pTDefRegMap(@Self)^.&set := $00080000;
  76453. end;
  76454. procedure TCAN1_C1FIFOINT5.clearRXOVFLIE; inline;
  76455. begin
  76456. pTDefRegMap(@Self)^.clr := $00080000;
  76457. end;
  76458. procedure TCAN1_C1FIFOINT5.setRXOVFLIE(thebits : TBits_1); inline;
  76459. begin
  76460. if thebits = 0 then
  76461. pTDefRegMap(@Self)^.clr := $00080000
  76462. else
  76463. pTDefRegMap(@Self)^.&set := $00080000;
  76464. end;
  76465. function TCAN1_C1FIFOINT5.getRXOVFLIE : TBits_1; inline;
  76466. begin
  76467. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  76468. end;
  76469. procedure TCAN1_C1FIFOINT5.setTXEMPTYIE; inline;
  76470. begin
  76471. pTDefRegMap(@Self)^.&set := $01000000;
  76472. end;
  76473. procedure TCAN1_C1FIFOINT5.clearTXEMPTYIE; inline;
  76474. begin
  76475. pTDefRegMap(@Self)^.clr := $01000000;
  76476. end;
  76477. procedure TCAN1_C1FIFOINT5.setTXEMPTYIE(thebits : TBits_1); inline;
  76478. begin
  76479. if thebits = 0 then
  76480. pTDefRegMap(@Self)^.clr := $01000000
  76481. else
  76482. pTDefRegMap(@Self)^.&set := $01000000;
  76483. end;
  76484. function TCAN1_C1FIFOINT5.getTXEMPTYIE : TBits_1; inline;
  76485. begin
  76486. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  76487. end;
  76488. procedure TCAN1_C1FIFOINT5.setTXHALFIE; inline;
  76489. begin
  76490. pTDefRegMap(@Self)^.&set := $02000000;
  76491. end;
  76492. procedure TCAN1_C1FIFOINT5.clearTXHALFIE; inline;
  76493. begin
  76494. pTDefRegMap(@Self)^.clr := $02000000;
  76495. end;
  76496. procedure TCAN1_C1FIFOINT5.setTXHALFIE(thebits : TBits_1); inline;
  76497. begin
  76498. if thebits = 0 then
  76499. pTDefRegMap(@Self)^.clr := $02000000
  76500. else
  76501. pTDefRegMap(@Self)^.&set := $02000000;
  76502. end;
  76503. function TCAN1_C1FIFOINT5.getTXHALFIE : TBits_1; inline;
  76504. begin
  76505. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  76506. end;
  76507. procedure TCAN1_C1FIFOINT5.setTXNFULLIE; inline;
  76508. begin
  76509. pTDefRegMap(@Self)^.&set := $04000000;
  76510. end;
  76511. procedure TCAN1_C1FIFOINT5.clearTXNFULLIE; inline;
  76512. begin
  76513. pTDefRegMap(@Self)^.clr := $04000000;
  76514. end;
  76515. procedure TCAN1_C1FIFOINT5.setTXNFULLIE(thebits : TBits_1); inline;
  76516. begin
  76517. if thebits = 0 then
  76518. pTDefRegMap(@Self)^.clr := $04000000
  76519. else
  76520. pTDefRegMap(@Self)^.&set := $04000000;
  76521. end;
  76522. function TCAN1_C1FIFOINT5.getTXNFULLIE : TBits_1; inline;
  76523. begin
  76524. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  76525. end;
  76526. procedure TCAN1_C1FIFOINT5.setw(thebits : TBits_32); inline;
  76527. begin
  76528. pTDefRegMap(@Self)^.val := thebits;
  76529. end;
  76530. function TCAN1_C1FIFOINT5.getw : TBits_32; inline;
  76531. begin
  76532. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  76533. end;
  76534. procedure TCAN1_C1FIFOCI5.setCFIFOCI(thebits : TBits_5); inline;
  76535. begin
  76536. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  76537. end;
  76538. function TCAN1_C1FIFOCI5.getCFIFOCI : TBits_5; inline;
  76539. begin
  76540. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  76541. end;
  76542. procedure TCAN1_C1FIFOCI5.setw(thebits : TBits_32); inline;
  76543. begin
  76544. pTDefRegMap(@Self)^.val := thebits;
  76545. end;
  76546. function TCAN1_C1FIFOCI5.getw : TBits_32; inline;
  76547. begin
  76548. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  76549. end;
  76550. procedure TCAN1_C1FIFOCON6.setTXPRI(thebits : TBits_2); inline;
  76551. begin
  76552. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  76553. end;
  76554. function TCAN1_C1FIFOCON6.getTXPRI : TBits_2; inline;
  76555. begin
  76556. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  76557. end;
  76558. procedure TCAN1_C1FIFOCON6.setRTREN; inline;
  76559. begin
  76560. pTDefRegMap(@Self)^.&set := $00000004;
  76561. end;
  76562. procedure TCAN1_C1FIFOCON6.clearRTREN; inline;
  76563. begin
  76564. pTDefRegMap(@Self)^.clr := $00000004;
  76565. end;
  76566. procedure TCAN1_C1FIFOCON6.setRTREN(thebits : TBits_1); inline;
  76567. begin
  76568. if thebits = 0 then
  76569. pTDefRegMap(@Self)^.clr := $00000004
  76570. else
  76571. pTDefRegMap(@Self)^.&set := $00000004;
  76572. end;
  76573. function TCAN1_C1FIFOCON6.getRTREN : TBits_1; inline;
  76574. begin
  76575. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  76576. end;
  76577. procedure TCAN1_C1FIFOCON6.setTXREQ; inline;
  76578. begin
  76579. pTDefRegMap(@Self)^.&set := $00000008;
  76580. end;
  76581. procedure TCAN1_C1FIFOCON6.clearTXREQ; inline;
  76582. begin
  76583. pTDefRegMap(@Self)^.clr := $00000008;
  76584. end;
  76585. procedure TCAN1_C1FIFOCON6.setTXREQ(thebits : TBits_1); inline;
  76586. begin
  76587. if thebits = 0 then
  76588. pTDefRegMap(@Self)^.clr := $00000008
  76589. else
  76590. pTDefRegMap(@Self)^.&set := $00000008;
  76591. end;
  76592. function TCAN1_C1FIFOCON6.getTXREQ : TBits_1; inline;
  76593. begin
  76594. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  76595. end;
  76596. procedure TCAN1_C1FIFOCON6.setTXERR; inline;
  76597. begin
  76598. pTDefRegMap(@Self)^.&set := $00000010;
  76599. end;
  76600. procedure TCAN1_C1FIFOCON6.clearTXERR; inline;
  76601. begin
  76602. pTDefRegMap(@Self)^.clr := $00000010;
  76603. end;
  76604. procedure TCAN1_C1FIFOCON6.setTXERR(thebits : TBits_1); inline;
  76605. begin
  76606. if thebits = 0 then
  76607. pTDefRegMap(@Self)^.clr := $00000010
  76608. else
  76609. pTDefRegMap(@Self)^.&set := $00000010;
  76610. end;
  76611. function TCAN1_C1FIFOCON6.getTXERR : TBits_1; inline;
  76612. begin
  76613. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  76614. end;
  76615. procedure TCAN1_C1FIFOCON6.setTXLARB; inline;
  76616. begin
  76617. pTDefRegMap(@Self)^.&set := $00000020;
  76618. end;
  76619. procedure TCAN1_C1FIFOCON6.clearTXLARB; inline;
  76620. begin
  76621. pTDefRegMap(@Self)^.clr := $00000020;
  76622. end;
  76623. procedure TCAN1_C1FIFOCON6.setTXLARB(thebits : TBits_1); inline;
  76624. begin
  76625. if thebits = 0 then
  76626. pTDefRegMap(@Self)^.clr := $00000020
  76627. else
  76628. pTDefRegMap(@Self)^.&set := $00000020;
  76629. end;
  76630. function TCAN1_C1FIFOCON6.getTXLARB : TBits_1; inline;
  76631. begin
  76632. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  76633. end;
  76634. procedure TCAN1_C1FIFOCON6.setTXABAT; inline;
  76635. begin
  76636. pTDefRegMap(@Self)^.&set := $00000040;
  76637. end;
  76638. procedure TCAN1_C1FIFOCON6.clearTXABAT; inline;
  76639. begin
  76640. pTDefRegMap(@Self)^.clr := $00000040;
  76641. end;
  76642. procedure TCAN1_C1FIFOCON6.setTXABAT(thebits : TBits_1); inline;
  76643. begin
  76644. if thebits = 0 then
  76645. pTDefRegMap(@Self)^.clr := $00000040
  76646. else
  76647. pTDefRegMap(@Self)^.&set := $00000040;
  76648. end;
  76649. function TCAN1_C1FIFOCON6.getTXABAT : TBits_1; inline;
  76650. begin
  76651. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  76652. end;
  76653. procedure TCAN1_C1FIFOCON6.setTXEN; inline;
  76654. begin
  76655. pTDefRegMap(@Self)^.&set := $00000080;
  76656. end;
  76657. procedure TCAN1_C1FIFOCON6.clearTXEN; inline;
  76658. begin
  76659. pTDefRegMap(@Self)^.clr := $00000080;
  76660. end;
  76661. procedure TCAN1_C1FIFOCON6.setTXEN(thebits : TBits_1); inline;
  76662. begin
  76663. if thebits = 0 then
  76664. pTDefRegMap(@Self)^.clr := $00000080
  76665. else
  76666. pTDefRegMap(@Self)^.&set := $00000080;
  76667. end;
  76668. function TCAN1_C1FIFOCON6.getTXEN : TBits_1; inline;
  76669. begin
  76670. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  76671. end;
  76672. procedure TCAN1_C1FIFOCON6.setDONLY; inline;
  76673. begin
  76674. pTDefRegMap(@Self)^.&set := $00001000;
  76675. end;
  76676. procedure TCAN1_C1FIFOCON6.clearDONLY; inline;
  76677. begin
  76678. pTDefRegMap(@Self)^.clr := $00001000;
  76679. end;
  76680. procedure TCAN1_C1FIFOCON6.setDONLY(thebits : TBits_1); inline;
  76681. begin
  76682. if thebits = 0 then
  76683. pTDefRegMap(@Self)^.clr := $00001000
  76684. else
  76685. pTDefRegMap(@Self)^.&set := $00001000;
  76686. end;
  76687. function TCAN1_C1FIFOCON6.getDONLY : TBits_1; inline;
  76688. begin
  76689. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  76690. end;
  76691. procedure TCAN1_C1FIFOCON6.setUINC; inline;
  76692. begin
  76693. pTDefRegMap(@Self)^.&set := $00002000;
  76694. end;
  76695. procedure TCAN1_C1FIFOCON6.clearUINC; inline;
  76696. begin
  76697. pTDefRegMap(@Self)^.clr := $00002000;
  76698. end;
  76699. procedure TCAN1_C1FIFOCON6.setUINC(thebits : TBits_1); inline;
  76700. begin
  76701. if thebits = 0 then
  76702. pTDefRegMap(@Self)^.clr := $00002000
  76703. else
  76704. pTDefRegMap(@Self)^.&set := $00002000;
  76705. end;
  76706. function TCAN1_C1FIFOCON6.getUINC : TBits_1; inline;
  76707. begin
  76708. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  76709. end;
  76710. procedure TCAN1_C1FIFOCON6.setFRESET; inline;
  76711. begin
  76712. pTDefRegMap(@Self)^.&set := $00004000;
  76713. end;
  76714. procedure TCAN1_C1FIFOCON6.clearFRESET; inline;
  76715. begin
  76716. pTDefRegMap(@Self)^.clr := $00004000;
  76717. end;
  76718. procedure TCAN1_C1FIFOCON6.setFRESET(thebits : TBits_1); inline;
  76719. begin
  76720. if thebits = 0 then
  76721. pTDefRegMap(@Self)^.clr := $00004000
  76722. else
  76723. pTDefRegMap(@Self)^.&set := $00004000;
  76724. end;
  76725. function TCAN1_C1FIFOCON6.getFRESET : TBits_1; inline;
  76726. begin
  76727. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  76728. end;
  76729. procedure TCAN1_C1FIFOCON6.setFSIZE(thebits : TBits_5); inline;
  76730. begin
  76731. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  76732. end;
  76733. function TCAN1_C1FIFOCON6.getFSIZE : TBits_5; inline;
  76734. begin
  76735. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  76736. end;
  76737. procedure TCAN1_C1FIFOCON6.setw(thebits : TBits_32); inline;
  76738. begin
  76739. pTDefRegMap(@Self)^.val := thebits;
  76740. end;
  76741. function TCAN1_C1FIFOCON6.getw : TBits_32; inline;
  76742. begin
  76743. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  76744. end;
  76745. procedure TCAN1_C1FIFOINT6.setRXNEMPTYIF; inline;
  76746. begin
  76747. pTDefRegMap(@Self)^.&set := $00000001;
  76748. end;
  76749. procedure TCAN1_C1FIFOINT6.clearRXNEMPTYIF; inline;
  76750. begin
  76751. pTDefRegMap(@Self)^.clr := $00000001;
  76752. end;
  76753. procedure TCAN1_C1FIFOINT6.setRXNEMPTYIF(thebits : TBits_1); inline;
  76754. begin
  76755. if thebits = 0 then
  76756. pTDefRegMap(@Self)^.clr := $00000001
  76757. else
  76758. pTDefRegMap(@Self)^.&set := $00000001;
  76759. end;
  76760. function TCAN1_C1FIFOINT6.getRXNEMPTYIF : TBits_1; inline;
  76761. begin
  76762. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  76763. end;
  76764. procedure TCAN1_C1FIFOINT6.setRXHALFIF; inline;
  76765. begin
  76766. pTDefRegMap(@Self)^.&set := $00000002;
  76767. end;
  76768. procedure TCAN1_C1FIFOINT6.clearRXHALFIF; inline;
  76769. begin
  76770. pTDefRegMap(@Self)^.clr := $00000002;
  76771. end;
  76772. procedure TCAN1_C1FIFOINT6.setRXHALFIF(thebits : TBits_1); inline;
  76773. begin
  76774. if thebits = 0 then
  76775. pTDefRegMap(@Self)^.clr := $00000002
  76776. else
  76777. pTDefRegMap(@Self)^.&set := $00000002;
  76778. end;
  76779. function TCAN1_C1FIFOINT6.getRXHALFIF : TBits_1; inline;
  76780. begin
  76781. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  76782. end;
  76783. procedure TCAN1_C1FIFOINT6.setRXFULLIF; inline;
  76784. begin
  76785. pTDefRegMap(@Self)^.&set := $00000004;
  76786. end;
  76787. procedure TCAN1_C1FIFOINT6.clearRXFULLIF; inline;
  76788. begin
  76789. pTDefRegMap(@Self)^.clr := $00000004;
  76790. end;
  76791. procedure TCAN1_C1FIFOINT6.setRXFULLIF(thebits : TBits_1); inline;
  76792. begin
  76793. if thebits = 0 then
  76794. pTDefRegMap(@Self)^.clr := $00000004
  76795. else
  76796. pTDefRegMap(@Self)^.&set := $00000004;
  76797. end;
  76798. function TCAN1_C1FIFOINT6.getRXFULLIF : TBits_1; inline;
  76799. begin
  76800. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  76801. end;
  76802. procedure TCAN1_C1FIFOINT6.setRXOVFLIF; inline;
  76803. begin
  76804. pTDefRegMap(@Self)^.&set := $00000008;
  76805. end;
  76806. procedure TCAN1_C1FIFOINT6.clearRXOVFLIF; inline;
  76807. begin
  76808. pTDefRegMap(@Self)^.clr := $00000008;
  76809. end;
  76810. procedure TCAN1_C1FIFOINT6.setRXOVFLIF(thebits : TBits_1); inline;
  76811. begin
  76812. if thebits = 0 then
  76813. pTDefRegMap(@Self)^.clr := $00000008
  76814. else
  76815. pTDefRegMap(@Self)^.&set := $00000008;
  76816. end;
  76817. function TCAN1_C1FIFOINT6.getRXOVFLIF : TBits_1; inline;
  76818. begin
  76819. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  76820. end;
  76821. procedure TCAN1_C1FIFOINT6.setTXEMPTYIF; inline;
  76822. begin
  76823. pTDefRegMap(@Self)^.&set := $00000100;
  76824. end;
  76825. procedure TCAN1_C1FIFOINT6.clearTXEMPTYIF; inline;
  76826. begin
  76827. pTDefRegMap(@Self)^.clr := $00000100;
  76828. end;
  76829. procedure TCAN1_C1FIFOINT6.setTXEMPTYIF(thebits : TBits_1); inline;
  76830. begin
  76831. if thebits = 0 then
  76832. pTDefRegMap(@Self)^.clr := $00000100
  76833. else
  76834. pTDefRegMap(@Self)^.&set := $00000100;
  76835. end;
  76836. function TCAN1_C1FIFOINT6.getTXEMPTYIF : TBits_1; inline;
  76837. begin
  76838. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  76839. end;
  76840. procedure TCAN1_C1FIFOINT6.setTXHALFIF; inline;
  76841. begin
  76842. pTDefRegMap(@Self)^.&set := $00000200;
  76843. end;
  76844. procedure TCAN1_C1FIFOINT6.clearTXHALFIF; inline;
  76845. begin
  76846. pTDefRegMap(@Self)^.clr := $00000200;
  76847. end;
  76848. procedure TCAN1_C1FIFOINT6.setTXHALFIF(thebits : TBits_1); inline;
  76849. begin
  76850. if thebits = 0 then
  76851. pTDefRegMap(@Self)^.clr := $00000200
  76852. else
  76853. pTDefRegMap(@Self)^.&set := $00000200;
  76854. end;
  76855. function TCAN1_C1FIFOINT6.getTXHALFIF : TBits_1; inline;
  76856. begin
  76857. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  76858. end;
  76859. procedure TCAN1_C1FIFOINT6.setTXNFULLIF; inline;
  76860. begin
  76861. pTDefRegMap(@Self)^.&set := $00000400;
  76862. end;
  76863. procedure TCAN1_C1FIFOINT6.clearTXNFULLIF; inline;
  76864. begin
  76865. pTDefRegMap(@Self)^.clr := $00000400;
  76866. end;
  76867. procedure TCAN1_C1FIFOINT6.setTXNFULLIF(thebits : TBits_1); inline;
  76868. begin
  76869. if thebits = 0 then
  76870. pTDefRegMap(@Self)^.clr := $00000400
  76871. else
  76872. pTDefRegMap(@Self)^.&set := $00000400;
  76873. end;
  76874. function TCAN1_C1FIFOINT6.getTXNFULLIF : TBits_1; inline;
  76875. begin
  76876. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  76877. end;
  76878. procedure TCAN1_C1FIFOINT6.setRXNEMPTYIE; inline;
  76879. begin
  76880. pTDefRegMap(@Self)^.&set := $00010000;
  76881. end;
  76882. procedure TCAN1_C1FIFOINT6.clearRXNEMPTYIE; inline;
  76883. begin
  76884. pTDefRegMap(@Self)^.clr := $00010000;
  76885. end;
  76886. procedure TCAN1_C1FIFOINT6.setRXNEMPTYIE(thebits : TBits_1); inline;
  76887. begin
  76888. if thebits = 0 then
  76889. pTDefRegMap(@Self)^.clr := $00010000
  76890. else
  76891. pTDefRegMap(@Self)^.&set := $00010000;
  76892. end;
  76893. function TCAN1_C1FIFOINT6.getRXNEMPTYIE : TBits_1; inline;
  76894. begin
  76895. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  76896. end;
  76897. procedure TCAN1_C1FIFOINT6.setRXHALFIE; inline;
  76898. begin
  76899. pTDefRegMap(@Self)^.&set := $00020000;
  76900. end;
  76901. procedure TCAN1_C1FIFOINT6.clearRXHALFIE; inline;
  76902. begin
  76903. pTDefRegMap(@Self)^.clr := $00020000;
  76904. end;
  76905. procedure TCAN1_C1FIFOINT6.setRXHALFIE(thebits : TBits_1); inline;
  76906. begin
  76907. if thebits = 0 then
  76908. pTDefRegMap(@Self)^.clr := $00020000
  76909. else
  76910. pTDefRegMap(@Self)^.&set := $00020000;
  76911. end;
  76912. function TCAN1_C1FIFOINT6.getRXHALFIE : TBits_1; inline;
  76913. begin
  76914. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  76915. end;
  76916. procedure TCAN1_C1FIFOINT6.setRXFULLIE; inline;
  76917. begin
  76918. pTDefRegMap(@Self)^.&set := $00040000;
  76919. end;
  76920. procedure TCAN1_C1FIFOINT6.clearRXFULLIE; inline;
  76921. begin
  76922. pTDefRegMap(@Self)^.clr := $00040000;
  76923. end;
  76924. procedure TCAN1_C1FIFOINT6.setRXFULLIE(thebits : TBits_1); inline;
  76925. begin
  76926. if thebits = 0 then
  76927. pTDefRegMap(@Self)^.clr := $00040000
  76928. else
  76929. pTDefRegMap(@Self)^.&set := $00040000;
  76930. end;
  76931. function TCAN1_C1FIFOINT6.getRXFULLIE : TBits_1; inline;
  76932. begin
  76933. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  76934. end;
  76935. procedure TCAN1_C1FIFOINT6.setRXOVFLIE; inline;
  76936. begin
  76937. pTDefRegMap(@Self)^.&set := $00080000;
  76938. end;
  76939. procedure TCAN1_C1FIFOINT6.clearRXOVFLIE; inline;
  76940. begin
  76941. pTDefRegMap(@Self)^.clr := $00080000;
  76942. end;
  76943. procedure TCAN1_C1FIFOINT6.setRXOVFLIE(thebits : TBits_1); inline;
  76944. begin
  76945. if thebits = 0 then
  76946. pTDefRegMap(@Self)^.clr := $00080000
  76947. else
  76948. pTDefRegMap(@Self)^.&set := $00080000;
  76949. end;
  76950. function TCAN1_C1FIFOINT6.getRXOVFLIE : TBits_1; inline;
  76951. begin
  76952. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  76953. end;
  76954. procedure TCAN1_C1FIFOINT6.setTXEMPTYIE; inline;
  76955. begin
  76956. pTDefRegMap(@Self)^.&set := $01000000;
  76957. end;
  76958. procedure TCAN1_C1FIFOINT6.clearTXEMPTYIE; inline;
  76959. begin
  76960. pTDefRegMap(@Self)^.clr := $01000000;
  76961. end;
  76962. procedure TCAN1_C1FIFOINT6.setTXEMPTYIE(thebits : TBits_1); inline;
  76963. begin
  76964. if thebits = 0 then
  76965. pTDefRegMap(@Self)^.clr := $01000000
  76966. else
  76967. pTDefRegMap(@Self)^.&set := $01000000;
  76968. end;
  76969. function TCAN1_C1FIFOINT6.getTXEMPTYIE : TBits_1; inline;
  76970. begin
  76971. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  76972. end;
  76973. procedure TCAN1_C1FIFOINT6.setTXHALFIE; inline;
  76974. begin
  76975. pTDefRegMap(@Self)^.&set := $02000000;
  76976. end;
  76977. procedure TCAN1_C1FIFOINT6.clearTXHALFIE; inline;
  76978. begin
  76979. pTDefRegMap(@Self)^.clr := $02000000;
  76980. end;
  76981. procedure TCAN1_C1FIFOINT6.setTXHALFIE(thebits : TBits_1); inline;
  76982. begin
  76983. if thebits = 0 then
  76984. pTDefRegMap(@Self)^.clr := $02000000
  76985. else
  76986. pTDefRegMap(@Self)^.&set := $02000000;
  76987. end;
  76988. function TCAN1_C1FIFOINT6.getTXHALFIE : TBits_1; inline;
  76989. begin
  76990. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  76991. end;
  76992. procedure TCAN1_C1FIFOINT6.setTXNFULLIE; inline;
  76993. begin
  76994. pTDefRegMap(@Self)^.&set := $04000000;
  76995. end;
  76996. procedure TCAN1_C1FIFOINT6.clearTXNFULLIE; inline;
  76997. begin
  76998. pTDefRegMap(@Self)^.clr := $04000000;
  76999. end;
  77000. procedure TCAN1_C1FIFOINT6.setTXNFULLIE(thebits : TBits_1); inline;
  77001. begin
  77002. if thebits = 0 then
  77003. pTDefRegMap(@Self)^.clr := $04000000
  77004. else
  77005. pTDefRegMap(@Self)^.&set := $04000000;
  77006. end;
  77007. function TCAN1_C1FIFOINT6.getTXNFULLIE : TBits_1; inline;
  77008. begin
  77009. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  77010. end;
  77011. procedure TCAN1_C1FIFOINT6.setw(thebits : TBits_32); inline;
  77012. begin
  77013. pTDefRegMap(@Self)^.val := thebits;
  77014. end;
  77015. function TCAN1_C1FIFOINT6.getw : TBits_32; inline;
  77016. begin
  77017. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  77018. end;
  77019. procedure TCAN1_C1FIFOCI6.setCFIFOCI(thebits : TBits_5); inline;
  77020. begin
  77021. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  77022. end;
  77023. function TCAN1_C1FIFOCI6.getCFIFOCI : TBits_5; inline;
  77024. begin
  77025. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  77026. end;
  77027. procedure TCAN1_C1FIFOCI6.setw(thebits : TBits_32); inline;
  77028. begin
  77029. pTDefRegMap(@Self)^.val := thebits;
  77030. end;
  77031. function TCAN1_C1FIFOCI6.getw : TBits_32; inline;
  77032. begin
  77033. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  77034. end;
  77035. procedure TCAN1_C1FIFOCON7.setTXPRI(thebits : TBits_2); inline;
  77036. begin
  77037. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  77038. end;
  77039. function TCAN1_C1FIFOCON7.getTXPRI : TBits_2; inline;
  77040. begin
  77041. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  77042. end;
  77043. procedure TCAN1_C1FIFOCON7.setRTREN; inline;
  77044. begin
  77045. pTDefRegMap(@Self)^.&set := $00000004;
  77046. end;
  77047. procedure TCAN1_C1FIFOCON7.clearRTREN; inline;
  77048. begin
  77049. pTDefRegMap(@Self)^.clr := $00000004;
  77050. end;
  77051. procedure TCAN1_C1FIFOCON7.setRTREN(thebits : TBits_1); inline;
  77052. begin
  77053. if thebits = 0 then
  77054. pTDefRegMap(@Self)^.clr := $00000004
  77055. else
  77056. pTDefRegMap(@Self)^.&set := $00000004;
  77057. end;
  77058. function TCAN1_C1FIFOCON7.getRTREN : TBits_1; inline;
  77059. begin
  77060. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  77061. end;
  77062. procedure TCAN1_C1FIFOCON7.setTXREQ; inline;
  77063. begin
  77064. pTDefRegMap(@Self)^.&set := $00000008;
  77065. end;
  77066. procedure TCAN1_C1FIFOCON7.clearTXREQ; inline;
  77067. begin
  77068. pTDefRegMap(@Self)^.clr := $00000008;
  77069. end;
  77070. procedure TCAN1_C1FIFOCON7.setTXREQ(thebits : TBits_1); inline;
  77071. begin
  77072. if thebits = 0 then
  77073. pTDefRegMap(@Self)^.clr := $00000008
  77074. else
  77075. pTDefRegMap(@Self)^.&set := $00000008;
  77076. end;
  77077. function TCAN1_C1FIFOCON7.getTXREQ : TBits_1; inline;
  77078. begin
  77079. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  77080. end;
  77081. procedure TCAN1_C1FIFOCON7.setTXERR; inline;
  77082. begin
  77083. pTDefRegMap(@Self)^.&set := $00000010;
  77084. end;
  77085. procedure TCAN1_C1FIFOCON7.clearTXERR; inline;
  77086. begin
  77087. pTDefRegMap(@Self)^.clr := $00000010;
  77088. end;
  77089. procedure TCAN1_C1FIFOCON7.setTXERR(thebits : TBits_1); inline;
  77090. begin
  77091. if thebits = 0 then
  77092. pTDefRegMap(@Self)^.clr := $00000010
  77093. else
  77094. pTDefRegMap(@Self)^.&set := $00000010;
  77095. end;
  77096. function TCAN1_C1FIFOCON7.getTXERR : TBits_1; inline;
  77097. begin
  77098. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  77099. end;
  77100. procedure TCAN1_C1FIFOCON7.setTXLARB; inline;
  77101. begin
  77102. pTDefRegMap(@Self)^.&set := $00000020;
  77103. end;
  77104. procedure TCAN1_C1FIFOCON7.clearTXLARB; inline;
  77105. begin
  77106. pTDefRegMap(@Self)^.clr := $00000020;
  77107. end;
  77108. procedure TCAN1_C1FIFOCON7.setTXLARB(thebits : TBits_1); inline;
  77109. begin
  77110. if thebits = 0 then
  77111. pTDefRegMap(@Self)^.clr := $00000020
  77112. else
  77113. pTDefRegMap(@Self)^.&set := $00000020;
  77114. end;
  77115. function TCAN1_C1FIFOCON7.getTXLARB : TBits_1; inline;
  77116. begin
  77117. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  77118. end;
  77119. procedure TCAN1_C1FIFOCON7.setTXABAT; inline;
  77120. begin
  77121. pTDefRegMap(@Self)^.&set := $00000040;
  77122. end;
  77123. procedure TCAN1_C1FIFOCON7.clearTXABAT; inline;
  77124. begin
  77125. pTDefRegMap(@Self)^.clr := $00000040;
  77126. end;
  77127. procedure TCAN1_C1FIFOCON7.setTXABAT(thebits : TBits_1); inline;
  77128. begin
  77129. if thebits = 0 then
  77130. pTDefRegMap(@Self)^.clr := $00000040
  77131. else
  77132. pTDefRegMap(@Self)^.&set := $00000040;
  77133. end;
  77134. function TCAN1_C1FIFOCON7.getTXABAT : TBits_1; inline;
  77135. begin
  77136. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  77137. end;
  77138. procedure TCAN1_C1FIFOCON7.setTXEN; inline;
  77139. begin
  77140. pTDefRegMap(@Self)^.&set := $00000080;
  77141. end;
  77142. procedure TCAN1_C1FIFOCON7.clearTXEN; inline;
  77143. begin
  77144. pTDefRegMap(@Self)^.clr := $00000080;
  77145. end;
  77146. procedure TCAN1_C1FIFOCON7.setTXEN(thebits : TBits_1); inline;
  77147. begin
  77148. if thebits = 0 then
  77149. pTDefRegMap(@Self)^.clr := $00000080
  77150. else
  77151. pTDefRegMap(@Self)^.&set := $00000080;
  77152. end;
  77153. function TCAN1_C1FIFOCON7.getTXEN : TBits_1; inline;
  77154. begin
  77155. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  77156. end;
  77157. procedure TCAN1_C1FIFOCON7.setDONLY; inline;
  77158. begin
  77159. pTDefRegMap(@Self)^.&set := $00001000;
  77160. end;
  77161. procedure TCAN1_C1FIFOCON7.clearDONLY; inline;
  77162. begin
  77163. pTDefRegMap(@Self)^.clr := $00001000;
  77164. end;
  77165. procedure TCAN1_C1FIFOCON7.setDONLY(thebits : TBits_1); inline;
  77166. begin
  77167. if thebits = 0 then
  77168. pTDefRegMap(@Self)^.clr := $00001000
  77169. else
  77170. pTDefRegMap(@Self)^.&set := $00001000;
  77171. end;
  77172. function TCAN1_C1FIFOCON7.getDONLY : TBits_1; inline;
  77173. begin
  77174. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  77175. end;
  77176. procedure TCAN1_C1FIFOCON7.setUINC; inline;
  77177. begin
  77178. pTDefRegMap(@Self)^.&set := $00002000;
  77179. end;
  77180. procedure TCAN1_C1FIFOCON7.clearUINC; inline;
  77181. begin
  77182. pTDefRegMap(@Self)^.clr := $00002000;
  77183. end;
  77184. procedure TCAN1_C1FIFOCON7.setUINC(thebits : TBits_1); inline;
  77185. begin
  77186. if thebits = 0 then
  77187. pTDefRegMap(@Self)^.clr := $00002000
  77188. else
  77189. pTDefRegMap(@Self)^.&set := $00002000;
  77190. end;
  77191. function TCAN1_C1FIFOCON7.getUINC : TBits_1; inline;
  77192. begin
  77193. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  77194. end;
  77195. procedure TCAN1_C1FIFOCON7.setFRESET; inline;
  77196. begin
  77197. pTDefRegMap(@Self)^.&set := $00004000;
  77198. end;
  77199. procedure TCAN1_C1FIFOCON7.clearFRESET; inline;
  77200. begin
  77201. pTDefRegMap(@Self)^.clr := $00004000;
  77202. end;
  77203. procedure TCAN1_C1FIFOCON7.setFRESET(thebits : TBits_1); inline;
  77204. begin
  77205. if thebits = 0 then
  77206. pTDefRegMap(@Self)^.clr := $00004000
  77207. else
  77208. pTDefRegMap(@Self)^.&set := $00004000;
  77209. end;
  77210. function TCAN1_C1FIFOCON7.getFRESET : TBits_1; inline;
  77211. begin
  77212. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  77213. end;
  77214. procedure TCAN1_C1FIFOCON7.setFSIZE(thebits : TBits_5); inline;
  77215. begin
  77216. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  77217. end;
  77218. function TCAN1_C1FIFOCON7.getFSIZE : TBits_5; inline;
  77219. begin
  77220. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  77221. end;
  77222. procedure TCAN1_C1FIFOCON7.setw(thebits : TBits_32); inline;
  77223. begin
  77224. pTDefRegMap(@Self)^.val := thebits;
  77225. end;
  77226. function TCAN1_C1FIFOCON7.getw : TBits_32; inline;
  77227. begin
  77228. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  77229. end;
  77230. procedure TCAN1_C1FIFOINT7.setRXNEMPTYIF; inline;
  77231. begin
  77232. pTDefRegMap(@Self)^.&set := $00000001;
  77233. end;
  77234. procedure TCAN1_C1FIFOINT7.clearRXNEMPTYIF; inline;
  77235. begin
  77236. pTDefRegMap(@Self)^.clr := $00000001;
  77237. end;
  77238. procedure TCAN1_C1FIFOINT7.setRXNEMPTYIF(thebits : TBits_1); inline;
  77239. begin
  77240. if thebits = 0 then
  77241. pTDefRegMap(@Self)^.clr := $00000001
  77242. else
  77243. pTDefRegMap(@Self)^.&set := $00000001;
  77244. end;
  77245. function TCAN1_C1FIFOINT7.getRXNEMPTYIF : TBits_1; inline;
  77246. begin
  77247. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  77248. end;
  77249. procedure TCAN1_C1FIFOINT7.setRXHALFIF; inline;
  77250. begin
  77251. pTDefRegMap(@Self)^.&set := $00000002;
  77252. end;
  77253. procedure TCAN1_C1FIFOINT7.clearRXHALFIF; inline;
  77254. begin
  77255. pTDefRegMap(@Self)^.clr := $00000002;
  77256. end;
  77257. procedure TCAN1_C1FIFOINT7.setRXHALFIF(thebits : TBits_1); inline;
  77258. begin
  77259. if thebits = 0 then
  77260. pTDefRegMap(@Self)^.clr := $00000002
  77261. else
  77262. pTDefRegMap(@Self)^.&set := $00000002;
  77263. end;
  77264. function TCAN1_C1FIFOINT7.getRXHALFIF : TBits_1; inline;
  77265. begin
  77266. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  77267. end;
  77268. procedure TCAN1_C1FIFOINT7.setRXFULLIF; inline;
  77269. begin
  77270. pTDefRegMap(@Self)^.&set := $00000004;
  77271. end;
  77272. procedure TCAN1_C1FIFOINT7.clearRXFULLIF; inline;
  77273. begin
  77274. pTDefRegMap(@Self)^.clr := $00000004;
  77275. end;
  77276. procedure TCAN1_C1FIFOINT7.setRXFULLIF(thebits : TBits_1); inline;
  77277. begin
  77278. if thebits = 0 then
  77279. pTDefRegMap(@Self)^.clr := $00000004
  77280. else
  77281. pTDefRegMap(@Self)^.&set := $00000004;
  77282. end;
  77283. function TCAN1_C1FIFOINT7.getRXFULLIF : TBits_1; inline;
  77284. begin
  77285. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  77286. end;
  77287. procedure TCAN1_C1FIFOINT7.setRXOVFLIF; inline;
  77288. begin
  77289. pTDefRegMap(@Self)^.&set := $00000008;
  77290. end;
  77291. procedure TCAN1_C1FIFOINT7.clearRXOVFLIF; inline;
  77292. begin
  77293. pTDefRegMap(@Self)^.clr := $00000008;
  77294. end;
  77295. procedure TCAN1_C1FIFOINT7.setRXOVFLIF(thebits : TBits_1); inline;
  77296. begin
  77297. if thebits = 0 then
  77298. pTDefRegMap(@Self)^.clr := $00000008
  77299. else
  77300. pTDefRegMap(@Self)^.&set := $00000008;
  77301. end;
  77302. function TCAN1_C1FIFOINT7.getRXOVFLIF : TBits_1; inline;
  77303. begin
  77304. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  77305. end;
  77306. procedure TCAN1_C1FIFOINT7.setTXEMPTYIF; inline;
  77307. begin
  77308. pTDefRegMap(@Self)^.&set := $00000100;
  77309. end;
  77310. procedure TCAN1_C1FIFOINT7.clearTXEMPTYIF; inline;
  77311. begin
  77312. pTDefRegMap(@Self)^.clr := $00000100;
  77313. end;
  77314. procedure TCAN1_C1FIFOINT7.setTXEMPTYIF(thebits : TBits_1); inline;
  77315. begin
  77316. if thebits = 0 then
  77317. pTDefRegMap(@Self)^.clr := $00000100
  77318. else
  77319. pTDefRegMap(@Self)^.&set := $00000100;
  77320. end;
  77321. function TCAN1_C1FIFOINT7.getTXEMPTYIF : TBits_1; inline;
  77322. begin
  77323. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  77324. end;
  77325. procedure TCAN1_C1FIFOINT7.setTXHALFIF; inline;
  77326. begin
  77327. pTDefRegMap(@Self)^.&set := $00000200;
  77328. end;
  77329. procedure TCAN1_C1FIFOINT7.clearTXHALFIF; inline;
  77330. begin
  77331. pTDefRegMap(@Self)^.clr := $00000200;
  77332. end;
  77333. procedure TCAN1_C1FIFOINT7.setTXHALFIF(thebits : TBits_1); inline;
  77334. begin
  77335. if thebits = 0 then
  77336. pTDefRegMap(@Self)^.clr := $00000200
  77337. else
  77338. pTDefRegMap(@Self)^.&set := $00000200;
  77339. end;
  77340. function TCAN1_C1FIFOINT7.getTXHALFIF : TBits_1; inline;
  77341. begin
  77342. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  77343. end;
  77344. procedure TCAN1_C1FIFOINT7.setTXNFULLIF; inline;
  77345. begin
  77346. pTDefRegMap(@Self)^.&set := $00000400;
  77347. end;
  77348. procedure TCAN1_C1FIFOINT7.clearTXNFULLIF; inline;
  77349. begin
  77350. pTDefRegMap(@Self)^.clr := $00000400;
  77351. end;
  77352. procedure TCAN1_C1FIFOINT7.setTXNFULLIF(thebits : TBits_1); inline;
  77353. begin
  77354. if thebits = 0 then
  77355. pTDefRegMap(@Self)^.clr := $00000400
  77356. else
  77357. pTDefRegMap(@Self)^.&set := $00000400;
  77358. end;
  77359. function TCAN1_C1FIFOINT7.getTXNFULLIF : TBits_1; inline;
  77360. begin
  77361. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  77362. end;
  77363. procedure TCAN1_C1FIFOINT7.setRXNEMPTYIE; inline;
  77364. begin
  77365. pTDefRegMap(@Self)^.&set := $00010000;
  77366. end;
  77367. procedure TCAN1_C1FIFOINT7.clearRXNEMPTYIE; inline;
  77368. begin
  77369. pTDefRegMap(@Self)^.clr := $00010000;
  77370. end;
  77371. procedure TCAN1_C1FIFOINT7.setRXNEMPTYIE(thebits : TBits_1); inline;
  77372. begin
  77373. if thebits = 0 then
  77374. pTDefRegMap(@Self)^.clr := $00010000
  77375. else
  77376. pTDefRegMap(@Self)^.&set := $00010000;
  77377. end;
  77378. function TCAN1_C1FIFOINT7.getRXNEMPTYIE : TBits_1; inline;
  77379. begin
  77380. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  77381. end;
  77382. procedure TCAN1_C1FIFOINT7.setRXHALFIE; inline;
  77383. begin
  77384. pTDefRegMap(@Self)^.&set := $00020000;
  77385. end;
  77386. procedure TCAN1_C1FIFOINT7.clearRXHALFIE; inline;
  77387. begin
  77388. pTDefRegMap(@Self)^.clr := $00020000;
  77389. end;
  77390. procedure TCAN1_C1FIFOINT7.setRXHALFIE(thebits : TBits_1); inline;
  77391. begin
  77392. if thebits = 0 then
  77393. pTDefRegMap(@Self)^.clr := $00020000
  77394. else
  77395. pTDefRegMap(@Self)^.&set := $00020000;
  77396. end;
  77397. function TCAN1_C1FIFOINT7.getRXHALFIE : TBits_1; inline;
  77398. begin
  77399. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  77400. end;
  77401. procedure TCAN1_C1FIFOINT7.setRXFULLIE; inline;
  77402. begin
  77403. pTDefRegMap(@Self)^.&set := $00040000;
  77404. end;
  77405. procedure TCAN1_C1FIFOINT7.clearRXFULLIE; inline;
  77406. begin
  77407. pTDefRegMap(@Self)^.clr := $00040000;
  77408. end;
  77409. procedure TCAN1_C1FIFOINT7.setRXFULLIE(thebits : TBits_1); inline;
  77410. begin
  77411. if thebits = 0 then
  77412. pTDefRegMap(@Self)^.clr := $00040000
  77413. else
  77414. pTDefRegMap(@Self)^.&set := $00040000;
  77415. end;
  77416. function TCAN1_C1FIFOINT7.getRXFULLIE : TBits_1; inline;
  77417. begin
  77418. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  77419. end;
  77420. procedure TCAN1_C1FIFOINT7.setRXOVFLIE; inline;
  77421. begin
  77422. pTDefRegMap(@Self)^.&set := $00080000;
  77423. end;
  77424. procedure TCAN1_C1FIFOINT7.clearRXOVFLIE; inline;
  77425. begin
  77426. pTDefRegMap(@Self)^.clr := $00080000;
  77427. end;
  77428. procedure TCAN1_C1FIFOINT7.setRXOVFLIE(thebits : TBits_1); inline;
  77429. begin
  77430. if thebits = 0 then
  77431. pTDefRegMap(@Self)^.clr := $00080000
  77432. else
  77433. pTDefRegMap(@Self)^.&set := $00080000;
  77434. end;
  77435. function TCAN1_C1FIFOINT7.getRXOVFLIE : TBits_1; inline;
  77436. begin
  77437. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  77438. end;
  77439. procedure TCAN1_C1FIFOINT7.setTXEMPTYIE; inline;
  77440. begin
  77441. pTDefRegMap(@Self)^.&set := $01000000;
  77442. end;
  77443. procedure TCAN1_C1FIFOINT7.clearTXEMPTYIE; inline;
  77444. begin
  77445. pTDefRegMap(@Self)^.clr := $01000000;
  77446. end;
  77447. procedure TCAN1_C1FIFOINT7.setTXEMPTYIE(thebits : TBits_1); inline;
  77448. begin
  77449. if thebits = 0 then
  77450. pTDefRegMap(@Self)^.clr := $01000000
  77451. else
  77452. pTDefRegMap(@Self)^.&set := $01000000;
  77453. end;
  77454. function TCAN1_C1FIFOINT7.getTXEMPTYIE : TBits_1; inline;
  77455. begin
  77456. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  77457. end;
  77458. procedure TCAN1_C1FIFOINT7.setTXHALFIE; inline;
  77459. begin
  77460. pTDefRegMap(@Self)^.&set := $02000000;
  77461. end;
  77462. procedure TCAN1_C1FIFOINT7.clearTXHALFIE; inline;
  77463. begin
  77464. pTDefRegMap(@Self)^.clr := $02000000;
  77465. end;
  77466. procedure TCAN1_C1FIFOINT7.setTXHALFIE(thebits : TBits_1); inline;
  77467. begin
  77468. if thebits = 0 then
  77469. pTDefRegMap(@Self)^.clr := $02000000
  77470. else
  77471. pTDefRegMap(@Self)^.&set := $02000000;
  77472. end;
  77473. function TCAN1_C1FIFOINT7.getTXHALFIE : TBits_1; inline;
  77474. begin
  77475. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  77476. end;
  77477. procedure TCAN1_C1FIFOINT7.setTXNFULLIE; inline;
  77478. begin
  77479. pTDefRegMap(@Self)^.&set := $04000000;
  77480. end;
  77481. procedure TCAN1_C1FIFOINT7.clearTXNFULLIE; inline;
  77482. begin
  77483. pTDefRegMap(@Self)^.clr := $04000000;
  77484. end;
  77485. procedure TCAN1_C1FIFOINT7.setTXNFULLIE(thebits : TBits_1); inline;
  77486. begin
  77487. if thebits = 0 then
  77488. pTDefRegMap(@Self)^.clr := $04000000
  77489. else
  77490. pTDefRegMap(@Self)^.&set := $04000000;
  77491. end;
  77492. function TCAN1_C1FIFOINT7.getTXNFULLIE : TBits_1; inline;
  77493. begin
  77494. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  77495. end;
  77496. procedure TCAN1_C1FIFOINT7.setw(thebits : TBits_32); inline;
  77497. begin
  77498. pTDefRegMap(@Self)^.val := thebits;
  77499. end;
  77500. function TCAN1_C1FIFOINT7.getw : TBits_32; inline;
  77501. begin
  77502. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  77503. end;
  77504. procedure TCAN1_C1FIFOCI7.setCFIFOCI(thebits : TBits_5); inline;
  77505. begin
  77506. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  77507. end;
  77508. function TCAN1_C1FIFOCI7.getCFIFOCI : TBits_5; inline;
  77509. begin
  77510. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  77511. end;
  77512. procedure TCAN1_C1FIFOCI7.setw(thebits : TBits_32); inline;
  77513. begin
  77514. pTDefRegMap(@Self)^.val := thebits;
  77515. end;
  77516. function TCAN1_C1FIFOCI7.getw : TBits_32; inline;
  77517. begin
  77518. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  77519. end;
  77520. procedure TCAN1_C1FIFOCON8.setTXPRI(thebits : TBits_2); inline;
  77521. begin
  77522. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  77523. end;
  77524. function TCAN1_C1FIFOCON8.getTXPRI : TBits_2; inline;
  77525. begin
  77526. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  77527. end;
  77528. procedure TCAN1_C1FIFOCON8.setRTREN; inline;
  77529. begin
  77530. pTDefRegMap(@Self)^.&set := $00000004;
  77531. end;
  77532. procedure TCAN1_C1FIFOCON8.clearRTREN; inline;
  77533. begin
  77534. pTDefRegMap(@Self)^.clr := $00000004;
  77535. end;
  77536. procedure TCAN1_C1FIFOCON8.setRTREN(thebits : TBits_1); inline;
  77537. begin
  77538. if thebits = 0 then
  77539. pTDefRegMap(@Self)^.clr := $00000004
  77540. else
  77541. pTDefRegMap(@Self)^.&set := $00000004;
  77542. end;
  77543. function TCAN1_C1FIFOCON8.getRTREN : TBits_1; inline;
  77544. begin
  77545. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  77546. end;
  77547. procedure TCAN1_C1FIFOCON8.setTXREQ; inline;
  77548. begin
  77549. pTDefRegMap(@Self)^.&set := $00000008;
  77550. end;
  77551. procedure TCAN1_C1FIFOCON8.clearTXREQ; inline;
  77552. begin
  77553. pTDefRegMap(@Self)^.clr := $00000008;
  77554. end;
  77555. procedure TCAN1_C1FIFOCON8.setTXREQ(thebits : TBits_1); inline;
  77556. begin
  77557. if thebits = 0 then
  77558. pTDefRegMap(@Self)^.clr := $00000008
  77559. else
  77560. pTDefRegMap(@Self)^.&set := $00000008;
  77561. end;
  77562. function TCAN1_C1FIFOCON8.getTXREQ : TBits_1; inline;
  77563. begin
  77564. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  77565. end;
  77566. procedure TCAN1_C1FIFOCON8.setTXERR; inline;
  77567. begin
  77568. pTDefRegMap(@Self)^.&set := $00000010;
  77569. end;
  77570. procedure TCAN1_C1FIFOCON8.clearTXERR; inline;
  77571. begin
  77572. pTDefRegMap(@Self)^.clr := $00000010;
  77573. end;
  77574. procedure TCAN1_C1FIFOCON8.setTXERR(thebits : TBits_1); inline;
  77575. begin
  77576. if thebits = 0 then
  77577. pTDefRegMap(@Self)^.clr := $00000010
  77578. else
  77579. pTDefRegMap(@Self)^.&set := $00000010;
  77580. end;
  77581. function TCAN1_C1FIFOCON8.getTXERR : TBits_1; inline;
  77582. begin
  77583. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  77584. end;
  77585. procedure TCAN1_C1FIFOCON8.setTXLARB; inline;
  77586. begin
  77587. pTDefRegMap(@Self)^.&set := $00000020;
  77588. end;
  77589. procedure TCAN1_C1FIFOCON8.clearTXLARB; inline;
  77590. begin
  77591. pTDefRegMap(@Self)^.clr := $00000020;
  77592. end;
  77593. procedure TCAN1_C1FIFOCON8.setTXLARB(thebits : TBits_1); inline;
  77594. begin
  77595. if thebits = 0 then
  77596. pTDefRegMap(@Self)^.clr := $00000020
  77597. else
  77598. pTDefRegMap(@Self)^.&set := $00000020;
  77599. end;
  77600. function TCAN1_C1FIFOCON8.getTXLARB : TBits_1; inline;
  77601. begin
  77602. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  77603. end;
  77604. procedure TCAN1_C1FIFOCON8.setTXABAT; inline;
  77605. begin
  77606. pTDefRegMap(@Self)^.&set := $00000040;
  77607. end;
  77608. procedure TCAN1_C1FIFOCON8.clearTXABAT; inline;
  77609. begin
  77610. pTDefRegMap(@Self)^.clr := $00000040;
  77611. end;
  77612. procedure TCAN1_C1FIFOCON8.setTXABAT(thebits : TBits_1); inline;
  77613. begin
  77614. if thebits = 0 then
  77615. pTDefRegMap(@Self)^.clr := $00000040
  77616. else
  77617. pTDefRegMap(@Self)^.&set := $00000040;
  77618. end;
  77619. function TCAN1_C1FIFOCON8.getTXABAT : TBits_1; inline;
  77620. begin
  77621. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  77622. end;
  77623. procedure TCAN1_C1FIFOCON8.setTXEN; inline;
  77624. begin
  77625. pTDefRegMap(@Self)^.&set := $00000080;
  77626. end;
  77627. procedure TCAN1_C1FIFOCON8.clearTXEN; inline;
  77628. begin
  77629. pTDefRegMap(@Self)^.clr := $00000080;
  77630. end;
  77631. procedure TCAN1_C1FIFOCON8.setTXEN(thebits : TBits_1); inline;
  77632. begin
  77633. if thebits = 0 then
  77634. pTDefRegMap(@Self)^.clr := $00000080
  77635. else
  77636. pTDefRegMap(@Self)^.&set := $00000080;
  77637. end;
  77638. function TCAN1_C1FIFOCON8.getTXEN : TBits_1; inline;
  77639. begin
  77640. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  77641. end;
  77642. procedure TCAN1_C1FIFOCON8.setDONLY; inline;
  77643. begin
  77644. pTDefRegMap(@Self)^.&set := $00001000;
  77645. end;
  77646. procedure TCAN1_C1FIFOCON8.clearDONLY; inline;
  77647. begin
  77648. pTDefRegMap(@Self)^.clr := $00001000;
  77649. end;
  77650. procedure TCAN1_C1FIFOCON8.setDONLY(thebits : TBits_1); inline;
  77651. begin
  77652. if thebits = 0 then
  77653. pTDefRegMap(@Self)^.clr := $00001000
  77654. else
  77655. pTDefRegMap(@Self)^.&set := $00001000;
  77656. end;
  77657. function TCAN1_C1FIFOCON8.getDONLY : TBits_1; inline;
  77658. begin
  77659. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  77660. end;
  77661. procedure TCAN1_C1FIFOCON8.setUINC; inline;
  77662. begin
  77663. pTDefRegMap(@Self)^.&set := $00002000;
  77664. end;
  77665. procedure TCAN1_C1FIFOCON8.clearUINC; inline;
  77666. begin
  77667. pTDefRegMap(@Self)^.clr := $00002000;
  77668. end;
  77669. procedure TCAN1_C1FIFOCON8.setUINC(thebits : TBits_1); inline;
  77670. begin
  77671. if thebits = 0 then
  77672. pTDefRegMap(@Self)^.clr := $00002000
  77673. else
  77674. pTDefRegMap(@Self)^.&set := $00002000;
  77675. end;
  77676. function TCAN1_C1FIFOCON8.getUINC : TBits_1; inline;
  77677. begin
  77678. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  77679. end;
  77680. procedure TCAN1_C1FIFOCON8.setFRESET; inline;
  77681. begin
  77682. pTDefRegMap(@Self)^.&set := $00004000;
  77683. end;
  77684. procedure TCAN1_C1FIFOCON8.clearFRESET; inline;
  77685. begin
  77686. pTDefRegMap(@Self)^.clr := $00004000;
  77687. end;
  77688. procedure TCAN1_C1FIFOCON8.setFRESET(thebits : TBits_1); inline;
  77689. begin
  77690. if thebits = 0 then
  77691. pTDefRegMap(@Self)^.clr := $00004000
  77692. else
  77693. pTDefRegMap(@Self)^.&set := $00004000;
  77694. end;
  77695. function TCAN1_C1FIFOCON8.getFRESET : TBits_1; inline;
  77696. begin
  77697. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  77698. end;
  77699. procedure TCAN1_C1FIFOCON8.setFSIZE(thebits : TBits_5); inline;
  77700. begin
  77701. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  77702. end;
  77703. function TCAN1_C1FIFOCON8.getFSIZE : TBits_5; inline;
  77704. begin
  77705. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  77706. end;
  77707. procedure TCAN1_C1FIFOCON8.setw(thebits : TBits_32); inline;
  77708. begin
  77709. pTDefRegMap(@Self)^.val := thebits;
  77710. end;
  77711. function TCAN1_C1FIFOCON8.getw : TBits_32; inline;
  77712. begin
  77713. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  77714. end;
  77715. procedure TCAN1_C1FIFOINT8.setRXNEMPTYIF; inline;
  77716. begin
  77717. pTDefRegMap(@Self)^.&set := $00000001;
  77718. end;
  77719. procedure TCAN1_C1FIFOINT8.clearRXNEMPTYIF; inline;
  77720. begin
  77721. pTDefRegMap(@Self)^.clr := $00000001;
  77722. end;
  77723. procedure TCAN1_C1FIFOINT8.setRXNEMPTYIF(thebits : TBits_1); inline;
  77724. begin
  77725. if thebits = 0 then
  77726. pTDefRegMap(@Self)^.clr := $00000001
  77727. else
  77728. pTDefRegMap(@Self)^.&set := $00000001;
  77729. end;
  77730. function TCAN1_C1FIFOINT8.getRXNEMPTYIF : TBits_1; inline;
  77731. begin
  77732. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  77733. end;
  77734. procedure TCAN1_C1FIFOINT8.setRXHALFIF; inline;
  77735. begin
  77736. pTDefRegMap(@Self)^.&set := $00000002;
  77737. end;
  77738. procedure TCAN1_C1FIFOINT8.clearRXHALFIF; inline;
  77739. begin
  77740. pTDefRegMap(@Self)^.clr := $00000002;
  77741. end;
  77742. procedure TCAN1_C1FIFOINT8.setRXHALFIF(thebits : TBits_1); inline;
  77743. begin
  77744. if thebits = 0 then
  77745. pTDefRegMap(@Self)^.clr := $00000002
  77746. else
  77747. pTDefRegMap(@Self)^.&set := $00000002;
  77748. end;
  77749. function TCAN1_C1FIFOINT8.getRXHALFIF : TBits_1; inline;
  77750. begin
  77751. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  77752. end;
  77753. procedure TCAN1_C1FIFOINT8.setRXFULLIF; inline;
  77754. begin
  77755. pTDefRegMap(@Self)^.&set := $00000004;
  77756. end;
  77757. procedure TCAN1_C1FIFOINT8.clearRXFULLIF; inline;
  77758. begin
  77759. pTDefRegMap(@Self)^.clr := $00000004;
  77760. end;
  77761. procedure TCAN1_C1FIFOINT8.setRXFULLIF(thebits : TBits_1); inline;
  77762. begin
  77763. if thebits = 0 then
  77764. pTDefRegMap(@Self)^.clr := $00000004
  77765. else
  77766. pTDefRegMap(@Self)^.&set := $00000004;
  77767. end;
  77768. function TCAN1_C1FIFOINT8.getRXFULLIF : TBits_1; inline;
  77769. begin
  77770. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  77771. end;
  77772. procedure TCAN1_C1FIFOINT8.setRXOVFLIF; inline;
  77773. begin
  77774. pTDefRegMap(@Self)^.&set := $00000008;
  77775. end;
  77776. procedure TCAN1_C1FIFOINT8.clearRXOVFLIF; inline;
  77777. begin
  77778. pTDefRegMap(@Self)^.clr := $00000008;
  77779. end;
  77780. procedure TCAN1_C1FIFOINT8.setRXOVFLIF(thebits : TBits_1); inline;
  77781. begin
  77782. if thebits = 0 then
  77783. pTDefRegMap(@Self)^.clr := $00000008
  77784. else
  77785. pTDefRegMap(@Self)^.&set := $00000008;
  77786. end;
  77787. function TCAN1_C1FIFOINT8.getRXOVFLIF : TBits_1; inline;
  77788. begin
  77789. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  77790. end;
  77791. procedure TCAN1_C1FIFOINT8.setTXEMPTYIF; inline;
  77792. begin
  77793. pTDefRegMap(@Self)^.&set := $00000100;
  77794. end;
  77795. procedure TCAN1_C1FIFOINT8.clearTXEMPTYIF; inline;
  77796. begin
  77797. pTDefRegMap(@Self)^.clr := $00000100;
  77798. end;
  77799. procedure TCAN1_C1FIFOINT8.setTXEMPTYIF(thebits : TBits_1); inline;
  77800. begin
  77801. if thebits = 0 then
  77802. pTDefRegMap(@Self)^.clr := $00000100
  77803. else
  77804. pTDefRegMap(@Self)^.&set := $00000100;
  77805. end;
  77806. function TCAN1_C1FIFOINT8.getTXEMPTYIF : TBits_1; inline;
  77807. begin
  77808. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  77809. end;
  77810. procedure TCAN1_C1FIFOINT8.setTXHALFIF; inline;
  77811. begin
  77812. pTDefRegMap(@Self)^.&set := $00000200;
  77813. end;
  77814. procedure TCAN1_C1FIFOINT8.clearTXHALFIF; inline;
  77815. begin
  77816. pTDefRegMap(@Self)^.clr := $00000200;
  77817. end;
  77818. procedure TCAN1_C1FIFOINT8.setTXHALFIF(thebits : TBits_1); inline;
  77819. begin
  77820. if thebits = 0 then
  77821. pTDefRegMap(@Self)^.clr := $00000200
  77822. else
  77823. pTDefRegMap(@Self)^.&set := $00000200;
  77824. end;
  77825. function TCAN1_C1FIFOINT8.getTXHALFIF : TBits_1; inline;
  77826. begin
  77827. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  77828. end;
  77829. procedure TCAN1_C1FIFOINT8.setTXNFULLIF; inline;
  77830. begin
  77831. pTDefRegMap(@Self)^.&set := $00000400;
  77832. end;
  77833. procedure TCAN1_C1FIFOINT8.clearTXNFULLIF; inline;
  77834. begin
  77835. pTDefRegMap(@Self)^.clr := $00000400;
  77836. end;
  77837. procedure TCAN1_C1FIFOINT8.setTXNFULLIF(thebits : TBits_1); inline;
  77838. begin
  77839. if thebits = 0 then
  77840. pTDefRegMap(@Self)^.clr := $00000400
  77841. else
  77842. pTDefRegMap(@Self)^.&set := $00000400;
  77843. end;
  77844. function TCAN1_C1FIFOINT8.getTXNFULLIF : TBits_1; inline;
  77845. begin
  77846. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  77847. end;
  77848. procedure TCAN1_C1FIFOINT8.setRXNEMPTYIE; inline;
  77849. begin
  77850. pTDefRegMap(@Self)^.&set := $00010000;
  77851. end;
  77852. procedure TCAN1_C1FIFOINT8.clearRXNEMPTYIE; inline;
  77853. begin
  77854. pTDefRegMap(@Self)^.clr := $00010000;
  77855. end;
  77856. procedure TCAN1_C1FIFOINT8.setRXNEMPTYIE(thebits : TBits_1); inline;
  77857. begin
  77858. if thebits = 0 then
  77859. pTDefRegMap(@Self)^.clr := $00010000
  77860. else
  77861. pTDefRegMap(@Self)^.&set := $00010000;
  77862. end;
  77863. function TCAN1_C1FIFOINT8.getRXNEMPTYIE : TBits_1; inline;
  77864. begin
  77865. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  77866. end;
  77867. procedure TCAN1_C1FIFOINT8.setRXHALFIE; inline;
  77868. begin
  77869. pTDefRegMap(@Self)^.&set := $00020000;
  77870. end;
  77871. procedure TCAN1_C1FIFOINT8.clearRXHALFIE; inline;
  77872. begin
  77873. pTDefRegMap(@Self)^.clr := $00020000;
  77874. end;
  77875. procedure TCAN1_C1FIFOINT8.setRXHALFIE(thebits : TBits_1); inline;
  77876. begin
  77877. if thebits = 0 then
  77878. pTDefRegMap(@Self)^.clr := $00020000
  77879. else
  77880. pTDefRegMap(@Self)^.&set := $00020000;
  77881. end;
  77882. function TCAN1_C1FIFOINT8.getRXHALFIE : TBits_1; inline;
  77883. begin
  77884. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  77885. end;
  77886. procedure TCAN1_C1FIFOINT8.setRXFULLIE; inline;
  77887. begin
  77888. pTDefRegMap(@Self)^.&set := $00040000;
  77889. end;
  77890. procedure TCAN1_C1FIFOINT8.clearRXFULLIE; inline;
  77891. begin
  77892. pTDefRegMap(@Self)^.clr := $00040000;
  77893. end;
  77894. procedure TCAN1_C1FIFOINT8.setRXFULLIE(thebits : TBits_1); inline;
  77895. begin
  77896. if thebits = 0 then
  77897. pTDefRegMap(@Self)^.clr := $00040000
  77898. else
  77899. pTDefRegMap(@Self)^.&set := $00040000;
  77900. end;
  77901. function TCAN1_C1FIFOINT8.getRXFULLIE : TBits_1; inline;
  77902. begin
  77903. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  77904. end;
  77905. procedure TCAN1_C1FIFOINT8.setRXOVFLIE; inline;
  77906. begin
  77907. pTDefRegMap(@Self)^.&set := $00080000;
  77908. end;
  77909. procedure TCAN1_C1FIFOINT8.clearRXOVFLIE; inline;
  77910. begin
  77911. pTDefRegMap(@Self)^.clr := $00080000;
  77912. end;
  77913. procedure TCAN1_C1FIFOINT8.setRXOVFLIE(thebits : TBits_1); inline;
  77914. begin
  77915. if thebits = 0 then
  77916. pTDefRegMap(@Self)^.clr := $00080000
  77917. else
  77918. pTDefRegMap(@Self)^.&set := $00080000;
  77919. end;
  77920. function TCAN1_C1FIFOINT8.getRXOVFLIE : TBits_1; inline;
  77921. begin
  77922. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  77923. end;
  77924. procedure TCAN1_C1FIFOINT8.setTXEMPTYIE; inline;
  77925. begin
  77926. pTDefRegMap(@Self)^.&set := $01000000;
  77927. end;
  77928. procedure TCAN1_C1FIFOINT8.clearTXEMPTYIE; inline;
  77929. begin
  77930. pTDefRegMap(@Self)^.clr := $01000000;
  77931. end;
  77932. procedure TCAN1_C1FIFOINT8.setTXEMPTYIE(thebits : TBits_1); inline;
  77933. begin
  77934. if thebits = 0 then
  77935. pTDefRegMap(@Self)^.clr := $01000000
  77936. else
  77937. pTDefRegMap(@Self)^.&set := $01000000;
  77938. end;
  77939. function TCAN1_C1FIFOINT8.getTXEMPTYIE : TBits_1; inline;
  77940. begin
  77941. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  77942. end;
  77943. procedure TCAN1_C1FIFOINT8.setTXHALFIE; inline;
  77944. begin
  77945. pTDefRegMap(@Self)^.&set := $02000000;
  77946. end;
  77947. procedure TCAN1_C1FIFOINT8.clearTXHALFIE; inline;
  77948. begin
  77949. pTDefRegMap(@Self)^.clr := $02000000;
  77950. end;
  77951. procedure TCAN1_C1FIFOINT8.setTXHALFIE(thebits : TBits_1); inline;
  77952. begin
  77953. if thebits = 0 then
  77954. pTDefRegMap(@Self)^.clr := $02000000
  77955. else
  77956. pTDefRegMap(@Self)^.&set := $02000000;
  77957. end;
  77958. function TCAN1_C1FIFOINT8.getTXHALFIE : TBits_1; inline;
  77959. begin
  77960. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  77961. end;
  77962. procedure TCAN1_C1FIFOINT8.setTXNFULLIE; inline;
  77963. begin
  77964. pTDefRegMap(@Self)^.&set := $04000000;
  77965. end;
  77966. procedure TCAN1_C1FIFOINT8.clearTXNFULLIE; inline;
  77967. begin
  77968. pTDefRegMap(@Self)^.clr := $04000000;
  77969. end;
  77970. procedure TCAN1_C1FIFOINT8.setTXNFULLIE(thebits : TBits_1); inline;
  77971. begin
  77972. if thebits = 0 then
  77973. pTDefRegMap(@Self)^.clr := $04000000
  77974. else
  77975. pTDefRegMap(@Self)^.&set := $04000000;
  77976. end;
  77977. function TCAN1_C1FIFOINT8.getTXNFULLIE : TBits_1; inline;
  77978. begin
  77979. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  77980. end;
  77981. procedure TCAN1_C1FIFOINT8.setw(thebits : TBits_32); inline;
  77982. begin
  77983. pTDefRegMap(@Self)^.val := thebits;
  77984. end;
  77985. function TCAN1_C1FIFOINT8.getw : TBits_32; inline;
  77986. begin
  77987. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  77988. end;
  77989. procedure TCAN1_C1FIFOCI8.setCFIFOCI(thebits : TBits_5); inline;
  77990. begin
  77991. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  77992. end;
  77993. function TCAN1_C1FIFOCI8.getCFIFOCI : TBits_5; inline;
  77994. begin
  77995. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  77996. end;
  77997. procedure TCAN1_C1FIFOCI8.setw(thebits : TBits_32); inline;
  77998. begin
  77999. pTDefRegMap(@Self)^.val := thebits;
  78000. end;
  78001. function TCAN1_C1FIFOCI8.getw : TBits_32; inline;
  78002. begin
  78003. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  78004. end;
  78005. procedure TCAN1_C1FIFOCON9.setTXPRI(thebits : TBits_2); inline;
  78006. begin
  78007. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  78008. end;
  78009. function TCAN1_C1FIFOCON9.getTXPRI : TBits_2; inline;
  78010. begin
  78011. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  78012. end;
  78013. procedure TCAN1_C1FIFOCON9.setRTREN; inline;
  78014. begin
  78015. pTDefRegMap(@Self)^.&set := $00000004;
  78016. end;
  78017. procedure TCAN1_C1FIFOCON9.clearRTREN; inline;
  78018. begin
  78019. pTDefRegMap(@Self)^.clr := $00000004;
  78020. end;
  78021. procedure TCAN1_C1FIFOCON9.setRTREN(thebits : TBits_1); inline;
  78022. begin
  78023. if thebits = 0 then
  78024. pTDefRegMap(@Self)^.clr := $00000004
  78025. else
  78026. pTDefRegMap(@Self)^.&set := $00000004;
  78027. end;
  78028. function TCAN1_C1FIFOCON9.getRTREN : TBits_1; inline;
  78029. begin
  78030. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  78031. end;
  78032. procedure TCAN1_C1FIFOCON9.setTXREQ; inline;
  78033. begin
  78034. pTDefRegMap(@Self)^.&set := $00000008;
  78035. end;
  78036. procedure TCAN1_C1FIFOCON9.clearTXREQ; inline;
  78037. begin
  78038. pTDefRegMap(@Self)^.clr := $00000008;
  78039. end;
  78040. procedure TCAN1_C1FIFOCON9.setTXREQ(thebits : TBits_1); inline;
  78041. begin
  78042. if thebits = 0 then
  78043. pTDefRegMap(@Self)^.clr := $00000008
  78044. else
  78045. pTDefRegMap(@Self)^.&set := $00000008;
  78046. end;
  78047. function TCAN1_C1FIFOCON9.getTXREQ : TBits_1; inline;
  78048. begin
  78049. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  78050. end;
  78051. procedure TCAN1_C1FIFOCON9.setTXERR; inline;
  78052. begin
  78053. pTDefRegMap(@Self)^.&set := $00000010;
  78054. end;
  78055. procedure TCAN1_C1FIFOCON9.clearTXERR; inline;
  78056. begin
  78057. pTDefRegMap(@Self)^.clr := $00000010;
  78058. end;
  78059. procedure TCAN1_C1FIFOCON9.setTXERR(thebits : TBits_1); inline;
  78060. begin
  78061. if thebits = 0 then
  78062. pTDefRegMap(@Self)^.clr := $00000010
  78063. else
  78064. pTDefRegMap(@Self)^.&set := $00000010;
  78065. end;
  78066. function TCAN1_C1FIFOCON9.getTXERR : TBits_1; inline;
  78067. begin
  78068. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  78069. end;
  78070. procedure TCAN1_C1FIFOCON9.setTXLARB; inline;
  78071. begin
  78072. pTDefRegMap(@Self)^.&set := $00000020;
  78073. end;
  78074. procedure TCAN1_C1FIFOCON9.clearTXLARB; inline;
  78075. begin
  78076. pTDefRegMap(@Self)^.clr := $00000020;
  78077. end;
  78078. procedure TCAN1_C1FIFOCON9.setTXLARB(thebits : TBits_1); inline;
  78079. begin
  78080. if thebits = 0 then
  78081. pTDefRegMap(@Self)^.clr := $00000020
  78082. else
  78083. pTDefRegMap(@Self)^.&set := $00000020;
  78084. end;
  78085. function TCAN1_C1FIFOCON9.getTXLARB : TBits_1; inline;
  78086. begin
  78087. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  78088. end;
  78089. procedure TCAN1_C1FIFOCON9.setTXABAT; inline;
  78090. begin
  78091. pTDefRegMap(@Self)^.&set := $00000040;
  78092. end;
  78093. procedure TCAN1_C1FIFOCON9.clearTXABAT; inline;
  78094. begin
  78095. pTDefRegMap(@Self)^.clr := $00000040;
  78096. end;
  78097. procedure TCAN1_C1FIFOCON9.setTXABAT(thebits : TBits_1); inline;
  78098. begin
  78099. if thebits = 0 then
  78100. pTDefRegMap(@Self)^.clr := $00000040
  78101. else
  78102. pTDefRegMap(@Self)^.&set := $00000040;
  78103. end;
  78104. function TCAN1_C1FIFOCON9.getTXABAT : TBits_1; inline;
  78105. begin
  78106. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  78107. end;
  78108. procedure TCAN1_C1FIFOCON9.setTXEN; inline;
  78109. begin
  78110. pTDefRegMap(@Self)^.&set := $00000080;
  78111. end;
  78112. procedure TCAN1_C1FIFOCON9.clearTXEN; inline;
  78113. begin
  78114. pTDefRegMap(@Self)^.clr := $00000080;
  78115. end;
  78116. procedure TCAN1_C1FIFOCON9.setTXEN(thebits : TBits_1); inline;
  78117. begin
  78118. if thebits = 0 then
  78119. pTDefRegMap(@Self)^.clr := $00000080
  78120. else
  78121. pTDefRegMap(@Self)^.&set := $00000080;
  78122. end;
  78123. function TCAN1_C1FIFOCON9.getTXEN : TBits_1; inline;
  78124. begin
  78125. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  78126. end;
  78127. procedure TCAN1_C1FIFOCON9.setDONLY; inline;
  78128. begin
  78129. pTDefRegMap(@Self)^.&set := $00001000;
  78130. end;
  78131. procedure TCAN1_C1FIFOCON9.clearDONLY; inline;
  78132. begin
  78133. pTDefRegMap(@Self)^.clr := $00001000;
  78134. end;
  78135. procedure TCAN1_C1FIFOCON9.setDONLY(thebits : TBits_1); inline;
  78136. begin
  78137. if thebits = 0 then
  78138. pTDefRegMap(@Self)^.clr := $00001000
  78139. else
  78140. pTDefRegMap(@Self)^.&set := $00001000;
  78141. end;
  78142. function TCAN1_C1FIFOCON9.getDONLY : TBits_1; inline;
  78143. begin
  78144. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  78145. end;
  78146. procedure TCAN1_C1FIFOCON9.setUINC; inline;
  78147. begin
  78148. pTDefRegMap(@Self)^.&set := $00002000;
  78149. end;
  78150. procedure TCAN1_C1FIFOCON9.clearUINC; inline;
  78151. begin
  78152. pTDefRegMap(@Self)^.clr := $00002000;
  78153. end;
  78154. procedure TCAN1_C1FIFOCON9.setUINC(thebits : TBits_1); inline;
  78155. begin
  78156. if thebits = 0 then
  78157. pTDefRegMap(@Self)^.clr := $00002000
  78158. else
  78159. pTDefRegMap(@Self)^.&set := $00002000;
  78160. end;
  78161. function TCAN1_C1FIFOCON9.getUINC : TBits_1; inline;
  78162. begin
  78163. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  78164. end;
  78165. procedure TCAN1_C1FIFOCON9.setFRESET; inline;
  78166. begin
  78167. pTDefRegMap(@Self)^.&set := $00004000;
  78168. end;
  78169. procedure TCAN1_C1FIFOCON9.clearFRESET; inline;
  78170. begin
  78171. pTDefRegMap(@Self)^.clr := $00004000;
  78172. end;
  78173. procedure TCAN1_C1FIFOCON9.setFRESET(thebits : TBits_1); inline;
  78174. begin
  78175. if thebits = 0 then
  78176. pTDefRegMap(@Self)^.clr := $00004000
  78177. else
  78178. pTDefRegMap(@Self)^.&set := $00004000;
  78179. end;
  78180. function TCAN1_C1FIFOCON9.getFRESET : TBits_1; inline;
  78181. begin
  78182. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  78183. end;
  78184. procedure TCAN1_C1FIFOCON9.setFSIZE(thebits : TBits_5); inline;
  78185. begin
  78186. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  78187. end;
  78188. function TCAN1_C1FIFOCON9.getFSIZE : TBits_5; inline;
  78189. begin
  78190. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  78191. end;
  78192. procedure TCAN1_C1FIFOCON9.setw(thebits : TBits_32); inline;
  78193. begin
  78194. pTDefRegMap(@Self)^.val := thebits;
  78195. end;
  78196. function TCAN1_C1FIFOCON9.getw : TBits_32; inline;
  78197. begin
  78198. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  78199. end;
  78200. procedure TCAN1_C1FIFOINT9.setRXNEMPTYIF; inline;
  78201. begin
  78202. pTDefRegMap(@Self)^.&set := $00000001;
  78203. end;
  78204. procedure TCAN1_C1FIFOINT9.clearRXNEMPTYIF; inline;
  78205. begin
  78206. pTDefRegMap(@Self)^.clr := $00000001;
  78207. end;
  78208. procedure TCAN1_C1FIFOINT9.setRXNEMPTYIF(thebits : TBits_1); inline;
  78209. begin
  78210. if thebits = 0 then
  78211. pTDefRegMap(@Self)^.clr := $00000001
  78212. else
  78213. pTDefRegMap(@Self)^.&set := $00000001;
  78214. end;
  78215. function TCAN1_C1FIFOINT9.getRXNEMPTYIF : TBits_1; inline;
  78216. begin
  78217. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  78218. end;
  78219. procedure TCAN1_C1FIFOINT9.setRXHALFIF; inline;
  78220. begin
  78221. pTDefRegMap(@Self)^.&set := $00000002;
  78222. end;
  78223. procedure TCAN1_C1FIFOINT9.clearRXHALFIF; inline;
  78224. begin
  78225. pTDefRegMap(@Self)^.clr := $00000002;
  78226. end;
  78227. procedure TCAN1_C1FIFOINT9.setRXHALFIF(thebits : TBits_1); inline;
  78228. begin
  78229. if thebits = 0 then
  78230. pTDefRegMap(@Self)^.clr := $00000002
  78231. else
  78232. pTDefRegMap(@Self)^.&set := $00000002;
  78233. end;
  78234. function TCAN1_C1FIFOINT9.getRXHALFIF : TBits_1; inline;
  78235. begin
  78236. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  78237. end;
  78238. procedure TCAN1_C1FIFOINT9.setRXFULLIF; inline;
  78239. begin
  78240. pTDefRegMap(@Self)^.&set := $00000004;
  78241. end;
  78242. procedure TCAN1_C1FIFOINT9.clearRXFULLIF; inline;
  78243. begin
  78244. pTDefRegMap(@Self)^.clr := $00000004;
  78245. end;
  78246. procedure TCAN1_C1FIFOINT9.setRXFULLIF(thebits : TBits_1); inline;
  78247. begin
  78248. if thebits = 0 then
  78249. pTDefRegMap(@Self)^.clr := $00000004
  78250. else
  78251. pTDefRegMap(@Self)^.&set := $00000004;
  78252. end;
  78253. function TCAN1_C1FIFOINT9.getRXFULLIF : TBits_1; inline;
  78254. begin
  78255. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  78256. end;
  78257. procedure TCAN1_C1FIFOINT9.setRXOVFLIF; inline;
  78258. begin
  78259. pTDefRegMap(@Self)^.&set := $00000008;
  78260. end;
  78261. procedure TCAN1_C1FIFOINT9.clearRXOVFLIF; inline;
  78262. begin
  78263. pTDefRegMap(@Self)^.clr := $00000008;
  78264. end;
  78265. procedure TCAN1_C1FIFOINT9.setRXOVFLIF(thebits : TBits_1); inline;
  78266. begin
  78267. if thebits = 0 then
  78268. pTDefRegMap(@Self)^.clr := $00000008
  78269. else
  78270. pTDefRegMap(@Self)^.&set := $00000008;
  78271. end;
  78272. function TCAN1_C1FIFOINT9.getRXOVFLIF : TBits_1; inline;
  78273. begin
  78274. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  78275. end;
  78276. procedure TCAN1_C1FIFOINT9.setTXEMPTYIF; inline;
  78277. begin
  78278. pTDefRegMap(@Self)^.&set := $00000100;
  78279. end;
  78280. procedure TCAN1_C1FIFOINT9.clearTXEMPTYIF; inline;
  78281. begin
  78282. pTDefRegMap(@Self)^.clr := $00000100;
  78283. end;
  78284. procedure TCAN1_C1FIFOINT9.setTXEMPTYIF(thebits : TBits_1); inline;
  78285. begin
  78286. if thebits = 0 then
  78287. pTDefRegMap(@Self)^.clr := $00000100
  78288. else
  78289. pTDefRegMap(@Self)^.&set := $00000100;
  78290. end;
  78291. function TCAN1_C1FIFOINT9.getTXEMPTYIF : TBits_1; inline;
  78292. begin
  78293. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  78294. end;
  78295. procedure TCAN1_C1FIFOINT9.setTXHALFIF; inline;
  78296. begin
  78297. pTDefRegMap(@Self)^.&set := $00000200;
  78298. end;
  78299. procedure TCAN1_C1FIFOINT9.clearTXHALFIF; inline;
  78300. begin
  78301. pTDefRegMap(@Self)^.clr := $00000200;
  78302. end;
  78303. procedure TCAN1_C1FIFOINT9.setTXHALFIF(thebits : TBits_1); inline;
  78304. begin
  78305. if thebits = 0 then
  78306. pTDefRegMap(@Self)^.clr := $00000200
  78307. else
  78308. pTDefRegMap(@Self)^.&set := $00000200;
  78309. end;
  78310. function TCAN1_C1FIFOINT9.getTXHALFIF : TBits_1; inline;
  78311. begin
  78312. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  78313. end;
  78314. procedure TCAN1_C1FIFOINT9.setTXNFULLIF; inline;
  78315. begin
  78316. pTDefRegMap(@Self)^.&set := $00000400;
  78317. end;
  78318. procedure TCAN1_C1FIFOINT9.clearTXNFULLIF; inline;
  78319. begin
  78320. pTDefRegMap(@Self)^.clr := $00000400;
  78321. end;
  78322. procedure TCAN1_C1FIFOINT9.setTXNFULLIF(thebits : TBits_1); inline;
  78323. begin
  78324. if thebits = 0 then
  78325. pTDefRegMap(@Self)^.clr := $00000400
  78326. else
  78327. pTDefRegMap(@Self)^.&set := $00000400;
  78328. end;
  78329. function TCAN1_C1FIFOINT9.getTXNFULLIF : TBits_1; inline;
  78330. begin
  78331. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  78332. end;
  78333. procedure TCAN1_C1FIFOINT9.setRXNEMPTYIE; inline;
  78334. begin
  78335. pTDefRegMap(@Self)^.&set := $00010000;
  78336. end;
  78337. procedure TCAN1_C1FIFOINT9.clearRXNEMPTYIE; inline;
  78338. begin
  78339. pTDefRegMap(@Self)^.clr := $00010000;
  78340. end;
  78341. procedure TCAN1_C1FIFOINT9.setRXNEMPTYIE(thebits : TBits_1); inline;
  78342. begin
  78343. if thebits = 0 then
  78344. pTDefRegMap(@Self)^.clr := $00010000
  78345. else
  78346. pTDefRegMap(@Self)^.&set := $00010000;
  78347. end;
  78348. function TCAN1_C1FIFOINT9.getRXNEMPTYIE : TBits_1; inline;
  78349. begin
  78350. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  78351. end;
  78352. procedure TCAN1_C1FIFOINT9.setRXHALFIE; inline;
  78353. begin
  78354. pTDefRegMap(@Self)^.&set := $00020000;
  78355. end;
  78356. procedure TCAN1_C1FIFOINT9.clearRXHALFIE; inline;
  78357. begin
  78358. pTDefRegMap(@Self)^.clr := $00020000;
  78359. end;
  78360. procedure TCAN1_C1FIFOINT9.setRXHALFIE(thebits : TBits_1); inline;
  78361. begin
  78362. if thebits = 0 then
  78363. pTDefRegMap(@Self)^.clr := $00020000
  78364. else
  78365. pTDefRegMap(@Self)^.&set := $00020000;
  78366. end;
  78367. function TCAN1_C1FIFOINT9.getRXHALFIE : TBits_1; inline;
  78368. begin
  78369. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  78370. end;
  78371. procedure TCAN1_C1FIFOINT9.setRXFULLIE; inline;
  78372. begin
  78373. pTDefRegMap(@Self)^.&set := $00040000;
  78374. end;
  78375. procedure TCAN1_C1FIFOINT9.clearRXFULLIE; inline;
  78376. begin
  78377. pTDefRegMap(@Self)^.clr := $00040000;
  78378. end;
  78379. procedure TCAN1_C1FIFOINT9.setRXFULLIE(thebits : TBits_1); inline;
  78380. begin
  78381. if thebits = 0 then
  78382. pTDefRegMap(@Self)^.clr := $00040000
  78383. else
  78384. pTDefRegMap(@Self)^.&set := $00040000;
  78385. end;
  78386. function TCAN1_C1FIFOINT9.getRXFULLIE : TBits_1; inline;
  78387. begin
  78388. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  78389. end;
  78390. procedure TCAN1_C1FIFOINT9.setRXOVFLIE; inline;
  78391. begin
  78392. pTDefRegMap(@Self)^.&set := $00080000;
  78393. end;
  78394. procedure TCAN1_C1FIFOINT9.clearRXOVFLIE; inline;
  78395. begin
  78396. pTDefRegMap(@Self)^.clr := $00080000;
  78397. end;
  78398. procedure TCAN1_C1FIFOINT9.setRXOVFLIE(thebits : TBits_1); inline;
  78399. begin
  78400. if thebits = 0 then
  78401. pTDefRegMap(@Self)^.clr := $00080000
  78402. else
  78403. pTDefRegMap(@Self)^.&set := $00080000;
  78404. end;
  78405. function TCAN1_C1FIFOINT9.getRXOVFLIE : TBits_1; inline;
  78406. begin
  78407. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  78408. end;
  78409. procedure TCAN1_C1FIFOINT9.setTXEMPTYIE; inline;
  78410. begin
  78411. pTDefRegMap(@Self)^.&set := $01000000;
  78412. end;
  78413. procedure TCAN1_C1FIFOINT9.clearTXEMPTYIE; inline;
  78414. begin
  78415. pTDefRegMap(@Self)^.clr := $01000000;
  78416. end;
  78417. procedure TCAN1_C1FIFOINT9.setTXEMPTYIE(thebits : TBits_1); inline;
  78418. begin
  78419. if thebits = 0 then
  78420. pTDefRegMap(@Self)^.clr := $01000000
  78421. else
  78422. pTDefRegMap(@Self)^.&set := $01000000;
  78423. end;
  78424. function TCAN1_C1FIFOINT9.getTXEMPTYIE : TBits_1; inline;
  78425. begin
  78426. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  78427. end;
  78428. procedure TCAN1_C1FIFOINT9.setTXHALFIE; inline;
  78429. begin
  78430. pTDefRegMap(@Self)^.&set := $02000000;
  78431. end;
  78432. procedure TCAN1_C1FIFOINT9.clearTXHALFIE; inline;
  78433. begin
  78434. pTDefRegMap(@Self)^.clr := $02000000;
  78435. end;
  78436. procedure TCAN1_C1FIFOINT9.setTXHALFIE(thebits : TBits_1); inline;
  78437. begin
  78438. if thebits = 0 then
  78439. pTDefRegMap(@Self)^.clr := $02000000
  78440. else
  78441. pTDefRegMap(@Self)^.&set := $02000000;
  78442. end;
  78443. function TCAN1_C1FIFOINT9.getTXHALFIE : TBits_1; inline;
  78444. begin
  78445. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  78446. end;
  78447. procedure TCAN1_C1FIFOINT9.setTXNFULLIE; inline;
  78448. begin
  78449. pTDefRegMap(@Self)^.&set := $04000000;
  78450. end;
  78451. procedure TCAN1_C1FIFOINT9.clearTXNFULLIE; inline;
  78452. begin
  78453. pTDefRegMap(@Self)^.clr := $04000000;
  78454. end;
  78455. procedure TCAN1_C1FIFOINT9.setTXNFULLIE(thebits : TBits_1); inline;
  78456. begin
  78457. if thebits = 0 then
  78458. pTDefRegMap(@Self)^.clr := $04000000
  78459. else
  78460. pTDefRegMap(@Self)^.&set := $04000000;
  78461. end;
  78462. function TCAN1_C1FIFOINT9.getTXNFULLIE : TBits_1; inline;
  78463. begin
  78464. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  78465. end;
  78466. procedure TCAN1_C1FIFOINT9.setw(thebits : TBits_32); inline;
  78467. begin
  78468. pTDefRegMap(@Self)^.val := thebits;
  78469. end;
  78470. function TCAN1_C1FIFOINT9.getw : TBits_32; inline;
  78471. begin
  78472. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  78473. end;
  78474. procedure TCAN1_C1FIFOCI9.setCFIFOCI(thebits : TBits_5); inline;
  78475. begin
  78476. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  78477. end;
  78478. function TCAN1_C1FIFOCI9.getCFIFOCI : TBits_5; inline;
  78479. begin
  78480. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  78481. end;
  78482. procedure TCAN1_C1FIFOCI9.setw(thebits : TBits_32); inline;
  78483. begin
  78484. pTDefRegMap(@Self)^.val := thebits;
  78485. end;
  78486. function TCAN1_C1FIFOCI9.getw : TBits_32; inline;
  78487. begin
  78488. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  78489. end;
  78490. procedure TCAN1_C1FIFOCON10.setTXPRI(thebits : TBits_2); inline;
  78491. begin
  78492. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  78493. end;
  78494. function TCAN1_C1FIFOCON10.getTXPRI : TBits_2; inline;
  78495. begin
  78496. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  78497. end;
  78498. procedure TCAN1_C1FIFOCON10.setRTREN; inline;
  78499. begin
  78500. pTDefRegMap(@Self)^.&set := $00000004;
  78501. end;
  78502. procedure TCAN1_C1FIFOCON10.clearRTREN; inline;
  78503. begin
  78504. pTDefRegMap(@Self)^.clr := $00000004;
  78505. end;
  78506. procedure TCAN1_C1FIFOCON10.setRTREN(thebits : TBits_1); inline;
  78507. begin
  78508. if thebits = 0 then
  78509. pTDefRegMap(@Self)^.clr := $00000004
  78510. else
  78511. pTDefRegMap(@Self)^.&set := $00000004;
  78512. end;
  78513. function TCAN1_C1FIFOCON10.getRTREN : TBits_1; inline;
  78514. begin
  78515. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  78516. end;
  78517. procedure TCAN1_C1FIFOCON10.setTXREQ; inline;
  78518. begin
  78519. pTDefRegMap(@Self)^.&set := $00000008;
  78520. end;
  78521. procedure TCAN1_C1FIFOCON10.clearTXREQ; inline;
  78522. begin
  78523. pTDefRegMap(@Self)^.clr := $00000008;
  78524. end;
  78525. procedure TCAN1_C1FIFOCON10.setTXREQ(thebits : TBits_1); inline;
  78526. begin
  78527. if thebits = 0 then
  78528. pTDefRegMap(@Self)^.clr := $00000008
  78529. else
  78530. pTDefRegMap(@Self)^.&set := $00000008;
  78531. end;
  78532. function TCAN1_C1FIFOCON10.getTXREQ : TBits_1; inline;
  78533. begin
  78534. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  78535. end;
  78536. procedure TCAN1_C1FIFOCON10.setTXERR; inline;
  78537. begin
  78538. pTDefRegMap(@Self)^.&set := $00000010;
  78539. end;
  78540. procedure TCAN1_C1FIFOCON10.clearTXERR; inline;
  78541. begin
  78542. pTDefRegMap(@Self)^.clr := $00000010;
  78543. end;
  78544. procedure TCAN1_C1FIFOCON10.setTXERR(thebits : TBits_1); inline;
  78545. begin
  78546. if thebits = 0 then
  78547. pTDefRegMap(@Self)^.clr := $00000010
  78548. else
  78549. pTDefRegMap(@Self)^.&set := $00000010;
  78550. end;
  78551. function TCAN1_C1FIFOCON10.getTXERR : TBits_1; inline;
  78552. begin
  78553. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  78554. end;
  78555. procedure TCAN1_C1FIFOCON10.setTXLARB; inline;
  78556. begin
  78557. pTDefRegMap(@Self)^.&set := $00000020;
  78558. end;
  78559. procedure TCAN1_C1FIFOCON10.clearTXLARB; inline;
  78560. begin
  78561. pTDefRegMap(@Self)^.clr := $00000020;
  78562. end;
  78563. procedure TCAN1_C1FIFOCON10.setTXLARB(thebits : TBits_1); inline;
  78564. begin
  78565. if thebits = 0 then
  78566. pTDefRegMap(@Self)^.clr := $00000020
  78567. else
  78568. pTDefRegMap(@Self)^.&set := $00000020;
  78569. end;
  78570. function TCAN1_C1FIFOCON10.getTXLARB : TBits_1; inline;
  78571. begin
  78572. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  78573. end;
  78574. procedure TCAN1_C1FIFOCON10.setTXABAT; inline;
  78575. begin
  78576. pTDefRegMap(@Self)^.&set := $00000040;
  78577. end;
  78578. procedure TCAN1_C1FIFOCON10.clearTXABAT; inline;
  78579. begin
  78580. pTDefRegMap(@Self)^.clr := $00000040;
  78581. end;
  78582. procedure TCAN1_C1FIFOCON10.setTXABAT(thebits : TBits_1); inline;
  78583. begin
  78584. if thebits = 0 then
  78585. pTDefRegMap(@Self)^.clr := $00000040
  78586. else
  78587. pTDefRegMap(@Self)^.&set := $00000040;
  78588. end;
  78589. function TCAN1_C1FIFOCON10.getTXABAT : TBits_1; inline;
  78590. begin
  78591. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  78592. end;
  78593. procedure TCAN1_C1FIFOCON10.setTXEN; inline;
  78594. begin
  78595. pTDefRegMap(@Self)^.&set := $00000080;
  78596. end;
  78597. procedure TCAN1_C1FIFOCON10.clearTXEN; inline;
  78598. begin
  78599. pTDefRegMap(@Self)^.clr := $00000080;
  78600. end;
  78601. procedure TCAN1_C1FIFOCON10.setTXEN(thebits : TBits_1); inline;
  78602. begin
  78603. if thebits = 0 then
  78604. pTDefRegMap(@Self)^.clr := $00000080
  78605. else
  78606. pTDefRegMap(@Self)^.&set := $00000080;
  78607. end;
  78608. function TCAN1_C1FIFOCON10.getTXEN : TBits_1; inline;
  78609. begin
  78610. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  78611. end;
  78612. procedure TCAN1_C1FIFOCON10.setDONLY; inline;
  78613. begin
  78614. pTDefRegMap(@Self)^.&set := $00001000;
  78615. end;
  78616. procedure TCAN1_C1FIFOCON10.clearDONLY; inline;
  78617. begin
  78618. pTDefRegMap(@Self)^.clr := $00001000;
  78619. end;
  78620. procedure TCAN1_C1FIFOCON10.setDONLY(thebits : TBits_1); inline;
  78621. begin
  78622. if thebits = 0 then
  78623. pTDefRegMap(@Self)^.clr := $00001000
  78624. else
  78625. pTDefRegMap(@Self)^.&set := $00001000;
  78626. end;
  78627. function TCAN1_C1FIFOCON10.getDONLY : TBits_1; inline;
  78628. begin
  78629. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  78630. end;
  78631. procedure TCAN1_C1FIFOCON10.setUINC; inline;
  78632. begin
  78633. pTDefRegMap(@Self)^.&set := $00002000;
  78634. end;
  78635. procedure TCAN1_C1FIFOCON10.clearUINC; inline;
  78636. begin
  78637. pTDefRegMap(@Self)^.clr := $00002000;
  78638. end;
  78639. procedure TCAN1_C1FIFOCON10.setUINC(thebits : TBits_1); inline;
  78640. begin
  78641. if thebits = 0 then
  78642. pTDefRegMap(@Self)^.clr := $00002000
  78643. else
  78644. pTDefRegMap(@Self)^.&set := $00002000;
  78645. end;
  78646. function TCAN1_C1FIFOCON10.getUINC : TBits_1; inline;
  78647. begin
  78648. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  78649. end;
  78650. procedure TCAN1_C1FIFOCON10.setFRESET; inline;
  78651. begin
  78652. pTDefRegMap(@Self)^.&set := $00004000;
  78653. end;
  78654. procedure TCAN1_C1FIFOCON10.clearFRESET; inline;
  78655. begin
  78656. pTDefRegMap(@Self)^.clr := $00004000;
  78657. end;
  78658. procedure TCAN1_C1FIFOCON10.setFRESET(thebits : TBits_1); inline;
  78659. begin
  78660. if thebits = 0 then
  78661. pTDefRegMap(@Self)^.clr := $00004000
  78662. else
  78663. pTDefRegMap(@Self)^.&set := $00004000;
  78664. end;
  78665. function TCAN1_C1FIFOCON10.getFRESET : TBits_1; inline;
  78666. begin
  78667. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  78668. end;
  78669. procedure TCAN1_C1FIFOCON10.setFSIZE(thebits : TBits_5); inline;
  78670. begin
  78671. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  78672. end;
  78673. function TCAN1_C1FIFOCON10.getFSIZE : TBits_5; inline;
  78674. begin
  78675. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  78676. end;
  78677. procedure TCAN1_C1FIFOCON10.setw(thebits : TBits_32); inline;
  78678. begin
  78679. pTDefRegMap(@Self)^.val := thebits;
  78680. end;
  78681. function TCAN1_C1FIFOCON10.getw : TBits_32; inline;
  78682. begin
  78683. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  78684. end;
  78685. procedure TCAN1_C1FIFOINT10.setRXNEMPTYIF; inline;
  78686. begin
  78687. pTDefRegMap(@Self)^.&set := $00000001;
  78688. end;
  78689. procedure TCAN1_C1FIFOINT10.clearRXNEMPTYIF; inline;
  78690. begin
  78691. pTDefRegMap(@Self)^.clr := $00000001;
  78692. end;
  78693. procedure TCAN1_C1FIFOINT10.setRXNEMPTYIF(thebits : TBits_1); inline;
  78694. begin
  78695. if thebits = 0 then
  78696. pTDefRegMap(@Self)^.clr := $00000001
  78697. else
  78698. pTDefRegMap(@Self)^.&set := $00000001;
  78699. end;
  78700. function TCAN1_C1FIFOINT10.getRXNEMPTYIF : TBits_1; inline;
  78701. begin
  78702. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  78703. end;
  78704. procedure TCAN1_C1FIFOINT10.setRXHALFIF; inline;
  78705. begin
  78706. pTDefRegMap(@Self)^.&set := $00000002;
  78707. end;
  78708. procedure TCAN1_C1FIFOINT10.clearRXHALFIF; inline;
  78709. begin
  78710. pTDefRegMap(@Self)^.clr := $00000002;
  78711. end;
  78712. procedure TCAN1_C1FIFOINT10.setRXHALFIF(thebits : TBits_1); inline;
  78713. begin
  78714. if thebits = 0 then
  78715. pTDefRegMap(@Self)^.clr := $00000002
  78716. else
  78717. pTDefRegMap(@Self)^.&set := $00000002;
  78718. end;
  78719. function TCAN1_C1FIFOINT10.getRXHALFIF : TBits_1; inline;
  78720. begin
  78721. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  78722. end;
  78723. procedure TCAN1_C1FIFOINT10.setRXFULLIF; inline;
  78724. begin
  78725. pTDefRegMap(@Self)^.&set := $00000004;
  78726. end;
  78727. procedure TCAN1_C1FIFOINT10.clearRXFULLIF; inline;
  78728. begin
  78729. pTDefRegMap(@Self)^.clr := $00000004;
  78730. end;
  78731. procedure TCAN1_C1FIFOINT10.setRXFULLIF(thebits : TBits_1); inline;
  78732. begin
  78733. if thebits = 0 then
  78734. pTDefRegMap(@Self)^.clr := $00000004
  78735. else
  78736. pTDefRegMap(@Self)^.&set := $00000004;
  78737. end;
  78738. function TCAN1_C1FIFOINT10.getRXFULLIF : TBits_1; inline;
  78739. begin
  78740. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  78741. end;
  78742. procedure TCAN1_C1FIFOINT10.setRXOVFLIF; inline;
  78743. begin
  78744. pTDefRegMap(@Self)^.&set := $00000008;
  78745. end;
  78746. procedure TCAN1_C1FIFOINT10.clearRXOVFLIF; inline;
  78747. begin
  78748. pTDefRegMap(@Self)^.clr := $00000008;
  78749. end;
  78750. procedure TCAN1_C1FIFOINT10.setRXOVFLIF(thebits : TBits_1); inline;
  78751. begin
  78752. if thebits = 0 then
  78753. pTDefRegMap(@Self)^.clr := $00000008
  78754. else
  78755. pTDefRegMap(@Self)^.&set := $00000008;
  78756. end;
  78757. function TCAN1_C1FIFOINT10.getRXOVFLIF : TBits_1; inline;
  78758. begin
  78759. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  78760. end;
  78761. procedure TCAN1_C1FIFOINT10.setTXEMPTYIF; inline;
  78762. begin
  78763. pTDefRegMap(@Self)^.&set := $00000100;
  78764. end;
  78765. procedure TCAN1_C1FIFOINT10.clearTXEMPTYIF; inline;
  78766. begin
  78767. pTDefRegMap(@Self)^.clr := $00000100;
  78768. end;
  78769. procedure TCAN1_C1FIFOINT10.setTXEMPTYIF(thebits : TBits_1); inline;
  78770. begin
  78771. if thebits = 0 then
  78772. pTDefRegMap(@Self)^.clr := $00000100
  78773. else
  78774. pTDefRegMap(@Self)^.&set := $00000100;
  78775. end;
  78776. function TCAN1_C1FIFOINT10.getTXEMPTYIF : TBits_1; inline;
  78777. begin
  78778. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  78779. end;
  78780. procedure TCAN1_C1FIFOINT10.setTXHALFIF; inline;
  78781. begin
  78782. pTDefRegMap(@Self)^.&set := $00000200;
  78783. end;
  78784. procedure TCAN1_C1FIFOINT10.clearTXHALFIF; inline;
  78785. begin
  78786. pTDefRegMap(@Self)^.clr := $00000200;
  78787. end;
  78788. procedure TCAN1_C1FIFOINT10.setTXHALFIF(thebits : TBits_1); inline;
  78789. begin
  78790. if thebits = 0 then
  78791. pTDefRegMap(@Self)^.clr := $00000200
  78792. else
  78793. pTDefRegMap(@Self)^.&set := $00000200;
  78794. end;
  78795. function TCAN1_C1FIFOINT10.getTXHALFIF : TBits_1; inline;
  78796. begin
  78797. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  78798. end;
  78799. procedure TCAN1_C1FIFOINT10.setTXNFULLIF; inline;
  78800. begin
  78801. pTDefRegMap(@Self)^.&set := $00000400;
  78802. end;
  78803. procedure TCAN1_C1FIFOINT10.clearTXNFULLIF; inline;
  78804. begin
  78805. pTDefRegMap(@Self)^.clr := $00000400;
  78806. end;
  78807. procedure TCAN1_C1FIFOINT10.setTXNFULLIF(thebits : TBits_1); inline;
  78808. begin
  78809. if thebits = 0 then
  78810. pTDefRegMap(@Self)^.clr := $00000400
  78811. else
  78812. pTDefRegMap(@Self)^.&set := $00000400;
  78813. end;
  78814. function TCAN1_C1FIFOINT10.getTXNFULLIF : TBits_1; inline;
  78815. begin
  78816. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  78817. end;
  78818. procedure TCAN1_C1FIFOINT10.setRXNEMPTYIE; inline;
  78819. begin
  78820. pTDefRegMap(@Self)^.&set := $00010000;
  78821. end;
  78822. procedure TCAN1_C1FIFOINT10.clearRXNEMPTYIE; inline;
  78823. begin
  78824. pTDefRegMap(@Self)^.clr := $00010000;
  78825. end;
  78826. procedure TCAN1_C1FIFOINT10.setRXNEMPTYIE(thebits : TBits_1); inline;
  78827. begin
  78828. if thebits = 0 then
  78829. pTDefRegMap(@Self)^.clr := $00010000
  78830. else
  78831. pTDefRegMap(@Self)^.&set := $00010000;
  78832. end;
  78833. function TCAN1_C1FIFOINT10.getRXNEMPTYIE : TBits_1; inline;
  78834. begin
  78835. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  78836. end;
  78837. procedure TCAN1_C1FIFOINT10.setRXHALFIE; inline;
  78838. begin
  78839. pTDefRegMap(@Self)^.&set := $00020000;
  78840. end;
  78841. procedure TCAN1_C1FIFOINT10.clearRXHALFIE; inline;
  78842. begin
  78843. pTDefRegMap(@Self)^.clr := $00020000;
  78844. end;
  78845. procedure TCAN1_C1FIFOINT10.setRXHALFIE(thebits : TBits_1); inline;
  78846. begin
  78847. if thebits = 0 then
  78848. pTDefRegMap(@Self)^.clr := $00020000
  78849. else
  78850. pTDefRegMap(@Self)^.&set := $00020000;
  78851. end;
  78852. function TCAN1_C1FIFOINT10.getRXHALFIE : TBits_1; inline;
  78853. begin
  78854. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  78855. end;
  78856. procedure TCAN1_C1FIFOINT10.setRXFULLIE; inline;
  78857. begin
  78858. pTDefRegMap(@Self)^.&set := $00040000;
  78859. end;
  78860. procedure TCAN1_C1FIFOINT10.clearRXFULLIE; inline;
  78861. begin
  78862. pTDefRegMap(@Self)^.clr := $00040000;
  78863. end;
  78864. procedure TCAN1_C1FIFOINT10.setRXFULLIE(thebits : TBits_1); inline;
  78865. begin
  78866. if thebits = 0 then
  78867. pTDefRegMap(@Self)^.clr := $00040000
  78868. else
  78869. pTDefRegMap(@Self)^.&set := $00040000;
  78870. end;
  78871. function TCAN1_C1FIFOINT10.getRXFULLIE : TBits_1; inline;
  78872. begin
  78873. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  78874. end;
  78875. procedure TCAN1_C1FIFOINT10.setRXOVFLIE; inline;
  78876. begin
  78877. pTDefRegMap(@Self)^.&set := $00080000;
  78878. end;
  78879. procedure TCAN1_C1FIFOINT10.clearRXOVFLIE; inline;
  78880. begin
  78881. pTDefRegMap(@Self)^.clr := $00080000;
  78882. end;
  78883. procedure TCAN1_C1FIFOINT10.setRXOVFLIE(thebits : TBits_1); inline;
  78884. begin
  78885. if thebits = 0 then
  78886. pTDefRegMap(@Self)^.clr := $00080000
  78887. else
  78888. pTDefRegMap(@Self)^.&set := $00080000;
  78889. end;
  78890. function TCAN1_C1FIFOINT10.getRXOVFLIE : TBits_1; inline;
  78891. begin
  78892. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  78893. end;
  78894. procedure TCAN1_C1FIFOINT10.setTXEMPTYIE; inline;
  78895. begin
  78896. pTDefRegMap(@Self)^.&set := $01000000;
  78897. end;
  78898. procedure TCAN1_C1FIFOINT10.clearTXEMPTYIE; inline;
  78899. begin
  78900. pTDefRegMap(@Self)^.clr := $01000000;
  78901. end;
  78902. procedure TCAN1_C1FIFOINT10.setTXEMPTYIE(thebits : TBits_1); inline;
  78903. begin
  78904. if thebits = 0 then
  78905. pTDefRegMap(@Self)^.clr := $01000000
  78906. else
  78907. pTDefRegMap(@Self)^.&set := $01000000;
  78908. end;
  78909. function TCAN1_C1FIFOINT10.getTXEMPTYIE : TBits_1; inline;
  78910. begin
  78911. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  78912. end;
  78913. procedure TCAN1_C1FIFOINT10.setTXHALFIE; inline;
  78914. begin
  78915. pTDefRegMap(@Self)^.&set := $02000000;
  78916. end;
  78917. procedure TCAN1_C1FIFOINT10.clearTXHALFIE; inline;
  78918. begin
  78919. pTDefRegMap(@Self)^.clr := $02000000;
  78920. end;
  78921. procedure TCAN1_C1FIFOINT10.setTXHALFIE(thebits : TBits_1); inline;
  78922. begin
  78923. if thebits = 0 then
  78924. pTDefRegMap(@Self)^.clr := $02000000
  78925. else
  78926. pTDefRegMap(@Self)^.&set := $02000000;
  78927. end;
  78928. function TCAN1_C1FIFOINT10.getTXHALFIE : TBits_1; inline;
  78929. begin
  78930. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  78931. end;
  78932. procedure TCAN1_C1FIFOINT10.setTXNFULLIE; inline;
  78933. begin
  78934. pTDefRegMap(@Self)^.&set := $04000000;
  78935. end;
  78936. procedure TCAN1_C1FIFOINT10.clearTXNFULLIE; inline;
  78937. begin
  78938. pTDefRegMap(@Self)^.clr := $04000000;
  78939. end;
  78940. procedure TCAN1_C1FIFOINT10.setTXNFULLIE(thebits : TBits_1); inline;
  78941. begin
  78942. if thebits = 0 then
  78943. pTDefRegMap(@Self)^.clr := $04000000
  78944. else
  78945. pTDefRegMap(@Self)^.&set := $04000000;
  78946. end;
  78947. function TCAN1_C1FIFOINT10.getTXNFULLIE : TBits_1; inline;
  78948. begin
  78949. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  78950. end;
  78951. procedure TCAN1_C1FIFOINT10.setw(thebits : TBits_32); inline;
  78952. begin
  78953. pTDefRegMap(@Self)^.val := thebits;
  78954. end;
  78955. function TCAN1_C1FIFOINT10.getw : TBits_32; inline;
  78956. begin
  78957. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  78958. end;
  78959. procedure TCAN1_C1FIFOCI10.setCFIFOCI(thebits : TBits_5); inline;
  78960. begin
  78961. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  78962. end;
  78963. function TCAN1_C1FIFOCI10.getCFIFOCI : TBits_5; inline;
  78964. begin
  78965. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  78966. end;
  78967. procedure TCAN1_C1FIFOCI10.setw(thebits : TBits_32); inline;
  78968. begin
  78969. pTDefRegMap(@Self)^.val := thebits;
  78970. end;
  78971. function TCAN1_C1FIFOCI10.getw : TBits_32; inline;
  78972. begin
  78973. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  78974. end;
  78975. procedure TCAN1_C1FIFOCON11.setTXPRI(thebits : TBits_2); inline;
  78976. begin
  78977. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  78978. end;
  78979. function TCAN1_C1FIFOCON11.getTXPRI : TBits_2; inline;
  78980. begin
  78981. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  78982. end;
  78983. procedure TCAN1_C1FIFOCON11.setRTREN; inline;
  78984. begin
  78985. pTDefRegMap(@Self)^.&set := $00000004;
  78986. end;
  78987. procedure TCAN1_C1FIFOCON11.clearRTREN; inline;
  78988. begin
  78989. pTDefRegMap(@Self)^.clr := $00000004;
  78990. end;
  78991. procedure TCAN1_C1FIFOCON11.setRTREN(thebits : TBits_1); inline;
  78992. begin
  78993. if thebits = 0 then
  78994. pTDefRegMap(@Self)^.clr := $00000004
  78995. else
  78996. pTDefRegMap(@Self)^.&set := $00000004;
  78997. end;
  78998. function TCAN1_C1FIFOCON11.getRTREN : TBits_1; inline;
  78999. begin
  79000. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  79001. end;
  79002. procedure TCAN1_C1FIFOCON11.setTXREQ; inline;
  79003. begin
  79004. pTDefRegMap(@Self)^.&set := $00000008;
  79005. end;
  79006. procedure TCAN1_C1FIFOCON11.clearTXREQ; inline;
  79007. begin
  79008. pTDefRegMap(@Self)^.clr := $00000008;
  79009. end;
  79010. procedure TCAN1_C1FIFOCON11.setTXREQ(thebits : TBits_1); inline;
  79011. begin
  79012. if thebits = 0 then
  79013. pTDefRegMap(@Self)^.clr := $00000008
  79014. else
  79015. pTDefRegMap(@Self)^.&set := $00000008;
  79016. end;
  79017. function TCAN1_C1FIFOCON11.getTXREQ : TBits_1; inline;
  79018. begin
  79019. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  79020. end;
  79021. procedure TCAN1_C1FIFOCON11.setTXERR; inline;
  79022. begin
  79023. pTDefRegMap(@Self)^.&set := $00000010;
  79024. end;
  79025. procedure TCAN1_C1FIFOCON11.clearTXERR; inline;
  79026. begin
  79027. pTDefRegMap(@Self)^.clr := $00000010;
  79028. end;
  79029. procedure TCAN1_C1FIFOCON11.setTXERR(thebits : TBits_1); inline;
  79030. begin
  79031. if thebits = 0 then
  79032. pTDefRegMap(@Self)^.clr := $00000010
  79033. else
  79034. pTDefRegMap(@Self)^.&set := $00000010;
  79035. end;
  79036. function TCAN1_C1FIFOCON11.getTXERR : TBits_1; inline;
  79037. begin
  79038. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  79039. end;
  79040. procedure TCAN1_C1FIFOCON11.setTXLARB; inline;
  79041. begin
  79042. pTDefRegMap(@Self)^.&set := $00000020;
  79043. end;
  79044. procedure TCAN1_C1FIFOCON11.clearTXLARB; inline;
  79045. begin
  79046. pTDefRegMap(@Self)^.clr := $00000020;
  79047. end;
  79048. procedure TCAN1_C1FIFOCON11.setTXLARB(thebits : TBits_1); inline;
  79049. begin
  79050. if thebits = 0 then
  79051. pTDefRegMap(@Self)^.clr := $00000020
  79052. else
  79053. pTDefRegMap(@Self)^.&set := $00000020;
  79054. end;
  79055. function TCAN1_C1FIFOCON11.getTXLARB : TBits_1; inline;
  79056. begin
  79057. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  79058. end;
  79059. procedure TCAN1_C1FIFOCON11.setTXABAT; inline;
  79060. begin
  79061. pTDefRegMap(@Self)^.&set := $00000040;
  79062. end;
  79063. procedure TCAN1_C1FIFOCON11.clearTXABAT; inline;
  79064. begin
  79065. pTDefRegMap(@Self)^.clr := $00000040;
  79066. end;
  79067. procedure TCAN1_C1FIFOCON11.setTXABAT(thebits : TBits_1); inline;
  79068. begin
  79069. if thebits = 0 then
  79070. pTDefRegMap(@Self)^.clr := $00000040
  79071. else
  79072. pTDefRegMap(@Self)^.&set := $00000040;
  79073. end;
  79074. function TCAN1_C1FIFOCON11.getTXABAT : TBits_1; inline;
  79075. begin
  79076. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  79077. end;
  79078. procedure TCAN1_C1FIFOCON11.setTXEN; inline;
  79079. begin
  79080. pTDefRegMap(@Self)^.&set := $00000080;
  79081. end;
  79082. procedure TCAN1_C1FIFOCON11.clearTXEN; inline;
  79083. begin
  79084. pTDefRegMap(@Self)^.clr := $00000080;
  79085. end;
  79086. procedure TCAN1_C1FIFOCON11.setTXEN(thebits : TBits_1); inline;
  79087. begin
  79088. if thebits = 0 then
  79089. pTDefRegMap(@Self)^.clr := $00000080
  79090. else
  79091. pTDefRegMap(@Self)^.&set := $00000080;
  79092. end;
  79093. function TCAN1_C1FIFOCON11.getTXEN : TBits_1; inline;
  79094. begin
  79095. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  79096. end;
  79097. procedure TCAN1_C1FIFOCON11.setDONLY; inline;
  79098. begin
  79099. pTDefRegMap(@Self)^.&set := $00001000;
  79100. end;
  79101. procedure TCAN1_C1FIFOCON11.clearDONLY; inline;
  79102. begin
  79103. pTDefRegMap(@Self)^.clr := $00001000;
  79104. end;
  79105. procedure TCAN1_C1FIFOCON11.setDONLY(thebits : TBits_1); inline;
  79106. begin
  79107. if thebits = 0 then
  79108. pTDefRegMap(@Self)^.clr := $00001000
  79109. else
  79110. pTDefRegMap(@Self)^.&set := $00001000;
  79111. end;
  79112. function TCAN1_C1FIFOCON11.getDONLY : TBits_1; inline;
  79113. begin
  79114. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  79115. end;
  79116. procedure TCAN1_C1FIFOCON11.setUINC; inline;
  79117. begin
  79118. pTDefRegMap(@Self)^.&set := $00002000;
  79119. end;
  79120. procedure TCAN1_C1FIFOCON11.clearUINC; inline;
  79121. begin
  79122. pTDefRegMap(@Self)^.clr := $00002000;
  79123. end;
  79124. procedure TCAN1_C1FIFOCON11.setUINC(thebits : TBits_1); inline;
  79125. begin
  79126. if thebits = 0 then
  79127. pTDefRegMap(@Self)^.clr := $00002000
  79128. else
  79129. pTDefRegMap(@Self)^.&set := $00002000;
  79130. end;
  79131. function TCAN1_C1FIFOCON11.getUINC : TBits_1; inline;
  79132. begin
  79133. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  79134. end;
  79135. procedure TCAN1_C1FIFOCON11.setFRESET; inline;
  79136. begin
  79137. pTDefRegMap(@Self)^.&set := $00004000;
  79138. end;
  79139. procedure TCAN1_C1FIFOCON11.clearFRESET; inline;
  79140. begin
  79141. pTDefRegMap(@Self)^.clr := $00004000;
  79142. end;
  79143. procedure TCAN1_C1FIFOCON11.setFRESET(thebits : TBits_1); inline;
  79144. begin
  79145. if thebits = 0 then
  79146. pTDefRegMap(@Self)^.clr := $00004000
  79147. else
  79148. pTDefRegMap(@Self)^.&set := $00004000;
  79149. end;
  79150. function TCAN1_C1FIFOCON11.getFRESET : TBits_1; inline;
  79151. begin
  79152. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  79153. end;
  79154. procedure TCAN1_C1FIFOCON11.setFSIZE(thebits : TBits_5); inline;
  79155. begin
  79156. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  79157. end;
  79158. function TCAN1_C1FIFOCON11.getFSIZE : TBits_5; inline;
  79159. begin
  79160. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  79161. end;
  79162. procedure TCAN1_C1FIFOCON11.setw(thebits : TBits_32); inline;
  79163. begin
  79164. pTDefRegMap(@Self)^.val := thebits;
  79165. end;
  79166. function TCAN1_C1FIFOCON11.getw : TBits_32; inline;
  79167. begin
  79168. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  79169. end;
  79170. procedure TCAN1_C1FIFOINT11.setRXNEMPTYIF; inline;
  79171. begin
  79172. pTDefRegMap(@Self)^.&set := $00000001;
  79173. end;
  79174. procedure TCAN1_C1FIFOINT11.clearRXNEMPTYIF; inline;
  79175. begin
  79176. pTDefRegMap(@Self)^.clr := $00000001;
  79177. end;
  79178. procedure TCAN1_C1FIFOINT11.setRXNEMPTYIF(thebits : TBits_1); inline;
  79179. begin
  79180. if thebits = 0 then
  79181. pTDefRegMap(@Self)^.clr := $00000001
  79182. else
  79183. pTDefRegMap(@Self)^.&set := $00000001;
  79184. end;
  79185. function TCAN1_C1FIFOINT11.getRXNEMPTYIF : TBits_1; inline;
  79186. begin
  79187. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  79188. end;
  79189. procedure TCAN1_C1FIFOINT11.setRXHALFIF; inline;
  79190. begin
  79191. pTDefRegMap(@Self)^.&set := $00000002;
  79192. end;
  79193. procedure TCAN1_C1FIFOINT11.clearRXHALFIF; inline;
  79194. begin
  79195. pTDefRegMap(@Self)^.clr := $00000002;
  79196. end;
  79197. procedure TCAN1_C1FIFOINT11.setRXHALFIF(thebits : TBits_1); inline;
  79198. begin
  79199. if thebits = 0 then
  79200. pTDefRegMap(@Self)^.clr := $00000002
  79201. else
  79202. pTDefRegMap(@Self)^.&set := $00000002;
  79203. end;
  79204. function TCAN1_C1FIFOINT11.getRXHALFIF : TBits_1; inline;
  79205. begin
  79206. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  79207. end;
  79208. procedure TCAN1_C1FIFOINT11.setRXFULLIF; inline;
  79209. begin
  79210. pTDefRegMap(@Self)^.&set := $00000004;
  79211. end;
  79212. procedure TCAN1_C1FIFOINT11.clearRXFULLIF; inline;
  79213. begin
  79214. pTDefRegMap(@Self)^.clr := $00000004;
  79215. end;
  79216. procedure TCAN1_C1FIFOINT11.setRXFULLIF(thebits : TBits_1); inline;
  79217. begin
  79218. if thebits = 0 then
  79219. pTDefRegMap(@Self)^.clr := $00000004
  79220. else
  79221. pTDefRegMap(@Self)^.&set := $00000004;
  79222. end;
  79223. function TCAN1_C1FIFOINT11.getRXFULLIF : TBits_1; inline;
  79224. begin
  79225. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  79226. end;
  79227. procedure TCAN1_C1FIFOINT11.setRXOVFLIF; inline;
  79228. begin
  79229. pTDefRegMap(@Self)^.&set := $00000008;
  79230. end;
  79231. procedure TCAN1_C1FIFOINT11.clearRXOVFLIF; inline;
  79232. begin
  79233. pTDefRegMap(@Self)^.clr := $00000008;
  79234. end;
  79235. procedure TCAN1_C1FIFOINT11.setRXOVFLIF(thebits : TBits_1); inline;
  79236. begin
  79237. if thebits = 0 then
  79238. pTDefRegMap(@Self)^.clr := $00000008
  79239. else
  79240. pTDefRegMap(@Self)^.&set := $00000008;
  79241. end;
  79242. function TCAN1_C1FIFOINT11.getRXOVFLIF : TBits_1; inline;
  79243. begin
  79244. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  79245. end;
  79246. procedure TCAN1_C1FIFOINT11.setTXEMPTYIF; inline;
  79247. begin
  79248. pTDefRegMap(@Self)^.&set := $00000100;
  79249. end;
  79250. procedure TCAN1_C1FIFOINT11.clearTXEMPTYIF; inline;
  79251. begin
  79252. pTDefRegMap(@Self)^.clr := $00000100;
  79253. end;
  79254. procedure TCAN1_C1FIFOINT11.setTXEMPTYIF(thebits : TBits_1); inline;
  79255. begin
  79256. if thebits = 0 then
  79257. pTDefRegMap(@Self)^.clr := $00000100
  79258. else
  79259. pTDefRegMap(@Self)^.&set := $00000100;
  79260. end;
  79261. function TCAN1_C1FIFOINT11.getTXEMPTYIF : TBits_1; inline;
  79262. begin
  79263. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  79264. end;
  79265. procedure TCAN1_C1FIFOINT11.setTXHALFIF; inline;
  79266. begin
  79267. pTDefRegMap(@Self)^.&set := $00000200;
  79268. end;
  79269. procedure TCAN1_C1FIFOINT11.clearTXHALFIF; inline;
  79270. begin
  79271. pTDefRegMap(@Self)^.clr := $00000200;
  79272. end;
  79273. procedure TCAN1_C1FIFOINT11.setTXHALFIF(thebits : TBits_1); inline;
  79274. begin
  79275. if thebits = 0 then
  79276. pTDefRegMap(@Self)^.clr := $00000200
  79277. else
  79278. pTDefRegMap(@Self)^.&set := $00000200;
  79279. end;
  79280. function TCAN1_C1FIFOINT11.getTXHALFIF : TBits_1; inline;
  79281. begin
  79282. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  79283. end;
  79284. procedure TCAN1_C1FIFOINT11.setTXNFULLIF; inline;
  79285. begin
  79286. pTDefRegMap(@Self)^.&set := $00000400;
  79287. end;
  79288. procedure TCAN1_C1FIFOINT11.clearTXNFULLIF; inline;
  79289. begin
  79290. pTDefRegMap(@Self)^.clr := $00000400;
  79291. end;
  79292. procedure TCAN1_C1FIFOINT11.setTXNFULLIF(thebits : TBits_1); inline;
  79293. begin
  79294. if thebits = 0 then
  79295. pTDefRegMap(@Self)^.clr := $00000400
  79296. else
  79297. pTDefRegMap(@Self)^.&set := $00000400;
  79298. end;
  79299. function TCAN1_C1FIFOINT11.getTXNFULLIF : TBits_1; inline;
  79300. begin
  79301. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  79302. end;
  79303. procedure TCAN1_C1FIFOINT11.setRXNEMPTYIE; inline;
  79304. begin
  79305. pTDefRegMap(@Self)^.&set := $00010000;
  79306. end;
  79307. procedure TCAN1_C1FIFOINT11.clearRXNEMPTYIE; inline;
  79308. begin
  79309. pTDefRegMap(@Self)^.clr := $00010000;
  79310. end;
  79311. procedure TCAN1_C1FIFOINT11.setRXNEMPTYIE(thebits : TBits_1); inline;
  79312. begin
  79313. if thebits = 0 then
  79314. pTDefRegMap(@Self)^.clr := $00010000
  79315. else
  79316. pTDefRegMap(@Self)^.&set := $00010000;
  79317. end;
  79318. function TCAN1_C1FIFOINT11.getRXNEMPTYIE : TBits_1; inline;
  79319. begin
  79320. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  79321. end;
  79322. procedure TCAN1_C1FIFOINT11.setRXHALFIE; inline;
  79323. begin
  79324. pTDefRegMap(@Self)^.&set := $00020000;
  79325. end;
  79326. procedure TCAN1_C1FIFOINT11.clearRXHALFIE; inline;
  79327. begin
  79328. pTDefRegMap(@Self)^.clr := $00020000;
  79329. end;
  79330. procedure TCAN1_C1FIFOINT11.setRXHALFIE(thebits : TBits_1); inline;
  79331. begin
  79332. if thebits = 0 then
  79333. pTDefRegMap(@Self)^.clr := $00020000
  79334. else
  79335. pTDefRegMap(@Self)^.&set := $00020000;
  79336. end;
  79337. function TCAN1_C1FIFOINT11.getRXHALFIE : TBits_1; inline;
  79338. begin
  79339. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  79340. end;
  79341. procedure TCAN1_C1FIFOINT11.setRXFULLIE; inline;
  79342. begin
  79343. pTDefRegMap(@Self)^.&set := $00040000;
  79344. end;
  79345. procedure TCAN1_C1FIFOINT11.clearRXFULLIE; inline;
  79346. begin
  79347. pTDefRegMap(@Self)^.clr := $00040000;
  79348. end;
  79349. procedure TCAN1_C1FIFOINT11.setRXFULLIE(thebits : TBits_1); inline;
  79350. begin
  79351. if thebits = 0 then
  79352. pTDefRegMap(@Self)^.clr := $00040000
  79353. else
  79354. pTDefRegMap(@Self)^.&set := $00040000;
  79355. end;
  79356. function TCAN1_C1FIFOINT11.getRXFULLIE : TBits_1; inline;
  79357. begin
  79358. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  79359. end;
  79360. procedure TCAN1_C1FIFOINT11.setRXOVFLIE; inline;
  79361. begin
  79362. pTDefRegMap(@Self)^.&set := $00080000;
  79363. end;
  79364. procedure TCAN1_C1FIFOINT11.clearRXOVFLIE; inline;
  79365. begin
  79366. pTDefRegMap(@Self)^.clr := $00080000;
  79367. end;
  79368. procedure TCAN1_C1FIFOINT11.setRXOVFLIE(thebits : TBits_1); inline;
  79369. begin
  79370. if thebits = 0 then
  79371. pTDefRegMap(@Self)^.clr := $00080000
  79372. else
  79373. pTDefRegMap(@Self)^.&set := $00080000;
  79374. end;
  79375. function TCAN1_C1FIFOINT11.getRXOVFLIE : TBits_1; inline;
  79376. begin
  79377. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  79378. end;
  79379. procedure TCAN1_C1FIFOINT11.setTXEMPTYIE; inline;
  79380. begin
  79381. pTDefRegMap(@Self)^.&set := $01000000;
  79382. end;
  79383. procedure TCAN1_C1FIFOINT11.clearTXEMPTYIE; inline;
  79384. begin
  79385. pTDefRegMap(@Self)^.clr := $01000000;
  79386. end;
  79387. procedure TCAN1_C1FIFOINT11.setTXEMPTYIE(thebits : TBits_1); inline;
  79388. begin
  79389. if thebits = 0 then
  79390. pTDefRegMap(@Self)^.clr := $01000000
  79391. else
  79392. pTDefRegMap(@Self)^.&set := $01000000;
  79393. end;
  79394. function TCAN1_C1FIFOINT11.getTXEMPTYIE : TBits_1; inline;
  79395. begin
  79396. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  79397. end;
  79398. procedure TCAN1_C1FIFOINT11.setTXHALFIE; inline;
  79399. begin
  79400. pTDefRegMap(@Self)^.&set := $02000000;
  79401. end;
  79402. procedure TCAN1_C1FIFOINT11.clearTXHALFIE; inline;
  79403. begin
  79404. pTDefRegMap(@Self)^.clr := $02000000;
  79405. end;
  79406. procedure TCAN1_C1FIFOINT11.setTXHALFIE(thebits : TBits_1); inline;
  79407. begin
  79408. if thebits = 0 then
  79409. pTDefRegMap(@Self)^.clr := $02000000
  79410. else
  79411. pTDefRegMap(@Self)^.&set := $02000000;
  79412. end;
  79413. function TCAN1_C1FIFOINT11.getTXHALFIE : TBits_1; inline;
  79414. begin
  79415. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  79416. end;
  79417. procedure TCAN1_C1FIFOINT11.setTXNFULLIE; inline;
  79418. begin
  79419. pTDefRegMap(@Self)^.&set := $04000000;
  79420. end;
  79421. procedure TCAN1_C1FIFOINT11.clearTXNFULLIE; inline;
  79422. begin
  79423. pTDefRegMap(@Self)^.clr := $04000000;
  79424. end;
  79425. procedure TCAN1_C1FIFOINT11.setTXNFULLIE(thebits : TBits_1); inline;
  79426. begin
  79427. if thebits = 0 then
  79428. pTDefRegMap(@Self)^.clr := $04000000
  79429. else
  79430. pTDefRegMap(@Self)^.&set := $04000000;
  79431. end;
  79432. function TCAN1_C1FIFOINT11.getTXNFULLIE : TBits_1; inline;
  79433. begin
  79434. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  79435. end;
  79436. procedure TCAN1_C1FIFOINT11.setw(thebits : TBits_32); inline;
  79437. begin
  79438. pTDefRegMap(@Self)^.val := thebits;
  79439. end;
  79440. function TCAN1_C1FIFOINT11.getw : TBits_32; inline;
  79441. begin
  79442. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  79443. end;
  79444. procedure TCAN1_C1FIFOCI11.setCFIFOCI(thebits : TBits_5); inline;
  79445. begin
  79446. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  79447. end;
  79448. function TCAN1_C1FIFOCI11.getCFIFOCI : TBits_5; inline;
  79449. begin
  79450. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  79451. end;
  79452. procedure TCAN1_C1FIFOCI11.setw(thebits : TBits_32); inline;
  79453. begin
  79454. pTDefRegMap(@Self)^.val := thebits;
  79455. end;
  79456. function TCAN1_C1FIFOCI11.getw : TBits_32; inline;
  79457. begin
  79458. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  79459. end;
  79460. procedure TCAN1_C1FIFOCON12.setTXPRI(thebits : TBits_2); inline;
  79461. begin
  79462. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  79463. end;
  79464. function TCAN1_C1FIFOCON12.getTXPRI : TBits_2; inline;
  79465. begin
  79466. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  79467. end;
  79468. procedure TCAN1_C1FIFOCON12.setRTREN; inline;
  79469. begin
  79470. pTDefRegMap(@Self)^.&set := $00000004;
  79471. end;
  79472. procedure TCAN1_C1FIFOCON12.clearRTREN; inline;
  79473. begin
  79474. pTDefRegMap(@Self)^.clr := $00000004;
  79475. end;
  79476. procedure TCAN1_C1FIFOCON12.setRTREN(thebits : TBits_1); inline;
  79477. begin
  79478. if thebits = 0 then
  79479. pTDefRegMap(@Self)^.clr := $00000004
  79480. else
  79481. pTDefRegMap(@Self)^.&set := $00000004;
  79482. end;
  79483. function TCAN1_C1FIFOCON12.getRTREN : TBits_1; inline;
  79484. begin
  79485. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  79486. end;
  79487. procedure TCAN1_C1FIFOCON12.setTXREQ; inline;
  79488. begin
  79489. pTDefRegMap(@Self)^.&set := $00000008;
  79490. end;
  79491. procedure TCAN1_C1FIFOCON12.clearTXREQ; inline;
  79492. begin
  79493. pTDefRegMap(@Self)^.clr := $00000008;
  79494. end;
  79495. procedure TCAN1_C1FIFOCON12.setTXREQ(thebits : TBits_1); inline;
  79496. begin
  79497. if thebits = 0 then
  79498. pTDefRegMap(@Self)^.clr := $00000008
  79499. else
  79500. pTDefRegMap(@Self)^.&set := $00000008;
  79501. end;
  79502. function TCAN1_C1FIFOCON12.getTXREQ : TBits_1; inline;
  79503. begin
  79504. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  79505. end;
  79506. procedure TCAN1_C1FIFOCON12.setTXERR; inline;
  79507. begin
  79508. pTDefRegMap(@Self)^.&set := $00000010;
  79509. end;
  79510. procedure TCAN1_C1FIFOCON12.clearTXERR; inline;
  79511. begin
  79512. pTDefRegMap(@Self)^.clr := $00000010;
  79513. end;
  79514. procedure TCAN1_C1FIFOCON12.setTXERR(thebits : TBits_1); inline;
  79515. begin
  79516. if thebits = 0 then
  79517. pTDefRegMap(@Self)^.clr := $00000010
  79518. else
  79519. pTDefRegMap(@Self)^.&set := $00000010;
  79520. end;
  79521. function TCAN1_C1FIFOCON12.getTXERR : TBits_1; inline;
  79522. begin
  79523. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  79524. end;
  79525. procedure TCAN1_C1FIFOCON12.setTXLARB; inline;
  79526. begin
  79527. pTDefRegMap(@Self)^.&set := $00000020;
  79528. end;
  79529. procedure TCAN1_C1FIFOCON12.clearTXLARB; inline;
  79530. begin
  79531. pTDefRegMap(@Self)^.clr := $00000020;
  79532. end;
  79533. procedure TCAN1_C1FIFOCON12.setTXLARB(thebits : TBits_1); inline;
  79534. begin
  79535. if thebits = 0 then
  79536. pTDefRegMap(@Self)^.clr := $00000020
  79537. else
  79538. pTDefRegMap(@Self)^.&set := $00000020;
  79539. end;
  79540. function TCAN1_C1FIFOCON12.getTXLARB : TBits_1; inline;
  79541. begin
  79542. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  79543. end;
  79544. procedure TCAN1_C1FIFOCON12.setTXABAT; inline;
  79545. begin
  79546. pTDefRegMap(@Self)^.&set := $00000040;
  79547. end;
  79548. procedure TCAN1_C1FIFOCON12.clearTXABAT; inline;
  79549. begin
  79550. pTDefRegMap(@Self)^.clr := $00000040;
  79551. end;
  79552. procedure TCAN1_C1FIFOCON12.setTXABAT(thebits : TBits_1); inline;
  79553. begin
  79554. if thebits = 0 then
  79555. pTDefRegMap(@Self)^.clr := $00000040
  79556. else
  79557. pTDefRegMap(@Self)^.&set := $00000040;
  79558. end;
  79559. function TCAN1_C1FIFOCON12.getTXABAT : TBits_1; inline;
  79560. begin
  79561. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  79562. end;
  79563. procedure TCAN1_C1FIFOCON12.setTXEN; inline;
  79564. begin
  79565. pTDefRegMap(@Self)^.&set := $00000080;
  79566. end;
  79567. procedure TCAN1_C1FIFOCON12.clearTXEN; inline;
  79568. begin
  79569. pTDefRegMap(@Self)^.clr := $00000080;
  79570. end;
  79571. procedure TCAN1_C1FIFOCON12.setTXEN(thebits : TBits_1); inline;
  79572. begin
  79573. if thebits = 0 then
  79574. pTDefRegMap(@Self)^.clr := $00000080
  79575. else
  79576. pTDefRegMap(@Self)^.&set := $00000080;
  79577. end;
  79578. function TCAN1_C1FIFOCON12.getTXEN : TBits_1; inline;
  79579. begin
  79580. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  79581. end;
  79582. procedure TCAN1_C1FIFOCON12.setDONLY; inline;
  79583. begin
  79584. pTDefRegMap(@Self)^.&set := $00001000;
  79585. end;
  79586. procedure TCAN1_C1FIFOCON12.clearDONLY; inline;
  79587. begin
  79588. pTDefRegMap(@Self)^.clr := $00001000;
  79589. end;
  79590. procedure TCAN1_C1FIFOCON12.setDONLY(thebits : TBits_1); inline;
  79591. begin
  79592. if thebits = 0 then
  79593. pTDefRegMap(@Self)^.clr := $00001000
  79594. else
  79595. pTDefRegMap(@Self)^.&set := $00001000;
  79596. end;
  79597. function TCAN1_C1FIFOCON12.getDONLY : TBits_1; inline;
  79598. begin
  79599. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  79600. end;
  79601. procedure TCAN1_C1FIFOCON12.setUINC; inline;
  79602. begin
  79603. pTDefRegMap(@Self)^.&set := $00002000;
  79604. end;
  79605. procedure TCAN1_C1FIFOCON12.clearUINC; inline;
  79606. begin
  79607. pTDefRegMap(@Self)^.clr := $00002000;
  79608. end;
  79609. procedure TCAN1_C1FIFOCON12.setUINC(thebits : TBits_1); inline;
  79610. begin
  79611. if thebits = 0 then
  79612. pTDefRegMap(@Self)^.clr := $00002000
  79613. else
  79614. pTDefRegMap(@Self)^.&set := $00002000;
  79615. end;
  79616. function TCAN1_C1FIFOCON12.getUINC : TBits_1; inline;
  79617. begin
  79618. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  79619. end;
  79620. procedure TCAN1_C1FIFOCON12.setFRESET; inline;
  79621. begin
  79622. pTDefRegMap(@Self)^.&set := $00004000;
  79623. end;
  79624. procedure TCAN1_C1FIFOCON12.clearFRESET; inline;
  79625. begin
  79626. pTDefRegMap(@Self)^.clr := $00004000;
  79627. end;
  79628. procedure TCAN1_C1FIFOCON12.setFRESET(thebits : TBits_1); inline;
  79629. begin
  79630. if thebits = 0 then
  79631. pTDefRegMap(@Self)^.clr := $00004000
  79632. else
  79633. pTDefRegMap(@Self)^.&set := $00004000;
  79634. end;
  79635. function TCAN1_C1FIFOCON12.getFRESET : TBits_1; inline;
  79636. begin
  79637. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  79638. end;
  79639. procedure TCAN1_C1FIFOCON12.setFSIZE(thebits : TBits_5); inline;
  79640. begin
  79641. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  79642. end;
  79643. function TCAN1_C1FIFOCON12.getFSIZE : TBits_5; inline;
  79644. begin
  79645. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  79646. end;
  79647. procedure TCAN1_C1FIFOCON12.setw(thebits : TBits_32); inline;
  79648. begin
  79649. pTDefRegMap(@Self)^.val := thebits;
  79650. end;
  79651. function TCAN1_C1FIFOCON12.getw : TBits_32; inline;
  79652. begin
  79653. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  79654. end;
  79655. procedure TCAN1_C1FIFOINT12.setRXNEMPTYIF; inline;
  79656. begin
  79657. pTDefRegMap(@Self)^.&set := $00000001;
  79658. end;
  79659. procedure TCAN1_C1FIFOINT12.clearRXNEMPTYIF; inline;
  79660. begin
  79661. pTDefRegMap(@Self)^.clr := $00000001;
  79662. end;
  79663. procedure TCAN1_C1FIFOINT12.setRXNEMPTYIF(thebits : TBits_1); inline;
  79664. begin
  79665. if thebits = 0 then
  79666. pTDefRegMap(@Self)^.clr := $00000001
  79667. else
  79668. pTDefRegMap(@Self)^.&set := $00000001;
  79669. end;
  79670. function TCAN1_C1FIFOINT12.getRXNEMPTYIF : TBits_1; inline;
  79671. begin
  79672. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  79673. end;
  79674. procedure TCAN1_C1FIFOINT12.setRXHALFIF; inline;
  79675. begin
  79676. pTDefRegMap(@Self)^.&set := $00000002;
  79677. end;
  79678. procedure TCAN1_C1FIFOINT12.clearRXHALFIF; inline;
  79679. begin
  79680. pTDefRegMap(@Self)^.clr := $00000002;
  79681. end;
  79682. procedure TCAN1_C1FIFOINT12.setRXHALFIF(thebits : TBits_1); inline;
  79683. begin
  79684. if thebits = 0 then
  79685. pTDefRegMap(@Self)^.clr := $00000002
  79686. else
  79687. pTDefRegMap(@Self)^.&set := $00000002;
  79688. end;
  79689. function TCAN1_C1FIFOINT12.getRXHALFIF : TBits_1; inline;
  79690. begin
  79691. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  79692. end;
  79693. procedure TCAN1_C1FIFOINT12.setRXFULLIF; inline;
  79694. begin
  79695. pTDefRegMap(@Self)^.&set := $00000004;
  79696. end;
  79697. procedure TCAN1_C1FIFOINT12.clearRXFULLIF; inline;
  79698. begin
  79699. pTDefRegMap(@Self)^.clr := $00000004;
  79700. end;
  79701. procedure TCAN1_C1FIFOINT12.setRXFULLIF(thebits : TBits_1); inline;
  79702. begin
  79703. if thebits = 0 then
  79704. pTDefRegMap(@Self)^.clr := $00000004
  79705. else
  79706. pTDefRegMap(@Self)^.&set := $00000004;
  79707. end;
  79708. function TCAN1_C1FIFOINT12.getRXFULLIF : TBits_1; inline;
  79709. begin
  79710. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  79711. end;
  79712. procedure TCAN1_C1FIFOINT12.setRXOVFLIF; inline;
  79713. begin
  79714. pTDefRegMap(@Self)^.&set := $00000008;
  79715. end;
  79716. procedure TCAN1_C1FIFOINT12.clearRXOVFLIF; inline;
  79717. begin
  79718. pTDefRegMap(@Self)^.clr := $00000008;
  79719. end;
  79720. procedure TCAN1_C1FIFOINT12.setRXOVFLIF(thebits : TBits_1); inline;
  79721. begin
  79722. if thebits = 0 then
  79723. pTDefRegMap(@Self)^.clr := $00000008
  79724. else
  79725. pTDefRegMap(@Self)^.&set := $00000008;
  79726. end;
  79727. function TCAN1_C1FIFOINT12.getRXOVFLIF : TBits_1; inline;
  79728. begin
  79729. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  79730. end;
  79731. procedure TCAN1_C1FIFOINT12.setTXEMPTYIF; inline;
  79732. begin
  79733. pTDefRegMap(@Self)^.&set := $00000100;
  79734. end;
  79735. procedure TCAN1_C1FIFOINT12.clearTXEMPTYIF; inline;
  79736. begin
  79737. pTDefRegMap(@Self)^.clr := $00000100;
  79738. end;
  79739. procedure TCAN1_C1FIFOINT12.setTXEMPTYIF(thebits : TBits_1); inline;
  79740. begin
  79741. if thebits = 0 then
  79742. pTDefRegMap(@Self)^.clr := $00000100
  79743. else
  79744. pTDefRegMap(@Self)^.&set := $00000100;
  79745. end;
  79746. function TCAN1_C1FIFOINT12.getTXEMPTYIF : TBits_1; inline;
  79747. begin
  79748. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  79749. end;
  79750. procedure TCAN1_C1FIFOINT12.setTXHALFIF; inline;
  79751. begin
  79752. pTDefRegMap(@Self)^.&set := $00000200;
  79753. end;
  79754. procedure TCAN1_C1FIFOINT12.clearTXHALFIF; inline;
  79755. begin
  79756. pTDefRegMap(@Self)^.clr := $00000200;
  79757. end;
  79758. procedure TCAN1_C1FIFOINT12.setTXHALFIF(thebits : TBits_1); inline;
  79759. begin
  79760. if thebits = 0 then
  79761. pTDefRegMap(@Self)^.clr := $00000200
  79762. else
  79763. pTDefRegMap(@Self)^.&set := $00000200;
  79764. end;
  79765. function TCAN1_C1FIFOINT12.getTXHALFIF : TBits_1; inline;
  79766. begin
  79767. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  79768. end;
  79769. procedure TCAN1_C1FIFOINT12.setTXNFULLIF; inline;
  79770. begin
  79771. pTDefRegMap(@Self)^.&set := $00000400;
  79772. end;
  79773. procedure TCAN1_C1FIFOINT12.clearTXNFULLIF; inline;
  79774. begin
  79775. pTDefRegMap(@Self)^.clr := $00000400;
  79776. end;
  79777. procedure TCAN1_C1FIFOINT12.setTXNFULLIF(thebits : TBits_1); inline;
  79778. begin
  79779. if thebits = 0 then
  79780. pTDefRegMap(@Self)^.clr := $00000400
  79781. else
  79782. pTDefRegMap(@Self)^.&set := $00000400;
  79783. end;
  79784. function TCAN1_C1FIFOINT12.getTXNFULLIF : TBits_1; inline;
  79785. begin
  79786. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  79787. end;
  79788. procedure TCAN1_C1FIFOINT12.setRXNEMPTYIE; inline;
  79789. begin
  79790. pTDefRegMap(@Self)^.&set := $00010000;
  79791. end;
  79792. procedure TCAN1_C1FIFOINT12.clearRXNEMPTYIE; inline;
  79793. begin
  79794. pTDefRegMap(@Self)^.clr := $00010000;
  79795. end;
  79796. procedure TCAN1_C1FIFOINT12.setRXNEMPTYIE(thebits : TBits_1); inline;
  79797. begin
  79798. if thebits = 0 then
  79799. pTDefRegMap(@Self)^.clr := $00010000
  79800. else
  79801. pTDefRegMap(@Self)^.&set := $00010000;
  79802. end;
  79803. function TCAN1_C1FIFOINT12.getRXNEMPTYIE : TBits_1; inline;
  79804. begin
  79805. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  79806. end;
  79807. procedure TCAN1_C1FIFOINT12.setRXHALFIE; inline;
  79808. begin
  79809. pTDefRegMap(@Self)^.&set := $00020000;
  79810. end;
  79811. procedure TCAN1_C1FIFOINT12.clearRXHALFIE; inline;
  79812. begin
  79813. pTDefRegMap(@Self)^.clr := $00020000;
  79814. end;
  79815. procedure TCAN1_C1FIFOINT12.setRXHALFIE(thebits : TBits_1); inline;
  79816. begin
  79817. if thebits = 0 then
  79818. pTDefRegMap(@Self)^.clr := $00020000
  79819. else
  79820. pTDefRegMap(@Self)^.&set := $00020000;
  79821. end;
  79822. function TCAN1_C1FIFOINT12.getRXHALFIE : TBits_1; inline;
  79823. begin
  79824. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  79825. end;
  79826. procedure TCAN1_C1FIFOINT12.setRXFULLIE; inline;
  79827. begin
  79828. pTDefRegMap(@Self)^.&set := $00040000;
  79829. end;
  79830. procedure TCAN1_C1FIFOINT12.clearRXFULLIE; inline;
  79831. begin
  79832. pTDefRegMap(@Self)^.clr := $00040000;
  79833. end;
  79834. procedure TCAN1_C1FIFOINT12.setRXFULLIE(thebits : TBits_1); inline;
  79835. begin
  79836. if thebits = 0 then
  79837. pTDefRegMap(@Self)^.clr := $00040000
  79838. else
  79839. pTDefRegMap(@Self)^.&set := $00040000;
  79840. end;
  79841. function TCAN1_C1FIFOINT12.getRXFULLIE : TBits_1; inline;
  79842. begin
  79843. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  79844. end;
  79845. procedure TCAN1_C1FIFOINT12.setRXOVFLIE; inline;
  79846. begin
  79847. pTDefRegMap(@Self)^.&set := $00080000;
  79848. end;
  79849. procedure TCAN1_C1FIFOINT12.clearRXOVFLIE; inline;
  79850. begin
  79851. pTDefRegMap(@Self)^.clr := $00080000;
  79852. end;
  79853. procedure TCAN1_C1FIFOINT12.setRXOVFLIE(thebits : TBits_1); inline;
  79854. begin
  79855. if thebits = 0 then
  79856. pTDefRegMap(@Self)^.clr := $00080000
  79857. else
  79858. pTDefRegMap(@Self)^.&set := $00080000;
  79859. end;
  79860. function TCAN1_C1FIFOINT12.getRXOVFLIE : TBits_1; inline;
  79861. begin
  79862. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  79863. end;
  79864. procedure TCAN1_C1FIFOINT12.setTXEMPTYIE; inline;
  79865. begin
  79866. pTDefRegMap(@Self)^.&set := $01000000;
  79867. end;
  79868. procedure TCAN1_C1FIFOINT12.clearTXEMPTYIE; inline;
  79869. begin
  79870. pTDefRegMap(@Self)^.clr := $01000000;
  79871. end;
  79872. procedure TCAN1_C1FIFOINT12.setTXEMPTYIE(thebits : TBits_1); inline;
  79873. begin
  79874. if thebits = 0 then
  79875. pTDefRegMap(@Self)^.clr := $01000000
  79876. else
  79877. pTDefRegMap(@Self)^.&set := $01000000;
  79878. end;
  79879. function TCAN1_C1FIFOINT12.getTXEMPTYIE : TBits_1; inline;
  79880. begin
  79881. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  79882. end;
  79883. procedure TCAN1_C1FIFOINT12.setTXHALFIE; inline;
  79884. begin
  79885. pTDefRegMap(@Self)^.&set := $02000000;
  79886. end;
  79887. procedure TCAN1_C1FIFOINT12.clearTXHALFIE; inline;
  79888. begin
  79889. pTDefRegMap(@Self)^.clr := $02000000;
  79890. end;
  79891. procedure TCAN1_C1FIFOINT12.setTXHALFIE(thebits : TBits_1); inline;
  79892. begin
  79893. if thebits = 0 then
  79894. pTDefRegMap(@Self)^.clr := $02000000
  79895. else
  79896. pTDefRegMap(@Self)^.&set := $02000000;
  79897. end;
  79898. function TCAN1_C1FIFOINT12.getTXHALFIE : TBits_1; inline;
  79899. begin
  79900. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  79901. end;
  79902. procedure TCAN1_C1FIFOINT12.setTXNFULLIE; inline;
  79903. begin
  79904. pTDefRegMap(@Self)^.&set := $04000000;
  79905. end;
  79906. procedure TCAN1_C1FIFOINT12.clearTXNFULLIE; inline;
  79907. begin
  79908. pTDefRegMap(@Self)^.clr := $04000000;
  79909. end;
  79910. procedure TCAN1_C1FIFOINT12.setTXNFULLIE(thebits : TBits_1); inline;
  79911. begin
  79912. if thebits = 0 then
  79913. pTDefRegMap(@Self)^.clr := $04000000
  79914. else
  79915. pTDefRegMap(@Self)^.&set := $04000000;
  79916. end;
  79917. function TCAN1_C1FIFOINT12.getTXNFULLIE : TBits_1; inline;
  79918. begin
  79919. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  79920. end;
  79921. procedure TCAN1_C1FIFOINT12.setw(thebits : TBits_32); inline;
  79922. begin
  79923. pTDefRegMap(@Self)^.val := thebits;
  79924. end;
  79925. function TCAN1_C1FIFOINT12.getw : TBits_32; inline;
  79926. begin
  79927. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  79928. end;
  79929. procedure TCAN1_C1FIFOCI12.setCFIFOCI(thebits : TBits_5); inline;
  79930. begin
  79931. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  79932. end;
  79933. function TCAN1_C1FIFOCI12.getCFIFOCI : TBits_5; inline;
  79934. begin
  79935. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  79936. end;
  79937. procedure TCAN1_C1FIFOCI12.setw(thebits : TBits_32); inline;
  79938. begin
  79939. pTDefRegMap(@Self)^.val := thebits;
  79940. end;
  79941. function TCAN1_C1FIFOCI12.getw : TBits_32; inline;
  79942. begin
  79943. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  79944. end;
  79945. procedure TCAN1_C1FIFOCON13.setTXPRI(thebits : TBits_2); inline;
  79946. begin
  79947. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  79948. end;
  79949. function TCAN1_C1FIFOCON13.getTXPRI : TBits_2; inline;
  79950. begin
  79951. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  79952. end;
  79953. procedure TCAN1_C1FIFOCON13.setRTREN; inline;
  79954. begin
  79955. pTDefRegMap(@Self)^.&set := $00000004;
  79956. end;
  79957. procedure TCAN1_C1FIFOCON13.clearRTREN; inline;
  79958. begin
  79959. pTDefRegMap(@Self)^.clr := $00000004;
  79960. end;
  79961. procedure TCAN1_C1FIFOCON13.setRTREN(thebits : TBits_1); inline;
  79962. begin
  79963. if thebits = 0 then
  79964. pTDefRegMap(@Self)^.clr := $00000004
  79965. else
  79966. pTDefRegMap(@Self)^.&set := $00000004;
  79967. end;
  79968. function TCAN1_C1FIFOCON13.getRTREN : TBits_1; inline;
  79969. begin
  79970. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  79971. end;
  79972. procedure TCAN1_C1FIFOCON13.setTXREQ; inline;
  79973. begin
  79974. pTDefRegMap(@Self)^.&set := $00000008;
  79975. end;
  79976. procedure TCAN1_C1FIFOCON13.clearTXREQ; inline;
  79977. begin
  79978. pTDefRegMap(@Self)^.clr := $00000008;
  79979. end;
  79980. procedure TCAN1_C1FIFOCON13.setTXREQ(thebits : TBits_1); inline;
  79981. begin
  79982. if thebits = 0 then
  79983. pTDefRegMap(@Self)^.clr := $00000008
  79984. else
  79985. pTDefRegMap(@Self)^.&set := $00000008;
  79986. end;
  79987. function TCAN1_C1FIFOCON13.getTXREQ : TBits_1; inline;
  79988. begin
  79989. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  79990. end;
  79991. procedure TCAN1_C1FIFOCON13.setTXERR; inline;
  79992. begin
  79993. pTDefRegMap(@Self)^.&set := $00000010;
  79994. end;
  79995. procedure TCAN1_C1FIFOCON13.clearTXERR; inline;
  79996. begin
  79997. pTDefRegMap(@Self)^.clr := $00000010;
  79998. end;
  79999. procedure TCAN1_C1FIFOCON13.setTXERR(thebits : TBits_1); inline;
  80000. begin
  80001. if thebits = 0 then
  80002. pTDefRegMap(@Self)^.clr := $00000010
  80003. else
  80004. pTDefRegMap(@Self)^.&set := $00000010;
  80005. end;
  80006. function TCAN1_C1FIFOCON13.getTXERR : TBits_1; inline;
  80007. begin
  80008. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  80009. end;
  80010. procedure TCAN1_C1FIFOCON13.setTXLARB; inline;
  80011. begin
  80012. pTDefRegMap(@Self)^.&set := $00000020;
  80013. end;
  80014. procedure TCAN1_C1FIFOCON13.clearTXLARB; inline;
  80015. begin
  80016. pTDefRegMap(@Self)^.clr := $00000020;
  80017. end;
  80018. procedure TCAN1_C1FIFOCON13.setTXLARB(thebits : TBits_1); inline;
  80019. begin
  80020. if thebits = 0 then
  80021. pTDefRegMap(@Self)^.clr := $00000020
  80022. else
  80023. pTDefRegMap(@Self)^.&set := $00000020;
  80024. end;
  80025. function TCAN1_C1FIFOCON13.getTXLARB : TBits_1; inline;
  80026. begin
  80027. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  80028. end;
  80029. procedure TCAN1_C1FIFOCON13.setTXABAT; inline;
  80030. begin
  80031. pTDefRegMap(@Self)^.&set := $00000040;
  80032. end;
  80033. procedure TCAN1_C1FIFOCON13.clearTXABAT; inline;
  80034. begin
  80035. pTDefRegMap(@Self)^.clr := $00000040;
  80036. end;
  80037. procedure TCAN1_C1FIFOCON13.setTXABAT(thebits : TBits_1); inline;
  80038. begin
  80039. if thebits = 0 then
  80040. pTDefRegMap(@Self)^.clr := $00000040
  80041. else
  80042. pTDefRegMap(@Self)^.&set := $00000040;
  80043. end;
  80044. function TCAN1_C1FIFOCON13.getTXABAT : TBits_1; inline;
  80045. begin
  80046. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  80047. end;
  80048. procedure TCAN1_C1FIFOCON13.setTXEN; inline;
  80049. begin
  80050. pTDefRegMap(@Self)^.&set := $00000080;
  80051. end;
  80052. procedure TCAN1_C1FIFOCON13.clearTXEN; inline;
  80053. begin
  80054. pTDefRegMap(@Self)^.clr := $00000080;
  80055. end;
  80056. procedure TCAN1_C1FIFOCON13.setTXEN(thebits : TBits_1); inline;
  80057. begin
  80058. if thebits = 0 then
  80059. pTDefRegMap(@Self)^.clr := $00000080
  80060. else
  80061. pTDefRegMap(@Self)^.&set := $00000080;
  80062. end;
  80063. function TCAN1_C1FIFOCON13.getTXEN : TBits_1; inline;
  80064. begin
  80065. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  80066. end;
  80067. procedure TCAN1_C1FIFOCON13.setDONLY; inline;
  80068. begin
  80069. pTDefRegMap(@Self)^.&set := $00001000;
  80070. end;
  80071. procedure TCAN1_C1FIFOCON13.clearDONLY; inline;
  80072. begin
  80073. pTDefRegMap(@Self)^.clr := $00001000;
  80074. end;
  80075. procedure TCAN1_C1FIFOCON13.setDONLY(thebits : TBits_1); inline;
  80076. begin
  80077. if thebits = 0 then
  80078. pTDefRegMap(@Self)^.clr := $00001000
  80079. else
  80080. pTDefRegMap(@Self)^.&set := $00001000;
  80081. end;
  80082. function TCAN1_C1FIFOCON13.getDONLY : TBits_1; inline;
  80083. begin
  80084. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  80085. end;
  80086. procedure TCAN1_C1FIFOCON13.setUINC; inline;
  80087. begin
  80088. pTDefRegMap(@Self)^.&set := $00002000;
  80089. end;
  80090. procedure TCAN1_C1FIFOCON13.clearUINC; inline;
  80091. begin
  80092. pTDefRegMap(@Self)^.clr := $00002000;
  80093. end;
  80094. procedure TCAN1_C1FIFOCON13.setUINC(thebits : TBits_1); inline;
  80095. begin
  80096. if thebits = 0 then
  80097. pTDefRegMap(@Self)^.clr := $00002000
  80098. else
  80099. pTDefRegMap(@Self)^.&set := $00002000;
  80100. end;
  80101. function TCAN1_C1FIFOCON13.getUINC : TBits_1; inline;
  80102. begin
  80103. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  80104. end;
  80105. procedure TCAN1_C1FIFOCON13.setFRESET; inline;
  80106. begin
  80107. pTDefRegMap(@Self)^.&set := $00004000;
  80108. end;
  80109. procedure TCAN1_C1FIFOCON13.clearFRESET; inline;
  80110. begin
  80111. pTDefRegMap(@Self)^.clr := $00004000;
  80112. end;
  80113. procedure TCAN1_C1FIFOCON13.setFRESET(thebits : TBits_1); inline;
  80114. begin
  80115. if thebits = 0 then
  80116. pTDefRegMap(@Self)^.clr := $00004000
  80117. else
  80118. pTDefRegMap(@Self)^.&set := $00004000;
  80119. end;
  80120. function TCAN1_C1FIFOCON13.getFRESET : TBits_1; inline;
  80121. begin
  80122. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  80123. end;
  80124. procedure TCAN1_C1FIFOCON13.setFSIZE(thebits : TBits_5); inline;
  80125. begin
  80126. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  80127. end;
  80128. function TCAN1_C1FIFOCON13.getFSIZE : TBits_5; inline;
  80129. begin
  80130. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  80131. end;
  80132. procedure TCAN1_C1FIFOCON13.setw(thebits : TBits_32); inline;
  80133. begin
  80134. pTDefRegMap(@Self)^.val := thebits;
  80135. end;
  80136. function TCAN1_C1FIFOCON13.getw : TBits_32; inline;
  80137. begin
  80138. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  80139. end;
  80140. procedure TCAN1_C1FIFOINT13.setRXNEMPTYIF; inline;
  80141. begin
  80142. pTDefRegMap(@Self)^.&set := $00000001;
  80143. end;
  80144. procedure TCAN1_C1FIFOINT13.clearRXNEMPTYIF; inline;
  80145. begin
  80146. pTDefRegMap(@Self)^.clr := $00000001;
  80147. end;
  80148. procedure TCAN1_C1FIFOINT13.setRXNEMPTYIF(thebits : TBits_1); inline;
  80149. begin
  80150. if thebits = 0 then
  80151. pTDefRegMap(@Self)^.clr := $00000001
  80152. else
  80153. pTDefRegMap(@Self)^.&set := $00000001;
  80154. end;
  80155. function TCAN1_C1FIFOINT13.getRXNEMPTYIF : TBits_1; inline;
  80156. begin
  80157. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  80158. end;
  80159. procedure TCAN1_C1FIFOINT13.setRXHALFIF; inline;
  80160. begin
  80161. pTDefRegMap(@Self)^.&set := $00000002;
  80162. end;
  80163. procedure TCAN1_C1FIFOINT13.clearRXHALFIF; inline;
  80164. begin
  80165. pTDefRegMap(@Self)^.clr := $00000002;
  80166. end;
  80167. procedure TCAN1_C1FIFOINT13.setRXHALFIF(thebits : TBits_1); inline;
  80168. begin
  80169. if thebits = 0 then
  80170. pTDefRegMap(@Self)^.clr := $00000002
  80171. else
  80172. pTDefRegMap(@Self)^.&set := $00000002;
  80173. end;
  80174. function TCAN1_C1FIFOINT13.getRXHALFIF : TBits_1; inline;
  80175. begin
  80176. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  80177. end;
  80178. procedure TCAN1_C1FIFOINT13.setRXFULLIF; inline;
  80179. begin
  80180. pTDefRegMap(@Self)^.&set := $00000004;
  80181. end;
  80182. procedure TCAN1_C1FIFOINT13.clearRXFULLIF; inline;
  80183. begin
  80184. pTDefRegMap(@Self)^.clr := $00000004;
  80185. end;
  80186. procedure TCAN1_C1FIFOINT13.setRXFULLIF(thebits : TBits_1); inline;
  80187. begin
  80188. if thebits = 0 then
  80189. pTDefRegMap(@Self)^.clr := $00000004
  80190. else
  80191. pTDefRegMap(@Self)^.&set := $00000004;
  80192. end;
  80193. function TCAN1_C1FIFOINT13.getRXFULLIF : TBits_1; inline;
  80194. begin
  80195. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  80196. end;
  80197. procedure TCAN1_C1FIFOINT13.setRXOVFLIF; inline;
  80198. begin
  80199. pTDefRegMap(@Self)^.&set := $00000008;
  80200. end;
  80201. procedure TCAN1_C1FIFOINT13.clearRXOVFLIF; inline;
  80202. begin
  80203. pTDefRegMap(@Self)^.clr := $00000008;
  80204. end;
  80205. procedure TCAN1_C1FIFOINT13.setRXOVFLIF(thebits : TBits_1); inline;
  80206. begin
  80207. if thebits = 0 then
  80208. pTDefRegMap(@Self)^.clr := $00000008
  80209. else
  80210. pTDefRegMap(@Self)^.&set := $00000008;
  80211. end;
  80212. function TCAN1_C1FIFOINT13.getRXOVFLIF : TBits_1; inline;
  80213. begin
  80214. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  80215. end;
  80216. procedure TCAN1_C1FIFOINT13.setTXEMPTYIF; inline;
  80217. begin
  80218. pTDefRegMap(@Self)^.&set := $00000100;
  80219. end;
  80220. procedure TCAN1_C1FIFOINT13.clearTXEMPTYIF; inline;
  80221. begin
  80222. pTDefRegMap(@Self)^.clr := $00000100;
  80223. end;
  80224. procedure TCAN1_C1FIFOINT13.setTXEMPTYIF(thebits : TBits_1); inline;
  80225. begin
  80226. if thebits = 0 then
  80227. pTDefRegMap(@Self)^.clr := $00000100
  80228. else
  80229. pTDefRegMap(@Self)^.&set := $00000100;
  80230. end;
  80231. function TCAN1_C1FIFOINT13.getTXEMPTYIF : TBits_1; inline;
  80232. begin
  80233. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  80234. end;
  80235. procedure TCAN1_C1FIFOINT13.setTXHALFIF; inline;
  80236. begin
  80237. pTDefRegMap(@Self)^.&set := $00000200;
  80238. end;
  80239. procedure TCAN1_C1FIFOINT13.clearTXHALFIF; inline;
  80240. begin
  80241. pTDefRegMap(@Self)^.clr := $00000200;
  80242. end;
  80243. procedure TCAN1_C1FIFOINT13.setTXHALFIF(thebits : TBits_1); inline;
  80244. begin
  80245. if thebits = 0 then
  80246. pTDefRegMap(@Self)^.clr := $00000200
  80247. else
  80248. pTDefRegMap(@Self)^.&set := $00000200;
  80249. end;
  80250. function TCAN1_C1FIFOINT13.getTXHALFIF : TBits_1; inline;
  80251. begin
  80252. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  80253. end;
  80254. procedure TCAN1_C1FIFOINT13.setTXNFULLIF; inline;
  80255. begin
  80256. pTDefRegMap(@Self)^.&set := $00000400;
  80257. end;
  80258. procedure TCAN1_C1FIFOINT13.clearTXNFULLIF; inline;
  80259. begin
  80260. pTDefRegMap(@Self)^.clr := $00000400;
  80261. end;
  80262. procedure TCAN1_C1FIFOINT13.setTXNFULLIF(thebits : TBits_1); inline;
  80263. begin
  80264. if thebits = 0 then
  80265. pTDefRegMap(@Self)^.clr := $00000400
  80266. else
  80267. pTDefRegMap(@Self)^.&set := $00000400;
  80268. end;
  80269. function TCAN1_C1FIFOINT13.getTXNFULLIF : TBits_1; inline;
  80270. begin
  80271. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  80272. end;
  80273. procedure TCAN1_C1FIFOINT13.setRXNEMPTYIE; inline;
  80274. begin
  80275. pTDefRegMap(@Self)^.&set := $00010000;
  80276. end;
  80277. procedure TCAN1_C1FIFOINT13.clearRXNEMPTYIE; inline;
  80278. begin
  80279. pTDefRegMap(@Self)^.clr := $00010000;
  80280. end;
  80281. procedure TCAN1_C1FIFOINT13.setRXNEMPTYIE(thebits : TBits_1); inline;
  80282. begin
  80283. if thebits = 0 then
  80284. pTDefRegMap(@Self)^.clr := $00010000
  80285. else
  80286. pTDefRegMap(@Self)^.&set := $00010000;
  80287. end;
  80288. function TCAN1_C1FIFOINT13.getRXNEMPTYIE : TBits_1; inline;
  80289. begin
  80290. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  80291. end;
  80292. procedure TCAN1_C1FIFOINT13.setRXHALFIE; inline;
  80293. begin
  80294. pTDefRegMap(@Self)^.&set := $00020000;
  80295. end;
  80296. procedure TCAN1_C1FIFOINT13.clearRXHALFIE; inline;
  80297. begin
  80298. pTDefRegMap(@Self)^.clr := $00020000;
  80299. end;
  80300. procedure TCAN1_C1FIFOINT13.setRXHALFIE(thebits : TBits_1); inline;
  80301. begin
  80302. if thebits = 0 then
  80303. pTDefRegMap(@Self)^.clr := $00020000
  80304. else
  80305. pTDefRegMap(@Self)^.&set := $00020000;
  80306. end;
  80307. function TCAN1_C1FIFOINT13.getRXHALFIE : TBits_1; inline;
  80308. begin
  80309. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  80310. end;
  80311. procedure TCAN1_C1FIFOINT13.setRXFULLIE; inline;
  80312. begin
  80313. pTDefRegMap(@Self)^.&set := $00040000;
  80314. end;
  80315. procedure TCAN1_C1FIFOINT13.clearRXFULLIE; inline;
  80316. begin
  80317. pTDefRegMap(@Self)^.clr := $00040000;
  80318. end;
  80319. procedure TCAN1_C1FIFOINT13.setRXFULLIE(thebits : TBits_1); inline;
  80320. begin
  80321. if thebits = 0 then
  80322. pTDefRegMap(@Self)^.clr := $00040000
  80323. else
  80324. pTDefRegMap(@Self)^.&set := $00040000;
  80325. end;
  80326. function TCAN1_C1FIFOINT13.getRXFULLIE : TBits_1; inline;
  80327. begin
  80328. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  80329. end;
  80330. procedure TCAN1_C1FIFOINT13.setRXOVFLIE; inline;
  80331. begin
  80332. pTDefRegMap(@Self)^.&set := $00080000;
  80333. end;
  80334. procedure TCAN1_C1FIFOINT13.clearRXOVFLIE; inline;
  80335. begin
  80336. pTDefRegMap(@Self)^.clr := $00080000;
  80337. end;
  80338. procedure TCAN1_C1FIFOINT13.setRXOVFLIE(thebits : TBits_1); inline;
  80339. begin
  80340. if thebits = 0 then
  80341. pTDefRegMap(@Self)^.clr := $00080000
  80342. else
  80343. pTDefRegMap(@Self)^.&set := $00080000;
  80344. end;
  80345. function TCAN1_C1FIFOINT13.getRXOVFLIE : TBits_1; inline;
  80346. begin
  80347. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  80348. end;
  80349. procedure TCAN1_C1FIFOINT13.setTXEMPTYIE; inline;
  80350. begin
  80351. pTDefRegMap(@Self)^.&set := $01000000;
  80352. end;
  80353. procedure TCAN1_C1FIFOINT13.clearTXEMPTYIE; inline;
  80354. begin
  80355. pTDefRegMap(@Self)^.clr := $01000000;
  80356. end;
  80357. procedure TCAN1_C1FIFOINT13.setTXEMPTYIE(thebits : TBits_1); inline;
  80358. begin
  80359. if thebits = 0 then
  80360. pTDefRegMap(@Self)^.clr := $01000000
  80361. else
  80362. pTDefRegMap(@Self)^.&set := $01000000;
  80363. end;
  80364. function TCAN1_C1FIFOINT13.getTXEMPTYIE : TBits_1; inline;
  80365. begin
  80366. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  80367. end;
  80368. procedure TCAN1_C1FIFOINT13.setTXHALFIE; inline;
  80369. begin
  80370. pTDefRegMap(@Self)^.&set := $02000000;
  80371. end;
  80372. procedure TCAN1_C1FIFOINT13.clearTXHALFIE; inline;
  80373. begin
  80374. pTDefRegMap(@Self)^.clr := $02000000;
  80375. end;
  80376. procedure TCAN1_C1FIFOINT13.setTXHALFIE(thebits : TBits_1); inline;
  80377. begin
  80378. if thebits = 0 then
  80379. pTDefRegMap(@Self)^.clr := $02000000
  80380. else
  80381. pTDefRegMap(@Self)^.&set := $02000000;
  80382. end;
  80383. function TCAN1_C1FIFOINT13.getTXHALFIE : TBits_1; inline;
  80384. begin
  80385. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  80386. end;
  80387. procedure TCAN1_C1FIFOINT13.setTXNFULLIE; inline;
  80388. begin
  80389. pTDefRegMap(@Self)^.&set := $04000000;
  80390. end;
  80391. procedure TCAN1_C1FIFOINT13.clearTXNFULLIE; inline;
  80392. begin
  80393. pTDefRegMap(@Self)^.clr := $04000000;
  80394. end;
  80395. procedure TCAN1_C1FIFOINT13.setTXNFULLIE(thebits : TBits_1); inline;
  80396. begin
  80397. if thebits = 0 then
  80398. pTDefRegMap(@Self)^.clr := $04000000
  80399. else
  80400. pTDefRegMap(@Self)^.&set := $04000000;
  80401. end;
  80402. function TCAN1_C1FIFOINT13.getTXNFULLIE : TBits_1; inline;
  80403. begin
  80404. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  80405. end;
  80406. procedure TCAN1_C1FIFOINT13.setw(thebits : TBits_32); inline;
  80407. begin
  80408. pTDefRegMap(@Self)^.val := thebits;
  80409. end;
  80410. function TCAN1_C1FIFOINT13.getw : TBits_32; inline;
  80411. begin
  80412. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  80413. end;
  80414. procedure TCAN1_C1FIFOCI13.setCFIFOCI(thebits : TBits_5); inline;
  80415. begin
  80416. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  80417. end;
  80418. function TCAN1_C1FIFOCI13.getCFIFOCI : TBits_5; inline;
  80419. begin
  80420. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  80421. end;
  80422. procedure TCAN1_C1FIFOCI13.setw(thebits : TBits_32); inline;
  80423. begin
  80424. pTDefRegMap(@Self)^.val := thebits;
  80425. end;
  80426. function TCAN1_C1FIFOCI13.getw : TBits_32; inline;
  80427. begin
  80428. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  80429. end;
  80430. procedure TCAN1_C1FIFOCON14.setTXPRI(thebits : TBits_2); inline;
  80431. begin
  80432. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  80433. end;
  80434. function TCAN1_C1FIFOCON14.getTXPRI : TBits_2; inline;
  80435. begin
  80436. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  80437. end;
  80438. procedure TCAN1_C1FIFOCON14.setRTREN; inline;
  80439. begin
  80440. pTDefRegMap(@Self)^.&set := $00000004;
  80441. end;
  80442. procedure TCAN1_C1FIFOCON14.clearRTREN; inline;
  80443. begin
  80444. pTDefRegMap(@Self)^.clr := $00000004;
  80445. end;
  80446. procedure TCAN1_C1FIFOCON14.setRTREN(thebits : TBits_1); inline;
  80447. begin
  80448. if thebits = 0 then
  80449. pTDefRegMap(@Self)^.clr := $00000004
  80450. else
  80451. pTDefRegMap(@Self)^.&set := $00000004;
  80452. end;
  80453. function TCAN1_C1FIFOCON14.getRTREN : TBits_1; inline;
  80454. begin
  80455. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  80456. end;
  80457. procedure TCAN1_C1FIFOCON14.setTXREQ; inline;
  80458. begin
  80459. pTDefRegMap(@Self)^.&set := $00000008;
  80460. end;
  80461. procedure TCAN1_C1FIFOCON14.clearTXREQ; inline;
  80462. begin
  80463. pTDefRegMap(@Self)^.clr := $00000008;
  80464. end;
  80465. procedure TCAN1_C1FIFOCON14.setTXREQ(thebits : TBits_1); inline;
  80466. begin
  80467. if thebits = 0 then
  80468. pTDefRegMap(@Self)^.clr := $00000008
  80469. else
  80470. pTDefRegMap(@Self)^.&set := $00000008;
  80471. end;
  80472. function TCAN1_C1FIFOCON14.getTXREQ : TBits_1; inline;
  80473. begin
  80474. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  80475. end;
  80476. procedure TCAN1_C1FIFOCON14.setTXERR; inline;
  80477. begin
  80478. pTDefRegMap(@Self)^.&set := $00000010;
  80479. end;
  80480. procedure TCAN1_C1FIFOCON14.clearTXERR; inline;
  80481. begin
  80482. pTDefRegMap(@Self)^.clr := $00000010;
  80483. end;
  80484. procedure TCAN1_C1FIFOCON14.setTXERR(thebits : TBits_1); inline;
  80485. begin
  80486. if thebits = 0 then
  80487. pTDefRegMap(@Self)^.clr := $00000010
  80488. else
  80489. pTDefRegMap(@Self)^.&set := $00000010;
  80490. end;
  80491. function TCAN1_C1FIFOCON14.getTXERR : TBits_1; inline;
  80492. begin
  80493. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  80494. end;
  80495. procedure TCAN1_C1FIFOCON14.setTXLARB; inline;
  80496. begin
  80497. pTDefRegMap(@Self)^.&set := $00000020;
  80498. end;
  80499. procedure TCAN1_C1FIFOCON14.clearTXLARB; inline;
  80500. begin
  80501. pTDefRegMap(@Self)^.clr := $00000020;
  80502. end;
  80503. procedure TCAN1_C1FIFOCON14.setTXLARB(thebits : TBits_1); inline;
  80504. begin
  80505. if thebits = 0 then
  80506. pTDefRegMap(@Self)^.clr := $00000020
  80507. else
  80508. pTDefRegMap(@Self)^.&set := $00000020;
  80509. end;
  80510. function TCAN1_C1FIFOCON14.getTXLARB : TBits_1; inline;
  80511. begin
  80512. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  80513. end;
  80514. procedure TCAN1_C1FIFOCON14.setTXABAT; inline;
  80515. begin
  80516. pTDefRegMap(@Self)^.&set := $00000040;
  80517. end;
  80518. procedure TCAN1_C1FIFOCON14.clearTXABAT; inline;
  80519. begin
  80520. pTDefRegMap(@Self)^.clr := $00000040;
  80521. end;
  80522. procedure TCAN1_C1FIFOCON14.setTXABAT(thebits : TBits_1); inline;
  80523. begin
  80524. if thebits = 0 then
  80525. pTDefRegMap(@Self)^.clr := $00000040
  80526. else
  80527. pTDefRegMap(@Self)^.&set := $00000040;
  80528. end;
  80529. function TCAN1_C1FIFOCON14.getTXABAT : TBits_1; inline;
  80530. begin
  80531. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  80532. end;
  80533. procedure TCAN1_C1FIFOCON14.setTXEN; inline;
  80534. begin
  80535. pTDefRegMap(@Self)^.&set := $00000080;
  80536. end;
  80537. procedure TCAN1_C1FIFOCON14.clearTXEN; inline;
  80538. begin
  80539. pTDefRegMap(@Self)^.clr := $00000080;
  80540. end;
  80541. procedure TCAN1_C1FIFOCON14.setTXEN(thebits : TBits_1); inline;
  80542. begin
  80543. if thebits = 0 then
  80544. pTDefRegMap(@Self)^.clr := $00000080
  80545. else
  80546. pTDefRegMap(@Self)^.&set := $00000080;
  80547. end;
  80548. function TCAN1_C1FIFOCON14.getTXEN : TBits_1; inline;
  80549. begin
  80550. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  80551. end;
  80552. procedure TCAN1_C1FIFOCON14.setDONLY; inline;
  80553. begin
  80554. pTDefRegMap(@Self)^.&set := $00001000;
  80555. end;
  80556. procedure TCAN1_C1FIFOCON14.clearDONLY; inline;
  80557. begin
  80558. pTDefRegMap(@Self)^.clr := $00001000;
  80559. end;
  80560. procedure TCAN1_C1FIFOCON14.setDONLY(thebits : TBits_1); inline;
  80561. begin
  80562. if thebits = 0 then
  80563. pTDefRegMap(@Self)^.clr := $00001000
  80564. else
  80565. pTDefRegMap(@Self)^.&set := $00001000;
  80566. end;
  80567. function TCAN1_C1FIFOCON14.getDONLY : TBits_1; inline;
  80568. begin
  80569. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  80570. end;
  80571. procedure TCAN1_C1FIFOCON14.setUINC; inline;
  80572. begin
  80573. pTDefRegMap(@Self)^.&set := $00002000;
  80574. end;
  80575. procedure TCAN1_C1FIFOCON14.clearUINC; inline;
  80576. begin
  80577. pTDefRegMap(@Self)^.clr := $00002000;
  80578. end;
  80579. procedure TCAN1_C1FIFOCON14.setUINC(thebits : TBits_1); inline;
  80580. begin
  80581. if thebits = 0 then
  80582. pTDefRegMap(@Self)^.clr := $00002000
  80583. else
  80584. pTDefRegMap(@Self)^.&set := $00002000;
  80585. end;
  80586. function TCAN1_C1FIFOCON14.getUINC : TBits_1; inline;
  80587. begin
  80588. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  80589. end;
  80590. procedure TCAN1_C1FIFOCON14.setFRESET; inline;
  80591. begin
  80592. pTDefRegMap(@Self)^.&set := $00004000;
  80593. end;
  80594. procedure TCAN1_C1FIFOCON14.clearFRESET; inline;
  80595. begin
  80596. pTDefRegMap(@Self)^.clr := $00004000;
  80597. end;
  80598. procedure TCAN1_C1FIFOCON14.setFRESET(thebits : TBits_1); inline;
  80599. begin
  80600. if thebits = 0 then
  80601. pTDefRegMap(@Self)^.clr := $00004000
  80602. else
  80603. pTDefRegMap(@Self)^.&set := $00004000;
  80604. end;
  80605. function TCAN1_C1FIFOCON14.getFRESET : TBits_1; inline;
  80606. begin
  80607. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  80608. end;
  80609. procedure TCAN1_C1FIFOCON14.setFSIZE(thebits : TBits_5); inline;
  80610. begin
  80611. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  80612. end;
  80613. function TCAN1_C1FIFOCON14.getFSIZE : TBits_5; inline;
  80614. begin
  80615. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  80616. end;
  80617. procedure TCAN1_C1FIFOCON14.setw(thebits : TBits_32); inline;
  80618. begin
  80619. pTDefRegMap(@Self)^.val := thebits;
  80620. end;
  80621. function TCAN1_C1FIFOCON14.getw : TBits_32; inline;
  80622. begin
  80623. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  80624. end;
  80625. procedure TCAN1_C1FIFOINT14.setRXNEMPTYIF; inline;
  80626. begin
  80627. pTDefRegMap(@Self)^.&set := $00000001;
  80628. end;
  80629. procedure TCAN1_C1FIFOINT14.clearRXNEMPTYIF; inline;
  80630. begin
  80631. pTDefRegMap(@Self)^.clr := $00000001;
  80632. end;
  80633. procedure TCAN1_C1FIFOINT14.setRXNEMPTYIF(thebits : TBits_1); inline;
  80634. begin
  80635. if thebits = 0 then
  80636. pTDefRegMap(@Self)^.clr := $00000001
  80637. else
  80638. pTDefRegMap(@Self)^.&set := $00000001;
  80639. end;
  80640. function TCAN1_C1FIFOINT14.getRXNEMPTYIF : TBits_1; inline;
  80641. begin
  80642. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  80643. end;
  80644. procedure TCAN1_C1FIFOINT14.setRXHALFIF; inline;
  80645. begin
  80646. pTDefRegMap(@Self)^.&set := $00000002;
  80647. end;
  80648. procedure TCAN1_C1FIFOINT14.clearRXHALFIF; inline;
  80649. begin
  80650. pTDefRegMap(@Self)^.clr := $00000002;
  80651. end;
  80652. procedure TCAN1_C1FIFOINT14.setRXHALFIF(thebits : TBits_1); inline;
  80653. begin
  80654. if thebits = 0 then
  80655. pTDefRegMap(@Self)^.clr := $00000002
  80656. else
  80657. pTDefRegMap(@Self)^.&set := $00000002;
  80658. end;
  80659. function TCAN1_C1FIFOINT14.getRXHALFIF : TBits_1; inline;
  80660. begin
  80661. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  80662. end;
  80663. procedure TCAN1_C1FIFOINT14.setRXFULLIF; inline;
  80664. begin
  80665. pTDefRegMap(@Self)^.&set := $00000004;
  80666. end;
  80667. procedure TCAN1_C1FIFOINT14.clearRXFULLIF; inline;
  80668. begin
  80669. pTDefRegMap(@Self)^.clr := $00000004;
  80670. end;
  80671. procedure TCAN1_C1FIFOINT14.setRXFULLIF(thebits : TBits_1); inline;
  80672. begin
  80673. if thebits = 0 then
  80674. pTDefRegMap(@Self)^.clr := $00000004
  80675. else
  80676. pTDefRegMap(@Self)^.&set := $00000004;
  80677. end;
  80678. function TCAN1_C1FIFOINT14.getRXFULLIF : TBits_1; inline;
  80679. begin
  80680. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  80681. end;
  80682. procedure TCAN1_C1FIFOINT14.setRXOVFLIF; inline;
  80683. begin
  80684. pTDefRegMap(@Self)^.&set := $00000008;
  80685. end;
  80686. procedure TCAN1_C1FIFOINT14.clearRXOVFLIF; inline;
  80687. begin
  80688. pTDefRegMap(@Self)^.clr := $00000008;
  80689. end;
  80690. procedure TCAN1_C1FIFOINT14.setRXOVFLIF(thebits : TBits_1); inline;
  80691. begin
  80692. if thebits = 0 then
  80693. pTDefRegMap(@Self)^.clr := $00000008
  80694. else
  80695. pTDefRegMap(@Self)^.&set := $00000008;
  80696. end;
  80697. function TCAN1_C1FIFOINT14.getRXOVFLIF : TBits_1; inline;
  80698. begin
  80699. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  80700. end;
  80701. procedure TCAN1_C1FIFOINT14.setTXEMPTYIF; inline;
  80702. begin
  80703. pTDefRegMap(@Self)^.&set := $00000100;
  80704. end;
  80705. procedure TCAN1_C1FIFOINT14.clearTXEMPTYIF; inline;
  80706. begin
  80707. pTDefRegMap(@Self)^.clr := $00000100;
  80708. end;
  80709. procedure TCAN1_C1FIFOINT14.setTXEMPTYIF(thebits : TBits_1); inline;
  80710. begin
  80711. if thebits = 0 then
  80712. pTDefRegMap(@Self)^.clr := $00000100
  80713. else
  80714. pTDefRegMap(@Self)^.&set := $00000100;
  80715. end;
  80716. function TCAN1_C1FIFOINT14.getTXEMPTYIF : TBits_1; inline;
  80717. begin
  80718. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  80719. end;
  80720. procedure TCAN1_C1FIFOINT14.setTXHALFIF; inline;
  80721. begin
  80722. pTDefRegMap(@Self)^.&set := $00000200;
  80723. end;
  80724. procedure TCAN1_C1FIFOINT14.clearTXHALFIF; inline;
  80725. begin
  80726. pTDefRegMap(@Self)^.clr := $00000200;
  80727. end;
  80728. procedure TCAN1_C1FIFOINT14.setTXHALFIF(thebits : TBits_1); inline;
  80729. begin
  80730. if thebits = 0 then
  80731. pTDefRegMap(@Self)^.clr := $00000200
  80732. else
  80733. pTDefRegMap(@Self)^.&set := $00000200;
  80734. end;
  80735. function TCAN1_C1FIFOINT14.getTXHALFIF : TBits_1; inline;
  80736. begin
  80737. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  80738. end;
  80739. procedure TCAN1_C1FIFOINT14.setTXNFULLIF; inline;
  80740. begin
  80741. pTDefRegMap(@Self)^.&set := $00000400;
  80742. end;
  80743. procedure TCAN1_C1FIFOINT14.clearTXNFULLIF; inline;
  80744. begin
  80745. pTDefRegMap(@Self)^.clr := $00000400;
  80746. end;
  80747. procedure TCAN1_C1FIFOINT14.setTXNFULLIF(thebits : TBits_1); inline;
  80748. begin
  80749. if thebits = 0 then
  80750. pTDefRegMap(@Self)^.clr := $00000400
  80751. else
  80752. pTDefRegMap(@Self)^.&set := $00000400;
  80753. end;
  80754. function TCAN1_C1FIFOINT14.getTXNFULLIF : TBits_1; inline;
  80755. begin
  80756. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  80757. end;
  80758. procedure TCAN1_C1FIFOINT14.setRXNEMPTYIE; inline;
  80759. begin
  80760. pTDefRegMap(@Self)^.&set := $00010000;
  80761. end;
  80762. procedure TCAN1_C1FIFOINT14.clearRXNEMPTYIE; inline;
  80763. begin
  80764. pTDefRegMap(@Self)^.clr := $00010000;
  80765. end;
  80766. procedure TCAN1_C1FIFOINT14.setRXNEMPTYIE(thebits : TBits_1); inline;
  80767. begin
  80768. if thebits = 0 then
  80769. pTDefRegMap(@Self)^.clr := $00010000
  80770. else
  80771. pTDefRegMap(@Self)^.&set := $00010000;
  80772. end;
  80773. function TCAN1_C1FIFOINT14.getRXNEMPTYIE : TBits_1; inline;
  80774. begin
  80775. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  80776. end;
  80777. procedure TCAN1_C1FIFOINT14.setRXHALFIE; inline;
  80778. begin
  80779. pTDefRegMap(@Self)^.&set := $00020000;
  80780. end;
  80781. procedure TCAN1_C1FIFOINT14.clearRXHALFIE; inline;
  80782. begin
  80783. pTDefRegMap(@Self)^.clr := $00020000;
  80784. end;
  80785. procedure TCAN1_C1FIFOINT14.setRXHALFIE(thebits : TBits_1); inline;
  80786. begin
  80787. if thebits = 0 then
  80788. pTDefRegMap(@Self)^.clr := $00020000
  80789. else
  80790. pTDefRegMap(@Self)^.&set := $00020000;
  80791. end;
  80792. function TCAN1_C1FIFOINT14.getRXHALFIE : TBits_1; inline;
  80793. begin
  80794. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  80795. end;
  80796. procedure TCAN1_C1FIFOINT14.setRXFULLIE; inline;
  80797. begin
  80798. pTDefRegMap(@Self)^.&set := $00040000;
  80799. end;
  80800. procedure TCAN1_C1FIFOINT14.clearRXFULLIE; inline;
  80801. begin
  80802. pTDefRegMap(@Self)^.clr := $00040000;
  80803. end;
  80804. procedure TCAN1_C1FIFOINT14.setRXFULLIE(thebits : TBits_1); inline;
  80805. begin
  80806. if thebits = 0 then
  80807. pTDefRegMap(@Self)^.clr := $00040000
  80808. else
  80809. pTDefRegMap(@Self)^.&set := $00040000;
  80810. end;
  80811. function TCAN1_C1FIFOINT14.getRXFULLIE : TBits_1; inline;
  80812. begin
  80813. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  80814. end;
  80815. procedure TCAN1_C1FIFOINT14.setRXOVFLIE; inline;
  80816. begin
  80817. pTDefRegMap(@Self)^.&set := $00080000;
  80818. end;
  80819. procedure TCAN1_C1FIFOINT14.clearRXOVFLIE; inline;
  80820. begin
  80821. pTDefRegMap(@Self)^.clr := $00080000;
  80822. end;
  80823. procedure TCAN1_C1FIFOINT14.setRXOVFLIE(thebits : TBits_1); inline;
  80824. begin
  80825. if thebits = 0 then
  80826. pTDefRegMap(@Self)^.clr := $00080000
  80827. else
  80828. pTDefRegMap(@Self)^.&set := $00080000;
  80829. end;
  80830. function TCAN1_C1FIFOINT14.getRXOVFLIE : TBits_1; inline;
  80831. begin
  80832. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  80833. end;
  80834. procedure TCAN1_C1FIFOINT14.setTXEMPTYIE; inline;
  80835. begin
  80836. pTDefRegMap(@Self)^.&set := $01000000;
  80837. end;
  80838. procedure TCAN1_C1FIFOINT14.clearTXEMPTYIE; inline;
  80839. begin
  80840. pTDefRegMap(@Self)^.clr := $01000000;
  80841. end;
  80842. procedure TCAN1_C1FIFOINT14.setTXEMPTYIE(thebits : TBits_1); inline;
  80843. begin
  80844. if thebits = 0 then
  80845. pTDefRegMap(@Self)^.clr := $01000000
  80846. else
  80847. pTDefRegMap(@Self)^.&set := $01000000;
  80848. end;
  80849. function TCAN1_C1FIFOINT14.getTXEMPTYIE : TBits_1; inline;
  80850. begin
  80851. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  80852. end;
  80853. procedure TCAN1_C1FIFOINT14.setTXHALFIE; inline;
  80854. begin
  80855. pTDefRegMap(@Self)^.&set := $02000000;
  80856. end;
  80857. procedure TCAN1_C1FIFOINT14.clearTXHALFIE; inline;
  80858. begin
  80859. pTDefRegMap(@Self)^.clr := $02000000;
  80860. end;
  80861. procedure TCAN1_C1FIFOINT14.setTXHALFIE(thebits : TBits_1); inline;
  80862. begin
  80863. if thebits = 0 then
  80864. pTDefRegMap(@Self)^.clr := $02000000
  80865. else
  80866. pTDefRegMap(@Self)^.&set := $02000000;
  80867. end;
  80868. function TCAN1_C1FIFOINT14.getTXHALFIE : TBits_1; inline;
  80869. begin
  80870. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  80871. end;
  80872. procedure TCAN1_C1FIFOINT14.setTXNFULLIE; inline;
  80873. begin
  80874. pTDefRegMap(@Self)^.&set := $04000000;
  80875. end;
  80876. procedure TCAN1_C1FIFOINT14.clearTXNFULLIE; inline;
  80877. begin
  80878. pTDefRegMap(@Self)^.clr := $04000000;
  80879. end;
  80880. procedure TCAN1_C1FIFOINT14.setTXNFULLIE(thebits : TBits_1); inline;
  80881. begin
  80882. if thebits = 0 then
  80883. pTDefRegMap(@Self)^.clr := $04000000
  80884. else
  80885. pTDefRegMap(@Self)^.&set := $04000000;
  80886. end;
  80887. function TCAN1_C1FIFOINT14.getTXNFULLIE : TBits_1; inline;
  80888. begin
  80889. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  80890. end;
  80891. procedure TCAN1_C1FIFOINT14.setw(thebits : TBits_32); inline;
  80892. begin
  80893. pTDefRegMap(@Self)^.val := thebits;
  80894. end;
  80895. function TCAN1_C1FIFOINT14.getw : TBits_32; inline;
  80896. begin
  80897. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  80898. end;
  80899. procedure TCAN1_C1FIFOCI14.setCFIFOCI(thebits : TBits_5); inline;
  80900. begin
  80901. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  80902. end;
  80903. function TCAN1_C1FIFOCI14.getCFIFOCI : TBits_5; inline;
  80904. begin
  80905. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  80906. end;
  80907. procedure TCAN1_C1FIFOCI14.setw(thebits : TBits_32); inline;
  80908. begin
  80909. pTDefRegMap(@Self)^.val := thebits;
  80910. end;
  80911. function TCAN1_C1FIFOCI14.getw : TBits_32; inline;
  80912. begin
  80913. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  80914. end;
  80915. procedure TCAN1_C1FIFOCON15.setTXPRI(thebits : TBits_2); inline;
  80916. begin
  80917. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  80918. end;
  80919. function TCAN1_C1FIFOCON15.getTXPRI : TBits_2; inline;
  80920. begin
  80921. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  80922. end;
  80923. procedure TCAN1_C1FIFOCON15.setRTREN; inline;
  80924. begin
  80925. pTDefRegMap(@Self)^.&set := $00000004;
  80926. end;
  80927. procedure TCAN1_C1FIFOCON15.clearRTREN; inline;
  80928. begin
  80929. pTDefRegMap(@Self)^.clr := $00000004;
  80930. end;
  80931. procedure TCAN1_C1FIFOCON15.setRTREN(thebits : TBits_1); inline;
  80932. begin
  80933. if thebits = 0 then
  80934. pTDefRegMap(@Self)^.clr := $00000004
  80935. else
  80936. pTDefRegMap(@Self)^.&set := $00000004;
  80937. end;
  80938. function TCAN1_C1FIFOCON15.getRTREN : TBits_1; inline;
  80939. begin
  80940. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  80941. end;
  80942. procedure TCAN1_C1FIFOCON15.setTXREQ; inline;
  80943. begin
  80944. pTDefRegMap(@Self)^.&set := $00000008;
  80945. end;
  80946. procedure TCAN1_C1FIFOCON15.clearTXREQ; inline;
  80947. begin
  80948. pTDefRegMap(@Self)^.clr := $00000008;
  80949. end;
  80950. procedure TCAN1_C1FIFOCON15.setTXREQ(thebits : TBits_1); inline;
  80951. begin
  80952. if thebits = 0 then
  80953. pTDefRegMap(@Self)^.clr := $00000008
  80954. else
  80955. pTDefRegMap(@Self)^.&set := $00000008;
  80956. end;
  80957. function TCAN1_C1FIFOCON15.getTXREQ : TBits_1; inline;
  80958. begin
  80959. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  80960. end;
  80961. procedure TCAN1_C1FIFOCON15.setTXERR; inline;
  80962. begin
  80963. pTDefRegMap(@Self)^.&set := $00000010;
  80964. end;
  80965. procedure TCAN1_C1FIFOCON15.clearTXERR; inline;
  80966. begin
  80967. pTDefRegMap(@Self)^.clr := $00000010;
  80968. end;
  80969. procedure TCAN1_C1FIFOCON15.setTXERR(thebits : TBits_1); inline;
  80970. begin
  80971. if thebits = 0 then
  80972. pTDefRegMap(@Self)^.clr := $00000010
  80973. else
  80974. pTDefRegMap(@Self)^.&set := $00000010;
  80975. end;
  80976. function TCAN1_C1FIFOCON15.getTXERR : TBits_1; inline;
  80977. begin
  80978. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  80979. end;
  80980. procedure TCAN1_C1FIFOCON15.setTXLARB; inline;
  80981. begin
  80982. pTDefRegMap(@Self)^.&set := $00000020;
  80983. end;
  80984. procedure TCAN1_C1FIFOCON15.clearTXLARB; inline;
  80985. begin
  80986. pTDefRegMap(@Self)^.clr := $00000020;
  80987. end;
  80988. procedure TCAN1_C1FIFOCON15.setTXLARB(thebits : TBits_1); inline;
  80989. begin
  80990. if thebits = 0 then
  80991. pTDefRegMap(@Self)^.clr := $00000020
  80992. else
  80993. pTDefRegMap(@Self)^.&set := $00000020;
  80994. end;
  80995. function TCAN1_C1FIFOCON15.getTXLARB : TBits_1; inline;
  80996. begin
  80997. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  80998. end;
  80999. procedure TCAN1_C1FIFOCON15.setTXABAT; inline;
  81000. begin
  81001. pTDefRegMap(@Self)^.&set := $00000040;
  81002. end;
  81003. procedure TCAN1_C1FIFOCON15.clearTXABAT; inline;
  81004. begin
  81005. pTDefRegMap(@Self)^.clr := $00000040;
  81006. end;
  81007. procedure TCAN1_C1FIFOCON15.setTXABAT(thebits : TBits_1); inline;
  81008. begin
  81009. if thebits = 0 then
  81010. pTDefRegMap(@Self)^.clr := $00000040
  81011. else
  81012. pTDefRegMap(@Self)^.&set := $00000040;
  81013. end;
  81014. function TCAN1_C1FIFOCON15.getTXABAT : TBits_1; inline;
  81015. begin
  81016. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  81017. end;
  81018. procedure TCAN1_C1FIFOCON15.setTXEN; inline;
  81019. begin
  81020. pTDefRegMap(@Self)^.&set := $00000080;
  81021. end;
  81022. procedure TCAN1_C1FIFOCON15.clearTXEN; inline;
  81023. begin
  81024. pTDefRegMap(@Self)^.clr := $00000080;
  81025. end;
  81026. procedure TCAN1_C1FIFOCON15.setTXEN(thebits : TBits_1); inline;
  81027. begin
  81028. if thebits = 0 then
  81029. pTDefRegMap(@Self)^.clr := $00000080
  81030. else
  81031. pTDefRegMap(@Self)^.&set := $00000080;
  81032. end;
  81033. function TCAN1_C1FIFOCON15.getTXEN : TBits_1; inline;
  81034. begin
  81035. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  81036. end;
  81037. procedure TCAN1_C1FIFOCON15.setDONLY; inline;
  81038. begin
  81039. pTDefRegMap(@Self)^.&set := $00001000;
  81040. end;
  81041. procedure TCAN1_C1FIFOCON15.clearDONLY; inline;
  81042. begin
  81043. pTDefRegMap(@Self)^.clr := $00001000;
  81044. end;
  81045. procedure TCAN1_C1FIFOCON15.setDONLY(thebits : TBits_1); inline;
  81046. begin
  81047. if thebits = 0 then
  81048. pTDefRegMap(@Self)^.clr := $00001000
  81049. else
  81050. pTDefRegMap(@Self)^.&set := $00001000;
  81051. end;
  81052. function TCAN1_C1FIFOCON15.getDONLY : TBits_1; inline;
  81053. begin
  81054. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  81055. end;
  81056. procedure TCAN1_C1FIFOCON15.setUINC; inline;
  81057. begin
  81058. pTDefRegMap(@Self)^.&set := $00002000;
  81059. end;
  81060. procedure TCAN1_C1FIFOCON15.clearUINC; inline;
  81061. begin
  81062. pTDefRegMap(@Self)^.clr := $00002000;
  81063. end;
  81064. procedure TCAN1_C1FIFOCON15.setUINC(thebits : TBits_1); inline;
  81065. begin
  81066. if thebits = 0 then
  81067. pTDefRegMap(@Self)^.clr := $00002000
  81068. else
  81069. pTDefRegMap(@Self)^.&set := $00002000;
  81070. end;
  81071. function TCAN1_C1FIFOCON15.getUINC : TBits_1; inline;
  81072. begin
  81073. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  81074. end;
  81075. procedure TCAN1_C1FIFOCON15.setFRESET; inline;
  81076. begin
  81077. pTDefRegMap(@Self)^.&set := $00004000;
  81078. end;
  81079. procedure TCAN1_C1FIFOCON15.clearFRESET; inline;
  81080. begin
  81081. pTDefRegMap(@Self)^.clr := $00004000;
  81082. end;
  81083. procedure TCAN1_C1FIFOCON15.setFRESET(thebits : TBits_1); inline;
  81084. begin
  81085. if thebits = 0 then
  81086. pTDefRegMap(@Self)^.clr := $00004000
  81087. else
  81088. pTDefRegMap(@Self)^.&set := $00004000;
  81089. end;
  81090. function TCAN1_C1FIFOCON15.getFRESET : TBits_1; inline;
  81091. begin
  81092. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  81093. end;
  81094. procedure TCAN1_C1FIFOCON15.setFSIZE(thebits : TBits_5); inline;
  81095. begin
  81096. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  81097. end;
  81098. function TCAN1_C1FIFOCON15.getFSIZE : TBits_5; inline;
  81099. begin
  81100. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  81101. end;
  81102. procedure TCAN1_C1FIFOCON15.setw(thebits : TBits_32); inline;
  81103. begin
  81104. pTDefRegMap(@Self)^.val := thebits;
  81105. end;
  81106. function TCAN1_C1FIFOCON15.getw : TBits_32; inline;
  81107. begin
  81108. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  81109. end;
  81110. procedure TCAN1_C1FIFOINT15.setRXNEMPTYIF; inline;
  81111. begin
  81112. pTDefRegMap(@Self)^.&set := $00000001;
  81113. end;
  81114. procedure TCAN1_C1FIFOINT15.clearRXNEMPTYIF; inline;
  81115. begin
  81116. pTDefRegMap(@Self)^.clr := $00000001;
  81117. end;
  81118. procedure TCAN1_C1FIFOINT15.setRXNEMPTYIF(thebits : TBits_1); inline;
  81119. begin
  81120. if thebits = 0 then
  81121. pTDefRegMap(@Self)^.clr := $00000001
  81122. else
  81123. pTDefRegMap(@Self)^.&set := $00000001;
  81124. end;
  81125. function TCAN1_C1FIFOINT15.getRXNEMPTYIF : TBits_1; inline;
  81126. begin
  81127. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  81128. end;
  81129. procedure TCAN1_C1FIFOINT15.setRXHALFIF; inline;
  81130. begin
  81131. pTDefRegMap(@Self)^.&set := $00000002;
  81132. end;
  81133. procedure TCAN1_C1FIFOINT15.clearRXHALFIF; inline;
  81134. begin
  81135. pTDefRegMap(@Self)^.clr := $00000002;
  81136. end;
  81137. procedure TCAN1_C1FIFOINT15.setRXHALFIF(thebits : TBits_1); inline;
  81138. begin
  81139. if thebits = 0 then
  81140. pTDefRegMap(@Self)^.clr := $00000002
  81141. else
  81142. pTDefRegMap(@Self)^.&set := $00000002;
  81143. end;
  81144. function TCAN1_C1FIFOINT15.getRXHALFIF : TBits_1; inline;
  81145. begin
  81146. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  81147. end;
  81148. procedure TCAN1_C1FIFOINT15.setRXFULLIF; inline;
  81149. begin
  81150. pTDefRegMap(@Self)^.&set := $00000004;
  81151. end;
  81152. procedure TCAN1_C1FIFOINT15.clearRXFULLIF; inline;
  81153. begin
  81154. pTDefRegMap(@Self)^.clr := $00000004;
  81155. end;
  81156. procedure TCAN1_C1FIFOINT15.setRXFULLIF(thebits : TBits_1); inline;
  81157. begin
  81158. if thebits = 0 then
  81159. pTDefRegMap(@Self)^.clr := $00000004
  81160. else
  81161. pTDefRegMap(@Self)^.&set := $00000004;
  81162. end;
  81163. function TCAN1_C1FIFOINT15.getRXFULLIF : TBits_1; inline;
  81164. begin
  81165. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  81166. end;
  81167. procedure TCAN1_C1FIFOINT15.setRXOVFLIF; inline;
  81168. begin
  81169. pTDefRegMap(@Self)^.&set := $00000008;
  81170. end;
  81171. procedure TCAN1_C1FIFOINT15.clearRXOVFLIF; inline;
  81172. begin
  81173. pTDefRegMap(@Self)^.clr := $00000008;
  81174. end;
  81175. procedure TCAN1_C1FIFOINT15.setRXOVFLIF(thebits : TBits_1); inline;
  81176. begin
  81177. if thebits = 0 then
  81178. pTDefRegMap(@Self)^.clr := $00000008
  81179. else
  81180. pTDefRegMap(@Self)^.&set := $00000008;
  81181. end;
  81182. function TCAN1_C1FIFOINT15.getRXOVFLIF : TBits_1; inline;
  81183. begin
  81184. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  81185. end;
  81186. procedure TCAN1_C1FIFOINT15.setTXEMPTYIF; inline;
  81187. begin
  81188. pTDefRegMap(@Self)^.&set := $00000100;
  81189. end;
  81190. procedure TCAN1_C1FIFOINT15.clearTXEMPTYIF; inline;
  81191. begin
  81192. pTDefRegMap(@Self)^.clr := $00000100;
  81193. end;
  81194. procedure TCAN1_C1FIFOINT15.setTXEMPTYIF(thebits : TBits_1); inline;
  81195. begin
  81196. if thebits = 0 then
  81197. pTDefRegMap(@Self)^.clr := $00000100
  81198. else
  81199. pTDefRegMap(@Self)^.&set := $00000100;
  81200. end;
  81201. function TCAN1_C1FIFOINT15.getTXEMPTYIF : TBits_1; inline;
  81202. begin
  81203. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  81204. end;
  81205. procedure TCAN1_C1FIFOINT15.setTXHALFIF; inline;
  81206. begin
  81207. pTDefRegMap(@Self)^.&set := $00000200;
  81208. end;
  81209. procedure TCAN1_C1FIFOINT15.clearTXHALFIF; inline;
  81210. begin
  81211. pTDefRegMap(@Self)^.clr := $00000200;
  81212. end;
  81213. procedure TCAN1_C1FIFOINT15.setTXHALFIF(thebits : TBits_1); inline;
  81214. begin
  81215. if thebits = 0 then
  81216. pTDefRegMap(@Self)^.clr := $00000200
  81217. else
  81218. pTDefRegMap(@Self)^.&set := $00000200;
  81219. end;
  81220. function TCAN1_C1FIFOINT15.getTXHALFIF : TBits_1; inline;
  81221. begin
  81222. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  81223. end;
  81224. procedure TCAN1_C1FIFOINT15.setTXNFULLIF; inline;
  81225. begin
  81226. pTDefRegMap(@Self)^.&set := $00000400;
  81227. end;
  81228. procedure TCAN1_C1FIFOINT15.clearTXNFULLIF; inline;
  81229. begin
  81230. pTDefRegMap(@Self)^.clr := $00000400;
  81231. end;
  81232. procedure TCAN1_C1FIFOINT15.setTXNFULLIF(thebits : TBits_1); inline;
  81233. begin
  81234. if thebits = 0 then
  81235. pTDefRegMap(@Self)^.clr := $00000400
  81236. else
  81237. pTDefRegMap(@Self)^.&set := $00000400;
  81238. end;
  81239. function TCAN1_C1FIFOINT15.getTXNFULLIF : TBits_1; inline;
  81240. begin
  81241. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  81242. end;
  81243. procedure TCAN1_C1FIFOINT15.setRXNEMPTYIE; inline;
  81244. begin
  81245. pTDefRegMap(@Self)^.&set := $00010000;
  81246. end;
  81247. procedure TCAN1_C1FIFOINT15.clearRXNEMPTYIE; inline;
  81248. begin
  81249. pTDefRegMap(@Self)^.clr := $00010000;
  81250. end;
  81251. procedure TCAN1_C1FIFOINT15.setRXNEMPTYIE(thebits : TBits_1); inline;
  81252. begin
  81253. if thebits = 0 then
  81254. pTDefRegMap(@Self)^.clr := $00010000
  81255. else
  81256. pTDefRegMap(@Self)^.&set := $00010000;
  81257. end;
  81258. function TCAN1_C1FIFOINT15.getRXNEMPTYIE : TBits_1; inline;
  81259. begin
  81260. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  81261. end;
  81262. procedure TCAN1_C1FIFOINT15.setRXHALFIE; inline;
  81263. begin
  81264. pTDefRegMap(@Self)^.&set := $00020000;
  81265. end;
  81266. procedure TCAN1_C1FIFOINT15.clearRXHALFIE; inline;
  81267. begin
  81268. pTDefRegMap(@Self)^.clr := $00020000;
  81269. end;
  81270. procedure TCAN1_C1FIFOINT15.setRXHALFIE(thebits : TBits_1); inline;
  81271. begin
  81272. if thebits = 0 then
  81273. pTDefRegMap(@Self)^.clr := $00020000
  81274. else
  81275. pTDefRegMap(@Self)^.&set := $00020000;
  81276. end;
  81277. function TCAN1_C1FIFOINT15.getRXHALFIE : TBits_1; inline;
  81278. begin
  81279. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  81280. end;
  81281. procedure TCAN1_C1FIFOINT15.setRXFULLIE; inline;
  81282. begin
  81283. pTDefRegMap(@Self)^.&set := $00040000;
  81284. end;
  81285. procedure TCAN1_C1FIFOINT15.clearRXFULLIE; inline;
  81286. begin
  81287. pTDefRegMap(@Self)^.clr := $00040000;
  81288. end;
  81289. procedure TCAN1_C1FIFOINT15.setRXFULLIE(thebits : TBits_1); inline;
  81290. begin
  81291. if thebits = 0 then
  81292. pTDefRegMap(@Self)^.clr := $00040000
  81293. else
  81294. pTDefRegMap(@Self)^.&set := $00040000;
  81295. end;
  81296. function TCAN1_C1FIFOINT15.getRXFULLIE : TBits_1; inline;
  81297. begin
  81298. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  81299. end;
  81300. procedure TCAN1_C1FIFOINT15.setRXOVFLIE; inline;
  81301. begin
  81302. pTDefRegMap(@Self)^.&set := $00080000;
  81303. end;
  81304. procedure TCAN1_C1FIFOINT15.clearRXOVFLIE; inline;
  81305. begin
  81306. pTDefRegMap(@Self)^.clr := $00080000;
  81307. end;
  81308. procedure TCAN1_C1FIFOINT15.setRXOVFLIE(thebits : TBits_1); inline;
  81309. begin
  81310. if thebits = 0 then
  81311. pTDefRegMap(@Self)^.clr := $00080000
  81312. else
  81313. pTDefRegMap(@Self)^.&set := $00080000;
  81314. end;
  81315. function TCAN1_C1FIFOINT15.getRXOVFLIE : TBits_1; inline;
  81316. begin
  81317. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  81318. end;
  81319. procedure TCAN1_C1FIFOINT15.setTXEMPTYIE; inline;
  81320. begin
  81321. pTDefRegMap(@Self)^.&set := $01000000;
  81322. end;
  81323. procedure TCAN1_C1FIFOINT15.clearTXEMPTYIE; inline;
  81324. begin
  81325. pTDefRegMap(@Self)^.clr := $01000000;
  81326. end;
  81327. procedure TCAN1_C1FIFOINT15.setTXEMPTYIE(thebits : TBits_1); inline;
  81328. begin
  81329. if thebits = 0 then
  81330. pTDefRegMap(@Self)^.clr := $01000000
  81331. else
  81332. pTDefRegMap(@Self)^.&set := $01000000;
  81333. end;
  81334. function TCAN1_C1FIFOINT15.getTXEMPTYIE : TBits_1; inline;
  81335. begin
  81336. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  81337. end;
  81338. procedure TCAN1_C1FIFOINT15.setTXHALFIE; inline;
  81339. begin
  81340. pTDefRegMap(@Self)^.&set := $02000000;
  81341. end;
  81342. procedure TCAN1_C1FIFOINT15.clearTXHALFIE; inline;
  81343. begin
  81344. pTDefRegMap(@Self)^.clr := $02000000;
  81345. end;
  81346. procedure TCAN1_C1FIFOINT15.setTXHALFIE(thebits : TBits_1); inline;
  81347. begin
  81348. if thebits = 0 then
  81349. pTDefRegMap(@Self)^.clr := $02000000
  81350. else
  81351. pTDefRegMap(@Self)^.&set := $02000000;
  81352. end;
  81353. function TCAN1_C1FIFOINT15.getTXHALFIE : TBits_1; inline;
  81354. begin
  81355. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  81356. end;
  81357. procedure TCAN1_C1FIFOINT15.setTXNFULLIE; inline;
  81358. begin
  81359. pTDefRegMap(@Self)^.&set := $04000000;
  81360. end;
  81361. procedure TCAN1_C1FIFOINT15.clearTXNFULLIE; inline;
  81362. begin
  81363. pTDefRegMap(@Self)^.clr := $04000000;
  81364. end;
  81365. procedure TCAN1_C1FIFOINT15.setTXNFULLIE(thebits : TBits_1); inline;
  81366. begin
  81367. if thebits = 0 then
  81368. pTDefRegMap(@Self)^.clr := $04000000
  81369. else
  81370. pTDefRegMap(@Self)^.&set := $04000000;
  81371. end;
  81372. function TCAN1_C1FIFOINT15.getTXNFULLIE : TBits_1; inline;
  81373. begin
  81374. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  81375. end;
  81376. procedure TCAN1_C1FIFOINT15.setw(thebits : TBits_32); inline;
  81377. begin
  81378. pTDefRegMap(@Self)^.val := thebits;
  81379. end;
  81380. function TCAN1_C1FIFOINT15.getw : TBits_32; inline;
  81381. begin
  81382. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  81383. end;
  81384. procedure TCAN1_C1FIFOCI15.setCFIFOCI(thebits : TBits_5); inline;
  81385. begin
  81386. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  81387. end;
  81388. function TCAN1_C1FIFOCI15.getCFIFOCI : TBits_5; inline;
  81389. begin
  81390. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  81391. end;
  81392. procedure TCAN1_C1FIFOCI15.setw(thebits : TBits_32); inline;
  81393. begin
  81394. pTDefRegMap(@Self)^.val := thebits;
  81395. end;
  81396. function TCAN1_C1FIFOCI15.getw : TBits_32; inline;
  81397. begin
  81398. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  81399. end;
  81400. procedure TCAN1_C1FIFOCON16.setTXPRI(thebits : TBits_2); inline;
  81401. begin
  81402. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  81403. end;
  81404. function TCAN1_C1FIFOCON16.getTXPRI : TBits_2; inline;
  81405. begin
  81406. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  81407. end;
  81408. procedure TCAN1_C1FIFOCON16.setRTREN; inline;
  81409. begin
  81410. pTDefRegMap(@Self)^.&set := $00000004;
  81411. end;
  81412. procedure TCAN1_C1FIFOCON16.clearRTREN; inline;
  81413. begin
  81414. pTDefRegMap(@Self)^.clr := $00000004;
  81415. end;
  81416. procedure TCAN1_C1FIFOCON16.setRTREN(thebits : TBits_1); inline;
  81417. begin
  81418. if thebits = 0 then
  81419. pTDefRegMap(@Self)^.clr := $00000004
  81420. else
  81421. pTDefRegMap(@Self)^.&set := $00000004;
  81422. end;
  81423. function TCAN1_C1FIFOCON16.getRTREN : TBits_1; inline;
  81424. begin
  81425. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  81426. end;
  81427. procedure TCAN1_C1FIFOCON16.setTXREQ; inline;
  81428. begin
  81429. pTDefRegMap(@Self)^.&set := $00000008;
  81430. end;
  81431. procedure TCAN1_C1FIFOCON16.clearTXREQ; inline;
  81432. begin
  81433. pTDefRegMap(@Self)^.clr := $00000008;
  81434. end;
  81435. procedure TCAN1_C1FIFOCON16.setTXREQ(thebits : TBits_1); inline;
  81436. begin
  81437. if thebits = 0 then
  81438. pTDefRegMap(@Self)^.clr := $00000008
  81439. else
  81440. pTDefRegMap(@Self)^.&set := $00000008;
  81441. end;
  81442. function TCAN1_C1FIFOCON16.getTXREQ : TBits_1; inline;
  81443. begin
  81444. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  81445. end;
  81446. procedure TCAN1_C1FIFOCON16.setTXERR; inline;
  81447. begin
  81448. pTDefRegMap(@Self)^.&set := $00000010;
  81449. end;
  81450. procedure TCAN1_C1FIFOCON16.clearTXERR; inline;
  81451. begin
  81452. pTDefRegMap(@Self)^.clr := $00000010;
  81453. end;
  81454. procedure TCAN1_C1FIFOCON16.setTXERR(thebits : TBits_1); inline;
  81455. begin
  81456. if thebits = 0 then
  81457. pTDefRegMap(@Self)^.clr := $00000010
  81458. else
  81459. pTDefRegMap(@Self)^.&set := $00000010;
  81460. end;
  81461. function TCAN1_C1FIFOCON16.getTXERR : TBits_1; inline;
  81462. begin
  81463. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  81464. end;
  81465. procedure TCAN1_C1FIFOCON16.setTXLARB; inline;
  81466. begin
  81467. pTDefRegMap(@Self)^.&set := $00000020;
  81468. end;
  81469. procedure TCAN1_C1FIFOCON16.clearTXLARB; inline;
  81470. begin
  81471. pTDefRegMap(@Self)^.clr := $00000020;
  81472. end;
  81473. procedure TCAN1_C1FIFOCON16.setTXLARB(thebits : TBits_1); inline;
  81474. begin
  81475. if thebits = 0 then
  81476. pTDefRegMap(@Self)^.clr := $00000020
  81477. else
  81478. pTDefRegMap(@Self)^.&set := $00000020;
  81479. end;
  81480. function TCAN1_C1FIFOCON16.getTXLARB : TBits_1; inline;
  81481. begin
  81482. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  81483. end;
  81484. procedure TCAN1_C1FIFOCON16.setTXABAT; inline;
  81485. begin
  81486. pTDefRegMap(@Self)^.&set := $00000040;
  81487. end;
  81488. procedure TCAN1_C1FIFOCON16.clearTXABAT; inline;
  81489. begin
  81490. pTDefRegMap(@Self)^.clr := $00000040;
  81491. end;
  81492. procedure TCAN1_C1FIFOCON16.setTXABAT(thebits : TBits_1); inline;
  81493. begin
  81494. if thebits = 0 then
  81495. pTDefRegMap(@Self)^.clr := $00000040
  81496. else
  81497. pTDefRegMap(@Self)^.&set := $00000040;
  81498. end;
  81499. function TCAN1_C1FIFOCON16.getTXABAT : TBits_1; inline;
  81500. begin
  81501. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  81502. end;
  81503. procedure TCAN1_C1FIFOCON16.setTXEN; inline;
  81504. begin
  81505. pTDefRegMap(@Self)^.&set := $00000080;
  81506. end;
  81507. procedure TCAN1_C1FIFOCON16.clearTXEN; inline;
  81508. begin
  81509. pTDefRegMap(@Self)^.clr := $00000080;
  81510. end;
  81511. procedure TCAN1_C1FIFOCON16.setTXEN(thebits : TBits_1); inline;
  81512. begin
  81513. if thebits = 0 then
  81514. pTDefRegMap(@Self)^.clr := $00000080
  81515. else
  81516. pTDefRegMap(@Self)^.&set := $00000080;
  81517. end;
  81518. function TCAN1_C1FIFOCON16.getTXEN : TBits_1; inline;
  81519. begin
  81520. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  81521. end;
  81522. procedure TCAN1_C1FIFOCON16.setDONLY; inline;
  81523. begin
  81524. pTDefRegMap(@Self)^.&set := $00001000;
  81525. end;
  81526. procedure TCAN1_C1FIFOCON16.clearDONLY; inline;
  81527. begin
  81528. pTDefRegMap(@Self)^.clr := $00001000;
  81529. end;
  81530. procedure TCAN1_C1FIFOCON16.setDONLY(thebits : TBits_1); inline;
  81531. begin
  81532. if thebits = 0 then
  81533. pTDefRegMap(@Self)^.clr := $00001000
  81534. else
  81535. pTDefRegMap(@Self)^.&set := $00001000;
  81536. end;
  81537. function TCAN1_C1FIFOCON16.getDONLY : TBits_1; inline;
  81538. begin
  81539. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  81540. end;
  81541. procedure TCAN1_C1FIFOCON16.setUINC; inline;
  81542. begin
  81543. pTDefRegMap(@Self)^.&set := $00002000;
  81544. end;
  81545. procedure TCAN1_C1FIFOCON16.clearUINC; inline;
  81546. begin
  81547. pTDefRegMap(@Self)^.clr := $00002000;
  81548. end;
  81549. procedure TCAN1_C1FIFOCON16.setUINC(thebits : TBits_1); inline;
  81550. begin
  81551. if thebits = 0 then
  81552. pTDefRegMap(@Self)^.clr := $00002000
  81553. else
  81554. pTDefRegMap(@Self)^.&set := $00002000;
  81555. end;
  81556. function TCAN1_C1FIFOCON16.getUINC : TBits_1; inline;
  81557. begin
  81558. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  81559. end;
  81560. procedure TCAN1_C1FIFOCON16.setFRESET; inline;
  81561. begin
  81562. pTDefRegMap(@Self)^.&set := $00004000;
  81563. end;
  81564. procedure TCAN1_C1FIFOCON16.clearFRESET; inline;
  81565. begin
  81566. pTDefRegMap(@Self)^.clr := $00004000;
  81567. end;
  81568. procedure TCAN1_C1FIFOCON16.setFRESET(thebits : TBits_1); inline;
  81569. begin
  81570. if thebits = 0 then
  81571. pTDefRegMap(@Self)^.clr := $00004000
  81572. else
  81573. pTDefRegMap(@Self)^.&set := $00004000;
  81574. end;
  81575. function TCAN1_C1FIFOCON16.getFRESET : TBits_1; inline;
  81576. begin
  81577. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  81578. end;
  81579. procedure TCAN1_C1FIFOCON16.setFSIZE(thebits : TBits_5); inline;
  81580. begin
  81581. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  81582. end;
  81583. function TCAN1_C1FIFOCON16.getFSIZE : TBits_5; inline;
  81584. begin
  81585. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  81586. end;
  81587. procedure TCAN1_C1FIFOCON16.setw(thebits : TBits_32); inline;
  81588. begin
  81589. pTDefRegMap(@Self)^.val := thebits;
  81590. end;
  81591. function TCAN1_C1FIFOCON16.getw : TBits_32; inline;
  81592. begin
  81593. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  81594. end;
  81595. procedure TCAN1_C1FIFOINT16.setRXNEMPTYIF; inline;
  81596. begin
  81597. pTDefRegMap(@Self)^.&set := $00000001;
  81598. end;
  81599. procedure TCAN1_C1FIFOINT16.clearRXNEMPTYIF; inline;
  81600. begin
  81601. pTDefRegMap(@Self)^.clr := $00000001;
  81602. end;
  81603. procedure TCAN1_C1FIFOINT16.setRXNEMPTYIF(thebits : TBits_1); inline;
  81604. begin
  81605. if thebits = 0 then
  81606. pTDefRegMap(@Self)^.clr := $00000001
  81607. else
  81608. pTDefRegMap(@Self)^.&set := $00000001;
  81609. end;
  81610. function TCAN1_C1FIFOINT16.getRXNEMPTYIF : TBits_1; inline;
  81611. begin
  81612. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  81613. end;
  81614. procedure TCAN1_C1FIFOINT16.setRXHALFIF; inline;
  81615. begin
  81616. pTDefRegMap(@Self)^.&set := $00000002;
  81617. end;
  81618. procedure TCAN1_C1FIFOINT16.clearRXHALFIF; inline;
  81619. begin
  81620. pTDefRegMap(@Self)^.clr := $00000002;
  81621. end;
  81622. procedure TCAN1_C1FIFOINT16.setRXHALFIF(thebits : TBits_1); inline;
  81623. begin
  81624. if thebits = 0 then
  81625. pTDefRegMap(@Self)^.clr := $00000002
  81626. else
  81627. pTDefRegMap(@Self)^.&set := $00000002;
  81628. end;
  81629. function TCAN1_C1FIFOINT16.getRXHALFIF : TBits_1; inline;
  81630. begin
  81631. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  81632. end;
  81633. procedure TCAN1_C1FIFOINT16.setRXFULLIF; inline;
  81634. begin
  81635. pTDefRegMap(@Self)^.&set := $00000004;
  81636. end;
  81637. procedure TCAN1_C1FIFOINT16.clearRXFULLIF; inline;
  81638. begin
  81639. pTDefRegMap(@Self)^.clr := $00000004;
  81640. end;
  81641. procedure TCAN1_C1FIFOINT16.setRXFULLIF(thebits : TBits_1); inline;
  81642. begin
  81643. if thebits = 0 then
  81644. pTDefRegMap(@Self)^.clr := $00000004
  81645. else
  81646. pTDefRegMap(@Self)^.&set := $00000004;
  81647. end;
  81648. function TCAN1_C1FIFOINT16.getRXFULLIF : TBits_1; inline;
  81649. begin
  81650. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  81651. end;
  81652. procedure TCAN1_C1FIFOINT16.setRXOVFLIF; inline;
  81653. begin
  81654. pTDefRegMap(@Self)^.&set := $00000008;
  81655. end;
  81656. procedure TCAN1_C1FIFOINT16.clearRXOVFLIF; inline;
  81657. begin
  81658. pTDefRegMap(@Self)^.clr := $00000008;
  81659. end;
  81660. procedure TCAN1_C1FIFOINT16.setRXOVFLIF(thebits : TBits_1); inline;
  81661. begin
  81662. if thebits = 0 then
  81663. pTDefRegMap(@Self)^.clr := $00000008
  81664. else
  81665. pTDefRegMap(@Self)^.&set := $00000008;
  81666. end;
  81667. function TCAN1_C1FIFOINT16.getRXOVFLIF : TBits_1; inline;
  81668. begin
  81669. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  81670. end;
  81671. procedure TCAN1_C1FIFOINT16.setTXEMPTYIF; inline;
  81672. begin
  81673. pTDefRegMap(@Self)^.&set := $00000100;
  81674. end;
  81675. procedure TCAN1_C1FIFOINT16.clearTXEMPTYIF; inline;
  81676. begin
  81677. pTDefRegMap(@Self)^.clr := $00000100;
  81678. end;
  81679. procedure TCAN1_C1FIFOINT16.setTXEMPTYIF(thebits : TBits_1); inline;
  81680. begin
  81681. if thebits = 0 then
  81682. pTDefRegMap(@Self)^.clr := $00000100
  81683. else
  81684. pTDefRegMap(@Self)^.&set := $00000100;
  81685. end;
  81686. function TCAN1_C1FIFOINT16.getTXEMPTYIF : TBits_1; inline;
  81687. begin
  81688. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  81689. end;
  81690. procedure TCAN1_C1FIFOINT16.setTXHALFIF; inline;
  81691. begin
  81692. pTDefRegMap(@Self)^.&set := $00000200;
  81693. end;
  81694. procedure TCAN1_C1FIFOINT16.clearTXHALFIF; inline;
  81695. begin
  81696. pTDefRegMap(@Self)^.clr := $00000200;
  81697. end;
  81698. procedure TCAN1_C1FIFOINT16.setTXHALFIF(thebits : TBits_1); inline;
  81699. begin
  81700. if thebits = 0 then
  81701. pTDefRegMap(@Self)^.clr := $00000200
  81702. else
  81703. pTDefRegMap(@Self)^.&set := $00000200;
  81704. end;
  81705. function TCAN1_C1FIFOINT16.getTXHALFIF : TBits_1; inline;
  81706. begin
  81707. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  81708. end;
  81709. procedure TCAN1_C1FIFOINT16.setTXNFULLIF; inline;
  81710. begin
  81711. pTDefRegMap(@Self)^.&set := $00000400;
  81712. end;
  81713. procedure TCAN1_C1FIFOINT16.clearTXNFULLIF; inline;
  81714. begin
  81715. pTDefRegMap(@Self)^.clr := $00000400;
  81716. end;
  81717. procedure TCAN1_C1FIFOINT16.setTXNFULLIF(thebits : TBits_1); inline;
  81718. begin
  81719. if thebits = 0 then
  81720. pTDefRegMap(@Self)^.clr := $00000400
  81721. else
  81722. pTDefRegMap(@Self)^.&set := $00000400;
  81723. end;
  81724. function TCAN1_C1FIFOINT16.getTXNFULLIF : TBits_1; inline;
  81725. begin
  81726. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  81727. end;
  81728. procedure TCAN1_C1FIFOINT16.setRXNEMPTYIE; inline;
  81729. begin
  81730. pTDefRegMap(@Self)^.&set := $00010000;
  81731. end;
  81732. procedure TCAN1_C1FIFOINT16.clearRXNEMPTYIE; inline;
  81733. begin
  81734. pTDefRegMap(@Self)^.clr := $00010000;
  81735. end;
  81736. procedure TCAN1_C1FIFOINT16.setRXNEMPTYIE(thebits : TBits_1); inline;
  81737. begin
  81738. if thebits = 0 then
  81739. pTDefRegMap(@Self)^.clr := $00010000
  81740. else
  81741. pTDefRegMap(@Self)^.&set := $00010000;
  81742. end;
  81743. function TCAN1_C1FIFOINT16.getRXNEMPTYIE : TBits_1; inline;
  81744. begin
  81745. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  81746. end;
  81747. procedure TCAN1_C1FIFOINT16.setRXHALFIE; inline;
  81748. begin
  81749. pTDefRegMap(@Self)^.&set := $00020000;
  81750. end;
  81751. procedure TCAN1_C1FIFOINT16.clearRXHALFIE; inline;
  81752. begin
  81753. pTDefRegMap(@Self)^.clr := $00020000;
  81754. end;
  81755. procedure TCAN1_C1FIFOINT16.setRXHALFIE(thebits : TBits_1); inline;
  81756. begin
  81757. if thebits = 0 then
  81758. pTDefRegMap(@Self)^.clr := $00020000
  81759. else
  81760. pTDefRegMap(@Self)^.&set := $00020000;
  81761. end;
  81762. function TCAN1_C1FIFOINT16.getRXHALFIE : TBits_1; inline;
  81763. begin
  81764. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  81765. end;
  81766. procedure TCAN1_C1FIFOINT16.setRXFULLIE; inline;
  81767. begin
  81768. pTDefRegMap(@Self)^.&set := $00040000;
  81769. end;
  81770. procedure TCAN1_C1FIFOINT16.clearRXFULLIE; inline;
  81771. begin
  81772. pTDefRegMap(@Self)^.clr := $00040000;
  81773. end;
  81774. procedure TCAN1_C1FIFOINT16.setRXFULLIE(thebits : TBits_1); inline;
  81775. begin
  81776. if thebits = 0 then
  81777. pTDefRegMap(@Self)^.clr := $00040000
  81778. else
  81779. pTDefRegMap(@Self)^.&set := $00040000;
  81780. end;
  81781. function TCAN1_C1FIFOINT16.getRXFULLIE : TBits_1; inline;
  81782. begin
  81783. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  81784. end;
  81785. procedure TCAN1_C1FIFOINT16.setRXOVFLIE; inline;
  81786. begin
  81787. pTDefRegMap(@Self)^.&set := $00080000;
  81788. end;
  81789. procedure TCAN1_C1FIFOINT16.clearRXOVFLIE; inline;
  81790. begin
  81791. pTDefRegMap(@Self)^.clr := $00080000;
  81792. end;
  81793. procedure TCAN1_C1FIFOINT16.setRXOVFLIE(thebits : TBits_1); inline;
  81794. begin
  81795. if thebits = 0 then
  81796. pTDefRegMap(@Self)^.clr := $00080000
  81797. else
  81798. pTDefRegMap(@Self)^.&set := $00080000;
  81799. end;
  81800. function TCAN1_C1FIFOINT16.getRXOVFLIE : TBits_1; inline;
  81801. begin
  81802. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  81803. end;
  81804. procedure TCAN1_C1FIFOINT16.setTXEMPTYIE; inline;
  81805. begin
  81806. pTDefRegMap(@Self)^.&set := $01000000;
  81807. end;
  81808. procedure TCAN1_C1FIFOINT16.clearTXEMPTYIE; inline;
  81809. begin
  81810. pTDefRegMap(@Self)^.clr := $01000000;
  81811. end;
  81812. procedure TCAN1_C1FIFOINT16.setTXEMPTYIE(thebits : TBits_1); inline;
  81813. begin
  81814. if thebits = 0 then
  81815. pTDefRegMap(@Self)^.clr := $01000000
  81816. else
  81817. pTDefRegMap(@Self)^.&set := $01000000;
  81818. end;
  81819. function TCAN1_C1FIFOINT16.getTXEMPTYIE : TBits_1; inline;
  81820. begin
  81821. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  81822. end;
  81823. procedure TCAN1_C1FIFOINT16.setTXHALFIE; inline;
  81824. begin
  81825. pTDefRegMap(@Self)^.&set := $02000000;
  81826. end;
  81827. procedure TCAN1_C1FIFOINT16.clearTXHALFIE; inline;
  81828. begin
  81829. pTDefRegMap(@Self)^.clr := $02000000;
  81830. end;
  81831. procedure TCAN1_C1FIFOINT16.setTXHALFIE(thebits : TBits_1); inline;
  81832. begin
  81833. if thebits = 0 then
  81834. pTDefRegMap(@Self)^.clr := $02000000
  81835. else
  81836. pTDefRegMap(@Self)^.&set := $02000000;
  81837. end;
  81838. function TCAN1_C1FIFOINT16.getTXHALFIE : TBits_1; inline;
  81839. begin
  81840. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  81841. end;
  81842. procedure TCAN1_C1FIFOINT16.setTXNFULLIE; inline;
  81843. begin
  81844. pTDefRegMap(@Self)^.&set := $04000000;
  81845. end;
  81846. procedure TCAN1_C1FIFOINT16.clearTXNFULLIE; inline;
  81847. begin
  81848. pTDefRegMap(@Self)^.clr := $04000000;
  81849. end;
  81850. procedure TCAN1_C1FIFOINT16.setTXNFULLIE(thebits : TBits_1); inline;
  81851. begin
  81852. if thebits = 0 then
  81853. pTDefRegMap(@Self)^.clr := $04000000
  81854. else
  81855. pTDefRegMap(@Self)^.&set := $04000000;
  81856. end;
  81857. function TCAN1_C1FIFOINT16.getTXNFULLIE : TBits_1; inline;
  81858. begin
  81859. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  81860. end;
  81861. procedure TCAN1_C1FIFOINT16.setw(thebits : TBits_32); inline;
  81862. begin
  81863. pTDefRegMap(@Self)^.val := thebits;
  81864. end;
  81865. function TCAN1_C1FIFOINT16.getw : TBits_32; inline;
  81866. begin
  81867. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  81868. end;
  81869. procedure TCAN1_C1FIFOCI16.setCFIFOCI(thebits : TBits_5); inline;
  81870. begin
  81871. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  81872. end;
  81873. function TCAN1_C1FIFOCI16.getCFIFOCI : TBits_5; inline;
  81874. begin
  81875. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  81876. end;
  81877. procedure TCAN1_C1FIFOCI16.setw(thebits : TBits_32); inline;
  81878. begin
  81879. pTDefRegMap(@Self)^.val := thebits;
  81880. end;
  81881. function TCAN1_C1FIFOCI16.getw : TBits_32; inline;
  81882. begin
  81883. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  81884. end;
  81885. procedure TCAN1_C1FIFOCON17.setTXPRI(thebits : TBits_2); inline;
  81886. begin
  81887. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  81888. end;
  81889. function TCAN1_C1FIFOCON17.getTXPRI : TBits_2; inline;
  81890. begin
  81891. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  81892. end;
  81893. procedure TCAN1_C1FIFOCON17.setRTREN; inline;
  81894. begin
  81895. pTDefRegMap(@Self)^.&set := $00000004;
  81896. end;
  81897. procedure TCAN1_C1FIFOCON17.clearRTREN; inline;
  81898. begin
  81899. pTDefRegMap(@Self)^.clr := $00000004;
  81900. end;
  81901. procedure TCAN1_C1FIFOCON17.setRTREN(thebits : TBits_1); inline;
  81902. begin
  81903. if thebits = 0 then
  81904. pTDefRegMap(@Self)^.clr := $00000004
  81905. else
  81906. pTDefRegMap(@Self)^.&set := $00000004;
  81907. end;
  81908. function TCAN1_C1FIFOCON17.getRTREN : TBits_1; inline;
  81909. begin
  81910. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  81911. end;
  81912. procedure TCAN1_C1FIFOCON17.setTXREQ; inline;
  81913. begin
  81914. pTDefRegMap(@Self)^.&set := $00000008;
  81915. end;
  81916. procedure TCAN1_C1FIFOCON17.clearTXREQ; inline;
  81917. begin
  81918. pTDefRegMap(@Self)^.clr := $00000008;
  81919. end;
  81920. procedure TCAN1_C1FIFOCON17.setTXREQ(thebits : TBits_1); inline;
  81921. begin
  81922. if thebits = 0 then
  81923. pTDefRegMap(@Self)^.clr := $00000008
  81924. else
  81925. pTDefRegMap(@Self)^.&set := $00000008;
  81926. end;
  81927. function TCAN1_C1FIFOCON17.getTXREQ : TBits_1; inline;
  81928. begin
  81929. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  81930. end;
  81931. procedure TCAN1_C1FIFOCON17.setTXERR; inline;
  81932. begin
  81933. pTDefRegMap(@Self)^.&set := $00000010;
  81934. end;
  81935. procedure TCAN1_C1FIFOCON17.clearTXERR; inline;
  81936. begin
  81937. pTDefRegMap(@Self)^.clr := $00000010;
  81938. end;
  81939. procedure TCAN1_C1FIFOCON17.setTXERR(thebits : TBits_1); inline;
  81940. begin
  81941. if thebits = 0 then
  81942. pTDefRegMap(@Self)^.clr := $00000010
  81943. else
  81944. pTDefRegMap(@Self)^.&set := $00000010;
  81945. end;
  81946. function TCAN1_C1FIFOCON17.getTXERR : TBits_1; inline;
  81947. begin
  81948. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  81949. end;
  81950. procedure TCAN1_C1FIFOCON17.setTXLARB; inline;
  81951. begin
  81952. pTDefRegMap(@Self)^.&set := $00000020;
  81953. end;
  81954. procedure TCAN1_C1FIFOCON17.clearTXLARB; inline;
  81955. begin
  81956. pTDefRegMap(@Self)^.clr := $00000020;
  81957. end;
  81958. procedure TCAN1_C1FIFOCON17.setTXLARB(thebits : TBits_1); inline;
  81959. begin
  81960. if thebits = 0 then
  81961. pTDefRegMap(@Self)^.clr := $00000020
  81962. else
  81963. pTDefRegMap(@Self)^.&set := $00000020;
  81964. end;
  81965. function TCAN1_C1FIFOCON17.getTXLARB : TBits_1; inline;
  81966. begin
  81967. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  81968. end;
  81969. procedure TCAN1_C1FIFOCON17.setTXABAT; inline;
  81970. begin
  81971. pTDefRegMap(@Self)^.&set := $00000040;
  81972. end;
  81973. procedure TCAN1_C1FIFOCON17.clearTXABAT; inline;
  81974. begin
  81975. pTDefRegMap(@Self)^.clr := $00000040;
  81976. end;
  81977. procedure TCAN1_C1FIFOCON17.setTXABAT(thebits : TBits_1); inline;
  81978. begin
  81979. if thebits = 0 then
  81980. pTDefRegMap(@Self)^.clr := $00000040
  81981. else
  81982. pTDefRegMap(@Self)^.&set := $00000040;
  81983. end;
  81984. function TCAN1_C1FIFOCON17.getTXABAT : TBits_1; inline;
  81985. begin
  81986. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  81987. end;
  81988. procedure TCAN1_C1FIFOCON17.setTXEN; inline;
  81989. begin
  81990. pTDefRegMap(@Self)^.&set := $00000080;
  81991. end;
  81992. procedure TCAN1_C1FIFOCON17.clearTXEN; inline;
  81993. begin
  81994. pTDefRegMap(@Self)^.clr := $00000080;
  81995. end;
  81996. procedure TCAN1_C1FIFOCON17.setTXEN(thebits : TBits_1); inline;
  81997. begin
  81998. if thebits = 0 then
  81999. pTDefRegMap(@Self)^.clr := $00000080
  82000. else
  82001. pTDefRegMap(@Self)^.&set := $00000080;
  82002. end;
  82003. function TCAN1_C1FIFOCON17.getTXEN : TBits_1; inline;
  82004. begin
  82005. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  82006. end;
  82007. procedure TCAN1_C1FIFOCON17.setDONLY; inline;
  82008. begin
  82009. pTDefRegMap(@Self)^.&set := $00001000;
  82010. end;
  82011. procedure TCAN1_C1FIFOCON17.clearDONLY; inline;
  82012. begin
  82013. pTDefRegMap(@Self)^.clr := $00001000;
  82014. end;
  82015. procedure TCAN1_C1FIFOCON17.setDONLY(thebits : TBits_1); inline;
  82016. begin
  82017. if thebits = 0 then
  82018. pTDefRegMap(@Self)^.clr := $00001000
  82019. else
  82020. pTDefRegMap(@Self)^.&set := $00001000;
  82021. end;
  82022. function TCAN1_C1FIFOCON17.getDONLY : TBits_1; inline;
  82023. begin
  82024. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  82025. end;
  82026. procedure TCAN1_C1FIFOCON17.setUINC; inline;
  82027. begin
  82028. pTDefRegMap(@Self)^.&set := $00002000;
  82029. end;
  82030. procedure TCAN1_C1FIFOCON17.clearUINC; inline;
  82031. begin
  82032. pTDefRegMap(@Self)^.clr := $00002000;
  82033. end;
  82034. procedure TCAN1_C1FIFOCON17.setUINC(thebits : TBits_1); inline;
  82035. begin
  82036. if thebits = 0 then
  82037. pTDefRegMap(@Self)^.clr := $00002000
  82038. else
  82039. pTDefRegMap(@Self)^.&set := $00002000;
  82040. end;
  82041. function TCAN1_C1FIFOCON17.getUINC : TBits_1; inline;
  82042. begin
  82043. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  82044. end;
  82045. procedure TCAN1_C1FIFOCON17.setFRESET; inline;
  82046. begin
  82047. pTDefRegMap(@Self)^.&set := $00004000;
  82048. end;
  82049. procedure TCAN1_C1FIFOCON17.clearFRESET; inline;
  82050. begin
  82051. pTDefRegMap(@Self)^.clr := $00004000;
  82052. end;
  82053. procedure TCAN1_C1FIFOCON17.setFRESET(thebits : TBits_1); inline;
  82054. begin
  82055. if thebits = 0 then
  82056. pTDefRegMap(@Self)^.clr := $00004000
  82057. else
  82058. pTDefRegMap(@Self)^.&set := $00004000;
  82059. end;
  82060. function TCAN1_C1FIFOCON17.getFRESET : TBits_1; inline;
  82061. begin
  82062. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  82063. end;
  82064. procedure TCAN1_C1FIFOCON17.setFSIZE(thebits : TBits_5); inline;
  82065. begin
  82066. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  82067. end;
  82068. function TCAN1_C1FIFOCON17.getFSIZE : TBits_5; inline;
  82069. begin
  82070. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  82071. end;
  82072. procedure TCAN1_C1FIFOCON17.setw(thebits : TBits_32); inline;
  82073. begin
  82074. pTDefRegMap(@Self)^.val := thebits;
  82075. end;
  82076. function TCAN1_C1FIFOCON17.getw : TBits_32; inline;
  82077. begin
  82078. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  82079. end;
  82080. procedure TCAN1_C1FIFOINT17.setRXNEMPTYIF; inline;
  82081. begin
  82082. pTDefRegMap(@Self)^.&set := $00000001;
  82083. end;
  82084. procedure TCAN1_C1FIFOINT17.clearRXNEMPTYIF; inline;
  82085. begin
  82086. pTDefRegMap(@Self)^.clr := $00000001;
  82087. end;
  82088. procedure TCAN1_C1FIFOINT17.setRXNEMPTYIF(thebits : TBits_1); inline;
  82089. begin
  82090. if thebits = 0 then
  82091. pTDefRegMap(@Self)^.clr := $00000001
  82092. else
  82093. pTDefRegMap(@Self)^.&set := $00000001;
  82094. end;
  82095. function TCAN1_C1FIFOINT17.getRXNEMPTYIF : TBits_1; inline;
  82096. begin
  82097. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  82098. end;
  82099. procedure TCAN1_C1FIFOINT17.setRXHALFIF; inline;
  82100. begin
  82101. pTDefRegMap(@Self)^.&set := $00000002;
  82102. end;
  82103. procedure TCAN1_C1FIFOINT17.clearRXHALFIF; inline;
  82104. begin
  82105. pTDefRegMap(@Self)^.clr := $00000002;
  82106. end;
  82107. procedure TCAN1_C1FIFOINT17.setRXHALFIF(thebits : TBits_1); inline;
  82108. begin
  82109. if thebits = 0 then
  82110. pTDefRegMap(@Self)^.clr := $00000002
  82111. else
  82112. pTDefRegMap(@Self)^.&set := $00000002;
  82113. end;
  82114. function TCAN1_C1FIFOINT17.getRXHALFIF : TBits_1; inline;
  82115. begin
  82116. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  82117. end;
  82118. procedure TCAN1_C1FIFOINT17.setRXFULLIF; inline;
  82119. begin
  82120. pTDefRegMap(@Self)^.&set := $00000004;
  82121. end;
  82122. procedure TCAN1_C1FIFOINT17.clearRXFULLIF; inline;
  82123. begin
  82124. pTDefRegMap(@Self)^.clr := $00000004;
  82125. end;
  82126. procedure TCAN1_C1FIFOINT17.setRXFULLIF(thebits : TBits_1); inline;
  82127. begin
  82128. if thebits = 0 then
  82129. pTDefRegMap(@Self)^.clr := $00000004
  82130. else
  82131. pTDefRegMap(@Self)^.&set := $00000004;
  82132. end;
  82133. function TCAN1_C1FIFOINT17.getRXFULLIF : TBits_1; inline;
  82134. begin
  82135. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  82136. end;
  82137. procedure TCAN1_C1FIFOINT17.setRXOVFLIF; inline;
  82138. begin
  82139. pTDefRegMap(@Self)^.&set := $00000008;
  82140. end;
  82141. procedure TCAN1_C1FIFOINT17.clearRXOVFLIF; inline;
  82142. begin
  82143. pTDefRegMap(@Self)^.clr := $00000008;
  82144. end;
  82145. procedure TCAN1_C1FIFOINT17.setRXOVFLIF(thebits : TBits_1); inline;
  82146. begin
  82147. if thebits = 0 then
  82148. pTDefRegMap(@Self)^.clr := $00000008
  82149. else
  82150. pTDefRegMap(@Self)^.&set := $00000008;
  82151. end;
  82152. function TCAN1_C1FIFOINT17.getRXOVFLIF : TBits_1; inline;
  82153. begin
  82154. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  82155. end;
  82156. procedure TCAN1_C1FIFOINT17.setTXEMPTYIF; inline;
  82157. begin
  82158. pTDefRegMap(@Self)^.&set := $00000100;
  82159. end;
  82160. procedure TCAN1_C1FIFOINT17.clearTXEMPTYIF; inline;
  82161. begin
  82162. pTDefRegMap(@Self)^.clr := $00000100;
  82163. end;
  82164. procedure TCAN1_C1FIFOINT17.setTXEMPTYIF(thebits : TBits_1); inline;
  82165. begin
  82166. if thebits = 0 then
  82167. pTDefRegMap(@Self)^.clr := $00000100
  82168. else
  82169. pTDefRegMap(@Self)^.&set := $00000100;
  82170. end;
  82171. function TCAN1_C1FIFOINT17.getTXEMPTYIF : TBits_1; inline;
  82172. begin
  82173. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  82174. end;
  82175. procedure TCAN1_C1FIFOINT17.setTXHALFIF; inline;
  82176. begin
  82177. pTDefRegMap(@Self)^.&set := $00000200;
  82178. end;
  82179. procedure TCAN1_C1FIFOINT17.clearTXHALFIF; inline;
  82180. begin
  82181. pTDefRegMap(@Self)^.clr := $00000200;
  82182. end;
  82183. procedure TCAN1_C1FIFOINT17.setTXHALFIF(thebits : TBits_1); inline;
  82184. begin
  82185. if thebits = 0 then
  82186. pTDefRegMap(@Self)^.clr := $00000200
  82187. else
  82188. pTDefRegMap(@Self)^.&set := $00000200;
  82189. end;
  82190. function TCAN1_C1FIFOINT17.getTXHALFIF : TBits_1; inline;
  82191. begin
  82192. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  82193. end;
  82194. procedure TCAN1_C1FIFOINT17.setTXNFULLIF; inline;
  82195. begin
  82196. pTDefRegMap(@Self)^.&set := $00000400;
  82197. end;
  82198. procedure TCAN1_C1FIFOINT17.clearTXNFULLIF; inline;
  82199. begin
  82200. pTDefRegMap(@Self)^.clr := $00000400;
  82201. end;
  82202. procedure TCAN1_C1FIFOINT17.setTXNFULLIF(thebits : TBits_1); inline;
  82203. begin
  82204. if thebits = 0 then
  82205. pTDefRegMap(@Self)^.clr := $00000400
  82206. else
  82207. pTDefRegMap(@Self)^.&set := $00000400;
  82208. end;
  82209. function TCAN1_C1FIFOINT17.getTXNFULLIF : TBits_1; inline;
  82210. begin
  82211. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  82212. end;
  82213. procedure TCAN1_C1FIFOINT17.setRXNEMPTYIE; inline;
  82214. begin
  82215. pTDefRegMap(@Self)^.&set := $00010000;
  82216. end;
  82217. procedure TCAN1_C1FIFOINT17.clearRXNEMPTYIE; inline;
  82218. begin
  82219. pTDefRegMap(@Self)^.clr := $00010000;
  82220. end;
  82221. procedure TCAN1_C1FIFOINT17.setRXNEMPTYIE(thebits : TBits_1); inline;
  82222. begin
  82223. if thebits = 0 then
  82224. pTDefRegMap(@Self)^.clr := $00010000
  82225. else
  82226. pTDefRegMap(@Self)^.&set := $00010000;
  82227. end;
  82228. function TCAN1_C1FIFOINT17.getRXNEMPTYIE : TBits_1; inline;
  82229. begin
  82230. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  82231. end;
  82232. procedure TCAN1_C1FIFOINT17.setRXHALFIE; inline;
  82233. begin
  82234. pTDefRegMap(@Self)^.&set := $00020000;
  82235. end;
  82236. procedure TCAN1_C1FIFOINT17.clearRXHALFIE; inline;
  82237. begin
  82238. pTDefRegMap(@Self)^.clr := $00020000;
  82239. end;
  82240. procedure TCAN1_C1FIFOINT17.setRXHALFIE(thebits : TBits_1); inline;
  82241. begin
  82242. if thebits = 0 then
  82243. pTDefRegMap(@Self)^.clr := $00020000
  82244. else
  82245. pTDefRegMap(@Self)^.&set := $00020000;
  82246. end;
  82247. function TCAN1_C1FIFOINT17.getRXHALFIE : TBits_1; inline;
  82248. begin
  82249. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  82250. end;
  82251. procedure TCAN1_C1FIFOINT17.setRXFULLIE; inline;
  82252. begin
  82253. pTDefRegMap(@Self)^.&set := $00040000;
  82254. end;
  82255. procedure TCAN1_C1FIFOINT17.clearRXFULLIE; inline;
  82256. begin
  82257. pTDefRegMap(@Self)^.clr := $00040000;
  82258. end;
  82259. procedure TCAN1_C1FIFOINT17.setRXFULLIE(thebits : TBits_1); inline;
  82260. begin
  82261. if thebits = 0 then
  82262. pTDefRegMap(@Self)^.clr := $00040000
  82263. else
  82264. pTDefRegMap(@Self)^.&set := $00040000;
  82265. end;
  82266. function TCAN1_C1FIFOINT17.getRXFULLIE : TBits_1; inline;
  82267. begin
  82268. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  82269. end;
  82270. procedure TCAN1_C1FIFOINT17.setRXOVFLIE; inline;
  82271. begin
  82272. pTDefRegMap(@Self)^.&set := $00080000;
  82273. end;
  82274. procedure TCAN1_C1FIFOINT17.clearRXOVFLIE; inline;
  82275. begin
  82276. pTDefRegMap(@Self)^.clr := $00080000;
  82277. end;
  82278. procedure TCAN1_C1FIFOINT17.setRXOVFLIE(thebits : TBits_1); inline;
  82279. begin
  82280. if thebits = 0 then
  82281. pTDefRegMap(@Self)^.clr := $00080000
  82282. else
  82283. pTDefRegMap(@Self)^.&set := $00080000;
  82284. end;
  82285. function TCAN1_C1FIFOINT17.getRXOVFLIE : TBits_1; inline;
  82286. begin
  82287. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  82288. end;
  82289. procedure TCAN1_C1FIFOINT17.setTXEMPTYIE; inline;
  82290. begin
  82291. pTDefRegMap(@Self)^.&set := $01000000;
  82292. end;
  82293. procedure TCAN1_C1FIFOINT17.clearTXEMPTYIE; inline;
  82294. begin
  82295. pTDefRegMap(@Self)^.clr := $01000000;
  82296. end;
  82297. procedure TCAN1_C1FIFOINT17.setTXEMPTYIE(thebits : TBits_1); inline;
  82298. begin
  82299. if thebits = 0 then
  82300. pTDefRegMap(@Self)^.clr := $01000000
  82301. else
  82302. pTDefRegMap(@Self)^.&set := $01000000;
  82303. end;
  82304. function TCAN1_C1FIFOINT17.getTXEMPTYIE : TBits_1; inline;
  82305. begin
  82306. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  82307. end;
  82308. procedure TCAN1_C1FIFOINT17.setTXHALFIE; inline;
  82309. begin
  82310. pTDefRegMap(@Self)^.&set := $02000000;
  82311. end;
  82312. procedure TCAN1_C1FIFOINT17.clearTXHALFIE; inline;
  82313. begin
  82314. pTDefRegMap(@Self)^.clr := $02000000;
  82315. end;
  82316. procedure TCAN1_C1FIFOINT17.setTXHALFIE(thebits : TBits_1); inline;
  82317. begin
  82318. if thebits = 0 then
  82319. pTDefRegMap(@Self)^.clr := $02000000
  82320. else
  82321. pTDefRegMap(@Self)^.&set := $02000000;
  82322. end;
  82323. function TCAN1_C1FIFOINT17.getTXHALFIE : TBits_1; inline;
  82324. begin
  82325. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  82326. end;
  82327. procedure TCAN1_C1FIFOINT17.setTXNFULLIE; inline;
  82328. begin
  82329. pTDefRegMap(@Self)^.&set := $04000000;
  82330. end;
  82331. procedure TCAN1_C1FIFOINT17.clearTXNFULLIE; inline;
  82332. begin
  82333. pTDefRegMap(@Self)^.clr := $04000000;
  82334. end;
  82335. procedure TCAN1_C1FIFOINT17.setTXNFULLIE(thebits : TBits_1); inline;
  82336. begin
  82337. if thebits = 0 then
  82338. pTDefRegMap(@Self)^.clr := $04000000
  82339. else
  82340. pTDefRegMap(@Self)^.&set := $04000000;
  82341. end;
  82342. function TCAN1_C1FIFOINT17.getTXNFULLIE : TBits_1; inline;
  82343. begin
  82344. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  82345. end;
  82346. procedure TCAN1_C1FIFOINT17.setw(thebits : TBits_32); inline;
  82347. begin
  82348. pTDefRegMap(@Self)^.val := thebits;
  82349. end;
  82350. function TCAN1_C1FIFOINT17.getw : TBits_32; inline;
  82351. begin
  82352. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  82353. end;
  82354. procedure TCAN1_C1FIFOCI17.setCFIFOCI(thebits : TBits_5); inline;
  82355. begin
  82356. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  82357. end;
  82358. function TCAN1_C1FIFOCI17.getCFIFOCI : TBits_5; inline;
  82359. begin
  82360. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  82361. end;
  82362. procedure TCAN1_C1FIFOCI17.setw(thebits : TBits_32); inline;
  82363. begin
  82364. pTDefRegMap(@Self)^.val := thebits;
  82365. end;
  82366. function TCAN1_C1FIFOCI17.getw : TBits_32; inline;
  82367. begin
  82368. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  82369. end;
  82370. procedure TCAN1_C1FIFOCON18.setTXPRI(thebits : TBits_2); inline;
  82371. begin
  82372. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  82373. end;
  82374. function TCAN1_C1FIFOCON18.getTXPRI : TBits_2; inline;
  82375. begin
  82376. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  82377. end;
  82378. procedure TCAN1_C1FIFOCON18.setRTREN; inline;
  82379. begin
  82380. pTDefRegMap(@Self)^.&set := $00000004;
  82381. end;
  82382. procedure TCAN1_C1FIFOCON18.clearRTREN; inline;
  82383. begin
  82384. pTDefRegMap(@Self)^.clr := $00000004;
  82385. end;
  82386. procedure TCAN1_C1FIFOCON18.setRTREN(thebits : TBits_1); inline;
  82387. begin
  82388. if thebits = 0 then
  82389. pTDefRegMap(@Self)^.clr := $00000004
  82390. else
  82391. pTDefRegMap(@Self)^.&set := $00000004;
  82392. end;
  82393. function TCAN1_C1FIFOCON18.getRTREN : TBits_1; inline;
  82394. begin
  82395. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  82396. end;
  82397. procedure TCAN1_C1FIFOCON18.setTXREQ; inline;
  82398. begin
  82399. pTDefRegMap(@Self)^.&set := $00000008;
  82400. end;
  82401. procedure TCAN1_C1FIFOCON18.clearTXREQ; inline;
  82402. begin
  82403. pTDefRegMap(@Self)^.clr := $00000008;
  82404. end;
  82405. procedure TCAN1_C1FIFOCON18.setTXREQ(thebits : TBits_1); inline;
  82406. begin
  82407. if thebits = 0 then
  82408. pTDefRegMap(@Self)^.clr := $00000008
  82409. else
  82410. pTDefRegMap(@Self)^.&set := $00000008;
  82411. end;
  82412. function TCAN1_C1FIFOCON18.getTXREQ : TBits_1; inline;
  82413. begin
  82414. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  82415. end;
  82416. procedure TCAN1_C1FIFOCON18.setTXERR; inline;
  82417. begin
  82418. pTDefRegMap(@Self)^.&set := $00000010;
  82419. end;
  82420. procedure TCAN1_C1FIFOCON18.clearTXERR; inline;
  82421. begin
  82422. pTDefRegMap(@Self)^.clr := $00000010;
  82423. end;
  82424. procedure TCAN1_C1FIFOCON18.setTXERR(thebits : TBits_1); inline;
  82425. begin
  82426. if thebits = 0 then
  82427. pTDefRegMap(@Self)^.clr := $00000010
  82428. else
  82429. pTDefRegMap(@Self)^.&set := $00000010;
  82430. end;
  82431. function TCAN1_C1FIFOCON18.getTXERR : TBits_1; inline;
  82432. begin
  82433. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  82434. end;
  82435. procedure TCAN1_C1FIFOCON18.setTXLARB; inline;
  82436. begin
  82437. pTDefRegMap(@Self)^.&set := $00000020;
  82438. end;
  82439. procedure TCAN1_C1FIFOCON18.clearTXLARB; inline;
  82440. begin
  82441. pTDefRegMap(@Self)^.clr := $00000020;
  82442. end;
  82443. procedure TCAN1_C1FIFOCON18.setTXLARB(thebits : TBits_1); inline;
  82444. begin
  82445. if thebits = 0 then
  82446. pTDefRegMap(@Self)^.clr := $00000020
  82447. else
  82448. pTDefRegMap(@Self)^.&set := $00000020;
  82449. end;
  82450. function TCAN1_C1FIFOCON18.getTXLARB : TBits_1; inline;
  82451. begin
  82452. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  82453. end;
  82454. procedure TCAN1_C1FIFOCON18.setTXABAT; inline;
  82455. begin
  82456. pTDefRegMap(@Self)^.&set := $00000040;
  82457. end;
  82458. procedure TCAN1_C1FIFOCON18.clearTXABAT; inline;
  82459. begin
  82460. pTDefRegMap(@Self)^.clr := $00000040;
  82461. end;
  82462. procedure TCAN1_C1FIFOCON18.setTXABAT(thebits : TBits_1); inline;
  82463. begin
  82464. if thebits = 0 then
  82465. pTDefRegMap(@Self)^.clr := $00000040
  82466. else
  82467. pTDefRegMap(@Self)^.&set := $00000040;
  82468. end;
  82469. function TCAN1_C1FIFOCON18.getTXABAT : TBits_1; inline;
  82470. begin
  82471. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  82472. end;
  82473. procedure TCAN1_C1FIFOCON18.setTXEN; inline;
  82474. begin
  82475. pTDefRegMap(@Self)^.&set := $00000080;
  82476. end;
  82477. procedure TCAN1_C1FIFOCON18.clearTXEN; inline;
  82478. begin
  82479. pTDefRegMap(@Self)^.clr := $00000080;
  82480. end;
  82481. procedure TCAN1_C1FIFOCON18.setTXEN(thebits : TBits_1); inline;
  82482. begin
  82483. if thebits = 0 then
  82484. pTDefRegMap(@Self)^.clr := $00000080
  82485. else
  82486. pTDefRegMap(@Self)^.&set := $00000080;
  82487. end;
  82488. function TCAN1_C1FIFOCON18.getTXEN : TBits_1; inline;
  82489. begin
  82490. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  82491. end;
  82492. procedure TCAN1_C1FIFOCON18.setDONLY; inline;
  82493. begin
  82494. pTDefRegMap(@Self)^.&set := $00001000;
  82495. end;
  82496. procedure TCAN1_C1FIFOCON18.clearDONLY; inline;
  82497. begin
  82498. pTDefRegMap(@Self)^.clr := $00001000;
  82499. end;
  82500. procedure TCAN1_C1FIFOCON18.setDONLY(thebits : TBits_1); inline;
  82501. begin
  82502. if thebits = 0 then
  82503. pTDefRegMap(@Self)^.clr := $00001000
  82504. else
  82505. pTDefRegMap(@Self)^.&set := $00001000;
  82506. end;
  82507. function TCAN1_C1FIFOCON18.getDONLY : TBits_1; inline;
  82508. begin
  82509. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  82510. end;
  82511. procedure TCAN1_C1FIFOCON18.setUINC; inline;
  82512. begin
  82513. pTDefRegMap(@Self)^.&set := $00002000;
  82514. end;
  82515. procedure TCAN1_C1FIFOCON18.clearUINC; inline;
  82516. begin
  82517. pTDefRegMap(@Self)^.clr := $00002000;
  82518. end;
  82519. procedure TCAN1_C1FIFOCON18.setUINC(thebits : TBits_1); inline;
  82520. begin
  82521. if thebits = 0 then
  82522. pTDefRegMap(@Self)^.clr := $00002000
  82523. else
  82524. pTDefRegMap(@Self)^.&set := $00002000;
  82525. end;
  82526. function TCAN1_C1FIFOCON18.getUINC : TBits_1; inline;
  82527. begin
  82528. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  82529. end;
  82530. procedure TCAN1_C1FIFOCON18.setFRESET; inline;
  82531. begin
  82532. pTDefRegMap(@Self)^.&set := $00004000;
  82533. end;
  82534. procedure TCAN1_C1FIFOCON18.clearFRESET; inline;
  82535. begin
  82536. pTDefRegMap(@Self)^.clr := $00004000;
  82537. end;
  82538. procedure TCAN1_C1FIFOCON18.setFRESET(thebits : TBits_1); inline;
  82539. begin
  82540. if thebits = 0 then
  82541. pTDefRegMap(@Self)^.clr := $00004000
  82542. else
  82543. pTDefRegMap(@Self)^.&set := $00004000;
  82544. end;
  82545. function TCAN1_C1FIFOCON18.getFRESET : TBits_1; inline;
  82546. begin
  82547. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  82548. end;
  82549. procedure TCAN1_C1FIFOCON18.setFSIZE(thebits : TBits_5); inline;
  82550. begin
  82551. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  82552. end;
  82553. function TCAN1_C1FIFOCON18.getFSIZE : TBits_5; inline;
  82554. begin
  82555. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  82556. end;
  82557. procedure TCAN1_C1FIFOCON18.setw(thebits : TBits_32); inline;
  82558. begin
  82559. pTDefRegMap(@Self)^.val := thebits;
  82560. end;
  82561. function TCAN1_C1FIFOCON18.getw : TBits_32; inline;
  82562. begin
  82563. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  82564. end;
  82565. procedure TCAN1_C1FIFOINT18.setRXNEMPTYIF; inline;
  82566. begin
  82567. pTDefRegMap(@Self)^.&set := $00000001;
  82568. end;
  82569. procedure TCAN1_C1FIFOINT18.clearRXNEMPTYIF; inline;
  82570. begin
  82571. pTDefRegMap(@Self)^.clr := $00000001;
  82572. end;
  82573. procedure TCAN1_C1FIFOINT18.setRXNEMPTYIF(thebits : TBits_1); inline;
  82574. begin
  82575. if thebits = 0 then
  82576. pTDefRegMap(@Self)^.clr := $00000001
  82577. else
  82578. pTDefRegMap(@Self)^.&set := $00000001;
  82579. end;
  82580. function TCAN1_C1FIFOINT18.getRXNEMPTYIF : TBits_1; inline;
  82581. begin
  82582. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  82583. end;
  82584. procedure TCAN1_C1FIFOINT18.setRXHALFIF; inline;
  82585. begin
  82586. pTDefRegMap(@Self)^.&set := $00000002;
  82587. end;
  82588. procedure TCAN1_C1FIFOINT18.clearRXHALFIF; inline;
  82589. begin
  82590. pTDefRegMap(@Self)^.clr := $00000002;
  82591. end;
  82592. procedure TCAN1_C1FIFOINT18.setRXHALFIF(thebits : TBits_1); inline;
  82593. begin
  82594. if thebits = 0 then
  82595. pTDefRegMap(@Self)^.clr := $00000002
  82596. else
  82597. pTDefRegMap(@Self)^.&set := $00000002;
  82598. end;
  82599. function TCAN1_C1FIFOINT18.getRXHALFIF : TBits_1; inline;
  82600. begin
  82601. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  82602. end;
  82603. procedure TCAN1_C1FIFOINT18.setRXFULLIF; inline;
  82604. begin
  82605. pTDefRegMap(@Self)^.&set := $00000004;
  82606. end;
  82607. procedure TCAN1_C1FIFOINT18.clearRXFULLIF; inline;
  82608. begin
  82609. pTDefRegMap(@Self)^.clr := $00000004;
  82610. end;
  82611. procedure TCAN1_C1FIFOINT18.setRXFULLIF(thebits : TBits_1); inline;
  82612. begin
  82613. if thebits = 0 then
  82614. pTDefRegMap(@Self)^.clr := $00000004
  82615. else
  82616. pTDefRegMap(@Self)^.&set := $00000004;
  82617. end;
  82618. function TCAN1_C1FIFOINT18.getRXFULLIF : TBits_1; inline;
  82619. begin
  82620. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  82621. end;
  82622. procedure TCAN1_C1FIFOINT18.setRXOVFLIF; inline;
  82623. begin
  82624. pTDefRegMap(@Self)^.&set := $00000008;
  82625. end;
  82626. procedure TCAN1_C1FIFOINT18.clearRXOVFLIF; inline;
  82627. begin
  82628. pTDefRegMap(@Self)^.clr := $00000008;
  82629. end;
  82630. procedure TCAN1_C1FIFOINT18.setRXOVFLIF(thebits : TBits_1); inline;
  82631. begin
  82632. if thebits = 0 then
  82633. pTDefRegMap(@Self)^.clr := $00000008
  82634. else
  82635. pTDefRegMap(@Self)^.&set := $00000008;
  82636. end;
  82637. function TCAN1_C1FIFOINT18.getRXOVFLIF : TBits_1; inline;
  82638. begin
  82639. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  82640. end;
  82641. procedure TCAN1_C1FIFOINT18.setTXEMPTYIF; inline;
  82642. begin
  82643. pTDefRegMap(@Self)^.&set := $00000100;
  82644. end;
  82645. procedure TCAN1_C1FIFOINT18.clearTXEMPTYIF; inline;
  82646. begin
  82647. pTDefRegMap(@Self)^.clr := $00000100;
  82648. end;
  82649. procedure TCAN1_C1FIFOINT18.setTXEMPTYIF(thebits : TBits_1); inline;
  82650. begin
  82651. if thebits = 0 then
  82652. pTDefRegMap(@Self)^.clr := $00000100
  82653. else
  82654. pTDefRegMap(@Self)^.&set := $00000100;
  82655. end;
  82656. function TCAN1_C1FIFOINT18.getTXEMPTYIF : TBits_1; inline;
  82657. begin
  82658. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  82659. end;
  82660. procedure TCAN1_C1FIFOINT18.setTXHALFIF; inline;
  82661. begin
  82662. pTDefRegMap(@Self)^.&set := $00000200;
  82663. end;
  82664. procedure TCAN1_C1FIFOINT18.clearTXHALFIF; inline;
  82665. begin
  82666. pTDefRegMap(@Self)^.clr := $00000200;
  82667. end;
  82668. procedure TCAN1_C1FIFOINT18.setTXHALFIF(thebits : TBits_1); inline;
  82669. begin
  82670. if thebits = 0 then
  82671. pTDefRegMap(@Self)^.clr := $00000200
  82672. else
  82673. pTDefRegMap(@Self)^.&set := $00000200;
  82674. end;
  82675. function TCAN1_C1FIFOINT18.getTXHALFIF : TBits_1; inline;
  82676. begin
  82677. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  82678. end;
  82679. procedure TCAN1_C1FIFOINT18.setTXNFULLIF; inline;
  82680. begin
  82681. pTDefRegMap(@Self)^.&set := $00000400;
  82682. end;
  82683. procedure TCAN1_C1FIFOINT18.clearTXNFULLIF; inline;
  82684. begin
  82685. pTDefRegMap(@Self)^.clr := $00000400;
  82686. end;
  82687. procedure TCAN1_C1FIFOINT18.setTXNFULLIF(thebits : TBits_1); inline;
  82688. begin
  82689. if thebits = 0 then
  82690. pTDefRegMap(@Self)^.clr := $00000400
  82691. else
  82692. pTDefRegMap(@Self)^.&set := $00000400;
  82693. end;
  82694. function TCAN1_C1FIFOINT18.getTXNFULLIF : TBits_1; inline;
  82695. begin
  82696. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  82697. end;
  82698. procedure TCAN1_C1FIFOINT18.setRXNEMPTYIE; inline;
  82699. begin
  82700. pTDefRegMap(@Self)^.&set := $00010000;
  82701. end;
  82702. procedure TCAN1_C1FIFOINT18.clearRXNEMPTYIE; inline;
  82703. begin
  82704. pTDefRegMap(@Self)^.clr := $00010000;
  82705. end;
  82706. procedure TCAN1_C1FIFOINT18.setRXNEMPTYIE(thebits : TBits_1); inline;
  82707. begin
  82708. if thebits = 0 then
  82709. pTDefRegMap(@Self)^.clr := $00010000
  82710. else
  82711. pTDefRegMap(@Self)^.&set := $00010000;
  82712. end;
  82713. function TCAN1_C1FIFOINT18.getRXNEMPTYIE : TBits_1; inline;
  82714. begin
  82715. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  82716. end;
  82717. procedure TCAN1_C1FIFOINT18.setRXHALFIE; inline;
  82718. begin
  82719. pTDefRegMap(@Self)^.&set := $00020000;
  82720. end;
  82721. procedure TCAN1_C1FIFOINT18.clearRXHALFIE; inline;
  82722. begin
  82723. pTDefRegMap(@Self)^.clr := $00020000;
  82724. end;
  82725. procedure TCAN1_C1FIFOINT18.setRXHALFIE(thebits : TBits_1); inline;
  82726. begin
  82727. if thebits = 0 then
  82728. pTDefRegMap(@Self)^.clr := $00020000
  82729. else
  82730. pTDefRegMap(@Self)^.&set := $00020000;
  82731. end;
  82732. function TCAN1_C1FIFOINT18.getRXHALFIE : TBits_1; inline;
  82733. begin
  82734. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  82735. end;
  82736. procedure TCAN1_C1FIFOINT18.setRXFULLIE; inline;
  82737. begin
  82738. pTDefRegMap(@Self)^.&set := $00040000;
  82739. end;
  82740. procedure TCAN1_C1FIFOINT18.clearRXFULLIE; inline;
  82741. begin
  82742. pTDefRegMap(@Self)^.clr := $00040000;
  82743. end;
  82744. procedure TCAN1_C1FIFOINT18.setRXFULLIE(thebits : TBits_1); inline;
  82745. begin
  82746. if thebits = 0 then
  82747. pTDefRegMap(@Self)^.clr := $00040000
  82748. else
  82749. pTDefRegMap(@Self)^.&set := $00040000;
  82750. end;
  82751. function TCAN1_C1FIFOINT18.getRXFULLIE : TBits_1; inline;
  82752. begin
  82753. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  82754. end;
  82755. procedure TCAN1_C1FIFOINT18.setRXOVFLIE; inline;
  82756. begin
  82757. pTDefRegMap(@Self)^.&set := $00080000;
  82758. end;
  82759. procedure TCAN1_C1FIFOINT18.clearRXOVFLIE; inline;
  82760. begin
  82761. pTDefRegMap(@Self)^.clr := $00080000;
  82762. end;
  82763. procedure TCAN1_C1FIFOINT18.setRXOVFLIE(thebits : TBits_1); inline;
  82764. begin
  82765. if thebits = 0 then
  82766. pTDefRegMap(@Self)^.clr := $00080000
  82767. else
  82768. pTDefRegMap(@Self)^.&set := $00080000;
  82769. end;
  82770. function TCAN1_C1FIFOINT18.getRXOVFLIE : TBits_1; inline;
  82771. begin
  82772. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  82773. end;
  82774. procedure TCAN1_C1FIFOINT18.setTXEMPTYIE; inline;
  82775. begin
  82776. pTDefRegMap(@Self)^.&set := $01000000;
  82777. end;
  82778. procedure TCAN1_C1FIFOINT18.clearTXEMPTYIE; inline;
  82779. begin
  82780. pTDefRegMap(@Self)^.clr := $01000000;
  82781. end;
  82782. procedure TCAN1_C1FIFOINT18.setTXEMPTYIE(thebits : TBits_1); inline;
  82783. begin
  82784. if thebits = 0 then
  82785. pTDefRegMap(@Self)^.clr := $01000000
  82786. else
  82787. pTDefRegMap(@Self)^.&set := $01000000;
  82788. end;
  82789. function TCAN1_C1FIFOINT18.getTXEMPTYIE : TBits_1; inline;
  82790. begin
  82791. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  82792. end;
  82793. procedure TCAN1_C1FIFOINT18.setTXHALFIE; inline;
  82794. begin
  82795. pTDefRegMap(@Self)^.&set := $02000000;
  82796. end;
  82797. procedure TCAN1_C1FIFOINT18.clearTXHALFIE; inline;
  82798. begin
  82799. pTDefRegMap(@Self)^.clr := $02000000;
  82800. end;
  82801. procedure TCAN1_C1FIFOINT18.setTXHALFIE(thebits : TBits_1); inline;
  82802. begin
  82803. if thebits = 0 then
  82804. pTDefRegMap(@Self)^.clr := $02000000
  82805. else
  82806. pTDefRegMap(@Self)^.&set := $02000000;
  82807. end;
  82808. function TCAN1_C1FIFOINT18.getTXHALFIE : TBits_1; inline;
  82809. begin
  82810. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  82811. end;
  82812. procedure TCAN1_C1FIFOINT18.setTXNFULLIE; inline;
  82813. begin
  82814. pTDefRegMap(@Self)^.&set := $04000000;
  82815. end;
  82816. procedure TCAN1_C1FIFOINT18.clearTXNFULLIE; inline;
  82817. begin
  82818. pTDefRegMap(@Self)^.clr := $04000000;
  82819. end;
  82820. procedure TCAN1_C1FIFOINT18.setTXNFULLIE(thebits : TBits_1); inline;
  82821. begin
  82822. if thebits = 0 then
  82823. pTDefRegMap(@Self)^.clr := $04000000
  82824. else
  82825. pTDefRegMap(@Self)^.&set := $04000000;
  82826. end;
  82827. function TCAN1_C1FIFOINT18.getTXNFULLIE : TBits_1; inline;
  82828. begin
  82829. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  82830. end;
  82831. procedure TCAN1_C1FIFOINT18.setw(thebits : TBits_32); inline;
  82832. begin
  82833. pTDefRegMap(@Self)^.val := thebits;
  82834. end;
  82835. function TCAN1_C1FIFOINT18.getw : TBits_32; inline;
  82836. begin
  82837. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  82838. end;
  82839. procedure TCAN1_C1FIFOCI18.setCFIFOCI(thebits : TBits_5); inline;
  82840. begin
  82841. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  82842. end;
  82843. function TCAN1_C1FIFOCI18.getCFIFOCI : TBits_5; inline;
  82844. begin
  82845. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  82846. end;
  82847. procedure TCAN1_C1FIFOCI18.setw(thebits : TBits_32); inline;
  82848. begin
  82849. pTDefRegMap(@Self)^.val := thebits;
  82850. end;
  82851. function TCAN1_C1FIFOCI18.getw : TBits_32; inline;
  82852. begin
  82853. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  82854. end;
  82855. procedure TCAN1_C1FIFOCON19.setTXPRI(thebits : TBits_2); inline;
  82856. begin
  82857. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  82858. end;
  82859. function TCAN1_C1FIFOCON19.getTXPRI : TBits_2; inline;
  82860. begin
  82861. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  82862. end;
  82863. procedure TCAN1_C1FIFOCON19.setRTREN; inline;
  82864. begin
  82865. pTDefRegMap(@Self)^.&set := $00000004;
  82866. end;
  82867. procedure TCAN1_C1FIFOCON19.clearRTREN; inline;
  82868. begin
  82869. pTDefRegMap(@Self)^.clr := $00000004;
  82870. end;
  82871. procedure TCAN1_C1FIFOCON19.setRTREN(thebits : TBits_1); inline;
  82872. begin
  82873. if thebits = 0 then
  82874. pTDefRegMap(@Self)^.clr := $00000004
  82875. else
  82876. pTDefRegMap(@Self)^.&set := $00000004;
  82877. end;
  82878. function TCAN1_C1FIFOCON19.getRTREN : TBits_1; inline;
  82879. begin
  82880. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  82881. end;
  82882. procedure TCAN1_C1FIFOCON19.setTXREQ; inline;
  82883. begin
  82884. pTDefRegMap(@Self)^.&set := $00000008;
  82885. end;
  82886. procedure TCAN1_C1FIFOCON19.clearTXREQ; inline;
  82887. begin
  82888. pTDefRegMap(@Self)^.clr := $00000008;
  82889. end;
  82890. procedure TCAN1_C1FIFOCON19.setTXREQ(thebits : TBits_1); inline;
  82891. begin
  82892. if thebits = 0 then
  82893. pTDefRegMap(@Self)^.clr := $00000008
  82894. else
  82895. pTDefRegMap(@Self)^.&set := $00000008;
  82896. end;
  82897. function TCAN1_C1FIFOCON19.getTXREQ : TBits_1; inline;
  82898. begin
  82899. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  82900. end;
  82901. procedure TCAN1_C1FIFOCON19.setTXERR; inline;
  82902. begin
  82903. pTDefRegMap(@Self)^.&set := $00000010;
  82904. end;
  82905. procedure TCAN1_C1FIFOCON19.clearTXERR; inline;
  82906. begin
  82907. pTDefRegMap(@Self)^.clr := $00000010;
  82908. end;
  82909. procedure TCAN1_C1FIFOCON19.setTXERR(thebits : TBits_1); inline;
  82910. begin
  82911. if thebits = 0 then
  82912. pTDefRegMap(@Self)^.clr := $00000010
  82913. else
  82914. pTDefRegMap(@Self)^.&set := $00000010;
  82915. end;
  82916. function TCAN1_C1FIFOCON19.getTXERR : TBits_1; inline;
  82917. begin
  82918. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  82919. end;
  82920. procedure TCAN1_C1FIFOCON19.setTXLARB; inline;
  82921. begin
  82922. pTDefRegMap(@Self)^.&set := $00000020;
  82923. end;
  82924. procedure TCAN1_C1FIFOCON19.clearTXLARB; inline;
  82925. begin
  82926. pTDefRegMap(@Self)^.clr := $00000020;
  82927. end;
  82928. procedure TCAN1_C1FIFOCON19.setTXLARB(thebits : TBits_1); inline;
  82929. begin
  82930. if thebits = 0 then
  82931. pTDefRegMap(@Self)^.clr := $00000020
  82932. else
  82933. pTDefRegMap(@Self)^.&set := $00000020;
  82934. end;
  82935. function TCAN1_C1FIFOCON19.getTXLARB : TBits_1; inline;
  82936. begin
  82937. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  82938. end;
  82939. procedure TCAN1_C1FIFOCON19.setTXABAT; inline;
  82940. begin
  82941. pTDefRegMap(@Self)^.&set := $00000040;
  82942. end;
  82943. procedure TCAN1_C1FIFOCON19.clearTXABAT; inline;
  82944. begin
  82945. pTDefRegMap(@Self)^.clr := $00000040;
  82946. end;
  82947. procedure TCAN1_C1FIFOCON19.setTXABAT(thebits : TBits_1); inline;
  82948. begin
  82949. if thebits = 0 then
  82950. pTDefRegMap(@Self)^.clr := $00000040
  82951. else
  82952. pTDefRegMap(@Self)^.&set := $00000040;
  82953. end;
  82954. function TCAN1_C1FIFOCON19.getTXABAT : TBits_1; inline;
  82955. begin
  82956. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  82957. end;
  82958. procedure TCAN1_C1FIFOCON19.setTXEN; inline;
  82959. begin
  82960. pTDefRegMap(@Self)^.&set := $00000080;
  82961. end;
  82962. procedure TCAN1_C1FIFOCON19.clearTXEN; inline;
  82963. begin
  82964. pTDefRegMap(@Self)^.clr := $00000080;
  82965. end;
  82966. procedure TCAN1_C1FIFOCON19.setTXEN(thebits : TBits_1); inline;
  82967. begin
  82968. if thebits = 0 then
  82969. pTDefRegMap(@Self)^.clr := $00000080
  82970. else
  82971. pTDefRegMap(@Self)^.&set := $00000080;
  82972. end;
  82973. function TCAN1_C1FIFOCON19.getTXEN : TBits_1; inline;
  82974. begin
  82975. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  82976. end;
  82977. procedure TCAN1_C1FIFOCON19.setDONLY; inline;
  82978. begin
  82979. pTDefRegMap(@Self)^.&set := $00001000;
  82980. end;
  82981. procedure TCAN1_C1FIFOCON19.clearDONLY; inline;
  82982. begin
  82983. pTDefRegMap(@Self)^.clr := $00001000;
  82984. end;
  82985. procedure TCAN1_C1FIFOCON19.setDONLY(thebits : TBits_1); inline;
  82986. begin
  82987. if thebits = 0 then
  82988. pTDefRegMap(@Self)^.clr := $00001000
  82989. else
  82990. pTDefRegMap(@Self)^.&set := $00001000;
  82991. end;
  82992. function TCAN1_C1FIFOCON19.getDONLY : TBits_1; inline;
  82993. begin
  82994. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  82995. end;
  82996. procedure TCAN1_C1FIFOCON19.setUINC; inline;
  82997. begin
  82998. pTDefRegMap(@Self)^.&set := $00002000;
  82999. end;
  83000. procedure TCAN1_C1FIFOCON19.clearUINC; inline;
  83001. begin
  83002. pTDefRegMap(@Self)^.clr := $00002000;
  83003. end;
  83004. procedure TCAN1_C1FIFOCON19.setUINC(thebits : TBits_1); inline;
  83005. begin
  83006. if thebits = 0 then
  83007. pTDefRegMap(@Self)^.clr := $00002000
  83008. else
  83009. pTDefRegMap(@Self)^.&set := $00002000;
  83010. end;
  83011. function TCAN1_C1FIFOCON19.getUINC : TBits_1; inline;
  83012. begin
  83013. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  83014. end;
  83015. procedure TCAN1_C1FIFOCON19.setFRESET; inline;
  83016. begin
  83017. pTDefRegMap(@Self)^.&set := $00004000;
  83018. end;
  83019. procedure TCAN1_C1FIFOCON19.clearFRESET; inline;
  83020. begin
  83021. pTDefRegMap(@Self)^.clr := $00004000;
  83022. end;
  83023. procedure TCAN1_C1FIFOCON19.setFRESET(thebits : TBits_1); inline;
  83024. begin
  83025. if thebits = 0 then
  83026. pTDefRegMap(@Self)^.clr := $00004000
  83027. else
  83028. pTDefRegMap(@Self)^.&set := $00004000;
  83029. end;
  83030. function TCAN1_C1FIFOCON19.getFRESET : TBits_1; inline;
  83031. begin
  83032. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  83033. end;
  83034. procedure TCAN1_C1FIFOCON19.setFSIZE(thebits : TBits_5); inline;
  83035. begin
  83036. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  83037. end;
  83038. function TCAN1_C1FIFOCON19.getFSIZE : TBits_5; inline;
  83039. begin
  83040. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  83041. end;
  83042. procedure TCAN1_C1FIFOCON19.setw(thebits : TBits_32); inline;
  83043. begin
  83044. pTDefRegMap(@Self)^.val := thebits;
  83045. end;
  83046. function TCAN1_C1FIFOCON19.getw : TBits_32; inline;
  83047. begin
  83048. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  83049. end;
  83050. procedure TCAN1_C1FIFOINT19.setRXNEMPTYIF; inline;
  83051. begin
  83052. pTDefRegMap(@Self)^.&set := $00000001;
  83053. end;
  83054. procedure TCAN1_C1FIFOINT19.clearRXNEMPTYIF; inline;
  83055. begin
  83056. pTDefRegMap(@Self)^.clr := $00000001;
  83057. end;
  83058. procedure TCAN1_C1FIFOINT19.setRXNEMPTYIF(thebits : TBits_1); inline;
  83059. begin
  83060. if thebits = 0 then
  83061. pTDefRegMap(@Self)^.clr := $00000001
  83062. else
  83063. pTDefRegMap(@Self)^.&set := $00000001;
  83064. end;
  83065. function TCAN1_C1FIFOINT19.getRXNEMPTYIF : TBits_1; inline;
  83066. begin
  83067. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  83068. end;
  83069. procedure TCAN1_C1FIFOINT19.setRXHALFIF; inline;
  83070. begin
  83071. pTDefRegMap(@Self)^.&set := $00000002;
  83072. end;
  83073. procedure TCAN1_C1FIFOINT19.clearRXHALFIF; inline;
  83074. begin
  83075. pTDefRegMap(@Self)^.clr := $00000002;
  83076. end;
  83077. procedure TCAN1_C1FIFOINT19.setRXHALFIF(thebits : TBits_1); inline;
  83078. begin
  83079. if thebits = 0 then
  83080. pTDefRegMap(@Self)^.clr := $00000002
  83081. else
  83082. pTDefRegMap(@Self)^.&set := $00000002;
  83083. end;
  83084. function TCAN1_C1FIFOINT19.getRXHALFIF : TBits_1; inline;
  83085. begin
  83086. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  83087. end;
  83088. procedure TCAN1_C1FIFOINT19.setRXFULLIF; inline;
  83089. begin
  83090. pTDefRegMap(@Self)^.&set := $00000004;
  83091. end;
  83092. procedure TCAN1_C1FIFOINT19.clearRXFULLIF; inline;
  83093. begin
  83094. pTDefRegMap(@Self)^.clr := $00000004;
  83095. end;
  83096. procedure TCAN1_C1FIFOINT19.setRXFULLIF(thebits : TBits_1); inline;
  83097. begin
  83098. if thebits = 0 then
  83099. pTDefRegMap(@Self)^.clr := $00000004
  83100. else
  83101. pTDefRegMap(@Self)^.&set := $00000004;
  83102. end;
  83103. function TCAN1_C1FIFOINT19.getRXFULLIF : TBits_1; inline;
  83104. begin
  83105. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  83106. end;
  83107. procedure TCAN1_C1FIFOINT19.setRXOVFLIF; inline;
  83108. begin
  83109. pTDefRegMap(@Self)^.&set := $00000008;
  83110. end;
  83111. procedure TCAN1_C1FIFOINT19.clearRXOVFLIF; inline;
  83112. begin
  83113. pTDefRegMap(@Self)^.clr := $00000008;
  83114. end;
  83115. procedure TCAN1_C1FIFOINT19.setRXOVFLIF(thebits : TBits_1); inline;
  83116. begin
  83117. if thebits = 0 then
  83118. pTDefRegMap(@Self)^.clr := $00000008
  83119. else
  83120. pTDefRegMap(@Self)^.&set := $00000008;
  83121. end;
  83122. function TCAN1_C1FIFOINT19.getRXOVFLIF : TBits_1; inline;
  83123. begin
  83124. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  83125. end;
  83126. procedure TCAN1_C1FIFOINT19.setTXEMPTYIF; inline;
  83127. begin
  83128. pTDefRegMap(@Self)^.&set := $00000100;
  83129. end;
  83130. procedure TCAN1_C1FIFOINT19.clearTXEMPTYIF; inline;
  83131. begin
  83132. pTDefRegMap(@Self)^.clr := $00000100;
  83133. end;
  83134. procedure TCAN1_C1FIFOINT19.setTXEMPTYIF(thebits : TBits_1); inline;
  83135. begin
  83136. if thebits = 0 then
  83137. pTDefRegMap(@Self)^.clr := $00000100
  83138. else
  83139. pTDefRegMap(@Self)^.&set := $00000100;
  83140. end;
  83141. function TCAN1_C1FIFOINT19.getTXEMPTYIF : TBits_1; inline;
  83142. begin
  83143. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  83144. end;
  83145. procedure TCAN1_C1FIFOINT19.setTXHALFIF; inline;
  83146. begin
  83147. pTDefRegMap(@Self)^.&set := $00000200;
  83148. end;
  83149. procedure TCAN1_C1FIFOINT19.clearTXHALFIF; inline;
  83150. begin
  83151. pTDefRegMap(@Self)^.clr := $00000200;
  83152. end;
  83153. procedure TCAN1_C1FIFOINT19.setTXHALFIF(thebits : TBits_1); inline;
  83154. begin
  83155. if thebits = 0 then
  83156. pTDefRegMap(@Self)^.clr := $00000200
  83157. else
  83158. pTDefRegMap(@Self)^.&set := $00000200;
  83159. end;
  83160. function TCAN1_C1FIFOINT19.getTXHALFIF : TBits_1; inline;
  83161. begin
  83162. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  83163. end;
  83164. procedure TCAN1_C1FIFOINT19.setTXNFULLIF; inline;
  83165. begin
  83166. pTDefRegMap(@Self)^.&set := $00000400;
  83167. end;
  83168. procedure TCAN1_C1FIFOINT19.clearTXNFULLIF; inline;
  83169. begin
  83170. pTDefRegMap(@Self)^.clr := $00000400;
  83171. end;
  83172. procedure TCAN1_C1FIFOINT19.setTXNFULLIF(thebits : TBits_1); inline;
  83173. begin
  83174. if thebits = 0 then
  83175. pTDefRegMap(@Self)^.clr := $00000400
  83176. else
  83177. pTDefRegMap(@Self)^.&set := $00000400;
  83178. end;
  83179. function TCAN1_C1FIFOINT19.getTXNFULLIF : TBits_1; inline;
  83180. begin
  83181. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  83182. end;
  83183. procedure TCAN1_C1FIFOINT19.setRXNEMPTYIE; inline;
  83184. begin
  83185. pTDefRegMap(@Self)^.&set := $00010000;
  83186. end;
  83187. procedure TCAN1_C1FIFOINT19.clearRXNEMPTYIE; inline;
  83188. begin
  83189. pTDefRegMap(@Self)^.clr := $00010000;
  83190. end;
  83191. procedure TCAN1_C1FIFOINT19.setRXNEMPTYIE(thebits : TBits_1); inline;
  83192. begin
  83193. if thebits = 0 then
  83194. pTDefRegMap(@Self)^.clr := $00010000
  83195. else
  83196. pTDefRegMap(@Self)^.&set := $00010000;
  83197. end;
  83198. function TCAN1_C1FIFOINT19.getRXNEMPTYIE : TBits_1; inline;
  83199. begin
  83200. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  83201. end;
  83202. procedure TCAN1_C1FIFOINT19.setRXHALFIE; inline;
  83203. begin
  83204. pTDefRegMap(@Self)^.&set := $00020000;
  83205. end;
  83206. procedure TCAN1_C1FIFOINT19.clearRXHALFIE; inline;
  83207. begin
  83208. pTDefRegMap(@Self)^.clr := $00020000;
  83209. end;
  83210. procedure TCAN1_C1FIFOINT19.setRXHALFIE(thebits : TBits_1); inline;
  83211. begin
  83212. if thebits = 0 then
  83213. pTDefRegMap(@Self)^.clr := $00020000
  83214. else
  83215. pTDefRegMap(@Self)^.&set := $00020000;
  83216. end;
  83217. function TCAN1_C1FIFOINT19.getRXHALFIE : TBits_1; inline;
  83218. begin
  83219. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  83220. end;
  83221. procedure TCAN1_C1FIFOINT19.setRXFULLIE; inline;
  83222. begin
  83223. pTDefRegMap(@Self)^.&set := $00040000;
  83224. end;
  83225. procedure TCAN1_C1FIFOINT19.clearRXFULLIE; inline;
  83226. begin
  83227. pTDefRegMap(@Self)^.clr := $00040000;
  83228. end;
  83229. procedure TCAN1_C1FIFOINT19.setRXFULLIE(thebits : TBits_1); inline;
  83230. begin
  83231. if thebits = 0 then
  83232. pTDefRegMap(@Self)^.clr := $00040000
  83233. else
  83234. pTDefRegMap(@Self)^.&set := $00040000;
  83235. end;
  83236. function TCAN1_C1FIFOINT19.getRXFULLIE : TBits_1; inline;
  83237. begin
  83238. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  83239. end;
  83240. procedure TCAN1_C1FIFOINT19.setRXOVFLIE; inline;
  83241. begin
  83242. pTDefRegMap(@Self)^.&set := $00080000;
  83243. end;
  83244. procedure TCAN1_C1FIFOINT19.clearRXOVFLIE; inline;
  83245. begin
  83246. pTDefRegMap(@Self)^.clr := $00080000;
  83247. end;
  83248. procedure TCAN1_C1FIFOINT19.setRXOVFLIE(thebits : TBits_1); inline;
  83249. begin
  83250. if thebits = 0 then
  83251. pTDefRegMap(@Self)^.clr := $00080000
  83252. else
  83253. pTDefRegMap(@Self)^.&set := $00080000;
  83254. end;
  83255. function TCAN1_C1FIFOINT19.getRXOVFLIE : TBits_1; inline;
  83256. begin
  83257. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  83258. end;
  83259. procedure TCAN1_C1FIFOINT19.setTXEMPTYIE; inline;
  83260. begin
  83261. pTDefRegMap(@Self)^.&set := $01000000;
  83262. end;
  83263. procedure TCAN1_C1FIFOINT19.clearTXEMPTYIE; inline;
  83264. begin
  83265. pTDefRegMap(@Self)^.clr := $01000000;
  83266. end;
  83267. procedure TCAN1_C1FIFOINT19.setTXEMPTYIE(thebits : TBits_1); inline;
  83268. begin
  83269. if thebits = 0 then
  83270. pTDefRegMap(@Self)^.clr := $01000000
  83271. else
  83272. pTDefRegMap(@Self)^.&set := $01000000;
  83273. end;
  83274. function TCAN1_C1FIFOINT19.getTXEMPTYIE : TBits_1; inline;
  83275. begin
  83276. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  83277. end;
  83278. procedure TCAN1_C1FIFOINT19.setTXHALFIE; inline;
  83279. begin
  83280. pTDefRegMap(@Self)^.&set := $02000000;
  83281. end;
  83282. procedure TCAN1_C1FIFOINT19.clearTXHALFIE; inline;
  83283. begin
  83284. pTDefRegMap(@Self)^.clr := $02000000;
  83285. end;
  83286. procedure TCAN1_C1FIFOINT19.setTXHALFIE(thebits : TBits_1); inline;
  83287. begin
  83288. if thebits = 0 then
  83289. pTDefRegMap(@Self)^.clr := $02000000
  83290. else
  83291. pTDefRegMap(@Self)^.&set := $02000000;
  83292. end;
  83293. function TCAN1_C1FIFOINT19.getTXHALFIE : TBits_1; inline;
  83294. begin
  83295. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  83296. end;
  83297. procedure TCAN1_C1FIFOINT19.setTXNFULLIE; inline;
  83298. begin
  83299. pTDefRegMap(@Self)^.&set := $04000000;
  83300. end;
  83301. procedure TCAN1_C1FIFOINT19.clearTXNFULLIE; inline;
  83302. begin
  83303. pTDefRegMap(@Self)^.clr := $04000000;
  83304. end;
  83305. procedure TCAN1_C1FIFOINT19.setTXNFULLIE(thebits : TBits_1); inline;
  83306. begin
  83307. if thebits = 0 then
  83308. pTDefRegMap(@Self)^.clr := $04000000
  83309. else
  83310. pTDefRegMap(@Self)^.&set := $04000000;
  83311. end;
  83312. function TCAN1_C1FIFOINT19.getTXNFULLIE : TBits_1; inline;
  83313. begin
  83314. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  83315. end;
  83316. procedure TCAN1_C1FIFOINT19.setw(thebits : TBits_32); inline;
  83317. begin
  83318. pTDefRegMap(@Self)^.val := thebits;
  83319. end;
  83320. function TCAN1_C1FIFOINT19.getw : TBits_32; inline;
  83321. begin
  83322. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  83323. end;
  83324. procedure TCAN1_C1FIFOCI19.setCFIFOCI(thebits : TBits_5); inline;
  83325. begin
  83326. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  83327. end;
  83328. function TCAN1_C1FIFOCI19.getCFIFOCI : TBits_5; inline;
  83329. begin
  83330. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  83331. end;
  83332. procedure TCAN1_C1FIFOCI19.setw(thebits : TBits_32); inline;
  83333. begin
  83334. pTDefRegMap(@Self)^.val := thebits;
  83335. end;
  83336. function TCAN1_C1FIFOCI19.getw : TBits_32; inline;
  83337. begin
  83338. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  83339. end;
  83340. procedure TCAN1_C1FIFOCON20.setTXPRI(thebits : TBits_2); inline;
  83341. begin
  83342. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  83343. end;
  83344. function TCAN1_C1FIFOCON20.getTXPRI : TBits_2; inline;
  83345. begin
  83346. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  83347. end;
  83348. procedure TCAN1_C1FIFOCON20.setRTREN; inline;
  83349. begin
  83350. pTDefRegMap(@Self)^.&set := $00000004;
  83351. end;
  83352. procedure TCAN1_C1FIFOCON20.clearRTREN; inline;
  83353. begin
  83354. pTDefRegMap(@Self)^.clr := $00000004;
  83355. end;
  83356. procedure TCAN1_C1FIFOCON20.setRTREN(thebits : TBits_1); inline;
  83357. begin
  83358. if thebits = 0 then
  83359. pTDefRegMap(@Self)^.clr := $00000004
  83360. else
  83361. pTDefRegMap(@Self)^.&set := $00000004;
  83362. end;
  83363. function TCAN1_C1FIFOCON20.getRTREN : TBits_1; inline;
  83364. begin
  83365. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  83366. end;
  83367. procedure TCAN1_C1FIFOCON20.setTXREQ; inline;
  83368. begin
  83369. pTDefRegMap(@Self)^.&set := $00000008;
  83370. end;
  83371. procedure TCAN1_C1FIFOCON20.clearTXREQ; inline;
  83372. begin
  83373. pTDefRegMap(@Self)^.clr := $00000008;
  83374. end;
  83375. procedure TCAN1_C1FIFOCON20.setTXREQ(thebits : TBits_1); inline;
  83376. begin
  83377. if thebits = 0 then
  83378. pTDefRegMap(@Self)^.clr := $00000008
  83379. else
  83380. pTDefRegMap(@Self)^.&set := $00000008;
  83381. end;
  83382. function TCAN1_C1FIFOCON20.getTXREQ : TBits_1; inline;
  83383. begin
  83384. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  83385. end;
  83386. procedure TCAN1_C1FIFOCON20.setTXERR; inline;
  83387. begin
  83388. pTDefRegMap(@Self)^.&set := $00000010;
  83389. end;
  83390. procedure TCAN1_C1FIFOCON20.clearTXERR; inline;
  83391. begin
  83392. pTDefRegMap(@Self)^.clr := $00000010;
  83393. end;
  83394. procedure TCAN1_C1FIFOCON20.setTXERR(thebits : TBits_1); inline;
  83395. begin
  83396. if thebits = 0 then
  83397. pTDefRegMap(@Self)^.clr := $00000010
  83398. else
  83399. pTDefRegMap(@Self)^.&set := $00000010;
  83400. end;
  83401. function TCAN1_C1FIFOCON20.getTXERR : TBits_1; inline;
  83402. begin
  83403. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  83404. end;
  83405. procedure TCAN1_C1FIFOCON20.setTXLARB; inline;
  83406. begin
  83407. pTDefRegMap(@Self)^.&set := $00000020;
  83408. end;
  83409. procedure TCAN1_C1FIFOCON20.clearTXLARB; inline;
  83410. begin
  83411. pTDefRegMap(@Self)^.clr := $00000020;
  83412. end;
  83413. procedure TCAN1_C1FIFOCON20.setTXLARB(thebits : TBits_1); inline;
  83414. begin
  83415. if thebits = 0 then
  83416. pTDefRegMap(@Self)^.clr := $00000020
  83417. else
  83418. pTDefRegMap(@Self)^.&set := $00000020;
  83419. end;
  83420. function TCAN1_C1FIFOCON20.getTXLARB : TBits_1; inline;
  83421. begin
  83422. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  83423. end;
  83424. procedure TCAN1_C1FIFOCON20.setTXABAT; inline;
  83425. begin
  83426. pTDefRegMap(@Self)^.&set := $00000040;
  83427. end;
  83428. procedure TCAN1_C1FIFOCON20.clearTXABAT; inline;
  83429. begin
  83430. pTDefRegMap(@Self)^.clr := $00000040;
  83431. end;
  83432. procedure TCAN1_C1FIFOCON20.setTXABAT(thebits : TBits_1); inline;
  83433. begin
  83434. if thebits = 0 then
  83435. pTDefRegMap(@Self)^.clr := $00000040
  83436. else
  83437. pTDefRegMap(@Self)^.&set := $00000040;
  83438. end;
  83439. function TCAN1_C1FIFOCON20.getTXABAT : TBits_1; inline;
  83440. begin
  83441. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  83442. end;
  83443. procedure TCAN1_C1FIFOCON20.setTXEN; inline;
  83444. begin
  83445. pTDefRegMap(@Self)^.&set := $00000080;
  83446. end;
  83447. procedure TCAN1_C1FIFOCON20.clearTXEN; inline;
  83448. begin
  83449. pTDefRegMap(@Self)^.clr := $00000080;
  83450. end;
  83451. procedure TCAN1_C1FIFOCON20.setTXEN(thebits : TBits_1); inline;
  83452. begin
  83453. if thebits = 0 then
  83454. pTDefRegMap(@Self)^.clr := $00000080
  83455. else
  83456. pTDefRegMap(@Self)^.&set := $00000080;
  83457. end;
  83458. function TCAN1_C1FIFOCON20.getTXEN : TBits_1; inline;
  83459. begin
  83460. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  83461. end;
  83462. procedure TCAN1_C1FIFOCON20.setDONLY; inline;
  83463. begin
  83464. pTDefRegMap(@Self)^.&set := $00001000;
  83465. end;
  83466. procedure TCAN1_C1FIFOCON20.clearDONLY; inline;
  83467. begin
  83468. pTDefRegMap(@Self)^.clr := $00001000;
  83469. end;
  83470. procedure TCAN1_C1FIFOCON20.setDONLY(thebits : TBits_1); inline;
  83471. begin
  83472. if thebits = 0 then
  83473. pTDefRegMap(@Self)^.clr := $00001000
  83474. else
  83475. pTDefRegMap(@Self)^.&set := $00001000;
  83476. end;
  83477. function TCAN1_C1FIFOCON20.getDONLY : TBits_1; inline;
  83478. begin
  83479. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  83480. end;
  83481. procedure TCAN1_C1FIFOCON20.setUINC; inline;
  83482. begin
  83483. pTDefRegMap(@Self)^.&set := $00002000;
  83484. end;
  83485. procedure TCAN1_C1FIFOCON20.clearUINC; inline;
  83486. begin
  83487. pTDefRegMap(@Self)^.clr := $00002000;
  83488. end;
  83489. procedure TCAN1_C1FIFOCON20.setUINC(thebits : TBits_1); inline;
  83490. begin
  83491. if thebits = 0 then
  83492. pTDefRegMap(@Self)^.clr := $00002000
  83493. else
  83494. pTDefRegMap(@Self)^.&set := $00002000;
  83495. end;
  83496. function TCAN1_C1FIFOCON20.getUINC : TBits_1; inline;
  83497. begin
  83498. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  83499. end;
  83500. procedure TCAN1_C1FIFOCON20.setFRESET; inline;
  83501. begin
  83502. pTDefRegMap(@Self)^.&set := $00004000;
  83503. end;
  83504. procedure TCAN1_C1FIFOCON20.clearFRESET; inline;
  83505. begin
  83506. pTDefRegMap(@Self)^.clr := $00004000;
  83507. end;
  83508. procedure TCAN1_C1FIFOCON20.setFRESET(thebits : TBits_1); inline;
  83509. begin
  83510. if thebits = 0 then
  83511. pTDefRegMap(@Self)^.clr := $00004000
  83512. else
  83513. pTDefRegMap(@Self)^.&set := $00004000;
  83514. end;
  83515. function TCAN1_C1FIFOCON20.getFRESET : TBits_1; inline;
  83516. begin
  83517. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  83518. end;
  83519. procedure TCAN1_C1FIFOCON20.setFSIZE(thebits : TBits_5); inline;
  83520. begin
  83521. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  83522. end;
  83523. function TCAN1_C1FIFOCON20.getFSIZE : TBits_5; inline;
  83524. begin
  83525. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  83526. end;
  83527. procedure TCAN1_C1FIFOCON20.setw(thebits : TBits_32); inline;
  83528. begin
  83529. pTDefRegMap(@Self)^.val := thebits;
  83530. end;
  83531. function TCAN1_C1FIFOCON20.getw : TBits_32; inline;
  83532. begin
  83533. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  83534. end;
  83535. procedure TCAN1_C1FIFOINT20.setRXNEMPTYIF; inline;
  83536. begin
  83537. pTDefRegMap(@Self)^.&set := $00000001;
  83538. end;
  83539. procedure TCAN1_C1FIFOINT20.clearRXNEMPTYIF; inline;
  83540. begin
  83541. pTDefRegMap(@Self)^.clr := $00000001;
  83542. end;
  83543. procedure TCAN1_C1FIFOINT20.setRXNEMPTYIF(thebits : TBits_1); inline;
  83544. begin
  83545. if thebits = 0 then
  83546. pTDefRegMap(@Self)^.clr := $00000001
  83547. else
  83548. pTDefRegMap(@Self)^.&set := $00000001;
  83549. end;
  83550. function TCAN1_C1FIFOINT20.getRXNEMPTYIF : TBits_1; inline;
  83551. begin
  83552. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  83553. end;
  83554. procedure TCAN1_C1FIFOINT20.setRXHALFIF; inline;
  83555. begin
  83556. pTDefRegMap(@Self)^.&set := $00000002;
  83557. end;
  83558. procedure TCAN1_C1FIFOINT20.clearRXHALFIF; inline;
  83559. begin
  83560. pTDefRegMap(@Self)^.clr := $00000002;
  83561. end;
  83562. procedure TCAN1_C1FIFOINT20.setRXHALFIF(thebits : TBits_1); inline;
  83563. begin
  83564. if thebits = 0 then
  83565. pTDefRegMap(@Self)^.clr := $00000002
  83566. else
  83567. pTDefRegMap(@Self)^.&set := $00000002;
  83568. end;
  83569. function TCAN1_C1FIFOINT20.getRXHALFIF : TBits_1; inline;
  83570. begin
  83571. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  83572. end;
  83573. procedure TCAN1_C1FIFOINT20.setRXFULLIF; inline;
  83574. begin
  83575. pTDefRegMap(@Self)^.&set := $00000004;
  83576. end;
  83577. procedure TCAN1_C1FIFOINT20.clearRXFULLIF; inline;
  83578. begin
  83579. pTDefRegMap(@Self)^.clr := $00000004;
  83580. end;
  83581. procedure TCAN1_C1FIFOINT20.setRXFULLIF(thebits : TBits_1); inline;
  83582. begin
  83583. if thebits = 0 then
  83584. pTDefRegMap(@Self)^.clr := $00000004
  83585. else
  83586. pTDefRegMap(@Self)^.&set := $00000004;
  83587. end;
  83588. function TCAN1_C1FIFOINT20.getRXFULLIF : TBits_1; inline;
  83589. begin
  83590. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  83591. end;
  83592. procedure TCAN1_C1FIFOINT20.setRXOVFLIF; inline;
  83593. begin
  83594. pTDefRegMap(@Self)^.&set := $00000008;
  83595. end;
  83596. procedure TCAN1_C1FIFOINT20.clearRXOVFLIF; inline;
  83597. begin
  83598. pTDefRegMap(@Self)^.clr := $00000008;
  83599. end;
  83600. procedure TCAN1_C1FIFOINT20.setRXOVFLIF(thebits : TBits_1); inline;
  83601. begin
  83602. if thebits = 0 then
  83603. pTDefRegMap(@Self)^.clr := $00000008
  83604. else
  83605. pTDefRegMap(@Self)^.&set := $00000008;
  83606. end;
  83607. function TCAN1_C1FIFOINT20.getRXOVFLIF : TBits_1; inline;
  83608. begin
  83609. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  83610. end;
  83611. procedure TCAN1_C1FIFOINT20.setTXEMPTYIF; inline;
  83612. begin
  83613. pTDefRegMap(@Self)^.&set := $00000100;
  83614. end;
  83615. procedure TCAN1_C1FIFOINT20.clearTXEMPTYIF; inline;
  83616. begin
  83617. pTDefRegMap(@Self)^.clr := $00000100;
  83618. end;
  83619. procedure TCAN1_C1FIFOINT20.setTXEMPTYIF(thebits : TBits_1); inline;
  83620. begin
  83621. if thebits = 0 then
  83622. pTDefRegMap(@Self)^.clr := $00000100
  83623. else
  83624. pTDefRegMap(@Self)^.&set := $00000100;
  83625. end;
  83626. function TCAN1_C1FIFOINT20.getTXEMPTYIF : TBits_1; inline;
  83627. begin
  83628. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  83629. end;
  83630. procedure TCAN1_C1FIFOINT20.setTXHALFIF; inline;
  83631. begin
  83632. pTDefRegMap(@Self)^.&set := $00000200;
  83633. end;
  83634. procedure TCAN1_C1FIFOINT20.clearTXHALFIF; inline;
  83635. begin
  83636. pTDefRegMap(@Self)^.clr := $00000200;
  83637. end;
  83638. procedure TCAN1_C1FIFOINT20.setTXHALFIF(thebits : TBits_1); inline;
  83639. begin
  83640. if thebits = 0 then
  83641. pTDefRegMap(@Self)^.clr := $00000200
  83642. else
  83643. pTDefRegMap(@Self)^.&set := $00000200;
  83644. end;
  83645. function TCAN1_C1FIFOINT20.getTXHALFIF : TBits_1; inline;
  83646. begin
  83647. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  83648. end;
  83649. procedure TCAN1_C1FIFOINT20.setTXNFULLIF; inline;
  83650. begin
  83651. pTDefRegMap(@Self)^.&set := $00000400;
  83652. end;
  83653. procedure TCAN1_C1FIFOINT20.clearTXNFULLIF; inline;
  83654. begin
  83655. pTDefRegMap(@Self)^.clr := $00000400;
  83656. end;
  83657. procedure TCAN1_C1FIFOINT20.setTXNFULLIF(thebits : TBits_1); inline;
  83658. begin
  83659. if thebits = 0 then
  83660. pTDefRegMap(@Self)^.clr := $00000400
  83661. else
  83662. pTDefRegMap(@Self)^.&set := $00000400;
  83663. end;
  83664. function TCAN1_C1FIFOINT20.getTXNFULLIF : TBits_1; inline;
  83665. begin
  83666. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  83667. end;
  83668. procedure TCAN1_C1FIFOINT20.setRXNEMPTYIE; inline;
  83669. begin
  83670. pTDefRegMap(@Self)^.&set := $00010000;
  83671. end;
  83672. procedure TCAN1_C1FIFOINT20.clearRXNEMPTYIE; inline;
  83673. begin
  83674. pTDefRegMap(@Self)^.clr := $00010000;
  83675. end;
  83676. procedure TCAN1_C1FIFOINT20.setRXNEMPTYIE(thebits : TBits_1); inline;
  83677. begin
  83678. if thebits = 0 then
  83679. pTDefRegMap(@Self)^.clr := $00010000
  83680. else
  83681. pTDefRegMap(@Self)^.&set := $00010000;
  83682. end;
  83683. function TCAN1_C1FIFOINT20.getRXNEMPTYIE : TBits_1; inline;
  83684. begin
  83685. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  83686. end;
  83687. procedure TCAN1_C1FIFOINT20.setRXHALFIE; inline;
  83688. begin
  83689. pTDefRegMap(@Self)^.&set := $00020000;
  83690. end;
  83691. procedure TCAN1_C1FIFOINT20.clearRXHALFIE; inline;
  83692. begin
  83693. pTDefRegMap(@Self)^.clr := $00020000;
  83694. end;
  83695. procedure TCAN1_C1FIFOINT20.setRXHALFIE(thebits : TBits_1); inline;
  83696. begin
  83697. if thebits = 0 then
  83698. pTDefRegMap(@Self)^.clr := $00020000
  83699. else
  83700. pTDefRegMap(@Self)^.&set := $00020000;
  83701. end;
  83702. function TCAN1_C1FIFOINT20.getRXHALFIE : TBits_1; inline;
  83703. begin
  83704. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  83705. end;
  83706. procedure TCAN1_C1FIFOINT20.setRXFULLIE; inline;
  83707. begin
  83708. pTDefRegMap(@Self)^.&set := $00040000;
  83709. end;
  83710. procedure TCAN1_C1FIFOINT20.clearRXFULLIE; inline;
  83711. begin
  83712. pTDefRegMap(@Self)^.clr := $00040000;
  83713. end;
  83714. procedure TCAN1_C1FIFOINT20.setRXFULLIE(thebits : TBits_1); inline;
  83715. begin
  83716. if thebits = 0 then
  83717. pTDefRegMap(@Self)^.clr := $00040000
  83718. else
  83719. pTDefRegMap(@Self)^.&set := $00040000;
  83720. end;
  83721. function TCAN1_C1FIFOINT20.getRXFULLIE : TBits_1; inline;
  83722. begin
  83723. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  83724. end;
  83725. procedure TCAN1_C1FIFOINT20.setRXOVFLIE; inline;
  83726. begin
  83727. pTDefRegMap(@Self)^.&set := $00080000;
  83728. end;
  83729. procedure TCAN1_C1FIFOINT20.clearRXOVFLIE; inline;
  83730. begin
  83731. pTDefRegMap(@Self)^.clr := $00080000;
  83732. end;
  83733. procedure TCAN1_C1FIFOINT20.setRXOVFLIE(thebits : TBits_1); inline;
  83734. begin
  83735. if thebits = 0 then
  83736. pTDefRegMap(@Self)^.clr := $00080000
  83737. else
  83738. pTDefRegMap(@Self)^.&set := $00080000;
  83739. end;
  83740. function TCAN1_C1FIFOINT20.getRXOVFLIE : TBits_1; inline;
  83741. begin
  83742. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  83743. end;
  83744. procedure TCAN1_C1FIFOINT20.setTXEMPTYIE; inline;
  83745. begin
  83746. pTDefRegMap(@Self)^.&set := $01000000;
  83747. end;
  83748. procedure TCAN1_C1FIFOINT20.clearTXEMPTYIE; inline;
  83749. begin
  83750. pTDefRegMap(@Self)^.clr := $01000000;
  83751. end;
  83752. procedure TCAN1_C1FIFOINT20.setTXEMPTYIE(thebits : TBits_1); inline;
  83753. begin
  83754. if thebits = 0 then
  83755. pTDefRegMap(@Self)^.clr := $01000000
  83756. else
  83757. pTDefRegMap(@Self)^.&set := $01000000;
  83758. end;
  83759. function TCAN1_C1FIFOINT20.getTXEMPTYIE : TBits_1; inline;
  83760. begin
  83761. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  83762. end;
  83763. procedure TCAN1_C1FIFOINT20.setTXHALFIE; inline;
  83764. begin
  83765. pTDefRegMap(@Self)^.&set := $02000000;
  83766. end;
  83767. procedure TCAN1_C1FIFOINT20.clearTXHALFIE; inline;
  83768. begin
  83769. pTDefRegMap(@Self)^.clr := $02000000;
  83770. end;
  83771. procedure TCAN1_C1FIFOINT20.setTXHALFIE(thebits : TBits_1); inline;
  83772. begin
  83773. if thebits = 0 then
  83774. pTDefRegMap(@Self)^.clr := $02000000
  83775. else
  83776. pTDefRegMap(@Self)^.&set := $02000000;
  83777. end;
  83778. function TCAN1_C1FIFOINT20.getTXHALFIE : TBits_1; inline;
  83779. begin
  83780. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  83781. end;
  83782. procedure TCAN1_C1FIFOINT20.setTXNFULLIE; inline;
  83783. begin
  83784. pTDefRegMap(@Self)^.&set := $04000000;
  83785. end;
  83786. procedure TCAN1_C1FIFOINT20.clearTXNFULLIE; inline;
  83787. begin
  83788. pTDefRegMap(@Self)^.clr := $04000000;
  83789. end;
  83790. procedure TCAN1_C1FIFOINT20.setTXNFULLIE(thebits : TBits_1); inline;
  83791. begin
  83792. if thebits = 0 then
  83793. pTDefRegMap(@Self)^.clr := $04000000
  83794. else
  83795. pTDefRegMap(@Self)^.&set := $04000000;
  83796. end;
  83797. function TCAN1_C1FIFOINT20.getTXNFULLIE : TBits_1; inline;
  83798. begin
  83799. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  83800. end;
  83801. procedure TCAN1_C1FIFOINT20.setw(thebits : TBits_32); inline;
  83802. begin
  83803. pTDefRegMap(@Self)^.val := thebits;
  83804. end;
  83805. function TCAN1_C1FIFOINT20.getw : TBits_32; inline;
  83806. begin
  83807. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  83808. end;
  83809. procedure TCAN1_C1FIFOCI20.setCFIFOCI(thebits : TBits_5); inline;
  83810. begin
  83811. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  83812. end;
  83813. function TCAN1_C1FIFOCI20.getCFIFOCI : TBits_5; inline;
  83814. begin
  83815. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  83816. end;
  83817. procedure TCAN1_C1FIFOCI20.setw(thebits : TBits_32); inline;
  83818. begin
  83819. pTDefRegMap(@Self)^.val := thebits;
  83820. end;
  83821. function TCAN1_C1FIFOCI20.getw : TBits_32; inline;
  83822. begin
  83823. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  83824. end;
  83825. procedure TCAN1_C1FIFOCON21.setTXPRI(thebits : TBits_2); inline;
  83826. begin
  83827. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  83828. end;
  83829. function TCAN1_C1FIFOCON21.getTXPRI : TBits_2; inline;
  83830. begin
  83831. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  83832. end;
  83833. procedure TCAN1_C1FIFOCON21.setRTREN; inline;
  83834. begin
  83835. pTDefRegMap(@Self)^.&set := $00000004;
  83836. end;
  83837. procedure TCAN1_C1FIFOCON21.clearRTREN; inline;
  83838. begin
  83839. pTDefRegMap(@Self)^.clr := $00000004;
  83840. end;
  83841. procedure TCAN1_C1FIFOCON21.setRTREN(thebits : TBits_1); inline;
  83842. begin
  83843. if thebits = 0 then
  83844. pTDefRegMap(@Self)^.clr := $00000004
  83845. else
  83846. pTDefRegMap(@Self)^.&set := $00000004;
  83847. end;
  83848. function TCAN1_C1FIFOCON21.getRTREN : TBits_1; inline;
  83849. begin
  83850. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  83851. end;
  83852. procedure TCAN1_C1FIFOCON21.setTXREQ; inline;
  83853. begin
  83854. pTDefRegMap(@Self)^.&set := $00000008;
  83855. end;
  83856. procedure TCAN1_C1FIFOCON21.clearTXREQ; inline;
  83857. begin
  83858. pTDefRegMap(@Self)^.clr := $00000008;
  83859. end;
  83860. procedure TCAN1_C1FIFOCON21.setTXREQ(thebits : TBits_1); inline;
  83861. begin
  83862. if thebits = 0 then
  83863. pTDefRegMap(@Self)^.clr := $00000008
  83864. else
  83865. pTDefRegMap(@Self)^.&set := $00000008;
  83866. end;
  83867. function TCAN1_C1FIFOCON21.getTXREQ : TBits_1; inline;
  83868. begin
  83869. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  83870. end;
  83871. procedure TCAN1_C1FIFOCON21.setTXERR; inline;
  83872. begin
  83873. pTDefRegMap(@Self)^.&set := $00000010;
  83874. end;
  83875. procedure TCAN1_C1FIFOCON21.clearTXERR; inline;
  83876. begin
  83877. pTDefRegMap(@Self)^.clr := $00000010;
  83878. end;
  83879. procedure TCAN1_C1FIFOCON21.setTXERR(thebits : TBits_1); inline;
  83880. begin
  83881. if thebits = 0 then
  83882. pTDefRegMap(@Self)^.clr := $00000010
  83883. else
  83884. pTDefRegMap(@Self)^.&set := $00000010;
  83885. end;
  83886. function TCAN1_C1FIFOCON21.getTXERR : TBits_1; inline;
  83887. begin
  83888. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  83889. end;
  83890. procedure TCAN1_C1FIFOCON21.setTXLARB; inline;
  83891. begin
  83892. pTDefRegMap(@Self)^.&set := $00000020;
  83893. end;
  83894. procedure TCAN1_C1FIFOCON21.clearTXLARB; inline;
  83895. begin
  83896. pTDefRegMap(@Self)^.clr := $00000020;
  83897. end;
  83898. procedure TCAN1_C1FIFOCON21.setTXLARB(thebits : TBits_1); inline;
  83899. begin
  83900. if thebits = 0 then
  83901. pTDefRegMap(@Self)^.clr := $00000020
  83902. else
  83903. pTDefRegMap(@Self)^.&set := $00000020;
  83904. end;
  83905. function TCAN1_C1FIFOCON21.getTXLARB : TBits_1; inline;
  83906. begin
  83907. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  83908. end;
  83909. procedure TCAN1_C1FIFOCON21.setTXABAT; inline;
  83910. begin
  83911. pTDefRegMap(@Self)^.&set := $00000040;
  83912. end;
  83913. procedure TCAN1_C1FIFOCON21.clearTXABAT; inline;
  83914. begin
  83915. pTDefRegMap(@Self)^.clr := $00000040;
  83916. end;
  83917. procedure TCAN1_C1FIFOCON21.setTXABAT(thebits : TBits_1); inline;
  83918. begin
  83919. if thebits = 0 then
  83920. pTDefRegMap(@Self)^.clr := $00000040
  83921. else
  83922. pTDefRegMap(@Self)^.&set := $00000040;
  83923. end;
  83924. function TCAN1_C1FIFOCON21.getTXABAT : TBits_1; inline;
  83925. begin
  83926. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  83927. end;
  83928. procedure TCAN1_C1FIFOCON21.setTXEN; inline;
  83929. begin
  83930. pTDefRegMap(@Self)^.&set := $00000080;
  83931. end;
  83932. procedure TCAN1_C1FIFOCON21.clearTXEN; inline;
  83933. begin
  83934. pTDefRegMap(@Self)^.clr := $00000080;
  83935. end;
  83936. procedure TCAN1_C1FIFOCON21.setTXEN(thebits : TBits_1); inline;
  83937. begin
  83938. if thebits = 0 then
  83939. pTDefRegMap(@Self)^.clr := $00000080
  83940. else
  83941. pTDefRegMap(@Self)^.&set := $00000080;
  83942. end;
  83943. function TCAN1_C1FIFOCON21.getTXEN : TBits_1; inline;
  83944. begin
  83945. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  83946. end;
  83947. procedure TCAN1_C1FIFOCON21.setDONLY; inline;
  83948. begin
  83949. pTDefRegMap(@Self)^.&set := $00001000;
  83950. end;
  83951. procedure TCAN1_C1FIFOCON21.clearDONLY; inline;
  83952. begin
  83953. pTDefRegMap(@Self)^.clr := $00001000;
  83954. end;
  83955. procedure TCAN1_C1FIFOCON21.setDONLY(thebits : TBits_1); inline;
  83956. begin
  83957. if thebits = 0 then
  83958. pTDefRegMap(@Self)^.clr := $00001000
  83959. else
  83960. pTDefRegMap(@Self)^.&set := $00001000;
  83961. end;
  83962. function TCAN1_C1FIFOCON21.getDONLY : TBits_1; inline;
  83963. begin
  83964. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  83965. end;
  83966. procedure TCAN1_C1FIFOCON21.setUINC; inline;
  83967. begin
  83968. pTDefRegMap(@Self)^.&set := $00002000;
  83969. end;
  83970. procedure TCAN1_C1FIFOCON21.clearUINC; inline;
  83971. begin
  83972. pTDefRegMap(@Self)^.clr := $00002000;
  83973. end;
  83974. procedure TCAN1_C1FIFOCON21.setUINC(thebits : TBits_1); inline;
  83975. begin
  83976. if thebits = 0 then
  83977. pTDefRegMap(@Self)^.clr := $00002000
  83978. else
  83979. pTDefRegMap(@Self)^.&set := $00002000;
  83980. end;
  83981. function TCAN1_C1FIFOCON21.getUINC : TBits_1; inline;
  83982. begin
  83983. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  83984. end;
  83985. procedure TCAN1_C1FIFOCON21.setFRESET; inline;
  83986. begin
  83987. pTDefRegMap(@Self)^.&set := $00004000;
  83988. end;
  83989. procedure TCAN1_C1FIFOCON21.clearFRESET; inline;
  83990. begin
  83991. pTDefRegMap(@Self)^.clr := $00004000;
  83992. end;
  83993. procedure TCAN1_C1FIFOCON21.setFRESET(thebits : TBits_1); inline;
  83994. begin
  83995. if thebits = 0 then
  83996. pTDefRegMap(@Self)^.clr := $00004000
  83997. else
  83998. pTDefRegMap(@Self)^.&set := $00004000;
  83999. end;
  84000. function TCAN1_C1FIFOCON21.getFRESET : TBits_1; inline;
  84001. begin
  84002. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  84003. end;
  84004. procedure TCAN1_C1FIFOCON21.setFSIZE(thebits : TBits_5); inline;
  84005. begin
  84006. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  84007. end;
  84008. function TCAN1_C1FIFOCON21.getFSIZE : TBits_5; inline;
  84009. begin
  84010. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  84011. end;
  84012. procedure TCAN1_C1FIFOCON21.setw(thebits : TBits_32); inline;
  84013. begin
  84014. pTDefRegMap(@Self)^.val := thebits;
  84015. end;
  84016. function TCAN1_C1FIFOCON21.getw : TBits_32; inline;
  84017. begin
  84018. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  84019. end;
  84020. procedure TCAN1_C1FIFOINT21.setRXNEMPTYIF; inline;
  84021. begin
  84022. pTDefRegMap(@Self)^.&set := $00000001;
  84023. end;
  84024. procedure TCAN1_C1FIFOINT21.clearRXNEMPTYIF; inline;
  84025. begin
  84026. pTDefRegMap(@Self)^.clr := $00000001;
  84027. end;
  84028. procedure TCAN1_C1FIFOINT21.setRXNEMPTYIF(thebits : TBits_1); inline;
  84029. begin
  84030. if thebits = 0 then
  84031. pTDefRegMap(@Self)^.clr := $00000001
  84032. else
  84033. pTDefRegMap(@Self)^.&set := $00000001;
  84034. end;
  84035. function TCAN1_C1FIFOINT21.getRXNEMPTYIF : TBits_1; inline;
  84036. begin
  84037. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  84038. end;
  84039. procedure TCAN1_C1FIFOINT21.setRXHALFIF; inline;
  84040. begin
  84041. pTDefRegMap(@Self)^.&set := $00000002;
  84042. end;
  84043. procedure TCAN1_C1FIFOINT21.clearRXHALFIF; inline;
  84044. begin
  84045. pTDefRegMap(@Self)^.clr := $00000002;
  84046. end;
  84047. procedure TCAN1_C1FIFOINT21.setRXHALFIF(thebits : TBits_1); inline;
  84048. begin
  84049. if thebits = 0 then
  84050. pTDefRegMap(@Self)^.clr := $00000002
  84051. else
  84052. pTDefRegMap(@Self)^.&set := $00000002;
  84053. end;
  84054. function TCAN1_C1FIFOINT21.getRXHALFIF : TBits_1; inline;
  84055. begin
  84056. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  84057. end;
  84058. procedure TCAN1_C1FIFOINT21.setRXFULLIF; inline;
  84059. begin
  84060. pTDefRegMap(@Self)^.&set := $00000004;
  84061. end;
  84062. procedure TCAN1_C1FIFOINT21.clearRXFULLIF; inline;
  84063. begin
  84064. pTDefRegMap(@Self)^.clr := $00000004;
  84065. end;
  84066. procedure TCAN1_C1FIFOINT21.setRXFULLIF(thebits : TBits_1); inline;
  84067. begin
  84068. if thebits = 0 then
  84069. pTDefRegMap(@Self)^.clr := $00000004
  84070. else
  84071. pTDefRegMap(@Self)^.&set := $00000004;
  84072. end;
  84073. function TCAN1_C1FIFOINT21.getRXFULLIF : TBits_1; inline;
  84074. begin
  84075. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  84076. end;
  84077. procedure TCAN1_C1FIFOINT21.setRXOVFLIF; inline;
  84078. begin
  84079. pTDefRegMap(@Self)^.&set := $00000008;
  84080. end;
  84081. procedure TCAN1_C1FIFOINT21.clearRXOVFLIF; inline;
  84082. begin
  84083. pTDefRegMap(@Self)^.clr := $00000008;
  84084. end;
  84085. procedure TCAN1_C1FIFOINT21.setRXOVFLIF(thebits : TBits_1); inline;
  84086. begin
  84087. if thebits = 0 then
  84088. pTDefRegMap(@Self)^.clr := $00000008
  84089. else
  84090. pTDefRegMap(@Self)^.&set := $00000008;
  84091. end;
  84092. function TCAN1_C1FIFOINT21.getRXOVFLIF : TBits_1; inline;
  84093. begin
  84094. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  84095. end;
  84096. procedure TCAN1_C1FIFOINT21.setTXEMPTYIF; inline;
  84097. begin
  84098. pTDefRegMap(@Self)^.&set := $00000100;
  84099. end;
  84100. procedure TCAN1_C1FIFOINT21.clearTXEMPTYIF; inline;
  84101. begin
  84102. pTDefRegMap(@Self)^.clr := $00000100;
  84103. end;
  84104. procedure TCAN1_C1FIFOINT21.setTXEMPTYIF(thebits : TBits_1); inline;
  84105. begin
  84106. if thebits = 0 then
  84107. pTDefRegMap(@Self)^.clr := $00000100
  84108. else
  84109. pTDefRegMap(@Self)^.&set := $00000100;
  84110. end;
  84111. function TCAN1_C1FIFOINT21.getTXEMPTYIF : TBits_1; inline;
  84112. begin
  84113. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  84114. end;
  84115. procedure TCAN1_C1FIFOINT21.setTXHALFIF; inline;
  84116. begin
  84117. pTDefRegMap(@Self)^.&set := $00000200;
  84118. end;
  84119. procedure TCAN1_C1FIFOINT21.clearTXHALFIF; inline;
  84120. begin
  84121. pTDefRegMap(@Self)^.clr := $00000200;
  84122. end;
  84123. procedure TCAN1_C1FIFOINT21.setTXHALFIF(thebits : TBits_1); inline;
  84124. begin
  84125. if thebits = 0 then
  84126. pTDefRegMap(@Self)^.clr := $00000200
  84127. else
  84128. pTDefRegMap(@Self)^.&set := $00000200;
  84129. end;
  84130. function TCAN1_C1FIFOINT21.getTXHALFIF : TBits_1; inline;
  84131. begin
  84132. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  84133. end;
  84134. procedure TCAN1_C1FIFOINT21.setTXNFULLIF; inline;
  84135. begin
  84136. pTDefRegMap(@Self)^.&set := $00000400;
  84137. end;
  84138. procedure TCAN1_C1FIFOINT21.clearTXNFULLIF; inline;
  84139. begin
  84140. pTDefRegMap(@Self)^.clr := $00000400;
  84141. end;
  84142. procedure TCAN1_C1FIFOINT21.setTXNFULLIF(thebits : TBits_1); inline;
  84143. begin
  84144. if thebits = 0 then
  84145. pTDefRegMap(@Self)^.clr := $00000400
  84146. else
  84147. pTDefRegMap(@Self)^.&set := $00000400;
  84148. end;
  84149. function TCAN1_C1FIFOINT21.getTXNFULLIF : TBits_1; inline;
  84150. begin
  84151. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  84152. end;
  84153. procedure TCAN1_C1FIFOINT21.setRXNEMPTYIE; inline;
  84154. begin
  84155. pTDefRegMap(@Self)^.&set := $00010000;
  84156. end;
  84157. procedure TCAN1_C1FIFOINT21.clearRXNEMPTYIE; inline;
  84158. begin
  84159. pTDefRegMap(@Self)^.clr := $00010000;
  84160. end;
  84161. procedure TCAN1_C1FIFOINT21.setRXNEMPTYIE(thebits : TBits_1); inline;
  84162. begin
  84163. if thebits = 0 then
  84164. pTDefRegMap(@Self)^.clr := $00010000
  84165. else
  84166. pTDefRegMap(@Self)^.&set := $00010000;
  84167. end;
  84168. function TCAN1_C1FIFOINT21.getRXNEMPTYIE : TBits_1; inline;
  84169. begin
  84170. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  84171. end;
  84172. procedure TCAN1_C1FIFOINT21.setRXHALFIE; inline;
  84173. begin
  84174. pTDefRegMap(@Self)^.&set := $00020000;
  84175. end;
  84176. procedure TCAN1_C1FIFOINT21.clearRXHALFIE; inline;
  84177. begin
  84178. pTDefRegMap(@Self)^.clr := $00020000;
  84179. end;
  84180. procedure TCAN1_C1FIFOINT21.setRXHALFIE(thebits : TBits_1); inline;
  84181. begin
  84182. if thebits = 0 then
  84183. pTDefRegMap(@Self)^.clr := $00020000
  84184. else
  84185. pTDefRegMap(@Self)^.&set := $00020000;
  84186. end;
  84187. function TCAN1_C1FIFOINT21.getRXHALFIE : TBits_1; inline;
  84188. begin
  84189. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  84190. end;
  84191. procedure TCAN1_C1FIFOINT21.setRXFULLIE; inline;
  84192. begin
  84193. pTDefRegMap(@Self)^.&set := $00040000;
  84194. end;
  84195. procedure TCAN1_C1FIFOINT21.clearRXFULLIE; inline;
  84196. begin
  84197. pTDefRegMap(@Self)^.clr := $00040000;
  84198. end;
  84199. procedure TCAN1_C1FIFOINT21.setRXFULLIE(thebits : TBits_1); inline;
  84200. begin
  84201. if thebits = 0 then
  84202. pTDefRegMap(@Self)^.clr := $00040000
  84203. else
  84204. pTDefRegMap(@Self)^.&set := $00040000;
  84205. end;
  84206. function TCAN1_C1FIFOINT21.getRXFULLIE : TBits_1; inline;
  84207. begin
  84208. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  84209. end;
  84210. procedure TCAN1_C1FIFOINT21.setRXOVFLIE; inline;
  84211. begin
  84212. pTDefRegMap(@Self)^.&set := $00080000;
  84213. end;
  84214. procedure TCAN1_C1FIFOINT21.clearRXOVFLIE; inline;
  84215. begin
  84216. pTDefRegMap(@Self)^.clr := $00080000;
  84217. end;
  84218. procedure TCAN1_C1FIFOINT21.setRXOVFLIE(thebits : TBits_1); inline;
  84219. begin
  84220. if thebits = 0 then
  84221. pTDefRegMap(@Self)^.clr := $00080000
  84222. else
  84223. pTDefRegMap(@Self)^.&set := $00080000;
  84224. end;
  84225. function TCAN1_C1FIFOINT21.getRXOVFLIE : TBits_1; inline;
  84226. begin
  84227. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  84228. end;
  84229. procedure TCAN1_C1FIFOINT21.setTXEMPTYIE; inline;
  84230. begin
  84231. pTDefRegMap(@Self)^.&set := $01000000;
  84232. end;
  84233. procedure TCAN1_C1FIFOINT21.clearTXEMPTYIE; inline;
  84234. begin
  84235. pTDefRegMap(@Self)^.clr := $01000000;
  84236. end;
  84237. procedure TCAN1_C1FIFOINT21.setTXEMPTYIE(thebits : TBits_1); inline;
  84238. begin
  84239. if thebits = 0 then
  84240. pTDefRegMap(@Self)^.clr := $01000000
  84241. else
  84242. pTDefRegMap(@Self)^.&set := $01000000;
  84243. end;
  84244. function TCAN1_C1FIFOINT21.getTXEMPTYIE : TBits_1; inline;
  84245. begin
  84246. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  84247. end;
  84248. procedure TCAN1_C1FIFOINT21.setTXHALFIE; inline;
  84249. begin
  84250. pTDefRegMap(@Self)^.&set := $02000000;
  84251. end;
  84252. procedure TCAN1_C1FIFOINT21.clearTXHALFIE; inline;
  84253. begin
  84254. pTDefRegMap(@Self)^.clr := $02000000;
  84255. end;
  84256. procedure TCAN1_C1FIFOINT21.setTXHALFIE(thebits : TBits_1); inline;
  84257. begin
  84258. if thebits = 0 then
  84259. pTDefRegMap(@Self)^.clr := $02000000
  84260. else
  84261. pTDefRegMap(@Self)^.&set := $02000000;
  84262. end;
  84263. function TCAN1_C1FIFOINT21.getTXHALFIE : TBits_1; inline;
  84264. begin
  84265. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  84266. end;
  84267. procedure TCAN1_C1FIFOINT21.setTXNFULLIE; inline;
  84268. begin
  84269. pTDefRegMap(@Self)^.&set := $04000000;
  84270. end;
  84271. procedure TCAN1_C1FIFOINT21.clearTXNFULLIE; inline;
  84272. begin
  84273. pTDefRegMap(@Self)^.clr := $04000000;
  84274. end;
  84275. procedure TCAN1_C1FIFOINT21.setTXNFULLIE(thebits : TBits_1); inline;
  84276. begin
  84277. if thebits = 0 then
  84278. pTDefRegMap(@Self)^.clr := $04000000
  84279. else
  84280. pTDefRegMap(@Self)^.&set := $04000000;
  84281. end;
  84282. function TCAN1_C1FIFOINT21.getTXNFULLIE : TBits_1; inline;
  84283. begin
  84284. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  84285. end;
  84286. procedure TCAN1_C1FIFOINT21.setw(thebits : TBits_32); inline;
  84287. begin
  84288. pTDefRegMap(@Self)^.val := thebits;
  84289. end;
  84290. function TCAN1_C1FIFOINT21.getw : TBits_32; inline;
  84291. begin
  84292. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  84293. end;
  84294. procedure TCAN1_C1FIFOCI21.setCFIFOCI(thebits : TBits_5); inline;
  84295. begin
  84296. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  84297. end;
  84298. function TCAN1_C1FIFOCI21.getCFIFOCI : TBits_5; inline;
  84299. begin
  84300. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  84301. end;
  84302. procedure TCAN1_C1FIFOCI21.setw(thebits : TBits_32); inline;
  84303. begin
  84304. pTDefRegMap(@Self)^.val := thebits;
  84305. end;
  84306. function TCAN1_C1FIFOCI21.getw : TBits_32; inline;
  84307. begin
  84308. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  84309. end;
  84310. procedure TCAN1_C1FIFOCON22.setTXPRI(thebits : TBits_2); inline;
  84311. begin
  84312. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  84313. end;
  84314. function TCAN1_C1FIFOCON22.getTXPRI : TBits_2; inline;
  84315. begin
  84316. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  84317. end;
  84318. procedure TCAN1_C1FIFOCON22.setRTREN; inline;
  84319. begin
  84320. pTDefRegMap(@Self)^.&set := $00000004;
  84321. end;
  84322. procedure TCAN1_C1FIFOCON22.clearRTREN; inline;
  84323. begin
  84324. pTDefRegMap(@Self)^.clr := $00000004;
  84325. end;
  84326. procedure TCAN1_C1FIFOCON22.setRTREN(thebits : TBits_1); inline;
  84327. begin
  84328. if thebits = 0 then
  84329. pTDefRegMap(@Self)^.clr := $00000004
  84330. else
  84331. pTDefRegMap(@Self)^.&set := $00000004;
  84332. end;
  84333. function TCAN1_C1FIFOCON22.getRTREN : TBits_1; inline;
  84334. begin
  84335. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  84336. end;
  84337. procedure TCAN1_C1FIFOCON22.setTXREQ; inline;
  84338. begin
  84339. pTDefRegMap(@Self)^.&set := $00000008;
  84340. end;
  84341. procedure TCAN1_C1FIFOCON22.clearTXREQ; inline;
  84342. begin
  84343. pTDefRegMap(@Self)^.clr := $00000008;
  84344. end;
  84345. procedure TCAN1_C1FIFOCON22.setTXREQ(thebits : TBits_1); inline;
  84346. begin
  84347. if thebits = 0 then
  84348. pTDefRegMap(@Self)^.clr := $00000008
  84349. else
  84350. pTDefRegMap(@Self)^.&set := $00000008;
  84351. end;
  84352. function TCAN1_C1FIFOCON22.getTXREQ : TBits_1; inline;
  84353. begin
  84354. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  84355. end;
  84356. procedure TCAN1_C1FIFOCON22.setTXERR; inline;
  84357. begin
  84358. pTDefRegMap(@Self)^.&set := $00000010;
  84359. end;
  84360. procedure TCAN1_C1FIFOCON22.clearTXERR; inline;
  84361. begin
  84362. pTDefRegMap(@Self)^.clr := $00000010;
  84363. end;
  84364. procedure TCAN1_C1FIFOCON22.setTXERR(thebits : TBits_1); inline;
  84365. begin
  84366. if thebits = 0 then
  84367. pTDefRegMap(@Self)^.clr := $00000010
  84368. else
  84369. pTDefRegMap(@Self)^.&set := $00000010;
  84370. end;
  84371. function TCAN1_C1FIFOCON22.getTXERR : TBits_1; inline;
  84372. begin
  84373. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  84374. end;
  84375. procedure TCAN1_C1FIFOCON22.setTXLARB; inline;
  84376. begin
  84377. pTDefRegMap(@Self)^.&set := $00000020;
  84378. end;
  84379. procedure TCAN1_C1FIFOCON22.clearTXLARB; inline;
  84380. begin
  84381. pTDefRegMap(@Self)^.clr := $00000020;
  84382. end;
  84383. procedure TCAN1_C1FIFOCON22.setTXLARB(thebits : TBits_1); inline;
  84384. begin
  84385. if thebits = 0 then
  84386. pTDefRegMap(@Self)^.clr := $00000020
  84387. else
  84388. pTDefRegMap(@Self)^.&set := $00000020;
  84389. end;
  84390. function TCAN1_C1FIFOCON22.getTXLARB : TBits_1; inline;
  84391. begin
  84392. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  84393. end;
  84394. procedure TCAN1_C1FIFOCON22.setTXABAT; inline;
  84395. begin
  84396. pTDefRegMap(@Self)^.&set := $00000040;
  84397. end;
  84398. procedure TCAN1_C1FIFOCON22.clearTXABAT; inline;
  84399. begin
  84400. pTDefRegMap(@Self)^.clr := $00000040;
  84401. end;
  84402. procedure TCAN1_C1FIFOCON22.setTXABAT(thebits : TBits_1); inline;
  84403. begin
  84404. if thebits = 0 then
  84405. pTDefRegMap(@Self)^.clr := $00000040
  84406. else
  84407. pTDefRegMap(@Self)^.&set := $00000040;
  84408. end;
  84409. function TCAN1_C1FIFOCON22.getTXABAT : TBits_1; inline;
  84410. begin
  84411. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  84412. end;
  84413. procedure TCAN1_C1FIFOCON22.setTXEN; inline;
  84414. begin
  84415. pTDefRegMap(@Self)^.&set := $00000080;
  84416. end;
  84417. procedure TCAN1_C1FIFOCON22.clearTXEN; inline;
  84418. begin
  84419. pTDefRegMap(@Self)^.clr := $00000080;
  84420. end;
  84421. procedure TCAN1_C1FIFOCON22.setTXEN(thebits : TBits_1); inline;
  84422. begin
  84423. if thebits = 0 then
  84424. pTDefRegMap(@Self)^.clr := $00000080
  84425. else
  84426. pTDefRegMap(@Self)^.&set := $00000080;
  84427. end;
  84428. function TCAN1_C1FIFOCON22.getTXEN : TBits_1; inline;
  84429. begin
  84430. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  84431. end;
  84432. procedure TCAN1_C1FIFOCON22.setDONLY; inline;
  84433. begin
  84434. pTDefRegMap(@Self)^.&set := $00001000;
  84435. end;
  84436. procedure TCAN1_C1FIFOCON22.clearDONLY; inline;
  84437. begin
  84438. pTDefRegMap(@Self)^.clr := $00001000;
  84439. end;
  84440. procedure TCAN1_C1FIFOCON22.setDONLY(thebits : TBits_1); inline;
  84441. begin
  84442. if thebits = 0 then
  84443. pTDefRegMap(@Self)^.clr := $00001000
  84444. else
  84445. pTDefRegMap(@Self)^.&set := $00001000;
  84446. end;
  84447. function TCAN1_C1FIFOCON22.getDONLY : TBits_1; inline;
  84448. begin
  84449. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  84450. end;
  84451. procedure TCAN1_C1FIFOCON22.setUINC; inline;
  84452. begin
  84453. pTDefRegMap(@Self)^.&set := $00002000;
  84454. end;
  84455. procedure TCAN1_C1FIFOCON22.clearUINC; inline;
  84456. begin
  84457. pTDefRegMap(@Self)^.clr := $00002000;
  84458. end;
  84459. procedure TCAN1_C1FIFOCON22.setUINC(thebits : TBits_1); inline;
  84460. begin
  84461. if thebits = 0 then
  84462. pTDefRegMap(@Self)^.clr := $00002000
  84463. else
  84464. pTDefRegMap(@Self)^.&set := $00002000;
  84465. end;
  84466. function TCAN1_C1FIFOCON22.getUINC : TBits_1; inline;
  84467. begin
  84468. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  84469. end;
  84470. procedure TCAN1_C1FIFOCON22.setFRESET; inline;
  84471. begin
  84472. pTDefRegMap(@Self)^.&set := $00004000;
  84473. end;
  84474. procedure TCAN1_C1FIFOCON22.clearFRESET; inline;
  84475. begin
  84476. pTDefRegMap(@Self)^.clr := $00004000;
  84477. end;
  84478. procedure TCAN1_C1FIFOCON22.setFRESET(thebits : TBits_1); inline;
  84479. begin
  84480. if thebits = 0 then
  84481. pTDefRegMap(@Self)^.clr := $00004000
  84482. else
  84483. pTDefRegMap(@Self)^.&set := $00004000;
  84484. end;
  84485. function TCAN1_C1FIFOCON22.getFRESET : TBits_1; inline;
  84486. begin
  84487. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  84488. end;
  84489. procedure TCAN1_C1FIFOCON22.setFSIZE(thebits : TBits_5); inline;
  84490. begin
  84491. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  84492. end;
  84493. function TCAN1_C1FIFOCON22.getFSIZE : TBits_5; inline;
  84494. begin
  84495. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  84496. end;
  84497. procedure TCAN1_C1FIFOCON22.setw(thebits : TBits_32); inline;
  84498. begin
  84499. pTDefRegMap(@Self)^.val := thebits;
  84500. end;
  84501. function TCAN1_C1FIFOCON22.getw : TBits_32; inline;
  84502. begin
  84503. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  84504. end;
  84505. procedure TCAN1_C1FIFOINT22.setRXNEMPTYIF; inline;
  84506. begin
  84507. pTDefRegMap(@Self)^.&set := $00000001;
  84508. end;
  84509. procedure TCAN1_C1FIFOINT22.clearRXNEMPTYIF; inline;
  84510. begin
  84511. pTDefRegMap(@Self)^.clr := $00000001;
  84512. end;
  84513. procedure TCAN1_C1FIFOINT22.setRXNEMPTYIF(thebits : TBits_1); inline;
  84514. begin
  84515. if thebits = 0 then
  84516. pTDefRegMap(@Self)^.clr := $00000001
  84517. else
  84518. pTDefRegMap(@Self)^.&set := $00000001;
  84519. end;
  84520. function TCAN1_C1FIFOINT22.getRXNEMPTYIF : TBits_1; inline;
  84521. begin
  84522. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  84523. end;
  84524. procedure TCAN1_C1FIFOINT22.setRXHALFIF; inline;
  84525. begin
  84526. pTDefRegMap(@Self)^.&set := $00000002;
  84527. end;
  84528. procedure TCAN1_C1FIFOINT22.clearRXHALFIF; inline;
  84529. begin
  84530. pTDefRegMap(@Self)^.clr := $00000002;
  84531. end;
  84532. procedure TCAN1_C1FIFOINT22.setRXHALFIF(thebits : TBits_1); inline;
  84533. begin
  84534. if thebits = 0 then
  84535. pTDefRegMap(@Self)^.clr := $00000002
  84536. else
  84537. pTDefRegMap(@Self)^.&set := $00000002;
  84538. end;
  84539. function TCAN1_C1FIFOINT22.getRXHALFIF : TBits_1; inline;
  84540. begin
  84541. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  84542. end;
  84543. procedure TCAN1_C1FIFOINT22.setRXFULLIF; inline;
  84544. begin
  84545. pTDefRegMap(@Self)^.&set := $00000004;
  84546. end;
  84547. procedure TCAN1_C1FIFOINT22.clearRXFULLIF; inline;
  84548. begin
  84549. pTDefRegMap(@Self)^.clr := $00000004;
  84550. end;
  84551. procedure TCAN1_C1FIFOINT22.setRXFULLIF(thebits : TBits_1); inline;
  84552. begin
  84553. if thebits = 0 then
  84554. pTDefRegMap(@Self)^.clr := $00000004
  84555. else
  84556. pTDefRegMap(@Self)^.&set := $00000004;
  84557. end;
  84558. function TCAN1_C1FIFOINT22.getRXFULLIF : TBits_1; inline;
  84559. begin
  84560. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  84561. end;
  84562. procedure TCAN1_C1FIFOINT22.setRXOVFLIF; inline;
  84563. begin
  84564. pTDefRegMap(@Self)^.&set := $00000008;
  84565. end;
  84566. procedure TCAN1_C1FIFOINT22.clearRXOVFLIF; inline;
  84567. begin
  84568. pTDefRegMap(@Self)^.clr := $00000008;
  84569. end;
  84570. procedure TCAN1_C1FIFOINT22.setRXOVFLIF(thebits : TBits_1); inline;
  84571. begin
  84572. if thebits = 0 then
  84573. pTDefRegMap(@Self)^.clr := $00000008
  84574. else
  84575. pTDefRegMap(@Self)^.&set := $00000008;
  84576. end;
  84577. function TCAN1_C1FIFOINT22.getRXOVFLIF : TBits_1; inline;
  84578. begin
  84579. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  84580. end;
  84581. procedure TCAN1_C1FIFOINT22.setTXEMPTYIF; inline;
  84582. begin
  84583. pTDefRegMap(@Self)^.&set := $00000100;
  84584. end;
  84585. procedure TCAN1_C1FIFOINT22.clearTXEMPTYIF; inline;
  84586. begin
  84587. pTDefRegMap(@Self)^.clr := $00000100;
  84588. end;
  84589. procedure TCAN1_C1FIFOINT22.setTXEMPTYIF(thebits : TBits_1); inline;
  84590. begin
  84591. if thebits = 0 then
  84592. pTDefRegMap(@Self)^.clr := $00000100
  84593. else
  84594. pTDefRegMap(@Self)^.&set := $00000100;
  84595. end;
  84596. function TCAN1_C1FIFOINT22.getTXEMPTYIF : TBits_1; inline;
  84597. begin
  84598. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  84599. end;
  84600. procedure TCAN1_C1FIFOINT22.setTXHALFIF; inline;
  84601. begin
  84602. pTDefRegMap(@Self)^.&set := $00000200;
  84603. end;
  84604. procedure TCAN1_C1FIFOINT22.clearTXHALFIF; inline;
  84605. begin
  84606. pTDefRegMap(@Self)^.clr := $00000200;
  84607. end;
  84608. procedure TCAN1_C1FIFOINT22.setTXHALFIF(thebits : TBits_1); inline;
  84609. begin
  84610. if thebits = 0 then
  84611. pTDefRegMap(@Self)^.clr := $00000200
  84612. else
  84613. pTDefRegMap(@Self)^.&set := $00000200;
  84614. end;
  84615. function TCAN1_C1FIFOINT22.getTXHALFIF : TBits_1; inline;
  84616. begin
  84617. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  84618. end;
  84619. procedure TCAN1_C1FIFOINT22.setTXNFULLIF; inline;
  84620. begin
  84621. pTDefRegMap(@Self)^.&set := $00000400;
  84622. end;
  84623. procedure TCAN1_C1FIFOINT22.clearTXNFULLIF; inline;
  84624. begin
  84625. pTDefRegMap(@Self)^.clr := $00000400;
  84626. end;
  84627. procedure TCAN1_C1FIFOINT22.setTXNFULLIF(thebits : TBits_1); inline;
  84628. begin
  84629. if thebits = 0 then
  84630. pTDefRegMap(@Self)^.clr := $00000400
  84631. else
  84632. pTDefRegMap(@Self)^.&set := $00000400;
  84633. end;
  84634. function TCAN1_C1FIFOINT22.getTXNFULLIF : TBits_1; inline;
  84635. begin
  84636. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  84637. end;
  84638. procedure TCAN1_C1FIFOINT22.setRXNEMPTYIE; inline;
  84639. begin
  84640. pTDefRegMap(@Self)^.&set := $00010000;
  84641. end;
  84642. procedure TCAN1_C1FIFOINT22.clearRXNEMPTYIE; inline;
  84643. begin
  84644. pTDefRegMap(@Self)^.clr := $00010000;
  84645. end;
  84646. procedure TCAN1_C1FIFOINT22.setRXNEMPTYIE(thebits : TBits_1); inline;
  84647. begin
  84648. if thebits = 0 then
  84649. pTDefRegMap(@Self)^.clr := $00010000
  84650. else
  84651. pTDefRegMap(@Self)^.&set := $00010000;
  84652. end;
  84653. function TCAN1_C1FIFOINT22.getRXNEMPTYIE : TBits_1; inline;
  84654. begin
  84655. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  84656. end;
  84657. procedure TCAN1_C1FIFOINT22.setRXHALFIE; inline;
  84658. begin
  84659. pTDefRegMap(@Self)^.&set := $00020000;
  84660. end;
  84661. procedure TCAN1_C1FIFOINT22.clearRXHALFIE; inline;
  84662. begin
  84663. pTDefRegMap(@Self)^.clr := $00020000;
  84664. end;
  84665. procedure TCAN1_C1FIFOINT22.setRXHALFIE(thebits : TBits_1); inline;
  84666. begin
  84667. if thebits = 0 then
  84668. pTDefRegMap(@Self)^.clr := $00020000
  84669. else
  84670. pTDefRegMap(@Self)^.&set := $00020000;
  84671. end;
  84672. function TCAN1_C1FIFOINT22.getRXHALFIE : TBits_1; inline;
  84673. begin
  84674. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  84675. end;
  84676. procedure TCAN1_C1FIFOINT22.setRXFULLIE; inline;
  84677. begin
  84678. pTDefRegMap(@Self)^.&set := $00040000;
  84679. end;
  84680. procedure TCAN1_C1FIFOINT22.clearRXFULLIE; inline;
  84681. begin
  84682. pTDefRegMap(@Self)^.clr := $00040000;
  84683. end;
  84684. procedure TCAN1_C1FIFOINT22.setRXFULLIE(thebits : TBits_1); inline;
  84685. begin
  84686. if thebits = 0 then
  84687. pTDefRegMap(@Self)^.clr := $00040000
  84688. else
  84689. pTDefRegMap(@Self)^.&set := $00040000;
  84690. end;
  84691. function TCAN1_C1FIFOINT22.getRXFULLIE : TBits_1; inline;
  84692. begin
  84693. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  84694. end;
  84695. procedure TCAN1_C1FIFOINT22.setRXOVFLIE; inline;
  84696. begin
  84697. pTDefRegMap(@Self)^.&set := $00080000;
  84698. end;
  84699. procedure TCAN1_C1FIFOINT22.clearRXOVFLIE; inline;
  84700. begin
  84701. pTDefRegMap(@Self)^.clr := $00080000;
  84702. end;
  84703. procedure TCAN1_C1FIFOINT22.setRXOVFLIE(thebits : TBits_1); inline;
  84704. begin
  84705. if thebits = 0 then
  84706. pTDefRegMap(@Self)^.clr := $00080000
  84707. else
  84708. pTDefRegMap(@Self)^.&set := $00080000;
  84709. end;
  84710. function TCAN1_C1FIFOINT22.getRXOVFLIE : TBits_1; inline;
  84711. begin
  84712. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  84713. end;
  84714. procedure TCAN1_C1FIFOINT22.setTXEMPTYIE; inline;
  84715. begin
  84716. pTDefRegMap(@Self)^.&set := $01000000;
  84717. end;
  84718. procedure TCAN1_C1FIFOINT22.clearTXEMPTYIE; inline;
  84719. begin
  84720. pTDefRegMap(@Self)^.clr := $01000000;
  84721. end;
  84722. procedure TCAN1_C1FIFOINT22.setTXEMPTYIE(thebits : TBits_1); inline;
  84723. begin
  84724. if thebits = 0 then
  84725. pTDefRegMap(@Self)^.clr := $01000000
  84726. else
  84727. pTDefRegMap(@Self)^.&set := $01000000;
  84728. end;
  84729. function TCAN1_C1FIFOINT22.getTXEMPTYIE : TBits_1; inline;
  84730. begin
  84731. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  84732. end;
  84733. procedure TCAN1_C1FIFOINT22.setTXHALFIE; inline;
  84734. begin
  84735. pTDefRegMap(@Self)^.&set := $02000000;
  84736. end;
  84737. procedure TCAN1_C1FIFOINT22.clearTXHALFIE; inline;
  84738. begin
  84739. pTDefRegMap(@Self)^.clr := $02000000;
  84740. end;
  84741. procedure TCAN1_C1FIFOINT22.setTXHALFIE(thebits : TBits_1); inline;
  84742. begin
  84743. if thebits = 0 then
  84744. pTDefRegMap(@Self)^.clr := $02000000
  84745. else
  84746. pTDefRegMap(@Self)^.&set := $02000000;
  84747. end;
  84748. function TCAN1_C1FIFOINT22.getTXHALFIE : TBits_1; inline;
  84749. begin
  84750. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  84751. end;
  84752. procedure TCAN1_C1FIFOINT22.setTXNFULLIE; inline;
  84753. begin
  84754. pTDefRegMap(@Self)^.&set := $04000000;
  84755. end;
  84756. procedure TCAN1_C1FIFOINT22.clearTXNFULLIE; inline;
  84757. begin
  84758. pTDefRegMap(@Self)^.clr := $04000000;
  84759. end;
  84760. procedure TCAN1_C1FIFOINT22.setTXNFULLIE(thebits : TBits_1); inline;
  84761. begin
  84762. if thebits = 0 then
  84763. pTDefRegMap(@Self)^.clr := $04000000
  84764. else
  84765. pTDefRegMap(@Self)^.&set := $04000000;
  84766. end;
  84767. function TCAN1_C1FIFOINT22.getTXNFULLIE : TBits_1; inline;
  84768. begin
  84769. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  84770. end;
  84771. procedure TCAN1_C1FIFOINT22.setw(thebits : TBits_32); inline;
  84772. begin
  84773. pTDefRegMap(@Self)^.val := thebits;
  84774. end;
  84775. function TCAN1_C1FIFOINT22.getw : TBits_32; inline;
  84776. begin
  84777. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  84778. end;
  84779. procedure TCAN1_C1FIFOCI22.setCFIFOCI(thebits : TBits_5); inline;
  84780. begin
  84781. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  84782. end;
  84783. function TCAN1_C1FIFOCI22.getCFIFOCI : TBits_5; inline;
  84784. begin
  84785. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  84786. end;
  84787. procedure TCAN1_C1FIFOCI22.setw(thebits : TBits_32); inline;
  84788. begin
  84789. pTDefRegMap(@Self)^.val := thebits;
  84790. end;
  84791. function TCAN1_C1FIFOCI22.getw : TBits_32; inline;
  84792. begin
  84793. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  84794. end;
  84795. procedure TCAN1_C1FIFOCON23.setTXPRI(thebits : TBits_2); inline;
  84796. begin
  84797. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  84798. end;
  84799. function TCAN1_C1FIFOCON23.getTXPRI : TBits_2; inline;
  84800. begin
  84801. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  84802. end;
  84803. procedure TCAN1_C1FIFOCON23.setRTREN; inline;
  84804. begin
  84805. pTDefRegMap(@Self)^.&set := $00000004;
  84806. end;
  84807. procedure TCAN1_C1FIFOCON23.clearRTREN; inline;
  84808. begin
  84809. pTDefRegMap(@Self)^.clr := $00000004;
  84810. end;
  84811. procedure TCAN1_C1FIFOCON23.setRTREN(thebits : TBits_1); inline;
  84812. begin
  84813. if thebits = 0 then
  84814. pTDefRegMap(@Self)^.clr := $00000004
  84815. else
  84816. pTDefRegMap(@Self)^.&set := $00000004;
  84817. end;
  84818. function TCAN1_C1FIFOCON23.getRTREN : TBits_1; inline;
  84819. begin
  84820. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  84821. end;
  84822. procedure TCAN1_C1FIFOCON23.setTXREQ; inline;
  84823. begin
  84824. pTDefRegMap(@Self)^.&set := $00000008;
  84825. end;
  84826. procedure TCAN1_C1FIFOCON23.clearTXREQ; inline;
  84827. begin
  84828. pTDefRegMap(@Self)^.clr := $00000008;
  84829. end;
  84830. procedure TCAN1_C1FIFOCON23.setTXREQ(thebits : TBits_1); inline;
  84831. begin
  84832. if thebits = 0 then
  84833. pTDefRegMap(@Self)^.clr := $00000008
  84834. else
  84835. pTDefRegMap(@Self)^.&set := $00000008;
  84836. end;
  84837. function TCAN1_C1FIFOCON23.getTXREQ : TBits_1; inline;
  84838. begin
  84839. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  84840. end;
  84841. procedure TCAN1_C1FIFOCON23.setTXERR; inline;
  84842. begin
  84843. pTDefRegMap(@Self)^.&set := $00000010;
  84844. end;
  84845. procedure TCAN1_C1FIFOCON23.clearTXERR; inline;
  84846. begin
  84847. pTDefRegMap(@Self)^.clr := $00000010;
  84848. end;
  84849. procedure TCAN1_C1FIFOCON23.setTXERR(thebits : TBits_1); inline;
  84850. begin
  84851. if thebits = 0 then
  84852. pTDefRegMap(@Self)^.clr := $00000010
  84853. else
  84854. pTDefRegMap(@Self)^.&set := $00000010;
  84855. end;
  84856. function TCAN1_C1FIFOCON23.getTXERR : TBits_1; inline;
  84857. begin
  84858. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  84859. end;
  84860. procedure TCAN1_C1FIFOCON23.setTXLARB; inline;
  84861. begin
  84862. pTDefRegMap(@Self)^.&set := $00000020;
  84863. end;
  84864. procedure TCAN1_C1FIFOCON23.clearTXLARB; inline;
  84865. begin
  84866. pTDefRegMap(@Self)^.clr := $00000020;
  84867. end;
  84868. procedure TCAN1_C1FIFOCON23.setTXLARB(thebits : TBits_1); inline;
  84869. begin
  84870. if thebits = 0 then
  84871. pTDefRegMap(@Self)^.clr := $00000020
  84872. else
  84873. pTDefRegMap(@Self)^.&set := $00000020;
  84874. end;
  84875. function TCAN1_C1FIFOCON23.getTXLARB : TBits_1; inline;
  84876. begin
  84877. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  84878. end;
  84879. procedure TCAN1_C1FIFOCON23.setTXABAT; inline;
  84880. begin
  84881. pTDefRegMap(@Self)^.&set := $00000040;
  84882. end;
  84883. procedure TCAN1_C1FIFOCON23.clearTXABAT; inline;
  84884. begin
  84885. pTDefRegMap(@Self)^.clr := $00000040;
  84886. end;
  84887. procedure TCAN1_C1FIFOCON23.setTXABAT(thebits : TBits_1); inline;
  84888. begin
  84889. if thebits = 0 then
  84890. pTDefRegMap(@Self)^.clr := $00000040
  84891. else
  84892. pTDefRegMap(@Self)^.&set := $00000040;
  84893. end;
  84894. function TCAN1_C1FIFOCON23.getTXABAT : TBits_1; inline;
  84895. begin
  84896. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  84897. end;
  84898. procedure TCAN1_C1FIFOCON23.setTXEN; inline;
  84899. begin
  84900. pTDefRegMap(@Self)^.&set := $00000080;
  84901. end;
  84902. procedure TCAN1_C1FIFOCON23.clearTXEN; inline;
  84903. begin
  84904. pTDefRegMap(@Self)^.clr := $00000080;
  84905. end;
  84906. procedure TCAN1_C1FIFOCON23.setTXEN(thebits : TBits_1); inline;
  84907. begin
  84908. if thebits = 0 then
  84909. pTDefRegMap(@Self)^.clr := $00000080
  84910. else
  84911. pTDefRegMap(@Self)^.&set := $00000080;
  84912. end;
  84913. function TCAN1_C1FIFOCON23.getTXEN : TBits_1; inline;
  84914. begin
  84915. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  84916. end;
  84917. procedure TCAN1_C1FIFOCON23.setDONLY; inline;
  84918. begin
  84919. pTDefRegMap(@Self)^.&set := $00001000;
  84920. end;
  84921. procedure TCAN1_C1FIFOCON23.clearDONLY; inline;
  84922. begin
  84923. pTDefRegMap(@Self)^.clr := $00001000;
  84924. end;
  84925. procedure TCAN1_C1FIFOCON23.setDONLY(thebits : TBits_1); inline;
  84926. begin
  84927. if thebits = 0 then
  84928. pTDefRegMap(@Self)^.clr := $00001000
  84929. else
  84930. pTDefRegMap(@Self)^.&set := $00001000;
  84931. end;
  84932. function TCAN1_C1FIFOCON23.getDONLY : TBits_1; inline;
  84933. begin
  84934. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  84935. end;
  84936. procedure TCAN1_C1FIFOCON23.setUINC; inline;
  84937. begin
  84938. pTDefRegMap(@Self)^.&set := $00002000;
  84939. end;
  84940. procedure TCAN1_C1FIFOCON23.clearUINC; inline;
  84941. begin
  84942. pTDefRegMap(@Self)^.clr := $00002000;
  84943. end;
  84944. procedure TCAN1_C1FIFOCON23.setUINC(thebits : TBits_1); inline;
  84945. begin
  84946. if thebits = 0 then
  84947. pTDefRegMap(@Self)^.clr := $00002000
  84948. else
  84949. pTDefRegMap(@Self)^.&set := $00002000;
  84950. end;
  84951. function TCAN1_C1FIFOCON23.getUINC : TBits_1; inline;
  84952. begin
  84953. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  84954. end;
  84955. procedure TCAN1_C1FIFOCON23.setFRESET; inline;
  84956. begin
  84957. pTDefRegMap(@Self)^.&set := $00004000;
  84958. end;
  84959. procedure TCAN1_C1FIFOCON23.clearFRESET; inline;
  84960. begin
  84961. pTDefRegMap(@Self)^.clr := $00004000;
  84962. end;
  84963. procedure TCAN1_C1FIFOCON23.setFRESET(thebits : TBits_1); inline;
  84964. begin
  84965. if thebits = 0 then
  84966. pTDefRegMap(@Self)^.clr := $00004000
  84967. else
  84968. pTDefRegMap(@Self)^.&set := $00004000;
  84969. end;
  84970. function TCAN1_C1FIFOCON23.getFRESET : TBits_1; inline;
  84971. begin
  84972. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  84973. end;
  84974. procedure TCAN1_C1FIFOCON23.setFSIZE(thebits : TBits_5); inline;
  84975. begin
  84976. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  84977. end;
  84978. function TCAN1_C1FIFOCON23.getFSIZE : TBits_5; inline;
  84979. begin
  84980. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  84981. end;
  84982. procedure TCAN1_C1FIFOCON23.setw(thebits : TBits_32); inline;
  84983. begin
  84984. pTDefRegMap(@Self)^.val := thebits;
  84985. end;
  84986. function TCAN1_C1FIFOCON23.getw : TBits_32; inline;
  84987. begin
  84988. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  84989. end;
  84990. procedure TCAN1_C1FIFOINT23.setRXNEMPTYIF; inline;
  84991. begin
  84992. pTDefRegMap(@Self)^.&set := $00000001;
  84993. end;
  84994. procedure TCAN1_C1FIFOINT23.clearRXNEMPTYIF; inline;
  84995. begin
  84996. pTDefRegMap(@Self)^.clr := $00000001;
  84997. end;
  84998. procedure TCAN1_C1FIFOINT23.setRXNEMPTYIF(thebits : TBits_1); inline;
  84999. begin
  85000. if thebits = 0 then
  85001. pTDefRegMap(@Self)^.clr := $00000001
  85002. else
  85003. pTDefRegMap(@Self)^.&set := $00000001;
  85004. end;
  85005. function TCAN1_C1FIFOINT23.getRXNEMPTYIF : TBits_1; inline;
  85006. begin
  85007. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  85008. end;
  85009. procedure TCAN1_C1FIFOINT23.setRXHALFIF; inline;
  85010. begin
  85011. pTDefRegMap(@Self)^.&set := $00000002;
  85012. end;
  85013. procedure TCAN1_C1FIFOINT23.clearRXHALFIF; inline;
  85014. begin
  85015. pTDefRegMap(@Self)^.clr := $00000002;
  85016. end;
  85017. procedure TCAN1_C1FIFOINT23.setRXHALFIF(thebits : TBits_1); inline;
  85018. begin
  85019. if thebits = 0 then
  85020. pTDefRegMap(@Self)^.clr := $00000002
  85021. else
  85022. pTDefRegMap(@Self)^.&set := $00000002;
  85023. end;
  85024. function TCAN1_C1FIFOINT23.getRXHALFIF : TBits_1; inline;
  85025. begin
  85026. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  85027. end;
  85028. procedure TCAN1_C1FIFOINT23.setRXFULLIF; inline;
  85029. begin
  85030. pTDefRegMap(@Self)^.&set := $00000004;
  85031. end;
  85032. procedure TCAN1_C1FIFOINT23.clearRXFULLIF; inline;
  85033. begin
  85034. pTDefRegMap(@Self)^.clr := $00000004;
  85035. end;
  85036. procedure TCAN1_C1FIFOINT23.setRXFULLIF(thebits : TBits_1); inline;
  85037. begin
  85038. if thebits = 0 then
  85039. pTDefRegMap(@Self)^.clr := $00000004
  85040. else
  85041. pTDefRegMap(@Self)^.&set := $00000004;
  85042. end;
  85043. function TCAN1_C1FIFOINT23.getRXFULLIF : TBits_1; inline;
  85044. begin
  85045. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  85046. end;
  85047. procedure TCAN1_C1FIFOINT23.setRXOVFLIF; inline;
  85048. begin
  85049. pTDefRegMap(@Self)^.&set := $00000008;
  85050. end;
  85051. procedure TCAN1_C1FIFOINT23.clearRXOVFLIF; inline;
  85052. begin
  85053. pTDefRegMap(@Self)^.clr := $00000008;
  85054. end;
  85055. procedure TCAN1_C1FIFOINT23.setRXOVFLIF(thebits : TBits_1); inline;
  85056. begin
  85057. if thebits = 0 then
  85058. pTDefRegMap(@Self)^.clr := $00000008
  85059. else
  85060. pTDefRegMap(@Self)^.&set := $00000008;
  85061. end;
  85062. function TCAN1_C1FIFOINT23.getRXOVFLIF : TBits_1; inline;
  85063. begin
  85064. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  85065. end;
  85066. procedure TCAN1_C1FIFOINT23.setTXEMPTYIF; inline;
  85067. begin
  85068. pTDefRegMap(@Self)^.&set := $00000100;
  85069. end;
  85070. procedure TCAN1_C1FIFOINT23.clearTXEMPTYIF; inline;
  85071. begin
  85072. pTDefRegMap(@Self)^.clr := $00000100;
  85073. end;
  85074. procedure TCAN1_C1FIFOINT23.setTXEMPTYIF(thebits : TBits_1); inline;
  85075. begin
  85076. if thebits = 0 then
  85077. pTDefRegMap(@Self)^.clr := $00000100
  85078. else
  85079. pTDefRegMap(@Self)^.&set := $00000100;
  85080. end;
  85081. function TCAN1_C1FIFOINT23.getTXEMPTYIF : TBits_1; inline;
  85082. begin
  85083. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  85084. end;
  85085. procedure TCAN1_C1FIFOINT23.setTXHALFIF; inline;
  85086. begin
  85087. pTDefRegMap(@Self)^.&set := $00000200;
  85088. end;
  85089. procedure TCAN1_C1FIFOINT23.clearTXHALFIF; inline;
  85090. begin
  85091. pTDefRegMap(@Self)^.clr := $00000200;
  85092. end;
  85093. procedure TCAN1_C1FIFOINT23.setTXHALFIF(thebits : TBits_1); inline;
  85094. begin
  85095. if thebits = 0 then
  85096. pTDefRegMap(@Self)^.clr := $00000200
  85097. else
  85098. pTDefRegMap(@Self)^.&set := $00000200;
  85099. end;
  85100. function TCAN1_C1FIFOINT23.getTXHALFIF : TBits_1; inline;
  85101. begin
  85102. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  85103. end;
  85104. procedure TCAN1_C1FIFOINT23.setTXNFULLIF; inline;
  85105. begin
  85106. pTDefRegMap(@Self)^.&set := $00000400;
  85107. end;
  85108. procedure TCAN1_C1FIFOINT23.clearTXNFULLIF; inline;
  85109. begin
  85110. pTDefRegMap(@Self)^.clr := $00000400;
  85111. end;
  85112. procedure TCAN1_C1FIFOINT23.setTXNFULLIF(thebits : TBits_1); inline;
  85113. begin
  85114. if thebits = 0 then
  85115. pTDefRegMap(@Self)^.clr := $00000400
  85116. else
  85117. pTDefRegMap(@Self)^.&set := $00000400;
  85118. end;
  85119. function TCAN1_C1FIFOINT23.getTXNFULLIF : TBits_1; inline;
  85120. begin
  85121. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  85122. end;
  85123. procedure TCAN1_C1FIFOINT23.setRXNEMPTYIE; inline;
  85124. begin
  85125. pTDefRegMap(@Self)^.&set := $00010000;
  85126. end;
  85127. procedure TCAN1_C1FIFOINT23.clearRXNEMPTYIE; inline;
  85128. begin
  85129. pTDefRegMap(@Self)^.clr := $00010000;
  85130. end;
  85131. procedure TCAN1_C1FIFOINT23.setRXNEMPTYIE(thebits : TBits_1); inline;
  85132. begin
  85133. if thebits = 0 then
  85134. pTDefRegMap(@Self)^.clr := $00010000
  85135. else
  85136. pTDefRegMap(@Self)^.&set := $00010000;
  85137. end;
  85138. function TCAN1_C1FIFOINT23.getRXNEMPTYIE : TBits_1; inline;
  85139. begin
  85140. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  85141. end;
  85142. procedure TCAN1_C1FIFOINT23.setRXHALFIE; inline;
  85143. begin
  85144. pTDefRegMap(@Self)^.&set := $00020000;
  85145. end;
  85146. procedure TCAN1_C1FIFOINT23.clearRXHALFIE; inline;
  85147. begin
  85148. pTDefRegMap(@Self)^.clr := $00020000;
  85149. end;
  85150. procedure TCAN1_C1FIFOINT23.setRXHALFIE(thebits : TBits_1); inline;
  85151. begin
  85152. if thebits = 0 then
  85153. pTDefRegMap(@Self)^.clr := $00020000
  85154. else
  85155. pTDefRegMap(@Self)^.&set := $00020000;
  85156. end;
  85157. function TCAN1_C1FIFOINT23.getRXHALFIE : TBits_1; inline;
  85158. begin
  85159. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  85160. end;
  85161. procedure TCAN1_C1FIFOINT23.setRXFULLIE; inline;
  85162. begin
  85163. pTDefRegMap(@Self)^.&set := $00040000;
  85164. end;
  85165. procedure TCAN1_C1FIFOINT23.clearRXFULLIE; inline;
  85166. begin
  85167. pTDefRegMap(@Self)^.clr := $00040000;
  85168. end;
  85169. procedure TCAN1_C1FIFOINT23.setRXFULLIE(thebits : TBits_1); inline;
  85170. begin
  85171. if thebits = 0 then
  85172. pTDefRegMap(@Self)^.clr := $00040000
  85173. else
  85174. pTDefRegMap(@Self)^.&set := $00040000;
  85175. end;
  85176. function TCAN1_C1FIFOINT23.getRXFULLIE : TBits_1; inline;
  85177. begin
  85178. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  85179. end;
  85180. procedure TCAN1_C1FIFOINT23.setRXOVFLIE; inline;
  85181. begin
  85182. pTDefRegMap(@Self)^.&set := $00080000;
  85183. end;
  85184. procedure TCAN1_C1FIFOINT23.clearRXOVFLIE; inline;
  85185. begin
  85186. pTDefRegMap(@Self)^.clr := $00080000;
  85187. end;
  85188. procedure TCAN1_C1FIFOINT23.setRXOVFLIE(thebits : TBits_1); inline;
  85189. begin
  85190. if thebits = 0 then
  85191. pTDefRegMap(@Self)^.clr := $00080000
  85192. else
  85193. pTDefRegMap(@Self)^.&set := $00080000;
  85194. end;
  85195. function TCAN1_C1FIFOINT23.getRXOVFLIE : TBits_1; inline;
  85196. begin
  85197. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  85198. end;
  85199. procedure TCAN1_C1FIFOINT23.setTXEMPTYIE; inline;
  85200. begin
  85201. pTDefRegMap(@Self)^.&set := $01000000;
  85202. end;
  85203. procedure TCAN1_C1FIFOINT23.clearTXEMPTYIE; inline;
  85204. begin
  85205. pTDefRegMap(@Self)^.clr := $01000000;
  85206. end;
  85207. procedure TCAN1_C1FIFOINT23.setTXEMPTYIE(thebits : TBits_1); inline;
  85208. begin
  85209. if thebits = 0 then
  85210. pTDefRegMap(@Self)^.clr := $01000000
  85211. else
  85212. pTDefRegMap(@Self)^.&set := $01000000;
  85213. end;
  85214. function TCAN1_C1FIFOINT23.getTXEMPTYIE : TBits_1; inline;
  85215. begin
  85216. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  85217. end;
  85218. procedure TCAN1_C1FIFOINT23.setTXHALFIE; inline;
  85219. begin
  85220. pTDefRegMap(@Self)^.&set := $02000000;
  85221. end;
  85222. procedure TCAN1_C1FIFOINT23.clearTXHALFIE; inline;
  85223. begin
  85224. pTDefRegMap(@Self)^.clr := $02000000;
  85225. end;
  85226. procedure TCAN1_C1FIFOINT23.setTXHALFIE(thebits : TBits_1); inline;
  85227. begin
  85228. if thebits = 0 then
  85229. pTDefRegMap(@Self)^.clr := $02000000
  85230. else
  85231. pTDefRegMap(@Self)^.&set := $02000000;
  85232. end;
  85233. function TCAN1_C1FIFOINT23.getTXHALFIE : TBits_1; inline;
  85234. begin
  85235. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  85236. end;
  85237. procedure TCAN1_C1FIFOINT23.setTXNFULLIE; inline;
  85238. begin
  85239. pTDefRegMap(@Self)^.&set := $04000000;
  85240. end;
  85241. procedure TCAN1_C1FIFOINT23.clearTXNFULLIE; inline;
  85242. begin
  85243. pTDefRegMap(@Self)^.clr := $04000000;
  85244. end;
  85245. procedure TCAN1_C1FIFOINT23.setTXNFULLIE(thebits : TBits_1); inline;
  85246. begin
  85247. if thebits = 0 then
  85248. pTDefRegMap(@Self)^.clr := $04000000
  85249. else
  85250. pTDefRegMap(@Self)^.&set := $04000000;
  85251. end;
  85252. function TCAN1_C1FIFOINT23.getTXNFULLIE : TBits_1; inline;
  85253. begin
  85254. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  85255. end;
  85256. procedure TCAN1_C1FIFOINT23.setw(thebits : TBits_32); inline;
  85257. begin
  85258. pTDefRegMap(@Self)^.val := thebits;
  85259. end;
  85260. function TCAN1_C1FIFOINT23.getw : TBits_32; inline;
  85261. begin
  85262. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  85263. end;
  85264. procedure TCAN1_C1FIFOCI23.setCFIFOCI(thebits : TBits_5); inline;
  85265. begin
  85266. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  85267. end;
  85268. function TCAN1_C1FIFOCI23.getCFIFOCI : TBits_5; inline;
  85269. begin
  85270. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  85271. end;
  85272. procedure TCAN1_C1FIFOCI23.setw(thebits : TBits_32); inline;
  85273. begin
  85274. pTDefRegMap(@Self)^.val := thebits;
  85275. end;
  85276. function TCAN1_C1FIFOCI23.getw : TBits_32; inline;
  85277. begin
  85278. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  85279. end;
  85280. procedure TCAN1_C1FIFOCON24.setTXPRI(thebits : TBits_2); inline;
  85281. begin
  85282. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  85283. end;
  85284. function TCAN1_C1FIFOCON24.getTXPRI : TBits_2; inline;
  85285. begin
  85286. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  85287. end;
  85288. procedure TCAN1_C1FIFOCON24.setRTREN; inline;
  85289. begin
  85290. pTDefRegMap(@Self)^.&set := $00000004;
  85291. end;
  85292. procedure TCAN1_C1FIFOCON24.clearRTREN; inline;
  85293. begin
  85294. pTDefRegMap(@Self)^.clr := $00000004;
  85295. end;
  85296. procedure TCAN1_C1FIFOCON24.setRTREN(thebits : TBits_1); inline;
  85297. begin
  85298. if thebits = 0 then
  85299. pTDefRegMap(@Self)^.clr := $00000004
  85300. else
  85301. pTDefRegMap(@Self)^.&set := $00000004;
  85302. end;
  85303. function TCAN1_C1FIFOCON24.getRTREN : TBits_1; inline;
  85304. begin
  85305. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  85306. end;
  85307. procedure TCAN1_C1FIFOCON24.setTXREQ; inline;
  85308. begin
  85309. pTDefRegMap(@Self)^.&set := $00000008;
  85310. end;
  85311. procedure TCAN1_C1FIFOCON24.clearTXREQ; inline;
  85312. begin
  85313. pTDefRegMap(@Self)^.clr := $00000008;
  85314. end;
  85315. procedure TCAN1_C1FIFOCON24.setTXREQ(thebits : TBits_1); inline;
  85316. begin
  85317. if thebits = 0 then
  85318. pTDefRegMap(@Self)^.clr := $00000008
  85319. else
  85320. pTDefRegMap(@Self)^.&set := $00000008;
  85321. end;
  85322. function TCAN1_C1FIFOCON24.getTXREQ : TBits_1; inline;
  85323. begin
  85324. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  85325. end;
  85326. procedure TCAN1_C1FIFOCON24.setTXERR; inline;
  85327. begin
  85328. pTDefRegMap(@Self)^.&set := $00000010;
  85329. end;
  85330. procedure TCAN1_C1FIFOCON24.clearTXERR; inline;
  85331. begin
  85332. pTDefRegMap(@Self)^.clr := $00000010;
  85333. end;
  85334. procedure TCAN1_C1FIFOCON24.setTXERR(thebits : TBits_1); inline;
  85335. begin
  85336. if thebits = 0 then
  85337. pTDefRegMap(@Self)^.clr := $00000010
  85338. else
  85339. pTDefRegMap(@Self)^.&set := $00000010;
  85340. end;
  85341. function TCAN1_C1FIFOCON24.getTXERR : TBits_1; inline;
  85342. begin
  85343. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  85344. end;
  85345. procedure TCAN1_C1FIFOCON24.setTXLARB; inline;
  85346. begin
  85347. pTDefRegMap(@Self)^.&set := $00000020;
  85348. end;
  85349. procedure TCAN1_C1FIFOCON24.clearTXLARB; inline;
  85350. begin
  85351. pTDefRegMap(@Self)^.clr := $00000020;
  85352. end;
  85353. procedure TCAN1_C1FIFOCON24.setTXLARB(thebits : TBits_1); inline;
  85354. begin
  85355. if thebits = 0 then
  85356. pTDefRegMap(@Self)^.clr := $00000020
  85357. else
  85358. pTDefRegMap(@Self)^.&set := $00000020;
  85359. end;
  85360. function TCAN1_C1FIFOCON24.getTXLARB : TBits_1; inline;
  85361. begin
  85362. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  85363. end;
  85364. procedure TCAN1_C1FIFOCON24.setTXABAT; inline;
  85365. begin
  85366. pTDefRegMap(@Self)^.&set := $00000040;
  85367. end;
  85368. procedure TCAN1_C1FIFOCON24.clearTXABAT; inline;
  85369. begin
  85370. pTDefRegMap(@Self)^.clr := $00000040;
  85371. end;
  85372. procedure TCAN1_C1FIFOCON24.setTXABAT(thebits : TBits_1); inline;
  85373. begin
  85374. if thebits = 0 then
  85375. pTDefRegMap(@Self)^.clr := $00000040
  85376. else
  85377. pTDefRegMap(@Self)^.&set := $00000040;
  85378. end;
  85379. function TCAN1_C1FIFOCON24.getTXABAT : TBits_1; inline;
  85380. begin
  85381. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  85382. end;
  85383. procedure TCAN1_C1FIFOCON24.setTXEN; inline;
  85384. begin
  85385. pTDefRegMap(@Self)^.&set := $00000080;
  85386. end;
  85387. procedure TCAN1_C1FIFOCON24.clearTXEN; inline;
  85388. begin
  85389. pTDefRegMap(@Self)^.clr := $00000080;
  85390. end;
  85391. procedure TCAN1_C1FIFOCON24.setTXEN(thebits : TBits_1); inline;
  85392. begin
  85393. if thebits = 0 then
  85394. pTDefRegMap(@Self)^.clr := $00000080
  85395. else
  85396. pTDefRegMap(@Self)^.&set := $00000080;
  85397. end;
  85398. function TCAN1_C1FIFOCON24.getTXEN : TBits_1; inline;
  85399. begin
  85400. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  85401. end;
  85402. procedure TCAN1_C1FIFOCON24.setDONLY; inline;
  85403. begin
  85404. pTDefRegMap(@Self)^.&set := $00001000;
  85405. end;
  85406. procedure TCAN1_C1FIFOCON24.clearDONLY; inline;
  85407. begin
  85408. pTDefRegMap(@Self)^.clr := $00001000;
  85409. end;
  85410. procedure TCAN1_C1FIFOCON24.setDONLY(thebits : TBits_1); inline;
  85411. begin
  85412. if thebits = 0 then
  85413. pTDefRegMap(@Self)^.clr := $00001000
  85414. else
  85415. pTDefRegMap(@Self)^.&set := $00001000;
  85416. end;
  85417. function TCAN1_C1FIFOCON24.getDONLY : TBits_1; inline;
  85418. begin
  85419. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  85420. end;
  85421. procedure TCAN1_C1FIFOCON24.setUINC; inline;
  85422. begin
  85423. pTDefRegMap(@Self)^.&set := $00002000;
  85424. end;
  85425. procedure TCAN1_C1FIFOCON24.clearUINC; inline;
  85426. begin
  85427. pTDefRegMap(@Self)^.clr := $00002000;
  85428. end;
  85429. procedure TCAN1_C1FIFOCON24.setUINC(thebits : TBits_1); inline;
  85430. begin
  85431. if thebits = 0 then
  85432. pTDefRegMap(@Self)^.clr := $00002000
  85433. else
  85434. pTDefRegMap(@Self)^.&set := $00002000;
  85435. end;
  85436. function TCAN1_C1FIFOCON24.getUINC : TBits_1; inline;
  85437. begin
  85438. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  85439. end;
  85440. procedure TCAN1_C1FIFOCON24.setFRESET; inline;
  85441. begin
  85442. pTDefRegMap(@Self)^.&set := $00004000;
  85443. end;
  85444. procedure TCAN1_C1FIFOCON24.clearFRESET; inline;
  85445. begin
  85446. pTDefRegMap(@Self)^.clr := $00004000;
  85447. end;
  85448. procedure TCAN1_C1FIFOCON24.setFRESET(thebits : TBits_1); inline;
  85449. begin
  85450. if thebits = 0 then
  85451. pTDefRegMap(@Self)^.clr := $00004000
  85452. else
  85453. pTDefRegMap(@Self)^.&set := $00004000;
  85454. end;
  85455. function TCAN1_C1FIFOCON24.getFRESET : TBits_1; inline;
  85456. begin
  85457. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  85458. end;
  85459. procedure TCAN1_C1FIFOCON24.setFSIZE(thebits : TBits_5); inline;
  85460. begin
  85461. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  85462. end;
  85463. function TCAN1_C1FIFOCON24.getFSIZE : TBits_5; inline;
  85464. begin
  85465. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  85466. end;
  85467. procedure TCAN1_C1FIFOCON24.setw(thebits : TBits_32); inline;
  85468. begin
  85469. pTDefRegMap(@Self)^.val := thebits;
  85470. end;
  85471. function TCAN1_C1FIFOCON24.getw : TBits_32; inline;
  85472. begin
  85473. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  85474. end;
  85475. procedure TCAN1_C1FIFOINT24.setRXNEMPTYIF; inline;
  85476. begin
  85477. pTDefRegMap(@Self)^.&set := $00000001;
  85478. end;
  85479. procedure TCAN1_C1FIFOINT24.clearRXNEMPTYIF; inline;
  85480. begin
  85481. pTDefRegMap(@Self)^.clr := $00000001;
  85482. end;
  85483. procedure TCAN1_C1FIFOINT24.setRXNEMPTYIF(thebits : TBits_1); inline;
  85484. begin
  85485. if thebits = 0 then
  85486. pTDefRegMap(@Self)^.clr := $00000001
  85487. else
  85488. pTDefRegMap(@Self)^.&set := $00000001;
  85489. end;
  85490. function TCAN1_C1FIFOINT24.getRXNEMPTYIF : TBits_1; inline;
  85491. begin
  85492. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  85493. end;
  85494. procedure TCAN1_C1FIFOINT24.setRXHALFIF; inline;
  85495. begin
  85496. pTDefRegMap(@Self)^.&set := $00000002;
  85497. end;
  85498. procedure TCAN1_C1FIFOINT24.clearRXHALFIF; inline;
  85499. begin
  85500. pTDefRegMap(@Self)^.clr := $00000002;
  85501. end;
  85502. procedure TCAN1_C1FIFOINT24.setRXHALFIF(thebits : TBits_1); inline;
  85503. begin
  85504. if thebits = 0 then
  85505. pTDefRegMap(@Self)^.clr := $00000002
  85506. else
  85507. pTDefRegMap(@Self)^.&set := $00000002;
  85508. end;
  85509. function TCAN1_C1FIFOINT24.getRXHALFIF : TBits_1; inline;
  85510. begin
  85511. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  85512. end;
  85513. procedure TCAN1_C1FIFOINT24.setRXFULLIF; inline;
  85514. begin
  85515. pTDefRegMap(@Self)^.&set := $00000004;
  85516. end;
  85517. procedure TCAN1_C1FIFOINT24.clearRXFULLIF; inline;
  85518. begin
  85519. pTDefRegMap(@Self)^.clr := $00000004;
  85520. end;
  85521. procedure TCAN1_C1FIFOINT24.setRXFULLIF(thebits : TBits_1); inline;
  85522. begin
  85523. if thebits = 0 then
  85524. pTDefRegMap(@Self)^.clr := $00000004
  85525. else
  85526. pTDefRegMap(@Self)^.&set := $00000004;
  85527. end;
  85528. function TCAN1_C1FIFOINT24.getRXFULLIF : TBits_1; inline;
  85529. begin
  85530. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  85531. end;
  85532. procedure TCAN1_C1FIFOINT24.setRXOVFLIF; inline;
  85533. begin
  85534. pTDefRegMap(@Self)^.&set := $00000008;
  85535. end;
  85536. procedure TCAN1_C1FIFOINT24.clearRXOVFLIF; inline;
  85537. begin
  85538. pTDefRegMap(@Self)^.clr := $00000008;
  85539. end;
  85540. procedure TCAN1_C1FIFOINT24.setRXOVFLIF(thebits : TBits_1); inline;
  85541. begin
  85542. if thebits = 0 then
  85543. pTDefRegMap(@Self)^.clr := $00000008
  85544. else
  85545. pTDefRegMap(@Self)^.&set := $00000008;
  85546. end;
  85547. function TCAN1_C1FIFOINT24.getRXOVFLIF : TBits_1; inline;
  85548. begin
  85549. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  85550. end;
  85551. procedure TCAN1_C1FIFOINT24.setTXEMPTYIF; inline;
  85552. begin
  85553. pTDefRegMap(@Self)^.&set := $00000100;
  85554. end;
  85555. procedure TCAN1_C1FIFOINT24.clearTXEMPTYIF; inline;
  85556. begin
  85557. pTDefRegMap(@Self)^.clr := $00000100;
  85558. end;
  85559. procedure TCAN1_C1FIFOINT24.setTXEMPTYIF(thebits : TBits_1); inline;
  85560. begin
  85561. if thebits = 0 then
  85562. pTDefRegMap(@Self)^.clr := $00000100
  85563. else
  85564. pTDefRegMap(@Self)^.&set := $00000100;
  85565. end;
  85566. function TCAN1_C1FIFOINT24.getTXEMPTYIF : TBits_1; inline;
  85567. begin
  85568. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  85569. end;
  85570. procedure TCAN1_C1FIFOINT24.setTXHALFIF; inline;
  85571. begin
  85572. pTDefRegMap(@Self)^.&set := $00000200;
  85573. end;
  85574. procedure TCAN1_C1FIFOINT24.clearTXHALFIF; inline;
  85575. begin
  85576. pTDefRegMap(@Self)^.clr := $00000200;
  85577. end;
  85578. procedure TCAN1_C1FIFOINT24.setTXHALFIF(thebits : TBits_1); inline;
  85579. begin
  85580. if thebits = 0 then
  85581. pTDefRegMap(@Self)^.clr := $00000200
  85582. else
  85583. pTDefRegMap(@Self)^.&set := $00000200;
  85584. end;
  85585. function TCAN1_C1FIFOINT24.getTXHALFIF : TBits_1; inline;
  85586. begin
  85587. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  85588. end;
  85589. procedure TCAN1_C1FIFOINT24.setTXNFULLIF; inline;
  85590. begin
  85591. pTDefRegMap(@Self)^.&set := $00000400;
  85592. end;
  85593. procedure TCAN1_C1FIFOINT24.clearTXNFULLIF; inline;
  85594. begin
  85595. pTDefRegMap(@Self)^.clr := $00000400;
  85596. end;
  85597. procedure TCAN1_C1FIFOINT24.setTXNFULLIF(thebits : TBits_1); inline;
  85598. begin
  85599. if thebits = 0 then
  85600. pTDefRegMap(@Self)^.clr := $00000400
  85601. else
  85602. pTDefRegMap(@Self)^.&set := $00000400;
  85603. end;
  85604. function TCAN1_C1FIFOINT24.getTXNFULLIF : TBits_1; inline;
  85605. begin
  85606. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  85607. end;
  85608. procedure TCAN1_C1FIFOINT24.setRXNEMPTYIE; inline;
  85609. begin
  85610. pTDefRegMap(@Self)^.&set := $00010000;
  85611. end;
  85612. procedure TCAN1_C1FIFOINT24.clearRXNEMPTYIE; inline;
  85613. begin
  85614. pTDefRegMap(@Self)^.clr := $00010000;
  85615. end;
  85616. procedure TCAN1_C1FIFOINT24.setRXNEMPTYIE(thebits : TBits_1); inline;
  85617. begin
  85618. if thebits = 0 then
  85619. pTDefRegMap(@Self)^.clr := $00010000
  85620. else
  85621. pTDefRegMap(@Self)^.&set := $00010000;
  85622. end;
  85623. function TCAN1_C1FIFOINT24.getRXNEMPTYIE : TBits_1; inline;
  85624. begin
  85625. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  85626. end;
  85627. procedure TCAN1_C1FIFOINT24.setRXHALFIE; inline;
  85628. begin
  85629. pTDefRegMap(@Self)^.&set := $00020000;
  85630. end;
  85631. procedure TCAN1_C1FIFOINT24.clearRXHALFIE; inline;
  85632. begin
  85633. pTDefRegMap(@Self)^.clr := $00020000;
  85634. end;
  85635. procedure TCAN1_C1FIFOINT24.setRXHALFIE(thebits : TBits_1); inline;
  85636. begin
  85637. if thebits = 0 then
  85638. pTDefRegMap(@Self)^.clr := $00020000
  85639. else
  85640. pTDefRegMap(@Self)^.&set := $00020000;
  85641. end;
  85642. function TCAN1_C1FIFOINT24.getRXHALFIE : TBits_1; inline;
  85643. begin
  85644. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  85645. end;
  85646. procedure TCAN1_C1FIFOINT24.setRXFULLIE; inline;
  85647. begin
  85648. pTDefRegMap(@Self)^.&set := $00040000;
  85649. end;
  85650. procedure TCAN1_C1FIFOINT24.clearRXFULLIE; inline;
  85651. begin
  85652. pTDefRegMap(@Self)^.clr := $00040000;
  85653. end;
  85654. procedure TCAN1_C1FIFOINT24.setRXFULLIE(thebits : TBits_1); inline;
  85655. begin
  85656. if thebits = 0 then
  85657. pTDefRegMap(@Self)^.clr := $00040000
  85658. else
  85659. pTDefRegMap(@Self)^.&set := $00040000;
  85660. end;
  85661. function TCAN1_C1FIFOINT24.getRXFULLIE : TBits_1; inline;
  85662. begin
  85663. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  85664. end;
  85665. procedure TCAN1_C1FIFOINT24.setRXOVFLIE; inline;
  85666. begin
  85667. pTDefRegMap(@Self)^.&set := $00080000;
  85668. end;
  85669. procedure TCAN1_C1FIFOINT24.clearRXOVFLIE; inline;
  85670. begin
  85671. pTDefRegMap(@Self)^.clr := $00080000;
  85672. end;
  85673. procedure TCAN1_C1FIFOINT24.setRXOVFLIE(thebits : TBits_1); inline;
  85674. begin
  85675. if thebits = 0 then
  85676. pTDefRegMap(@Self)^.clr := $00080000
  85677. else
  85678. pTDefRegMap(@Self)^.&set := $00080000;
  85679. end;
  85680. function TCAN1_C1FIFOINT24.getRXOVFLIE : TBits_1; inline;
  85681. begin
  85682. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  85683. end;
  85684. procedure TCAN1_C1FIFOINT24.setTXEMPTYIE; inline;
  85685. begin
  85686. pTDefRegMap(@Self)^.&set := $01000000;
  85687. end;
  85688. procedure TCAN1_C1FIFOINT24.clearTXEMPTYIE; inline;
  85689. begin
  85690. pTDefRegMap(@Self)^.clr := $01000000;
  85691. end;
  85692. procedure TCAN1_C1FIFOINT24.setTXEMPTYIE(thebits : TBits_1); inline;
  85693. begin
  85694. if thebits = 0 then
  85695. pTDefRegMap(@Self)^.clr := $01000000
  85696. else
  85697. pTDefRegMap(@Self)^.&set := $01000000;
  85698. end;
  85699. function TCAN1_C1FIFOINT24.getTXEMPTYIE : TBits_1; inline;
  85700. begin
  85701. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  85702. end;
  85703. procedure TCAN1_C1FIFOINT24.setTXHALFIE; inline;
  85704. begin
  85705. pTDefRegMap(@Self)^.&set := $02000000;
  85706. end;
  85707. procedure TCAN1_C1FIFOINT24.clearTXHALFIE; inline;
  85708. begin
  85709. pTDefRegMap(@Self)^.clr := $02000000;
  85710. end;
  85711. procedure TCAN1_C1FIFOINT24.setTXHALFIE(thebits : TBits_1); inline;
  85712. begin
  85713. if thebits = 0 then
  85714. pTDefRegMap(@Self)^.clr := $02000000
  85715. else
  85716. pTDefRegMap(@Self)^.&set := $02000000;
  85717. end;
  85718. function TCAN1_C1FIFOINT24.getTXHALFIE : TBits_1; inline;
  85719. begin
  85720. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  85721. end;
  85722. procedure TCAN1_C1FIFOINT24.setTXNFULLIE; inline;
  85723. begin
  85724. pTDefRegMap(@Self)^.&set := $04000000;
  85725. end;
  85726. procedure TCAN1_C1FIFOINT24.clearTXNFULLIE; inline;
  85727. begin
  85728. pTDefRegMap(@Self)^.clr := $04000000;
  85729. end;
  85730. procedure TCAN1_C1FIFOINT24.setTXNFULLIE(thebits : TBits_1); inline;
  85731. begin
  85732. if thebits = 0 then
  85733. pTDefRegMap(@Self)^.clr := $04000000
  85734. else
  85735. pTDefRegMap(@Self)^.&set := $04000000;
  85736. end;
  85737. function TCAN1_C1FIFOINT24.getTXNFULLIE : TBits_1; inline;
  85738. begin
  85739. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  85740. end;
  85741. procedure TCAN1_C1FIFOINT24.setw(thebits : TBits_32); inline;
  85742. begin
  85743. pTDefRegMap(@Self)^.val := thebits;
  85744. end;
  85745. function TCAN1_C1FIFOINT24.getw : TBits_32; inline;
  85746. begin
  85747. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  85748. end;
  85749. procedure TCAN1_C1FIFOCI24.setCFIFOCI(thebits : TBits_5); inline;
  85750. begin
  85751. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  85752. end;
  85753. function TCAN1_C1FIFOCI24.getCFIFOCI : TBits_5; inline;
  85754. begin
  85755. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  85756. end;
  85757. procedure TCAN1_C1FIFOCI24.setw(thebits : TBits_32); inline;
  85758. begin
  85759. pTDefRegMap(@Self)^.val := thebits;
  85760. end;
  85761. function TCAN1_C1FIFOCI24.getw : TBits_32; inline;
  85762. begin
  85763. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  85764. end;
  85765. procedure TCAN1_C1FIFOCON25.setTXPRI(thebits : TBits_2); inline;
  85766. begin
  85767. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  85768. end;
  85769. function TCAN1_C1FIFOCON25.getTXPRI : TBits_2; inline;
  85770. begin
  85771. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  85772. end;
  85773. procedure TCAN1_C1FIFOCON25.setRTREN; inline;
  85774. begin
  85775. pTDefRegMap(@Self)^.&set := $00000004;
  85776. end;
  85777. procedure TCAN1_C1FIFOCON25.clearRTREN; inline;
  85778. begin
  85779. pTDefRegMap(@Self)^.clr := $00000004;
  85780. end;
  85781. procedure TCAN1_C1FIFOCON25.setRTREN(thebits : TBits_1); inline;
  85782. begin
  85783. if thebits = 0 then
  85784. pTDefRegMap(@Self)^.clr := $00000004
  85785. else
  85786. pTDefRegMap(@Self)^.&set := $00000004;
  85787. end;
  85788. function TCAN1_C1FIFOCON25.getRTREN : TBits_1; inline;
  85789. begin
  85790. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  85791. end;
  85792. procedure TCAN1_C1FIFOCON25.setTXREQ; inline;
  85793. begin
  85794. pTDefRegMap(@Self)^.&set := $00000008;
  85795. end;
  85796. procedure TCAN1_C1FIFOCON25.clearTXREQ; inline;
  85797. begin
  85798. pTDefRegMap(@Self)^.clr := $00000008;
  85799. end;
  85800. procedure TCAN1_C1FIFOCON25.setTXREQ(thebits : TBits_1); inline;
  85801. begin
  85802. if thebits = 0 then
  85803. pTDefRegMap(@Self)^.clr := $00000008
  85804. else
  85805. pTDefRegMap(@Self)^.&set := $00000008;
  85806. end;
  85807. function TCAN1_C1FIFOCON25.getTXREQ : TBits_1; inline;
  85808. begin
  85809. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  85810. end;
  85811. procedure TCAN1_C1FIFOCON25.setTXERR; inline;
  85812. begin
  85813. pTDefRegMap(@Self)^.&set := $00000010;
  85814. end;
  85815. procedure TCAN1_C1FIFOCON25.clearTXERR; inline;
  85816. begin
  85817. pTDefRegMap(@Self)^.clr := $00000010;
  85818. end;
  85819. procedure TCAN1_C1FIFOCON25.setTXERR(thebits : TBits_1); inline;
  85820. begin
  85821. if thebits = 0 then
  85822. pTDefRegMap(@Self)^.clr := $00000010
  85823. else
  85824. pTDefRegMap(@Self)^.&set := $00000010;
  85825. end;
  85826. function TCAN1_C1FIFOCON25.getTXERR : TBits_1; inline;
  85827. begin
  85828. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  85829. end;
  85830. procedure TCAN1_C1FIFOCON25.setTXLARB; inline;
  85831. begin
  85832. pTDefRegMap(@Self)^.&set := $00000020;
  85833. end;
  85834. procedure TCAN1_C1FIFOCON25.clearTXLARB; inline;
  85835. begin
  85836. pTDefRegMap(@Self)^.clr := $00000020;
  85837. end;
  85838. procedure TCAN1_C1FIFOCON25.setTXLARB(thebits : TBits_1); inline;
  85839. begin
  85840. if thebits = 0 then
  85841. pTDefRegMap(@Self)^.clr := $00000020
  85842. else
  85843. pTDefRegMap(@Self)^.&set := $00000020;
  85844. end;
  85845. function TCAN1_C1FIFOCON25.getTXLARB : TBits_1; inline;
  85846. begin
  85847. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  85848. end;
  85849. procedure TCAN1_C1FIFOCON25.setTXABAT; inline;
  85850. begin
  85851. pTDefRegMap(@Self)^.&set := $00000040;
  85852. end;
  85853. procedure TCAN1_C1FIFOCON25.clearTXABAT; inline;
  85854. begin
  85855. pTDefRegMap(@Self)^.clr := $00000040;
  85856. end;
  85857. procedure TCAN1_C1FIFOCON25.setTXABAT(thebits : TBits_1); inline;
  85858. begin
  85859. if thebits = 0 then
  85860. pTDefRegMap(@Self)^.clr := $00000040
  85861. else
  85862. pTDefRegMap(@Self)^.&set := $00000040;
  85863. end;
  85864. function TCAN1_C1FIFOCON25.getTXABAT : TBits_1; inline;
  85865. begin
  85866. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  85867. end;
  85868. procedure TCAN1_C1FIFOCON25.setTXEN; inline;
  85869. begin
  85870. pTDefRegMap(@Self)^.&set := $00000080;
  85871. end;
  85872. procedure TCAN1_C1FIFOCON25.clearTXEN; inline;
  85873. begin
  85874. pTDefRegMap(@Self)^.clr := $00000080;
  85875. end;
  85876. procedure TCAN1_C1FIFOCON25.setTXEN(thebits : TBits_1); inline;
  85877. begin
  85878. if thebits = 0 then
  85879. pTDefRegMap(@Self)^.clr := $00000080
  85880. else
  85881. pTDefRegMap(@Self)^.&set := $00000080;
  85882. end;
  85883. function TCAN1_C1FIFOCON25.getTXEN : TBits_1; inline;
  85884. begin
  85885. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  85886. end;
  85887. procedure TCAN1_C1FIFOCON25.setDONLY; inline;
  85888. begin
  85889. pTDefRegMap(@Self)^.&set := $00001000;
  85890. end;
  85891. procedure TCAN1_C1FIFOCON25.clearDONLY; inline;
  85892. begin
  85893. pTDefRegMap(@Self)^.clr := $00001000;
  85894. end;
  85895. procedure TCAN1_C1FIFOCON25.setDONLY(thebits : TBits_1); inline;
  85896. begin
  85897. if thebits = 0 then
  85898. pTDefRegMap(@Self)^.clr := $00001000
  85899. else
  85900. pTDefRegMap(@Self)^.&set := $00001000;
  85901. end;
  85902. function TCAN1_C1FIFOCON25.getDONLY : TBits_1; inline;
  85903. begin
  85904. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  85905. end;
  85906. procedure TCAN1_C1FIFOCON25.setUINC; inline;
  85907. begin
  85908. pTDefRegMap(@Self)^.&set := $00002000;
  85909. end;
  85910. procedure TCAN1_C1FIFOCON25.clearUINC; inline;
  85911. begin
  85912. pTDefRegMap(@Self)^.clr := $00002000;
  85913. end;
  85914. procedure TCAN1_C1FIFOCON25.setUINC(thebits : TBits_1); inline;
  85915. begin
  85916. if thebits = 0 then
  85917. pTDefRegMap(@Self)^.clr := $00002000
  85918. else
  85919. pTDefRegMap(@Self)^.&set := $00002000;
  85920. end;
  85921. function TCAN1_C1FIFOCON25.getUINC : TBits_1; inline;
  85922. begin
  85923. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  85924. end;
  85925. procedure TCAN1_C1FIFOCON25.setFRESET; inline;
  85926. begin
  85927. pTDefRegMap(@Self)^.&set := $00004000;
  85928. end;
  85929. procedure TCAN1_C1FIFOCON25.clearFRESET; inline;
  85930. begin
  85931. pTDefRegMap(@Self)^.clr := $00004000;
  85932. end;
  85933. procedure TCAN1_C1FIFOCON25.setFRESET(thebits : TBits_1); inline;
  85934. begin
  85935. if thebits = 0 then
  85936. pTDefRegMap(@Self)^.clr := $00004000
  85937. else
  85938. pTDefRegMap(@Self)^.&set := $00004000;
  85939. end;
  85940. function TCAN1_C1FIFOCON25.getFRESET : TBits_1; inline;
  85941. begin
  85942. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  85943. end;
  85944. procedure TCAN1_C1FIFOCON25.setFSIZE(thebits : TBits_5); inline;
  85945. begin
  85946. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  85947. end;
  85948. function TCAN1_C1FIFOCON25.getFSIZE : TBits_5; inline;
  85949. begin
  85950. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  85951. end;
  85952. procedure TCAN1_C1FIFOCON25.setw(thebits : TBits_32); inline;
  85953. begin
  85954. pTDefRegMap(@Self)^.val := thebits;
  85955. end;
  85956. function TCAN1_C1FIFOCON25.getw : TBits_32; inline;
  85957. begin
  85958. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  85959. end;
  85960. procedure TCAN1_C1FIFOINT25.setRXNEMPTYIF; inline;
  85961. begin
  85962. pTDefRegMap(@Self)^.&set := $00000001;
  85963. end;
  85964. procedure TCAN1_C1FIFOINT25.clearRXNEMPTYIF; inline;
  85965. begin
  85966. pTDefRegMap(@Self)^.clr := $00000001;
  85967. end;
  85968. procedure TCAN1_C1FIFOINT25.setRXNEMPTYIF(thebits : TBits_1); inline;
  85969. begin
  85970. if thebits = 0 then
  85971. pTDefRegMap(@Self)^.clr := $00000001
  85972. else
  85973. pTDefRegMap(@Self)^.&set := $00000001;
  85974. end;
  85975. function TCAN1_C1FIFOINT25.getRXNEMPTYIF : TBits_1; inline;
  85976. begin
  85977. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  85978. end;
  85979. procedure TCAN1_C1FIFOINT25.setRXHALFIF; inline;
  85980. begin
  85981. pTDefRegMap(@Self)^.&set := $00000002;
  85982. end;
  85983. procedure TCAN1_C1FIFOINT25.clearRXHALFIF; inline;
  85984. begin
  85985. pTDefRegMap(@Self)^.clr := $00000002;
  85986. end;
  85987. procedure TCAN1_C1FIFOINT25.setRXHALFIF(thebits : TBits_1); inline;
  85988. begin
  85989. if thebits = 0 then
  85990. pTDefRegMap(@Self)^.clr := $00000002
  85991. else
  85992. pTDefRegMap(@Self)^.&set := $00000002;
  85993. end;
  85994. function TCAN1_C1FIFOINT25.getRXHALFIF : TBits_1; inline;
  85995. begin
  85996. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  85997. end;
  85998. procedure TCAN1_C1FIFOINT25.setRXFULLIF; inline;
  85999. begin
  86000. pTDefRegMap(@Self)^.&set := $00000004;
  86001. end;
  86002. procedure TCAN1_C1FIFOINT25.clearRXFULLIF; inline;
  86003. begin
  86004. pTDefRegMap(@Self)^.clr := $00000004;
  86005. end;
  86006. procedure TCAN1_C1FIFOINT25.setRXFULLIF(thebits : TBits_1); inline;
  86007. begin
  86008. if thebits = 0 then
  86009. pTDefRegMap(@Self)^.clr := $00000004
  86010. else
  86011. pTDefRegMap(@Self)^.&set := $00000004;
  86012. end;
  86013. function TCAN1_C1FIFOINT25.getRXFULLIF : TBits_1; inline;
  86014. begin
  86015. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  86016. end;
  86017. procedure TCAN1_C1FIFOINT25.setRXOVFLIF; inline;
  86018. begin
  86019. pTDefRegMap(@Self)^.&set := $00000008;
  86020. end;
  86021. procedure TCAN1_C1FIFOINT25.clearRXOVFLIF; inline;
  86022. begin
  86023. pTDefRegMap(@Self)^.clr := $00000008;
  86024. end;
  86025. procedure TCAN1_C1FIFOINT25.setRXOVFLIF(thebits : TBits_1); inline;
  86026. begin
  86027. if thebits = 0 then
  86028. pTDefRegMap(@Self)^.clr := $00000008
  86029. else
  86030. pTDefRegMap(@Self)^.&set := $00000008;
  86031. end;
  86032. function TCAN1_C1FIFOINT25.getRXOVFLIF : TBits_1; inline;
  86033. begin
  86034. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  86035. end;
  86036. procedure TCAN1_C1FIFOINT25.setTXEMPTYIF; inline;
  86037. begin
  86038. pTDefRegMap(@Self)^.&set := $00000100;
  86039. end;
  86040. procedure TCAN1_C1FIFOINT25.clearTXEMPTYIF; inline;
  86041. begin
  86042. pTDefRegMap(@Self)^.clr := $00000100;
  86043. end;
  86044. procedure TCAN1_C1FIFOINT25.setTXEMPTYIF(thebits : TBits_1); inline;
  86045. begin
  86046. if thebits = 0 then
  86047. pTDefRegMap(@Self)^.clr := $00000100
  86048. else
  86049. pTDefRegMap(@Self)^.&set := $00000100;
  86050. end;
  86051. function TCAN1_C1FIFOINT25.getTXEMPTYIF : TBits_1; inline;
  86052. begin
  86053. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  86054. end;
  86055. procedure TCAN1_C1FIFOINT25.setTXHALFIF; inline;
  86056. begin
  86057. pTDefRegMap(@Self)^.&set := $00000200;
  86058. end;
  86059. procedure TCAN1_C1FIFOINT25.clearTXHALFIF; inline;
  86060. begin
  86061. pTDefRegMap(@Self)^.clr := $00000200;
  86062. end;
  86063. procedure TCAN1_C1FIFOINT25.setTXHALFIF(thebits : TBits_1); inline;
  86064. begin
  86065. if thebits = 0 then
  86066. pTDefRegMap(@Self)^.clr := $00000200
  86067. else
  86068. pTDefRegMap(@Self)^.&set := $00000200;
  86069. end;
  86070. function TCAN1_C1FIFOINT25.getTXHALFIF : TBits_1; inline;
  86071. begin
  86072. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  86073. end;
  86074. procedure TCAN1_C1FIFOINT25.setTXNFULLIF; inline;
  86075. begin
  86076. pTDefRegMap(@Self)^.&set := $00000400;
  86077. end;
  86078. procedure TCAN1_C1FIFOINT25.clearTXNFULLIF; inline;
  86079. begin
  86080. pTDefRegMap(@Self)^.clr := $00000400;
  86081. end;
  86082. procedure TCAN1_C1FIFOINT25.setTXNFULLIF(thebits : TBits_1); inline;
  86083. begin
  86084. if thebits = 0 then
  86085. pTDefRegMap(@Self)^.clr := $00000400
  86086. else
  86087. pTDefRegMap(@Self)^.&set := $00000400;
  86088. end;
  86089. function TCAN1_C1FIFOINT25.getTXNFULLIF : TBits_1; inline;
  86090. begin
  86091. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  86092. end;
  86093. procedure TCAN1_C1FIFOINT25.setRXNEMPTYIE; inline;
  86094. begin
  86095. pTDefRegMap(@Self)^.&set := $00010000;
  86096. end;
  86097. procedure TCAN1_C1FIFOINT25.clearRXNEMPTYIE; inline;
  86098. begin
  86099. pTDefRegMap(@Self)^.clr := $00010000;
  86100. end;
  86101. procedure TCAN1_C1FIFOINT25.setRXNEMPTYIE(thebits : TBits_1); inline;
  86102. begin
  86103. if thebits = 0 then
  86104. pTDefRegMap(@Self)^.clr := $00010000
  86105. else
  86106. pTDefRegMap(@Self)^.&set := $00010000;
  86107. end;
  86108. function TCAN1_C1FIFOINT25.getRXNEMPTYIE : TBits_1; inline;
  86109. begin
  86110. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  86111. end;
  86112. procedure TCAN1_C1FIFOINT25.setRXHALFIE; inline;
  86113. begin
  86114. pTDefRegMap(@Self)^.&set := $00020000;
  86115. end;
  86116. procedure TCAN1_C1FIFOINT25.clearRXHALFIE; inline;
  86117. begin
  86118. pTDefRegMap(@Self)^.clr := $00020000;
  86119. end;
  86120. procedure TCAN1_C1FIFOINT25.setRXHALFIE(thebits : TBits_1); inline;
  86121. begin
  86122. if thebits = 0 then
  86123. pTDefRegMap(@Self)^.clr := $00020000
  86124. else
  86125. pTDefRegMap(@Self)^.&set := $00020000;
  86126. end;
  86127. function TCAN1_C1FIFOINT25.getRXHALFIE : TBits_1; inline;
  86128. begin
  86129. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  86130. end;
  86131. procedure TCAN1_C1FIFOINT25.setRXFULLIE; inline;
  86132. begin
  86133. pTDefRegMap(@Self)^.&set := $00040000;
  86134. end;
  86135. procedure TCAN1_C1FIFOINT25.clearRXFULLIE; inline;
  86136. begin
  86137. pTDefRegMap(@Self)^.clr := $00040000;
  86138. end;
  86139. procedure TCAN1_C1FIFOINT25.setRXFULLIE(thebits : TBits_1); inline;
  86140. begin
  86141. if thebits = 0 then
  86142. pTDefRegMap(@Self)^.clr := $00040000
  86143. else
  86144. pTDefRegMap(@Self)^.&set := $00040000;
  86145. end;
  86146. function TCAN1_C1FIFOINT25.getRXFULLIE : TBits_1; inline;
  86147. begin
  86148. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  86149. end;
  86150. procedure TCAN1_C1FIFOINT25.setRXOVFLIE; inline;
  86151. begin
  86152. pTDefRegMap(@Self)^.&set := $00080000;
  86153. end;
  86154. procedure TCAN1_C1FIFOINT25.clearRXOVFLIE; inline;
  86155. begin
  86156. pTDefRegMap(@Self)^.clr := $00080000;
  86157. end;
  86158. procedure TCAN1_C1FIFOINT25.setRXOVFLIE(thebits : TBits_1); inline;
  86159. begin
  86160. if thebits = 0 then
  86161. pTDefRegMap(@Self)^.clr := $00080000
  86162. else
  86163. pTDefRegMap(@Self)^.&set := $00080000;
  86164. end;
  86165. function TCAN1_C1FIFOINT25.getRXOVFLIE : TBits_1; inline;
  86166. begin
  86167. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  86168. end;
  86169. procedure TCAN1_C1FIFOINT25.setTXEMPTYIE; inline;
  86170. begin
  86171. pTDefRegMap(@Self)^.&set := $01000000;
  86172. end;
  86173. procedure TCAN1_C1FIFOINT25.clearTXEMPTYIE; inline;
  86174. begin
  86175. pTDefRegMap(@Self)^.clr := $01000000;
  86176. end;
  86177. procedure TCAN1_C1FIFOINT25.setTXEMPTYIE(thebits : TBits_1); inline;
  86178. begin
  86179. if thebits = 0 then
  86180. pTDefRegMap(@Self)^.clr := $01000000
  86181. else
  86182. pTDefRegMap(@Self)^.&set := $01000000;
  86183. end;
  86184. function TCAN1_C1FIFOINT25.getTXEMPTYIE : TBits_1; inline;
  86185. begin
  86186. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  86187. end;
  86188. procedure TCAN1_C1FIFOINT25.setTXHALFIE; inline;
  86189. begin
  86190. pTDefRegMap(@Self)^.&set := $02000000;
  86191. end;
  86192. procedure TCAN1_C1FIFOINT25.clearTXHALFIE; inline;
  86193. begin
  86194. pTDefRegMap(@Self)^.clr := $02000000;
  86195. end;
  86196. procedure TCAN1_C1FIFOINT25.setTXHALFIE(thebits : TBits_1); inline;
  86197. begin
  86198. if thebits = 0 then
  86199. pTDefRegMap(@Self)^.clr := $02000000
  86200. else
  86201. pTDefRegMap(@Self)^.&set := $02000000;
  86202. end;
  86203. function TCAN1_C1FIFOINT25.getTXHALFIE : TBits_1; inline;
  86204. begin
  86205. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  86206. end;
  86207. procedure TCAN1_C1FIFOINT25.setTXNFULLIE; inline;
  86208. begin
  86209. pTDefRegMap(@Self)^.&set := $04000000;
  86210. end;
  86211. procedure TCAN1_C1FIFOINT25.clearTXNFULLIE; inline;
  86212. begin
  86213. pTDefRegMap(@Self)^.clr := $04000000;
  86214. end;
  86215. procedure TCAN1_C1FIFOINT25.setTXNFULLIE(thebits : TBits_1); inline;
  86216. begin
  86217. if thebits = 0 then
  86218. pTDefRegMap(@Self)^.clr := $04000000
  86219. else
  86220. pTDefRegMap(@Self)^.&set := $04000000;
  86221. end;
  86222. function TCAN1_C1FIFOINT25.getTXNFULLIE : TBits_1; inline;
  86223. begin
  86224. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  86225. end;
  86226. procedure TCAN1_C1FIFOINT25.setw(thebits : TBits_32); inline;
  86227. begin
  86228. pTDefRegMap(@Self)^.val := thebits;
  86229. end;
  86230. function TCAN1_C1FIFOINT25.getw : TBits_32; inline;
  86231. begin
  86232. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  86233. end;
  86234. procedure TCAN1_C1FIFOCI25.setCFIFOCI(thebits : TBits_5); inline;
  86235. begin
  86236. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  86237. end;
  86238. function TCAN1_C1FIFOCI25.getCFIFOCI : TBits_5; inline;
  86239. begin
  86240. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  86241. end;
  86242. procedure TCAN1_C1FIFOCI25.setw(thebits : TBits_32); inline;
  86243. begin
  86244. pTDefRegMap(@Self)^.val := thebits;
  86245. end;
  86246. function TCAN1_C1FIFOCI25.getw : TBits_32; inline;
  86247. begin
  86248. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  86249. end;
  86250. procedure TCAN1_C1FIFOCON26.setTXPRI(thebits : TBits_2); inline;
  86251. begin
  86252. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  86253. end;
  86254. function TCAN1_C1FIFOCON26.getTXPRI : TBits_2; inline;
  86255. begin
  86256. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  86257. end;
  86258. procedure TCAN1_C1FIFOCON26.setRTREN; inline;
  86259. begin
  86260. pTDefRegMap(@Self)^.&set := $00000004;
  86261. end;
  86262. procedure TCAN1_C1FIFOCON26.clearRTREN; inline;
  86263. begin
  86264. pTDefRegMap(@Self)^.clr := $00000004;
  86265. end;
  86266. procedure TCAN1_C1FIFOCON26.setRTREN(thebits : TBits_1); inline;
  86267. begin
  86268. if thebits = 0 then
  86269. pTDefRegMap(@Self)^.clr := $00000004
  86270. else
  86271. pTDefRegMap(@Self)^.&set := $00000004;
  86272. end;
  86273. function TCAN1_C1FIFOCON26.getRTREN : TBits_1; inline;
  86274. begin
  86275. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  86276. end;
  86277. procedure TCAN1_C1FIFOCON26.setTXREQ; inline;
  86278. begin
  86279. pTDefRegMap(@Self)^.&set := $00000008;
  86280. end;
  86281. procedure TCAN1_C1FIFOCON26.clearTXREQ; inline;
  86282. begin
  86283. pTDefRegMap(@Self)^.clr := $00000008;
  86284. end;
  86285. procedure TCAN1_C1FIFOCON26.setTXREQ(thebits : TBits_1); inline;
  86286. begin
  86287. if thebits = 0 then
  86288. pTDefRegMap(@Self)^.clr := $00000008
  86289. else
  86290. pTDefRegMap(@Self)^.&set := $00000008;
  86291. end;
  86292. function TCAN1_C1FIFOCON26.getTXREQ : TBits_1; inline;
  86293. begin
  86294. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  86295. end;
  86296. procedure TCAN1_C1FIFOCON26.setTXERR; inline;
  86297. begin
  86298. pTDefRegMap(@Self)^.&set := $00000010;
  86299. end;
  86300. procedure TCAN1_C1FIFOCON26.clearTXERR; inline;
  86301. begin
  86302. pTDefRegMap(@Self)^.clr := $00000010;
  86303. end;
  86304. procedure TCAN1_C1FIFOCON26.setTXERR(thebits : TBits_1); inline;
  86305. begin
  86306. if thebits = 0 then
  86307. pTDefRegMap(@Self)^.clr := $00000010
  86308. else
  86309. pTDefRegMap(@Self)^.&set := $00000010;
  86310. end;
  86311. function TCAN1_C1FIFOCON26.getTXERR : TBits_1; inline;
  86312. begin
  86313. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  86314. end;
  86315. procedure TCAN1_C1FIFOCON26.setTXLARB; inline;
  86316. begin
  86317. pTDefRegMap(@Self)^.&set := $00000020;
  86318. end;
  86319. procedure TCAN1_C1FIFOCON26.clearTXLARB; inline;
  86320. begin
  86321. pTDefRegMap(@Self)^.clr := $00000020;
  86322. end;
  86323. procedure TCAN1_C1FIFOCON26.setTXLARB(thebits : TBits_1); inline;
  86324. begin
  86325. if thebits = 0 then
  86326. pTDefRegMap(@Self)^.clr := $00000020
  86327. else
  86328. pTDefRegMap(@Self)^.&set := $00000020;
  86329. end;
  86330. function TCAN1_C1FIFOCON26.getTXLARB : TBits_1; inline;
  86331. begin
  86332. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  86333. end;
  86334. procedure TCAN1_C1FIFOCON26.setTXABAT; inline;
  86335. begin
  86336. pTDefRegMap(@Self)^.&set := $00000040;
  86337. end;
  86338. procedure TCAN1_C1FIFOCON26.clearTXABAT; inline;
  86339. begin
  86340. pTDefRegMap(@Self)^.clr := $00000040;
  86341. end;
  86342. procedure TCAN1_C1FIFOCON26.setTXABAT(thebits : TBits_1); inline;
  86343. begin
  86344. if thebits = 0 then
  86345. pTDefRegMap(@Self)^.clr := $00000040
  86346. else
  86347. pTDefRegMap(@Self)^.&set := $00000040;
  86348. end;
  86349. function TCAN1_C1FIFOCON26.getTXABAT : TBits_1; inline;
  86350. begin
  86351. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  86352. end;
  86353. procedure TCAN1_C1FIFOCON26.setTXEN; inline;
  86354. begin
  86355. pTDefRegMap(@Self)^.&set := $00000080;
  86356. end;
  86357. procedure TCAN1_C1FIFOCON26.clearTXEN; inline;
  86358. begin
  86359. pTDefRegMap(@Self)^.clr := $00000080;
  86360. end;
  86361. procedure TCAN1_C1FIFOCON26.setTXEN(thebits : TBits_1); inline;
  86362. begin
  86363. if thebits = 0 then
  86364. pTDefRegMap(@Self)^.clr := $00000080
  86365. else
  86366. pTDefRegMap(@Self)^.&set := $00000080;
  86367. end;
  86368. function TCAN1_C1FIFOCON26.getTXEN : TBits_1; inline;
  86369. begin
  86370. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  86371. end;
  86372. procedure TCAN1_C1FIFOCON26.setDONLY; inline;
  86373. begin
  86374. pTDefRegMap(@Self)^.&set := $00001000;
  86375. end;
  86376. procedure TCAN1_C1FIFOCON26.clearDONLY; inline;
  86377. begin
  86378. pTDefRegMap(@Self)^.clr := $00001000;
  86379. end;
  86380. procedure TCAN1_C1FIFOCON26.setDONLY(thebits : TBits_1); inline;
  86381. begin
  86382. if thebits = 0 then
  86383. pTDefRegMap(@Self)^.clr := $00001000
  86384. else
  86385. pTDefRegMap(@Self)^.&set := $00001000;
  86386. end;
  86387. function TCAN1_C1FIFOCON26.getDONLY : TBits_1; inline;
  86388. begin
  86389. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  86390. end;
  86391. procedure TCAN1_C1FIFOCON26.setUINC; inline;
  86392. begin
  86393. pTDefRegMap(@Self)^.&set := $00002000;
  86394. end;
  86395. procedure TCAN1_C1FIFOCON26.clearUINC; inline;
  86396. begin
  86397. pTDefRegMap(@Self)^.clr := $00002000;
  86398. end;
  86399. procedure TCAN1_C1FIFOCON26.setUINC(thebits : TBits_1); inline;
  86400. begin
  86401. if thebits = 0 then
  86402. pTDefRegMap(@Self)^.clr := $00002000
  86403. else
  86404. pTDefRegMap(@Self)^.&set := $00002000;
  86405. end;
  86406. function TCAN1_C1FIFOCON26.getUINC : TBits_1; inline;
  86407. begin
  86408. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  86409. end;
  86410. procedure TCAN1_C1FIFOCON26.setFRESET; inline;
  86411. begin
  86412. pTDefRegMap(@Self)^.&set := $00004000;
  86413. end;
  86414. procedure TCAN1_C1FIFOCON26.clearFRESET; inline;
  86415. begin
  86416. pTDefRegMap(@Self)^.clr := $00004000;
  86417. end;
  86418. procedure TCAN1_C1FIFOCON26.setFRESET(thebits : TBits_1); inline;
  86419. begin
  86420. if thebits = 0 then
  86421. pTDefRegMap(@Self)^.clr := $00004000
  86422. else
  86423. pTDefRegMap(@Self)^.&set := $00004000;
  86424. end;
  86425. function TCAN1_C1FIFOCON26.getFRESET : TBits_1; inline;
  86426. begin
  86427. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  86428. end;
  86429. procedure TCAN1_C1FIFOCON26.setFSIZE(thebits : TBits_5); inline;
  86430. begin
  86431. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  86432. end;
  86433. function TCAN1_C1FIFOCON26.getFSIZE : TBits_5; inline;
  86434. begin
  86435. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  86436. end;
  86437. procedure TCAN1_C1FIFOCON26.setw(thebits : TBits_32); inline;
  86438. begin
  86439. pTDefRegMap(@Self)^.val := thebits;
  86440. end;
  86441. function TCAN1_C1FIFOCON26.getw : TBits_32; inline;
  86442. begin
  86443. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  86444. end;
  86445. procedure TCAN1_C1FIFOINT26.setRXNEMPTYIF; inline;
  86446. begin
  86447. pTDefRegMap(@Self)^.&set := $00000001;
  86448. end;
  86449. procedure TCAN1_C1FIFOINT26.clearRXNEMPTYIF; inline;
  86450. begin
  86451. pTDefRegMap(@Self)^.clr := $00000001;
  86452. end;
  86453. procedure TCAN1_C1FIFOINT26.setRXNEMPTYIF(thebits : TBits_1); inline;
  86454. begin
  86455. if thebits = 0 then
  86456. pTDefRegMap(@Self)^.clr := $00000001
  86457. else
  86458. pTDefRegMap(@Self)^.&set := $00000001;
  86459. end;
  86460. function TCAN1_C1FIFOINT26.getRXNEMPTYIF : TBits_1; inline;
  86461. begin
  86462. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  86463. end;
  86464. procedure TCAN1_C1FIFOINT26.setRXHALFIF; inline;
  86465. begin
  86466. pTDefRegMap(@Self)^.&set := $00000002;
  86467. end;
  86468. procedure TCAN1_C1FIFOINT26.clearRXHALFIF; inline;
  86469. begin
  86470. pTDefRegMap(@Self)^.clr := $00000002;
  86471. end;
  86472. procedure TCAN1_C1FIFOINT26.setRXHALFIF(thebits : TBits_1); inline;
  86473. begin
  86474. if thebits = 0 then
  86475. pTDefRegMap(@Self)^.clr := $00000002
  86476. else
  86477. pTDefRegMap(@Self)^.&set := $00000002;
  86478. end;
  86479. function TCAN1_C1FIFOINT26.getRXHALFIF : TBits_1; inline;
  86480. begin
  86481. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  86482. end;
  86483. procedure TCAN1_C1FIFOINT26.setRXFULLIF; inline;
  86484. begin
  86485. pTDefRegMap(@Self)^.&set := $00000004;
  86486. end;
  86487. procedure TCAN1_C1FIFOINT26.clearRXFULLIF; inline;
  86488. begin
  86489. pTDefRegMap(@Self)^.clr := $00000004;
  86490. end;
  86491. procedure TCAN1_C1FIFOINT26.setRXFULLIF(thebits : TBits_1); inline;
  86492. begin
  86493. if thebits = 0 then
  86494. pTDefRegMap(@Self)^.clr := $00000004
  86495. else
  86496. pTDefRegMap(@Self)^.&set := $00000004;
  86497. end;
  86498. function TCAN1_C1FIFOINT26.getRXFULLIF : TBits_1; inline;
  86499. begin
  86500. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  86501. end;
  86502. procedure TCAN1_C1FIFOINT26.setRXOVFLIF; inline;
  86503. begin
  86504. pTDefRegMap(@Self)^.&set := $00000008;
  86505. end;
  86506. procedure TCAN1_C1FIFOINT26.clearRXOVFLIF; inline;
  86507. begin
  86508. pTDefRegMap(@Self)^.clr := $00000008;
  86509. end;
  86510. procedure TCAN1_C1FIFOINT26.setRXOVFLIF(thebits : TBits_1); inline;
  86511. begin
  86512. if thebits = 0 then
  86513. pTDefRegMap(@Self)^.clr := $00000008
  86514. else
  86515. pTDefRegMap(@Self)^.&set := $00000008;
  86516. end;
  86517. function TCAN1_C1FIFOINT26.getRXOVFLIF : TBits_1; inline;
  86518. begin
  86519. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  86520. end;
  86521. procedure TCAN1_C1FIFOINT26.setTXEMPTYIF; inline;
  86522. begin
  86523. pTDefRegMap(@Self)^.&set := $00000100;
  86524. end;
  86525. procedure TCAN1_C1FIFOINT26.clearTXEMPTYIF; inline;
  86526. begin
  86527. pTDefRegMap(@Self)^.clr := $00000100;
  86528. end;
  86529. procedure TCAN1_C1FIFOINT26.setTXEMPTYIF(thebits : TBits_1); inline;
  86530. begin
  86531. if thebits = 0 then
  86532. pTDefRegMap(@Self)^.clr := $00000100
  86533. else
  86534. pTDefRegMap(@Self)^.&set := $00000100;
  86535. end;
  86536. function TCAN1_C1FIFOINT26.getTXEMPTYIF : TBits_1; inline;
  86537. begin
  86538. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  86539. end;
  86540. procedure TCAN1_C1FIFOINT26.setTXHALFIF; inline;
  86541. begin
  86542. pTDefRegMap(@Self)^.&set := $00000200;
  86543. end;
  86544. procedure TCAN1_C1FIFOINT26.clearTXHALFIF; inline;
  86545. begin
  86546. pTDefRegMap(@Self)^.clr := $00000200;
  86547. end;
  86548. procedure TCAN1_C1FIFOINT26.setTXHALFIF(thebits : TBits_1); inline;
  86549. begin
  86550. if thebits = 0 then
  86551. pTDefRegMap(@Self)^.clr := $00000200
  86552. else
  86553. pTDefRegMap(@Self)^.&set := $00000200;
  86554. end;
  86555. function TCAN1_C1FIFOINT26.getTXHALFIF : TBits_1; inline;
  86556. begin
  86557. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  86558. end;
  86559. procedure TCAN1_C1FIFOINT26.setTXNFULLIF; inline;
  86560. begin
  86561. pTDefRegMap(@Self)^.&set := $00000400;
  86562. end;
  86563. procedure TCAN1_C1FIFOINT26.clearTXNFULLIF; inline;
  86564. begin
  86565. pTDefRegMap(@Self)^.clr := $00000400;
  86566. end;
  86567. procedure TCAN1_C1FIFOINT26.setTXNFULLIF(thebits : TBits_1); inline;
  86568. begin
  86569. if thebits = 0 then
  86570. pTDefRegMap(@Self)^.clr := $00000400
  86571. else
  86572. pTDefRegMap(@Self)^.&set := $00000400;
  86573. end;
  86574. function TCAN1_C1FIFOINT26.getTXNFULLIF : TBits_1; inline;
  86575. begin
  86576. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  86577. end;
  86578. procedure TCAN1_C1FIFOINT26.setRXNEMPTYIE; inline;
  86579. begin
  86580. pTDefRegMap(@Self)^.&set := $00010000;
  86581. end;
  86582. procedure TCAN1_C1FIFOINT26.clearRXNEMPTYIE; inline;
  86583. begin
  86584. pTDefRegMap(@Self)^.clr := $00010000;
  86585. end;
  86586. procedure TCAN1_C1FIFOINT26.setRXNEMPTYIE(thebits : TBits_1); inline;
  86587. begin
  86588. if thebits = 0 then
  86589. pTDefRegMap(@Self)^.clr := $00010000
  86590. else
  86591. pTDefRegMap(@Self)^.&set := $00010000;
  86592. end;
  86593. function TCAN1_C1FIFOINT26.getRXNEMPTYIE : TBits_1; inline;
  86594. begin
  86595. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  86596. end;
  86597. procedure TCAN1_C1FIFOINT26.setRXHALFIE; inline;
  86598. begin
  86599. pTDefRegMap(@Self)^.&set := $00020000;
  86600. end;
  86601. procedure TCAN1_C1FIFOINT26.clearRXHALFIE; inline;
  86602. begin
  86603. pTDefRegMap(@Self)^.clr := $00020000;
  86604. end;
  86605. procedure TCAN1_C1FIFOINT26.setRXHALFIE(thebits : TBits_1); inline;
  86606. begin
  86607. if thebits = 0 then
  86608. pTDefRegMap(@Self)^.clr := $00020000
  86609. else
  86610. pTDefRegMap(@Self)^.&set := $00020000;
  86611. end;
  86612. function TCAN1_C1FIFOINT26.getRXHALFIE : TBits_1; inline;
  86613. begin
  86614. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  86615. end;
  86616. procedure TCAN1_C1FIFOINT26.setRXFULLIE; inline;
  86617. begin
  86618. pTDefRegMap(@Self)^.&set := $00040000;
  86619. end;
  86620. procedure TCAN1_C1FIFOINT26.clearRXFULLIE; inline;
  86621. begin
  86622. pTDefRegMap(@Self)^.clr := $00040000;
  86623. end;
  86624. procedure TCAN1_C1FIFOINT26.setRXFULLIE(thebits : TBits_1); inline;
  86625. begin
  86626. if thebits = 0 then
  86627. pTDefRegMap(@Self)^.clr := $00040000
  86628. else
  86629. pTDefRegMap(@Self)^.&set := $00040000;
  86630. end;
  86631. function TCAN1_C1FIFOINT26.getRXFULLIE : TBits_1; inline;
  86632. begin
  86633. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  86634. end;
  86635. procedure TCAN1_C1FIFOINT26.setRXOVFLIE; inline;
  86636. begin
  86637. pTDefRegMap(@Self)^.&set := $00080000;
  86638. end;
  86639. procedure TCAN1_C1FIFOINT26.clearRXOVFLIE; inline;
  86640. begin
  86641. pTDefRegMap(@Self)^.clr := $00080000;
  86642. end;
  86643. procedure TCAN1_C1FIFOINT26.setRXOVFLIE(thebits : TBits_1); inline;
  86644. begin
  86645. if thebits = 0 then
  86646. pTDefRegMap(@Self)^.clr := $00080000
  86647. else
  86648. pTDefRegMap(@Self)^.&set := $00080000;
  86649. end;
  86650. function TCAN1_C1FIFOINT26.getRXOVFLIE : TBits_1; inline;
  86651. begin
  86652. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  86653. end;
  86654. procedure TCAN1_C1FIFOINT26.setTXEMPTYIE; inline;
  86655. begin
  86656. pTDefRegMap(@Self)^.&set := $01000000;
  86657. end;
  86658. procedure TCAN1_C1FIFOINT26.clearTXEMPTYIE; inline;
  86659. begin
  86660. pTDefRegMap(@Self)^.clr := $01000000;
  86661. end;
  86662. procedure TCAN1_C1FIFOINT26.setTXEMPTYIE(thebits : TBits_1); inline;
  86663. begin
  86664. if thebits = 0 then
  86665. pTDefRegMap(@Self)^.clr := $01000000
  86666. else
  86667. pTDefRegMap(@Self)^.&set := $01000000;
  86668. end;
  86669. function TCAN1_C1FIFOINT26.getTXEMPTYIE : TBits_1; inline;
  86670. begin
  86671. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  86672. end;
  86673. procedure TCAN1_C1FIFOINT26.setTXHALFIE; inline;
  86674. begin
  86675. pTDefRegMap(@Self)^.&set := $02000000;
  86676. end;
  86677. procedure TCAN1_C1FIFOINT26.clearTXHALFIE; inline;
  86678. begin
  86679. pTDefRegMap(@Self)^.clr := $02000000;
  86680. end;
  86681. procedure TCAN1_C1FIFOINT26.setTXHALFIE(thebits : TBits_1); inline;
  86682. begin
  86683. if thebits = 0 then
  86684. pTDefRegMap(@Self)^.clr := $02000000
  86685. else
  86686. pTDefRegMap(@Self)^.&set := $02000000;
  86687. end;
  86688. function TCAN1_C1FIFOINT26.getTXHALFIE : TBits_1; inline;
  86689. begin
  86690. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  86691. end;
  86692. procedure TCAN1_C1FIFOINT26.setTXNFULLIE; inline;
  86693. begin
  86694. pTDefRegMap(@Self)^.&set := $04000000;
  86695. end;
  86696. procedure TCAN1_C1FIFOINT26.clearTXNFULLIE; inline;
  86697. begin
  86698. pTDefRegMap(@Self)^.clr := $04000000;
  86699. end;
  86700. procedure TCAN1_C1FIFOINT26.setTXNFULLIE(thebits : TBits_1); inline;
  86701. begin
  86702. if thebits = 0 then
  86703. pTDefRegMap(@Self)^.clr := $04000000
  86704. else
  86705. pTDefRegMap(@Self)^.&set := $04000000;
  86706. end;
  86707. function TCAN1_C1FIFOINT26.getTXNFULLIE : TBits_1; inline;
  86708. begin
  86709. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  86710. end;
  86711. procedure TCAN1_C1FIFOINT26.setw(thebits : TBits_32); inline;
  86712. begin
  86713. pTDefRegMap(@Self)^.val := thebits;
  86714. end;
  86715. function TCAN1_C1FIFOINT26.getw : TBits_32; inline;
  86716. begin
  86717. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  86718. end;
  86719. procedure TCAN1_C1FIFOCI26.setCFIFOCI(thebits : TBits_5); inline;
  86720. begin
  86721. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  86722. end;
  86723. function TCAN1_C1FIFOCI26.getCFIFOCI : TBits_5; inline;
  86724. begin
  86725. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  86726. end;
  86727. procedure TCAN1_C1FIFOCI26.setw(thebits : TBits_32); inline;
  86728. begin
  86729. pTDefRegMap(@Self)^.val := thebits;
  86730. end;
  86731. function TCAN1_C1FIFOCI26.getw : TBits_32; inline;
  86732. begin
  86733. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  86734. end;
  86735. procedure TCAN1_C1FIFOCON27.setTXPRI(thebits : TBits_2); inline;
  86736. begin
  86737. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  86738. end;
  86739. function TCAN1_C1FIFOCON27.getTXPRI : TBits_2; inline;
  86740. begin
  86741. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  86742. end;
  86743. procedure TCAN1_C1FIFOCON27.setRTREN; inline;
  86744. begin
  86745. pTDefRegMap(@Self)^.&set := $00000004;
  86746. end;
  86747. procedure TCAN1_C1FIFOCON27.clearRTREN; inline;
  86748. begin
  86749. pTDefRegMap(@Self)^.clr := $00000004;
  86750. end;
  86751. procedure TCAN1_C1FIFOCON27.setRTREN(thebits : TBits_1); inline;
  86752. begin
  86753. if thebits = 0 then
  86754. pTDefRegMap(@Self)^.clr := $00000004
  86755. else
  86756. pTDefRegMap(@Self)^.&set := $00000004;
  86757. end;
  86758. function TCAN1_C1FIFOCON27.getRTREN : TBits_1; inline;
  86759. begin
  86760. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  86761. end;
  86762. procedure TCAN1_C1FIFOCON27.setTXREQ; inline;
  86763. begin
  86764. pTDefRegMap(@Self)^.&set := $00000008;
  86765. end;
  86766. procedure TCAN1_C1FIFOCON27.clearTXREQ; inline;
  86767. begin
  86768. pTDefRegMap(@Self)^.clr := $00000008;
  86769. end;
  86770. procedure TCAN1_C1FIFOCON27.setTXREQ(thebits : TBits_1); inline;
  86771. begin
  86772. if thebits = 0 then
  86773. pTDefRegMap(@Self)^.clr := $00000008
  86774. else
  86775. pTDefRegMap(@Self)^.&set := $00000008;
  86776. end;
  86777. function TCAN1_C1FIFOCON27.getTXREQ : TBits_1; inline;
  86778. begin
  86779. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  86780. end;
  86781. procedure TCAN1_C1FIFOCON27.setTXERR; inline;
  86782. begin
  86783. pTDefRegMap(@Self)^.&set := $00000010;
  86784. end;
  86785. procedure TCAN1_C1FIFOCON27.clearTXERR; inline;
  86786. begin
  86787. pTDefRegMap(@Self)^.clr := $00000010;
  86788. end;
  86789. procedure TCAN1_C1FIFOCON27.setTXERR(thebits : TBits_1); inline;
  86790. begin
  86791. if thebits = 0 then
  86792. pTDefRegMap(@Self)^.clr := $00000010
  86793. else
  86794. pTDefRegMap(@Self)^.&set := $00000010;
  86795. end;
  86796. function TCAN1_C1FIFOCON27.getTXERR : TBits_1; inline;
  86797. begin
  86798. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  86799. end;
  86800. procedure TCAN1_C1FIFOCON27.setTXLARB; inline;
  86801. begin
  86802. pTDefRegMap(@Self)^.&set := $00000020;
  86803. end;
  86804. procedure TCAN1_C1FIFOCON27.clearTXLARB; inline;
  86805. begin
  86806. pTDefRegMap(@Self)^.clr := $00000020;
  86807. end;
  86808. procedure TCAN1_C1FIFOCON27.setTXLARB(thebits : TBits_1); inline;
  86809. begin
  86810. if thebits = 0 then
  86811. pTDefRegMap(@Self)^.clr := $00000020
  86812. else
  86813. pTDefRegMap(@Self)^.&set := $00000020;
  86814. end;
  86815. function TCAN1_C1FIFOCON27.getTXLARB : TBits_1; inline;
  86816. begin
  86817. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  86818. end;
  86819. procedure TCAN1_C1FIFOCON27.setTXABAT; inline;
  86820. begin
  86821. pTDefRegMap(@Self)^.&set := $00000040;
  86822. end;
  86823. procedure TCAN1_C1FIFOCON27.clearTXABAT; inline;
  86824. begin
  86825. pTDefRegMap(@Self)^.clr := $00000040;
  86826. end;
  86827. procedure TCAN1_C1FIFOCON27.setTXABAT(thebits : TBits_1); inline;
  86828. begin
  86829. if thebits = 0 then
  86830. pTDefRegMap(@Self)^.clr := $00000040
  86831. else
  86832. pTDefRegMap(@Self)^.&set := $00000040;
  86833. end;
  86834. function TCAN1_C1FIFOCON27.getTXABAT : TBits_1; inline;
  86835. begin
  86836. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  86837. end;
  86838. procedure TCAN1_C1FIFOCON27.setTXEN; inline;
  86839. begin
  86840. pTDefRegMap(@Self)^.&set := $00000080;
  86841. end;
  86842. procedure TCAN1_C1FIFOCON27.clearTXEN; inline;
  86843. begin
  86844. pTDefRegMap(@Self)^.clr := $00000080;
  86845. end;
  86846. procedure TCAN1_C1FIFOCON27.setTXEN(thebits : TBits_1); inline;
  86847. begin
  86848. if thebits = 0 then
  86849. pTDefRegMap(@Self)^.clr := $00000080
  86850. else
  86851. pTDefRegMap(@Self)^.&set := $00000080;
  86852. end;
  86853. function TCAN1_C1FIFOCON27.getTXEN : TBits_1; inline;
  86854. begin
  86855. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  86856. end;
  86857. procedure TCAN1_C1FIFOCON27.setDONLY; inline;
  86858. begin
  86859. pTDefRegMap(@Self)^.&set := $00001000;
  86860. end;
  86861. procedure TCAN1_C1FIFOCON27.clearDONLY; inline;
  86862. begin
  86863. pTDefRegMap(@Self)^.clr := $00001000;
  86864. end;
  86865. procedure TCAN1_C1FIFOCON27.setDONLY(thebits : TBits_1); inline;
  86866. begin
  86867. if thebits = 0 then
  86868. pTDefRegMap(@Self)^.clr := $00001000
  86869. else
  86870. pTDefRegMap(@Self)^.&set := $00001000;
  86871. end;
  86872. function TCAN1_C1FIFOCON27.getDONLY : TBits_1; inline;
  86873. begin
  86874. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  86875. end;
  86876. procedure TCAN1_C1FIFOCON27.setUINC; inline;
  86877. begin
  86878. pTDefRegMap(@Self)^.&set := $00002000;
  86879. end;
  86880. procedure TCAN1_C1FIFOCON27.clearUINC; inline;
  86881. begin
  86882. pTDefRegMap(@Self)^.clr := $00002000;
  86883. end;
  86884. procedure TCAN1_C1FIFOCON27.setUINC(thebits : TBits_1); inline;
  86885. begin
  86886. if thebits = 0 then
  86887. pTDefRegMap(@Self)^.clr := $00002000
  86888. else
  86889. pTDefRegMap(@Self)^.&set := $00002000;
  86890. end;
  86891. function TCAN1_C1FIFOCON27.getUINC : TBits_1; inline;
  86892. begin
  86893. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  86894. end;
  86895. procedure TCAN1_C1FIFOCON27.setFRESET; inline;
  86896. begin
  86897. pTDefRegMap(@Self)^.&set := $00004000;
  86898. end;
  86899. procedure TCAN1_C1FIFOCON27.clearFRESET; inline;
  86900. begin
  86901. pTDefRegMap(@Self)^.clr := $00004000;
  86902. end;
  86903. procedure TCAN1_C1FIFOCON27.setFRESET(thebits : TBits_1); inline;
  86904. begin
  86905. if thebits = 0 then
  86906. pTDefRegMap(@Self)^.clr := $00004000
  86907. else
  86908. pTDefRegMap(@Self)^.&set := $00004000;
  86909. end;
  86910. function TCAN1_C1FIFOCON27.getFRESET : TBits_1; inline;
  86911. begin
  86912. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  86913. end;
  86914. procedure TCAN1_C1FIFOCON27.setFSIZE(thebits : TBits_5); inline;
  86915. begin
  86916. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  86917. end;
  86918. function TCAN1_C1FIFOCON27.getFSIZE : TBits_5; inline;
  86919. begin
  86920. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  86921. end;
  86922. procedure TCAN1_C1FIFOCON27.setw(thebits : TBits_32); inline;
  86923. begin
  86924. pTDefRegMap(@Self)^.val := thebits;
  86925. end;
  86926. function TCAN1_C1FIFOCON27.getw : TBits_32; inline;
  86927. begin
  86928. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  86929. end;
  86930. procedure TCAN1_C1FIFOINT27.setRXNEMPTYIF; inline;
  86931. begin
  86932. pTDefRegMap(@Self)^.&set := $00000001;
  86933. end;
  86934. procedure TCAN1_C1FIFOINT27.clearRXNEMPTYIF; inline;
  86935. begin
  86936. pTDefRegMap(@Self)^.clr := $00000001;
  86937. end;
  86938. procedure TCAN1_C1FIFOINT27.setRXNEMPTYIF(thebits : TBits_1); inline;
  86939. begin
  86940. if thebits = 0 then
  86941. pTDefRegMap(@Self)^.clr := $00000001
  86942. else
  86943. pTDefRegMap(@Self)^.&set := $00000001;
  86944. end;
  86945. function TCAN1_C1FIFOINT27.getRXNEMPTYIF : TBits_1; inline;
  86946. begin
  86947. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  86948. end;
  86949. procedure TCAN1_C1FIFOINT27.setRXHALFIF; inline;
  86950. begin
  86951. pTDefRegMap(@Self)^.&set := $00000002;
  86952. end;
  86953. procedure TCAN1_C1FIFOINT27.clearRXHALFIF; inline;
  86954. begin
  86955. pTDefRegMap(@Self)^.clr := $00000002;
  86956. end;
  86957. procedure TCAN1_C1FIFOINT27.setRXHALFIF(thebits : TBits_1); inline;
  86958. begin
  86959. if thebits = 0 then
  86960. pTDefRegMap(@Self)^.clr := $00000002
  86961. else
  86962. pTDefRegMap(@Self)^.&set := $00000002;
  86963. end;
  86964. function TCAN1_C1FIFOINT27.getRXHALFIF : TBits_1; inline;
  86965. begin
  86966. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  86967. end;
  86968. procedure TCAN1_C1FIFOINT27.setRXFULLIF; inline;
  86969. begin
  86970. pTDefRegMap(@Self)^.&set := $00000004;
  86971. end;
  86972. procedure TCAN1_C1FIFOINT27.clearRXFULLIF; inline;
  86973. begin
  86974. pTDefRegMap(@Self)^.clr := $00000004;
  86975. end;
  86976. procedure TCAN1_C1FIFOINT27.setRXFULLIF(thebits : TBits_1); inline;
  86977. begin
  86978. if thebits = 0 then
  86979. pTDefRegMap(@Self)^.clr := $00000004
  86980. else
  86981. pTDefRegMap(@Self)^.&set := $00000004;
  86982. end;
  86983. function TCAN1_C1FIFOINT27.getRXFULLIF : TBits_1; inline;
  86984. begin
  86985. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  86986. end;
  86987. procedure TCAN1_C1FIFOINT27.setRXOVFLIF; inline;
  86988. begin
  86989. pTDefRegMap(@Self)^.&set := $00000008;
  86990. end;
  86991. procedure TCAN1_C1FIFOINT27.clearRXOVFLIF; inline;
  86992. begin
  86993. pTDefRegMap(@Self)^.clr := $00000008;
  86994. end;
  86995. procedure TCAN1_C1FIFOINT27.setRXOVFLIF(thebits : TBits_1); inline;
  86996. begin
  86997. if thebits = 0 then
  86998. pTDefRegMap(@Self)^.clr := $00000008
  86999. else
  87000. pTDefRegMap(@Self)^.&set := $00000008;
  87001. end;
  87002. function TCAN1_C1FIFOINT27.getRXOVFLIF : TBits_1; inline;
  87003. begin
  87004. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  87005. end;
  87006. procedure TCAN1_C1FIFOINT27.setTXEMPTYIF; inline;
  87007. begin
  87008. pTDefRegMap(@Self)^.&set := $00000100;
  87009. end;
  87010. procedure TCAN1_C1FIFOINT27.clearTXEMPTYIF; inline;
  87011. begin
  87012. pTDefRegMap(@Self)^.clr := $00000100;
  87013. end;
  87014. procedure TCAN1_C1FIFOINT27.setTXEMPTYIF(thebits : TBits_1); inline;
  87015. begin
  87016. if thebits = 0 then
  87017. pTDefRegMap(@Self)^.clr := $00000100
  87018. else
  87019. pTDefRegMap(@Self)^.&set := $00000100;
  87020. end;
  87021. function TCAN1_C1FIFOINT27.getTXEMPTYIF : TBits_1; inline;
  87022. begin
  87023. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  87024. end;
  87025. procedure TCAN1_C1FIFOINT27.setTXHALFIF; inline;
  87026. begin
  87027. pTDefRegMap(@Self)^.&set := $00000200;
  87028. end;
  87029. procedure TCAN1_C1FIFOINT27.clearTXHALFIF; inline;
  87030. begin
  87031. pTDefRegMap(@Self)^.clr := $00000200;
  87032. end;
  87033. procedure TCAN1_C1FIFOINT27.setTXHALFIF(thebits : TBits_1); inline;
  87034. begin
  87035. if thebits = 0 then
  87036. pTDefRegMap(@Self)^.clr := $00000200
  87037. else
  87038. pTDefRegMap(@Self)^.&set := $00000200;
  87039. end;
  87040. function TCAN1_C1FIFOINT27.getTXHALFIF : TBits_1; inline;
  87041. begin
  87042. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  87043. end;
  87044. procedure TCAN1_C1FIFOINT27.setTXNFULLIF; inline;
  87045. begin
  87046. pTDefRegMap(@Self)^.&set := $00000400;
  87047. end;
  87048. procedure TCAN1_C1FIFOINT27.clearTXNFULLIF; inline;
  87049. begin
  87050. pTDefRegMap(@Self)^.clr := $00000400;
  87051. end;
  87052. procedure TCAN1_C1FIFOINT27.setTXNFULLIF(thebits : TBits_1); inline;
  87053. begin
  87054. if thebits = 0 then
  87055. pTDefRegMap(@Self)^.clr := $00000400
  87056. else
  87057. pTDefRegMap(@Self)^.&set := $00000400;
  87058. end;
  87059. function TCAN1_C1FIFOINT27.getTXNFULLIF : TBits_1; inline;
  87060. begin
  87061. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  87062. end;
  87063. procedure TCAN1_C1FIFOINT27.setRXNEMPTYIE; inline;
  87064. begin
  87065. pTDefRegMap(@Self)^.&set := $00010000;
  87066. end;
  87067. procedure TCAN1_C1FIFOINT27.clearRXNEMPTYIE; inline;
  87068. begin
  87069. pTDefRegMap(@Self)^.clr := $00010000;
  87070. end;
  87071. procedure TCAN1_C1FIFOINT27.setRXNEMPTYIE(thebits : TBits_1); inline;
  87072. begin
  87073. if thebits = 0 then
  87074. pTDefRegMap(@Self)^.clr := $00010000
  87075. else
  87076. pTDefRegMap(@Self)^.&set := $00010000;
  87077. end;
  87078. function TCAN1_C1FIFOINT27.getRXNEMPTYIE : TBits_1; inline;
  87079. begin
  87080. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  87081. end;
  87082. procedure TCAN1_C1FIFOINT27.setRXHALFIE; inline;
  87083. begin
  87084. pTDefRegMap(@Self)^.&set := $00020000;
  87085. end;
  87086. procedure TCAN1_C1FIFOINT27.clearRXHALFIE; inline;
  87087. begin
  87088. pTDefRegMap(@Self)^.clr := $00020000;
  87089. end;
  87090. procedure TCAN1_C1FIFOINT27.setRXHALFIE(thebits : TBits_1); inline;
  87091. begin
  87092. if thebits = 0 then
  87093. pTDefRegMap(@Self)^.clr := $00020000
  87094. else
  87095. pTDefRegMap(@Self)^.&set := $00020000;
  87096. end;
  87097. function TCAN1_C1FIFOINT27.getRXHALFIE : TBits_1; inline;
  87098. begin
  87099. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  87100. end;
  87101. procedure TCAN1_C1FIFOINT27.setRXFULLIE; inline;
  87102. begin
  87103. pTDefRegMap(@Self)^.&set := $00040000;
  87104. end;
  87105. procedure TCAN1_C1FIFOINT27.clearRXFULLIE; inline;
  87106. begin
  87107. pTDefRegMap(@Self)^.clr := $00040000;
  87108. end;
  87109. procedure TCAN1_C1FIFOINT27.setRXFULLIE(thebits : TBits_1); inline;
  87110. begin
  87111. if thebits = 0 then
  87112. pTDefRegMap(@Self)^.clr := $00040000
  87113. else
  87114. pTDefRegMap(@Self)^.&set := $00040000;
  87115. end;
  87116. function TCAN1_C1FIFOINT27.getRXFULLIE : TBits_1; inline;
  87117. begin
  87118. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  87119. end;
  87120. procedure TCAN1_C1FIFOINT27.setRXOVFLIE; inline;
  87121. begin
  87122. pTDefRegMap(@Self)^.&set := $00080000;
  87123. end;
  87124. procedure TCAN1_C1FIFOINT27.clearRXOVFLIE; inline;
  87125. begin
  87126. pTDefRegMap(@Self)^.clr := $00080000;
  87127. end;
  87128. procedure TCAN1_C1FIFOINT27.setRXOVFLIE(thebits : TBits_1); inline;
  87129. begin
  87130. if thebits = 0 then
  87131. pTDefRegMap(@Self)^.clr := $00080000
  87132. else
  87133. pTDefRegMap(@Self)^.&set := $00080000;
  87134. end;
  87135. function TCAN1_C1FIFOINT27.getRXOVFLIE : TBits_1; inline;
  87136. begin
  87137. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  87138. end;
  87139. procedure TCAN1_C1FIFOINT27.setTXEMPTYIE; inline;
  87140. begin
  87141. pTDefRegMap(@Self)^.&set := $01000000;
  87142. end;
  87143. procedure TCAN1_C1FIFOINT27.clearTXEMPTYIE; inline;
  87144. begin
  87145. pTDefRegMap(@Self)^.clr := $01000000;
  87146. end;
  87147. procedure TCAN1_C1FIFOINT27.setTXEMPTYIE(thebits : TBits_1); inline;
  87148. begin
  87149. if thebits = 0 then
  87150. pTDefRegMap(@Self)^.clr := $01000000
  87151. else
  87152. pTDefRegMap(@Self)^.&set := $01000000;
  87153. end;
  87154. function TCAN1_C1FIFOINT27.getTXEMPTYIE : TBits_1; inline;
  87155. begin
  87156. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  87157. end;
  87158. procedure TCAN1_C1FIFOINT27.setTXHALFIE; inline;
  87159. begin
  87160. pTDefRegMap(@Self)^.&set := $02000000;
  87161. end;
  87162. procedure TCAN1_C1FIFOINT27.clearTXHALFIE; inline;
  87163. begin
  87164. pTDefRegMap(@Self)^.clr := $02000000;
  87165. end;
  87166. procedure TCAN1_C1FIFOINT27.setTXHALFIE(thebits : TBits_1); inline;
  87167. begin
  87168. if thebits = 0 then
  87169. pTDefRegMap(@Self)^.clr := $02000000
  87170. else
  87171. pTDefRegMap(@Self)^.&set := $02000000;
  87172. end;
  87173. function TCAN1_C1FIFOINT27.getTXHALFIE : TBits_1; inline;
  87174. begin
  87175. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  87176. end;
  87177. procedure TCAN1_C1FIFOINT27.setTXNFULLIE; inline;
  87178. begin
  87179. pTDefRegMap(@Self)^.&set := $04000000;
  87180. end;
  87181. procedure TCAN1_C1FIFOINT27.clearTXNFULLIE; inline;
  87182. begin
  87183. pTDefRegMap(@Self)^.clr := $04000000;
  87184. end;
  87185. procedure TCAN1_C1FIFOINT27.setTXNFULLIE(thebits : TBits_1); inline;
  87186. begin
  87187. if thebits = 0 then
  87188. pTDefRegMap(@Self)^.clr := $04000000
  87189. else
  87190. pTDefRegMap(@Self)^.&set := $04000000;
  87191. end;
  87192. function TCAN1_C1FIFOINT27.getTXNFULLIE : TBits_1; inline;
  87193. begin
  87194. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  87195. end;
  87196. procedure TCAN1_C1FIFOINT27.setw(thebits : TBits_32); inline;
  87197. begin
  87198. pTDefRegMap(@Self)^.val := thebits;
  87199. end;
  87200. function TCAN1_C1FIFOINT27.getw : TBits_32; inline;
  87201. begin
  87202. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  87203. end;
  87204. procedure TCAN1_C1FIFOCI27.setCFIFOCI(thebits : TBits_5); inline;
  87205. begin
  87206. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  87207. end;
  87208. function TCAN1_C1FIFOCI27.getCFIFOCI : TBits_5; inline;
  87209. begin
  87210. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  87211. end;
  87212. procedure TCAN1_C1FIFOCI27.setw(thebits : TBits_32); inline;
  87213. begin
  87214. pTDefRegMap(@Self)^.val := thebits;
  87215. end;
  87216. function TCAN1_C1FIFOCI27.getw : TBits_32; inline;
  87217. begin
  87218. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  87219. end;
  87220. procedure TCAN1_C1FIFOCON28.setTXPRI(thebits : TBits_2); inline;
  87221. begin
  87222. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  87223. end;
  87224. function TCAN1_C1FIFOCON28.getTXPRI : TBits_2; inline;
  87225. begin
  87226. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  87227. end;
  87228. procedure TCAN1_C1FIFOCON28.setRTREN; inline;
  87229. begin
  87230. pTDefRegMap(@Self)^.&set := $00000004;
  87231. end;
  87232. procedure TCAN1_C1FIFOCON28.clearRTREN; inline;
  87233. begin
  87234. pTDefRegMap(@Self)^.clr := $00000004;
  87235. end;
  87236. procedure TCAN1_C1FIFOCON28.setRTREN(thebits : TBits_1); inline;
  87237. begin
  87238. if thebits = 0 then
  87239. pTDefRegMap(@Self)^.clr := $00000004
  87240. else
  87241. pTDefRegMap(@Self)^.&set := $00000004;
  87242. end;
  87243. function TCAN1_C1FIFOCON28.getRTREN : TBits_1; inline;
  87244. begin
  87245. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  87246. end;
  87247. procedure TCAN1_C1FIFOCON28.setTXREQ; inline;
  87248. begin
  87249. pTDefRegMap(@Self)^.&set := $00000008;
  87250. end;
  87251. procedure TCAN1_C1FIFOCON28.clearTXREQ; inline;
  87252. begin
  87253. pTDefRegMap(@Self)^.clr := $00000008;
  87254. end;
  87255. procedure TCAN1_C1FIFOCON28.setTXREQ(thebits : TBits_1); inline;
  87256. begin
  87257. if thebits = 0 then
  87258. pTDefRegMap(@Self)^.clr := $00000008
  87259. else
  87260. pTDefRegMap(@Self)^.&set := $00000008;
  87261. end;
  87262. function TCAN1_C1FIFOCON28.getTXREQ : TBits_1; inline;
  87263. begin
  87264. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  87265. end;
  87266. procedure TCAN1_C1FIFOCON28.setTXERR; inline;
  87267. begin
  87268. pTDefRegMap(@Self)^.&set := $00000010;
  87269. end;
  87270. procedure TCAN1_C1FIFOCON28.clearTXERR; inline;
  87271. begin
  87272. pTDefRegMap(@Self)^.clr := $00000010;
  87273. end;
  87274. procedure TCAN1_C1FIFOCON28.setTXERR(thebits : TBits_1); inline;
  87275. begin
  87276. if thebits = 0 then
  87277. pTDefRegMap(@Self)^.clr := $00000010
  87278. else
  87279. pTDefRegMap(@Self)^.&set := $00000010;
  87280. end;
  87281. function TCAN1_C1FIFOCON28.getTXERR : TBits_1; inline;
  87282. begin
  87283. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  87284. end;
  87285. procedure TCAN1_C1FIFOCON28.setTXLARB; inline;
  87286. begin
  87287. pTDefRegMap(@Self)^.&set := $00000020;
  87288. end;
  87289. procedure TCAN1_C1FIFOCON28.clearTXLARB; inline;
  87290. begin
  87291. pTDefRegMap(@Self)^.clr := $00000020;
  87292. end;
  87293. procedure TCAN1_C1FIFOCON28.setTXLARB(thebits : TBits_1); inline;
  87294. begin
  87295. if thebits = 0 then
  87296. pTDefRegMap(@Self)^.clr := $00000020
  87297. else
  87298. pTDefRegMap(@Self)^.&set := $00000020;
  87299. end;
  87300. function TCAN1_C1FIFOCON28.getTXLARB : TBits_1; inline;
  87301. begin
  87302. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  87303. end;
  87304. procedure TCAN1_C1FIFOCON28.setTXABAT; inline;
  87305. begin
  87306. pTDefRegMap(@Self)^.&set := $00000040;
  87307. end;
  87308. procedure TCAN1_C1FIFOCON28.clearTXABAT; inline;
  87309. begin
  87310. pTDefRegMap(@Self)^.clr := $00000040;
  87311. end;
  87312. procedure TCAN1_C1FIFOCON28.setTXABAT(thebits : TBits_1); inline;
  87313. begin
  87314. if thebits = 0 then
  87315. pTDefRegMap(@Self)^.clr := $00000040
  87316. else
  87317. pTDefRegMap(@Self)^.&set := $00000040;
  87318. end;
  87319. function TCAN1_C1FIFOCON28.getTXABAT : TBits_1; inline;
  87320. begin
  87321. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  87322. end;
  87323. procedure TCAN1_C1FIFOCON28.setTXEN; inline;
  87324. begin
  87325. pTDefRegMap(@Self)^.&set := $00000080;
  87326. end;
  87327. procedure TCAN1_C1FIFOCON28.clearTXEN; inline;
  87328. begin
  87329. pTDefRegMap(@Self)^.clr := $00000080;
  87330. end;
  87331. procedure TCAN1_C1FIFOCON28.setTXEN(thebits : TBits_1); inline;
  87332. begin
  87333. if thebits = 0 then
  87334. pTDefRegMap(@Self)^.clr := $00000080
  87335. else
  87336. pTDefRegMap(@Self)^.&set := $00000080;
  87337. end;
  87338. function TCAN1_C1FIFOCON28.getTXEN : TBits_1; inline;
  87339. begin
  87340. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  87341. end;
  87342. procedure TCAN1_C1FIFOCON28.setDONLY; inline;
  87343. begin
  87344. pTDefRegMap(@Self)^.&set := $00001000;
  87345. end;
  87346. procedure TCAN1_C1FIFOCON28.clearDONLY; inline;
  87347. begin
  87348. pTDefRegMap(@Self)^.clr := $00001000;
  87349. end;
  87350. procedure TCAN1_C1FIFOCON28.setDONLY(thebits : TBits_1); inline;
  87351. begin
  87352. if thebits = 0 then
  87353. pTDefRegMap(@Self)^.clr := $00001000
  87354. else
  87355. pTDefRegMap(@Self)^.&set := $00001000;
  87356. end;
  87357. function TCAN1_C1FIFOCON28.getDONLY : TBits_1; inline;
  87358. begin
  87359. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  87360. end;
  87361. procedure TCAN1_C1FIFOCON28.setUINC; inline;
  87362. begin
  87363. pTDefRegMap(@Self)^.&set := $00002000;
  87364. end;
  87365. procedure TCAN1_C1FIFOCON28.clearUINC; inline;
  87366. begin
  87367. pTDefRegMap(@Self)^.clr := $00002000;
  87368. end;
  87369. procedure TCAN1_C1FIFOCON28.setUINC(thebits : TBits_1); inline;
  87370. begin
  87371. if thebits = 0 then
  87372. pTDefRegMap(@Self)^.clr := $00002000
  87373. else
  87374. pTDefRegMap(@Self)^.&set := $00002000;
  87375. end;
  87376. function TCAN1_C1FIFOCON28.getUINC : TBits_1; inline;
  87377. begin
  87378. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  87379. end;
  87380. procedure TCAN1_C1FIFOCON28.setFRESET; inline;
  87381. begin
  87382. pTDefRegMap(@Self)^.&set := $00004000;
  87383. end;
  87384. procedure TCAN1_C1FIFOCON28.clearFRESET; inline;
  87385. begin
  87386. pTDefRegMap(@Self)^.clr := $00004000;
  87387. end;
  87388. procedure TCAN1_C1FIFOCON28.setFRESET(thebits : TBits_1); inline;
  87389. begin
  87390. if thebits = 0 then
  87391. pTDefRegMap(@Self)^.clr := $00004000
  87392. else
  87393. pTDefRegMap(@Self)^.&set := $00004000;
  87394. end;
  87395. function TCAN1_C1FIFOCON28.getFRESET : TBits_1; inline;
  87396. begin
  87397. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  87398. end;
  87399. procedure TCAN1_C1FIFOCON28.setFSIZE(thebits : TBits_5); inline;
  87400. begin
  87401. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  87402. end;
  87403. function TCAN1_C1FIFOCON28.getFSIZE : TBits_5; inline;
  87404. begin
  87405. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  87406. end;
  87407. procedure TCAN1_C1FIFOCON28.setw(thebits : TBits_32); inline;
  87408. begin
  87409. pTDefRegMap(@Self)^.val := thebits;
  87410. end;
  87411. function TCAN1_C1FIFOCON28.getw : TBits_32; inline;
  87412. begin
  87413. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  87414. end;
  87415. procedure TCAN1_C1FIFOINT28.setRXNEMPTYIF; inline;
  87416. begin
  87417. pTDefRegMap(@Self)^.&set := $00000001;
  87418. end;
  87419. procedure TCAN1_C1FIFOINT28.clearRXNEMPTYIF; inline;
  87420. begin
  87421. pTDefRegMap(@Self)^.clr := $00000001;
  87422. end;
  87423. procedure TCAN1_C1FIFOINT28.setRXNEMPTYIF(thebits : TBits_1); inline;
  87424. begin
  87425. if thebits = 0 then
  87426. pTDefRegMap(@Self)^.clr := $00000001
  87427. else
  87428. pTDefRegMap(@Self)^.&set := $00000001;
  87429. end;
  87430. function TCAN1_C1FIFOINT28.getRXNEMPTYIF : TBits_1; inline;
  87431. begin
  87432. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  87433. end;
  87434. procedure TCAN1_C1FIFOINT28.setRXHALFIF; inline;
  87435. begin
  87436. pTDefRegMap(@Self)^.&set := $00000002;
  87437. end;
  87438. procedure TCAN1_C1FIFOINT28.clearRXHALFIF; inline;
  87439. begin
  87440. pTDefRegMap(@Self)^.clr := $00000002;
  87441. end;
  87442. procedure TCAN1_C1FIFOINT28.setRXHALFIF(thebits : TBits_1); inline;
  87443. begin
  87444. if thebits = 0 then
  87445. pTDefRegMap(@Self)^.clr := $00000002
  87446. else
  87447. pTDefRegMap(@Self)^.&set := $00000002;
  87448. end;
  87449. function TCAN1_C1FIFOINT28.getRXHALFIF : TBits_1; inline;
  87450. begin
  87451. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  87452. end;
  87453. procedure TCAN1_C1FIFOINT28.setRXFULLIF; inline;
  87454. begin
  87455. pTDefRegMap(@Self)^.&set := $00000004;
  87456. end;
  87457. procedure TCAN1_C1FIFOINT28.clearRXFULLIF; inline;
  87458. begin
  87459. pTDefRegMap(@Self)^.clr := $00000004;
  87460. end;
  87461. procedure TCAN1_C1FIFOINT28.setRXFULLIF(thebits : TBits_1); inline;
  87462. begin
  87463. if thebits = 0 then
  87464. pTDefRegMap(@Self)^.clr := $00000004
  87465. else
  87466. pTDefRegMap(@Self)^.&set := $00000004;
  87467. end;
  87468. function TCAN1_C1FIFOINT28.getRXFULLIF : TBits_1; inline;
  87469. begin
  87470. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  87471. end;
  87472. procedure TCAN1_C1FIFOINT28.setRXOVFLIF; inline;
  87473. begin
  87474. pTDefRegMap(@Self)^.&set := $00000008;
  87475. end;
  87476. procedure TCAN1_C1FIFOINT28.clearRXOVFLIF; inline;
  87477. begin
  87478. pTDefRegMap(@Self)^.clr := $00000008;
  87479. end;
  87480. procedure TCAN1_C1FIFOINT28.setRXOVFLIF(thebits : TBits_1); inline;
  87481. begin
  87482. if thebits = 0 then
  87483. pTDefRegMap(@Self)^.clr := $00000008
  87484. else
  87485. pTDefRegMap(@Self)^.&set := $00000008;
  87486. end;
  87487. function TCAN1_C1FIFOINT28.getRXOVFLIF : TBits_1; inline;
  87488. begin
  87489. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  87490. end;
  87491. procedure TCAN1_C1FIFOINT28.setTXEMPTYIF; inline;
  87492. begin
  87493. pTDefRegMap(@Self)^.&set := $00000100;
  87494. end;
  87495. procedure TCAN1_C1FIFOINT28.clearTXEMPTYIF; inline;
  87496. begin
  87497. pTDefRegMap(@Self)^.clr := $00000100;
  87498. end;
  87499. procedure TCAN1_C1FIFOINT28.setTXEMPTYIF(thebits : TBits_1); inline;
  87500. begin
  87501. if thebits = 0 then
  87502. pTDefRegMap(@Self)^.clr := $00000100
  87503. else
  87504. pTDefRegMap(@Self)^.&set := $00000100;
  87505. end;
  87506. function TCAN1_C1FIFOINT28.getTXEMPTYIF : TBits_1; inline;
  87507. begin
  87508. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  87509. end;
  87510. procedure TCAN1_C1FIFOINT28.setTXHALFIF; inline;
  87511. begin
  87512. pTDefRegMap(@Self)^.&set := $00000200;
  87513. end;
  87514. procedure TCAN1_C1FIFOINT28.clearTXHALFIF; inline;
  87515. begin
  87516. pTDefRegMap(@Self)^.clr := $00000200;
  87517. end;
  87518. procedure TCAN1_C1FIFOINT28.setTXHALFIF(thebits : TBits_1); inline;
  87519. begin
  87520. if thebits = 0 then
  87521. pTDefRegMap(@Self)^.clr := $00000200
  87522. else
  87523. pTDefRegMap(@Self)^.&set := $00000200;
  87524. end;
  87525. function TCAN1_C1FIFOINT28.getTXHALFIF : TBits_1; inline;
  87526. begin
  87527. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  87528. end;
  87529. procedure TCAN1_C1FIFOINT28.setTXNFULLIF; inline;
  87530. begin
  87531. pTDefRegMap(@Self)^.&set := $00000400;
  87532. end;
  87533. procedure TCAN1_C1FIFOINT28.clearTXNFULLIF; inline;
  87534. begin
  87535. pTDefRegMap(@Self)^.clr := $00000400;
  87536. end;
  87537. procedure TCAN1_C1FIFOINT28.setTXNFULLIF(thebits : TBits_1); inline;
  87538. begin
  87539. if thebits = 0 then
  87540. pTDefRegMap(@Self)^.clr := $00000400
  87541. else
  87542. pTDefRegMap(@Self)^.&set := $00000400;
  87543. end;
  87544. function TCAN1_C1FIFOINT28.getTXNFULLIF : TBits_1; inline;
  87545. begin
  87546. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  87547. end;
  87548. procedure TCAN1_C1FIFOINT28.setRXNEMPTYIE; inline;
  87549. begin
  87550. pTDefRegMap(@Self)^.&set := $00010000;
  87551. end;
  87552. procedure TCAN1_C1FIFOINT28.clearRXNEMPTYIE; inline;
  87553. begin
  87554. pTDefRegMap(@Self)^.clr := $00010000;
  87555. end;
  87556. procedure TCAN1_C1FIFOINT28.setRXNEMPTYIE(thebits : TBits_1); inline;
  87557. begin
  87558. if thebits = 0 then
  87559. pTDefRegMap(@Self)^.clr := $00010000
  87560. else
  87561. pTDefRegMap(@Self)^.&set := $00010000;
  87562. end;
  87563. function TCAN1_C1FIFOINT28.getRXNEMPTYIE : TBits_1; inline;
  87564. begin
  87565. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  87566. end;
  87567. procedure TCAN1_C1FIFOINT28.setRXHALFIE; inline;
  87568. begin
  87569. pTDefRegMap(@Self)^.&set := $00020000;
  87570. end;
  87571. procedure TCAN1_C1FIFOINT28.clearRXHALFIE; inline;
  87572. begin
  87573. pTDefRegMap(@Self)^.clr := $00020000;
  87574. end;
  87575. procedure TCAN1_C1FIFOINT28.setRXHALFIE(thebits : TBits_1); inline;
  87576. begin
  87577. if thebits = 0 then
  87578. pTDefRegMap(@Self)^.clr := $00020000
  87579. else
  87580. pTDefRegMap(@Self)^.&set := $00020000;
  87581. end;
  87582. function TCAN1_C1FIFOINT28.getRXHALFIE : TBits_1; inline;
  87583. begin
  87584. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  87585. end;
  87586. procedure TCAN1_C1FIFOINT28.setRXFULLIE; inline;
  87587. begin
  87588. pTDefRegMap(@Self)^.&set := $00040000;
  87589. end;
  87590. procedure TCAN1_C1FIFOINT28.clearRXFULLIE; inline;
  87591. begin
  87592. pTDefRegMap(@Self)^.clr := $00040000;
  87593. end;
  87594. procedure TCAN1_C1FIFOINT28.setRXFULLIE(thebits : TBits_1); inline;
  87595. begin
  87596. if thebits = 0 then
  87597. pTDefRegMap(@Self)^.clr := $00040000
  87598. else
  87599. pTDefRegMap(@Self)^.&set := $00040000;
  87600. end;
  87601. function TCAN1_C1FIFOINT28.getRXFULLIE : TBits_1; inline;
  87602. begin
  87603. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  87604. end;
  87605. procedure TCAN1_C1FIFOINT28.setRXOVFLIE; inline;
  87606. begin
  87607. pTDefRegMap(@Self)^.&set := $00080000;
  87608. end;
  87609. procedure TCAN1_C1FIFOINT28.clearRXOVFLIE; inline;
  87610. begin
  87611. pTDefRegMap(@Self)^.clr := $00080000;
  87612. end;
  87613. procedure TCAN1_C1FIFOINT28.setRXOVFLIE(thebits : TBits_1); inline;
  87614. begin
  87615. if thebits = 0 then
  87616. pTDefRegMap(@Self)^.clr := $00080000
  87617. else
  87618. pTDefRegMap(@Self)^.&set := $00080000;
  87619. end;
  87620. function TCAN1_C1FIFOINT28.getRXOVFLIE : TBits_1; inline;
  87621. begin
  87622. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  87623. end;
  87624. procedure TCAN1_C1FIFOINT28.setTXEMPTYIE; inline;
  87625. begin
  87626. pTDefRegMap(@Self)^.&set := $01000000;
  87627. end;
  87628. procedure TCAN1_C1FIFOINT28.clearTXEMPTYIE; inline;
  87629. begin
  87630. pTDefRegMap(@Self)^.clr := $01000000;
  87631. end;
  87632. procedure TCAN1_C1FIFOINT28.setTXEMPTYIE(thebits : TBits_1); inline;
  87633. begin
  87634. if thebits = 0 then
  87635. pTDefRegMap(@Self)^.clr := $01000000
  87636. else
  87637. pTDefRegMap(@Self)^.&set := $01000000;
  87638. end;
  87639. function TCAN1_C1FIFOINT28.getTXEMPTYIE : TBits_1; inline;
  87640. begin
  87641. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  87642. end;
  87643. procedure TCAN1_C1FIFOINT28.setTXHALFIE; inline;
  87644. begin
  87645. pTDefRegMap(@Self)^.&set := $02000000;
  87646. end;
  87647. procedure TCAN1_C1FIFOINT28.clearTXHALFIE; inline;
  87648. begin
  87649. pTDefRegMap(@Self)^.clr := $02000000;
  87650. end;
  87651. procedure TCAN1_C1FIFOINT28.setTXHALFIE(thebits : TBits_1); inline;
  87652. begin
  87653. if thebits = 0 then
  87654. pTDefRegMap(@Self)^.clr := $02000000
  87655. else
  87656. pTDefRegMap(@Self)^.&set := $02000000;
  87657. end;
  87658. function TCAN1_C1FIFOINT28.getTXHALFIE : TBits_1; inline;
  87659. begin
  87660. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  87661. end;
  87662. procedure TCAN1_C1FIFOINT28.setTXNFULLIE; inline;
  87663. begin
  87664. pTDefRegMap(@Self)^.&set := $04000000;
  87665. end;
  87666. procedure TCAN1_C1FIFOINT28.clearTXNFULLIE; inline;
  87667. begin
  87668. pTDefRegMap(@Self)^.clr := $04000000;
  87669. end;
  87670. procedure TCAN1_C1FIFOINT28.setTXNFULLIE(thebits : TBits_1); inline;
  87671. begin
  87672. if thebits = 0 then
  87673. pTDefRegMap(@Self)^.clr := $04000000
  87674. else
  87675. pTDefRegMap(@Self)^.&set := $04000000;
  87676. end;
  87677. function TCAN1_C1FIFOINT28.getTXNFULLIE : TBits_1; inline;
  87678. begin
  87679. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  87680. end;
  87681. procedure TCAN1_C1FIFOINT28.setw(thebits : TBits_32); inline;
  87682. begin
  87683. pTDefRegMap(@Self)^.val := thebits;
  87684. end;
  87685. function TCAN1_C1FIFOINT28.getw : TBits_32; inline;
  87686. begin
  87687. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  87688. end;
  87689. procedure TCAN1_C1FIFOCI28.setCFIFOCI(thebits : TBits_5); inline;
  87690. begin
  87691. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  87692. end;
  87693. function TCAN1_C1FIFOCI28.getCFIFOCI : TBits_5; inline;
  87694. begin
  87695. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  87696. end;
  87697. procedure TCAN1_C1FIFOCI28.setw(thebits : TBits_32); inline;
  87698. begin
  87699. pTDefRegMap(@Self)^.val := thebits;
  87700. end;
  87701. function TCAN1_C1FIFOCI28.getw : TBits_32; inline;
  87702. begin
  87703. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  87704. end;
  87705. procedure TCAN1_C1FIFOCON29.setTXPRI(thebits : TBits_2); inline;
  87706. begin
  87707. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  87708. end;
  87709. function TCAN1_C1FIFOCON29.getTXPRI : TBits_2; inline;
  87710. begin
  87711. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  87712. end;
  87713. procedure TCAN1_C1FIFOCON29.setRTREN; inline;
  87714. begin
  87715. pTDefRegMap(@Self)^.&set := $00000004;
  87716. end;
  87717. procedure TCAN1_C1FIFOCON29.clearRTREN; inline;
  87718. begin
  87719. pTDefRegMap(@Self)^.clr := $00000004;
  87720. end;
  87721. procedure TCAN1_C1FIFOCON29.setRTREN(thebits : TBits_1); inline;
  87722. begin
  87723. if thebits = 0 then
  87724. pTDefRegMap(@Self)^.clr := $00000004
  87725. else
  87726. pTDefRegMap(@Self)^.&set := $00000004;
  87727. end;
  87728. function TCAN1_C1FIFOCON29.getRTREN : TBits_1; inline;
  87729. begin
  87730. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  87731. end;
  87732. procedure TCAN1_C1FIFOCON29.setTXREQ; inline;
  87733. begin
  87734. pTDefRegMap(@Self)^.&set := $00000008;
  87735. end;
  87736. procedure TCAN1_C1FIFOCON29.clearTXREQ; inline;
  87737. begin
  87738. pTDefRegMap(@Self)^.clr := $00000008;
  87739. end;
  87740. procedure TCAN1_C1FIFOCON29.setTXREQ(thebits : TBits_1); inline;
  87741. begin
  87742. if thebits = 0 then
  87743. pTDefRegMap(@Self)^.clr := $00000008
  87744. else
  87745. pTDefRegMap(@Self)^.&set := $00000008;
  87746. end;
  87747. function TCAN1_C1FIFOCON29.getTXREQ : TBits_1; inline;
  87748. begin
  87749. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  87750. end;
  87751. procedure TCAN1_C1FIFOCON29.setTXERR; inline;
  87752. begin
  87753. pTDefRegMap(@Self)^.&set := $00000010;
  87754. end;
  87755. procedure TCAN1_C1FIFOCON29.clearTXERR; inline;
  87756. begin
  87757. pTDefRegMap(@Self)^.clr := $00000010;
  87758. end;
  87759. procedure TCAN1_C1FIFOCON29.setTXERR(thebits : TBits_1); inline;
  87760. begin
  87761. if thebits = 0 then
  87762. pTDefRegMap(@Self)^.clr := $00000010
  87763. else
  87764. pTDefRegMap(@Self)^.&set := $00000010;
  87765. end;
  87766. function TCAN1_C1FIFOCON29.getTXERR : TBits_1; inline;
  87767. begin
  87768. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  87769. end;
  87770. procedure TCAN1_C1FIFOCON29.setTXLARB; inline;
  87771. begin
  87772. pTDefRegMap(@Self)^.&set := $00000020;
  87773. end;
  87774. procedure TCAN1_C1FIFOCON29.clearTXLARB; inline;
  87775. begin
  87776. pTDefRegMap(@Self)^.clr := $00000020;
  87777. end;
  87778. procedure TCAN1_C1FIFOCON29.setTXLARB(thebits : TBits_1); inline;
  87779. begin
  87780. if thebits = 0 then
  87781. pTDefRegMap(@Self)^.clr := $00000020
  87782. else
  87783. pTDefRegMap(@Self)^.&set := $00000020;
  87784. end;
  87785. function TCAN1_C1FIFOCON29.getTXLARB : TBits_1; inline;
  87786. begin
  87787. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  87788. end;
  87789. procedure TCAN1_C1FIFOCON29.setTXABAT; inline;
  87790. begin
  87791. pTDefRegMap(@Self)^.&set := $00000040;
  87792. end;
  87793. procedure TCAN1_C1FIFOCON29.clearTXABAT; inline;
  87794. begin
  87795. pTDefRegMap(@Self)^.clr := $00000040;
  87796. end;
  87797. procedure TCAN1_C1FIFOCON29.setTXABAT(thebits : TBits_1); inline;
  87798. begin
  87799. if thebits = 0 then
  87800. pTDefRegMap(@Self)^.clr := $00000040
  87801. else
  87802. pTDefRegMap(@Self)^.&set := $00000040;
  87803. end;
  87804. function TCAN1_C1FIFOCON29.getTXABAT : TBits_1; inline;
  87805. begin
  87806. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  87807. end;
  87808. procedure TCAN1_C1FIFOCON29.setTXEN; inline;
  87809. begin
  87810. pTDefRegMap(@Self)^.&set := $00000080;
  87811. end;
  87812. procedure TCAN1_C1FIFOCON29.clearTXEN; inline;
  87813. begin
  87814. pTDefRegMap(@Self)^.clr := $00000080;
  87815. end;
  87816. procedure TCAN1_C1FIFOCON29.setTXEN(thebits : TBits_1); inline;
  87817. begin
  87818. if thebits = 0 then
  87819. pTDefRegMap(@Self)^.clr := $00000080
  87820. else
  87821. pTDefRegMap(@Self)^.&set := $00000080;
  87822. end;
  87823. function TCAN1_C1FIFOCON29.getTXEN : TBits_1; inline;
  87824. begin
  87825. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  87826. end;
  87827. procedure TCAN1_C1FIFOCON29.setDONLY; inline;
  87828. begin
  87829. pTDefRegMap(@Self)^.&set := $00001000;
  87830. end;
  87831. procedure TCAN1_C1FIFOCON29.clearDONLY; inline;
  87832. begin
  87833. pTDefRegMap(@Self)^.clr := $00001000;
  87834. end;
  87835. procedure TCAN1_C1FIFOCON29.setDONLY(thebits : TBits_1); inline;
  87836. begin
  87837. if thebits = 0 then
  87838. pTDefRegMap(@Self)^.clr := $00001000
  87839. else
  87840. pTDefRegMap(@Self)^.&set := $00001000;
  87841. end;
  87842. function TCAN1_C1FIFOCON29.getDONLY : TBits_1; inline;
  87843. begin
  87844. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  87845. end;
  87846. procedure TCAN1_C1FIFOCON29.setUINC; inline;
  87847. begin
  87848. pTDefRegMap(@Self)^.&set := $00002000;
  87849. end;
  87850. procedure TCAN1_C1FIFOCON29.clearUINC; inline;
  87851. begin
  87852. pTDefRegMap(@Self)^.clr := $00002000;
  87853. end;
  87854. procedure TCAN1_C1FIFOCON29.setUINC(thebits : TBits_1); inline;
  87855. begin
  87856. if thebits = 0 then
  87857. pTDefRegMap(@Self)^.clr := $00002000
  87858. else
  87859. pTDefRegMap(@Self)^.&set := $00002000;
  87860. end;
  87861. function TCAN1_C1FIFOCON29.getUINC : TBits_1; inline;
  87862. begin
  87863. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  87864. end;
  87865. procedure TCAN1_C1FIFOCON29.setFRESET; inline;
  87866. begin
  87867. pTDefRegMap(@Self)^.&set := $00004000;
  87868. end;
  87869. procedure TCAN1_C1FIFOCON29.clearFRESET; inline;
  87870. begin
  87871. pTDefRegMap(@Self)^.clr := $00004000;
  87872. end;
  87873. procedure TCAN1_C1FIFOCON29.setFRESET(thebits : TBits_1); inline;
  87874. begin
  87875. if thebits = 0 then
  87876. pTDefRegMap(@Self)^.clr := $00004000
  87877. else
  87878. pTDefRegMap(@Self)^.&set := $00004000;
  87879. end;
  87880. function TCAN1_C1FIFOCON29.getFRESET : TBits_1; inline;
  87881. begin
  87882. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  87883. end;
  87884. procedure TCAN1_C1FIFOCON29.setFSIZE(thebits : TBits_5); inline;
  87885. begin
  87886. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  87887. end;
  87888. function TCAN1_C1FIFOCON29.getFSIZE : TBits_5; inline;
  87889. begin
  87890. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  87891. end;
  87892. procedure TCAN1_C1FIFOCON29.setw(thebits : TBits_32); inline;
  87893. begin
  87894. pTDefRegMap(@Self)^.val := thebits;
  87895. end;
  87896. function TCAN1_C1FIFOCON29.getw : TBits_32; inline;
  87897. begin
  87898. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  87899. end;
  87900. procedure TCAN1_C1FIFOINT29.setRXNEMPTYIF; inline;
  87901. begin
  87902. pTDefRegMap(@Self)^.&set := $00000001;
  87903. end;
  87904. procedure TCAN1_C1FIFOINT29.clearRXNEMPTYIF; inline;
  87905. begin
  87906. pTDefRegMap(@Self)^.clr := $00000001;
  87907. end;
  87908. procedure TCAN1_C1FIFOINT29.setRXNEMPTYIF(thebits : TBits_1); inline;
  87909. begin
  87910. if thebits = 0 then
  87911. pTDefRegMap(@Self)^.clr := $00000001
  87912. else
  87913. pTDefRegMap(@Self)^.&set := $00000001;
  87914. end;
  87915. function TCAN1_C1FIFOINT29.getRXNEMPTYIF : TBits_1; inline;
  87916. begin
  87917. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  87918. end;
  87919. procedure TCAN1_C1FIFOINT29.setRXHALFIF; inline;
  87920. begin
  87921. pTDefRegMap(@Self)^.&set := $00000002;
  87922. end;
  87923. procedure TCAN1_C1FIFOINT29.clearRXHALFIF; inline;
  87924. begin
  87925. pTDefRegMap(@Self)^.clr := $00000002;
  87926. end;
  87927. procedure TCAN1_C1FIFOINT29.setRXHALFIF(thebits : TBits_1); inline;
  87928. begin
  87929. if thebits = 0 then
  87930. pTDefRegMap(@Self)^.clr := $00000002
  87931. else
  87932. pTDefRegMap(@Self)^.&set := $00000002;
  87933. end;
  87934. function TCAN1_C1FIFOINT29.getRXHALFIF : TBits_1; inline;
  87935. begin
  87936. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  87937. end;
  87938. procedure TCAN1_C1FIFOINT29.setRXFULLIF; inline;
  87939. begin
  87940. pTDefRegMap(@Self)^.&set := $00000004;
  87941. end;
  87942. procedure TCAN1_C1FIFOINT29.clearRXFULLIF; inline;
  87943. begin
  87944. pTDefRegMap(@Self)^.clr := $00000004;
  87945. end;
  87946. procedure TCAN1_C1FIFOINT29.setRXFULLIF(thebits : TBits_1); inline;
  87947. begin
  87948. if thebits = 0 then
  87949. pTDefRegMap(@Self)^.clr := $00000004
  87950. else
  87951. pTDefRegMap(@Self)^.&set := $00000004;
  87952. end;
  87953. function TCAN1_C1FIFOINT29.getRXFULLIF : TBits_1; inline;
  87954. begin
  87955. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  87956. end;
  87957. procedure TCAN1_C1FIFOINT29.setRXOVFLIF; inline;
  87958. begin
  87959. pTDefRegMap(@Self)^.&set := $00000008;
  87960. end;
  87961. procedure TCAN1_C1FIFOINT29.clearRXOVFLIF; inline;
  87962. begin
  87963. pTDefRegMap(@Self)^.clr := $00000008;
  87964. end;
  87965. procedure TCAN1_C1FIFOINT29.setRXOVFLIF(thebits : TBits_1); inline;
  87966. begin
  87967. if thebits = 0 then
  87968. pTDefRegMap(@Self)^.clr := $00000008
  87969. else
  87970. pTDefRegMap(@Self)^.&set := $00000008;
  87971. end;
  87972. function TCAN1_C1FIFOINT29.getRXOVFLIF : TBits_1; inline;
  87973. begin
  87974. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  87975. end;
  87976. procedure TCAN1_C1FIFOINT29.setTXEMPTYIF; inline;
  87977. begin
  87978. pTDefRegMap(@Self)^.&set := $00000100;
  87979. end;
  87980. procedure TCAN1_C1FIFOINT29.clearTXEMPTYIF; inline;
  87981. begin
  87982. pTDefRegMap(@Self)^.clr := $00000100;
  87983. end;
  87984. procedure TCAN1_C1FIFOINT29.setTXEMPTYIF(thebits : TBits_1); inline;
  87985. begin
  87986. if thebits = 0 then
  87987. pTDefRegMap(@Self)^.clr := $00000100
  87988. else
  87989. pTDefRegMap(@Self)^.&set := $00000100;
  87990. end;
  87991. function TCAN1_C1FIFOINT29.getTXEMPTYIF : TBits_1; inline;
  87992. begin
  87993. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  87994. end;
  87995. procedure TCAN1_C1FIFOINT29.setTXHALFIF; inline;
  87996. begin
  87997. pTDefRegMap(@Self)^.&set := $00000200;
  87998. end;
  87999. procedure TCAN1_C1FIFOINT29.clearTXHALFIF; inline;
  88000. begin
  88001. pTDefRegMap(@Self)^.clr := $00000200;
  88002. end;
  88003. procedure TCAN1_C1FIFOINT29.setTXHALFIF(thebits : TBits_1); inline;
  88004. begin
  88005. if thebits = 0 then
  88006. pTDefRegMap(@Self)^.clr := $00000200
  88007. else
  88008. pTDefRegMap(@Self)^.&set := $00000200;
  88009. end;
  88010. function TCAN1_C1FIFOINT29.getTXHALFIF : TBits_1; inline;
  88011. begin
  88012. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  88013. end;
  88014. procedure TCAN1_C1FIFOINT29.setTXNFULLIF; inline;
  88015. begin
  88016. pTDefRegMap(@Self)^.&set := $00000400;
  88017. end;
  88018. procedure TCAN1_C1FIFOINT29.clearTXNFULLIF; inline;
  88019. begin
  88020. pTDefRegMap(@Self)^.clr := $00000400;
  88021. end;
  88022. procedure TCAN1_C1FIFOINT29.setTXNFULLIF(thebits : TBits_1); inline;
  88023. begin
  88024. if thebits = 0 then
  88025. pTDefRegMap(@Self)^.clr := $00000400
  88026. else
  88027. pTDefRegMap(@Self)^.&set := $00000400;
  88028. end;
  88029. function TCAN1_C1FIFOINT29.getTXNFULLIF : TBits_1; inline;
  88030. begin
  88031. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  88032. end;
  88033. procedure TCAN1_C1FIFOINT29.setRXNEMPTYIE; inline;
  88034. begin
  88035. pTDefRegMap(@Self)^.&set := $00010000;
  88036. end;
  88037. procedure TCAN1_C1FIFOINT29.clearRXNEMPTYIE; inline;
  88038. begin
  88039. pTDefRegMap(@Self)^.clr := $00010000;
  88040. end;
  88041. procedure TCAN1_C1FIFOINT29.setRXNEMPTYIE(thebits : TBits_1); inline;
  88042. begin
  88043. if thebits = 0 then
  88044. pTDefRegMap(@Self)^.clr := $00010000
  88045. else
  88046. pTDefRegMap(@Self)^.&set := $00010000;
  88047. end;
  88048. function TCAN1_C1FIFOINT29.getRXNEMPTYIE : TBits_1; inline;
  88049. begin
  88050. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  88051. end;
  88052. procedure TCAN1_C1FIFOINT29.setRXHALFIE; inline;
  88053. begin
  88054. pTDefRegMap(@Self)^.&set := $00020000;
  88055. end;
  88056. procedure TCAN1_C1FIFOINT29.clearRXHALFIE; inline;
  88057. begin
  88058. pTDefRegMap(@Self)^.clr := $00020000;
  88059. end;
  88060. procedure TCAN1_C1FIFOINT29.setRXHALFIE(thebits : TBits_1); inline;
  88061. begin
  88062. if thebits = 0 then
  88063. pTDefRegMap(@Self)^.clr := $00020000
  88064. else
  88065. pTDefRegMap(@Self)^.&set := $00020000;
  88066. end;
  88067. function TCAN1_C1FIFOINT29.getRXHALFIE : TBits_1; inline;
  88068. begin
  88069. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  88070. end;
  88071. procedure TCAN1_C1FIFOINT29.setRXFULLIE; inline;
  88072. begin
  88073. pTDefRegMap(@Self)^.&set := $00040000;
  88074. end;
  88075. procedure TCAN1_C1FIFOINT29.clearRXFULLIE; inline;
  88076. begin
  88077. pTDefRegMap(@Self)^.clr := $00040000;
  88078. end;
  88079. procedure TCAN1_C1FIFOINT29.setRXFULLIE(thebits : TBits_1); inline;
  88080. begin
  88081. if thebits = 0 then
  88082. pTDefRegMap(@Self)^.clr := $00040000
  88083. else
  88084. pTDefRegMap(@Self)^.&set := $00040000;
  88085. end;
  88086. function TCAN1_C1FIFOINT29.getRXFULLIE : TBits_1; inline;
  88087. begin
  88088. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  88089. end;
  88090. procedure TCAN1_C1FIFOINT29.setRXOVFLIE; inline;
  88091. begin
  88092. pTDefRegMap(@Self)^.&set := $00080000;
  88093. end;
  88094. procedure TCAN1_C1FIFOINT29.clearRXOVFLIE; inline;
  88095. begin
  88096. pTDefRegMap(@Self)^.clr := $00080000;
  88097. end;
  88098. procedure TCAN1_C1FIFOINT29.setRXOVFLIE(thebits : TBits_1); inline;
  88099. begin
  88100. if thebits = 0 then
  88101. pTDefRegMap(@Self)^.clr := $00080000
  88102. else
  88103. pTDefRegMap(@Self)^.&set := $00080000;
  88104. end;
  88105. function TCAN1_C1FIFOINT29.getRXOVFLIE : TBits_1; inline;
  88106. begin
  88107. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  88108. end;
  88109. procedure TCAN1_C1FIFOINT29.setTXEMPTYIE; inline;
  88110. begin
  88111. pTDefRegMap(@Self)^.&set := $01000000;
  88112. end;
  88113. procedure TCAN1_C1FIFOINT29.clearTXEMPTYIE; inline;
  88114. begin
  88115. pTDefRegMap(@Self)^.clr := $01000000;
  88116. end;
  88117. procedure TCAN1_C1FIFOINT29.setTXEMPTYIE(thebits : TBits_1); inline;
  88118. begin
  88119. if thebits = 0 then
  88120. pTDefRegMap(@Self)^.clr := $01000000
  88121. else
  88122. pTDefRegMap(@Self)^.&set := $01000000;
  88123. end;
  88124. function TCAN1_C1FIFOINT29.getTXEMPTYIE : TBits_1; inline;
  88125. begin
  88126. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  88127. end;
  88128. procedure TCAN1_C1FIFOINT29.setTXHALFIE; inline;
  88129. begin
  88130. pTDefRegMap(@Self)^.&set := $02000000;
  88131. end;
  88132. procedure TCAN1_C1FIFOINT29.clearTXHALFIE; inline;
  88133. begin
  88134. pTDefRegMap(@Self)^.clr := $02000000;
  88135. end;
  88136. procedure TCAN1_C1FIFOINT29.setTXHALFIE(thebits : TBits_1); inline;
  88137. begin
  88138. if thebits = 0 then
  88139. pTDefRegMap(@Self)^.clr := $02000000
  88140. else
  88141. pTDefRegMap(@Self)^.&set := $02000000;
  88142. end;
  88143. function TCAN1_C1FIFOINT29.getTXHALFIE : TBits_1; inline;
  88144. begin
  88145. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  88146. end;
  88147. procedure TCAN1_C1FIFOINT29.setTXNFULLIE; inline;
  88148. begin
  88149. pTDefRegMap(@Self)^.&set := $04000000;
  88150. end;
  88151. procedure TCAN1_C1FIFOINT29.clearTXNFULLIE; inline;
  88152. begin
  88153. pTDefRegMap(@Self)^.clr := $04000000;
  88154. end;
  88155. procedure TCAN1_C1FIFOINT29.setTXNFULLIE(thebits : TBits_1); inline;
  88156. begin
  88157. if thebits = 0 then
  88158. pTDefRegMap(@Self)^.clr := $04000000
  88159. else
  88160. pTDefRegMap(@Self)^.&set := $04000000;
  88161. end;
  88162. function TCAN1_C1FIFOINT29.getTXNFULLIE : TBits_1; inline;
  88163. begin
  88164. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  88165. end;
  88166. procedure TCAN1_C1FIFOINT29.setw(thebits : TBits_32); inline;
  88167. begin
  88168. pTDefRegMap(@Self)^.val := thebits;
  88169. end;
  88170. function TCAN1_C1FIFOINT29.getw : TBits_32; inline;
  88171. begin
  88172. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  88173. end;
  88174. procedure TCAN1_C1FIFOCI29.setCFIFOCI(thebits : TBits_5); inline;
  88175. begin
  88176. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  88177. end;
  88178. function TCAN1_C1FIFOCI29.getCFIFOCI : TBits_5; inline;
  88179. begin
  88180. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  88181. end;
  88182. procedure TCAN1_C1FIFOCI29.setw(thebits : TBits_32); inline;
  88183. begin
  88184. pTDefRegMap(@Self)^.val := thebits;
  88185. end;
  88186. function TCAN1_C1FIFOCI29.getw : TBits_32; inline;
  88187. begin
  88188. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  88189. end;
  88190. procedure TCAN1_C1FIFOCON30.setTXPRI(thebits : TBits_2); inline;
  88191. begin
  88192. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  88193. end;
  88194. function TCAN1_C1FIFOCON30.getTXPRI : TBits_2; inline;
  88195. begin
  88196. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  88197. end;
  88198. procedure TCAN1_C1FIFOCON30.setRTREN; inline;
  88199. begin
  88200. pTDefRegMap(@Self)^.&set := $00000004;
  88201. end;
  88202. procedure TCAN1_C1FIFOCON30.clearRTREN; inline;
  88203. begin
  88204. pTDefRegMap(@Self)^.clr := $00000004;
  88205. end;
  88206. procedure TCAN1_C1FIFOCON30.setRTREN(thebits : TBits_1); inline;
  88207. begin
  88208. if thebits = 0 then
  88209. pTDefRegMap(@Self)^.clr := $00000004
  88210. else
  88211. pTDefRegMap(@Self)^.&set := $00000004;
  88212. end;
  88213. function TCAN1_C1FIFOCON30.getRTREN : TBits_1; inline;
  88214. begin
  88215. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  88216. end;
  88217. procedure TCAN1_C1FIFOCON30.setTXREQ; inline;
  88218. begin
  88219. pTDefRegMap(@Self)^.&set := $00000008;
  88220. end;
  88221. procedure TCAN1_C1FIFOCON30.clearTXREQ; inline;
  88222. begin
  88223. pTDefRegMap(@Self)^.clr := $00000008;
  88224. end;
  88225. procedure TCAN1_C1FIFOCON30.setTXREQ(thebits : TBits_1); inline;
  88226. begin
  88227. if thebits = 0 then
  88228. pTDefRegMap(@Self)^.clr := $00000008
  88229. else
  88230. pTDefRegMap(@Self)^.&set := $00000008;
  88231. end;
  88232. function TCAN1_C1FIFOCON30.getTXREQ : TBits_1; inline;
  88233. begin
  88234. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  88235. end;
  88236. procedure TCAN1_C1FIFOCON30.setTXERR; inline;
  88237. begin
  88238. pTDefRegMap(@Self)^.&set := $00000010;
  88239. end;
  88240. procedure TCAN1_C1FIFOCON30.clearTXERR; inline;
  88241. begin
  88242. pTDefRegMap(@Self)^.clr := $00000010;
  88243. end;
  88244. procedure TCAN1_C1FIFOCON30.setTXERR(thebits : TBits_1); inline;
  88245. begin
  88246. if thebits = 0 then
  88247. pTDefRegMap(@Self)^.clr := $00000010
  88248. else
  88249. pTDefRegMap(@Self)^.&set := $00000010;
  88250. end;
  88251. function TCAN1_C1FIFOCON30.getTXERR : TBits_1; inline;
  88252. begin
  88253. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  88254. end;
  88255. procedure TCAN1_C1FIFOCON30.setTXLARB; inline;
  88256. begin
  88257. pTDefRegMap(@Self)^.&set := $00000020;
  88258. end;
  88259. procedure TCAN1_C1FIFOCON30.clearTXLARB; inline;
  88260. begin
  88261. pTDefRegMap(@Self)^.clr := $00000020;
  88262. end;
  88263. procedure TCAN1_C1FIFOCON30.setTXLARB(thebits : TBits_1); inline;
  88264. begin
  88265. if thebits = 0 then
  88266. pTDefRegMap(@Self)^.clr := $00000020
  88267. else
  88268. pTDefRegMap(@Self)^.&set := $00000020;
  88269. end;
  88270. function TCAN1_C1FIFOCON30.getTXLARB : TBits_1; inline;
  88271. begin
  88272. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  88273. end;
  88274. procedure TCAN1_C1FIFOCON30.setTXABAT; inline;
  88275. begin
  88276. pTDefRegMap(@Self)^.&set := $00000040;
  88277. end;
  88278. procedure TCAN1_C1FIFOCON30.clearTXABAT; inline;
  88279. begin
  88280. pTDefRegMap(@Self)^.clr := $00000040;
  88281. end;
  88282. procedure TCAN1_C1FIFOCON30.setTXABAT(thebits : TBits_1); inline;
  88283. begin
  88284. if thebits = 0 then
  88285. pTDefRegMap(@Self)^.clr := $00000040
  88286. else
  88287. pTDefRegMap(@Self)^.&set := $00000040;
  88288. end;
  88289. function TCAN1_C1FIFOCON30.getTXABAT : TBits_1; inline;
  88290. begin
  88291. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  88292. end;
  88293. procedure TCAN1_C1FIFOCON30.setTXEN; inline;
  88294. begin
  88295. pTDefRegMap(@Self)^.&set := $00000080;
  88296. end;
  88297. procedure TCAN1_C1FIFOCON30.clearTXEN; inline;
  88298. begin
  88299. pTDefRegMap(@Self)^.clr := $00000080;
  88300. end;
  88301. procedure TCAN1_C1FIFOCON30.setTXEN(thebits : TBits_1); inline;
  88302. begin
  88303. if thebits = 0 then
  88304. pTDefRegMap(@Self)^.clr := $00000080
  88305. else
  88306. pTDefRegMap(@Self)^.&set := $00000080;
  88307. end;
  88308. function TCAN1_C1FIFOCON30.getTXEN : TBits_1; inline;
  88309. begin
  88310. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  88311. end;
  88312. procedure TCAN1_C1FIFOCON30.setDONLY; inline;
  88313. begin
  88314. pTDefRegMap(@Self)^.&set := $00001000;
  88315. end;
  88316. procedure TCAN1_C1FIFOCON30.clearDONLY; inline;
  88317. begin
  88318. pTDefRegMap(@Self)^.clr := $00001000;
  88319. end;
  88320. procedure TCAN1_C1FIFOCON30.setDONLY(thebits : TBits_1); inline;
  88321. begin
  88322. if thebits = 0 then
  88323. pTDefRegMap(@Self)^.clr := $00001000
  88324. else
  88325. pTDefRegMap(@Self)^.&set := $00001000;
  88326. end;
  88327. function TCAN1_C1FIFOCON30.getDONLY : TBits_1; inline;
  88328. begin
  88329. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  88330. end;
  88331. procedure TCAN1_C1FIFOCON30.setUINC; inline;
  88332. begin
  88333. pTDefRegMap(@Self)^.&set := $00002000;
  88334. end;
  88335. procedure TCAN1_C1FIFOCON30.clearUINC; inline;
  88336. begin
  88337. pTDefRegMap(@Self)^.clr := $00002000;
  88338. end;
  88339. procedure TCAN1_C1FIFOCON30.setUINC(thebits : TBits_1); inline;
  88340. begin
  88341. if thebits = 0 then
  88342. pTDefRegMap(@Self)^.clr := $00002000
  88343. else
  88344. pTDefRegMap(@Self)^.&set := $00002000;
  88345. end;
  88346. function TCAN1_C1FIFOCON30.getUINC : TBits_1; inline;
  88347. begin
  88348. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  88349. end;
  88350. procedure TCAN1_C1FIFOCON30.setFRESET; inline;
  88351. begin
  88352. pTDefRegMap(@Self)^.&set := $00004000;
  88353. end;
  88354. procedure TCAN1_C1FIFOCON30.clearFRESET; inline;
  88355. begin
  88356. pTDefRegMap(@Self)^.clr := $00004000;
  88357. end;
  88358. procedure TCAN1_C1FIFOCON30.setFRESET(thebits : TBits_1); inline;
  88359. begin
  88360. if thebits = 0 then
  88361. pTDefRegMap(@Self)^.clr := $00004000
  88362. else
  88363. pTDefRegMap(@Self)^.&set := $00004000;
  88364. end;
  88365. function TCAN1_C1FIFOCON30.getFRESET : TBits_1; inline;
  88366. begin
  88367. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  88368. end;
  88369. procedure TCAN1_C1FIFOCON30.setFSIZE(thebits : TBits_5); inline;
  88370. begin
  88371. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  88372. end;
  88373. function TCAN1_C1FIFOCON30.getFSIZE : TBits_5; inline;
  88374. begin
  88375. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  88376. end;
  88377. procedure TCAN1_C1FIFOCON30.setw(thebits : TBits_32); inline;
  88378. begin
  88379. pTDefRegMap(@Self)^.val := thebits;
  88380. end;
  88381. function TCAN1_C1FIFOCON30.getw : TBits_32; inline;
  88382. begin
  88383. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  88384. end;
  88385. procedure TCAN1_C1FIFOINT30.setRXNEMPTYIF; inline;
  88386. begin
  88387. pTDefRegMap(@Self)^.&set := $00000001;
  88388. end;
  88389. procedure TCAN1_C1FIFOINT30.clearRXNEMPTYIF; inline;
  88390. begin
  88391. pTDefRegMap(@Self)^.clr := $00000001;
  88392. end;
  88393. procedure TCAN1_C1FIFOINT30.setRXNEMPTYIF(thebits : TBits_1); inline;
  88394. begin
  88395. if thebits = 0 then
  88396. pTDefRegMap(@Self)^.clr := $00000001
  88397. else
  88398. pTDefRegMap(@Self)^.&set := $00000001;
  88399. end;
  88400. function TCAN1_C1FIFOINT30.getRXNEMPTYIF : TBits_1; inline;
  88401. begin
  88402. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  88403. end;
  88404. procedure TCAN1_C1FIFOINT30.setRXHALFIF; inline;
  88405. begin
  88406. pTDefRegMap(@Self)^.&set := $00000002;
  88407. end;
  88408. procedure TCAN1_C1FIFOINT30.clearRXHALFIF; inline;
  88409. begin
  88410. pTDefRegMap(@Self)^.clr := $00000002;
  88411. end;
  88412. procedure TCAN1_C1FIFOINT30.setRXHALFIF(thebits : TBits_1); inline;
  88413. begin
  88414. if thebits = 0 then
  88415. pTDefRegMap(@Self)^.clr := $00000002
  88416. else
  88417. pTDefRegMap(@Self)^.&set := $00000002;
  88418. end;
  88419. function TCAN1_C1FIFOINT30.getRXHALFIF : TBits_1; inline;
  88420. begin
  88421. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  88422. end;
  88423. procedure TCAN1_C1FIFOINT30.setRXFULLIF; inline;
  88424. begin
  88425. pTDefRegMap(@Self)^.&set := $00000004;
  88426. end;
  88427. procedure TCAN1_C1FIFOINT30.clearRXFULLIF; inline;
  88428. begin
  88429. pTDefRegMap(@Self)^.clr := $00000004;
  88430. end;
  88431. procedure TCAN1_C1FIFOINT30.setRXFULLIF(thebits : TBits_1); inline;
  88432. begin
  88433. if thebits = 0 then
  88434. pTDefRegMap(@Self)^.clr := $00000004
  88435. else
  88436. pTDefRegMap(@Self)^.&set := $00000004;
  88437. end;
  88438. function TCAN1_C1FIFOINT30.getRXFULLIF : TBits_1; inline;
  88439. begin
  88440. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  88441. end;
  88442. procedure TCAN1_C1FIFOINT30.setRXOVFLIF; inline;
  88443. begin
  88444. pTDefRegMap(@Self)^.&set := $00000008;
  88445. end;
  88446. procedure TCAN1_C1FIFOINT30.clearRXOVFLIF; inline;
  88447. begin
  88448. pTDefRegMap(@Self)^.clr := $00000008;
  88449. end;
  88450. procedure TCAN1_C1FIFOINT30.setRXOVFLIF(thebits : TBits_1); inline;
  88451. begin
  88452. if thebits = 0 then
  88453. pTDefRegMap(@Self)^.clr := $00000008
  88454. else
  88455. pTDefRegMap(@Self)^.&set := $00000008;
  88456. end;
  88457. function TCAN1_C1FIFOINT30.getRXOVFLIF : TBits_1; inline;
  88458. begin
  88459. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  88460. end;
  88461. procedure TCAN1_C1FIFOINT30.setTXEMPTYIF; inline;
  88462. begin
  88463. pTDefRegMap(@Self)^.&set := $00000100;
  88464. end;
  88465. procedure TCAN1_C1FIFOINT30.clearTXEMPTYIF; inline;
  88466. begin
  88467. pTDefRegMap(@Self)^.clr := $00000100;
  88468. end;
  88469. procedure TCAN1_C1FIFOINT30.setTXEMPTYIF(thebits : TBits_1); inline;
  88470. begin
  88471. if thebits = 0 then
  88472. pTDefRegMap(@Self)^.clr := $00000100
  88473. else
  88474. pTDefRegMap(@Self)^.&set := $00000100;
  88475. end;
  88476. function TCAN1_C1FIFOINT30.getTXEMPTYIF : TBits_1; inline;
  88477. begin
  88478. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  88479. end;
  88480. procedure TCAN1_C1FIFOINT30.setTXHALFIF; inline;
  88481. begin
  88482. pTDefRegMap(@Self)^.&set := $00000200;
  88483. end;
  88484. procedure TCAN1_C1FIFOINT30.clearTXHALFIF; inline;
  88485. begin
  88486. pTDefRegMap(@Self)^.clr := $00000200;
  88487. end;
  88488. procedure TCAN1_C1FIFOINT30.setTXHALFIF(thebits : TBits_1); inline;
  88489. begin
  88490. if thebits = 0 then
  88491. pTDefRegMap(@Self)^.clr := $00000200
  88492. else
  88493. pTDefRegMap(@Self)^.&set := $00000200;
  88494. end;
  88495. function TCAN1_C1FIFOINT30.getTXHALFIF : TBits_1; inline;
  88496. begin
  88497. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  88498. end;
  88499. procedure TCAN1_C1FIFOINT30.setTXNFULLIF; inline;
  88500. begin
  88501. pTDefRegMap(@Self)^.&set := $00000400;
  88502. end;
  88503. procedure TCAN1_C1FIFOINT30.clearTXNFULLIF; inline;
  88504. begin
  88505. pTDefRegMap(@Self)^.clr := $00000400;
  88506. end;
  88507. procedure TCAN1_C1FIFOINT30.setTXNFULLIF(thebits : TBits_1); inline;
  88508. begin
  88509. if thebits = 0 then
  88510. pTDefRegMap(@Self)^.clr := $00000400
  88511. else
  88512. pTDefRegMap(@Self)^.&set := $00000400;
  88513. end;
  88514. function TCAN1_C1FIFOINT30.getTXNFULLIF : TBits_1; inline;
  88515. begin
  88516. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  88517. end;
  88518. procedure TCAN1_C1FIFOINT30.setRXNEMPTYIE; inline;
  88519. begin
  88520. pTDefRegMap(@Self)^.&set := $00010000;
  88521. end;
  88522. procedure TCAN1_C1FIFOINT30.clearRXNEMPTYIE; inline;
  88523. begin
  88524. pTDefRegMap(@Self)^.clr := $00010000;
  88525. end;
  88526. procedure TCAN1_C1FIFOINT30.setRXNEMPTYIE(thebits : TBits_1); inline;
  88527. begin
  88528. if thebits = 0 then
  88529. pTDefRegMap(@Self)^.clr := $00010000
  88530. else
  88531. pTDefRegMap(@Self)^.&set := $00010000;
  88532. end;
  88533. function TCAN1_C1FIFOINT30.getRXNEMPTYIE : TBits_1; inline;
  88534. begin
  88535. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  88536. end;
  88537. procedure TCAN1_C1FIFOINT30.setRXHALFIE; inline;
  88538. begin
  88539. pTDefRegMap(@Self)^.&set := $00020000;
  88540. end;
  88541. procedure TCAN1_C1FIFOINT30.clearRXHALFIE; inline;
  88542. begin
  88543. pTDefRegMap(@Self)^.clr := $00020000;
  88544. end;
  88545. procedure TCAN1_C1FIFOINT30.setRXHALFIE(thebits : TBits_1); inline;
  88546. begin
  88547. if thebits = 0 then
  88548. pTDefRegMap(@Self)^.clr := $00020000
  88549. else
  88550. pTDefRegMap(@Self)^.&set := $00020000;
  88551. end;
  88552. function TCAN1_C1FIFOINT30.getRXHALFIE : TBits_1; inline;
  88553. begin
  88554. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  88555. end;
  88556. procedure TCAN1_C1FIFOINT30.setRXFULLIE; inline;
  88557. begin
  88558. pTDefRegMap(@Self)^.&set := $00040000;
  88559. end;
  88560. procedure TCAN1_C1FIFOINT30.clearRXFULLIE; inline;
  88561. begin
  88562. pTDefRegMap(@Self)^.clr := $00040000;
  88563. end;
  88564. procedure TCAN1_C1FIFOINT30.setRXFULLIE(thebits : TBits_1); inline;
  88565. begin
  88566. if thebits = 0 then
  88567. pTDefRegMap(@Self)^.clr := $00040000
  88568. else
  88569. pTDefRegMap(@Self)^.&set := $00040000;
  88570. end;
  88571. function TCAN1_C1FIFOINT30.getRXFULLIE : TBits_1; inline;
  88572. begin
  88573. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  88574. end;
  88575. procedure TCAN1_C1FIFOINT30.setRXOVFLIE; inline;
  88576. begin
  88577. pTDefRegMap(@Self)^.&set := $00080000;
  88578. end;
  88579. procedure TCAN1_C1FIFOINT30.clearRXOVFLIE; inline;
  88580. begin
  88581. pTDefRegMap(@Self)^.clr := $00080000;
  88582. end;
  88583. procedure TCAN1_C1FIFOINT30.setRXOVFLIE(thebits : TBits_1); inline;
  88584. begin
  88585. if thebits = 0 then
  88586. pTDefRegMap(@Self)^.clr := $00080000
  88587. else
  88588. pTDefRegMap(@Self)^.&set := $00080000;
  88589. end;
  88590. function TCAN1_C1FIFOINT30.getRXOVFLIE : TBits_1; inline;
  88591. begin
  88592. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  88593. end;
  88594. procedure TCAN1_C1FIFOINT30.setTXEMPTYIE; inline;
  88595. begin
  88596. pTDefRegMap(@Self)^.&set := $01000000;
  88597. end;
  88598. procedure TCAN1_C1FIFOINT30.clearTXEMPTYIE; inline;
  88599. begin
  88600. pTDefRegMap(@Self)^.clr := $01000000;
  88601. end;
  88602. procedure TCAN1_C1FIFOINT30.setTXEMPTYIE(thebits : TBits_1); inline;
  88603. begin
  88604. if thebits = 0 then
  88605. pTDefRegMap(@Self)^.clr := $01000000
  88606. else
  88607. pTDefRegMap(@Self)^.&set := $01000000;
  88608. end;
  88609. function TCAN1_C1FIFOINT30.getTXEMPTYIE : TBits_1; inline;
  88610. begin
  88611. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  88612. end;
  88613. procedure TCAN1_C1FIFOINT30.setTXHALFIE; inline;
  88614. begin
  88615. pTDefRegMap(@Self)^.&set := $02000000;
  88616. end;
  88617. procedure TCAN1_C1FIFOINT30.clearTXHALFIE; inline;
  88618. begin
  88619. pTDefRegMap(@Self)^.clr := $02000000;
  88620. end;
  88621. procedure TCAN1_C1FIFOINT30.setTXHALFIE(thebits : TBits_1); inline;
  88622. begin
  88623. if thebits = 0 then
  88624. pTDefRegMap(@Self)^.clr := $02000000
  88625. else
  88626. pTDefRegMap(@Self)^.&set := $02000000;
  88627. end;
  88628. function TCAN1_C1FIFOINT30.getTXHALFIE : TBits_1; inline;
  88629. begin
  88630. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  88631. end;
  88632. procedure TCAN1_C1FIFOINT30.setTXNFULLIE; inline;
  88633. begin
  88634. pTDefRegMap(@Self)^.&set := $04000000;
  88635. end;
  88636. procedure TCAN1_C1FIFOINT30.clearTXNFULLIE; inline;
  88637. begin
  88638. pTDefRegMap(@Self)^.clr := $04000000;
  88639. end;
  88640. procedure TCAN1_C1FIFOINT30.setTXNFULLIE(thebits : TBits_1); inline;
  88641. begin
  88642. if thebits = 0 then
  88643. pTDefRegMap(@Self)^.clr := $04000000
  88644. else
  88645. pTDefRegMap(@Self)^.&set := $04000000;
  88646. end;
  88647. function TCAN1_C1FIFOINT30.getTXNFULLIE : TBits_1; inline;
  88648. begin
  88649. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  88650. end;
  88651. procedure TCAN1_C1FIFOINT30.setw(thebits : TBits_32); inline;
  88652. begin
  88653. pTDefRegMap(@Self)^.val := thebits;
  88654. end;
  88655. function TCAN1_C1FIFOINT30.getw : TBits_32; inline;
  88656. begin
  88657. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  88658. end;
  88659. procedure TCAN1_C1FIFOCI30.setCFIFOCI(thebits : TBits_5); inline;
  88660. begin
  88661. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  88662. end;
  88663. function TCAN1_C1FIFOCI30.getCFIFOCI : TBits_5; inline;
  88664. begin
  88665. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  88666. end;
  88667. procedure TCAN1_C1FIFOCI30.setw(thebits : TBits_32); inline;
  88668. begin
  88669. pTDefRegMap(@Self)^.val := thebits;
  88670. end;
  88671. function TCAN1_C1FIFOCI30.getw : TBits_32; inline;
  88672. begin
  88673. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  88674. end;
  88675. procedure TCAN1_C1FIFOCON31.setTXPRI(thebits : TBits_2); inline;
  88676. begin
  88677. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  88678. end;
  88679. function TCAN1_C1FIFOCON31.getTXPRI : TBits_2; inline;
  88680. begin
  88681. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  88682. end;
  88683. procedure TCAN1_C1FIFOCON31.setRTREN; inline;
  88684. begin
  88685. pTDefRegMap(@Self)^.&set := $00000004;
  88686. end;
  88687. procedure TCAN1_C1FIFOCON31.clearRTREN; inline;
  88688. begin
  88689. pTDefRegMap(@Self)^.clr := $00000004;
  88690. end;
  88691. procedure TCAN1_C1FIFOCON31.setRTREN(thebits : TBits_1); inline;
  88692. begin
  88693. if thebits = 0 then
  88694. pTDefRegMap(@Self)^.clr := $00000004
  88695. else
  88696. pTDefRegMap(@Self)^.&set := $00000004;
  88697. end;
  88698. function TCAN1_C1FIFOCON31.getRTREN : TBits_1; inline;
  88699. begin
  88700. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  88701. end;
  88702. procedure TCAN1_C1FIFOCON31.setTXREQ; inline;
  88703. begin
  88704. pTDefRegMap(@Self)^.&set := $00000008;
  88705. end;
  88706. procedure TCAN1_C1FIFOCON31.clearTXREQ; inline;
  88707. begin
  88708. pTDefRegMap(@Self)^.clr := $00000008;
  88709. end;
  88710. procedure TCAN1_C1FIFOCON31.setTXREQ(thebits : TBits_1); inline;
  88711. begin
  88712. if thebits = 0 then
  88713. pTDefRegMap(@Self)^.clr := $00000008
  88714. else
  88715. pTDefRegMap(@Self)^.&set := $00000008;
  88716. end;
  88717. function TCAN1_C1FIFOCON31.getTXREQ : TBits_1; inline;
  88718. begin
  88719. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  88720. end;
  88721. procedure TCAN1_C1FIFOCON31.setTXERR; inline;
  88722. begin
  88723. pTDefRegMap(@Self)^.&set := $00000010;
  88724. end;
  88725. procedure TCAN1_C1FIFOCON31.clearTXERR; inline;
  88726. begin
  88727. pTDefRegMap(@Self)^.clr := $00000010;
  88728. end;
  88729. procedure TCAN1_C1FIFOCON31.setTXERR(thebits : TBits_1); inline;
  88730. begin
  88731. if thebits = 0 then
  88732. pTDefRegMap(@Self)^.clr := $00000010
  88733. else
  88734. pTDefRegMap(@Self)^.&set := $00000010;
  88735. end;
  88736. function TCAN1_C1FIFOCON31.getTXERR : TBits_1; inline;
  88737. begin
  88738. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  88739. end;
  88740. procedure TCAN1_C1FIFOCON31.setTXLARB; inline;
  88741. begin
  88742. pTDefRegMap(@Self)^.&set := $00000020;
  88743. end;
  88744. procedure TCAN1_C1FIFOCON31.clearTXLARB; inline;
  88745. begin
  88746. pTDefRegMap(@Self)^.clr := $00000020;
  88747. end;
  88748. procedure TCAN1_C1FIFOCON31.setTXLARB(thebits : TBits_1); inline;
  88749. begin
  88750. if thebits = 0 then
  88751. pTDefRegMap(@Self)^.clr := $00000020
  88752. else
  88753. pTDefRegMap(@Self)^.&set := $00000020;
  88754. end;
  88755. function TCAN1_C1FIFOCON31.getTXLARB : TBits_1; inline;
  88756. begin
  88757. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  88758. end;
  88759. procedure TCAN1_C1FIFOCON31.setTXABAT; inline;
  88760. begin
  88761. pTDefRegMap(@Self)^.&set := $00000040;
  88762. end;
  88763. procedure TCAN1_C1FIFOCON31.clearTXABAT; inline;
  88764. begin
  88765. pTDefRegMap(@Self)^.clr := $00000040;
  88766. end;
  88767. procedure TCAN1_C1FIFOCON31.setTXABAT(thebits : TBits_1); inline;
  88768. begin
  88769. if thebits = 0 then
  88770. pTDefRegMap(@Self)^.clr := $00000040
  88771. else
  88772. pTDefRegMap(@Self)^.&set := $00000040;
  88773. end;
  88774. function TCAN1_C1FIFOCON31.getTXABAT : TBits_1; inline;
  88775. begin
  88776. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  88777. end;
  88778. procedure TCAN1_C1FIFOCON31.setTXEN; inline;
  88779. begin
  88780. pTDefRegMap(@Self)^.&set := $00000080;
  88781. end;
  88782. procedure TCAN1_C1FIFOCON31.clearTXEN; inline;
  88783. begin
  88784. pTDefRegMap(@Self)^.clr := $00000080;
  88785. end;
  88786. procedure TCAN1_C1FIFOCON31.setTXEN(thebits : TBits_1); inline;
  88787. begin
  88788. if thebits = 0 then
  88789. pTDefRegMap(@Self)^.clr := $00000080
  88790. else
  88791. pTDefRegMap(@Self)^.&set := $00000080;
  88792. end;
  88793. function TCAN1_C1FIFOCON31.getTXEN : TBits_1; inline;
  88794. begin
  88795. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  88796. end;
  88797. procedure TCAN1_C1FIFOCON31.setDONLY; inline;
  88798. begin
  88799. pTDefRegMap(@Self)^.&set := $00001000;
  88800. end;
  88801. procedure TCAN1_C1FIFOCON31.clearDONLY; inline;
  88802. begin
  88803. pTDefRegMap(@Self)^.clr := $00001000;
  88804. end;
  88805. procedure TCAN1_C1FIFOCON31.setDONLY(thebits : TBits_1); inline;
  88806. begin
  88807. if thebits = 0 then
  88808. pTDefRegMap(@Self)^.clr := $00001000
  88809. else
  88810. pTDefRegMap(@Self)^.&set := $00001000;
  88811. end;
  88812. function TCAN1_C1FIFOCON31.getDONLY : TBits_1; inline;
  88813. begin
  88814. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  88815. end;
  88816. procedure TCAN1_C1FIFOCON31.setUINC; inline;
  88817. begin
  88818. pTDefRegMap(@Self)^.&set := $00002000;
  88819. end;
  88820. procedure TCAN1_C1FIFOCON31.clearUINC; inline;
  88821. begin
  88822. pTDefRegMap(@Self)^.clr := $00002000;
  88823. end;
  88824. procedure TCAN1_C1FIFOCON31.setUINC(thebits : TBits_1); inline;
  88825. begin
  88826. if thebits = 0 then
  88827. pTDefRegMap(@Self)^.clr := $00002000
  88828. else
  88829. pTDefRegMap(@Self)^.&set := $00002000;
  88830. end;
  88831. function TCAN1_C1FIFOCON31.getUINC : TBits_1; inline;
  88832. begin
  88833. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  88834. end;
  88835. procedure TCAN1_C1FIFOCON31.setFRESET; inline;
  88836. begin
  88837. pTDefRegMap(@Self)^.&set := $00004000;
  88838. end;
  88839. procedure TCAN1_C1FIFOCON31.clearFRESET; inline;
  88840. begin
  88841. pTDefRegMap(@Self)^.clr := $00004000;
  88842. end;
  88843. procedure TCAN1_C1FIFOCON31.setFRESET(thebits : TBits_1); inline;
  88844. begin
  88845. if thebits = 0 then
  88846. pTDefRegMap(@Self)^.clr := $00004000
  88847. else
  88848. pTDefRegMap(@Self)^.&set := $00004000;
  88849. end;
  88850. function TCAN1_C1FIFOCON31.getFRESET : TBits_1; inline;
  88851. begin
  88852. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  88853. end;
  88854. procedure TCAN1_C1FIFOCON31.setFSIZE(thebits : TBits_5); inline;
  88855. begin
  88856. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  88857. end;
  88858. function TCAN1_C1FIFOCON31.getFSIZE : TBits_5; inline;
  88859. begin
  88860. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  88861. end;
  88862. procedure TCAN1_C1FIFOCON31.setw(thebits : TBits_32); inline;
  88863. begin
  88864. pTDefRegMap(@Self)^.val := thebits;
  88865. end;
  88866. function TCAN1_C1FIFOCON31.getw : TBits_32; inline;
  88867. begin
  88868. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  88869. end;
  88870. procedure TCAN1_C1FIFOINT31.setRXNEMPTYIF; inline;
  88871. begin
  88872. pTDefRegMap(@Self)^.&set := $00000001;
  88873. end;
  88874. procedure TCAN1_C1FIFOINT31.clearRXNEMPTYIF; inline;
  88875. begin
  88876. pTDefRegMap(@Self)^.clr := $00000001;
  88877. end;
  88878. procedure TCAN1_C1FIFOINT31.setRXNEMPTYIF(thebits : TBits_1); inline;
  88879. begin
  88880. if thebits = 0 then
  88881. pTDefRegMap(@Self)^.clr := $00000001
  88882. else
  88883. pTDefRegMap(@Self)^.&set := $00000001;
  88884. end;
  88885. function TCAN1_C1FIFOINT31.getRXNEMPTYIF : TBits_1; inline;
  88886. begin
  88887. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  88888. end;
  88889. procedure TCAN1_C1FIFOINT31.setRXHALFIF; inline;
  88890. begin
  88891. pTDefRegMap(@Self)^.&set := $00000002;
  88892. end;
  88893. procedure TCAN1_C1FIFOINT31.clearRXHALFIF; inline;
  88894. begin
  88895. pTDefRegMap(@Self)^.clr := $00000002;
  88896. end;
  88897. procedure TCAN1_C1FIFOINT31.setRXHALFIF(thebits : TBits_1); inline;
  88898. begin
  88899. if thebits = 0 then
  88900. pTDefRegMap(@Self)^.clr := $00000002
  88901. else
  88902. pTDefRegMap(@Self)^.&set := $00000002;
  88903. end;
  88904. function TCAN1_C1FIFOINT31.getRXHALFIF : TBits_1; inline;
  88905. begin
  88906. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  88907. end;
  88908. procedure TCAN1_C1FIFOINT31.setRXFULLIF; inline;
  88909. begin
  88910. pTDefRegMap(@Self)^.&set := $00000004;
  88911. end;
  88912. procedure TCAN1_C1FIFOINT31.clearRXFULLIF; inline;
  88913. begin
  88914. pTDefRegMap(@Self)^.clr := $00000004;
  88915. end;
  88916. procedure TCAN1_C1FIFOINT31.setRXFULLIF(thebits : TBits_1); inline;
  88917. begin
  88918. if thebits = 0 then
  88919. pTDefRegMap(@Self)^.clr := $00000004
  88920. else
  88921. pTDefRegMap(@Self)^.&set := $00000004;
  88922. end;
  88923. function TCAN1_C1FIFOINT31.getRXFULLIF : TBits_1; inline;
  88924. begin
  88925. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  88926. end;
  88927. procedure TCAN1_C1FIFOINT31.setRXOVFLIF; inline;
  88928. begin
  88929. pTDefRegMap(@Self)^.&set := $00000008;
  88930. end;
  88931. procedure TCAN1_C1FIFOINT31.clearRXOVFLIF; inline;
  88932. begin
  88933. pTDefRegMap(@Self)^.clr := $00000008;
  88934. end;
  88935. procedure TCAN1_C1FIFOINT31.setRXOVFLIF(thebits : TBits_1); inline;
  88936. begin
  88937. if thebits = 0 then
  88938. pTDefRegMap(@Self)^.clr := $00000008
  88939. else
  88940. pTDefRegMap(@Self)^.&set := $00000008;
  88941. end;
  88942. function TCAN1_C1FIFOINT31.getRXOVFLIF : TBits_1; inline;
  88943. begin
  88944. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  88945. end;
  88946. procedure TCAN1_C1FIFOINT31.setTXEMPTYIF; inline;
  88947. begin
  88948. pTDefRegMap(@Self)^.&set := $00000100;
  88949. end;
  88950. procedure TCAN1_C1FIFOINT31.clearTXEMPTYIF; inline;
  88951. begin
  88952. pTDefRegMap(@Self)^.clr := $00000100;
  88953. end;
  88954. procedure TCAN1_C1FIFOINT31.setTXEMPTYIF(thebits : TBits_1); inline;
  88955. begin
  88956. if thebits = 0 then
  88957. pTDefRegMap(@Self)^.clr := $00000100
  88958. else
  88959. pTDefRegMap(@Self)^.&set := $00000100;
  88960. end;
  88961. function TCAN1_C1FIFOINT31.getTXEMPTYIF : TBits_1; inline;
  88962. begin
  88963. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  88964. end;
  88965. procedure TCAN1_C1FIFOINT31.setTXHALFIF; inline;
  88966. begin
  88967. pTDefRegMap(@Self)^.&set := $00000200;
  88968. end;
  88969. procedure TCAN1_C1FIFOINT31.clearTXHALFIF; inline;
  88970. begin
  88971. pTDefRegMap(@Self)^.clr := $00000200;
  88972. end;
  88973. procedure TCAN1_C1FIFOINT31.setTXHALFIF(thebits : TBits_1); inline;
  88974. begin
  88975. if thebits = 0 then
  88976. pTDefRegMap(@Self)^.clr := $00000200
  88977. else
  88978. pTDefRegMap(@Self)^.&set := $00000200;
  88979. end;
  88980. function TCAN1_C1FIFOINT31.getTXHALFIF : TBits_1; inline;
  88981. begin
  88982. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  88983. end;
  88984. procedure TCAN1_C1FIFOINT31.setTXNFULLIF; inline;
  88985. begin
  88986. pTDefRegMap(@Self)^.&set := $00000400;
  88987. end;
  88988. procedure TCAN1_C1FIFOINT31.clearTXNFULLIF; inline;
  88989. begin
  88990. pTDefRegMap(@Self)^.clr := $00000400;
  88991. end;
  88992. procedure TCAN1_C1FIFOINT31.setTXNFULLIF(thebits : TBits_1); inline;
  88993. begin
  88994. if thebits = 0 then
  88995. pTDefRegMap(@Self)^.clr := $00000400
  88996. else
  88997. pTDefRegMap(@Self)^.&set := $00000400;
  88998. end;
  88999. function TCAN1_C1FIFOINT31.getTXNFULLIF : TBits_1; inline;
  89000. begin
  89001. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  89002. end;
  89003. procedure TCAN1_C1FIFOINT31.setRXNEMPTYIE; inline;
  89004. begin
  89005. pTDefRegMap(@Self)^.&set := $00010000;
  89006. end;
  89007. procedure TCAN1_C1FIFOINT31.clearRXNEMPTYIE; inline;
  89008. begin
  89009. pTDefRegMap(@Self)^.clr := $00010000;
  89010. end;
  89011. procedure TCAN1_C1FIFOINT31.setRXNEMPTYIE(thebits : TBits_1); inline;
  89012. begin
  89013. if thebits = 0 then
  89014. pTDefRegMap(@Self)^.clr := $00010000
  89015. else
  89016. pTDefRegMap(@Self)^.&set := $00010000;
  89017. end;
  89018. function TCAN1_C1FIFOINT31.getRXNEMPTYIE : TBits_1; inline;
  89019. begin
  89020. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  89021. end;
  89022. procedure TCAN1_C1FIFOINT31.setRXHALFIE; inline;
  89023. begin
  89024. pTDefRegMap(@Self)^.&set := $00020000;
  89025. end;
  89026. procedure TCAN1_C1FIFOINT31.clearRXHALFIE; inline;
  89027. begin
  89028. pTDefRegMap(@Self)^.clr := $00020000;
  89029. end;
  89030. procedure TCAN1_C1FIFOINT31.setRXHALFIE(thebits : TBits_1); inline;
  89031. begin
  89032. if thebits = 0 then
  89033. pTDefRegMap(@Self)^.clr := $00020000
  89034. else
  89035. pTDefRegMap(@Self)^.&set := $00020000;
  89036. end;
  89037. function TCAN1_C1FIFOINT31.getRXHALFIE : TBits_1; inline;
  89038. begin
  89039. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  89040. end;
  89041. procedure TCAN1_C1FIFOINT31.setRXFULLIE; inline;
  89042. begin
  89043. pTDefRegMap(@Self)^.&set := $00040000;
  89044. end;
  89045. procedure TCAN1_C1FIFOINT31.clearRXFULLIE; inline;
  89046. begin
  89047. pTDefRegMap(@Self)^.clr := $00040000;
  89048. end;
  89049. procedure TCAN1_C1FIFOINT31.setRXFULLIE(thebits : TBits_1); inline;
  89050. begin
  89051. if thebits = 0 then
  89052. pTDefRegMap(@Self)^.clr := $00040000
  89053. else
  89054. pTDefRegMap(@Self)^.&set := $00040000;
  89055. end;
  89056. function TCAN1_C1FIFOINT31.getRXFULLIE : TBits_1; inline;
  89057. begin
  89058. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  89059. end;
  89060. procedure TCAN1_C1FIFOINT31.setRXOVFLIE; inline;
  89061. begin
  89062. pTDefRegMap(@Self)^.&set := $00080000;
  89063. end;
  89064. procedure TCAN1_C1FIFOINT31.clearRXOVFLIE; inline;
  89065. begin
  89066. pTDefRegMap(@Self)^.clr := $00080000;
  89067. end;
  89068. procedure TCAN1_C1FIFOINT31.setRXOVFLIE(thebits : TBits_1); inline;
  89069. begin
  89070. if thebits = 0 then
  89071. pTDefRegMap(@Self)^.clr := $00080000
  89072. else
  89073. pTDefRegMap(@Self)^.&set := $00080000;
  89074. end;
  89075. function TCAN1_C1FIFOINT31.getRXOVFLIE : TBits_1; inline;
  89076. begin
  89077. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  89078. end;
  89079. procedure TCAN1_C1FIFOINT31.setTXEMPTYIE; inline;
  89080. begin
  89081. pTDefRegMap(@Self)^.&set := $01000000;
  89082. end;
  89083. procedure TCAN1_C1FIFOINT31.clearTXEMPTYIE; inline;
  89084. begin
  89085. pTDefRegMap(@Self)^.clr := $01000000;
  89086. end;
  89087. procedure TCAN1_C1FIFOINT31.setTXEMPTYIE(thebits : TBits_1); inline;
  89088. begin
  89089. if thebits = 0 then
  89090. pTDefRegMap(@Self)^.clr := $01000000
  89091. else
  89092. pTDefRegMap(@Self)^.&set := $01000000;
  89093. end;
  89094. function TCAN1_C1FIFOINT31.getTXEMPTYIE : TBits_1; inline;
  89095. begin
  89096. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  89097. end;
  89098. procedure TCAN1_C1FIFOINT31.setTXHALFIE; inline;
  89099. begin
  89100. pTDefRegMap(@Self)^.&set := $02000000;
  89101. end;
  89102. procedure TCAN1_C1FIFOINT31.clearTXHALFIE; inline;
  89103. begin
  89104. pTDefRegMap(@Self)^.clr := $02000000;
  89105. end;
  89106. procedure TCAN1_C1FIFOINT31.setTXHALFIE(thebits : TBits_1); inline;
  89107. begin
  89108. if thebits = 0 then
  89109. pTDefRegMap(@Self)^.clr := $02000000
  89110. else
  89111. pTDefRegMap(@Self)^.&set := $02000000;
  89112. end;
  89113. function TCAN1_C1FIFOINT31.getTXHALFIE : TBits_1; inline;
  89114. begin
  89115. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  89116. end;
  89117. procedure TCAN1_C1FIFOINT31.setTXNFULLIE; inline;
  89118. begin
  89119. pTDefRegMap(@Self)^.&set := $04000000;
  89120. end;
  89121. procedure TCAN1_C1FIFOINT31.clearTXNFULLIE; inline;
  89122. begin
  89123. pTDefRegMap(@Self)^.clr := $04000000;
  89124. end;
  89125. procedure TCAN1_C1FIFOINT31.setTXNFULLIE(thebits : TBits_1); inline;
  89126. begin
  89127. if thebits = 0 then
  89128. pTDefRegMap(@Self)^.clr := $04000000
  89129. else
  89130. pTDefRegMap(@Self)^.&set := $04000000;
  89131. end;
  89132. function TCAN1_C1FIFOINT31.getTXNFULLIE : TBits_1; inline;
  89133. begin
  89134. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  89135. end;
  89136. procedure TCAN1_C1FIFOINT31.setw(thebits : TBits_32); inline;
  89137. begin
  89138. pTDefRegMap(@Self)^.val := thebits;
  89139. end;
  89140. function TCAN1_C1FIFOINT31.getw : TBits_32; inline;
  89141. begin
  89142. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  89143. end;
  89144. procedure TCAN1_C1FIFOCI31.setCFIFOCI(thebits : TBits_5); inline;
  89145. begin
  89146. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  89147. end;
  89148. function TCAN1_C1FIFOCI31.getCFIFOCI : TBits_5; inline;
  89149. begin
  89150. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  89151. end;
  89152. procedure TCAN1_C1FIFOCI31.setw(thebits : TBits_32); inline;
  89153. begin
  89154. pTDefRegMap(@Self)^.val := thebits;
  89155. end;
  89156. function TCAN1_C1FIFOCI31.getw : TBits_32; inline;
  89157. begin
  89158. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  89159. end;
  89160. procedure TDEVCFG_DEVCFG3.setUSERID(thebits : TBits_16); inline;
  89161. begin
  89162. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF0000 or ( thebits shl 0 );
  89163. end;
  89164. function TDEVCFG_DEVCFG3.getUSERID : TBits_16; inline;
  89165. begin
  89166. getUSERID := (pTDefRegMap(@Self)^.val and $0000FFFF) shr 0;
  89167. end;
  89168. procedure TDEVCFG_DEVCFG3.setFSRSSEL(thebits : TBits_3); inline;
  89169. begin
  89170. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFF8FFFF or ( thebits shl 16 );
  89171. end;
  89172. function TDEVCFG_DEVCFG3.getFSRSSEL : TBits_3; inline;
  89173. begin
  89174. getFSRSSEL := (pTDefRegMap(@Self)^.val and $00070000) shr 16;
  89175. end;
  89176. procedure TDEVCFG_DEVCFG3.setFCANIO; inline;
  89177. begin
  89178. pTDefRegMap(@Self)^.&set := $04000000;
  89179. end;
  89180. procedure TDEVCFG_DEVCFG3.clearFCANIO; inline;
  89181. begin
  89182. pTDefRegMap(@Self)^.clr := $04000000;
  89183. end;
  89184. procedure TDEVCFG_DEVCFG3.setFCANIO(thebits : TBits_1); inline;
  89185. begin
  89186. if thebits = 0 then
  89187. pTDefRegMap(@Self)^.clr := $04000000
  89188. else
  89189. pTDefRegMap(@Self)^.&set := $04000000;
  89190. end;
  89191. function TDEVCFG_DEVCFG3.getFCANIO : TBits_1; inline;
  89192. begin
  89193. getFCANIO := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  89194. end;
  89195. procedure TDEVCFG_DEVCFG3.setFUSBIDIO; inline;
  89196. begin
  89197. pTDefRegMap(@Self)^.&set := $40000000;
  89198. end;
  89199. procedure TDEVCFG_DEVCFG3.clearFUSBIDIO; inline;
  89200. begin
  89201. pTDefRegMap(@Self)^.clr := $40000000;
  89202. end;
  89203. procedure TDEVCFG_DEVCFG3.setFUSBIDIO(thebits : TBits_1); inline;
  89204. begin
  89205. if thebits = 0 then
  89206. pTDefRegMap(@Self)^.clr := $40000000
  89207. else
  89208. pTDefRegMap(@Self)^.&set := $40000000;
  89209. end;
  89210. function TDEVCFG_DEVCFG3.getFUSBIDIO : TBits_1; inline;
  89211. begin
  89212. getFUSBIDIO := (pTDefRegMap(@Self)^.val and $40000000) shr 30;
  89213. end;
  89214. procedure TDEVCFG_DEVCFG3.setFVBUSONIO; inline;
  89215. begin
  89216. pTDefRegMap(@Self)^.&set := $80000000;
  89217. end;
  89218. procedure TDEVCFG_DEVCFG3.clearFVBUSONIO; inline;
  89219. begin
  89220. pTDefRegMap(@Self)^.clr := $80000000;
  89221. end;
  89222. procedure TDEVCFG_DEVCFG3.setFVBUSONIO(thebits : TBits_1); inline;
  89223. begin
  89224. if thebits = 0 then
  89225. pTDefRegMap(@Self)^.clr := $80000000
  89226. else
  89227. pTDefRegMap(@Self)^.&set := $80000000;
  89228. end;
  89229. function TDEVCFG_DEVCFG3.getFVBUSONIO : TBits_1; inline;
  89230. begin
  89231. getFVBUSONIO := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  89232. end;
  89233. procedure TDEVCFG_DEVCFG3.setw(thebits : TBits_32); inline;
  89234. begin
  89235. pTDefRegMap(@Self)^.val := thebits;
  89236. end;
  89237. function TDEVCFG_DEVCFG3.getw : TBits_32; inline;
  89238. begin
  89239. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  89240. end;
  89241. procedure TDEVCFG_DEVCFG2.setFPLLIDIV(thebits : TBits_3); inline;
  89242. begin
  89243. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  89244. end;
  89245. function TDEVCFG_DEVCFG2.getFPLLIDIV : TBits_3; inline;
  89246. begin
  89247. getFPLLIDIV := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  89248. end;
  89249. procedure TDEVCFG_DEVCFG2.setFPLLMUL(thebits : TBits_3); inline;
  89250. begin
  89251. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF8F or ( thebits shl 4 );
  89252. end;
  89253. function TDEVCFG_DEVCFG2.getFPLLMUL : TBits_3; inline;
  89254. begin
  89255. getFPLLMUL := (pTDefRegMap(@Self)^.val and $00000070) shr 4;
  89256. end;
  89257. procedure TDEVCFG_DEVCFG2.setUPLLIDIV(thebits : TBits_3); inline;
  89258. begin
  89259. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFF8FF or ( thebits shl 8 );
  89260. end;
  89261. function TDEVCFG_DEVCFG2.getUPLLIDIV : TBits_3; inline;
  89262. begin
  89263. getUPLLIDIV := (pTDefRegMap(@Self)^.val and $00000700) shr 8;
  89264. end;
  89265. procedure TDEVCFG_DEVCFG2.setUPLLEN; inline;
  89266. begin
  89267. pTDefRegMap(@Self)^.&set := $00008000;
  89268. end;
  89269. procedure TDEVCFG_DEVCFG2.clearUPLLEN; inline;
  89270. begin
  89271. pTDefRegMap(@Self)^.clr := $00008000;
  89272. end;
  89273. procedure TDEVCFG_DEVCFG2.setUPLLEN(thebits : TBits_1); inline;
  89274. begin
  89275. if thebits = 0 then
  89276. pTDefRegMap(@Self)^.clr := $00008000
  89277. else
  89278. pTDefRegMap(@Self)^.&set := $00008000;
  89279. end;
  89280. function TDEVCFG_DEVCFG2.getUPLLEN : TBits_1; inline;
  89281. begin
  89282. getUPLLEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  89283. end;
  89284. procedure TDEVCFG_DEVCFG2.setFPLLODIV(thebits : TBits_3); inline;
  89285. begin
  89286. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFF8FFFF or ( thebits shl 16 );
  89287. end;
  89288. function TDEVCFG_DEVCFG2.getFPLLODIV : TBits_3; inline;
  89289. begin
  89290. getFPLLODIV := (pTDefRegMap(@Self)^.val and $00070000) shr 16;
  89291. end;
  89292. procedure TDEVCFG_DEVCFG2.setw(thebits : TBits_32); inline;
  89293. begin
  89294. pTDefRegMap(@Self)^.val := thebits;
  89295. end;
  89296. function TDEVCFG_DEVCFG2.getw : TBits_32; inline;
  89297. begin
  89298. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  89299. end;
  89300. procedure TDEVCFG_DEVCFG1.setFNOSC(thebits : TBits_3); inline;
  89301. begin
  89302. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  89303. end;
  89304. function TDEVCFG_DEVCFG1.getFNOSC : TBits_3; inline;
  89305. begin
  89306. getFNOSC := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  89307. end;
  89308. procedure TDEVCFG_DEVCFG1.setFSOSCEN; inline;
  89309. begin
  89310. pTDefRegMap(@Self)^.&set := $00000020;
  89311. end;
  89312. procedure TDEVCFG_DEVCFG1.clearFSOSCEN; inline;
  89313. begin
  89314. pTDefRegMap(@Self)^.clr := $00000020;
  89315. end;
  89316. procedure TDEVCFG_DEVCFG1.setFSOSCEN(thebits : TBits_1); inline;
  89317. begin
  89318. if thebits = 0 then
  89319. pTDefRegMap(@Self)^.clr := $00000020
  89320. else
  89321. pTDefRegMap(@Self)^.&set := $00000020;
  89322. end;
  89323. function TDEVCFG_DEVCFG1.getFSOSCEN : TBits_1; inline;
  89324. begin
  89325. getFSOSCEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  89326. end;
  89327. procedure TDEVCFG_DEVCFG1.setIESO; inline;
  89328. begin
  89329. pTDefRegMap(@Self)^.&set := $00000080;
  89330. end;
  89331. procedure TDEVCFG_DEVCFG1.clearIESO; inline;
  89332. begin
  89333. pTDefRegMap(@Self)^.clr := $00000080;
  89334. end;
  89335. procedure TDEVCFG_DEVCFG1.setIESO(thebits : TBits_1); inline;
  89336. begin
  89337. if thebits = 0 then
  89338. pTDefRegMap(@Self)^.clr := $00000080
  89339. else
  89340. pTDefRegMap(@Self)^.&set := $00000080;
  89341. end;
  89342. function TDEVCFG_DEVCFG1.getIESO : TBits_1; inline;
  89343. begin
  89344. getIESO := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  89345. end;
  89346. procedure TDEVCFG_DEVCFG1.setPOSCMOD(thebits : TBits_2); inline;
  89347. begin
  89348. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  89349. end;
  89350. function TDEVCFG_DEVCFG1.getPOSCMOD : TBits_2; inline;
  89351. begin
  89352. getPOSCMOD := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  89353. end;
  89354. procedure TDEVCFG_DEVCFG1.setOSCIOFNC; inline;
  89355. begin
  89356. pTDefRegMap(@Self)^.&set := $00000400;
  89357. end;
  89358. procedure TDEVCFG_DEVCFG1.clearOSCIOFNC; inline;
  89359. begin
  89360. pTDefRegMap(@Self)^.clr := $00000400;
  89361. end;
  89362. procedure TDEVCFG_DEVCFG1.setOSCIOFNC(thebits : TBits_1); inline;
  89363. begin
  89364. if thebits = 0 then
  89365. pTDefRegMap(@Self)^.clr := $00000400
  89366. else
  89367. pTDefRegMap(@Self)^.&set := $00000400;
  89368. end;
  89369. function TDEVCFG_DEVCFG1.getOSCIOFNC : TBits_1; inline;
  89370. begin
  89371. getOSCIOFNC := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  89372. end;
  89373. procedure TDEVCFG_DEVCFG1.setFPBDIV(thebits : TBits_2); inline;
  89374. begin
  89375. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFCFFF or ( thebits shl 12 );
  89376. end;
  89377. function TDEVCFG_DEVCFG1.getFPBDIV : TBits_2; inline;
  89378. begin
  89379. getFPBDIV := (pTDefRegMap(@Self)^.val and $00003000) shr 12;
  89380. end;
  89381. procedure TDEVCFG_DEVCFG1.setFCKSM(thebits : TBits_2); inline;
  89382. begin
  89383. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  89384. end;
  89385. function TDEVCFG_DEVCFG1.getFCKSM : TBits_2; inline;
  89386. begin
  89387. getFCKSM := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  89388. end;
  89389. procedure TDEVCFG_DEVCFG1.setWDTPS(thebits : TBits_5); inline;
  89390. begin
  89391. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  89392. end;
  89393. function TDEVCFG_DEVCFG1.getWDTPS : TBits_5; inline;
  89394. begin
  89395. getWDTPS := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  89396. end;
  89397. procedure TDEVCFG_DEVCFG1.setFWDTEN; inline;
  89398. begin
  89399. pTDefRegMap(@Self)^.&set := $00800000;
  89400. end;
  89401. procedure TDEVCFG_DEVCFG1.clearFWDTEN; inline;
  89402. begin
  89403. pTDefRegMap(@Self)^.clr := $00800000;
  89404. end;
  89405. procedure TDEVCFG_DEVCFG1.setFWDTEN(thebits : TBits_1); inline;
  89406. begin
  89407. if thebits = 0 then
  89408. pTDefRegMap(@Self)^.clr := $00800000
  89409. else
  89410. pTDefRegMap(@Self)^.&set := $00800000;
  89411. end;
  89412. function TDEVCFG_DEVCFG1.getFWDTEN : TBits_1; inline;
  89413. begin
  89414. getFWDTEN := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
  89415. end;
  89416. procedure TDEVCFG_DEVCFG1.setw(thebits : TBits_32); inline;
  89417. begin
  89418. pTDefRegMap(@Self)^.val := thebits;
  89419. end;
  89420. function TDEVCFG_DEVCFG1.getw : TBits_32; inline;
  89421. begin
  89422. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  89423. end;
  89424. procedure TDEVCFG_DEVCFG0.setDEBUG(thebits : TBits_2); inline;
  89425. begin
  89426. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  89427. end;
  89428. function TDEVCFG_DEVCFG0.getDEBUG : TBits_2; inline;
  89429. begin
  89430. getDEBUG := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  89431. end;
  89432. procedure TDEVCFG_DEVCFG0.setICESEL; inline;
  89433. begin
  89434. pTDefRegMap(@Self)^.&set := $00000008;
  89435. end;
  89436. procedure TDEVCFG_DEVCFG0.clearICESEL; inline;
  89437. begin
  89438. pTDefRegMap(@Self)^.clr := $00000008;
  89439. end;
  89440. procedure TDEVCFG_DEVCFG0.setICESEL(thebits : TBits_1); inline;
  89441. begin
  89442. if thebits = 0 then
  89443. pTDefRegMap(@Self)^.clr := $00000008
  89444. else
  89445. pTDefRegMap(@Self)^.&set := $00000008;
  89446. end;
  89447. function TDEVCFG_DEVCFG0.getICESEL : TBits_1; inline;
  89448. begin
  89449. getICESEL := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  89450. end;
  89451. procedure TDEVCFG_DEVCFG0.setPWP(thebits : TBits_8); inline;
  89452. begin
  89453. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFF00FFF or ( thebits shl 12 );
  89454. end;
  89455. function TDEVCFG_DEVCFG0.getPWP : TBits_8; inline;
  89456. begin
  89457. getPWP := (pTDefRegMap(@Self)^.val and $000FF000) shr 12;
  89458. end;
  89459. procedure TDEVCFG_DEVCFG0.setBWP; inline;
  89460. begin
  89461. pTDefRegMap(@Self)^.&set := $01000000;
  89462. end;
  89463. procedure TDEVCFG_DEVCFG0.clearBWP; inline;
  89464. begin
  89465. pTDefRegMap(@Self)^.clr := $01000000;
  89466. end;
  89467. procedure TDEVCFG_DEVCFG0.setBWP(thebits : TBits_1); inline;
  89468. begin
  89469. if thebits = 0 then
  89470. pTDefRegMap(@Self)^.clr := $01000000
  89471. else
  89472. pTDefRegMap(@Self)^.&set := $01000000;
  89473. end;
  89474. function TDEVCFG_DEVCFG0.getBWP : TBits_1; inline;
  89475. begin
  89476. getBWP := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  89477. end;
  89478. procedure TDEVCFG_DEVCFG0.setCP; inline;
  89479. begin
  89480. pTDefRegMap(@Self)^.&set := $10000000;
  89481. end;
  89482. procedure TDEVCFG_DEVCFG0.clearCP; inline;
  89483. begin
  89484. pTDefRegMap(@Self)^.clr := $10000000;
  89485. end;
  89486. procedure TDEVCFG_DEVCFG0.setCP(thebits : TBits_1); inline;
  89487. begin
  89488. if thebits = 0 then
  89489. pTDefRegMap(@Self)^.clr := $10000000
  89490. else
  89491. pTDefRegMap(@Self)^.&set := $10000000;
  89492. end;
  89493. function TDEVCFG_DEVCFG0.getCP : TBits_1; inline;
  89494. begin
  89495. getCP := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  89496. end;
  89497. procedure TDEVCFG_DEVCFG0.setFDEBUG(thebits : TBits_2); inline;
  89498. begin
  89499. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  89500. end;
  89501. function TDEVCFG_DEVCFG0.getFDEBUG : TBits_2; inline;
  89502. begin
  89503. getFDEBUG := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  89504. end;
  89505. procedure TDEVCFG_DEVCFG0.setw(thebits : TBits_32); inline;
  89506. begin
  89507. pTDefRegMap(@Self)^.val := thebits;
  89508. end;
  89509. function TDEVCFG_DEVCFG0.getw : TBits_32; inline;
  89510. begin
  89511. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  89512. end;
  89513. procedure _CORE_TIMER_VECTOR_interrupt; external name '_CORE_TIMER_VECTOR_interrupt';
  89514. procedure _CORE_SOFTWARE_0_VECTOR_interrupt; external name '_CORE_SOFTWARE_0_VECTOR_interrupt';
  89515. procedure _CORE_SOFTWARE_1_VECTOR_interrupt; external name '_CORE_SOFTWARE_1_VECTOR_interrupt';
  89516. procedure _EXTERNAL_0_VECTOR_interrupt; external name '_EXTERNAL_0_VECTOR_interrupt';
  89517. procedure _TIMER_1_VECTOR_interrupt; external name '_TIMER_1_VECTOR_interrupt';
  89518. procedure _INPUT_CAPTURE_1_VECTOR_interrupt; external name '_INPUT_CAPTURE_1_VECTOR_interrupt';
  89519. procedure _OUTPUT_COMPARE_1_VECTOR_interrupt; external name '_OUTPUT_COMPARE_1_VECTOR_interrupt';
  89520. procedure _EXTERNAL_1_VECTOR_interrupt; external name '_EXTERNAL_1_VECTOR_interrupt';
  89521. procedure _TIMER_2_VECTOR_interrupt; external name '_TIMER_2_VECTOR_interrupt';
  89522. procedure _INPUT_CAPTURE_2_VECTOR_interrupt; external name '_INPUT_CAPTURE_2_VECTOR_interrupt';
  89523. procedure _OUTPUT_COMPARE_2_VECTOR_interrupt; external name '_OUTPUT_COMPARE_2_VECTOR_interrupt';
  89524. procedure _EXTERNAL_2_VECTOR_interrupt; external name '_EXTERNAL_2_VECTOR_interrupt';
  89525. procedure _TIMER_3_VECTOR_interrupt; external name '_TIMER_3_VECTOR_interrupt';
  89526. procedure _INPUT_CAPTURE_3_VECTOR_interrupt; external name '_INPUT_CAPTURE_3_VECTOR_interrupt';
  89527. procedure _OUTPUT_COMPARE_3_VECTOR_interrupt; external name '_OUTPUT_COMPARE_3_VECTOR_interrupt';
  89528. procedure _EXTERNAL_3_VECTOR_interrupt; external name '_EXTERNAL_3_VECTOR_interrupt';
  89529. procedure _TIMER_4_VECTOR_interrupt; external name '_TIMER_4_VECTOR_interrupt';
  89530. procedure _INPUT_CAPTURE_4_VECTOR_interrupt; external name '_INPUT_CAPTURE_4_VECTOR_interrupt';
  89531. procedure _OUTPUT_COMPARE_4_VECTOR_interrupt; external name '_OUTPUT_COMPARE_4_VECTOR_interrupt';
  89532. procedure _EXTERNAL_4_VECTOR_interrupt; external name '_EXTERNAL_4_VECTOR_interrupt';
  89533. procedure _TIMER_5_VECTOR_interrupt; external name '_TIMER_5_VECTOR_interrupt';
  89534. procedure _INPUT_CAPTURE_5_VECTOR_interrupt; external name '_INPUT_CAPTURE_5_VECTOR_interrupt';
  89535. procedure _OUTPUT_COMPARE_5_VECTOR_interrupt; external name '_OUTPUT_COMPARE_5_VECTOR_interrupt';
  89536. procedure _SPI_1_VECTOR_interrupt; external name '_SPI_1_VECTOR_interrupt';
  89537. procedure _SPI_1A_VECTOR_interrupt; external name '_SPI_1A_VECTOR_interrupt';
  89538. procedure _UART_1_VECTOR_interrupt; external name '_UART_1_VECTOR_interrupt';
  89539. procedure _UART_1A_VECTOR_interrupt; external name '_UART_1A_VECTOR_interrupt';
  89540. procedure _I2C_3_VECTOR_interrupt; external name '_I2C_3_VECTOR_interrupt';
  89541. procedure _I2C_1A_VECTOR_interrupt; external name '_I2C_1A_VECTOR_interrupt';
  89542. procedure _SPI_3_VECTOR_interrupt; external name '_SPI_3_VECTOR_interrupt';
  89543. procedure _I2C_1_VECTOR_interrupt; external name '_I2C_1_VECTOR_interrupt';
  89544. procedure _CHANGE_NOTICE_VECTOR_interrupt; external name '_CHANGE_NOTICE_VECTOR_interrupt';
  89545. procedure _ADC_VECTOR_interrupt; external name '_ADC_VECTOR_interrupt';
  89546. procedure _PMP_VECTOR_interrupt; external name '_PMP_VECTOR_interrupt';
  89547. procedure _COMPARATOR_1_VECTOR_interrupt; external name '_COMPARATOR_1_VECTOR_interrupt';
  89548. procedure _COMPARATOR_2_VECTOR_interrupt; external name '_COMPARATOR_2_VECTOR_interrupt';
  89549. procedure _SPI_2A_VECTOR_interrupt; external name '_SPI_2A_VECTOR_interrupt';
  89550. procedure _UART_3_VECTOR_interrupt; external name '_UART_3_VECTOR_interrupt';
  89551. procedure _UART_2A_VECTOR_interrupt; external name '_UART_2A_VECTOR_interrupt';
  89552. procedure _I2C_4_VECTOR_interrupt; external name '_I2C_4_VECTOR_interrupt';
  89553. procedure _I2C_2A_VECTOR_interrupt; external name '_I2C_2A_VECTOR_interrupt';
  89554. procedure _SPI_2_VECTOR_interrupt; external name '_SPI_2_VECTOR_interrupt';
  89555. procedure _SPI_3A_VECTOR_interrupt; external name '_SPI_3A_VECTOR_interrupt';
  89556. procedure _UART_2_VECTOR_interrupt; external name '_UART_2_VECTOR_interrupt';
  89557. procedure _UART_3A_VECTOR_interrupt; external name '_UART_3A_VECTOR_interrupt';
  89558. procedure _I2C_5_VECTOR_interrupt; external name '_I2C_5_VECTOR_interrupt';
  89559. procedure _I2C_3A_VECTOR_interrupt; external name '_I2C_3A_VECTOR_interrupt';
  89560. procedure _SPI_4_VECTOR_interrupt; external name '_SPI_4_VECTOR_interrupt';
  89561. procedure _I2C_2_VECTOR_interrupt; external name '_I2C_2_VECTOR_interrupt';
  89562. procedure _FAIL_SAFE_MONITOR_VECTOR_interrupt; external name '_FAIL_SAFE_MONITOR_VECTOR_interrupt';
  89563. procedure _RTCC_VECTOR_interrupt; external name '_RTCC_VECTOR_interrupt';
  89564. procedure _DMA_0_VECTOR_interrupt; external name '_DMA_0_VECTOR_interrupt';
  89565. procedure _DMA_1_VECTOR_interrupt; external name '_DMA_1_VECTOR_interrupt';
  89566. procedure _DMA_2_VECTOR_interrupt; external name '_DMA_2_VECTOR_interrupt';
  89567. procedure _DMA_3_VECTOR_interrupt; external name '_DMA_3_VECTOR_interrupt';
  89568. procedure _DMA_4_VECTOR_interrupt; external name '_DMA_4_VECTOR_interrupt';
  89569. procedure _DMA_5_VECTOR_interrupt; external name '_DMA_5_VECTOR_interrupt';
  89570. procedure _DMA_6_VECTOR_interrupt; external name '_DMA_6_VECTOR_interrupt';
  89571. procedure _DMA_7_VECTOR_interrupt; external name '_DMA_7_VECTOR_interrupt';
  89572. procedure _FCE_VECTOR_interrupt; external name '_FCE_VECTOR_interrupt';
  89573. procedure _USB_1_VECTOR_interrupt; external name '_USB_1_VECTOR_interrupt';
  89574. procedure _CAN_1_VECTOR_interrupt; external name '_CAN_1_VECTOR_interrupt';
  89575. procedure _UART_1B_VECTOR_interrupt; external name '_UART_1B_VECTOR_interrupt';
  89576. procedure _UART_4_VECTOR_interrupt; external name '_UART_4_VECTOR_interrupt';
  89577. procedure _UART_2B_VECTOR_interrupt; external name '_UART_2B_VECTOR_interrupt';
  89578. procedure _UART_6_VECTOR_interrupt; external name '_UART_6_VECTOR_interrupt';
  89579. procedure _UART_3B_VECTOR_interrupt; external name '_UART_3B_VECTOR_interrupt';
  89580. procedure _UART_5_VECTOR_interrupt; external name '_UART_5_VECTOR_interrupt';
  89581. procedure Vectors; assembler; nostackframe;
  89582. label interrupt_vectors;
  89583. asm
  89584. .section ".init.interrupt_vectors,\"ax\",@progbits"
  89585. interrupt_vectors:
  89586. j _CORE_TIMER_VECTOR_interrupt
  89587. nop
  89588. nop
  89589. nop
  89590. nop
  89591. nop
  89592. nop
  89593. nop
  89594. j _CORE_SOFTWARE_0_VECTOR_interrupt
  89595. nop
  89596. nop
  89597. nop
  89598. nop
  89599. nop
  89600. nop
  89601. nop
  89602. j _CORE_SOFTWARE_1_VECTOR_interrupt
  89603. nop
  89604. nop
  89605. nop
  89606. nop
  89607. nop
  89608. nop
  89609. nop
  89610. j _EXTERNAL_0_VECTOR_interrupt
  89611. nop
  89612. nop
  89613. nop
  89614. nop
  89615. nop
  89616. nop
  89617. nop
  89618. j _TIMER_1_VECTOR_interrupt
  89619. nop
  89620. nop
  89621. nop
  89622. nop
  89623. nop
  89624. nop
  89625. nop
  89626. j _INPUT_CAPTURE_1_VECTOR_interrupt
  89627. nop
  89628. nop
  89629. nop
  89630. nop
  89631. nop
  89632. nop
  89633. nop
  89634. j _OUTPUT_COMPARE_1_VECTOR_interrupt
  89635. nop
  89636. nop
  89637. nop
  89638. nop
  89639. nop
  89640. nop
  89641. nop
  89642. j _EXTERNAL_1_VECTOR_interrupt
  89643. nop
  89644. nop
  89645. nop
  89646. nop
  89647. nop
  89648. nop
  89649. nop
  89650. j _TIMER_2_VECTOR_interrupt
  89651. nop
  89652. nop
  89653. nop
  89654. nop
  89655. nop
  89656. nop
  89657. nop
  89658. j _INPUT_CAPTURE_2_VECTOR_interrupt
  89659. nop
  89660. nop
  89661. nop
  89662. nop
  89663. nop
  89664. nop
  89665. nop
  89666. j _OUTPUT_COMPARE_2_VECTOR_interrupt
  89667. nop
  89668. nop
  89669. nop
  89670. nop
  89671. nop
  89672. nop
  89673. nop
  89674. j _EXTERNAL_2_VECTOR_interrupt
  89675. nop
  89676. nop
  89677. nop
  89678. nop
  89679. nop
  89680. nop
  89681. nop
  89682. j _TIMER_3_VECTOR_interrupt
  89683. nop
  89684. nop
  89685. nop
  89686. nop
  89687. nop
  89688. nop
  89689. nop
  89690. j _INPUT_CAPTURE_3_VECTOR_interrupt
  89691. nop
  89692. nop
  89693. nop
  89694. nop
  89695. nop
  89696. nop
  89697. nop
  89698. j _OUTPUT_COMPARE_3_VECTOR_interrupt
  89699. nop
  89700. nop
  89701. nop
  89702. nop
  89703. nop
  89704. nop
  89705. nop
  89706. j _EXTERNAL_3_VECTOR_interrupt
  89707. nop
  89708. nop
  89709. nop
  89710. nop
  89711. nop
  89712. nop
  89713. nop
  89714. j _TIMER_4_VECTOR_interrupt
  89715. nop
  89716. nop
  89717. nop
  89718. nop
  89719. nop
  89720. nop
  89721. nop
  89722. j _INPUT_CAPTURE_4_VECTOR_interrupt
  89723. nop
  89724. nop
  89725. nop
  89726. nop
  89727. nop
  89728. nop
  89729. nop
  89730. j _OUTPUT_COMPARE_4_VECTOR_interrupt
  89731. nop
  89732. nop
  89733. nop
  89734. nop
  89735. nop
  89736. nop
  89737. nop
  89738. j _EXTERNAL_4_VECTOR_interrupt
  89739. nop
  89740. nop
  89741. nop
  89742. nop
  89743. nop
  89744. nop
  89745. nop
  89746. j _TIMER_5_VECTOR_interrupt
  89747. nop
  89748. nop
  89749. nop
  89750. nop
  89751. nop
  89752. nop
  89753. nop
  89754. j _INPUT_CAPTURE_5_VECTOR_interrupt
  89755. nop
  89756. nop
  89757. nop
  89758. nop
  89759. nop
  89760. nop
  89761. nop
  89762. j _OUTPUT_COMPARE_5_VECTOR_interrupt
  89763. nop
  89764. nop
  89765. nop
  89766. nop
  89767. nop
  89768. nop
  89769. nop
  89770. j _SPI_1_VECTOR_interrupt
  89771. nop
  89772. nop
  89773. nop
  89774. nop
  89775. nop
  89776. nop
  89777. nop
  89778. j _SPI_1A_VECTOR_interrupt
  89779. nop
  89780. nop
  89781. nop
  89782. nop
  89783. nop
  89784. nop
  89785. nop
  89786. j _I2C_1_VECTOR_interrupt
  89787. nop
  89788. nop
  89789. nop
  89790. nop
  89791. nop
  89792. nop
  89793. nop
  89794. j _CHANGE_NOTICE_VECTOR_interrupt
  89795. nop
  89796. nop
  89797. nop
  89798. nop
  89799. nop
  89800. nop
  89801. nop
  89802. j _ADC_VECTOR_interrupt
  89803. nop
  89804. nop
  89805. nop
  89806. nop
  89807. nop
  89808. nop
  89809. nop
  89810. j _PMP_VECTOR_interrupt
  89811. nop
  89812. nop
  89813. nop
  89814. nop
  89815. nop
  89816. nop
  89817. nop
  89818. j _COMPARATOR_1_VECTOR_interrupt
  89819. nop
  89820. nop
  89821. nop
  89822. nop
  89823. nop
  89824. nop
  89825. nop
  89826. j _COMPARATOR_2_VECTOR_interrupt
  89827. nop
  89828. nop
  89829. nop
  89830. nop
  89831. nop
  89832. nop
  89833. nop
  89834. j _SPI_2A_VECTOR_interrupt
  89835. nop
  89836. nop
  89837. nop
  89838. nop
  89839. nop
  89840. nop
  89841. nop
  89842. j _SPI_3A_VECTOR_interrupt
  89843. nop
  89844. nop
  89845. nop
  89846. nop
  89847. nop
  89848. nop
  89849. nop
  89850. j _I2C_2_VECTOR_interrupt
  89851. nop
  89852. nop
  89853. nop
  89854. nop
  89855. nop
  89856. nop
  89857. nop
  89858. j _FAIL_SAFE_MONITOR_VECTOR_interrupt
  89859. nop
  89860. nop
  89861. nop
  89862. nop
  89863. nop
  89864. nop
  89865. nop
  89866. j _RTCC_VECTOR_interrupt
  89867. nop
  89868. nop
  89869. nop
  89870. nop
  89871. nop
  89872. nop
  89873. nop
  89874. j _DMA_0_VECTOR_interrupt
  89875. nop
  89876. nop
  89877. nop
  89878. nop
  89879. nop
  89880. nop
  89881. nop
  89882. j _DMA_1_VECTOR_interrupt
  89883. nop
  89884. nop
  89885. nop
  89886. nop
  89887. nop
  89888. nop
  89889. nop
  89890. j _DMA_2_VECTOR_interrupt
  89891. nop
  89892. nop
  89893. nop
  89894. nop
  89895. nop
  89896. nop
  89897. nop
  89898. j _DMA_3_VECTOR_interrupt
  89899. nop
  89900. nop
  89901. nop
  89902. nop
  89903. nop
  89904. nop
  89905. nop
  89906. j _DMA_4_VECTOR_interrupt
  89907. nop
  89908. nop
  89909. nop
  89910. nop
  89911. nop
  89912. nop
  89913. nop
  89914. j _DMA_5_VECTOR_interrupt
  89915. nop
  89916. nop
  89917. nop
  89918. nop
  89919. nop
  89920. nop
  89921. nop
  89922. j _DMA_6_VECTOR_interrupt
  89923. nop
  89924. nop
  89925. nop
  89926. nop
  89927. nop
  89928. nop
  89929. nop
  89930. j _DMA_7_VECTOR_interrupt
  89931. nop
  89932. nop
  89933. nop
  89934. nop
  89935. nop
  89936. nop
  89937. nop
  89938. j _FCE_VECTOR_interrupt
  89939. nop
  89940. nop
  89941. nop
  89942. nop
  89943. nop
  89944. nop
  89945. nop
  89946. j _USB_1_VECTOR_interrupt
  89947. nop
  89948. nop
  89949. nop
  89950. nop
  89951. nop
  89952. nop
  89953. nop
  89954. j _CAN_1_VECTOR_interrupt
  89955. nop
  89956. nop
  89957. nop
  89958. nop
  89959. nop
  89960. nop
  89961. nop
  89962. nop
  89963. nop
  89964. nop
  89965. nop
  89966. nop
  89967. nop
  89968. nop
  89969. nop
  89970. nop
  89971. nop
  89972. nop
  89973. nop
  89974. nop
  89975. nop
  89976. nop
  89977. nop
  89978. j _UART_1B_VECTOR_interrupt
  89979. nop
  89980. nop
  89981. nop
  89982. nop
  89983. nop
  89984. nop
  89985. nop
  89986. j _UART_2B_VECTOR_interrupt
  89987. nop
  89988. nop
  89989. nop
  89990. nop
  89991. nop
  89992. nop
  89993. nop
  89994. j _UART_3B_VECTOR_interrupt
  89995. nop
  89996. nop
  89997. nop
  89998. nop
  89999. nop
  90000. nop
  90001. nop
  90002. .weak _CORE_TIMER_VECTOR_interrupt
  90003. .weak _CORE_SOFTWARE_0_VECTOR_interrupt
  90004. .weak _CORE_SOFTWARE_1_VECTOR_interrupt
  90005. .weak _EXTERNAL_0_VECTOR_interrupt
  90006. .weak _TIMER_1_VECTOR_interrupt
  90007. .weak _INPUT_CAPTURE_1_VECTOR_interrupt
  90008. .weak _OUTPUT_COMPARE_1_VECTOR_interrupt
  90009. .weak _EXTERNAL_1_VECTOR_interrupt
  90010. .weak _TIMER_2_VECTOR_interrupt
  90011. .weak _INPUT_CAPTURE_2_VECTOR_interrupt
  90012. .weak _OUTPUT_COMPARE_2_VECTOR_interrupt
  90013. .weak _EXTERNAL_2_VECTOR_interrupt
  90014. .weak _TIMER_3_VECTOR_interrupt
  90015. .weak _INPUT_CAPTURE_3_VECTOR_interrupt
  90016. .weak _OUTPUT_COMPARE_3_VECTOR_interrupt
  90017. .weak _EXTERNAL_3_VECTOR_interrupt
  90018. .weak _TIMER_4_VECTOR_interrupt
  90019. .weak _INPUT_CAPTURE_4_VECTOR_interrupt
  90020. .weak _OUTPUT_COMPARE_4_VECTOR_interrupt
  90021. .weak _EXTERNAL_4_VECTOR_interrupt
  90022. .weak _TIMER_5_VECTOR_interrupt
  90023. .weak _INPUT_CAPTURE_5_VECTOR_interrupt
  90024. .weak _OUTPUT_COMPARE_5_VECTOR_interrupt
  90025. .weak _SPI_1_VECTOR_interrupt
  90026. .weak _SPI_1A_VECTOR_interrupt
  90027. .weak _UART_1_VECTOR_interrupt
  90028. .weak _UART_1A_VECTOR_interrupt
  90029. .weak _I2C_3_VECTOR_interrupt
  90030. .weak _I2C_1A_VECTOR_interrupt
  90031. .weak _SPI_3_VECTOR_interrupt
  90032. .weak _I2C_1_VECTOR_interrupt
  90033. .weak _CHANGE_NOTICE_VECTOR_interrupt
  90034. .weak _ADC_VECTOR_interrupt
  90035. .weak _PMP_VECTOR_interrupt
  90036. .weak _COMPARATOR_1_VECTOR_interrupt
  90037. .weak _COMPARATOR_2_VECTOR_interrupt
  90038. .weak _SPI_2A_VECTOR_interrupt
  90039. .weak _UART_3_VECTOR_interrupt
  90040. .weak _UART_2A_VECTOR_interrupt
  90041. .weak _I2C_4_VECTOR_interrupt
  90042. .weak _I2C_2A_VECTOR_interrupt
  90043. .weak _SPI_2_VECTOR_interrupt
  90044. .weak _SPI_3A_VECTOR_interrupt
  90045. .weak _UART_2_VECTOR_interrupt
  90046. .weak _UART_3A_VECTOR_interrupt
  90047. .weak _I2C_5_VECTOR_interrupt
  90048. .weak _I2C_3A_VECTOR_interrupt
  90049. .weak _SPI_4_VECTOR_interrupt
  90050. .weak _I2C_2_VECTOR_interrupt
  90051. .weak _FAIL_SAFE_MONITOR_VECTOR_interrupt
  90052. .weak _RTCC_VECTOR_interrupt
  90053. .weak _DMA_0_VECTOR_interrupt
  90054. .weak _DMA_1_VECTOR_interrupt
  90055. .weak _DMA_2_VECTOR_interrupt
  90056. .weak _DMA_3_VECTOR_interrupt
  90057. .weak _DMA_4_VECTOR_interrupt
  90058. .weak _DMA_5_VECTOR_interrupt
  90059. .weak _DMA_6_VECTOR_interrupt
  90060. .weak _DMA_7_VECTOR_interrupt
  90061. .weak _FCE_VECTOR_interrupt
  90062. .weak _USB_1_VECTOR_interrupt
  90063. .weak _CAN_1_VECTOR_interrupt
  90064. .weak _UART_1B_VECTOR_interrupt
  90065. .weak _UART_4_VECTOR_interrupt
  90066. .weak _UART_2B_VECTOR_interrupt
  90067. .weak _UART_6_VECTOR_interrupt
  90068. .weak _UART_3B_VECTOR_interrupt
  90069. .weak _UART_5_VECTOR_interrupt
  90070. .text
  90071. end;
  90072. end.