pic32mx420f032h.pp 756 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758175917601761176217631764176517661767176817691770177117721773177417751776177717781779178017811782178317841785178617871788178917901791179217931794179517961797179817991800180118021803180418051806180718081809181018111812181318141815181618171818181918201821182218231824182518261827182818291830183118321833183418351836183718381839184018411842184318441845184618471848184918501851185218531854185518561857185818591860186118621863186418651866186718681869187018711872187318741875187618771878187918801881188218831884188518861887188818891890189118921893189418951896189718981899190019011902190319041905190619071908190919101911191219131914191519161917191819191920192119221923192419251926192719281929193019311932193319341935193619371938193919401941194219431944194519461947194819491950195119521953195419551956195719581959196019611962196319641965196619671968196919701971197219731974197519761977197819791980198119821983198419851986198719881989199019911992199319941995199619971998199920002001200220032004200520062007200820092010201120122013201420152016201720182019202020212022202320242025202620272028202920302031203220332034203520362037203820392040204120422043204420452046204720482049205020512052205320542055205620572058205920602061206220632064206520662067206820692070207120722073207420752076207720782079208020812082208320842085208620872088208920902091209220932094209520962097209820992100210121022103210421052106210721082109211021112112211321142115211621172118211921202121212221232124212521262127212821292130213121322133213421352136213721382139214021412142214321442145214621472148214921502151215221532154215521562157215821592160216121622163216421652166216721682169217021712172217321742175217621772178217921802181218221832184218521862187218821892190219121922193219421952196219721982199220022012202220322042205220622072208220922102211221222132214221522162217221822192220222122222223222422252226222722282229223022312232223322342235223622372238223922402241224222432244224522462247224822492250225122522253225422552256225722582259226022612262226322642265226622672268226922702271227222732274227522762277227822792280228122822283228422852286228722882289229022912292229322942295229622972298229923002301230223032304230523062307230823092310231123122313231423152316231723182319232023212322232323242325232623272328232923302331233223332334233523362337233823392340234123422343234423452346234723482349235023512352235323542355235623572358235923602361236223632364236523662367236823692370237123722373237423752376237723782379238023812382238323842385238623872388238923902391239223932394239523962397239823992400240124022403240424052406240724082409241024112412241324142415241624172418241924202421242224232424242524262427242824292430243124322433243424352436243724382439244024412442244324442445244624472448244924502451245224532454245524562457245824592460246124622463246424652466246724682469247024712472247324742475247624772478247924802481248224832484248524862487248824892490249124922493249424952496249724982499250025012502250325042505250625072508250925102511251225132514251525162517251825192520252125222523252425252526252725282529253025312532253325342535253625372538253925402541254225432544254525462547254825492550255125522553255425552556255725582559256025612562256325642565256625672568256925702571257225732574257525762577257825792580258125822583258425852586258725882589259025912592259325942595259625972598259926002601260226032604260526062607260826092610261126122613261426152616261726182619262026212622262326242625262626272628262926302631263226332634263526362637263826392640264126422643264426452646264726482649265026512652265326542655265626572658265926602661266226632664266526662667266826692670267126722673267426752676267726782679268026812682268326842685268626872688268926902691269226932694269526962697269826992700270127022703270427052706270727082709271027112712271327142715271627172718271927202721272227232724272527262727272827292730273127322733273427352736273727382739274027412742274327442745274627472748274927502751275227532754275527562757275827592760276127622763276427652766276727682769277027712772277327742775277627772778277927802781278227832784278527862787278827892790279127922793279427952796279727982799280028012802280328042805280628072808280928102811281228132814281528162817281828192820282128222823282428252826282728282829283028312832283328342835283628372838283928402841284228432844284528462847284828492850285128522853285428552856285728582859286028612862286328642865286628672868286928702871287228732874287528762877287828792880288128822883288428852886288728882889289028912892289328942895289628972898289929002901290229032904290529062907290829092910291129122913291429152916291729182919292029212922292329242925292629272928292929302931293229332934293529362937293829392940294129422943294429452946294729482949295029512952295329542955295629572958295929602961296229632964296529662967296829692970297129722973297429752976297729782979298029812982298329842985298629872988298929902991299229932994299529962997299829993000300130023003300430053006300730083009301030113012301330143015301630173018301930203021302230233024302530263027302830293030303130323033303430353036303730383039304030413042304330443045304630473048304930503051305230533054305530563057305830593060306130623063306430653066306730683069307030713072307330743075307630773078307930803081308230833084308530863087308830893090309130923093309430953096309730983099310031013102310331043105310631073108310931103111311231133114311531163117311831193120312131223123312431253126312731283129313031313132313331343135313631373138313931403141314231433144314531463147314831493150315131523153315431553156315731583159316031613162316331643165316631673168316931703171317231733174317531763177317831793180318131823183318431853186318731883189319031913192319331943195319631973198319932003201320232033204320532063207320832093210321132123213321432153216321732183219322032213222322332243225322632273228322932303231323232333234323532363237323832393240324132423243324432453246324732483249325032513252325332543255325632573258325932603261326232633264326532663267326832693270327132723273327432753276327732783279328032813282328332843285328632873288328932903291329232933294329532963297329832993300330133023303330433053306330733083309331033113312331333143315331633173318331933203321332233233324332533263327332833293330333133323333333433353336333733383339334033413342334333443345334633473348334933503351335233533354335533563357335833593360336133623363336433653366336733683369337033713372337333743375337633773378337933803381338233833384338533863387338833893390339133923393339433953396339733983399340034013402340334043405340634073408340934103411341234133414341534163417341834193420342134223423342434253426342734283429343034313432343334343435343634373438343934403441344234433444344534463447344834493450345134523453345434553456345734583459346034613462346334643465346634673468346934703471347234733474347534763477347834793480348134823483348434853486348734883489349034913492349334943495349634973498349935003501350235033504350535063507350835093510351135123513351435153516351735183519352035213522352335243525352635273528352935303531353235333534353535363537353835393540354135423543354435453546354735483549355035513552355335543555355635573558355935603561356235633564356535663567356835693570357135723573357435753576357735783579358035813582358335843585358635873588358935903591359235933594359535963597359835993600360136023603360436053606360736083609361036113612361336143615361636173618361936203621362236233624362536263627362836293630363136323633363436353636363736383639364036413642364336443645364636473648364936503651365236533654365536563657365836593660366136623663366436653666366736683669367036713672367336743675367636773678367936803681368236833684368536863687368836893690369136923693369436953696369736983699370037013702370337043705370637073708370937103711371237133714371537163717371837193720372137223723372437253726372737283729373037313732373337343735373637373738373937403741374237433744374537463747374837493750375137523753375437553756375737583759376037613762376337643765376637673768376937703771377237733774377537763777377837793780378137823783378437853786378737883789379037913792379337943795379637973798379938003801380238033804380538063807380838093810381138123813381438153816381738183819382038213822382338243825382638273828382938303831383238333834383538363837383838393840384138423843384438453846384738483849385038513852385338543855385638573858385938603861386238633864386538663867386838693870387138723873387438753876387738783879388038813882388338843885388638873888388938903891389238933894389538963897389838993900390139023903390439053906390739083909391039113912391339143915391639173918391939203921392239233924392539263927392839293930393139323933393439353936393739383939394039413942394339443945394639473948394939503951395239533954395539563957395839593960396139623963396439653966396739683969397039713972397339743975397639773978397939803981398239833984398539863987398839893990399139923993399439953996399739983999400040014002400340044005400640074008400940104011401240134014401540164017401840194020402140224023402440254026402740284029403040314032403340344035403640374038403940404041404240434044404540464047404840494050405140524053405440554056405740584059406040614062406340644065406640674068406940704071407240734074407540764077407840794080408140824083408440854086408740884089409040914092409340944095409640974098409941004101410241034104410541064107410841094110411141124113411441154116411741184119412041214122412341244125412641274128412941304131413241334134413541364137413841394140414141424143414441454146414741484149415041514152415341544155415641574158415941604161416241634164416541664167416841694170417141724173417441754176417741784179418041814182418341844185418641874188418941904191419241934194419541964197419841994200420142024203420442054206420742084209421042114212421342144215421642174218421942204221422242234224422542264227422842294230423142324233423442354236423742384239424042414242424342444245424642474248424942504251425242534254425542564257425842594260426142624263426442654266426742684269427042714272427342744275427642774278427942804281428242834284428542864287428842894290429142924293429442954296429742984299430043014302430343044305430643074308430943104311431243134314431543164317431843194320432143224323432443254326432743284329433043314332433343344335433643374338433943404341434243434344434543464347434843494350435143524353435443554356435743584359436043614362436343644365436643674368436943704371437243734374437543764377437843794380438143824383438443854386438743884389439043914392439343944395439643974398439944004401440244034404440544064407440844094410441144124413441444154416441744184419442044214422442344244425442644274428442944304431443244334434443544364437443844394440444144424443444444454446444744484449445044514452445344544455445644574458445944604461446244634464446544664467446844694470447144724473447444754476447744784479448044814482448344844485448644874488448944904491449244934494449544964497449844994500450145024503450445054506450745084509451045114512451345144515451645174518451945204521452245234524452545264527452845294530453145324533453445354536453745384539454045414542454345444545454645474548454945504551455245534554455545564557455845594560456145624563456445654566456745684569457045714572457345744575457645774578457945804581458245834584458545864587458845894590459145924593459445954596459745984599460046014602460346044605460646074608460946104611461246134614461546164617461846194620462146224623462446254626462746284629463046314632463346344635463646374638463946404641464246434644464546464647464846494650465146524653465446554656465746584659466046614662466346644665466646674668466946704671467246734674467546764677467846794680468146824683468446854686468746884689469046914692469346944695469646974698469947004701470247034704470547064707470847094710471147124713471447154716471747184719472047214722472347244725472647274728472947304731473247334734473547364737473847394740474147424743474447454746474747484749475047514752475347544755475647574758475947604761476247634764476547664767476847694770477147724773477447754776477747784779478047814782478347844785478647874788478947904791479247934794479547964797479847994800480148024803480448054806480748084809481048114812481348144815481648174818481948204821482248234824482548264827482848294830483148324833483448354836483748384839484048414842484348444845484648474848484948504851485248534854485548564857485848594860486148624863486448654866486748684869487048714872487348744875487648774878487948804881488248834884488548864887488848894890489148924893489448954896489748984899490049014902490349044905490649074908490949104911491249134914491549164917491849194920492149224923492449254926492749284929493049314932493349344935493649374938493949404941494249434944494549464947494849494950495149524953495449554956495749584959496049614962496349644965496649674968496949704971497249734974497549764977497849794980498149824983498449854986498749884989499049914992499349944995499649974998499950005001500250035004500550065007500850095010501150125013501450155016501750185019502050215022502350245025502650275028502950305031503250335034503550365037503850395040504150425043504450455046504750485049505050515052505350545055505650575058505950605061506250635064506550665067506850695070507150725073507450755076507750785079508050815082508350845085508650875088508950905091509250935094509550965097509850995100510151025103510451055106510751085109511051115112511351145115511651175118511951205121512251235124512551265127512851295130513151325133513451355136513751385139514051415142514351445145514651475148514951505151515251535154515551565157515851595160516151625163516451655166516751685169517051715172517351745175517651775178517951805181518251835184518551865187518851895190519151925193519451955196519751985199520052015202520352045205520652075208520952105211521252135214521552165217521852195220522152225223522452255226522752285229523052315232523352345235523652375238523952405241524252435244524552465247524852495250525152525253525452555256525752585259526052615262526352645265526652675268526952705271527252735274527552765277527852795280528152825283528452855286528752885289529052915292529352945295529652975298529953005301530253035304530553065307530853095310531153125313531453155316531753185319532053215322532353245325532653275328532953305331533253335334533553365337533853395340534153425343534453455346534753485349535053515352535353545355535653575358535953605361536253635364536553665367536853695370537153725373537453755376537753785379538053815382538353845385538653875388538953905391539253935394539553965397539853995400540154025403540454055406540754085409541054115412541354145415541654175418541954205421542254235424542554265427542854295430543154325433543454355436543754385439544054415442544354445445544654475448544954505451545254535454545554565457545854595460546154625463546454655466546754685469547054715472547354745475547654775478547954805481548254835484548554865487548854895490549154925493549454955496549754985499550055015502550355045505550655075508550955105511551255135514551555165517551855195520552155225523552455255526552755285529553055315532553355345535553655375538553955405541554255435544554555465547554855495550555155525553555455555556555755585559556055615562556355645565556655675568556955705571557255735574557555765577557855795580558155825583558455855586558755885589559055915592559355945595559655975598559956005601560256035604560556065607560856095610561156125613561456155616561756185619562056215622562356245625562656275628562956305631563256335634563556365637563856395640564156425643564456455646564756485649565056515652565356545655565656575658565956605661566256635664566556665667566856695670567156725673567456755676567756785679568056815682568356845685568656875688568956905691569256935694569556965697569856995700570157025703570457055706570757085709571057115712571357145715571657175718571957205721572257235724572557265727572857295730573157325733573457355736573757385739574057415742574357445745574657475748574957505751575257535754575557565757575857595760576157625763576457655766576757685769577057715772577357745775577657775778577957805781578257835784578557865787578857895790579157925793579457955796579757985799580058015802580358045805580658075808580958105811581258135814581558165817581858195820582158225823582458255826582758285829583058315832583358345835583658375838583958405841584258435844584558465847584858495850585158525853585458555856585758585859586058615862586358645865586658675868586958705871587258735874587558765877587858795880588158825883588458855886588758885889589058915892589358945895589658975898589959005901590259035904590559065907590859095910591159125913591459155916591759185919592059215922592359245925592659275928592959305931593259335934593559365937593859395940594159425943594459455946594759485949595059515952595359545955595659575958595959605961596259635964596559665967596859695970597159725973597459755976597759785979598059815982598359845985598659875988598959905991599259935994599559965997599859996000600160026003600460056006600760086009601060116012601360146015601660176018601960206021602260236024602560266027602860296030603160326033603460356036603760386039604060416042604360446045604660476048604960506051605260536054605560566057605860596060606160626063606460656066606760686069607060716072607360746075607660776078607960806081608260836084608560866087608860896090609160926093609460956096609760986099610061016102610361046105610661076108610961106111611261136114611561166117611861196120612161226123612461256126612761286129613061316132613361346135613661376138613961406141614261436144614561466147614861496150615161526153615461556156615761586159616061616162616361646165616661676168616961706171617261736174617561766177617861796180618161826183618461856186618761886189619061916192619361946195619661976198619962006201620262036204620562066207620862096210621162126213621462156216621762186219622062216222622362246225622662276228622962306231623262336234623562366237623862396240624162426243624462456246624762486249625062516252625362546255625662576258625962606261626262636264626562666267626862696270627162726273627462756276627762786279628062816282628362846285628662876288628962906291629262936294629562966297629862996300630163026303630463056306630763086309631063116312631363146315631663176318631963206321632263236324632563266327632863296330633163326333633463356336633763386339634063416342634363446345634663476348634963506351635263536354635563566357635863596360636163626363636463656366636763686369637063716372637363746375637663776378637963806381638263836384638563866387638863896390639163926393639463956396639763986399640064016402640364046405640664076408640964106411641264136414641564166417641864196420642164226423642464256426642764286429643064316432643364346435643664376438643964406441644264436444644564466447644864496450645164526453645464556456645764586459646064616462646364646465646664676468646964706471647264736474647564766477647864796480648164826483648464856486648764886489649064916492649364946495649664976498649965006501650265036504650565066507650865096510651165126513651465156516651765186519652065216522652365246525652665276528652965306531653265336534653565366537653865396540654165426543654465456546654765486549655065516552655365546555655665576558655965606561656265636564656565666567656865696570657165726573657465756576657765786579658065816582658365846585658665876588658965906591659265936594659565966597659865996600660166026603660466056606660766086609661066116612661366146615661666176618661966206621662266236624662566266627662866296630663166326633663466356636663766386639664066416642664366446645664666476648664966506651665266536654665566566657665866596660666166626663666466656666666766686669667066716672667366746675667666776678667966806681668266836684668566866687668866896690669166926693669466956696669766986699670067016702670367046705670667076708670967106711671267136714671567166717671867196720672167226723672467256726672767286729673067316732673367346735673667376738673967406741674267436744674567466747674867496750675167526753675467556756675767586759676067616762676367646765676667676768676967706771677267736774677567766777677867796780678167826783678467856786678767886789679067916792679367946795679667976798679968006801680268036804680568066807680868096810681168126813681468156816681768186819682068216822682368246825682668276828682968306831683268336834683568366837683868396840684168426843684468456846684768486849685068516852685368546855685668576858685968606861686268636864686568666867686868696870687168726873687468756876687768786879688068816882688368846885688668876888688968906891689268936894689568966897689868996900690169026903690469056906690769086909691069116912691369146915691669176918691969206921692269236924692569266927692869296930693169326933693469356936693769386939694069416942694369446945694669476948694969506951695269536954695569566957695869596960696169626963696469656966696769686969697069716972697369746975697669776978697969806981698269836984698569866987698869896990699169926993699469956996699769986999700070017002700370047005700670077008700970107011701270137014701570167017701870197020702170227023702470257026702770287029703070317032703370347035703670377038703970407041704270437044704570467047704870497050705170527053705470557056705770587059706070617062706370647065706670677068706970707071707270737074707570767077707870797080708170827083708470857086708770887089709070917092709370947095709670977098709971007101710271037104710571067107710871097110711171127113711471157116711771187119712071217122712371247125712671277128712971307131713271337134713571367137713871397140714171427143714471457146714771487149715071517152715371547155715671577158715971607161716271637164716571667167716871697170717171727173717471757176717771787179718071817182718371847185718671877188718971907191719271937194719571967197719871997200720172027203720472057206720772087209721072117212721372147215721672177218721972207221722272237224722572267227722872297230723172327233723472357236723772387239724072417242724372447245724672477248724972507251725272537254725572567257725872597260726172627263726472657266726772687269727072717272727372747275727672777278727972807281728272837284728572867287728872897290729172927293729472957296729772987299730073017302730373047305730673077308730973107311731273137314731573167317731873197320732173227323732473257326732773287329733073317332733373347335733673377338733973407341734273437344734573467347734873497350735173527353735473557356735773587359736073617362736373647365736673677368736973707371737273737374737573767377737873797380738173827383738473857386738773887389739073917392739373947395739673977398739974007401740274037404740574067407740874097410741174127413741474157416741774187419742074217422742374247425742674277428742974307431743274337434743574367437743874397440744174427443744474457446744774487449745074517452745374547455745674577458745974607461746274637464746574667467746874697470747174727473747474757476747774787479748074817482748374847485748674877488748974907491749274937494749574967497749874997500750175027503750475057506750775087509751075117512751375147515751675177518751975207521752275237524752575267527752875297530753175327533753475357536753775387539754075417542754375447545754675477548754975507551755275537554755575567557755875597560756175627563756475657566756775687569757075717572757375747575757675777578757975807581758275837584758575867587758875897590759175927593759475957596759775987599760076017602760376047605760676077608760976107611761276137614761576167617761876197620762176227623762476257626762776287629763076317632763376347635763676377638763976407641764276437644764576467647764876497650765176527653765476557656765776587659766076617662766376647665766676677668766976707671767276737674767576767677767876797680768176827683768476857686768776887689769076917692769376947695769676977698769977007701770277037704770577067707770877097710771177127713771477157716771777187719772077217722772377247725772677277728772977307731773277337734773577367737773877397740774177427743774477457746774777487749775077517752775377547755775677577758775977607761776277637764776577667767776877697770777177727773777477757776777777787779778077817782778377847785778677877788778977907791779277937794779577967797779877997800780178027803780478057806780778087809781078117812781378147815781678177818781978207821782278237824782578267827782878297830783178327833783478357836783778387839784078417842784378447845784678477848784978507851785278537854785578567857785878597860786178627863786478657866786778687869787078717872787378747875787678777878787978807881788278837884788578867887788878897890789178927893789478957896789778987899790079017902790379047905790679077908790979107911791279137914791579167917791879197920792179227923792479257926792779287929793079317932793379347935793679377938793979407941794279437944794579467947794879497950795179527953795479557956795779587959796079617962796379647965796679677968796979707971797279737974797579767977797879797980798179827983798479857986798779887989799079917992799379947995799679977998799980008001800280038004800580068007800880098010801180128013801480158016801780188019802080218022802380248025802680278028802980308031803280338034803580368037803880398040804180428043804480458046804780488049805080518052805380548055805680578058805980608061806280638064806580668067806880698070807180728073807480758076807780788079808080818082808380848085808680878088808980908091809280938094809580968097809880998100810181028103810481058106810781088109811081118112811381148115811681178118811981208121812281238124812581268127812881298130813181328133813481358136813781388139814081418142814381448145814681478148814981508151815281538154815581568157815881598160816181628163816481658166816781688169817081718172817381748175817681778178817981808181818281838184818581868187818881898190819181928193819481958196819781988199820082018202820382048205820682078208820982108211821282138214821582168217821882198220822182228223822482258226822782288229823082318232823382348235823682378238823982408241824282438244824582468247824882498250825182528253825482558256825782588259826082618262826382648265826682678268826982708271827282738274827582768277827882798280828182828283828482858286828782888289829082918292829382948295829682978298829983008301830283038304830583068307830883098310831183128313831483158316831783188319832083218322832383248325832683278328832983308331833283338334833583368337833883398340834183428343834483458346834783488349835083518352835383548355835683578358835983608361836283638364836583668367836883698370837183728373837483758376837783788379838083818382838383848385838683878388838983908391839283938394839583968397839883998400840184028403840484058406840784088409841084118412841384148415841684178418841984208421842284238424842584268427842884298430843184328433843484358436843784388439844084418442844384448445844684478448844984508451845284538454845584568457845884598460846184628463846484658466846784688469847084718472847384748475847684778478847984808481848284838484848584868487848884898490849184928493849484958496849784988499850085018502850385048505850685078508850985108511851285138514851585168517851885198520852185228523852485258526852785288529853085318532853385348535853685378538853985408541854285438544854585468547854885498550855185528553855485558556855785588559856085618562856385648565856685678568856985708571857285738574857585768577857885798580858185828583858485858586858785888589859085918592859385948595859685978598859986008601860286038604860586068607860886098610861186128613861486158616861786188619862086218622862386248625862686278628862986308631863286338634863586368637863886398640864186428643864486458646864786488649865086518652865386548655865686578658865986608661866286638664866586668667866886698670867186728673867486758676867786788679868086818682868386848685868686878688868986908691869286938694869586968697869886998700870187028703870487058706870787088709871087118712871387148715871687178718871987208721872287238724872587268727872887298730873187328733873487358736873787388739874087418742874387448745874687478748874987508751875287538754875587568757875887598760876187628763876487658766876787688769877087718772877387748775877687778778877987808781878287838784878587868787878887898790879187928793879487958796879787988799880088018802880388048805880688078808880988108811881288138814881588168817881888198820882188228823882488258826882788288829883088318832883388348835883688378838883988408841884288438844884588468847884888498850885188528853885488558856885788588859886088618862886388648865886688678868886988708871887288738874887588768877887888798880888188828883888488858886888788888889889088918892889388948895889688978898889989008901890289038904890589068907890889098910891189128913891489158916891789188919892089218922892389248925892689278928892989308931893289338934893589368937893889398940894189428943894489458946894789488949895089518952895389548955895689578958895989608961896289638964896589668967896889698970897189728973897489758976897789788979898089818982898389848985898689878988898989908991899289938994899589968997899889999000900190029003900490059006900790089009901090119012901390149015901690179018901990209021902290239024902590269027902890299030903190329033903490359036903790389039904090419042904390449045904690479048904990509051905290539054905590569057905890599060906190629063906490659066906790689069907090719072907390749075907690779078907990809081908290839084908590869087908890899090909190929093909490959096909790989099910091019102910391049105910691079108910991109111911291139114911591169117911891199120912191229123912491259126912791289129913091319132913391349135913691379138913991409141914291439144914591469147914891499150915191529153915491559156915791589159916091619162916391649165916691679168916991709171917291739174917591769177917891799180918191829183918491859186918791889189919091919192919391949195919691979198919992009201920292039204920592069207920892099210921192129213921492159216921792189219922092219222922392249225922692279228922992309231923292339234923592369237923892399240924192429243924492459246924792489249925092519252925392549255925692579258925992609261926292639264926592669267926892699270927192729273927492759276927792789279928092819282928392849285928692879288928992909291929292939294929592969297929892999300930193029303930493059306930793089309931093119312931393149315931693179318931993209321932293239324932593269327932893299330933193329333933493359336933793389339934093419342934393449345934693479348934993509351935293539354935593569357935893599360936193629363936493659366936793689369937093719372937393749375937693779378937993809381938293839384938593869387938893899390939193929393939493959396939793989399940094019402940394049405940694079408940994109411941294139414941594169417941894199420942194229423942494259426942794289429943094319432943394349435943694379438943994409441944294439444944594469447944894499450945194529453945494559456945794589459946094619462946394649465946694679468946994709471947294739474947594769477947894799480948194829483948494859486948794889489949094919492949394949495949694979498949995009501950295039504950595069507950895099510951195129513951495159516951795189519952095219522952395249525952695279528952995309531953295339534953595369537953895399540954195429543954495459546954795489549955095519552955395549555955695579558955995609561956295639564956595669567956895699570957195729573957495759576957795789579958095819582958395849585958695879588958995909591959295939594959595969597959895999600960196029603960496059606960796089609961096119612961396149615961696179618961996209621962296239624962596269627962896299630963196329633963496359636963796389639964096419642964396449645964696479648964996509651965296539654965596569657965896599660966196629663966496659666966796689669967096719672967396749675967696779678967996809681968296839684968596869687968896899690969196929693969496959696969796989699970097019702970397049705970697079708970997109711971297139714971597169717971897199720972197229723972497259726972797289729973097319732973397349735973697379738973997409741974297439744974597469747974897499750975197529753975497559756975797589759976097619762976397649765976697679768976997709771977297739774977597769777977897799780978197829783978497859786978797889789979097919792979397949795979697979798979998009801980298039804980598069807980898099810981198129813981498159816981798189819982098219822982398249825982698279828982998309831983298339834983598369837983898399840984198429843984498459846984798489849985098519852985398549855985698579858985998609861986298639864986598669867986898699870987198729873987498759876987798789879988098819882988398849885988698879888988998909891989298939894989598969897989898999900990199029903990499059906990799089909991099119912991399149915991699179918991999209921992299239924992599269927992899299930993199329933993499359936993799389939994099419942994399449945994699479948994999509951995299539954995599569957995899599960996199629963996499659966996799689969997099719972997399749975997699779978997999809981998299839984998599869987998899899990999199929993999499959996999799989999100001000110002100031000410005100061000710008100091001010011100121001310014100151001610017100181001910020100211002210023100241002510026100271002810029100301003110032100331003410035100361003710038100391004010041100421004310044100451004610047100481004910050100511005210053100541005510056100571005810059100601006110062100631006410065100661006710068100691007010071100721007310074100751007610077100781007910080100811008210083100841008510086100871008810089100901009110092100931009410095100961009710098100991010010101101021010310104101051010610107101081010910110101111011210113101141011510116101171011810119101201012110122101231012410125101261012710128101291013010131101321013310134101351013610137101381013910140101411014210143101441014510146101471014810149101501015110152101531015410155101561015710158101591016010161101621016310164101651016610167101681016910170101711017210173101741017510176101771017810179101801018110182101831018410185101861018710188101891019010191101921019310194101951019610197101981019910200102011020210203102041020510206102071020810209102101021110212102131021410215102161021710218102191022010221102221022310224102251022610227102281022910230102311023210233102341023510236102371023810239102401024110242102431024410245102461024710248102491025010251102521025310254102551025610257102581025910260102611026210263102641026510266102671026810269102701027110272102731027410275102761027710278102791028010281102821028310284102851028610287102881028910290102911029210293102941029510296102971029810299103001030110302103031030410305103061030710308103091031010311103121031310314103151031610317103181031910320103211032210323103241032510326103271032810329103301033110332103331033410335103361033710338103391034010341103421034310344103451034610347103481034910350103511035210353103541035510356103571035810359103601036110362103631036410365103661036710368103691037010371103721037310374103751037610377103781037910380103811038210383103841038510386103871038810389103901039110392103931039410395103961039710398103991040010401104021040310404104051040610407104081040910410104111041210413104141041510416104171041810419104201042110422104231042410425104261042710428104291043010431104321043310434104351043610437104381043910440104411044210443104441044510446104471044810449104501045110452104531045410455104561045710458104591046010461104621046310464104651046610467104681046910470104711047210473104741047510476104771047810479104801048110482104831048410485104861048710488104891049010491104921049310494104951049610497104981049910500105011050210503105041050510506105071050810509105101051110512105131051410515105161051710518105191052010521105221052310524105251052610527105281052910530105311053210533105341053510536105371053810539105401054110542105431054410545105461054710548105491055010551105521055310554105551055610557105581055910560105611056210563105641056510566105671056810569105701057110572105731057410575105761057710578105791058010581105821058310584105851058610587105881058910590105911059210593105941059510596105971059810599106001060110602106031060410605106061060710608106091061010611106121061310614106151061610617106181061910620106211062210623106241062510626106271062810629106301063110632106331063410635106361063710638106391064010641106421064310644106451064610647106481064910650106511065210653106541065510656106571065810659106601066110662106631066410665106661066710668106691067010671106721067310674106751067610677106781067910680106811068210683106841068510686106871068810689106901069110692106931069410695106961069710698106991070010701107021070310704107051070610707107081070910710107111071210713107141071510716107171071810719107201072110722107231072410725107261072710728107291073010731107321073310734107351073610737107381073910740107411074210743107441074510746107471074810749107501075110752107531075410755107561075710758107591076010761107621076310764107651076610767107681076910770107711077210773107741077510776107771077810779107801078110782107831078410785107861078710788107891079010791107921079310794107951079610797107981079910800108011080210803108041080510806108071080810809108101081110812108131081410815108161081710818108191082010821108221082310824108251082610827108281082910830108311083210833108341083510836108371083810839108401084110842108431084410845108461084710848108491085010851108521085310854108551085610857108581085910860108611086210863108641086510866108671086810869108701087110872108731087410875108761087710878108791088010881108821088310884108851088610887108881088910890108911089210893108941089510896108971089810899109001090110902109031090410905109061090710908109091091010911109121091310914109151091610917109181091910920109211092210923109241092510926109271092810929109301093110932109331093410935109361093710938109391094010941109421094310944109451094610947109481094910950109511095210953109541095510956109571095810959109601096110962109631096410965109661096710968109691097010971109721097310974109751097610977109781097910980109811098210983109841098510986109871098810989109901099110992109931099410995109961099710998109991100011001110021100311004110051100611007110081100911010110111101211013110141101511016110171101811019110201102111022110231102411025110261102711028110291103011031110321103311034110351103611037110381103911040110411104211043110441104511046110471104811049110501105111052110531105411055110561105711058110591106011061110621106311064110651106611067110681106911070110711107211073110741107511076110771107811079110801108111082110831108411085110861108711088110891109011091110921109311094110951109611097110981109911100111011110211103111041110511106111071110811109111101111111112111131111411115111161111711118111191112011121111221112311124111251112611127111281112911130111311113211133111341113511136111371113811139111401114111142111431114411145111461114711148111491115011151111521115311154111551115611157111581115911160111611116211163111641116511166111671116811169111701117111172111731117411175111761117711178111791118011181111821118311184111851118611187111881118911190111911119211193111941119511196111971119811199112001120111202112031120411205112061120711208112091121011211112121121311214112151121611217112181121911220112211122211223112241122511226112271122811229112301123111232112331123411235112361123711238112391124011241112421124311244112451124611247112481124911250112511125211253112541125511256112571125811259112601126111262112631126411265112661126711268112691127011271112721127311274112751127611277112781127911280112811128211283112841128511286112871128811289112901129111292112931129411295112961129711298112991130011301113021130311304113051130611307113081130911310113111131211313113141131511316113171131811319113201132111322113231132411325113261132711328113291133011331113321133311334113351133611337113381133911340113411134211343113441134511346113471134811349113501135111352113531135411355113561135711358113591136011361113621136311364113651136611367113681136911370113711137211373113741137511376113771137811379113801138111382113831138411385113861138711388113891139011391113921139311394113951139611397113981139911400114011140211403114041140511406114071140811409114101141111412114131141411415114161141711418114191142011421114221142311424114251142611427114281142911430114311143211433114341143511436114371143811439114401144111442114431144411445114461144711448114491145011451114521145311454114551145611457114581145911460114611146211463114641146511466114671146811469114701147111472114731147411475114761147711478114791148011481114821148311484114851148611487114881148911490114911149211493114941149511496114971149811499115001150111502115031150411505115061150711508115091151011511115121151311514115151151611517115181151911520115211152211523115241152511526115271152811529115301153111532115331153411535115361153711538115391154011541115421154311544115451154611547115481154911550115511155211553115541155511556115571155811559115601156111562115631156411565115661156711568115691157011571115721157311574115751157611577115781157911580115811158211583115841158511586115871158811589115901159111592115931159411595115961159711598115991160011601116021160311604116051160611607116081160911610116111161211613116141161511616116171161811619116201162111622116231162411625116261162711628116291163011631116321163311634116351163611637116381163911640116411164211643116441164511646116471164811649116501165111652116531165411655116561165711658116591166011661116621166311664116651166611667116681166911670116711167211673116741167511676116771167811679116801168111682116831168411685116861168711688116891169011691116921169311694116951169611697116981169911700117011170211703117041170511706117071170811709117101171111712117131171411715117161171711718117191172011721117221172311724117251172611727117281172911730117311173211733117341173511736117371173811739117401174111742117431174411745117461174711748117491175011751117521175311754117551175611757117581175911760117611176211763117641176511766117671176811769117701177111772117731177411775117761177711778117791178011781117821178311784117851178611787117881178911790117911179211793117941179511796117971179811799118001180111802118031180411805118061180711808118091181011811118121181311814118151181611817118181181911820118211182211823118241182511826118271182811829118301183111832118331183411835118361183711838118391184011841118421184311844118451184611847118481184911850118511185211853118541185511856118571185811859118601186111862118631186411865118661186711868118691187011871118721187311874118751187611877118781187911880118811188211883118841188511886118871188811889118901189111892118931189411895118961189711898118991190011901119021190311904119051190611907119081190911910119111191211913119141191511916119171191811919119201192111922119231192411925119261192711928119291193011931119321193311934119351193611937119381193911940119411194211943119441194511946119471194811949119501195111952119531195411955119561195711958119591196011961119621196311964119651196611967119681196911970119711197211973119741197511976119771197811979119801198111982119831198411985119861198711988119891199011991119921199311994119951199611997119981199912000120011200212003120041200512006120071200812009120101201112012120131201412015120161201712018120191202012021120221202312024120251202612027120281202912030120311203212033120341203512036120371203812039120401204112042120431204412045120461204712048120491205012051120521205312054120551205612057120581205912060120611206212063120641206512066120671206812069120701207112072120731207412075120761207712078120791208012081120821208312084120851208612087120881208912090120911209212093120941209512096120971209812099121001210112102121031210412105121061210712108121091211012111121121211312114121151211612117121181211912120121211212212123121241212512126121271212812129121301213112132121331213412135121361213712138121391214012141121421214312144121451214612147121481214912150121511215212153121541215512156121571215812159121601216112162121631216412165121661216712168121691217012171121721217312174121751217612177121781217912180121811218212183121841218512186121871218812189121901219112192121931219412195121961219712198121991220012201122021220312204122051220612207122081220912210122111221212213122141221512216122171221812219122201222112222122231222412225122261222712228122291223012231122321223312234122351223612237122381223912240122411224212243122441224512246122471224812249122501225112252122531225412255122561225712258122591226012261122621226312264122651226612267122681226912270122711227212273122741227512276122771227812279122801228112282122831228412285122861228712288122891229012291122921229312294122951229612297122981229912300123011230212303123041230512306123071230812309123101231112312123131231412315123161231712318123191232012321123221232312324123251232612327123281232912330123311233212333123341233512336123371233812339123401234112342123431234412345123461234712348123491235012351123521235312354123551235612357123581235912360123611236212363123641236512366123671236812369123701237112372123731237412375123761237712378123791238012381123821238312384123851238612387123881238912390123911239212393123941239512396123971239812399124001240112402124031240412405124061240712408124091241012411124121241312414124151241612417124181241912420124211242212423124241242512426124271242812429124301243112432124331243412435124361243712438124391244012441124421244312444124451244612447124481244912450124511245212453124541245512456124571245812459124601246112462124631246412465124661246712468124691247012471124721247312474124751247612477124781247912480124811248212483124841248512486124871248812489124901249112492124931249412495124961249712498124991250012501125021250312504125051250612507125081250912510125111251212513125141251512516125171251812519125201252112522125231252412525125261252712528125291253012531125321253312534125351253612537125381253912540125411254212543125441254512546125471254812549125501255112552125531255412555125561255712558125591256012561125621256312564125651256612567125681256912570125711257212573125741257512576125771257812579125801258112582125831258412585125861258712588125891259012591125921259312594125951259612597125981259912600126011260212603126041260512606126071260812609126101261112612126131261412615126161261712618126191262012621126221262312624126251262612627126281262912630126311263212633126341263512636126371263812639126401264112642126431264412645126461264712648126491265012651126521265312654126551265612657126581265912660126611266212663126641266512666126671266812669126701267112672126731267412675126761267712678126791268012681126821268312684126851268612687126881268912690126911269212693126941269512696126971269812699127001270112702127031270412705127061270712708127091271012711127121271312714127151271612717127181271912720127211272212723127241272512726127271272812729127301273112732127331273412735127361273712738127391274012741127421274312744127451274612747127481274912750127511275212753127541275512756127571275812759127601276112762127631276412765127661276712768127691277012771127721277312774127751277612777127781277912780127811278212783127841278512786127871278812789127901279112792127931279412795127961279712798127991280012801128021280312804128051280612807128081280912810128111281212813128141281512816128171281812819128201282112822128231282412825128261282712828128291283012831128321283312834128351283612837128381283912840128411284212843128441284512846128471284812849128501285112852128531285412855128561285712858128591286012861128621286312864128651286612867128681286912870128711287212873128741287512876128771287812879128801288112882128831288412885128861288712888128891289012891128921289312894128951289612897128981289912900129011290212903129041290512906129071290812909129101291112912129131291412915129161291712918129191292012921129221292312924129251292612927129281292912930129311293212933129341293512936129371293812939129401294112942129431294412945129461294712948129491295012951129521295312954129551295612957129581295912960129611296212963129641296512966129671296812969129701297112972129731297412975129761297712978129791298012981129821298312984129851298612987129881298912990129911299212993129941299512996129971299812999130001300113002130031300413005130061300713008130091301013011130121301313014130151301613017130181301913020130211302213023130241302513026130271302813029130301303113032130331303413035130361303713038130391304013041130421304313044130451304613047130481304913050130511305213053130541305513056130571305813059130601306113062130631306413065130661306713068130691307013071130721307313074130751307613077130781307913080130811308213083130841308513086130871308813089130901309113092130931309413095130961309713098130991310013101131021310313104131051310613107131081310913110131111311213113131141311513116131171311813119131201312113122131231312413125131261312713128131291313013131131321313313134131351313613137131381313913140131411314213143131441314513146131471314813149131501315113152131531315413155131561315713158131591316013161131621316313164131651316613167131681316913170131711317213173131741317513176131771317813179131801318113182131831318413185131861318713188131891319013191131921319313194131951319613197131981319913200132011320213203132041320513206132071320813209132101321113212132131321413215132161321713218132191322013221132221322313224132251322613227132281322913230132311323213233132341323513236132371323813239132401324113242132431324413245132461324713248132491325013251132521325313254132551325613257132581325913260132611326213263132641326513266132671326813269132701327113272132731327413275132761327713278132791328013281132821328313284132851328613287132881328913290132911329213293132941329513296132971329813299133001330113302133031330413305133061330713308133091331013311133121331313314133151331613317133181331913320133211332213323133241332513326133271332813329133301333113332133331333413335133361333713338133391334013341133421334313344133451334613347133481334913350133511335213353133541335513356133571335813359133601336113362133631336413365133661336713368133691337013371133721337313374133751337613377133781337913380133811338213383133841338513386133871338813389133901339113392133931339413395133961339713398133991340013401134021340313404134051340613407134081340913410134111341213413134141341513416134171341813419134201342113422134231342413425134261342713428134291343013431134321343313434134351343613437134381343913440134411344213443134441344513446134471344813449134501345113452134531345413455134561345713458134591346013461134621346313464134651346613467134681346913470134711347213473134741347513476134771347813479134801348113482134831348413485134861348713488134891349013491134921349313494134951349613497134981349913500135011350213503135041350513506135071350813509135101351113512135131351413515135161351713518135191352013521135221352313524135251352613527135281352913530135311353213533135341353513536135371353813539135401354113542135431354413545135461354713548135491355013551135521355313554135551355613557135581355913560135611356213563135641356513566135671356813569135701357113572135731357413575135761357713578135791358013581135821358313584135851358613587135881358913590135911359213593135941359513596135971359813599136001360113602136031360413605136061360713608136091361013611136121361313614136151361613617136181361913620136211362213623136241362513626136271362813629136301363113632136331363413635136361363713638136391364013641136421364313644136451364613647136481364913650136511365213653136541365513656136571365813659136601366113662136631366413665136661366713668136691367013671136721367313674136751367613677136781367913680136811368213683136841368513686136871368813689136901369113692136931369413695136961369713698136991370013701137021370313704137051370613707137081370913710137111371213713137141371513716137171371813719137201372113722137231372413725137261372713728137291373013731137321373313734137351373613737137381373913740137411374213743137441374513746137471374813749137501375113752137531375413755137561375713758137591376013761137621376313764137651376613767137681376913770137711377213773137741377513776137771377813779137801378113782137831378413785137861378713788137891379013791137921379313794137951379613797137981379913800138011380213803138041380513806138071380813809138101381113812138131381413815138161381713818138191382013821138221382313824138251382613827138281382913830138311383213833138341383513836138371383813839138401384113842138431384413845138461384713848138491385013851138521385313854138551385613857138581385913860138611386213863138641386513866138671386813869138701387113872138731387413875138761387713878138791388013881138821388313884138851388613887138881388913890138911389213893138941389513896138971389813899139001390113902139031390413905139061390713908139091391013911139121391313914139151391613917139181391913920139211392213923139241392513926139271392813929139301393113932139331393413935139361393713938139391394013941139421394313944139451394613947139481394913950139511395213953139541395513956139571395813959139601396113962139631396413965139661396713968139691397013971139721397313974139751397613977139781397913980139811398213983139841398513986139871398813989139901399113992139931399413995139961399713998139991400014001140021400314004140051400614007140081400914010140111401214013140141401514016140171401814019140201402114022140231402414025140261402714028140291403014031140321403314034140351403614037140381403914040140411404214043140441404514046140471404814049140501405114052140531405414055140561405714058140591406014061140621406314064140651406614067140681406914070140711407214073140741407514076140771407814079140801408114082140831408414085140861408714088140891409014091140921409314094140951409614097140981409914100141011410214103141041410514106141071410814109141101411114112141131411414115141161411714118141191412014121141221412314124141251412614127141281412914130141311413214133141341413514136141371413814139141401414114142141431414414145141461414714148141491415014151141521415314154141551415614157141581415914160141611416214163141641416514166141671416814169141701417114172141731417414175141761417714178141791418014181141821418314184141851418614187141881418914190141911419214193141941419514196141971419814199142001420114202142031420414205142061420714208142091421014211142121421314214142151421614217142181421914220142211422214223142241422514226142271422814229142301423114232142331423414235142361423714238142391424014241142421424314244142451424614247142481424914250142511425214253142541425514256142571425814259142601426114262142631426414265142661426714268142691427014271142721427314274142751427614277142781427914280142811428214283142841428514286142871428814289142901429114292142931429414295142961429714298142991430014301143021430314304143051430614307143081430914310143111431214313143141431514316143171431814319143201432114322143231432414325143261432714328143291433014331143321433314334143351433614337143381433914340143411434214343143441434514346143471434814349143501435114352143531435414355143561435714358143591436014361143621436314364143651436614367143681436914370143711437214373143741437514376143771437814379143801438114382143831438414385143861438714388143891439014391143921439314394143951439614397143981439914400144011440214403144041440514406144071440814409144101441114412144131441414415144161441714418144191442014421144221442314424144251442614427144281442914430144311443214433144341443514436144371443814439144401444114442144431444414445144461444714448144491445014451144521445314454144551445614457144581445914460144611446214463144641446514466144671446814469144701447114472144731447414475144761447714478144791448014481144821448314484144851448614487144881448914490144911449214493144941449514496144971449814499145001450114502145031450414505145061450714508145091451014511145121451314514145151451614517145181451914520145211452214523145241452514526145271452814529145301453114532145331453414535145361453714538145391454014541145421454314544145451454614547145481454914550145511455214553145541455514556145571455814559145601456114562145631456414565145661456714568145691457014571145721457314574145751457614577145781457914580145811458214583145841458514586145871458814589145901459114592145931459414595145961459714598145991460014601146021460314604146051460614607146081460914610146111461214613146141461514616146171461814619146201462114622146231462414625146261462714628146291463014631146321463314634146351463614637146381463914640146411464214643146441464514646146471464814649146501465114652146531465414655146561465714658146591466014661146621466314664146651466614667146681466914670146711467214673146741467514676146771467814679146801468114682146831468414685146861468714688146891469014691146921469314694146951469614697146981469914700147011470214703147041470514706147071470814709147101471114712147131471414715147161471714718147191472014721147221472314724147251472614727147281472914730147311473214733147341473514736147371473814739147401474114742147431474414745147461474714748147491475014751147521475314754147551475614757147581475914760147611476214763147641476514766147671476814769147701477114772147731477414775147761477714778147791478014781147821478314784147851478614787147881478914790147911479214793147941479514796147971479814799148001480114802148031480414805148061480714808148091481014811148121481314814148151481614817148181481914820148211482214823148241482514826148271482814829148301483114832148331483414835148361483714838148391484014841148421484314844148451484614847148481484914850148511485214853148541485514856148571485814859148601486114862148631486414865148661486714868148691487014871148721487314874148751487614877148781487914880148811488214883148841488514886148871488814889148901489114892148931489414895148961489714898148991490014901149021490314904149051490614907149081490914910149111491214913149141491514916149171491814919149201492114922149231492414925149261492714928149291493014931149321493314934149351493614937149381493914940149411494214943149441494514946149471494814949149501495114952149531495414955149561495714958149591496014961149621496314964149651496614967149681496914970149711497214973149741497514976149771497814979149801498114982149831498414985149861498714988149891499014991149921499314994149951499614997149981499915000150011500215003150041500515006150071500815009150101501115012150131501415015150161501715018150191502015021150221502315024150251502615027150281502915030150311503215033150341503515036150371503815039150401504115042150431504415045150461504715048150491505015051150521505315054150551505615057150581505915060150611506215063150641506515066150671506815069150701507115072150731507415075150761507715078150791508015081150821508315084150851508615087150881508915090150911509215093150941509515096150971509815099151001510115102151031510415105151061510715108151091511015111151121511315114151151511615117151181511915120151211512215123151241512515126151271512815129151301513115132151331513415135151361513715138151391514015141151421514315144151451514615147151481514915150151511515215153151541515515156151571515815159151601516115162151631516415165151661516715168151691517015171151721517315174151751517615177151781517915180151811518215183151841518515186151871518815189151901519115192151931519415195151961519715198151991520015201152021520315204152051520615207152081520915210152111521215213152141521515216152171521815219152201522115222152231522415225152261522715228152291523015231152321523315234152351523615237152381523915240152411524215243152441524515246152471524815249152501525115252152531525415255152561525715258152591526015261152621526315264152651526615267152681526915270152711527215273152741527515276152771527815279152801528115282152831528415285152861528715288152891529015291152921529315294152951529615297152981529915300153011530215303153041530515306153071530815309153101531115312153131531415315153161531715318153191532015321153221532315324153251532615327153281532915330153311533215333153341533515336153371533815339153401534115342153431534415345153461534715348153491535015351153521535315354153551535615357153581535915360153611536215363153641536515366153671536815369153701537115372153731537415375153761537715378153791538015381153821538315384153851538615387153881538915390153911539215393153941539515396153971539815399154001540115402154031540415405154061540715408154091541015411154121541315414154151541615417154181541915420154211542215423154241542515426154271542815429154301543115432154331543415435154361543715438154391544015441154421544315444154451544615447154481544915450154511545215453154541545515456154571545815459154601546115462154631546415465154661546715468154691547015471154721547315474154751547615477154781547915480154811548215483154841548515486154871548815489154901549115492154931549415495154961549715498154991550015501155021550315504155051550615507155081550915510155111551215513155141551515516155171551815519155201552115522155231552415525155261552715528155291553015531155321553315534155351553615537155381553915540155411554215543155441554515546155471554815549155501555115552155531555415555155561555715558155591556015561155621556315564155651556615567155681556915570155711557215573155741557515576155771557815579155801558115582155831558415585155861558715588155891559015591155921559315594155951559615597155981559915600156011560215603156041560515606156071560815609156101561115612156131561415615156161561715618156191562015621156221562315624156251562615627156281562915630156311563215633156341563515636156371563815639156401564115642156431564415645156461564715648156491565015651156521565315654156551565615657156581565915660156611566215663156641566515666156671566815669156701567115672156731567415675156761567715678156791568015681156821568315684156851568615687156881568915690156911569215693156941569515696156971569815699157001570115702157031570415705157061570715708157091571015711157121571315714157151571615717157181571915720157211572215723157241572515726157271572815729157301573115732157331573415735157361573715738157391574015741157421574315744157451574615747157481574915750157511575215753157541575515756157571575815759157601576115762157631576415765157661576715768157691577015771157721577315774157751577615777157781577915780157811578215783157841578515786157871578815789157901579115792157931579415795157961579715798157991580015801158021580315804158051580615807158081580915810158111581215813158141581515816158171581815819158201582115822158231582415825158261582715828158291583015831158321583315834158351583615837158381583915840158411584215843158441584515846158471584815849158501585115852158531585415855158561585715858158591586015861158621586315864158651586615867158681586915870158711587215873158741587515876158771587815879158801588115882158831588415885158861588715888158891589015891158921589315894158951589615897158981589915900159011590215903159041590515906159071590815909159101591115912159131591415915159161591715918159191592015921159221592315924159251592615927159281592915930159311593215933159341593515936159371593815939159401594115942159431594415945159461594715948159491595015951159521595315954159551595615957159581595915960159611596215963159641596515966159671596815969159701597115972159731597415975159761597715978159791598015981159821598315984159851598615987159881598915990159911599215993159941599515996159971599815999160001600116002160031600416005160061600716008160091601016011160121601316014160151601616017160181601916020160211602216023160241602516026160271602816029160301603116032160331603416035160361603716038160391604016041160421604316044160451604616047160481604916050160511605216053160541605516056160571605816059160601606116062160631606416065160661606716068160691607016071160721607316074160751607616077160781607916080160811608216083160841608516086160871608816089160901609116092160931609416095160961609716098160991610016101161021610316104161051610616107161081610916110161111611216113161141611516116161171611816119161201612116122161231612416125161261612716128161291613016131161321613316134161351613616137161381613916140161411614216143161441614516146161471614816149161501615116152161531615416155161561615716158161591616016161161621616316164161651616616167161681616916170161711617216173161741617516176161771617816179161801618116182161831618416185161861618716188161891619016191161921619316194161951619616197161981619916200162011620216203162041620516206162071620816209162101621116212162131621416215162161621716218162191622016221162221622316224162251622616227162281622916230162311623216233162341623516236162371623816239162401624116242162431624416245162461624716248162491625016251162521625316254162551625616257162581625916260162611626216263162641626516266162671626816269162701627116272162731627416275162761627716278162791628016281162821628316284162851628616287162881628916290162911629216293162941629516296162971629816299163001630116302163031630416305163061630716308163091631016311163121631316314163151631616317163181631916320163211632216323163241632516326163271632816329163301633116332163331633416335163361633716338163391634016341163421634316344163451634616347163481634916350163511635216353163541635516356163571635816359163601636116362163631636416365163661636716368163691637016371163721637316374163751637616377163781637916380163811638216383163841638516386163871638816389163901639116392163931639416395163961639716398163991640016401164021640316404164051640616407164081640916410164111641216413164141641516416164171641816419164201642116422164231642416425164261642716428164291643016431164321643316434164351643616437164381643916440164411644216443164441644516446164471644816449164501645116452164531645416455164561645716458164591646016461164621646316464164651646616467164681646916470164711647216473164741647516476164771647816479164801648116482164831648416485164861648716488164891649016491164921649316494164951649616497164981649916500165011650216503165041650516506165071650816509165101651116512165131651416515165161651716518165191652016521165221652316524165251652616527165281652916530165311653216533165341653516536165371653816539165401654116542165431654416545165461654716548165491655016551165521655316554165551655616557165581655916560165611656216563165641656516566165671656816569165701657116572165731657416575165761657716578165791658016581165821658316584165851658616587165881658916590165911659216593165941659516596165971659816599166001660116602166031660416605166061660716608166091661016611166121661316614166151661616617166181661916620166211662216623166241662516626166271662816629166301663116632166331663416635166361663716638166391664016641166421664316644166451664616647166481664916650166511665216653166541665516656166571665816659166601666116662166631666416665166661666716668166691667016671166721667316674166751667616677166781667916680166811668216683166841668516686166871668816689166901669116692166931669416695166961669716698166991670016701167021670316704167051670616707167081670916710167111671216713167141671516716167171671816719167201672116722167231672416725167261672716728167291673016731167321673316734167351673616737167381673916740167411674216743167441674516746167471674816749167501675116752167531675416755167561675716758167591676016761167621676316764167651676616767167681676916770167711677216773167741677516776167771677816779167801678116782167831678416785167861678716788167891679016791167921679316794167951679616797167981679916800168011680216803168041680516806168071680816809168101681116812168131681416815168161681716818168191682016821168221682316824168251682616827168281682916830168311683216833168341683516836168371683816839168401684116842168431684416845168461684716848168491685016851168521685316854168551685616857168581685916860168611686216863168641686516866168671686816869168701687116872168731687416875168761687716878168791688016881168821688316884168851688616887168881688916890168911689216893168941689516896168971689816899169001690116902169031690416905169061690716908169091691016911169121691316914169151691616917169181691916920169211692216923169241692516926169271692816929169301693116932169331693416935169361693716938169391694016941169421694316944169451694616947169481694916950169511695216953169541695516956169571695816959169601696116962169631696416965169661696716968169691697016971169721697316974169751697616977169781697916980169811698216983169841698516986169871698816989169901699116992169931699416995169961699716998169991700017001170021700317004170051700617007170081700917010170111701217013170141701517016170171701817019170201702117022170231702417025170261702717028170291703017031170321703317034170351703617037170381703917040170411704217043170441704517046170471704817049170501705117052170531705417055170561705717058170591706017061170621706317064170651706617067170681706917070170711707217073170741707517076170771707817079170801708117082170831708417085170861708717088170891709017091170921709317094170951709617097170981709917100171011710217103171041710517106171071710817109171101711117112171131711417115171161711717118171191712017121171221712317124171251712617127171281712917130171311713217133171341713517136171371713817139171401714117142171431714417145171461714717148171491715017151171521715317154171551715617157171581715917160171611716217163171641716517166171671716817169171701717117172171731717417175171761717717178171791718017181171821718317184171851718617187171881718917190171911719217193171941719517196171971719817199172001720117202172031720417205172061720717208172091721017211172121721317214172151721617217172181721917220172211722217223172241722517226172271722817229172301723117232172331723417235172361723717238172391724017241172421724317244172451724617247172481724917250172511725217253172541725517256172571725817259172601726117262172631726417265172661726717268172691727017271172721727317274172751727617277172781727917280172811728217283172841728517286172871728817289172901729117292172931729417295172961729717298172991730017301173021730317304173051730617307173081730917310173111731217313173141731517316173171731817319173201732117322173231732417325173261732717328173291733017331173321733317334173351733617337173381733917340173411734217343173441734517346173471734817349173501735117352173531735417355173561735717358173591736017361173621736317364173651736617367173681736917370173711737217373173741737517376173771737817379173801738117382173831738417385173861738717388173891739017391173921739317394173951739617397173981739917400174011740217403174041740517406174071740817409174101741117412174131741417415174161741717418174191742017421174221742317424174251742617427174281742917430174311743217433174341743517436174371743817439174401744117442174431744417445174461744717448174491745017451174521745317454174551745617457174581745917460174611746217463174641746517466174671746817469174701747117472174731747417475174761747717478174791748017481174821748317484174851748617487174881748917490174911749217493174941749517496174971749817499175001750117502175031750417505175061750717508175091751017511175121751317514175151751617517175181751917520175211752217523175241752517526175271752817529175301753117532175331753417535175361753717538175391754017541175421754317544175451754617547175481754917550175511755217553175541755517556175571755817559175601756117562175631756417565175661756717568175691757017571175721757317574175751757617577175781757917580175811758217583175841758517586175871758817589175901759117592175931759417595175961759717598175991760017601176021760317604176051760617607176081760917610176111761217613176141761517616176171761817619176201762117622176231762417625176261762717628176291763017631176321763317634176351763617637176381763917640176411764217643176441764517646176471764817649176501765117652176531765417655176561765717658176591766017661176621766317664176651766617667176681766917670176711767217673176741767517676176771767817679176801768117682176831768417685176861768717688176891769017691176921769317694176951769617697176981769917700177011770217703177041770517706177071770817709177101771117712177131771417715177161771717718177191772017721177221772317724177251772617727177281772917730177311773217733177341773517736177371773817739177401774117742177431774417745177461774717748177491775017751177521775317754177551775617757177581775917760177611776217763177641776517766177671776817769177701777117772177731777417775177761777717778177791778017781177821778317784177851778617787177881778917790177911779217793177941779517796177971779817799178001780117802178031780417805178061780717808178091781017811178121781317814178151781617817178181781917820178211782217823178241782517826178271782817829178301783117832178331783417835178361783717838178391784017841178421784317844178451784617847178481784917850178511785217853178541785517856178571785817859178601786117862178631786417865178661786717868178691787017871178721787317874178751787617877178781787917880178811788217883178841788517886178871788817889178901789117892178931789417895178961789717898178991790017901179021790317904179051790617907179081790917910179111791217913179141791517916179171791817919179201792117922179231792417925179261792717928179291793017931179321793317934179351793617937179381793917940179411794217943179441794517946179471794817949179501795117952179531795417955179561795717958179591796017961179621796317964179651796617967179681796917970179711797217973179741797517976179771797817979179801798117982179831798417985179861798717988179891799017991179921799317994179951799617997179981799918000180011800218003180041800518006180071800818009180101801118012180131801418015180161801718018180191802018021180221802318024180251802618027180281802918030180311803218033180341803518036180371803818039180401804118042180431804418045180461804718048180491805018051180521805318054180551805618057180581805918060180611806218063180641806518066180671806818069180701807118072180731807418075180761807718078180791808018081180821808318084180851808618087180881808918090180911809218093180941809518096180971809818099181001810118102181031810418105181061810718108181091811018111181121811318114181151811618117181181811918120181211812218123181241812518126181271812818129181301813118132181331813418135181361813718138181391814018141181421814318144181451814618147181481814918150181511815218153181541815518156181571815818159181601816118162181631816418165181661816718168181691817018171181721817318174181751817618177181781817918180181811818218183181841818518186181871818818189181901819118192181931819418195181961819718198181991820018201182021820318204182051820618207182081820918210182111821218213182141821518216182171821818219182201822118222182231822418225182261822718228182291823018231182321823318234182351823618237182381823918240182411824218243182441824518246182471824818249182501825118252182531825418255182561825718258182591826018261182621826318264182651826618267182681826918270182711827218273182741827518276182771827818279182801828118282182831828418285182861828718288182891829018291182921829318294182951829618297182981829918300183011830218303183041830518306183071830818309183101831118312183131831418315183161831718318183191832018321183221832318324183251832618327183281832918330183311833218333183341833518336183371833818339183401834118342183431834418345183461834718348183491835018351183521835318354183551835618357183581835918360183611836218363183641836518366183671836818369183701837118372183731837418375183761837718378183791838018381183821838318384183851838618387183881838918390183911839218393183941839518396183971839818399184001840118402184031840418405184061840718408184091841018411184121841318414184151841618417184181841918420184211842218423184241842518426184271842818429184301843118432184331843418435184361843718438184391844018441184421844318444184451844618447184481844918450184511845218453184541845518456184571845818459184601846118462184631846418465184661846718468184691847018471184721847318474184751847618477184781847918480184811848218483184841848518486184871848818489184901849118492184931849418495184961849718498184991850018501185021850318504185051850618507185081850918510185111851218513185141851518516185171851818519185201852118522185231852418525185261852718528185291853018531185321853318534185351853618537185381853918540185411854218543185441854518546185471854818549185501855118552185531855418555185561855718558185591856018561185621856318564185651856618567185681856918570185711857218573185741857518576185771857818579185801858118582185831858418585185861858718588185891859018591185921859318594185951859618597185981859918600186011860218603186041860518606186071860818609186101861118612186131861418615186161861718618186191862018621186221862318624186251862618627186281862918630186311863218633186341863518636186371863818639186401864118642186431864418645186461864718648186491865018651186521865318654186551865618657186581865918660186611866218663186641866518666186671866818669186701867118672186731867418675186761867718678186791868018681186821868318684186851868618687186881868918690186911869218693186941869518696186971869818699187001870118702187031870418705187061870718708187091871018711187121871318714187151871618717187181871918720187211872218723187241872518726187271872818729187301873118732187331873418735187361873718738187391874018741187421874318744187451874618747187481874918750187511875218753187541875518756187571875818759187601876118762187631876418765187661876718768187691877018771187721877318774187751877618777187781877918780187811878218783187841878518786187871878818789187901879118792187931879418795187961879718798187991880018801188021880318804188051880618807188081880918810188111881218813188141881518816188171881818819188201882118822188231882418825188261882718828188291883018831188321883318834188351883618837188381883918840188411884218843188441884518846188471884818849188501885118852188531885418855188561885718858188591886018861188621886318864188651886618867188681886918870188711887218873188741887518876188771887818879188801888118882188831888418885188861888718888188891889018891188921889318894188951889618897188981889918900189011890218903189041890518906189071890818909189101891118912189131891418915189161891718918189191892018921189221892318924189251892618927189281892918930189311893218933189341893518936189371893818939189401894118942189431894418945189461894718948189491895018951189521895318954189551895618957189581895918960189611896218963189641896518966189671896818969189701897118972189731897418975189761897718978189791898018981189821898318984189851898618987189881898918990189911899218993189941899518996189971899818999190001900119002190031900419005190061900719008190091901019011190121901319014190151901619017190181901919020190211902219023190241902519026190271902819029190301903119032190331903419035190361903719038190391904019041190421904319044190451904619047190481904919050190511905219053190541905519056190571905819059190601906119062190631906419065190661906719068190691907019071190721907319074190751907619077190781907919080190811908219083190841908519086190871908819089190901909119092190931909419095190961909719098190991910019101191021910319104191051910619107191081910919110191111911219113191141911519116191171911819119191201912119122191231912419125191261912719128191291913019131191321913319134191351913619137191381913919140191411914219143191441914519146191471914819149191501915119152191531915419155191561915719158191591916019161191621916319164191651916619167191681916919170191711917219173191741917519176191771917819179191801918119182191831918419185191861918719188191891919019191191921919319194191951919619197191981919919200192011920219203192041920519206192071920819209192101921119212192131921419215192161921719218192191922019221192221922319224192251922619227192281922919230192311923219233192341923519236192371923819239192401924119242192431924419245192461924719248192491925019251192521925319254192551925619257192581925919260192611926219263192641926519266192671926819269192701927119272192731927419275192761927719278192791928019281192821928319284192851928619287192881928919290192911929219293192941929519296192971929819299193001930119302193031930419305193061930719308193091931019311193121931319314193151931619317193181931919320193211932219323193241932519326193271932819329193301933119332193331933419335193361933719338193391934019341193421934319344193451934619347193481934919350193511935219353193541935519356193571935819359193601936119362193631936419365193661936719368193691937019371193721937319374193751937619377193781937919380193811938219383193841938519386193871938819389193901939119392193931939419395193961939719398193991940019401194021940319404194051940619407194081940919410194111941219413194141941519416194171941819419194201942119422194231942419425194261942719428194291943019431194321943319434194351943619437194381943919440194411944219443194441944519446194471944819449194501945119452194531945419455194561945719458194591946019461194621946319464194651946619467194681946919470194711947219473194741947519476194771947819479194801948119482194831948419485194861948719488194891949019491194921949319494194951949619497194981949919500195011950219503195041950519506195071950819509195101951119512195131951419515195161951719518195191952019521195221952319524195251952619527195281952919530195311953219533195341953519536195371953819539195401954119542195431954419545195461954719548195491955019551195521955319554195551955619557195581955919560195611956219563195641956519566195671956819569195701957119572195731957419575195761957719578195791958019581195821958319584195851958619587195881958919590195911959219593195941959519596195971959819599196001960119602196031960419605196061960719608196091961019611196121961319614196151961619617196181961919620196211962219623196241962519626196271962819629196301963119632196331963419635196361963719638196391964019641196421964319644196451964619647196481964919650196511965219653196541965519656196571965819659196601966119662196631966419665196661966719668196691967019671196721967319674196751967619677196781967919680196811968219683196841968519686196871968819689196901969119692196931969419695196961969719698196991970019701197021970319704197051970619707197081970919710197111971219713197141971519716197171971819719197201972119722197231972419725197261972719728197291973019731197321973319734197351973619737197381973919740197411974219743197441974519746197471974819749197501975119752197531975419755197561975719758197591976019761197621976319764197651976619767197681976919770197711977219773197741977519776197771977819779197801978119782197831978419785197861978719788197891979019791197921979319794197951979619797197981979919800198011980219803198041980519806198071980819809198101981119812198131981419815198161981719818198191982019821198221982319824198251982619827198281982919830198311983219833198341983519836198371983819839198401984119842198431984419845198461984719848198491985019851198521985319854198551985619857198581985919860198611986219863198641986519866198671986819869198701987119872198731987419875198761987719878198791988019881198821988319884198851988619887198881988919890198911989219893198941989519896198971989819899199001990119902199031990419905199061990719908199091991019911199121991319914199151991619917199181991919920199211992219923199241992519926199271992819929199301993119932199331993419935199361993719938199391994019941199421994319944199451994619947199481994919950199511995219953199541995519956199571995819959199601996119962199631996419965199661996719968199691997019971199721997319974199751997619977199781997919980199811998219983199841998519986199871998819989199901999119992199931999419995199961999719998199992000020001200022000320004200052000620007200082000920010200112001220013200142001520016200172001820019200202002120022200232002420025200262002720028200292003020031200322003320034200352003620037200382003920040200412004220043200442004520046200472004820049200502005120052200532005420055200562005720058200592006020061200622006320064200652006620067200682006920070200712007220073200742007520076200772007820079200802008120082200832008420085200862008720088200892009020091200922009320094200952009620097200982009920100201012010220103201042010520106201072010820109201102011120112201132011420115201162011720118201192012020121201222012320124201252012620127201282012920130201312013220133201342013520136201372013820139201402014120142201432014420145201462014720148201492015020151201522015320154201552015620157201582015920160201612016220163201642016520166201672016820169201702017120172201732017420175201762017720178201792018020181201822018320184201852018620187201882018920190201912019220193201942019520196201972019820199202002020120202202032020420205202062020720208202092021020211202122021320214202152021620217202182021920220202212022220223202242022520226202272022820229202302023120232202332023420235202362023720238202392024020241202422024320244202452024620247202482024920250202512025220253202542025520256202572025820259202602026120262202632026420265202662026720268202692027020271202722027320274202752027620277202782027920280202812028220283202842028520286202872028820289202902029120292202932029420295202962029720298202992030020301203022030320304203052030620307203082030920310203112031220313203142031520316203172031820319203202032120322203232032420325203262032720328203292033020331203322033320334203352033620337203382033920340203412034220343203442034520346203472034820349203502035120352203532035420355203562035720358203592036020361203622036320364203652036620367203682036920370203712037220373203742037520376203772037820379203802038120382203832038420385203862038720388203892039020391203922039320394203952039620397203982039920400204012040220403204042040520406204072040820409204102041120412204132041420415204162041720418204192042020421204222042320424204252042620427204282042920430204312043220433204342043520436204372043820439204402044120442204432044420445204462044720448204492045020451204522045320454204552045620457204582045920460204612046220463204642046520466204672046820469204702047120472204732047420475204762047720478204792048020481204822048320484204852048620487204882048920490204912049220493204942049520496204972049820499205002050120502205032050420505205062050720508205092051020511205122051320514205152051620517205182051920520205212052220523205242052520526205272052820529205302053120532205332053420535205362053720538205392054020541205422054320544205452054620547205482054920550205512055220553205542055520556205572055820559205602056120562205632056420565205662056720568205692057020571205722057320574205752057620577205782057920580205812058220583205842058520586205872058820589205902059120592205932059420595205962059720598205992060020601206022060320604206052060620607206082060920610206112061220613206142061520616206172061820619206202062120622206232062420625206262062720628206292063020631206322063320634206352063620637206382063920640206412064220643206442064520646206472064820649206502065120652206532065420655206562065720658206592066020661206622066320664206652066620667206682066920670206712067220673206742067520676206772067820679206802068120682206832068420685206862068720688206892069020691206922069320694206952069620697206982069920700207012070220703207042070520706207072070820709207102071120712207132071420715207162071720718207192072020721207222072320724207252072620727207282072920730207312073220733207342073520736207372073820739207402074120742207432074420745207462074720748207492075020751207522075320754207552075620757207582075920760207612076220763207642076520766207672076820769207702077120772207732077420775207762077720778207792078020781207822078320784207852078620787207882078920790207912079220793207942079520796207972079820799208002080120802208032080420805208062080720808208092081020811208122081320814208152081620817208182081920820208212082220823208242082520826208272082820829208302083120832208332083420835208362083720838208392084020841208422084320844208452084620847208482084920850208512085220853208542085520856208572085820859208602086120862208632086420865208662086720868208692087020871208722087320874208752087620877208782087920880208812088220883208842088520886208872088820889208902089120892208932089420895208962089720898208992090020901209022090320904209052090620907209082090920910209112091220913209142091520916209172091820919209202092120922209232092420925209262092720928209292093020931209322093320934209352093620937209382093920940209412094220943209442094520946209472094820949209502095120952209532095420955209562095720958209592096020961209622096320964209652096620967209682096920970209712097220973209742097520976209772097820979209802098120982209832098420985209862098720988209892099020991209922099320994209952099620997209982099921000210012100221003210042100521006210072100821009210102101121012210132101421015210162101721018210192102021021210222102321024210252102621027210282102921030210312103221033210342103521036210372103821039210402104121042210432104421045210462104721048210492105021051210522105321054210552105621057210582105921060210612106221063210642106521066210672106821069210702107121072210732107421075210762107721078210792108021081210822108321084210852108621087210882108921090210912109221093210942109521096210972109821099211002110121102211032110421105211062110721108211092111021111211122111321114211152111621117211182111921120211212112221123211242112521126211272112821129211302113121132211332113421135211362113721138211392114021141211422114321144211452114621147211482114921150211512115221153211542115521156211572115821159211602116121162211632116421165211662116721168211692117021171211722117321174211752117621177211782117921180211812118221183211842118521186211872118821189211902119121192211932119421195211962119721198211992120021201212022120321204212052120621207212082120921210212112121221213212142121521216212172121821219212202122121222212232122421225212262122721228212292123021231212322123321234212352123621237212382123921240212412124221243212442124521246212472124821249212502125121252212532125421255212562125721258212592126021261212622126321264212652126621267212682126921270212712127221273212742127521276212772127821279212802128121282212832128421285212862128721288212892129021291212922129321294212952129621297212982129921300213012130221303213042130521306213072130821309213102131121312213132131421315213162131721318213192132021321213222132321324213252132621327213282132921330213312133221333213342133521336213372133821339213402134121342213432134421345213462134721348213492135021351213522135321354213552135621357213582135921360213612136221363213642136521366213672136821369213702137121372213732137421375213762137721378213792138021381213822138321384213852138621387213882138921390213912139221393213942139521396213972139821399214002140121402214032140421405214062140721408214092141021411214122141321414214152141621417214182141921420214212142221423214242142521426214272142821429214302143121432214332143421435214362143721438214392144021441214422144321444214452144621447214482144921450214512145221453214542145521456214572145821459214602146121462214632146421465214662146721468214692147021471214722147321474214752147621477214782147921480214812148221483214842148521486214872148821489214902149121492214932149421495214962149721498214992150021501215022150321504215052150621507215082150921510215112151221513215142151521516215172151821519215202152121522215232152421525215262152721528215292153021531215322153321534215352153621537215382153921540215412154221543215442154521546215472154821549215502155121552215532155421555215562155721558215592156021561215622156321564215652156621567215682156921570215712157221573215742157521576215772157821579215802158121582215832158421585215862158721588215892159021591215922159321594215952159621597215982159921600216012160221603216042160521606216072160821609216102161121612216132161421615216162161721618216192162021621216222162321624216252162621627216282162921630216312163221633216342163521636216372163821639216402164121642216432164421645216462164721648216492165021651216522165321654216552165621657216582165921660216612166221663216642166521666216672166821669216702167121672216732167421675216762167721678216792168021681216822168321684216852168621687216882168921690216912169221693216942169521696216972169821699217002170121702217032170421705217062170721708217092171021711217122171321714217152171621717217182171921720217212172221723217242172521726217272172821729217302173121732217332173421735217362173721738217392174021741217422174321744217452174621747217482174921750217512175221753217542175521756217572175821759217602176121762217632176421765217662176721768217692177021771217722177321774217752177621777217782177921780217812178221783217842178521786217872178821789217902179121792217932179421795217962179721798217992180021801218022180321804218052180621807218082180921810218112181221813218142181521816218172181821819218202182121822218232182421825218262182721828218292183021831218322183321834218352183621837218382183921840218412184221843218442184521846218472184821849218502185121852218532185421855218562185721858218592186021861218622186321864218652186621867218682186921870218712187221873218742187521876218772187821879218802188121882218832188421885218862188721888218892189021891218922189321894218952189621897218982189921900219012190221903219042190521906219072190821909219102191121912219132191421915219162191721918219192192021921219222192321924219252192621927219282192921930219312193221933219342193521936219372193821939219402194121942219432194421945219462194721948219492195021951219522195321954219552195621957219582195921960219612196221963219642196521966219672196821969219702197121972219732197421975219762197721978219792198021981219822198321984219852198621987219882198921990219912199221993219942199521996219972199821999220002200122002220032200422005220062200722008220092201022011220122201322014220152201622017220182201922020220212202222023220242202522026220272202822029220302203122032220332203422035220362203722038220392204022041220422204322044220452204622047220482204922050220512205222053220542205522056220572205822059220602206122062220632206422065220662206722068220692207022071220722207322074220752207622077220782207922080220812208222083220842208522086220872208822089220902209122092220932209422095220962209722098220992210022101221022210322104221052210622107221082210922110221112211222113221142211522116221172211822119221202212122122221232212422125221262212722128221292213022131221322213322134221352213622137221382213922140221412214222143221442214522146221472214822149221502215122152221532215422155221562215722158221592216022161221622216322164221652216622167221682216922170221712217222173221742217522176221772217822179221802218122182221832218422185221862218722188221892219022191221922219322194221952219622197221982219922200222012220222203222042220522206222072220822209222102221122212222132221422215222162221722218222192222022221222222222322224222252222622227222282222922230222312223222233222342223522236222372223822239222402224122242222432224422245222462224722248222492225022251222522225322254222552225622257222582225922260222612226222263222642226522266222672226822269222702227122272222732227422275222762227722278222792228022281222822228322284222852228622287222882228922290222912229222293222942229522296222972229822299223002230122302223032230422305223062230722308223092231022311223122231322314223152231622317223182231922320223212232222323223242232522326223272232822329223302233122332223332233422335223362233722338223392234022341223422234322344223452234622347223482234922350223512235222353223542235522356223572235822359223602236122362223632236422365223662236722368223692237022371223722237322374223752237622377223782237922380223812238222383223842238522386223872238822389223902239122392223932239422395223962239722398223992240022401224022240322404224052240622407224082240922410224112241222413224142241522416224172241822419224202242122422224232242422425224262242722428224292243022431224322243322434224352243622437224382243922440224412244222443224442244522446224472244822449224502245122452224532245422455224562245722458224592246022461224622246322464224652246622467224682246922470224712247222473224742247522476224772247822479224802248122482224832248422485224862248722488224892249022491224922249322494224952249622497224982249922500225012250222503225042250522506225072250822509225102251122512225132251422515225162251722518225192252022521225222252322524225252252622527225282252922530225312253222533225342253522536225372253822539225402254122542225432254422545225462254722548225492255022551225522255322554225552255622557225582255922560225612256222563225642256522566225672256822569225702257122572225732257422575225762257722578225792258022581225822258322584225852258622587225882258922590225912259222593225942259522596225972259822599226002260122602226032260422605226062260722608226092261022611226122261322614226152261622617226182261922620226212262222623226242262522626226272262822629226302263122632226332263422635226362263722638226392264022641226422264322644226452264622647226482264922650226512265222653226542265522656226572265822659226602266122662226632266422665226662266722668226692267022671226722267322674226752267622677226782267922680226812268222683226842268522686226872268822689226902269122692226932269422695226962269722698226992270022701227022270322704227052270622707227082270922710227112271222713227142271522716227172271822719227202272122722227232272422725227262272722728227292273022731227322273322734227352273622737227382273922740227412274222743227442274522746227472274822749227502275122752227532275422755227562275722758227592276022761227622276322764227652276622767227682276922770227712277222773227742277522776227772277822779227802278122782227832278422785227862278722788227892279022791227922279322794227952279622797227982279922800228012280222803228042280522806228072280822809228102281122812228132281422815228162281722818228192282022821228222282322824228252282622827228282282922830228312283222833228342283522836228372283822839228402284122842228432284422845228462284722848228492285022851228522285322854228552285622857228582285922860228612286222863228642286522866228672286822869228702287122872228732287422875228762287722878228792288022881228822288322884228852288622887228882288922890228912289222893228942289522896228972289822899229002290122902229032290422905229062290722908229092291022911229122291322914229152291622917229182291922920229212292222923229242292522926229272292822929229302293122932229332293422935229362293722938229392294022941229422294322944229452294622947229482294922950229512295222953229542295522956229572295822959229602296122962229632296422965229662296722968229692297022971229722297322974229752297622977229782297922980229812298222983229842298522986229872298822989229902299122992229932299422995229962299722998229992300023001230022300323004230052300623007230082300923010230112301223013230142301523016230172301823019230202302123022230232302423025230262302723028230292303023031230322303323034230352303623037230382303923040230412304223043230442304523046230472304823049230502305123052230532305423055230562305723058230592306023061230622306323064230652306623067230682306923070230712307223073230742307523076230772307823079230802308123082230832308423085230862308723088230892309023091230922309323094230952309623097230982309923100231012310223103231042310523106231072310823109231102311123112231132311423115231162311723118231192312023121231222312323124231252312623127231282312923130231312313223133231342313523136231372313823139231402314123142231432314423145231462314723148231492315023151231522315323154231552315623157231582315923160231612316223163231642316523166231672316823169231702317123172231732317423175231762317723178231792318023181231822318323184231852318623187231882318923190231912319223193231942319523196231972319823199232002320123202232032320423205232062320723208232092321023211232122321323214232152321623217232182321923220232212322223223232242322523226232272322823229232302323123232232332323423235232362323723238232392324023241232422324323244232452324623247232482324923250232512325223253232542325523256232572325823259232602326123262232632326423265232662326723268232692327023271232722327323274232752327623277232782327923280232812328223283232842328523286232872328823289232902329123292232932329423295232962329723298232992330023301233022330323304233052330623307233082330923310233112331223313233142331523316233172331823319233202332123322233232332423325233262332723328233292333023331233322333323334233352333623337233382333923340233412334223343233442334523346233472334823349233502335123352233532335423355233562335723358233592336023361233622336323364233652336623367233682336923370233712337223373233742337523376233772337823379233802338123382233832338423385233862338723388233892339023391233922339323394233952339623397233982339923400234012340223403234042340523406234072340823409234102341123412234132341423415234162341723418234192342023421234222342323424234252342623427234282342923430234312343223433234342343523436234372343823439234402344123442234432344423445234462344723448234492345023451234522345323454234552345623457234582345923460234612346223463234642346523466234672346823469234702347123472234732347423475234762347723478234792348023481234822348323484234852348623487234882348923490234912349223493234942349523496234972349823499235002350123502235032350423505235062350723508235092351023511235122351323514235152351623517235182351923520235212352223523235242352523526235272352823529235302353123532235332353423535235362353723538235392354023541235422354323544235452354623547235482354923550235512355223553235542355523556235572355823559235602356123562235632356423565235662356723568235692357023571235722357323574235752357623577235782357923580235812358223583235842358523586235872358823589235902359123592235932359423595235962359723598235992360023601236022360323604236052360623607236082360923610236112361223613236142361523616236172361823619236202362123622236232362423625236262362723628236292363023631236322363323634236352363623637236382363923640236412364223643236442364523646236472364823649236502365123652236532365423655236562365723658236592366023661236622366323664236652366623667236682366923670236712367223673236742367523676236772367823679236802368123682236832368423685236862368723688236892369023691236922369323694236952369623697236982369923700237012370223703237042370523706237072370823709237102371123712237132371423715237162371723718237192372023721237222372323724237252372623727237282372923730237312373223733237342373523736237372373823739237402374123742237432374423745237462374723748237492375023751237522375323754237552375623757237582375923760237612376223763237642376523766237672376823769237702377123772237732377423775237762377723778237792378023781237822378323784237852378623787237882378923790237912379223793237942379523796237972379823799238002380123802238032380423805238062380723808238092381023811238122381323814238152381623817238182381923820238212382223823238242382523826238272382823829238302383123832238332383423835238362383723838238392384023841238422384323844238452384623847238482384923850238512385223853238542385523856238572385823859238602386123862238632386423865238662386723868238692387023871238722387323874238752387623877238782387923880238812388223883238842388523886238872388823889238902389123892238932389423895238962389723898238992390023901239022390323904239052390623907239082390923910239112391223913239142391523916239172391823919239202392123922239232392423925239262392723928239292393023931239322393323934239352393623937239382393923940239412394223943239442394523946239472394823949239502395123952239532395423955239562395723958239592396023961239622396323964239652396623967239682396923970239712397223973239742397523976239772397823979239802398123982239832398423985239862398723988239892399023991239922399323994239952399623997239982399924000240012400224003240042400524006240072400824009240102401124012240132401424015240162401724018240192402024021240222402324024240252402624027240282402924030240312403224033240342403524036240372403824039240402404124042240432404424045240462404724048240492405024051240522405324054240552405624057240582405924060240612406224063240642406524066240672406824069240702407124072240732407424075240762407724078240792408024081240822408324084240852408624087240882408924090240912409224093240942409524096240972409824099241002410124102241032410424105241062410724108241092411024111241122411324114241152411624117241182411924120241212412224123241242412524126241272412824129241302413124132241332413424135241362413724138241392414024141241422414324144241452414624147241482414924150241512415224153241542415524156241572415824159241602416124162241632416424165241662416724168241692417024171241722417324174241752417624177241782417924180241812418224183241842418524186241872418824189241902419124192241932419424195241962419724198241992420024201242022420324204242052420624207242082420924210242112421224213242142421524216242172421824219242202422124222242232422424225242262422724228242292423024231242322423324234242352423624237242382423924240242412424224243242442424524246242472424824249242502425124252242532425424255242562425724258242592426024261242622426324264242652426624267242682426924270242712427224273242742427524276242772427824279242802428124282242832428424285242862428724288242892429024291242922429324294242952429624297242982429924300243012430224303243042430524306243072430824309243102431124312243132431424315243162431724318243192432024321243222432324324243252432624327243282432924330243312433224333243342433524336243372433824339243402434124342243432434424345243462434724348243492435024351243522435324354243552435624357243582435924360243612436224363243642436524366243672436824369243702437124372243732437424375243762437724378243792438024381243822438324384243852438624387243882438924390243912439224393243942439524396243972439824399244002440124402244032440424405244062440724408244092441024411244122441324414244152441624417244182441924420244212442224423244242442524426244272442824429244302443124432244332443424435244362443724438244392444024441244422444324444244452444624447244482444924450244512445224453244542445524456244572445824459244602446124462244632446424465244662446724468244692447024471244722447324474244752447624477244782447924480244812448224483244842448524486244872448824489244902449124492244932449424495244962449724498244992450024501245022450324504245052450624507245082450924510245112451224513245142451524516245172451824519245202452124522245232452424525245262452724528245292453024531245322453324534245352453624537245382453924540245412454224543245442454524546245472454824549245502455124552245532455424555245562455724558245592456024561245622456324564245652456624567245682456924570245712457224573245742457524576245772457824579245802458124582245832458424585245862458724588245892459024591245922459324594245952459624597245982459924600246012460224603246042460524606246072460824609246102461124612246132461424615246162461724618246192462024621246222462324624246252462624627246282462924630246312463224633246342463524636246372463824639246402464124642246432464424645246462464724648246492465024651246522465324654246552465624657246582465924660246612466224663246642466524666246672466824669246702467124672246732467424675246762467724678246792468024681246822468324684246852468624687246882468924690246912469224693246942469524696246972469824699247002470124702247032470424705247062470724708247092471024711247122471324714247152471624717247182471924720247212472224723247242472524726247272472824729247302473124732247332473424735247362473724738247392474024741247422474324744247452474624747247482474924750247512475224753247542475524756247572475824759247602476124762247632476424765247662476724768247692477024771247722477324774247752477624777247782477924780247812478224783247842478524786247872478824789247902479124792247932479424795247962479724798247992480024801248022480324804248052480624807248082480924810248112481224813248142481524816248172481824819248202482124822248232482424825248262482724828248292483024831248322483324834248352483624837248382483924840248412484224843248442484524846248472484824849248502485124852248532485424855248562485724858248592486024861248622486324864248652486624867248682486924870248712487224873248742487524876248772487824879248802488124882248832488424885248862488724888248892489024891248922489324894248952489624897248982489924900249012490224903249042490524906249072490824909249102491124912249132491424915249162491724918249192492024921249222492324924249252492624927249282492924930249312493224933249342493524936249372493824939249402494124942249432494424945249462494724948249492495024951249522495324954249552495624957249582495924960249612496224963249642496524966249672496824969249702497124972249732497424975249762497724978249792498024981249822498324984249852498624987249882498924990249912499224993249942499524996249972499824999250002500125002250032500425005250062500725008250092501025011250122501325014250152501625017250182501925020250212502225023250242502525026250272502825029250302503125032250332503425035250362503725038250392504025041250422504325044250452504625047250482504925050250512505225053250542505525056250572505825059250602506125062250632506425065250662506725068250692507025071250722507325074250752507625077250782507925080250812508225083250842508525086250872508825089250902509125092250932509425095250962509725098250992510025101251022510325104251052510625107251082510925110251112511225113251142511525116251172511825119251202512125122251232512425125251262512725128251292513025131251322513325134251352513625137251382513925140251412514225143251442514525146251472514825149251502515125152251532515425155251562515725158251592516025161251622516325164251652516625167251682516925170251712517225173251742517525176251772517825179251802518125182251832518425185251862518725188251892519025191251922519325194251952519625197251982519925200252012520225203252042520525206252072520825209252102521125212252132521425215252162521725218252192522025221252222522325224252252522625227252282522925230252312523225233252342523525236252372523825239252402524125242252432524425245252462524725248252492525025251252522525325254252552525625257252582525925260252612526225263252642526525266252672526825269252702527125272252732527425275252762527725278252792528025281252822528325284252852528625287252882528925290252912529225293252942529525296252972529825299253002530125302253032530425305253062530725308253092531025311253122531325314253152531625317253182531925320253212532225323253242532525326253272532825329253302533125332253332533425335253362533725338253392534025341253422534325344253452534625347253482534925350253512535225353253542535525356253572535825359253602536125362253632536425365253662536725368253692537025371253722537325374253752537625377253782537925380253812538225383253842538525386253872538825389253902539125392253932539425395253962539725398253992540025401254022540325404254052540625407254082540925410254112541225413254142541525416254172541825419254202542125422254232542425425254262542725428254292543025431254322543325434254352543625437254382543925440254412544225443254442544525446254472544825449254502545125452254532545425455254562545725458254592546025461254622546325464254652546625467254682546925470254712547225473254742547525476254772547825479254802548125482254832548425485254862548725488254892549025491254922549325494254952549625497254982549925500255012550225503255042550525506255072550825509255102551125512255132551425515255162551725518255192552025521255222552325524255252552625527255282552925530255312553225533255342553525536255372553825539255402554125542255432554425545255462554725548255492555025551255522555325554255552555625557255582555925560255612556225563255642556525566255672556825569255702557125572255732557425575255762557725578255792558025581255822558325584255852558625587255882558925590255912559225593255942559525596255972559825599256002560125602256032560425605256062560725608256092561025611256122561325614256152561625617256182561925620256212562225623256242562525626256272562825629256302563125632256332563425635256362563725638256392564025641256422564325644256452564625647256482564925650256512565225653256542565525656256572565825659256602566125662256632566425665256662566725668256692567025671256722567325674256752567625677256782567925680256812568225683256842568525686256872568825689256902569125692256932569425695256962569725698256992570025701257022570325704257052570625707257082570925710257112571225713257142571525716257172571825719257202572125722257232572425725257262572725728257292573025731257322573325734257352573625737257382573925740257412574225743257442574525746257472574825749257502575125752257532575425755257562575725758257592576025761257622576325764257652576625767257682576925770257712577225773257742577525776257772577825779257802578125782257832578425785257862578725788257892579025791257922579325794257952579625797257982579925800258012580225803258042580525806258072580825809258102581125812258132581425815258162581725818258192582025821258222582325824258252582625827258282582925830258312583225833258342583525836258372583825839258402584125842258432584425845258462584725848258492585025851258522585325854258552585625857258582585925860258612586225863258642586525866258672586825869258702587125872258732587425875258762587725878258792588025881258822588325884258852588625887258882588925890258912589225893258942589525896258972589825899259002590125902259032590425905259062590725908259092591025911259122591325914259152591625917259182591925920259212592225923259242592525926259272592825929259302593125932259332593425935259362593725938259392594025941259422594325944259452594625947259482594925950259512595225953259542595525956259572595825959259602596125962259632596425965259662596725968259692597025971259722597325974259752597625977259782597925980259812598225983259842598525986259872598825989259902599125992259932599425995259962599725998259992600026001260022600326004260052600626007260082600926010260112601226013260142601526016260172601826019260202602126022260232602426025260262602726028260292603026031260322603326034260352603626037260382603926040260412604226043260442604526046260472604826049260502605126052260532605426055260562605726058260592606026061260622606326064260652606626067260682606926070260712607226073260742607526076260772607826079260802608126082260832608426085260862608726088260892609026091260922609326094260952609626097260982609926100261012610226103261042610526106261072610826109261102611126112261132611426115261162611726118261192612026121261222612326124261252612626127261282612926130261312613226133261342613526136261372613826139261402614126142261432614426145261462614726148
  1. unit pic32mx420f032h;
  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. TI2C1_I2C1CON = 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. TI2C1_I2C1STAT = record
  1580. private
  1581. function getACKSTAT : TBits_1; inline;
  1582. function getADD10 : TBits_1; inline;
  1583. function getBCL : TBits_1; inline;
  1584. function getD_A : TBits_1; inline;
  1585. function getGCSTAT : TBits_1; inline;
  1586. function getI2COV : TBits_1; inline;
  1587. function getI2CPOV : TBits_1; inline;
  1588. function getIWCOL : TBits_1; inline;
  1589. function getP : TBits_1; inline;
  1590. function getRBF : TBits_1; inline;
  1591. function getR_W : TBits_1; inline;
  1592. function getS : TBits_1; inline;
  1593. function getTBF : TBits_1; inline;
  1594. function getTRSTAT : TBits_1; inline;
  1595. function getw : TBits_32; inline;
  1596. procedure setACKSTAT(thebits : TBits_1); inline;
  1597. procedure setADD10(thebits : TBits_1); inline;
  1598. procedure setBCL(thebits : TBits_1); inline;
  1599. procedure setD_A(thebits : TBits_1); inline;
  1600. procedure setGCSTAT(thebits : TBits_1); inline;
  1601. procedure setI2COV(thebits : TBits_1); inline;
  1602. procedure setI2CPOV(thebits : TBits_1); inline;
  1603. procedure setIWCOL(thebits : TBits_1); inline;
  1604. procedure setP(thebits : TBits_1); inline;
  1605. procedure setRBF(thebits : TBits_1); inline;
  1606. procedure setR_W(thebits : TBits_1); inline;
  1607. procedure setS(thebits : TBits_1); inline;
  1608. procedure setTBF(thebits : TBits_1); inline;
  1609. procedure setTRSTAT(thebits : TBits_1); inline;
  1610. procedure setw(thebits : TBits_32); inline;
  1611. public
  1612. procedure clearACKSTAT; inline;
  1613. procedure clearADD10; inline;
  1614. procedure clearBCL; inline;
  1615. procedure clearD_A; inline;
  1616. procedure clearGCSTAT; inline;
  1617. procedure clearI2COV; inline;
  1618. procedure clearI2CPOV; inline;
  1619. procedure clearIWCOL; inline;
  1620. procedure clearP; inline;
  1621. procedure clearRBF; inline;
  1622. procedure clearR_W; inline;
  1623. procedure clearS; inline;
  1624. procedure clearTBF; inline;
  1625. procedure clearTRSTAT; inline;
  1626. procedure setACKSTAT; inline;
  1627. procedure setADD10; inline;
  1628. procedure setBCL; inline;
  1629. procedure setD_A; inline;
  1630. procedure setGCSTAT; inline;
  1631. procedure setI2COV; inline;
  1632. procedure setI2CPOV; inline;
  1633. procedure setIWCOL; inline;
  1634. procedure setP; inline;
  1635. procedure setRBF; inline;
  1636. procedure setR_W; inline;
  1637. procedure setS; inline;
  1638. procedure setTBF; inline;
  1639. procedure setTRSTAT; inline;
  1640. property ACKSTAT : TBits_1 read getACKSTAT write setACKSTAT;
  1641. property ADD10 : TBits_1 read getADD10 write setADD10;
  1642. property BCL : TBits_1 read getBCL write setBCL;
  1643. property D_A : TBits_1 read getD_A write setD_A;
  1644. property GCSTAT : TBits_1 read getGCSTAT write setGCSTAT;
  1645. property I2COV : TBits_1 read getI2COV write setI2COV;
  1646. property I2CPOV : TBits_1 read getI2CPOV write setI2CPOV;
  1647. property IWCOL : TBits_1 read getIWCOL write setIWCOL;
  1648. property P : TBits_1 read getP write setP;
  1649. property RBF : TBits_1 read getRBF write setRBF;
  1650. property R_W : TBits_1 read getR_W write setR_W;
  1651. property S : TBits_1 read getS write setS;
  1652. property TBF : TBits_1 read getTBF write setTBF;
  1653. property TRSTAT : TBits_1 read getTRSTAT write setTRSTAT;
  1654. property w : TBits_32 read getw write setw;
  1655. end;
  1656. type
  1657. TI2C1Registers = record
  1658. I2C1CONbits : TI2C1_I2C1CON;
  1659. I2C1CON : longWord;
  1660. I2C1CONCLR : longWord;
  1661. I2C1CONSET : longWord;
  1662. I2C1CONINV : longWord;
  1663. I2C1STATbits : TI2C1_I2C1STAT;
  1664. I2C1STAT : longWord;
  1665. I2C1STATCLR : longWord;
  1666. I2C1STATSET : longWord;
  1667. I2C1STATINV : longWord;
  1668. I2C1ADD : longWord;
  1669. I2C1ADDCLR : longWord;
  1670. I2C1ADDSET : longWord;
  1671. I2C1ADDINV : longWord;
  1672. I2C1MSK : longWord;
  1673. I2C1MSKCLR : longWord;
  1674. I2C1MSKSET : longWord;
  1675. I2C1MSKINV : longWord;
  1676. I2C1BRG : longWord;
  1677. I2C1BRGCLR : longWord;
  1678. I2C1BRGSET : longWord;
  1679. I2C1BRGINV : longWord;
  1680. I2C1TRN : longWord;
  1681. I2C1TRNCLR : longWord;
  1682. I2C1TRNSET : longWord;
  1683. I2C1TRNINV : longWord;
  1684. I2C1RCV : longWord;
  1685. end;
  1686. TI2C2_I2C2CON = record
  1687. private
  1688. function getA10M : TBits_1; inline;
  1689. function getACKDT : TBits_1; inline;
  1690. function getACKEN : TBits_1; inline;
  1691. function getDISSLW : TBits_1; inline;
  1692. function getGCEN : TBits_1; inline;
  1693. function getI2CEN : TBits_1; inline;
  1694. function getI2CSIDL : TBits_1; inline;
  1695. function getIPMIEN : TBits_1; inline;
  1696. function getON : TBits_1; inline;
  1697. function getPEN : TBits_1; inline;
  1698. function getRCEN : TBits_1; inline;
  1699. function getRSEN : TBits_1; inline;
  1700. function getSCLREL : TBits_1; inline;
  1701. function getSEN : TBits_1; inline;
  1702. function getSIDL : TBits_1; inline;
  1703. function getSMEN : TBits_1; inline;
  1704. function getSTREN : TBits_1; inline;
  1705. function getSTRICT : TBits_1; inline;
  1706. function getw : TBits_32; inline;
  1707. procedure setA10M(thebits : TBits_1); inline;
  1708. procedure setACKDT(thebits : TBits_1); inline;
  1709. procedure setACKEN(thebits : TBits_1); inline;
  1710. procedure setDISSLW(thebits : TBits_1); inline;
  1711. procedure setGCEN(thebits : TBits_1); inline;
  1712. procedure setI2CEN(thebits : TBits_1); inline;
  1713. procedure setI2CSIDL(thebits : TBits_1); inline;
  1714. procedure setIPMIEN(thebits : TBits_1); inline;
  1715. procedure setON(thebits : TBits_1); inline;
  1716. procedure setPEN(thebits : TBits_1); inline;
  1717. procedure setRCEN(thebits : TBits_1); inline;
  1718. procedure setRSEN(thebits : TBits_1); inline;
  1719. procedure setSCLREL(thebits : TBits_1); inline;
  1720. procedure setSEN(thebits : TBits_1); inline;
  1721. procedure setSIDL(thebits : TBits_1); inline;
  1722. procedure setSMEN(thebits : TBits_1); inline;
  1723. procedure setSTREN(thebits : TBits_1); inline;
  1724. procedure setSTRICT(thebits : TBits_1); inline;
  1725. procedure setw(thebits : TBits_32); inline;
  1726. public
  1727. procedure clearA10M; inline;
  1728. procedure clearACKDT; inline;
  1729. procedure clearACKEN; inline;
  1730. procedure clearDISSLW; inline;
  1731. procedure clearGCEN; inline;
  1732. procedure clearI2CEN; inline;
  1733. procedure clearI2CSIDL; inline;
  1734. procedure clearIPMIEN; inline;
  1735. procedure clearON; inline;
  1736. procedure clearPEN; inline;
  1737. procedure clearRCEN; inline;
  1738. procedure clearRSEN; inline;
  1739. procedure clearSCLREL; inline;
  1740. procedure clearSEN; inline;
  1741. procedure clearSIDL; inline;
  1742. procedure clearSMEN; inline;
  1743. procedure clearSTREN; inline;
  1744. procedure clearSTRICT; inline;
  1745. procedure setA10M; inline;
  1746. procedure setACKDT; inline;
  1747. procedure setACKEN; inline;
  1748. procedure setDISSLW; inline;
  1749. procedure setGCEN; inline;
  1750. procedure setI2CEN; inline;
  1751. procedure setI2CSIDL; inline;
  1752. procedure setIPMIEN; inline;
  1753. procedure setON; inline;
  1754. procedure setPEN; inline;
  1755. procedure setRCEN; inline;
  1756. procedure setRSEN; inline;
  1757. procedure setSCLREL; inline;
  1758. procedure setSEN; inline;
  1759. procedure setSIDL; inline;
  1760. procedure setSMEN; inline;
  1761. procedure setSTREN; inline;
  1762. procedure setSTRICT; inline;
  1763. property A10M : TBits_1 read getA10M write setA10M;
  1764. property ACKDT : TBits_1 read getACKDT write setACKDT;
  1765. property ACKEN : TBits_1 read getACKEN write setACKEN;
  1766. property DISSLW : TBits_1 read getDISSLW write setDISSLW;
  1767. property GCEN : TBits_1 read getGCEN write setGCEN;
  1768. property I2CEN : TBits_1 read getI2CEN write setI2CEN;
  1769. property I2CSIDL : TBits_1 read getI2CSIDL write setI2CSIDL;
  1770. property IPMIEN : TBits_1 read getIPMIEN write setIPMIEN;
  1771. property ON : TBits_1 read getON write setON;
  1772. property PEN : TBits_1 read getPEN write setPEN;
  1773. property RCEN : TBits_1 read getRCEN write setRCEN;
  1774. property RSEN : TBits_1 read getRSEN write setRSEN;
  1775. property SCLREL : TBits_1 read getSCLREL write setSCLREL;
  1776. property SEN : TBits_1 read getSEN write setSEN;
  1777. property SIDL : TBits_1 read getSIDL write setSIDL;
  1778. property SMEN : TBits_1 read getSMEN write setSMEN;
  1779. property STREN : TBits_1 read getSTREN write setSTREN;
  1780. property STRICT : TBits_1 read getSTRICT write setSTRICT;
  1781. property w : TBits_32 read getw write setw;
  1782. end;
  1783. TI2C2_I2C2STAT = record
  1784. private
  1785. function getACKSTAT : TBits_1; inline;
  1786. function getADD10 : TBits_1; inline;
  1787. function getBCL : TBits_1; inline;
  1788. function getD_A : TBits_1; inline;
  1789. function getGCSTAT : TBits_1; inline;
  1790. function getI2COV : TBits_1; inline;
  1791. function getI2CPOV : TBits_1; inline;
  1792. function getIWCOL : TBits_1; inline;
  1793. function getP : TBits_1; inline;
  1794. function getRBF : TBits_1; inline;
  1795. function getR_W : TBits_1; inline;
  1796. function getS : TBits_1; inline;
  1797. function getTBF : TBits_1; inline;
  1798. function getTRSTAT : TBits_1; inline;
  1799. function getw : TBits_32; inline;
  1800. procedure setACKSTAT(thebits : TBits_1); inline;
  1801. procedure setADD10(thebits : TBits_1); inline;
  1802. procedure setBCL(thebits : TBits_1); inline;
  1803. procedure setD_A(thebits : TBits_1); inline;
  1804. procedure setGCSTAT(thebits : TBits_1); inline;
  1805. procedure setI2COV(thebits : TBits_1); inline;
  1806. procedure setI2CPOV(thebits : TBits_1); inline;
  1807. procedure setIWCOL(thebits : TBits_1); inline;
  1808. procedure setP(thebits : TBits_1); inline;
  1809. procedure setRBF(thebits : TBits_1); inline;
  1810. procedure setR_W(thebits : TBits_1); inline;
  1811. procedure setS(thebits : TBits_1); inline;
  1812. procedure setTBF(thebits : TBits_1); inline;
  1813. procedure setTRSTAT(thebits : TBits_1); inline;
  1814. procedure setw(thebits : TBits_32); inline;
  1815. public
  1816. procedure clearACKSTAT; inline;
  1817. procedure clearADD10; inline;
  1818. procedure clearBCL; inline;
  1819. procedure clearD_A; inline;
  1820. procedure clearGCSTAT; inline;
  1821. procedure clearI2COV; inline;
  1822. procedure clearI2CPOV; inline;
  1823. procedure clearIWCOL; inline;
  1824. procedure clearP; inline;
  1825. procedure clearRBF; inline;
  1826. procedure clearR_W; inline;
  1827. procedure clearS; inline;
  1828. procedure clearTBF; inline;
  1829. procedure clearTRSTAT; inline;
  1830. procedure setACKSTAT; inline;
  1831. procedure setADD10; inline;
  1832. procedure setBCL; inline;
  1833. procedure setD_A; inline;
  1834. procedure setGCSTAT; inline;
  1835. procedure setI2COV; inline;
  1836. procedure setI2CPOV; inline;
  1837. procedure setIWCOL; inline;
  1838. procedure setP; inline;
  1839. procedure setRBF; inline;
  1840. procedure setR_W; inline;
  1841. procedure setS; inline;
  1842. procedure setTBF; inline;
  1843. procedure setTRSTAT; inline;
  1844. property ACKSTAT : TBits_1 read getACKSTAT write setACKSTAT;
  1845. property ADD10 : TBits_1 read getADD10 write setADD10;
  1846. property BCL : TBits_1 read getBCL write setBCL;
  1847. property D_A : TBits_1 read getD_A write setD_A;
  1848. property GCSTAT : TBits_1 read getGCSTAT write setGCSTAT;
  1849. property I2COV : TBits_1 read getI2COV write setI2COV;
  1850. property I2CPOV : TBits_1 read getI2CPOV write setI2CPOV;
  1851. property IWCOL : TBits_1 read getIWCOL write setIWCOL;
  1852. property P : TBits_1 read getP write setP;
  1853. property RBF : TBits_1 read getRBF write setRBF;
  1854. property R_W : TBits_1 read getR_W write setR_W;
  1855. property S : TBits_1 read getS write setS;
  1856. property TBF : TBits_1 read getTBF write setTBF;
  1857. property TRSTAT : TBits_1 read getTRSTAT write setTRSTAT;
  1858. property w : TBits_32 read getw write setw;
  1859. end;
  1860. type
  1861. TI2C2Registers = record
  1862. I2C2CONbits : TI2C2_I2C2CON;
  1863. I2C2CON : longWord;
  1864. I2C2CONCLR : longWord;
  1865. I2C2CONSET : longWord;
  1866. I2C2CONINV : longWord;
  1867. I2C2STATbits : TI2C2_I2C2STAT;
  1868. I2C2STAT : longWord;
  1869. I2C2STATCLR : longWord;
  1870. I2C2STATSET : longWord;
  1871. I2C2STATINV : longWord;
  1872. I2C2ADD : longWord;
  1873. I2C2ADDCLR : longWord;
  1874. I2C2ADDSET : longWord;
  1875. I2C2ADDINV : longWord;
  1876. I2C2MSK : longWord;
  1877. I2C2MSKCLR : longWord;
  1878. I2C2MSKSET : longWord;
  1879. I2C2MSKINV : longWord;
  1880. I2C2BRG : longWord;
  1881. I2C2BRGCLR : longWord;
  1882. I2C2BRGSET : longWord;
  1883. I2C2BRGINV : longWord;
  1884. I2C2TRN : longWord;
  1885. I2C2TRNCLR : longWord;
  1886. I2C2TRNSET : longWord;
  1887. I2C2TRNINV : longWord;
  1888. I2C2RCV : longWord;
  1889. end;
  1890. TSPI2_SPI2CON = record
  1891. private
  1892. function getCKE : TBits_1; inline;
  1893. function getCKP : TBits_1; inline;
  1894. function getDISSDO : TBits_1; inline;
  1895. function getFRMEN : TBits_1; inline;
  1896. function getFRMPOL : TBits_1; inline;
  1897. function getFRMSYNC : TBits_1; inline;
  1898. function getMODE16 : TBits_1; inline;
  1899. function getMODE32 : TBits_1; inline;
  1900. function getMSTEN : TBits_1; inline;
  1901. function getON : TBits_1; inline;
  1902. function getSIDL : TBits_1; inline;
  1903. function getSMP : TBits_1; inline;
  1904. function getSPIFE : TBits_1; inline;
  1905. function getSSEN : TBits_1; inline;
  1906. function getw : TBits_32; inline;
  1907. procedure setCKE(thebits : TBits_1); inline;
  1908. procedure setCKP(thebits : TBits_1); inline;
  1909. procedure setDISSDO(thebits : TBits_1); inline;
  1910. procedure setFRMEN(thebits : TBits_1); inline;
  1911. procedure setFRMPOL(thebits : TBits_1); inline;
  1912. procedure setFRMSYNC(thebits : TBits_1); inline;
  1913. procedure setMODE16(thebits : TBits_1); inline;
  1914. procedure setMODE32(thebits : TBits_1); inline;
  1915. procedure setMSTEN(thebits : TBits_1); inline;
  1916. procedure setON(thebits : TBits_1); inline;
  1917. procedure setSIDL(thebits : TBits_1); inline;
  1918. procedure setSMP(thebits : TBits_1); inline;
  1919. procedure setSPIFE(thebits : TBits_1); inline;
  1920. procedure setSSEN(thebits : TBits_1); inline;
  1921. procedure setw(thebits : TBits_32); inline;
  1922. public
  1923. procedure clearCKE; inline;
  1924. procedure clearCKP; inline;
  1925. procedure clearDISSDO; inline;
  1926. procedure clearFRMEN; inline;
  1927. procedure clearFRMPOL; inline;
  1928. procedure clearFRMSYNC; inline;
  1929. procedure clearMODE16; inline;
  1930. procedure clearMODE32; inline;
  1931. procedure clearMSTEN; inline;
  1932. procedure clearON; inline;
  1933. procedure clearSIDL; inline;
  1934. procedure clearSMP; inline;
  1935. procedure clearSPIFE; inline;
  1936. procedure clearSSEN; inline;
  1937. procedure setCKE; inline;
  1938. procedure setCKP; inline;
  1939. procedure setDISSDO; inline;
  1940. procedure setFRMEN; inline;
  1941. procedure setFRMPOL; inline;
  1942. procedure setFRMSYNC; inline;
  1943. procedure setMODE16; inline;
  1944. procedure setMODE32; inline;
  1945. procedure setMSTEN; inline;
  1946. procedure setON; inline;
  1947. procedure setSIDL; inline;
  1948. procedure setSMP; inline;
  1949. procedure setSPIFE; inline;
  1950. procedure setSSEN; inline;
  1951. property CKE : TBits_1 read getCKE write setCKE;
  1952. property CKP : TBits_1 read getCKP write setCKP;
  1953. property DISSDO : TBits_1 read getDISSDO write setDISSDO;
  1954. property FRMEN : TBits_1 read getFRMEN write setFRMEN;
  1955. property FRMPOL : TBits_1 read getFRMPOL write setFRMPOL;
  1956. property FRMSYNC : TBits_1 read getFRMSYNC write setFRMSYNC;
  1957. property MODE16 : TBits_1 read getMODE16 write setMODE16;
  1958. property MODE32 : TBits_1 read getMODE32 write setMODE32;
  1959. property MSTEN : TBits_1 read getMSTEN write setMSTEN;
  1960. property ON : TBits_1 read getON write setON;
  1961. property SIDL : TBits_1 read getSIDL write setSIDL;
  1962. property SMP : TBits_1 read getSMP write setSMP;
  1963. property SPIFE : TBits_1 read getSPIFE write setSPIFE;
  1964. property SSEN : TBits_1 read getSSEN write setSSEN;
  1965. property w : TBits_32 read getw write setw;
  1966. end;
  1967. TSPI2_SPI2STAT = record
  1968. private
  1969. function getSPIBUSY : TBits_1; inline;
  1970. function getSPIRBF : TBits_1; inline;
  1971. function getSPIROV : TBits_1; inline;
  1972. function getSPITBE : TBits_1; inline;
  1973. function getw : TBits_32; inline;
  1974. procedure setSPIBUSY(thebits : TBits_1); inline;
  1975. procedure setSPIRBF(thebits : TBits_1); inline;
  1976. procedure setSPIROV(thebits : TBits_1); inline;
  1977. procedure setSPITBE(thebits : TBits_1); inline;
  1978. procedure setw(thebits : TBits_32); inline;
  1979. public
  1980. procedure clearSPIBUSY; inline;
  1981. procedure clearSPIRBF; inline;
  1982. procedure clearSPIROV; inline;
  1983. procedure clearSPITBE; inline;
  1984. procedure setSPIBUSY; inline;
  1985. procedure setSPIRBF; inline;
  1986. procedure setSPIROV; inline;
  1987. procedure setSPITBE; inline;
  1988. property SPIBUSY : TBits_1 read getSPIBUSY write setSPIBUSY;
  1989. property SPIRBF : TBits_1 read getSPIRBF write setSPIRBF;
  1990. property SPIROV : TBits_1 read getSPIROV write setSPIROV;
  1991. property SPITBE : TBits_1 read getSPITBE write setSPITBE;
  1992. property w : TBits_32 read getw write setw;
  1993. end;
  1994. type
  1995. TSPI2Registers = record
  1996. SPI2CONbits : TSPI2_SPI2CON;
  1997. SPI2CON : longWord;
  1998. SPI2CONCLR : longWord;
  1999. SPI2CONSET : longWord;
  2000. SPI2CONINV : longWord;
  2001. SPI2STATbits : TSPI2_SPI2STAT;
  2002. SPI2STAT : longWord;
  2003. SPI2STATCLR : longWord;
  2004. SPI2STATSET : longWord;
  2005. SPI2STATINV : longWord;
  2006. SPI2BUF : longWord;
  2007. SPI2BRG : longWord;
  2008. SPI2BRGCLR : longWord;
  2009. SPI2BRGSET : longWord;
  2010. SPI2BRGINV : longWord;
  2011. end;
  2012. TUART1_U1MODE = record
  2013. private
  2014. function getABAUD : TBits_1; inline;
  2015. function getBRGH : TBits_1; inline;
  2016. function getIREN : TBits_1; inline;
  2017. function getLPBACK : TBits_1; inline;
  2018. function getON : TBits_1; inline;
  2019. function getPDSEL : TBits_2; inline;
  2020. function getPDSEL0 : TBits_1; inline;
  2021. function getPDSEL1 : TBits_1; inline;
  2022. function getRTSMD : TBits_1; inline;
  2023. function getRXINV : TBits_1; inline;
  2024. function getSIDL : TBits_1; inline;
  2025. function getSTSEL : TBits_1; inline;
  2026. function getUARTEN : TBits_1; inline;
  2027. function getUEN : TBits_2; inline;
  2028. function getUEN0 : TBits_1; inline;
  2029. function getUEN1 : TBits_1; inline;
  2030. function getUSIDL : TBits_1; inline;
  2031. function getWAKE : TBits_1; inline;
  2032. function getw : TBits_32; inline;
  2033. procedure setABAUD(thebits : TBits_1); inline;
  2034. procedure setBRGH(thebits : TBits_1); inline;
  2035. procedure setIREN(thebits : TBits_1); inline;
  2036. procedure setLPBACK(thebits : TBits_1); inline;
  2037. procedure setON(thebits : TBits_1); inline;
  2038. procedure setPDSEL(thebits : TBits_2); inline;
  2039. procedure setPDSEL0(thebits : TBits_1); inline;
  2040. procedure setPDSEL1(thebits : TBits_1); inline;
  2041. procedure setRTSMD(thebits : TBits_1); inline;
  2042. procedure setRXINV(thebits : TBits_1); inline;
  2043. procedure setSIDL(thebits : TBits_1); inline;
  2044. procedure setSTSEL(thebits : TBits_1); inline;
  2045. procedure setUARTEN(thebits : TBits_1); inline;
  2046. procedure setUEN(thebits : TBits_2); inline;
  2047. procedure setUEN0(thebits : TBits_1); inline;
  2048. procedure setUEN1(thebits : TBits_1); inline;
  2049. procedure setUSIDL(thebits : TBits_1); inline;
  2050. procedure setWAKE(thebits : TBits_1); inline;
  2051. procedure setw(thebits : TBits_32); inline;
  2052. public
  2053. procedure clearABAUD; inline;
  2054. procedure clearBRGH; inline;
  2055. procedure clearIREN; inline;
  2056. procedure clearLPBACK; inline;
  2057. procedure clearON; inline;
  2058. procedure clearPDSEL0; inline;
  2059. procedure clearPDSEL1; inline;
  2060. procedure clearRTSMD; inline;
  2061. procedure clearRXINV; inline;
  2062. procedure clearSIDL; inline;
  2063. procedure clearSTSEL; inline;
  2064. procedure clearUARTEN; inline;
  2065. procedure clearUEN0; inline;
  2066. procedure clearUEN1; inline;
  2067. procedure clearUSIDL; inline;
  2068. procedure clearWAKE; inline;
  2069. procedure setABAUD; inline;
  2070. procedure setBRGH; inline;
  2071. procedure setIREN; inline;
  2072. procedure setLPBACK; inline;
  2073. procedure setON; inline;
  2074. procedure setPDSEL0; inline;
  2075. procedure setPDSEL1; inline;
  2076. procedure setRTSMD; inline;
  2077. procedure setRXINV; inline;
  2078. procedure setSIDL; inline;
  2079. procedure setSTSEL; inline;
  2080. procedure setUARTEN; inline;
  2081. procedure setUEN0; inline;
  2082. procedure setUEN1; inline;
  2083. procedure setUSIDL; inline;
  2084. procedure setWAKE; inline;
  2085. property ABAUD : TBits_1 read getABAUD write setABAUD;
  2086. property BRGH : TBits_1 read getBRGH write setBRGH;
  2087. property IREN : TBits_1 read getIREN write setIREN;
  2088. property LPBACK : TBits_1 read getLPBACK write setLPBACK;
  2089. property ON : TBits_1 read getON write setON;
  2090. property PDSEL : TBits_2 read getPDSEL write setPDSEL;
  2091. property PDSEL0 : TBits_1 read getPDSEL0 write setPDSEL0;
  2092. property PDSEL1 : TBits_1 read getPDSEL1 write setPDSEL1;
  2093. property RTSMD : TBits_1 read getRTSMD write setRTSMD;
  2094. property RXINV : TBits_1 read getRXINV write setRXINV;
  2095. property SIDL : TBits_1 read getSIDL write setSIDL;
  2096. property STSEL : TBits_1 read getSTSEL write setSTSEL;
  2097. property UARTEN : TBits_1 read getUARTEN write setUARTEN;
  2098. property UEN : TBits_2 read getUEN write setUEN;
  2099. property UEN0 : TBits_1 read getUEN0 write setUEN0;
  2100. property UEN1 : TBits_1 read getUEN1 write setUEN1;
  2101. property USIDL : TBits_1 read getUSIDL write setUSIDL;
  2102. property WAKE : TBits_1 read getWAKE write setWAKE;
  2103. property w : TBits_32 read getw write setw;
  2104. end;
  2105. TUART1_U1STA = record
  2106. private
  2107. function getADDEN : TBits_1; inline;
  2108. function getADDR : TBits_8; inline;
  2109. function getADM_EN : TBits_1; inline;
  2110. function getFERR : TBits_1; inline;
  2111. function getOERR : TBits_1; inline;
  2112. function getPERR : TBits_1; inline;
  2113. function getRIDLE : TBits_1; inline;
  2114. function getTRMT : TBits_1; inline;
  2115. function getURXDA : TBits_1; inline;
  2116. function getURXEN : TBits_1; inline;
  2117. function getURXISEL : TBits_2; inline;
  2118. function getURXISEL0 : TBits_1; inline;
  2119. function getURXISEL1 : TBits_1; inline;
  2120. function getUTXBF : TBits_1; inline;
  2121. function getUTXBRK : TBits_1; inline;
  2122. function getUTXEN : TBits_1; inline;
  2123. function getUTXINV : TBits_1; inline;
  2124. function getUTXISEL : TBits_2; inline;
  2125. function getUTXISEL0 : TBits_1; inline;
  2126. function getUTXISEL1 : TBits_1; inline;
  2127. function getUTXSEL : TBits_2; inline;
  2128. function getw : TBits_32; inline;
  2129. procedure setADDEN(thebits : TBits_1); inline;
  2130. procedure setADDR(thebits : TBits_8); inline;
  2131. procedure setADM_EN(thebits : TBits_1); inline;
  2132. procedure setFERR(thebits : TBits_1); inline;
  2133. procedure setOERR(thebits : TBits_1); inline;
  2134. procedure setPERR(thebits : TBits_1); inline;
  2135. procedure setRIDLE(thebits : TBits_1); inline;
  2136. procedure setTRMT(thebits : TBits_1); inline;
  2137. procedure setURXDA(thebits : TBits_1); inline;
  2138. procedure setURXEN(thebits : TBits_1); inline;
  2139. procedure setURXISEL(thebits : TBits_2); inline;
  2140. procedure setURXISEL0(thebits : TBits_1); inline;
  2141. procedure setURXISEL1(thebits : TBits_1); inline;
  2142. procedure setUTXBF(thebits : TBits_1); inline;
  2143. procedure setUTXBRK(thebits : TBits_1); inline;
  2144. procedure setUTXEN(thebits : TBits_1); inline;
  2145. procedure setUTXINV(thebits : TBits_1); inline;
  2146. procedure setUTXISEL(thebits : TBits_2); inline;
  2147. procedure setUTXISEL0(thebits : TBits_1); inline;
  2148. procedure setUTXISEL1(thebits : TBits_1); inline;
  2149. procedure setUTXSEL(thebits : TBits_2); inline;
  2150. procedure setw(thebits : TBits_32); inline;
  2151. public
  2152. procedure clearADDEN; inline;
  2153. procedure clearADM_EN; inline;
  2154. procedure clearFERR; inline;
  2155. procedure clearOERR; inline;
  2156. procedure clearPERR; inline;
  2157. procedure clearRIDLE; inline;
  2158. procedure clearTRMT; inline;
  2159. procedure clearURXDA; inline;
  2160. procedure clearURXEN; inline;
  2161. procedure clearURXISEL0; inline;
  2162. procedure clearURXISEL1; inline;
  2163. procedure clearUTXBF; inline;
  2164. procedure clearUTXBRK; inline;
  2165. procedure clearUTXEN; inline;
  2166. procedure clearUTXINV; inline;
  2167. procedure clearUTXISEL0; inline;
  2168. procedure clearUTXISEL1; inline;
  2169. procedure setADDEN; inline;
  2170. procedure setADM_EN; inline;
  2171. procedure setFERR; inline;
  2172. procedure setOERR; inline;
  2173. procedure setPERR; inline;
  2174. procedure setRIDLE; inline;
  2175. procedure setTRMT; inline;
  2176. procedure setURXDA; inline;
  2177. procedure setURXEN; inline;
  2178. procedure setURXISEL0; inline;
  2179. procedure setURXISEL1; inline;
  2180. procedure setUTXBF; inline;
  2181. procedure setUTXBRK; inline;
  2182. procedure setUTXEN; inline;
  2183. procedure setUTXINV; inline;
  2184. procedure setUTXISEL0; inline;
  2185. procedure setUTXISEL1; inline;
  2186. property ADDEN : TBits_1 read getADDEN write setADDEN;
  2187. property ADDR : TBits_8 read getADDR write setADDR;
  2188. property ADM_EN : TBits_1 read getADM_EN write setADM_EN;
  2189. property FERR : TBits_1 read getFERR write setFERR;
  2190. property OERR : TBits_1 read getOERR write setOERR;
  2191. property PERR : TBits_1 read getPERR write setPERR;
  2192. property RIDLE : TBits_1 read getRIDLE write setRIDLE;
  2193. property TRMT : TBits_1 read getTRMT write setTRMT;
  2194. property URXDA : TBits_1 read getURXDA write setURXDA;
  2195. property URXEN : TBits_1 read getURXEN write setURXEN;
  2196. property URXISEL : TBits_2 read getURXISEL write setURXISEL;
  2197. property URXISEL0 : TBits_1 read getURXISEL0 write setURXISEL0;
  2198. property URXISEL1 : TBits_1 read getURXISEL1 write setURXISEL1;
  2199. property UTXBF : TBits_1 read getUTXBF write setUTXBF;
  2200. property UTXBRK : TBits_1 read getUTXBRK write setUTXBRK;
  2201. property UTXEN : TBits_1 read getUTXEN write setUTXEN;
  2202. property UTXINV : TBits_1 read getUTXINV write setUTXINV;
  2203. property UTXISEL : TBits_2 read getUTXISEL write setUTXISEL;
  2204. property UTXISEL0 : TBits_1 read getUTXISEL0 write setUTXISEL0;
  2205. property UTXISEL1 : TBits_1 read getUTXISEL1 write setUTXISEL1;
  2206. property UTXSEL : TBits_2 read getUTXSEL write setUTXSEL;
  2207. property w : TBits_32 read getw write setw;
  2208. end;
  2209. type
  2210. TUART1Registers = record
  2211. U1MODEbits : TUART1_U1MODE;
  2212. U1MODE : longWord;
  2213. U1MODECLR : longWord;
  2214. U1MODESET : longWord;
  2215. U1MODEINV : longWord;
  2216. U1STAbits : TUART1_U1STA;
  2217. U1STA : longWord;
  2218. U1STACLR : longWord;
  2219. U1STASET : longWord;
  2220. U1STAINV : longWord;
  2221. U1TXREG : longWord;
  2222. U1RXREG : longWord;
  2223. U1BRG : longWord;
  2224. U1BRGCLR : longWord;
  2225. U1BRGSET : longWord;
  2226. U1BRGINV : longWord;
  2227. end;
  2228. TUART2_U2MODE = record
  2229. private
  2230. function getABAUD : TBits_1; inline;
  2231. function getBRGH : TBits_1; inline;
  2232. function getIREN : TBits_1; inline;
  2233. function getLPBACK : TBits_1; inline;
  2234. function getON : TBits_1; inline;
  2235. function getPDSEL : TBits_2; inline;
  2236. function getPDSEL0 : TBits_1; inline;
  2237. function getPDSEL1 : TBits_1; inline;
  2238. function getRTSMD : TBits_1; inline;
  2239. function getRXINV : TBits_1; inline;
  2240. function getSIDL : TBits_1; inline;
  2241. function getSTSEL : TBits_1; inline;
  2242. function getUARTEN : TBits_1; inline;
  2243. function getUEN : TBits_2; inline;
  2244. function getUEN0 : TBits_1; inline;
  2245. function getUEN1 : TBits_1; inline;
  2246. function getUSIDL : TBits_1; inline;
  2247. function getWAKE : TBits_1; inline;
  2248. function getw : TBits_32; inline;
  2249. procedure setABAUD(thebits : TBits_1); inline;
  2250. procedure setBRGH(thebits : TBits_1); inline;
  2251. procedure setIREN(thebits : TBits_1); inline;
  2252. procedure setLPBACK(thebits : TBits_1); inline;
  2253. procedure setON(thebits : TBits_1); inline;
  2254. procedure setPDSEL(thebits : TBits_2); inline;
  2255. procedure setPDSEL0(thebits : TBits_1); inline;
  2256. procedure setPDSEL1(thebits : TBits_1); inline;
  2257. procedure setRTSMD(thebits : TBits_1); inline;
  2258. procedure setRXINV(thebits : TBits_1); inline;
  2259. procedure setSIDL(thebits : TBits_1); inline;
  2260. procedure setSTSEL(thebits : TBits_1); inline;
  2261. procedure setUARTEN(thebits : TBits_1); inline;
  2262. procedure setUEN(thebits : TBits_2); inline;
  2263. procedure setUEN0(thebits : TBits_1); inline;
  2264. procedure setUEN1(thebits : TBits_1); inline;
  2265. procedure setUSIDL(thebits : TBits_1); inline;
  2266. procedure setWAKE(thebits : TBits_1); inline;
  2267. procedure setw(thebits : TBits_32); inline;
  2268. public
  2269. procedure clearABAUD; inline;
  2270. procedure clearBRGH; inline;
  2271. procedure clearIREN; inline;
  2272. procedure clearLPBACK; inline;
  2273. procedure clearON; inline;
  2274. procedure clearPDSEL0; inline;
  2275. procedure clearPDSEL1; inline;
  2276. procedure clearRTSMD; inline;
  2277. procedure clearRXINV; inline;
  2278. procedure clearSIDL; inline;
  2279. procedure clearSTSEL; inline;
  2280. procedure clearUARTEN; inline;
  2281. procedure clearUEN0; inline;
  2282. procedure clearUEN1; inline;
  2283. procedure clearUSIDL; inline;
  2284. procedure clearWAKE; inline;
  2285. procedure setABAUD; inline;
  2286. procedure setBRGH; inline;
  2287. procedure setIREN; inline;
  2288. procedure setLPBACK; inline;
  2289. procedure setON; inline;
  2290. procedure setPDSEL0; inline;
  2291. procedure setPDSEL1; inline;
  2292. procedure setRTSMD; inline;
  2293. procedure setRXINV; inline;
  2294. procedure setSIDL; inline;
  2295. procedure setSTSEL; inline;
  2296. procedure setUARTEN; inline;
  2297. procedure setUEN0; inline;
  2298. procedure setUEN1; inline;
  2299. procedure setUSIDL; inline;
  2300. procedure setWAKE; inline;
  2301. property ABAUD : TBits_1 read getABAUD write setABAUD;
  2302. property BRGH : TBits_1 read getBRGH write setBRGH;
  2303. property IREN : TBits_1 read getIREN write setIREN;
  2304. property LPBACK : TBits_1 read getLPBACK write setLPBACK;
  2305. property ON : TBits_1 read getON write setON;
  2306. property PDSEL : TBits_2 read getPDSEL write setPDSEL;
  2307. property PDSEL0 : TBits_1 read getPDSEL0 write setPDSEL0;
  2308. property PDSEL1 : TBits_1 read getPDSEL1 write setPDSEL1;
  2309. property RTSMD : TBits_1 read getRTSMD write setRTSMD;
  2310. property RXINV : TBits_1 read getRXINV write setRXINV;
  2311. property SIDL : TBits_1 read getSIDL write setSIDL;
  2312. property STSEL : TBits_1 read getSTSEL write setSTSEL;
  2313. property UARTEN : TBits_1 read getUARTEN write setUARTEN;
  2314. property UEN : TBits_2 read getUEN write setUEN;
  2315. property UEN0 : TBits_1 read getUEN0 write setUEN0;
  2316. property UEN1 : TBits_1 read getUEN1 write setUEN1;
  2317. property USIDL : TBits_1 read getUSIDL write setUSIDL;
  2318. property WAKE : TBits_1 read getWAKE write setWAKE;
  2319. property w : TBits_32 read getw write setw;
  2320. end;
  2321. TUART2_U2STA = record
  2322. private
  2323. function getADDEN : TBits_1; inline;
  2324. function getADDR : TBits_8; inline;
  2325. function getADM_EN : TBits_1; inline;
  2326. function getFERR : TBits_1; inline;
  2327. function getOERR : TBits_1; inline;
  2328. function getPERR : TBits_1; inline;
  2329. function getRIDLE : TBits_1; inline;
  2330. function getTRMT : TBits_1; inline;
  2331. function getURXDA : TBits_1; inline;
  2332. function getURXEN : TBits_1; inline;
  2333. function getURXISEL : TBits_2; inline;
  2334. function getURXISEL0 : TBits_1; inline;
  2335. function getURXISEL1 : TBits_1; inline;
  2336. function getUTXBF : TBits_1; inline;
  2337. function getUTXBRK : TBits_1; inline;
  2338. function getUTXEN : TBits_1; inline;
  2339. function getUTXINV : TBits_1; inline;
  2340. function getUTXISEL : TBits_2; inline;
  2341. function getUTXISEL0 : TBits_1; inline;
  2342. function getUTXISEL1 : TBits_1; inline;
  2343. function getUTXSEL : TBits_2; inline;
  2344. function getw : TBits_32; inline;
  2345. procedure setADDEN(thebits : TBits_1); inline;
  2346. procedure setADDR(thebits : TBits_8); inline;
  2347. procedure setADM_EN(thebits : TBits_1); inline;
  2348. procedure setFERR(thebits : TBits_1); inline;
  2349. procedure setOERR(thebits : TBits_1); inline;
  2350. procedure setPERR(thebits : TBits_1); inline;
  2351. procedure setRIDLE(thebits : TBits_1); inline;
  2352. procedure setTRMT(thebits : TBits_1); inline;
  2353. procedure setURXDA(thebits : TBits_1); inline;
  2354. procedure setURXEN(thebits : TBits_1); inline;
  2355. procedure setURXISEL(thebits : TBits_2); inline;
  2356. procedure setURXISEL0(thebits : TBits_1); inline;
  2357. procedure setURXISEL1(thebits : TBits_1); inline;
  2358. procedure setUTXBF(thebits : TBits_1); inline;
  2359. procedure setUTXBRK(thebits : TBits_1); inline;
  2360. procedure setUTXEN(thebits : TBits_1); inline;
  2361. procedure setUTXINV(thebits : TBits_1); inline;
  2362. procedure setUTXISEL(thebits : TBits_2); inline;
  2363. procedure setUTXISEL0(thebits : TBits_1); inline;
  2364. procedure setUTXISEL1(thebits : TBits_1); inline;
  2365. procedure setUTXSEL(thebits : TBits_2); inline;
  2366. procedure setw(thebits : TBits_32); inline;
  2367. public
  2368. procedure clearADDEN; inline;
  2369. procedure clearADM_EN; inline;
  2370. procedure clearFERR; inline;
  2371. procedure clearOERR; inline;
  2372. procedure clearPERR; inline;
  2373. procedure clearRIDLE; inline;
  2374. procedure clearTRMT; inline;
  2375. procedure clearURXDA; inline;
  2376. procedure clearURXEN; inline;
  2377. procedure clearURXISEL0; inline;
  2378. procedure clearURXISEL1; inline;
  2379. procedure clearUTXBF; inline;
  2380. procedure clearUTXBRK; inline;
  2381. procedure clearUTXEN; inline;
  2382. procedure clearUTXINV; inline;
  2383. procedure clearUTXISEL0; inline;
  2384. procedure clearUTXISEL1; inline;
  2385. procedure setADDEN; inline;
  2386. procedure setADM_EN; inline;
  2387. procedure setFERR; inline;
  2388. procedure setOERR; inline;
  2389. procedure setPERR; inline;
  2390. procedure setRIDLE; inline;
  2391. procedure setTRMT; inline;
  2392. procedure setURXDA; inline;
  2393. procedure setURXEN; inline;
  2394. procedure setURXISEL0; inline;
  2395. procedure setURXISEL1; inline;
  2396. procedure setUTXBF; inline;
  2397. procedure setUTXBRK; inline;
  2398. procedure setUTXEN; inline;
  2399. procedure setUTXINV; inline;
  2400. procedure setUTXISEL0; inline;
  2401. procedure setUTXISEL1; inline;
  2402. property ADDEN : TBits_1 read getADDEN write setADDEN;
  2403. property ADDR : TBits_8 read getADDR write setADDR;
  2404. property ADM_EN : TBits_1 read getADM_EN write setADM_EN;
  2405. property FERR : TBits_1 read getFERR write setFERR;
  2406. property OERR : TBits_1 read getOERR write setOERR;
  2407. property PERR : TBits_1 read getPERR write setPERR;
  2408. property RIDLE : TBits_1 read getRIDLE write setRIDLE;
  2409. property TRMT : TBits_1 read getTRMT write setTRMT;
  2410. property URXDA : TBits_1 read getURXDA write setURXDA;
  2411. property URXEN : TBits_1 read getURXEN write setURXEN;
  2412. property URXISEL : TBits_2 read getURXISEL write setURXISEL;
  2413. property URXISEL0 : TBits_1 read getURXISEL0 write setURXISEL0;
  2414. property URXISEL1 : TBits_1 read getURXISEL1 write setURXISEL1;
  2415. property UTXBF : TBits_1 read getUTXBF write setUTXBF;
  2416. property UTXBRK : TBits_1 read getUTXBRK write setUTXBRK;
  2417. property UTXEN : TBits_1 read getUTXEN write setUTXEN;
  2418. property UTXINV : TBits_1 read getUTXINV write setUTXINV;
  2419. property UTXISEL : TBits_2 read getUTXISEL write setUTXISEL;
  2420. property UTXISEL0 : TBits_1 read getUTXISEL0 write setUTXISEL0;
  2421. property UTXISEL1 : TBits_1 read getUTXISEL1 write setUTXISEL1;
  2422. property UTXSEL : TBits_2 read getUTXSEL write setUTXSEL;
  2423. property w : TBits_32 read getw write setw;
  2424. end;
  2425. type
  2426. TUART2Registers = record
  2427. U2MODEbits : TUART2_U2MODE;
  2428. U2MODE : longWord;
  2429. U2MODECLR : longWord;
  2430. U2MODESET : longWord;
  2431. U2MODEINV : longWord;
  2432. U2STAbits : TUART2_U2STA;
  2433. U2STA : longWord;
  2434. U2STACLR : longWord;
  2435. U2STASET : longWord;
  2436. U2STAINV : longWord;
  2437. U2TXREG : longWord;
  2438. U2RXREG : longWord;
  2439. U2BRG : longWord;
  2440. U2BRGCLR : longWord;
  2441. U2BRGSET : longWord;
  2442. U2BRGINV : longWord;
  2443. end;
  2444. TPMP_PMCON = record
  2445. private
  2446. function getADRMUX : TBits_2; inline;
  2447. function getADRMUX0 : TBits_1; inline;
  2448. function getADRMUX1 : TBits_1; inline;
  2449. function getALP : TBits_1; inline;
  2450. function getCS1P : TBits_1; inline;
  2451. function getCS2P : TBits_1; inline;
  2452. function getCSF : TBits_2; inline;
  2453. function getCSF0 : TBits_1; inline;
  2454. function getCSF1 : TBits_1; inline;
  2455. function getON : TBits_1; inline;
  2456. function getPMPEN : TBits_1; inline;
  2457. function getPMPTTL : TBits_1; inline;
  2458. function getPSIDL : TBits_1; inline;
  2459. function getPTRDEN : TBits_1; inline;
  2460. function getPTWREN : TBits_1; inline;
  2461. function getRDSP : TBits_1; inline;
  2462. function getSIDL : TBits_1; inline;
  2463. function getWRSP : TBits_1; inline;
  2464. function getw : TBits_32; inline;
  2465. procedure setADRMUX(thebits : TBits_2); inline;
  2466. procedure setADRMUX0(thebits : TBits_1); inline;
  2467. procedure setADRMUX1(thebits : TBits_1); inline;
  2468. procedure setALP(thebits : TBits_1); inline;
  2469. procedure setCS1P(thebits : TBits_1); inline;
  2470. procedure setCS2P(thebits : TBits_1); inline;
  2471. procedure setCSF(thebits : TBits_2); inline;
  2472. procedure setCSF0(thebits : TBits_1); inline;
  2473. procedure setCSF1(thebits : TBits_1); inline;
  2474. procedure setON(thebits : TBits_1); inline;
  2475. procedure setPMPEN(thebits : TBits_1); inline;
  2476. procedure setPMPTTL(thebits : TBits_1); inline;
  2477. procedure setPSIDL(thebits : TBits_1); inline;
  2478. procedure setPTRDEN(thebits : TBits_1); inline;
  2479. procedure setPTWREN(thebits : TBits_1); inline;
  2480. procedure setRDSP(thebits : TBits_1); inline;
  2481. procedure setSIDL(thebits : TBits_1); inline;
  2482. procedure setWRSP(thebits : TBits_1); inline;
  2483. procedure setw(thebits : TBits_32); inline;
  2484. public
  2485. procedure clearADRMUX0; inline;
  2486. procedure clearADRMUX1; inline;
  2487. procedure clearALP; inline;
  2488. procedure clearCS1P; inline;
  2489. procedure clearCS2P; inline;
  2490. procedure clearCSF0; inline;
  2491. procedure clearCSF1; inline;
  2492. procedure clearON; inline;
  2493. procedure clearPMPEN; inline;
  2494. procedure clearPMPTTL; inline;
  2495. procedure clearPSIDL; inline;
  2496. procedure clearPTRDEN; inline;
  2497. procedure clearPTWREN; inline;
  2498. procedure clearRDSP; inline;
  2499. procedure clearSIDL; inline;
  2500. procedure clearWRSP; inline;
  2501. procedure setADRMUX0; inline;
  2502. procedure setADRMUX1; inline;
  2503. procedure setALP; inline;
  2504. procedure setCS1P; inline;
  2505. procedure setCS2P; inline;
  2506. procedure setCSF0; inline;
  2507. procedure setCSF1; inline;
  2508. procedure setON; inline;
  2509. procedure setPMPEN; inline;
  2510. procedure setPMPTTL; inline;
  2511. procedure setPSIDL; inline;
  2512. procedure setPTRDEN; inline;
  2513. procedure setPTWREN; inline;
  2514. procedure setRDSP; inline;
  2515. procedure setSIDL; inline;
  2516. procedure setWRSP; inline;
  2517. property ADRMUX : TBits_2 read getADRMUX write setADRMUX;
  2518. property ADRMUX0 : TBits_1 read getADRMUX0 write setADRMUX0;
  2519. property ADRMUX1 : TBits_1 read getADRMUX1 write setADRMUX1;
  2520. property ALP : TBits_1 read getALP write setALP;
  2521. property CS1P : TBits_1 read getCS1P write setCS1P;
  2522. property CS2P : TBits_1 read getCS2P write setCS2P;
  2523. property CSF : TBits_2 read getCSF write setCSF;
  2524. property CSF0 : TBits_1 read getCSF0 write setCSF0;
  2525. property CSF1 : TBits_1 read getCSF1 write setCSF1;
  2526. property ON : TBits_1 read getON write setON;
  2527. property PMPEN : TBits_1 read getPMPEN write setPMPEN;
  2528. property PMPTTL : TBits_1 read getPMPTTL write setPMPTTL;
  2529. property PSIDL : TBits_1 read getPSIDL write setPSIDL;
  2530. property PTRDEN : TBits_1 read getPTRDEN write setPTRDEN;
  2531. property PTWREN : TBits_1 read getPTWREN write setPTWREN;
  2532. property RDSP : TBits_1 read getRDSP write setRDSP;
  2533. property SIDL : TBits_1 read getSIDL write setSIDL;
  2534. property WRSP : TBits_1 read getWRSP write setWRSP;
  2535. property w : TBits_32 read getw write setw;
  2536. end;
  2537. TPMP_PMMODE = record
  2538. private
  2539. function getBUSY : TBits_1; inline;
  2540. function getINCM : TBits_2; inline;
  2541. function getINCM0 : TBits_1; inline;
  2542. function getINCM1 : TBits_1; inline;
  2543. function getIRQM : TBits_2; inline;
  2544. function getIRQM0 : TBits_1; inline;
  2545. function getIRQM1 : TBits_1; inline;
  2546. function getMODE : TBits_2; inline;
  2547. function getMODE0 : TBits_1; inline;
  2548. function getMODE1 : TBits_1; inline;
  2549. function getMODE16 : TBits_1; inline;
  2550. function getWAITB : TBits_2; inline;
  2551. function getWAITB0 : TBits_1; inline;
  2552. function getWAITB1 : TBits_1; inline;
  2553. function getWAITE : TBits_2; inline;
  2554. function getWAITE0 : TBits_1; inline;
  2555. function getWAITE1 : TBits_1; inline;
  2556. function getWAITM : TBits_4; inline;
  2557. function getWAITM0 : TBits_1; inline;
  2558. function getWAITM1 : TBits_1; inline;
  2559. function getWAITM2 : TBits_1; inline;
  2560. function getWAITM3 : TBits_1; inline;
  2561. function getw : TBits_32; inline;
  2562. procedure setBUSY(thebits : TBits_1); inline;
  2563. procedure setINCM(thebits : TBits_2); inline;
  2564. procedure setINCM0(thebits : TBits_1); inline;
  2565. procedure setINCM1(thebits : TBits_1); inline;
  2566. procedure setIRQM(thebits : TBits_2); inline;
  2567. procedure setIRQM0(thebits : TBits_1); inline;
  2568. procedure setIRQM1(thebits : TBits_1); inline;
  2569. procedure setMODE(thebits : TBits_2); inline;
  2570. procedure setMODE0(thebits : TBits_1); inline;
  2571. procedure setMODE1(thebits : TBits_1); inline;
  2572. procedure setMODE16(thebits : TBits_1); inline;
  2573. procedure setWAITB(thebits : TBits_2); inline;
  2574. procedure setWAITB0(thebits : TBits_1); inline;
  2575. procedure setWAITB1(thebits : TBits_1); inline;
  2576. procedure setWAITE(thebits : TBits_2); inline;
  2577. procedure setWAITE0(thebits : TBits_1); inline;
  2578. procedure setWAITE1(thebits : TBits_1); inline;
  2579. procedure setWAITM(thebits : TBits_4); inline;
  2580. procedure setWAITM0(thebits : TBits_1); inline;
  2581. procedure setWAITM1(thebits : TBits_1); inline;
  2582. procedure setWAITM2(thebits : TBits_1); inline;
  2583. procedure setWAITM3(thebits : TBits_1); inline;
  2584. procedure setw(thebits : TBits_32); inline;
  2585. public
  2586. procedure clearBUSY; inline;
  2587. procedure clearINCM0; inline;
  2588. procedure clearINCM1; inline;
  2589. procedure clearIRQM0; inline;
  2590. procedure clearIRQM1; inline;
  2591. procedure clearMODE0; inline;
  2592. procedure clearMODE16; inline;
  2593. procedure clearMODE1; inline;
  2594. procedure clearWAITB0; inline;
  2595. procedure clearWAITB1; inline;
  2596. procedure clearWAITE0; inline;
  2597. procedure clearWAITE1; inline;
  2598. procedure clearWAITM0; inline;
  2599. procedure clearWAITM1; inline;
  2600. procedure clearWAITM2; inline;
  2601. procedure clearWAITM3; inline;
  2602. procedure setBUSY; inline;
  2603. procedure setINCM0; inline;
  2604. procedure setINCM1; inline;
  2605. procedure setIRQM0; inline;
  2606. procedure setIRQM1; inline;
  2607. procedure setMODE0; inline;
  2608. procedure setMODE16; inline;
  2609. procedure setMODE1; inline;
  2610. procedure setWAITB0; inline;
  2611. procedure setWAITB1; inline;
  2612. procedure setWAITE0; inline;
  2613. procedure setWAITE1; inline;
  2614. procedure setWAITM0; inline;
  2615. procedure setWAITM1; inline;
  2616. procedure setWAITM2; inline;
  2617. procedure setWAITM3; inline;
  2618. property BUSY : TBits_1 read getBUSY write setBUSY;
  2619. property INCM : TBits_2 read getINCM write setINCM;
  2620. property INCM0 : TBits_1 read getINCM0 write setINCM0;
  2621. property INCM1 : TBits_1 read getINCM1 write setINCM1;
  2622. property IRQM : TBits_2 read getIRQM write setIRQM;
  2623. property IRQM0 : TBits_1 read getIRQM0 write setIRQM0;
  2624. property IRQM1 : TBits_1 read getIRQM1 write setIRQM1;
  2625. property MODE : TBits_2 read getMODE write setMODE;
  2626. property MODE0 : TBits_1 read getMODE0 write setMODE0;
  2627. property MODE1 : TBits_1 read getMODE1 write setMODE1;
  2628. property MODE16 : TBits_1 read getMODE16 write setMODE16;
  2629. property WAITB : TBits_2 read getWAITB write setWAITB;
  2630. property WAITB0 : TBits_1 read getWAITB0 write setWAITB0;
  2631. property WAITB1 : TBits_1 read getWAITB1 write setWAITB1;
  2632. property WAITE : TBits_2 read getWAITE write setWAITE;
  2633. property WAITE0 : TBits_1 read getWAITE0 write setWAITE0;
  2634. property WAITE1 : TBits_1 read getWAITE1 write setWAITE1;
  2635. property WAITM : TBits_4 read getWAITM write setWAITM;
  2636. property WAITM0 : TBits_1 read getWAITM0 write setWAITM0;
  2637. property WAITM1 : TBits_1 read getWAITM1 write setWAITM1;
  2638. property WAITM2 : TBits_1 read getWAITM2 write setWAITM2;
  2639. property WAITM3 : TBits_1 read getWAITM3 write setWAITM3;
  2640. property w : TBits_32 read getw write setw;
  2641. end;
  2642. TPMP_PMADDR = record
  2643. private
  2644. function getADDR : TBits_14; inline;
  2645. function getCS : TBits_2; inline;
  2646. function getCS1 : TBits_1; inline;
  2647. function getCS2 : TBits_1; inline;
  2648. function getPADDR : TBits_14; inline;
  2649. function getw : TBits_32; inline;
  2650. procedure setADDR(thebits : TBits_14); inline;
  2651. procedure setCS(thebits : TBits_2); inline;
  2652. procedure setCS1(thebits : TBits_1); inline;
  2653. procedure setCS2(thebits : TBits_1); inline;
  2654. procedure setPADDR(thebits : TBits_14); inline;
  2655. procedure setw(thebits : TBits_32); inline;
  2656. public
  2657. procedure clearCS1; inline;
  2658. procedure clearCS2; inline;
  2659. procedure setCS1; inline;
  2660. procedure setCS2; inline;
  2661. property ADDR : TBits_14 read getADDR write setADDR;
  2662. property CS : TBits_2 read getCS write setCS;
  2663. property CS1 : TBits_1 read getCS1 write setCS1;
  2664. property CS2 : TBits_1 read getCS2 write setCS2;
  2665. property PADDR : TBits_14 read getPADDR write setPADDR;
  2666. property w : TBits_32 read getw write setw;
  2667. end;
  2668. TPMP_PMDOUT = record
  2669. private
  2670. function getDATAOUT : TBits_32; inline;
  2671. function getw : TBits_32; inline;
  2672. procedure setDATAOUT(thebits : TBits_32); inline;
  2673. procedure setw(thebits : TBits_32); inline;
  2674. public
  2675. property DATAOUT : TBits_32 read getDATAOUT write setDATAOUT;
  2676. property w : TBits_32 read getw write setw;
  2677. end;
  2678. TPMP_PMDIN = record
  2679. private
  2680. function getDATAIN : TBits_32; inline;
  2681. function getw : TBits_32; inline;
  2682. procedure setDATAIN(thebits : TBits_32); inline;
  2683. procedure setw(thebits : TBits_32); inline;
  2684. public
  2685. property DATAIN : TBits_32 read getDATAIN write setDATAIN;
  2686. property w : TBits_32 read getw write setw;
  2687. end;
  2688. TPMP_PMAEN = record
  2689. private
  2690. function getPTEN : TBits_16; inline;
  2691. function getPTEN0 : TBits_1; inline;
  2692. function getPTEN1 : TBits_1; inline;
  2693. function getPTEN10 : TBits_1; inline;
  2694. function getPTEN11 : TBits_1; inline;
  2695. function getPTEN12 : TBits_1; inline;
  2696. function getPTEN13 : TBits_1; inline;
  2697. function getPTEN14 : TBits_1; inline;
  2698. function getPTEN15 : TBits_1; inline;
  2699. function getPTEN2 : TBits_1; inline;
  2700. function getPTEN3 : TBits_1; inline;
  2701. function getPTEN4 : TBits_1; inline;
  2702. function getPTEN5 : TBits_1; inline;
  2703. function getPTEN6 : TBits_1; inline;
  2704. function getPTEN7 : TBits_1; inline;
  2705. function getPTEN8 : TBits_1; inline;
  2706. function getPTEN9 : TBits_1; inline;
  2707. function getw : TBits_32; inline;
  2708. procedure setPTEN(thebits : TBits_16); inline;
  2709. procedure setPTEN0(thebits : TBits_1); inline;
  2710. procedure setPTEN1(thebits : TBits_1); inline;
  2711. procedure setPTEN10(thebits : TBits_1); inline;
  2712. procedure setPTEN11(thebits : TBits_1); inline;
  2713. procedure setPTEN12(thebits : TBits_1); inline;
  2714. procedure setPTEN13(thebits : TBits_1); inline;
  2715. procedure setPTEN14(thebits : TBits_1); inline;
  2716. procedure setPTEN15(thebits : TBits_1); inline;
  2717. procedure setPTEN2(thebits : TBits_1); inline;
  2718. procedure setPTEN3(thebits : TBits_1); inline;
  2719. procedure setPTEN4(thebits : TBits_1); inline;
  2720. procedure setPTEN5(thebits : TBits_1); inline;
  2721. procedure setPTEN6(thebits : TBits_1); inline;
  2722. procedure setPTEN7(thebits : TBits_1); inline;
  2723. procedure setPTEN8(thebits : TBits_1); inline;
  2724. procedure setPTEN9(thebits : TBits_1); inline;
  2725. procedure setw(thebits : TBits_32); inline;
  2726. public
  2727. procedure clearPTEN0; inline;
  2728. procedure clearPTEN10; inline;
  2729. procedure clearPTEN11; inline;
  2730. procedure clearPTEN12; inline;
  2731. procedure clearPTEN13; inline;
  2732. procedure clearPTEN14; inline;
  2733. procedure clearPTEN15; inline;
  2734. procedure clearPTEN1; inline;
  2735. procedure clearPTEN2; inline;
  2736. procedure clearPTEN3; inline;
  2737. procedure clearPTEN4; inline;
  2738. procedure clearPTEN5; inline;
  2739. procedure clearPTEN6; inline;
  2740. procedure clearPTEN7; inline;
  2741. procedure clearPTEN8; inline;
  2742. procedure clearPTEN9; inline;
  2743. procedure setPTEN0; inline;
  2744. procedure setPTEN10; inline;
  2745. procedure setPTEN11; inline;
  2746. procedure setPTEN12; inline;
  2747. procedure setPTEN13; inline;
  2748. procedure setPTEN14; inline;
  2749. procedure setPTEN15; inline;
  2750. procedure setPTEN1; inline;
  2751. procedure setPTEN2; inline;
  2752. procedure setPTEN3; inline;
  2753. procedure setPTEN4; inline;
  2754. procedure setPTEN5; inline;
  2755. procedure setPTEN6; inline;
  2756. procedure setPTEN7; inline;
  2757. procedure setPTEN8; inline;
  2758. procedure setPTEN9; inline;
  2759. property PTEN : TBits_16 read getPTEN write setPTEN;
  2760. property PTEN0 : TBits_1 read getPTEN0 write setPTEN0;
  2761. property PTEN1 : TBits_1 read getPTEN1 write setPTEN1;
  2762. property PTEN10 : TBits_1 read getPTEN10 write setPTEN10;
  2763. property PTEN11 : TBits_1 read getPTEN11 write setPTEN11;
  2764. property PTEN12 : TBits_1 read getPTEN12 write setPTEN12;
  2765. property PTEN13 : TBits_1 read getPTEN13 write setPTEN13;
  2766. property PTEN14 : TBits_1 read getPTEN14 write setPTEN14;
  2767. property PTEN15 : TBits_1 read getPTEN15 write setPTEN15;
  2768. property PTEN2 : TBits_1 read getPTEN2 write setPTEN2;
  2769. property PTEN3 : TBits_1 read getPTEN3 write setPTEN3;
  2770. property PTEN4 : TBits_1 read getPTEN4 write setPTEN4;
  2771. property PTEN5 : TBits_1 read getPTEN5 write setPTEN5;
  2772. property PTEN6 : TBits_1 read getPTEN6 write setPTEN6;
  2773. property PTEN7 : TBits_1 read getPTEN7 write setPTEN7;
  2774. property PTEN8 : TBits_1 read getPTEN8 write setPTEN8;
  2775. property PTEN9 : TBits_1 read getPTEN9 write setPTEN9;
  2776. property w : TBits_32 read getw write setw;
  2777. end;
  2778. TPMP_PMSTAT = record
  2779. private
  2780. function getIB0F : TBits_1; inline;
  2781. function getIB1F : TBits_1; inline;
  2782. function getIB2F : TBits_1; inline;
  2783. function getIB3F : TBits_1; inline;
  2784. function getIBF : TBits_1; inline;
  2785. function getIBOV : TBits_1; inline;
  2786. function getOB0E : TBits_1; inline;
  2787. function getOB1E : TBits_1; inline;
  2788. function getOB2E : TBits_1; inline;
  2789. function getOB3E : TBits_1; inline;
  2790. function getOBE : TBits_1; inline;
  2791. function getOBUF : TBits_1; inline;
  2792. function getw : TBits_32; inline;
  2793. procedure setIB0F(thebits : TBits_1); inline;
  2794. procedure setIB1F(thebits : TBits_1); inline;
  2795. procedure setIB2F(thebits : TBits_1); inline;
  2796. procedure setIB3F(thebits : TBits_1); inline;
  2797. procedure setIBF(thebits : TBits_1); inline;
  2798. procedure setIBOV(thebits : TBits_1); inline;
  2799. procedure setOB0E(thebits : TBits_1); inline;
  2800. procedure setOB1E(thebits : TBits_1); inline;
  2801. procedure setOB2E(thebits : TBits_1); inline;
  2802. procedure setOB3E(thebits : TBits_1); inline;
  2803. procedure setOBE(thebits : TBits_1); inline;
  2804. procedure setOBUF(thebits : TBits_1); inline;
  2805. procedure setw(thebits : TBits_32); inline;
  2806. public
  2807. procedure clearIB0F; inline;
  2808. procedure clearIB1F; inline;
  2809. procedure clearIB2F; inline;
  2810. procedure clearIB3F; inline;
  2811. procedure clearIBF; inline;
  2812. procedure clearIBOV; inline;
  2813. procedure clearOB0E; inline;
  2814. procedure clearOB1E; inline;
  2815. procedure clearOB2E; inline;
  2816. procedure clearOB3E; inline;
  2817. procedure clearOBE; inline;
  2818. procedure clearOBUF; inline;
  2819. procedure setIB0F; inline;
  2820. procedure setIB1F; inline;
  2821. procedure setIB2F; inline;
  2822. procedure setIB3F; inline;
  2823. procedure setIBF; inline;
  2824. procedure setIBOV; inline;
  2825. procedure setOB0E; inline;
  2826. procedure setOB1E; inline;
  2827. procedure setOB2E; inline;
  2828. procedure setOB3E; inline;
  2829. procedure setOBE; inline;
  2830. procedure setOBUF; inline;
  2831. property IB0F : TBits_1 read getIB0F write setIB0F;
  2832. property IB1F : TBits_1 read getIB1F write setIB1F;
  2833. property IB2F : TBits_1 read getIB2F write setIB2F;
  2834. property IB3F : TBits_1 read getIB3F write setIB3F;
  2835. property IBF : TBits_1 read getIBF write setIBF;
  2836. property IBOV : TBits_1 read getIBOV write setIBOV;
  2837. property OB0E : TBits_1 read getOB0E write setOB0E;
  2838. property OB1E : TBits_1 read getOB1E write setOB1E;
  2839. property OB2E : TBits_1 read getOB2E write setOB2E;
  2840. property OB3E : TBits_1 read getOB3E write setOB3E;
  2841. property OBE : TBits_1 read getOBE write setOBE;
  2842. property OBUF : TBits_1 read getOBUF write setOBUF;
  2843. property w : TBits_32 read getw write setw;
  2844. end;
  2845. type
  2846. TPMPRegisters = record
  2847. PMCONbits : TPMP_PMCON;
  2848. PMCON : longWord;
  2849. PMCONCLR : longWord;
  2850. PMCONSET : longWord;
  2851. PMCONINV : longWord;
  2852. PMMODEbits : TPMP_PMMODE;
  2853. PMMODE : longWord;
  2854. PMMODECLR : longWord;
  2855. PMMODESET : longWord;
  2856. PMMODEINV : longWord;
  2857. PMADDRbits : TPMP_PMADDR;
  2858. PMADDR : longWord;
  2859. PMADDRCLR : longWord;
  2860. PMADDRSET : longWord;
  2861. PMADDRINV : longWord;
  2862. PMDOUTbits : TPMP_PMDOUT;
  2863. PMDOUT : longWord;
  2864. PMDOUTCLR : longWord;
  2865. PMDOUTSET : longWord;
  2866. PMDOUTINV : longWord;
  2867. PMDINbits : TPMP_PMDIN;
  2868. PMDIN : longWord;
  2869. PMDINCLR : longWord;
  2870. PMDINSET : longWord;
  2871. PMDININV : longWord;
  2872. PMAENbits : TPMP_PMAEN;
  2873. PMAEN : longWord;
  2874. PMAENCLR : longWord;
  2875. PMAENSET : longWord;
  2876. PMAENINV : longWord;
  2877. PMSTATbits : TPMP_PMSTAT;
  2878. PMSTAT : longWord;
  2879. PMSTATCLR : longWord;
  2880. PMSTATSET : longWord;
  2881. PMSTATINV : longWord;
  2882. end;
  2883. TADC10_AD1CON1 = record
  2884. private
  2885. function getADON : TBits_1; inline;
  2886. function getADSIDL : TBits_1; inline;
  2887. function getASAM : TBits_1; inline;
  2888. function getCLRASAM : TBits_1; inline;
  2889. function getDONE : TBits_1; inline;
  2890. function getFORM : TBits_3; inline;
  2891. function getFORM0 : TBits_1; inline;
  2892. function getFORM1 : TBits_1; inline;
  2893. function getFORM2 : TBits_1; inline;
  2894. function getON : TBits_1; inline;
  2895. function getSAMP : TBits_1; inline;
  2896. function getSIDL : TBits_1; inline;
  2897. function getSSRC : TBits_3; inline;
  2898. function getSSRC0 : TBits_1; inline;
  2899. function getSSRC1 : TBits_1; inline;
  2900. function getSSRC2 : TBits_1; inline;
  2901. function getw : TBits_32; inline;
  2902. procedure setADON(thebits : TBits_1); inline;
  2903. procedure setADSIDL(thebits : TBits_1); inline;
  2904. procedure setASAM(thebits : TBits_1); inline;
  2905. procedure setCLRASAM(thebits : TBits_1); inline;
  2906. procedure setDONE(thebits : TBits_1); inline;
  2907. procedure setFORM(thebits : TBits_3); inline;
  2908. procedure setFORM0(thebits : TBits_1); inline;
  2909. procedure setFORM1(thebits : TBits_1); inline;
  2910. procedure setFORM2(thebits : TBits_1); inline;
  2911. procedure setON(thebits : TBits_1); inline;
  2912. procedure setSAMP(thebits : TBits_1); inline;
  2913. procedure setSIDL(thebits : TBits_1); inline;
  2914. procedure setSSRC(thebits : TBits_3); inline;
  2915. procedure setSSRC0(thebits : TBits_1); inline;
  2916. procedure setSSRC1(thebits : TBits_1); inline;
  2917. procedure setSSRC2(thebits : TBits_1); inline;
  2918. procedure setw(thebits : TBits_32); inline;
  2919. public
  2920. procedure clearADON; inline;
  2921. procedure clearADSIDL; inline;
  2922. procedure clearASAM; inline;
  2923. procedure clearCLRASAM; inline;
  2924. procedure clearDONE; inline;
  2925. procedure clearFORM0; inline;
  2926. procedure clearFORM1; inline;
  2927. procedure clearFORM2; inline;
  2928. procedure clearON; inline;
  2929. procedure clearSAMP; inline;
  2930. procedure clearSIDL; inline;
  2931. procedure clearSSRC0; inline;
  2932. procedure clearSSRC1; inline;
  2933. procedure clearSSRC2; inline;
  2934. procedure setADON; inline;
  2935. procedure setADSIDL; inline;
  2936. procedure setASAM; inline;
  2937. procedure setCLRASAM; inline;
  2938. procedure setDONE; inline;
  2939. procedure setFORM0; inline;
  2940. procedure setFORM1; inline;
  2941. procedure setFORM2; inline;
  2942. procedure setON; inline;
  2943. procedure setSAMP; inline;
  2944. procedure setSIDL; inline;
  2945. procedure setSSRC0; inline;
  2946. procedure setSSRC1; inline;
  2947. procedure setSSRC2; inline;
  2948. property ADON : TBits_1 read getADON write setADON;
  2949. property ADSIDL : TBits_1 read getADSIDL write setADSIDL;
  2950. property ASAM : TBits_1 read getASAM write setASAM;
  2951. property CLRASAM : TBits_1 read getCLRASAM write setCLRASAM;
  2952. property DONE : TBits_1 read getDONE write setDONE;
  2953. property FORM : TBits_3 read getFORM write setFORM;
  2954. property FORM0 : TBits_1 read getFORM0 write setFORM0;
  2955. property FORM1 : TBits_1 read getFORM1 write setFORM1;
  2956. property FORM2 : TBits_1 read getFORM2 write setFORM2;
  2957. property ON : TBits_1 read getON write setON;
  2958. property SAMP : TBits_1 read getSAMP write setSAMP;
  2959. property SIDL : TBits_1 read getSIDL write setSIDL;
  2960. property SSRC : TBits_3 read getSSRC write setSSRC;
  2961. property SSRC0 : TBits_1 read getSSRC0 write setSSRC0;
  2962. property SSRC1 : TBits_1 read getSSRC1 write setSSRC1;
  2963. property SSRC2 : TBits_1 read getSSRC2 write setSSRC2;
  2964. property w : TBits_32 read getw write setw;
  2965. end;
  2966. TADC10_AD1CON2 = record
  2967. private
  2968. function getALTS : TBits_1; inline;
  2969. function getBUFM : TBits_1; inline;
  2970. function getBUFS : TBits_1; inline;
  2971. function getCSCNA : TBits_1; inline;
  2972. function getOFFCAL : TBits_1; inline;
  2973. function getSMPI : TBits_4; inline;
  2974. function getSMPI0 : TBits_1; inline;
  2975. function getSMPI1 : TBits_1; inline;
  2976. function getSMPI2 : TBits_1; inline;
  2977. function getSMPI3 : TBits_1; inline;
  2978. function getVCFG : TBits_3; inline;
  2979. function getVCFG0 : TBits_1; inline;
  2980. function getVCFG1 : TBits_1; inline;
  2981. function getVCFG2 : TBits_1; inline;
  2982. function getw : TBits_32; inline;
  2983. procedure setALTS(thebits : TBits_1); inline;
  2984. procedure setBUFM(thebits : TBits_1); inline;
  2985. procedure setBUFS(thebits : TBits_1); inline;
  2986. procedure setCSCNA(thebits : TBits_1); inline;
  2987. procedure setOFFCAL(thebits : TBits_1); inline;
  2988. procedure setSMPI(thebits : TBits_4); inline;
  2989. procedure setSMPI0(thebits : TBits_1); inline;
  2990. procedure setSMPI1(thebits : TBits_1); inline;
  2991. procedure setSMPI2(thebits : TBits_1); inline;
  2992. procedure setSMPI3(thebits : TBits_1); inline;
  2993. procedure setVCFG(thebits : TBits_3); inline;
  2994. procedure setVCFG0(thebits : TBits_1); inline;
  2995. procedure setVCFG1(thebits : TBits_1); inline;
  2996. procedure setVCFG2(thebits : TBits_1); inline;
  2997. procedure setw(thebits : TBits_32); inline;
  2998. public
  2999. procedure clearALTS; inline;
  3000. procedure clearBUFM; inline;
  3001. procedure clearBUFS; inline;
  3002. procedure clearCSCNA; inline;
  3003. procedure clearOFFCAL; inline;
  3004. procedure clearSMPI0; inline;
  3005. procedure clearSMPI1; inline;
  3006. procedure clearSMPI2; inline;
  3007. procedure clearSMPI3; inline;
  3008. procedure clearVCFG0; inline;
  3009. procedure clearVCFG1; inline;
  3010. procedure clearVCFG2; inline;
  3011. procedure setALTS; inline;
  3012. procedure setBUFM; inline;
  3013. procedure setBUFS; inline;
  3014. procedure setCSCNA; inline;
  3015. procedure setOFFCAL; inline;
  3016. procedure setSMPI0; inline;
  3017. procedure setSMPI1; inline;
  3018. procedure setSMPI2; inline;
  3019. procedure setSMPI3; inline;
  3020. procedure setVCFG0; inline;
  3021. procedure setVCFG1; inline;
  3022. procedure setVCFG2; inline;
  3023. property ALTS : TBits_1 read getALTS write setALTS;
  3024. property BUFM : TBits_1 read getBUFM write setBUFM;
  3025. property BUFS : TBits_1 read getBUFS write setBUFS;
  3026. property CSCNA : TBits_1 read getCSCNA write setCSCNA;
  3027. property OFFCAL : TBits_1 read getOFFCAL write setOFFCAL;
  3028. property SMPI : TBits_4 read getSMPI write setSMPI;
  3029. property SMPI0 : TBits_1 read getSMPI0 write setSMPI0;
  3030. property SMPI1 : TBits_1 read getSMPI1 write setSMPI1;
  3031. property SMPI2 : TBits_1 read getSMPI2 write setSMPI2;
  3032. property SMPI3 : TBits_1 read getSMPI3 write setSMPI3;
  3033. property VCFG : TBits_3 read getVCFG write setVCFG;
  3034. property VCFG0 : TBits_1 read getVCFG0 write setVCFG0;
  3035. property VCFG1 : TBits_1 read getVCFG1 write setVCFG1;
  3036. property VCFG2 : TBits_1 read getVCFG2 write setVCFG2;
  3037. property w : TBits_32 read getw write setw;
  3038. end;
  3039. TADC10_AD1CON3 = record
  3040. private
  3041. function getADCS : TBits_8; inline;
  3042. function getADCS0 : TBits_1; inline;
  3043. function getADCS1 : TBits_1; inline;
  3044. function getADCS2 : TBits_1; inline;
  3045. function getADCS3 : TBits_1; inline;
  3046. function getADCS4 : TBits_1; inline;
  3047. function getADCS5 : TBits_1; inline;
  3048. function getADCS6 : TBits_1; inline;
  3049. function getADCS7 : TBits_1; inline;
  3050. function getADRC : TBits_1; inline;
  3051. function getSAMC : TBits_5; inline;
  3052. function getSAMC0 : TBits_1; inline;
  3053. function getSAMC1 : TBits_1; inline;
  3054. function getSAMC2 : TBits_1; inline;
  3055. function getSAMC3 : TBits_1; inline;
  3056. function getSAMC4 : TBits_1; inline;
  3057. function getw : TBits_32; inline;
  3058. procedure setADCS(thebits : TBits_8); inline;
  3059. procedure setADCS0(thebits : TBits_1); inline;
  3060. procedure setADCS1(thebits : TBits_1); inline;
  3061. procedure setADCS2(thebits : TBits_1); inline;
  3062. procedure setADCS3(thebits : TBits_1); inline;
  3063. procedure setADCS4(thebits : TBits_1); inline;
  3064. procedure setADCS5(thebits : TBits_1); inline;
  3065. procedure setADCS6(thebits : TBits_1); inline;
  3066. procedure setADCS7(thebits : TBits_1); inline;
  3067. procedure setADRC(thebits : TBits_1); inline;
  3068. procedure setSAMC(thebits : TBits_5); inline;
  3069. procedure setSAMC0(thebits : TBits_1); inline;
  3070. procedure setSAMC1(thebits : TBits_1); inline;
  3071. procedure setSAMC2(thebits : TBits_1); inline;
  3072. procedure setSAMC3(thebits : TBits_1); inline;
  3073. procedure setSAMC4(thebits : TBits_1); inline;
  3074. procedure setw(thebits : TBits_32); inline;
  3075. public
  3076. procedure clearADCS0; inline;
  3077. procedure clearADCS1; inline;
  3078. procedure clearADCS2; inline;
  3079. procedure clearADCS3; inline;
  3080. procedure clearADCS4; inline;
  3081. procedure clearADCS5; inline;
  3082. procedure clearADCS6; inline;
  3083. procedure clearADCS7; inline;
  3084. procedure clearADRC; inline;
  3085. procedure clearSAMC0; inline;
  3086. procedure clearSAMC1; inline;
  3087. procedure clearSAMC2; inline;
  3088. procedure clearSAMC3; inline;
  3089. procedure clearSAMC4; inline;
  3090. procedure setADCS0; inline;
  3091. procedure setADCS1; inline;
  3092. procedure setADCS2; inline;
  3093. procedure setADCS3; inline;
  3094. procedure setADCS4; inline;
  3095. procedure setADCS5; inline;
  3096. procedure setADCS6; inline;
  3097. procedure setADCS7; inline;
  3098. procedure setADRC; inline;
  3099. procedure setSAMC0; inline;
  3100. procedure setSAMC1; inline;
  3101. procedure setSAMC2; inline;
  3102. procedure setSAMC3; inline;
  3103. procedure setSAMC4; inline;
  3104. property ADCS : TBits_8 read getADCS write setADCS;
  3105. property ADCS0 : TBits_1 read getADCS0 write setADCS0;
  3106. property ADCS1 : TBits_1 read getADCS1 write setADCS1;
  3107. property ADCS2 : TBits_1 read getADCS2 write setADCS2;
  3108. property ADCS3 : TBits_1 read getADCS3 write setADCS3;
  3109. property ADCS4 : TBits_1 read getADCS4 write setADCS4;
  3110. property ADCS5 : TBits_1 read getADCS5 write setADCS5;
  3111. property ADCS6 : TBits_1 read getADCS6 write setADCS6;
  3112. property ADCS7 : TBits_1 read getADCS7 write setADCS7;
  3113. property ADRC : TBits_1 read getADRC write setADRC;
  3114. property SAMC : TBits_5 read getSAMC write setSAMC;
  3115. property SAMC0 : TBits_1 read getSAMC0 write setSAMC0;
  3116. property SAMC1 : TBits_1 read getSAMC1 write setSAMC1;
  3117. property SAMC2 : TBits_1 read getSAMC2 write setSAMC2;
  3118. property SAMC3 : TBits_1 read getSAMC3 write setSAMC3;
  3119. property SAMC4 : TBits_1 read getSAMC4 write setSAMC4;
  3120. property w : TBits_32 read getw write setw;
  3121. end;
  3122. TADC10_AD1CHS = record
  3123. private
  3124. function getCH0NA : TBits_1; inline;
  3125. function getCH0NB : TBits_1; inline;
  3126. function getCH0SA : TBits_4; inline;
  3127. function getCH0SA0 : TBits_1; inline;
  3128. function getCH0SA1 : TBits_1; inline;
  3129. function getCH0SA2 : TBits_1; inline;
  3130. function getCH0SA3 : TBits_1; inline;
  3131. function getCH0SB : TBits_4; inline;
  3132. function getCH0SB0 : TBits_1; inline;
  3133. function getCH0SB1 : TBits_1; inline;
  3134. function getCH0SB2 : TBits_1; inline;
  3135. function getCH0SB3 : TBits_1; inline;
  3136. function getw : TBits_32; inline;
  3137. procedure setCH0NA(thebits : TBits_1); inline;
  3138. procedure setCH0NB(thebits : TBits_1); inline;
  3139. procedure setCH0SA(thebits : TBits_4); inline;
  3140. procedure setCH0SA0(thebits : TBits_1); inline;
  3141. procedure setCH0SA1(thebits : TBits_1); inline;
  3142. procedure setCH0SA2(thebits : TBits_1); inline;
  3143. procedure setCH0SA3(thebits : TBits_1); inline;
  3144. procedure setCH0SB(thebits : TBits_4); inline;
  3145. procedure setCH0SB0(thebits : TBits_1); inline;
  3146. procedure setCH0SB1(thebits : TBits_1); inline;
  3147. procedure setCH0SB2(thebits : TBits_1); inline;
  3148. procedure setCH0SB3(thebits : TBits_1); inline;
  3149. procedure setw(thebits : TBits_32); inline;
  3150. public
  3151. procedure clearCH0NA; inline;
  3152. procedure clearCH0NB; inline;
  3153. procedure clearCH0SA0; inline;
  3154. procedure clearCH0SA1; inline;
  3155. procedure clearCH0SA2; inline;
  3156. procedure clearCH0SA3; inline;
  3157. procedure clearCH0SB0; inline;
  3158. procedure clearCH0SB1; inline;
  3159. procedure clearCH0SB2; inline;
  3160. procedure clearCH0SB3; inline;
  3161. procedure setCH0NA; inline;
  3162. procedure setCH0NB; inline;
  3163. procedure setCH0SA0; inline;
  3164. procedure setCH0SA1; inline;
  3165. procedure setCH0SA2; inline;
  3166. procedure setCH0SA3; inline;
  3167. procedure setCH0SB0; inline;
  3168. procedure setCH0SB1; inline;
  3169. procedure setCH0SB2; inline;
  3170. procedure setCH0SB3; inline;
  3171. property CH0NA : TBits_1 read getCH0NA write setCH0NA;
  3172. property CH0NB : TBits_1 read getCH0NB write setCH0NB;
  3173. property CH0SA : TBits_4 read getCH0SA write setCH0SA;
  3174. property CH0SA0 : TBits_1 read getCH0SA0 write setCH0SA0;
  3175. property CH0SA1 : TBits_1 read getCH0SA1 write setCH0SA1;
  3176. property CH0SA2 : TBits_1 read getCH0SA2 write setCH0SA2;
  3177. property CH0SA3 : TBits_1 read getCH0SA3 write setCH0SA3;
  3178. property CH0SB : TBits_4 read getCH0SB write setCH0SB;
  3179. property CH0SB0 : TBits_1 read getCH0SB0 write setCH0SB0;
  3180. property CH0SB1 : TBits_1 read getCH0SB1 write setCH0SB1;
  3181. property CH0SB2 : TBits_1 read getCH0SB2 write setCH0SB2;
  3182. property CH0SB3 : TBits_1 read getCH0SB3 write setCH0SB3;
  3183. property w : TBits_32 read getw write setw;
  3184. end;
  3185. TADC10_AD1CSSL = record
  3186. private
  3187. function getCSSL : TBits_16; inline;
  3188. function getCSSL0 : TBits_1; inline;
  3189. function getCSSL1 : TBits_1; inline;
  3190. function getCSSL10 : TBits_1; inline;
  3191. function getCSSL11 : TBits_1; inline;
  3192. function getCSSL12 : TBits_1; inline;
  3193. function getCSSL13 : TBits_1; inline;
  3194. function getCSSL14 : TBits_1; inline;
  3195. function getCSSL15 : TBits_1; inline;
  3196. function getCSSL2 : TBits_1; inline;
  3197. function getCSSL3 : TBits_1; inline;
  3198. function getCSSL4 : TBits_1; inline;
  3199. function getCSSL5 : TBits_1; inline;
  3200. function getCSSL6 : TBits_1; inline;
  3201. function getCSSL7 : TBits_1; inline;
  3202. function getCSSL8 : TBits_1; inline;
  3203. function getCSSL9 : TBits_1; inline;
  3204. function getw : TBits_32; inline;
  3205. procedure setCSSL(thebits : TBits_16); inline;
  3206. procedure setCSSL0(thebits : TBits_1); inline;
  3207. procedure setCSSL1(thebits : TBits_1); inline;
  3208. procedure setCSSL10(thebits : TBits_1); inline;
  3209. procedure setCSSL11(thebits : TBits_1); inline;
  3210. procedure setCSSL12(thebits : TBits_1); inline;
  3211. procedure setCSSL13(thebits : TBits_1); inline;
  3212. procedure setCSSL14(thebits : TBits_1); inline;
  3213. procedure setCSSL15(thebits : TBits_1); inline;
  3214. procedure setCSSL2(thebits : TBits_1); inline;
  3215. procedure setCSSL3(thebits : TBits_1); inline;
  3216. procedure setCSSL4(thebits : TBits_1); inline;
  3217. procedure setCSSL5(thebits : TBits_1); inline;
  3218. procedure setCSSL6(thebits : TBits_1); inline;
  3219. procedure setCSSL7(thebits : TBits_1); inline;
  3220. procedure setCSSL8(thebits : TBits_1); inline;
  3221. procedure setCSSL9(thebits : TBits_1); inline;
  3222. procedure setw(thebits : TBits_32); inline;
  3223. public
  3224. procedure clearCSSL0; inline;
  3225. procedure clearCSSL10; inline;
  3226. procedure clearCSSL11; inline;
  3227. procedure clearCSSL12; inline;
  3228. procedure clearCSSL13; inline;
  3229. procedure clearCSSL14; inline;
  3230. procedure clearCSSL15; inline;
  3231. procedure clearCSSL1; inline;
  3232. procedure clearCSSL2; inline;
  3233. procedure clearCSSL3; inline;
  3234. procedure clearCSSL4; inline;
  3235. procedure clearCSSL5; inline;
  3236. procedure clearCSSL6; inline;
  3237. procedure clearCSSL7; inline;
  3238. procedure clearCSSL8; inline;
  3239. procedure clearCSSL9; inline;
  3240. procedure setCSSL0; inline;
  3241. procedure setCSSL10; inline;
  3242. procedure setCSSL11; inline;
  3243. procedure setCSSL12; inline;
  3244. procedure setCSSL13; inline;
  3245. procedure setCSSL14; inline;
  3246. procedure setCSSL15; inline;
  3247. procedure setCSSL1; inline;
  3248. procedure setCSSL2; inline;
  3249. procedure setCSSL3; inline;
  3250. procedure setCSSL4; inline;
  3251. procedure setCSSL5; inline;
  3252. procedure setCSSL6; inline;
  3253. procedure setCSSL7; inline;
  3254. procedure setCSSL8; inline;
  3255. procedure setCSSL9; inline;
  3256. property CSSL : TBits_16 read getCSSL write setCSSL;
  3257. property CSSL0 : TBits_1 read getCSSL0 write setCSSL0;
  3258. property CSSL1 : TBits_1 read getCSSL1 write setCSSL1;
  3259. property CSSL10 : TBits_1 read getCSSL10 write setCSSL10;
  3260. property CSSL11 : TBits_1 read getCSSL11 write setCSSL11;
  3261. property CSSL12 : TBits_1 read getCSSL12 write setCSSL12;
  3262. property CSSL13 : TBits_1 read getCSSL13 write setCSSL13;
  3263. property CSSL14 : TBits_1 read getCSSL14 write setCSSL14;
  3264. property CSSL15 : TBits_1 read getCSSL15 write setCSSL15;
  3265. property CSSL2 : TBits_1 read getCSSL2 write setCSSL2;
  3266. property CSSL3 : TBits_1 read getCSSL3 write setCSSL3;
  3267. property CSSL4 : TBits_1 read getCSSL4 write setCSSL4;
  3268. property CSSL5 : TBits_1 read getCSSL5 write setCSSL5;
  3269. property CSSL6 : TBits_1 read getCSSL6 write setCSSL6;
  3270. property CSSL7 : TBits_1 read getCSSL7 write setCSSL7;
  3271. property CSSL8 : TBits_1 read getCSSL8 write setCSSL8;
  3272. property CSSL9 : TBits_1 read getCSSL9 write setCSSL9;
  3273. property w : TBits_32 read getw write setw;
  3274. end;
  3275. TADC10_AD1PCFG = record
  3276. private
  3277. function getPCFG : TBits_16; inline;
  3278. function getPCFG0 : TBits_1; inline;
  3279. function getPCFG1 : TBits_1; inline;
  3280. function getPCFG10 : TBits_1; inline;
  3281. function getPCFG11 : TBits_1; inline;
  3282. function getPCFG12 : TBits_1; inline;
  3283. function getPCFG13 : TBits_1; inline;
  3284. function getPCFG14 : TBits_1; inline;
  3285. function getPCFG15 : TBits_1; inline;
  3286. function getPCFG2 : TBits_1; inline;
  3287. function getPCFG3 : TBits_1; inline;
  3288. function getPCFG4 : TBits_1; inline;
  3289. function getPCFG5 : TBits_1; inline;
  3290. function getPCFG6 : TBits_1; inline;
  3291. function getPCFG7 : TBits_1; inline;
  3292. function getPCFG8 : TBits_1; inline;
  3293. function getPCFG9 : TBits_1; inline;
  3294. function getw : TBits_32; inline;
  3295. procedure setPCFG(thebits : TBits_16); inline;
  3296. procedure setPCFG0(thebits : TBits_1); inline;
  3297. procedure setPCFG1(thebits : TBits_1); inline;
  3298. procedure setPCFG10(thebits : TBits_1); inline;
  3299. procedure setPCFG11(thebits : TBits_1); inline;
  3300. procedure setPCFG12(thebits : TBits_1); inline;
  3301. procedure setPCFG13(thebits : TBits_1); inline;
  3302. procedure setPCFG14(thebits : TBits_1); inline;
  3303. procedure setPCFG15(thebits : TBits_1); inline;
  3304. procedure setPCFG2(thebits : TBits_1); inline;
  3305. procedure setPCFG3(thebits : TBits_1); inline;
  3306. procedure setPCFG4(thebits : TBits_1); inline;
  3307. procedure setPCFG5(thebits : TBits_1); inline;
  3308. procedure setPCFG6(thebits : TBits_1); inline;
  3309. procedure setPCFG7(thebits : TBits_1); inline;
  3310. procedure setPCFG8(thebits : TBits_1); inline;
  3311. procedure setPCFG9(thebits : TBits_1); inline;
  3312. procedure setw(thebits : TBits_32); inline;
  3313. public
  3314. procedure clearPCFG0; inline;
  3315. procedure clearPCFG10; inline;
  3316. procedure clearPCFG11; inline;
  3317. procedure clearPCFG12; inline;
  3318. procedure clearPCFG13; inline;
  3319. procedure clearPCFG14; inline;
  3320. procedure clearPCFG15; inline;
  3321. procedure clearPCFG1; inline;
  3322. procedure clearPCFG2; inline;
  3323. procedure clearPCFG3; inline;
  3324. procedure clearPCFG4; inline;
  3325. procedure clearPCFG5; inline;
  3326. procedure clearPCFG6; inline;
  3327. procedure clearPCFG7; inline;
  3328. procedure clearPCFG8; inline;
  3329. procedure clearPCFG9; inline;
  3330. procedure setPCFG0; inline;
  3331. procedure setPCFG10; inline;
  3332. procedure setPCFG11; inline;
  3333. procedure setPCFG12; inline;
  3334. procedure setPCFG13; inline;
  3335. procedure setPCFG14; inline;
  3336. procedure setPCFG15; inline;
  3337. procedure setPCFG1; inline;
  3338. procedure setPCFG2; inline;
  3339. procedure setPCFG3; inline;
  3340. procedure setPCFG4; inline;
  3341. procedure setPCFG5; inline;
  3342. procedure setPCFG6; inline;
  3343. procedure setPCFG7; inline;
  3344. procedure setPCFG8; inline;
  3345. procedure setPCFG9; inline;
  3346. property PCFG : TBits_16 read getPCFG write setPCFG;
  3347. property PCFG0 : TBits_1 read getPCFG0 write setPCFG0;
  3348. property PCFG1 : TBits_1 read getPCFG1 write setPCFG1;
  3349. property PCFG10 : TBits_1 read getPCFG10 write setPCFG10;
  3350. property PCFG11 : TBits_1 read getPCFG11 write setPCFG11;
  3351. property PCFG12 : TBits_1 read getPCFG12 write setPCFG12;
  3352. property PCFG13 : TBits_1 read getPCFG13 write setPCFG13;
  3353. property PCFG14 : TBits_1 read getPCFG14 write setPCFG14;
  3354. property PCFG15 : TBits_1 read getPCFG15 write setPCFG15;
  3355. property PCFG2 : TBits_1 read getPCFG2 write setPCFG2;
  3356. property PCFG3 : TBits_1 read getPCFG3 write setPCFG3;
  3357. property PCFG4 : TBits_1 read getPCFG4 write setPCFG4;
  3358. property PCFG5 : TBits_1 read getPCFG5 write setPCFG5;
  3359. property PCFG6 : TBits_1 read getPCFG6 write setPCFG6;
  3360. property PCFG7 : TBits_1 read getPCFG7 write setPCFG7;
  3361. property PCFG8 : TBits_1 read getPCFG8 write setPCFG8;
  3362. property PCFG9 : TBits_1 read getPCFG9 write setPCFG9;
  3363. property w : TBits_32 read getw write setw;
  3364. end;
  3365. type
  3366. TADC10Registers = record
  3367. AD1CON1bits : TADC10_AD1CON1;
  3368. AD1CON1 : longWord;
  3369. AD1CON1CLR : longWord;
  3370. AD1CON1SET : longWord;
  3371. AD1CON1INV : longWord;
  3372. AD1CON2bits : TADC10_AD1CON2;
  3373. AD1CON2 : longWord;
  3374. AD1CON2CLR : longWord;
  3375. AD1CON2SET : longWord;
  3376. AD1CON2INV : longWord;
  3377. AD1CON3bits : TADC10_AD1CON3;
  3378. AD1CON3 : longWord;
  3379. AD1CON3CLR : longWord;
  3380. AD1CON3SET : longWord;
  3381. AD1CON3INV : longWord;
  3382. AD1CHSbits : TADC10_AD1CHS;
  3383. AD1CHS : longWord;
  3384. AD1CHSCLR : longWord;
  3385. AD1CHSSET : longWord;
  3386. AD1CHSINV : longWord;
  3387. AD1CSSLbits : TADC10_AD1CSSL;
  3388. AD1CSSL : longWord;
  3389. AD1CSSLCLR : longWord;
  3390. AD1CSSLSET : longWord;
  3391. AD1CSSLINV : longWord;
  3392. AD1PCFGbits : TADC10_AD1PCFG;
  3393. AD1PCFG : longWord;
  3394. AD1PCFGCLR : longWord;
  3395. AD1PCFGSET : longWord;
  3396. AD1PCFGINV : longWord;
  3397. ADC1BUF0 : longWord;
  3398. ADC1BUF1 : longWord;
  3399. ADC1BUF2 : longWord;
  3400. ADC1BUF3 : longWord;
  3401. ADC1BUF4 : longWord;
  3402. ADC1BUF5 : longWord;
  3403. ADC1BUF6 : longWord;
  3404. ADC1BUF7 : longWord;
  3405. ADC1BUF8 : longWord;
  3406. ADC1BUF9 : longWord;
  3407. ADC1BUFA : longWord;
  3408. ADC1BUFB : longWord;
  3409. ADC1BUFC : longWord;
  3410. ADC1BUFD : longWord;
  3411. ADC1BUFE : longWord;
  3412. ADC1BUFF : longWord;
  3413. end;
  3414. TCVR_CVRCON = record
  3415. private
  3416. function getCVR : TBits_4; inline;
  3417. function getCVR0 : TBits_1; inline;
  3418. function getCVR1 : TBits_1; inline;
  3419. function getCVR2 : TBits_1; inline;
  3420. function getCVR3 : TBits_1; inline;
  3421. function getCVROE : TBits_1; inline;
  3422. function getCVRR : TBits_1; inline;
  3423. function getCVRSS : TBits_1; inline;
  3424. function getON : TBits_1; inline;
  3425. function getw : TBits_32; inline;
  3426. procedure setCVR(thebits : TBits_4); inline;
  3427. procedure setCVR0(thebits : TBits_1); inline;
  3428. procedure setCVR1(thebits : TBits_1); inline;
  3429. procedure setCVR2(thebits : TBits_1); inline;
  3430. procedure setCVR3(thebits : TBits_1); inline;
  3431. procedure setCVROE(thebits : TBits_1); inline;
  3432. procedure setCVRR(thebits : TBits_1); inline;
  3433. procedure setCVRSS(thebits : TBits_1); inline;
  3434. procedure setON(thebits : TBits_1); inline;
  3435. procedure setw(thebits : TBits_32); inline;
  3436. public
  3437. procedure clearCVR0; inline;
  3438. procedure clearCVR1; inline;
  3439. procedure clearCVR2; inline;
  3440. procedure clearCVR3; inline;
  3441. procedure clearCVROE; inline;
  3442. procedure clearCVRR; inline;
  3443. procedure clearCVRSS; inline;
  3444. procedure clearON; inline;
  3445. procedure setCVR0; inline;
  3446. procedure setCVR1; inline;
  3447. procedure setCVR2; inline;
  3448. procedure setCVR3; inline;
  3449. procedure setCVROE; inline;
  3450. procedure setCVRR; inline;
  3451. procedure setCVRSS; inline;
  3452. procedure setON; inline;
  3453. property CVR : TBits_4 read getCVR write setCVR;
  3454. property CVR0 : TBits_1 read getCVR0 write setCVR0;
  3455. property CVR1 : TBits_1 read getCVR1 write setCVR1;
  3456. property CVR2 : TBits_1 read getCVR2 write setCVR2;
  3457. property CVR3 : TBits_1 read getCVR3 write setCVR3;
  3458. property CVROE : TBits_1 read getCVROE write setCVROE;
  3459. property CVRR : TBits_1 read getCVRR write setCVRR;
  3460. property CVRSS : TBits_1 read getCVRSS write setCVRSS;
  3461. property ON : TBits_1 read getON write setON;
  3462. property w : TBits_32 read getw write setw;
  3463. end;
  3464. type
  3465. TCVRRegisters = record
  3466. CVRCONbits : TCVR_CVRCON;
  3467. CVRCON : longWord;
  3468. CVRCONCLR : longWord;
  3469. CVRCONSET : longWord;
  3470. CVRCONINV : longWord;
  3471. end;
  3472. TCMP_CM1CON = record
  3473. private
  3474. function getCCH : TBits_2; inline;
  3475. function getCCH0 : TBits_1; inline;
  3476. function getCCH1 : TBits_1; inline;
  3477. function getCOE : TBits_1; inline;
  3478. function getCOUT : TBits_1; inline;
  3479. function getCPOL : TBits_1; inline;
  3480. function getCREF : TBits_1; inline;
  3481. function getEVPOL : TBits_2; inline;
  3482. function getEVPOL0 : TBits_1; inline;
  3483. function getEVPOL1 : TBits_1; inline;
  3484. function getON : TBits_1; inline;
  3485. function getw : TBits_32; inline;
  3486. procedure setCCH(thebits : TBits_2); inline;
  3487. procedure setCCH0(thebits : TBits_1); inline;
  3488. procedure setCCH1(thebits : TBits_1); inline;
  3489. procedure setCOE(thebits : TBits_1); inline;
  3490. procedure setCOUT(thebits : TBits_1); inline;
  3491. procedure setCPOL(thebits : TBits_1); inline;
  3492. procedure setCREF(thebits : TBits_1); inline;
  3493. procedure setEVPOL(thebits : TBits_2); inline;
  3494. procedure setEVPOL0(thebits : TBits_1); inline;
  3495. procedure setEVPOL1(thebits : TBits_1); inline;
  3496. procedure setON(thebits : TBits_1); inline;
  3497. procedure setw(thebits : TBits_32); inline;
  3498. public
  3499. procedure clearCCH0; inline;
  3500. procedure clearCCH1; inline;
  3501. procedure clearCOE; inline;
  3502. procedure clearCOUT; inline;
  3503. procedure clearCPOL; inline;
  3504. procedure clearCREF; inline;
  3505. procedure clearEVPOL0; inline;
  3506. procedure clearEVPOL1; inline;
  3507. procedure clearON; inline;
  3508. procedure setCCH0; inline;
  3509. procedure setCCH1; inline;
  3510. procedure setCOE; inline;
  3511. procedure setCOUT; inline;
  3512. procedure setCPOL; inline;
  3513. procedure setCREF; inline;
  3514. procedure setEVPOL0; inline;
  3515. procedure setEVPOL1; inline;
  3516. procedure setON; inline;
  3517. property CCH : TBits_2 read getCCH write setCCH;
  3518. property CCH0 : TBits_1 read getCCH0 write setCCH0;
  3519. property CCH1 : TBits_1 read getCCH1 write setCCH1;
  3520. property COE : TBits_1 read getCOE write setCOE;
  3521. property COUT : TBits_1 read getCOUT write setCOUT;
  3522. property CPOL : TBits_1 read getCPOL write setCPOL;
  3523. property CREF : TBits_1 read getCREF write setCREF;
  3524. property EVPOL : TBits_2 read getEVPOL write setEVPOL;
  3525. property EVPOL0 : TBits_1 read getEVPOL0 write setEVPOL0;
  3526. property EVPOL1 : TBits_1 read getEVPOL1 write setEVPOL1;
  3527. property ON : TBits_1 read getON write setON;
  3528. property w : TBits_32 read getw write setw;
  3529. end;
  3530. TCMP_CM2CON = record
  3531. private
  3532. function getCCH : TBits_2; inline;
  3533. function getCCH0 : TBits_1; inline;
  3534. function getCCH1 : TBits_1; inline;
  3535. function getCOE : TBits_1; inline;
  3536. function getCOUT : TBits_1; inline;
  3537. function getCPOL : TBits_1; inline;
  3538. function getCREF : TBits_1; inline;
  3539. function getEVPOL : TBits_2; inline;
  3540. function getEVPOL0 : TBits_1; inline;
  3541. function getEVPOL1 : TBits_1; inline;
  3542. function getON : TBits_1; inline;
  3543. function getw : TBits_32; inline;
  3544. procedure setCCH(thebits : TBits_2); inline;
  3545. procedure setCCH0(thebits : TBits_1); inline;
  3546. procedure setCCH1(thebits : TBits_1); inline;
  3547. procedure setCOE(thebits : TBits_1); inline;
  3548. procedure setCOUT(thebits : TBits_1); inline;
  3549. procedure setCPOL(thebits : TBits_1); inline;
  3550. procedure setCREF(thebits : TBits_1); inline;
  3551. procedure setEVPOL(thebits : TBits_2); inline;
  3552. procedure setEVPOL0(thebits : TBits_1); inline;
  3553. procedure setEVPOL1(thebits : TBits_1); inline;
  3554. procedure setON(thebits : TBits_1); inline;
  3555. procedure setw(thebits : TBits_32); inline;
  3556. public
  3557. procedure clearCCH0; inline;
  3558. procedure clearCCH1; inline;
  3559. procedure clearCOE; inline;
  3560. procedure clearCOUT; inline;
  3561. procedure clearCPOL; inline;
  3562. procedure clearCREF; inline;
  3563. procedure clearEVPOL0; inline;
  3564. procedure clearEVPOL1; inline;
  3565. procedure clearON; inline;
  3566. procedure setCCH0; inline;
  3567. procedure setCCH1; inline;
  3568. procedure setCOE; inline;
  3569. procedure setCOUT; inline;
  3570. procedure setCPOL; inline;
  3571. procedure setCREF; inline;
  3572. procedure setEVPOL0; inline;
  3573. procedure setEVPOL1; inline;
  3574. procedure setON; inline;
  3575. property CCH : TBits_2 read getCCH write setCCH;
  3576. property CCH0 : TBits_1 read getCCH0 write setCCH0;
  3577. property CCH1 : TBits_1 read getCCH1 write setCCH1;
  3578. property COE : TBits_1 read getCOE write setCOE;
  3579. property COUT : TBits_1 read getCOUT write setCOUT;
  3580. property CPOL : TBits_1 read getCPOL write setCPOL;
  3581. property CREF : TBits_1 read getCREF write setCREF;
  3582. property EVPOL : TBits_2 read getEVPOL write setEVPOL;
  3583. property EVPOL0 : TBits_1 read getEVPOL0 write setEVPOL0;
  3584. property EVPOL1 : TBits_1 read getEVPOL1 write setEVPOL1;
  3585. property ON : TBits_1 read getON write setON;
  3586. property w : TBits_32 read getw write setw;
  3587. end;
  3588. TCMP_CMSTAT = record
  3589. private
  3590. function getC1OUT : TBits_1; inline;
  3591. function getC2OUT : TBits_1; inline;
  3592. function getSIDL : TBits_1; inline;
  3593. function getw : TBits_32; inline;
  3594. procedure setC1OUT(thebits : TBits_1); inline;
  3595. procedure setC2OUT(thebits : TBits_1); inline;
  3596. procedure setSIDL(thebits : TBits_1); inline;
  3597. procedure setw(thebits : TBits_32); inline;
  3598. public
  3599. procedure clearC1OUT; inline;
  3600. procedure clearC2OUT; inline;
  3601. procedure clearSIDL; inline;
  3602. procedure setC1OUT; inline;
  3603. procedure setC2OUT; inline;
  3604. procedure setSIDL; inline;
  3605. property C1OUT : TBits_1 read getC1OUT write setC1OUT;
  3606. property C2OUT : TBits_1 read getC2OUT write setC2OUT;
  3607. property SIDL : TBits_1 read getSIDL write setSIDL;
  3608. property w : TBits_32 read getw write setw;
  3609. end;
  3610. type
  3611. TCMPRegisters = record
  3612. CM1CONbits : TCMP_CM1CON;
  3613. CM1CON : longWord;
  3614. CM1CONCLR : longWord;
  3615. CM1CONSET : longWord;
  3616. CM1CONINV : longWord;
  3617. CM2CONbits : TCMP_CM2CON;
  3618. CM2CON : longWord;
  3619. CM2CONCLR : longWord;
  3620. CM2CONSET : longWord;
  3621. CM2CONINV : longWord;
  3622. CMSTATbits : TCMP_CMSTAT;
  3623. CMSTAT : longWord;
  3624. CMSTATCLR : longWord;
  3625. CMSTATSET : longWord;
  3626. CMSTATINV : longWord;
  3627. end;
  3628. TOSC_OSCCON = record
  3629. private
  3630. function getCF : TBits_1; inline;
  3631. function getCLKLOCK : TBits_1; inline;
  3632. function getCOSC : TBits_3; inline;
  3633. function getCOSC0 : TBits_1; inline;
  3634. function getCOSC1 : TBits_1; inline;
  3635. function getCOSC2 : TBits_1; inline;
  3636. function getFRCDIV : TBits_3; inline;
  3637. function getFRCDIV0 : TBits_1; inline;
  3638. function getFRCDIV1 : TBits_1; inline;
  3639. function getFRCDIV2 : TBits_1; inline;
  3640. function getLOCK : TBits_1; inline;
  3641. function getNOSC : TBits_3; inline;
  3642. function getNOSC0 : TBits_1; inline;
  3643. function getNOSC1 : TBits_1; inline;
  3644. function getNOSC2 : TBits_1; inline;
  3645. function getOSWEN : TBits_1; inline;
  3646. function getPBDIV : TBits_2; inline;
  3647. function getPBDIV0 : TBits_1; inline;
  3648. function getPBDIV1 : TBits_1; inline;
  3649. function getPLLMULT : TBits_3; inline;
  3650. function getPLLMULT0 : TBits_1; inline;
  3651. function getPLLMULT1 : TBits_1; inline;
  3652. function getPLLMULT2 : TBits_1; inline;
  3653. function getPLLODIV : TBits_3; inline;
  3654. function getPLLODIV0 : TBits_1; inline;
  3655. function getPLLODIV1 : TBits_1; inline;
  3656. function getPLLODIV2 : TBits_1; inline;
  3657. function getSLPEN : TBits_1; inline;
  3658. function getSOSCEN : TBits_1; inline;
  3659. function getSOSCRDY : TBits_1; inline;
  3660. function getUFRCEN : TBits_1; inline;
  3661. function getULOCK : TBits_1; inline;
  3662. function getw : TBits_32; inline;
  3663. procedure setCF(thebits : TBits_1); inline;
  3664. procedure setCLKLOCK(thebits : TBits_1); inline;
  3665. procedure setCOSC(thebits : TBits_3); inline;
  3666. procedure setCOSC0(thebits : TBits_1); inline;
  3667. procedure setCOSC1(thebits : TBits_1); inline;
  3668. procedure setCOSC2(thebits : TBits_1); inline;
  3669. procedure setFRCDIV(thebits : TBits_3); inline;
  3670. procedure setFRCDIV0(thebits : TBits_1); inline;
  3671. procedure setFRCDIV1(thebits : TBits_1); inline;
  3672. procedure setFRCDIV2(thebits : TBits_1); inline;
  3673. procedure setLOCK(thebits : TBits_1); inline;
  3674. procedure setNOSC(thebits : TBits_3); inline;
  3675. procedure setNOSC0(thebits : TBits_1); inline;
  3676. procedure setNOSC1(thebits : TBits_1); inline;
  3677. procedure setNOSC2(thebits : TBits_1); inline;
  3678. procedure setOSWEN(thebits : TBits_1); inline;
  3679. procedure setPBDIV(thebits : TBits_2); inline;
  3680. procedure setPBDIV0(thebits : TBits_1); inline;
  3681. procedure setPBDIV1(thebits : TBits_1); inline;
  3682. procedure setPLLMULT(thebits : TBits_3); inline;
  3683. procedure setPLLMULT0(thebits : TBits_1); inline;
  3684. procedure setPLLMULT1(thebits : TBits_1); inline;
  3685. procedure setPLLMULT2(thebits : TBits_1); inline;
  3686. procedure setPLLODIV(thebits : TBits_3); inline;
  3687. procedure setPLLODIV0(thebits : TBits_1); inline;
  3688. procedure setPLLODIV1(thebits : TBits_1); inline;
  3689. procedure setPLLODIV2(thebits : TBits_1); inline;
  3690. procedure setSLPEN(thebits : TBits_1); inline;
  3691. procedure setSOSCEN(thebits : TBits_1); inline;
  3692. procedure setSOSCRDY(thebits : TBits_1); inline;
  3693. procedure setUFRCEN(thebits : TBits_1); inline;
  3694. procedure setULOCK(thebits : TBits_1); inline;
  3695. procedure setw(thebits : TBits_32); inline;
  3696. public
  3697. procedure clearCF; inline;
  3698. procedure clearCLKLOCK; inline;
  3699. procedure clearCOSC0; inline;
  3700. procedure clearCOSC1; inline;
  3701. procedure clearCOSC2; inline;
  3702. procedure clearFRCDIV0; inline;
  3703. procedure clearFRCDIV1; inline;
  3704. procedure clearFRCDIV2; inline;
  3705. procedure clearLOCK; inline;
  3706. procedure clearNOSC0; inline;
  3707. procedure clearNOSC1; inline;
  3708. procedure clearNOSC2; inline;
  3709. procedure clearOSWEN; inline;
  3710. procedure clearPBDIV0; inline;
  3711. procedure clearPBDIV1; inline;
  3712. procedure clearPLLMULT0; inline;
  3713. procedure clearPLLMULT1; inline;
  3714. procedure clearPLLMULT2; inline;
  3715. procedure clearPLLODIV0; inline;
  3716. procedure clearPLLODIV1; inline;
  3717. procedure clearPLLODIV2; inline;
  3718. procedure clearSLPEN; inline;
  3719. procedure clearSOSCEN; inline;
  3720. procedure clearSOSCRDY; inline;
  3721. procedure clearUFRCEN; inline;
  3722. procedure clearULOCK; inline;
  3723. procedure setCF; inline;
  3724. procedure setCLKLOCK; inline;
  3725. procedure setCOSC0; inline;
  3726. procedure setCOSC1; inline;
  3727. procedure setCOSC2; inline;
  3728. procedure setFRCDIV0; inline;
  3729. procedure setFRCDIV1; inline;
  3730. procedure setFRCDIV2; inline;
  3731. procedure setLOCK; inline;
  3732. procedure setNOSC0; inline;
  3733. procedure setNOSC1; inline;
  3734. procedure setNOSC2; inline;
  3735. procedure setOSWEN; inline;
  3736. procedure setPBDIV0; inline;
  3737. procedure setPBDIV1; inline;
  3738. procedure setPLLMULT0; inline;
  3739. procedure setPLLMULT1; inline;
  3740. procedure setPLLMULT2; inline;
  3741. procedure setPLLODIV0; inline;
  3742. procedure setPLLODIV1; inline;
  3743. procedure setPLLODIV2; inline;
  3744. procedure setSLPEN; inline;
  3745. procedure setSOSCEN; inline;
  3746. procedure setSOSCRDY; inline;
  3747. procedure setUFRCEN; inline;
  3748. procedure setULOCK; inline;
  3749. property CF : TBits_1 read getCF write setCF;
  3750. property CLKLOCK : TBits_1 read getCLKLOCK write setCLKLOCK;
  3751. property COSC : TBits_3 read getCOSC write setCOSC;
  3752. property COSC0 : TBits_1 read getCOSC0 write setCOSC0;
  3753. property COSC1 : TBits_1 read getCOSC1 write setCOSC1;
  3754. property COSC2 : TBits_1 read getCOSC2 write setCOSC2;
  3755. property FRCDIV : TBits_3 read getFRCDIV write setFRCDIV;
  3756. property FRCDIV0 : TBits_1 read getFRCDIV0 write setFRCDIV0;
  3757. property FRCDIV1 : TBits_1 read getFRCDIV1 write setFRCDIV1;
  3758. property FRCDIV2 : TBits_1 read getFRCDIV2 write setFRCDIV2;
  3759. property LOCK : TBits_1 read getLOCK write setLOCK;
  3760. property NOSC : TBits_3 read getNOSC write setNOSC;
  3761. property NOSC0 : TBits_1 read getNOSC0 write setNOSC0;
  3762. property NOSC1 : TBits_1 read getNOSC1 write setNOSC1;
  3763. property NOSC2 : TBits_1 read getNOSC2 write setNOSC2;
  3764. property OSWEN : TBits_1 read getOSWEN write setOSWEN;
  3765. property PBDIV : TBits_2 read getPBDIV write setPBDIV;
  3766. property PBDIV0 : TBits_1 read getPBDIV0 write setPBDIV0;
  3767. property PBDIV1 : TBits_1 read getPBDIV1 write setPBDIV1;
  3768. property PLLMULT : TBits_3 read getPLLMULT write setPLLMULT;
  3769. property PLLMULT0 : TBits_1 read getPLLMULT0 write setPLLMULT0;
  3770. property PLLMULT1 : TBits_1 read getPLLMULT1 write setPLLMULT1;
  3771. property PLLMULT2 : TBits_1 read getPLLMULT2 write setPLLMULT2;
  3772. property PLLODIV : TBits_3 read getPLLODIV write setPLLODIV;
  3773. property PLLODIV0 : TBits_1 read getPLLODIV0 write setPLLODIV0;
  3774. property PLLODIV1 : TBits_1 read getPLLODIV1 write setPLLODIV1;
  3775. property PLLODIV2 : TBits_1 read getPLLODIV2 write setPLLODIV2;
  3776. property SLPEN : TBits_1 read getSLPEN write setSLPEN;
  3777. property SOSCEN : TBits_1 read getSOSCEN write setSOSCEN;
  3778. property SOSCRDY : TBits_1 read getSOSCRDY write setSOSCRDY;
  3779. property UFRCEN : TBits_1 read getUFRCEN write setUFRCEN;
  3780. property ULOCK : TBits_1 read getULOCK write setULOCK;
  3781. property w : TBits_32 read getw write setw;
  3782. end;
  3783. TOSC_OSCTUN = record
  3784. private
  3785. function getTUN : TBits_6; inline;
  3786. function getTUN0 : TBits_1; inline;
  3787. function getTUN1 : TBits_1; inline;
  3788. function getTUN2 : TBits_1; inline;
  3789. function getTUN3 : TBits_1; inline;
  3790. function getTUN4 : TBits_1; inline;
  3791. function getTUN5 : TBits_1; inline;
  3792. function getw : TBits_32; inline;
  3793. procedure setTUN(thebits : TBits_6); inline;
  3794. procedure setTUN0(thebits : TBits_1); inline;
  3795. procedure setTUN1(thebits : TBits_1); inline;
  3796. procedure setTUN2(thebits : TBits_1); inline;
  3797. procedure setTUN3(thebits : TBits_1); inline;
  3798. procedure setTUN4(thebits : TBits_1); inline;
  3799. procedure setTUN5(thebits : TBits_1); inline;
  3800. procedure setw(thebits : TBits_32); inline;
  3801. public
  3802. procedure clearTUN0; inline;
  3803. procedure clearTUN1; inline;
  3804. procedure clearTUN2; inline;
  3805. procedure clearTUN3; inline;
  3806. procedure clearTUN4; inline;
  3807. procedure clearTUN5; inline;
  3808. procedure setTUN0; inline;
  3809. procedure setTUN1; inline;
  3810. procedure setTUN2; inline;
  3811. procedure setTUN3; inline;
  3812. procedure setTUN4; inline;
  3813. procedure setTUN5; inline;
  3814. property TUN : TBits_6 read getTUN write setTUN;
  3815. property TUN0 : TBits_1 read getTUN0 write setTUN0;
  3816. property TUN1 : TBits_1 read getTUN1 write setTUN1;
  3817. property TUN2 : TBits_1 read getTUN2 write setTUN2;
  3818. property TUN3 : TBits_1 read getTUN3 write setTUN3;
  3819. property TUN4 : TBits_1 read getTUN4 write setTUN4;
  3820. property TUN5 : TBits_1 read getTUN5 write setTUN5;
  3821. property w : TBits_32 read getw write setw;
  3822. end;
  3823. type
  3824. TOSCRegisters = record
  3825. OSCCONbits : TOSC_OSCCON;
  3826. OSCCON : longWord;
  3827. OSCCONCLR : longWord;
  3828. OSCCONSET : longWord;
  3829. OSCCONINV : longWord;
  3830. OSCTUNbits : TOSC_OSCTUN;
  3831. OSCTUN : longWord;
  3832. OSCTUNCLR : longWord;
  3833. OSCTUNSET : longWord;
  3834. OSCTUNINV : longWord;
  3835. end;
  3836. type
  3837. TCFGRegisters = record
  3838. DDPCON : longWord;
  3839. DEVID : longWord;
  3840. SYSKEY : longWord;
  3841. SYSKEYCLR : longWord;
  3842. SYSKEYSET : longWord;
  3843. SYSKEYINV : longWord;
  3844. end;
  3845. TNVM_NVMCON = record
  3846. private
  3847. function getLVDERR : TBits_1; inline;
  3848. function getLVDSTAT : TBits_1; inline;
  3849. function getNVMOP : TBits_4; inline;
  3850. function getNVMOP0 : TBits_1; inline;
  3851. function getNVMOP1 : TBits_1; inline;
  3852. function getNVMOP2 : TBits_1; inline;
  3853. function getNVMOP3 : TBits_1; inline;
  3854. function getPROGOP : TBits_4; inline;
  3855. function getPROGOP0 : TBits_1; inline;
  3856. function getPROGOP1 : TBits_1; inline;
  3857. function getPROGOP2 : TBits_1; inline;
  3858. function getPROGOP3 : TBits_1; inline;
  3859. function getWR : TBits_1; inline;
  3860. function getWREN : TBits_1; inline;
  3861. function getWRERR : TBits_1; inline;
  3862. function getw : TBits_32; inline;
  3863. procedure setLVDERR(thebits : TBits_1); inline;
  3864. procedure setLVDSTAT(thebits : TBits_1); inline;
  3865. procedure setNVMOP(thebits : TBits_4); inline;
  3866. procedure setNVMOP0(thebits : TBits_1); inline;
  3867. procedure setNVMOP1(thebits : TBits_1); inline;
  3868. procedure setNVMOP2(thebits : TBits_1); inline;
  3869. procedure setNVMOP3(thebits : TBits_1); inline;
  3870. procedure setPROGOP(thebits : TBits_4); inline;
  3871. procedure setPROGOP0(thebits : TBits_1); inline;
  3872. procedure setPROGOP1(thebits : TBits_1); inline;
  3873. procedure setPROGOP2(thebits : TBits_1); inline;
  3874. procedure setPROGOP3(thebits : TBits_1); inline;
  3875. procedure setWR(thebits : TBits_1); inline;
  3876. procedure setWREN(thebits : TBits_1); inline;
  3877. procedure setWRERR(thebits : TBits_1); inline;
  3878. procedure setw(thebits : TBits_32); inline;
  3879. public
  3880. procedure clearLVDERR; inline;
  3881. procedure clearLVDSTAT; inline;
  3882. procedure clearNVMOP0; inline;
  3883. procedure clearNVMOP1; inline;
  3884. procedure clearNVMOP2; inline;
  3885. procedure clearNVMOP3; inline;
  3886. procedure clearPROGOP0; inline;
  3887. procedure clearPROGOP1; inline;
  3888. procedure clearPROGOP2; inline;
  3889. procedure clearPROGOP3; inline;
  3890. procedure clearWR; inline;
  3891. procedure clearWREN; inline;
  3892. procedure clearWRERR; inline;
  3893. procedure setLVDERR; inline;
  3894. procedure setLVDSTAT; inline;
  3895. procedure setNVMOP0; inline;
  3896. procedure setNVMOP1; inline;
  3897. procedure setNVMOP2; inline;
  3898. procedure setNVMOP3; inline;
  3899. procedure setPROGOP0; inline;
  3900. procedure setPROGOP1; inline;
  3901. procedure setPROGOP2; inline;
  3902. procedure setPROGOP3; inline;
  3903. procedure setWR; inline;
  3904. procedure setWREN; inline;
  3905. procedure setWRERR; inline;
  3906. property LVDERR : TBits_1 read getLVDERR write setLVDERR;
  3907. property LVDSTAT : TBits_1 read getLVDSTAT write setLVDSTAT;
  3908. property NVMOP : TBits_4 read getNVMOP write setNVMOP;
  3909. property NVMOP0 : TBits_1 read getNVMOP0 write setNVMOP0;
  3910. property NVMOP1 : TBits_1 read getNVMOP1 write setNVMOP1;
  3911. property NVMOP2 : TBits_1 read getNVMOP2 write setNVMOP2;
  3912. property NVMOP3 : TBits_1 read getNVMOP3 write setNVMOP3;
  3913. property PROGOP : TBits_4 read getPROGOP write setPROGOP;
  3914. property PROGOP0 : TBits_1 read getPROGOP0 write setPROGOP0;
  3915. property PROGOP1 : TBits_1 read getPROGOP1 write setPROGOP1;
  3916. property PROGOP2 : TBits_1 read getPROGOP2 write setPROGOP2;
  3917. property PROGOP3 : TBits_1 read getPROGOP3 write setPROGOP3;
  3918. property WR : TBits_1 read getWR write setWR;
  3919. property WREN : TBits_1 read getWREN write setWREN;
  3920. property WRERR : TBits_1 read getWRERR write setWRERR;
  3921. property w : TBits_32 read getw write setw;
  3922. end;
  3923. type
  3924. TNVMRegisters = record
  3925. NVMCONbits : TNVM_NVMCON;
  3926. NVMCON : longWord;
  3927. NVMCONCLR : longWord;
  3928. NVMCONSET : longWord;
  3929. NVMCONINV : longWord;
  3930. NVMKEY : longWord;
  3931. NVMADDR : longWord;
  3932. NVMADDRCLR : longWord;
  3933. NVMADDRSET : longWord;
  3934. NVMADDRINV : longWord;
  3935. NVMDATA : longWord;
  3936. NVMSRCADDR : longWord;
  3937. end;
  3938. TRCON_RCON = record
  3939. private
  3940. function getBOR : TBits_1; inline;
  3941. function getCMR : TBits_1; inline;
  3942. function getEXTR : TBits_1; inline;
  3943. function getIDLE : TBits_1; inline;
  3944. function getPOR : TBits_1; inline;
  3945. function getSLEEP : TBits_1; inline;
  3946. function getSWR : TBits_1; inline;
  3947. function getVREGS : TBits_1; inline;
  3948. function getWDTO : TBits_1; inline;
  3949. function getw : TBits_32; inline;
  3950. procedure setBOR(thebits : TBits_1); inline;
  3951. procedure setCMR(thebits : TBits_1); inline;
  3952. procedure setEXTR(thebits : TBits_1); inline;
  3953. procedure setIDLE(thebits : TBits_1); inline;
  3954. procedure setPOR(thebits : TBits_1); inline;
  3955. procedure setSLEEP(thebits : TBits_1); inline;
  3956. procedure setSWR(thebits : TBits_1); inline;
  3957. procedure setVREGS(thebits : TBits_1); inline;
  3958. procedure setWDTO(thebits : TBits_1); inline;
  3959. procedure setw(thebits : TBits_32); inline;
  3960. public
  3961. procedure clearBOR; inline;
  3962. procedure clearCMR; inline;
  3963. procedure clearEXTR; inline;
  3964. procedure clearIDLE; inline;
  3965. procedure clearPOR; inline;
  3966. procedure clearSLEEP; inline;
  3967. procedure clearSWR; inline;
  3968. procedure clearVREGS; inline;
  3969. procedure clearWDTO; inline;
  3970. procedure setBOR; inline;
  3971. procedure setCMR; inline;
  3972. procedure setEXTR; inline;
  3973. procedure setIDLE; inline;
  3974. procedure setPOR; inline;
  3975. procedure setSLEEP; inline;
  3976. procedure setSWR; inline;
  3977. procedure setVREGS; inline;
  3978. procedure setWDTO; inline;
  3979. property BOR : TBits_1 read getBOR write setBOR;
  3980. property CMR : TBits_1 read getCMR write setCMR;
  3981. property EXTR : TBits_1 read getEXTR write setEXTR;
  3982. property IDLE : TBits_1 read getIDLE write setIDLE;
  3983. property POR : TBits_1 read getPOR write setPOR;
  3984. property SLEEP : TBits_1 read getSLEEP write setSLEEP;
  3985. property SWR : TBits_1 read getSWR write setSWR;
  3986. property VREGS : TBits_1 read getVREGS write setVREGS;
  3987. property WDTO : TBits_1 read getWDTO write setWDTO;
  3988. property w : TBits_32 read getw write setw;
  3989. end;
  3990. TRCON_RSWRST = record
  3991. private
  3992. function getSWRST : TBits_1; inline;
  3993. function getw : TBits_32; inline;
  3994. procedure setSWRST(thebits : TBits_1); inline;
  3995. procedure setw(thebits : TBits_32); inline;
  3996. public
  3997. procedure clearSWRST; inline;
  3998. procedure setSWRST; inline;
  3999. property SWRST : TBits_1 read getSWRST write setSWRST;
  4000. property w : TBits_32 read getw write setw;
  4001. end;
  4002. type
  4003. TRCONRegisters = record
  4004. RCONbits : TRCON_RCON;
  4005. RCON : longWord;
  4006. RCONCLR : longWord;
  4007. RCONSET : longWord;
  4008. RCONINV : longWord;
  4009. RSWRSTbits : TRCON_RSWRST;
  4010. RSWRST : longWord;
  4011. RSWRSTCLR : longWord;
  4012. RSWRSTSET : longWord;
  4013. RSWRSTINV : longWord;
  4014. end;
  4015. type
  4016. T_DDPSTATRegisters = record
  4017. _DDPSTAT : longWord;
  4018. end;
  4019. type
  4020. T_STRORegisters = record
  4021. _STRO : longWord;
  4022. _STROCLR : longWord;
  4023. _STROSET : longWord;
  4024. _STROINV : longWord;
  4025. end;
  4026. type
  4027. T_APPORegisters = record
  4028. _APPO : longWord;
  4029. _APPOCLR : longWord;
  4030. _APPOSET : longWord;
  4031. _APPOINV : longWord;
  4032. end;
  4033. type
  4034. T_APPIRegisters = record
  4035. _APPI : longWord;
  4036. end;
  4037. TINT_INTSTAT = record
  4038. private
  4039. function getRIPL : TBits_3; inline;
  4040. function getSRIPL : TBits_3; inline;
  4041. function getVEC : TBits_6; inline;
  4042. procedure setRIPL(thebits : TBits_3); inline;
  4043. procedure setSRIPL(thebits : TBits_3); inline;
  4044. procedure setVEC(thebits : TBits_6); inline;
  4045. public
  4046. property RIPL : TBits_3 read getRIPL write setRIPL;
  4047. property SRIPL : TBits_3 read getSRIPL write setSRIPL;
  4048. property VEC : TBits_6 read getVEC write setVEC;
  4049. end;
  4050. type
  4051. TINTRegisters = record
  4052. INTCON : longWord;
  4053. INTCONCLR : longWord;
  4054. INTCONSET : longWord;
  4055. INTCONINV : longWord;
  4056. INTSTATbits : TINT_INTSTAT;
  4057. INTSTAT : longWord;
  4058. IPTMR : longWord;
  4059. IPTMRCLR : longWord;
  4060. IPTMRSET : longWord;
  4061. IPTMRINV : longWord;
  4062. IFS0 : longWord;
  4063. IFS0CLR : longWord;
  4064. IFS0SET : longWord;
  4065. IFS0INV : longWord;
  4066. IFS1 : longWord;
  4067. IFS1CLR : longWord;
  4068. IFS1SET : longWord;
  4069. IFS1INV : longWord;
  4070. IEC0 : longWord;
  4071. IEC0CLR : longWord;
  4072. IEC0SET : longWord;
  4073. IEC0INV : longWord;
  4074. IEC1 : longWord;
  4075. IEC1CLR : longWord;
  4076. IEC1SET : longWord;
  4077. IEC1INV : longWord;
  4078. IPC0 : longWord;
  4079. IPC0CLR : longWord;
  4080. IPC0SET : longWord;
  4081. IPC0INV : longWord;
  4082. IPC1 : longWord;
  4083. IPC1CLR : longWord;
  4084. IPC1SET : longWord;
  4085. IPC1INV : longWord;
  4086. IPC2 : longWord;
  4087. IPC2CLR : longWord;
  4088. IPC2SET : longWord;
  4089. IPC2INV : longWord;
  4090. IPC3 : longWord;
  4091. IPC3CLR : longWord;
  4092. IPC3SET : longWord;
  4093. IPC3INV : longWord;
  4094. IPC4 : longWord;
  4095. IPC4CLR : longWord;
  4096. IPC4SET : longWord;
  4097. IPC4INV : longWord;
  4098. IPC5 : longWord;
  4099. IPC5CLR : longWord;
  4100. IPC5SET : longWord;
  4101. IPC5INV : longWord;
  4102. IPC6 : longWord;
  4103. IPC6CLR : longWord;
  4104. IPC6SET : longWord;
  4105. IPC6INV : longWord;
  4106. IPC7 : longWord;
  4107. IPC7CLR : longWord;
  4108. IPC7SET : longWord;
  4109. IPC7INV : longWord;
  4110. IPC8 : longWord;
  4111. IPC8CLR : longWord;
  4112. IPC8SET : longWord;
  4113. IPC8INV : longWord;
  4114. IPC11 : longWord;
  4115. IPC11CLR : longWord;
  4116. IPC11SET : longWord;
  4117. IPC11INV : longWord;
  4118. end;
  4119. TBMX_BMXCON = record
  4120. private
  4121. function getBMXARB : TBits_3; inline;
  4122. function getBMXCHEDMA : TBits_1; inline;
  4123. function getBMXERRDMA : TBits_1; inline;
  4124. function getBMXERRDS : TBits_1; inline;
  4125. function getBMXERRICD : TBits_1; inline;
  4126. function getBMXERRIS : TBits_1; inline;
  4127. function getBMXERRIXI : TBits_1; inline;
  4128. function getBMXWSDRM : TBits_1; inline;
  4129. function getw : TBits_32; inline;
  4130. procedure setBMXARB(thebits : TBits_3); inline;
  4131. procedure setBMXCHEDMA(thebits : TBits_1); inline;
  4132. procedure setBMXERRDMA(thebits : TBits_1); inline;
  4133. procedure setBMXERRDS(thebits : TBits_1); inline;
  4134. procedure setBMXERRICD(thebits : TBits_1); inline;
  4135. procedure setBMXERRIS(thebits : TBits_1); inline;
  4136. procedure setBMXERRIXI(thebits : TBits_1); inline;
  4137. procedure setBMXWSDRM(thebits : TBits_1); inline;
  4138. procedure setw(thebits : TBits_32); inline;
  4139. public
  4140. procedure clearBMXCHEDMA; inline;
  4141. procedure clearBMXERRDMA; inline;
  4142. procedure clearBMXERRDS; inline;
  4143. procedure clearBMXERRICD; inline;
  4144. procedure clearBMXERRIS; inline;
  4145. procedure clearBMXERRIXI; inline;
  4146. procedure clearBMXWSDRM; inline;
  4147. procedure setBMXCHEDMA; inline;
  4148. procedure setBMXERRDMA; inline;
  4149. procedure setBMXERRDS; inline;
  4150. procedure setBMXERRICD; inline;
  4151. procedure setBMXERRIS; inline;
  4152. procedure setBMXERRIXI; inline;
  4153. procedure setBMXWSDRM; inline;
  4154. property BMXARB : TBits_3 read getBMXARB write setBMXARB;
  4155. property BMXCHEDMA : TBits_1 read getBMXCHEDMA write setBMXCHEDMA;
  4156. property BMXERRDMA : TBits_1 read getBMXERRDMA write setBMXERRDMA;
  4157. property BMXERRDS : TBits_1 read getBMXERRDS write setBMXERRDS;
  4158. property BMXERRICD : TBits_1 read getBMXERRICD write setBMXERRICD;
  4159. property BMXERRIS : TBits_1 read getBMXERRIS write setBMXERRIS;
  4160. property BMXERRIXI : TBits_1 read getBMXERRIXI write setBMXERRIXI;
  4161. property BMXWSDRM : TBits_1 read getBMXWSDRM write setBMXWSDRM;
  4162. property w : TBits_32 read getw write setw;
  4163. end;
  4164. type
  4165. TBMXRegisters = record
  4166. BMXCONbits : TBMX_BMXCON;
  4167. BMXCON : longWord;
  4168. BMXCONCLR : longWord;
  4169. BMXCONSET : longWord;
  4170. BMXCONINV : longWord;
  4171. BMXDKPBA : longWord;
  4172. BMXDKPBACLR : longWord;
  4173. BMXDKPBASET : longWord;
  4174. BMXDKPBAINV : longWord;
  4175. BMXDUDBA : longWord;
  4176. BMXDUDBACLR : longWord;
  4177. BMXDUDBASET : longWord;
  4178. BMXDUDBAINV : longWord;
  4179. BMXDUPBA : longWord;
  4180. BMXDUPBACLR : longWord;
  4181. BMXDUPBASET : longWord;
  4182. BMXDUPBAINV : longWord;
  4183. BMXDRMSZ : longWord;
  4184. BMXPUPBA : longWord;
  4185. BMXPUPBACLR : longWord;
  4186. BMXPUPBASET : longWord;
  4187. BMXPUPBAINV : longWord;
  4188. BMXPFMSZ : longWord;
  4189. BMXBOOTSZ : longWord;
  4190. end;
  4191. TPCACHE_CHECON = record
  4192. private
  4193. function getCHECOH : TBits_1; inline;
  4194. function getDCSZ : TBits_2; inline;
  4195. function getPFMWS : TBits_3; inline;
  4196. function getPREFEN : TBits_2; inline;
  4197. function getw : TBits_32; inline;
  4198. procedure setCHECOH(thebits : TBits_1); inline;
  4199. procedure setDCSZ(thebits : TBits_2); inline;
  4200. procedure setPFMWS(thebits : TBits_3); inline;
  4201. procedure setPREFEN(thebits : TBits_2); inline;
  4202. procedure setw(thebits : TBits_32); inline;
  4203. public
  4204. procedure clearCHECOH; inline;
  4205. procedure setCHECOH; inline;
  4206. property CHECOH : TBits_1 read getCHECOH write setCHECOH;
  4207. property DCSZ : TBits_2 read getDCSZ write setDCSZ;
  4208. property PFMWS : TBits_3 read getPFMWS write setPFMWS;
  4209. property PREFEN : TBits_2 read getPREFEN write setPREFEN;
  4210. property w : TBits_32 read getw write setw;
  4211. end;
  4212. TPCACHE_CHETAG = record
  4213. private
  4214. function getLLOCK : TBits_1; inline;
  4215. function getLTAG : TBits_20; inline;
  4216. function getLTAGBOOT : TBits_1; inline;
  4217. function getLTYPE : TBits_1; inline;
  4218. function getLVALID : TBits_1; inline;
  4219. function getw : TBits_32; inline;
  4220. procedure setLLOCK(thebits : TBits_1); inline;
  4221. procedure setLTAG(thebits : TBits_20); inline;
  4222. procedure setLTAGBOOT(thebits : TBits_1); inline;
  4223. procedure setLTYPE(thebits : TBits_1); inline;
  4224. procedure setLVALID(thebits : TBits_1); inline;
  4225. procedure setw(thebits : TBits_32); inline;
  4226. public
  4227. procedure clearLLOCK; inline;
  4228. procedure clearLTAGBOOT; inline;
  4229. procedure clearLTYPE; inline;
  4230. procedure clearLVALID; inline;
  4231. procedure setLLOCK; inline;
  4232. procedure setLTAGBOOT; inline;
  4233. procedure setLTYPE; inline;
  4234. procedure setLVALID; inline;
  4235. property LLOCK : TBits_1 read getLLOCK write setLLOCK;
  4236. property LTAG : TBits_20 read getLTAG write setLTAG;
  4237. property LTAGBOOT : TBits_1 read getLTAGBOOT write setLTAGBOOT;
  4238. property LTYPE : TBits_1 read getLTYPE write setLTYPE;
  4239. property LVALID : TBits_1 read getLVALID write setLVALID;
  4240. property w : TBits_32 read getw write setw;
  4241. end;
  4242. type
  4243. TPCACHERegisters = record
  4244. CHECONbits : TPCACHE_CHECON;
  4245. CHECON : longWord;
  4246. CHECONCLR : longWord;
  4247. CHECONSET : longWord;
  4248. CHECONINV : longWord;
  4249. CHEACC : longWord;
  4250. CHEACCCLR : longWord;
  4251. CHEACCSET : longWord;
  4252. CHEACCINV : longWord;
  4253. CHETAGbits : TPCACHE_CHETAG;
  4254. CHETAG : longWord;
  4255. CHETAGCLR : longWord;
  4256. CHETAGSET : longWord;
  4257. CHETAGINV : longWord;
  4258. CHEMSK : longWord;
  4259. CHEMSKCLR : longWord;
  4260. CHEMSKSET : longWord;
  4261. CHEMSKINV : longWord;
  4262. CHEW0 : longWord;
  4263. CHEW1 : longWord;
  4264. CHEW2 : longWord;
  4265. CHEW3 : longWord;
  4266. CHELRU : longWord;
  4267. CHEHIT : longWord;
  4268. CHEMIS : longWord;
  4269. CHEPFABT : longWord;
  4270. end;
  4271. TUSB_U1IR = record
  4272. private
  4273. function getATTACHIF : TBits_1; inline;
  4274. function getDETACHIF : TBits_1; inline;
  4275. function getIDLEIF : TBits_1; inline;
  4276. function getRESUMEIF : TBits_1; inline;
  4277. function getSOFIF : TBits_1; inline;
  4278. function getSTALLIF : TBits_1; inline;
  4279. function getTRNIF : TBits_1; inline;
  4280. function getUERRIF : TBits_1; inline;
  4281. function getURSTIF : TBits_1; inline;
  4282. function getURSTIF_DETACHIF : TBits_1; inline;
  4283. procedure setATTACHIF(thebits : TBits_1); inline;
  4284. procedure setDETACHIF(thebits : TBits_1); inline;
  4285. procedure setIDLEIF(thebits : TBits_1); inline;
  4286. procedure setRESUMEIF(thebits : TBits_1); inline;
  4287. procedure setSOFIF(thebits : TBits_1); inline;
  4288. procedure setSTALLIF(thebits : TBits_1); inline;
  4289. procedure setTRNIF(thebits : TBits_1); inline;
  4290. procedure setUERRIF(thebits : TBits_1); inline;
  4291. procedure setURSTIF(thebits : TBits_1); inline;
  4292. procedure setURSTIF_DETACHIF(thebits : TBits_1); inline;
  4293. public
  4294. procedure clearATTACHIF; inline;
  4295. procedure clearDETACHIF; inline;
  4296. procedure clearIDLEIF; inline;
  4297. procedure clearRESUMEIF; inline;
  4298. procedure clearSOFIF; inline;
  4299. procedure clearSTALLIF; inline;
  4300. procedure clearTRNIF; inline;
  4301. procedure clearUERRIF; inline;
  4302. procedure clearURSTIF; inline;
  4303. procedure clearURSTIF_DETACHIF; inline;
  4304. procedure setATTACHIF; inline;
  4305. procedure setDETACHIF; inline;
  4306. procedure setIDLEIF; inline;
  4307. procedure setRESUMEIF; inline;
  4308. procedure setSOFIF; inline;
  4309. procedure setSTALLIF; inline;
  4310. procedure setTRNIF; inline;
  4311. procedure setUERRIF; inline;
  4312. procedure setURSTIF; inline;
  4313. procedure setURSTIF_DETACHIF; inline;
  4314. property ATTACHIF : TBits_1 read getATTACHIF write setATTACHIF;
  4315. property DETACHIF : TBits_1 read getDETACHIF write setDETACHIF;
  4316. property IDLEIF : TBits_1 read getIDLEIF write setIDLEIF;
  4317. property RESUMEIF : TBits_1 read getRESUMEIF write setRESUMEIF;
  4318. property SOFIF : TBits_1 read getSOFIF write setSOFIF;
  4319. property STALLIF : TBits_1 read getSTALLIF write setSTALLIF;
  4320. property TRNIF : TBits_1 read getTRNIF write setTRNIF;
  4321. property UERRIF : TBits_1 read getUERRIF write setUERRIF;
  4322. property URSTIF : TBits_1 read getURSTIF write setURSTIF;
  4323. property URSTIF_DETACHIF : TBits_1 read getURSTIF_DETACHIF write setURSTIF_DETACHIF;
  4324. end;
  4325. TUSB_U1IE = record
  4326. private
  4327. function getATTACHIE : TBits_1; inline;
  4328. function getDETACHIE : TBits_1; inline;
  4329. function getIDLEIE : TBits_1; inline;
  4330. function getRESUMEIE : TBits_1; inline;
  4331. function getSOFIE : TBits_1; inline;
  4332. function getSTALLIE : TBits_1; inline;
  4333. function getTRNIE : TBits_1; inline;
  4334. function getUERRIE : TBits_1; inline;
  4335. function getURSTIE : TBits_1; inline;
  4336. function getURSTIE_DETACHIE : TBits_1; inline;
  4337. procedure setATTACHIE(thebits : TBits_1); inline;
  4338. procedure setDETACHIE(thebits : TBits_1); inline;
  4339. procedure setIDLEIE(thebits : TBits_1); inline;
  4340. procedure setRESUMEIE(thebits : TBits_1); inline;
  4341. procedure setSOFIE(thebits : TBits_1); inline;
  4342. procedure setSTALLIE(thebits : TBits_1); inline;
  4343. procedure setTRNIE(thebits : TBits_1); inline;
  4344. procedure setUERRIE(thebits : TBits_1); inline;
  4345. procedure setURSTIE(thebits : TBits_1); inline;
  4346. procedure setURSTIE_DETACHIE(thebits : TBits_1); inline;
  4347. public
  4348. procedure clearATTACHIE; inline;
  4349. procedure clearDETACHIE; inline;
  4350. procedure clearIDLEIE; inline;
  4351. procedure clearRESUMEIE; inline;
  4352. procedure clearSOFIE; inline;
  4353. procedure clearSTALLIE; inline;
  4354. procedure clearTRNIE; inline;
  4355. procedure clearUERRIE; inline;
  4356. procedure clearURSTIE; inline;
  4357. procedure clearURSTIE_DETACHIE; inline;
  4358. procedure setATTACHIE; inline;
  4359. procedure setDETACHIE; inline;
  4360. procedure setIDLEIE; inline;
  4361. procedure setRESUMEIE; inline;
  4362. procedure setSOFIE; inline;
  4363. procedure setSTALLIE; inline;
  4364. procedure setTRNIE; inline;
  4365. procedure setUERRIE; inline;
  4366. procedure setURSTIE; inline;
  4367. procedure setURSTIE_DETACHIE; inline;
  4368. property ATTACHIE : TBits_1 read getATTACHIE write setATTACHIE;
  4369. property DETACHIE : TBits_1 read getDETACHIE write setDETACHIE;
  4370. property IDLEIE : TBits_1 read getIDLEIE write setIDLEIE;
  4371. property RESUMEIE : TBits_1 read getRESUMEIE write setRESUMEIE;
  4372. property SOFIE : TBits_1 read getSOFIE write setSOFIE;
  4373. property STALLIE : TBits_1 read getSTALLIE write setSTALLIE;
  4374. property TRNIE : TBits_1 read getTRNIE write setTRNIE;
  4375. property UERRIE : TBits_1 read getUERRIE write setUERRIE;
  4376. property URSTIE : TBits_1 read getURSTIE write setURSTIE;
  4377. property URSTIE_DETACHIE : TBits_1 read getURSTIE_DETACHIE write setURSTIE_DETACHIE;
  4378. end;
  4379. TUSB_U1EIR = record
  4380. private
  4381. function getBMXEF : TBits_1; inline;
  4382. function getBTOEF : TBits_1; inline;
  4383. function getBTSEF : TBits_1; inline;
  4384. function getCRC16EF : TBits_1; inline;
  4385. function getCRC5EF : TBits_1; inline;
  4386. function getCRC5EF_EOFEF : TBits_1; inline;
  4387. function getDFN8EF : TBits_1; inline;
  4388. function getDMAEF : TBits_1; inline;
  4389. function getEOFEF : TBits_1; inline;
  4390. function getPIDEF : TBits_1; inline;
  4391. procedure setBMXEF(thebits : TBits_1); inline;
  4392. procedure setBTOEF(thebits : TBits_1); inline;
  4393. procedure setBTSEF(thebits : TBits_1); inline;
  4394. procedure setCRC16EF(thebits : TBits_1); inline;
  4395. procedure setCRC5EF(thebits : TBits_1); inline;
  4396. procedure setCRC5EF_EOFEF(thebits : TBits_1); inline;
  4397. procedure setDFN8EF(thebits : TBits_1); inline;
  4398. procedure setDMAEF(thebits : TBits_1); inline;
  4399. procedure setEOFEF(thebits : TBits_1); inline;
  4400. procedure setPIDEF(thebits : TBits_1); inline;
  4401. public
  4402. procedure clearBMXEF; inline;
  4403. procedure clearBTOEF; inline;
  4404. procedure clearBTSEF; inline;
  4405. procedure clearCRC16EF; inline;
  4406. procedure clearCRC5EF; inline;
  4407. procedure clearCRC5EF_EOFEF; inline;
  4408. procedure clearDFN8EF; inline;
  4409. procedure clearDMAEF; inline;
  4410. procedure clearEOFEF; inline;
  4411. procedure clearPIDEF; inline;
  4412. procedure setBMXEF; inline;
  4413. procedure setBTOEF; inline;
  4414. procedure setBTSEF; inline;
  4415. procedure setCRC16EF; inline;
  4416. procedure setCRC5EF; inline;
  4417. procedure setCRC5EF_EOFEF; inline;
  4418. procedure setDFN8EF; inline;
  4419. procedure setDMAEF; inline;
  4420. procedure setEOFEF; inline;
  4421. procedure setPIDEF; inline;
  4422. property BMXEF : TBits_1 read getBMXEF write setBMXEF;
  4423. property BTOEF : TBits_1 read getBTOEF write setBTOEF;
  4424. property BTSEF : TBits_1 read getBTSEF write setBTSEF;
  4425. property CRC16EF : TBits_1 read getCRC16EF write setCRC16EF;
  4426. property CRC5EF : TBits_1 read getCRC5EF write setCRC5EF;
  4427. property CRC5EF_EOFEF : TBits_1 read getCRC5EF_EOFEF write setCRC5EF_EOFEF;
  4428. property DFN8EF : TBits_1 read getDFN8EF write setDFN8EF;
  4429. property DMAEF : TBits_1 read getDMAEF write setDMAEF;
  4430. property EOFEF : TBits_1 read getEOFEF write setEOFEF;
  4431. property PIDEF : TBits_1 read getPIDEF write setPIDEF;
  4432. end;
  4433. TUSB_U1EIE = record
  4434. private
  4435. function getBMXEE : TBits_1; inline;
  4436. function getBTOEE : TBits_1; inline;
  4437. function getBTSEE : TBits_1; inline;
  4438. function getCRC16EE : TBits_1; inline;
  4439. function getCRC5EE : TBits_1; inline;
  4440. function getCRC5EE_EOFEE : TBits_1; inline;
  4441. function getDFN8EE : TBits_1; inline;
  4442. function getDMAEE : TBits_1; inline;
  4443. function getEOFEE : TBits_1; inline;
  4444. function getPIDEE : TBits_1; inline;
  4445. procedure setBMXEE(thebits : TBits_1); inline;
  4446. procedure setBTOEE(thebits : TBits_1); inline;
  4447. procedure setBTSEE(thebits : TBits_1); inline;
  4448. procedure setCRC16EE(thebits : TBits_1); inline;
  4449. procedure setCRC5EE(thebits : TBits_1); inline;
  4450. procedure setCRC5EE_EOFEE(thebits : TBits_1); inline;
  4451. procedure setDFN8EE(thebits : TBits_1); inline;
  4452. procedure setDMAEE(thebits : TBits_1); inline;
  4453. procedure setEOFEE(thebits : TBits_1); inline;
  4454. procedure setPIDEE(thebits : TBits_1); inline;
  4455. public
  4456. procedure clearBMXEE; inline;
  4457. procedure clearBTOEE; inline;
  4458. procedure clearBTSEE; inline;
  4459. procedure clearCRC16EE; inline;
  4460. procedure clearCRC5EE; inline;
  4461. procedure clearCRC5EE_EOFEE; inline;
  4462. procedure clearDFN8EE; inline;
  4463. procedure clearDMAEE; inline;
  4464. procedure clearEOFEE; inline;
  4465. procedure clearPIDEE; inline;
  4466. procedure setBMXEE; inline;
  4467. procedure setBTOEE; inline;
  4468. procedure setBTSEE; inline;
  4469. procedure setCRC16EE; inline;
  4470. procedure setCRC5EE; inline;
  4471. procedure setCRC5EE_EOFEE; inline;
  4472. procedure setDFN8EE; inline;
  4473. procedure setDMAEE; inline;
  4474. procedure setEOFEE; inline;
  4475. procedure setPIDEE; inline;
  4476. property BMXEE : TBits_1 read getBMXEE write setBMXEE;
  4477. property BTOEE : TBits_1 read getBTOEE write setBTOEE;
  4478. property BTSEE : TBits_1 read getBTSEE write setBTSEE;
  4479. property CRC16EE : TBits_1 read getCRC16EE write setCRC16EE;
  4480. property CRC5EE : TBits_1 read getCRC5EE write setCRC5EE;
  4481. property CRC5EE_EOFEE : TBits_1 read getCRC5EE_EOFEE write setCRC5EE_EOFEE;
  4482. property DFN8EE : TBits_1 read getDFN8EE write setDFN8EE;
  4483. property DMAEE : TBits_1 read getDMAEE write setDMAEE;
  4484. property EOFEE : TBits_1 read getEOFEE write setEOFEE;
  4485. property PIDEE : TBits_1 read getPIDEE write setPIDEE;
  4486. end;
  4487. TUSB_U1STAT = record
  4488. private
  4489. function getDIR : TBits_1; inline;
  4490. function getENDPT : TBits_4; inline;
  4491. function getENDPT0 : TBits_1; inline;
  4492. function getENDPT1 : TBits_1; inline;
  4493. function getENDPT2 : TBits_1; inline;
  4494. function getENDPT3 : TBits_1; inline;
  4495. function getPPBI : TBits_1; inline;
  4496. procedure setDIR(thebits : TBits_1); inline;
  4497. procedure setENDPT(thebits : TBits_4); inline;
  4498. procedure setENDPT0(thebits : TBits_1); inline;
  4499. procedure setENDPT1(thebits : TBits_1); inline;
  4500. procedure setENDPT2(thebits : TBits_1); inline;
  4501. procedure setENDPT3(thebits : TBits_1); inline;
  4502. procedure setPPBI(thebits : TBits_1); inline;
  4503. public
  4504. procedure clearDIR; inline;
  4505. procedure clearENDPT0; inline;
  4506. procedure clearENDPT1; inline;
  4507. procedure clearENDPT2; inline;
  4508. procedure clearENDPT3; inline;
  4509. procedure clearPPBI; inline;
  4510. procedure setDIR; inline;
  4511. procedure setENDPT0; inline;
  4512. procedure setENDPT1; inline;
  4513. procedure setENDPT2; inline;
  4514. procedure setENDPT3; inline;
  4515. procedure setPPBI; inline;
  4516. property DIR : TBits_1 read getDIR write setDIR;
  4517. property ENDPT : TBits_4 read getENDPT write setENDPT;
  4518. property ENDPT0 : TBits_1 read getENDPT0 write setENDPT0;
  4519. property ENDPT1 : TBits_1 read getENDPT1 write setENDPT1;
  4520. property ENDPT2 : TBits_1 read getENDPT2 write setENDPT2;
  4521. property ENDPT3 : TBits_1 read getENDPT3 write setENDPT3;
  4522. property PPBI : TBits_1 read getPPBI write setPPBI;
  4523. end;
  4524. TUSB_U1CON = record
  4525. private
  4526. function getHOSTEN : TBits_1; inline;
  4527. function getJSTATE : TBits_1; inline;
  4528. function getPKTDIS : TBits_1; inline;
  4529. function getPKTDIS_TOKBUSY : TBits_1; inline;
  4530. function getPPBRST : TBits_1; inline;
  4531. function getRESUME : TBits_1; inline;
  4532. function getSE0 : TBits_1; inline;
  4533. function getSOFEN : TBits_1; inline;
  4534. function getTOKBUSY : TBits_1; inline;
  4535. function getUSBEN : TBits_1; inline;
  4536. function getUSBEN_SOFEN : TBits_1; inline;
  4537. function getUSBRST : TBits_1; inline;
  4538. procedure setHOSTEN(thebits : TBits_1); inline;
  4539. procedure setJSTATE(thebits : TBits_1); inline;
  4540. procedure setPKTDIS(thebits : TBits_1); inline;
  4541. procedure setPKTDIS_TOKBUSY(thebits : TBits_1); inline;
  4542. procedure setPPBRST(thebits : TBits_1); inline;
  4543. procedure setRESUME(thebits : TBits_1); inline;
  4544. procedure setSE0(thebits : TBits_1); inline;
  4545. procedure setSOFEN(thebits : TBits_1); inline;
  4546. procedure setTOKBUSY(thebits : TBits_1); inline;
  4547. procedure setUSBEN(thebits : TBits_1); inline;
  4548. procedure setUSBEN_SOFEN(thebits : TBits_1); inline;
  4549. procedure setUSBRST(thebits : TBits_1); inline;
  4550. public
  4551. procedure clearHOSTEN; inline;
  4552. procedure clearJSTATE; inline;
  4553. procedure clearPKTDIS; inline;
  4554. procedure clearPKTDIS_TOKBUSY; inline;
  4555. procedure clearPPBRST; inline;
  4556. procedure clearRESUME; inline;
  4557. procedure clearSE0; inline;
  4558. procedure clearSOFEN; inline;
  4559. procedure clearTOKBUSY; inline;
  4560. procedure clearUSBEN; inline;
  4561. procedure clearUSBEN_SOFEN; inline;
  4562. procedure clearUSBRST; inline;
  4563. procedure setHOSTEN; inline;
  4564. procedure setJSTATE; inline;
  4565. procedure setPKTDIS; inline;
  4566. procedure setPKTDIS_TOKBUSY; inline;
  4567. procedure setPPBRST; inline;
  4568. procedure setRESUME; inline;
  4569. procedure setSE0; inline;
  4570. procedure setSOFEN; inline;
  4571. procedure setTOKBUSY; inline;
  4572. procedure setUSBEN; inline;
  4573. procedure setUSBEN_SOFEN; inline;
  4574. procedure setUSBRST; inline;
  4575. property HOSTEN : TBits_1 read getHOSTEN write setHOSTEN;
  4576. property JSTATE : TBits_1 read getJSTATE write setJSTATE;
  4577. property PKTDIS : TBits_1 read getPKTDIS write setPKTDIS;
  4578. property PKTDIS_TOKBUSY : TBits_1 read getPKTDIS_TOKBUSY write setPKTDIS_TOKBUSY;
  4579. property PPBRST : TBits_1 read getPPBRST write setPPBRST;
  4580. property RESUME : TBits_1 read getRESUME write setRESUME;
  4581. property SE0 : TBits_1 read getSE0 write setSE0;
  4582. property SOFEN : TBits_1 read getSOFEN write setSOFEN;
  4583. property TOKBUSY : TBits_1 read getTOKBUSY write setTOKBUSY;
  4584. property USBEN : TBits_1 read getUSBEN write setUSBEN;
  4585. property USBEN_SOFEN : TBits_1 read getUSBEN_SOFEN write setUSBEN_SOFEN;
  4586. property USBRST : TBits_1 read getUSBRST write setUSBRST;
  4587. end;
  4588. TUSB_U1ADDR = record
  4589. private
  4590. function getDEVADDR : TBits_7; inline;
  4591. function getDEVADDR0 : TBits_1; inline;
  4592. function getDEVADDR1 : TBits_1; inline;
  4593. function getDEVADDR2 : TBits_1; inline;
  4594. function getDEVADDR3 : TBits_1; inline;
  4595. function getDEVADDR4 : TBits_1; inline;
  4596. function getDEVADDR5 : TBits_1; inline;
  4597. function getDEVADDR6 : TBits_1; inline;
  4598. function getLSPDEN : TBits_1; inline;
  4599. procedure setDEVADDR(thebits : TBits_7); inline;
  4600. procedure setDEVADDR0(thebits : TBits_1); inline;
  4601. procedure setDEVADDR1(thebits : TBits_1); inline;
  4602. procedure setDEVADDR2(thebits : TBits_1); inline;
  4603. procedure setDEVADDR3(thebits : TBits_1); inline;
  4604. procedure setDEVADDR4(thebits : TBits_1); inline;
  4605. procedure setDEVADDR5(thebits : TBits_1); inline;
  4606. procedure setDEVADDR6(thebits : TBits_1); inline;
  4607. procedure setLSPDEN(thebits : TBits_1); inline;
  4608. public
  4609. procedure clearDEVADDR0; inline;
  4610. procedure clearDEVADDR1; inline;
  4611. procedure clearDEVADDR2; inline;
  4612. procedure clearDEVADDR3; inline;
  4613. procedure clearDEVADDR4; inline;
  4614. procedure clearDEVADDR5; inline;
  4615. procedure clearDEVADDR6; inline;
  4616. procedure clearLSPDEN; inline;
  4617. procedure setDEVADDR0; inline;
  4618. procedure setDEVADDR1; inline;
  4619. procedure setDEVADDR2; inline;
  4620. procedure setDEVADDR3; inline;
  4621. procedure setDEVADDR4; inline;
  4622. procedure setDEVADDR5; inline;
  4623. procedure setDEVADDR6; inline;
  4624. procedure setLSPDEN; inline;
  4625. property DEVADDR : TBits_7 read getDEVADDR write setDEVADDR;
  4626. property DEVADDR0 : TBits_1 read getDEVADDR0 write setDEVADDR0;
  4627. property DEVADDR1 : TBits_1 read getDEVADDR1 write setDEVADDR1;
  4628. property DEVADDR2 : TBits_1 read getDEVADDR2 write setDEVADDR2;
  4629. property DEVADDR3 : TBits_1 read getDEVADDR3 write setDEVADDR3;
  4630. property DEVADDR4 : TBits_1 read getDEVADDR4 write setDEVADDR4;
  4631. property DEVADDR5 : TBits_1 read getDEVADDR5 write setDEVADDR5;
  4632. property DEVADDR6 : TBits_1 read getDEVADDR6 write setDEVADDR6;
  4633. property LSPDEN : TBits_1 read getLSPDEN write setLSPDEN;
  4634. end;
  4635. TUSB_U1FRML = record
  4636. private
  4637. function getFRM0 : TBits_1; inline;
  4638. function getFRM1 : TBits_1; inline;
  4639. function getFRM2 : TBits_1; inline;
  4640. function getFRM3 : TBits_1; inline;
  4641. function getFRM4 : TBits_1; inline;
  4642. function getFRM5 : TBits_1; inline;
  4643. function getFRM6 : TBits_1; inline;
  4644. function getFRM7 : TBits_1; inline;
  4645. function getFRML : TBits_8; inline;
  4646. procedure setFRM0(thebits : TBits_1); inline;
  4647. procedure setFRM1(thebits : TBits_1); inline;
  4648. procedure setFRM2(thebits : TBits_1); inline;
  4649. procedure setFRM3(thebits : TBits_1); inline;
  4650. procedure setFRM4(thebits : TBits_1); inline;
  4651. procedure setFRM5(thebits : TBits_1); inline;
  4652. procedure setFRM6(thebits : TBits_1); inline;
  4653. procedure setFRM7(thebits : TBits_1); inline;
  4654. procedure setFRML(thebits : TBits_8); inline;
  4655. public
  4656. procedure clearFRM0; inline;
  4657. procedure clearFRM1; inline;
  4658. procedure clearFRM2; inline;
  4659. procedure clearFRM3; inline;
  4660. procedure clearFRM4; inline;
  4661. procedure clearFRM5; inline;
  4662. procedure clearFRM6; inline;
  4663. procedure clearFRM7; inline;
  4664. procedure setFRM0; inline;
  4665. procedure setFRM1; inline;
  4666. procedure setFRM2; inline;
  4667. procedure setFRM3; inline;
  4668. procedure setFRM4; inline;
  4669. procedure setFRM5; inline;
  4670. procedure setFRM6; inline;
  4671. procedure setFRM7; inline;
  4672. property FRM0 : TBits_1 read getFRM0 write setFRM0;
  4673. property FRM1 : TBits_1 read getFRM1 write setFRM1;
  4674. property FRM2 : TBits_1 read getFRM2 write setFRM2;
  4675. property FRM3 : TBits_1 read getFRM3 write setFRM3;
  4676. property FRM4 : TBits_1 read getFRM4 write setFRM4;
  4677. property FRM5 : TBits_1 read getFRM5 write setFRM5;
  4678. property FRM6 : TBits_1 read getFRM6 write setFRM6;
  4679. property FRM7 : TBits_1 read getFRM7 write setFRM7;
  4680. property FRML : TBits_8 read getFRML write setFRML;
  4681. end;
  4682. TUSB_U1FRMH = record
  4683. private
  4684. function getFRM10 : TBits_1; inline;
  4685. function getFRM8 : TBits_1; inline;
  4686. function getFRM9 : TBits_1; inline;
  4687. function getFRMH : TBits_3; inline;
  4688. procedure setFRM10(thebits : TBits_1); inline;
  4689. procedure setFRM8(thebits : TBits_1); inline;
  4690. procedure setFRM9(thebits : TBits_1); inline;
  4691. procedure setFRMH(thebits : TBits_3); inline;
  4692. public
  4693. procedure clearFRM10; inline;
  4694. procedure clearFRM8; inline;
  4695. procedure clearFRM9; inline;
  4696. procedure setFRM10; inline;
  4697. procedure setFRM8; inline;
  4698. procedure setFRM9; inline;
  4699. property FRM10 : TBits_1 read getFRM10 write setFRM10;
  4700. property FRM8 : TBits_1 read getFRM8 write setFRM8;
  4701. property FRM9 : TBits_1 read getFRM9 write setFRM9;
  4702. property FRMH : TBits_3 read getFRMH write setFRMH;
  4703. end;
  4704. TUSB_U1TOK = record
  4705. private
  4706. function getEP : TBits_4; inline;
  4707. function getEP0 : TBits_1; inline;
  4708. function getEP1 : TBits_1; inline;
  4709. function getEP2 : TBits_1; inline;
  4710. function getEP3 : TBits_1; inline;
  4711. function getPID : TBits_4; inline;
  4712. function getPID0 : TBits_1; inline;
  4713. function getPID1 : TBits_1; inline;
  4714. function getPID2 : TBits_1; inline;
  4715. function getPID3 : TBits_1; inline;
  4716. procedure setEP(thebits : TBits_4); inline;
  4717. procedure setEP0(thebits : TBits_1); inline;
  4718. procedure setEP1(thebits : TBits_1); inline;
  4719. procedure setEP2(thebits : TBits_1); inline;
  4720. procedure setEP3(thebits : TBits_1); inline;
  4721. procedure setPID(thebits : TBits_4); inline;
  4722. procedure setPID0(thebits : TBits_1); inline;
  4723. procedure setPID1(thebits : TBits_1); inline;
  4724. procedure setPID2(thebits : TBits_1); inline;
  4725. procedure setPID3(thebits : TBits_1); inline;
  4726. public
  4727. procedure clearEP0; inline;
  4728. procedure clearEP1; inline;
  4729. procedure clearEP2; inline;
  4730. procedure clearEP3; inline;
  4731. procedure clearPID0; inline;
  4732. procedure clearPID1; inline;
  4733. procedure clearPID2; inline;
  4734. procedure clearPID3; inline;
  4735. procedure setEP0; inline;
  4736. procedure setEP1; inline;
  4737. procedure setEP2; inline;
  4738. procedure setEP3; inline;
  4739. procedure setPID0; inline;
  4740. procedure setPID1; inline;
  4741. procedure setPID2; inline;
  4742. procedure setPID3; inline;
  4743. property EP : TBits_4 read getEP write setEP;
  4744. property EP0 : TBits_1 read getEP0 write setEP0;
  4745. property EP1 : TBits_1 read getEP1 write setEP1;
  4746. property EP2 : TBits_1 read getEP2 write setEP2;
  4747. property EP3 : TBits_1 read getEP3 write setEP3;
  4748. property PID : TBits_4 read getPID write setPID;
  4749. property PID0 : TBits_1 read getPID0 write setPID0;
  4750. property PID1 : TBits_1 read getPID1 write setPID1;
  4751. property PID2 : TBits_1 read getPID2 write setPID2;
  4752. property PID3 : TBits_1 read getPID3 write setPID3;
  4753. end;
  4754. type
  4755. TUSBRegisters = record
  4756. U1OTGIR : longWord;
  4757. U1OTGIRCLR : longWord;
  4758. U1OTGIE : longWord;
  4759. U1OTGIECLR : longWord;
  4760. U1OTGIESET : longWord;
  4761. U1OTGIEINV : longWord;
  4762. U1OTGSTAT : longWord;
  4763. U1OTGSTATCLR : longWord;
  4764. U1OTGCON : longWord;
  4765. U1OTGCONCLR : longWord;
  4766. U1OTGCONSET : longWord;
  4767. U1OTGCONINV : longWord;
  4768. U1PWRC : longWord;
  4769. U1PWRCCLR : longWord;
  4770. U1PWRCSET : longWord;
  4771. U1PWRCINV : longWord;
  4772. U1IRbits : TUSB_U1IR;
  4773. U1IR : longWord;
  4774. U1IRCLR : longWord;
  4775. U1IEbits : TUSB_U1IE;
  4776. U1IE : longWord;
  4777. U1IECLR : longWord;
  4778. U1IESET : longWord;
  4779. U1IEINV : longWord;
  4780. U1EIRbits : TUSB_U1EIR;
  4781. U1EIR : longWord;
  4782. U1EIRCLR : longWord;
  4783. U1EIEbits : TUSB_U1EIE;
  4784. U1EIE : longWord;
  4785. U1EIECLR : longWord;
  4786. U1EIESET : longWord;
  4787. U1EIEINV : longWord;
  4788. U1STATbits : TUSB_U1STAT;
  4789. U1STAT : longWord;
  4790. U1STATCLR : longWord;
  4791. U1STATSET : longWord;
  4792. U1STATINV : longWord;
  4793. U1CONbits : TUSB_U1CON;
  4794. U1CON : longWord;
  4795. U1CONCLR : longWord;
  4796. U1CONSET : longWord;
  4797. U1CONINV : longWord;
  4798. U1ADDRbits : TUSB_U1ADDR;
  4799. U1ADDR : longWord;
  4800. U1ADDRCLR : longWord;
  4801. U1ADDRSET : longWord;
  4802. U1ADDRINV : longWord;
  4803. U1BDTP1 : longWord;
  4804. U1BDTP1CLR : longWord;
  4805. U1BDTP1SET : longWord;
  4806. U1BDTP1INV : longWord;
  4807. U1FRMLbits : TUSB_U1FRML;
  4808. U1FRML : longWord;
  4809. U1FRMLCLR : longWord;
  4810. U1FRMLSET : longWord;
  4811. U1FRMLINV : longWord;
  4812. U1FRMHbits : TUSB_U1FRMH;
  4813. U1FRMH : longWord;
  4814. U1FRMHCLR : longWord;
  4815. U1FRMHSET : longWord;
  4816. U1FRMHINV : longWord;
  4817. U1TOKbits : TUSB_U1TOK;
  4818. U1TOK : longWord;
  4819. U1TOKCLR : longWord;
  4820. U1TOKSET : longWord;
  4821. U1TOKINV : longWord;
  4822. U1SOF : longWord;
  4823. U1SOFCLR : longWord;
  4824. U1SOFSET : longWord;
  4825. U1SOFINV : longWord;
  4826. U1BDTP2 : longWord;
  4827. U1BDTP2CLR : longWord;
  4828. U1BDTP2SET : longWord;
  4829. U1BDTP2INV : longWord;
  4830. U1BDTP3 : longWord;
  4831. U1BDTP3CLR : longWord;
  4832. U1BDTP3SET : longWord;
  4833. U1BDTP3INV : longWord;
  4834. U1CNFG1 : longWord;
  4835. U1CNFG1CLR : longWord;
  4836. U1CNFG1SET : longWord;
  4837. U1CNFG1INV : longWord;
  4838. U1EP0 : longWord;
  4839. U1EP0CLR : longWord;
  4840. U1EP0SET : longWord;
  4841. U1EP0INV : longWord;
  4842. U1EP1 : longWord;
  4843. U1EP1CLR : longWord;
  4844. U1EP1SET : longWord;
  4845. U1EP1INV : longWord;
  4846. U1EP2 : longWord;
  4847. U1EP2CLR : longWord;
  4848. U1EP2SET : longWord;
  4849. U1EP2INV : longWord;
  4850. U1EP3 : longWord;
  4851. U1EP3CLR : longWord;
  4852. U1EP3SET : longWord;
  4853. U1EP3INV : longWord;
  4854. U1EP4 : longWord;
  4855. U1EP4CLR : longWord;
  4856. U1EP4SET : longWord;
  4857. U1EP4INV : longWord;
  4858. U1EP5 : longWord;
  4859. U1EP5CLR : longWord;
  4860. U1EP5SET : longWord;
  4861. U1EP5INV : longWord;
  4862. U1EP6 : longWord;
  4863. U1EP6CLR : longWord;
  4864. U1EP6SET : longWord;
  4865. U1EP6INV : longWord;
  4866. U1EP7 : longWord;
  4867. U1EP7CLR : longWord;
  4868. U1EP7SET : longWord;
  4869. U1EP7INV : longWord;
  4870. U1EP8 : longWord;
  4871. U1EP8CLR : longWord;
  4872. U1EP8SET : longWord;
  4873. U1EP8INV : longWord;
  4874. U1EP9 : longWord;
  4875. U1EP9CLR : longWord;
  4876. U1EP9SET : longWord;
  4877. U1EP9INV : longWord;
  4878. U1EP10 : longWord;
  4879. U1EP10CLR : longWord;
  4880. U1EP10SET : longWord;
  4881. U1EP10INV : longWord;
  4882. U1EP11 : longWord;
  4883. U1EP11CLR : longWord;
  4884. U1EP11SET : longWord;
  4885. U1EP11INV : longWord;
  4886. U1EP12 : longWord;
  4887. U1EP12CLR : longWord;
  4888. U1EP12SET : longWord;
  4889. U1EP12INV : longWord;
  4890. U1EP13 : longWord;
  4891. U1EP13CLR : longWord;
  4892. U1EP13SET : longWord;
  4893. U1EP13INV : longWord;
  4894. U1EP14 : longWord;
  4895. U1EP14CLR : longWord;
  4896. U1EP14SET : longWord;
  4897. U1EP14INV : longWord;
  4898. U1EP15 : longWord;
  4899. U1EP15CLR : longWord;
  4900. U1EP15SET : longWord;
  4901. U1EP15INV : longWord;
  4902. end;
  4903. TPORTB_TRISB = record
  4904. private
  4905. function getTRISB0 : TBits_1; inline;
  4906. function getTRISB1 : TBits_1; inline;
  4907. function getTRISB10 : TBits_1; inline;
  4908. function getTRISB11 : TBits_1; inline;
  4909. function getTRISB12 : TBits_1; inline;
  4910. function getTRISB13 : TBits_1; inline;
  4911. function getTRISB14 : TBits_1; inline;
  4912. function getTRISB15 : TBits_1; inline;
  4913. function getTRISB2 : TBits_1; inline;
  4914. function getTRISB3 : TBits_1; inline;
  4915. function getTRISB4 : TBits_1; inline;
  4916. function getTRISB5 : TBits_1; inline;
  4917. function getTRISB6 : TBits_1; inline;
  4918. function getTRISB7 : TBits_1; inline;
  4919. function getTRISB8 : TBits_1; inline;
  4920. function getTRISB9 : TBits_1; inline;
  4921. function getw : TBits_32; inline;
  4922. procedure setTRISB0(thebits : TBits_1); inline;
  4923. procedure setTRISB1(thebits : TBits_1); inline;
  4924. procedure setTRISB10(thebits : TBits_1); inline;
  4925. procedure setTRISB11(thebits : TBits_1); inline;
  4926. procedure setTRISB12(thebits : TBits_1); inline;
  4927. procedure setTRISB13(thebits : TBits_1); inline;
  4928. procedure setTRISB14(thebits : TBits_1); inline;
  4929. procedure setTRISB15(thebits : TBits_1); inline;
  4930. procedure setTRISB2(thebits : TBits_1); inline;
  4931. procedure setTRISB3(thebits : TBits_1); inline;
  4932. procedure setTRISB4(thebits : TBits_1); inline;
  4933. procedure setTRISB5(thebits : TBits_1); inline;
  4934. procedure setTRISB6(thebits : TBits_1); inline;
  4935. procedure setTRISB7(thebits : TBits_1); inline;
  4936. procedure setTRISB8(thebits : TBits_1); inline;
  4937. procedure setTRISB9(thebits : TBits_1); inline;
  4938. procedure setw(thebits : TBits_32); inline;
  4939. public
  4940. procedure clearTRISB0; inline;
  4941. procedure clearTRISB10; inline;
  4942. procedure clearTRISB11; inline;
  4943. procedure clearTRISB12; inline;
  4944. procedure clearTRISB13; inline;
  4945. procedure clearTRISB14; inline;
  4946. procedure clearTRISB15; inline;
  4947. procedure clearTRISB1; inline;
  4948. procedure clearTRISB2; inline;
  4949. procedure clearTRISB3; inline;
  4950. procedure clearTRISB4; inline;
  4951. procedure clearTRISB5; inline;
  4952. procedure clearTRISB6; inline;
  4953. procedure clearTRISB7; inline;
  4954. procedure clearTRISB8; inline;
  4955. procedure clearTRISB9; inline;
  4956. procedure setTRISB0; inline;
  4957. procedure setTRISB10; inline;
  4958. procedure setTRISB11; inline;
  4959. procedure setTRISB12; inline;
  4960. procedure setTRISB13; inline;
  4961. procedure setTRISB14; inline;
  4962. procedure setTRISB15; inline;
  4963. procedure setTRISB1; inline;
  4964. procedure setTRISB2; inline;
  4965. procedure setTRISB3; inline;
  4966. procedure setTRISB4; inline;
  4967. procedure setTRISB5; inline;
  4968. procedure setTRISB6; inline;
  4969. procedure setTRISB7; inline;
  4970. procedure setTRISB8; inline;
  4971. procedure setTRISB9; inline;
  4972. property TRISB0 : TBits_1 read getTRISB0 write setTRISB0;
  4973. property TRISB1 : TBits_1 read getTRISB1 write setTRISB1;
  4974. property TRISB10 : TBits_1 read getTRISB10 write setTRISB10;
  4975. property TRISB11 : TBits_1 read getTRISB11 write setTRISB11;
  4976. property TRISB12 : TBits_1 read getTRISB12 write setTRISB12;
  4977. property TRISB13 : TBits_1 read getTRISB13 write setTRISB13;
  4978. property TRISB14 : TBits_1 read getTRISB14 write setTRISB14;
  4979. property TRISB15 : TBits_1 read getTRISB15 write setTRISB15;
  4980. property TRISB2 : TBits_1 read getTRISB2 write setTRISB2;
  4981. property TRISB3 : TBits_1 read getTRISB3 write setTRISB3;
  4982. property TRISB4 : TBits_1 read getTRISB4 write setTRISB4;
  4983. property TRISB5 : TBits_1 read getTRISB5 write setTRISB5;
  4984. property TRISB6 : TBits_1 read getTRISB6 write setTRISB6;
  4985. property TRISB7 : TBits_1 read getTRISB7 write setTRISB7;
  4986. property TRISB8 : TBits_1 read getTRISB8 write setTRISB8;
  4987. property TRISB9 : TBits_1 read getTRISB9 write setTRISB9;
  4988. property w : TBits_32 read getw write setw;
  4989. end;
  4990. TPORTB_PORTB = record
  4991. private
  4992. function getRB0 : TBits_1; inline;
  4993. function getRB1 : TBits_1; inline;
  4994. function getRB10 : TBits_1; inline;
  4995. function getRB11 : TBits_1; inline;
  4996. function getRB12 : TBits_1; inline;
  4997. function getRB13 : TBits_1; inline;
  4998. function getRB14 : TBits_1; inline;
  4999. function getRB15 : TBits_1; inline;
  5000. function getRB2 : TBits_1; inline;
  5001. function getRB3 : TBits_1; inline;
  5002. function getRB4 : TBits_1; inline;
  5003. function getRB5 : TBits_1; inline;
  5004. function getRB6 : TBits_1; inline;
  5005. function getRB7 : TBits_1; inline;
  5006. function getRB8 : TBits_1; inline;
  5007. function getRB9 : TBits_1; inline;
  5008. function getw : TBits_32; inline;
  5009. procedure setRB0(thebits : TBits_1); inline;
  5010. procedure setRB1(thebits : TBits_1); inline;
  5011. procedure setRB10(thebits : TBits_1); inline;
  5012. procedure setRB11(thebits : TBits_1); inline;
  5013. procedure setRB12(thebits : TBits_1); inline;
  5014. procedure setRB13(thebits : TBits_1); inline;
  5015. procedure setRB14(thebits : TBits_1); inline;
  5016. procedure setRB15(thebits : TBits_1); inline;
  5017. procedure setRB2(thebits : TBits_1); inline;
  5018. procedure setRB3(thebits : TBits_1); inline;
  5019. procedure setRB4(thebits : TBits_1); inline;
  5020. procedure setRB5(thebits : TBits_1); inline;
  5021. procedure setRB6(thebits : TBits_1); inline;
  5022. procedure setRB7(thebits : TBits_1); inline;
  5023. procedure setRB8(thebits : TBits_1); inline;
  5024. procedure setRB9(thebits : TBits_1); inline;
  5025. procedure setw(thebits : TBits_32); inline;
  5026. public
  5027. procedure clearRB0; inline;
  5028. procedure clearRB10; inline;
  5029. procedure clearRB11; inline;
  5030. procedure clearRB12; inline;
  5031. procedure clearRB13; inline;
  5032. procedure clearRB14; inline;
  5033. procedure clearRB15; inline;
  5034. procedure clearRB1; inline;
  5035. procedure clearRB2; inline;
  5036. procedure clearRB3; inline;
  5037. procedure clearRB4; inline;
  5038. procedure clearRB5; inline;
  5039. procedure clearRB6; inline;
  5040. procedure clearRB7; inline;
  5041. procedure clearRB8; inline;
  5042. procedure clearRB9; inline;
  5043. procedure setRB0; inline;
  5044. procedure setRB10; inline;
  5045. procedure setRB11; inline;
  5046. procedure setRB12; inline;
  5047. procedure setRB13; inline;
  5048. procedure setRB14; inline;
  5049. procedure setRB15; inline;
  5050. procedure setRB1; inline;
  5051. procedure setRB2; inline;
  5052. procedure setRB3; inline;
  5053. procedure setRB4; inline;
  5054. procedure setRB5; inline;
  5055. procedure setRB6; inline;
  5056. procedure setRB7; inline;
  5057. procedure setRB8; inline;
  5058. procedure setRB9; inline;
  5059. property RB0 : TBits_1 read getRB0 write setRB0;
  5060. property RB1 : TBits_1 read getRB1 write setRB1;
  5061. property RB10 : TBits_1 read getRB10 write setRB10;
  5062. property RB11 : TBits_1 read getRB11 write setRB11;
  5063. property RB12 : TBits_1 read getRB12 write setRB12;
  5064. property RB13 : TBits_1 read getRB13 write setRB13;
  5065. property RB14 : TBits_1 read getRB14 write setRB14;
  5066. property RB15 : TBits_1 read getRB15 write setRB15;
  5067. property RB2 : TBits_1 read getRB2 write setRB2;
  5068. property RB3 : TBits_1 read getRB3 write setRB3;
  5069. property RB4 : TBits_1 read getRB4 write setRB4;
  5070. property RB5 : TBits_1 read getRB5 write setRB5;
  5071. property RB6 : TBits_1 read getRB6 write setRB6;
  5072. property RB7 : TBits_1 read getRB7 write setRB7;
  5073. property RB8 : TBits_1 read getRB8 write setRB8;
  5074. property RB9 : TBits_1 read getRB9 write setRB9;
  5075. property w : TBits_32 read getw write setw;
  5076. end;
  5077. 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);
  5078. TPortB_bitset = set of TPortB_bits;
  5079. TPORTB_LATB = record
  5080. private
  5081. function getLATB0 : TBits_1; inline;
  5082. function getLATB1 : TBits_1; inline;
  5083. function getLATB10 : TBits_1; inline;
  5084. function getLATB11 : TBits_1; inline;
  5085. function getLATB12 : TBits_1; inline;
  5086. function getLATB13 : TBits_1; inline;
  5087. function getLATB14 : TBits_1; inline;
  5088. function getLATB15 : TBits_1; inline;
  5089. function getLATB2 : TBits_1; inline;
  5090. function getLATB3 : TBits_1; inline;
  5091. function getLATB4 : TBits_1; inline;
  5092. function getLATB5 : TBits_1; inline;
  5093. function getLATB6 : TBits_1; inline;
  5094. function getLATB7 : TBits_1; inline;
  5095. function getLATB8 : TBits_1; inline;
  5096. function getLATB9 : TBits_1; inline;
  5097. function getw : TBits_32; inline;
  5098. procedure setLATB0(thebits : TBits_1); inline;
  5099. procedure setLATB1(thebits : TBits_1); inline;
  5100. procedure setLATB10(thebits : TBits_1); inline;
  5101. procedure setLATB11(thebits : TBits_1); inline;
  5102. procedure setLATB12(thebits : TBits_1); inline;
  5103. procedure setLATB13(thebits : TBits_1); inline;
  5104. procedure setLATB14(thebits : TBits_1); inline;
  5105. procedure setLATB15(thebits : TBits_1); inline;
  5106. procedure setLATB2(thebits : TBits_1); inline;
  5107. procedure setLATB3(thebits : TBits_1); inline;
  5108. procedure setLATB4(thebits : TBits_1); inline;
  5109. procedure setLATB5(thebits : TBits_1); inline;
  5110. procedure setLATB6(thebits : TBits_1); inline;
  5111. procedure setLATB7(thebits : TBits_1); inline;
  5112. procedure setLATB8(thebits : TBits_1); inline;
  5113. procedure setLATB9(thebits : TBits_1); inline;
  5114. procedure setw(thebits : TBits_32); inline;
  5115. public
  5116. procedure clearLATB0; inline;
  5117. procedure clearLATB10; inline;
  5118. procedure clearLATB11; inline;
  5119. procedure clearLATB12; inline;
  5120. procedure clearLATB13; inline;
  5121. procedure clearLATB14; inline;
  5122. procedure clearLATB15; inline;
  5123. procedure clearLATB1; inline;
  5124. procedure clearLATB2; inline;
  5125. procedure clearLATB3; inline;
  5126. procedure clearLATB4; inline;
  5127. procedure clearLATB5; inline;
  5128. procedure clearLATB6; inline;
  5129. procedure clearLATB7; inline;
  5130. procedure clearLATB8; inline;
  5131. procedure clearLATB9; inline;
  5132. procedure setLATB0; inline;
  5133. procedure setLATB10; inline;
  5134. procedure setLATB11; inline;
  5135. procedure setLATB12; inline;
  5136. procedure setLATB13; inline;
  5137. procedure setLATB14; inline;
  5138. procedure setLATB15; inline;
  5139. procedure setLATB1; inline;
  5140. procedure setLATB2; inline;
  5141. procedure setLATB3; inline;
  5142. procedure setLATB4; inline;
  5143. procedure setLATB5; inline;
  5144. procedure setLATB6; inline;
  5145. procedure setLATB7; inline;
  5146. procedure setLATB8; inline;
  5147. procedure setLATB9; inline;
  5148. property LATB0 : TBits_1 read getLATB0 write setLATB0;
  5149. property LATB1 : TBits_1 read getLATB1 write setLATB1;
  5150. property LATB10 : TBits_1 read getLATB10 write setLATB10;
  5151. property LATB11 : TBits_1 read getLATB11 write setLATB11;
  5152. property LATB12 : TBits_1 read getLATB12 write setLATB12;
  5153. property LATB13 : TBits_1 read getLATB13 write setLATB13;
  5154. property LATB14 : TBits_1 read getLATB14 write setLATB14;
  5155. property LATB15 : TBits_1 read getLATB15 write setLATB15;
  5156. property LATB2 : TBits_1 read getLATB2 write setLATB2;
  5157. property LATB3 : TBits_1 read getLATB3 write setLATB3;
  5158. property LATB4 : TBits_1 read getLATB4 write setLATB4;
  5159. property LATB5 : TBits_1 read getLATB5 write setLATB5;
  5160. property LATB6 : TBits_1 read getLATB6 write setLATB6;
  5161. property LATB7 : TBits_1 read getLATB7 write setLATB7;
  5162. property LATB8 : TBits_1 read getLATB8 write setLATB8;
  5163. property LATB9 : TBits_1 read getLATB9 write setLATB9;
  5164. property w : TBits_32 read getw write setw;
  5165. end;
  5166. TPORTB_ODCB = record
  5167. private
  5168. function getODCB0 : TBits_1; inline;
  5169. function getODCB1 : TBits_1; inline;
  5170. function getODCB10 : TBits_1; inline;
  5171. function getODCB11 : TBits_1; inline;
  5172. function getODCB12 : TBits_1; inline;
  5173. function getODCB13 : TBits_1; inline;
  5174. function getODCB14 : TBits_1; inline;
  5175. function getODCB15 : TBits_1; inline;
  5176. function getODCB2 : TBits_1; inline;
  5177. function getODCB3 : TBits_1; inline;
  5178. function getODCB4 : TBits_1; inline;
  5179. function getODCB5 : TBits_1; inline;
  5180. function getODCB6 : TBits_1; inline;
  5181. function getODCB7 : TBits_1; inline;
  5182. function getODCB8 : TBits_1; inline;
  5183. function getODCB9 : TBits_1; inline;
  5184. function getw : TBits_32; inline;
  5185. procedure setODCB0(thebits : TBits_1); inline;
  5186. procedure setODCB1(thebits : TBits_1); inline;
  5187. procedure setODCB10(thebits : TBits_1); inline;
  5188. procedure setODCB11(thebits : TBits_1); inline;
  5189. procedure setODCB12(thebits : TBits_1); inline;
  5190. procedure setODCB13(thebits : TBits_1); inline;
  5191. procedure setODCB14(thebits : TBits_1); inline;
  5192. procedure setODCB15(thebits : TBits_1); inline;
  5193. procedure setODCB2(thebits : TBits_1); inline;
  5194. procedure setODCB3(thebits : TBits_1); inline;
  5195. procedure setODCB4(thebits : TBits_1); inline;
  5196. procedure setODCB5(thebits : TBits_1); inline;
  5197. procedure setODCB6(thebits : TBits_1); inline;
  5198. procedure setODCB7(thebits : TBits_1); inline;
  5199. procedure setODCB8(thebits : TBits_1); inline;
  5200. procedure setODCB9(thebits : TBits_1); inline;
  5201. procedure setw(thebits : TBits_32); inline;
  5202. public
  5203. procedure clearODCB0; inline;
  5204. procedure clearODCB10; inline;
  5205. procedure clearODCB11; inline;
  5206. procedure clearODCB12; inline;
  5207. procedure clearODCB13; inline;
  5208. procedure clearODCB14; inline;
  5209. procedure clearODCB15; inline;
  5210. procedure clearODCB1; inline;
  5211. procedure clearODCB2; inline;
  5212. procedure clearODCB3; inline;
  5213. procedure clearODCB4; inline;
  5214. procedure clearODCB5; inline;
  5215. procedure clearODCB6; inline;
  5216. procedure clearODCB7; inline;
  5217. procedure clearODCB8; inline;
  5218. procedure clearODCB9; inline;
  5219. procedure setODCB0; inline;
  5220. procedure setODCB10; inline;
  5221. procedure setODCB11; inline;
  5222. procedure setODCB12; inline;
  5223. procedure setODCB13; inline;
  5224. procedure setODCB14; inline;
  5225. procedure setODCB15; inline;
  5226. procedure setODCB1; inline;
  5227. procedure setODCB2; inline;
  5228. procedure setODCB3; inline;
  5229. procedure setODCB4; inline;
  5230. procedure setODCB5; inline;
  5231. procedure setODCB6; inline;
  5232. procedure setODCB7; inline;
  5233. procedure setODCB8; inline;
  5234. procedure setODCB9; inline;
  5235. property ODCB0 : TBits_1 read getODCB0 write setODCB0;
  5236. property ODCB1 : TBits_1 read getODCB1 write setODCB1;
  5237. property ODCB10 : TBits_1 read getODCB10 write setODCB10;
  5238. property ODCB11 : TBits_1 read getODCB11 write setODCB11;
  5239. property ODCB12 : TBits_1 read getODCB12 write setODCB12;
  5240. property ODCB13 : TBits_1 read getODCB13 write setODCB13;
  5241. property ODCB14 : TBits_1 read getODCB14 write setODCB14;
  5242. property ODCB15 : TBits_1 read getODCB15 write setODCB15;
  5243. property ODCB2 : TBits_1 read getODCB2 write setODCB2;
  5244. property ODCB3 : TBits_1 read getODCB3 write setODCB3;
  5245. property ODCB4 : TBits_1 read getODCB4 write setODCB4;
  5246. property ODCB5 : TBits_1 read getODCB5 write setODCB5;
  5247. property ODCB6 : TBits_1 read getODCB6 write setODCB6;
  5248. property ODCB7 : TBits_1 read getODCB7 write setODCB7;
  5249. property ODCB8 : TBits_1 read getODCB8 write setODCB8;
  5250. property ODCB9 : TBits_1 read getODCB9 write setODCB9;
  5251. property w : TBits_32 read getw write setw;
  5252. end;
  5253. type
  5254. TPORTBRegisters = record
  5255. TRISBbits : TPORTB_TRISB;
  5256. TRISB : longWord;
  5257. TRISBCLR : longWord;
  5258. TRISBSET : longWord;
  5259. TRISBINV : longWord;
  5260. PORTBbits : TPORTB_PORTB;
  5261. PORTB : longWord;
  5262. PORTBCLR : longWord;
  5263. PORTBSET : longWord;
  5264. PORTBINV : longWord;
  5265. LATBbits : TPORTB_LATB;
  5266. LATB : longWord;
  5267. LATBCLR : longWord;
  5268. LATBSET : longWord;
  5269. LATBINV : longWord;
  5270. ODCBbits : TPORTB_ODCB;
  5271. ODCB : longWord;
  5272. ODCBCLR : longWord;
  5273. ODCBSET : longWord;
  5274. ODCBINV : longWord;
  5275. end;
  5276. TPORTC_TRISC = record
  5277. private
  5278. function getTRISC12 : TBits_1; inline;
  5279. function getTRISC13 : TBits_1; inline;
  5280. function getTRISC14 : TBits_1; inline;
  5281. function getTRISC15 : TBits_1; inline;
  5282. function getw : TBits_32; inline;
  5283. procedure setTRISC12(thebits : TBits_1); inline;
  5284. procedure setTRISC13(thebits : TBits_1); inline;
  5285. procedure setTRISC14(thebits : TBits_1); inline;
  5286. procedure setTRISC15(thebits : TBits_1); inline;
  5287. procedure setw(thebits : TBits_32); inline;
  5288. public
  5289. procedure clearTRISC12; inline;
  5290. procedure clearTRISC13; inline;
  5291. procedure clearTRISC14; inline;
  5292. procedure clearTRISC15; inline;
  5293. procedure setTRISC12; inline;
  5294. procedure setTRISC13; inline;
  5295. procedure setTRISC14; inline;
  5296. procedure setTRISC15; inline;
  5297. property TRISC12 : TBits_1 read getTRISC12 write setTRISC12;
  5298. property TRISC13 : TBits_1 read getTRISC13 write setTRISC13;
  5299. property TRISC14 : TBits_1 read getTRISC14 write setTRISC14;
  5300. property TRISC15 : TBits_1 read getTRISC15 write setTRISC15;
  5301. property w : TBits_32 read getw write setw;
  5302. end;
  5303. TPORTC_PORTC = record
  5304. private
  5305. function getRC12 : TBits_1; inline;
  5306. function getRC13 : TBits_1; inline;
  5307. function getRC14 : TBits_1; inline;
  5308. function getRC15 : TBits_1; inline;
  5309. function getw : TBits_32; inline;
  5310. procedure setRC12(thebits : TBits_1); inline;
  5311. procedure setRC13(thebits : TBits_1); inline;
  5312. procedure setRC14(thebits : TBits_1); inline;
  5313. procedure setRC15(thebits : TBits_1); inline;
  5314. procedure setw(thebits : TBits_32); inline;
  5315. public
  5316. procedure clearRC12; inline;
  5317. procedure clearRC13; inline;
  5318. procedure clearRC14; inline;
  5319. procedure clearRC15; inline;
  5320. procedure setRC12; inline;
  5321. procedure setRC13; inline;
  5322. procedure setRC14; inline;
  5323. procedure setRC15; inline;
  5324. property RC12 : TBits_1 read getRC12 write setRC12;
  5325. property RC13 : TBits_1 read getRC13 write setRC13;
  5326. property RC14 : TBits_1 read getRC14 write setRC14;
  5327. property RC15 : TBits_1 read getRC15 write setRC15;
  5328. property w : TBits_32 read getw write setw;
  5329. end;
  5330. TPortC_bits=(RC12=12,RC13=13,RC14=14,RC15=15);
  5331. TPortC_bitset = set of TPortC_bits;
  5332. TPORTC_LATC = record
  5333. private
  5334. function getLATC12 : TBits_1; inline;
  5335. function getLATC13 : TBits_1; inline;
  5336. function getLATC14 : TBits_1; inline;
  5337. function getLATC15 : TBits_1; inline;
  5338. function getw : TBits_32; inline;
  5339. procedure setLATC12(thebits : TBits_1); inline;
  5340. procedure setLATC13(thebits : TBits_1); inline;
  5341. procedure setLATC14(thebits : TBits_1); inline;
  5342. procedure setLATC15(thebits : TBits_1); inline;
  5343. procedure setw(thebits : TBits_32); inline;
  5344. public
  5345. procedure clearLATC12; inline;
  5346. procedure clearLATC13; inline;
  5347. procedure clearLATC14; inline;
  5348. procedure clearLATC15; inline;
  5349. procedure setLATC12; inline;
  5350. procedure setLATC13; inline;
  5351. procedure setLATC14; inline;
  5352. procedure setLATC15; inline;
  5353. property LATC12 : TBits_1 read getLATC12 write setLATC12;
  5354. property LATC13 : TBits_1 read getLATC13 write setLATC13;
  5355. property LATC14 : TBits_1 read getLATC14 write setLATC14;
  5356. property LATC15 : TBits_1 read getLATC15 write setLATC15;
  5357. property w : TBits_32 read getw write setw;
  5358. end;
  5359. TPORTC_ODCC = record
  5360. private
  5361. function getODCC12 : TBits_1; inline;
  5362. function getODCC13 : TBits_1; inline;
  5363. function getODCC14 : TBits_1; inline;
  5364. function getODCC15 : TBits_1; inline;
  5365. function getw : TBits_32; inline;
  5366. procedure setODCC12(thebits : TBits_1); inline;
  5367. procedure setODCC13(thebits : TBits_1); inline;
  5368. procedure setODCC14(thebits : TBits_1); inline;
  5369. procedure setODCC15(thebits : TBits_1); inline;
  5370. procedure setw(thebits : TBits_32); inline;
  5371. public
  5372. procedure clearODCC12; inline;
  5373. procedure clearODCC13; inline;
  5374. procedure clearODCC14; inline;
  5375. procedure clearODCC15; inline;
  5376. procedure setODCC12; inline;
  5377. procedure setODCC13; inline;
  5378. procedure setODCC14; inline;
  5379. procedure setODCC15; inline;
  5380. property ODCC12 : TBits_1 read getODCC12 write setODCC12;
  5381. property ODCC13 : TBits_1 read getODCC13 write setODCC13;
  5382. property ODCC14 : TBits_1 read getODCC14 write setODCC14;
  5383. property ODCC15 : TBits_1 read getODCC15 write setODCC15;
  5384. property w : TBits_32 read getw write setw;
  5385. end;
  5386. type
  5387. TPORTCRegisters = record
  5388. TRISCbits : TPORTC_TRISC;
  5389. TRISC : longWord;
  5390. TRISCCLR : longWord;
  5391. TRISCSET : longWord;
  5392. TRISCINV : longWord;
  5393. PORTCbits : TPORTC_PORTC;
  5394. PORTC : longWord;
  5395. PORTCCLR : longWord;
  5396. PORTCSET : longWord;
  5397. PORTCINV : longWord;
  5398. LATCbits : TPORTC_LATC;
  5399. LATC : longWord;
  5400. LATCCLR : longWord;
  5401. LATCSET : longWord;
  5402. LATCINV : longWord;
  5403. ODCCbits : TPORTC_ODCC;
  5404. ODCC : longWord;
  5405. ODCCCLR : longWord;
  5406. ODCCSET : longWord;
  5407. ODCCINV : longWord;
  5408. end;
  5409. TPORTD_TRISD = record
  5410. private
  5411. function getTRISD0 : TBits_1; inline;
  5412. function getTRISD1 : TBits_1; inline;
  5413. function getTRISD10 : TBits_1; inline;
  5414. function getTRISD11 : TBits_1; inline;
  5415. function getTRISD2 : TBits_1; inline;
  5416. function getTRISD3 : TBits_1; inline;
  5417. function getTRISD4 : TBits_1; inline;
  5418. function getTRISD5 : TBits_1; inline;
  5419. function getTRISD6 : TBits_1; inline;
  5420. function getTRISD7 : TBits_1; inline;
  5421. function getTRISD8 : TBits_1; inline;
  5422. function getTRISD9 : TBits_1; inline;
  5423. function getw : TBits_32; inline;
  5424. procedure setTRISD0(thebits : TBits_1); inline;
  5425. procedure setTRISD1(thebits : TBits_1); inline;
  5426. procedure setTRISD10(thebits : TBits_1); inline;
  5427. procedure setTRISD11(thebits : TBits_1); inline;
  5428. procedure setTRISD2(thebits : TBits_1); inline;
  5429. procedure setTRISD3(thebits : TBits_1); inline;
  5430. procedure setTRISD4(thebits : TBits_1); inline;
  5431. procedure setTRISD5(thebits : TBits_1); inline;
  5432. procedure setTRISD6(thebits : TBits_1); inline;
  5433. procedure setTRISD7(thebits : TBits_1); inline;
  5434. procedure setTRISD8(thebits : TBits_1); inline;
  5435. procedure setTRISD9(thebits : TBits_1); inline;
  5436. procedure setw(thebits : TBits_32); inline;
  5437. public
  5438. procedure clearTRISD0; inline;
  5439. procedure clearTRISD10; inline;
  5440. procedure clearTRISD11; inline;
  5441. procedure clearTRISD1; inline;
  5442. procedure clearTRISD2; inline;
  5443. procedure clearTRISD3; inline;
  5444. procedure clearTRISD4; inline;
  5445. procedure clearTRISD5; inline;
  5446. procedure clearTRISD6; inline;
  5447. procedure clearTRISD7; inline;
  5448. procedure clearTRISD8; inline;
  5449. procedure clearTRISD9; inline;
  5450. procedure setTRISD0; inline;
  5451. procedure setTRISD10; inline;
  5452. procedure setTRISD11; inline;
  5453. procedure setTRISD1; inline;
  5454. procedure setTRISD2; inline;
  5455. procedure setTRISD3; inline;
  5456. procedure setTRISD4; inline;
  5457. procedure setTRISD5; inline;
  5458. procedure setTRISD6; inline;
  5459. procedure setTRISD7; inline;
  5460. procedure setTRISD8; inline;
  5461. procedure setTRISD9; inline;
  5462. property TRISD0 : TBits_1 read getTRISD0 write setTRISD0;
  5463. property TRISD1 : TBits_1 read getTRISD1 write setTRISD1;
  5464. property TRISD10 : TBits_1 read getTRISD10 write setTRISD10;
  5465. property TRISD11 : TBits_1 read getTRISD11 write setTRISD11;
  5466. property TRISD2 : TBits_1 read getTRISD2 write setTRISD2;
  5467. property TRISD3 : TBits_1 read getTRISD3 write setTRISD3;
  5468. property TRISD4 : TBits_1 read getTRISD4 write setTRISD4;
  5469. property TRISD5 : TBits_1 read getTRISD5 write setTRISD5;
  5470. property TRISD6 : TBits_1 read getTRISD6 write setTRISD6;
  5471. property TRISD7 : TBits_1 read getTRISD7 write setTRISD7;
  5472. property TRISD8 : TBits_1 read getTRISD8 write setTRISD8;
  5473. property TRISD9 : TBits_1 read getTRISD9 write setTRISD9;
  5474. property w : TBits_32 read getw write setw;
  5475. end;
  5476. TPORTD_PORTD = record
  5477. private
  5478. function getRD0 : TBits_1; inline;
  5479. function getRD1 : TBits_1; inline;
  5480. function getRD10 : TBits_1; inline;
  5481. function getRD11 : TBits_1; inline;
  5482. function getRD2 : TBits_1; inline;
  5483. function getRD3 : TBits_1; inline;
  5484. function getRD4 : TBits_1; inline;
  5485. function getRD5 : TBits_1; inline;
  5486. function getRD6 : TBits_1; inline;
  5487. function getRD7 : TBits_1; inline;
  5488. function getRD8 : TBits_1; inline;
  5489. function getRD9 : TBits_1; inline;
  5490. function getw : TBits_32; inline;
  5491. procedure setRD0(thebits : TBits_1); inline;
  5492. procedure setRD1(thebits : TBits_1); inline;
  5493. procedure setRD10(thebits : TBits_1); inline;
  5494. procedure setRD11(thebits : TBits_1); inline;
  5495. procedure setRD2(thebits : TBits_1); inline;
  5496. procedure setRD3(thebits : TBits_1); inline;
  5497. procedure setRD4(thebits : TBits_1); inline;
  5498. procedure setRD5(thebits : TBits_1); inline;
  5499. procedure setRD6(thebits : TBits_1); inline;
  5500. procedure setRD7(thebits : TBits_1); inline;
  5501. procedure setRD8(thebits : TBits_1); inline;
  5502. procedure setRD9(thebits : TBits_1); inline;
  5503. procedure setw(thebits : TBits_32); inline;
  5504. public
  5505. procedure clearRD0; inline;
  5506. procedure clearRD10; inline;
  5507. procedure clearRD11; inline;
  5508. procedure clearRD1; inline;
  5509. procedure clearRD2; inline;
  5510. procedure clearRD3; inline;
  5511. procedure clearRD4; inline;
  5512. procedure clearRD5; inline;
  5513. procedure clearRD6; inline;
  5514. procedure clearRD7; inline;
  5515. procedure clearRD8; inline;
  5516. procedure clearRD9; inline;
  5517. procedure setRD0; inline;
  5518. procedure setRD10; inline;
  5519. procedure setRD11; inline;
  5520. procedure setRD1; inline;
  5521. procedure setRD2; inline;
  5522. procedure setRD3; inline;
  5523. procedure setRD4; inline;
  5524. procedure setRD5; inline;
  5525. procedure setRD6; inline;
  5526. procedure setRD7; inline;
  5527. procedure setRD8; inline;
  5528. procedure setRD9; inline;
  5529. property RD0 : TBits_1 read getRD0 write setRD0;
  5530. property RD1 : TBits_1 read getRD1 write setRD1;
  5531. property RD10 : TBits_1 read getRD10 write setRD10;
  5532. property RD11 : TBits_1 read getRD11 write setRD11;
  5533. property RD2 : TBits_1 read getRD2 write setRD2;
  5534. property RD3 : TBits_1 read getRD3 write setRD3;
  5535. property RD4 : TBits_1 read getRD4 write setRD4;
  5536. property RD5 : TBits_1 read getRD5 write setRD5;
  5537. property RD6 : TBits_1 read getRD6 write setRD6;
  5538. property RD7 : TBits_1 read getRD7 write setRD7;
  5539. property RD8 : TBits_1 read getRD8 write setRD8;
  5540. property RD9 : TBits_1 read getRD9 write setRD9;
  5541. property w : TBits_32 read getw write setw;
  5542. end;
  5543. 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);
  5544. TPortD_bitset = set of TPortD_bits;
  5545. TPORTD_LATD = record
  5546. private
  5547. function getLATD0 : TBits_1; inline;
  5548. function getLATD1 : TBits_1; inline;
  5549. function getLATD10 : TBits_1; inline;
  5550. function getLATD11 : TBits_1; inline;
  5551. function getLATD2 : TBits_1; inline;
  5552. function getLATD3 : TBits_1; inline;
  5553. function getLATD4 : TBits_1; inline;
  5554. function getLATD5 : TBits_1; inline;
  5555. function getLATD6 : TBits_1; inline;
  5556. function getLATD7 : TBits_1; inline;
  5557. function getLATD8 : TBits_1; inline;
  5558. function getLATD9 : TBits_1; inline;
  5559. function getw : TBits_32; inline;
  5560. procedure setLATD0(thebits : TBits_1); inline;
  5561. procedure setLATD1(thebits : TBits_1); inline;
  5562. procedure setLATD10(thebits : TBits_1); inline;
  5563. procedure setLATD11(thebits : TBits_1); inline;
  5564. procedure setLATD2(thebits : TBits_1); inline;
  5565. procedure setLATD3(thebits : TBits_1); inline;
  5566. procedure setLATD4(thebits : TBits_1); inline;
  5567. procedure setLATD5(thebits : TBits_1); inline;
  5568. procedure setLATD6(thebits : TBits_1); inline;
  5569. procedure setLATD7(thebits : TBits_1); inline;
  5570. procedure setLATD8(thebits : TBits_1); inline;
  5571. procedure setLATD9(thebits : TBits_1); inline;
  5572. procedure setw(thebits : TBits_32); inline;
  5573. public
  5574. procedure clearLATD0; inline;
  5575. procedure clearLATD10; inline;
  5576. procedure clearLATD11; inline;
  5577. procedure clearLATD1; inline;
  5578. procedure clearLATD2; inline;
  5579. procedure clearLATD3; inline;
  5580. procedure clearLATD4; inline;
  5581. procedure clearLATD5; inline;
  5582. procedure clearLATD6; inline;
  5583. procedure clearLATD7; inline;
  5584. procedure clearLATD8; inline;
  5585. procedure clearLATD9; inline;
  5586. procedure setLATD0; inline;
  5587. procedure setLATD10; inline;
  5588. procedure setLATD11; inline;
  5589. procedure setLATD1; inline;
  5590. procedure setLATD2; inline;
  5591. procedure setLATD3; inline;
  5592. procedure setLATD4; inline;
  5593. procedure setLATD5; inline;
  5594. procedure setLATD6; inline;
  5595. procedure setLATD7; inline;
  5596. procedure setLATD8; inline;
  5597. procedure setLATD9; inline;
  5598. property LATD0 : TBits_1 read getLATD0 write setLATD0;
  5599. property LATD1 : TBits_1 read getLATD1 write setLATD1;
  5600. property LATD10 : TBits_1 read getLATD10 write setLATD10;
  5601. property LATD11 : TBits_1 read getLATD11 write setLATD11;
  5602. property LATD2 : TBits_1 read getLATD2 write setLATD2;
  5603. property LATD3 : TBits_1 read getLATD3 write setLATD3;
  5604. property LATD4 : TBits_1 read getLATD4 write setLATD4;
  5605. property LATD5 : TBits_1 read getLATD5 write setLATD5;
  5606. property LATD6 : TBits_1 read getLATD6 write setLATD6;
  5607. property LATD7 : TBits_1 read getLATD7 write setLATD7;
  5608. property LATD8 : TBits_1 read getLATD8 write setLATD8;
  5609. property LATD9 : TBits_1 read getLATD9 write setLATD9;
  5610. property w : TBits_32 read getw write setw;
  5611. end;
  5612. TPORTD_ODCD = record
  5613. private
  5614. function getODCD0 : TBits_1; inline;
  5615. function getODCD1 : TBits_1; inline;
  5616. function getODCD10 : TBits_1; inline;
  5617. function getODCD11 : TBits_1; inline;
  5618. function getODCD2 : TBits_1; inline;
  5619. function getODCD3 : TBits_1; inline;
  5620. function getODCD4 : TBits_1; inline;
  5621. function getODCD5 : TBits_1; inline;
  5622. function getODCD6 : TBits_1; inline;
  5623. function getODCD7 : TBits_1; inline;
  5624. function getODCD8 : TBits_1; inline;
  5625. function getODCD9 : TBits_1; inline;
  5626. function getw : TBits_32; inline;
  5627. procedure setODCD0(thebits : TBits_1); inline;
  5628. procedure setODCD1(thebits : TBits_1); inline;
  5629. procedure setODCD10(thebits : TBits_1); inline;
  5630. procedure setODCD11(thebits : TBits_1); inline;
  5631. procedure setODCD2(thebits : TBits_1); inline;
  5632. procedure setODCD3(thebits : TBits_1); inline;
  5633. procedure setODCD4(thebits : TBits_1); inline;
  5634. procedure setODCD5(thebits : TBits_1); inline;
  5635. procedure setODCD6(thebits : TBits_1); inline;
  5636. procedure setODCD7(thebits : TBits_1); inline;
  5637. procedure setODCD8(thebits : TBits_1); inline;
  5638. procedure setODCD9(thebits : TBits_1); inline;
  5639. procedure setw(thebits : TBits_32); inline;
  5640. public
  5641. procedure clearODCD0; inline;
  5642. procedure clearODCD10; inline;
  5643. procedure clearODCD11; inline;
  5644. procedure clearODCD1; inline;
  5645. procedure clearODCD2; inline;
  5646. procedure clearODCD3; inline;
  5647. procedure clearODCD4; inline;
  5648. procedure clearODCD5; inline;
  5649. procedure clearODCD6; inline;
  5650. procedure clearODCD7; inline;
  5651. procedure clearODCD8; inline;
  5652. procedure clearODCD9; inline;
  5653. procedure setODCD0; inline;
  5654. procedure setODCD10; inline;
  5655. procedure setODCD11; inline;
  5656. procedure setODCD1; inline;
  5657. procedure setODCD2; inline;
  5658. procedure setODCD3; inline;
  5659. procedure setODCD4; inline;
  5660. procedure setODCD5; inline;
  5661. procedure setODCD6; inline;
  5662. procedure setODCD7; inline;
  5663. procedure setODCD8; inline;
  5664. procedure setODCD9; inline;
  5665. property ODCD0 : TBits_1 read getODCD0 write setODCD0;
  5666. property ODCD1 : TBits_1 read getODCD1 write setODCD1;
  5667. property ODCD10 : TBits_1 read getODCD10 write setODCD10;
  5668. property ODCD11 : TBits_1 read getODCD11 write setODCD11;
  5669. property ODCD2 : TBits_1 read getODCD2 write setODCD2;
  5670. property ODCD3 : TBits_1 read getODCD3 write setODCD3;
  5671. property ODCD4 : TBits_1 read getODCD4 write setODCD4;
  5672. property ODCD5 : TBits_1 read getODCD5 write setODCD5;
  5673. property ODCD6 : TBits_1 read getODCD6 write setODCD6;
  5674. property ODCD7 : TBits_1 read getODCD7 write setODCD7;
  5675. property ODCD8 : TBits_1 read getODCD8 write setODCD8;
  5676. property ODCD9 : TBits_1 read getODCD9 write setODCD9;
  5677. property w : TBits_32 read getw write setw;
  5678. end;
  5679. type
  5680. TPORTDRegisters = record
  5681. TRISDbits : TPORTD_TRISD;
  5682. TRISD : longWord;
  5683. TRISDCLR : longWord;
  5684. TRISDSET : longWord;
  5685. TRISDINV : longWord;
  5686. PORTDbits : TPORTD_PORTD;
  5687. PORTD : longWord;
  5688. PORTDCLR : longWord;
  5689. PORTDSET : longWord;
  5690. PORTDINV : longWord;
  5691. LATDbits : TPORTD_LATD;
  5692. LATD : longWord;
  5693. LATDCLR : longWord;
  5694. LATDSET : longWord;
  5695. LATDINV : longWord;
  5696. ODCDbits : TPORTD_ODCD;
  5697. ODCD : longWord;
  5698. ODCDCLR : longWord;
  5699. ODCDSET : longWord;
  5700. ODCDINV : longWord;
  5701. end;
  5702. TPORTE_TRISE = record
  5703. private
  5704. function getTRISE0 : TBits_1; inline;
  5705. function getTRISE1 : TBits_1; inline;
  5706. function getTRISE2 : TBits_1; inline;
  5707. function getTRISE3 : TBits_1; inline;
  5708. function getTRISE4 : TBits_1; inline;
  5709. function getTRISE5 : TBits_1; inline;
  5710. function getTRISE6 : TBits_1; inline;
  5711. function getTRISE7 : TBits_1; inline;
  5712. function getw : TBits_32; inline;
  5713. procedure setTRISE0(thebits : TBits_1); inline;
  5714. procedure setTRISE1(thebits : TBits_1); inline;
  5715. procedure setTRISE2(thebits : TBits_1); inline;
  5716. procedure setTRISE3(thebits : TBits_1); inline;
  5717. procedure setTRISE4(thebits : TBits_1); inline;
  5718. procedure setTRISE5(thebits : TBits_1); inline;
  5719. procedure setTRISE6(thebits : TBits_1); inline;
  5720. procedure setTRISE7(thebits : TBits_1); inline;
  5721. procedure setw(thebits : TBits_32); inline;
  5722. public
  5723. procedure clearTRISE0; inline;
  5724. procedure clearTRISE1; inline;
  5725. procedure clearTRISE2; inline;
  5726. procedure clearTRISE3; inline;
  5727. procedure clearTRISE4; inline;
  5728. procedure clearTRISE5; inline;
  5729. procedure clearTRISE6; inline;
  5730. procedure clearTRISE7; inline;
  5731. procedure setTRISE0; inline;
  5732. procedure setTRISE1; inline;
  5733. procedure setTRISE2; inline;
  5734. procedure setTRISE3; inline;
  5735. procedure setTRISE4; inline;
  5736. procedure setTRISE5; inline;
  5737. procedure setTRISE6; inline;
  5738. procedure setTRISE7; inline;
  5739. property TRISE0 : TBits_1 read getTRISE0 write setTRISE0;
  5740. property TRISE1 : TBits_1 read getTRISE1 write setTRISE1;
  5741. property TRISE2 : TBits_1 read getTRISE2 write setTRISE2;
  5742. property TRISE3 : TBits_1 read getTRISE3 write setTRISE3;
  5743. property TRISE4 : TBits_1 read getTRISE4 write setTRISE4;
  5744. property TRISE5 : TBits_1 read getTRISE5 write setTRISE5;
  5745. property TRISE6 : TBits_1 read getTRISE6 write setTRISE6;
  5746. property TRISE7 : TBits_1 read getTRISE7 write setTRISE7;
  5747. property w : TBits_32 read getw write setw;
  5748. end;
  5749. TPORTE_PORTE = record
  5750. private
  5751. function getRE0 : TBits_1; inline;
  5752. function getRE1 : TBits_1; inline;
  5753. function getRE2 : TBits_1; inline;
  5754. function getRE3 : TBits_1; inline;
  5755. function getRE4 : TBits_1; inline;
  5756. function getRE5 : TBits_1; inline;
  5757. function getRE6 : TBits_1; inline;
  5758. function getRE7 : TBits_1; inline;
  5759. function getw : TBits_32; inline;
  5760. procedure setRE0(thebits : TBits_1); inline;
  5761. procedure setRE1(thebits : TBits_1); inline;
  5762. procedure setRE2(thebits : TBits_1); inline;
  5763. procedure setRE3(thebits : TBits_1); inline;
  5764. procedure setRE4(thebits : TBits_1); inline;
  5765. procedure setRE5(thebits : TBits_1); inline;
  5766. procedure setRE6(thebits : TBits_1); inline;
  5767. procedure setRE7(thebits : TBits_1); inline;
  5768. procedure setw(thebits : TBits_32); inline;
  5769. public
  5770. procedure clearRE0; inline;
  5771. procedure clearRE1; inline;
  5772. procedure clearRE2; inline;
  5773. procedure clearRE3; inline;
  5774. procedure clearRE4; inline;
  5775. procedure clearRE5; inline;
  5776. procedure clearRE6; inline;
  5777. procedure clearRE7; inline;
  5778. procedure setRE0; inline;
  5779. procedure setRE1; inline;
  5780. procedure setRE2; inline;
  5781. procedure setRE3; inline;
  5782. procedure setRE4; inline;
  5783. procedure setRE5; inline;
  5784. procedure setRE6; inline;
  5785. procedure setRE7; inline;
  5786. property RE0 : TBits_1 read getRE0 write setRE0;
  5787. property RE1 : TBits_1 read getRE1 write setRE1;
  5788. property RE2 : TBits_1 read getRE2 write setRE2;
  5789. property RE3 : TBits_1 read getRE3 write setRE3;
  5790. property RE4 : TBits_1 read getRE4 write setRE4;
  5791. property RE5 : TBits_1 read getRE5 write setRE5;
  5792. property RE6 : TBits_1 read getRE6 write setRE6;
  5793. property RE7 : TBits_1 read getRE7 write setRE7;
  5794. property w : TBits_32 read getw write setw;
  5795. end;
  5796. TPortE_bits=(RE0=0,RE1=1,RE2=2,RE3=3,RE4=4,RE5=5,RE6=6,RE7=7);
  5797. TPortE_bitset = set of TPortE_bits;
  5798. TPORTE_LATE = record
  5799. private
  5800. function getLATE0 : TBits_1; inline;
  5801. function getLATE1 : TBits_1; inline;
  5802. function getLATE2 : TBits_1; inline;
  5803. function getLATE3 : TBits_1; inline;
  5804. function getLATE4 : TBits_1; inline;
  5805. function getLATE5 : TBits_1; inline;
  5806. function getLATE6 : TBits_1; inline;
  5807. function getLATE7 : TBits_1; inline;
  5808. function getw : TBits_32; inline;
  5809. procedure setLATE0(thebits : TBits_1); inline;
  5810. procedure setLATE1(thebits : TBits_1); inline;
  5811. procedure setLATE2(thebits : TBits_1); inline;
  5812. procedure setLATE3(thebits : TBits_1); inline;
  5813. procedure setLATE4(thebits : TBits_1); inline;
  5814. procedure setLATE5(thebits : TBits_1); inline;
  5815. procedure setLATE6(thebits : TBits_1); inline;
  5816. procedure setLATE7(thebits : TBits_1); inline;
  5817. procedure setw(thebits : TBits_32); inline;
  5818. public
  5819. procedure clearLATE0; inline;
  5820. procedure clearLATE1; inline;
  5821. procedure clearLATE2; inline;
  5822. procedure clearLATE3; inline;
  5823. procedure clearLATE4; inline;
  5824. procedure clearLATE5; inline;
  5825. procedure clearLATE6; inline;
  5826. procedure clearLATE7; inline;
  5827. procedure setLATE0; inline;
  5828. procedure setLATE1; inline;
  5829. procedure setLATE2; inline;
  5830. procedure setLATE3; inline;
  5831. procedure setLATE4; inline;
  5832. procedure setLATE5; inline;
  5833. procedure setLATE6; inline;
  5834. procedure setLATE7; inline;
  5835. property LATE0 : TBits_1 read getLATE0 write setLATE0;
  5836. property LATE1 : TBits_1 read getLATE1 write setLATE1;
  5837. property LATE2 : TBits_1 read getLATE2 write setLATE2;
  5838. property LATE3 : TBits_1 read getLATE3 write setLATE3;
  5839. property LATE4 : TBits_1 read getLATE4 write setLATE4;
  5840. property LATE5 : TBits_1 read getLATE5 write setLATE5;
  5841. property LATE6 : TBits_1 read getLATE6 write setLATE6;
  5842. property LATE7 : TBits_1 read getLATE7 write setLATE7;
  5843. property w : TBits_32 read getw write setw;
  5844. end;
  5845. TPORTE_ODCE = record
  5846. private
  5847. function getODCE0 : TBits_1; inline;
  5848. function getODCE1 : TBits_1; inline;
  5849. function getODCE2 : TBits_1; inline;
  5850. function getODCE3 : TBits_1; inline;
  5851. function getODCE4 : TBits_1; inline;
  5852. function getODCE5 : TBits_1; inline;
  5853. function getODCE6 : TBits_1; inline;
  5854. function getODCE7 : TBits_1; inline;
  5855. function getw : TBits_32; inline;
  5856. procedure setODCE0(thebits : TBits_1); inline;
  5857. procedure setODCE1(thebits : TBits_1); inline;
  5858. procedure setODCE2(thebits : TBits_1); inline;
  5859. procedure setODCE3(thebits : TBits_1); inline;
  5860. procedure setODCE4(thebits : TBits_1); inline;
  5861. procedure setODCE5(thebits : TBits_1); inline;
  5862. procedure setODCE6(thebits : TBits_1); inline;
  5863. procedure setODCE7(thebits : TBits_1); inline;
  5864. procedure setw(thebits : TBits_32); inline;
  5865. public
  5866. procedure clearODCE0; inline;
  5867. procedure clearODCE1; inline;
  5868. procedure clearODCE2; inline;
  5869. procedure clearODCE3; inline;
  5870. procedure clearODCE4; inline;
  5871. procedure clearODCE5; inline;
  5872. procedure clearODCE6; inline;
  5873. procedure clearODCE7; inline;
  5874. procedure setODCE0; inline;
  5875. procedure setODCE1; inline;
  5876. procedure setODCE2; inline;
  5877. procedure setODCE3; inline;
  5878. procedure setODCE4; inline;
  5879. procedure setODCE5; inline;
  5880. procedure setODCE6; inline;
  5881. procedure setODCE7; inline;
  5882. property ODCE0 : TBits_1 read getODCE0 write setODCE0;
  5883. property ODCE1 : TBits_1 read getODCE1 write setODCE1;
  5884. property ODCE2 : TBits_1 read getODCE2 write setODCE2;
  5885. property ODCE3 : TBits_1 read getODCE3 write setODCE3;
  5886. property ODCE4 : TBits_1 read getODCE4 write setODCE4;
  5887. property ODCE5 : TBits_1 read getODCE5 write setODCE5;
  5888. property ODCE6 : TBits_1 read getODCE6 write setODCE6;
  5889. property ODCE7 : TBits_1 read getODCE7 write setODCE7;
  5890. property w : TBits_32 read getw write setw;
  5891. end;
  5892. type
  5893. TPORTERegisters = record
  5894. TRISEbits : TPORTE_TRISE;
  5895. TRISE : longWord;
  5896. TRISECLR : longWord;
  5897. TRISESET : longWord;
  5898. TRISEINV : longWord;
  5899. PORTEbits : TPORTE_PORTE;
  5900. PORTE : longWord;
  5901. PORTECLR : longWord;
  5902. PORTESET : longWord;
  5903. PORTEINV : longWord;
  5904. LATEbits : TPORTE_LATE;
  5905. LATE : longWord;
  5906. LATECLR : longWord;
  5907. LATESET : longWord;
  5908. LATEINV : longWord;
  5909. ODCEbits : TPORTE_ODCE;
  5910. ODCE : longWord;
  5911. ODCECLR : longWord;
  5912. ODCESET : longWord;
  5913. ODCEINV : longWord;
  5914. end;
  5915. TPORTF_TRISF = record
  5916. private
  5917. function getTRISF0 : TBits_1; inline;
  5918. function getTRISF1 : TBits_1; inline;
  5919. function getTRISF3 : TBits_1; inline;
  5920. function getTRISF4 : TBits_1; inline;
  5921. function getTRISF5 : TBits_1; inline;
  5922. function getw : TBits_32; inline;
  5923. procedure setTRISF0(thebits : TBits_1); inline;
  5924. procedure setTRISF1(thebits : TBits_1); inline;
  5925. procedure setTRISF3(thebits : TBits_1); inline;
  5926. procedure setTRISF4(thebits : TBits_1); inline;
  5927. procedure setTRISF5(thebits : TBits_1); inline;
  5928. procedure setw(thebits : TBits_32); inline;
  5929. public
  5930. procedure clearTRISF0; inline;
  5931. procedure clearTRISF1; inline;
  5932. procedure clearTRISF3; inline;
  5933. procedure clearTRISF4; inline;
  5934. procedure clearTRISF5; inline;
  5935. procedure setTRISF0; inline;
  5936. procedure setTRISF1; inline;
  5937. procedure setTRISF3; inline;
  5938. procedure setTRISF4; inline;
  5939. procedure setTRISF5; inline;
  5940. property TRISF0 : TBits_1 read getTRISF0 write setTRISF0;
  5941. property TRISF1 : TBits_1 read getTRISF1 write setTRISF1;
  5942. property TRISF3 : TBits_1 read getTRISF3 write setTRISF3;
  5943. property TRISF4 : TBits_1 read getTRISF4 write setTRISF4;
  5944. property TRISF5 : TBits_1 read getTRISF5 write setTRISF5;
  5945. property w : TBits_32 read getw write setw;
  5946. end;
  5947. TPORTF_PORTF = record
  5948. private
  5949. function getRF0 : TBits_1; inline;
  5950. function getRF1 : TBits_1; inline;
  5951. function getRF3 : TBits_1; inline;
  5952. function getRF4 : TBits_1; inline;
  5953. function getRF5 : TBits_1; inline;
  5954. function getw : TBits_32; inline;
  5955. procedure setRF0(thebits : TBits_1); inline;
  5956. procedure setRF1(thebits : TBits_1); inline;
  5957. procedure setRF3(thebits : TBits_1); inline;
  5958. procedure setRF4(thebits : TBits_1); inline;
  5959. procedure setRF5(thebits : TBits_1); inline;
  5960. procedure setw(thebits : TBits_32); inline;
  5961. public
  5962. procedure clearRF0; inline;
  5963. procedure clearRF1; inline;
  5964. procedure clearRF3; inline;
  5965. procedure clearRF4; inline;
  5966. procedure clearRF5; inline;
  5967. procedure setRF0; inline;
  5968. procedure setRF1; inline;
  5969. procedure setRF3; inline;
  5970. procedure setRF4; inline;
  5971. procedure setRF5; inline;
  5972. property RF0 : TBits_1 read getRF0 write setRF0;
  5973. property RF1 : TBits_1 read getRF1 write setRF1;
  5974. property RF3 : TBits_1 read getRF3 write setRF3;
  5975. property RF4 : TBits_1 read getRF4 write setRF4;
  5976. property RF5 : TBits_1 read getRF5 write setRF5;
  5977. property w : TBits_32 read getw write setw;
  5978. end;
  5979. TPortF_bits=(RF0=0,RF1=1,RF3=3,RF4=4,RF5=5);
  5980. TPortF_bitset = set of TPortF_bits;
  5981. TPORTF_LATF = record
  5982. private
  5983. function getLATF0 : TBits_1; inline;
  5984. function getLATF1 : TBits_1; inline;
  5985. function getLATF3 : TBits_1; inline;
  5986. function getLATF4 : TBits_1; inline;
  5987. function getLATF5 : TBits_1; inline;
  5988. function getw : TBits_32; inline;
  5989. procedure setLATF0(thebits : TBits_1); inline;
  5990. procedure setLATF1(thebits : TBits_1); inline;
  5991. procedure setLATF3(thebits : TBits_1); inline;
  5992. procedure setLATF4(thebits : TBits_1); inline;
  5993. procedure setLATF5(thebits : TBits_1); inline;
  5994. procedure setw(thebits : TBits_32); inline;
  5995. public
  5996. procedure clearLATF0; inline;
  5997. procedure clearLATF1; inline;
  5998. procedure clearLATF3; inline;
  5999. procedure clearLATF4; inline;
  6000. procedure clearLATF5; inline;
  6001. procedure setLATF0; inline;
  6002. procedure setLATF1; inline;
  6003. procedure setLATF3; inline;
  6004. procedure setLATF4; inline;
  6005. procedure setLATF5; inline;
  6006. property LATF0 : TBits_1 read getLATF0 write setLATF0;
  6007. property LATF1 : TBits_1 read getLATF1 write setLATF1;
  6008. property LATF3 : TBits_1 read getLATF3 write setLATF3;
  6009. property LATF4 : TBits_1 read getLATF4 write setLATF4;
  6010. property LATF5 : TBits_1 read getLATF5 write setLATF5;
  6011. property w : TBits_32 read getw write setw;
  6012. end;
  6013. TPORTF_ODCF = record
  6014. private
  6015. function getODCF0 : TBits_1; inline;
  6016. function getODCF1 : TBits_1; inline;
  6017. function getODCF3 : TBits_1; inline;
  6018. function getODCF4 : TBits_1; inline;
  6019. function getODCF5 : TBits_1; inline;
  6020. function getw : TBits_32; inline;
  6021. procedure setODCF0(thebits : TBits_1); inline;
  6022. procedure setODCF1(thebits : TBits_1); inline;
  6023. procedure setODCF3(thebits : TBits_1); inline;
  6024. procedure setODCF4(thebits : TBits_1); inline;
  6025. procedure setODCF5(thebits : TBits_1); inline;
  6026. procedure setw(thebits : TBits_32); inline;
  6027. public
  6028. procedure clearODCF0; inline;
  6029. procedure clearODCF1; inline;
  6030. procedure clearODCF3; inline;
  6031. procedure clearODCF4; inline;
  6032. procedure clearODCF5; inline;
  6033. procedure setODCF0; inline;
  6034. procedure setODCF1; inline;
  6035. procedure setODCF3; inline;
  6036. procedure setODCF4; inline;
  6037. procedure setODCF5; inline;
  6038. property ODCF0 : TBits_1 read getODCF0 write setODCF0;
  6039. property ODCF1 : TBits_1 read getODCF1 write setODCF1;
  6040. property ODCF3 : TBits_1 read getODCF3 write setODCF3;
  6041. property ODCF4 : TBits_1 read getODCF4 write setODCF4;
  6042. property ODCF5 : TBits_1 read getODCF5 write setODCF5;
  6043. property w : TBits_32 read getw write setw;
  6044. end;
  6045. type
  6046. TPORTFRegisters = record
  6047. TRISFbits : TPORTF_TRISF;
  6048. TRISF : longWord;
  6049. TRISFCLR : longWord;
  6050. TRISFSET : longWord;
  6051. TRISFINV : longWord;
  6052. PORTFbits : TPORTF_PORTF;
  6053. PORTF : longWord;
  6054. PORTFCLR : longWord;
  6055. PORTFSET : longWord;
  6056. PORTFINV : longWord;
  6057. LATFbits : TPORTF_LATF;
  6058. LATF : longWord;
  6059. LATFCLR : longWord;
  6060. LATFSET : longWord;
  6061. LATFINV : longWord;
  6062. ODCFbits : TPORTF_ODCF;
  6063. ODCF : longWord;
  6064. ODCFCLR : longWord;
  6065. ODCFSET : longWord;
  6066. ODCFINV : longWord;
  6067. end;
  6068. TPORTG_TRISG = record
  6069. private
  6070. function getTRISG2 : TBits_1; inline;
  6071. function getTRISG3 : TBits_1; inline;
  6072. function getTRISG6 : TBits_1; inline;
  6073. function getTRISG7 : TBits_1; inline;
  6074. function getTRISG8 : TBits_1; inline;
  6075. function getTRISG9 : TBits_1; inline;
  6076. function getw : TBits_32; inline;
  6077. procedure setTRISG2(thebits : TBits_1); inline;
  6078. procedure setTRISG3(thebits : TBits_1); inline;
  6079. procedure setTRISG6(thebits : TBits_1); inline;
  6080. procedure setTRISG7(thebits : TBits_1); inline;
  6081. procedure setTRISG8(thebits : TBits_1); inline;
  6082. procedure setTRISG9(thebits : TBits_1); inline;
  6083. procedure setw(thebits : TBits_32); inline;
  6084. public
  6085. procedure clearTRISG2; inline;
  6086. procedure clearTRISG3; inline;
  6087. procedure clearTRISG6; inline;
  6088. procedure clearTRISG7; inline;
  6089. procedure clearTRISG8; inline;
  6090. procedure clearTRISG9; inline;
  6091. procedure setTRISG2; inline;
  6092. procedure setTRISG3; inline;
  6093. procedure setTRISG6; inline;
  6094. procedure setTRISG7; inline;
  6095. procedure setTRISG8; inline;
  6096. procedure setTRISG9; inline;
  6097. property TRISG2 : TBits_1 read getTRISG2 write setTRISG2;
  6098. property TRISG3 : TBits_1 read getTRISG3 write setTRISG3;
  6099. property TRISG6 : TBits_1 read getTRISG6 write setTRISG6;
  6100. property TRISG7 : TBits_1 read getTRISG7 write setTRISG7;
  6101. property TRISG8 : TBits_1 read getTRISG8 write setTRISG8;
  6102. property TRISG9 : TBits_1 read getTRISG9 write setTRISG9;
  6103. property w : TBits_32 read getw write setw;
  6104. end;
  6105. TPORTG_PORTG = record
  6106. private
  6107. function getRG2 : TBits_1; inline;
  6108. function getRG3 : TBits_1; inline;
  6109. function getRG6 : TBits_1; inline;
  6110. function getRG7 : TBits_1; inline;
  6111. function getRG8 : TBits_1; inline;
  6112. function getRG9 : TBits_1; inline;
  6113. function getw : TBits_32; inline;
  6114. procedure setRG2(thebits : TBits_1); inline;
  6115. procedure setRG3(thebits : TBits_1); inline;
  6116. procedure setRG6(thebits : TBits_1); inline;
  6117. procedure setRG7(thebits : TBits_1); inline;
  6118. procedure setRG8(thebits : TBits_1); inline;
  6119. procedure setRG9(thebits : TBits_1); inline;
  6120. procedure setw(thebits : TBits_32); inline;
  6121. public
  6122. procedure clearRG2; inline;
  6123. procedure clearRG3; inline;
  6124. procedure clearRG6; inline;
  6125. procedure clearRG7; inline;
  6126. procedure clearRG8; inline;
  6127. procedure clearRG9; inline;
  6128. procedure setRG2; inline;
  6129. procedure setRG3; inline;
  6130. procedure setRG6; inline;
  6131. procedure setRG7; inline;
  6132. procedure setRG8; inline;
  6133. procedure setRG9; inline;
  6134. property RG2 : TBits_1 read getRG2 write setRG2;
  6135. property RG3 : TBits_1 read getRG3 write setRG3;
  6136. property RG6 : TBits_1 read getRG6 write setRG6;
  6137. property RG7 : TBits_1 read getRG7 write setRG7;
  6138. property RG8 : TBits_1 read getRG8 write setRG8;
  6139. property RG9 : TBits_1 read getRG9 write setRG9;
  6140. property w : TBits_32 read getw write setw;
  6141. end;
  6142. TPortG_bits=(RG2=2,RG3=3,RG6=6,RG7=7,RG8=8,RG9=9);
  6143. TPortG_bitset = set of TPortG_bits;
  6144. TPORTG_LATG = record
  6145. private
  6146. function getLATG2 : TBits_1; inline;
  6147. function getLATG3 : TBits_1; inline;
  6148. function getLATG6 : TBits_1; inline;
  6149. function getLATG7 : TBits_1; inline;
  6150. function getLATG8 : TBits_1; inline;
  6151. function getLATG9 : TBits_1; inline;
  6152. function getw : TBits_32; inline;
  6153. procedure setLATG2(thebits : TBits_1); inline;
  6154. procedure setLATG3(thebits : TBits_1); inline;
  6155. procedure setLATG6(thebits : TBits_1); inline;
  6156. procedure setLATG7(thebits : TBits_1); inline;
  6157. procedure setLATG8(thebits : TBits_1); inline;
  6158. procedure setLATG9(thebits : TBits_1); inline;
  6159. procedure setw(thebits : TBits_32); inline;
  6160. public
  6161. procedure clearLATG2; inline;
  6162. procedure clearLATG3; inline;
  6163. procedure clearLATG6; inline;
  6164. procedure clearLATG7; inline;
  6165. procedure clearLATG8; inline;
  6166. procedure clearLATG9; inline;
  6167. procedure setLATG2; inline;
  6168. procedure setLATG3; inline;
  6169. procedure setLATG6; inline;
  6170. procedure setLATG7; inline;
  6171. procedure setLATG8; inline;
  6172. procedure setLATG9; inline;
  6173. property LATG2 : TBits_1 read getLATG2 write setLATG2;
  6174. property LATG3 : TBits_1 read getLATG3 write setLATG3;
  6175. property LATG6 : TBits_1 read getLATG6 write setLATG6;
  6176. property LATG7 : TBits_1 read getLATG7 write setLATG7;
  6177. property LATG8 : TBits_1 read getLATG8 write setLATG8;
  6178. property LATG9 : TBits_1 read getLATG9 write setLATG9;
  6179. property w : TBits_32 read getw write setw;
  6180. end;
  6181. TPORTG_ODCG = record
  6182. private
  6183. function getODCG2 : TBits_1; inline;
  6184. function getODCG3 : TBits_1; inline;
  6185. function getODCG6 : TBits_1; inline;
  6186. function getODCG7 : TBits_1; inline;
  6187. function getODCG8 : TBits_1; inline;
  6188. function getODCG9 : TBits_1; inline;
  6189. function getw : TBits_32; inline;
  6190. procedure setODCG2(thebits : TBits_1); inline;
  6191. procedure setODCG3(thebits : TBits_1); inline;
  6192. procedure setODCG6(thebits : TBits_1); inline;
  6193. procedure setODCG7(thebits : TBits_1); inline;
  6194. procedure setODCG8(thebits : TBits_1); inline;
  6195. procedure setODCG9(thebits : TBits_1); inline;
  6196. procedure setw(thebits : TBits_32); inline;
  6197. public
  6198. procedure clearODCG2; inline;
  6199. procedure clearODCG3; inline;
  6200. procedure clearODCG6; inline;
  6201. procedure clearODCG7; inline;
  6202. procedure clearODCG8; inline;
  6203. procedure clearODCG9; inline;
  6204. procedure setODCG2; inline;
  6205. procedure setODCG3; inline;
  6206. procedure setODCG6; inline;
  6207. procedure setODCG7; inline;
  6208. procedure setODCG8; inline;
  6209. procedure setODCG9; inline;
  6210. property ODCG2 : TBits_1 read getODCG2 write setODCG2;
  6211. property ODCG3 : TBits_1 read getODCG3 write setODCG3;
  6212. property ODCG6 : TBits_1 read getODCG6 write setODCG6;
  6213. property ODCG7 : TBits_1 read getODCG7 write setODCG7;
  6214. property ODCG8 : TBits_1 read getODCG8 write setODCG8;
  6215. property ODCG9 : TBits_1 read getODCG9 write setODCG9;
  6216. property w : TBits_32 read getw write setw;
  6217. end;
  6218. TPORTG_CNCON = record
  6219. private
  6220. function getON : TBits_1; inline;
  6221. function getSIDL : TBits_1; inline;
  6222. function getw : TBits_32; inline;
  6223. procedure setON(thebits : TBits_1); inline;
  6224. procedure setSIDL(thebits : TBits_1); inline;
  6225. procedure setw(thebits : TBits_32); inline;
  6226. public
  6227. procedure clearON; inline;
  6228. procedure clearSIDL; inline;
  6229. procedure setON; inline;
  6230. procedure setSIDL; inline;
  6231. property ON : TBits_1 read getON write setON;
  6232. property SIDL : TBits_1 read getSIDL write setSIDL;
  6233. property w : TBits_32 read getw write setw;
  6234. end;
  6235. TPORTG_CNEN = record
  6236. private
  6237. function getCNEN0 : TBits_1; inline;
  6238. function getCNEN1 : TBits_1; inline;
  6239. function getCNEN10 : TBits_1; inline;
  6240. function getCNEN11 : TBits_1; inline;
  6241. function getCNEN12 : TBits_1; inline;
  6242. function getCNEN13 : TBits_1; inline;
  6243. function getCNEN14 : TBits_1; inline;
  6244. function getCNEN15 : TBits_1; inline;
  6245. function getCNEN16 : TBits_1; inline;
  6246. function getCNEN17 : TBits_1; inline;
  6247. function getCNEN18 : TBits_1; inline;
  6248. function getCNEN2 : TBits_1; inline;
  6249. function getCNEN3 : TBits_1; inline;
  6250. function getCNEN4 : TBits_1; inline;
  6251. function getCNEN5 : TBits_1; inline;
  6252. function getCNEN6 : TBits_1; inline;
  6253. function getCNEN7 : TBits_1; inline;
  6254. function getCNEN8 : TBits_1; inline;
  6255. function getCNEN9 : TBits_1; inline;
  6256. function getw : TBits_32; inline;
  6257. procedure setCNEN0(thebits : TBits_1); inline;
  6258. procedure setCNEN1(thebits : TBits_1); inline;
  6259. procedure setCNEN10(thebits : TBits_1); inline;
  6260. procedure setCNEN11(thebits : TBits_1); inline;
  6261. procedure setCNEN12(thebits : TBits_1); inline;
  6262. procedure setCNEN13(thebits : TBits_1); inline;
  6263. procedure setCNEN14(thebits : TBits_1); inline;
  6264. procedure setCNEN15(thebits : TBits_1); inline;
  6265. procedure setCNEN16(thebits : TBits_1); inline;
  6266. procedure setCNEN17(thebits : TBits_1); inline;
  6267. procedure setCNEN18(thebits : TBits_1); inline;
  6268. procedure setCNEN2(thebits : TBits_1); inline;
  6269. procedure setCNEN3(thebits : TBits_1); inline;
  6270. procedure setCNEN4(thebits : TBits_1); inline;
  6271. procedure setCNEN5(thebits : TBits_1); inline;
  6272. procedure setCNEN6(thebits : TBits_1); inline;
  6273. procedure setCNEN7(thebits : TBits_1); inline;
  6274. procedure setCNEN8(thebits : TBits_1); inline;
  6275. procedure setCNEN9(thebits : TBits_1); inline;
  6276. procedure setw(thebits : TBits_32); inline;
  6277. public
  6278. procedure clearCNEN0; inline;
  6279. procedure clearCNEN10; inline;
  6280. procedure clearCNEN11; inline;
  6281. procedure clearCNEN12; inline;
  6282. procedure clearCNEN13; inline;
  6283. procedure clearCNEN14; inline;
  6284. procedure clearCNEN15; inline;
  6285. procedure clearCNEN16; inline;
  6286. procedure clearCNEN17; inline;
  6287. procedure clearCNEN18; inline;
  6288. procedure clearCNEN1; inline;
  6289. procedure clearCNEN2; inline;
  6290. procedure clearCNEN3; inline;
  6291. procedure clearCNEN4; inline;
  6292. procedure clearCNEN5; inline;
  6293. procedure clearCNEN6; inline;
  6294. procedure clearCNEN7; inline;
  6295. procedure clearCNEN8; inline;
  6296. procedure clearCNEN9; inline;
  6297. procedure setCNEN0; inline;
  6298. procedure setCNEN10; inline;
  6299. procedure setCNEN11; inline;
  6300. procedure setCNEN12; inline;
  6301. procedure setCNEN13; inline;
  6302. procedure setCNEN14; inline;
  6303. procedure setCNEN15; inline;
  6304. procedure setCNEN16; inline;
  6305. procedure setCNEN17; inline;
  6306. procedure setCNEN18; inline;
  6307. procedure setCNEN1; inline;
  6308. procedure setCNEN2; inline;
  6309. procedure setCNEN3; inline;
  6310. procedure setCNEN4; inline;
  6311. procedure setCNEN5; inline;
  6312. procedure setCNEN6; inline;
  6313. procedure setCNEN7; inline;
  6314. procedure setCNEN8; inline;
  6315. procedure setCNEN9; inline;
  6316. property CNEN0 : TBits_1 read getCNEN0 write setCNEN0;
  6317. property CNEN1 : TBits_1 read getCNEN1 write setCNEN1;
  6318. property CNEN10 : TBits_1 read getCNEN10 write setCNEN10;
  6319. property CNEN11 : TBits_1 read getCNEN11 write setCNEN11;
  6320. property CNEN12 : TBits_1 read getCNEN12 write setCNEN12;
  6321. property CNEN13 : TBits_1 read getCNEN13 write setCNEN13;
  6322. property CNEN14 : TBits_1 read getCNEN14 write setCNEN14;
  6323. property CNEN15 : TBits_1 read getCNEN15 write setCNEN15;
  6324. property CNEN16 : TBits_1 read getCNEN16 write setCNEN16;
  6325. property CNEN17 : TBits_1 read getCNEN17 write setCNEN17;
  6326. property CNEN18 : TBits_1 read getCNEN18 write setCNEN18;
  6327. property CNEN2 : TBits_1 read getCNEN2 write setCNEN2;
  6328. property CNEN3 : TBits_1 read getCNEN3 write setCNEN3;
  6329. property CNEN4 : TBits_1 read getCNEN4 write setCNEN4;
  6330. property CNEN5 : TBits_1 read getCNEN5 write setCNEN5;
  6331. property CNEN6 : TBits_1 read getCNEN6 write setCNEN6;
  6332. property CNEN7 : TBits_1 read getCNEN7 write setCNEN7;
  6333. property CNEN8 : TBits_1 read getCNEN8 write setCNEN8;
  6334. property CNEN9 : TBits_1 read getCNEN9 write setCNEN9;
  6335. property w : TBits_32 read getw write setw;
  6336. end;
  6337. TPORTG_CNPUE = record
  6338. private
  6339. function getCNPUE0 : TBits_1; inline;
  6340. function getCNPUE1 : TBits_1; inline;
  6341. function getCNPUE10 : TBits_1; inline;
  6342. function getCNPUE11 : TBits_1; inline;
  6343. function getCNPUE12 : TBits_1; inline;
  6344. function getCNPUE13 : TBits_1; inline;
  6345. function getCNPUE14 : TBits_1; inline;
  6346. function getCNPUE15 : TBits_1; inline;
  6347. function getCNPUE16 : TBits_1; inline;
  6348. function getCNPUE17 : TBits_1; inline;
  6349. function getCNPUE18 : TBits_1; inline;
  6350. function getCNPUE2 : TBits_1; inline;
  6351. function getCNPUE3 : TBits_1; inline;
  6352. function getCNPUE4 : TBits_1; inline;
  6353. function getCNPUE5 : TBits_1; inline;
  6354. function getCNPUE6 : TBits_1; inline;
  6355. function getCNPUE7 : TBits_1; inline;
  6356. function getCNPUE8 : TBits_1; inline;
  6357. function getCNPUE9 : TBits_1; inline;
  6358. function getw : TBits_32; inline;
  6359. procedure setCNPUE0(thebits : TBits_1); inline;
  6360. procedure setCNPUE1(thebits : TBits_1); inline;
  6361. procedure setCNPUE10(thebits : TBits_1); inline;
  6362. procedure setCNPUE11(thebits : TBits_1); inline;
  6363. procedure setCNPUE12(thebits : TBits_1); inline;
  6364. procedure setCNPUE13(thebits : TBits_1); inline;
  6365. procedure setCNPUE14(thebits : TBits_1); inline;
  6366. procedure setCNPUE15(thebits : TBits_1); inline;
  6367. procedure setCNPUE16(thebits : TBits_1); inline;
  6368. procedure setCNPUE17(thebits : TBits_1); inline;
  6369. procedure setCNPUE18(thebits : TBits_1); inline;
  6370. procedure setCNPUE2(thebits : TBits_1); inline;
  6371. procedure setCNPUE3(thebits : TBits_1); inline;
  6372. procedure setCNPUE4(thebits : TBits_1); inline;
  6373. procedure setCNPUE5(thebits : TBits_1); inline;
  6374. procedure setCNPUE6(thebits : TBits_1); inline;
  6375. procedure setCNPUE7(thebits : TBits_1); inline;
  6376. procedure setCNPUE8(thebits : TBits_1); inline;
  6377. procedure setCNPUE9(thebits : TBits_1); inline;
  6378. procedure setw(thebits : TBits_32); inline;
  6379. public
  6380. procedure clearCNPUE0; inline;
  6381. procedure clearCNPUE10; inline;
  6382. procedure clearCNPUE11; inline;
  6383. procedure clearCNPUE12; inline;
  6384. procedure clearCNPUE13; inline;
  6385. procedure clearCNPUE14; inline;
  6386. procedure clearCNPUE15; inline;
  6387. procedure clearCNPUE16; inline;
  6388. procedure clearCNPUE17; inline;
  6389. procedure clearCNPUE18; inline;
  6390. procedure clearCNPUE1; inline;
  6391. procedure clearCNPUE2; inline;
  6392. procedure clearCNPUE3; inline;
  6393. procedure clearCNPUE4; inline;
  6394. procedure clearCNPUE5; inline;
  6395. procedure clearCNPUE6; inline;
  6396. procedure clearCNPUE7; inline;
  6397. procedure clearCNPUE8; inline;
  6398. procedure clearCNPUE9; inline;
  6399. procedure setCNPUE0; inline;
  6400. procedure setCNPUE10; inline;
  6401. procedure setCNPUE11; inline;
  6402. procedure setCNPUE12; inline;
  6403. procedure setCNPUE13; inline;
  6404. procedure setCNPUE14; inline;
  6405. procedure setCNPUE15; inline;
  6406. procedure setCNPUE16; inline;
  6407. procedure setCNPUE17; inline;
  6408. procedure setCNPUE18; inline;
  6409. procedure setCNPUE1; inline;
  6410. procedure setCNPUE2; inline;
  6411. procedure setCNPUE3; inline;
  6412. procedure setCNPUE4; inline;
  6413. procedure setCNPUE5; inline;
  6414. procedure setCNPUE6; inline;
  6415. procedure setCNPUE7; inline;
  6416. procedure setCNPUE8; inline;
  6417. procedure setCNPUE9; inline;
  6418. property CNPUE0 : TBits_1 read getCNPUE0 write setCNPUE0;
  6419. property CNPUE1 : TBits_1 read getCNPUE1 write setCNPUE1;
  6420. property CNPUE10 : TBits_1 read getCNPUE10 write setCNPUE10;
  6421. property CNPUE11 : TBits_1 read getCNPUE11 write setCNPUE11;
  6422. property CNPUE12 : TBits_1 read getCNPUE12 write setCNPUE12;
  6423. property CNPUE13 : TBits_1 read getCNPUE13 write setCNPUE13;
  6424. property CNPUE14 : TBits_1 read getCNPUE14 write setCNPUE14;
  6425. property CNPUE15 : TBits_1 read getCNPUE15 write setCNPUE15;
  6426. property CNPUE16 : TBits_1 read getCNPUE16 write setCNPUE16;
  6427. property CNPUE17 : TBits_1 read getCNPUE17 write setCNPUE17;
  6428. property CNPUE18 : TBits_1 read getCNPUE18 write setCNPUE18;
  6429. property CNPUE2 : TBits_1 read getCNPUE2 write setCNPUE2;
  6430. property CNPUE3 : TBits_1 read getCNPUE3 write setCNPUE3;
  6431. property CNPUE4 : TBits_1 read getCNPUE4 write setCNPUE4;
  6432. property CNPUE5 : TBits_1 read getCNPUE5 write setCNPUE5;
  6433. property CNPUE6 : TBits_1 read getCNPUE6 write setCNPUE6;
  6434. property CNPUE7 : TBits_1 read getCNPUE7 write setCNPUE7;
  6435. property CNPUE8 : TBits_1 read getCNPUE8 write setCNPUE8;
  6436. property CNPUE9 : TBits_1 read getCNPUE9 write setCNPUE9;
  6437. property w : TBits_32 read getw write setw;
  6438. end;
  6439. type
  6440. TPORTGRegisters = record
  6441. TRISGbits : TPORTG_TRISG;
  6442. TRISG : longWord;
  6443. TRISGCLR : longWord;
  6444. TRISGSET : longWord;
  6445. TRISGINV : longWord;
  6446. PORTGbits : TPORTG_PORTG;
  6447. PORTG : longWord;
  6448. PORTGCLR : longWord;
  6449. PORTGSET : longWord;
  6450. PORTGINV : longWord;
  6451. LATGbits : TPORTG_LATG;
  6452. LATG : longWord;
  6453. LATGCLR : longWord;
  6454. LATGSET : longWord;
  6455. LATGINV : longWord;
  6456. ODCGbits : TPORTG_ODCG;
  6457. ODCG : longWord;
  6458. ODCGCLR : longWord;
  6459. ODCGSET : longWord;
  6460. ODCGINV : longWord;
  6461. CNCONbits : TPORTG_CNCON;
  6462. CNCON : longWord;
  6463. CNCONCLR : longWord;
  6464. CNCONSET : longWord;
  6465. CNCONINV : longWord;
  6466. CNENbits : TPORTG_CNEN;
  6467. CNEN : longWord;
  6468. CNENCLR : longWord;
  6469. CNENSET : longWord;
  6470. CNENINV : longWord;
  6471. CNPUEbits : TPORTG_CNPUE;
  6472. CNPUE : longWord;
  6473. CNPUECLR : longWord;
  6474. CNPUESET : longWord;
  6475. CNPUEINV : longWord;
  6476. end;
  6477. TDEVCFG_DEVCFG3 = record
  6478. private
  6479. function getUSERID : TBits_16; inline;
  6480. function getw : TBits_32; inline;
  6481. procedure setUSERID(thebits : TBits_16); inline;
  6482. procedure setw(thebits : TBits_32); inline;
  6483. public
  6484. property USERID : TBits_16 read getUSERID write setUSERID;
  6485. property w : TBits_32 read getw write setw;
  6486. end;
  6487. TDEVCFG_DEVCFG2 = record
  6488. private
  6489. function getFPLLIDIV : TBits_3; inline;
  6490. function getFPLLMUL : TBits_3; inline;
  6491. function getFPLLODIV : TBits_3; inline;
  6492. function getUPLLEN : TBits_1; inline;
  6493. function getUPLLIDIV : TBits_3; inline;
  6494. function getw : TBits_32; inline;
  6495. procedure setFPLLIDIV(thebits : TBits_3); inline;
  6496. procedure setFPLLMUL(thebits : TBits_3); inline;
  6497. procedure setFPLLODIV(thebits : TBits_3); inline;
  6498. procedure setUPLLEN(thebits : TBits_1); inline;
  6499. procedure setUPLLIDIV(thebits : TBits_3); inline;
  6500. procedure setw(thebits : TBits_32); inline;
  6501. public
  6502. procedure clearUPLLEN; inline;
  6503. procedure setUPLLEN; inline;
  6504. property FPLLIDIV : TBits_3 read getFPLLIDIV write setFPLLIDIV;
  6505. property FPLLMUL : TBits_3 read getFPLLMUL write setFPLLMUL;
  6506. property FPLLODIV : TBits_3 read getFPLLODIV write setFPLLODIV;
  6507. property UPLLEN : TBits_1 read getUPLLEN write setUPLLEN;
  6508. property UPLLIDIV : TBits_3 read getUPLLIDIV write setUPLLIDIV;
  6509. property w : TBits_32 read getw write setw;
  6510. end;
  6511. TDEVCFG_DEVCFG1 = record
  6512. private
  6513. function getFCKSM : TBits_2; inline;
  6514. function getFNOSC : TBits_3; inline;
  6515. function getFPBDIV : TBits_2; inline;
  6516. function getFSOSCEN : TBits_1; inline;
  6517. function getFWDTEN : TBits_1; inline;
  6518. function getIESO : TBits_1; inline;
  6519. function getOSCIOFNC : TBits_1; inline;
  6520. function getPOSCMOD : TBits_2; inline;
  6521. function getWDTPS : TBits_5; inline;
  6522. function getw : TBits_32; inline;
  6523. procedure setFCKSM(thebits : TBits_2); inline;
  6524. procedure setFNOSC(thebits : TBits_3); inline;
  6525. procedure setFPBDIV(thebits : TBits_2); inline;
  6526. procedure setFSOSCEN(thebits : TBits_1); inline;
  6527. procedure setFWDTEN(thebits : TBits_1); inline;
  6528. procedure setIESO(thebits : TBits_1); inline;
  6529. procedure setOSCIOFNC(thebits : TBits_1); inline;
  6530. procedure setPOSCMOD(thebits : TBits_2); inline;
  6531. procedure setWDTPS(thebits : TBits_5); inline;
  6532. procedure setw(thebits : TBits_32); inline;
  6533. public
  6534. procedure clearFSOSCEN; inline;
  6535. procedure clearFWDTEN; inline;
  6536. procedure clearIESO; inline;
  6537. procedure clearOSCIOFNC; inline;
  6538. procedure setFSOSCEN; inline;
  6539. procedure setFWDTEN; inline;
  6540. procedure setIESO; inline;
  6541. procedure setOSCIOFNC; inline;
  6542. property FCKSM : TBits_2 read getFCKSM write setFCKSM;
  6543. property FNOSC : TBits_3 read getFNOSC write setFNOSC;
  6544. property FPBDIV : TBits_2 read getFPBDIV write setFPBDIV;
  6545. property FSOSCEN : TBits_1 read getFSOSCEN write setFSOSCEN;
  6546. property FWDTEN : TBits_1 read getFWDTEN write setFWDTEN;
  6547. property IESO : TBits_1 read getIESO write setIESO;
  6548. property OSCIOFNC : TBits_1 read getOSCIOFNC write setOSCIOFNC;
  6549. property POSCMOD : TBits_2 read getPOSCMOD write setPOSCMOD;
  6550. property WDTPS : TBits_5 read getWDTPS write setWDTPS;
  6551. property w : TBits_32 read getw write setw;
  6552. end;
  6553. TDEVCFG_DEVCFG0 = record
  6554. private
  6555. function getBWP : TBits_1; inline;
  6556. function getCP : TBits_1; inline;
  6557. function getDEBUG : TBits_2; inline;
  6558. function getFDEBUG : TBits_2; inline;
  6559. function getICESEL : TBits_1; inline;
  6560. function getPWP : TBits_8; inline;
  6561. function getw : TBits_32; inline;
  6562. procedure setBWP(thebits : TBits_1); inline;
  6563. procedure setCP(thebits : TBits_1); inline;
  6564. procedure setDEBUG(thebits : TBits_2); inline;
  6565. procedure setFDEBUG(thebits : TBits_2); inline;
  6566. procedure setICESEL(thebits : TBits_1); inline;
  6567. procedure setPWP(thebits : TBits_8); inline;
  6568. procedure setw(thebits : TBits_32); inline;
  6569. public
  6570. procedure clearBWP; inline;
  6571. procedure clearCP; inline;
  6572. procedure clearICESEL; inline;
  6573. procedure setBWP; inline;
  6574. procedure setCP; inline;
  6575. procedure setICESEL; inline;
  6576. property BWP : TBits_1 read getBWP write setBWP;
  6577. property CP : TBits_1 read getCP write setCP;
  6578. property DEBUG : TBits_2 read getDEBUG write setDEBUG;
  6579. property FDEBUG : TBits_2 read getFDEBUG write setFDEBUG;
  6580. property ICESEL : TBits_1 read getICESEL write setICESEL;
  6581. property PWP : TBits_8 read getPWP write setPWP;
  6582. property w : TBits_32 read getw write setw;
  6583. end;
  6584. const
  6585. _CORE_TIMER_IRQ = 0;
  6586. _CORE_SOFTWARE_0_IRQ = 1;
  6587. _CORE_SOFTWARE_1_IRQ = 2;
  6588. _EXTERNAL_0_IRQ = 3;
  6589. _TIMER_1_IRQ = 4;
  6590. _INPUT_CAPTURE_1_IRQ = 5;
  6591. _OUTPUT_COMPARE_1_IRQ = 6;
  6592. _EXTERNAL_1_IRQ = 7;
  6593. _TIMER_2_IRQ = 8;
  6594. _INPUT_CAPTURE_2_IRQ = 9;
  6595. _OUTPUT_COMPARE_2_IRQ = 10;
  6596. _EXTERNAL_2_IRQ = 11;
  6597. _TIMER_3_IRQ = 12;
  6598. _INPUT_CAPTURE_3_IRQ = 13;
  6599. _OUTPUT_COMPARE_3_IRQ = 14;
  6600. _EXTERNAL_3_IRQ = 15;
  6601. _TIMER_4_IRQ = 16;
  6602. _INPUT_CAPTURE_4_IRQ = 17;
  6603. _OUTPUT_COMPARE_4_IRQ = 18;
  6604. _EXTERNAL_4_IRQ = 19;
  6605. _TIMER_5_IRQ = 20;
  6606. _INPUT_CAPTURE_5_IRQ = 21;
  6607. _OUTPUT_COMPARE_5_IRQ = 22;
  6608. _UART1_ERR_IRQ = 26;
  6609. _UART1_RX_IRQ = 27;
  6610. _UART1_TX_IRQ = 28;
  6611. _I2C1_BUS_IRQ = 29;
  6612. _I2C1_SLAVE_IRQ = 30;
  6613. _I2C1_MASTER_IRQ = 31;
  6614. _CHANGE_NOTICE_IRQ = 32;
  6615. _ADC_IRQ = 33;
  6616. _PMP_IRQ = 34;
  6617. _COMPARATOR_1_IRQ = 35;
  6618. _COMPARATOR_2_IRQ = 36;
  6619. _SPI2_ERR_IRQ = 37;
  6620. _SPI2_TX_IRQ = 38;
  6621. _SPI2_RX_IRQ = 39;
  6622. _UART2_ERR_IRQ = 40;
  6623. _UART2_RX_IRQ = 41;
  6624. _UART2_TX_IRQ = 42;
  6625. _I2C2_BUS_IRQ = 43;
  6626. _I2C2_SLAVE_IRQ = 44;
  6627. _I2C2_MASTER_IRQ = 45;
  6628. _FAIL_SAFE_MONITOR_IRQ = 46;
  6629. _RTCC_IRQ = 47;
  6630. _FLASH_CONTROL_IRQ = 56;
  6631. _USB_IRQ = 57;
  6632. const
  6633. ADC10_BASE_ADDRESS = $BF809000;
  6634. var
  6635. ADC10 : TADC10Registers absolute ADC10_BASE_ADDRESS;
  6636. const
  6637. BMX_BASE_ADDRESS = $BF882000;
  6638. var
  6639. BMX : TBMXRegisters absolute BMX_BASE_ADDRESS;
  6640. const
  6641. CFG_BASE_ADDRESS = $BF80F200;
  6642. var
  6643. CFG : TCFGRegisters absolute CFG_BASE_ADDRESS;
  6644. const
  6645. CMP_BASE_ADDRESS = $BF80A000;
  6646. var
  6647. CMP : TCMPRegisters absolute CMP_BASE_ADDRESS;
  6648. const
  6649. CVR_BASE_ADDRESS = $BF809800;
  6650. var
  6651. CVR : TCVRRegisters absolute CVR_BASE_ADDRESS;
  6652. const
  6653. I2C1_BASE_ADDRESS = $BF805000;
  6654. var
  6655. I2C1 : TI2C1Registers absolute I2C1_BASE_ADDRESS;
  6656. const
  6657. I2C2_BASE_ADDRESS = $BF805200;
  6658. var
  6659. I2C2 : TI2C2Registers absolute I2C2_BASE_ADDRESS;
  6660. const
  6661. ICAP1_BASE_ADDRESS = $BF802000;
  6662. var
  6663. ICAP1 : TICAP1Registers absolute ICAP1_BASE_ADDRESS;
  6664. const
  6665. ICAP2_BASE_ADDRESS = $BF802200;
  6666. var
  6667. ICAP2 : TICAP2Registers absolute ICAP2_BASE_ADDRESS;
  6668. const
  6669. ICAP3_BASE_ADDRESS = $BF802400;
  6670. var
  6671. ICAP3 : TICAP3Registers absolute ICAP3_BASE_ADDRESS;
  6672. const
  6673. ICAP4_BASE_ADDRESS = $BF802600;
  6674. var
  6675. ICAP4 : TICAP4Registers absolute ICAP4_BASE_ADDRESS;
  6676. const
  6677. ICAP5_BASE_ADDRESS = $BF802800;
  6678. var
  6679. ICAP5 : TICAP5Registers absolute ICAP5_BASE_ADDRESS;
  6680. const
  6681. INT_BASE_ADDRESS = $BF881000;
  6682. var
  6683. INT : TINTRegisters absolute INT_BASE_ADDRESS;
  6684. const
  6685. NVM_BASE_ADDRESS = $BF80F400;
  6686. var
  6687. NVM : TNVMRegisters absolute NVM_BASE_ADDRESS;
  6688. const
  6689. OCMP1_BASE_ADDRESS = $BF803000;
  6690. var
  6691. OCMP1 : TOCMP1Registers absolute OCMP1_BASE_ADDRESS;
  6692. const
  6693. OCMP2_BASE_ADDRESS = $BF803200;
  6694. var
  6695. OCMP2 : TOCMP2Registers absolute OCMP2_BASE_ADDRESS;
  6696. const
  6697. OCMP3_BASE_ADDRESS = $BF803400;
  6698. var
  6699. OCMP3 : TOCMP3Registers absolute OCMP3_BASE_ADDRESS;
  6700. const
  6701. OCMP4_BASE_ADDRESS = $BF803600;
  6702. var
  6703. OCMP4 : TOCMP4Registers absolute OCMP4_BASE_ADDRESS;
  6704. const
  6705. OCMP5_BASE_ADDRESS = $BF803800;
  6706. var
  6707. OCMP5 : TOCMP5Registers absolute OCMP5_BASE_ADDRESS;
  6708. const
  6709. OSC_BASE_ADDRESS = $BF80F000;
  6710. var
  6711. OSC : TOSCRegisters absolute OSC_BASE_ADDRESS;
  6712. const
  6713. PCACHE_BASE_ADDRESS = $BF884000;
  6714. var
  6715. PCACHE : TPCACHERegisters absolute PCACHE_BASE_ADDRESS;
  6716. const
  6717. PMP_BASE_ADDRESS = $BF807000;
  6718. var
  6719. PMP : TPMPRegisters absolute PMP_BASE_ADDRESS;
  6720. const
  6721. PORTB_BASE_ADDRESS = $BF886040;
  6722. var
  6723. PORTB : TPORTBRegisters absolute PORTB_BASE_ADDRESS;
  6724. const
  6725. PORTC_BASE_ADDRESS = $BF886080;
  6726. var
  6727. PORTC : TPORTCRegisters absolute PORTC_BASE_ADDRESS;
  6728. const
  6729. PORTD_BASE_ADDRESS = $BF8860C0;
  6730. var
  6731. PORTD : TPORTDRegisters absolute PORTD_BASE_ADDRESS;
  6732. const
  6733. PORTE_BASE_ADDRESS = $BF886100;
  6734. var
  6735. PORTE : TPORTERegisters absolute PORTE_BASE_ADDRESS;
  6736. const
  6737. PORTF_BASE_ADDRESS = $BF886140;
  6738. var
  6739. PORTF : TPORTFRegisters absolute PORTF_BASE_ADDRESS;
  6740. const
  6741. PORTG_BASE_ADDRESS = $BF886180;
  6742. var
  6743. PORTG : TPORTGRegisters absolute PORTG_BASE_ADDRESS;
  6744. const
  6745. RCON_BASE_ADDRESS = $BF80F600;
  6746. var
  6747. RCON : TRCONRegisters absolute RCON_BASE_ADDRESS;
  6748. const
  6749. RTCC_BASE_ADDRESS = $BF800200;
  6750. var
  6751. RTCC : TRTCCRegisters absolute RTCC_BASE_ADDRESS;
  6752. const
  6753. SPI2_BASE_ADDRESS = $BF805A00;
  6754. var
  6755. SPI2 : TSPI2Registers absolute SPI2_BASE_ADDRESS;
  6756. const
  6757. TMR1_BASE_ADDRESS = $BF800600;
  6758. var
  6759. TMR1 : TTMR1Registers absolute TMR1_BASE_ADDRESS;
  6760. const
  6761. TMR2_BASE_ADDRESS = $BF800800;
  6762. var
  6763. TMR2 : TTMR2Registers absolute TMR2_BASE_ADDRESS;
  6764. const
  6765. TMR3_BASE_ADDRESS = $BF800A00;
  6766. var
  6767. TMR3 : TTMR3Registers absolute TMR3_BASE_ADDRESS;
  6768. const
  6769. TMR4_BASE_ADDRESS = $BF800C00;
  6770. var
  6771. TMR4 : TTMR4Registers absolute TMR4_BASE_ADDRESS;
  6772. const
  6773. TMR5_BASE_ADDRESS = $BF800E00;
  6774. var
  6775. TMR5 : TTMR5Registers absolute TMR5_BASE_ADDRESS;
  6776. const
  6777. UART1_BASE_ADDRESS = $BF806000;
  6778. var
  6779. UART1 : TUART1Registers absolute UART1_BASE_ADDRESS;
  6780. const
  6781. UART2_BASE_ADDRESS = $BF806200;
  6782. var
  6783. UART2 : TUART2Registers absolute UART2_BASE_ADDRESS;
  6784. const
  6785. USB_BASE_ADDRESS = $BF885040;
  6786. var
  6787. USB : TUSBRegisters absolute USB_BASE_ADDRESS;
  6788. const
  6789. WDT_BASE_ADDRESS = $BF800000;
  6790. var
  6791. WDT : TWDTRegisters absolute WDT_BASE_ADDRESS;
  6792. const
  6793. _APPI_BASE_ADDRESS = $BF880190;
  6794. var
  6795. _APPI : T_APPIRegisters absolute _APPI_BASE_ADDRESS;
  6796. const
  6797. _APPO_BASE_ADDRESS = $BF880180;
  6798. var
  6799. _APPO : T_APPORegisters absolute _APPO_BASE_ADDRESS;
  6800. const
  6801. _DDPSTAT_BASE_ADDRESS = $BF880140;
  6802. var
  6803. _DDPSTAT : T_DDPSTATRegisters absolute _DDPSTAT_BASE_ADDRESS;
  6804. const
  6805. _STRO_BASE_ADDRESS = $BF880170;
  6806. var
  6807. _STRO : T_STRORegisters absolute _STRO_BASE_ADDRESS;
  6808. implementation
  6809. type
  6810. TDefRegMap = record
  6811. val : longWord;
  6812. clr : longWord;
  6813. &set : longWord;
  6814. inv : longWord;
  6815. end;
  6816. pTDefRegMap = ^TDefRegMap;
  6817. procedure TWDT_WDTCON.setWDTCLR; inline;
  6818. begin
  6819. pTDefRegMap(@Self)^.&set := $00000001;
  6820. end;
  6821. procedure TWDT_WDTCON.clearWDTCLR; inline;
  6822. begin
  6823. pTDefRegMap(@Self)^.clr := $00000001;
  6824. end;
  6825. procedure TWDT_WDTCON.setWDTCLR(thebits : TBits_1); inline;
  6826. begin
  6827. if thebits = 0 then
  6828. pTDefRegMap(@Self)^.clr := $00000001
  6829. else
  6830. pTDefRegMap(@Self)^.&set := $00000001;
  6831. end;
  6832. function TWDT_WDTCON.getWDTCLR : TBits_1; inline;
  6833. begin
  6834. getWDTCLR := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  6835. end;
  6836. procedure TWDT_WDTCON.setSWDTPS(thebits : TBits_5); inline;
  6837. begin
  6838. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF83 or ( thebits shl 2 );
  6839. end;
  6840. function TWDT_WDTCON.getSWDTPS : TBits_5; inline;
  6841. begin
  6842. getSWDTPS := (pTDefRegMap(@Self)^.val and $0000007C) shr 2;
  6843. end;
  6844. procedure TWDT_WDTCON.setON; inline;
  6845. begin
  6846. pTDefRegMap(@Self)^.&set := $00008000;
  6847. end;
  6848. procedure TWDT_WDTCON.clearON; inline;
  6849. begin
  6850. pTDefRegMap(@Self)^.clr := $00008000;
  6851. end;
  6852. procedure TWDT_WDTCON.setON(thebits : TBits_1); inline;
  6853. begin
  6854. if thebits = 0 then
  6855. pTDefRegMap(@Self)^.clr := $00008000
  6856. else
  6857. pTDefRegMap(@Self)^.&set := $00008000;
  6858. end;
  6859. function TWDT_WDTCON.getON : TBits_1; inline;
  6860. begin
  6861. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  6862. end;
  6863. procedure TWDT_WDTCON.setSWDTPS0; inline;
  6864. begin
  6865. pTDefRegMap(@Self)^.&set := $00000004;
  6866. end;
  6867. procedure TWDT_WDTCON.clearSWDTPS0; inline;
  6868. begin
  6869. pTDefRegMap(@Self)^.clr := $00000004;
  6870. end;
  6871. procedure TWDT_WDTCON.setSWDTPS0(thebits : TBits_1); inline;
  6872. begin
  6873. if thebits = 0 then
  6874. pTDefRegMap(@Self)^.clr := $00000004
  6875. else
  6876. pTDefRegMap(@Self)^.&set := $00000004;
  6877. end;
  6878. function TWDT_WDTCON.getSWDTPS0 : TBits_1; inline;
  6879. begin
  6880. getSWDTPS0 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  6881. end;
  6882. procedure TWDT_WDTCON.setSWDTPS1; inline;
  6883. begin
  6884. pTDefRegMap(@Self)^.&set := $00000008;
  6885. end;
  6886. procedure TWDT_WDTCON.clearSWDTPS1; inline;
  6887. begin
  6888. pTDefRegMap(@Self)^.clr := $00000008;
  6889. end;
  6890. procedure TWDT_WDTCON.setSWDTPS1(thebits : TBits_1); inline;
  6891. begin
  6892. if thebits = 0 then
  6893. pTDefRegMap(@Self)^.clr := $00000008
  6894. else
  6895. pTDefRegMap(@Self)^.&set := $00000008;
  6896. end;
  6897. function TWDT_WDTCON.getSWDTPS1 : TBits_1; inline;
  6898. begin
  6899. getSWDTPS1 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  6900. end;
  6901. procedure TWDT_WDTCON.setSWDTPS2; inline;
  6902. begin
  6903. pTDefRegMap(@Self)^.&set := $00000010;
  6904. end;
  6905. procedure TWDT_WDTCON.clearSWDTPS2; inline;
  6906. begin
  6907. pTDefRegMap(@Self)^.clr := $00000010;
  6908. end;
  6909. procedure TWDT_WDTCON.setSWDTPS2(thebits : TBits_1); inline;
  6910. begin
  6911. if thebits = 0 then
  6912. pTDefRegMap(@Self)^.clr := $00000010
  6913. else
  6914. pTDefRegMap(@Self)^.&set := $00000010;
  6915. end;
  6916. function TWDT_WDTCON.getSWDTPS2 : TBits_1; inline;
  6917. begin
  6918. getSWDTPS2 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  6919. end;
  6920. procedure TWDT_WDTCON.setSWDTPS3; inline;
  6921. begin
  6922. pTDefRegMap(@Self)^.&set := $00000020;
  6923. end;
  6924. procedure TWDT_WDTCON.clearSWDTPS3; inline;
  6925. begin
  6926. pTDefRegMap(@Self)^.clr := $00000020;
  6927. end;
  6928. procedure TWDT_WDTCON.setSWDTPS3(thebits : TBits_1); inline;
  6929. begin
  6930. if thebits = 0 then
  6931. pTDefRegMap(@Self)^.clr := $00000020
  6932. else
  6933. pTDefRegMap(@Self)^.&set := $00000020;
  6934. end;
  6935. function TWDT_WDTCON.getSWDTPS3 : TBits_1; inline;
  6936. begin
  6937. getSWDTPS3 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  6938. end;
  6939. procedure TWDT_WDTCON.setSWDTPS4; inline;
  6940. begin
  6941. pTDefRegMap(@Self)^.&set := $00000040;
  6942. end;
  6943. procedure TWDT_WDTCON.clearSWDTPS4; inline;
  6944. begin
  6945. pTDefRegMap(@Self)^.clr := $00000040;
  6946. end;
  6947. procedure TWDT_WDTCON.setSWDTPS4(thebits : TBits_1); inline;
  6948. begin
  6949. if thebits = 0 then
  6950. pTDefRegMap(@Self)^.clr := $00000040
  6951. else
  6952. pTDefRegMap(@Self)^.&set := $00000040;
  6953. end;
  6954. function TWDT_WDTCON.getSWDTPS4 : TBits_1; inline;
  6955. begin
  6956. getSWDTPS4 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  6957. end;
  6958. procedure TWDT_WDTCON.setWDTPSTA(thebits : TBits_5); inline;
  6959. begin
  6960. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF83 or ( thebits shl 2 );
  6961. end;
  6962. function TWDT_WDTCON.getWDTPSTA : TBits_5; inline;
  6963. begin
  6964. getWDTPSTA := (pTDefRegMap(@Self)^.val and $0000007C) shr 2;
  6965. end;
  6966. procedure TWDT_WDTCON.setWDTPS(thebits : TBits_5); inline;
  6967. begin
  6968. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF83 or ( thebits shl 2 );
  6969. end;
  6970. function TWDT_WDTCON.getWDTPS : TBits_5; inline;
  6971. begin
  6972. getWDTPS := (pTDefRegMap(@Self)^.val and $0000007C) shr 2;
  6973. end;
  6974. procedure TWDT_WDTCON.setw(thebits : TBits_32); inline;
  6975. begin
  6976. pTDefRegMap(@Self)^.val := thebits;
  6977. end;
  6978. function TWDT_WDTCON.getw : TBits_32; inline;
  6979. begin
  6980. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  6981. end;
  6982. procedure TRTCC_RTCCON.setRTCOE; inline;
  6983. begin
  6984. pTDefRegMap(@Self)^.&set := $00000001;
  6985. end;
  6986. procedure TRTCC_RTCCON.clearRTCOE; inline;
  6987. begin
  6988. pTDefRegMap(@Self)^.clr := $00000001;
  6989. end;
  6990. procedure TRTCC_RTCCON.setRTCOE(thebits : TBits_1); inline;
  6991. begin
  6992. if thebits = 0 then
  6993. pTDefRegMap(@Self)^.clr := $00000001
  6994. else
  6995. pTDefRegMap(@Self)^.&set := $00000001;
  6996. end;
  6997. function TRTCC_RTCCON.getRTCOE : TBits_1; inline;
  6998. begin
  6999. getRTCOE := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  7000. end;
  7001. procedure TRTCC_RTCCON.setHALFSEC; inline;
  7002. begin
  7003. pTDefRegMap(@Self)^.&set := $00000002;
  7004. end;
  7005. procedure TRTCC_RTCCON.clearHALFSEC; inline;
  7006. begin
  7007. pTDefRegMap(@Self)^.clr := $00000002;
  7008. end;
  7009. procedure TRTCC_RTCCON.setHALFSEC(thebits : TBits_1); inline;
  7010. begin
  7011. if thebits = 0 then
  7012. pTDefRegMap(@Self)^.clr := $00000002
  7013. else
  7014. pTDefRegMap(@Self)^.&set := $00000002;
  7015. end;
  7016. function TRTCC_RTCCON.getHALFSEC : TBits_1; inline;
  7017. begin
  7018. getHALFSEC := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  7019. end;
  7020. procedure TRTCC_RTCCON.setRTCSYNC; inline;
  7021. begin
  7022. pTDefRegMap(@Self)^.&set := $00000004;
  7023. end;
  7024. procedure TRTCC_RTCCON.clearRTCSYNC; inline;
  7025. begin
  7026. pTDefRegMap(@Self)^.clr := $00000004;
  7027. end;
  7028. procedure TRTCC_RTCCON.setRTCSYNC(thebits : TBits_1); inline;
  7029. begin
  7030. if thebits = 0 then
  7031. pTDefRegMap(@Self)^.clr := $00000004
  7032. else
  7033. pTDefRegMap(@Self)^.&set := $00000004;
  7034. end;
  7035. function TRTCC_RTCCON.getRTCSYNC : TBits_1; inline;
  7036. begin
  7037. getRTCSYNC := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  7038. end;
  7039. procedure TRTCC_RTCCON.setRTCWREN; inline;
  7040. begin
  7041. pTDefRegMap(@Self)^.&set := $00000008;
  7042. end;
  7043. procedure TRTCC_RTCCON.clearRTCWREN; inline;
  7044. begin
  7045. pTDefRegMap(@Self)^.clr := $00000008;
  7046. end;
  7047. procedure TRTCC_RTCCON.setRTCWREN(thebits : TBits_1); inline;
  7048. begin
  7049. if thebits = 0 then
  7050. pTDefRegMap(@Self)^.clr := $00000008
  7051. else
  7052. pTDefRegMap(@Self)^.&set := $00000008;
  7053. end;
  7054. function TRTCC_RTCCON.getRTCWREN : TBits_1; inline;
  7055. begin
  7056. getRTCWREN := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  7057. end;
  7058. procedure TRTCC_RTCCON.setRTCCLKON; inline;
  7059. begin
  7060. pTDefRegMap(@Self)^.&set := $00000040;
  7061. end;
  7062. procedure TRTCC_RTCCON.clearRTCCLKON; inline;
  7063. begin
  7064. pTDefRegMap(@Self)^.clr := $00000040;
  7065. end;
  7066. procedure TRTCC_RTCCON.setRTCCLKON(thebits : TBits_1); inline;
  7067. begin
  7068. if thebits = 0 then
  7069. pTDefRegMap(@Self)^.clr := $00000040
  7070. else
  7071. pTDefRegMap(@Self)^.&set := $00000040;
  7072. end;
  7073. function TRTCC_RTCCON.getRTCCLKON : TBits_1; inline;
  7074. begin
  7075. getRTCCLKON := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  7076. end;
  7077. procedure TRTCC_RTCCON.setRTSECSEL; inline;
  7078. begin
  7079. pTDefRegMap(@Self)^.&set := $00000080;
  7080. end;
  7081. procedure TRTCC_RTCCON.clearRTSECSEL; inline;
  7082. begin
  7083. pTDefRegMap(@Self)^.clr := $00000080;
  7084. end;
  7085. procedure TRTCC_RTCCON.setRTSECSEL(thebits : TBits_1); inline;
  7086. begin
  7087. if thebits = 0 then
  7088. pTDefRegMap(@Self)^.clr := $00000080
  7089. else
  7090. pTDefRegMap(@Self)^.&set := $00000080;
  7091. end;
  7092. function TRTCC_RTCCON.getRTSECSEL : TBits_1; inline;
  7093. begin
  7094. getRTSECSEL := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  7095. end;
  7096. procedure TRTCC_RTCCON.setSIDL; inline;
  7097. begin
  7098. pTDefRegMap(@Self)^.&set := $00002000;
  7099. end;
  7100. procedure TRTCC_RTCCON.clearSIDL; inline;
  7101. begin
  7102. pTDefRegMap(@Self)^.clr := $00002000;
  7103. end;
  7104. procedure TRTCC_RTCCON.setSIDL(thebits : TBits_1); inline;
  7105. begin
  7106. if thebits = 0 then
  7107. pTDefRegMap(@Self)^.clr := $00002000
  7108. else
  7109. pTDefRegMap(@Self)^.&set := $00002000;
  7110. end;
  7111. function TRTCC_RTCCON.getSIDL : TBits_1; inline;
  7112. begin
  7113. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  7114. end;
  7115. procedure TRTCC_RTCCON.setON; inline;
  7116. begin
  7117. pTDefRegMap(@Self)^.&set := $00008000;
  7118. end;
  7119. procedure TRTCC_RTCCON.clearON; inline;
  7120. begin
  7121. pTDefRegMap(@Self)^.clr := $00008000;
  7122. end;
  7123. procedure TRTCC_RTCCON.setON(thebits : TBits_1); inline;
  7124. begin
  7125. if thebits = 0 then
  7126. pTDefRegMap(@Self)^.clr := $00008000
  7127. else
  7128. pTDefRegMap(@Self)^.&set := $00008000;
  7129. end;
  7130. function TRTCC_RTCCON.getON : TBits_1; inline;
  7131. begin
  7132. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  7133. end;
  7134. procedure TRTCC_RTCCON.setCAL(thebits : TBits_10); inline;
  7135. begin
  7136. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FC00FFFF or ( thebits shl 16 );
  7137. end;
  7138. function TRTCC_RTCCON.getCAL : TBits_10; inline;
  7139. begin
  7140. getCAL := (pTDefRegMap(@Self)^.val and $03FF0000) shr 16;
  7141. end;
  7142. procedure TRTCC_RTCCON.setw(thebits : TBits_32); inline;
  7143. begin
  7144. pTDefRegMap(@Self)^.val := thebits;
  7145. end;
  7146. function TRTCC_RTCCON.getw : TBits_32; inline;
  7147. begin
  7148. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  7149. end;
  7150. procedure TRTCC_RTCALRM.setARPT(thebits : TBits_8); inline;
  7151. begin
  7152. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF00 or ( thebits shl 0 );
  7153. end;
  7154. function TRTCC_RTCALRM.getARPT : TBits_8; inline;
  7155. begin
  7156. getARPT := (pTDefRegMap(@Self)^.val and $000000FF) shr 0;
  7157. end;
  7158. procedure TRTCC_RTCALRM.setAMASK(thebits : TBits_4); inline;
  7159. begin
  7160. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFF0FF or ( thebits shl 8 );
  7161. end;
  7162. function TRTCC_RTCALRM.getAMASK : TBits_4; inline;
  7163. begin
  7164. getAMASK := (pTDefRegMap(@Self)^.val and $00000F00) shr 8;
  7165. end;
  7166. procedure TRTCC_RTCALRM.setALRMSYNC; inline;
  7167. begin
  7168. pTDefRegMap(@Self)^.&set := $00001000;
  7169. end;
  7170. procedure TRTCC_RTCALRM.clearALRMSYNC; inline;
  7171. begin
  7172. pTDefRegMap(@Self)^.clr := $00001000;
  7173. end;
  7174. procedure TRTCC_RTCALRM.setALRMSYNC(thebits : TBits_1); inline;
  7175. begin
  7176. if thebits = 0 then
  7177. pTDefRegMap(@Self)^.clr := $00001000
  7178. else
  7179. pTDefRegMap(@Self)^.&set := $00001000;
  7180. end;
  7181. function TRTCC_RTCALRM.getALRMSYNC : TBits_1; inline;
  7182. begin
  7183. getALRMSYNC := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  7184. end;
  7185. procedure TRTCC_RTCALRM.setPIV; inline;
  7186. begin
  7187. pTDefRegMap(@Self)^.&set := $00002000;
  7188. end;
  7189. procedure TRTCC_RTCALRM.clearPIV; inline;
  7190. begin
  7191. pTDefRegMap(@Self)^.clr := $00002000;
  7192. end;
  7193. procedure TRTCC_RTCALRM.setPIV(thebits : TBits_1); inline;
  7194. begin
  7195. if thebits = 0 then
  7196. pTDefRegMap(@Self)^.clr := $00002000
  7197. else
  7198. pTDefRegMap(@Self)^.&set := $00002000;
  7199. end;
  7200. function TRTCC_RTCALRM.getPIV : TBits_1; inline;
  7201. begin
  7202. getPIV := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  7203. end;
  7204. procedure TRTCC_RTCALRM.setCHIME; inline;
  7205. begin
  7206. pTDefRegMap(@Self)^.&set := $00004000;
  7207. end;
  7208. procedure TRTCC_RTCALRM.clearCHIME; inline;
  7209. begin
  7210. pTDefRegMap(@Self)^.clr := $00004000;
  7211. end;
  7212. procedure TRTCC_RTCALRM.setCHIME(thebits : TBits_1); inline;
  7213. begin
  7214. if thebits = 0 then
  7215. pTDefRegMap(@Self)^.clr := $00004000
  7216. else
  7217. pTDefRegMap(@Self)^.&set := $00004000;
  7218. end;
  7219. function TRTCC_RTCALRM.getCHIME : TBits_1; inline;
  7220. begin
  7221. getCHIME := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  7222. end;
  7223. procedure TRTCC_RTCALRM.setALRMEN; inline;
  7224. begin
  7225. pTDefRegMap(@Self)^.&set := $00008000;
  7226. end;
  7227. procedure TRTCC_RTCALRM.clearALRMEN; inline;
  7228. begin
  7229. pTDefRegMap(@Self)^.clr := $00008000;
  7230. end;
  7231. procedure TRTCC_RTCALRM.setALRMEN(thebits : TBits_1); inline;
  7232. begin
  7233. if thebits = 0 then
  7234. pTDefRegMap(@Self)^.clr := $00008000
  7235. else
  7236. pTDefRegMap(@Self)^.&set := $00008000;
  7237. end;
  7238. function TRTCC_RTCALRM.getALRMEN : TBits_1; inline;
  7239. begin
  7240. getALRMEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  7241. end;
  7242. procedure TRTCC_RTCALRM.setw(thebits : TBits_32); inline;
  7243. begin
  7244. pTDefRegMap(@Self)^.val := thebits;
  7245. end;
  7246. function TRTCC_RTCALRM.getw : TBits_32; inline;
  7247. begin
  7248. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  7249. end;
  7250. procedure TRTCC_RTCTIME.setSEC01(thebits : TBits_4); inline;
  7251. begin
  7252. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFF0FF or ( thebits shl 8 );
  7253. end;
  7254. function TRTCC_RTCTIME.getSEC01 : TBits_4; inline;
  7255. begin
  7256. getSEC01 := (pTDefRegMap(@Self)^.val and $00000F00) shr 8;
  7257. end;
  7258. procedure TRTCC_RTCTIME.setSEC10(thebits : TBits_4); inline;
  7259. begin
  7260. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF0FFF or ( thebits shl 12 );
  7261. end;
  7262. function TRTCC_RTCTIME.getSEC10 : TBits_4; inline;
  7263. begin
  7264. getSEC10 := (pTDefRegMap(@Self)^.val and $0000F000) shr 12;
  7265. end;
  7266. procedure TRTCC_RTCTIME.setMIN01(thebits : TBits_4); inline;
  7267. begin
  7268. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFF0FFFF or ( thebits shl 16 );
  7269. end;
  7270. function TRTCC_RTCTIME.getMIN01 : TBits_4; inline;
  7271. begin
  7272. getMIN01 := (pTDefRegMap(@Self)^.val and $000F0000) shr 16;
  7273. end;
  7274. procedure TRTCC_RTCTIME.setMIN10(thebits : TBits_4); inline;
  7275. begin
  7276. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF0FFFFF or ( thebits shl 20 );
  7277. end;
  7278. function TRTCC_RTCTIME.getMIN10 : TBits_4; inline;
  7279. begin
  7280. getMIN10 := (pTDefRegMap(@Self)^.val and $00F00000) shr 20;
  7281. end;
  7282. procedure TRTCC_RTCTIME.setHR01(thebits : TBits_4); inline;
  7283. begin
  7284. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $F0FFFFFF or ( thebits shl 24 );
  7285. end;
  7286. function TRTCC_RTCTIME.getHR01 : TBits_4; inline;
  7287. begin
  7288. getHR01 := (pTDefRegMap(@Self)^.val and $0F000000) shr 24;
  7289. end;
  7290. procedure TRTCC_RTCTIME.setHR10(thebits : TBits_4); inline;
  7291. begin
  7292. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $0FFFFFFF or ( thebits shl 28 );
  7293. end;
  7294. function TRTCC_RTCTIME.getHR10 : TBits_4; inline;
  7295. begin
  7296. getHR10 := (pTDefRegMap(@Self)^.val and $F0000000) shr 28;
  7297. end;
  7298. procedure TRTCC_RTCTIME.setw(thebits : TBits_32); inline;
  7299. begin
  7300. pTDefRegMap(@Self)^.val := thebits;
  7301. end;
  7302. function TRTCC_RTCTIME.getw : TBits_32; inline;
  7303. begin
  7304. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  7305. end;
  7306. procedure TRTCC_RTCDATE.setWDAY01(thebits : TBits_4); inline;
  7307. begin
  7308. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF0 or ( thebits shl 0 );
  7309. end;
  7310. function TRTCC_RTCDATE.getWDAY01 : TBits_4; inline;
  7311. begin
  7312. getWDAY01 := (pTDefRegMap(@Self)^.val and $0000000F) shr 0;
  7313. end;
  7314. procedure TRTCC_RTCDATE.setDAY01(thebits : TBits_4); inline;
  7315. begin
  7316. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFF0FF or ( thebits shl 8 );
  7317. end;
  7318. function TRTCC_RTCDATE.getDAY01 : TBits_4; inline;
  7319. begin
  7320. getDAY01 := (pTDefRegMap(@Self)^.val and $00000F00) shr 8;
  7321. end;
  7322. procedure TRTCC_RTCDATE.setDAY10(thebits : TBits_4); inline;
  7323. begin
  7324. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF0FFF or ( thebits shl 12 );
  7325. end;
  7326. function TRTCC_RTCDATE.getDAY10 : TBits_4; inline;
  7327. begin
  7328. getDAY10 := (pTDefRegMap(@Self)^.val and $0000F000) shr 12;
  7329. end;
  7330. procedure TRTCC_RTCDATE.setMONTH01(thebits : TBits_4); inline;
  7331. begin
  7332. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFF0FFFF or ( thebits shl 16 );
  7333. end;
  7334. function TRTCC_RTCDATE.getMONTH01 : TBits_4; inline;
  7335. begin
  7336. getMONTH01 := (pTDefRegMap(@Self)^.val and $000F0000) shr 16;
  7337. end;
  7338. procedure TRTCC_RTCDATE.setMONTH10(thebits : TBits_4); inline;
  7339. begin
  7340. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF0FFFFF or ( thebits shl 20 );
  7341. end;
  7342. function TRTCC_RTCDATE.getMONTH10 : TBits_4; inline;
  7343. begin
  7344. getMONTH10 := (pTDefRegMap(@Self)^.val and $00F00000) shr 20;
  7345. end;
  7346. procedure TRTCC_RTCDATE.setYEAR01(thebits : TBits_4); inline;
  7347. begin
  7348. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $F0FFFFFF or ( thebits shl 24 );
  7349. end;
  7350. function TRTCC_RTCDATE.getYEAR01 : TBits_4; inline;
  7351. begin
  7352. getYEAR01 := (pTDefRegMap(@Self)^.val and $0F000000) shr 24;
  7353. end;
  7354. procedure TRTCC_RTCDATE.setYEAR10(thebits : TBits_4); inline;
  7355. begin
  7356. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $0FFFFFFF or ( thebits shl 28 );
  7357. end;
  7358. function TRTCC_RTCDATE.getYEAR10 : TBits_4; inline;
  7359. begin
  7360. getYEAR10 := (pTDefRegMap(@Self)^.val and $F0000000) shr 28;
  7361. end;
  7362. procedure TRTCC_RTCDATE.setw(thebits : TBits_32); inline;
  7363. begin
  7364. pTDefRegMap(@Self)^.val := thebits;
  7365. end;
  7366. function TRTCC_RTCDATE.getw : TBits_32; inline;
  7367. begin
  7368. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  7369. end;
  7370. procedure TRTCC_ALRMTIME.setSEC01(thebits : TBits_4); inline;
  7371. begin
  7372. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFF0FF or ( thebits shl 8 );
  7373. end;
  7374. function TRTCC_ALRMTIME.getSEC01 : TBits_4; inline;
  7375. begin
  7376. getSEC01 := (pTDefRegMap(@Self)^.val and $00000F00) shr 8;
  7377. end;
  7378. procedure TRTCC_ALRMTIME.setSEC10(thebits : TBits_4); inline;
  7379. begin
  7380. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF0FFF or ( thebits shl 12 );
  7381. end;
  7382. function TRTCC_ALRMTIME.getSEC10 : TBits_4; inline;
  7383. begin
  7384. getSEC10 := (pTDefRegMap(@Self)^.val and $0000F000) shr 12;
  7385. end;
  7386. procedure TRTCC_ALRMTIME.setMIN01(thebits : TBits_4); inline;
  7387. begin
  7388. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFF0FFFF or ( thebits shl 16 );
  7389. end;
  7390. function TRTCC_ALRMTIME.getMIN01 : TBits_4; inline;
  7391. begin
  7392. getMIN01 := (pTDefRegMap(@Self)^.val and $000F0000) shr 16;
  7393. end;
  7394. procedure TRTCC_ALRMTIME.setMIN10(thebits : TBits_4); inline;
  7395. begin
  7396. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF0FFFFF or ( thebits shl 20 );
  7397. end;
  7398. function TRTCC_ALRMTIME.getMIN10 : TBits_4; inline;
  7399. begin
  7400. getMIN10 := (pTDefRegMap(@Self)^.val and $00F00000) shr 20;
  7401. end;
  7402. procedure TRTCC_ALRMTIME.setHR01(thebits : TBits_4); inline;
  7403. begin
  7404. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $F0FFFFFF or ( thebits shl 24 );
  7405. end;
  7406. function TRTCC_ALRMTIME.getHR01 : TBits_4; inline;
  7407. begin
  7408. getHR01 := (pTDefRegMap(@Self)^.val and $0F000000) shr 24;
  7409. end;
  7410. procedure TRTCC_ALRMTIME.setHR10(thebits : TBits_4); inline;
  7411. begin
  7412. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $0FFFFFFF or ( thebits shl 28 );
  7413. end;
  7414. function TRTCC_ALRMTIME.getHR10 : TBits_4; inline;
  7415. begin
  7416. getHR10 := (pTDefRegMap(@Self)^.val and $F0000000) shr 28;
  7417. end;
  7418. procedure TRTCC_ALRMTIME.setw(thebits : TBits_32); inline;
  7419. begin
  7420. pTDefRegMap(@Self)^.val := thebits;
  7421. end;
  7422. function TRTCC_ALRMTIME.getw : TBits_32; inline;
  7423. begin
  7424. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  7425. end;
  7426. procedure TRTCC_ALRMDATE.setWDAY01(thebits : TBits_4); inline;
  7427. begin
  7428. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF0 or ( thebits shl 0 );
  7429. end;
  7430. function TRTCC_ALRMDATE.getWDAY01 : TBits_4; inline;
  7431. begin
  7432. getWDAY01 := (pTDefRegMap(@Self)^.val and $0000000F) shr 0;
  7433. end;
  7434. procedure TRTCC_ALRMDATE.setDAY01(thebits : TBits_4); inline;
  7435. begin
  7436. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFF0FF or ( thebits shl 8 );
  7437. end;
  7438. function TRTCC_ALRMDATE.getDAY01 : TBits_4; inline;
  7439. begin
  7440. getDAY01 := (pTDefRegMap(@Self)^.val and $00000F00) shr 8;
  7441. end;
  7442. procedure TRTCC_ALRMDATE.setDAY10(thebits : TBits_4); inline;
  7443. begin
  7444. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF0FFF or ( thebits shl 12 );
  7445. end;
  7446. function TRTCC_ALRMDATE.getDAY10 : TBits_4; inline;
  7447. begin
  7448. getDAY10 := (pTDefRegMap(@Self)^.val and $0000F000) shr 12;
  7449. end;
  7450. procedure TRTCC_ALRMDATE.setMONTH01(thebits : TBits_4); inline;
  7451. begin
  7452. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFF0FFFF or ( thebits shl 16 );
  7453. end;
  7454. function TRTCC_ALRMDATE.getMONTH01 : TBits_4; inline;
  7455. begin
  7456. getMONTH01 := (pTDefRegMap(@Self)^.val and $000F0000) shr 16;
  7457. end;
  7458. procedure TRTCC_ALRMDATE.setMONTH10(thebits : TBits_4); inline;
  7459. begin
  7460. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF0FFFFF or ( thebits shl 20 );
  7461. end;
  7462. function TRTCC_ALRMDATE.getMONTH10 : TBits_4; inline;
  7463. begin
  7464. getMONTH10 := (pTDefRegMap(@Self)^.val and $00F00000) shr 20;
  7465. end;
  7466. procedure TRTCC_ALRMDATE.setw(thebits : TBits_32); inline;
  7467. begin
  7468. pTDefRegMap(@Self)^.val := thebits;
  7469. end;
  7470. function TRTCC_ALRMDATE.getw : TBits_32; inline;
  7471. begin
  7472. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  7473. end;
  7474. procedure TTMR1_T1CON.setTCS; inline;
  7475. begin
  7476. pTDefRegMap(@Self)^.&set := $00000002;
  7477. end;
  7478. procedure TTMR1_T1CON.clearTCS; inline;
  7479. begin
  7480. pTDefRegMap(@Self)^.clr := $00000002;
  7481. end;
  7482. procedure TTMR1_T1CON.setTCS(thebits : TBits_1); inline;
  7483. begin
  7484. if thebits = 0 then
  7485. pTDefRegMap(@Self)^.clr := $00000002
  7486. else
  7487. pTDefRegMap(@Self)^.&set := $00000002;
  7488. end;
  7489. function TTMR1_T1CON.getTCS : TBits_1; inline;
  7490. begin
  7491. getTCS := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  7492. end;
  7493. procedure TTMR1_T1CON.setTSYNC; inline;
  7494. begin
  7495. pTDefRegMap(@Self)^.&set := $00000004;
  7496. end;
  7497. procedure TTMR1_T1CON.clearTSYNC; inline;
  7498. begin
  7499. pTDefRegMap(@Self)^.clr := $00000004;
  7500. end;
  7501. procedure TTMR1_T1CON.setTSYNC(thebits : TBits_1); inline;
  7502. begin
  7503. if thebits = 0 then
  7504. pTDefRegMap(@Self)^.clr := $00000004
  7505. else
  7506. pTDefRegMap(@Self)^.&set := $00000004;
  7507. end;
  7508. function TTMR1_T1CON.getTSYNC : TBits_1; inline;
  7509. begin
  7510. getTSYNC := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  7511. end;
  7512. procedure TTMR1_T1CON.setTCKPS(thebits : TBits_2); inline;
  7513. begin
  7514. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFCF or ( thebits shl 4 );
  7515. end;
  7516. function TTMR1_T1CON.getTCKPS : TBits_2; inline;
  7517. begin
  7518. getTCKPS := (pTDefRegMap(@Self)^.val and $00000030) shr 4;
  7519. end;
  7520. procedure TTMR1_T1CON.setTGATE; inline;
  7521. begin
  7522. pTDefRegMap(@Self)^.&set := $00000080;
  7523. end;
  7524. procedure TTMR1_T1CON.clearTGATE; inline;
  7525. begin
  7526. pTDefRegMap(@Self)^.clr := $00000080;
  7527. end;
  7528. procedure TTMR1_T1CON.setTGATE(thebits : TBits_1); inline;
  7529. begin
  7530. if thebits = 0 then
  7531. pTDefRegMap(@Self)^.clr := $00000080
  7532. else
  7533. pTDefRegMap(@Self)^.&set := $00000080;
  7534. end;
  7535. function TTMR1_T1CON.getTGATE : TBits_1; inline;
  7536. begin
  7537. getTGATE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  7538. end;
  7539. procedure TTMR1_T1CON.setTWIP; inline;
  7540. begin
  7541. pTDefRegMap(@Self)^.&set := $00000800;
  7542. end;
  7543. procedure TTMR1_T1CON.clearTWIP; inline;
  7544. begin
  7545. pTDefRegMap(@Self)^.clr := $00000800;
  7546. end;
  7547. procedure TTMR1_T1CON.setTWIP(thebits : TBits_1); inline;
  7548. begin
  7549. if thebits = 0 then
  7550. pTDefRegMap(@Self)^.clr := $00000800
  7551. else
  7552. pTDefRegMap(@Self)^.&set := $00000800;
  7553. end;
  7554. function TTMR1_T1CON.getTWIP : TBits_1; inline;
  7555. begin
  7556. getTWIP := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  7557. end;
  7558. procedure TTMR1_T1CON.setTWDIS; inline;
  7559. begin
  7560. pTDefRegMap(@Self)^.&set := $00001000;
  7561. end;
  7562. procedure TTMR1_T1CON.clearTWDIS; inline;
  7563. begin
  7564. pTDefRegMap(@Self)^.clr := $00001000;
  7565. end;
  7566. procedure TTMR1_T1CON.setTWDIS(thebits : TBits_1); inline;
  7567. begin
  7568. if thebits = 0 then
  7569. pTDefRegMap(@Self)^.clr := $00001000
  7570. else
  7571. pTDefRegMap(@Self)^.&set := $00001000;
  7572. end;
  7573. function TTMR1_T1CON.getTWDIS : TBits_1; inline;
  7574. begin
  7575. getTWDIS := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  7576. end;
  7577. procedure TTMR1_T1CON.setSIDL; inline;
  7578. begin
  7579. pTDefRegMap(@Self)^.&set := $00002000;
  7580. end;
  7581. procedure TTMR1_T1CON.clearSIDL; inline;
  7582. begin
  7583. pTDefRegMap(@Self)^.clr := $00002000;
  7584. end;
  7585. procedure TTMR1_T1CON.setSIDL(thebits : TBits_1); inline;
  7586. begin
  7587. if thebits = 0 then
  7588. pTDefRegMap(@Self)^.clr := $00002000
  7589. else
  7590. pTDefRegMap(@Self)^.&set := $00002000;
  7591. end;
  7592. function TTMR1_T1CON.getSIDL : TBits_1; inline;
  7593. begin
  7594. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  7595. end;
  7596. procedure TTMR1_T1CON.setON; inline;
  7597. begin
  7598. pTDefRegMap(@Self)^.&set := $00008000;
  7599. end;
  7600. procedure TTMR1_T1CON.clearON; inline;
  7601. begin
  7602. pTDefRegMap(@Self)^.clr := $00008000;
  7603. end;
  7604. procedure TTMR1_T1CON.setON(thebits : TBits_1); inline;
  7605. begin
  7606. if thebits = 0 then
  7607. pTDefRegMap(@Self)^.clr := $00008000
  7608. else
  7609. pTDefRegMap(@Self)^.&set := $00008000;
  7610. end;
  7611. function TTMR1_T1CON.getON : TBits_1; inline;
  7612. begin
  7613. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  7614. end;
  7615. procedure TTMR1_T1CON.setTCKPS0; inline;
  7616. begin
  7617. pTDefRegMap(@Self)^.&set := $00000010;
  7618. end;
  7619. procedure TTMR1_T1CON.clearTCKPS0; inline;
  7620. begin
  7621. pTDefRegMap(@Self)^.clr := $00000010;
  7622. end;
  7623. procedure TTMR1_T1CON.setTCKPS0(thebits : TBits_1); inline;
  7624. begin
  7625. if thebits = 0 then
  7626. pTDefRegMap(@Self)^.clr := $00000010
  7627. else
  7628. pTDefRegMap(@Self)^.&set := $00000010;
  7629. end;
  7630. function TTMR1_T1CON.getTCKPS0 : TBits_1; inline;
  7631. begin
  7632. getTCKPS0 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  7633. end;
  7634. procedure TTMR1_T1CON.setTCKPS1; inline;
  7635. begin
  7636. pTDefRegMap(@Self)^.&set := $00000020;
  7637. end;
  7638. procedure TTMR1_T1CON.clearTCKPS1; inline;
  7639. begin
  7640. pTDefRegMap(@Self)^.clr := $00000020;
  7641. end;
  7642. procedure TTMR1_T1CON.setTCKPS1(thebits : TBits_1); inline;
  7643. begin
  7644. if thebits = 0 then
  7645. pTDefRegMap(@Self)^.clr := $00000020
  7646. else
  7647. pTDefRegMap(@Self)^.&set := $00000020;
  7648. end;
  7649. function TTMR1_T1CON.getTCKPS1 : TBits_1; inline;
  7650. begin
  7651. getTCKPS1 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  7652. end;
  7653. procedure TTMR1_T1CON.setTSIDL; inline;
  7654. begin
  7655. pTDefRegMap(@Self)^.&set := $00002000;
  7656. end;
  7657. procedure TTMR1_T1CON.clearTSIDL; inline;
  7658. begin
  7659. pTDefRegMap(@Self)^.clr := $00002000;
  7660. end;
  7661. procedure TTMR1_T1CON.setTSIDL(thebits : TBits_1); inline;
  7662. begin
  7663. if thebits = 0 then
  7664. pTDefRegMap(@Self)^.clr := $00002000
  7665. else
  7666. pTDefRegMap(@Self)^.&set := $00002000;
  7667. end;
  7668. function TTMR1_T1CON.getTSIDL : TBits_1; inline;
  7669. begin
  7670. getTSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  7671. end;
  7672. procedure TTMR1_T1CON.setTON; inline;
  7673. begin
  7674. pTDefRegMap(@Self)^.&set := $00008000;
  7675. end;
  7676. procedure TTMR1_T1CON.clearTON; inline;
  7677. begin
  7678. pTDefRegMap(@Self)^.clr := $00008000;
  7679. end;
  7680. procedure TTMR1_T1CON.setTON(thebits : TBits_1); inline;
  7681. begin
  7682. if thebits = 0 then
  7683. pTDefRegMap(@Self)^.clr := $00008000
  7684. else
  7685. pTDefRegMap(@Self)^.&set := $00008000;
  7686. end;
  7687. function TTMR1_T1CON.getTON : TBits_1; inline;
  7688. begin
  7689. getTON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  7690. end;
  7691. procedure TTMR1_T1CON.setw(thebits : TBits_32); inline;
  7692. begin
  7693. pTDefRegMap(@Self)^.val := thebits;
  7694. end;
  7695. function TTMR1_T1CON.getw : TBits_32; inline;
  7696. begin
  7697. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  7698. end;
  7699. procedure TTMR2_T2CON.setTCS; inline;
  7700. begin
  7701. pTDefRegMap(@Self)^.&set := $00000002;
  7702. end;
  7703. procedure TTMR2_T2CON.clearTCS; inline;
  7704. begin
  7705. pTDefRegMap(@Self)^.clr := $00000002;
  7706. end;
  7707. procedure TTMR2_T2CON.setTCS(thebits : TBits_1); inline;
  7708. begin
  7709. if thebits = 0 then
  7710. pTDefRegMap(@Self)^.clr := $00000002
  7711. else
  7712. pTDefRegMap(@Self)^.&set := $00000002;
  7713. end;
  7714. function TTMR2_T2CON.getTCS : TBits_1; inline;
  7715. begin
  7716. getTCS := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  7717. end;
  7718. procedure TTMR2_T2CON.setT32; inline;
  7719. begin
  7720. pTDefRegMap(@Self)^.&set := $00000008;
  7721. end;
  7722. procedure TTMR2_T2CON.clearT32; inline;
  7723. begin
  7724. pTDefRegMap(@Self)^.clr := $00000008;
  7725. end;
  7726. procedure TTMR2_T2CON.setT32(thebits : TBits_1); inline;
  7727. begin
  7728. if thebits = 0 then
  7729. pTDefRegMap(@Self)^.clr := $00000008
  7730. else
  7731. pTDefRegMap(@Self)^.&set := $00000008;
  7732. end;
  7733. function TTMR2_T2CON.getT32 : TBits_1; inline;
  7734. begin
  7735. getT32 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  7736. end;
  7737. procedure TTMR2_T2CON.setTCKPS(thebits : TBits_3); inline;
  7738. begin
  7739. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF8F or ( thebits shl 4 );
  7740. end;
  7741. function TTMR2_T2CON.getTCKPS : TBits_3; inline;
  7742. begin
  7743. getTCKPS := (pTDefRegMap(@Self)^.val and $00000070) shr 4;
  7744. end;
  7745. procedure TTMR2_T2CON.setTGATE; inline;
  7746. begin
  7747. pTDefRegMap(@Self)^.&set := $00000080;
  7748. end;
  7749. procedure TTMR2_T2CON.clearTGATE; inline;
  7750. begin
  7751. pTDefRegMap(@Self)^.clr := $00000080;
  7752. end;
  7753. procedure TTMR2_T2CON.setTGATE(thebits : TBits_1); inline;
  7754. begin
  7755. if thebits = 0 then
  7756. pTDefRegMap(@Self)^.clr := $00000080
  7757. else
  7758. pTDefRegMap(@Self)^.&set := $00000080;
  7759. end;
  7760. function TTMR2_T2CON.getTGATE : TBits_1; inline;
  7761. begin
  7762. getTGATE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  7763. end;
  7764. procedure TTMR2_T2CON.setSIDL; inline;
  7765. begin
  7766. pTDefRegMap(@Self)^.&set := $00002000;
  7767. end;
  7768. procedure TTMR2_T2CON.clearSIDL; inline;
  7769. begin
  7770. pTDefRegMap(@Self)^.clr := $00002000;
  7771. end;
  7772. procedure TTMR2_T2CON.setSIDL(thebits : TBits_1); inline;
  7773. begin
  7774. if thebits = 0 then
  7775. pTDefRegMap(@Self)^.clr := $00002000
  7776. else
  7777. pTDefRegMap(@Self)^.&set := $00002000;
  7778. end;
  7779. function TTMR2_T2CON.getSIDL : TBits_1; inline;
  7780. begin
  7781. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  7782. end;
  7783. procedure TTMR2_T2CON.setON; inline;
  7784. begin
  7785. pTDefRegMap(@Self)^.&set := $00008000;
  7786. end;
  7787. procedure TTMR2_T2CON.clearON; inline;
  7788. begin
  7789. pTDefRegMap(@Self)^.clr := $00008000;
  7790. end;
  7791. procedure TTMR2_T2CON.setON(thebits : TBits_1); inline;
  7792. begin
  7793. if thebits = 0 then
  7794. pTDefRegMap(@Self)^.clr := $00008000
  7795. else
  7796. pTDefRegMap(@Self)^.&set := $00008000;
  7797. end;
  7798. function TTMR2_T2CON.getON : TBits_1; inline;
  7799. begin
  7800. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  7801. end;
  7802. procedure TTMR2_T2CON.setTCKPS0; inline;
  7803. begin
  7804. pTDefRegMap(@Self)^.&set := $00000010;
  7805. end;
  7806. procedure TTMR2_T2CON.clearTCKPS0; inline;
  7807. begin
  7808. pTDefRegMap(@Self)^.clr := $00000010;
  7809. end;
  7810. procedure TTMR2_T2CON.setTCKPS0(thebits : TBits_1); inline;
  7811. begin
  7812. if thebits = 0 then
  7813. pTDefRegMap(@Self)^.clr := $00000010
  7814. else
  7815. pTDefRegMap(@Self)^.&set := $00000010;
  7816. end;
  7817. function TTMR2_T2CON.getTCKPS0 : TBits_1; inline;
  7818. begin
  7819. getTCKPS0 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  7820. end;
  7821. procedure TTMR2_T2CON.setTCKPS1; inline;
  7822. begin
  7823. pTDefRegMap(@Self)^.&set := $00000020;
  7824. end;
  7825. procedure TTMR2_T2CON.clearTCKPS1; inline;
  7826. begin
  7827. pTDefRegMap(@Self)^.clr := $00000020;
  7828. end;
  7829. procedure TTMR2_T2CON.setTCKPS1(thebits : TBits_1); inline;
  7830. begin
  7831. if thebits = 0 then
  7832. pTDefRegMap(@Self)^.clr := $00000020
  7833. else
  7834. pTDefRegMap(@Self)^.&set := $00000020;
  7835. end;
  7836. function TTMR2_T2CON.getTCKPS1 : TBits_1; inline;
  7837. begin
  7838. getTCKPS1 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  7839. end;
  7840. procedure TTMR2_T2CON.setTCKPS2; inline;
  7841. begin
  7842. pTDefRegMap(@Self)^.&set := $00000040;
  7843. end;
  7844. procedure TTMR2_T2CON.clearTCKPS2; inline;
  7845. begin
  7846. pTDefRegMap(@Self)^.clr := $00000040;
  7847. end;
  7848. procedure TTMR2_T2CON.setTCKPS2(thebits : TBits_1); inline;
  7849. begin
  7850. if thebits = 0 then
  7851. pTDefRegMap(@Self)^.clr := $00000040
  7852. else
  7853. pTDefRegMap(@Self)^.&set := $00000040;
  7854. end;
  7855. function TTMR2_T2CON.getTCKPS2 : TBits_1; inline;
  7856. begin
  7857. getTCKPS2 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  7858. end;
  7859. procedure TTMR2_T2CON.setTSIDL; inline;
  7860. begin
  7861. pTDefRegMap(@Self)^.&set := $00002000;
  7862. end;
  7863. procedure TTMR2_T2CON.clearTSIDL; inline;
  7864. begin
  7865. pTDefRegMap(@Self)^.clr := $00002000;
  7866. end;
  7867. procedure TTMR2_T2CON.setTSIDL(thebits : TBits_1); inline;
  7868. begin
  7869. if thebits = 0 then
  7870. pTDefRegMap(@Self)^.clr := $00002000
  7871. else
  7872. pTDefRegMap(@Self)^.&set := $00002000;
  7873. end;
  7874. function TTMR2_T2CON.getTSIDL : TBits_1; inline;
  7875. begin
  7876. getTSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  7877. end;
  7878. procedure TTMR2_T2CON.setTON; inline;
  7879. begin
  7880. pTDefRegMap(@Self)^.&set := $00008000;
  7881. end;
  7882. procedure TTMR2_T2CON.clearTON; inline;
  7883. begin
  7884. pTDefRegMap(@Self)^.clr := $00008000;
  7885. end;
  7886. procedure TTMR2_T2CON.setTON(thebits : TBits_1); inline;
  7887. begin
  7888. if thebits = 0 then
  7889. pTDefRegMap(@Self)^.clr := $00008000
  7890. else
  7891. pTDefRegMap(@Self)^.&set := $00008000;
  7892. end;
  7893. function TTMR2_T2CON.getTON : TBits_1; inline;
  7894. begin
  7895. getTON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  7896. end;
  7897. procedure TTMR2_T2CON.setw(thebits : TBits_32); inline;
  7898. begin
  7899. pTDefRegMap(@Self)^.val := thebits;
  7900. end;
  7901. function TTMR2_T2CON.getw : TBits_32; inline;
  7902. begin
  7903. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  7904. end;
  7905. procedure TTMR3_T3CON.setTCS; inline;
  7906. begin
  7907. pTDefRegMap(@Self)^.&set := $00000002;
  7908. end;
  7909. procedure TTMR3_T3CON.clearTCS; inline;
  7910. begin
  7911. pTDefRegMap(@Self)^.clr := $00000002;
  7912. end;
  7913. procedure TTMR3_T3CON.setTCS(thebits : TBits_1); inline;
  7914. begin
  7915. if thebits = 0 then
  7916. pTDefRegMap(@Self)^.clr := $00000002
  7917. else
  7918. pTDefRegMap(@Self)^.&set := $00000002;
  7919. end;
  7920. function TTMR3_T3CON.getTCS : TBits_1; inline;
  7921. begin
  7922. getTCS := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  7923. end;
  7924. procedure TTMR3_T3CON.setTCKPS(thebits : TBits_3); inline;
  7925. begin
  7926. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF8F or ( thebits shl 4 );
  7927. end;
  7928. function TTMR3_T3CON.getTCKPS : TBits_3; inline;
  7929. begin
  7930. getTCKPS := (pTDefRegMap(@Self)^.val and $00000070) shr 4;
  7931. end;
  7932. procedure TTMR3_T3CON.setTGATE; inline;
  7933. begin
  7934. pTDefRegMap(@Self)^.&set := $00000080;
  7935. end;
  7936. procedure TTMR3_T3CON.clearTGATE; inline;
  7937. begin
  7938. pTDefRegMap(@Self)^.clr := $00000080;
  7939. end;
  7940. procedure TTMR3_T3CON.setTGATE(thebits : TBits_1); inline;
  7941. begin
  7942. if thebits = 0 then
  7943. pTDefRegMap(@Self)^.clr := $00000080
  7944. else
  7945. pTDefRegMap(@Self)^.&set := $00000080;
  7946. end;
  7947. function TTMR3_T3CON.getTGATE : TBits_1; inline;
  7948. begin
  7949. getTGATE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  7950. end;
  7951. procedure TTMR3_T3CON.setSIDL; inline;
  7952. begin
  7953. pTDefRegMap(@Self)^.&set := $00002000;
  7954. end;
  7955. procedure TTMR3_T3CON.clearSIDL; inline;
  7956. begin
  7957. pTDefRegMap(@Self)^.clr := $00002000;
  7958. end;
  7959. procedure TTMR3_T3CON.setSIDL(thebits : TBits_1); inline;
  7960. begin
  7961. if thebits = 0 then
  7962. pTDefRegMap(@Self)^.clr := $00002000
  7963. else
  7964. pTDefRegMap(@Self)^.&set := $00002000;
  7965. end;
  7966. function TTMR3_T3CON.getSIDL : TBits_1; inline;
  7967. begin
  7968. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  7969. end;
  7970. procedure TTMR3_T3CON.setON; inline;
  7971. begin
  7972. pTDefRegMap(@Self)^.&set := $00008000;
  7973. end;
  7974. procedure TTMR3_T3CON.clearON; inline;
  7975. begin
  7976. pTDefRegMap(@Self)^.clr := $00008000;
  7977. end;
  7978. procedure TTMR3_T3CON.setON(thebits : TBits_1); inline;
  7979. begin
  7980. if thebits = 0 then
  7981. pTDefRegMap(@Self)^.clr := $00008000
  7982. else
  7983. pTDefRegMap(@Self)^.&set := $00008000;
  7984. end;
  7985. function TTMR3_T3CON.getON : TBits_1; inline;
  7986. begin
  7987. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  7988. end;
  7989. procedure TTMR3_T3CON.setTCKPS0; inline;
  7990. begin
  7991. pTDefRegMap(@Self)^.&set := $00000010;
  7992. end;
  7993. procedure TTMR3_T3CON.clearTCKPS0; inline;
  7994. begin
  7995. pTDefRegMap(@Self)^.clr := $00000010;
  7996. end;
  7997. procedure TTMR3_T3CON.setTCKPS0(thebits : TBits_1); inline;
  7998. begin
  7999. if thebits = 0 then
  8000. pTDefRegMap(@Self)^.clr := $00000010
  8001. else
  8002. pTDefRegMap(@Self)^.&set := $00000010;
  8003. end;
  8004. function TTMR3_T3CON.getTCKPS0 : TBits_1; inline;
  8005. begin
  8006. getTCKPS0 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  8007. end;
  8008. procedure TTMR3_T3CON.setTCKPS1; inline;
  8009. begin
  8010. pTDefRegMap(@Self)^.&set := $00000020;
  8011. end;
  8012. procedure TTMR3_T3CON.clearTCKPS1; inline;
  8013. begin
  8014. pTDefRegMap(@Self)^.clr := $00000020;
  8015. end;
  8016. procedure TTMR3_T3CON.setTCKPS1(thebits : TBits_1); inline;
  8017. begin
  8018. if thebits = 0 then
  8019. pTDefRegMap(@Self)^.clr := $00000020
  8020. else
  8021. pTDefRegMap(@Self)^.&set := $00000020;
  8022. end;
  8023. function TTMR3_T3CON.getTCKPS1 : TBits_1; inline;
  8024. begin
  8025. getTCKPS1 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  8026. end;
  8027. procedure TTMR3_T3CON.setTCKPS2; inline;
  8028. begin
  8029. pTDefRegMap(@Self)^.&set := $00000040;
  8030. end;
  8031. procedure TTMR3_T3CON.clearTCKPS2; inline;
  8032. begin
  8033. pTDefRegMap(@Self)^.clr := $00000040;
  8034. end;
  8035. procedure TTMR3_T3CON.setTCKPS2(thebits : TBits_1); inline;
  8036. begin
  8037. if thebits = 0 then
  8038. pTDefRegMap(@Self)^.clr := $00000040
  8039. else
  8040. pTDefRegMap(@Self)^.&set := $00000040;
  8041. end;
  8042. function TTMR3_T3CON.getTCKPS2 : TBits_1; inline;
  8043. begin
  8044. getTCKPS2 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  8045. end;
  8046. procedure TTMR3_T3CON.setTSIDL; inline;
  8047. begin
  8048. pTDefRegMap(@Self)^.&set := $00002000;
  8049. end;
  8050. procedure TTMR3_T3CON.clearTSIDL; inline;
  8051. begin
  8052. pTDefRegMap(@Self)^.clr := $00002000;
  8053. end;
  8054. procedure TTMR3_T3CON.setTSIDL(thebits : TBits_1); inline;
  8055. begin
  8056. if thebits = 0 then
  8057. pTDefRegMap(@Self)^.clr := $00002000
  8058. else
  8059. pTDefRegMap(@Self)^.&set := $00002000;
  8060. end;
  8061. function TTMR3_T3CON.getTSIDL : TBits_1; inline;
  8062. begin
  8063. getTSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  8064. end;
  8065. procedure TTMR3_T3CON.setTON; inline;
  8066. begin
  8067. pTDefRegMap(@Self)^.&set := $00008000;
  8068. end;
  8069. procedure TTMR3_T3CON.clearTON; inline;
  8070. begin
  8071. pTDefRegMap(@Self)^.clr := $00008000;
  8072. end;
  8073. procedure TTMR3_T3CON.setTON(thebits : TBits_1); inline;
  8074. begin
  8075. if thebits = 0 then
  8076. pTDefRegMap(@Self)^.clr := $00008000
  8077. else
  8078. pTDefRegMap(@Self)^.&set := $00008000;
  8079. end;
  8080. function TTMR3_T3CON.getTON : TBits_1; inline;
  8081. begin
  8082. getTON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  8083. end;
  8084. procedure TTMR3_T3CON.setw(thebits : TBits_32); inline;
  8085. begin
  8086. pTDefRegMap(@Self)^.val := thebits;
  8087. end;
  8088. function TTMR3_T3CON.getw : TBits_32; inline;
  8089. begin
  8090. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  8091. end;
  8092. procedure TTMR4_T4CON.setTCS; inline;
  8093. begin
  8094. pTDefRegMap(@Self)^.&set := $00000002;
  8095. end;
  8096. procedure TTMR4_T4CON.clearTCS; inline;
  8097. begin
  8098. pTDefRegMap(@Self)^.clr := $00000002;
  8099. end;
  8100. procedure TTMR4_T4CON.setTCS(thebits : TBits_1); inline;
  8101. begin
  8102. if thebits = 0 then
  8103. pTDefRegMap(@Self)^.clr := $00000002
  8104. else
  8105. pTDefRegMap(@Self)^.&set := $00000002;
  8106. end;
  8107. function TTMR4_T4CON.getTCS : TBits_1; inline;
  8108. begin
  8109. getTCS := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  8110. end;
  8111. procedure TTMR4_T4CON.setT32; inline;
  8112. begin
  8113. pTDefRegMap(@Self)^.&set := $00000008;
  8114. end;
  8115. procedure TTMR4_T4CON.clearT32; inline;
  8116. begin
  8117. pTDefRegMap(@Self)^.clr := $00000008;
  8118. end;
  8119. procedure TTMR4_T4CON.setT32(thebits : TBits_1); inline;
  8120. begin
  8121. if thebits = 0 then
  8122. pTDefRegMap(@Self)^.clr := $00000008
  8123. else
  8124. pTDefRegMap(@Self)^.&set := $00000008;
  8125. end;
  8126. function TTMR4_T4CON.getT32 : TBits_1; inline;
  8127. begin
  8128. getT32 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  8129. end;
  8130. procedure TTMR4_T4CON.setTCKPS(thebits : TBits_3); inline;
  8131. begin
  8132. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF8F or ( thebits shl 4 );
  8133. end;
  8134. function TTMR4_T4CON.getTCKPS : TBits_3; inline;
  8135. begin
  8136. getTCKPS := (pTDefRegMap(@Self)^.val and $00000070) shr 4;
  8137. end;
  8138. procedure TTMR4_T4CON.setTGATE; inline;
  8139. begin
  8140. pTDefRegMap(@Self)^.&set := $00000080;
  8141. end;
  8142. procedure TTMR4_T4CON.clearTGATE; inline;
  8143. begin
  8144. pTDefRegMap(@Self)^.clr := $00000080;
  8145. end;
  8146. procedure TTMR4_T4CON.setTGATE(thebits : TBits_1); inline;
  8147. begin
  8148. if thebits = 0 then
  8149. pTDefRegMap(@Self)^.clr := $00000080
  8150. else
  8151. pTDefRegMap(@Self)^.&set := $00000080;
  8152. end;
  8153. function TTMR4_T4CON.getTGATE : TBits_1; inline;
  8154. begin
  8155. getTGATE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  8156. end;
  8157. procedure TTMR4_T4CON.setSIDL; inline;
  8158. begin
  8159. pTDefRegMap(@Self)^.&set := $00002000;
  8160. end;
  8161. procedure TTMR4_T4CON.clearSIDL; inline;
  8162. begin
  8163. pTDefRegMap(@Self)^.clr := $00002000;
  8164. end;
  8165. procedure TTMR4_T4CON.setSIDL(thebits : TBits_1); inline;
  8166. begin
  8167. if thebits = 0 then
  8168. pTDefRegMap(@Self)^.clr := $00002000
  8169. else
  8170. pTDefRegMap(@Self)^.&set := $00002000;
  8171. end;
  8172. function TTMR4_T4CON.getSIDL : TBits_1; inline;
  8173. begin
  8174. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  8175. end;
  8176. procedure TTMR4_T4CON.setON; inline;
  8177. begin
  8178. pTDefRegMap(@Self)^.&set := $00008000;
  8179. end;
  8180. procedure TTMR4_T4CON.clearON; inline;
  8181. begin
  8182. pTDefRegMap(@Self)^.clr := $00008000;
  8183. end;
  8184. procedure TTMR4_T4CON.setON(thebits : TBits_1); inline;
  8185. begin
  8186. if thebits = 0 then
  8187. pTDefRegMap(@Self)^.clr := $00008000
  8188. else
  8189. pTDefRegMap(@Self)^.&set := $00008000;
  8190. end;
  8191. function TTMR4_T4CON.getON : TBits_1; inline;
  8192. begin
  8193. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  8194. end;
  8195. procedure TTMR4_T4CON.setTCKPS0; inline;
  8196. begin
  8197. pTDefRegMap(@Self)^.&set := $00000010;
  8198. end;
  8199. procedure TTMR4_T4CON.clearTCKPS0; inline;
  8200. begin
  8201. pTDefRegMap(@Self)^.clr := $00000010;
  8202. end;
  8203. procedure TTMR4_T4CON.setTCKPS0(thebits : TBits_1); inline;
  8204. begin
  8205. if thebits = 0 then
  8206. pTDefRegMap(@Self)^.clr := $00000010
  8207. else
  8208. pTDefRegMap(@Self)^.&set := $00000010;
  8209. end;
  8210. function TTMR4_T4CON.getTCKPS0 : TBits_1; inline;
  8211. begin
  8212. getTCKPS0 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  8213. end;
  8214. procedure TTMR4_T4CON.setTCKPS1; inline;
  8215. begin
  8216. pTDefRegMap(@Self)^.&set := $00000020;
  8217. end;
  8218. procedure TTMR4_T4CON.clearTCKPS1; inline;
  8219. begin
  8220. pTDefRegMap(@Self)^.clr := $00000020;
  8221. end;
  8222. procedure TTMR4_T4CON.setTCKPS1(thebits : TBits_1); inline;
  8223. begin
  8224. if thebits = 0 then
  8225. pTDefRegMap(@Self)^.clr := $00000020
  8226. else
  8227. pTDefRegMap(@Self)^.&set := $00000020;
  8228. end;
  8229. function TTMR4_T4CON.getTCKPS1 : TBits_1; inline;
  8230. begin
  8231. getTCKPS1 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  8232. end;
  8233. procedure TTMR4_T4CON.setTCKPS2; inline;
  8234. begin
  8235. pTDefRegMap(@Self)^.&set := $00000040;
  8236. end;
  8237. procedure TTMR4_T4CON.clearTCKPS2; inline;
  8238. begin
  8239. pTDefRegMap(@Self)^.clr := $00000040;
  8240. end;
  8241. procedure TTMR4_T4CON.setTCKPS2(thebits : TBits_1); inline;
  8242. begin
  8243. if thebits = 0 then
  8244. pTDefRegMap(@Self)^.clr := $00000040
  8245. else
  8246. pTDefRegMap(@Self)^.&set := $00000040;
  8247. end;
  8248. function TTMR4_T4CON.getTCKPS2 : TBits_1; inline;
  8249. begin
  8250. getTCKPS2 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  8251. end;
  8252. procedure TTMR4_T4CON.setTSIDL; inline;
  8253. begin
  8254. pTDefRegMap(@Self)^.&set := $00002000;
  8255. end;
  8256. procedure TTMR4_T4CON.clearTSIDL; inline;
  8257. begin
  8258. pTDefRegMap(@Self)^.clr := $00002000;
  8259. end;
  8260. procedure TTMR4_T4CON.setTSIDL(thebits : TBits_1); inline;
  8261. begin
  8262. if thebits = 0 then
  8263. pTDefRegMap(@Self)^.clr := $00002000
  8264. else
  8265. pTDefRegMap(@Self)^.&set := $00002000;
  8266. end;
  8267. function TTMR4_T4CON.getTSIDL : TBits_1; inline;
  8268. begin
  8269. getTSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  8270. end;
  8271. procedure TTMR4_T4CON.setTON; inline;
  8272. begin
  8273. pTDefRegMap(@Self)^.&set := $00008000;
  8274. end;
  8275. procedure TTMR4_T4CON.clearTON; inline;
  8276. begin
  8277. pTDefRegMap(@Self)^.clr := $00008000;
  8278. end;
  8279. procedure TTMR4_T4CON.setTON(thebits : TBits_1); inline;
  8280. begin
  8281. if thebits = 0 then
  8282. pTDefRegMap(@Self)^.clr := $00008000
  8283. else
  8284. pTDefRegMap(@Self)^.&set := $00008000;
  8285. end;
  8286. function TTMR4_T4CON.getTON : TBits_1; inline;
  8287. begin
  8288. getTON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  8289. end;
  8290. procedure TTMR4_T4CON.setw(thebits : TBits_32); inline;
  8291. begin
  8292. pTDefRegMap(@Self)^.val := thebits;
  8293. end;
  8294. function TTMR4_T4CON.getw : TBits_32; inline;
  8295. begin
  8296. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  8297. end;
  8298. procedure TTMR5_T5CON.setTCS; inline;
  8299. begin
  8300. pTDefRegMap(@Self)^.&set := $00000002;
  8301. end;
  8302. procedure TTMR5_T5CON.clearTCS; inline;
  8303. begin
  8304. pTDefRegMap(@Self)^.clr := $00000002;
  8305. end;
  8306. procedure TTMR5_T5CON.setTCS(thebits : TBits_1); inline;
  8307. begin
  8308. if thebits = 0 then
  8309. pTDefRegMap(@Self)^.clr := $00000002
  8310. else
  8311. pTDefRegMap(@Self)^.&set := $00000002;
  8312. end;
  8313. function TTMR5_T5CON.getTCS : TBits_1; inline;
  8314. begin
  8315. getTCS := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  8316. end;
  8317. procedure TTMR5_T5CON.setTCKPS(thebits : TBits_3); inline;
  8318. begin
  8319. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF8F or ( thebits shl 4 );
  8320. end;
  8321. function TTMR5_T5CON.getTCKPS : TBits_3; inline;
  8322. begin
  8323. getTCKPS := (pTDefRegMap(@Self)^.val and $00000070) shr 4;
  8324. end;
  8325. procedure TTMR5_T5CON.setTGATE; inline;
  8326. begin
  8327. pTDefRegMap(@Self)^.&set := $00000080;
  8328. end;
  8329. procedure TTMR5_T5CON.clearTGATE; inline;
  8330. begin
  8331. pTDefRegMap(@Self)^.clr := $00000080;
  8332. end;
  8333. procedure TTMR5_T5CON.setTGATE(thebits : TBits_1); inline;
  8334. begin
  8335. if thebits = 0 then
  8336. pTDefRegMap(@Self)^.clr := $00000080
  8337. else
  8338. pTDefRegMap(@Self)^.&set := $00000080;
  8339. end;
  8340. function TTMR5_T5CON.getTGATE : TBits_1; inline;
  8341. begin
  8342. getTGATE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  8343. end;
  8344. procedure TTMR5_T5CON.setSIDL; inline;
  8345. begin
  8346. pTDefRegMap(@Self)^.&set := $00002000;
  8347. end;
  8348. procedure TTMR5_T5CON.clearSIDL; inline;
  8349. begin
  8350. pTDefRegMap(@Self)^.clr := $00002000;
  8351. end;
  8352. procedure TTMR5_T5CON.setSIDL(thebits : TBits_1); inline;
  8353. begin
  8354. if thebits = 0 then
  8355. pTDefRegMap(@Self)^.clr := $00002000
  8356. else
  8357. pTDefRegMap(@Self)^.&set := $00002000;
  8358. end;
  8359. function TTMR5_T5CON.getSIDL : TBits_1; inline;
  8360. begin
  8361. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  8362. end;
  8363. procedure TTMR5_T5CON.setON; inline;
  8364. begin
  8365. pTDefRegMap(@Self)^.&set := $00008000;
  8366. end;
  8367. procedure TTMR5_T5CON.clearON; inline;
  8368. begin
  8369. pTDefRegMap(@Self)^.clr := $00008000;
  8370. end;
  8371. procedure TTMR5_T5CON.setON(thebits : TBits_1); inline;
  8372. begin
  8373. if thebits = 0 then
  8374. pTDefRegMap(@Self)^.clr := $00008000
  8375. else
  8376. pTDefRegMap(@Self)^.&set := $00008000;
  8377. end;
  8378. function TTMR5_T5CON.getON : TBits_1; inline;
  8379. begin
  8380. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  8381. end;
  8382. procedure TTMR5_T5CON.setTCKPS0; inline;
  8383. begin
  8384. pTDefRegMap(@Self)^.&set := $00000010;
  8385. end;
  8386. procedure TTMR5_T5CON.clearTCKPS0; inline;
  8387. begin
  8388. pTDefRegMap(@Self)^.clr := $00000010;
  8389. end;
  8390. procedure TTMR5_T5CON.setTCKPS0(thebits : TBits_1); inline;
  8391. begin
  8392. if thebits = 0 then
  8393. pTDefRegMap(@Self)^.clr := $00000010
  8394. else
  8395. pTDefRegMap(@Self)^.&set := $00000010;
  8396. end;
  8397. function TTMR5_T5CON.getTCKPS0 : TBits_1; inline;
  8398. begin
  8399. getTCKPS0 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  8400. end;
  8401. procedure TTMR5_T5CON.setTCKPS1; inline;
  8402. begin
  8403. pTDefRegMap(@Self)^.&set := $00000020;
  8404. end;
  8405. procedure TTMR5_T5CON.clearTCKPS1; inline;
  8406. begin
  8407. pTDefRegMap(@Self)^.clr := $00000020;
  8408. end;
  8409. procedure TTMR5_T5CON.setTCKPS1(thebits : TBits_1); inline;
  8410. begin
  8411. if thebits = 0 then
  8412. pTDefRegMap(@Self)^.clr := $00000020
  8413. else
  8414. pTDefRegMap(@Self)^.&set := $00000020;
  8415. end;
  8416. function TTMR5_T5CON.getTCKPS1 : TBits_1; inline;
  8417. begin
  8418. getTCKPS1 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  8419. end;
  8420. procedure TTMR5_T5CON.setTCKPS2; inline;
  8421. begin
  8422. pTDefRegMap(@Self)^.&set := $00000040;
  8423. end;
  8424. procedure TTMR5_T5CON.clearTCKPS2; inline;
  8425. begin
  8426. pTDefRegMap(@Self)^.clr := $00000040;
  8427. end;
  8428. procedure TTMR5_T5CON.setTCKPS2(thebits : TBits_1); inline;
  8429. begin
  8430. if thebits = 0 then
  8431. pTDefRegMap(@Self)^.clr := $00000040
  8432. else
  8433. pTDefRegMap(@Self)^.&set := $00000040;
  8434. end;
  8435. function TTMR5_T5CON.getTCKPS2 : TBits_1; inline;
  8436. begin
  8437. getTCKPS2 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  8438. end;
  8439. procedure TTMR5_T5CON.setTSIDL; inline;
  8440. begin
  8441. pTDefRegMap(@Self)^.&set := $00002000;
  8442. end;
  8443. procedure TTMR5_T5CON.clearTSIDL; inline;
  8444. begin
  8445. pTDefRegMap(@Self)^.clr := $00002000;
  8446. end;
  8447. procedure TTMR5_T5CON.setTSIDL(thebits : TBits_1); inline;
  8448. begin
  8449. if thebits = 0 then
  8450. pTDefRegMap(@Self)^.clr := $00002000
  8451. else
  8452. pTDefRegMap(@Self)^.&set := $00002000;
  8453. end;
  8454. function TTMR5_T5CON.getTSIDL : TBits_1; inline;
  8455. begin
  8456. getTSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  8457. end;
  8458. procedure TTMR5_T5CON.setTON; inline;
  8459. begin
  8460. pTDefRegMap(@Self)^.&set := $00008000;
  8461. end;
  8462. procedure TTMR5_T5CON.clearTON; inline;
  8463. begin
  8464. pTDefRegMap(@Self)^.clr := $00008000;
  8465. end;
  8466. procedure TTMR5_T5CON.setTON(thebits : TBits_1); inline;
  8467. begin
  8468. if thebits = 0 then
  8469. pTDefRegMap(@Self)^.clr := $00008000
  8470. else
  8471. pTDefRegMap(@Self)^.&set := $00008000;
  8472. end;
  8473. function TTMR5_T5CON.getTON : TBits_1; inline;
  8474. begin
  8475. getTON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  8476. end;
  8477. procedure TTMR5_T5CON.setw(thebits : TBits_32); inline;
  8478. begin
  8479. pTDefRegMap(@Self)^.val := thebits;
  8480. end;
  8481. function TTMR5_T5CON.getw : TBits_32; inline;
  8482. begin
  8483. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  8484. end;
  8485. procedure TICAP1_IC1CON.setICM(thebits : TBits_3); inline;
  8486. begin
  8487. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  8488. end;
  8489. function TICAP1_IC1CON.getICM : TBits_3; inline;
  8490. begin
  8491. getICM := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  8492. end;
  8493. procedure TICAP1_IC1CON.setICBNE; inline;
  8494. begin
  8495. pTDefRegMap(@Self)^.&set := $00000008;
  8496. end;
  8497. procedure TICAP1_IC1CON.clearICBNE; inline;
  8498. begin
  8499. pTDefRegMap(@Self)^.clr := $00000008;
  8500. end;
  8501. procedure TICAP1_IC1CON.setICBNE(thebits : TBits_1); inline;
  8502. begin
  8503. if thebits = 0 then
  8504. pTDefRegMap(@Self)^.clr := $00000008
  8505. else
  8506. pTDefRegMap(@Self)^.&set := $00000008;
  8507. end;
  8508. function TICAP1_IC1CON.getICBNE : TBits_1; inline;
  8509. begin
  8510. getICBNE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  8511. end;
  8512. procedure TICAP1_IC1CON.setICOV; inline;
  8513. begin
  8514. pTDefRegMap(@Self)^.&set := $00000010;
  8515. end;
  8516. procedure TICAP1_IC1CON.clearICOV; inline;
  8517. begin
  8518. pTDefRegMap(@Self)^.clr := $00000010;
  8519. end;
  8520. procedure TICAP1_IC1CON.setICOV(thebits : TBits_1); inline;
  8521. begin
  8522. if thebits = 0 then
  8523. pTDefRegMap(@Self)^.clr := $00000010
  8524. else
  8525. pTDefRegMap(@Self)^.&set := $00000010;
  8526. end;
  8527. function TICAP1_IC1CON.getICOV : TBits_1; inline;
  8528. begin
  8529. getICOV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  8530. end;
  8531. procedure TICAP1_IC1CON.setICI(thebits : TBits_2); inline;
  8532. begin
  8533. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF9F or ( thebits shl 5 );
  8534. end;
  8535. function TICAP1_IC1CON.getICI : TBits_2; inline;
  8536. begin
  8537. getICI := (pTDefRegMap(@Self)^.val and $00000060) shr 5;
  8538. end;
  8539. procedure TICAP1_IC1CON.setICTMR; inline;
  8540. begin
  8541. pTDefRegMap(@Self)^.&set := $00000080;
  8542. end;
  8543. procedure TICAP1_IC1CON.clearICTMR; inline;
  8544. begin
  8545. pTDefRegMap(@Self)^.clr := $00000080;
  8546. end;
  8547. procedure TICAP1_IC1CON.setICTMR(thebits : TBits_1); inline;
  8548. begin
  8549. if thebits = 0 then
  8550. pTDefRegMap(@Self)^.clr := $00000080
  8551. else
  8552. pTDefRegMap(@Self)^.&set := $00000080;
  8553. end;
  8554. function TICAP1_IC1CON.getICTMR : TBits_1; inline;
  8555. begin
  8556. getICTMR := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  8557. end;
  8558. procedure TICAP1_IC1CON.setC32; inline;
  8559. begin
  8560. pTDefRegMap(@Self)^.&set := $00000100;
  8561. end;
  8562. procedure TICAP1_IC1CON.clearC32; inline;
  8563. begin
  8564. pTDefRegMap(@Self)^.clr := $00000100;
  8565. end;
  8566. procedure TICAP1_IC1CON.setC32(thebits : TBits_1); inline;
  8567. begin
  8568. if thebits = 0 then
  8569. pTDefRegMap(@Self)^.clr := $00000100
  8570. else
  8571. pTDefRegMap(@Self)^.&set := $00000100;
  8572. end;
  8573. function TICAP1_IC1CON.getC32 : TBits_1; inline;
  8574. begin
  8575. getC32 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  8576. end;
  8577. procedure TICAP1_IC1CON.setFEDGE; inline;
  8578. begin
  8579. pTDefRegMap(@Self)^.&set := $00000200;
  8580. end;
  8581. procedure TICAP1_IC1CON.clearFEDGE; inline;
  8582. begin
  8583. pTDefRegMap(@Self)^.clr := $00000200;
  8584. end;
  8585. procedure TICAP1_IC1CON.setFEDGE(thebits : TBits_1); inline;
  8586. begin
  8587. if thebits = 0 then
  8588. pTDefRegMap(@Self)^.clr := $00000200
  8589. else
  8590. pTDefRegMap(@Self)^.&set := $00000200;
  8591. end;
  8592. function TICAP1_IC1CON.getFEDGE : TBits_1; inline;
  8593. begin
  8594. getFEDGE := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  8595. end;
  8596. procedure TICAP1_IC1CON.setSIDL; inline;
  8597. begin
  8598. pTDefRegMap(@Self)^.&set := $00002000;
  8599. end;
  8600. procedure TICAP1_IC1CON.clearSIDL; inline;
  8601. begin
  8602. pTDefRegMap(@Self)^.clr := $00002000;
  8603. end;
  8604. procedure TICAP1_IC1CON.setSIDL(thebits : TBits_1); inline;
  8605. begin
  8606. if thebits = 0 then
  8607. pTDefRegMap(@Self)^.clr := $00002000
  8608. else
  8609. pTDefRegMap(@Self)^.&set := $00002000;
  8610. end;
  8611. function TICAP1_IC1CON.getSIDL : TBits_1; inline;
  8612. begin
  8613. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  8614. end;
  8615. procedure TICAP1_IC1CON.setON; inline;
  8616. begin
  8617. pTDefRegMap(@Self)^.&set := $00008000;
  8618. end;
  8619. procedure TICAP1_IC1CON.clearON; inline;
  8620. begin
  8621. pTDefRegMap(@Self)^.clr := $00008000;
  8622. end;
  8623. procedure TICAP1_IC1CON.setON(thebits : TBits_1); inline;
  8624. begin
  8625. if thebits = 0 then
  8626. pTDefRegMap(@Self)^.clr := $00008000
  8627. else
  8628. pTDefRegMap(@Self)^.&set := $00008000;
  8629. end;
  8630. function TICAP1_IC1CON.getON : TBits_1; inline;
  8631. begin
  8632. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  8633. end;
  8634. procedure TICAP1_IC1CON.setICM0; inline;
  8635. begin
  8636. pTDefRegMap(@Self)^.&set := $00000001;
  8637. end;
  8638. procedure TICAP1_IC1CON.clearICM0; inline;
  8639. begin
  8640. pTDefRegMap(@Self)^.clr := $00000001;
  8641. end;
  8642. procedure TICAP1_IC1CON.setICM0(thebits : TBits_1); inline;
  8643. begin
  8644. if thebits = 0 then
  8645. pTDefRegMap(@Self)^.clr := $00000001
  8646. else
  8647. pTDefRegMap(@Self)^.&set := $00000001;
  8648. end;
  8649. function TICAP1_IC1CON.getICM0 : TBits_1; inline;
  8650. begin
  8651. getICM0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  8652. end;
  8653. procedure TICAP1_IC1CON.setICM1; inline;
  8654. begin
  8655. pTDefRegMap(@Self)^.&set := $00000002;
  8656. end;
  8657. procedure TICAP1_IC1CON.clearICM1; inline;
  8658. begin
  8659. pTDefRegMap(@Self)^.clr := $00000002;
  8660. end;
  8661. procedure TICAP1_IC1CON.setICM1(thebits : TBits_1); inline;
  8662. begin
  8663. if thebits = 0 then
  8664. pTDefRegMap(@Self)^.clr := $00000002
  8665. else
  8666. pTDefRegMap(@Self)^.&set := $00000002;
  8667. end;
  8668. function TICAP1_IC1CON.getICM1 : TBits_1; inline;
  8669. begin
  8670. getICM1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  8671. end;
  8672. procedure TICAP1_IC1CON.setICM2; inline;
  8673. begin
  8674. pTDefRegMap(@Self)^.&set := $00000004;
  8675. end;
  8676. procedure TICAP1_IC1CON.clearICM2; inline;
  8677. begin
  8678. pTDefRegMap(@Self)^.clr := $00000004;
  8679. end;
  8680. procedure TICAP1_IC1CON.setICM2(thebits : TBits_1); inline;
  8681. begin
  8682. if thebits = 0 then
  8683. pTDefRegMap(@Self)^.clr := $00000004
  8684. else
  8685. pTDefRegMap(@Self)^.&set := $00000004;
  8686. end;
  8687. function TICAP1_IC1CON.getICM2 : TBits_1; inline;
  8688. begin
  8689. getICM2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  8690. end;
  8691. procedure TICAP1_IC1CON.setICI0; inline;
  8692. begin
  8693. pTDefRegMap(@Self)^.&set := $00000020;
  8694. end;
  8695. procedure TICAP1_IC1CON.clearICI0; inline;
  8696. begin
  8697. pTDefRegMap(@Self)^.clr := $00000020;
  8698. end;
  8699. procedure TICAP1_IC1CON.setICI0(thebits : TBits_1); inline;
  8700. begin
  8701. if thebits = 0 then
  8702. pTDefRegMap(@Self)^.clr := $00000020
  8703. else
  8704. pTDefRegMap(@Self)^.&set := $00000020;
  8705. end;
  8706. function TICAP1_IC1CON.getICI0 : TBits_1; inline;
  8707. begin
  8708. getICI0 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  8709. end;
  8710. procedure TICAP1_IC1CON.setICI1; inline;
  8711. begin
  8712. pTDefRegMap(@Self)^.&set := $00000040;
  8713. end;
  8714. procedure TICAP1_IC1CON.clearICI1; inline;
  8715. begin
  8716. pTDefRegMap(@Self)^.clr := $00000040;
  8717. end;
  8718. procedure TICAP1_IC1CON.setICI1(thebits : TBits_1); inline;
  8719. begin
  8720. if thebits = 0 then
  8721. pTDefRegMap(@Self)^.clr := $00000040
  8722. else
  8723. pTDefRegMap(@Self)^.&set := $00000040;
  8724. end;
  8725. function TICAP1_IC1CON.getICI1 : TBits_1; inline;
  8726. begin
  8727. getICI1 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  8728. end;
  8729. procedure TICAP1_IC1CON.setICSIDL; inline;
  8730. begin
  8731. pTDefRegMap(@Self)^.&set := $00002000;
  8732. end;
  8733. procedure TICAP1_IC1CON.clearICSIDL; inline;
  8734. begin
  8735. pTDefRegMap(@Self)^.clr := $00002000;
  8736. end;
  8737. procedure TICAP1_IC1CON.setICSIDL(thebits : TBits_1); inline;
  8738. begin
  8739. if thebits = 0 then
  8740. pTDefRegMap(@Self)^.clr := $00002000
  8741. else
  8742. pTDefRegMap(@Self)^.&set := $00002000;
  8743. end;
  8744. function TICAP1_IC1CON.getICSIDL : TBits_1; inline;
  8745. begin
  8746. getICSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  8747. end;
  8748. procedure TICAP1_IC1CON.setw(thebits : TBits_32); inline;
  8749. begin
  8750. pTDefRegMap(@Self)^.val := thebits;
  8751. end;
  8752. function TICAP1_IC1CON.getw : TBits_32; inline;
  8753. begin
  8754. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  8755. end;
  8756. procedure TICAP2_IC2CON.setICM(thebits : TBits_3); inline;
  8757. begin
  8758. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  8759. end;
  8760. function TICAP2_IC2CON.getICM : TBits_3; inline;
  8761. begin
  8762. getICM := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  8763. end;
  8764. procedure TICAP2_IC2CON.setICBNE; inline;
  8765. begin
  8766. pTDefRegMap(@Self)^.&set := $00000008;
  8767. end;
  8768. procedure TICAP2_IC2CON.clearICBNE; inline;
  8769. begin
  8770. pTDefRegMap(@Self)^.clr := $00000008;
  8771. end;
  8772. procedure TICAP2_IC2CON.setICBNE(thebits : TBits_1); inline;
  8773. begin
  8774. if thebits = 0 then
  8775. pTDefRegMap(@Self)^.clr := $00000008
  8776. else
  8777. pTDefRegMap(@Self)^.&set := $00000008;
  8778. end;
  8779. function TICAP2_IC2CON.getICBNE : TBits_1; inline;
  8780. begin
  8781. getICBNE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  8782. end;
  8783. procedure TICAP2_IC2CON.setICOV; inline;
  8784. begin
  8785. pTDefRegMap(@Self)^.&set := $00000010;
  8786. end;
  8787. procedure TICAP2_IC2CON.clearICOV; inline;
  8788. begin
  8789. pTDefRegMap(@Self)^.clr := $00000010;
  8790. end;
  8791. procedure TICAP2_IC2CON.setICOV(thebits : TBits_1); inline;
  8792. begin
  8793. if thebits = 0 then
  8794. pTDefRegMap(@Self)^.clr := $00000010
  8795. else
  8796. pTDefRegMap(@Self)^.&set := $00000010;
  8797. end;
  8798. function TICAP2_IC2CON.getICOV : TBits_1; inline;
  8799. begin
  8800. getICOV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  8801. end;
  8802. procedure TICAP2_IC2CON.setICI(thebits : TBits_2); inline;
  8803. begin
  8804. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF9F or ( thebits shl 5 );
  8805. end;
  8806. function TICAP2_IC2CON.getICI : TBits_2; inline;
  8807. begin
  8808. getICI := (pTDefRegMap(@Self)^.val and $00000060) shr 5;
  8809. end;
  8810. procedure TICAP2_IC2CON.setICTMR; inline;
  8811. begin
  8812. pTDefRegMap(@Self)^.&set := $00000080;
  8813. end;
  8814. procedure TICAP2_IC2CON.clearICTMR; inline;
  8815. begin
  8816. pTDefRegMap(@Self)^.clr := $00000080;
  8817. end;
  8818. procedure TICAP2_IC2CON.setICTMR(thebits : TBits_1); inline;
  8819. begin
  8820. if thebits = 0 then
  8821. pTDefRegMap(@Self)^.clr := $00000080
  8822. else
  8823. pTDefRegMap(@Self)^.&set := $00000080;
  8824. end;
  8825. function TICAP2_IC2CON.getICTMR : TBits_1; inline;
  8826. begin
  8827. getICTMR := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  8828. end;
  8829. procedure TICAP2_IC2CON.setC32; inline;
  8830. begin
  8831. pTDefRegMap(@Self)^.&set := $00000100;
  8832. end;
  8833. procedure TICAP2_IC2CON.clearC32; inline;
  8834. begin
  8835. pTDefRegMap(@Self)^.clr := $00000100;
  8836. end;
  8837. procedure TICAP2_IC2CON.setC32(thebits : TBits_1); inline;
  8838. begin
  8839. if thebits = 0 then
  8840. pTDefRegMap(@Self)^.clr := $00000100
  8841. else
  8842. pTDefRegMap(@Self)^.&set := $00000100;
  8843. end;
  8844. function TICAP2_IC2CON.getC32 : TBits_1; inline;
  8845. begin
  8846. getC32 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  8847. end;
  8848. procedure TICAP2_IC2CON.setFEDGE; inline;
  8849. begin
  8850. pTDefRegMap(@Self)^.&set := $00000200;
  8851. end;
  8852. procedure TICAP2_IC2CON.clearFEDGE; inline;
  8853. begin
  8854. pTDefRegMap(@Self)^.clr := $00000200;
  8855. end;
  8856. procedure TICAP2_IC2CON.setFEDGE(thebits : TBits_1); inline;
  8857. begin
  8858. if thebits = 0 then
  8859. pTDefRegMap(@Self)^.clr := $00000200
  8860. else
  8861. pTDefRegMap(@Self)^.&set := $00000200;
  8862. end;
  8863. function TICAP2_IC2CON.getFEDGE : TBits_1; inline;
  8864. begin
  8865. getFEDGE := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  8866. end;
  8867. procedure TICAP2_IC2CON.setSIDL; inline;
  8868. begin
  8869. pTDefRegMap(@Self)^.&set := $00002000;
  8870. end;
  8871. procedure TICAP2_IC2CON.clearSIDL; inline;
  8872. begin
  8873. pTDefRegMap(@Self)^.clr := $00002000;
  8874. end;
  8875. procedure TICAP2_IC2CON.setSIDL(thebits : TBits_1); inline;
  8876. begin
  8877. if thebits = 0 then
  8878. pTDefRegMap(@Self)^.clr := $00002000
  8879. else
  8880. pTDefRegMap(@Self)^.&set := $00002000;
  8881. end;
  8882. function TICAP2_IC2CON.getSIDL : TBits_1; inline;
  8883. begin
  8884. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  8885. end;
  8886. procedure TICAP2_IC2CON.setON; inline;
  8887. begin
  8888. pTDefRegMap(@Self)^.&set := $00008000;
  8889. end;
  8890. procedure TICAP2_IC2CON.clearON; inline;
  8891. begin
  8892. pTDefRegMap(@Self)^.clr := $00008000;
  8893. end;
  8894. procedure TICAP2_IC2CON.setON(thebits : TBits_1); inline;
  8895. begin
  8896. if thebits = 0 then
  8897. pTDefRegMap(@Self)^.clr := $00008000
  8898. else
  8899. pTDefRegMap(@Self)^.&set := $00008000;
  8900. end;
  8901. function TICAP2_IC2CON.getON : TBits_1; inline;
  8902. begin
  8903. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  8904. end;
  8905. procedure TICAP2_IC2CON.setICM0; inline;
  8906. begin
  8907. pTDefRegMap(@Self)^.&set := $00000001;
  8908. end;
  8909. procedure TICAP2_IC2CON.clearICM0; inline;
  8910. begin
  8911. pTDefRegMap(@Self)^.clr := $00000001;
  8912. end;
  8913. procedure TICAP2_IC2CON.setICM0(thebits : TBits_1); inline;
  8914. begin
  8915. if thebits = 0 then
  8916. pTDefRegMap(@Self)^.clr := $00000001
  8917. else
  8918. pTDefRegMap(@Self)^.&set := $00000001;
  8919. end;
  8920. function TICAP2_IC2CON.getICM0 : TBits_1; inline;
  8921. begin
  8922. getICM0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  8923. end;
  8924. procedure TICAP2_IC2CON.setICM1; inline;
  8925. begin
  8926. pTDefRegMap(@Self)^.&set := $00000002;
  8927. end;
  8928. procedure TICAP2_IC2CON.clearICM1; inline;
  8929. begin
  8930. pTDefRegMap(@Self)^.clr := $00000002;
  8931. end;
  8932. procedure TICAP2_IC2CON.setICM1(thebits : TBits_1); inline;
  8933. begin
  8934. if thebits = 0 then
  8935. pTDefRegMap(@Self)^.clr := $00000002
  8936. else
  8937. pTDefRegMap(@Self)^.&set := $00000002;
  8938. end;
  8939. function TICAP2_IC2CON.getICM1 : TBits_1; inline;
  8940. begin
  8941. getICM1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  8942. end;
  8943. procedure TICAP2_IC2CON.setICM2; inline;
  8944. begin
  8945. pTDefRegMap(@Self)^.&set := $00000004;
  8946. end;
  8947. procedure TICAP2_IC2CON.clearICM2; inline;
  8948. begin
  8949. pTDefRegMap(@Self)^.clr := $00000004;
  8950. end;
  8951. procedure TICAP2_IC2CON.setICM2(thebits : TBits_1); inline;
  8952. begin
  8953. if thebits = 0 then
  8954. pTDefRegMap(@Self)^.clr := $00000004
  8955. else
  8956. pTDefRegMap(@Self)^.&set := $00000004;
  8957. end;
  8958. function TICAP2_IC2CON.getICM2 : TBits_1; inline;
  8959. begin
  8960. getICM2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  8961. end;
  8962. procedure TICAP2_IC2CON.setICI0; inline;
  8963. begin
  8964. pTDefRegMap(@Self)^.&set := $00000020;
  8965. end;
  8966. procedure TICAP2_IC2CON.clearICI0; inline;
  8967. begin
  8968. pTDefRegMap(@Self)^.clr := $00000020;
  8969. end;
  8970. procedure TICAP2_IC2CON.setICI0(thebits : TBits_1); inline;
  8971. begin
  8972. if thebits = 0 then
  8973. pTDefRegMap(@Self)^.clr := $00000020
  8974. else
  8975. pTDefRegMap(@Self)^.&set := $00000020;
  8976. end;
  8977. function TICAP2_IC2CON.getICI0 : TBits_1; inline;
  8978. begin
  8979. getICI0 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  8980. end;
  8981. procedure TICAP2_IC2CON.setICI1; inline;
  8982. begin
  8983. pTDefRegMap(@Self)^.&set := $00000040;
  8984. end;
  8985. procedure TICAP2_IC2CON.clearICI1; inline;
  8986. begin
  8987. pTDefRegMap(@Self)^.clr := $00000040;
  8988. end;
  8989. procedure TICAP2_IC2CON.setICI1(thebits : TBits_1); inline;
  8990. begin
  8991. if thebits = 0 then
  8992. pTDefRegMap(@Self)^.clr := $00000040
  8993. else
  8994. pTDefRegMap(@Self)^.&set := $00000040;
  8995. end;
  8996. function TICAP2_IC2CON.getICI1 : TBits_1; inline;
  8997. begin
  8998. getICI1 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  8999. end;
  9000. procedure TICAP2_IC2CON.setICSIDL; inline;
  9001. begin
  9002. pTDefRegMap(@Self)^.&set := $00002000;
  9003. end;
  9004. procedure TICAP2_IC2CON.clearICSIDL; inline;
  9005. begin
  9006. pTDefRegMap(@Self)^.clr := $00002000;
  9007. end;
  9008. procedure TICAP2_IC2CON.setICSIDL(thebits : TBits_1); inline;
  9009. begin
  9010. if thebits = 0 then
  9011. pTDefRegMap(@Self)^.clr := $00002000
  9012. else
  9013. pTDefRegMap(@Self)^.&set := $00002000;
  9014. end;
  9015. function TICAP2_IC2CON.getICSIDL : TBits_1; inline;
  9016. begin
  9017. getICSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  9018. end;
  9019. procedure TICAP2_IC2CON.setw(thebits : TBits_32); inline;
  9020. begin
  9021. pTDefRegMap(@Self)^.val := thebits;
  9022. end;
  9023. function TICAP2_IC2CON.getw : TBits_32; inline;
  9024. begin
  9025. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  9026. end;
  9027. procedure TICAP3_IC3CON.setICM(thebits : TBits_3); inline;
  9028. begin
  9029. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  9030. end;
  9031. function TICAP3_IC3CON.getICM : TBits_3; inline;
  9032. begin
  9033. getICM := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  9034. end;
  9035. procedure TICAP3_IC3CON.setICBNE; inline;
  9036. begin
  9037. pTDefRegMap(@Self)^.&set := $00000008;
  9038. end;
  9039. procedure TICAP3_IC3CON.clearICBNE; inline;
  9040. begin
  9041. pTDefRegMap(@Self)^.clr := $00000008;
  9042. end;
  9043. procedure TICAP3_IC3CON.setICBNE(thebits : TBits_1); inline;
  9044. begin
  9045. if thebits = 0 then
  9046. pTDefRegMap(@Self)^.clr := $00000008
  9047. else
  9048. pTDefRegMap(@Self)^.&set := $00000008;
  9049. end;
  9050. function TICAP3_IC3CON.getICBNE : TBits_1; inline;
  9051. begin
  9052. getICBNE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  9053. end;
  9054. procedure TICAP3_IC3CON.setICOV; inline;
  9055. begin
  9056. pTDefRegMap(@Self)^.&set := $00000010;
  9057. end;
  9058. procedure TICAP3_IC3CON.clearICOV; inline;
  9059. begin
  9060. pTDefRegMap(@Self)^.clr := $00000010;
  9061. end;
  9062. procedure TICAP3_IC3CON.setICOV(thebits : TBits_1); inline;
  9063. begin
  9064. if thebits = 0 then
  9065. pTDefRegMap(@Self)^.clr := $00000010
  9066. else
  9067. pTDefRegMap(@Self)^.&set := $00000010;
  9068. end;
  9069. function TICAP3_IC3CON.getICOV : TBits_1; inline;
  9070. begin
  9071. getICOV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  9072. end;
  9073. procedure TICAP3_IC3CON.setICI(thebits : TBits_2); inline;
  9074. begin
  9075. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF9F or ( thebits shl 5 );
  9076. end;
  9077. function TICAP3_IC3CON.getICI : TBits_2; inline;
  9078. begin
  9079. getICI := (pTDefRegMap(@Self)^.val and $00000060) shr 5;
  9080. end;
  9081. procedure TICAP3_IC3CON.setICTMR; inline;
  9082. begin
  9083. pTDefRegMap(@Self)^.&set := $00000080;
  9084. end;
  9085. procedure TICAP3_IC3CON.clearICTMR; inline;
  9086. begin
  9087. pTDefRegMap(@Self)^.clr := $00000080;
  9088. end;
  9089. procedure TICAP3_IC3CON.setICTMR(thebits : TBits_1); inline;
  9090. begin
  9091. if thebits = 0 then
  9092. pTDefRegMap(@Self)^.clr := $00000080
  9093. else
  9094. pTDefRegMap(@Self)^.&set := $00000080;
  9095. end;
  9096. function TICAP3_IC3CON.getICTMR : TBits_1; inline;
  9097. begin
  9098. getICTMR := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  9099. end;
  9100. procedure TICAP3_IC3CON.setC32; inline;
  9101. begin
  9102. pTDefRegMap(@Self)^.&set := $00000100;
  9103. end;
  9104. procedure TICAP3_IC3CON.clearC32; inline;
  9105. begin
  9106. pTDefRegMap(@Self)^.clr := $00000100;
  9107. end;
  9108. procedure TICAP3_IC3CON.setC32(thebits : TBits_1); inline;
  9109. begin
  9110. if thebits = 0 then
  9111. pTDefRegMap(@Self)^.clr := $00000100
  9112. else
  9113. pTDefRegMap(@Self)^.&set := $00000100;
  9114. end;
  9115. function TICAP3_IC3CON.getC32 : TBits_1; inline;
  9116. begin
  9117. getC32 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  9118. end;
  9119. procedure TICAP3_IC3CON.setFEDGE; inline;
  9120. begin
  9121. pTDefRegMap(@Self)^.&set := $00000200;
  9122. end;
  9123. procedure TICAP3_IC3CON.clearFEDGE; inline;
  9124. begin
  9125. pTDefRegMap(@Self)^.clr := $00000200;
  9126. end;
  9127. procedure TICAP3_IC3CON.setFEDGE(thebits : TBits_1); inline;
  9128. begin
  9129. if thebits = 0 then
  9130. pTDefRegMap(@Self)^.clr := $00000200
  9131. else
  9132. pTDefRegMap(@Self)^.&set := $00000200;
  9133. end;
  9134. function TICAP3_IC3CON.getFEDGE : TBits_1; inline;
  9135. begin
  9136. getFEDGE := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  9137. end;
  9138. procedure TICAP3_IC3CON.setSIDL; inline;
  9139. begin
  9140. pTDefRegMap(@Self)^.&set := $00002000;
  9141. end;
  9142. procedure TICAP3_IC3CON.clearSIDL; inline;
  9143. begin
  9144. pTDefRegMap(@Self)^.clr := $00002000;
  9145. end;
  9146. procedure TICAP3_IC3CON.setSIDL(thebits : TBits_1); inline;
  9147. begin
  9148. if thebits = 0 then
  9149. pTDefRegMap(@Self)^.clr := $00002000
  9150. else
  9151. pTDefRegMap(@Self)^.&set := $00002000;
  9152. end;
  9153. function TICAP3_IC3CON.getSIDL : TBits_1; inline;
  9154. begin
  9155. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  9156. end;
  9157. procedure TICAP3_IC3CON.setON; inline;
  9158. begin
  9159. pTDefRegMap(@Self)^.&set := $00008000;
  9160. end;
  9161. procedure TICAP3_IC3CON.clearON; inline;
  9162. begin
  9163. pTDefRegMap(@Self)^.clr := $00008000;
  9164. end;
  9165. procedure TICAP3_IC3CON.setON(thebits : TBits_1); inline;
  9166. begin
  9167. if thebits = 0 then
  9168. pTDefRegMap(@Self)^.clr := $00008000
  9169. else
  9170. pTDefRegMap(@Self)^.&set := $00008000;
  9171. end;
  9172. function TICAP3_IC3CON.getON : TBits_1; inline;
  9173. begin
  9174. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  9175. end;
  9176. procedure TICAP3_IC3CON.setICM0; inline;
  9177. begin
  9178. pTDefRegMap(@Self)^.&set := $00000001;
  9179. end;
  9180. procedure TICAP3_IC3CON.clearICM0; inline;
  9181. begin
  9182. pTDefRegMap(@Self)^.clr := $00000001;
  9183. end;
  9184. procedure TICAP3_IC3CON.setICM0(thebits : TBits_1); inline;
  9185. begin
  9186. if thebits = 0 then
  9187. pTDefRegMap(@Self)^.clr := $00000001
  9188. else
  9189. pTDefRegMap(@Self)^.&set := $00000001;
  9190. end;
  9191. function TICAP3_IC3CON.getICM0 : TBits_1; inline;
  9192. begin
  9193. getICM0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  9194. end;
  9195. procedure TICAP3_IC3CON.setICM1; inline;
  9196. begin
  9197. pTDefRegMap(@Self)^.&set := $00000002;
  9198. end;
  9199. procedure TICAP3_IC3CON.clearICM1; inline;
  9200. begin
  9201. pTDefRegMap(@Self)^.clr := $00000002;
  9202. end;
  9203. procedure TICAP3_IC3CON.setICM1(thebits : TBits_1); inline;
  9204. begin
  9205. if thebits = 0 then
  9206. pTDefRegMap(@Self)^.clr := $00000002
  9207. else
  9208. pTDefRegMap(@Self)^.&set := $00000002;
  9209. end;
  9210. function TICAP3_IC3CON.getICM1 : TBits_1; inline;
  9211. begin
  9212. getICM1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  9213. end;
  9214. procedure TICAP3_IC3CON.setICM2; inline;
  9215. begin
  9216. pTDefRegMap(@Self)^.&set := $00000004;
  9217. end;
  9218. procedure TICAP3_IC3CON.clearICM2; inline;
  9219. begin
  9220. pTDefRegMap(@Self)^.clr := $00000004;
  9221. end;
  9222. procedure TICAP3_IC3CON.setICM2(thebits : TBits_1); inline;
  9223. begin
  9224. if thebits = 0 then
  9225. pTDefRegMap(@Self)^.clr := $00000004
  9226. else
  9227. pTDefRegMap(@Self)^.&set := $00000004;
  9228. end;
  9229. function TICAP3_IC3CON.getICM2 : TBits_1; inline;
  9230. begin
  9231. getICM2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  9232. end;
  9233. procedure TICAP3_IC3CON.setICI0; inline;
  9234. begin
  9235. pTDefRegMap(@Self)^.&set := $00000020;
  9236. end;
  9237. procedure TICAP3_IC3CON.clearICI0; inline;
  9238. begin
  9239. pTDefRegMap(@Self)^.clr := $00000020;
  9240. end;
  9241. procedure TICAP3_IC3CON.setICI0(thebits : TBits_1); inline;
  9242. begin
  9243. if thebits = 0 then
  9244. pTDefRegMap(@Self)^.clr := $00000020
  9245. else
  9246. pTDefRegMap(@Self)^.&set := $00000020;
  9247. end;
  9248. function TICAP3_IC3CON.getICI0 : TBits_1; inline;
  9249. begin
  9250. getICI0 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  9251. end;
  9252. procedure TICAP3_IC3CON.setICI1; inline;
  9253. begin
  9254. pTDefRegMap(@Self)^.&set := $00000040;
  9255. end;
  9256. procedure TICAP3_IC3CON.clearICI1; inline;
  9257. begin
  9258. pTDefRegMap(@Self)^.clr := $00000040;
  9259. end;
  9260. procedure TICAP3_IC3CON.setICI1(thebits : TBits_1); inline;
  9261. begin
  9262. if thebits = 0 then
  9263. pTDefRegMap(@Self)^.clr := $00000040
  9264. else
  9265. pTDefRegMap(@Self)^.&set := $00000040;
  9266. end;
  9267. function TICAP3_IC3CON.getICI1 : TBits_1; inline;
  9268. begin
  9269. getICI1 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  9270. end;
  9271. procedure TICAP3_IC3CON.setICSIDL; inline;
  9272. begin
  9273. pTDefRegMap(@Self)^.&set := $00002000;
  9274. end;
  9275. procedure TICAP3_IC3CON.clearICSIDL; inline;
  9276. begin
  9277. pTDefRegMap(@Self)^.clr := $00002000;
  9278. end;
  9279. procedure TICAP3_IC3CON.setICSIDL(thebits : TBits_1); inline;
  9280. begin
  9281. if thebits = 0 then
  9282. pTDefRegMap(@Self)^.clr := $00002000
  9283. else
  9284. pTDefRegMap(@Self)^.&set := $00002000;
  9285. end;
  9286. function TICAP3_IC3CON.getICSIDL : TBits_1; inline;
  9287. begin
  9288. getICSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  9289. end;
  9290. procedure TICAP3_IC3CON.setw(thebits : TBits_32); inline;
  9291. begin
  9292. pTDefRegMap(@Self)^.val := thebits;
  9293. end;
  9294. function TICAP3_IC3CON.getw : TBits_32; inline;
  9295. begin
  9296. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  9297. end;
  9298. procedure TICAP4_IC4CON.setICM(thebits : TBits_3); inline;
  9299. begin
  9300. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  9301. end;
  9302. function TICAP4_IC4CON.getICM : TBits_3; inline;
  9303. begin
  9304. getICM := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  9305. end;
  9306. procedure TICAP4_IC4CON.setICBNE; inline;
  9307. begin
  9308. pTDefRegMap(@Self)^.&set := $00000008;
  9309. end;
  9310. procedure TICAP4_IC4CON.clearICBNE; inline;
  9311. begin
  9312. pTDefRegMap(@Self)^.clr := $00000008;
  9313. end;
  9314. procedure TICAP4_IC4CON.setICBNE(thebits : TBits_1); inline;
  9315. begin
  9316. if thebits = 0 then
  9317. pTDefRegMap(@Self)^.clr := $00000008
  9318. else
  9319. pTDefRegMap(@Self)^.&set := $00000008;
  9320. end;
  9321. function TICAP4_IC4CON.getICBNE : TBits_1; inline;
  9322. begin
  9323. getICBNE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  9324. end;
  9325. procedure TICAP4_IC4CON.setICOV; inline;
  9326. begin
  9327. pTDefRegMap(@Self)^.&set := $00000010;
  9328. end;
  9329. procedure TICAP4_IC4CON.clearICOV; inline;
  9330. begin
  9331. pTDefRegMap(@Self)^.clr := $00000010;
  9332. end;
  9333. procedure TICAP4_IC4CON.setICOV(thebits : TBits_1); inline;
  9334. begin
  9335. if thebits = 0 then
  9336. pTDefRegMap(@Self)^.clr := $00000010
  9337. else
  9338. pTDefRegMap(@Self)^.&set := $00000010;
  9339. end;
  9340. function TICAP4_IC4CON.getICOV : TBits_1; inline;
  9341. begin
  9342. getICOV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  9343. end;
  9344. procedure TICAP4_IC4CON.setICI(thebits : TBits_2); inline;
  9345. begin
  9346. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF9F or ( thebits shl 5 );
  9347. end;
  9348. function TICAP4_IC4CON.getICI : TBits_2; inline;
  9349. begin
  9350. getICI := (pTDefRegMap(@Self)^.val and $00000060) shr 5;
  9351. end;
  9352. procedure TICAP4_IC4CON.setICTMR; inline;
  9353. begin
  9354. pTDefRegMap(@Self)^.&set := $00000080;
  9355. end;
  9356. procedure TICAP4_IC4CON.clearICTMR; inline;
  9357. begin
  9358. pTDefRegMap(@Self)^.clr := $00000080;
  9359. end;
  9360. procedure TICAP4_IC4CON.setICTMR(thebits : TBits_1); inline;
  9361. begin
  9362. if thebits = 0 then
  9363. pTDefRegMap(@Self)^.clr := $00000080
  9364. else
  9365. pTDefRegMap(@Self)^.&set := $00000080;
  9366. end;
  9367. function TICAP4_IC4CON.getICTMR : TBits_1; inline;
  9368. begin
  9369. getICTMR := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  9370. end;
  9371. procedure TICAP4_IC4CON.setC32; inline;
  9372. begin
  9373. pTDefRegMap(@Self)^.&set := $00000100;
  9374. end;
  9375. procedure TICAP4_IC4CON.clearC32; inline;
  9376. begin
  9377. pTDefRegMap(@Self)^.clr := $00000100;
  9378. end;
  9379. procedure TICAP4_IC4CON.setC32(thebits : TBits_1); inline;
  9380. begin
  9381. if thebits = 0 then
  9382. pTDefRegMap(@Self)^.clr := $00000100
  9383. else
  9384. pTDefRegMap(@Self)^.&set := $00000100;
  9385. end;
  9386. function TICAP4_IC4CON.getC32 : TBits_1; inline;
  9387. begin
  9388. getC32 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  9389. end;
  9390. procedure TICAP4_IC4CON.setFEDGE; inline;
  9391. begin
  9392. pTDefRegMap(@Self)^.&set := $00000200;
  9393. end;
  9394. procedure TICAP4_IC4CON.clearFEDGE; inline;
  9395. begin
  9396. pTDefRegMap(@Self)^.clr := $00000200;
  9397. end;
  9398. procedure TICAP4_IC4CON.setFEDGE(thebits : TBits_1); inline;
  9399. begin
  9400. if thebits = 0 then
  9401. pTDefRegMap(@Self)^.clr := $00000200
  9402. else
  9403. pTDefRegMap(@Self)^.&set := $00000200;
  9404. end;
  9405. function TICAP4_IC4CON.getFEDGE : TBits_1; inline;
  9406. begin
  9407. getFEDGE := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  9408. end;
  9409. procedure TICAP4_IC4CON.setSIDL; inline;
  9410. begin
  9411. pTDefRegMap(@Self)^.&set := $00002000;
  9412. end;
  9413. procedure TICAP4_IC4CON.clearSIDL; inline;
  9414. begin
  9415. pTDefRegMap(@Self)^.clr := $00002000;
  9416. end;
  9417. procedure TICAP4_IC4CON.setSIDL(thebits : TBits_1); inline;
  9418. begin
  9419. if thebits = 0 then
  9420. pTDefRegMap(@Self)^.clr := $00002000
  9421. else
  9422. pTDefRegMap(@Self)^.&set := $00002000;
  9423. end;
  9424. function TICAP4_IC4CON.getSIDL : TBits_1; inline;
  9425. begin
  9426. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  9427. end;
  9428. procedure TICAP4_IC4CON.setON; inline;
  9429. begin
  9430. pTDefRegMap(@Self)^.&set := $00008000;
  9431. end;
  9432. procedure TICAP4_IC4CON.clearON; inline;
  9433. begin
  9434. pTDefRegMap(@Self)^.clr := $00008000;
  9435. end;
  9436. procedure TICAP4_IC4CON.setON(thebits : TBits_1); inline;
  9437. begin
  9438. if thebits = 0 then
  9439. pTDefRegMap(@Self)^.clr := $00008000
  9440. else
  9441. pTDefRegMap(@Self)^.&set := $00008000;
  9442. end;
  9443. function TICAP4_IC4CON.getON : TBits_1; inline;
  9444. begin
  9445. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  9446. end;
  9447. procedure TICAP4_IC4CON.setICM0; inline;
  9448. begin
  9449. pTDefRegMap(@Self)^.&set := $00000001;
  9450. end;
  9451. procedure TICAP4_IC4CON.clearICM0; inline;
  9452. begin
  9453. pTDefRegMap(@Self)^.clr := $00000001;
  9454. end;
  9455. procedure TICAP4_IC4CON.setICM0(thebits : TBits_1); inline;
  9456. begin
  9457. if thebits = 0 then
  9458. pTDefRegMap(@Self)^.clr := $00000001
  9459. else
  9460. pTDefRegMap(@Self)^.&set := $00000001;
  9461. end;
  9462. function TICAP4_IC4CON.getICM0 : TBits_1; inline;
  9463. begin
  9464. getICM0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  9465. end;
  9466. procedure TICAP4_IC4CON.setICM1; inline;
  9467. begin
  9468. pTDefRegMap(@Self)^.&set := $00000002;
  9469. end;
  9470. procedure TICAP4_IC4CON.clearICM1; inline;
  9471. begin
  9472. pTDefRegMap(@Self)^.clr := $00000002;
  9473. end;
  9474. procedure TICAP4_IC4CON.setICM1(thebits : TBits_1); inline;
  9475. begin
  9476. if thebits = 0 then
  9477. pTDefRegMap(@Self)^.clr := $00000002
  9478. else
  9479. pTDefRegMap(@Self)^.&set := $00000002;
  9480. end;
  9481. function TICAP4_IC4CON.getICM1 : TBits_1; inline;
  9482. begin
  9483. getICM1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  9484. end;
  9485. procedure TICAP4_IC4CON.setICM2; inline;
  9486. begin
  9487. pTDefRegMap(@Self)^.&set := $00000004;
  9488. end;
  9489. procedure TICAP4_IC4CON.clearICM2; inline;
  9490. begin
  9491. pTDefRegMap(@Self)^.clr := $00000004;
  9492. end;
  9493. procedure TICAP4_IC4CON.setICM2(thebits : TBits_1); inline;
  9494. begin
  9495. if thebits = 0 then
  9496. pTDefRegMap(@Self)^.clr := $00000004
  9497. else
  9498. pTDefRegMap(@Self)^.&set := $00000004;
  9499. end;
  9500. function TICAP4_IC4CON.getICM2 : TBits_1; inline;
  9501. begin
  9502. getICM2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  9503. end;
  9504. procedure TICAP4_IC4CON.setICI0; inline;
  9505. begin
  9506. pTDefRegMap(@Self)^.&set := $00000020;
  9507. end;
  9508. procedure TICAP4_IC4CON.clearICI0; inline;
  9509. begin
  9510. pTDefRegMap(@Self)^.clr := $00000020;
  9511. end;
  9512. procedure TICAP4_IC4CON.setICI0(thebits : TBits_1); inline;
  9513. begin
  9514. if thebits = 0 then
  9515. pTDefRegMap(@Self)^.clr := $00000020
  9516. else
  9517. pTDefRegMap(@Self)^.&set := $00000020;
  9518. end;
  9519. function TICAP4_IC4CON.getICI0 : TBits_1; inline;
  9520. begin
  9521. getICI0 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  9522. end;
  9523. procedure TICAP4_IC4CON.setICI1; inline;
  9524. begin
  9525. pTDefRegMap(@Self)^.&set := $00000040;
  9526. end;
  9527. procedure TICAP4_IC4CON.clearICI1; inline;
  9528. begin
  9529. pTDefRegMap(@Self)^.clr := $00000040;
  9530. end;
  9531. procedure TICAP4_IC4CON.setICI1(thebits : TBits_1); inline;
  9532. begin
  9533. if thebits = 0 then
  9534. pTDefRegMap(@Self)^.clr := $00000040
  9535. else
  9536. pTDefRegMap(@Self)^.&set := $00000040;
  9537. end;
  9538. function TICAP4_IC4CON.getICI1 : TBits_1; inline;
  9539. begin
  9540. getICI1 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  9541. end;
  9542. procedure TICAP4_IC4CON.setICSIDL; inline;
  9543. begin
  9544. pTDefRegMap(@Self)^.&set := $00002000;
  9545. end;
  9546. procedure TICAP4_IC4CON.clearICSIDL; inline;
  9547. begin
  9548. pTDefRegMap(@Self)^.clr := $00002000;
  9549. end;
  9550. procedure TICAP4_IC4CON.setICSIDL(thebits : TBits_1); inline;
  9551. begin
  9552. if thebits = 0 then
  9553. pTDefRegMap(@Self)^.clr := $00002000
  9554. else
  9555. pTDefRegMap(@Self)^.&set := $00002000;
  9556. end;
  9557. function TICAP4_IC4CON.getICSIDL : TBits_1; inline;
  9558. begin
  9559. getICSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  9560. end;
  9561. procedure TICAP4_IC4CON.setw(thebits : TBits_32); inline;
  9562. begin
  9563. pTDefRegMap(@Self)^.val := thebits;
  9564. end;
  9565. function TICAP4_IC4CON.getw : TBits_32; inline;
  9566. begin
  9567. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  9568. end;
  9569. procedure TICAP5_IC5CON.setICM(thebits : TBits_3); inline;
  9570. begin
  9571. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  9572. end;
  9573. function TICAP5_IC5CON.getICM : TBits_3; inline;
  9574. begin
  9575. getICM := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  9576. end;
  9577. procedure TICAP5_IC5CON.setICBNE; inline;
  9578. begin
  9579. pTDefRegMap(@Self)^.&set := $00000008;
  9580. end;
  9581. procedure TICAP5_IC5CON.clearICBNE; inline;
  9582. begin
  9583. pTDefRegMap(@Self)^.clr := $00000008;
  9584. end;
  9585. procedure TICAP5_IC5CON.setICBNE(thebits : TBits_1); inline;
  9586. begin
  9587. if thebits = 0 then
  9588. pTDefRegMap(@Self)^.clr := $00000008
  9589. else
  9590. pTDefRegMap(@Self)^.&set := $00000008;
  9591. end;
  9592. function TICAP5_IC5CON.getICBNE : TBits_1; inline;
  9593. begin
  9594. getICBNE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  9595. end;
  9596. procedure TICAP5_IC5CON.setICOV; inline;
  9597. begin
  9598. pTDefRegMap(@Self)^.&set := $00000010;
  9599. end;
  9600. procedure TICAP5_IC5CON.clearICOV; inline;
  9601. begin
  9602. pTDefRegMap(@Self)^.clr := $00000010;
  9603. end;
  9604. procedure TICAP5_IC5CON.setICOV(thebits : TBits_1); inline;
  9605. begin
  9606. if thebits = 0 then
  9607. pTDefRegMap(@Self)^.clr := $00000010
  9608. else
  9609. pTDefRegMap(@Self)^.&set := $00000010;
  9610. end;
  9611. function TICAP5_IC5CON.getICOV : TBits_1; inline;
  9612. begin
  9613. getICOV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  9614. end;
  9615. procedure TICAP5_IC5CON.setICI(thebits : TBits_2); inline;
  9616. begin
  9617. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF9F or ( thebits shl 5 );
  9618. end;
  9619. function TICAP5_IC5CON.getICI : TBits_2; inline;
  9620. begin
  9621. getICI := (pTDefRegMap(@Self)^.val and $00000060) shr 5;
  9622. end;
  9623. procedure TICAP5_IC5CON.setICTMR; inline;
  9624. begin
  9625. pTDefRegMap(@Self)^.&set := $00000080;
  9626. end;
  9627. procedure TICAP5_IC5CON.clearICTMR; inline;
  9628. begin
  9629. pTDefRegMap(@Self)^.clr := $00000080;
  9630. end;
  9631. procedure TICAP5_IC5CON.setICTMR(thebits : TBits_1); inline;
  9632. begin
  9633. if thebits = 0 then
  9634. pTDefRegMap(@Self)^.clr := $00000080
  9635. else
  9636. pTDefRegMap(@Self)^.&set := $00000080;
  9637. end;
  9638. function TICAP5_IC5CON.getICTMR : TBits_1; inline;
  9639. begin
  9640. getICTMR := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  9641. end;
  9642. procedure TICAP5_IC5CON.setC32; inline;
  9643. begin
  9644. pTDefRegMap(@Self)^.&set := $00000100;
  9645. end;
  9646. procedure TICAP5_IC5CON.clearC32; inline;
  9647. begin
  9648. pTDefRegMap(@Self)^.clr := $00000100;
  9649. end;
  9650. procedure TICAP5_IC5CON.setC32(thebits : TBits_1); inline;
  9651. begin
  9652. if thebits = 0 then
  9653. pTDefRegMap(@Self)^.clr := $00000100
  9654. else
  9655. pTDefRegMap(@Self)^.&set := $00000100;
  9656. end;
  9657. function TICAP5_IC5CON.getC32 : TBits_1; inline;
  9658. begin
  9659. getC32 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  9660. end;
  9661. procedure TICAP5_IC5CON.setFEDGE; inline;
  9662. begin
  9663. pTDefRegMap(@Self)^.&set := $00000200;
  9664. end;
  9665. procedure TICAP5_IC5CON.clearFEDGE; inline;
  9666. begin
  9667. pTDefRegMap(@Self)^.clr := $00000200;
  9668. end;
  9669. procedure TICAP5_IC5CON.setFEDGE(thebits : TBits_1); inline;
  9670. begin
  9671. if thebits = 0 then
  9672. pTDefRegMap(@Self)^.clr := $00000200
  9673. else
  9674. pTDefRegMap(@Self)^.&set := $00000200;
  9675. end;
  9676. function TICAP5_IC5CON.getFEDGE : TBits_1; inline;
  9677. begin
  9678. getFEDGE := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  9679. end;
  9680. procedure TICAP5_IC5CON.setSIDL; inline;
  9681. begin
  9682. pTDefRegMap(@Self)^.&set := $00002000;
  9683. end;
  9684. procedure TICAP5_IC5CON.clearSIDL; inline;
  9685. begin
  9686. pTDefRegMap(@Self)^.clr := $00002000;
  9687. end;
  9688. procedure TICAP5_IC5CON.setSIDL(thebits : TBits_1); inline;
  9689. begin
  9690. if thebits = 0 then
  9691. pTDefRegMap(@Self)^.clr := $00002000
  9692. else
  9693. pTDefRegMap(@Self)^.&set := $00002000;
  9694. end;
  9695. function TICAP5_IC5CON.getSIDL : TBits_1; inline;
  9696. begin
  9697. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  9698. end;
  9699. procedure TICAP5_IC5CON.setON; inline;
  9700. begin
  9701. pTDefRegMap(@Self)^.&set := $00008000;
  9702. end;
  9703. procedure TICAP5_IC5CON.clearON; inline;
  9704. begin
  9705. pTDefRegMap(@Self)^.clr := $00008000;
  9706. end;
  9707. procedure TICAP5_IC5CON.setON(thebits : TBits_1); inline;
  9708. begin
  9709. if thebits = 0 then
  9710. pTDefRegMap(@Self)^.clr := $00008000
  9711. else
  9712. pTDefRegMap(@Self)^.&set := $00008000;
  9713. end;
  9714. function TICAP5_IC5CON.getON : TBits_1; inline;
  9715. begin
  9716. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  9717. end;
  9718. procedure TICAP5_IC5CON.setICM0; inline;
  9719. begin
  9720. pTDefRegMap(@Self)^.&set := $00000001;
  9721. end;
  9722. procedure TICAP5_IC5CON.clearICM0; inline;
  9723. begin
  9724. pTDefRegMap(@Self)^.clr := $00000001;
  9725. end;
  9726. procedure TICAP5_IC5CON.setICM0(thebits : TBits_1); inline;
  9727. begin
  9728. if thebits = 0 then
  9729. pTDefRegMap(@Self)^.clr := $00000001
  9730. else
  9731. pTDefRegMap(@Self)^.&set := $00000001;
  9732. end;
  9733. function TICAP5_IC5CON.getICM0 : TBits_1; inline;
  9734. begin
  9735. getICM0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  9736. end;
  9737. procedure TICAP5_IC5CON.setICM1; inline;
  9738. begin
  9739. pTDefRegMap(@Self)^.&set := $00000002;
  9740. end;
  9741. procedure TICAP5_IC5CON.clearICM1; inline;
  9742. begin
  9743. pTDefRegMap(@Self)^.clr := $00000002;
  9744. end;
  9745. procedure TICAP5_IC5CON.setICM1(thebits : TBits_1); inline;
  9746. begin
  9747. if thebits = 0 then
  9748. pTDefRegMap(@Self)^.clr := $00000002
  9749. else
  9750. pTDefRegMap(@Self)^.&set := $00000002;
  9751. end;
  9752. function TICAP5_IC5CON.getICM1 : TBits_1; inline;
  9753. begin
  9754. getICM1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  9755. end;
  9756. procedure TICAP5_IC5CON.setICM2; inline;
  9757. begin
  9758. pTDefRegMap(@Self)^.&set := $00000004;
  9759. end;
  9760. procedure TICAP5_IC5CON.clearICM2; inline;
  9761. begin
  9762. pTDefRegMap(@Self)^.clr := $00000004;
  9763. end;
  9764. procedure TICAP5_IC5CON.setICM2(thebits : TBits_1); inline;
  9765. begin
  9766. if thebits = 0 then
  9767. pTDefRegMap(@Self)^.clr := $00000004
  9768. else
  9769. pTDefRegMap(@Self)^.&set := $00000004;
  9770. end;
  9771. function TICAP5_IC5CON.getICM2 : TBits_1; inline;
  9772. begin
  9773. getICM2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  9774. end;
  9775. procedure TICAP5_IC5CON.setICI0; inline;
  9776. begin
  9777. pTDefRegMap(@Self)^.&set := $00000020;
  9778. end;
  9779. procedure TICAP5_IC5CON.clearICI0; inline;
  9780. begin
  9781. pTDefRegMap(@Self)^.clr := $00000020;
  9782. end;
  9783. procedure TICAP5_IC5CON.setICI0(thebits : TBits_1); inline;
  9784. begin
  9785. if thebits = 0 then
  9786. pTDefRegMap(@Self)^.clr := $00000020
  9787. else
  9788. pTDefRegMap(@Self)^.&set := $00000020;
  9789. end;
  9790. function TICAP5_IC5CON.getICI0 : TBits_1; inline;
  9791. begin
  9792. getICI0 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  9793. end;
  9794. procedure TICAP5_IC5CON.setICI1; inline;
  9795. begin
  9796. pTDefRegMap(@Self)^.&set := $00000040;
  9797. end;
  9798. procedure TICAP5_IC5CON.clearICI1; inline;
  9799. begin
  9800. pTDefRegMap(@Self)^.clr := $00000040;
  9801. end;
  9802. procedure TICAP5_IC5CON.setICI1(thebits : TBits_1); inline;
  9803. begin
  9804. if thebits = 0 then
  9805. pTDefRegMap(@Self)^.clr := $00000040
  9806. else
  9807. pTDefRegMap(@Self)^.&set := $00000040;
  9808. end;
  9809. function TICAP5_IC5CON.getICI1 : TBits_1; inline;
  9810. begin
  9811. getICI1 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  9812. end;
  9813. procedure TICAP5_IC5CON.setICSIDL; inline;
  9814. begin
  9815. pTDefRegMap(@Self)^.&set := $00002000;
  9816. end;
  9817. procedure TICAP5_IC5CON.clearICSIDL; inline;
  9818. begin
  9819. pTDefRegMap(@Self)^.clr := $00002000;
  9820. end;
  9821. procedure TICAP5_IC5CON.setICSIDL(thebits : TBits_1); inline;
  9822. begin
  9823. if thebits = 0 then
  9824. pTDefRegMap(@Self)^.clr := $00002000
  9825. else
  9826. pTDefRegMap(@Self)^.&set := $00002000;
  9827. end;
  9828. function TICAP5_IC5CON.getICSIDL : TBits_1; inline;
  9829. begin
  9830. getICSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  9831. end;
  9832. procedure TICAP5_IC5CON.setw(thebits : TBits_32); inline;
  9833. begin
  9834. pTDefRegMap(@Self)^.val := thebits;
  9835. end;
  9836. function TICAP5_IC5CON.getw : TBits_32; inline;
  9837. begin
  9838. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  9839. end;
  9840. procedure TOCMP1_OC1CON.setOCM(thebits : TBits_3); inline;
  9841. begin
  9842. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  9843. end;
  9844. function TOCMP1_OC1CON.getOCM : TBits_3; inline;
  9845. begin
  9846. getOCM := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  9847. end;
  9848. procedure TOCMP1_OC1CON.setOCTSEL; inline;
  9849. begin
  9850. pTDefRegMap(@Self)^.&set := $00000008;
  9851. end;
  9852. procedure TOCMP1_OC1CON.clearOCTSEL; inline;
  9853. begin
  9854. pTDefRegMap(@Self)^.clr := $00000008;
  9855. end;
  9856. procedure TOCMP1_OC1CON.setOCTSEL(thebits : TBits_1); inline;
  9857. begin
  9858. if thebits = 0 then
  9859. pTDefRegMap(@Self)^.clr := $00000008
  9860. else
  9861. pTDefRegMap(@Self)^.&set := $00000008;
  9862. end;
  9863. function TOCMP1_OC1CON.getOCTSEL : TBits_1; inline;
  9864. begin
  9865. getOCTSEL := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  9866. end;
  9867. procedure TOCMP1_OC1CON.setOCFLT; inline;
  9868. begin
  9869. pTDefRegMap(@Self)^.&set := $00000010;
  9870. end;
  9871. procedure TOCMP1_OC1CON.clearOCFLT; inline;
  9872. begin
  9873. pTDefRegMap(@Self)^.clr := $00000010;
  9874. end;
  9875. procedure TOCMP1_OC1CON.setOCFLT(thebits : TBits_1); inline;
  9876. begin
  9877. if thebits = 0 then
  9878. pTDefRegMap(@Self)^.clr := $00000010
  9879. else
  9880. pTDefRegMap(@Self)^.&set := $00000010;
  9881. end;
  9882. function TOCMP1_OC1CON.getOCFLT : TBits_1; inline;
  9883. begin
  9884. getOCFLT := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  9885. end;
  9886. procedure TOCMP1_OC1CON.setOC32; inline;
  9887. begin
  9888. pTDefRegMap(@Self)^.&set := $00000020;
  9889. end;
  9890. procedure TOCMP1_OC1CON.clearOC32; inline;
  9891. begin
  9892. pTDefRegMap(@Self)^.clr := $00000020;
  9893. end;
  9894. procedure TOCMP1_OC1CON.setOC32(thebits : TBits_1); inline;
  9895. begin
  9896. if thebits = 0 then
  9897. pTDefRegMap(@Self)^.clr := $00000020
  9898. else
  9899. pTDefRegMap(@Self)^.&set := $00000020;
  9900. end;
  9901. function TOCMP1_OC1CON.getOC32 : TBits_1; inline;
  9902. begin
  9903. getOC32 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  9904. end;
  9905. procedure TOCMP1_OC1CON.setSIDL; inline;
  9906. begin
  9907. pTDefRegMap(@Self)^.&set := $00002000;
  9908. end;
  9909. procedure TOCMP1_OC1CON.clearSIDL; inline;
  9910. begin
  9911. pTDefRegMap(@Self)^.clr := $00002000;
  9912. end;
  9913. procedure TOCMP1_OC1CON.setSIDL(thebits : TBits_1); inline;
  9914. begin
  9915. if thebits = 0 then
  9916. pTDefRegMap(@Self)^.clr := $00002000
  9917. else
  9918. pTDefRegMap(@Self)^.&set := $00002000;
  9919. end;
  9920. function TOCMP1_OC1CON.getSIDL : TBits_1; inline;
  9921. begin
  9922. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  9923. end;
  9924. procedure TOCMP1_OC1CON.setON; inline;
  9925. begin
  9926. pTDefRegMap(@Self)^.&set := $00008000;
  9927. end;
  9928. procedure TOCMP1_OC1CON.clearON; inline;
  9929. begin
  9930. pTDefRegMap(@Self)^.clr := $00008000;
  9931. end;
  9932. procedure TOCMP1_OC1CON.setON(thebits : TBits_1); inline;
  9933. begin
  9934. if thebits = 0 then
  9935. pTDefRegMap(@Self)^.clr := $00008000
  9936. else
  9937. pTDefRegMap(@Self)^.&set := $00008000;
  9938. end;
  9939. function TOCMP1_OC1CON.getON : TBits_1; inline;
  9940. begin
  9941. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  9942. end;
  9943. procedure TOCMP1_OC1CON.setOCM0; inline;
  9944. begin
  9945. pTDefRegMap(@Self)^.&set := $00000001;
  9946. end;
  9947. procedure TOCMP1_OC1CON.clearOCM0; inline;
  9948. begin
  9949. pTDefRegMap(@Self)^.clr := $00000001;
  9950. end;
  9951. procedure TOCMP1_OC1CON.setOCM0(thebits : TBits_1); inline;
  9952. begin
  9953. if thebits = 0 then
  9954. pTDefRegMap(@Self)^.clr := $00000001
  9955. else
  9956. pTDefRegMap(@Self)^.&set := $00000001;
  9957. end;
  9958. function TOCMP1_OC1CON.getOCM0 : TBits_1; inline;
  9959. begin
  9960. getOCM0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  9961. end;
  9962. procedure TOCMP1_OC1CON.setOCM1; inline;
  9963. begin
  9964. pTDefRegMap(@Self)^.&set := $00000002;
  9965. end;
  9966. procedure TOCMP1_OC1CON.clearOCM1; inline;
  9967. begin
  9968. pTDefRegMap(@Self)^.clr := $00000002;
  9969. end;
  9970. procedure TOCMP1_OC1CON.setOCM1(thebits : TBits_1); inline;
  9971. begin
  9972. if thebits = 0 then
  9973. pTDefRegMap(@Self)^.clr := $00000002
  9974. else
  9975. pTDefRegMap(@Self)^.&set := $00000002;
  9976. end;
  9977. function TOCMP1_OC1CON.getOCM1 : TBits_1; inline;
  9978. begin
  9979. getOCM1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  9980. end;
  9981. procedure TOCMP1_OC1CON.setOCM2; inline;
  9982. begin
  9983. pTDefRegMap(@Self)^.&set := $00000004;
  9984. end;
  9985. procedure TOCMP1_OC1CON.clearOCM2; inline;
  9986. begin
  9987. pTDefRegMap(@Self)^.clr := $00000004;
  9988. end;
  9989. procedure TOCMP1_OC1CON.setOCM2(thebits : TBits_1); inline;
  9990. begin
  9991. if thebits = 0 then
  9992. pTDefRegMap(@Self)^.clr := $00000004
  9993. else
  9994. pTDefRegMap(@Self)^.&set := $00000004;
  9995. end;
  9996. function TOCMP1_OC1CON.getOCM2 : TBits_1; inline;
  9997. begin
  9998. getOCM2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  9999. end;
  10000. procedure TOCMP1_OC1CON.setOCSIDL; inline;
  10001. begin
  10002. pTDefRegMap(@Self)^.&set := $00002000;
  10003. end;
  10004. procedure TOCMP1_OC1CON.clearOCSIDL; inline;
  10005. begin
  10006. pTDefRegMap(@Self)^.clr := $00002000;
  10007. end;
  10008. procedure TOCMP1_OC1CON.setOCSIDL(thebits : TBits_1); inline;
  10009. begin
  10010. if thebits = 0 then
  10011. pTDefRegMap(@Self)^.clr := $00002000
  10012. else
  10013. pTDefRegMap(@Self)^.&set := $00002000;
  10014. end;
  10015. function TOCMP1_OC1CON.getOCSIDL : TBits_1; inline;
  10016. begin
  10017. getOCSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  10018. end;
  10019. procedure TOCMP1_OC1CON.setw(thebits : TBits_32); inline;
  10020. begin
  10021. pTDefRegMap(@Self)^.val := thebits;
  10022. end;
  10023. function TOCMP1_OC1CON.getw : TBits_32; inline;
  10024. begin
  10025. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  10026. end;
  10027. procedure TOCMP2_OC2CON.setOCM(thebits : TBits_3); inline;
  10028. begin
  10029. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  10030. end;
  10031. function TOCMP2_OC2CON.getOCM : TBits_3; inline;
  10032. begin
  10033. getOCM := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  10034. end;
  10035. procedure TOCMP2_OC2CON.setOCTSEL; inline;
  10036. begin
  10037. pTDefRegMap(@Self)^.&set := $00000008;
  10038. end;
  10039. procedure TOCMP2_OC2CON.clearOCTSEL; inline;
  10040. begin
  10041. pTDefRegMap(@Self)^.clr := $00000008;
  10042. end;
  10043. procedure TOCMP2_OC2CON.setOCTSEL(thebits : TBits_1); inline;
  10044. begin
  10045. if thebits = 0 then
  10046. pTDefRegMap(@Self)^.clr := $00000008
  10047. else
  10048. pTDefRegMap(@Self)^.&set := $00000008;
  10049. end;
  10050. function TOCMP2_OC2CON.getOCTSEL : TBits_1; inline;
  10051. begin
  10052. getOCTSEL := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  10053. end;
  10054. procedure TOCMP2_OC2CON.setOCFLT; inline;
  10055. begin
  10056. pTDefRegMap(@Self)^.&set := $00000010;
  10057. end;
  10058. procedure TOCMP2_OC2CON.clearOCFLT; inline;
  10059. begin
  10060. pTDefRegMap(@Self)^.clr := $00000010;
  10061. end;
  10062. procedure TOCMP2_OC2CON.setOCFLT(thebits : TBits_1); inline;
  10063. begin
  10064. if thebits = 0 then
  10065. pTDefRegMap(@Self)^.clr := $00000010
  10066. else
  10067. pTDefRegMap(@Self)^.&set := $00000010;
  10068. end;
  10069. function TOCMP2_OC2CON.getOCFLT : TBits_1; inline;
  10070. begin
  10071. getOCFLT := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  10072. end;
  10073. procedure TOCMP2_OC2CON.setOC32; inline;
  10074. begin
  10075. pTDefRegMap(@Self)^.&set := $00000020;
  10076. end;
  10077. procedure TOCMP2_OC2CON.clearOC32; inline;
  10078. begin
  10079. pTDefRegMap(@Self)^.clr := $00000020;
  10080. end;
  10081. procedure TOCMP2_OC2CON.setOC32(thebits : TBits_1); inline;
  10082. begin
  10083. if thebits = 0 then
  10084. pTDefRegMap(@Self)^.clr := $00000020
  10085. else
  10086. pTDefRegMap(@Self)^.&set := $00000020;
  10087. end;
  10088. function TOCMP2_OC2CON.getOC32 : TBits_1; inline;
  10089. begin
  10090. getOC32 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  10091. end;
  10092. procedure TOCMP2_OC2CON.setSIDL; inline;
  10093. begin
  10094. pTDefRegMap(@Self)^.&set := $00002000;
  10095. end;
  10096. procedure TOCMP2_OC2CON.clearSIDL; inline;
  10097. begin
  10098. pTDefRegMap(@Self)^.clr := $00002000;
  10099. end;
  10100. procedure TOCMP2_OC2CON.setSIDL(thebits : TBits_1); inline;
  10101. begin
  10102. if thebits = 0 then
  10103. pTDefRegMap(@Self)^.clr := $00002000
  10104. else
  10105. pTDefRegMap(@Self)^.&set := $00002000;
  10106. end;
  10107. function TOCMP2_OC2CON.getSIDL : TBits_1; inline;
  10108. begin
  10109. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  10110. end;
  10111. procedure TOCMP2_OC2CON.setON; inline;
  10112. begin
  10113. pTDefRegMap(@Self)^.&set := $00008000;
  10114. end;
  10115. procedure TOCMP2_OC2CON.clearON; inline;
  10116. begin
  10117. pTDefRegMap(@Self)^.clr := $00008000;
  10118. end;
  10119. procedure TOCMP2_OC2CON.setON(thebits : TBits_1); inline;
  10120. begin
  10121. if thebits = 0 then
  10122. pTDefRegMap(@Self)^.clr := $00008000
  10123. else
  10124. pTDefRegMap(@Self)^.&set := $00008000;
  10125. end;
  10126. function TOCMP2_OC2CON.getON : TBits_1; inline;
  10127. begin
  10128. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  10129. end;
  10130. procedure TOCMP2_OC2CON.setOCM0; inline;
  10131. begin
  10132. pTDefRegMap(@Self)^.&set := $00000001;
  10133. end;
  10134. procedure TOCMP2_OC2CON.clearOCM0; inline;
  10135. begin
  10136. pTDefRegMap(@Self)^.clr := $00000001;
  10137. end;
  10138. procedure TOCMP2_OC2CON.setOCM0(thebits : TBits_1); inline;
  10139. begin
  10140. if thebits = 0 then
  10141. pTDefRegMap(@Self)^.clr := $00000001
  10142. else
  10143. pTDefRegMap(@Self)^.&set := $00000001;
  10144. end;
  10145. function TOCMP2_OC2CON.getOCM0 : TBits_1; inline;
  10146. begin
  10147. getOCM0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  10148. end;
  10149. procedure TOCMP2_OC2CON.setOCM1; inline;
  10150. begin
  10151. pTDefRegMap(@Self)^.&set := $00000002;
  10152. end;
  10153. procedure TOCMP2_OC2CON.clearOCM1; inline;
  10154. begin
  10155. pTDefRegMap(@Self)^.clr := $00000002;
  10156. end;
  10157. procedure TOCMP2_OC2CON.setOCM1(thebits : TBits_1); inline;
  10158. begin
  10159. if thebits = 0 then
  10160. pTDefRegMap(@Self)^.clr := $00000002
  10161. else
  10162. pTDefRegMap(@Self)^.&set := $00000002;
  10163. end;
  10164. function TOCMP2_OC2CON.getOCM1 : TBits_1; inline;
  10165. begin
  10166. getOCM1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  10167. end;
  10168. procedure TOCMP2_OC2CON.setOCM2; inline;
  10169. begin
  10170. pTDefRegMap(@Self)^.&set := $00000004;
  10171. end;
  10172. procedure TOCMP2_OC2CON.clearOCM2; inline;
  10173. begin
  10174. pTDefRegMap(@Self)^.clr := $00000004;
  10175. end;
  10176. procedure TOCMP2_OC2CON.setOCM2(thebits : TBits_1); inline;
  10177. begin
  10178. if thebits = 0 then
  10179. pTDefRegMap(@Self)^.clr := $00000004
  10180. else
  10181. pTDefRegMap(@Self)^.&set := $00000004;
  10182. end;
  10183. function TOCMP2_OC2CON.getOCM2 : TBits_1; inline;
  10184. begin
  10185. getOCM2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  10186. end;
  10187. procedure TOCMP2_OC2CON.setOCSIDL; inline;
  10188. begin
  10189. pTDefRegMap(@Self)^.&set := $00002000;
  10190. end;
  10191. procedure TOCMP2_OC2CON.clearOCSIDL; inline;
  10192. begin
  10193. pTDefRegMap(@Self)^.clr := $00002000;
  10194. end;
  10195. procedure TOCMP2_OC2CON.setOCSIDL(thebits : TBits_1); inline;
  10196. begin
  10197. if thebits = 0 then
  10198. pTDefRegMap(@Self)^.clr := $00002000
  10199. else
  10200. pTDefRegMap(@Self)^.&set := $00002000;
  10201. end;
  10202. function TOCMP2_OC2CON.getOCSIDL : TBits_1; inline;
  10203. begin
  10204. getOCSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  10205. end;
  10206. procedure TOCMP2_OC2CON.setw(thebits : TBits_32); inline;
  10207. begin
  10208. pTDefRegMap(@Self)^.val := thebits;
  10209. end;
  10210. function TOCMP2_OC2CON.getw : TBits_32; inline;
  10211. begin
  10212. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  10213. end;
  10214. procedure TOCMP3_OC3CON.setOCM(thebits : TBits_3); inline;
  10215. begin
  10216. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  10217. end;
  10218. function TOCMP3_OC3CON.getOCM : TBits_3; inline;
  10219. begin
  10220. getOCM := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  10221. end;
  10222. procedure TOCMP3_OC3CON.setOCTSEL; inline;
  10223. begin
  10224. pTDefRegMap(@Self)^.&set := $00000008;
  10225. end;
  10226. procedure TOCMP3_OC3CON.clearOCTSEL; inline;
  10227. begin
  10228. pTDefRegMap(@Self)^.clr := $00000008;
  10229. end;
  10230. procedure TOCMP3_OC3CON.setOCTSEL(thebits : TBits_1); inline;
  10231. begin
  10232. if thebits = 0 then
  10233. pTDefRegMap(@Self)^.clr := $00000008
  10234. else
  10235. pTDefRegMap(@Self)^.&set := $00000008;
  10236. end;
  10237. function TOCMP3_OC3CON.getOCTSEL : TBits_1; inline;
  10238. begin
  10239. getOCTSEL := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  10240. end;
  10241. procedure TOCMP3_OC3CON.setOCFLT; inline;
  10242. begin
  10243. pTDefRegMap(@Self)^.&set := $00000010;
  10244. end;
  10245. procedure TOCMP3_OC3CON.clearOCFLT; inline;
  10246. begin
  10247. pTDefRegMap(@Self)^.clr := $00000010;
  10248. end;
  10249. procedure TOCMP3_OC3CON.setOCFLT(thebits : TBits_1); inline;
  10250. begin
  10251. if thebits = 0 then
  10252. pTDefRegMap(@Self)^.clr := $00000010
  10253. else
  10254. pTDefRegMap(@Self)^.&set := $00000010;
  10255. end;
  10256. function TOCMP3_OC3CON.getOCFLT : TBits_1; inline;
  10257. begin
  10258. getOCFLT := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  10259. end;
  10260. procedure TOCMP3_OC3CON.setOC32; inline;
  10261. begin
  10262. pTDefRegMap(@Self)^.&set := $00000020;
  10263. end;
  10264. procedure TOCMP3_OC3CON.clearOC32; inline;
  10265. begin
  10266. pTDefRegMap(@Self)^.clr := $00000020;
  10267. end;
  10268. procedure TOCMP3_OC3CON.setOC32(thebits : TBits_1); inline;
  10269. begin
  10270. if thebits = 0 then
  10271. pTDefRegMap(@Self)^.clr := $00000020
  10272. else
  10273. pTDefRegMap(@Self)^.&set := $00000020;
  10274. end;
  10275. function TOCMP3_OC3CON.getOC32 : TBits_1; inline;
  10276. begin
  10277. getOC32 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  10278. end;
  10279. procedure TOCMP3_OC3CON.setSIDL; inline;
  10280. begin
  10281. pTDefRegMap(@Self)^.&set := $00002000;
  10282. end;
  10283. procedure TOCMP3_OC3CON.clearSIDL; inline;
  10284. begin
  10285. pTDefRegMap(@Self)^.clr := $00002000;
  10286. end;
  10287. procedure TOCMP3_OC3CON.setSIDL(thebits : TBits_1); inline;
  10288. begin
  10289. if thebits = 0 then
  10290. pTDefRegMap(@Self)^.clr := $00002000
  10291. else
  10292. pTDefRegMap(@Self)^.&set := $00002000;
  10293. end;
  10294. function TOCMP3_OC3CON.getSIDL : TBits_1; inline;
  10295. begin
  10296. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  10297. end;
  10298. procedure TOCMP3_OC3CON.setON; inline;
  10299. begin
  10300. pTDefRegMap(@Self)^.&set := $00008000;
  10301. end;
  10302. procedure TOCMP3_OC3CON.clearON; inline;
  10303. begin
  10304. pTDefRegMap(@Self)^.clr := $00008000;
  10305. end;
  10306. procedure TOCMP3_OC3CON.setON(thebits : TBits_1); inline;
  10307. begin
  10308. if thebits = 0 then
  10309. pTDefRegMap(@Self)^.clr := $00008000
  10310. else
  10311. pTDefRegMap(@Self)^.&set := $00008000;
  10312. end;
  10313. function TOCMP3_OC3CON.getON : TBits_1; inline;
  10314. begin
  10315. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  10316. end;
  10317. procedure TOCMP3_OC3CON.setOCM0; inline;
  10318. begin
  10319. pTDefRegMap(@Self)^.&set := $00000001;
  10320. end;
  10321. procedure TOCMP3_OC3CON.clearOCM0; inline;
  10322. begin
  10323. pTDefRegMap(@Self)^.clr := $00000001;
  10324. end;
  10325. procedure TOCMP3_OC3CON.setOCM0(thebits : TBits_1); inline;
  10326. begin
  10327. if thebits = 0 then
  10328. pTDefRegMap(@Self)^.clr := $00000001
  10329. else
  10330. pTDefRegMap(@Self)^.&set := $00000001;
  10331. end;
  10332. function TOCMP3_OC3CON.getOCM0 : TBits_1; inline;
  10333. begin
  10334. getOCM0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  10335. end;
  10336. procedure TOCMP3_OC3CON.setOCM1; inline;
  10337. begin
  10338. pTDefRegMap(@Self)^.&set := $00000002;
  10339. end;
  10340. procedure TOCMP3_OC3CON.clearOCM1; inline;
  10341. begin
  10342. pTDefRegMap(@Self)^.clr := $00000002;
  10343. end;
  10344. procedure TOCMP3_OC3CON.setOCM1(thebits : TBits_1); inline;
  10345. begin
  10346. if thebits = 0 then
  10347. pTDefRegMap(@Self)^.clr := $00000002
  10348. else
  10349. pTDefRegMap(@Self)^.&set := $00000002;
  10350. end;
  10351. function TOCMP3_OC3CON.getOCM1 : TBits_1; inline;
  10352. begin
  10353. getOCM1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  10354. end;
  10355. procedure TOCMP3_OC3CON.setOCM2; inline;
  10356. begin
  10357. pTDefRegMap(@Self)^.&set := $00000004;
  10358. end;
  10359. procedure TOCMP3_OC3CON.clearOCM2; inline;
  10360. begin
  10361. pTDefRegMap(@Self)^.clr := $00000004;
  10362. end;
  10363. procedure TOCMP3_OC3CON.setOCM2(thebits : TBits_1); inline;
  10364. begin
  10365. if thebits = 0 then
  10366. pTDefRegMap(@Self)^.clr := $00000004
  10367. else
  10368. pTDefRegMap(@Self)^.&set := $00000004;
  10369. end;
  10370. function TOCMP3_OC3CON.getOCM2 : TBits_1; inline;
  10371. begin
  10372. getOCM2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  10373. end;
  10374. procedure TOCMP3_OC3CON.setOCSIDL; inline;
  10375. begin
  10376. pTDefRegMap(@Self)^.&set := $00002000;
  10377. end;
  10378. procedure TOCMP3_OC3CON.clearOCSIDL; inline;
  10379. begin
  10380. pTDefRegMap(@Self)^.clr := $00002000;
  10381. end;
  10382. procedure TOCMP3_OC3CON.setOCSIDL(thebits : TBits_1); inline;
  10383. begin
  10384. if thebits = 0 then
  10385. pTDefRegMap(@Self)^.clr := $00002000
  10386. else
  10387. pTDefRegMap(@Self)^.&set := $00002000;
  10388. end;
  10389. function TOCMP3_OC3CON.getOCSIDL : TBits_1; inline;
  10390. begin
  10391. getOCSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  10392. end;
  10393. procedure TOCMP3_OC3CON.setw(thebits : TBits_32); inline;
  10394. begin
  10395. pTDefRegMap(@Self)^.val := thebits;
  10396. end;
  10397. function TOCMP3_OC3CON.getw : TBits_32; inline;
  10398. begin
  10399. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  10400. end;
  10401. procedure TOCMP4_OC4CON.setOCM(thebits : TBits_3); inline;
  10402. begin
  10403. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  10404. end;
  10405. function TOCMP4_OC4CON.getOCM : TBits_3; inline;
  10406. begin
  10407. getOCM := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  10408. end;
  10409. procedure TOCMP4_OC4CON.setOCTSEL; inline;
  10410. begin
  10411. pTDefRegMap(@Self)^.&set := $00000008;
  10412. end;
  10413. procedure TOCMP4_OC4CON.clearOCTSEL; inline;
  10414. begin
  10415. pTDefRegMap(@Self)^.clr := $00000008;
  10416. end;
  10417. procedure TOCMP4_OC4CON.setOCTSEL(thebits : TBits_1); inline;
  10418. begin
  10419. if thebits = 0 then
  10420. pTDefRegMap(@Self)^.clr := $00000008
  10421. else
  10422. pTDefRegMap(@Self)^.&set := $00000008;
  10423. end;
  10424. function TOCMP4_OC4CON.getOCTSEL : TBits_1; inline;
  10425. begin
  10426. getOCTSEL := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  10427. end;
  10428. procedure TOCMP4_OC4CON.setOCFLT; inline;
  10429. begin
  10430. pTDefRegMap(@Self)^.&set := $00000010;
  10431. end;
  10432. procedure TOCMP4_OC4CON.clearOCFLT; inline;
  10433. begin
  10434. pTDefRegMap(@Self)^.clr := $00000010;
  10435. end;
  10436. procedure TOCMP4_OC4CON.setOCFLT(thebits : TBits_1); inline;
  10437. begin
  10438. if thebits = 0 then
  10439. pTDefRegMap(@Self)^.clr := $00000010
  10440. else
  10441. pTDefRegMap(@Self)^.&set := $00000010;
  10442. end;
  10443. function TOCMP4_OC4CON.getOCFLT : TBits_1; inline;
  10444. begin
  10445. getOCFLT := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  10446. end;
  10447. procedure TOCMP4_OC4CON.setOC32; inline;
  10448. begin
  10449. pTDefRegMap(@Self)^.&set := $00000020;
  10450. end;
  10451. procedure TOCMP4_OC4CON.clearOC32; inline;
  10452. begin
  10453. pTDefRegMap(@Self)^.clr := $00000020;
  10454. end;
  10455. procedure TOCMP4_OC4CON.setOC32(thebits : TBits_1); inline;
  10456. begin
  10457. if thebits = 0 then
  10458. pTDefRegMap(@Self)^.clr := $00000020
  10459. else
  10460. pTDefRegMap(@Self)^.&set := $00000020;
  10461. end;
  10462. function TOCMP4_OC4CON.getOC32 : TBits_1; inline;
  10463. begin
  10464. getOC32 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  10465. end;
  10466. procedure TOCMP4_OC4CON.setSIDL; inline;
  10467. begin
  10468. pTDefRegMap(@Self)^.&set := $00002000;
  10469. end;
  10470. procedure TOCMP4_OC4CON.clearSIDL; inline;
  10471. begin
  10472. pTDefRegMap(@Self)^.clr := $00002000;
  10473. end;
  10474. procedure TOCMP4_OC4CON.setSIDL(thebits : TBits_1); inline;
  10475. begin
  10476. if thebits = 0 then
  10477. pTDefRegMap(@Self)^.clr := $00002000
  10478. else
  10479. pTDefRegMap(@Self)^.&set := $00002000;
  10480. end;
  10481. function TOCMP4_OC4CON.getSIDL : TBits_1; inline;
  10482. begin
  10483. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  10484. end;
  10485. procedure TOCMP4_OC4CON.setON; inline;
  10486. begin
  10487. pTDefRegMap(@Self)^.&set := $00008000;
  10488. end;
  10489. procedure TOCMP4_OC4CON.clearON; inline;
  10490. begin
  10491. pTDefRegMap(@Self)^.clr := $00008000;
  10492. end;
  10493. procedure TOCMP4_OC4CON.setON(thebits : TBits_1); inline;
  10494. begin
  10495. if thebits = 0 then
  10496. pTDefRegMap(@Self)^.clr := $00008000
  10497. else
  10498. pTDefRegMap(@Self)^.&set := $00008000;
  10499. end;
  10500. function TOCMP4_OC4CON.getON : TBits_1; inline;
  10501. begin
  10502. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  10503. end;
  10504. procedure TOCMP4_OC4CON.setOCM0; inline;
  10505. begin
  10506. pTDefRegMap(@Self)^.&set := $00000001;
  10507. end;
  10508. procedure TOCMP4_OC4CON.clearOCM0; inline;
  10509. begin
  10510. pTDefRegMap(@Self)^.clr := $00000001;
  10511. end;
  10512. procedure TOCMP4_OC4CON.setOCM0(thebits : TBits_1); inline;
  10513. begin
  10514. if thebits = 0 then
  10515. pTDefRegMap(@Self)^.clr := $00000001
  10516. else
  10517. pTDefRegMap(@Self)^.&set := $00000001;
  10518. end;
  10519. function TOCMP4_OC4CON.getOCM0 : TBits_1; inline;
  10520. begin
  10521. getOCM0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  10522. end;
  10523. procedure TOCMP4_OC4CON.setOCM1; inline;
  10524. begin
  10525. pTDefRegMap(@Self)^.&set := $00000002;
  10526. end;
  10527. procedure TOCMP4_OC4CON.clearOCM1; inline;
  10528. begin
  10529. pTDefRegMap(@Self)^.clr := $00000002;
  10530. end;
  10531. procedure TOCMP4_OC4CON.setOCM1(thebits : TBits_1); inline;
  10532. begin
  10533. if thebits = 0 then
  10534. pTDefRegMap(@Self)^.clr := $00000002
  10535. else
  10536. pTDefRegMap(@Self)^.&set := $00000002;
  10537. end;
  10538. function TOCMP4_OC4CON.getOCM1 : TBits_1; inline;
  10539. begin
  10540. getOCM1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  10541. end;
  10542. procedure TOCMP4_OC4CON.setOCM2; inline;
  10543. begin
  10544. pTDefRegMap(@Self)^.&set := $00000004;
  10545. end;
  10546. procedure TOCMP4_OC4CON.clearOCM2; inline;
  10547. begin
  10548. pTDefRegMap(@Self)^.clr := $00000004;
  10549. end;
  10550. procedure TOCMP4_OC4CON.setOCM2(thebits : TBits_1); inline;
  10551. begin
  10552. if thebits = 0 then
  10553. pTDefRegMap(@Self)^.clr := $00000004
  10554. else
  10555. pTDefRegMap(@Self)^.&set := $00000004;
  10556. end;
  10557. function TOCMP4_OC4CON.getOCM2 : TBits_1; inline;
  10558. begin
  10559. getOCM2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  10560. end;
  10561. procedure TOCMP4_OC4CON.setOCSIDL; inline;
  10562. begin
  10563. pTDefRegMap(@Self)^.&set := $00002000;
  10564. end;
  10565. procedure TOCMP4_OC4CON.clearOCSIDL; inline;
  10566. begin
  10567. pTDefRegMap(@Self)^.clr := $00002000;
  10568. end;
  10569. procedure TOCMP4_OC4CON.setOCSIDL(thebits : TBits_1); inline;
  10570. begin
  10571. if thebits = 0 then
  10572. pTDefRegMap(@Self)^.clr := $00002000
  10573. else
  10574. pTDefRegMap(@Self)^.&set := $00002000;
  10575. end;
  10576. function TOCMP4_OC4CON.getOCSIDL : TBits_1; inline;
  10577. begin
  10578. getOCSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  10579. end;
  10580. procedure TOCMP4_OC4CON.setw(thebits : TBits_32); inline;
  10581. begin
  10582. pTDefRegMap(@Self)^.val := thebits;
  10583. end;
  10584. function TOCMP4_OC4CON.getw : TBits_32; inline;
  10585. begin
  10586. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  10587. end;
  10588. procedure TOCMP5_OC5CON.setOCM(thebits : TBits_3); inline;
  10589. begin
  10590. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  10591. end;
  10592. function TOCMP5_OC5CON.getOCM : TBits_3; inline;
  10593. begin
  10594. getOCM := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  10595. end;
  10596. procedure TOCMP5_OC5CON.setOCTSEL; inline;
  10597. begin
  10598. pTDefRegMap(@Self)^.&set := $00000008;
  10599. end;
  10600. procedure TOCMP5_OC5CON.clearOCTSEL; inline;
  10601. begin
  10602. pTDefRegMap(@Self)^.clr := $00000008;
  10603. end;
  10604. procedure TOCMP5_OC5CON.setOCTSEL(thebits : TBits_1); inline;
  10605. begin
  10606. if thebits = 0 then
  10607. pTDefRegMap(@Self)^.clr := $00000008
  10608. else
  10609. pTDefRegMap(@Self)^.&set := $00000008;
  10610. end;
  10611. function TOCMP5_OC5CON.getOCTSEL : TBits_1; inline;
  10612. begin
  10613. getOCTSEL := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  10614. end;
  10615. procedure TOCMP5_OC5CON.setOCFLT; inline;
  10616. begin
  10617. pTDefRegMap(@Self)^.&set := $00000010;
  10618. end;
  10619. procedure TOCMP5_OC5CON.clearOCFLT; inline;
  10620. begin
  10621. pTDefRegMap(@Self)^.clr := $00000010;
  10622. end;
  10623. procedure TOCMP5_OC5CON.setOCFLT(thebits : TBits_1); inline;
  10624. begin
  10625. if thebits = 0 then
  10626. pTDefRegMap(@Self)^.clr := $00000010
  10627. else
  10628. pTDefRegMap(@Self)^.&set := $00000010;
  10629. end;
  10630. function TOCMP5_OC5CON.getOCFLT : TBits_1; inline;
  10631. begin
  10632. getOCFLT := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  10633. end;
  10634. procedure TOCMP5_OC5CON.setOC32; inline;
  10635. begin
  10636. pTDefRegMap(@Self)^.&set := $00000020;
  10637. end;
  10638. procedure TOCMP5_OC5CON.clearOC32; inline;
  10639. begin
  10640. pTDefRegMap(@Self)^.clr := $00000020;
  10641. end;
  10642. procedure TOCMP5_OC5CON.setOC32(thebits : TBits_1); inline;
  10643. begin
  10644. if thebits = 0 then
  10645. pTDefRegMap(@Self)^.clr := $00000020
  10646. else
  10647. pTDefRegMap(@Self)^.&set := $00000020;
  10648. end;
  10649. function TOCMP5_OC5CON.getOC32 : TBits_1; inline;
  10650. begin
  10651. getOC32 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  10652. end;
  10653. procedure TOCMP5_OC5CON.setSIDL; inline;
  10654. begin
  10655. pTDefRegMap(@Self)^.&set := $00002000;
  10656. end;
  10657. procedure TOCMP5_OC5CON.clearSIDL; inline;
  10658. begin
  10659. pTDefRegMap(@Self)^.clr := $00002000;
  10660. end;
  10661. procedure TOCMP5_OC5CON.setSIDL(thebits : TBits_1); inline;
  10662. begin
  10663. if thebits = 0 then
  10664. pTDefRegMap(@Self)^.clr := $00002000
  10665. else
  10666. pTDefRegMap(@Self)^.&set := $00002000;
  10667. end;
  10668. function TOCMP5_OC5CON.getSIDL : TBits_1; inline;
  10669. begin
  10670. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  10671. end;
  10672. procedure TOCMP5_OC5CON.setON; inline;
  10673. begin
  10674. pTDefRegMap(@Self)^.&set := $00008000;
  10675. end;
  10676. procedure TOCMP5_OC5CON.clearON; inline;
  10677. begin
  10678. pTDefRegMap(@Self)^.clr := $00008000;
  10679. end;
  10680. procedure TOCMP5_OC5CON.setON(thebits : TBits_1); inline;
  10681. begin
  10682. if thebits = 0 then
  10683. pTDefRegMap(@Self)^.clr := $00008000
  10684. else
  10685. pTDefRegMap(@Self)^.&set := $00008000;
  10686. end;
  10687. function TOCMP5_OC5CON.getON : TBits_1; inline;
  10688. begin
  10689. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  10690. end;
  10691. procedure TOCMP5_OC5CON.setOCM0; inline;
  10692. begin
  10693. pTDefRegMap(@Self)^.&set := $00000001;
  10694. end;
  10695. procedure TOCMP5_OC5CON.clearOCM0; inline;
  10696. begin
  10697. pTDefRegMap(@Self)^.clr := $00000001;
  10698. end;
  10699. procedure TOCMP5_OC5CON.setOCM0(thebits : TBits_1); inline;
  10700. begin
  10701. if thebits = 0 then
  10702. pTDefRegMap(@Self)^.clr := $00000001
  10703. else
  10704. pTDefRegMap(@Self)^.&set := $00000001;
  10705. end;
  10706. function TOCMP5_OC5CON.getOCM0 : TBits_1; inline;
  10707. begin
  10708. getOCM0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  10709. end;
  10710. procedure TOCMP5_OC5CON.setOCM1; inline;
  10711. begin
  10712. pTDefRegMap(@Self)^.&set := $00000002;
  10713. end;
  10714. procedure TOCMP5_OC5CON.clearOCM1; inline;
  10715. begin
  10716. pTDefRegMap(@Self)^.clr := $00000002;
  10717. end;
  10718. procedure TOCMP5_OC5CON.setOCM1(thebits : TBits_1); inline;
  10719. begin
  10720. if thebits = 0 then
  10721. pTDefRegMap(@Self)^.clr := $00000002
  10722. else
  10723. pTDefRegMap(@Self)^.&set := $00000002;
  10724. end;
  10725. function TOCMP5_OC5CON.getOCM1 : TBits_1; inline;
  10726. begin
  10727. getOCM1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  10728. end;
  10729. procedure TOCMP5_OC5CON.setOCM2; inline;
  10730. begin
  10731. pTDefRegMap(@Self)^.&set := $00000004;
  10732. end;
  10733. procedure TOCMP5_OC5CON.clearOCM2; inline;
  10734. begin
  10735. pTDefRegMap(@Self)^.clr := $00000004;
  10736. end;
  10737. procedure TOCMP5_OC5CON.setOCM2(thebits : TBits_1); inline;
  10738. begin
  10739. if thebits = 0 then
  10740. pTDefRegMap(@Self)^.clr := $00000004
  10741. else
  10742. pTDefRegMap(@Self)^.&set := $00000004;
  10743. end;
  10744. function TOCMP5_OC5CON.getOCM2 : TBits_1; inline;
  10745. begin
  10746. getOCM2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  10747. end;
  10748. procedure TOCMP5_OC5CON.setOCSIDL; inline;
  10749. begin
  10750. pTDefRegMap(@Self)^.&set := $00002000;
  10751. end;
  10752. procedure TOCMP5_OC5CON.clearOCSIDL; inline;
  10753. begin
  10754. pTDefRegMap(@Self)^.clr := $00002000;
  10755. end;
  10756. procedure TOCMP5_OC5CON.setOCSIDL(thebits : TBits_1); inline;
  10757. begin
  10758. if thebits = 0 then
  10759. pTDefRegMap(@Self)^.clr := $00002000
  10760. else
  10761. pTDefRegMap(@Self)^.&set := $00002000;
  10762. end;
  10763. function TOCMP5_OC5CON.getOCSIDL : TBits_1; inline;
  10764. begin
  10765. getOCSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  10766. end;
  10767. procedure TOCMP5_OC5CON.setw(thebits : TBits_32); inline;
  10768. begin
  10769. pTDefRegMap(@Self)^.val := thebits;
  10770. end;
  10771. function TOCMP5_OC5CON.getw : TBits_32; inline;
  10772. begin
  10773. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  10774. end;
  10775. procedure TI2C1_I2C1CON.setSEN; inline;
  10776. begin
  10777. pTDefRegMap(@Self)^.&set := $00000001;
  10778. end;
  10779. procedure TI2C1_I2C1CON.clearSEN; inline;
  10780. begin
  10781. pTDefRegMap(@Self)^.clr := $00000001;
  10782. end;
  10783. procedure TI2C1_I2C1CON.setSEN(thebits : TBits_1); inline;
  10784. begin
  10785. if thebits = 0 then
  10786. pTDefRegMap(@Self)^.clr := $00000001
  10787. else
  10788. pTDefRegMap(@Self)^.&set := $00000001;
  10789. end;
  10790. function TI2C1_I2C1CON.getSEN : TBits_1; inline;
  10791. begin
  10792. getSEN := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  10793. end;
  10794. procedure TI2C1_I2C1CON.setRSEN; inline;
  10795. begin
  10796. pTDefRegMap(@Self)^.&set := $00000002;
  10797. end;
  10798. procedure TI2C1_I2C1CON.clearRSEN; inline;
  10799. begin
  10800. pTDefRegMap(@Self)^.clr := $00000002;
  10801. end;
  10802. procedure TI2C1_I2C1CON.setRSEN(thebits : TBits_1); inline;
  10803. begin
  10804. if thebits = 0 then
  10805. pTDefRegMap(@Self)^.clr := $00000002
  10806. else
  10807. pTDefRegMap(@Self)^.&set := $00000002;
  10808. end;
  10809. function TI2C1_I2C1CON.getRSEN : TBits_1; inline;
  10810. begin
  10811. getRSEN := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  10812. end;
  10813. procedure TI2C1_I2C1CON.setPEN; inline;
  10814. begin
  10815. pTDefRegMap(@Self)^.&set := $00000004;
  10816. end;
  10817. procedure TI2C1_I2C1CON.clearPEN; inline;
  10818. begin
  10819. pTDefRegMap(@Self)^.clr := $00000004;
  10820. end;
  10821. procedure TI2C1_I2C1CON.setPEN(thebits : TBits_1); inline;
  10822. begin
  10823. if thebits = 0 then
  10824. pTDefRegMap(@Self)^.clr := $00000004
  10825. else
  10826. pTDefRegMap(@Self)^.&set := $00000004;
  10827. end;
  10828. function TI2C1_I2C1CON.getPEN : TBits_1; inline;
  10829. begin
  10830. getPEN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  10831. end;
  10832. procedure TI2C1_I2C1CON.setRCEN; inline;
  10833. begin
  10834. pTDefRegMap(@Self)^.&set := $00000008;
  10835. end;
  10836. procedure TI2C1_I2C1CON.clearRCEN; inline;
  10837. begin
  10838. pTDefRegMap(@Self)^.clr := $00000008;
  10839. end;
  10840. procedure TI2C1_I2C1CON.setRCEN(thebits : TBits_1); inline;
  10841. begin
  10842. if thebits = 0 then
  10843. pTDefRegMap(@Self)^.clr := $00000008
  10844. else
  10845. pTDefRegMap(@Self)^.&set := $00000008;
  10846. end;
  10847. function TI2C1_I2C1CON.getRCEN : TBits_1; inline;
  10848. begin
  10849. getRCEN := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  10850. end;
  10851. procedure TI2C1_I2C1CON.setACKEN; inline;
  10852. begin
  10853. pTDefRegMap(@Self)^.&set := $00000010;
  10854. end;
  10855. procedure TI2C1_I2C1CON.clearACKEN; inline;
  10856. begin
  10857. pTDefRegMap(@Self)^.clr := $00000010;
  10858. end;
  10859. procedure TI2C1_I2C1CON.setACKEN(thebits : TBits_1); inline;
  10860. begin
  10861. if thebits = 0 then
  10862. pTDefRegMap(@Self)^.clr := $00000010
  10863. else
  10864. pTDefRegMap(@Self)^.&set := $00000010;
  10865. end;
  10866. function TI2C1_I2C1CON.getACKEN : TBits_1; inline;
  10867. begin
  10868. getACKEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  10869. end;
  10870. procedure TI2C1_I2C1CON.setACKDT; inline;
  10871. begin
  10872. pTDefRegMap(@Self)^.&set := $00000020;
  10873. end;
  10874. procedure TI2C1_I2C1CON.clearACKDT; inline;
  10875. begin
  10876. pTDefRegMap(@Self)^.clr := $00000020;
  10877. end;
  10878. procedure TI2C1_I2C1CON.setACKDT(thebits : TBits_1); inline;
  10879. begin
  10880. if thebits = 0 then
  10881. pTDefRegMap(@Self)^.clr := $00000020
  10882. else
  10883. pTDefRegMap(@Self)^.&set := $00000020;
  10884. end;
  10885. function TI2C1_I2C1CON.getACKDT : TBits_1; inline;
  10886. begin
  10887. getACKDT := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  10888. end;
  10889. procedure TI2C1_I2C1CON.setSTREN; inline;
  10890. begin
  10891. pTDefRegMap(@Self)^.&set := $00000040;
  10892. end;
  10893. procedure TI2C1_I2C1CON.clearSTREN; inline;
  10894. begin
  10895. pTDefRegMap(@Self)^.clr := $00000040;
  10896. end;
  10897. procedure TI2C1_I2C1CON.setSTREN(thebits : TBits_1); inline;
  10898. begin
  10899. if thebits = 0 then
  10900. pTDefRegMap(@Self)^.clr := $00000040
  10901. else
  10902. pTDefRegMap(@Self)^.&set := $00000040;
  10903. end;
  10904. function TI2C1_I2C1CON.getSTREN : TBits_1; inline;
  10905. begin
  10906. getSTREN := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  10907. end;
  10908. procedure TI2C1_I2C1CON.setGCEN; inline;
  10909. begin
  10910. pTDefRegMap(@Self)^.&set := $00000080;
  10911. end;
  10912. procedure TI2C1_I2C1CON.clearGCEN; inline;
  10913. begin
  10914. pTDefRegMap(@Self)^.clr := $00000080;
  10915. end;
  10916. procedure TI2C1_I2C1CON.setGCEN(thebits : TBits_1); inline;
  10917. begin
  10918. if thebits = 0 then
  10919. pTDefRegMap(@Self)^.clr := $00000080
  10920. else
  10921. pTDefRegMap(@Self)^.&set := $00000080;
  10922. end;
  10923. function TI2C1_I2C1CON.getGCEN : TBits_1; inline;
  10924. begin
  10925. getGCEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  10926. end;
  10927. procedure TI2C1_I2C1CON.setSMEN; inline;
  10928. begin
  10929. pTDefRegMap(@Self)^.&set := $00000100;
  10930. end;
  10931. procedure TI2C1_I2C1CON.clearSMEN; inline;
  10932. begin
  10933. pTDefRegMap(@Self)^.clr := $00000100;
  10934. end;
  10935. procedure TI2C1_I2C1CON.setSMEN(thebits : TBits_1); inline;
  10936. begin
  10937. if thebits = 0 then
  10938. pTDefRegMap(@Self)^.clr := $00000100
  10939. else
  10940. pTDefRegMap(@Self)^.&set := $00000100;
  10941. end;
  10942. function TI2C1_I2C1CON.getSMEN : TBits_1; inline;
  10943. begin
  10944. getSMEN := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  10945. end;
  10946. procedure TI2C1_I2C1CON.setDISSLW; inline;
  10947. begin
  10948. pTDefRegMap(@Self)^.&set := $00000200;
  10949. end;
  10950. procedure TI2C1_I2C1CON.clearDISSLW; inline;
  10951. begin
  10952. pTDefRegMap(@Self)^.clr := $00000200;
  10953. end;
  10954. procedure TI2C1_I2C1CON.setDISSLW(thebits : TBits_1); inline;
  10955. begin
  10956. if thebits = 0 then
  10957. pTDefRegMap(@Self)^.clr := $00000200
  10958. else
  10959. pTDefRegMap(@Self)^.&set := $00000200;
  10960. end;
  10961. function TI2C1_I2C1CON.getDISSLW : TBits_1; inline;
  10962. begin
  10963. getDISSLW := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  10964. end;
  10965. procedure TI2C1_I2C1CON.setA10M; inline;
  10966. begin
  10967. pTDefRegMap(@Self)^.&set := $00000400;
  10968. end;
  10969. procedure TI2C1_I2C1CON.clearA10M; inline;
  10970. begin
  10971. pTDefRegMap(@Self)^.clr := $00000400;
  10972. end;
  10973. procedure TI2C1_I2C1CON.setA10M(thebits : TBits_1); inline;
  10974. begin
  10975. if thebits = 0 then
  10976. pTDefRegMap(@Self)^.clr := $00000400
  10977. else
  10978. pTDefRegMap(@Self)^.&set := $00000400;
  10979. end;
  10980. function TI2C1_I2C1CON.getA10M : TBits_1; inline;
  10981. begin
  10982. getA10M := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  10983. end;
  10984. procedure TI2C1_I2C1CON.setSTRICT; inline;
  10985. begin
  10986. pTDefRegMap(@Self)^.&set := $00000800;
  10987. end;
  10988. procedure TI2C1_I2C1CON.clearSTRICT; inline;
  10989. begin
  10990. pTDefRegMap(@Self)^.clr := $00000800;
  10991. end;
  10992. procedure TI2C1_I2C1CON.setSTRICT(thebits : TBits_1); inline;
  10993. begin
  10994. if thebits = 0 then
  10995. pTDefRegMap(@Self)^.clr := $00000800
  10996. else
  10997. pTDefRegMap(@Self)^.&set := $00000800;
  10998. end;
  10999. function TI2C1_I2C1CON.getSTRICT : TBits_1; inline;
  11000. begin
  11001. getSTRICT := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  11002. end;
  11003. procedure TI2C1_I2C1CON.setSCLREL; inline;
  11004. begin
  11005. pTDefRegMap(@Self)^.&set := $00001000;
  11006. end;
  11007. procedure TI2C1_I2C1CON.clearSCLREL; inline;
  11008. begin
  11009. pTDefRegMap(@Self)^.clr := $00001000;
  11010. end;
  11011. procedure TI2C1_I2C1CON.setSCLREL(thebits : TBits_1); inline;
  11012. begin
  11013. if thebits = 0 then
  11014. pTDefRegMap(@Self)^.clr := $00001000
  11015. else
  11016. pTDefRegMap(@Self)^.&set := $00001000;
  11017. end;
  11018. function TI2C1_I2C1CON.getSCLREL : TBits_1; inline;
  11019. begin
  11020. getSCLREL := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  11021. end;
  11022. procedure TI2C1_I2C1CON.setSIDL; inline;
  11023. begin
  11024. pTDefRegMap(@Self)^.&set := $00002000;
  11025. end;
  11026. procedure TI2C1_I2C1CON.clearSIDL; inline;
  11027. begin
  11028. pTDefRegMap(@Self)^.clr := $00002000;
  11029. end;
  11030. procedure TI2C1_I2C1CON.setSIDL(thebits : TBits_1); inline;
  11031. begin
  11032. if thebits = 0 then
  11033. pTDefRegMap(@Self)^.clr := $00002000
  11034. else
  11035. pTDefRegMap(@Self)^.&set := $00002000;
  11036. end;
  11037. function TI2C1_I2C1CON.getSIDL : TBits_1; inline;
  11038. begin
  11039. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  11040. end;
  11041. procedure TI2C1_I2C1CON.setON; inline;
  11042. begin
  11043. pTDefRegMap(@Self)^.&set := $00008000;
  11044. end;
  11045. procedure TI2C1_I2C1CON.clearON; inline;
  11046. begin
  11047. pTDefRegMap(@Self)^.clr := $00008000;
  11048. end;
  11049. procedure TI2C1_I2C1CON.setON(thebits : TBits_1); inline;
  11050. begin
  11051. if thebits = 0 then
  11052. pTDefRegMap(@Self)^.clr := $00008000
  11053. else
  11054. pTDefRegMap(@Self)^.&set := $00008000;
  11055. end;
  11056. function TI2C1_I2C1CON.getON : TBits_1; inline;
  11057. begin
  11058. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  11059. end;
  11060. procedure TI2C1_I2C1CON.setIPMIEN; inline;
  11061. begin
  11062. pTDefRegMap(@Self)^.&set := $00000800;
  11063. end;
  11064. procedure TI2C1_I2C1CON.clearIPMIEN; inline;
  11065. begin
  11066. pTDefRegMap(@Self)^.clr := $00000800;
  11067. end;
  11068. procedure TI2C1_I2C1CON.setIPMIEN(thebits : TBits_1); inline;
  11069. begin
  11070. if thebits = 0 then
  11071. pTDefRegMap(@Self)^.clr := $00000800
  11072. else
  11073. pTDefRegMap(@Self)^.&set := $00000800;
  11074. end;
  11075. function TI2C1_I2C1CON.getIPMIEN : TBits_1; inline;
  11076. begin
  11077. getIPMIEN := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  11078. end;
  11079. procedure TI2C1_I2C1CON.setI2CSIDL; inline;
  11080. begin
  11081. pTDefRegMap(@Self)^.&set := $00002000;
  11082. end;
  11083. procedure TI2C1_I2C1CON.clearI2CSIDL; inline;
  11084. begin
  11085. pTDefRegMap(@Self)^.clr := $00002000;
  11086. end;
  11087. procedure TI2C1_I2C1CON.setI2CSIDL(thebits : TBits_1); inline;
  11088. begin
  11089. if thebits = 0 then
  11090. pTDefRegMap(@Self)^.clr := $00002000
  11091. else
  11092. pTDefRegMap(@Self)^.&set := $00002000;
  11093. end;
  11094. function TI2C1_I2C1CON.getI2CSIDL : TBits_1; inline;
  11095. begin
  11096. getI2CSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  11097. end;
  11098. procedure TI2C1_I2C1CON.setI2CEN; inline;
  11099. begin
  11100. pTDefRegMap(@Self)^.&set := $00008000;
  11101. end;
  11102. procedure TI2C1_I2C1CON.clearI2CEN; inline;
  11103. begin
  11104. pTDefRegMap(@Self)^.clr := $00008000;
  11105. end;
  11106. procedure TI2C1_I2C1CON.setI2CEN(thebits : TBits_1); inline;
  11107. begin
  11108. if thebits = 0 then
  11109. pTDefRegMap(@Self)^.clr := $00008000
  11110. else
  11111. pTDefRegMap(@Self)^.&set := $00008000;
  11112. end;
  11113. function TI2C1_I2C1CON.getI2CEN : TBits_1; inline;
  11114. begin
  11115. getI2CEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  11116. end;
  11117. procedure TI2C1_I2C1CON.setw(thebits : TBits_32); inline;
  11118. begin
  11119. pTDefRegMap(@Self)^.val := thebits;
  11120. end;
  11121. function TI2C1_I2C1CON.getw : TBits_32; inline;
  11122. begin
  11123. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  11124. end;
  11125. procedure TI2C1_I2C1STAT.setTBF; inline;
  11126. begin
  11127. pTDefRegMap(@Self)^.&set := $00000001;
  11128. end;
  11129. procedure TI2C1_I2C1STAT.clearTBF; inline;
  11130. begin
  11131. pTDefRegMap(@Self)^.clr := $00000001;
  11132. end;
  11133. procedure TI2C1_I2C1STAT.setTBF(thebits : TBits_1); inline;
  11134. begin
  11135. if thebits = 0 then
  11136. pTDefRegMap(@Self)^.clr := $00000001
  11137. else
  11138. pTDefRegMap(@Self)^.&set := $00000001;
  11139. end;
  11140. function TI2C1_I2C1STAT.getTBF : TBits_1; inline;
  11141. begin
  11142. getTBF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  11143. end;
  11144. procedure TI2C1_I2C1STAT.setRBF; inline;
  11145. begin
  11146. pTDefRegMap(@Self)^.&set := $00000002;
  11147. end;
  11148. procedure TI2C1_I2C1STAT.clearRBF; inline;
  11149. begin
  11150. pTDefRegMap(@Self)^.clr := $00000002;
  11151. end;
  11152. procedure TI2C1_I2C1STAT.setRBF(thebits : TBits_1); inline;
  11153. begin
  11154. if thebits = 0 then
  11155. pTDefRegMap(@Self)^.clr := $00000002
  11156. else
  11157. pTDefRegMap(@Self)^.&set := $00000002;
  11158. end;
  11159. function TI2C1_I2C1STAT.getRBF : TBits_1; inline;
  11160. begin
  11161. getRBF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  11162. end;
  11163. procedure TI2C1_I2C1STAT.setR_W; inline;
  11164. begin
  11165. pTDefRegMap(@Self)^.&set := $00000004;
  11166. end;
  11167. procedure TI2C1_I2C1STAT.clearR_W; inline;
  11168. begin
  11169. pTDefRegMap(@Self)^.clr := $00000004;
  11170. end;
  11171. procedure TI2C1_I2C1STAT.setR_W(thebits : TBits_1); inline;
  11172. begin
  11173. if thebits = 0 then
  11174. pTDefRegMap(@Self)^.clr := $00000004
  11175. else
  11176. pTDefRegMap(@Self)^.&set := $00000004;
  11177. end;
  11178. function TI2C1_I2C1STAT.getR_W : TBits_1; inline;
  11179. begin
  11180. getR_W := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  11181. end;
  11182. procedure TI2C1_I2C1STAT.setS; inline;
  11183. begin
  11184. pTDefRegMap(@Self)^.&set := $00000008;
  11185. end;
  11186. procedure TI2C1_I2C1STAT.clearS; inline;
  11187. begin
  11188. pTDefRegMap(@Self)^.clr := $00000008;
  11189. end;
  11190. procedure TI2C1_I2C1STAT.setS(thebits : TBits_1); inline;
  11191. begin
  11192. if thebits = 0 then
  11193. pTDefRegMap(@Self)^.clr := $00000008
  11194. else
  11195. pTDefRegMap(@Self)^.&set := $00000008;
  11196. end;
  11197. function TI2C1_I2C1STAT.getS : TBits_1; inline;
  11198. begin
  11199. getS := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  11200. end;
  11201. procedure TI2C1_I2C1STAT.setP; inline;
  11202. begin
  11203. pTDefRegMap(@Self)^.&set := $00000010;
  11204. end;
  11205. procedure TI2C1_I2C1STAT.clearP; inline;
  11206. begin
  11207. pTDefRegMap(@Self)^.clr := $00000010;
  11208. end;
  11209. procedure TI2C1_I2C1STAT.setP(thebits : TBits_1); inline;
  11210. begin
  11211. if thebits = 0 then
  11212. pTDefRegMap(@Self)^.clr := $00000010
  11213. else
  11214. pTDefRegMap(@Self)^.&set := $00000010;
  11215. end;
  11216. function TI2C1_I2C1STAT.getP : TBits_1; inline;
  11217. begin
  11218. getP := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  11219. end;
  11220. procedure TI2C1_I2C1STAT.setD_A; inline;
  11221. begin
  11222. pTDefRegMap(@Self)^.&set := $00000020;
  11223. end;
  11224. procedure TI2C1_I2C1STAT.clearD_A; inline;
  11225. begin
  11226. pTDefRegMap(@Self)^.clr := $00000020;
  11227. end;
  11228. procedure TI2C1_I2C1STAT.setD_A(thebits : TBits_1); inline;
  11229. begin
  11230. if thebits = 0 then
  11231. pTDefRegMap(@Self)^.clr := $00000020
  11232. else
  11233. pTDefRegMap(@Self)^.&set := $00000020;
  11234. end;
  11235. function TI2C1_I2C1STAT.getD_A : TBits_1; inline;
  11236. begin
  11237. getD_A := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  11238. end;
  11239. procedure TI2C1_I2C1STAT.setI2COV; inline;
  11240. begin
  11241. pTDefRegMap(@Self)^.&set := $00000040;
  11242. end;
  11243. procedure TI2C1_I2C1STAT.clearI2COV; inline;
  11244. begin
  11245. pTDefRegMap(@Self)^.clr := $00000040;
  11246. end;
  11247. procedure TI2C1_I2C1STAT.setI2COV(thebits : TBits_1); inline;
  11248. begin
  11249. if thebits = 0 then
  11250. pTDefRegMap(@Self)^.clr := $00000040
  11251. else
  11252. pTDefRegMap(@Self)^.&set := $00000040;
  11253. end;
  11254. function TI2C1_I2C1STAT.getI2COV : TBits_1; inline;
  11255. begin
  11256. getI2COV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  11257. end;
  11258. procedure TI2C1_I2C1STAT.setIWCOL; inline;
  11259. begin
  11260. pTDefRegMap(@Self)^.&set := $00000080;
  11261. end;
  11262. procedure TI2C1_I2C1STAT.clearIWCOL; inline;
  11263. begin
  11264. pTDefRegMap(@Self)^.clr := $00000080;
  11265. end;
  11266. procedure TI2C1_I2C1STAT.setIWCOL(thebits : TBits_1); inline;
  11267. begin
  11268. if thebits = 0 then
  11269. pTDefRegMap(@Self)^.clr := $00000080
  11270. else
  11271. pTDefRegMap(@Self)^.&set := $00000080;
  11272. end;
  11273. function TI2C1_I2C1STAT.getIWCOL : TBits_1; inline;
  11274. begin
  11275. getIWCOL := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  11276. end;
  11277. procedure TI2C1_I2C1STAT.setADD10; inline;
  11278. begin
  11279. pTDefRegMap(@Self)^.&set := $00000100;
  11280. end;
  11281. procedure TI2C1_I2C1STAT.clearADD10; inline;
  11282. begin
  11283. pTDefRegMap(@Self)^.clr := $00000100;
  11284. end;
  11285. procedure TI2C1_I2C1STAT.setADD10(thebits : TBits_1); inline;
  11286. begin
  11287. if thebits = 0 then
  11288. pTDefRegMap(@Self)^.clr := $00000100
  11289. else
  11290. pTDefRegMap(@Self)^.&set := $00000100;
  11291. end;
  11292. function TI2C1_I2C1STAT.getADD10 : TBits_1; inline;
  11293. begin
  11294. getADD10 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  11295. end;
  11296. procedure TI2C1_I2C1STAT.setGCSTAT; inline;
  11297. begin
  11298. pTDefRegMap(@Self)^.&set := $00000200;
  11299. end;
  11300. procedure TI2C1_I2C1STAT.clearGCSTAT; inline;
  11301. begin
  11302. pTDefRegMap(@Self)^.clr := $00000200;
  11303. end;
  11304. procedure TI2C1_I2C1STAT.setGCSTAT(thebits : TBits_1); inline;
  11305. begin
  11306. if thebits = 0 then
  11307. pTDefRegMap(@Self)^.clr := $00000200
  11308. else
  11309. pTDefRegMap(@Self)^.&set := $00000200;
  11310. end;
  11311. function TI2C1_I2C1STAT.getGCSTAT : TBits_1; inline;
  11312. begin
  11313. getGCSTAT := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  11314. end;
  11315. procedure TI2C1_I2C1STAT.setBCL; inline;
  11316. begin
  11317. pTDefRegMap(@Self)^.&set := $00000400;
  11318. end;
  11319. procedure TI2C1_I2C1STAT.clearBCL; inline;
  11320. begin
  11321. pTDefRegMap(@Self)^.clr := $00000400;
  11322. end;
  11323. procedure TI2C1_I2C1STAT.setBCL(thebits : TBits_1); inline;
  11324. begin
  11325. if thebits = 0 then
  11326. pTDefRegMap(@Self)^.clr := $00000400
  11327. else
  11328. pTDefRegMap(@Self)^.&set := $00000400;
  11329. end;
  11330. function TI2C1_I2C1STAT.getBCL : TBits_1; inline;
  11331. begin
  11332. getBCL := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  11333. end;
  11334. procedure TI2C1_I2C1STAT.setTRSTAT; inline;
  11335. begin
  11336. pTDefRegMap(@Self)^.&set := $00004000;
  11337. end;
  11338. procedure TI2C1_I2C1STAT.clearTRSTAT; inline;
  11339. begin
  11340. pTDefRegMap(@Self)^.clr := $00004000;
  11341. end;
  11342. procedure TI2C1_I2C1STAT.setTRSTAT(thebits : TBits_1); inline;
  11343. begin
  11344. if thebits = 0 then
  11345. pTDefRegMap(@Self)^.clr := $00004000
  11346. else
  11347. pTDefRegMap(@Self)^.&set := $00004000;
  11348. end;
  11349. function TI2C1_I2C1STAT.getTRSTAT : TBits_1; inline;
  11350. begin
  11351. getTRSTAT := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  11352. end;
  11353. procedure TI2C1_I2C1STAT.setACKSTAT; inline;
  11354. begin
  11355. pTDefRegMap(@Self)^.&set := $00008000;
  11356. end;
  11357. procedure TI2C1_I2C1STAT.clearACKSTAT; inline;
  11358. begin
  11359. pTDefRegMap(@Self)^.clr := $00008000;
  11360. end;
  11361. procedure TI2C1_I2C1STAT.setACKSTAT(thebits : TBits_1); inline;
  11362. begin
  11363. if thebits = 0 then
  11364. pTDefRegMap(@Self)^.clr := $00008000
  11365. else
  11366. pTDefRegMap(@Self)^.&set := $00008000;
  11367. end;
  11368. function TI2C1_I2C1STAT.getACKSTAT : TBits_1; inline;
  11369. begin
  11370. getACKSTAT := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  11371. end;
  11372. procedure TI2C1_I2C1STAT.setI2CPOV; inline;
  11373. begin
  11374. pTDefRegMap(@Self)^.&set := $00000040;
  11375. end;
  11376. procedure TI2C1_I2C1STAT.clearI2CPOV; inline;
  11377. begin
  11378. pTDefRegMap(@Self)^.clr := $00000040;
  11379. end;
  11380. procedure TI2C1_I2C1STAT.setI2CPOV(thebits : TBits_1); inline;
  11381. begin
  11382. if thebits = 0 then
  11383. pTDefRegMap(@Self)^.clr := $00000040
  11384. else
  11385. pTDefRegMap(@Self)^.&set := $00000040;
  11386. end;
  11387. function TI2C1_I2C1STAT.getI2CPOV : TBits_1; inline;
  11388. begin
  11389. getI2CPOV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  11390. end;
  11391. procedure TI2C1_I2C1STAT.setw(thebits : TBits_32); inline;
  11392. begin
  11393. pTDefRegMap(@Self)^.val := thebits;
  11394. end;
  11395. function TI2C1_I2C1STAT.getw : TBits_32; inline;
  11396. begin
  11397. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  11398. end;
  11399. procedure TI2C2_I2C2CON.setSEN; inline;
  11400. begin
  11401. pTDefRegMap(@Self)^.&set := $00000001;
  11402. end;
  11403. procedure TI2C2_I2C2CON.clearSEN; inline;
  11404. begin
  11405. pTDefRegMap(@Self)^.clr := $00000001;
  11406. end;
  11407. procedure TI2C2_I2C2CON.setSEN(thebits : TBits_1); inline;
  11408. begin
  11409. if thebits = 0 then
  11410. pTDefRegMap(@Self)^.clr := $00000001
  11411. else
  11412. pTDefRegMap(@Self)^.&set := $00000001;
  11413. end;
  11414. function TI2C2_I2C2CON.getSEN : TBits_1; inline;
  11415. begin
  11416. getSEN := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  11417. end;
  11418. procedure TI2C2_I2C2CON.setRSEN; inline;
  11419. begin
  11420. pTDefRegMap(@Self)^.&set := $00000002;
  11421. end;
  11422. procedure TI2C2_I2C2CON.clearRSEN; inline;
  11423. begin
  11424. pTDefRegMap(@Self)^.clr := $00000002;
  11425. end;
  11426. procedure TI2C2_I2C2CON.setRSEN(thebits : TBits_1); inline;
  11427. begin
  11428. if thebits = 0 then
  11429. pTDefRegMap(@Self)^.clr := $00000002
  11430. else
  11431. pTDefRegMap(@Self)^.&set := $00000002;
  11432. end;
  11433. function TI2C2_I2C2CON.getRSEN : TBits_1; inline;
  11434. begin
  11435. getRSEN := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  11436. end;
  11437. procedure TI2C2_I2C2CON.setPEN; inline;
  11438. begin
  11439. pTDefRegMap(@Self)^.&set := $00000004;
  11440. end;
  11441. procedure TI2C2_I2C2CON.clearPEN; inline;
  11442. begin
  11443. pTDefRegMap(@Self)^.clr := $00000004;
  11444. end;
  11445. procedure TI2C2_I2C2CON.setPEN(thebits : TBits_1); inline;
  11446. begin
  11447. if thebits = 0 then
  11448. pTDefRegMap(@Self)^.clr := $00000004
  11449. else
  11450. pTDefRegMap(@Self)^.&set := $00000004;
  11451. end;
  11452. function TI2C2_I2C2CON.getPEN : TBits_1; inline;
  11453. begin
  11454. getPEN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  11455. end;
  11456. procedure TI2C2_I2C2CON.setRCEN; inline;
  11457. begin
  11458. pTDefRegMap(@Self)^.&set := $00000008;
  11459. end;
  11460. procedure TI2C2_I2C2CON.clearRCEN; inline;
  11461. begin
  11462. pTDefRegMap(@Self)^.clr := $00000008;
  11463. end;
  11464. procedure TI2C2_I2C2CON.setRCEN(thebits : TBits_1); inline;
  11465. begin
  11466. if thebits = 0 then
  11467. pTDefRegMap(@Self)^.clr := $00000008
  11468. else
  11469. pTDefRegMap(@Self)^.&set := $00000008;
  11470. end;
  11471. function TI2C2_I2C2CON.getRCEN : TBits_1; inline;
  11472. begin
  11473. getRCEN := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  11474. end;
  11475. procedure TI2C2_I2C2CON.setACKEN; inline;
  11476. begin
  11477. pTDefRegMap(@Self)^.&set := $00000010;
  11478. end;
  11479. procedure TI2C2_I2C2CON.clearACKEN; inline;
  11480. begin
  11481. pTDefRegMap(@Self)^.clr := $00000010;
  11482. end;
  11483. procedure TI2C2_I2C2CON.setACKEN(thebits : TBits_1); inline;
  11484. begin
  11485. if thebits = 0 then
  11486. pTDefRegMap(@Self)^.clr := $00000010
  11487. else
  11488. pTDefRegMap(@Self)^.&set := $00000010;
  11489. end;
  11490. function TI2C2_I2C2CON.getACKEN : TBits_1; inline;
  11491. begin
  11492. getACKEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  11493. end;
  11494. procedure TI2C2_I2C2CON.setACKDT; inline;
  11495. begin
  11496. pTDefRegMap(@Self)^.&set := $00000020;
  11497. end;
  11498. procedure TI2C2_I2C2CON.clearACKDT; inline;
  11499. begin
  11500. pTDefRegMap(@Self)^.clr := $00000020;
  11501. end;
  11502. procedure TI2C2_I2C2CON.setACKDT(thebits : TBits_1); inline;
  11503. begin
  11504. if thebits = 0 then
  11505. pTDefRegMap(@Self)^.clr := $00000020
  11506. else
  11507. pTDefRegMap(@Self)^.&set := $00000020;
  11508. end;
  11509. function TI2C2_I2C2CON.getACKDT : TBits_1; inline;
  11510. begin
  11511. getACKDT := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  11512. end;
  11513. procedure TI2C2_I2C2CON.setSTREN; inline;
  11514. begin
  11515. pTDefRegMap(@Self)^.&set := $00000040;
  11516. end;
  11517. procedure TI2C2_I2C2CON.clearSTREN; inline;
  11518. begin
  11519. pTDefRegMap(@Self)^.clr := $00000040;
  11520. end;
  11521. procedure TI2C2_I2C2CON.setSTREN(thebits : TBits_1); inline;
  11522. begin
  11523. if thebits = 0 then
  11524. pTDefRegMap(@Self)^.clr := $00000040
  11525. else
  11526. pTDefRegMap(@Self)^.&set := $00000040;
  11527. end;
  11528. function TI2C2_I2C2CON.getSTREN : TBits_1; inline;
  11529. begin
  11530. getSTREN := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  11531. end;
  11532. procedure TI2C2_I2C2CON.setGCEN; inline;
  11533. begin
  11534. pTDefRegMap(@Self)^.&set := $00000080;
  11535. end;
  11536. procedure TI2C2_I2C2CON.clearGCEN; inline;
  11537. begin
  11538. pTDefRegMap(@Self)^.clr := $00000080;
  11539. end;
  11540. procedure TI2C2_I2C2CON.setGCEN(thebits : TBits_1); inline;
  11541. begin
  11542. if thebits = 0 then
  11543. pTDefRegMap(@Self)^.clr := $00000080
  11544. else
  11545. pTDefRegMap(@Self)^.&set := $00000080;
  11546. end;
  11547. function TI2C2_I2C2CON.getGCEN : TBits_1; inline;
  11548. begin
  11549. getGCEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  11550. end;
  11551. procedure TI2C2_I2C2CON.setSMEN; inline;
  11552. begin
  11553. pTDefRegMap(@Self)^.&set := $00000100;
  11554. end;
  11555. procedure TI2C2_I2C2CON.clearSMEN; inline;
  11556. begin
  11557. pTDefRegMap(@Self)^.clr := $00000100;
  11558. end;
  11559. procedure TI2C2_I2C2CON.setSMEN(thebits : TBits_1); inline;
  11560. begin
  11561. if thebits = 0 then
  11562. pTDefRegMap(@Self)^.clr := $00000100
  11563. else
  11564. pTDefRegMap(@Self)^.&set := $00000100;
  11565. end;
  11566. function TI2C2_I2C2CON.getSMEN : TBits_1; inline;
  11567. begin
  11568. getSMEN := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  11569. end;
  11570. procedure TI2C2_I2C2CON.setDISSLW; inline;
  11571. begin
  11572. pTDefRegMap(@Self)^.&set := $00000200;
  11573. end;
  11574. procedure TI2C2_I2C2CON.clearDISSLW; inline;
  11575. begin
  11576. pTDefRegMap(@Self)^.clr := $00000200;
  11577. end;
  11578. procedure TI2C2_I2C2CON.setDISSLW(thebits : TBits_1); inline;
  11579. begin
  11580. if thebits = 0 then
  11581. pTDefRegMap(@Self)^.clr := $00000200
  11582. else
  11583. pTDefRegMap(@Self)^.&set := $00000200;
  11584. end;
  11585. function TI2C2_I2C2CON.getDISSLW : TBits_1; inline;
  11586. begin
  11587. getDISSLW := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  11588. end;
  11589. procedure TI2C2_I2C2CON.setA10M; inline;
  11590. begin
  11591. pTDefRegMap(@Self)^.&set := $00000400;
  11592. end;
  11593. procedure TI2C2_I2C2CON.clearA10M; inline;
  11594. begin
  11595. pTDefRegMap(@Self)^.clr := $00000400;
  11596. end;
  11597. procedure TI2C2_I2C2CON.setA10M(thebits : TBits_1); inline;
  11598. begin
  11599. if thebits = 0 then
  11600. pTDefRegMap(@Self)^.clr := $00000400
  11601. else
  11602. pTDefRegMap(@Self)^.&set := $00000400;
  11603. end;
  11604. function TI2C2_I2C2CON.getA10M : TBits_1; inline;
  11605. begin
  11606. getA10M := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  11607. end;
  11608. procedure TI2C2_I2C2CON.setSTRICT; inline;
  11609. begin
  11610. pTDefRegMap(@Self)^.&set := $00000800;
  11611. end;
  11612. procedure TI2C2_I2C2CON.clearSTRICT; inline;
  11613. begin
  11614. pTDefRegMap(@Self)^.clr := $00000800;
  11615. end;
  11616. procedure TI2C2_I2C2CON.setSTRICT(thebits : TBits_1); inline;
  11617. begin
  11618. if thebits = 0 then
  11619. pTDefRegMap(@Self)^.clr := $00000800
  11620. else
  11621. pTDefRegMap(@Self)^.&set := $00000800;
  11622. end;
  11623. function TI2C2_I2C2CON.getSTRICT : TBits_1; inline;
  11624. begin
  11625. getSTRICT := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  11626. end;
  11627. procedure TI2C2_I2C2CON.setSCLREL; inline;
  11628. begin
  11629. pTDefRegMap(@Self)^.&set := $00001000;
  11630. end;
  11631. procedure TI2C2_I2C2CON.clearSCLREL; inline;
  11632. begin
  11633. pTDefRegMap(@Self)^.clr := $00001000;
  11634. end;
  11635. procedure TI2C2_I2C2CON.setSCLREL(thebits : TBits_1); inline;
  11636. begin
  11637. if thebits = 0 then
  11638. pTDefRegMap(@Self)^.clr := $00001000
  11639. else
  11640. pTDefRegMap(@Self)^.&set := $00001000;
  11641. end;
  11642. function TI2C2_I2C2CON.getSCLREL : TBits_1; inline;
  11643. begin
  11644. getSCLREL := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  11645. end;
  11646. procedure TI2C2_I2C2CON.setSIDL; inline;
  11647. begin
  11648. pTDefRegMap(@Self)^.&set := $00002000;
  11649. end;
  11650. procedure TI2C2_I2C2CON.clearSIDL; inline;
  11651. begin
  11652. pTDefRegMap(@Self)^.clr := $00002000;
  11653. end;
  11654. procedure TI2C2_I2C2CON.setSIDL(thebits : TBits_1); inline;
  11655. begin
  11656. if thebits = 0 then
  11657. pTDefRegMap(@Self)^.clr := $00002000
  11658. else
  11659. pTDefRegMap(@Self)^.&set := $00002000;
  11660. end;
  11661. function TI2C2_I2C2CON.getSIDL : TBits_1; inline;
  11662. begin
  11663. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  11664. end;
  11665. procedure TI2C2_I2C2CON.setON; inline;
  11666. begin
  11667. pTDefRegMap(@Self)^.&set := $00008000;
  11668. end;
  11669. procedure TI2C2_I2C2CON.clearON; inline;
  11670. begin
  11671. pTDefRegMap(@Self)^.clr := $00008000;
  11672. end;
  11673. procedure TI2C2_I2C2CON.setON(thebits : TBits_1); inline;
  11674. begin
  11675. if thebits = 0 then
  11676. pTDefRegMap(@Self)^.clr := $00008000
  11677. else
  11678. pTDefRegMap(@Self)^.&set := $00008000;
  11679. end;
  11680. function TI2C2_I2C2CON.getON : TBits_1; inline;
  11681. begin
  11682. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  11683. end;
  11684. procedure TI2C2_I2C2CON.setIPMIEN; inline;
  11685. begin
  11686. pTDefRegMap(@Self)^.&set := $00000800;
  11687. end;
  11688. procedure TI2C2_I2C2CON.clearIPMIEN; inline;
  11689. begin
  11690. pTDefRegMap(@Self)^.clr := $00000800;
  11691. end;
  11692. procedure TI2C2_I2C2CON.setIPMIEN(thebits : TBits_1); inline;
  11693. begin
  11694. if thebits = 0 then
  11695. pTDefRegMap(@Self)^.clr := $00000800
  11696. else
  11697. pTDefRegMap(@Self)^.&set := $00000800;
  11698. end;
  11699. function TI2C2_I2C2CON.getIPMIEN : TBits_1; inline;
  11700. begin
  11701. getIPMIEN := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  11702. end;
  11703. procedure TI2C2_I2C2CON.setI2CSIDL; inline;
  11704. begin
  11705. pTDefRegMap(@Self)^.&set := $00002000;
  11706. end;
  11707. procedure TI2C2_I2C2CON.clearI2CSIDL; inline;
  11708. begin
  11709. pTDefRegMap(@Self)^.clr := $00002000;
  11710. end;
  11711. procedure TI2C2_I2C2CON.setI2CSIDL(thebits : TBits_1); inline;
  11712. begin
  11713. if thebits = 0 then
  11714. pTDefRegMap(@Self)^.clr := $00002000
  11715. else
  11716. pTDefRegMap(@Self)^.&set := $00002000;
  11717. end;
  11718. function TI2C2_I2C2CON.getI2CSIDL : TBits_1; inline;
  11719. begin
  11720. getI2CSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  11721. end;
  11722. procedure TI2C2_I2C2CON.setI2CEN; inline;
  11723. begin
  11724. pTDefRegMap(@Self)^.&set := $00008000;
  11725. end;
  11726. procedure TI2C2_I2C2CON.clearI2CEN; inline;
  11727. begin
  11728. pTDefRegMap(@Self)^.clr := $00008000;
  11729. end;
  11730. procedure TI2C2_I2C2CON.setI2CEN(thebits : TBits_1); inline;
  11731. begin
  11732. if thebits = 0 then
  11733. pTDefRegMap(@Self)^.clr := $00008000
  11734. else
  11735. pTDefRegMap(@Self)^.&set := $00008000;
  11736. end;
  11737. function TI2C2_I2C2CON.getI2CEN : TBits_1; inline;
  11738. begin
  11739. getI2CEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  11740. end;
  11741. procedure TI2C2_I2C2CON.setw(thebits : TBits_32); inline;
  11742. begin
  11743. pTDefRegMap(@Self)^.val := thebits;
  11744. end;
  11745. function TI2C2_I2C2CON.getw : TBits_32; inline;
  11746. begin
  11747. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  11748. end;
  11749. procedure TI2C2_I2C2STAT.setTBF; inline;
  11750. begin
  11751. pTDefRegMap(@Self)^.&set := $00000001;
  11752. end;
  11753. procedure TI2C2_I2C2STAT.clearTBF; inline;
  11754. begin
  11755. pTDefRegMap(@Self)^.clr := $00000001;
  11756. end;
  11757. procedure TI2C2_I2C2STAT.setTBF(thebits : TBits_1); inline;
  11758. begin
  11759. if thebits = 0 then
  11760. pTDefRegMap(@Self)^.clr := $00000001
  11761. else
  11762. pTDefRegMap(@Self)^.&set := $00000001;
  11763. end;
  11764. function TI2C2_I2C2STAT.getTBF : TBits_1; inline;
  11765. begin
  11766. getTBF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  11767. end;
  11768. procedure TI2C2_I2C2STAT.setRBF; inline;
  11769. begin
  11770. pTDefRegMap(@Self)^.&set := $00000002;
  11771. end;
  11772. procedure TI2C2_I2C2STAT.clearRBF; inline;
  11773. begin
  11774. pTDefRegMap(@Self)^.clr := $00000002;
  11775. end;
  11776. procedure TI2C2_I2C2STAT.setRBF(thebits : TBits_1); inline;
  11777. begin
  11778. if thebits = 0 then
  11779. pTDefRegMap(@Self)^.clr := $00000002
  11780. else
  11781. pTDefRegMap(@Self)^.&set := $00000002;
  11782. end;
  11783. function TI2C2_I2C2STAT.getRBF : TBits_1; inline;
  11784. begin
  11785. getRBF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  11786. end;
  11787. procedure TI2C2_I2C2STAT.setR_W; inline;
  11788. begin
  11789. pTDefRegMap(@Self)^.&set := $00000004;
  11790. end;
  11791. procedure TI2C2_I2C2STAT.clearR_W; inline;
  11792. begin
  11793. pTDefRegMap(@Self)^.clr := $00000004;
  11794. end;
  11795. procedure TI2C2_I2C2STAT.setR_W(thebits : TBits_1); inline;
  11796. begin
  11797. if thebits = 0 then
  11798. pTDefRegMap(@Self)^.clr := $00000004
  11799. else
  11800. pTDefRegMap(@Self)^.&set := $00000004;
  11801. end;
  11802. function TI2C2_I2C2STAT.getR_W : TBits_1; inline;
  11803. begin
  11804. getR_W := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  11805. end;
  11806. procedure TI2C2_I2C2STAT.setS; inline;
  11807. begin
  11808. pTDefRegMap(@Self)^.&set := $00000008;
  11809. end;
  11810. procedure TI2C2_I2C2STAT.clearS; inline;
  11811. begin
  11812. pTDefRegMap(@Self)^.clr := $00000008;
  11813. end;
  11814. procedure TI2C2_I2C2STAT.setS(thebits : TBits_1); inline;
  11815. begin
  11816. if thebits = 0 then
  11817. pTDefRegMap(@Self)^.clr := $00000008
  11818. else
  11819. pTDefRegMap(@Self)^.&set := $00000008;
  11820. end;
  11821. function TI2C2_I2C2STAT.getS : TBits_1; inline;
  11822. begin
  11823. getS := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  11824. end;
  11825. procedure TI2C2_I2C2STAT.setP; inline;
  11826. begin
  11827. pTDefRegMap(@Self)^.&set := $00000010;
  11828. end;
  11829. procedure TI2C2_I2C2STAT.clearP; inline;
  11830. begin
  11831. pTDefRegMap(@Self)^.clr := $00000010;
  11832. end;
  11833. procedure TI2C2_I2C2STAT.setP(thebits : TBits_1); inline;
  11834. begin
  11835. if thebits = 0 then
  11836. pTDefRegMap(@Self)^.clr := $00000010
  11837. else
  11838. pTDefRegMap(@Self)^.&set := $00000010;
  11839. end;
  11840. function TI2C2_I2C2STAT.getP : TBits_1; inline;
  11841. begin
  11842. getP := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  11843. end;
  11844. procedure TI2C2_I2C2STAT.setD_A; inline;
  11845. begin
  11846. pTDefRegMap(@Self)^.&set := $00000020;
  11847. end;
  11848. procedure TI2C2_I2C2STAT.clearD_A; inline;
  11849. begin
  11850. pTDefRegMap(@Self)^.clr := $00000020;
  11851. end;
  11852. procedure TI2C2_I2C2STAT.setD_A(thebits : TBits_1); inline;
  11853. begin
  11854. if thebits = 0 then
  11855. pTDefRegMap(@Self)^.clr := $00000020
  11856. else
  11857. pTDefRegMap(@Self)^.&set := $00000020;
  11858. end;
  11859. function TI2C2_I2C2STAT.getD_A : TBits_1; inline;
  11860. begin
  11861. getD_A := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  11862. end;
  11863. procedure TI2C2_I2C2STAT.setI2COV; inline;
  11864. begin
  11865. pTDefRegMap(@Self)^.&set := $00000040;
  11866. end;
  11867. procedure TI2C2_I2C2STAT.clearI2COV; inline;
  11868. begin
  11869. pTDefRegMap(@Self)^.clr := $00000040;
  11870. end;
  11871. procedure TI2C2_I2C2STAT.setI2COV(thebits : TBits_1); inline;
  11872. begin
  11873. if thebits = 0 then
  11874. pTDefRegMap(@Self)^.clr := $00000040
  11875. else
  11876. pTDefRegMap(@Self)^.&set := $00000040;
  11877. end;
  11878. function TI2C2_I2C2STAT.getI2COV : TBits_1; inline;
  11879. begin
  11880. getI2COV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  11881. end;
  11882. procedure TI2C2_I2C2STAT.setIWCOL; inline;
  11883. begin
  11884. pTDefRegMap(@Self)^.&set := $00000080;
  11885. end;
  11886. procedure TI2C2_I2C2STAT.clearIWCOL; inline;
  11887. begin
  11888. pTDefRegMap(@Self)^.clr := $00000080;
  11889. end;
  11890. procedure TI2C2_I2C2STAT.setIWCOL(thebits : TBits_1); inline;
  11891. begin
  11892. if thebits = 0 then
  11893. pTDefRegMap(@Self)^.clr := $00000080
  11894. else
  11895. pTDefRegMap(@Self)^.&set := $00000080;
  11896. end;
  11897. function TI2C2_I2C2STAT.getIWCOL : TBits_1; inline;
  11898. begin
  11899. getIWCOL := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  11900. end;
  11901. procedure TI2C2_I2C2STAT.setADD10; inline;
  11902. begin
  11903. pTDefRegMap(@Self)^.&set := $00000100;
  11904. end;
  11905. procedure TI2C2_I2C2STAT.clearADD10; inline;
  11906. begin
  11907. pTDefRegMap(@Self)^.clr := $00000100;
  11908. end;
  11909. procedure TI2C2_I2C2STAT.setADD10(thebits : TBits_1); inline;
  11910. begin
  11911. if thebits = 0 then
  11912. pTDefRegMap(@Self)^.clr := $00000100
  11913. else
  11914. pTDefRegMap(@Self)^.&set := $00000100;
  11915. end;
  11916. function TI2C2_I2C2STAT.getADD10 : TBits_1; inline;
  11917. begin
  11918. getADD10 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  11919. end;
  11920. procedure TI2C2_I2C2STAT.setGCSTAT; inline;
  11921. begin
  11922. pTDefRegMap(@Self)^.&set := $00000200;
  11923. end;
  11924. procedure TI2C2_I2C2STAT.clearGCSTAT; inline;
  11925. begin
  11926. pTDefRegMap(@Self)^.clr := $00000200;
  11927. end;
  11928. procedure TI2C2_I2C2STAT.setGCSTAT(thebits : TBits_1); inline;
  11929. begin
  11930. if thebits = 0 then
  11931. pTDefRegMap(@Self)^.clr := $00000200
  11932. else
  11933. pTDefRegMap(@Self)^.&set := $00000200;
  11934. end;
  11935. function TI2C2_I2C2STAT.getGCSTAT : TBits_1; inline;
  11936. begin
  11937. getGCSTAT := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  11938. end;
  11939. procedure TI2C2_I2C2STAT.setBCL; inline;
  11940. begin
  11941. pTDefRegMap(@Self)^.&set := $00000400;
  11942. end;
  11943. procedure TI2C2_I2C2STAT.clearBCL; inline;
  11944. begin
  11945. pTDefRegMap(@Self)^.clr := $00000400;
  11946. end;
  11947. procedure TI2C2_I2C2STAT.setBCL(thebits : TBits_1); inline;
  11948. begin
  11949. if thebits = 0 then
  11950. pTDefRegMap(@Self)^.clr := $00000400
  11951. else
  11952. pTDefRegMap(@Self)^.&set := $00000400;
  11953. end;
  11954. function TI2C2_I2C2STAT.getBCL : TBits_1; inline;
  11955. begin
  11956. getBCL := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  11957. end;
  11958. procedure TI2C2_I2C2STAT.setTRSTAT; inline;
  11959. begin
  11960. pTDefRegMap(@Self)^.&set := $00004000;
  11961. end;
  11962. procedure TI2C2_I2C2STAT.clearTRSTAT; inline;
  11963. begin
  11964. pTDefRegMap(@Self)^.clr := $00004000;
  11965. end;
  11966. procedure TI2C2_I2C2STAT.setTRSTAT(thebits : TBits_1); inline;
  11967. begin
  11968. if thebits = 0 then
  11969. pTDefRegMap(@Self)^.clr := $00004000
  11970. else
  11971. pTDefRegMap(@Self)^.&set := $00004000;
  11972. end;
  11973. function TI2C2_I2C2STAT.getTRSTAT : TBits_1; inline;
  11974. begin
  11975. getTRSTAT := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  11976. end;
  11977. procedure TI2C2_I2C2STAT.setACKSTAT; inline;
  11978. begin
  11979. pTDefRegMap(@Self)^.&set := $00008000;
  11980. end;
  11981. procedure TI2C2_I2C2STAT.clearACKSTAT; inline;
  11982. begin
  11983. pTDefRegMap(@Self)^.clr := $00008000;
  11984. end;
  11985. procedure TI2C2_I2C2STAT.setACKSTAT(thebits : TBits_1); inline;
  11986. begin
  11987. if thebits = 0 then
  11988. pTDefRegMap(@Self)^.clr := $00008000
  11989. else
  11990. pTDefRegMap(@Self)^.&set := $00008000;
  11991. end;
  11992. function TI2C2_I2C2STAT.getACKSTAT : TBits_1; inline;
  11993. begin
  11994. getACKSTAT := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  11995. end;
  11996. procedure TI2C2_I2C2STAT.setI2CPOV; inline;
  11997. begin
  11998. pTDefRegMap(@Self)^.&set := $00000040;
  11999. end;
  12000. procedure TI2C2_I2C2STAT.clearI2CPOV; inline;
  12001. begin
  12002. pTDefRegMap(@Self)^.clr := $00000040;
  12003. end;
  12004. procedure TI2C2_I2C2STAT.setI2CPOV(thebits : TBits_1); inline;
  12005. begin
  12006. if thebits = 0 then
  12007. pTDefRegMap(@Self)^.clr := $00000040
  12008. else
  12009. pTDefRegMap(@Self)^.&set := $00000040;
  12010. end;
  12011. function TI2C2_I2C2STAT.getI2CPOV : TBits_1; inline;
  12012. begin
  12013. getI2CPOV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  12014. end;
  12015. procedure TI2C2_I2C2STAT.setw(thebits : TBits_32); inline;
  12016. begin
  12017. pTDefRegMap(@Self)^.val := thebits;
  12018. end;
  12019. function TI2C2_I2C2STAT.getw : TBits_32; inline;
  12020. begin
  12021. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  12022. end;
  12023. procedure TSPI2_SPI2CON.setMSTEN; inline;
  12024. begin
  12025. pTDefRegMap(@Self)^.&set := $00000020;
  12026. end;
  12027. procedure TSPI2_SPI2CON.clearMSTEN; inline;
  12028. begin
  12029. pTDefRegMap(@Self)^.clr := $00000020;
  12030. end;
  12031. procedure TSPI2_SPI2CON.setMSTEN(thebits : TBits_1); inline;
  12032. begin
  12033. if thebits = 0 then
  12034. pTDefRegMap(@Self)^.clr := $00000020
  12035. else
  12036. pTDefRegMap(@Self)^.&set := $00000020;
  12037. end;
  12038. function TSPI2_SPI2CON.getMSTEN : TBits_1; inline;
  12039. begin
  12040. getMSTEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  12041. end;
  12042. procedure TSPI2_SPI2CON.setCKP; inline;
  12043. begin
  12044. pTDefRegMap(@Self)^.&set := $00000040;
  12045. end;
  12046. procedure TSPI2_SPI2CON.clearCKP; inline;
  12047. begin
  12048. pTDefRegMap(@Self)^.clr := $00000040;
  12049. end;
  12050. procedure TSPI2_SPI2CON.setCKP(thebits : TBits_1); inline;
  12051. begin
  12052. if thebits = 0 then
  12053. pTDefRegMap(@Self)^.clr := $00000040
  12054. else
  12055. pTDefRegMap(@Self)^.&set := $00000040;
  12056. end;
  12057. function TSPI2_SPI2CON.getCKP : TBits_1; inline;
  12058. begin
  12059. getCKP := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  12060. end;
  12061. procedure TSPI2_SPI2CON.setSSEN; inline;
  12062. begin
  12063. pTDefRegMap(@Self)^.&set := $00000080;
  12064. end;
  12065. procedure TSPI2_SPI2CON.clearSSEN; inline;
  12066. begin
  12067. pTDefRegMap(@Self)^.clr := $00000080;
  12068. end;
  12069. procedure TSPI2_SPI2CON.setSSEN(thebits : TBits_1); inline;
  12070. begin
  12071. if thebits = 0 then
  12072. pTDefRegMap(@Self)^.clr := $00000080
  12073. else
  12074. pTDefRegMap(@Self)^.&set := $00000080;
  12075. end;
  12076. function TSPI2_SPI2CON.getSSEN : TBits_1; inline;
  12077. begin
  12078. getSSEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  12079. end;
  12080. procedure TSPI2_SPI2CON.setCKE; inline;
  12081. begin
  12082. pTDefRegMap(@Self)^.&set := $00000100;
  12083. end;
  12084. procedure TSPI2_SPI2CON.clearCKE; inline;
  12085. begin
  12086. pTDefRegMap(@Self)^.clr := $00000100;
  12087. end;
  12088. procedure TSPI2_SPI2CON.setCKE(thebits : TBits_1); inline;
  12089. begin
  12090. if thebits = 0 then
  12091. pTDefRegMap(@Self)^.clr := $00000100
  12092. else
  12093. pTDefRegMap(@Self)^.&set := $00000100;
  12094. end;
  12095. function TSPI2_SPI2CON.getCKE : TBits_1; inline;
  12096. begin
  12097. getCKE := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  12098. end;
  12099. procedure TSPI2_SPI2CON.setSMP; inline;
  12100. begin
  12101. pTDefRegMap(@Self)^.&set := $00000200;
  12102. end;
  12103. procedure TSPI2_SPI2CON.clearSMP; inline;
  12104. begin
  12105. pTDefRegMap(@Self)^.clr := $00000200;
  12106. end;
  12107. procedure TSPI2_SPI2CON.setSMP(thebits : TBits_1); inline;
  12108. begin
  12109. if thebits = 0 then
  12110. pTDefRegMap(@Self)^.clr := $00000200
  12111. else
  12112. pTDefRegMap(@Self)^.&set := $00000200;
  12113. end;
  12114. function TSPI2_SPI2CON.getSMP : TBits_1; inline;
  12115. begin
  12116. getSMP := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  12117. end;
  12118. procedure TSPI2_SPI2CON.setMODE16; inline;
  12119. begin
  12120. pTDefRegMap(@Self)^.&set := $00000400;
  12121. end;
  12122. procedure TSPI2_SPI2CON.clearMODE16; inline;
  12123. begin
  12124. pTDefRegMap(@Self)^.clr := $00000400;
  12125. end;
  12126. procedure TSPI2_SPI2CON.setMODE16(thebits : TBits_1); inline;
  12127. begin
  12128. if thebits = 0 then
  12129. pTDefRegMap(@Self)^.clr := $00000400
  12130. else
  12131. pTDefRegMap(@Self)^.&set := $00000400;
  12132. end;
  12133. function TSPI2_SPI2CON.getMODE16 : TBits_1; inline;
  12134. begin
  12135. getMODE16 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  12136. end;
  12137. procedure TSPI2_SPI2CON.setMODE32; inline;
  12138. begin
  12139. pTDefRegMap(@Self)^.&set := $00000800;
  12140. end;
  12141. procedure TSPI2_SPI2CON.clearMODE32; inline;
  12142. begin
  12143. pTDefRegMap(@Self)^.clr := $00000800;
  12144. end;
  12145. procedure TSPI2_SPI2CON.setMODE32(thebits : TBits_1); inline;
  12146. begin
  12147. if thebits = 0 then
  12148. pTDefRegMap(@Self)^.clr := $00000800
  12149. else
  12150. pTDefRegMap(@Self)^.&set := $00000800;
  12151. end;
  12152. function TSPI2_SPI2CON.getMODE32 : TBits_1; inline;
  12153. begin
  12154. getMODE32 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  12155. end;
  12156. procedure TSPI2_SPI2CON.setDISSDO; inline;
  12157. begin
  12158. pTDefRegMap(@Self)^.&set := $00001000;
  12159. end;
  12160. procedure TSPI2_SPI2CON.clearDISSDO; inline;
  12161. begin
  12162. pTDefRegMap(@Self)^.clr := $00001000;
  12163. end;
  12164. procedure TSPI2_SPI2CON.setDISSDO(thebits : TBits_1); inline;
  12165. begin
  12166. if thebits = 0 then
  12167. pTDefRegMap(@Self)^.clr := $00001000
  12168. else
  12169. pTDefRegMap(@Self)^.&set := $00001000;
  12170. end;
  12171. function TSPI2_SPI2CON.getDISSDO : TBits_1; inline;
  12172. begin
  12173. getDISSDO := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  12174. end;
  12175. procedure TSPI2_SPI2CON.setSIDL; inline;
  12176. begin
  12177. pTDefRegMap(@Self)^.&set := $00002000;
  12178. end;
  12179. procedure TSPI2_SPI2CON.clearSIDL; inline;
  12180. begin
  12181. pTDefRegMap(@Self)^.clr := $00002000;
  12182. end;
  12183. procedure TSPI2_SPI2CON.setSIDL(thebits : TBits_1); inline;
  12184. begin
  12185. if thebits = 0 then
  12186. pTDefRegMap(@Self)^.clr := $00002000
  12187. else
  12188. pTDefRegMap(@Self)^.&set := $00002000;
  12189. end;
  12190. function TSPI2_SPI2CON.getSIDL : TBits_1; inline;
  12191. begin
  12192. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  12193. end;
  12194. procedure TSPI2_SPI2CON.setON; inline;
  12195. begin
  12196. pTDefRegMap(@Self)^.&set := $00008000;
  12197. end;
  12198. procedure TSPI2_SPI2CON.clearON; inline;
  12199. begin
  12200. pTDefRegMap(@Self)^.clr := $00008000;
  12201. end;
  12202. procedure TSPI2_SPI2CON.setON(thebits : TBits_1); inline;
  12203. begin
  12204. if thebits = 0 then
  12205. pTDefRegMap(@Self)^.clr := $00008000
  12206. else
  12207. pTDefRegMap(@Self)^.&set := $00008000;
  12208. end;
  12209. function TSPI2_SPI2CON.getON : TBits_1; inline;
  12210. begin
  12211. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  12212. end;
  12213. procedure TSPI2_SPI2CON.setSPIFE; inline;
  12214. begin
  12215. pTDefRegMap(@Self)^.&set := $00020000;
  12216. end;
  12217. procedure TSPI2_SPI2CON.clearSPIFE; inline;
  12218. begin
  12219. pTDefRegMap(@Self)^.clr := $00020000;
  12220. end;
  12221. procedure TSPI2_SPI2CON.setSPIFE(thebits : TBits_1); inline;
  12222. begin
  12223. if thebits = 0 then
  12224. pTDefRegMap(@Self)^.clr := $00020000
  12225. else
  12226. pTDefRegMap(@Self)^.&set := $00020000;
  12227. end;
  12228. function TSPI2_SPI2CON.getSPIFE : TBits_1; inline;
  12229. begin
  12230. getSPIFE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  12231. end;
  12232. procedure TSPI2_SPI2CON.setFRMPOL; inline;
  12233. begin
  12234. pTDefRegMap(@Self)^.&set := $20000000;
  12235. end;
  12236. procedure TSPI2_SPI2CON.clearFRMPOL; inline;
  12237. begin
  12238. pTDefRegMap(@Self)^.clr := $20000000;
  12239. end;
  12240. procedure TSPI2_SPI2CON.setFRMPOL(thebits : TBits_1); inline;
  12241. begin
  12242. if thebits = 0 then
  12243. pTDefRegMap(@Self)^.clr := $20000000
  12244. else
  12245. pTDefRegMap(@Self)^.&set := $20000000;
  12246. end;
  12247. function TSPI2_SPI2CON.getFRMPOL : TBits_1; inline;
  12248. begin
  12249. getFRMPOL := (pTDefRegMap(@Self)^.val and $20000000) shr 29;
  12250. end;
  12251. procedure TSPI2_SPI2CON.setFRMSYNC; inline;
  12252. begin
  12253. pTDefRegMap(@Self)^.&set := $40000000;
  12254. end;
  12255. procedure TSPI2_SPI2CON.clearFRMSYNC; inline;
  12256. begin
  12257. pTDefRegMap(@Self)^.clr := $40000000;
  12258. end;
  12259. procedure TSPI2_SPI2CON.setFRMSYNC(thebits : TBits_1); inline;
  12260. begin
  12261. if thebits = 0 then
  12262. pTDefRegMap(@Self)^.clr := $40000000
  12263. else
  12264. pTDefRegMap(@Self)^.&set := $40000000;
  12265. end;
  12266. function TSPI2_SPI2CON.getFRMSYNC : TBits_1; inline;
  12267. begin
  12268. getFRMSYNC := (pTDefRegMap(@Self)^.val and $40000000) shr 30;
  12269. end;
  12270. procedure TSPI2_SPI2CON.setFRMEN; inline;
  12271. begin
  12272. pTDefRegMap(@Self)^.&set := $80000000;
  12273. end;
  12274. procedure TSPI2_SPI2CON.clearFRMEN; inline;
  12275. begin
  12276. pTDefRegMap(@Self)^.clr := $80000000;
  12277. end;
  12278. procedure TSPI2_SPI2CON.setFRMEN(thebits : TBits_1); inline;
  12279. begin
  12280. if thebits = 0 then
  12281. pTDefRegMap(@Self)^.clr := $80000000
  12282. else
  12283. pTDefRegMap(@Self)^.&set := $80000000;
  12284. end;
  12285. function TSPI2_SPI2CON.getFRMEN : TBits_1; inline;
  12286. begin
  12287. getFRMEN := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  12288. end;
  12289. procedure TSPI2_SPI2CON.setw(thebits : TBits_32); inline;
  12290. begin
  12291. pTDefRegMap(@Self)^.val := thebits;
  12292. end;
  12293. function TSPI2_SPI2CON.getw : TBits_32; inline;
  12294. begin
  12295. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  12296. end;
  12297. procedure TSPI2_SPI2STAT.setSPIRBF; inline;
  12298. begin
  12299. pTDefRegMap(@Self)^.&set := $00000001;
  12300. end;
  12301. procedure TSPI2_SPI2STAT.clearSPIRBF; inline;
  12302. begin
  12303. pTDefRegMap(@Self)^.clr := $00000001;
  12304. end;
  12305. procedure TSPI2_SPI2STAT.setSPIRBF(thebits : TBits_1); inline;
  12306. begin
  12307. if thebits = 0 then
  12308. pTDefRegMap(@Self)^.clr := $00000001
  12309. else
  12310. pTDefRegMap(@Self)^.&set := $00000001;
  12311. end;
  12312. function TSPI2_SPI2STAT.getSPIRBF : TBits_1; inline;
  12313. begin
  12314. getSPIRBF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  12315. end;
  12316. procedure TSPI2_SPI2STAT.setSPITBE; inline;
  12317. begin
  12318. pTDefRegMap(@Self)^.&set := $00000008;
  12319. end;
  12320. procedure TSPI2_SPI2STAT.clearSPITBE; inline;
  12321. begin
  12322. pTDefRegMap(@Self)^.clr := $00000008;
  12323. end;
  12324. procedure TSPI2_SPI2STAT.setSPITBE(thebits : TBits_1); inline;
  12325. begin
  12326. if thebits = 0 then
  12327. pTDefRegMap(@Self)^.clr := $00000008
  12328. else
  12329. pTDefRegMap(@Self)^.&set := $00000008;
  12330. end;
  12331. function TSPI2_SPI2STAT.getSPITBE : TBits_1; inline;
  12332. begin
  12333. getSPITBE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  12334. end;
  12335. procedure TSPI2_SPI2STAT.setSPIROV; inline;
  12336. begin
  12337. pTDefRegMap(@Self)^.&set := $00000040;
  12338. end;
  12339. procedure TSPI2_SPI2STAT.clearSPIROV; inline;
  12340. begin
  12341. pTDefRegMap(@Self)^.clr := $00000040;
  12342. end;
  12343. procedure TSPI2_SPI2STAT.setSPIROV(thebits : TBits_1); inline;
  12344. begin
  12345. if thebits = 0 then
  12346. pTDefRegMap(@Self)^.clr := $00000040
  12347. else
  12348. pTDefRegMap(@Self)^.&set := $00000040;
  12349. end;
  12350. function TSPI2_SPI2STAT.getSPIROV : TBits_1; inline;
  12351. begin
  12352. getSPIROV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  12353. end;
  12354. procedure TSPI2_SPI2STAT.setSPIBUSY; inline;
  12355. begin
  12356. pTDefRegMap(@Self)^.&set := $00000800;
  12357. end;
  12358. procedure TSPI2_SPI2STAT.clearSPIBUSY; inline;
  12359. begin
  12360. pTDefRegMap(@Self)^.clr := $00000800;
  12361. end;
  12362. procedure TSPI2_SPI2STAT.setSPIBUSY(thebits : TBits_1); inline;
  12363. begin
  12364. if thebits = 0 then
  12365. pTDefRegMap(@Self)^.clr := $00000800
  12366. else
  12367. pTDefRegMap(@Self)^.&set := $00000800;
  12368. end;
  12369. function TSPI2_SPI2STAT.getSPIBUSY : TBits_1; inline;
  12370. begin
  12371. getSPIBUSY := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  12372. end;
  12373. procedure TSPI2_SPI2STAT.setw(thebits : TBits_32); inline;
  12374. begin
  12375. pTDefRegMap(@Self)^.val := thebits;
  12376. end;
  12377. function TSPI2_SPI2STAT.getw : TBits_32; inline;
  12378. begin
  12379. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  12380. end;
  12381. procedure TUART1_U1MODE.setSTSEL; inline;
  12382. begin
  12383. pTDefRegMap(@Self)^.&set := $00000001;
  12384. end;
  12385. procedure TUART1_U1MODE.clearSTSEL; inline;
  12386. begin
  12387. pTDefRegMap(@Self)^.clr := $00000001;
  12388. end;
  12389. procedure TUART1_U1MODE.setSTSEL(thebits : TBits_1); inline;
  12390. begin
  12391. if thebits = 0 then
  12392. pTDefRegMap(@Self)^.clr := $00000001
  12393. else
  12394. pTDefRegMap(@Self)^.&set := $00000001;
  12395. end;
  12396. function TUART1_U1MODE.getSTSEL : TBits_1; inline;
  12397. begin
  12398. getSTSEL := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  12399. end;
  12400. procedure TUART1_U1MODE.setPDSEL(thebits : TBits_2); inline;
  12401. begin
  12402. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF9 or ( thebits shl 1 );
  12403. end;
  12404. function TUART1_U1MODE.getPDSEL : TBits_2; inline;
  12405. begin
  12406. getPDSEL := (pTDefRegMap(@Self)^.val and $00000006) shr 1;
  12407. end;
  12408. procedure TUART1_U1MODE.setBRGH; inline;
  12409. begin
  12410. pTDefRegMap(@Self)^.&set := $00000008;
  12411. end;
  12412. procedure TUART1_U1MODE.clearBRGH; inline;
  12413. begin
  12414. pTDefRegMap(@Self)^.clr := $00000008;
  12415. end;
  12416. procedure TUART1_U1MODE.setBRGH(thebits : TBits_1); inline;
  12417. begin
  12418. if thebits = 0 then
  12419. pTDefRegMap(@Self)^.clr := $00000008
  12420. else
  12421. pTDefRegMap(@Self)^.&set := $00000008;
  12422. end;
  12423. function TUART1_U1MODE.getBRGH : TBits_1; inline;
  12424. begin
  12425. getBRGH := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  12426. end;
  12427. procedure TUART1_U1MODE.setRXINV; inline;
  12428. begin
  12429. pTDefRegMap(@Self)^.&set := $00000010;
  12430. end;
  12431. procedure TUART1_U1MODE.clearRXINV; inline;
  12432. begin
  12433. pTDefRegMap(@Self)^.clr := $00000010;
  12434. end;
  12435. procedure TUART1_U1MODE.setRXINV(thebits : TBits_1); inline;
  12436. begin
  12437. if thebits = 0 then
  12438. pTDefRegMap(@Self)^.clr := $00000010
  12439. else
  12440. pTDefRegMap(@Self)^.&set := $00000010;
  12441. end;
  12442. function TUART1_U1MODE.getRXINV : TBits_1; inline;
  12443. begin
  12444. getRXINV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  12445. end;
  12446. procedure TUART1_U1MODE.setABAUD; inline;
  12447. begin
  12448. pTDefRegMap(@Self)^.&set := $00000020;
  12449. end;
  12450. procedure TUART1_U1MODE.clearABAUD; inline;
  12451. begin
  12452. pTDefRegMap(@Self)^.clr := $00000020;
  12453. end;
  12454. procedure TUART1_U1MODE.setABAUD(thebits : TBits_1); inline;
  12455. begin
  12456. if thebits = 0 then
  12457. pTDefRegMap(@Self)^.clr := $00000020
  12458. else
  12459. pTDefRegMap(@Self)^.&set := $00000020;
  12460. end;
  12461. function TUART1_U1MODE.getABAUD : TBits_1; inline;
  12462. begin
  12463. getABAUD := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  12464. end;
  12465. procedure TUART1_U1MODE.setLPBACK; inline;
  12466. begin
  12467. pTDefRegMap(@Self)^.&set := $00000040;
  12468. end;
  12469. procedure TUART1_U1MODE.clearLPBACK; inline;
  12470. begin
  12471. pTDefRegMap(@Self)^.clr := $00000040;
  12472. end;
  12473. procedure TUART1_U1MODE.setLPBACK(thebits : TBits_1); inline;
  12474. begin
  12475. if thebits = 0 then
  12476. pTDefRegMap(@Self)^.clr := $00000040
  12477. else
  12478. pTDefRegMap(@Self)^.&set := $00000040;
  12479. end;
  12480. function TUART1_U1MODE.getLPBACK : TBits_1; inline;
  12481. begin
  12482. getLPBACK := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  12483. end;
  12484. procedure TUART1_U1MODE.setWAKE; inline;
  12485. begin
  12486. pTDefRegMap(@Self)^.&set := $00000080;
  12487. end;
  12488. procedure TUART1_U1MODE.clearWAKE; inline;
  12489. begin
  12490. pTDefRegMap(@Self)^.clr := $00000080;
  12491. end;
  12492. procedure TUART1_U1MODE.setWAKE(thebits : TBits_1); inline;
  12493. begin
  12494. if thebits = 0 then
  12495. pTDefRegMap(@Self)^.clr := $00000080
  12496. else
  12497. pTDefRegMap(@Self)^.&set := $00000080;
  12498. end;
  12499. function TUART1_U1MODE.getWAKE : TBits_1; inline;
  12500. begin
  12501. getWAKE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  12502. end;
  12503. procedure TUART1_U1MODE.setUEN(thebits : TBits_2); inline;
  12504. begin
  12505. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  12506. end;
  12507. function TUART1_U1MODE.getUEN : TBits_2; inline;
  12508. begin
  12509. getUEN := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  12510. end;
  12511. procedure TUART1_U1MODE.setRTSMD; inline;
  12512. begin
  12513. pTDefRegMap(@Self)^.&set := $00000800;
  12514. end;
  12515. procedure TUART1_U1MODE.clearRTSMD; inline;
  12516. begin
  12517. pTDefRegMap(@Self)^.clr := $00000800;
  12518. end;
  12519. procedure TUART1_U1MODE.setRTSMD(thebits : TBits_1); inline;
  12520. begin
  12521. if thebits = 0 then
  12522. pTDefRegMap(@Self)^.clr := $00000800
  12523. else
  12524. pTDefRegMap(@Self)^.&set := $00000800;
  12525. end;
  12526. function TUART1_U1MODE.getRTSMD : TBits_1; inline;
  12527. begin
  12528. getRTSMD := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  12529. end;
  12530. procedure TUART1_U1MODE.setIREN; inline;
  12531. begin
  12532. pTDefRegMap(@Self)^.&set := $00001000;
  12533. end;
  12534. procedure TUART1_U1MODE.clearIREN; inline;
  12535. begin
  12536. pTDefRegMap(@Self)^.clr := $00001000;
  12537. end;
  12538. procedure TUART1_U1MODE.setIREN(thebits : TBits_1); inline;
  12539. begin
  12540. if thebits = 0 then
  12541. pTDefRegMap(@Self)^.clr := $00001000
  12542. else
  12543. pTDefRegMap(@Self)^.&set := $00001000;
  12544. end;
  12545. function TUART1_U1MODE.getIREN : TBits_1; inline;
  12546. begin
  12547. getIREN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  12548. end;
  12549. procedure TUART1_U1MODE.setSIDL; inline;
  12550. begin
  12551. pTDefRegMap(@Self)^.&set := $00002000;
  12552. end;
  12553. procedure TUART1_U1MODE.clearSIDL; inline;
  12554. begin
  12555. pTDefRegMap(@Self)^.clr := $00002000;
  12556. end;
  12557. procedure TUART1_U1MODE.setSIDL(thebits : TBits_1); inline;
  12558. begin
  12559. if thebits = 0 then
  12560. pTDefRegMap(@Self)^.clr := $00002000
  12561. else
  12562. pTDefRegMap(@Self)^.&set := $00002000;
  12563. end;
  12564. function TUART1_U1MODE.getSIDL : TBits_1; inline;
  12565. begin
  12566. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  12567. end;
  12568. procedure TUART1_U1MODE.setON; inline;
  12569. begin
  12570. pTDefRegMap(@Self)^.&set := $00008000;
  12571. end;
  12572. procedure TUART1_U1MODE.clearON; inline;
  12573. begin
  12574. pTDefRegMap(@Self)^.clr := $00008000;
  12575. end;
  12576. procedure TUART1_U1MODE.setON(thebits : TBits_1); inline;
  12577. begin
  12578. if thebits = 0 then
  12579. pTDefRegMap(@Self)^.clr := $00008000
  12580. else
  12581. pTDefRegMap(@Self)^.&set := $00008000;
  12582. end;
  12583. function TUART1_U1MODE.getON : TBits_1; inline;
  12584. begin
  12585. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  12586. end;
  12587. procedure TUART1_U1MODE.setPDSEL0; inline;
  12588. begin
  12589. pTDefRegMap(@Self)^.&set := $00000002;
  12590. end;
  12591. procedure TUART1_U1MODE.clearPDSEL0; inline;
  12592. begin
  12593. pTDefRegMap(@Self)^.clr := $00000002;
  12594. end;
  12595. procedure TUART1_U1MODE.setPDSEL0(thebits : TBits_1); inline;
  12596. begin
  12597. if thebits = 0 then
  12598. pTDefRegMap(@Self)^.clr := $00000002
  12599. else
  12600. pTDefRegMap(@Self)^.&set := $00000002;
  12601. end;
  12602. function TUART1_U1MODE.getPDSEL0 : TBits_1; inline;
  12603. begin
  12604. getPDSEL0 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  12605. end;
  12606. procedure TUART1_U1MODE.setPDSEL1; inline;
  12607. begin
  12608. pTDefRegMap(@Self)^.&set := $00000004;
  12609. end;
  12610. procedure TUART1_U1MODE.clearPDSEL1; inline;
  12611. begin
  12612. pTDefRegMap(@Self)^.clr := $00000004;
  12613. end;
  12614. procedure TUART1_U1MODE.setPDSEL1(thebits : TBits_1); inline;
  12615. begin
  12616. if thebits = 0 then
  12617. pTDefRegMap(@Self)^.clr := $00000004
  12618. else
  12619. pTDefRegMap(@Self)^.&set := $00000004;
  12620. end;
  12621. function TUART1_U1MODE.getPDSEL1 : TBits_1; inline;
  12622. begin
  12623. getPDSEL1 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  12624. end;
  12625. procedure TUART1_U1MODE.setUEN0; inline;
  12626. begin
  12627. pTDefRegMap(@Self)^.&set := $00000100;
  12628. end;
  12629. procedure TUART1_U1MODE.clearUEN0; inline;
  12630. begin
  12631. pTDefRegMap(@Self)^.clr := $00000100;
  12632. end;
  12633. procedure TUART1_U1MODE.setUEN0(thebits : TBits_1); inline;
  12634. begin
  12635. if thebits = 0 then
  12636. pTDefRegMap(@Self)^.clr := $00000100
  12637. else
  12638. pTDefRegMap(@Self)^.&set := $00000100;
  12639. end;
  12640. function TUART1_U1MODE.getUEN0 : TBits_1; inline;
  12641. begin
  12642. getUEN0 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  12643. end;
  12644. procedure TUART1_U1MODE.setUEN1; inline;
  12645. begin
  12646. pTDefRegMap(@Self)^.&set := $00000200;
  12647. end;
  12648. procedure TUART1_U1MODE.clearUEN1; inline;
  12649. begin
  12650. pTDefRegMap(@Self)^.clr := $00000200;
  12651. end;
  12652. procedure TUART1_U1MODE.setUEN1(thebits : TBits_1); inline;
  12653. begin
  12654. if thebits = 0 then
  12655. pTDefRegMap(@Self)^.clr := $00000200
  12656. else
  12657. pTDefRegMap(@Self)^.&set := $00000200;
  12658. end;
  12659. function TUART1_U1MODE.getUEN1 : TBits_1; inline;
  12660. begin
  12661. getUEN1 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  12662. end;
  12663. procedure TUART1_U1MODE.setUSIDL; inline;
  12664. begin
  12665. pTDefRegMap(@Self)^.&set := $00002000;
  12666. end;
  12667. procedure TUART1_U1MODE.clearUSIDL; inline;
  12668. begin
  12669. pTDefRegMap(@Self)^.clr := $00002000;
  12670. end;
  12671. procedure TUART1_U1MODE.setUSIDL(thebits : TBits_1); inline;
  12672. begin
  12673. if thebits = 0 then
  12674. pTDefRegMap(@Self)^.clr := $00002000
  12675. else
  12676. pTDefRegMap(@Self)^.&set := $00002000;
  12677. end;
  12678. function TUART1_U1MODE.getUSIDL : TBits_1; inline;
  12679. begin
  12680. getUSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  12681. end;
  12682. procedure TUART1_U1MODE.setUARTEN; inline;
  12683. begin
  12684. pTDefRegMap(@Self)^.&set := $00008000;
  12685. end;
  12686. procedure TUART1_U1MODE.clearUARTEN; inline;
  12687. begin
  12688. pTDefRegMap(@Self)^.clr := $00008000;
  12689. end;
  12690. procedure TUART1_U1MODE.setUARTEN(thebits : TBits_1); inline;
  12691. begin
  12692. if thebits = 0 then
  12693. pTDefRegMap(@Self)^.clr := $00008000
  12694. else
  12695. pTDefRegMap(@Self)^.&set := $00008000;
  12696. end;
  12697. function TUART1_U1MODE.getUARTEN : TBits_1; inline;
  12698. begin
  12699. getUARTEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  12700. end;
  12701. procedure TUART1_U1MODE.setw(thebits : TBits_32); inline;
  12702. begin
  12703. pTDefRegMap(@Self)^.val := thebits;
  12704. end;
  12705. function TUART1_U1MODE.getw : TBits_32; inline;
  12706. begin
  12707. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  12708. end;
  12709. procedure TUART1_U1STA.setURXDA; inline;
  12710. begin
  12711. pTDefRegMap(@Self)^.&set := $00000001;
  12712. end;
  12713. procedure TUART1_U1STA.clearURXDA; inline;
  12714. begin
  12715. pTDefRegMap(@Self)^.clr := $00000001;
  12716. end;
  12717. procedure TUART1_U1STA.setURXDA(thebits : TBits_1); inline;
  12718. begin
  12719. if thebits = 0 then
  12720. pTDefRegMap(@Self)^.clr := $00000001
  12721. else
  12722. pTDefRegMap(@Self)^.&set := $00000001;
  12723. end;
  12724. function TUART1_U1STA.getURXDA : TBits_1; inline;
  12725. begin
  12726. getURXDA := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  12727. end;
  12728. procedure TUART1_U1STA.setOERR; inline;
  12729. begin
  12730. pTDefRegMap(@Self)^.&set := $00000002;
  12731. end;
  12732. procedure TUART1_U1STA.clearOERR; inline;
  12733. begin
  12734. pTDefRegMap(@Self)^.clr := $00000002;
  12735. end;
  12736. procedure TUART1_U1STA.setOERR(thebits : TBits_1); inline;
  12737. begin
  12738. if thebits = 0 then
  12739. pTDefRegMap(@Self)^.clr := $00000002
  12740. else
  12741. pTDefRegMap(@Self)^.&set := $00000002;
  12742. end;
  12743. function TUART1_U1STA.getOERR : TBits_1; inline;
  12744. begin
  12745. getOERR := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  12746. end;
  12747. procedure TUART1_U1STA.setFERR; inline;
  12748. begin
  12749. pTDefRegMap(@Self)^.&set := $00000004;
  12750. end;
  12751. procedure TUART1_U1STA.clearFERR; inline;
  12752. begin
  12753. pTDefRegMap(@Self)^.clr := $00000004;
  12754. end;
  12755. procedure TUART1_U1STA.setFERR(thebits : TBits_1); inline;
  12756. begin
  12757. if thebits = 0 then
  12758. pTDefRegMap(@Self)^.clr := $00000004
  12759. else
  12760. pTDefRegMap(@Self)^.&set := $00000004;
  12761. end;
  12762. function TUART1_U1STA.getFERR : TBits_1; inline;
  12763. begin
  12764. getFERR := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  12765. end;
  12766. procedure TUART1_U1STA.setPERR; inline;
  12767. begin
  12768. pTDefRegMap(@Self)^.&set := $00000008;
  12769. end;
  12770. procedure TUART1_U1STA.clearPERR; inline;
  12771. begin
  12772. pTDefRegMap(@Self)^.clr := $00000008;
  12773. end;
  12774. procedure TUART1_U1STA.setPERR(thebits : TBits_1); inline;
  12775. begin
  12776. if thebits = 0 then
  12777. pTDefRegMap(@Self)^.clr := $00000008
  12778. else
  12779. pTDefRegMap(@Self)^.&set := $00000008;
  12780. end;
  12781. function TUART1_U1STA.getPERR : TBits_1; inline;
  12782. begin
  12783. getPERR := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  12784. end;
  12785. procedure TUART1_U1STA.setRIDLE; inline;
  12786. begin
  12787. pTDefRegMap(@Self)^.&set := $00000010;
  12788. end;
  12789. procedure TUART1_U1STA.clearRIDLE; inline;
  12790. begin
  12791. pTDefRegMap(@Self)^.clr := $00000010;
  12792. end;
  12793. procedure TUART1_U1STA.setRIDLE(thebits : TBits_1); inline;
  12794. begin
  12795. if thebits = 0 then
  12796. pTDefRegMap(@Self)^.clr := $00000010
  12797. else
  12798. pTDefRegMap(@Self)^.&set := $00000010;
  12799. end;
  12800. function TUART1_U1STA.getRIDLE : TBits_1; inline;
  12801. begin
  12802. getRIDLE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  12803. end;
  12804. procedure TUART1_U1STA.setADDEN; inline;
  12805. begin
  12806. pTDefRegMap(@Self)^.&set := $00000020;
  12807. end;
  12808. procedure TUART1_U1STA.clearADDEN; inline;
  12809. begin
  12810. pTDefRegMap(@Self)^.clr := $00000020;
  12811. end;
  12812. procedure TUART1_U1STA.setADDEN(thebits : TBits_1); inline;
  12813. begin
  12814. if thebits = 0 then
  12815. pTDefRegMap(@Self)^.clr := $00000020
  12816. else
  12817. pTDefRegMap(@Self)^.&set := $00000020;
  12818. end;
  12819. function TUART1_U1STA.getADDEN : TBits_1; inline;
  12820. begin
  12821. getADDEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  12822. end;
  12823. procedure TUART1_U1STA.setURXISEL(thebits : TBits_2); inline;
  12824. begin
  12825. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
  12826. end;
  12827. function TUART1_U1STA.getURXISEL : TBits_2; inline;
  12828. begin
  12829. getURXISEL := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
  12830. end;
  12831. procedure TUART1_U1STA.setTRMT; inline;
  12832. begin
  12833. pTDefRegMap(@Self)^.&set := $00000100;
  12834. end;
  12835. procedure TUART1_U1STA.clearTRMT; inline;
  12836. begin
  12837. pTDefRegMap(@Self)^.clr := $00000100;
  12838. end;
  12839. procedure TUART1_U1STA.setTRMT(thebits : TBits_1); inline;
  12840. begin
  12841. if thebits = 0 then
  12842. pTDefRegMap(@Self)^.clr := $00000100
  12843. else
  12844. pTDefRegMap(@Self)^.&set := $00000100;
  12845. end;
  12846. function TUART1_U1STA.getTRMT : TBits_1; inline;
  12847. begin
  12848. getTRMT := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  12849. end;
  12850. procedure TUART1_U1STA.setUTXBF; inline;
  12851. begin
  12852. pTDefRegMap(@Self)^.&set := $00000200;
  12853. end;
  12854. procedure TUART1_U1STA.clearUTXBF; inline;
  12855. begin
  12856. pTDefRegMap(@Self)^.clr := $00000200;
  12857. end;
  12858. procedure TUART1_U1STA.setUTXBF(thebits : TBits_1); inline;
  12859. begin
  12860. if thebits = 0 then
  12861. pTDefRegMap(@Self)^.clr := $00000200
  12862. else
  12863. pTDefRegMap(@Self)^.&set := $00000200;
  12864. end;
  12865. function TUART1_U1STA.getUTXBF : TBits_1; inline;
  12866. begin
  12867. getUTXBF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  12868. end;
  12869. procedure TUART1_U1STA.setUTXEN; inline;
  12870. begin
  12871. pTDefRegMap(@Self)^.&set := $00000400;
  12872. end;
  12873. procedure TUART1_U1STA.clearUTXEN; inline;
  12874. begin
  12875. pTDefRegMap(@Self)^.clr := $00000400;
  12876. end;
  12877. procedure TUART1_U1STA.setUTXEN(thebits : TBits_1); inline;
  12878. begin
  12879. if thebits = 0 then
  12880. pTDefRegMap(@Self)^.clr := $00000400
  12881. else
  12882. pTDefRegMap(@Self)^.&set := $00000400;
  12883. end;
  12884. function TUART1_U1STA.getUTXEN : TBits_1; inline;
  12885. begin
  12886. getUTXEN := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  12887. end;
  12888. procedure TUART1_U1STA.setUTXBRK; inline;
  12889. begin
  12890. pTDefRegMap(@Self)^.&set := $00000800;
  12891. end;
  12892. procedure TUART1_U1STA.clearUTXBRK; inline;
  12893. begin
  12894. pTDefRegMap(@Self)^.clr := $00000800;
  12895. end;
  12896. procedure TUART1_U1STA.setUTXBRK(thebits : TBits_1); inline;
  12897. begin
  12898. if thebits = 0 then
  12899. pTDefRegMap(@Self)^.clr := $00000800
  12900. else
  12901. pTDefRegMap(@Self)^.&set := $00000800;
  12902. end;
  12903. function TUART1_U1STA.getUTXBRK : TBits_1; inline;
  12904. begin
  12905. getUTXBRK := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  12906. end;
  12907. procedure TUART1_U1STA.setURXEN; inline;
  12908. begin
  12909. pTDefRegMap(@Self)^.&set := $00001000;
  12910. end;
  12911. procedure TUART1_U1STA.clearURXEN; inline;
  12912. begin
  12913. pTDefRegMap(@Self)^.clr := $00001000;
  12914. end;
  12915. procedure TUART1_U1STA.setURXEN(thebits : TBits_1); inline;
  12916. begin
  12917. if thebits = 0 then
  12918. pTDefRegMap(@Self)^.clr := $00001000
  12919. else
  12920. pTDefRegMap(@Self)^.&set := $00001000;
  12921. end;
  12922. function TUART1_U1STA.getURXEN : TBits_1; inline;
  12923. begin
  12924. getURXEN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  12925. end;
  12926. procedure TUART1_U1STA.setUTXINV; inline;
  12927. begin
  12928. pTDefRegMap(@Self)^.&set := $00002000;
  12929. end;
  12930. procedure TUART1_U1STA.clearUTXINV; inline;
  12931. begin
  12932. pTDefRegMap(@Self)^.clr := $00002000;
  12933. end;
  12934. procedure TUART1_U1STA.setUTXINV(thebits : TBits_1); inline;
  12935. begin
  12936. if thebits = 0 then
  12937. pTDefRegMap(@Self)^.clr := $00002000
  12938. else
  12939. pTDefRegMap(@Self)^.&set := $00002000;
  12940. end;
  12941. function TUART1_U1STA.getUTXINV : TBits_1; inline;
  12942. begin
  12943. getUTXINV := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  12944. end;
  12945. procedure TUART1_U1STA.setUTXISEL(thebits : TBits_2); inline;
  12946. begin
  12947. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  12948. end;
  12949. function TUART1_U1STA.getUTXISEL : TBits_2; inline;
  12950. begin
  12951. getUTXISEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  12952. end;
  12953. procedure TUART1_U1STA.setADDR(thebits : TBits_8); inline;
  12954. begin
  12955. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
  12956. end;
  12957. function TUART1_U1STA.getADDR : TBits_8; inline;
  12958. begin
  12959. getADDR := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
  12960. end;
  12961. procedure TUART1_U1STA.setADM_EN; inline;
  12962. begin
  12963. pTDefRegMap(@Self)^.&set := $01000000;
  12964. end;
  12965. procedure TUART1_U1STA.clearADM_EN; inline;
  12966. begin
  12967. pTDefRegMap(@Self)^.clr := $01000000;
  12968. end;
  12969. procedure TUART1_U1STA.setADM_EN(thebits : TBits_1); inline;
  12970. begin
  12971. if thebits = 0 then
  12972. pTDefRegMap(@Self)^.clr := $01000000
  12973. else
  12974. pTDefRegMap(@Self)^.&set := $01000000;
  12975. end;
  12976. function TUART1_U1STA.getADM_EN : TBits_1; inline;
  12977. begin
  12978. getADM_EN := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  12979. end;
  12980. procedure TUART1_U1STA.setURXISEL0; inline;
  12981. begin
  12982. pTDefRegMap(@Self)^.&set := $00000040;
  12983. end;
  12984. procedure TUART1_U1STA.clearURXISEL0; inline;
  12985. begin
  12986. pTDefRegMap(@Self)^.clr := $00000040;
  12987. end;
  12988. procedure TUART1_U1STA.setURXISEL0(thebits : TBits_1); inline;
  12989. begin
  12990. if thebits = 0 then
  12991. pTDefRegMap(@Self)^.clr := $00000040
  12992. else
  12993. pTDefRegMap(@Self)^.&set := $00000040;
  12994. end;
  12995. function TUART1_U1STA.getURXISEL0 : TBits_1; inline;
  12996. begin
  12997. getURXISEL0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  12998. end;
  12999. procedure TUART1_U1STA.setURXISEL1; inline;
  13000. begin
  13001. pTDefRegMap(@Self)^.&set := $00000080;
  13002. end;
  13003. procedure TUART1_U1STA.clearURXISEL1; inline;
  13004. begin
  13005. pTDefRegMap(@Self)^.clr := $00000080;
  13006. end;
  13007. procedure TUART1_U1STA.setURXISEL1(thebits : TBits_1); inline;
  13008. begin
  13009. if thebits = 0 then
  13010. pTDefRegMap(@Self)^.clr := $00000080
  13011. else
  13012. pTDefRegMap(@Self)^.&set := $00000080;
  13013. end;
  13014. function TUART1_U1STA.getURXISEL1 : TBits_1; inline;
  13015. begin
  13016. getURXISEL1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  13017. end;
  13018. procedure TUART1_U1STA.setUTXISEL0; inline;
  13019. begin
  13020. pTDefRegMap(@Self)^.&set := $00004000;
  13021. end;
  13022. procedure TUART1_U1STA.clearUTXISEL0; inline;
  13023. begin
  13024. pTDefRegMap(@Self)^.clr := $00004000;
  13025. end;
  13026. procedure TUART1_U1STA.setUTXISEL0(thebits : TBits_1); inline;
  13027. begin
  13028. if thebits = 0 then
  13029. pTDefRegMap(@Self)^.clr := $00004000
  13030. else
  13031. pTDefRegMap(@Self)^.&set := $00004000;
  13032. end;
  13033. function TUART1_U1STA.getUTXISEL0 : TBits_1; inline;
  13034. begin
  13035. getUTXISEL0 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  13036. end;
  13037. procedure TUART1_U1STA.setUTXISEL1; inline;
  13038. begin
  13039. pTDefRegMap(@Self)^.&set := $00008000;
  13040. end;
  13041. procedure TUART1_U1STA.clearUTXISEL1; inline;
  13042. begin
  13043. pTDefRegMap(@Self)^.clr := $00008000;
  13044. end;
  13045. procedure TUART1_U1STA.setUTXISEL1(thebits : TBits_1); inline;
  13046. begin
  13047. if thebits = 0 then
  13048. pTDefRegMap(@Self)^.clr := $00008000
  13049. else
  13050. pTDefRegMap(@Self)^.&set := $00008000;
  13051. end;
  13052. function TUART1_U1STA.getUTXISEL1 : TBits_1; inline;
  13053. begin
  13054. getUTXISEL1 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  13055. end;
  13056. procedure TUART1_U1STA.setUTXSEL(thebits : TBits_2); inline;
  13057. begin
  13058. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  13059. end;
  13060. function TUART1_U1STA.getUTXSEL : TBits_2; inline;
  13061. begin
  13062. getUTXSEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  13063. end;
  13064. procedure TUART1_U1STA.setw(thebits : TBits_32); inline;
  13065. begin
  13066. pTDefRegMap(@Self)^.val := thebits;
  13067. end;
  13068. function TUART1_U1STA.getw : TBits_32; inline;
  13069. begin
  13070. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  13071. end;
  13072. procedure TUART2_U2MODE.setSTSEL; inline;
  13073. begin
  13074. pTDefRegMap(@Self)^.&set := $00000001;
  13075. end;
  13076. procedure TUART2_U2MODE.clearSTSEL; inline;
  13077. begin
  13078. pTDefRegMap(@Self)^.clr := $00000001;
  13079. end;
  13080. procedure TUART2_U2MODE.setSTSEL(thebits : TBits_1); inline;
  13081. begin
  13082. if thebits = 0 then
  13083. pTDefRegMap(@Self)^.clr := $00000001
  13084. else
  13085. pTDefRegMap(@Self)^.&set := $00000001;
  13086. end;
  13087. function TUART2_U2MODE.getSTSEL : TBits_1; inline;
  13088. begin
  13089. getSTSEL := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  13090. end;
  13091. procedure TUART2_U2MODE.setPDSEL(thebits : TBits_2); inline;
  13092. begin
  13093. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF9 or ( thebits shl 1 );
  13094. end;
  13095. function TUART2_U2MODE.getPDSEL : TBits_2; inline;
  13096. begin
  13097. getPDSEL := (pTDefRegMap(@Self)^.val and $00000006) shr 1;
  13098. end;
  13099. procedure TUART2_U2MODE.setBRGH; inline;
  13100. begin
  13101. pTDefRegMap(@Self)^.&set := $00000008;
  13102. end;
  13103. procedure TUART2_U2MODE.clearBRGH; inline;
  13104. begin
  13105. pTDefRegMap(@Self)^.clr := $00000008;
  13106. end;
  13107. procedure TUART2_U2MODE.setBRGH(thebits : TBits_1); inline;
  13108. begin
  13109. if thebits = 0 then
  13110. pTDefRegMap(@Self)^.clr := $00000008
  13111. else
  13112. pTDefRegMap(@Self)^.&set := $00000008;
  13113. end;
  13114. function TUART2_U2MODE.getBRGH : TBits_1; inline;
  13115. begin
  13116. getBRGH := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  13117. end;
  13118. procedure TUART2_U2MODE.setRXINV; inline;
  13119. begin
  13120. pTDefRegMap(@Self)^.&set := $00000010;
  13121. end;
  13122. procedure TUART2_U2MODE.clearRXINV; inline;
  13123. begin
  13124. pTDefRegMap(@Self)^.clr := $00000010;
  13125. end;
  13126. procedure TUART2_U2MODE.setRXINV(thebits : TBits_1); inline;
  13127. begin
  13128. if thebits = 0 then
  13129. pTDefRegMap(@Self)^.clr := $00000010
  13130. else
  13131. pTDefRegMap(@Self)^.&set := $00000010;
  13132. end;
  13133. function TUART2_U2MODE.getRXINV : TBits_1; inline;
  13134. begin
  13135. getRXINV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  13136. end;
  13137. procedure TUART2_U2MODE.setABAUD; inline;
  13138. begin
  13139. pTDefRegMap(@Self)^.&set := $00000020;
  13140. end;
  13141. procedure TUART2_U2MODE.clearABAUD; inline;
  13142. begin
  13143. pTDefRegMap(@Self)^.clr := $00000020;
  13144. end;
  13145. procedure TUART2_U2MODE.setABAUD(thebits : TBits_1); inline;
  13146. begin
  13147. if thebits = 0 then
  13148. pTDefRegMap(@Self)^.clr := $00000020
  13149. else
  13150. pTDefRegMap(@Self)^.&set := $00000020;
  13151. end;
  13152. function TUART2_U2MODE.getABAUD : TBits_1; inline;
  13153. begin
  13154. getABAUD := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  13155. end;
  13156. procedure TUART2_U2MODE.setLPBACK; inline;
  13157. begin
  13158. pTDefRegMap(@Self)^.&set := $00000040;
  13159. end;
  13160. procedure TUART2_U2MODE.clearLPBACK; inline;
  13161. begin
  13162. pTDefRegMap(@Self)^.clr := $00000040;
  13163. end;
  13164. procedure TUART2_U2MODE.setLPBACK(thebits : TBits_1); inline;
  13165. begin
  13166. if thebits = 0 then
  13167. pTDefRegMap(@Self)^.clr := $00000040
  13168. else
  13169. pTDefRegMap(@Self)^.&set := $00000040;
  13170. end;
  13171. function TUART2_U2MODE.getLPBACK : TBits_1; inline;
  13172. begin
  13173. getLPBACK := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  13174. end;
  13175. procedure TUART2_U2MODE.setWAKE; inline;
  13176. begin
  13177. pTDefRegMap(@Self)^.&set := $00000080;
  13178. end;
  13179. procedure TUART2_U2MODE.clearWAKE; inline;
  13180. begin
  13181. pTDefRegMap(@Self)^.clr := $00000080;
  13182. end;
  13183. procedure TUART2_U2MODE.setWAKE(thebits : TBits_1); inline;
  13184. begin
  13185. if thebits = 0 then
  13186. pTDefRegMap(@Self)^.clr := $00000080
  13187. else
  13188. pTDefRegMap(@Self)^.&set := $00000080;
  13189. end;
  13190. function TUART2_U2MODE.getWAKE : TBits_1; inline;
  13191. begin
  13192. getWAKE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  13193. end;
  13194. procedure TUART2_U2MODE.setUEN(thebits : TBits_2); inline;
  13195. begin
  13196. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  13197. end;
  13198. function TUART2_U2MODE.getUEN : TBits_2; inline;
  13199. begin
  13200. getUEN := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  13201. end;
  13202. procedure TUART2_U2MODE.setRTSMD; inline;
  13203. begin
  13204. pTDefRegMap(@Self)^.&set := $00000800;
  13205. end;
  13206. procedure TUART2_U2MODE.clearRTSMD; inline;
  13207. begin
  13208. pTDefRegMap(@Self)^.clr := $00000800;
  13209. end;
  13210. procedure TUART2_U2MODE.setRTSMD(thebits : TBits_1); inline;
  13211. begin
  13212. if thebits = 0 then
  13213. pTDefRegMap(@Self)^.clr := $00000800
  13214. else
  13215. pTDefRegMap(@Self)^.&set := $00000800;
  13216. end;
  13217. function TUART2_U2MODE.getRTSMD : TBits_1; inline;
  13218. begin
  13219. getRTSMD := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  13220. end;
  13221. procedure TUART2_U2MODE.setIREN; inline;
  13222. begin
  13223. pTDefRegMap(@Self)^.&set := $00001000;
  13224. end;
  13225. procedure TUART2_U2MODE.clearIREN; inline;
  13226. begin
  13227. pTDefRegMap(@Self)^.clr := $00001000;
  13228. end;
  13229. procedure TUART2_U2MODE.setIREN(thebits : TBits_1); inline;
  13230. begin
  13231. if thebits = 0 then
  13232. pTDefRegMap(@Self)^.clr := $00001000
  13233. else
  13234. pTDefRegMap(@Self)^.&set := $00001000;
  13235. end;
  13236. function TUART2_U2MODE.getIREN : TBits_1; inline;
  13237. begin
  13238. getIREN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  13239. end;
  13240. procedure TUART2_U2MODE.setSIDL; inline;
  13241. begin
  13242. pTDefRegMap(@Self)^.&set := $00002000;
  13243. end;
  13244. procedure TUART2_U2MODE.clearSIDL; inline;
  13245. begin
  13246. pTDefRegMap(@Self)^.clr := $00002000;
  13247. end;
  13248. procedure TUART2_U2MODE.setSIDL(thebits : TBits_1); inline;
  13249. begin
  13250. if thebits = 0 then
  13251. pTDefRegMap(@Self)^.clr := $00002000
  13252. else
  13253. pTDefRegMap(@Self)^.&set := $00002000;
  13254. end;
  13255. function TUART2_U2MODE.getSIDL : TBits_1; inline;
  13256. begin
  13257. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  13258. end;
  13259. procedure TUART2_U2MODE.setON; inline;
  13260. begin
  13261. pTDefRegMap(@Self)^.&set := $00008000;
  13262. end;
  13263. procedure TUART2_U2MODE.clearON; inline;
  13264. begin
  13265. pTDefRegMap(@Self)^.clr := $00008000;
  13266. end;
  13267. procedure TUART2_U2MODE.setON(thebits : TBits_1); inline;
  13268. begin
  13269. if thebits = 0 then
  13270. pTDefRegMap(@Self)^.clr := $00008000
  13271. else
  13272. pTDefRegMap(@Self)^.&set := $00008000;
  13273. end;
  13274. function TUART2_U2MODE.getON : TBits_1; inline;
  13275. begin
  13276. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  13277. end;
  13278. procedure TUART2_U2MODE.setPDSEL0; inline;
  13279. begin
  13280. pTDefRegMap(@Self)^.&set := $00000002;
  13281. end;
  13282. procedure TUART2_U2MODE.clearPDSEL0; inline;
  13283. begin
  13284. pTDefRegMap(@Self)^.clr := $00000002;
  13285. end;
  13286. procedure TUART2_U2MODE.setPDSEL0(thebits : TBits_1); inline;
  13287. begin
  13288. if thebits = 0 then
  13289. pTDefRegMap(@Self)^.clr := $00000002
  13290. else
  13291. pTDefRegMap(@Self)^.&set := $00000002;
  13292. end;
  13293. function TUART2_U2MODE.getPDSEL0 : TBits_1; inline;
  13294. begin
  13295. getPDSEL0 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  13296. end;
  13297. procedure TUART2_U2MODE.setPDSEL1; inline;
  13298. begin
  13299. pTDefRegMap(@Self)^.&set := $00000004;
  13300. end;
  13301. procedure TUART2_U2MODE.clearPDSEL1; inline;
  13302. begin
  13303. pTDefRegMap(@Self)^.clr := $00000004;
  13304. end;
  13305. procedure TUART2_U2MODE.setPDSEL1(thebits : TBits_1); inline;
  13306. begin
  13307. if thebits = 0 then
  13308. pTDefRegMap(@Self)^.clr := $00000004
  13309. else
  13310. pTDefRegMap(@Self)^.&set := $00000004;
  13311. end;
  13312. function TUART2_U2MODE.getPDSEL1 : TBits_1; inline;
  13313. begin
  13314. getPDSEL1 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  13315. end;
  13316. procedure TUART2_U2MODE.setUEN0; inline;
  13317. begin
  13318. pTDefRegMap(@Self)^.&set := $00000100;
  13319. end;
  13320. procedure TUART2_U2MODE.clearUEN0; inline;
  13321. begin
  13322. pTDefRegMap(@Self)^.clr := $00000100;
  13323. end;
  13324. procedure TUART2_U2MODE.setUEN0(thebits : TBits_1); inline;
  13325. begin
  13326. if thebits = 0 then
  13327. pTDefRegMap(@Self)^.clr := $00000100
  13328. else
  13329. pTDefRegMap(@Self)^.&set := $00000100;
  13330. end;
  13331. function TUART2_U2MODE.getUEN0 : TBits_1; inline;
  13332. begin
  13333. getUEN0 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  13334. end;
  13335. procedure TUART2_U2MODE.setUEN1; inline;
  13336. begin
  13337. pTDefRegMap(@Self)^.&set := $00000200;
  13338. end;
  13339. procedure TUART2_U2MODE.clearUEN1; inline;
  13340. begin
  13341. pTDefRegMap(@Self)^.clr := $00000200;
  13342. end;
  13343. procedure TUART2_U2MODE.setUEN1(thebits : TBits_1); inline;
  13344. begin
  13345. if thebits = 0 then
  13346. pTDefRegMap(@Self)^.clr := $00000200
  13347. else
  13348. pTDefRegMap(@Self)^.&set := $00000200;
  13349. end;
  13350. function TUART2_U2MODE.getUEN1 : TBits_1; inline;
  13351. begin
  13352. getUEN1 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  13353. end;
  13354. procedure TUART2_U2MODE.setUSIDL; inline;
  13355. begin
  13356. pTDefRegMap(@Self)^.&set := $00002000;
  13357. end;
  13358. procedure TUART2_U2MODE.clearUSIDL; inline;
  13359. begin
  13360. pTDefRegMap(@Self)^.clr := $00002000;
  13361. end;
  13362. procedure TUART2_U2MODE.setUSIDL(thebits : TBits_1); inline;
  13363. begin
  13364. if thebits = 0 then
  13365. pTDefRegMap(@Self)^.clr := $00002000
  13366. else
  13367. pTDefRegMap(@Self)^.&set := $00002000;
  13368. end;
  13369. function TUART2_U2MODE.getUSIDL : TBits_1; inline;
  13370. begin
  13371. getUSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  13372. end;
  13373. procedure TUART2_U2MODE.setUARTEN; inline;
  13374. begin
  13375. pTDefRegMap(@Self)^.&set := $00008000;
  13376. end;
  13377. procedure TUART2_U2MODE.clearUARTEN; inline;
  13378. begin
  13379. pTDefRegMap(@Self)^.clr := $00008000;
  13380. end;
  13381. procedure TUART2_U2MODE.setUARTEN(thebits : TBits_1); inline;
  13382. begin
  13383. if thebits = 0 then
  13384. pTDefRegMap(@Self)^.clr := $00008000
  13385. else
  13386. pTDefRegMap(@Self)^.&set := $00008000;
  13387. end;
  13388. function TUART2_U2MODE.getUARTEN : TBits_1; inline;
  13389. begin
  13390. getUARTEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  13391. end;
  13392. procedure TUART2_U2MODE.setw(thebits : TBits_32); inline;
  13393. begin
  13394. pTDefRegMap(@Self)^.val := thebits;
  13395. end;
  13396. function TUART2_U2MODE.getw : TBits_32; inline;
  13397. begin
  13398. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  13399. end;
  13400. procedure TUART2_U2STA.setURXDA; inline;
  13401. begin
  13402. pTDefRegMap(@Self)^.&set := $00000001;
  13403. end;
  13404. procedure TUART2_U2STA.clearURXDA; inline;
  13405. begin
  13406. pTDefRegMap(@Self)^.clr := $00000001;
  13407. end;
  13408. procedure TUART2_U2STA.setURXDA(thebits : TBits_1); inline;
  13409. begin
  13410. if thebits = 0 then
  13411. pTDefRegMap(@Self)^.clr := $00000001
  13412. else
  13413. pTDefRegMap(@Self)^.&set := $00000001;
  13414. end;
  13415. function TUART2_U2STA.getURXDA : TBits_1; inline;
  13416. begin
  13417. getURXDA := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  13418. end;
  13419. procedure TUART2_U2STA.setOERR; inline;
  13420. begin
  13421. pTDefRegMap(@Self)^.&set := $00000002;
  13422. end;
  13423. procedure TUART2_U2STA.clearOERR; inline;
  13424. begin
  13425. pTDefRegMap(@Self)^.clr := $00000002;
  13426. end;
  13427. procedure TUART2_U2STA.setOERR(thebits : TBits_1); inline;
  13428. begin
  13429. if thebits = 0 then
  13430. pTDefRegMap(@Self)^.clr := $00000002
  13431. else
  13432. pTDefRegMap(@Self)^.&set := $00000002;
  13433. end;
  13434. function TUART2_U2STA.getOERR : TBits_1; inline;
  13435. begin
  13436. getOERR := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  13437. end;
  13438. procedure TUART2_U2STA.setFERR; inline;
  13439. begin
  13440. pTDefRegMap(@Self)^.&set := $00000004;
  13441. end;
  13442. procedure TUART2_U2STA.clearFERR; inline;
  13443. begin
  13444. pTDefRegMap(@Self)^.clr := $00000004;
  13445. end;
  13446. procedure TUART2_U2STA.setFERR(thebits : TBits_1); inline;
  13447. begin
  13448. if thebits = 0 then
  13449. pTDefRegMap(@Self)^.clr := $00000004
  13450. else
  13451. pTDefRegMap(@Self)^.&set := $00000004;
  13452. end;
  13453. function TUART2_U2STA.getFERR : TBits_1; inline;
  13454. begin
  13455. getFERR := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  13456. end;
  13457. procedure TUART2_U2STA.setPERR; inline;
  13458. begin
  13459. pTDefRegMap(@Self)^.&set := $00000008;
  13460. end;
  13461. procedure TUART2_U2STA.clearPERR; inline;
  13462. begin
  13463. pTDefRegMap(@Self)^.clr := $00000008;
  13464. end;
  13465. procedure TUART2_U2STA.setPERR(thebits : TBits_1); inline;
  13466. begin
  13467. if thebits = 0 then
  13468. pTDefRegMap(@Self)^.clr := $00000008
  13469. else
  13470. pTDefRegMap(@Self)^.&set := $00000008;
  13471. end;
  13472. function TUART2_U2STA.getPERR : TBits_1; inline;
  13473. begin
  13474. getPERR := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  13475. end;
  13476. procedure TUART2_U2STA.setRIDLE; inline;
  13477. begin
  13478. pTDefRegMap(@Self)^.&set := $00000010;
  13479. end;
  13480. procedure TUART2_U2STA.clearRIDLE; inline;
  13481. begin
  13482. pTDefRegMap(@Self)^.clr := $00000010;
  13483. end;
  13484. procedure TUART2_U2STA.setRIDLE(thebits : TBits_1); inline;
  13485. begin
  13486. if thebits = 0 then
  13487. pTDefRegMap(@Self)^.clr := $00000010
  13488. else
  13489. pTDefRegMap(@Self)^.&set := $00000010;
  13490. end;
  13491. function TUART2_U2STA.getRIDLE : TBits_1; inline;
  13492. begin
  13493. getRIDLE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  13494. end;
  13495. procedure TUART2_U2STA.setADDEN; inline;
  13496. begin
  13497. pTDefRegMap(@Self)^.&set := $00000020;
  13498. end;
  13499. procedure TUART2_U2STA.clearADDEN; inline;
  13500. begin
  13501. pTDefRegMap(@Self)^.clr := $00000020;
  13502. end;
  13503. procedure TUART2_U2STA.setADDEN(thebits : TBits_1); inline;
  13504. begin
  13505. if thebits = 0 then
  13506. pTDefRegMap(@Self)^.clr := $00000020
  13507. else
  13508. pTDefRegMap(@Self)^.&set := $00000020;
  13509. end;
  13510. function TUART2_U2STA.getADDEN : TBits_1; inline;
  13511. begin
  13512. getADDEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  13513. end;
  13514. procedure TUART2_U2STA.setURXISEL(thebits : TBits_2); inline;
  13515. begin
  13516. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
  13517. end;
  13518. function TUART2_U2STA.getURXISEL : TBits_2; inline;
  13519. begin
  13520. getURXISEL := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
  13521. end;
  13522. procedure TUART2_U2STA.setTRMT; inline;
  13523. begin
  13524. pTDefRegMap(@Self)^.&set := $00000100;
  13525. end;
  13526. procedure TUART2_U2STA.clearTRMT; inline;
  13527. begin
  13528. pTDefRegMap(@Self)^.clr := $00000100;
  13529. end;
  13530. procedure TUART2_U2STA.setTRMT(thebits : TBits_1); inline;
  13531. begin
  13532. if thebits = 0 then
  13533. pTDefRegMap(@Self)^.clr := $00000100
  13534. else
  13535. pTDefRegMap(@Self)^.&set := $00000100;
  13536. end;
  13537. function TUART2_U2STA.getTRMT : TBits_1; inline;
  13538. begin
  13539. getTRMT := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  13540. end;
  13541. procedure TUART2_U2STA.setUTXBF; inline;
  13542. begin
  13543. pTDefRegMap(@Self)^.&set := $00000200;
  13544. end;
  13545. procedure TUART2_U2STA.clearUTXBF; inline;
  13546. begin
  13547. pTDefRegMap(@Self)^.clr := $00000200;
  13548. end;
  13549. procedure TUART2_U2STA.setUTXBF(thebits : TBits_1); inline;
  13550. begin
  13551. if thebits = 0 then
  13552. pTDefRegMap(@Self)^.clr := $00000200
  13553. else
  13554. pTDefRegMap(@Self)^.&set := $00000200;
  13555. end;
  13556. function TUART2_U2STA.getUTXBF : TBits_1; inline;
  13557. begin
  13558. getUTXBF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  13559. end;
  13560. procedure TUART2_U2STA.setUTXEN; inline;
  13561. begin
  13562. pTDefRegMap(@Self)^.&set := $00000400;
  13563. end;
  13564. procedure TUART2_U2STA.clearUTXEN; inline;
  13565. begin
  13566. pTDefRegMap(@Self)^.clr := $00000400;
  13567. end;
  13568. procedure TUART2_U2STA.setUTXEN(thebits : TBits_1); inline;
  13569. begin
  13570. if thebits = 0 then
  13571. pTDefRegMap(@Self)^.clr := $00000400
  13572. else
  13573. pTDefRegMap(@Self)^.&set := $00000400;
  13574. end;
  13575. function TUART2_U2STA.getUTXEN : TBits_1; inline;
  13576. begin
  13577. getUTXEN := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  13578. end;
  13579. procedure TUART2_U2STA.setUTXBRK; inline;
  13580. begin
  13581. pTDefRegMap(@Self)^.&set := $00000800;
  13582. end;
  13583. procedure TUART2_U2STA.clearUTXBRK; inline;
  13584. begin
  13585. pTDefRegMap(@Self)^.clr := $00000800;
  13586. end;
  13587. procedure TUART2_U2STA.setUTXBRK(thebits : TBits_1); inline;
  13588. begin
  13589. if thebits = 0 then
  13590. pTDefRegMap(@Self)^.clr := $00000800
  13591. else
  13592. pTDefRegMap(@Self)^.&set := $00000800;
  13593. end;
  13594. function TUART2_U2STA.getUTXBRK : TBits_1; inline;
  13595. begin
  13596. getUTXBRK := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  13597. end;
  13598. procedure TUART2_U2STA.setURXEN; inline;
  13599. begin
  13600. pTDefRegMap(@Self)^.&set := $00001000;
  13601. end;
  13602. procedure TUART2_U2STA.clearURXEN; inline;
  13603. begin
  13604. pTDefRegMap(@Self)^.clr := $00001000;
  13605. end;
  13606. procedure TUART2_U2STA.setURXEN(thebits : TBits_1); inline;
  13607. begin
  13608. if thebits = 0 then
  13609. pTDefRegMap(@Self)^.clr := $00001000
  13610. else
  13611. pTDefRegMap(@Self)^.&set := $00001000;
  13612. end;
  13613. function TUART2_U2STA.getURXEN : TBits_1; inline;
  13614. begin
  13615. getURXEN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  13616. end;
  13617. procedure TUART2_U2STA.setUTXINV; inline;
  13618. begin
  13619. pTDefRegMap(@Self)^.&set := $00002000;
  13620. end;
  13621. procedure TUART2_U2STA.clearUTXINV; inline;
  13622. begin
  13623. pTDefRegMap(@Self)^.clr := $00002000;
  13624. end;
  13625. procedure TUART2_U2STA.setUTXINV(thebits : TBits_1); inline;
  13626. begin
  13627. if thebits = 0 then
  13628. pTDefRegMap(@Self)^.clr := $00002000
  13629. else
  13630. pTDefRegMap(@Self)^.&set := $00002000;
  13631. end;
  13632. function TUART2_U2STA.getUTXINV : TBits_1; inline;
  13633. begin
  13634. getUTXINV := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  13635. end;
  13636. procedure TUART2_U2STA.setUTXISEL(thebits : TBits_2); inline;
  13637. begin
  13638. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  13639. end;
  13640. function TUART2_U2STA.getUTXISEL : TBits_2; inline;
  13641. begin
  13642. getUTXISEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  13643. end;
  13644. procedure TUART2_U2STA.setADDR(thebits : TBits_8); inline;
  13645. begin
  13646. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
  13647. end;
  13648. function TUART2_U2STA.getADDR : TBits_8; inline;
  13649. begin
  13650. getADDR := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
  13651. end;
  13652. procedure TUART2_U2STA.setADM_EN; inline;
  13653. begin
  13654. pTDefRegMap(@Self)^.&set := $01000000;
  13655. end;
  13656. procedure TUART2_U2STA.clearADM_EN; inline;
  13657. begin
  13658. pTDefRegMap(@Self)^.clr := $01000000;
  13659. end;
  13660. procedure TUART2_U2STA.setADM_EN(thebits : TBits_1); inline;
  13661. begin
  13662. if thebits = 0 then
  13663. pTDefRegMap(@Self)^.clr := $01000000
  13664. else
  13665. pTDefRegMap(@Self)^.&set := $01000000;
  13666. end;
  13667. function TUART2_U2STA.getADM_EN : TBits_1; inline;
  13668. begin
  13669. getADM_EN := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  13670. end;
  13671. procedure TUART2_U2STA.setURXISEL0; inline;
  13672. begin
  13673. pTDefRegMap(@Self)^.&set := $00000040;
  13674. end;
  13675. procedure TUART2_U2STA.clearURXISEL0; inline;
  13676. begin
  13677. pTDefRegMap(@Self)^.clr := $00000040;
  13678. end;
  13679. procedure TUART2_U2STA.setURXISEL0(thebits : TBits_1); inline;
  13680. begin
  13681. if thebits = 0 then
  13682. pTDefRegMap(@Self)^.clr := $00000040
  13683. else
  13684. pTDefRegMap(@Self)^.&set := $00000040;
  13685. end;
  13686. function TUART2_U2STA.getURXISEL0 : TBits_1; inline;
  13687. begin
  13688. getURXISEL0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  13689. end;
  13690. procedure TUART2_U2STA.setURXISEL1; inline;
  13691. begin
  13692. pTDefRegMap(@Self)^.&set := $00000080;
  13693. end;
  13694. procedure TUART2_U2STA.clearURXISEL1; inline;
  13695. begin
  13696. pTDefRegMap(@Self)^.clr := $00000080;
  13697. end;
  13698. procedure TUART2_U2STA.setURXISEL1(thebits : TBits_1); inline;
  13699. begin
  13700. if thebits = 0 then
  13701. pTDefRegMap(@Self)^.clr := $00000080
  13702. else
  13703. pTDefRegMap(@Self)^.&set := $00000080;
  13704. end;
  13705. function TUART2_U2STA.getURXISEL1 : TBits_1; inline;
  13706. begin
  13707. getURXISEL1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  13708. end;
  13709. procedure TUART2_U2STA.setUTXISEL0; inline;
  13710. begin
  13711. pTDefRegMap(@Self)^.&set := $00004000;
  13712. end;
  13713. procedure TUART2_U2STA.clearUTXISEL0; inline;
  13714. begin
  13715. pTDefRegMap(@Self)^.clr := $00004000;
  13716. end;
  13717. procedure TUART2_U2STA.setUTXISEL0(thebits : TBits_1); inline;
  13718. begin
  13719. if thebits = 0 then
  13720. pTDefRegMap(@Self)^.clr := $00004000
  13721. else
  13722. pTDefRegMap(@Self)^.&set := $00004000;
  13723. end;
  13724. function TUART2_U2STA.getUTXISEL0 : TBits_1; inline;
  13725. begin
  13726. getUTXISEL0 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  13727. end;
  13728. procedure TUART2_U2STA.setUTXISEL1; inline;
  13729. begin
  13730. pTDefRegMap(@Self)^.&set := $00008000;
  13731. end;
  13732. procedure TUART2_U2STA.clearUTXISEL1; inline;
  13733. begin
  13734. pTDefRegMap(@Self)^.clr := $00008000;
  13735. end;
  13736. procedure TUART2_U2STA.setUTXISEL1(thebits : TBits_1); inline;
  13737. begin
  13738. if thebits = 0 then
  13739. pTDefRegMap(@Self)^.clr := $00008000
  13740. else
  13741. pTDefRegMap(@Self)^.&set := $00008000;
  13742. end;
  13743. function TUART2_U2STA.getUTXISEL1 : TBits_1; inline;
  13744. begin
  13745. getUTXISEL1 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  13746. end;
  13747. procedure TUART2_U2STA.setUTXSEL(thebits : TBits_2); inline;
  13748. begin
  13749. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  13750. end;
  13751. function TUART2_U2STA.getUTXSEL : TBits_2; inline;
  13752. begin
  13753. getUTXSEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  13754. end;
  13755. procedure TUART2_U2STA.setw(thebits : TBits_32); inline;
  13756. begin
  13757. pTDefRegMap(@Self)^.val := thebits;
  13758. end;
  13759. function TUART2_U2STA.getw : TBits_32; inline;
  13760. begin
  13761. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  13762. end;
  13763. procedure TPMP_PMCON.setRDSP; inline;
  13764. begin
  13765. pTDefRegMap(@Self)^.&set := $00000001;
  13766. end;
  13767. procedure TPMP_PMCON.clearRDSP; inline;
  13768. begin
  13769. pTDefRegMap(@Self)^.clr := $00000001;
  13770. end;
  13771. procedure TPMP_PMCON.setRDSP(thebits : TBits_1); inline;
  13772. begin
  13773. if thebits = 0 then
  13774. pTDefRegMap(@Self)^.clr := $00000001
  13775. else
  13776. pTDefRegMap(@Self)^.&set := $00000001;
  13777. end;
  13778. function TPMP_PMCON.getRDSP : TBits_1; inline;
  13779. begin
  13780. getRDSP := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  13781. end;
  13782. procedure TPMP_PMCON.setWRSP; inline;
  13783. begin
  13784. pTDefRegMap(@Self)^.&set := $00000002;
  13785. end;
  13786. procedure TPMP_PMCON.clearWRSP; inline;
  13787. begin
  13788. pTDefRegMap(@Self)^.clr := $00000002;
  13789. end;
  13790. procedure TPMP_PMCON.setWRSP(thebits : TBits_1); inline;
  13791. begin
  13792. if thebits = 0 then
  13793. pTDefRegMap(@Self)^.clr := $00000002
  13794. else
  13795. pTDefRegMap(@Self)^.&set := $00000002;
  13796. end;
  13797. function TPMP_PMCON.getWRSP : TBits_1; inline;
  13798. begin
  13799. getWRSP := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  13800. end;
  13801. procedure TPMP_PMCON.setCS1P; inline;
  13802. begin
  13803. pTDefRegMap(@Self)^.&set := $00000008;
  13804. end;
  13805. procedure TPMP_PMCON.clearCS1P; inline;
  13806. begin
  13807. pTDefRegMap(@Self)^.clr := $00000008;
  13808. end;
  13809. procedure TPMP_PMCON.setCS1P(thebits : TBits_1); inline;
  13810. begin
  13811. if thebits = 0 then
  13812. pTDefRegMap(@Self)^.clr := $00000008
  13813. else
  13814. pTDefRegMap(@Self)^.&set := $00000008;
  13815. end;
  13816. function TPMP_PMCON.getCS1P : TBits_1; inline;
  13817. begin
  13818. getCS1P := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  13819. end;
  13820. procedure TPMP_PMCON.setCS2P; inline;
  13821. begin
  13822. pTDefRegMap(@Self)^.&set := $00000010;
  13823. end;
  13824. procedure TPMP_PMCON.clearCS2P; inline;
  13825. begin
  13826. pTDefRegMap(@Self)^.clr := $00000010;
  13827. end;
  13828. procedure TPMP_PMCON.setCS2P(thebits : TBits_1); inline;
  13829. begin
  13830. if thebits = 0 then
  13831. pTDefRegMap(@Self)^.clr := $00000010
  13832. else
  13833. pTDefRegMap(@Self)^.&set := $00000010;
  13834. end;
  13835. function TPMP_PMCON.getCS2P : TBits_1; inline;
  13836. begin
  13837. getCS2P := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  13838. end;
  13839. procedure TPMP_PMCON.setALP; inline;
  13840. begin
  13841. pTDefRegMap(@Self)^.&set := $00000020;
  13842. end;
  13843. procedure TPMP_PMCON.clearALP; inline;
  13844. begin
  13845. pTDefRegMap(@Self)^.clr := $00000020;
  13846. end;
  13847. procedure TPMP_PMCON.setALP(thebits : TBits_1); inline;
  13848. begin
  13849. if thebits = 0 then
  13850. pTDefRegMap(@Self)^.clr := $00000020
  13851. else
  13852. pTDefRegMap(@Self)^.&set := $00000020;
  13853. end;
  13854. function TPMP_PMCON.getALP : TBits_1; inline;
  13855. begin
  13856. getALP := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  13857. end;
  13858. procedure TPMP_PMCON.setCSF(thebits : TBits_2); inline;
  13859. begin
  13860. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
  13861. end;
  13862. function TPMP_PMCON.getCSF : TBits_2; inline;
  13863. begin
  13864. getCSF := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
  13865. end;
  13866. procedure TPMP_PMCON.setPTRDEN; inline;
  13867. begin
  13868. pTDefRegMap(@Self)^.&set := $00000100;
  13869. end;
  13870. procedure TPMP_PMCON.clearPTRDEN; inline;
  13871. begin
  13872. pTDefRegMap(@Self)^.clr := $00000100;
  13873. end;
  13874. procedure TPMP_PMCON.setPTRDEN(thebits : TBits_1); inline;
  13875. begin
  13876. if thebits = 0 then
  13877. pTDefRegMap(@Self)^.clr := $00000100
  13878. else
  13879. pTDefRegMap(@Self)^.&set := $00000100;
  13880. end;
  13881. function TPMP_PMCON.getPTRDEN : TBits_1; inline;
  13882. begin
  13883. getPTRDEN := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  13884. end;
  13885. procedure TPMP_PMCON.setPTWREN; inline;
  13886. begin
  13887. pTDefRegMap(@Self)^.&set := $00000200;
  13888. end;
  13889. procedure TPMP_PMCON.clearPTWREN; inline;
  13890. begin
  13891. pTDefRegMap(@Self)^.clr := $00000200;
  13892. end;
  13893. procedure TPMP_PMCON.setPTWREN(thebits : TBits_1); inline;
  13894. begin
  13895. if thebits = 0 then
  13896. pTDefRegMap(@Self)^.clr := $00000200
  13897. else
  13898. pTDefRegMap(@Self)^.&set := $00000200;
  13899. end;
  13900. function TPMP_PMCON.getPTWREN : TBits_1; inline;
  13901. begin
  13902. getPTWREN := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  13903. end;
  13904. procedure TPMP_PMCON.setPMPTTL; inline;
  13905. begin
  13906. pTDefRegMap(@Self)^.&set := $00000400;
  13907. end;
  13908. procedure TPMP_PMCON.clearPMPTTL; inline;
  13909. begin
  13910. pTDefRegMap(@Self)^.clr := $00000400;
  13911. end;
  13912. procedure TPMP_PMCON.setPMPTTL(thebits : TBits_1); inline;
  13913. begin
  13914. if thebits = 0 then
  13915. pTDefRegMap(@Self)^.clr := $00000400
  13916. else
  13917. pTDefRegMap(@Self)^.&set := $00000400;
  13918. end;
  13919. function TPMP_PMCON.getPMPTTL : TBits_1; inline;
  13920. begin
  13921. getPMPTTL := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  13922. end;
  13923. procedure TPMP_PMCON.setADRMUX(thebits : TBits_2); inline;
  13924. begin
  13925. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE7FF or ( thebits shl 11 );
  13926. end;
  13927. function TPMP_PMCON.getADRMUX : TBits_2; inline;
  13928. begin
  13929. getADRMUX := (pTDefRegMap(@Self)^.val and $00001800) shr 11;
  13930. end;
  13931. procedure TPMP_PMCON.setSIDL; inline;
  13932. begin
  13933. pTDefRegMap(@Self)^.&set := $00002000;
  13934. end;
  13935. procedure TPMP_PMCON.clearSIDL; inline;
  13936. begin
  13937. pTDefRegMap(@Self)^.clr := $00002000;
  13938. end;
  13939. procedure TPMP_PMCON.setSIDL(thebits : TBits_1); inline;
  13940. begin
  13941. if thebits = 0 then
  13942. pTDefRegMap(@Self)^.clr := $00002000
  13943. else
  13944. pTDefRegMap(@Self)^.&set := $00002000;
  13945. end;
  13946. function TPMP_PMCON.getSIDL : TBits_1; inline;
  13947. begin
  13948. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  13949. end;
  13950. procedure TPMP_PMCON.setON; inline;
  13951. begin
  13952. pTDefRegMap(@Self)^.&set := $00008000;
  13953. end;
  13954. procedure TPMP_PMCON.clearON; inline;
  13955. begin
  13956. pTDefRegMap(@Self)^.clr := $00008000;
  13957. end;
  13958. procedure TPMP_PMCON.setON(thebits : TBits_1); inline;
  13959. begin
  13960. if thebits = 0 then
  13961. pTDefRegMap(@Self)^.clr := $00008000
  13962. else
  13963. pTDefRegMap(@Self)^.&set := $00008000;
  13964. end;
  13965. function TPMP_PMCON.getON : TBits_1; inline;
  13966. begin
  13967. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  13968. end;
  13969. procedure TPMP_PMCON.setCSF0; inline;
  13970. begin
  13971. pTDefRegMap(@Self)^.&set := $00000040;
  13972. end;
  13973. procedure TPMP_PMCON.clearCSF0; inline;
  13974. begin
  13975. pTDefRegMap(@Self)^.clr := $00000040;
  13976. end;
  13977. procedure TPMP_PMCON.setCSF0(thebits : TBits_1); inline;
  13978. begin
  13979. if thebits = 0 then
  13980. pTDefRegMap(@Self)^.clr := $00000040
  13981. else
  13982. pTDefRegMap(@Self)^.&set := $00000040;
  13983. end;
  13984. function TPMP_PMCON.getCSF0 : TBits_1; inline;
  13985. begin
  13986. getCSF0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  13987. end;
  13988. procedure TPMP_PMCON.setCSF1; inline;
  13989. begin
  13990. pTDefRegMap(@Self)^.&set := $00000080;
  13991. end;
  13992. procedure TPMP_PMCON.clearCSF1; inline;
  13993. begin
  13994. pTDefRegMap(@Self)^.clr := $00000080;
  13995. end;
  13996. procedure TPMP_PMCON.setCSF1(thebits : TBits_1); inline;
  13997. begin
  13998. if thebits = 0 then
  13999. pTDefRegMap(@Self)^.clr := $00000080
  14000. else
  14001. pTDefRegMap(@Self)^.&set := $00000080;
  14002. end;
  14003. function TPMP_PMCON.getCSF1 : TBits_1; inline;
  14004. begin
  14005. getCSF1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  14006. end;
  14007. procedure TPMP_PMCON.setADRMUX0; inline;
  14008. begin
  14009. pTDefRegMap(@Self)^.&set := $00000800;
  14010. end;
  14011. procedure TPMP_PMCON.clearADRMUX0; inline;
  14012. begin
  14013. pTDefRegMap(@Self)^.clr := $00000800;
  14014. end;
  14015. procedure TPMP_PMCON.setADRMUX0(thebits : TBits_1); inline;
  14016. begin
  14017. if thebits = 0 then
  14018. pTDefRegMap(@Self)^.clr := $00000800
  14019. else
  14020. pTDefRegMap(@Self)^.&set := $00000800;
  14021. end;
  14022. function TPMP_PMCON.getADRMUX0 : TBits_1; inline;
  14023. begin
  14024. getADRMUX0 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  14025. end;
  14026. procedure TPMP_PMCON.setADRMUX1; inline;
  14027. begin
  14028. pTDefRegMap(@Self)^.&set := $00001000;
  14029. end;
  14030. procedure TPMP_PMCON.clearADRMUX1; inline;
  14031. begin
  14032. pTDefRegMap(@Self)^.clr := $00001000;
  14033. end;
  14034. procedure TPMP_PMCON.setADRMUX1(thebits : TBits_1); inline;
  14035. begin
  14036. if thebits = 0 then
  14037. pTDefRegMap(@Self)^.clr := $00001000
  14038. else
  14039. pTDefRegMap(@Self)^.&set := $00001000;
  14040. end;
  14041. function TPMP_PMCON.getADRMUX1 : TBits_1; inline;
  14042. begin
  14043. getADRMUX1 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  14044. end;
  14045. procedure TPMP_PMCON.setPSIDL; inline;
  14046. begin
  14047. pTDefRegMap(@Self)^.&set := $00002000;
  14048. end;
  14049. procedure TPMP_PMCON.clearPSIDL; inline;
  14050. begin
  14051. pTDefRegMap(@Self)^.clr := $00002000;
  14052. end;
  14053. procedure TPMP_PMCON.setPSIDL(thebits : TBits_1); inline;
  14054. begin
  14055. if thebits = 0 then
  14056. pTDefRegMap(@Self)^.clr := $00002000
  14057. else
  14058. pTDefRegMap(@Self)^.&set := $00002000;
  14059. end;
  14060. function TPMP_PMCON.getPSIDL : TBits_1; inline;
  14061. begin
  14062. getPSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  14063. end;
  14064. procedure TPMP_PMCON.setPMPEN; inline;
  14065. begin
  14066. pTDefRegMap(@Self)^.&set := $00008000;
  14067. end;
  14068. procedure TPMP_PMCON.clearPMPEN; inline;
  14069. begin
  14070. pTDefRegMap(@Self)^.clr := $00008000;
  14071. end;
  14072. procedure TPMP_PMCON.setPMPEN(thebits : TBits_1); inline;
  14073. begin
  14074. if thebits = 0 then
  14075. pTDefRegMap(@Self)^.clr := $00008000
  14076. else
  14077. pTDefRegMap(@Self)^.&set := $00008000;
  14078. end;
  14079. function TPMP_PMCON.getPMPEN : TBits_1; inline;
  14080. begin
  14081. getPMPEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  14082. end;
  14083. procedure TPMP_PMCON.setw(thebits : TBits_32); inline;
  14084. begin
  14085. pTDefRegMap(@Self)^.val := thebits;
  14086. end;
  14087. function TPMP_PMCON.getw : TBits_32; inline;
  14088. begin
  14089. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  14090. end;
  14091. procedure TPMP_PMMODE.setWAITE(thebits : TBits_2); inline;
  14092. begin
  14093. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  14094. end;
  14095. function TPMP_PMMODE.getWAITE : TBits_2; inline;
  14096. begin
  14097. getWAITE := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  14098. end;
  14099. procedure TPMP_PMMODE.setWAITM(thebits : TBits_4); inline;
  14100. begin
  14101. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFC3 or ( thebits shl 2 );
  14102. end;
  14103. function TPMP_PMMODE.getWAITM : TBits_4; inline;
  14104. begin
  14105. getWAITM := (pTDefRegMap(@Self)^.val and $0000003C) shr 2;
  14106. end;
  14107. procedure TPMP_PMMODE.setWAITB(thebits : TBits_2); inline;
  14108. begin
  14109. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
  14110. end;
  14111. function TPMP_PMMODE.getWAITB : TBits_2; inline;
  14112. begin
  14113. getWAITB := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
  14114. end;
  14115. procedure TPMP_PMMODE.setMODE(thebits : TBits_2); inline;
  14116. begin
  14117. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  14118. end;
  14119. function TPMP_PMMODE.getMODE : TBits_2; inline;
  14120. begin
  14121. getMODE := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  14122. end;
  14123. procedure TPMP_PMMODE.setMODE16; inline;
  14124. begin
  14125. pTDefRegMap(@Self)^.&set := $00000400;
  14126. end;
  14127. procedure TPMP_PMMODE.clearMODE16; inline;
  14128. begin
  14129. pTDefRegMap(@Self)^.clr := $00000400;
  14130. end;
  14131. procedure TPMP_PMMODE.setMODE16(thebits : TBits_1); inline;
  14132. begin
  14133. if thebits = 0 then
  14134. pTDefRegMap(@Self)^.clr := $00000400
  14135. else
  14136. pTDefRegMap(@Self)^.&set := $00000400;
  14137. end;
  14138. function TPMP_PMMODE.getMODE16 : TBits_1; inline;
  14139. begin
  14140. getMODE16 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  14141. end;
  14142. procedure TPMP_PMMODE.setINCM(thebits : TBits_2); inline;
  14143. begin
  14144. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE7FF or ( thebits shl 11 );
  14145. end;
  14146. function TPMP_PMMODE.getINCM : TBits_2; inline;
  14147. begin
  14148. getINCM := (pTDefRegMap(@Self)^.val and $00001800) shr 11;
  14149. end;
  14150. procedure TPMP_PMMODE.setIRQM(thebits : TBits_2); inline;
  14151. begin
  14152. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF9FFF or ( thebits shl 13 );
  14153. end;
  14154. function TPMP_PMMODE.getIRQM : TBits_2; inline;
  14155. begin
  14156. getIRQM := (pTDefRegMap(@Self)^.val and $00006000) shr 13;
  14157. end;
  14158. procedure TPMP_PMMODE.setBUSY; inline;
  14159. begin
  14160. pTDefRegMap(@Self)^.&set := $00008000;
  14161. end;
  14162. procedure TPMP_PMMODE.clearBUSY; inline;
  14163. begin
  14164. pTDefRegMap(@Self)^.clr := $00008000;
  14165. end;
  14166. procedure TPMP_PMMODE.setBUSY(thebits : TBits_1); inline;
  14167. begin
  14168. if thebits = 0 then
  14169. pTDefRegMap(@Self)^.clr := $00008000
  14170. else
  14171. pTDefRegMap(@Self)^.&set := $00008000;
  14172. end;
  14173. function TPMP_PMMODE.getBUSY : TBits_1; inline;
  14174. begin
  14175. getBUSY := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  14176. end;
  14177. procedure TPMP_PMMODE.setWAITE0; inline;
  14178. begin
  14179. pTDefRegMap(@Self)^.&set := $00000001;
  14180. end;
  14181. procedure TPMP_PMMODE.clearWAITE0; inline;
  14182. begin
  14183. pTDefRegMap(@Self)^.clr := $00000001;
  14184. end;
  14185. procedure TPMP_PMMODE.setWAITE0(thebits : TBits_1); inline;
  14186. begin
  14187. if thebits = 0 then
  14188. pTDefRegMap(@Self)^.clr := $00000001
  14189. else
  14190. pTDefRegMap(@Self)^.&set := $00000001;
  14191. end;
  14192. function TPMP_PMMODE.getWAITE0 : TBits_1; inline;
  14193. begin
  14194. getWAITE0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  14195. end;
  14196. procedure TPMP_PMMODE.setWAITE1; inline;
  14197. begin
  14198. pTDefRegMap(@Self)^.&set := $00000002;
  14199. end;
  14200. procedure TPMP_PMMODE.clearWAITE1; inline;
  14201. begin
  14202. pTDefRegMap(@Self)^.clr := $00000002;
  14203. end;
  14204. procedure TPMP_PMMODE.setWAITE1(thebits : TBits_1); inline;
  14205. begin
  14206. if thebits = 0 then
  14207. pTDefRegMap(@Self)^.clr := $00000002
  14208. else
  14209. pTDefRegMap(@Self)^.&set := $00000002;
  14210. end;
  14211. function TPMP_PMMODE.getWAITE1 : TBits_1; inline;
  14212. begin
  14213. getWAITE1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  14214. end;
  14215. procedure TPMP_PMMODE.setWAITM0; inline;
  14216. begin
  14217. pTDefRegMap(@Self)^.&set := $00000004;
  14218. end;
  14219. procedure TPMP_PMMODE.clearWAITM0; inline;
  14220. begin
  14221. pTDefRegMap(@Self)^.clr := $00000004;
  14222. end;
  14223. procedure TPMP_PMMODE.setWAITM0(thebits : TBits_1); inline;
  14224. begin
  14225. if thebits = 0 then
  14226. pTDefRegMap(@Self)^.clr := $00000004
  14227. else
  14228. pTDefRegMap(@Self)^.&set := $00000004;
  14229. end;
  14230. function TPMP_PMMODE.getWAITM0 : TBits_1; inline;
  14231. begin
  14232. getWAITM0 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  14233. end;
  14234. procedure TPMP_PMMODE.setWAITM1; inline;
  14235. begin
  14236. pTDefRegMap(@Self)^.&set := $00000008;
  14237. end;
  14238. procedure TPMP_PMMODE.clearWAITM1; inline;
  14239. begin
  14240. pTDefRegMap(@Self)^.clr := $00000008;
  14241. end;
  14242. procedure TPMP_PMMODE.setWAITM1(thebits : TBits_1); inline;
  14243. begin
  14244. if thebits = 0 then
  14245. pTDefRegMap(@Self)^.clr := $00000008
  14246. else
  14247. pTDefRegMap(@Self)^.&set := $00000008;
  14248. end;
  14249. function TPMP_PMMODE.getWAITM1 : TBits_1; inline;
  14250. begin
  14251. getWAITM1 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  14252. end;
  14253. procedure TPMP_PMMODE.setWAITM2; inline;
  14254. begin
  14255. pTDefRegMap(@Self)^.&set := $00000010;
  14256. end;
  14257. procedure TPMP_PMMODE.clearWAITM2; inline;
  14258. begin
  14259. pTDefRegMap(@Self)^.clr := $00000010;
  14260. end;
  14261. procedure TPMP_PMMODE.setWAITM2(thebits : TBits_1); inline;
  14262. begin
  14263. if thebits = 0 then
  14264. pTDefRegMap(@Self)^.clr := $00000010
  14265. else
  14266. pTDefRegMap(@Self)^.&set := $00000010;
  14267. end;
  14268. function TPMP_PMMODE.getWAITM2 : TBits_1; inline;
  14269. begin
  14270. getWAITM2 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  14271. end;
  14272. procedure TPMP_PMMODE.setWAITM3; inline;
  14273. begin
  14274. pTDefRegMap(@Self)^.&set := $00000020;
  14275. end;
  14276. procedure TPMP_PMMODE.clearWAITM3; inline;
  14277. begin
  14278. pTDefRegMap(@Self)^.clr := $00000020;
  14279. end;
  14280. procedure TPMP_PMMODE.setWAITM3(thebits : TBits_1); inline;
  14281. begin
  14282. if thebits = 0 then
  14283. pTDefRegMap(@Self)^.clr := $00000020
  14284. else
  14285. pTDefRegMap(@Self)^.&set := $00000020;
  14286. end;
  14287. function TPMP_PMMODE.getWAITM3 : TBits_1; inline;
  14288. begin
  14289. getWAITM3 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  14290. end;
  14291. procedure TPMP_PMMODE.setWAITB0; inline;
  14292. begin
  14293. pTDefRegMap(@Self)^.&set := $00000040;
  14294. end;
  14295. procedure TPMP_PMMODE.clearWAITB0; inline;
  14296. begin
  14297. pTDefRegMap(@Self)^.clr := $00000040;
  14298. end;
  14299. procedure TPMP_PMMODE.setWAITB0(thebits : TBits_1); inline;
  14300. begin
  14301. if thebits = 0 then
  14302. pTDefRegMap(@Self)^.clr := $00000040
  14303. else
  14304. pTDefRegMap(@Self)^.&set := $00000040;
  14305. end;
  14306. function TPMP_PMMODE.getWAITB0 : TBits_1; inline;
  14307. begin
  14308. getWAITB0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  14309. end;
  14310. procedure TPMP_PMMODE.setWAITB1; inline;
  14311. begin
  14312. pTDefRegMap(@Self)^.&set := $00000080;
  14313. end;
  14314. procedure TPMP_PMMODE.clearWAITB1; inline;
  14315. begin
  14316. pTDefRegMap(@Self)^.clr := $00000080;
  14317. end;
  14318. procedure TPMP_PMMODE.setWAITB1(thebits : TBits_1); inline;
  14319. begin
  14320. if thebits = 0 then
  14321. pTDefRegMap(@Self)^.clr := $00000080
  14322. else
  14323. pTDefRegMap(@Self)^.&set := $00000080;
  14324. end;
  14325. function TPMP_PMMODE.getWAITB1 : TBits_1; inline;
  14326. begin
  14327. getWAITB1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  14328. end;
  14329. procedure TPMP_PMMODE.setMODE0; inline;
  14330. begin
  14331. pTDefRegMap(@Self)^.&set := $00000100;
  14332. end;
  14333. procedure TPMP_PMMODE.clearMODE0; inline;
  14334. begin
  14335. pTDefRegMap(@Self)^.clr := $00000100;
  14336. end;
  14337. procedure TPMP_PMMODE.setMODE0(thebits : TBits_1); inline;
  14338. begin
  14339. if thebits = 0 then
  14340. pTDefRegMap(@Self)^.clr := $00000100
  14341. else
  14342. pTDefRegMap(@Self)^.&set := $00000100;
  14343. end;
  14344. function TPMP_PMMODE.getMODE0 : TBits_1; inline;
  14345. begin
  14346. getMODE0 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  14347. end;
  14348. procedure TPMP_PMMODE.setMODE1; inline;
  14349. begin
  14350. pTDefRegMap(@Self)^.&set := $00000200;
  14351. end;
  14352. procedure TPMP_PMMODE.clearMODE1; inline;
  14353. begin
  14354. pTDefRegMap(@Self)^.clr := $00000200;
  14355. end;
  14356. procedure TPMP_PMMODE.setMODE1(thebits : TBits_1); inline;
  14357. begin
  14358. if thebits = 0 then
  14359. pTDefRegMap(@Self)^.clr := $00000200
  14360. else
  14361. pTDefRegMap(@Self)^.&set := $00000200;
  14362. end;
  14363. function TPMP_PMMODE.getMODE1 : TBits_1; inline;
  14364. begin
  14365. getMODE1 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  14366. end;
  14367. procedure TPMP_PMMODE.setINCM0; inline;
  14368. begin
  14369. pTDefRegMap(@Self)^.&set := $00000800;
  14370. end;
  14371. procedure TPMP_PMMODE.clearINCM0; inline;
  14372. begin
  14373. pTDefRegMap(@Self)^.clr := $00000800;
  14374. end;
  14375. procedure TPMP_PMMODE.setINCM0(thebits : TBits_1); inline;
  14376. begin
  14377. if thebits = 0 then
  14378. pTDefRegMap(@Self)^.clr := $00000800
  14379. else
  14380. pTDefRegMap(@Self)^.&set := $00000800;
  14381. end;
  14382. function TPMP_PMMODE.getINCM0 : TBits_1; inline;
  14383. begin
  14384. getINCM0 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  14385. end;
  14386. procedure TPMP_PMMODE.setINCM1; inline;
  14387. begin
  14388. pTDefRegMap(@Self)^.&set := $00001000;
  14389. end;
  14390. procedure TPMP_PMMODE.clearINCM1; inline;
  14391. begin
  14392. pTDefRegMap(@Self)^.clr := $00001000;
  14393. end;
  14394. procedure TPMP_PMMODE.setINCM1(thebits : TBits_1); inline;
  14395. begin
  14396. if thebits = 0 then
  14397. pTDefRegMap(@Self)^.clr := $00001000
  14398. else
  14399. pTDefRegMap(@Self)^.&set := $00001000;
  14400. end;
  14401. function TPMP_PMMODE.getINCM1 : TBits_1; inline;
  14402. begin
  14403. getINCM1 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  14404. end;
  14405. procedure TPMP_PMMODE.setIRQM0; inline;
  14406. begin
  14407. pTDefRegMap(@Self)^.&set := $00002000;
  14408. end;
  14409. procedure TPMP_PMMODE.clearIRQM0; inline;
  14410. begin
  14411. pTDefRegMap(@Self)^.clr := $00002000;
  14412. end;
  14413. procedure TPMP_PMMODE.setIRQM0(thebits : TBits_1); inline;
  14414. begin
  14415. if thebits = 0 then
  14416. pTDefRegMap(@Self)^.clr := $00002000
  14417. else
  14418. pTDefRegMap(@Self)^.&set := $00002000;
  14419. end;
  14420. function TPMP_PMMODE.getIRQM0 : TBits_1; inline;
  14421. begin
  14422. getIRQM0 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  14423. end;
  14424. procedure TPMP_PMMODE.setIRQM1; inline;
  14425. begin
  14426. pTDefRegMap(@Self)^.&set := $00004000;
  14427. end;
  14428. procedure TPMP_PMMODE.clearIRQM1; inline;
  14429. begin
  14430. pTDefRegMap(@Self)^.clr := $00004000;
  14431. end;
  14432. procedure TPMP_PMMODE.setIRQM1(thebits : TBits_1); inline;
  14433. begin
  14434. if thebits = 0 then
  14435. pTDefRegMap(@Self)^.clr := $00004000
  14436. else
  14437. pTDefRegMap(@Self)^.&set := $00004000;
  14438. end;
  14439. function TPMP_PMMODE.getIRQM1 : TBits_1; inline;
  14440. begin
  14441. getIRQM1 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  14442. end;
  14443. procedure TPMP_PMMODE.setw(thebits : TBits_32); inline;
  14444. begin
  14445. pTDefRegMap(@Self)^.val := thebits;
  14446. end;
  14447. function TPMP_PMMODE.getw : TBits_32; inline;
  14448. begin
  14449. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  14450. end;
  14451. procedure TPMP_PMADDR.setADDR(thebits : TBits_14); inline;
  14452. begin
  14453. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFC000 or ( thebits shl 0 );
  14454. end;
  14455. function TPMP_PMADDR.getADDR : TBits_14; inline;
  14456. begin
  14457. getADDR := (pTDefRegMap(@Self)^.val and $00003FFF) shr 0;
  14458. end;
  14459. procedure TPMP_PMADDR.setCS(thebits : TBits_2); inline;
  14460. begin
  14461. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  14462. end;
  14463. function TPMP_PMADDR.getCS : TBits_2; inline;
  14464. begin
  14465. getCS := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  14466. end;
  14467. procedure TPMP_PMADDR.setPADDR(thebits : TBits_14); inline;
  14468. begin
  14469. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFC000 or ( thebits shl 0 );
  14470. end;
  14471. function TPMP_PMADDR.getPADDR : TBits_14; inline;
  14472. begin
  14473. getPADDR := (pTDefRegMap(@Self)^.val and $00003FFF) shr 0;
  14474. end;
  14475. procedure TPMP_PMADDR.setCS1; inline;
  14476. begin
  14477. pTDefRegMap(@Self)^.&set := $00004000;
  14478. end;
  14479. procedure TPMP_PMADDR.clearCS1; inline;
  14480. begin
  14481. pTDefRegMap(@Self)^.clr := $00004000;
  14482. end;
  14483. procedure TPMP_PMADDR.setCS1(thebits : TBits_1); inline;
  14484. begin
  14485. if thebits = 0 then
  14486. pTDefRegMap(@Self)^.clr := $00004000
  14487. else
  14488. pTDefRegMap(@Self)^.&set := $00004000;
  14489. end;
  14490. function TPMP_PMADDR.getCS1 : TBits_1; inline;
  14491. begin
  14492. getCS1 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  14493. end;
  14494. procedure TPMP_PMADDR.setCS2; inline;
  14495. begin
  14496. pTDefRegMap(@Self)^.&set := $00008000;
  14497. end;
  14498. procedure TPMP_PMADDR.clearCS2; inline;
  14499. begin
  14500. pTDefRegMap(@Self)^.clr := $00008000;
  14501. end;
  14502. procedure TPMP_PMADDR.setCS2(thebits : TBits_1); inline;
  14503. begin
  14504. if thebits = 0 then
  14505. pTDefRegMap(@Self)^.clr := $00008000
  14506. else
  14507. pTDefRegMap(@Self)^.&set := $00008000;
  14508. end;
  14509. function TPMP_PMADDR.getCS2 : TBits_1; inline;
  14510. begin
  14511. getCS2 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  14512. end;
  14513. procedure TPMP_PMADDR.setw(thebits : TBits_32); inline;
  14514. begin
  14515. pTDefRegMap(@Self)^.val := thebits;
  14516. end;
  14517. function TPMP_PMADDR.getw : TBits_32; inline;
  14518. begin
  14519. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  14520. end;
  14521. procedure TPMP_PMDOUT.setDATAOUT(thebits : TBits_32); inline;
  14522. begin
  14523. pTDefRegMap(@Self)^.val := thebits;
  14524. end;
  14525. function TPMP_PMDOUT.getDATAOUT : TBits_32; inline;
  14526. begin
  14527. getDATAOUT := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  14528. end;
  14529. procedure TPMP_PMDOUT.setw(thebits : TBits_32); inline;
  14530. begin
  14531. pTDefRegMap(@Self)^.val := thebits;
  14532. end;
  14533. function TPMP_PMDOUT.getw : TBits_32; inline;
  14534. begin
  14535. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  14536. end;
  14537. procedure TPMP_PMDIN.setDATAIN(thebits : TBits_32); inline;
  14538. begin
  14539. pTDefRegMap(@Self)^.val := thebits;
  14540. end;
  14541. function TPMP_PMDIN.getDATAIN : TBits_32; inline;
  14542. begin
  14543. getDATAIN := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  14544. end;
  14545. procedure TPMP_PMDIN.setw(thebits : TBits_32); inline;
  14546. begin
  14547. pTDefRegMap(@Self)^.val := thebits;
  14548. end;
  14549. function TPMP_PMDIN.getw : TBits_32; inline;
  14550. begin
  14551. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  14552. end;
  14553. procedure TPMP_PMAEN.setPTEN(thebits : TBits_16); inline;
  14554. begin
  14555. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF0000 or ( thebits shl 0 );
  14556. end;
  14557. function TPMP_PMAEN.getPTEN : TBits_16; inline;
  14558. begin
  14559. getPTEN := (pTDefRegMap(@Self)^.val and $0000FFFF) shr 0;
  14560. end;
  14561. procedure TPMP_PMAEN.setPTEN0; inline;
  14562. begin
  14563. pTDefRegMap(@Self)^.&set := $00000001;
  14564. end;
  14565. procedure TPMP_PMAEN.clearPTEN0; inline;
  14566. begin
  14567. pTDefRegMap(@Self)^.clr := $00000001;
  14568. end;
  14569. procedure TPMP_PMAEN.setPTEN0(thebits : TBits_1); inline;
  14570. begin
  14571. if thebits = 0 then
  14572. pTDefRegMap(@Self)^.clr := $00000001
  14573. else
  14574. pTDefRegMap(@Self)^.&set := $00000001;
  14575. end;
  14576. function TPMP_PMAEN.getPTEN0 : TBits_1; inline;
  14577. begin
  14578. getPTEN0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  14579. end;
  14580. procedure TPMP_PMAEN.setPTEN1; inline;
  14581. begin
  14582. pTDefRegMap(@Self)^.&set := $00000002;
  14583. end;
  14584. procedure TPMP_PMAEN.clearPTEN1; inline;
  14585. begin
  14586. pTDefRegMap(@Self)^.clr := $00000002;
  14587. end;
  14588. procedure TPMP_PMAEN.setPTEN1(thebits : TBits_1); inline;
  14589. begin
  14590. if thebits = 0 then
  14591. pTDefRegMap(@Self)^.clr := $00000002
  14592. else
  14593. pTDefRegMap(@Self)^.&set := $00000002;
  14594. end;
  14595. function TPMP_PMAEN.getPTEN1 : TBits_1; inline;
  14596. begin
  14597. getPTEN1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  14598. end;
  14599. procedure TPMP_PMAEN.setPTEN2; inline;
  14600. begin
  14601. pTDefRegMap(@Self)^.&set := $00000004;
  14602. end;
  14603. procedure TPMP_PMAEN.clearPTEN2; inline;
  14604. begin
  14605. pTDefRegMap(@Self)^.clr := $00000004;
  14606. end;
  14607. procedure TPMP_PMAEN.setPTEN2(thebits : TBits_1); inline;
  14608. begin
  14609. if thebits = 0 then
  14610. pTDefRegMap(@Self)^.clr := $00000004
  14611. else
  14612. pTDefRegMap(@Self)^.&set := $00000004;
  14613. end;
  14614. function TPMP_PMAEN.getPTEN2 : TBits_1; inline;
  14615. begin
  14616. getPTEN2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  14617. end;
  14618. procedure TPMP_PMAEN.setPTEN3; inline;
  14619. begin
  14620. pTDefRegMap(@Self)^.&set := $00000008;
  14621. end;
  14622. procedure TPMP_PMAEN.clearPTEN3; inline;
  14623. begin
  14624. pTDefRegMap(@Self)^.clr := $00000008;
  14625. end;
  14626. procedure TPMP_PMAEN.setPTEN3(thebits : TBits_1); inline;
  14627. begin
  14628. if thebits = 0 then
  14629. pTDefRegMap(@Self)^.clr := $00000008
  14630. else
  14631. pTDefRegMap(@Self)^.&set := $00000008;
  14632. end;
  14633. function TPMP_PMAEN.getPTEN3 : TBits_1; inline;
  14634. begin
  14635. getPTEN3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  14636. end;
  14637. procedure TPMP_PMAEN.setPTEN4; inline;
  14638. begin
  14639. pTDefRegMap(@Self)^.&set := $00000010;
  14640. end;
  14641. procedure TPMP_PMAEN.clearPTEN4; inline;
  14642. begin
  14643. pTDefRegMap(@Self)^.clr := $00000010;
  14644. end;
  14645. procedure TPMP_PMAEN.setPTEN4(thebits : TBits_1); inline;
  14646. begin
  14647. if thebits = 0 then
  14648. pTDefRegMap(@Self)^.clr := $00000010
  14649. else
  14650. pTDefRegMap(@Self)^.&set := $00000010;
  14651. end;
  14652. function TPMP_PMAEN.getPTEN4 : TBits_1; inline;
  14653. begin
  14654. getPTEN4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  14655. end;
  14656. procedure TPMP_PMAEN.setPTEN5; inline;
  14657. begin
  14658. pTDefRegMap(@Self)^.&set := $00000020;
  14659. end;
  14660. procedure TPMP_PMAEN.clearPTEN5; inline;
  14661. begin
  14662. pTDefRegMap(@Self)^.clr := $00000020;
  14663. end;
  14664. procedure TPMP_PMAEN.setPTEN5(thebits : TBits_1); inline;
  14665. begin
  14666. if thebits = 0 then
  14667. pTDefRegMap(@Self)^.clr := $00000020
  14668. else
  14669. pTDefRegMap(@Self)^.&set := $00000020;
  14670. end;
  14671. function TPMP_PMAEN.getPTEN5 : TBits_1; inline;
  14672. begin
  14673. getPTEN5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  14674. end;
  14675. procedure TPMP_PMAEN.setPTEN6; inline;
  14676. begin
  14677. pTDefRegMap(@Self)^.&set := $00000040;
  14678. end;
  14679. procedure TPMP_PMAEN.clearPTEN6; inline;
  14680. begin
  14681. pTDefRegMap(@Self)^.clr := $00000040;
  14682. end;
  14683. procedure TPMP_PMAEN.setPTEN6(thebits : TBits_1); inline;
  14684. begin
  14685. if thebits = 0 then
  14686. pTDefRegMap(@Self)^.clr := $00000040
  14687. else
  14688. pTDefRegMap(@Self)^.&set := $00000040;
  14689. end;
  14690. function TPMP_PMAEN.getPTEN6 : TBits_1; inline;
  14691. begin
  14692. getPTEN6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  14693. end;
  14694. procedure TPMP_PMAEN.setPTEN7; inline;
  14695. begin
  14696. pTDefRegMap(@Self)^.&set := $00000080;
  14697. end;
  14698. procedure TPMP_PMAEN.clearPTEN7; inline;
  14699. begin
  14700. pTDefRegMap(@Self)^.clr := $00000080;
  14701. end;
  14702. procedure TPMP_PMAEN.setPTEN7(thebits : TBits_1); inline;
  14703. begin
  14704. if thebits = 0 then
  14705. pTDefRegMap(@Self)^.clr := $00000080
  14706. else
  14707. pTDefRegMap(@Self)^.&set := $00000080;
  14708. end;
  14709. function TPMP_PMAEN.getPTEN7 : TBits_1; inline;
  14710. begin
  14711. getPTEN7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  14712. end;
  14713. procedure TPMP_PMAEN.setPTEN8; inline;
  14714. begin
  14715. pTDefRegMap(@Self)^.&set := $00000100;
  14716. end;
  14717. procedure TPMP_PMAEN.clearPTEN8; inline;
  14718. begin
  14719. pTDefRegMap(@Self)^.clr := $00000100;
  14720. end;
  14721. procedure TPMP_PMAEN.setPTEN8(thebits : TBits_1); inline;
  14722. begin
  14723. if thebits = 0 then
  14724. pTDefRegMap(@Self)^.clr := $00000100
  14725. else
  14726. pTDefRegMap(@Self)^.&set := $00000100;
  14727. end;
  14728. function TPMP_PMAEN.getPTEN8 : TBits_1; inline;
  14729. begin
  14730. getPTEN8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  14731. end;
  14732. procedure TPMP_PMAEN.setPTEN9; inline;
  14733. begin
  14734. pTDefRegMap(@Self)^.&set := $00000200;
  14735. end;
  14736. procedure TPMP_PMAEN.clearPTEN9; inline;
  14737. begin
  14738. pTDefRegMap(@Self)^.clr := $00000200;
  14739. end;
  14740. procedure TPMP_PMAEN.setPTEN9(thebits : TBits_1); inline;
  14741. begin
  14742. if thebits = 0 then
  14743. pTDefRegMap(@Self)^.clr := $00000200
  14744. else
  14745. pTDefRegMap(@Self)^.&set := $00000200;
  14746. end;
  14747. function TPMP_PMAEN.getPTEN9 : TBits_1; inline;
  14748. begin
  14749. getPTEN9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  14750. end;
  14751. procedure TPMP_PMAEN.setPTEN10; inline;
  14752. begin
  14753. pTDefRegMap(@Self)^.&set := $00000400;
  14754. end;
  14755. procedure TPMP_PMAEN.clearPTEN10; inline;
  14756. begin
  14757. pTDefRegMap(@Self)^.clr := $00000400;
  14758. end;
  14759. procedure TPMP_PMAEN.setPTEN10(thebits : TBits_1); inline;
  14760. begin
  14761. if thebits = 0 then
  14762. pTDefRegMap(@Self)^.clr := $00000400
  14763. else
  14764. pTDefRegMap(@Self)^.&set := $00000400;
  14765. end;
  14766. function TPMP_PMAEN.getPTEN10 : TBits_1; inline;
  14767. begin
  14768. getPTEN10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  14769. end;
  14770. procedure TPMP_PMAEN.setPTEN11; inline;
  14771. begin
  14772. pTDefRegMap(@Self)^.&set := $00000800;
  14773. end;
  14774. procedure TPMP_PMAEN.clearPTEN11; inline;
  14775. begin
  14776. pTDefRegMap(@Self)^.clr := $00000800;
  14777. end;
  14778. procedure TPMP_PMAEN.setPTEN11(thebits : TBits_1); inline;
  14779. begin
  14780. if thebits = 0 then
  14781. pTDefRegMap(@Self)^.clr := $00000800
  14782. else
  14783. pTDefRegMap(@Self)^.&set := $00000800;
  14784. end;
  14785. function TPMP_PMAEN.getPTEN11 : TBits_1; inline;
  14786. begin
  14787. getPTEN11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  14788. end;
  14789. procedure TPMP_PMAEN.setPTEN12; inline;
  14790. begin
  14791. pTDefRegMap(@Self)^.&set := $00001000;
  14792. end;
  14793. procedure TPMP_PMAEN.clearPTEN12; inline;
  14794. begin
  14795. pTDefRegMap(@Self)^.clr := $00001000;
  14796. end;
  14797. procedure TPMP_PMAEN.setPTEN12(thebits : TBits_1); inline;
  14798. begin
  14799. if thebits = 0 then
  14800. pTDefRegMap(@Self)^.clr := $00001000
  14801. else
  14802. pTDefRegMap(@Self)^.&set := $00001000;
  14803. end;
  14804. function TPMP_PMAEN.getPTEN12 : TBits_1; inline;
  14805. begin
  14806. getPTEN12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  14807. end;
  14808. procedure TPMP_PMAEN.setPTEN13; inline;
  14809. begin
  14810. pTDefRegMap(@Self)^.&set := $00002000;
  14811. end;
  14812. procedure TPMP_PMAEN.clearPTEN13; inline;
  14813. begin
  14814. pTDefRegMap(@Self)^.clr := $00002000;
  14815. end;
  14816. procedure TPMP_PMAEN.setPTEN13(thebits : TBits_1); inline;
  14817. begin
  14818. if thebits = 0 then
  14819. pTDefRegMap(@Self)^.clr := $00002000
  14820. else
  14821. pTDefRegMap(@Self)^.&set := $00002000;
  14822. end;
  14823. function TPMP_PMAEN.getPTEN13 : TBits_1; inline;
  14824. begin
  14825. getPTEN13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  14826. end;
  14827. procedure TPMP_PMAEN.setPTEN14; inline;
  14828. begin
  14829. pTDefRegMap(@Self)^.&set := $00004000;
  14830. end;
  14831. procedure TPMP_PMAEN.clearPTEN14; inline;
  14832. begin
  14833. pTDefRegMap(@Self)^.clr := $00004000;
  14834. end;
  14835. procedure TPMP_PMAEN.setPTEN14(thebits : TBits_1); inline;
  14836. begin
  14837. if thebits = 0 then
  14838. pTDefRegMap(@Self)^.clr := $00004000
  14839. else
  14840. pTDefRegMap(@Self)^.&set := $00004000;
  14841. end;
  14842. function TPMP_PMAEN.getPTEN14 : TBits_1; inline;
  14843. begin
  14844. getPTEN14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  14845. end;
  14846. procedure TPMP_PMAEN.setPTEN15; inline;
  14847. begin
  14848. pTDefRegMap(@Self)^.&set := $00008000;
  14849. end;
  14850. procedure TPMP_PMAEN.clearPTEN15; inline;
  14851. begin
  14852. pTDefRegMap(@Self)^.clr := $00008000;
  14853. end;
  14854. procedure TPMP_PMAEN.setPTEN15(thebits : TBits_1); inline;
  14855. begin
  14856. if thebits = 0 then
  14857. pTDefRegMap(@Self)^.clr := $00008000
  14858. else
  14859. pTDefRegMap(@Self)^.&set := $00008000;
  14860. end;
  14861. function TPMP_PMAEN.getPTEN15 : TBits_1; inline;
  14862. begin
  14863. getPTEN15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  14864. end;
  14865. procedure TPMP_PMAEN.setw(thebits : TBits_32); inline;
  14866. begin
  14867. pTDefRegMap(@Self)^.val := thebits;
  14868. end;
  14869. function TPMP_PMAEN.getw : TBits_32; inline;
  14870. begin
  14871. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  14872. end;
  14873. procedure TPMP_PMSTAT.setOB0E; inline;
  14874. begin
  14875. pTDefRegMap(@Self)^.&set := $00000001;
  14876. end;
  14877. procedure TPMP_PMSTAT.clearOB0E; inline;
  14878. begin
  14879. pTDefRegMap(@Self)^.clr := $00000001;
  14880. end;
  14881. procedure TPMP_PMSTAT.setOB0E(thebits : TBits_1); inline;
  14882. begin
  14883. if thebits = 0 then
  14884. pTDefRegMap(@Self)^.clr := $00000001
  14885. else
  14886. pTDefRegMap(@Self)^.&set := $00000001;
  14887. end;
  14888. function TPMP_PMSTAT.getOB0E : TBits_1; inline;
  14889. begin
  14890. getOB0E := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  14891. end;
  14892. procedure TPMP_PMSTAT.setOB1E; inline;
  14893. begin
  14894. pTDefRegMap(@Self)^.&set := $00000002;
  14895. end;
  14896. procedure TPMP_PMSTAT.clearOB1E; inline;
  14897. begin
  14898. pTDefRegMap(@Self)^.clr := $00000002;
  14899. end;
  14900. procedure TPMP_PMSTAT.setOB1E(thebits : TBits_1); inline;
  14901. begin
  14902. if thebits = 0 then
  14903. pTDefRegMap(@Self)^.clr := $00000002
  14904. else
  14905. pTDefRegMap(@Self)^.&set := $00000002;
  14906. end;
  14907. function TPMP_PMSTAT.getOB1E : TBits_1; inline;
  14908. begin
  14909. getOB1E := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  14910. end;
  14911. procedure TPMP_PMSTAT.setOB2E; inline;
  14912. begin
  14913. pTDefRegMap(@Self)^.&set := $00000004;
  14914. end;
  14915. procedure TPMP_PMSTAT.clearOB2E; inline;
  14916. begin
  14917. pTDefRegMap(@Self)^.clr := $00000004;
  14918. end;
  14919. procedure TPMP_PMSTAT.setOB2E(thebits : TBits_1); inline;
  14920. begin
  14921. if thebits = 0 then
  14922. pTDefRegMap(@Self)^.clr := $00000004
  14923. else
  14924. pTDefRegMap(@Self)^.&set := $00000004;
  14925. end;
  14926. function TPMP_PMSTAT.getOB2E : TBits_1; inline;
  14927. begin
  14928. getOB2E := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  14929. end;
  14930. procedure TPMP_PMSTAT.setOB3E; inline;
  14931. begin
  14932. pTDefRegMap(@Self)^.&set := $00000008;
  14933. end;
  14934. procedure TPMP_PMSTAT.clearOB3E; inline;
  14935. begin
  14936. pTDefRegMap(@Self)^.clr := $00000008;
  14937. end;
  14938. procedure TPMP_PMSTAT.setOB3E(thebits : TBits_1); inline;
  14939. begin
  14940. if thebits = 0 then
  14941. pTDefRegMap(@Self)^.clr := $00000008
  14942. else
  14943. pTDefRegMap(@Self)^.&set := $00000008;
  14944. end;
  14945. function TPMP_PMSTAT.getOB3E : TBits_1; inline;
  14946. begin
  14947. getOB3E := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  14948. end;
  14949. procedure TPMP_PMSTAT.setOBUF; inline;
  14950. begin
  14951. pTDefRegMap(@Self)^.&set := $00000040;
  14952. end;
  14953. procedure TPMP_PMSTAT.clearOBUF; inline;
  14954. begin
  14955. pTDefRegMap(@Self)^.clr := $00000040;
  14956. end;
  14957. procedure TPMP_PMSTAT.setOBUF(thebits : TBits_1); inline;
  14958. begin
  14959. if thebits = 0 then
  14960. pTDefRegMap(@Self)^.clr := $00000040
  14961. else
  14962. pTDefRegMap(@Self)^.&set := $00000040;
  14963. end;
  14964. function TPMP_PMSTAT.getOBUF : TBits_1; inline;
  14965. begin
  14966. getOBUF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  14967. end;
  14968. procedure TPMP_PMSTAT.setOBE; inline;
  14969. begin
  14970. pTDefRegMap(@Self)^.&set := $00000080;
  14971. end;
  14972. procedure TPMP_PMSTAT.clearOBE; inline;
  14973. begin
  14974. pTDefRegMap(@Self)^.clr := $00000080;
  14975. end;
  14976. procedure TPMP_PMSTAT.setOBE(thebits : TBits_1); inline;
  14977. begin
  14978. if thebits = 0 then
  14979. pTDefRegMap(@Self)^.clr := $00000080
  14980. else
  14981. pTDefRegMap(@Self)^.&set := $00000080;
  14982. end;
  14983. function TPMP_PMSTAT.getOBE : TBits_1; inline;
  14984. begin
  14985. getOBE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  14986. end;
  14987. procedure TPMP_PMSTAT.setIB0F; inline;
  14988. begin
  14989. pTDefRegMap(@Self)^.&set := $00000100;
  14990. end;
  14991. procedure TPMP_PMSTAT.clearIB0F; inline;
  14992. begin
  14993. pTDefRegMap(@Self)^.clr := $00000100;
  14994. end;
  14995. procedure TPMP_PMSTAT.setIB0F(thebits : TBits_1); inline;
  14996. begin
  14997. if thebits = 0 then
  14998. pTDefRegMap(@Self)^.clr := $00000100
  14999. else
  15000. pTDefRegMap(@Self)^.&set := $00000100;
  15001. end;
  15002. function TPMP_PMSTAT.getIB0F : TBits_1; inline;
  15003. begin
  15004. getIB0F := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  15005. end;
  15006. procedure TPMP_PMSTAT.setIB1F; inline;
  15007. begin
  15008. pTDefRegMap(@Self)^.&set := $00000200;
  15009. end;
  15010. procedure TPMP_PMSTAT.clearIB1F; inline;
  15011. begin
  15012. pTDefRegMap(@Self)^.clr := $00000200;
  15013. end;
  15014. procedure TPMP_PMSTAT.setIB1F(thebits : TBits_1); inline;
  15015. begin
  15016. if thebits = 0 then
  15017. pTDefRegMap(@Self)^.clr := $00000200
  15018. else
  15019. pTDefRegMap(@Self)^.&set := $00000200;
  15020. end;
  15021. function TPMP_PMSTAT.getIB1F : TBits_1; inline;
  15022. begin
  15023. getIB1F := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  15024. end;
  15025. procedure TPMP_PMSTAT.setIB2F; inline;
  15026. begin
  15027. pTDefRegMap(@Self)^.&set := $00000400;
  15028. end;
  15029. procedure TPMP_PMSTAT.clearIB2F; inline;
  15030. begin
  15031. pTDefRegMap(@Self)^.clr := $00000400;
  15032. end;
  15033. procedure TPMP_PMSTAT.setIB2F(thebits : TBits_1); inline;
  15034. begin
  15035. if thebits = 0 then
  15036. pTDefRegMap(@Self)^.clr := $00000400
  15037. else
  15038. pTDefRegMap(@Self)^.&set := $00000400;
  15039. end;
  15040. function TPMP_PMSTAT.getIB2F : TBits_1; inline;
  15041. begin
  15042. getIB2F := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  15043. end;
  15044. procedure TPMP_PMSTAT.setIB3F; inline;
  15045. begin
  15046. pTDefRegMap(@Self)^.&set := $00000800;
  15047. end;
  15048. procedure TPMP_PMSTAT.clearIB3F; inline;
  15049. begin
  15050. pTDefRegMap(@Self)^.clr := $00000800;
  15051. end;
  15052. procedure TPMP_PMSTAT.setIB3F(thebits : TBits_1); inline;
  15053. begin
  15054. if thebits = 0 then
  15055. pTDefRegMap(@Self)^.clr := $00000800
  15056. else
  15057. pTDefRegMap(@Self)^.&set := $00000800;
  15058. end;
  15059. function TPMP_PMSTAT.getIB3F : TBits_1; inline;
  15060. begin
  15061. getIB3F := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  15062. end;
  15063. procedure TPMP_PMSTAT.setIBOV; inline;
  15064. begin
  15065. pTDefRegMap(@Self)^.&set := $00004000;
  15066. end;
  15067. procedure TPMP_PMSTAT.clearIBOV; inline;
  15068. begin
  15069. pTDefRegMap(@Self)^.clr := $00004000;
  15070. end;
  15071. procedure TPMP_PMSTAT.setIBOV(thebits : TBits_1); inline;
  15072. begin
  15073. if thebits = 0 then
  15074. pTDefRegMap(@Self)^.clr := $00004000
  15075. else
  15076. pTDefRegMap(@Self)^.&set := $00004000;
  15077. end;
  15078. function TPMP_PMSTAT.getIBOV : TBits_1; inline;
  15079. begin
  15080. getIBOV := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  15081. end;
  15082. procedure TPMP_PMSTAT.setIBF; inline;
  15083. begin
  15084. pTDefRegMap(@Self)^.&set := $00008000;
  15085. end;
  15086. procedure TPMP_PMSTAT.clearIBF; inline;
  15087. begin
  15088. pTDefRegMap(@Self)^.clr := $00008000;
  15089. end;
  15090. procedure TPMP_PMSTAT.setIBF(thebits : TBits_1); inline;
  15091. begin
  15092. if thebits = 0 then
  15093. pTDefRegMap(@Self)^.clr := $00008000
  15094. else
  15095. pTDefRegMap(@Self)^.&set := $00008000;
  15096. end;
  15097. function TPMP_PMSTAT.getIBF : TBits_1; inline;
  15098. begin
  15099. getIBF := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  15100. end;
  15101. procedure TPMP_PMSTAT.setw(thebits : TBits_32); inline;
  15102. begin
  15103. pTDefRegMap(@Self)^.val := thebits;
  15104. end;
  15105. function TPMP_PMSTAT.getw : TBits_32; inline;
  15106. begin
  15107. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  15108. end;
  15109. procedure TADC10_AD1CON1.setDONE; inline;
  15110. begin
  15111. pTDefRegMap(@Self)^.&set := $00000001;
  15112. end;
  15113. procedure TADC10_AD1CON1.clearDONE; inline;
  15114. begin
  15115. pTDefRegMap(@Self)^.clr := $00000001;
  15116. end;
  15117. procedure TADC10_AD1CON1.setDONE(thebits : TBits_1); inline;
  15118. begin
  15119. if thebits = 0 then
  15120. pTDefRegMap(@Self)^.clr := $00000001
  15121. else
  15122. pTDefRegMap(@Self)^.&set := $00000001;
  15123. end;
  15124. function TADC10_AD1CON1.getDONE : TBits_1; inline;
  15125. begin
  15126. getDONE := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  15127. end;
  15128. procedure TADC10_AD1CON1.setSAMP; inline;
  15129. begin
  15130. pTDefRegMap(@Self)^.&set := $00000002;
  15131. end;
  15132. procedure TADC10_AD1CON1.clearSAMP; inline;
  15133. begin
  15134. pTDefRegMap(@Self)^.clr := $00000002;
  15135. end;
  15136. procedure TADC10_AD1CON1.setSAMP(thebits : TBits_1); inline;
  15137. begin
  15138. if thebits = 0 then
  15139. pTDefRegMap(@Self)^.clr := $00000002
  15140. else
  15141. pTDefRegMap(@Self)^.&set := $00000002;
  15142. end;
  15143. function TADC10_AD1CON1.getSAMP : TBits_1; inline;
  15144. begin
  15145. getSAMP := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  15146. end;
  15147. procedure TADC10_AD1CON1.setASAM; inline;
  15148. begin
  15149. pTDefRegMap(@Self)^.&set := $00000004;
  15150. end;
  15151. procedure TADC10_AD1CON1.clearASAM; inline;
  15152. begin
  15153. pTDefRegMap(@Self)^.clr := $00000004;
  15154. end;
  15155. procedure TADC10_AD1CON1.setASAM(thebits : TBits_1); inline;
  15156. begin
  15157. if thebits = 0 then
  15158. pTDefRegMap(@Self)^.clr := $00000004
  15159. else
  15160. pTDefRegMap(@Self)^.&set := $00000004;
  15161. end;
  15162. function TADC10_AD1CON1.getASAM : TBits_1; inline;
  15163. begin
  15164. getASAM := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  15165. end;
  15166. procedure TADC10_AD1CON1.setCLRASAM; inline;
  15167. begin
  15168. pTDefRegMap(@Self)^.&set := $00000010;
  15169. end;
  15170. procedure TADC10_AD1CON1.clearCLRASAM; inline;
  15171. begin
  15172. pTDefRegMap(@Self)^.clr := $00000010;
  15173. end;
  15174. procedure TADC10_AD1CON1.setCLRASAM(thebits : TBits_1); inline;
  15175. begin
  15176. if thebits = 0 then
  15177. pTDefRegMap(@Self)^.clr := $00000010
  15178. else
  15179. pTDefRegMap(@Self)^.&set := $00000010;
  15180. end;
  15181. function TADC10_AD1CON1.getCLRASAM : TBits_1; inline;
  15182. begin
  15183. getCLRASAM := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  15184. end;
  15185. procedure TADC10_AD1CON1.setSSRC(thebits : TBits_3); inline;
  15186. begin
  15187. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF1F or ( thebits shl 5 );
  15188. end;
  15189. function TADC10_AD1CON1.getSSRC : TBits_3; inline;
  15190. begin
  15191. getSSRC := (pTDefRegMap(@Self)^.val and $000000E0) shr 5;
  15192. end;
  15193. procedure TADC10_AD1CON1.setFORM(thebits : TBits_3); inline;
  15194. begin
  15195. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFF8FF or ( thebits shl 8 );
  15196. end;
  15197. function TADC10_AD1CON1.getFORM : TBits_3; inline;
  15198. begin
  15199. getFORM := (pTDefRegMap(@Self)^.val and $00000700) shr 8;
  15200. end;
  15201. procedure TADC10_AD1CON1.setSIDL; inline;
  15202. begin
  15203. pTDefRegMap(@Self)^.&set := $00002000;
  15204. end;
  15205. procedure TADC10_AD1CON1.clearSIDL; inline;
  15206. begin
  15207. pTDefRegMap(@Self)^.clr := $00002000;
  15208. end;
  15209. procedure TADC10_AD1CON1.setSIDL(thebits : TBits_1); inline;
  15210. begin
  15211. if thebits = 0 then
  15212. pTDefRegMap(@Self)^.clr := $00002000
  15213. else
  15214. pTDefRegMap(@Self)^.&set := $00002000;
  15215. end;
  15216. function TADC10_AD1CON1.getSIDL : TBits_1; inline;
  15217. begin
  15218. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  15219. end;
  15220. procedure TADC10_AD1CON1.setON; inline;
  15221. begin
  15222. pTDefRegMap(@Self)^.&set := $00008000;
  15223. end;
  15224. procedure TADC10_AD1CON1.clearON; inline;
  15225. begin
  15226. pTDefRegMap(@Self)^.clr := $00008000;
  15227. end;
  15228. procedure TADC10_AD1CON1.setON(thebits : TBits_1); inline;
  15229. begin
  15230. if thebits = 0 then
  15231. pTDefRegMap(@Self)^.clr := $00008000
  15232. else
  15233. pTDefRegMap(@Self)^.&set := $00008000;
  15234. end;
  15235. function TADC10_AD1CON1.getON : TBits_1; inline;
  15236. begin
  15237. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  15238. end;
  15239. procedure TADC10_AD1CON1.setSSRC0; inline;
  15240. begin
  15241. pTDefRegMap(@Self)^.&set := $00000020;
  15242. end;
  15243. procedure TADC10_AD1CON1.clearSSRC0; inline;
  15244. begin
  15245. pTDefRegMap(@Self)^.clr := $00000020;
  15246. end;
  15247. procedure TADC10_AD1CON1.setSSRC0(thebits : TBits_1); inline;
  15248. begin
  15249. if thebits = 0 then
  15250. pTDefRegMap(@Self)^.clr := $00000020
  15251. else
  15252. pTDefRegMap(@Self)^.&set := $00000020;
  15253. end;
  15254. function TADC10_AD1CON1.getSSRC0 : TBits_1; inline;
  15255. begin
  15256. getSSRC0 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  15257. end;
  15258. procedure TADC10_AD1CON1.setSSRC1; inline;
  15259. begin
  15260. pTDefRegMap(@Self)^.&set := $00000040;
  15261. end;
  15262. procedure TADC10_AD1CON1.clearSSRC1; inline;
  15263. begin
  15264. pTDefRegMap(@Self)^.clr := $00000040;
  15265. end;
  15266. procedure TADC10_AD1CON1.setSSRC1(thebits : TBits_1); inline;
  15267. begin
  15268. if thebits = 0 then
  15269. pTDefRegMap(@Self)^.clr := $00000040
  15270. else
  15271. pTDefRegMap(@Self)^.&set := $00000040;
  15272. end;
  15273. function TADC10_AD1CON1.getSSRC1 : TBits_1; inline;
  15274. begin
  15275. getSSRC1 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  15276. end;
  15277. procedure TADC10_AD1CON1.setSSRC2; inline;
  15278. begin
  15279. pTDefRegMap(@Self)^.&set := $00000080;
  15280. end;
  15281. procedure TADC10_AD1CON1.clearSSRC2; inline;
  15282. begin
  15283. pTDefRegMap(@Self)^.clr := $00000080;
  15284. end;
  15285. procedure TADC10_AD1CON1.setSSRC2(thebits : TBits_1); inline;
  15286. begin
  15287. if thebits = 0 then
  15288. pTDefRegMap(@Self)^.clr := $00000080
  15289. else
  15290. pTDefRegMap(@Self)^.&set := $00000080;
  15291. end;
  15292. function TADC10_AD1CON1.getSSRC2 : TBits_1; inline;
  15293. begin
  15294. getSSRC2 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  15295. end;
  15296. procedure TADC10_AD1CON1.setFORM0; inline;
  15297. begin
  15298. pTDefRegMap(@Self)^.&set := $00000100;
  15299. end;
  15300. procedure TADC10_AD1CON1.clearFORM0; inline;
  15301. begin
  15302. pTDefRegMap(@Self)^.clr := $00000100;
  15303. end;
  15304. procedure TADC10_AD1CON1.setFORM0(thebits : TBits_1); inline;
  15305. begin
  15306. if thebits = 0 then
  15307. pTDefRegMap(@Self)^.clr := $00000100
  15308. else
  15309. pTDefRegMap(@Self)^.&set := $00000100;
  15310. end;
  15311. function TADC10_AD1CON1.getFORM0 : TBits_1; inline;
  15312. begin
  15313. getFORM0 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  15314. end;
  15315. procedure TADC10_AD1CON1.setFORM1; inline;
  15316. begin
  15317. pTDefRegMap(@Self)^.&set := $00000200;
  15318. end;
  15319. procedure TADC10_AD1CON1.clearFORM1; inline;
  15320. begin
  15321. pTDefRegMap(@Self)^.clr := $00000200;
  15322. end;
  15323. procedure TADC10_AD1CON1.setFORM1(thebits : TBits_1); inline;
  15324. begin
  15325. if thebits = 0 then
  15326. pTDefRegMap(@Self)^.clr := $00000200
  15327. else
  15328. pTDefRegMap(@Self)^.&set := $00000200;
  15329. end;
  15330. function TADC10_AD1CON1.getFORM1 : TBits_1; inline;
  15331. begin
  15332. getFORM1 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  15333. end;
  15334. procedure TADC10_AD1CON1.setFORM2; inline;
  15335. begin
  15336. pTDefRegMap(@Self)^.&set := $00000400;
  15337. end;
  15338. procedure TADC10_AD1CON1.clearFORM2; inline;
  15339. begin
  15340. pTDefRegMap(@Self)^.clr := $00000400;
  15341. end;
  15342. procedure TADC10_AD1CON1.setFORM2(thebits : TBits_1); inline;
  15343. begin
  15344. if thebits = 0 then
  15345. pTDefRegMap(@Self)^.clr := $00000400
  15346. else
  15347. pTDefRegMap(@Self)^.&set := $00000400;
  15348. end;
  15349. function TADC10_AD1CON1.getFORM2 : TBits_1; inline;
  15350. begin
  15351. getFORM2 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  15352. end;
  15353. procedure TADC10_AD1CON1.setADSIDL; inline;
  15354. begin
  15355. pTDefRegMap(@Self)^.&set := $00002000;
  15356. end;
  15357. procedure TADC10_AD1CON1.clearADSIDL; inline;
  15358. begin
  15359. pTDefRegMap(@Self)^.clr := $00002000;
  15360. end;
  15361. procedure TADC10_AD1CON1.setADSIDL(thebits : TBits_1); inline;
  15362. begin
  15363. if thebits = 0 then
  15364. pTDefRegMap(@Self)^.clr := $00002000
  15365. else
  15366. pTDefRegMap(@Self)^.&set := $00002000;
  15367. end;
  15368. function TADC10_AD1CON1.getADSIDL : TBits_1; inline;
  15369. begin
  15370. getADSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  15371. end;
  15372. procedure TADC10_AD1CON1.setADON; inline;
  15373. begin
  15374. pTDefRegMap(@Self)^.&set := $00008000;
  15375. end;
  15376. procedure TADC10_AD1CON1.clearADON; inline;
  15377. begin
  15378. pTDefRegMap(@Self)^.clr := $00008000;
  15379. end;
  15380. procedure TADC10_AD1CON1.setADON(thebits : TBits_1); inline;
  15381. begin
  15382. if thebits = 0 then
  15383. pTDefRegMap(@Self)^.clr := $00008000
  15384. else
  15385. pTDefRegMap(@Self)^.&set := $00008000;
  15386. end;
  15387. function TADC10_AD1CON1.getADON : TBits_1; inline;
  15388. begin
  15389. getADON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  15390. end;
  15391. procedure TADC10_AD1CON1.setw(thebits : TBits_32); inline;
  15392. begin
  15393. pTDefRegMap(@Self)^.val := thebits;
  15394. end;
  15395. function TADC10_AD1CON1.getw : TBits_32; inline;
  15396. begin
  15397. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  15398. end;
  15399. procedure TADC10_AD1CON2.setALTS; inline;
  15400. begin
  15401. pTDefRegMap(@Self)^.&set := $00000001;
  15402. end;
  15403. procedure TADC10_AD1CON2.clearALTS; inline;
  15404. begin
  15405. pTDefRegMap(@Self)^.clr := $00000001;
  15406. end;
  15407. procedure TADC10_AD1CON2.setALTS(thebits : TBits_1); inline;
  15408. begin
  15409. if thebits = 0 then
  15410. pTDefRegMap(@Self)^.clr := $00000001
  15411. else
  15412. pTDefRegMap(@Self)^.&set := $00000001;
  15413. end;
  15414. function TADC10_AD1CON2.getALTS : TBits_1; inline;
  15415. begin
  15416. getALTS := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  15417. end;
  15418. procedure TADC10_AD1CON2.setBUFM; inline;
  15419. begin
  15420. pTDefRegMap(@Self)^.&set := $00000002;
  15421. end;
  15422. procedure TADC10_AD1CON2.clearBUFM; inline;
  15423. begin
  15424. pTDefRegMap(@Self)^.clr := $00000002;
  15425. end;
  15426. procedure TADC10_AD1CON2.setBUFM(thebits : TBits_1); inline;
  15427. begin
  15428. if thebits = 0 then
  15429. pTDefRegMap(@Self)^.clr := $00000002
  15430. else
  15431. pTDefRegMap(@Self)^.&set := $00000002;
  15432. end;
  15433. function TADC10_AD1CON2.getBUFM : TBits_1; inline;
  15434. begin
  15435. getBUFM := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  15436. end;
  15437. procedure TADC10_AD1CON2.setSMPI(thebits : TBits_4); inline;
  15438. begin
  15439. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFC3 or ( thebits shl 2 );
  15440. end;
  15441. function TADC10_AD1CON2.getSMPI : TBits_4; inline;
  15442. begin
  15443. getSMPI := (pTDefRegMap(@Self)^.val and $0000003C) shr 2;
  15444. end;
  15445. procedure TADC10_AD1CON2.setBUFS; inline;
  15446. begin
  15447. pTDefRegMap(@Self)^.&set := $00000080;
  15448. end;
  15449. procedure TADC10_AD1CON2.clearBUFS; inline;
  15450. begin
  15451. pTDefRegMap(@Self)^.clr := $00000080;
  15452. end;
  15453. procedure TADC10_AD1CON2.setBUFS(thebits : TBits_1); inline;
  15454. begin
  15455. if thebits = 0 then
  15456. pTDefRegMap(@Self)^.clr := $00000080
  15457. else
  15458. pTDefRegMap(@Self)^.&set := $00000080;
  15459. end;
  15460. function TADC10_AD1CON2.getBUFS : TBits_1; inline;
  15461. begin
  15462. getBUFS := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  15463. end;
  15464. procedure TADC10_AD1CON2.setCSCNA; inline;
  15465. begin
  15466. pTDefRegMap(@Self)^.&set := $00000400;
  15467. end;
  15468. procedure TADC10_AD1CON2.clearCSCNA; inline;
  15469. begin
  15470. pTDefRegMap(@Self)^.clr := $00000400;
  15471. end;
  15472. procedure TADC10_AD1CON2.setCSCNA(thebits : TBits_1); inline;
  15473. begin
  15474. if thebits = 0 then
  15475. pTDefRegMap(@Self)^.clr := $00000400
  15476. else
  15477. pTDefRegMap(@Self)^.&set := $00000400;
  15478. end;
  15479. function TADC10_AD1CON2.getCSCNA : TBits_1; inline;
  15480. begin
  15481. getCSCNA := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  15482. end;
  15483. procedure TADC10_AD1CON2.setOFFCAL; inline;
  15484. begin
  15485. pTDefRegMap(@Self)^.&set := $00001000;
  15486. end;
  15487. procedure TADC10_AD1CON2.clearOFFCAL; inline;
  15488. begin
  15489. pTDefRegMap(@Self)^.clr := $00001000;
  15490. end;
  15491. procedure TADC10_AD1CON2.setOFFCAL(thebits : TBits_1); inline;
  15492. begin
  15493. if thebits = 0 then
  15494. pTDefRegMap(@Self)^.clr := $00001000
  15495. else
  15496. pTDefRegMap(@Self)^.&set := $00001000;
  15497. end;
  15498. function TADC10_AD1CON2.getOFFCAL : TBits_1; inline;
  15499. begin
  15500. getOFFCAL := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  15501. end;
  15502. procedure TADC10_AD1CON2.setVCFG(thebits : TBits_3); inline;
  15503. begin
  15504. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF1FFF or ( thebits shl 13 );
  15505. end;
  15506. function TADC10_AD1CON2.getVCFG : TBits_3; inline;
  15507. begin
  15508. getVCFG := (pTDefRegMap(@Self)^.val and $0000E000) shr 13;
  15509. end;
  15510. procedure TADC10_AD1CON2.setSMPI0; inline;
  15511. begin
  15512. pTDefRegMap(@Self)^.&set := $00000004;
  15513. end;
  15514. procedure TADC10_AD1CON2.clearSMPI0; inline;
  15515. begin
  15516. pTDefRegMap(@Self)^.clr := $00000004;
  15517. end;
  15518. procedure TADC10_AD1CON2.setSMPI0(thebits : TBits_1); inline;
  15519. begin
  15520. if thebits = 0 then
  15521. pTDefRegMap(@Self)^.clr := $00000004
  15522. else
  15523. pTDefRegMap(@Self)^.&set := $00000004;
  15524. end;
  15525. function TADC10_AD1CON2.getSMPI0 : TBits_1; inline;
  15526. begin
  15527. getSMPI0 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  15528. end;
  15529. procedure TADC10_AD1CON2.setSMPI1; inline;
  15530. begin
  15531. pTDefRegMap(@Self)^.&set := $00000008;
  15532. end;
  15533. procedure TADC10_AD1CON2.clearSMPI1; inline;
  15534. begin
  15535. pTDefRegMap(@Self)^.clr := $00000008;
  15536. end;
  15537. procedure TADC10_AD1CON2.setSMPI1(thebits : TBits_1); inline;
  15538. begin
  15539. if thebits = 0 then
  15540. pTDefRegMap(@Self)^.clr := $00000008
  15541. else
  15542. pTDefRegMap(@Self)^.&set := $00000008;
  15543. end;
  15544. function TADC10_AD1CON2.getSMPI1 : TBits_1; inline;
  15545. begin
  15546. getSMPI1 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  15547. end;
  15548. procedure TADC10_AD1CON2.setSMPI2; inline;
  15549. begin
  15550. pTDefRegMap(@Self)^.&set := $00000010;
  15551. end;
  15552. procedure TADC10_AD1CON2.clearSMPI2; inline;
  15553. begin
  15554. pTDefRegMap(@Self)^.clr := $00000010;
  15555. end;
  15556. procedure TADC10_AD1CON2.setSMPI2(thebits : TBits_1); inline;
  15557. begin
  15558. if thebits = 0 then
  15559. pTDefRegMap(@Self)^.clr := $00000010
  15560. else
  15561. pTDefRegMap(@Self)^.&set := $00000010;
  15562. end;
  15563. function TADC10_AD1CON2.getSMPI2 : TBits_1; inline;
  15564. begin
  15565. getSMPI2 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  15566. end;
  15567. procedure TADC10_AD1CON2.setSMPI3; inline;
  15568. begin
  15569. pTDefRegMap(@Self)^.&set := $00000020;
  15570. end;
  15571. procedure TADC10_AD1CON2.clearSMPI3; inline;
  15572. begin
  15573. pTDefRegMap(@Self)^.clr := $00000020;
  15574. end;
  15575. procedure TADC10_AD1CON2.setSMPI3(thebits : TBits_1); inline;
  15576. begin
  15577. if thebits = 0 then
  15578. pTDefRegMap(@Self)^.clr := $00000020
  15579. else
  15580. pTDefRegMap(@Self)^.&set := $00000020;
  15581. end;
  15582. function TADC10_AD1CON2.getSMPI3 : TBits_1; inline;
  15583. begin
  15584. getSMPI3 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  15585. end;
  15586. procedure TADC10_AD1CON2.setVCFG0; inline;
  15587. begin
  15588. pTDefRegMap(@Self)^.&set := $00002000;
  15589. end;
  15590. procedure TADC10_AD1CON2.clearVCFG0; inline;
  15591. begin
  15592. pTDefRegMap(@Self)^.clr := $00002000;
  15593. end;
  15594. procedure TADC10_AD1CON2.setVCFG0(thebits : TBits_1); inline;
  15595. begin
  15596. if thebits = 0 then
  15597. pTDefRegMap(@Self)^.clr := $00002000
  15598. else
  15599. pTDefRegMap(@Self)^.&set := $00002000;
  15600. end;
  15601. function TADC10_AD1CON2.getVCFG0 : TBits_1; inline;
  15602. begin
  15603. getVCFG0 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  15604. end;
  15605. procedure TADC10_AD1CON2.setVCFG1; inline;
  15606. begin
  15607. pTDefRegMap(@Self)^.&set := $00004000;
  15608. end;
  15609. procedure TADC10_AD1CON2.clearVCFG1; inline;
  15610. begin
  15611. pTDefRegMap(@Self)^.clr := $00004000;
  15612. end;
  15613. procedure TADC10_AD1CON2.setVCFG1(thebits : TBits_1); inline;
  15614. begin
  15615. if thebits = 0 then
  15616. pTDefRegMap(@Self)^.clr := $00004000
  15617. else
  15618. pTDefRegMap(@Self)^.&set := $00004000;
  15619. end;
  15620. function TADC10_AD1CON2.getVCFG1 : TBits_1; inline;
  15621. begin
  15622. getVCFG1 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  15623. end;
  15624. procedure TADC10_AD1CON2.setVCFG2; inline;
  15625. begin
  15626. pTDefRegMap(@Self)^.&set := $00008000;
  15627. end;
  15628. procedure TADC10_AD1CON2.clearVCFG2; inline;
  15629. begin
  15630. pTDefRegMap(@Self)^.clr := $00008000;
  15631. end;
  15632. procedure TADC10_AD1CON2.setVCFG2(thebits : TBits_1); inline;
  15633. begin
  15634. if thebits = 0 then
  15635. pTDefRegMap(@Self)^.clr := $00008000
  15636. else
  15637. pTDefRegMap(@Self)^.&set := $00008000;
  15638. end;
  15639. function TADC10_AD1CON2.getVCFG2 : TBits_1; inline;
  15640. begin
  15641. getVCFG2 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  15642. end;
  15643. procedure TADC10_AD1CON2.setw(thebits : TBits_32); inline;
  15644. begin
  15645. pTDefRegMap(@Self)^.val := thebits;
  15646. end;
  15647. function TADC10_AD1CON2.getw : TBits_32; inline;
  15648. begin
  15649. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  15650. end;
  15651. procedure TADC10_AD1CON3.setADCS(thebits : TBits_8); inline;
  15652. begin
  15653. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF00 or ( thebits shl 0 );
  15654. end;
  15655. function TADC10_AD1CON3.getADCS : TBits_8; inline;
  15656. begin
  15657. getADCS := (pTDefRegMap(@Self)^.val and $000000FF) shr 0;
  15658. end;
  15659. procedure TADC10_AD1CON3.setSAMC(thebits : TBits_5); inline;
  15660. begin
  15661. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE0FF or ( thebits shl 8 );
  15662. end;
  15663. function TADC10_AD1CON3.getSAMC : TBits_5; inline;
  15664. begin
  15665. getSAMC := (pTDefRegMap(@Self)^.val and $00001F00) shr 8;
  15666. end;
  15667. procedure TADC10_AD1CON3.setADRC; inline;
  15668. begin
  15669. pTDefRegMap(@Self)^.&set := $00008000;
  15670. end;
  15671. procedure TADC10_AD1CON3.clearADRC; inline;
  15672. begin
  15673. pTDefRegMap(@Self)^.clr := $00008000;
  15674. end;
  15675. procedure TADC10_AD1CON3.setADRC(thebits : TBits_1); inline;
  15676. begin
  15677. if thebits = 0 then
  15678. pTDefRegMap(@Self)^.clr := $00008000
  15679. else
  15680. pTDefRegMap(@Self)^.&set := $00008000;
  15681. end;
  15682. function TADC10_AD1CON3.getADRC : TBits_1; inline;
  15683. begin
  15684. getADRC := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  15685. end;
  15686. procedure TADC10_AD1CON3.setADCS0; inline;
  15687. begin
  15688. pTDefRegMap(@Self)^.&set := $00000001;
  15689. end;
  15690. procedure TADC10_AD1CON3.clearADCS0; inline;
  15691. begin
  15692. pTDefRegMap(@Self)^.clr := $00000001;
  15693. end;
  15694. procedure TADC10_AD1CON3.setADCS0(thebits : TBits_1); inline;
  15695. begin
  15696. if thebits = 0 then
  15697. pTDefRegMap(@Self)^.clr := $00000001
  15698. else
  15699. pTDefRegMap(@Self)^.&set := $00000001;
  15700. end;
  15701. function TADC10_AD1CON3.getADCS0 : TBits_1; inline;
  15702. begin
  15703. getADCS0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  15704. end;
  15705. procedure TADC10_AD1CON3.setADCS1; inline;
  15706. begin
  15707. pTDefRegMap(@Self)^.&set := $00000002;
  15708. end;
  15709. procedure TADC10_AD1CON3.clearADCS1; inline;
  15710. begin
  15711. pTDefRegMap(@Self)^.clr := $00000002;
  15712. end;
  15713. procedure TADC10_AD1CON3.setADCS1(thebits : TBits_1); inline;
  15714. begin
  15715. if thebits = 0 then
  15716. pTDefRegMap(@Self)^.clr := $00000002
  15717. else
  15718. pTDefRegMap(@Self)^.&set := $00000002;
  15719. end;
  15720. function TADC10_AD1CON3.getADCS1 : TBits_1; inline;
  15721. begin
  15722. getADCS1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  15723. end;
  15724. procedure TADC10_AD1CON3.setADCS2; inline;
  15725. begin
  15726. pTDefRegMap(@Self)^.&set := $00000004;
  15727. end;
  15728. procedure TADC10_AD1CON3.clearADCS2; inline;
  15729. begin
  15730. pTDefRegMap(@Self)^.clr := $00000004;
  15731. end;
  15732. procedure TADC10_AD1CON3.setADCS2(thebits : TBits_1); inline;
  15733. begin
  15734. if thebits = 0 then
  15735. pTDefRegMap(@Self)^.clr := $00000004
  15736. else
  15737. pTDefRegMap(@Self)^.&set := $00000004;
  15738. end;
  15739. function TADC10_AD1CON3.getADCS2 : TBits_1; inline;
  15740. begin
  15741. getADCS2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  15742. end;
  15743. procedure TADC10_AD1CON3.setADCS3; inline;
  15744. begin
  15745. pTDefRegMap(@Self)^.&set := $00000008;
  15746. end;
  15747. procedure TADC10_AD1CON3.clearADCS3; inline;
  15748. begin
  15749. pTDefRegMap(@Self)^.clr := $00000008;
  15750. end;
  15751. procedure TADC10_AD1CON3.setADCS3(thebits : TBits_1); inline;
  15752. begin
  15753. if thebits = 0 then
  15754. pTDefRegMap(@Self)^.clr := $00000008
  15755. else
  15756. pTDefRegMap(@Self)^.&set := $00000008;
  15757. end;
  15758. function TADC10_AD1CON3.getADCS3 : TBits_1; inline;
  15759. begin
  15760. getADCS3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  15761. end;
  15762. procedure TADC10_AD1CON3.setADCS4; inline;
  15763. begin
  15764. pTDefRegMap(@Self)^.&set := $00000010;
  15765. end;
  15766. procedure TADC10_AD1CON3.clearADCS4; inline;
  15767. begin
  15768. pTDefRegMap(@Self)^.clr := $00000010;
  15769. end;
  15770. procedure TADC10_AD1CON3.setADCS4(thebits : TBits_1); inline;
  15771. begin
  15772. if thebits = 0 then
  15773. pTDefRegMap(@Self)^.clr := $00000010
  15774. else
  15775. pTDefRegMap(@Self)^.&set := $00000010;
  15776. end;
  15777. function TADC10_AD1CON3.getADCS4 : TBits_1; inline;
  15778. begin
  15779. getADCS4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  15780. end;
  15781. procedure TADC10_AD1CON3.setADCS5; inline;
  15782. begin
  15783. pTDefRegMap(@Self)^.&set := $00000020;
  15784. end;
  15785. procedure TADC10_AD1CON3.clearADCS5; inline;
  15786. begin
  15787. pTDefRegMap(@Self)^.clr := $00000020;
  15788. end;
  15789. procedure TADC10_AD1CON3.setADCS5(thebits : TBits_1); inline;
  15790. begin
  15791. if thebits = 0 then
  15792. pTDefRegMap(@Self)^.clr := $00000020
  15793. else
  15794. pTDefRegMap(@Self)^.&set := $00000020;
  15795. end;
  15796. function TADC10_AD1CON3.getADCS5 : TBits_1; inline;
  15797. begin
  15798. getADCS5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  15799. end;
  15800. procedure TADC10_AD1CON3.setADCS6; inline;
  15801. begin
  15802. pTDefRegMap(@Self)^.&set := $00000040;
  15803. end;
  15804. procedure TADC10_AD1CON3.clearADCS6; inline;
  15805. begin
  15806. pTDefRegMap(@Self)^.clr := $00000040;
  15807. end;
  15808. procedure TADC10_AD1CON3.setADCS6(thebits : TBits_1); inline;
  15809. begin
  15810. if thebits = 0 then
  15811. pTDefRegMap(@Self)^.clr := $00000040
  15812. else
  15813. pTDefRegMap(@Self)^.&set := $00000040;
  15814. end;
  15815. function TADC10_AD1CON3.getADCS6 : TBits_1; inline;
  15816. begin
  15817. getADCS6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  15818. end;
  15819. procedure TADC10_AD1CON3.setADCS7; inline;
  15820. begin
  15821. pTDefRegMap(@Self)^.&set := $00000080;
  15822. end;
  15823. procedure TADC10_AD1CON3.clearADCS7; inline;
  15824. begin
  15825. pTDefRegMap(@Self)^.clr := $00000080;
  15826. end;
  15827. procedure TADC10_AD1CON3.setADCS7(thebits : TBits_1); inline;
  15828. begin
  15829. if thebits = 0 then
  15830. pTDefRegMap(@Self)^.clr := $00000080
  15831. else
  15832. pTDefRegMap(@Self)^.&set := $00000080;
  15833. end;
  15834. function TADC10_AD1CON3.getADCS7 : TBits_1; inline;
  15835. begin
  15836. getADCS7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  15837. end;
  15838. procedure TADC10_AD1CON3.setSAMC0; inline;
  15839. begin
  15840. pTDefRegMap(@Self)^.&set := $00000100;
  15841. end;
  15842. procedure TADC10_AD1CON3.clearSAMC0; inline;
  15843. begin
  15844. pTDefRegMap(@Self)^.clr := $00000100;
  15845. end;
  15846. procedure TADC10_AD1CON3.setSAMC0(thebits : TBits_1); inline;
  15847. begin
  15848. if thebits = 0 then
  15849. pTDefRegMap(@Self)^.clr := $00000100
  15850. else
  15851. pTDefRegMap(@Self)^.&set := $00000100;
  15852. end;
  15853. function TADC10_AD1CON3.getSAMC0 : TBits_1; inline;
  15854. begin
  15855. getSAMC0 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  15856. end;
  15857. procedure TADC10_AD1CON3.setSAMC1; inline;
  15858. begin
  15859. pTDefRegMap(@Self)^.&set := $00000200;
  15860. end;
  15861. procedure TADC10_AD1CON3.clearSAMC1; inline;
  15862. begin
  15863. pTDefRegMap(@Self)^.clr := $00000200;
  15864. end;
  15865. procedure TADC10_AD1CON3.setSAMC1(thebits : TBits_1); inline;
  15866. begin
  15867. if thebits = 0 then
  15868. pTDefRegMap(@Self)^.clr := $00000200
  15869. else
  15870. pTDefRegMap(@Self)^.&set := $00000200;
  15871. end;
  15872. function TADC10_AD1CON3.getSAMC1 : TBits_1; inline;
  15873. begin
  15874. getSAMC1 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  15875. end;
  15876. procedure TADC10_AD1CON3.setSAMC2; inline;
  15877. begin
  15878. pTDefRegMap(@Self)^.&set := $00000400;
  15879. end;
  15880. procedure TADC10_AD1CON3.clearSAMC2; inline;
  15881. begin
  15882. pTDefRegMap(@Self)^.clr := $00000400;
  15883. end;
  15884. procedure TADC10_AD1CON3.setSAMC2(thebits : TBits_1); inline;
  15885. begin
  15886. if thebits = 0 then
  15887. pTDefRegMap(@Self)^.clr := $00000400
  15888. else
  15889. pTDefRegMap(@Self)^.&set := $00000400;
  15890. end;
  15891. function TADC10_AD1CON3.getSAMC2 : TBits_1; inline;
  15892. begin
  15893. getSAMC2 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  15894. end;
  15895. procedure TADC10_AD1CON3.setSAMC3; inline;
  15896. begin
  15897. pTDefRegMap(@Self)^.&set := $00000800;
  15898. end;
  15899. procedure TADC10_AD1CON3.clearSAMC3; inline;
  15900. begin
  15901. pTDefRegMap(@Self)^.clr := $00000800;
  15902. end;
  15903. procedure TADC10_AD1CON3.setSAMC3(thebits : TBits_1); inline;
  15904. begin
  15905. if thebits = 0 then
  15906. pTDefRegMap(@Self)^.clr := $00000800
  15907. else
  15908. pTDefRegMap(@Self)^.&set := $00000800;
  15909. end;
  15910. function TADC10_AD1CON3.getSAMC3 : TBits_1; inline;
  15911. begin
  15912. getSAMC3 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  15913. end;
  15914. procedure TADC10_AD1CON3.setSAMC4; inline;
  15915. begin
  15916. pTDefRegMap(@Self)^.&set := $00001000;
  15917. end;
  15918. procedure TADC10_AD1CON3.clearSAMC4; inline;
  15919. begin
  15920. pTDefRegMap(@Self)^.clr := $00001000;
  15921. end;
  15922. procedure TADC10_AD1CON3.setSAMC4(thebits : TBits_1); inline;
  15923. begin
  15924. if thebits = 0 then
  15925. pTDefRegMap(@Self)^.clr := $00001000
  15926. else
  15927. pTDefRegMap(@Self)^.&set := $00001000;
  15928. end;
  15929. function TADC10_AD1CON3.getSAMC4 : TBits_1; inline;
  15930. begin
  15931. getSAMC4 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  15932. end;
  15933. procedure TADC10_AD1CON3.setw(thebits : TBits_32); inline;
  15934. begin
  15935. pTDefRegMap(@Self)^.val := thebits;
  15936. end;
  15937. function TADC10_AD1CON3.getw : TBits_32; inline;
  15938. begin
  15939. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  15940. end;
  15941. procedure TADC10_AD1CHS.setCH0SA(thebits : TBits_4); inline;
  15942. begin
  15943. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFF0FFFF or ( thebits shl 16 );
  15944. end;
  15945. function TADC10_AD1CHS.getCH0SA : TBits_4; inline;
  15946. begin
  15947. getCH0SA := (pTDefRegMap(@Self)^.val and $000F0000) shr 16;
  15948. end;
  15949. procedure TADC10_AD1CHS.setCH0NA; inline;
  15950. begin
  15951. pTDefRegMap(@Self)^.&set := $00800000;
  15952. end;
  15953. procedure TADC10_AD1CHS.clearCH0NA; inline;
  15954. begin
  15955. pTDefRegMap(@Self)^.clr := $00800000;
  15956. end;
  15957. procedure TADC10_AD1CHS.setCH0NA(thebits : TBits_1); inline;
  15958. begin
  15959. if thebits = 0 then
  15960. pTDefRegMap(@Self)^.clr := $00800000
  15961. else
  15962. pTDefRegMap(@Self)^.&set := $00800000;
  15963. end;
  15964. function TADC10_AD1CHS.getCH0NA : TBits_1; inline;
  15965. begin
  15966. getCH0NA := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
  15967. end;
  15968. procedure TADC10_AD1CHS.setCH0SB(thebits : TBits_4); inline;
  15969. begin
  15970. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $F0FFFFFF or ( thebits shl 24 );
  15971. end;
  15972. function TADC10_AD1CHS.getCH0SB : TBits_4; inline;
  15973. begin
  15974. getCH0SB := (pTDefRegMap(@Self)^.val and $0F000000) shr 24;
  15975. end;
  15976. procedure TADC10_AD1CHS.setCH0NB; inline;
  15977. begin
  15978. pTDefRegMap(@Self)^.&set := $80000000;
  15979. end;
  15980. procedure TADC10_AD1CHS.clearCH0NB; inline;
  15981. begin
  15982. pTDefRegMap(@Self)^.clr := $80000000;
  15983. end;
  15984. procedure TADC10_AD1CHS.setCH0NB(thebits : TBits_1); inline;
  15985. begin
  15986. if thebits = 0 then
  15987. pTDefRegMap(@Self)^.clr := $80000000
  15988. else
  15989. pTDefRegMap(@Self)^.&set := $80000000;
  15990. end;
  15991. function TADC10_AD1CHS.getCH0NB : TBits_1; inline;
  15992. begin
  15993. getCH0NB := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  15994. end;
  15995. procedure TADC10_AD1CHS.setCH0SA0; inline;
  15996. begin
  15997. pTDefRegMap(@Self)^.&set := $00010000;
  15998. end;
  15999. procedure TADC10_AD1CHS.clearCH0SA0; inline;
  16000. begin
  16001. pTDefRegMap(@Self)^.clr := $00010000;
  16002. end;
  16003. procedure TADC10_AD1CHS.setCH0SA0(thebits : TBits_1); inline;
  16004. begin
  16005. if thebits = 0 then
  16006. pTDefRegMap(@Self)^.clr := $00010000
  16007. else
  16008. pTDefRegMap(@Self)^.&set := $00010000;
  16009. end;
  16010. function TADC10_AD1CHS.getCH0SA0 : TBits_1; inline;
  16011. begin
  16012. getCH0SA0 := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  16013. end;
  16014. procedure TADC10_AD1CHS.setCH0SA1; inline;
  16015. begin
  16016. pTDefRegMap(@Self)^.&set := $00020000;
  16017. end;
  16018. procedure TADC10_AD1CHS.clearCH0SA1; inline;
  16019. begin
  16020. pTDefRegMap(@Self)^.clr := $00020000;
  16021. end;
  16022. procedure TADC10_AD1CHS.setCH0SA1(thebits : TBits_1); inline;
  16023. begin
  16024. if thebits = 0 then
  16025. pTDefRegMap(@Self)^.clr := $00020000
  16026. else
  16027. pTDefRegMap(@Self)^.&set := $00020000;
  16028. end;
  16029. function TADC10_AD1CHS.getCH0SA1 : TBits_1; inline;
  16030. begin
  16031. getCH0SA1 := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  16032. end;
  16033. procedure TADC10_AD1CHS.setCH0SA2; inline;
  16034. begin
  16035. pTDefRegMap(@Self)^.&set := $00040000;
  16036. end;
  16037. procedure TADC10_AD1CHS.clearCH0SA2; inline;
  16038. begin
  16039. pTDefRegMap(@Self)^.clr := $00040000;
  16040. end;
  16041. procedure TADC10_AD1CHS.setCH0SA2(thebits : TBits_1); inline;
  16042. begin
  16043. if thebits = 0 then
  16044. pTDefRegMap(@Self)^.clr := $00040000
  16045. else
  16046. pTDefRegMap(@Self)^.&set := $00040000;
  16047. end;
  16048. function TADC10_AD1CHS.getCH0SA2 : TBits_1; inline;
  16049. begin
  16050. getCH0SA2 := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  16051. end;
  16052. procedure TADC10_AD1CHS.setCH0SA3; inline;
  16053. begin
  16054. pTDefRegMap(@Self)^.&set := $00080000;
  16055. end;
  16056. procedure TADC10_AD1CHS.clearCH0SA3; inline;
  16057. begin
  16058. pTDefRegMap(@Self)^.clr := $00080000;
  16059. end;
  16060. procedure TADC10_AD1CHS.setCH0SA3(thebits : TBits_1); inline;
  16061. begin
  16062. if thebits = 0 then
  16063. pTDefRegMap(@Self)^.clr := $00080000
  16064. else
  16065. pTDefRegMap(@Self)^.&set := $00080000;
  16066. end;
  16067. function TADC10_AD1CHS.getCH0SA3 : TBits_1; inline;
  16068. begin
  16069. getCH0SA3 := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  16070. end;
  16071. procedure TADC10_AD1CHS.setCH0SB0; inline;
  16072. begin
  16073. pTDefRegMap(@Self)^.&set := $01000000;
  16074. end;
  16075. procedure TADC10_AD1CHS.clearCH0SB0; inline;
  16076. begin
  16077. pTDefRegMap(@Self)^.clr := $01000000;
  16078. end;
  16079. procedure TADC10_AD1CHS.setCH0SB0(thebits : TBits_1); inline;
  16080. begin
  16081. if thebits = 0 then
  16082. pTDefRegMap(@Self)^.clr := $01000000
  16083. else
  16084. pTDefRegMap(@Self)^.&set := $01000000;
  16085. end;
  16086. function TADC10_AD1CHS.getCH0SB0 : TBits_1; inline;
  16087. begin
  16088. getCH0SB0 := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  16089. end;
  16090. procedure TADC10_AD1CHS.setCH0SB1; inline;
  16091. begin
  16092. pTDefRegMap(@Self)^.&set := $02000000;
  16093. end;
  16094. procedure TADC10_AD1CHS.clearCH0SB1; inline;
  16095. begin
  16096. pTDefRegMap(@Self)^.clr := $02000000;
  16097. end;
  16098. procedure TADC10_AD1CHS.setCH0SB1(thebits : TBits_1); inline;
  16099. begin
  16100. if thebits = 0 then
  16101. pTDefRegMap(@Self)^.clr := $02000000
  16102. else
  16103. pTDefRegMap(@Self)^.&set := $02000000;
  16104. end;
  16105. function TADC10_AD1CHS.getCH0SB1 : TBits_1; inline;
  16106. begin
  16107. getCH0SB1 := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  16108. end;
  16109. procedure TADC10_AD1CHS.setCH0SB2; inline;
  16110. begin
  16111. pTDefRegMap(@Self)^.&set := $04000000;
  16112. end;
  16113. procedure TADC10_AD1CHS.clearCH0SB2; inline;
  16114. begin
  16115. pTDefRegMap(@Self)^.clr := $04000000;
  16116. end;
  16117. procedure TADC10_AD1CHS.setCH0SB2(thebits : TBits_1); inline;
  16118. begin
  16119. if thebits = 0 then
  16120. pTDefRegMap(@Self)^.clr := $04000000
  16121. else
  16122. pTDefRegMap(@Self)^.&set := $04000000;
  16123. end;
  16124. function TADC10_AD1CHS.getCH0SB2 : TBits_1; inline;
  16125. begin
  16126. getCH0SB2 := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  16127. end;
  16128. procedure TADC10_AD1CHS.setCH0SB3; inline;
  16129. begin
  16130. pTDefRegMap(@Self)^.&set := $08000000;
  16131. end;
  16132. procedure TADC10_AD1CHS.clearCH0SB3; inline;
  16133. begin
  16134. pTDefRegMap(@Self)^.clr := $08000000;
  16135. end;
  16136. procedure TADC10_AD1CHS.setCH0SB3(thebits : TBits_1); inline;
  16137. begin
  16138. if thebits = 0 then
  16139. pTDefRegMap(@Self)^.clr := $08000000
  16140. else
  16141. pTDefRegMap(@Self)^.&set := $08000000;
  16142. end;
  16143. function TADC10_AD1CHS.getCH0SB3 : TBits_1; inline;
  16144. begin
  16145. getCH0SB3 := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  16146. end;
  16147. procedure TADC10_AD1CHS.setw(thebits : TBits_32); inline;
  16148. begin
  16149. pTDefRegMap(@Self)^.val := thebits;
  16150. end;
  16151. function TADC10_AD1CHS.getw : TBits_32; inline;
  16152. begin
  16153. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  16154. end;
  16155. procedure TADC10_AD1CSSL.setCSSL(thebits : TBits_16); inline;
  16156. begin
  16157. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF0000 or ( thebits shl 0 );
  16158. end;
  16159. function TADC10_AD1CSSL.getCSSL : TBits_16; inline;
  16160. begin
  16161. getCSSL := (pTDefRegMap(@Self)^.val and $0000FFFF) shr 0;
  16162. end;
  16163. procedure TADC10_AD1CSSL.setCSSL0; inline;
  16164. begin
  16165. pTDefRegMap(@Self)^.&set := $00000001;
  16166. end;
  16167. procedure TADC10_AD1CSSL.clearCSSL0; inline;
  16168. begin
  16169. pTDefRegMap(@Self)^.clr := $00000001;
  16170. end;
  16171. procedure TADC10_AD1CSSL.setCSSL0(thebits : TBits_1); inline;
  16172. begin
  16173. if thebits = 0 then
  16174. pTDefRegMap(@Self)^.clr := $00000001
  16175. else
  16176. pTDefRegMap(@Self)^.&set := $00000001;
  16177. end;
  16178. function TADC10_AD1CSSL.getCSSL0 : TBits_1; inline;
  16179. begin
  16180. getCSSL0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  16181. end;
  16182. procedure TADC10_AD1CSSL.setCSSL1; inline;
  16183. begin
  16184. pTDefRegMap(@Self)^.&set := $00000002;
  16185. end;
  16186. procedure TADC10_AD1CSSL.clearCSSL1; inline;
  16187. begin
  16188. pTDefRegMap(@Self)^.clr := $00000002;
  16189. end;
  16190. procedure TADC10_AD1CSSL.setCSSL1(thebits : TBits_1); inline;
  16191. begin
  16192. if thebits = 0 then
  16193. pTDefRegMap(@Self)^.clr := $00000002
  16194. else
  16195. pTDefRegMap(@Self)^.&set := $00000002;
  16196. end;
  16197. function TADC10_AD1CSSL.getCSSL1 : TBits_1; inline;
  16198. begin
  16199. getCSSL1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  16200. end;
  16201. procedure TADC10_AD1CSSL.setCSSL2; inline;
  16202. begin
  16203. pTDefRegMap(@Self)^.&set := $00000004;
  16204. end;
  16205. procedure TADC10_AD1CSSL.clearCSSL2; inline;
  16206. begin
  16207. pTDefRegMap(@Self)^.clr := $00000004;
  16208. end;
  16209. procedure TADC10_AD1CSSL.setCSSL2(thebits : TBits_1); inline;
  16210. begin
  16211. if thebits = 0 then
  16212. pTDefRegMap(@Self)^.clr := $00000004
  16213. else
  16214. pTDefRegMap(@Self)^.&set := $00000004;
  16215. end;
  16216. function TADC10_AD1CSSL.getCSSL2 : TBits_1; inline;
  16217. begin
  16218. getCSSL2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  16219. end;
  16220. procedure TADC10_AD1CSSL.setCSSL3; inline;
  16221. begin
  16222. pTDefRegMap(@Self)^.&set := $00000008;
  16223. end;
  16224. procedure TADC10_AD1CSSL.clearCSSL3; inline;
  16225. begin
  16226. pTDefRegMap(@Self)^.clr := $00000008;
  16227. end;
  16228. procedure TADC10_AD1CSSL.setCSSL3(thebits : TBits_1); inline;
  16229. begin
  16230. if thebits = 0 then
  16231. pTDefRegMap(@Self)^.clr := $00000008
  16232. else
  16233. pTDefRegMap(@Self)^.&set := $00000008;
  16234. end;
  16235. function TADC10_AD1CSSL.getCSSL3 : TBits_1; inline;
  16236. begin
  16237. getCSSL3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  16238. end;
  16239. procedure TADC10_AD1CSSL.setCSSL4; inline;
  16240. begin
  16241. pTDefRegMap(@Self)^.&set := $00000010;
  16242. end;
  16243. procedure TADC10_AD1CSSL.clearCSSL4; inline;
  16244. begin
  16245. pTDefRegMap(@Self)^.clr := $00000010;
  16246. end;
  16247. procedure TADC10_AD1CSSL.setCSSL4(thebits : TBits_1); inline;
  16248. begin
  16249. if thebits = 0 then
  16250. pTDefRegMap(@Self)^.clr := $00000010
  16251. else
  16252. pTDefRegMap(@Self)^.&set := $00000010;
  16253. end;
  16254. function TADC10_AD1CSSL.getCSSL4 : TBits_1; inline;
  16255. begin
  16256. getCSSL4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  16257. end;
  16258. procedure TADC10_AD1CSSL.setCSSL5; inline;
  16259. begin
  16260. pTDefRegMap(@Self)^.&set := $00000020;
  16261. end;
  16262. procedure TADC10_AD1CSSL.clearCSSL5; inline;
  16263. begin
  16264. pTDefRegMap(@Self)^.clr := $00000020;
  16265. end;
  16266. procedure TADC10_AD1CSSL.setCSSL5(thebits : TBits_1); inline;
  16267. begin
  16268. if thebits = 0 then
  16269. pTDefRegMap(@Self)^.clr := $00000020
  16270. else
  16271. pTDefRegMap(@Self)^.&set := $00000020;
  16272. end;
  16273. function TADC10_AD1CSSL.getCSSL5 : TBits_1; inline;
  16274. begin
  16275. getCSSL5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  16276. end;
  16277. procedure TADC10_AD1CSSL.setCSSL6; inline;
  16278. begin
  16279. pTDefRegMap(@Self)^.&set := $00000040;
  16280. end;
  16281. procedure TADC10_AD1CSSL.clearCSSL6; inline;
  16282. begin
  16283. pTDefRegMap(@Self)^.clr := $00000040;
  16284. end;
  16285. procedure TADC10_AD1CSSL.setCSSL6(thebits : TBits_1); inline;
  16286. begin
  16287. if thebits = 0 then
  16288. pTDefRegMap(@Self)^.clr := $00000040
  16289. else
  16290. pTDefRegMap(@Self)^.&set := $00000040;
  16291. end;
  16292. function TADC10_AD1CSSL.getCSSL6 : TBits_1; inline;
  16293. begin
  16294. getCSSL6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  16295. end;
  16296. procedure TADC10_AD1CSSL.setCSSL7; inline;
  16297. begin
  16298. pTDefRegMap(@Self)^.&set := $00000080;
  16299. end;
  16300. procedure TADC10_AD1CSSL.clearCSSL7; inline;
  16301. begin
  16302. pTDefRegMap(@Self)^.clr := $00000080;
  16303. end;
  16304. procedure TADC10_AD1CSSL.setCSSL7(thebits : TBits_1); inline;
  16305. begin
  16306. if thebits = 0 then
  16307. pTDefRegMap(@Self)^.clr := $00000080
  16308. else
  16309. pTDefRegMap(@Self)^.&set := $00000080;
  16310. end;
  16311. function TADC10_AD1CSSL.getCSSL7 : TBits_1; inline;
  16312. begin
  16313. getCSSL7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  16314. end;
  16315. procedure TADC10_AD1CSSL.setCSSL8; inline;
  16316. begin
  16317. pTDefRegMap(@Self)^.&set := $00000100;
  16318. end;
  16319. procedure TADC10_AD1CSSL.clearCSSL8; inline;
  16320. begin
  16321. pTDefRegMap(@Self)^.clr := $00000100;
  16322. end;
  16323. procedure TADC10_AD1CSSL.setCSSL8(thebits : TBits_1); inline;
  16324. begin
  16325. if thebits = 0 then
  16326. pTDefRegMap(@Self)^.clr := $00000100
  16327. else
  16328. pTDefRegMap(@Self)^.&set := $00000100;
  16329. end;
  16330. function TADC10_AD1CSSL.getCSSL8 : TBits_1; inline;
  16331. begin
  16332. getCSSL8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  16333. end;
  16334. procedure TADC10_AD1CSSL.setCSSL9; inline;
  16335. begin
  16336. pTDefRegMap(@Self)^.&set := $00000200;
  16337. end;
  16338. procedure TADC10_AD1CSSL.clearCSSL9; inline;
  16339. begin
  16340. pTDefRegMap(@Self)^.clr := $00000200;
  16341. end;
  16342. procedure TADC10_AD1CSSL.setCSSL9(thebits : TBits_1); inline;
  16343. begin
  16344. if thebits = 0 then
  16345. pTDefRegMap(@Self)^.clr := $00000200
  16346. else
  16347. pTDefRegMap(@Self)^.&set := $00000200;
  16348. end;
  16349. function TADC10_AD1CSSL.getCSSL9 : TBits_1; inline;
  16350. begin
  16351. getCSSL9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  16352. end;
  16353. procedure TADC10_AD1CSSL.setCSSL10; inline;
  16354. begin
  16355. pTDefRegMap(@Self)^.&set := $00000400;
  16356. end;
  16357. procedure TADC10_AD1CSSL.clearCSSL10; inline;
  16358. begin
  16359. pTDefRegMap(@Self)^.clr := $00000400;
  16360. end;
  16361. procedure TADC10_AD1CSSL.setCSSL10(thebits : TBits_1); inline;
  16362. begin
  16363. if thebits = 0 then
  16364. pTDefRegMap(@Self)^.clr := $00000400
  16365. else
  16366. pTDefRegMap(@Self)^.&set := $00000400;
  16367. end;
  16368. function TADC10_AD1CSSL.getCSSL10 : TBits_1; inline;
  16369. begin
  16370. getCSSL10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  16371. end;
  16372. procedure TADC10_AD1CSSL.setCSSL11; inline;
  16373. begin
  16374. pTDefRegMap(@Self)^.&set := $00000800;
  16375. end;
  16376. procedure TADC10_AD1CSSL.clearCSSL11; inline;
  16377. begin
  16378. pTDefRegMap(@Self)^.clr := $00000800;
  16379. end;
  16380. procedure TADC10_AD1CSSL.setCSSL11(thebits : TBits_1); inline;
  16381. begin
  16382. if thebits = 0 then
  16383. pTDefRegMap(@Self)^.clr := $00000800
  16384. else
  16385. pTDefRegMap(@Self)^.&set := $00000800;
  16386. end;
  16387. function TADC10_AD1CSSL.getCSSL11 : TBits_1; inline;
  16388. begin
  16389. getCSSL11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  16390. end;
  16391. procedure TADC10_AD1CSSL.setCSSL12; inline;
  16392. begin
  16393. pTDefRegMap(@Self)^.&set := $00001000;
  16394. end;
  16395. procedure TADC10_AD1CSSL.clearCSSL12; inline;
  16396. begin
  16397. pTDefRegMap(@Self)^.clr := $00001000;
  16398. end;
  16399. procedure TADC10_AD1CSSL.setCSSL12(thebits : TBits_1); inline;
  16400. begin
  16401. if thebits = 0 then
  16402. pTDefRegMap(@Self)^.clr := $00001000
  16403. else
  16404. pTDefRegMap(@Self)^.&set := $00001000;
  16405. end;
  16406. function TADC10_AD1CSSL.getCSSL12 : TBits_1; inline;
  16407. begin
  16408. getCSSL12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  16409. end;
  16410. procedure TADC10_AD1CSSL.setCSSL13; inline;
  16411. begin
  16412. pTDefRegMap(@Self)^.&set := $00002000;
  16413. end;
  16414. procedure TADC10_AD1CSSL.clearCSSL13; inline;
  16415. begin
  16416. pTDefRegMap(@Self)^.clr := $00002000;
  16417. end;
  16418. procedure TADC10_AD1CSSL.setCSSL13(thebits : TBits_1); inline;
  16419. begin
  16420. if thebits = 0 then
  16421. pTDefRegMap(@Self)^.clr := $00002000
  16422. else
  16423. pTDefRegMap(@Self)^.&set := $00002000;
  16424. end;
  16425. function TADC10_AD1CSSL.getCSSL13 : TBits_1; inline;
  16426. begin
  16427. getCSSL13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  16428. end;
  16429. procedure TADC10_AD1CSSL.setCSSL14; inline;
  16430. begin
  16431. pTDefRegMap(@Self)^.&set := $00004000;
  16432. end;
  16433. procedure TADC10_AD1CSSL.clearCSSL14; inline;
  16434. begin
  16435. pTDefRegMap(@Self)^.clr := $00004000;
  16436. end;
  16437. procedure TADC10_AD1CSSL.setCSSL14(thebits : TBits_1); inline;
  16438. begin
  16439. if thebits = 0 then
  16440. pTDefRegMap(@Self)^.clr := $00004000
  16441. else
  16442. pTDefRegMap(@Self)^.&set := $00004000;
  16443. end;
  16444. function TADC10_AD1CSSL.getCSSL14 : TBits_1; inline;
  16445. begin
  16446. getCSSL14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  16447. end;
  16448. procedure TADC10_AD1CSSL.setCSSL15; inline;
  16449. begin
  16450. pTDefRegMap(@Self)^.&set := $00008000;
  16451. end;
  16452. procedure TADC10_AD1CSSL.clearCSSL15; inline;
  16453. begin
  16454. pTDefRegMap(@Self)^.clr := $00008000;
  16455. end;
  16456. procedure TADC10_AD1CSSL.setCSSL15(thebits : TBits_1); inline;
  16457. begin
  16458. if thebits = 0 then
  16459. pTDefRegMap(@Self)^.clr := $00008000
  16460. else
  16461. pTDefRegMap(@Self)^.&set := $00008000;
  16462. end;
  16463. function TADC10_AD1CSSL.getCSSL15 : TBits_1; inline;
  16464. begin
  16465. getCSSL15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  16466. end;
  16467. procedure TADC10_AD1CSSL.setw(thebits : TBits_32); inline;
  16468. begin
  16469. pTDefRegMap(@Self)^.val := thebits;
  16470. end;
  16471. function TADC10_AD1CSSL.getw : TBits_32; inline;
  16472. begin
  16473. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  16474. end;
  16475. procedure TADC10_AD1PCFG.setPCFG(thebits : TBits_16); inline;
  16476. begin
  16477. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF0000 or ( thebits shl 0 );
  16478. end;
  16479. function TADC10_AD1PCFG.getPCFG : TBits_16; inline;
  16480. begin
  16481. getPCFG := (pTDefRegMap(@Self)^.val and $0000FFFF) shr 0;
  16482. end;
  16483. procedure TADC10_AD1PCFG.setPCFG0; inline;
  16484. begin
  16485. pTDefRegMap(@Self)^.&set := $00000001;
  16486. end;
  16487. procedure TADC10_AD1PCFG.clearPCFG0; inline;
  16488. begin
  16489. pTDefRegMap(@Self)^.clr := $00000001;
  16490. end;
  16491. procedure TADC10_AD1PCFG.setPCFG0(thebits : TBits_1); inline;
  16492. begin
  16493. if thebits = 0 then
  16494. pTDefRegMap(@Self)^.clr := $00000001
  16495. else
  16496. pTDefRegMap(@Self)^.&set := $00000001;
  16497. end;
  16498. function TADC10_AD1PCFG.getPCFG0 : TBits_1; inline;
  16499. begin
  16500. getPCFG0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  16501. end;
  16502. procedure TADC10_AD1PCFG.setPCFG1; inline;
  16503. begin
  16504. pTDefRegMap(@Self)^.&set := $00000002;
  16505. end;
  16506. procedure TADC10_AD1PCFG.clearPCFG1; inline;
  16507. begin
  16508. pTDefRegMap(@Self)^.clr := $00000002;
  16509. end;
  16510. procedure TADC10_AD1PCFG.setPCFG1(thebits : TBits_1); inline;
  16511. begin
  16512. if thebits = 0 then
  16513. pTDefRegMap(@Self)^.clr := $00000002
  16514. else
  16515. pTDefRegMap(@Self)^.&set := $00000002;
  16516. end;
  16517. function TADC10_AD1PCFG.getPCFG1 : TBits_1; inline;
  16518. begin
  16519. getPCFG1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  16520. end;
  16521. procedure TADC10_AD1PCFG.setPCFG2; inline;
  16522. begin
  16523. pTDefRegMap(@Self)^.&set := $00000004;
  16524. end;
  16525. procedure TADC10_AD1PCFG.clearPCFG2; inline;
  16526. begin
  16527. pTDefRegMap(@Self)^.clr := $00000004;
  16528. end;
  16529. procedure TADC10_AD1PCFG.setPCFG2(thebits : TBits_1); inline;
  16530. begin
  16531. if thebits = 0 then
  16532. pTDefRegMap(@Self)^.clr := $00000004
  16533. else
  16534. pTDefRegMap(@Self)^.&set := $00000004;
  16535. end;
  16536. function TADC10_AD1PCFG.getPCFG2 : TBits_1; inline;
  16537. begin
  16538. getPCFG2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  16539. end;
  16540. procedure TADC10_AD1PCFG.setPCFG3; inline;
  16541. begin
  16542. pTDefRegMap(@Self)^.&set := $00000008;
  16543. end;
  16544. procedure TADC10_AD1PCFG.clearPCFG3; inline;
  16545. begin
  16546. pTDefRegMap(@Self)^.clr := $00000008;
  16547. end;
  16548. procedure TADC10_AD1PCFG.setPCFG3(thebits : TBits_1); inline;
  16549. begin
  16550. if thebits = 0 then
  16551. pTDefRegMap(@Self)^.clr := $00000008
  16552. else
  16553. pTDefRegMap(@Self)^.&set := $00000008;
  16554. end;
  16555. function TADC10_AD1PCFG.getPCFG3 : TBits_1; inline;
  16556. begin
  16557. getPCFG3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  16558. end;
  16559. procedure TADC10_AD1PCFG.setPCFG4; inline;
  16560. begin
  16561. pTDefRegMap(@Self)^.&set := $00000010;
  16562. end;
  16563. procedure TADC10_AD1PCFG.clearPCFG4; inline;
  16564. begin
  16565. pTDefRegMap(@Self)^.clr := $00000010;
  16566. end;
  16567. procedure TADC10_AD1PCFG.setPCFG4(thebits : TBits_1); inline;
  16568. begin
  16569. if thebits = 0 then
  16570. pTDefRegMap(@Self)^.clr := $00000010
  16571. else
  16572. pTDefRegMap(@Self)^.&set := $00000010;
  16573. end;
  16574. function TADC10_AD1PCFG.getPCFG4 : TBits_1; inline;
  16575. begin
  16576. getPCFG4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  16577. end;
  16578. procedure TADC10_AD1PCFG.setPCFG5; inline;
  16579. begin
  16580. pTDefRegMap(@Self)^.&set := $00000020;
  16581. end;
  16582. procedure TADC10_AD1PCFG.clearPCFG5; inline;
  16583. begin
  16584. pTDefRegMap(@Self)^.clr := $00000020;
  16585. end;
  16586. procedure TADC10_AD1PCFG.setPCFG5(thebits : TBits_1); inline;
  16587. begin
  16588. if thebits = 0 then
  16589. pTDefRegMap(@Self)^.clr := $00000020
  16590. else
  16591. pTDefRegMap(@Self)^.&set := $00000020;
  16592. end;
  16593. function TADC10_AD1PCFG.getPCFG5 : TBits_1; inline;
  16594. begin
  16595. getPCFG5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  16596. end;
  16597. procedure TADC10_AD1PCFG.setPCFG6; inline;
  16598. begin
  16599. pTDefRegMap(@Self)^.&set := $00000040;
  16600. end;
  16601. procedure TADC10_AD1PCFG.clearPCFG6; inline;
  16602. begin
  16603. pTDefRegMap(@Self)^.clr := $00000040;
  16604. end;
  16605. procedure TADC10_AD1PCFG.setPCFG6(thebits : TBits_1); inline;
  16606. begin
  16607. if thebits = 0 then
  16608. pTDefRegMap(@Self)^.clr := $00000040
  16609. else
  16610. pTDefRegMap(@Self)^.&set := $00000040;
  16611. end;
  16612. function TADC10_AD1PCFG.getPCFG6 : TBits_1; inline;
  16613. begin
  16614. getPCFG6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  16615. end;
  16616. procedure TADC10_AD1PCFG.setPCFG7; inline;
  16617. begin
  16618. pTDefRegMap(@Self)^.&set := $00000080;
  16619. end;
  16620. procedure TADC10_AD1PCFG.clearPCFG7; inline;
  16621. begin
  16622. pTDefRegMap(@Self)^.clr := $00000080;
  16623. end;
  16624. procedure TADC10_AD1PCFG.setPCFG7(thebits : TBits_1); inline;
  16625. begin
  16626. if thebits = 0 then
  16627. pTDefRegMap(@Self)^.clr := $00000080
  16628. else
  16629. pTDefRegMap(@Self)^.&set := $00000080;
  16630. end;
  16631. function TADC10_AD1PCFG.getPCFG7 : TBits_1; inline;
  16632. begin
  16633. getPCFG7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  16634. end;
  16635. procedure TADC10_AD1PCFG.setPCFG8; inline;
  16636. begin
  16637. pTDefRegMap(@Self)^.&set := $00000100;
  16638. end;
  16639. procedure TADC10_AD1PCFG.clearPCFG8; inline;
  16640. begin
  16641. pTDefRegMap(@Self)^.clr := $00000100;
  16642. end;
  16643. procedure TADC10_AD1PCFG.setPCFG8(thebits : TBits_1); inline;
  16644. begin
  16645. if thebits = 0 then
  16646. pTDefRegMap(@Self)^.clr := $00000100
  16647. else
  16648. pTDefRegMap(@Self)^.&set := $00000100;
  16649. end;
  16650. function TADC10_AD1PCFG.getPCFG8 : TBits_1; inline;
  16651. begin
  16652. getPCFG8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  16653. end;
  16654. procedure TADC10_AD1PCFG.setPCFG9; inline;
  16655. begin
  16656. pTDefRegMap(@Self)^.&set := $00000200;
  16657. end;
  16658. procedure TADC10_AD1PCFG.clearPCFG9; inline;
  16659. begin
  16660. pTDefRegMap(@Self)^.clr := $00000200;
  16661. end;
  16662. procedure TADC10_AD1PCFG.setPCFG9(thebits : TBits_1); inline;
  16663. begin
  16664. if thebits = 0 then
  16665. pTDefRegMap(@Self)^.clr := $00000200
  16666. else
  16667. pTDefRegMap(@Self)^.&set := $00000200;
  16668. end;
  16669. function TADC10_AD1PCFG.getPCFG9 : TBits_1; inline;
  16670. begin
  16671. getPCFG9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  16672. end;
  16673. procedure TADC10_AD1PCFG.setPCFG10; inline;
  16674. begin
  16675. pTDefRegMap(@Self)^.&set := $00000400;
  16676. end;
  16677. procedure TADC10_AD1PCFG.clearPCFG10; inline;
  16678. begin
  16679. pTDefRegMap(@Self)^.clr := $00000400;
  16680. end;
  16681. procedure TADC10_AD1PCFG.setPCFG10(thebits : TBits_1); inline;
  16682. begin
  16683. if thebits = 0 then
  16684. pTDefRegMap(@Self)^.clr := $00000400
  16685. else
  16686. pTDefRegMap(@Self)^.&set := $00000400;
  16687. end;
  16688. function TADC10_AD1PCFG.getPCFG10 : TBits_1; inline;
  16689. begin
  16690. getPCFG10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  16691. end;
  16692. procedure TADC10_AD1PCFG.setPCFG11; inline;
  16693. begin
  16694. pTDefRegMap(@Self)^.&set := $00000800;
  16695. end;
  16696. procedure TADC10_AD1PCFG.clearPCFG11; inline;
  16697. begin
  16698. pTDefRegMap(@Self)^.clr := $00000800;
  16699. end;
  16700. procedure TADC10_AD1PCFG.setPCFG11(thebits : TBits_1); inline;
  16701. begin
  16702. if thebits = 0 then
  16703. pTDefRegMap(@Self)^.clr := $00000800
  16704. else
  16705. pTDefRegMap(@Self)^.&set := $00000800;
  16706. end;
  16707. function TADC10_AD1PCFG.getPCFG11 : TBits_1; inline;
  16708. begin
  16709. getPCFG11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  16710. end;
  16711. procedure TADC10_AD1PCFG.setPCFG12; inline;
  16712. begin
  16713. pTDefRegMap(@Self)^.&set := $00001000;
  16714. end;
  16715. procedure TADC10_AD1PCFG.clearPCFG12; inline;
  16716. begin
  16717. pTDefRegMap(@Self)^.clr := $00001000;
  16718. end;
  16719. procedure TADC10_AD1PCFG.setPCFG12(thebits : TBits_1); inline;
  16720. begin
  16721. if thebits = 0 then
  16722. pTDefRegMap(@Self)^.clr := $00001000
  16723. else
  16724. pTDefRegMap(@Self)^.&set := $00001000;
  16725. end;
  16726. function TADC10_AD1PCFG.getPCFG12 : TBits_1; inline;
  16727. begin
  16728. getPCFG12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  16729. end;
  16730. procedure TADC10_AD1PCFG.setPCFG13; inline;
  16731. begin
  16732. pTDefRegMap(@Self)^.&set := $00002000;
  16733. end;
  16734. procedure TADC10_AD1PCFG.clearPCFG13; inline;
  16735. begin
  16736. pTDefRegMap(@Self)^.clr := $00002000;
  16737. end;
  16738. procedure TADC10_AD1PCFG.setPCFG13(thebits : TBits_1); inline;
  16739. begin
  16740. if thebits = 0 then
  16741. pTDefRegMap(@Self)^.clr := $00002000
  16742. else
  16743. pTDefRegMap(@Self)^.&set := $00002000;
  16744. end;
  16745. function TADC10_AD1PCFG.getPCFG13 : TBits_1; inline;
  16746. begin
  16747. getPCFG13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  16748. end;
  16749. procedure TADC10_AD1PCFG.setPCFG14; inline;
  16750. begin
  16751. pTDefRegMap(@Self)^.&set := $00004000;
  16752. end;
  16753. procedure TADC10_AD1PCFG.clearPCFG14; inline;
  16754. begin
  16755. pTDefRegMap(@Self)^.clr := $00004000;
  16756. end;
  16757. procedure TADC10_AD1PCFG.setPCFG14(thebits : TBits_1); inline;
  16758. begin
  16759. if thebits = 0 then
  16760. pTDefRegMap(@Self)^.clr := $00004000
  16761. else
  16762. pTDefRegMap(@Self)^.&set := $00004000;
  16763. end;
  16764. function TADC10_AD1PCFG.getPCFG14 : TBits_1; inline;
  16765. begin
  16766. getPCFG14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  16767. end;
  16768. procedure TADC10_AD1PCFG.setPCFG15; inline;
  16769. begin
  16770. pTDefRegMap(@Self)^.&set := $00008000;
  16771. end;
  16772. procedure TADC10_AD1PCFG.clearPCFG15; inline;
  16773. begin
  16774. pTDefRegMap(@Self)^.clr := $00008000;
  16775. end;
  16776. procedure TADC10_AD1PCFG.setPCFG15(thebits : TBits_1); inline;
  16777. begin
  16778. if thebits = 0 then
  16779. pTDefRegMap(@Self)^.clr := $00008000
  16780. else
  16781. pTDefRegMap(@Self)^.&set := $00008000;
  16782. end;
  16783. function TADC10_AD1PCFG.getPCFG15 : TBits_1; inline;
  16784. begin
  16785. getPCFG15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  16786. end;
  16787. procedure TADC10_AD1PCFG.setw(thebits : TBits_32); inline;
  16788. begin
  16789. pTDefRegMap(@Self)^.val := thebits;
  16790. end;
  16791. function TADC10_AD1PCFG.getw : TBits_32; inline;
  16792. begin
  16793. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  16794. end;
  16795. procedure TCVR_CVRCON.setCVR(thebits : TBits_4); inline;
  16796. begin
  16797. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF0 or ( thebits shl 0 );
  16798. end;
  16799. function TCVR_CVRCON.getCVR : TBits_4; inline;
  16800. begin
  16801. getCVR := (pTDefRegMap(@Self)^.val and $0000000F) shr 0;
  16802. end;
  16803. procedure TCVR_CVRCON.setCVRSS; inline;
  16804. begin
  16805. pTDefRegMap(@Self)^.&set := $00000010;
  16806. end;
  16807. procedure TCVR_CVRCON.clearCVRSS; inline;
  16808. begin
  16809. pTDefRegMap(@Self)^.clr := $00000010;
  16810. end;
  16811. procedure TCVR_CVRCON.setCVRSS(thebits : TBits_1); inline;
  16812. begin
  16813. if thebits = 0 then
  16814. pTDefRegMap(@Self)^.clr := $00000010
  16815. else
  16816. pTDefRegMap(@Self)^.&set := $00000010;
  16817. end;
  16818. function TCVR_CVRCON.getCVRSS : TBits_1; inline;
  16819. begin
  16820. getCVRSS := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  16821. end;
  16822. procedure TCVR_CVRCON.setCVRR; inline;
  16823. begin
  16824. pTDefRegMap(@Self)^.&set := $00000020;
  16825. end;
  16826. procedure TCVR_CVRCON.clearCVRR; inline;
  16827. begin
  16828. pTDefRegMap(@Self)^.clr := $00000020;
  16829. end;
  16830. procedure TCVR_CVRCON.setCVRR(thebits : TBits_1); inline;
  16831. begin
  16832. if thebits = 0 then
  16833. pTDefRegMap(@Self)^.clr := $00000020
  16834. else
  16835. pTDefRegMap(@Self)^.&set := $00000020;
  16836. end;
  16837. function TCVR_CVRCON.getCVRR : TBits_1; inline;
  16838. begin
  16839. getCVRR := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  16840. end;
  16841. procedure TCVR_CVRCON.setCVROE; inline;
  16842. begin
  16843. pTDefRegMap(@Self)^.&set := $00000040;
  16844. end;
  16845. procedure TCVR_CVRCON.clearCVROE; inline;
  16846. begin
  16847. pTDefRegMap(@Self)^.clr := $00000040;
  16848. end;
  16849. procedure TCVR_CVRCON.setCVROE(thebits : TBits_1); inline;
  16850. begin
  16851. if thebits = 0 then
  16852. pTDefRegMap(@Self)^.clr := $00000040
  16853. else
  16854. pTDefRegMap(@Self)^.&set := $00000040;
  16855. end;
  16856. function TCVR_CVRCON.getCVROE : TBits_1; inline;
  16857. begin
  16858. getCVROE := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  16859. end;
  16860. procedure TCVR_CVRCON.setON; inline;
  16861. begin
  16862. pTDefRegMap(@Self)^.&set := $00008000;
  16863. end;
  16864. procedure TCVR_CVRCON.clearON; inline;
  16865. begin
  16866. pTDefRegMap(@Self)^.clr := $00008000;
  16867. end;
  16868. procedure TCVR_CVRCON.setON(thebits : TBits_1); inline;
  16869. begin
  16870. if thebits = 0 then
  16871. pTDefRegMap(@Self)^.clr := $00008000
  16872. else
  16873. pTDefRegMap(@Self)^.&set := $00008000;
  16874. end;
  16875. function TCVR_CVRCON.getON : TBits_1; inline;
  16876. begin
  16877. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  16878. end;
  16879. procedure TCVR_CVRCON.setCVR0; inline;
  16880. begin
  16881. pTDefRegMap(@Self)^.&set := $00000001;
  16882. end;
  16883. procedure TCVR_CVRCON.clearCVR0; inline;
  16884. begin
  16885. pTDefRegMap(@Self)^.clr := $00000001;
  16886. end;
  16887. procedure TCVR_CVRCON.setCVR0(thebits : TBits_1); inline;
  16888. begin
  16889. if thebits = 0 then
  16890. pTDefRegMap(@Self)^.clr := $00000001
  16891. else
  16892. pTDefRegMap(@Self)^.&set := $00000001;
  16893. end;
  16894. function TCVR_CVRCON.getCVR0 : TBits_1; inline;
  16895. begin
  16896. getCVR0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  16897. end;
  16898. procedure TCVR_CVRCON.setCVR1; inline;
  16899. begin
  16900. pTDefRegMap(@Self)^.&set := $00000002;
  16901. end;
  16902. procedure TCVR_CVRCON.clearCVR1; inline;
  16903. begin
  16904. pTDefRegMap(@Self)^.clr := $00000002;
  16905. end;
  16906. procedure TCVR_CVRCON.setCVR1(thebits : TBits_1); inline;
  16907. begin
  16908. if thebits = 0 then
  16909. pTDefRegMap(@Self)^.clr := $00000002
  16910. else
  16911. pTDefRegMap(@Self)^.&set := $00000002;
  16912. end;
  16913. function TCVR_CVRCON.getCVR1 : TBits_1; inline;
  16914. begin
  16915. getCVR1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  16916. end;
  16917. procedure TCVR_CVRCON.setCVR2; inline;
  16918. begin
  16919. pTDefRegMap(@Self)^.&set := $00000004;
  16920. end;
  16921. procedure TCVR_CVRCON.clearCVR2; inline;
  16922. begin
  16923. pTDefRegMap(@Self)^.clr := $00000004;
  16924. end;
  16925. procedure TCVR_CVRCON.setCVR2(thebits : TBits_1); inline;
  16926. begin
  16927. if thebits = 0 then
  16928. pTDefRegMap(@Self)^.clr := $00000004
  16929. else
  16930. pTDefRegMap(@Self)^.&set := $00000004;
  16931. end;
  16932. function TCVR_CVRCON.getCVR2 : TBits_1; inline;
  16933. begin
  16934. getCVR2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  16935. end;
  16936. procedure TCVR_CVRCON.setCVR3; inline;
  16937. begin
  16938. pTDefRegMap(@Self)^.&set := $00000008;
  16939. end;
  16940. procedure TCVR_CVRCON.clearCVR3; inline;
  16941. begin
  16942. pTDefRegMap(@Self)^.clr := $00000008;
  16943. end;
  16944. procedure TCVR_CVRCON.setCVR3(thebits : TBits_1); inline;
  16945. begin
  16946. if thebits = 0 then
  16947. pTDefRegMap(@Self)^.clr := $00000008
  16948. else
  16949. pTDefRegMap(@Self)^.&set := $00000008;
  16950. end;
  16951. function TCVR_CVRCON.getCVR3 : TBits_1; inline;
  16952. begin
  16953. getCVR3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  16954. end;
  16955. procedure TCVR_CVRCON.setw(thebits : TBits_32); inline;
  16956. begin
  16957. pTDefRegMap(@Self)^.val := thebits;
  16958. end;
  16959. function TCVR_CVRCON.getw : TBits_32; inline;
  16960. begin
  16961. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  16962. end;
  16963. procedure TCMP_CM1CON.setCCH(thebits : TBits_2); inline;
  16964. begin
  16965. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  16966. end;
  16967. function TCMP_CM1CON.getCCH : TBits_2; inline;
  16968. begin
  16969. getCCH := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  16970. end;
  16971. procedure TCMP_CM1CON.setCREF; inline;
  16972. begin
  16973. pTDefRegMap(@Self)^.&set := $00000010;
  16974. end;
  16975. procedure TCMP_CM1CON.clearCREF; inline;
  16976. begin
  16977. pTDefRegMap(@Self)^.clr := $00000010;
  16978. end;
  16979. procedure TCMP_CM1CON.setCREF(thebits : TBits_1); inline;
  16980. begin
  16981. if thebits = 0 then
  16982. pTDefRegMap(@Self)^.clr := $00000010
  16983. else
  16984. pTDefRegMap(@Self)^.&set := $00000010;
  16985. end;
  16986. function TCMP_CM1CON.getCREF : TBits_1; inline;
  16987. begin
  16988. getCREF := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  16989. end;
  16990. procedure TCMP_CM1CON.setEVPOL(thebits : TBits_2); inline;
  16991. begin
  16992. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
  16993. end;
  16994. function TCMP_CM1CON.getEVPOL : TBits_2; inline;
  16995. begin
  16996. getEVPOL := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
  16997. end;
  16998. procedure TCMP_CM1CON.setCOUT; inline;
  16999. begin
  17000. pTDefRegMap(@Self)^.&set := $00000100;
  17001. end;
  17002. procedure TCMP_CM1CON.clearCOUT; inline;
  17003. begin
  17004. pTDefRegMap(@Self)^.clr := $00000100;
  17005. end;
  17006. procedure TCMP_CM1CON.setCOUT(thebits : TBits_1); inline;
  17007. begin
  17008. if thebits = 0 then
  17009. pTDefRegMap(@Self)^.clr := $00000100
  17010. else
  17011. pTDefRegMap(@Self)^.&set := $00000100;
  17012. end;
  17013. function TCMP_CM1CON.getCOUT : TBits_1; inline;
  17014. begin
  17015. getCOUT := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  17016. end;
  17017. procedure TCMP_CM1CON.setCPOL; inline;
  17018. begin
  17019. pTDefRegMap(@Self)^.&set := $00002000;
  17020. end;
  17021. procedure TCMP_CM1CON.clearCPOL; inline;
  17022. begin
  17023. pTDefRegMap(@Self)^.clr := $00002000;
  17024. end;
  17025. procedure TCMP_CM1CON.setCPOL(thebits : TBits_1); inline;
  17026. begin
  17027. if thebits = 0 then
  17028. pTDefRegMap(@Self)^.clr := $00002000
  17029. else
  17030. pTDefRegMap(@Self)^.&set := $00002000;
  17031. end;
  17032. function TCMP_CM1CON.getCPOL : TBits_1; inline;
  17033. begin
  17034. getCPOL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  17035. end;
  17036. procedure TCMP_CM1CON.setCOE; inline;
  17037. begin
  17038. pTDefRegMap(@Self)^.&set := $00004000;
  17039. end;
  17040. procedure TCMP_CM1CON.clearCOE; inline;
  17041. begin
  17042. pTDefRegMap(@Self)^.clr := $00004000;
  17043. end;
  17044. procedure TCMP_CM1CON.setCOE(thebits : TBits_1); inline;
  17045. begin
  17046. if thebits = 0 then
  17047. pTDefRegMap(@Self)^.clr := $00004000
  17048. else
  17049. pTDefRegMap(@Self)^.&set := $00004000;
  17050. end;
  17051. function TCMP_CM1CON.getCOE : TBits_1; inline;
  17052. begin
  17053. getCOE := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  17054. end;
  17055. procedure TCMP_CM1CON.setON; inline;
  17056. begin
  17057. pTDefRegMap(@Self)^.&set := $00008000;
  17058. end;
  17059. procedure TCMP_CM1CON.clearON; inline;
  17060. begin
  17061. pTDefRegMap(@Self)^.clr := $00008000;
  17062. end;
  17063. procedure TCMP_CM1CON.setON(thebits : TBits_1); inline;
  17064. begin
  17065. if thebits = 0 then
  17066. pTDefRegMap(@Self)^.clr := $00008000
  17067. else
  17068. pTDefRegMap(@Self)^.&set := $00008000;
  17069. end;
  17070. function TCMP_CM1CON.getON : TBits_1; inline;
  17071. begin
  17072. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  17073. end;
  17074. procedure TCMP_CM1CON.setCCH0; inline;
  17075. begin
  17076. pTDefRegMap(@Self)^.&set := $00000001;
  17077. end;
  17078. procedure TCMP_CM1CON.clearCCH0; inline;
  17079. begin
  17080. pTDefRegMap(@Self)^.clr := $00000001;
  17081. end;
  17082. procedure TCMP_CM1CON.setCCH0(thebits : TBits_1); inline;
  17083. begin
  17084. if thebits = 0 then
  17085. pTDefRegMap(@Self)^.clr := $00000001
  17086. else
  17087. pTDefRegMap(@Self)^.&set := $00000001;
  17088. end;
  17089. function TCMP_CM1CON.getCCH0 : TBits_1; inline;
  17090. begin
  17091. getCCH0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  17092. end;
  17093. procedure TCMP_CM1CON.setCCH1; inline;
  17094. begin
  17095. pTDefRegMap(@Self)^.&set := $00000002;
  17096. end;
  17097. procedure TCMP_CM1CON.clearCCH1; inline;
  17098. begin
  17099. pTDefRegMap(@Self)^.clr := $00000002;
  17100. end;
  17101. procedure TCMP_CM1CON.setCCH1(thebits : TBits_1); inline;
  17102. begin
  17103. if thebits = 0 then
  17104. pTDefRegMap(@Self)^.clr := $00000002
  17105. else
  17106. pTDefRegMap(@Self)^.&set := $00000002;
  17107. end;
  17108. function TCMP_CM1CON.getCCH1 : TBits_1; inline;
  17109. begin
  17110. getCCH1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  17111. end;
  17112. procedure TCMP_CM1CON.setEVPOL0; inline;
  17113. begin
  17114. pTDefRegMap(@Self)^.&set := $00000040;
  17115. end;
  17116. procedure TCMP_CM1CON.clearEVPOL0; inline;
  17117. begin
  17118. pTDefRegMap(@Self)^.clr := $00000040;
  17119. end;
  17120. procedure TCMP_CM1CON.setEVPOL0(thebits : TBits_1); inline;
  17121. begin
  17122. if thebits = 0 then
  17123. pTDefRegMap(@Self)^.clr := $00000040
  17124. else
  17125. pTDefRegMap(@Self)^.&set := $00000040;
  17126. end;
  17127. function TCMP_CM1CON.getEVPOL0 : TBits_1; inline;
  17128. begin
  17129. getEVPOL0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  17130. end;
  17131. procedure TCMP_CM1CON.setEVPOL1; inline;
  17132. begin
  17133. pTDefRegMap(@Self)^.&set := $00000080;
  17134. end;
  17135. procedure TCMP_CM1CON.clearEVPOL1; inline;
  17136. begin
  17137. pTDefRegMap(@Self)^.clr := $00000080;
  17138. end;
  17139. procedure TCMP_CM1CON.setEVPOL1(thebits : TBits_1); inline;
  17140. begin
  17141. if thebits = 0 then
  17142. pTDefRegMap(@Self)^.clr := $00000080
  17143. else
  17144. pTDefRegMap(@Self)^.&set := $00000080;
  17145. end;
  17146. function TCMP_CM1CON.getEVPOL1 : TBits_1; inline;
  17147. begin
  17148. getEVPOL1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  17149. end;
  17150. procedure TCMP_CM1CON.setw(thebits : TBits_32); inline;
  17151. begin
  17152. pTDefRegMap(@Self)^.val := thebits;
  17153. end;
  17154. function TCMP_CM1CON.getw : TBits_32; inline;
  17155. begin
  17156. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  17157. end;
  17158. procedure TCMP_CM2CON.setCCH(thebits : TBits_2); inline;
  17159. begin
  17160. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  17161. end;
  17162. function TCMP_CM2CON.getCCH : TBits_2; inline;
  17163. begin
  17164. getCCH := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  17165. end;
  17166. procedure TCMP_CM2CON.setCREF; inline;
  17167. begin
  17168. pTDefRegMap(@Self)^.&set := $00000010;
  17169. end;
  17170. procedure TCMP_CM2CON.clearCREF; inline;
  17171. begin
  17172. pTDefRegMap(@Self)^.clr := $00000010;
  17173. end;
  17174. procedure TCMP_CM2CON.setCREF(thebits : TBits_1); inline;
  17175. begin
  17176. if thebits = 0 then
  17177. pTDefRegMap(@Self)^.clr := $00000010
  17178. else
  17179. pTDefRegMap(@Self)^.&set := $00000010;
  17180. end;
  17181. function TCMP_CM2CON.getCREF : TBits_1; inline;
  17182. begin
  17183. getCREF := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  17184. end;
  17185. procedure TCMP_CM2CON.setEVPOL(thebits : TBits_2); inline;
  17186. begin
  17187. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
  17188. end;
  17189. function TCMP_CM2CON.getEVPOL : TBits_2; inline;
  17190. begin
  17191. getEVPOL := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
  17192. end;
  17193. procedure TCMP_CM2CON.setCOUT; inline;
  17194. begin
  17195. pTDefRegMap(@Self)^.&set := $00000100;
  17196. end;
  17197. procedure TCMP_CM2CON.clearCOUT; inline;
  17198. begin
  17199. pTDefRegMap(@Self)^.clr := $00000100;
  17200. end;
  17201. procedure TCMP_CM2CON.setCOUT(thebits : TBits_1); inline;
  17202. begin
  17203. if thebits = 0 then
  17204. pTDefRegMap(@Self)^.clr := $00000100
  17205. else
  17206. pTDefRegMap(@Self)^.&set := $00000100;
  17207. end;
  17208. function TCMP_CM2CON.getCOUT : TBits_1; inline;
  17209. begin
  17210. getCOUT := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  17211. end;
  17212. procedure TCMP_CM2CON.setCPOL; inline;
  17213. begin
  17214. pTDefRegMap(@Self)^.&set := $00002000;
  17215. end;
  17216. procedure TCMP_CM2CON.clearCPOL; inline;
  17217. begin
  17218. pTDefRegMap(@Self)^.clr := $00002000;
  17219. end;
  17220. procedure TCMP_CM2CON.setCPOL(thebits : TBits_1); inline;
  17221. begin
  17222. if thebits = 0 then
  17223. pTDefRegMap(@Self)^.clr := $00002000
  17224. else
  17225. pTDefRegMap(@Self)^.&set := $00002000;
  17226. end;
  17227. function TCMP_CM2CON.getCPOL : TBits_1; inline;
  17228. begin
  17229. getCPOL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  17230. end;
  17231. procedure TCMP_CM2CON.setCOE; inline;
  17232. begin
  17233. pTDefRegMap(@Self)^.&set := $00004000;
  17234. end;
  17235. procedure TCMP_CM2CON.clearCOE; inline;
  17236. begin
  17237. pTDefRegMap(@Self)^.clr := $00004000;
  17238. end;
  17239. procedure TCMP_CM2CON.setCOE(thebits : TBits_1); inline;
  17240. begin
  17241. if thebits = 0 then
  17242. pTDefRegMap(@Self)^.clr := $00004000
  17243. else
  17244. pTDefRegMap(@Self)^.&set := $00004000;
  17245. end;
  17246. function TCMP_CM2CON.getCOE : TBits_1; inline;
  17247. begin
  17248. getCOE := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  17249. end;
  17250. procedure TCMP_CM2CON.setON; inline;
  17251. begin
  17252. pTDefRegMap(@Self)^.&set := $00008000;
  17253. end;
  17254. procedure TCMP_CM2CON.clearON; inline;
  17255. begin
  17256. pTDefRegMap(@Self)^.clr := $00008000;
  17257. end;
  17258. procedure TCMP_CM2CON.setON(thebits : TBits_1); inline;
  17259. begin
  17260. if thebits = 0 then
  17261. pTDefRegMap(@Self)^.clr := $00008000
  17262. else
  17263. pTDefRegMap(@Self)^.&set := $00008000;
  17264. end;
  17265. function TCMP_CM2CON.getON : TBits_1; inline;
  17266. begin
  17267. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  17268. end;
  17269. procedure TCMP_CM2CON.setCCH0; inline;
  17270. begin
  17271. pTDefRegMap(@Self)^.&set := $00000001;
  17272. end;
  17273. procedure TCMP_CM2CON.clearCCH0; inline;
  17274. begin
  17275. pTDefRegMap(@Self)^.clr := $00000001;
  17276. end;
  17277. procedure TCMP_CM2CON.setCCH0(thebits : TBits_1); inline;
  17278. begin
  17279. if thebits = 0 then
  17280. pTDefRegMap(@Self)^.clr := $00000001
  17281. else
  17282. pTDefRegMap(@Self)^.&set := $00000001;
  17283. end;
  17284. function TCMP_CM2CON.getCCH0 : TBits_1; inline;
  17285. begin
  17286. getCCH0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  17287. end;
  17288. procedure TCMP_CM2CON.setCCH1; inline;
  17289. begin
  17290. pTDefRegMap(@Self)^.&set := $00000002;
  17291. end;
  17292. procedure TCMP_CM2CON.clearCCH1; inline;
  17293. begin
  17294. pTDefRegMap(@Self)^.clr := $00000002;
  17295. end;
  17296. procedure TCMP_CM2CON.setCCH1(thebits : TBits_1); inline;
  17297. begin
  17298. if thebits = 0 then
  17299. pTDefRegMap(@Self)^.clr := $00000002
  17300. else
  17301. pTDefRegMap(@Self)^.&set := $00000002;
  17302. end;
  17303. function TCMP_CM2CON.getCCH1 : TBits_1; inline;
  17304. begin
  17305. getCCH1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  17306. end;
  17307. procedure TCMP_CM2CON.setEVPOL0; inline;
  17308. begin
  17309. pTDefRegMap(@Self)^.&set := $00000040;
  17310. end;
  17311. procedure TCMP_CM2CON.clearEVPOL0; inline;
  17312. begin
  17313. pTDefRegMap(@Self)^.clr := $00000040;
  17314. end;
  17315. procedure TCMP_CM2CON.setEVPOL0(thebits : TBits_1); inline;
  17316. begin
  17317. if thebits = 0 then
  17318. pTDefRegMap(@Self)^.clr := $00000040
  17319. else
  17320. pTDefRegMap(@Self)^.&set := $00000040;
  17321. end;
  17322. function TCMP_CM2CON.getEVPOL0 : TBits_1; inline;
  17323. begin
  17324. getEVPOL0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  17325. end;
  17326. procedure TCMP_CM2CON.setEVPOL1; inline;
  17327. begin
  17328. pTDefRegMap(@Self)^.&set := $00000080;
  17329. end;
  17330. procedure TCMP_CM2CON.clearEVPOL1; inline;
  17331. begin
  17332. pTDefRegMap(@Self)^.clr := $00000080;
  17333. end;
  17334. procedure TCMP_CM2CON.setEVPOL1(thebits : TBits_1); inline;
  17335. begin
  17336. if thebits = 0 then
  17337. pTDefRegMap(@Self)^.clr := $00000080
  17338. else
  17339. pTDefRegMap(@Self)^.&set := $00000080;
  17340. end;
  17341. function TCMP_CM2CON.getEVPOL1 : TBits_1; inline;
  17342. begin
  17343. getEVPOL1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  17344. end;
  17345. procedure TCMP_CM2CON.setw(thebits : TBits_32); inline;
  17346. begin
  17347. pTDefRegMap(@Self)^.val := thebits;
  17348. end;
  17349. function TCMP_CM2CON.getw : TBits_32; inline;
  17350. begin
  17351. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  17352. end;
  17353. procedure TCMP_CMSTAT.setC1OUT; inline;
  17354. begin
  17355. pTDefRegMap(@Self)^.&set := $00000001;
  17356. end;
  17357. procedure TCMP_CMSTAT.clearC1OUT; inline;
  17358. begin
  17359. pTDefRegMap(@Self)^.clr := $00000001;
  17360. end;
  17361. procedure TCMP_CMSTAT.setC1OUT(thebits : TBits_1); inline;
  17362. begin
  17363. if thebits = 0 then
  17364. pTDefRegMap(@Self)^.clr := $00000001
  17365. else
  17366. pTDefRegMap(@Self)^.&set := $00000001;
  17367. end;
  17368. function TCMP_CMSTAT.getC1OUT : TBits_1; inline;
  17369. begin
  17370. getC1OUT := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  17371. end;
  17372. procedure TCMP_CMSTAT.setC2OUT; inline;
  17373. begin
  17374. pTDefRegMap(@Self)^.&set := $00000002;
  17375. end;
  17376. procedure TCMP_CMSTAT.clearC2OUT; inline;
  17377. begin
  17378. pTDefRegMap(@Self)^.clr := $00000002;
  17379. end;
  17380. procedure TCMP_CMSTAT.setC2OUT(thebits : TBits_1); inline;
  17381. begin
  17382. if thebits = 0 then
  17383. pTDefRegMap(@Self)^.clr := $00000002
  17384. else
  17385. pTDefRegMap(@Self)^.&set := $00000002;
  17386. end;
  17387. function TCMP_CMSTAT.getC2OUT : TBits_1; inline;
  17388. begin
  17389. getC2OUT := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  17390. end;
  17391. procedure TCMP_CMSTAT.setSIDL; inline;
  17392. begin
  17393. pTDefRegMap(@Self)^.&set := $00002000;
  17394. end;
  17395. procedure TCMP_CMSTAT.clearSIDL; inline;
  17396. begin
  17397. pTDefRegMap(@Self)^.clr := $00002000;
  17398. end;
  17399. procedure TCMP_CMSTAT.setSIDL(thebits : TBits_1); inline;
  17400. begin
  17401. if thebits = 0 then
  17402. pTDefRegMap(@Self)^.clr := $00002000
  17403. else
  17404. pTDefRegMap(@Self)^.&set := $00002000;
  17405. end;
  17406. function TCMP_CMSTAT.getSIDL : TBits_1; inline;
  17407. begin
  17408. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  17409. end;
  17410. procedure TCMP_CMSTAT.setw(thebits : TBits_32); inline;
  17411. begin
  17412. pTDefRegMap(@Self)^.val := thebits;
  17413. end;
  17414. function TCMP_CMSTAT.getw : TBits_32; inline;
  17415. begin
  17416. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  17417. end;
  17418. procedure TOSC_OSCCON.setOSWEN; inline;
  17419. begin
  17420. pTDefRegMap(@Self)^.&set := $00000001;
  17421. end;
  17422. procedure TOSC_OSCCON.clearOSWEN; inline;
  17423. begin
  17424. pTDefRegMap(@Self)^.clr := $00000001;
  17425. end;
  17426. procedure TOSC_OSCCON.setOSWEN(thebits : TBits_1); inline;
  17427. begin
  17428. if thebits = 0 then
  17429. pTDefRegMap(@Self)^.clr := $00000001
  17430. else
  17431. pTDefRegMap(@Self)^.&set := $00000001;
  17432. end;
  17433. function TOSC_OSCCON.getOSWEN : TBits_1; inline;
  17434. begin
  17435. getOSWEN := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  17436. end;
  17437. procedure TOSC_OSCCON.setSOSCEN; inline;
  17438. begin
  17439. pTDefRegMap(@Self)^.&set := $00000002;
  17440. end;
  17441. procedure TOSC_OSCCON.clearSOSCEN; inline;
  17442. begin
  17443. pTDefRegMap(@Self)^.clr := $00000002;
  17444. end;
  17445. procedure TOSC_OSCCON.setSOSCEN(thebits : TBits_1); inline;
  17446. begin
  17447. if thebits = 0 then
  17448. pTDefRegMap(@Self)^.clr := $00000002
  17449. else
  17450. pTDefRegMap(@Self)^.&set := $00000002;
  17451. end;
  17452. function TOSC_OSCCON.getSOSCEN : TBits_1; inline;
  17453. begin
  17454. getSOSCEN := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  17455. end;
  17456. procedure TOSC_OSCCON.setUFRCEN; inline;
  17457. begin
  17458. pTDefRegMap(@Self)^.&set := $00000004;
  17459. end;
  17460. procedure TOSC_OSCCON.clearUFRCEN; inline;
  17461. begin
  17462. pTDefRegMap(@Self)^.clr := $00000004;
  17463. end;
  17464. procedure TOSC_OSCCON.setUFRCEN(thebits : TBits_1); inline;
  17465. begin
  17466. if thebits = 0 then
  17467. pTDefRegMap(@Self)^.clr := $00000004
  17468. else
  17469. pTDefRegMap(@Self)^.&set := $00000004;
  17470. end;
  17471. function TOSC_OSCCON.getUFRCEN : TBits_1; inline;
  17472. begin
  17473. getUFRCEN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  17474. end;
  17475. procedure TOSC_OSCCON.setCF; inline;
  17476. begin
  17477. pTDefRegMap(@Self)^.&set := $00000008;
  17478. end;
  17479. procedure TOSC_OSCCON.clearCF; inline;
  17480. begin
  17481. pTDefRegMap(@Self)^.clr := $00000008;
  17482. end;
  17483. procedure TOSC_OSCCON.setCF(thebits : TBits_1); inline;
  17484. begin
  17485. if thebits = 0 then
  17486. pTDefRegMap(@Self)^.clr := $00000008
  17487. else
  17488. pTDefRegMap(@Self)^.&set := $00000008;
  17489. end;
  17490. function TOSC_OSCCON.getCF : TBits_1; inline;
  17491. begin
  17492. getCF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  17493. end;
  17494. procedure TOSC_OSCCON.setSLPEN; inline;
  17495. begin
  17496. pTDefRegMap(@Self)^.&set := $00000010;
  17497. end;
  17498. procedure TOSC_OSCCON.clearSLPEN; inline;
  17499. begin
  17500. pTDefRegMap(@Self)^.clr := $00000010;
  17501. end;
  17502. procedure TOSC_OSCCON.setSLPEN(thebits : TBits_1); inline;
  17503. begin
  17504. if thebits = 0 then
  17505. pTDefRegMap(@Self)^.clr := $00000010
  17506. else
  17507. pTDefRegMap(@Self)^.&set := $00000010;
  17508. end;
  17509. function TOSC_OSCCON.getSLPEN : TBits_1; inline;
  17510. begin
  17511. getSLPEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  17512. end;
  17513. procedure TOSC_OSCCON.setLOCK; inline;
  17514. begin
  17515. pTDefRegMap(@Self)^.&set := $00000020;
  17516. end;
  17517. procedure TOSC_OSCCON.clearLOCK; inline;
  17518. begin
  17519. pTDefRegMap(@Self)^.clr := $00000020;
  17520. end;
  17521. procedure TOSC_OSCCON.setLOCK(thebits : TBits_1); inline;
  17522. begin
  17523. if thebits = 0 then
  17524. pTDefRegMap(@Self)^.clr := $00000020
  17525. else
  17526. pTDefRegMap(@Self)^.&set := $00000020;
  17527. end;
  17528. function TOSC_OSCCON.getLOCK : TBits_1; inline;
  17529. begin
  17530. getLOCK := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  17531. end;
  17532. procedure TOSC_OSCCON.setULOCK; inline;
  17533. begin
  17534. pTDefRegMap(@Self)^.&set := $00000040;
  17535. end;
  17536. procedure TOSC_OSCCON.clearULOCK; inline;
  17537. begin
  17538. pTDefRegMap(@Self)^.clr := $00000040;
  17539. end;
  17540. procedure TOSC_OSCCON.setULOCK(thebits : TBits_1); inline;
  17541. begin
  17542. if thebits = 0 then
  17543. pTDefRegMap(@Self)^.clr := $00000040
  17544. else
  17545. pTDefRegMap(@Self)^.&set := $00000040;
  17546. end;
  17547. function TOSC_OSCCON.getULOCK : TBits_1; inline;
  17548. begin
  17549. getULOCK := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  17550. end;
  17551. procedure TOSC_OSCCON.setCLKLOCK; inline;
  17552. begin
  17553. pTDefRegMap(@Self)^.&set := $00000080;
  17554. end;
  17555. procedure TOSC_OSCCON.clearCLKLOCK; inline;
  17556. begin
  17557. pTDefRegMap(@Self)^.clr := $00000080;
  17558. end;
  17559. procedure TOSC_OSCCON.setCLKLOCK(thebits : TBits_1); inline;
  17560. begin
  17561. if thebits = 0 then
  17562. pTDefRegMap(@Self)^.clr := $00000080
  17563. else
  17564. pTDefRegMap(@Self)^.&set := $00000080;
  17565. end;
  17566. function TOSC_OSCCON.getCLKLOCK : TBits_1; inline;
  17567. begin
  17568. getCLKLOCK := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  17569. end;
  17570. procedure TOSC_OSCCON.setNOSC(thebits : TBits_3); inline;
  17571. begin
  17572. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFF8FF or ( thebits shl 8 );
  17573. end;
  17574. function TOSC_OSCCON.getNOSC : TBits_3; inline;
  17575. begin
  17576. getNOSC := (pTDefRegMap(@Self)^.val and $00000700) shr 8;
  17577. end;
  17578. procedure TOSC_OSCCON.setCOSC(thebits : TBits_3); inline;
  17579. begin
  17580. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF8FFF or ( thebits shl 12 );
  17581. end;
  17582. function TOSC_OSCCON.getCOSC : TBits_3; inline;
  17583. begin
  17584. getCOSC := (pTDefRegMap(@Self)^.val and $00007000) shr 12;
  17585. end;
  17586. procedure TOSC_OSCCON.setPLLMULT(thebits : TBits_3); inline;
  17587. begin
  17588. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFF8FFFF or ( thebits shl 16 );
  17589. end;
  17590. function TOSC_OSCCON.getPLLMULT : TBits_3; inline;
  17591. begin
  17592. getPLLMULT := (pTDefRegMap(@Self)^.val and $00070000) shr 16;
  17593. end;
  17594. procedure TOSC_OSCCON.setPBDIV(thebits : TBits_2); inline;
  17595. begin
  17596. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE7FFFF or ( thebits shl 19 );
  17597. end;
  17598. function TOSC_OSCCON.getPBDIV : TBits_2; inline;
  17599. begin
  17600. getPBDIV := (pTDefRegMap(@Self)^.val and $00180000) shr 19;
  17601. end;
  17602. procedure TOSC_OSCCON.setSOSCRDY; inline;
  17603. begin
  17604. pTDefRegMap(@Self)^.&set := $00400000;
  17605. end;
  17606. procedure TOSC_OSCCON.clearSOSCRDY; inline;
  17607. begin
  17608. pTDefRegMap(@Self)^.clr := $00400000;
  17609. end;
  17610. procedure TOSC_OSCCON.setSOSCRDY(thebits : TBits_1); inline;
  17611. begin
  17612. if thebits = 0 then
  17613. pTDefRegMap(@Self)^.clr := $00400000
  17614. else
  17615. pTDefRegMap(@Self)^.&set := $00400000;
  17616. end;
  17617. function TOSC_OSCCON.getSOSCRDY : TBits_1; inline;
  17618. begin
  17619. getSOSCRDY := (pTDefRegMap(@Self)^.val and $00400000) shr 22;
  17620. end;
  17621. procedure TOSC_OSCCON.setFRCDIV(thebits : TBits_3); inline;
  17622. begin
  17623. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $F8FFFFFF or ( thebits shl 24 );
  17624. end;
  17625. function TOSC_OSCCON.getFRCDIV : TBits_3; inline;
  17626. begin
  17627. getFRCDIV := (pTDefRegMap(@Self)^.val and $07000000) shr 24;
  17628. end;
  17629. procedure TOSC_OSCCON.setPLLODIV(thebits : TBits_3); inline;
  17630. begin
  17631. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $C7FFFFFF or ( thebits shl 27 );
  17632. end;
  17633. function TOSC_OSCCON.getPLLODIV : TBits_3; inline;
  17634. begin
  17635. getPLLODIV := (pTDefRegMap(@Self)^.val and $38000000) shr 27;
  17636. end;
  17637. procedure TOSC_OSCCON.setNOSC0; inline;
  17638. begin
  17639. pTDefRegMap(@Self)^.&set := $00000100;
  17640. end;
  17641. procedure TOSC_OSCCON.clearNOSC0; inline;
  17642. begin
  17643. pTDefRegMap(@Self)^.clr := $00000100;
  17644. end;
  17645. procedure TOSC_OSCCON.setNOSC0(thebits : TBits_1); inline;
  17646. begin
  17647. if thebits = 0 then
  17648. pTDefRegMap(@Self)^.clr := $00000100
  17649. else
  17650. pTDefRegMap(@Self)^.&set := $00000100;
  17651. end;
  17652. function TOSC_OSCCON.getNOSC0 : TBits_1; inline;
  17653. begin
  17654. getNOSC0 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  17655. end;
  17656. procedure TOSC_OSCCON.setNOSC1; inline;
  17657. begin
  17658. pTDefRegMap(@Self)^.&set := $00000200;
  17659. end;
  17660. procedure TOSC_OSCCON.clearNOSC1; inline;
  17661. begin
  17662. pTDefRegMap(@Self)^.clr := $00000200;
  17663. end;
  17664. procedure TOSC_OSCCON.setNOSC1(thebits : TBits_1); inline;
  17665. begin
  17666. if thebits = 0 then
  17667. pTDefRegMap(@Self)^.clr := $00000200
  17668. else
  17669. pTDefRegMap(@Self)^.&set := $00000200;
  17670. end;
  17671. function TOSC_OSCCON.getNOSC1 : TBits_1; inline;
  17672. begin
  17673. getNOSC1 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  17674. end;
  17675. procedure TOSC_OSCCON.setNOSC2; inline;
  17676. begin
  17677. pTDefRegMap(@Self)^.&set := $00000400;
  17678. end;
  17679. procedure TOSC_OSCCON.clearNOSC2; inline;
  17680. begin
  17681. pTDefRegMap(@Self)^.clr := $00000400;
  17682. end;
  17683. procedure TOSC_OSCCON.setNOSC2(thebits : TBits_1); inline;
  17684. begin
  17685. if thebits = 0 then
  17686. pTDefRegMap(@Self)^.clr := $00000400
  17687. else
  17688. pTDefRegMap(@Self)^.&set := $00000400;
  17689. end;
  17690. function TOSC_OSCCON.getNOSC2 : TBits_1; inline;
  17691. begin
  17692. getNOSC2 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  17693. end;
  17694. procedure TOSC_OSCCON.setCOSC0; inline;
  17695. begin
  17696. pTDefRegMap(@Self)^.&set := $00001000;
  17697. end;
  17698. procedure TOSC_OSCCON.clearCOSC0; inline;
  17699. begin
  17700. pTDefRegMap(@Self)^.clr := $00001000;
  17701. end;
  17702. procedure TOSC_OSCCON.setCOSC0(thebits : TBits_1); inline;
  17703. begin
  17704. if thebits = 0 then
  17705. pTDefRegMap(@Self)^.clr := $00001000
  17706. else
  17707. pTDefRegMap(@Self)^.&set := $00001000;
  17708. end;
  17709. function TOSC_OSCCON.getCOSC0 : TBits_1; inline;
  17710. begin
  17711. getCOSC0 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  17712. end;
  17713. procedure TOSC_OSCCON.setCOSC1; inline;
  17714. begin
  17715. pTDefRegMap(@Self)^.&set := $00002000;
  17716. end;
  17717. procedure TOSC_OSCCON.clearCOSC1; inline;
  17718. begin
  17719. pTDefRegMap(@Self)^.clr := $00002000;
  17720. end;
  17721. procedure TOSC_OSCCON.setCOSC1(thebits : TBits_1); inline;
  17722. begin
  17723. if thebits = 0 then
  17724. pTDefRegMap(@Self)^.clr := $00002000
  17725. else
  17726. pTDefRegMap(@Self)^.&set := $00002000;
  17727. end;
  17728. function TOSC_OSCCON.getCOSC1 : TBits_1; inline;
  17729. begin
  17730. getCOSC1 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  17731. end;
  17732. procedure TOSC_OSCCON.setCOSC2; inline;
  17733. begin
  17734. pTDefRegMap(@Self)^.&set := $00004000;
  17735. end;
  17736. procedure TOSC_OSCCON.clearCOSC2; inline;
  17737. begin
  17738. pTDefRegMap(@Self)^.clr := $00004000;
  17739. end;
  17740. procedure TOSC_OSCCON.setCOSC2(thebits : TBits_1); inline;
  17741. begin
  17742. if thebits = 0 then
  17743. pTDefRegMap(@Self)^.clr := $00004000
  17744. else
  17745. pTDefRegMap(@Self)^.&set := $00004000;
  17746. end;
  17747. function TOSC_OSCCON.getCOSC2 : TBits_1; inline;
  17748. begin
  17749. getCOSC2 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  17750. end;
  17751. procedure TOSC_OSCCON.setPLLMULT0; inline;
  17752. begin
  17753. pTDefRegMap(@Self)^.&set := $00010000;
  17754. end;
  17755. procedure TOSC_OSCCON.clearPLLMULT0; inline;
  17756. begin
  17757. pTDefRegMap(@Self)^.clr := $00010000;
  17758. end;
  17759. procedure TOSC_OSCCON.setPLLMULT0(thebits : TBits_1); inline;
  17760. begin
  17761. if thebits = 0 then
  17762. pTDefRegMap(@Self)^.clr := $00010000
  17763. else
  17764. pTDefRegMap(@Self)^.&set := $00010000;
  17765. end;
  17766. function TOSC_OSCCON.getPLLMULT0 : TBits_1; inline;
  17767. begin
  17768. getPLLMULT0 := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  17769. end;
  17770. procedure TOSC_OSCCON.setPLLMULT1; inline;
  17771. begin
  17772. pTDefRegMap(@Self)^.&set := $00020000;
  17773. end;
  17774. procedure TOSC_OSCCON.clearPLLMULT1; inline;
  17775. begin
  17776. pTDefRegMap(@Self)^.clr := $00020000;
  17777. end;
  17778. procedure TOSC_OSCCON.setPLLMULT1(thebits : TBits_1); inline;
  17779. begin
  17780. if thebits = 0 then
  17781. pTDefRegMap(@Self)^.clr := $00020000
  17782. else
  17783. pTDefRegMap(@Self)^.&set := $00020000;
  17784. end;
  17785. function TOSC_OSCCON.getPLLMULT1 : TBits_1; inline;
  17786. begin
  17787. getPLLMULT1 := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  17788. end;
  17789. procedure TOSC_OSCCON.setPLLMULT2; inline;
  17790. begin
  17791. pTDefRegMap(@Self)^.&set := $00040000;
  17792. end;
  17793. procedure TOSC_OSCCON.clearPLLMULT2; inline;
  17794. begin
  17795. pTDefRegMap(@Self)^.clr := $00040000;
  17796. end;
  17797. procedure TOSC_OSCCON.setPLLMULT2(thebits : TBits_1); inline;
  17798. begin
  17799. if thebits = 0 then
  17800. pTDefRegMap(@Self)^.clr := $00040000
  17801. else
  17802. pTDefRegMap(@Self)^.&set := $00040000;
  17803. end;
  17804. function TOSC_OSCCON.getPLLMULT2 : TBits_1; inline;
  17805. begin
  17806. getPLLMULT2 := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  17807. end;
  17808. procedure TOSC_OSCCON.setPBDIV0; inline;
  17809. begin
  17810. pTDefRegMap(@Self)^.&set := $00080000;
  17811. end;
  17812. procedure TOSC_OSCCON.clearPBDIV0; inline;
  17813. begin
  17814. pTDefRegMap(@Self)^.clr := $00080000;
  17815. end;
  17816. procedure TOSC_OSCCON.setPBDIV0(thebits : TBits_1); inline;
  17817. begin
  17818. if thebits = 0 then
  17819. pTDefRegMap(@Self)^.clr := $00080000
  17820. else
  17821. pTDefRegMap(@Self)^.&set := $00080000;
  17822. end;
  17823. function TOSC_OSCCON.getPBDIV0 : TBits_1; inline;
  17824. begin
  17825. getPBDIV0 := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  17826. end;
  17827. procedure TOSC_OSCCON.setPBDIV1; inline;
  17828. begin
  17829. pTDefRegMap(@Self)^.&set := $00100000;
  17830. end;
  17831. procedure TOSC_OSCCON.clearPBDIV1; inline;
  17832. begin
  17833. pTDefRegMap(@Self)^.clr := $00100000;
  17834. end;
  17835. procedure TOSC_OSCCON.setPBDIV1(thebits : TBits_1); inline;
  17836. begin
  17837. if thebits = 0 then
  17838. pTDefRegMap(@Self)^.clr := $00100000
  17839. else
  17840. pTDefRegMap(@Self)^.&set := $00100000;
  17841. end;
  17842. function TOSC_OSCCON.getPBDIV1 : TBits_1; inline;
  17843. begin
  17844. getPBDIV1 := (pTDefRegMap(@Self)^.val and $00100000) shr 20;
  17845. end;
  17846. procedure TOSC_OSCCON.setFRCDIV0; inline;
  17847. begin
  17848. pTDefRegMap(@Self)^.&set := $01000000;
  17849. end;
  17850. procedure TOSC_OSCCON.clearFRCDIV0; inline;
  17851. begin
  17852. pTDefRegMap(@Self)^.clr := $01000000;
  17853. end;
  17854. procedure TOSC_OSCCON.setFRCDIV0(thebits : TBits_1); inline;
  17855. begin
  17856. if thebits = 0 then
  17857. pTDefRegMap(@Self)^.clr := $01000000
  17858. else
  17859. pTDefRegMap(@Self)^.&set := $01000000;
  17860. end;
  17861. function TOSC_OSCCON.getFRCDIV0 : TBits_1; inline;
  17862. begin
  17863. getFRCDIV0 := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  17864. end;
  17865. procedure TOSC_OSCCON.setFRCDIV1; inline;
  17866. begin
  17867. pTDefRegMap(@Self)^.&set := $02000000;
  17868. end;
  17869. procedure TOSC_OSCCON.clearFRCDIV1; inline;
  17870. begin
  17871. pTDefRegMap(@Self)^.clr := $02000000;
  17872. end;
  17873. procedure TOSC_OSCCON.setFRCDIV1(thebits : TBits_1); inline;
  17874. begin
  17875. if thebits = 0 then
  17876. pTDefRegMap(@Self)^.clr := $02000000
  17877. else
  17878. pTDefRegMap(@Self)^.&set := $02000000;
  17879. end;
  17880. function TOSC_OSCCON.getFRCDIV1 : TBits_1; inline;
  17881. begin
  17882. getFRCDIV1 := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  17883. end;
  17884. procedure TOSC_OSCCON.setFRCDIV2; inline;
  17885. begin
  17886. pTDefRegMap(@Self)^.&set := $04000000;
  17887. end;
  17888. procedure TOSC_OSCCON.clearFRCDIV2; inline;
  17889. begin
  17890. pTDefRegMap(@Self)^.clr := $04000000;
  17891. end;
  17892. procedure TOSC_OSCCON.setFRCDIV2(thebits : TBits_1); inline;
  17893. begin
  17894. if thebits = 0 then
  17895. pTDefRegMap(@Self)^.clr := $04000000
  17896. else
  17897. pTDefRegMap(@Self)^.&set := $04000000;
  17898. end;
  17899. function TOSC_OSCCON.getFRCDIV2 : TBits_1; inline;
  17900. begin
  17901. getFRCDIV2 := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  17902. end;
  17903. procedure TOSC_OSCCON.setPLLODIV0; inline;
  17904. begin
  17905. pTDefRegMap(@Self)^.&set := $08000000;
  17906. end;
  17907. procedure TOSC_OSCCON.clearPLLODIV0; inline;
  17908. begin
  17909. pTDefRegMap(@Self)^.clr := $08000000;
  17910. end;
  17911. procedure TOSC_OSCCON.setPLLODIV0(thebits : TBits_1); inline;
  17912. begin
  17913. if thebits = 0 then
  17914. pTDefRegMap(@Self)^.clr := $08000000
  17915. else
  17916. pTDefRegMap(@Self)^.&set := $08000000;
  17917. end;
  17918. function TOSC_OSCCON.getPLLODIV0 : TBits_1; inline;
  17919. begin
  17920. getPLLODIV0 := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  17921. end;
  17922. procedure TOSC_OSCCON.setPLLODIV1; inline;
  17923. begin
  17924. pTDefRegMap(@Self)^.&set := $10000000;
  17925. end;
  17926. procedure TOSC_OSCCON.clearPLLODIV1; inline;
  17927. begin
  17928. pTDefRegMap(@Self)^.clr := $10000000;
  17929. end;
  17930. procedure TOSC_OSCCON.setPLLODIV1(thebits : TBits_1); inline;
  17931. begin
  17932. if thebits = 0 then
  17933. pTDefRegMap(@Self)^.clr := $10000000
  17934. else
  17935. pTDefRegMap(@Self)^.&set := $10000000;
  17936. end;
  17937. function TOSC_OSCCON.getPLLODIV1 : TBits_1; inline;
  17938. begin
  17939. getPLLODIV1 := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  17940. end;
  17941. procedure TOSC_OSCCON.setPLLODIV2; inline;
  17942. begin
  17943. pTDefRegMap(@Self)^.&set := $20000000;
  17944. end;
  17945. procedure TOSC_OSCCON.clearPLLODIV2; inline;
  17946. begin
  17947. pTDefRegMap(@Self)^.clr := $20000000;
  17948. end;
  17949. procedure TOSC_OSCCON.setPLLODIV2(thebits : TBits_1); inline;
  17950. begin
  17951. if thebits = 0 then
  17952. pTDefRegMap(@Self)^.clr := $20000000
  17953. else
  17954. pTDefRegMap(@Self)^.&set := $20000000;
  17955. end;
  17956. function TOSC_OSCCON.getPLLODIV2 : TBits_1; inline;
  17957. begin
  17958. getPLLODIV2 := (pTDefRegMap(@Self)^.val and $20000000) shr 29;
  17959. end;
  17960. procedure TOSC_OSCCON.setw(thebits : TBits_32); inline;
  17961. begin
  17962. pTDefRegMap(@Self)^.val := thebits;
  17963. end;
  17964. function TOSC_OSCCON.getw : TBits_32; inline;
  17965. begin
  17966. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  17967. end;
  17968. procedure TOSC_OSCTUN.setTUN(thebits : TBits_6); inline;
  17969. begin
  17970. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFC0 or ( thebits shl 0 );
  17971. end;
  17972. function TOSC_OSCTUN.getTUN : TBits_6; inline;
  17973. begin
  17974. getTUN := (pTDefRegMap(@Self)^.val and $0000003F) shr 0;
  17975. end;
  17976. procedure TOSC_OSCTUN.setTUN0; inline;
  17977. begin
  17978. pTDefRegMap(@Self)^.&set := $00000001;
  17979. end;
  17980. procedure TOSC_OSCTUN.clearTUN0; inline;
  17981. begin
  17982. pTDefRegMap(@Self)^.clr := $00000001;
  17983. end;
  17984. procedure TOSC_OSCTUN.setTUN0(thebits : TBits_1); inline;
  17985. begin
  17986. if thebits = 0 then
  17987. pTDefRegMap(@Self)^.clr := $00000001
  17988. else
  17989. pTDefRegMap(@Self)^.&set := $00000001;
  17990. end;
  17991. function TOSC_OSCTUN.getTUN0 : TBits_1; inline;
  17992. begin
  17993. getTUN0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  17994. end;
  17995. procedure TOSC_OSCTUN.setTUN1; inline;
  17996. begin
  17997. pTDefRegMap(@Self)^.&set := $00000002;
  17998. end;
  17999. procedure TOSC_OSCTUN.clearTUN1; inline;
  18000. begin
  18001. pTDefRegMap(@Self)^.clr := $00000002;
  18002. end;
  18003. procedure TOSC_OSCTUN.setTUN1(thebits : TBits_1); inline;
  18004. begin
  18005. if thebits = 0 then
  18006. pTDefRegMap(@Self)^.clr := $00000002
  18007. else
  18008. pTDefRegMap(@Self)^.&set := $00000002;
  18009. end;
  18010. function TOSC_OSCTUN.getTUN1 : TBits_1; inline;
  18011. begin
  18012. getTUN1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  18013. end;
  18014. procedure TOSC_OSCTUN.setTUN2; inline;
  18015. begin
  18016. pTDefRegMap(@Self)^.&set := $00000004;
  18017. end;
  18018. procedure TOSC_OSCTUN.clearTUN2; inline;
  18019. begin
  18020. pTDefRegMap(@Self)^.clr := $00000004;
  18021. end;
  18022. procedure TOSC_OSCTUN.setTUN2(thebits : TBits_1); inline;
  18023. begin
  18024. if thebits = 0 then
  18025. pTDefRegMap(@Self)^.clr := $00000004
  18026. else
  18027. pTDefRegMap(@Self)^.&set := $00000004;
  18028. end;
  18029. function TOSC_OSCTUN.getTUN2 : TBits_1; inline;
  18030. begin
  18031. getTUN2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  18032. end;
  18033. procedure TOSC_OSCTUN.setTUN3; inline;
  18034. begin
  18035. pTDefRegMap(@Self)^.&set := $00000008;
  18036. end;
  18037. procedure TOSC_OSCTUN.clearTUN3; inline;
  18038. begin
  18039. pTDefRegMap(@Self)^.clr := $00000008;
  18040. end;
  18041. procedure TOSC_OSCTUN.setTUN3(thebits : TBits_1); inline;
  18042. begin
  18043. if thebits = 0 then
  18044. pTDefRegMap(@Self)^.clr := $00000008
  18045. else
  18046. pTDefRegMap(@Self)^.&set := $00000008;
  18047. end;
  18048. function TOSC_OSCTUN.getTUN3 : TBits_1; inline;
  18049. begin
  18050. getTUN3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  18051. end;
  18052. procedure TOSC_OSCTUN.setTUN4; inline;
  18053. begin
  18054. pTDefRegMap(@Self)^.&set := $00000010;
  18055. end;
  18056. procedure TOSC_OSCTUN.clearTUN4; inline;
  18057. begin
  18058. pTDefRegMap(@Self)^.clr := $00000010;
  18059. end;
  18060. procedure TOSC_OSCTUN.setTUN4(thebits : TBits_1); inline;
  18061. begin
  18062. if thebits = 0 then
  18063. pTDefRegMap(@Self)^.clr := $00000010
  18064. else
  18065. pTDefRegMap(@Self)^.&set := $00000010;
  18066. end;
  18067. function TOSC_OSCTUN.getTUN4 : TBits_1; inline;
  18068. begin
  18069. getTUN4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  18070. end;
  18071. procedure TOSC_OSCTUN.setTUN5; inline;
  18072. begin
  18073. pTDefRegMap(@Self)^.&set := $00000020;
  18074. end;
  18075. procedure TOSC_OSCTUN.clearTUN5; inline;
  18076. begin
  18077. pTDefRegMap(@Self)^.clr := $00000020;
  18078. end;
  18079. procedure TOSC_OSCTUN.setTUN5(thebits : TBits_1); inline;
  18080. begin
  18081. if thebits = 0 then
  18082. pTDefRegMap(@Self)^.clr := $00000020
  18083. else
  18084. pTDefRegMap(@Self)^.&set := $00000020;
  18085. end;
  18086. function TOSC_OSCTUN.getTUN5 : TBits_1; inline;
  18087. begin
  18088. getTUN5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  18089. end;
  18090. procedure TOSC_OSCTUN.setw(thebits : TBits_32); inline;
  18091. begin
  18092. pTDefRegMap(@Self)^.val := thebits;
  18093. end;
  18094. function TOSC_OSCTUN.getw : TBits_32; inline;
  18095. begin
  18096. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  18097. end;
  18098. procedure TNVM_NVMCON.setNVMOP(thebits : TBits_4); inline;
  18099. begin
  18100. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF0 or ( thebits shl 0 );
  18101. end;
  18102. function TNVM_NVMCON.getNVMOP : TBits_4; inline;
  18103. begin
  18104. getNVMOP := (pTDefRegMap(@Self)^.val and $0000000F) shr 0;
  18105. end;
  18106. procedure TNVM_NVMCON.setLVDSTAT; inline;
  18107. begin
  18108. pTDefRegMap(@Self)^.&set := $00000800;
  18109. end;
  18110. procedure TNVM_NVMCON.clearLVDSTAT; inline;
  18111. begin
  18112. pTDefRegMap(@Self)^.clr := $00000800;
  18113. end;
  18114. procedure TNVM_NVMCON.setLVDSTAT(thebits : TBits_1); inline;
  18115. begin
  18116. if thebits = 0 then
  18117. pTDefRegMap(@Self)^.clr := $00000800
  18118. else
  18119. pTDefRegMap(@Self)^.&set := $00000800;
  18120. end;
  18121. function TNVM_NVMCON.getLVDSTAT : TBits_1; inline;
  18122. begin
  18123. getLVDSTAT := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  18124. end;
  18125. procedure TNVM_NVMCON.setLVDERR; inline;
  18126. begin
  18127. pTDefRegMap(@Self)^.&set := $00001000;
  18128. end;
  18129. procedure TNVM_NVMCON.clearLVDERR; inline;
  18130. begin
  18131. pTDefRegMap(@Self)^.clr := $00001000;
  18132. end;
  18133. procedure TNVM_NVMCON.setLVDERR(thebits : TBits_1); inline;
  18134. begin
  18135. if thebits = 0 then
  18136. pTDefRegMap(@Self)^.clr := $00001000
  18137. else
  18138. pTDefRegMap(@Self)^.&set := $00001000;
  18139. end;
  18140. function TNVM_NVMCON.getLVDERR : TBits_1; inline;
  18141. begin
  18142. getLVDERR := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  18143. end;
  18144. procedure TNVM_NVMCON.setWRERR; inline;
  18145. begin
  18146. pTDefRegMap(@Self)^.&set := $00002000;
  18147. end;
  18148. procedure TNVM_NVMCON.clearWRERR; inline;
  18149. begin
  18150. pTDefRegMap(@Self)^.clr := $00002000;
  18151. end;
  18152. procedure TNVM_NVMCON.setWRERR(thebits : TBits_1); inline;
  18153. begin
  18154. if thebits = 0 then
  18155. pTDefRegMap(@Self)^.clr := $00002000
  18156. else
  18157. pTDefRegMap(@Self)^.&set := $00002000;
  18158. end;
  18159. function TNVM_NVMCON.getWRERR : TBits_1; inline;
  18160. begin
  18161. getWRERR := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  18162. end;
  18163. procedure TNVM_NVMCON.setWREN; inline;
  18164. begin
  18165. pTDefRegMap(@Self)^.&set := $00004000;
  18166. end;
  18167. procedure TNVM_NVMCON.clearWREN; inline;
  18168. begin
  18169. pTDefRegMap(@Self)^.clr := $00004000;
  18170. end;
  18171. procedure TNVM_NVMCON.setWREN(thebits : TBits_1); inline;
  18172. begin
  18173. if thebits = 0 then
  18174. pTDefRegMap(@Self)^.clr := $00004000
  18175. else
  18176. pTDefRegMap(@Self)^.&set := $00004000;
  18177. end;
  18178. function TNVM_NVMCON.getWREN : TBits_1; inline;
  18179. begin
  18180. getWREN := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  18181. end;
  18182. procedure TNVM_NVMCON.setWR; inline;
  18183. begin
  18184. pTDefRegMap(@Self)^.&set := $00008000;
  18185. end;
  18186. procedure TNVM_NVMCON.clearWR; inline;
  18187. begin
  18188. pTDefRegMap(@Self)^.clr := $00008000;
  18189. end;
  18190. procedure TNVM_NVMCON.setWR(thebits : TBits_1); inline;
  18191. begin
  18192. if thebits = 0 then
  18193. pTDefRegMap(@Self)^.clr := $00008000
  18194. else
  18195. pTDefRegMap(@Self)^.&set := $00008000;
  18196. end;
  18197. function TNVM_NVMCON.getWR : TBits_1; inline;
  18198. begin
  18199. getWR := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  18200. end;
  18201. procedure TNVM_NVMCON.setNVMOP0; inline;
  18202. begin
  18203. pTDefRegMap(@Self)^.&set := $00000001;
  18204. end;
  18205. procedure TNVM_NVMCON.clearNVMOP0; inline;
  18206. begin
  18207. pTDefRegMap(@Self)^.clr := $00000001;
  18208. end;
  18209. procedure TNVM_NVMCON.setNVMOP0(thebits : TBits_1); inline;
  18210. begin
  18211. if thebits = 0 then
  18212. pTDefRegMap(@Self)^.clr := $00000001
  18213. else
  18214. pTDefRegMap(@Self)^.&set := $00000001;
  18215. end;
  18216. function TNVM_NVMCON.getNVMOP0 : TBits_1; inline;
  18217. begin
  18218. getNVMOP0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  18219. end;
  18220. procedure TNVM_NVMCON.setNVMOP1; inline;
  18221. begin
  18222. pTDefRegMap(@Self)^.&set := $00000002;
  18223. end;
  18224. procedure TNVM_NVMCON.clearNVMOP1; inline;
  18225. begin
  18226. pTDefRegMap(@Self)^.clr := $00000002;
  18227. end;
  18228. procedure TNVM_NVMCON.setNVMOP1(thebits : TBits_1); inline;
  18229. begin
  18230. if thebits = 0 then
  18231. pTDefRegMap(@Self)^.clr := $00000002
  18232. else
  18233. pTDefRegMap(@Self)^.&set := $00000002;
  18234. end;
  18235. function TNVM_NVMCON.getNVMOP1 : TBits_1; inline;
  18236. begin
  18237. getNVMOP1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  18238. end;
  18239. procedure TNVM_NVMCON.setNVMOP2; inline;
  18240. begin
  18241. pTDefRegMap(@Self)^.&set := $00000004;
  18242. end;
  18243. procedure TNVM_NVMCON.clearNVMOP2; inline;
  18244. begin
  18245. pTDefRegMap(@Self)^.clr := $00000004;
  18246. end;
  18247. procedure TNVM_NVMCON.setNVMOP2(thebits : TBits_1); inline;
  18248. begin
  18249. if thebits = 0 then
  18250. pTDefRegMap(@Self)^.clr := $00000004
  18251. else
  18252. pTDefRegMap(@Self)^.&set := $00000004;
  18253. end;
  18254. function TNVM_NVMCON.getNVMOP2 : TBits_1; inline;
  18255. begin
  18256. getNVMOP2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  18257. end;
  18258. procedure TNVM_NVMCON.setNVMOP3; inline;
  18259. begin
  18260. pTDefRegMap(@Self)^.&set := $00000008;
  18261. end;
  18262. procedure TNVM_NVMCON.clearNVMOP3; inline;
  18263. begin
  18264. pTDefRegMap(@Self)^.clr := $00000008;
  18265. end;
  18266. procedure TNVM_NVMCON.setNVMOP3(thebits : TBits_1); inline;
  18267. begin
  18268. if thebits = 0 then
  18269. pTDefRegMap(@Self)^.clr := $00000008
  18270. else
  18271. pTDefRegMap(@Self)^.&set := $00000008;
  18272. end;
  18273. function TNVM_NVMCON.getNVMOP3 : TBits_1; inline;
  18274. begin
  18275. getNVMOP3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  18276. end;
  18277. procedure TNVM_NVMCON.setPROGOP(thebits : TBits_4); inline;
  18278. begin
  18279. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF0 or ( thebits shl 0 );
  18280. end;
  18281. function TNVM_NVMCON.getPROGOP : TBits_4; inline;
  18282. begin
  18283. getPROGOP := (pTDefRegMap(@Self)^.val and $0000000F) shr 0;
  18284. end;
  18285. procedure TNVM_NVMCON.setPROGOP0; inline;
  18286. begin
  18287. pTDefRegMap(@Self)^.&set := $00000001;
  18288. end;
  18289. procedure TNVM_NVMCON.clearPROGOP0; inline;
  18290. begin
  18291. pTDefRegMap(@Self)^.clr := $00000001;
  18292. end;
  18293. procedure TNVM_NVMCON.setPROGOP0(thebits : TBits_1); inline;
  18294. begin
  18295. if thebits = 0 then
  18296. pTDefRegMap(@Self)^.clr := $00000001
  18297. else
  18298. pTDefRegMap(@Self)^.&set := $00000001;
  18299. end;
  18300. function TNVM_NVMCON.getPROGOP0 : TBits_1; inline;
  18301. begin
  18302. getPROGOP0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  18303. end;
  18304. procedure TNVM_NVMCON.setPROGOP1; inline;
  18305. begin
  18306. pTDefRegMap(@Self)^.&set := $00000002;
  18307. end;
  18308. procedure TNVM_NVMCON.clearPROGOP1; inline;
  18309. begin
  18310. pTDefRegMap(@Self)^.clr := $00000002;
  18311. end;
  18312. procedure TNVM_NVMCON.setPROGOP1(thebits : TBits_1); inline;
  18313. begin
  18314. if thebits = 0 then
  18315. pTDefRegMap(@Self)^.clr := $00000002
  18316. else
  18317. pTDefRegMap(@Self)^.&set := $00000002;
  18318. end;
  18319. function TNVM_NVMCON.getPROGOP1 : TBits_1; inline;
  18320. begin
  18321. getPROGOP1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  18322. end;
  18323. procedure TNVM_NVMCON.setPROGOP2; inline;
  18324. begin
  18325. pTDefRegMap(@Self)^.&set := $00000004;
  18326. end;
  18327. procedure TNVM_NVMCON.clearPROGOP2; inline;
  18328. begin
  18329. pTDefRegMap(@Self)^.clr := $00000004;
  18330. end;
  18331. procedure TNVM_NVMCON.setPROGOP2(thebits : TBits_1); inline;
  18332. begin
  18333. if thebits = 0 then
  18334. pTDefRegMap(@Self)^.clr := $00000004
  18335. else
  18336. pTDefRegMap(@Self)^.&set := $00000004;
  18337. end;
  18338. function TNVM_NVMCON.getPROGOP2 : TBits_1; inline;
  18339. begin
  18340. getPROGOP2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  18341. end;
  18342. procedure TNVM_NVMCON.setPROGOP3; inline;
  18343. begin
  18344. pTDefRegMap(@Self)^.&set := $00000008;
  18345. end;
  18346. procedure TNVM_NVMCON.clearPROGOP3; inline;
  18347. begin
  18348. pTDefRegMap(@Self)^.clr := $00000008;
  18349. end;
  18350. procedure TNVM_NVMCON.setPROGOP3(thebits : TBits_1); inline;
  18351. begin
  18352. if thebits = 0 then
  18353. pTDefRegMap(@Self)^.clr := $00000008
  18354. else
  18355. pTDefRegMap(@Self)^.&set := $00000008;
  18356. end;
  18357. function TNVM_NVMCON.getPROGOP3 : TBits_1; inline;
  18358. begin
  18359. getPROGOP3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  18360. end;
  18361. procedure TNVM_NVMCON.setw(thebits : TBits_32); inline;
  18362. begin
  18363. pTDefRegMap(@Self)^.val := thebits;
  18364. end;
  18365. function TNVM_NVMCON.getw : TBits_32; inline;
  18366. begin
  18367. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  18368. end;
  18369. procedure TRCON_RCON.setPOR; inline;
  18370. begin
  18371. pTDefRegMap(@Self)^.&set := $00000001;
  18372. end;
  18373. procedure TRCON_RCON.clearPOR; inline;
  18374. begin
  18375. pTDefRegMap(@Self)^.clr := $00000001;
  18376. end;
  18377. procedure TRCON_RCON.setPOR(thebits : TBits_1); inline;
  18378. begin
  18379. if thebits = 0 then
  18380. pTDefRegMap(@Self)^.clr := $00000001
  18381. else
  18382. pTDefRegMap(@Self)^.&set := $00000001;
  18383. end;
  18384. function TRCON_RCON.getPOR : TBits_1; inline;
  18385. begin
  18386. getPOR := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  18387. end;
  18388. procedure TRCON_RCON.setBOR; inline;
  18389. begin
  18390. pTDefRegMap(@Self)^.&set := $00000002;
  18391. end;
  18392. procedure TRCON_RCON.clearBOR; inline;
  18393. begin
  18394. pTDefRegMap(@Self)^.clr := $00000002;
  18395. end;
  18396. procedure TRCON_RCON.setBOR(thebits : TBits_1); inline;
  18397. begin
  18398. if thebits = 0 then
  18399. pTDefRegMap(@Self)^.clr := $00000002
  18400. else
  18401. pTDefRegMap(@Self)^.&set := $00000002;
  18402. end;
  18403. function TRCON_RCON.getBOR : TBits_1; inline;
  18404. begin
  18405. getBOR := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  18406. end;
  18407. procedure TRCON_RCON.setIDLE; inline;
  18408. begin
  18409. pTDefRegMap(@Self)^.&set := $00000004;
  18410. end;
  18411. procedure TRCON_RCON.clearIDLE; inline;
  18412. begin
  18413. pTDefRegMap(@Self)^.clr := $00000004;
  18414. end;
  18415. procedure TRCON_RCON.setIDLE(thebits : TBits_1); inline;
  18416. begin
  18417. if thebits = 0 then
  18418. pTDefRegMap(@Self)^.clr := $00000004
  18419. else
  18420. pTDefRegMap(@Self)^.&set := $00000004;
  18421. end;
  18422. function TRCON_RCON.getIDLE : TBits_1; inline;
  18423. begin
  18424. getIDLE := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  18425. end;
  18426. procedure TRCON_RCON.setSLEEP; inline;
  18427. begin
  18428. pTDefRegMap(@Self)^.&set := $00000008;
  18429. end;
  18430. procedure TRCON_RCON.clearSLEEP; inline;
  18431. begin
  18432. pTDefRegMap(@Self)^.clr := $00000008;
  18433. end;
  18434. procedure TRCON_RCON.setSLEEP(thebits : TBits_1); inline;
  18435. begin
  18436. if thebits = 0 then
  18437. pTDefRegMap(@Self)^.clr := $00000008
  18438. else
  18439. pTDefRegMap(@Self)^.&set := $00000008;
  18440. end;
  18441. function TRCON_RCON.getSLEEP : TBits_1; inline;
  18442. begin
  18443. getSLEEP := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  18444. end;
  18445. procedure TRCON_RCON.setWDTO; inline;
  18446. begin
  18447. pTDefRegMap(@Self)^.&set := $00000010;
  18448. end;
  18449. procedure TRCON_RCON.clearWDTO; inline;
  18450. begin
  18451. pTDefRegMap(@Self)^.clr := $00000010;
  18452. end;
  18453. procedure TRCON_RCON.setWDTO(thebits : TBits_1); inline;
  18454. begin
  18455. if thebits = 0 then
  18456. pTDefRegMap(@Self)^.clr := $00000010
  18457. else
  18458. pTDefRegMap(@Self)^.&set := $00000010;
  18459. end;
  18460. function TRCON_RCON.getWDTO : TBits_1; inline;
  18461. begin
  18462. getWDTO := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  18463. end;
  18464. procedure TRCON_RCON.setSWR; inline;
  18465. begin
  18466. pTDefRegMap(@Self)^.&set := $00000040;
  18467. end;
  18468. procedure TRCON_RCON.clearSWR; inline;
  18469. begin
  18470. pTDefRegMap(@Self)^.clr := $00000040;
  18471. end;
  18472. procedure TRCON_RCON.setSWR(thebits : TBits_1); inline;
  18473. begin
  18474. if thebits = 0 then
  18475. pTDefRegMap(@Self)^.clr := $00000040
  18476. else
  18477. pTDefRegMap(@Self)^.&set := $00000040;
  18478. end;
  18479. function TRCON_RCON.getSWR : TBits_1; inline;
  18480. begin
  18481. getSWR := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  18482. end;
  18483. procedure TRCON_RCON.setEXTR; inline;
  18484. begin
  18485. pTDefRegMap(@Self)^.&set := $00000080;
  18486. end;
  18487. procedure TRCON_RCON.clearEXTR; inline;
  18488. begin
  18489. pTDefRegMap(@Self)^.clr := $00000080;
  18490. end;
  18491. procedure TRCON_RCON.setEXTR(thebits : TBits_1); inline;
  18492. begin
  18493. if thebits = 0 then
  18494. pTDefRegMap(@Self)^.clr := $00000080
  18495. else
  18496. pTDefRegMap(@Self)^.&set := $00000080;
  18497. end;
  18498. function TRCON_RCON.getEXTR : TBits_1; inline;
  18499. begin
  18500. getEXTR := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  18501. end;
  18502. procedure TRCON_RCON.setVREGS; inline;
  18503. begin
  18504. pTDefRegMap(@Self)^.&set := $00000100;
  18505. end;
  18506. procedure TRCON_RCON.clearVREGS; inline;
  18507. begin
  18508. pTDefRegMap(@Self)^.clr := $00000100;
  18509. end;
  18510. procedure TRCON_RCON.setVREGS(thebits : TBits_1); inline;
  18511. begin
  18512. if thebits = 0 then
  18513. pTDefRegMap(@Self)^.clr := $00000100
  18514. else
  18515. pTDefRegMap(@Self)^.&set := $00000100;
  18516. end;
  18517. function TRCON_RCON.getVREGS : TBits_1; inline;
  18518. begin
  18519. getVREGS := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  18520. end;
  18521. procedure TRCON_RCON.setCMR; inline;
  18522. begin
  18523. pTDefRegMap(@Self)^.&set := $00000200;
  18524. end;
  18525. procedure TRCON_RCON.clearCMR; inline;
  18526. begin
  18527. pTDefRegMap(@Self)^.clr := $00000200;
  18528. end;
  18529. procedure TRCON_RCON.setCMR(thebits : TBits_1); inline;
  18530. begin
  18531. if thebits = 0 then
  18532. pTDefRegMap(@Self)^.clr := $00000200
  18533. else
  18534. pTDefRegMap(@Self)^.&set := $00000200;
  18535. end;
  18536. function TRCON_RCON.getCMR : TBits_1; inline;
  18537. begin
  18538. getCMR := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  18539. end;
  18540. procedure TRCON_RCON.setw(thebits : TBits_32); inline;
  18541. begin
  18542. pTDefRegMap(@Self)^.val := thebits;
  18543. end;
  18544. function TRCON_RCON.getw : TBits_32; inline;
  18545. begin
  18546. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  18547. end;
  18548. procedure TRCON_RSWRST.setSWRST; inline;
  18549. begin
  18550. pTDefRegMap(@Self)^.&set := $00000001;
  18551. end;
  18552. procedure TRCON_RSWRST.clearSWRST; inline;
  18553. begin
  18554. pTDefRegMap(@Self)^.clr := $00000001;
  18555. end;
  18556. procedure TRCON_RSWRST.setSWRST(thebits : TBits_1); inline;
  18557. begin
  18558. if thebits = 0 then
  18559. pTDefRegMap(@Self)^.clr := $00000001
  18560. else
  18561. pTDefRegMap(@Self)^.&set := $00000001;
  18562. end;
  18563. function TRCON_RSWRST.getSWRST : TBits_1; inline;
  18564. begin
  18565. getSWRST := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  18566. end;
  18567. procedure TRCON_RSWRST.setw(thebits : TBits_32); inline;
  18568. begin
  18569. pTDefRegMap(@Self)^.val := thebits;
  18570. end;
  18571. function TRCON_RSWRST.getw : TBits_32; inline;
  18572. begin
  18573. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  18574. end;
  18575. procedure TINT_INTSTAT.setVEC(thebits : TBits_6); inline;
  18576. begin
  18577. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFC0 or ( thebits shl 0 );
  18578. end;
  18579. function TINT_INTSTAT.getVEC : TBits_6; inline;
  18580. begin
  18581. getVEC := (pTDefRegMap(@Self)^.val and $0000003F) shr 0;
  18582. end;
  18583. procedure TINT_INTSTAT.setRIPL(thebits : TBits_3); inline;
  18584. begin
  18585. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFF8FF or ( thebits shl 8 );
  18586. end;
  18587. function TINT_INTSTAT.getRIPL : TBits_3; inline;
  18588. begin
  18589. getRIPL := (pTDefRegMap(@Self)^.val and $00000700) shr 8;
  18590. end;
  18591. procedure TINT_INTSTAT.setSRIPL(thebits : TBits_3); inline;
  18592. begin
  18593. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFF8FF or ( thebits shl 8 );
  18594. end;
  18595. function TINT_INTSTAT.getSRIPL : TBits_3; inline;
  18596. begin
  18597. getSRIPL := (pTDefRegMap(@Self)^.val and $00000700) shr 8;
  18598. end;
  18599. procedure TBMX_BMXCON.setBMXARB(thebits : TBits_3); inline;
  18600. begin
  18601. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  18602. end;
  18603. function TBMX_BMXCON.getBMXARB : TBits_3; inline;
  18604. begin
  18605. getBMXARB := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  18606. end;
  18607. procedure TBMX_BMXCON.setBMXWSDRM; inline;
  18608. begin
  18609. pTDefRegMap(@Self)^.&set := $00000040;
  18610. end;
  18611. procedure TBMX_BMXCON.clearBMXWSDRM; inline;
  18612. begin
  18613. pTDefRegMap(@Self)^.clr := $00000040;
  18614. end;
  18615. procedure TBMX_BMXCON.setBMXWSDRM(thebits : TBits_1); inline;
  18616. begin
  18617. if thebits = 0 then
  18618. pTDefRegMap(@Self)^.clr := $00000040
  18619. else
  18620. pTDefRegMap(@Self)^.&set := $00000040;
  18621. end;
  18622. function TBMX_BMXCON.getBMXWSDRM : TBits_1; inline;
  18623. begin
  18624. getBMXWSDRM := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  18625. end;
  18626. procedure TBMX_BMXCON.setBMXERRIS; inline;
  18627. begin
  18628. pTDefRegMap(@Self)^.&set := $00010000;
  18629. end;
  18630. procedure TBMX_BMXCON.clearBMXERRIS; inline;
  18631. begin
  18632. pTDefRegMap(@Self)^.clr := $00010000;
  18633. end;
  18634. procedure TBMX_BMXCON.setBMXERRIS(thebits : TBits_1); inline;
  18635. begin
  18636. if thebits = 0 then
  18637. pTDefRegMap(@Self)^.clr := $00010000
  18638. else
  18639. pTDefRegMap(@Self)^.&set := $00010000;
  18640. end;
  18641. function TBMX_BMXCON.getBMXERRIS : TBits_1; inline;
  18642. begin
  18643. getBMXERRIS := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  18644. end;
  18645. procedure TBMX_BMXCON.setBMXERRDS; inline;
  18646. begin
  18647. pTDefRegMap(@Self)^.&set := $00020000;
  18648. end;
  18649. procedure TBMX_BMXCON.clearBMXERRDS; inline;
  18650. begin
  18651. pTDefRegMap(@Self)^.clr := $00020000;
  18652. end;
  18653. procedure TBMX_BMXCON.setBMXERRDS(thebits : TBits_1); inline;
  18654. begin
  18655. if thebits = 0 then
  18656. pTDefRegMap(@Self)^.clr := $00020000
  18657. else
  18658. pTDefRegMap(@Self)^.&set := $00020000;
  18659. end;
  18660. function TBMX_BMXCON.getBMXERRDS : TBits_1; inline;
  18661. begin
  18662. getBMXERRDS := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  18663. end;
  18664. procedure TBMX_BMXCON.setBMXERRDMA; inline;
  18665. begin
  18666. pTDefRegMap(@Self)^.&set := $00040000;
  18667. end;
  18668. procedure TBMX_BMXCON.clearBMXERRDMA; inline;
  18669. begin
  18670. pTDefRegMap(@Self)^.clr := $00040000;
  18671. end;
  18672. procedure TBMX_BMXCON.setBMXERRDMA(thebits : TBits_1); inline;
  18673. begin
  18674. if thebits = 0 then
  18675. pTDefRegMap(@Self)^.clr := $00040000
  18676. else
  18677. pTDefRegMap(@Self)^.&set := $00040000;
  18678. end;
  18679. function TBMX_BMXCON.getBMXERRDMA : TBits_1; inline;
  18680. begin
  18681. getBMXERRDMA := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  18682. end;
  18683. procedure TBMX_BMXCON.setBMXERRICD; inline;
  18684. begin
  18685. pTDefRegMap(@Self)^.&set := $00080000;
  18686. end;
  18687. procedure TBMX_BMXCON.clearBMXERRICD; inline;
  18688. begin
  18689. pTDefRegMap(@Self)^.clr := $00080000;
  18690. end;
  18691. procedure TBMX_BMXCON.setBMXERRICD(thebits : TBits_1); inline;
  18692. begin
  18693. if thebits = 0 then
  18694. pTDefRegMap(@Self)^.clr := $00080000
  18695. else
  18696. pTDefRegMap(@Self)^.&set := $00080000;
  18697. end;
  18698. function TBMX_BMXCON.getBMXERRICD : TBits_1; inline;
  18699. begin
  18700. getBMXERRICD := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  18701. end;
  18702. procedure TBMX_BMXCON.setBMXERRIXI; inline;
  18703. begin
  18704. pTDefRegMap(@Self)^.&set := $00100000;
  18705. end;
  18706. procedure TBMX_BMXCON.clearBMXERRIXI; inline;
  18707. begin
  18708. pTDefRegMap(@Self)^.clr := $00100000;
  18709. end;
  18710. procedure TBMX_BMXCON.setBMXERRIXI(thebits : TBits_1); inline;
  18711. begin
  18712. if thebits = 0 then
  18713. pTDefRegMap(@Self)^.clr := $00100000
  18714. else
  18715. pTDefRegMap(@Self)^.&set := $00100000;
  18716. end;
  18717. function TBMX_BMXCON.getBMXERRIXI : TBits_1; inline;
  18718. begin
  18719. getBMXERRIXI := (pTDefRegMap(@Self)^.val and $00100000) shr 20;
  18720. end;
  18721. procedure TBMX_BMXCON.setBMXCHEDMA; inline;
  18722. begin
  18723. pTDefRegMap(@Self)^.&set := $04000000;
  18724. end;
  18725. procedure TBMX_BMXCON.clearBMXCHEDMA; inline;
  18726. begin
  18727. pTDefRegMap(@Self)^.clr := $04000000;
  18728. end;
  18729. procedure TBMX_BMXCON.setBMXCHEDMA(thebits : TBits_1); inline;
  18730. begin
  18731. if thebits = 0 then
  18732. pTDefRegMap(@Self)^.clr := $04000000
  18733. else
  18734. pTDefRegMap(@Self)^.&set := $04000000;
  18735. end;
  18736. function TBMX_BMXCON.getBMXCHEDMA : TBits_1; inline;
  18737. begin
  18738. getBMXCHEDMA := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  18739. end;
  18740. procedure TBMX_BMXCON.setw(thebits : TBits_32); inline;
  18741. begin
  18742. pTDefRegMap(@Self)^.val := thebits;
  18743. end;
  18744. function TBMX_BMXCON.getw : TBits_32; inline;
  18745. begin
  18746. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  18747. end;
  18748. procedure TPCACHE_CHECON.setPFMWS(thebits : TBits_3); inline;
  18749. begin
  18750. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  18751. end;
  18752. function TPCACHE_CHECON.getPFMWS : TBits_3; inline;
  18753. begin
  18754. getPFMWS := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  18755. end;
  18756. procedure TPCACHE_CHECON.setPREFEN(thebits : TBits_2); inline;
  18757. begin
  18758. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFCF or ( thebits shl 4 );
  18759. end;
  18760. function TPCACHE_CHECON.getPREFEN : TBits_2; inline;
  18761. begin
  18762. getPREFEN := (pTDefRegMap(@Self)^.val and $00000030) shr 4;
  18763. end;
  18764. procedure TPCACHE_CHECON.setDCSZ(thebits : TBits_2); inline;
  18765. begin
  18766. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  18767. end;
  18768. function TPCACHE_CHECON.getDCSZ : TBits_2; inline;
  18769. begin
  18770. getDCSZ := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  18771. end;
  18772. procedure TPCACHE_CHECON.setCHECOH; inline;
  18773. begin
  18774. pTDefRegMap(@Self)^.&set := $00010000;
  18775. end;
  18776. procedure TPCACHE_CHECON.clearCHECOH; inline;
  18777. begin
  18778. pTDefRegMap(@Self)^.clr := $00010000;
  18779. end;
  18780. procedure TPCACHE_CHECON.setCHECOH(thebits : TBits_1); inline;
  18781. begin
  18782. if thebits = 0 then
  18783. pTDefRegMap(@Self)^.clr := $00010000
  18784. else
  18785. pTDefRegMap(@Self)^.&set := $00010000;
  18786. end;
  18787. function TPCACHE_CHECON.getCHECOH : TBits_1; inline;
  18788. begin
  18789. getCHECOH := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  18790. end;
  18791. procedure TPCACHE_CHECON.setw(thebits : TBits_32); inline;
  18792. begin
  18793. pTDefRegMap(@Self)^.val := thebits;
  18794. end;
  18795. function TPCACHE_CHECON.getw : TBits_32; inline;
  18796. begin
  18797. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  18798. end;
  18799. procedure TPCACHE_CHETAG.setLTYPE; inline;
  18800. begin
  18801. pTDefRegMap(@Self)^.&set := $00000002;
  18802. end;
  18803. procedure TPCACHE_CHETAG.clearLTYPE; inline;
  18804. begin
  18805. pTDefRegMap(@Self)^.clr := $00000002;
  18806. end;
  18807. procedure TPCACHE_CHETAG.setLTYPE(thebits : TBits_1); inline;
  18808. begin
  18809. if thebits = 0 then
  18810. pTDefRegMap(@Self)^.clr := $00000002
  18811. else
  18812. pTDefRegMap(@Self)^.&set := $00000002;
  18813. end;
  18814. function TPCACHE_CHETAG.getLTYPE : TBits_1; inline;
  18815. begin
  18816. getLTYPE := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  18817. end;
  18818. procedure TPCACHE_CHETAG.setLLOCK; inline;
  18819. begin
  18820. pTDefRegMap(@Self)^.&set := $00000004;
  18821. end;
  18822. procedure TPCACHE_CHETAG.clearLLOCK; inline;
  18823. begin
  18824. pTDefRegMap(@Self)^.clr := $00000004;
  18825. end;
  18826. procedure TPCACHE_CHETAG.setLLOCK(thebits : TBits_1); inline;
  18827. begin
  18828. if thebits = 0 then
  18829. pTDefRegMap(@Self)^.clr := $00000004
  18830. else
  18831. pTDefRegMap(@Self)^.&set := $00000004;
  18832. end;
  18833. function TPCACHE_CHETAG.getLLOCK : TBits_1; inline;
  18834. begin
  18835. getLLOCK := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  18836. end;
  18837. procedure TPCACHE_CHETAG.setLVALID; inline;
  18838. begin
  18839. pTDefRegMap(@Self)^.&set := $00000008;
  18840. end;
  18841. procedure TPCACHE_CHETAG.clearLVALID; inline;
  18842. begin
  18843. pTDefRegMap(@Self)^.clr := $00000008;
  18844. end;
  18845. procedure TPCACHE_CHETAG.setLVALID(thebits : TBits_1); inline;
  18846. begin
  18847. if thebits = 0 then
  18848. pTDefRegMap(@Self)^.clr := $00000008
  18849. else
  18850. pTDefRegMap(@Self)^.&set := $00000008;
  18851. end;
  18852. function TPCACHE_CHETAG.getLVALID : TBits_1; inline;
  18853. begin
  18854. getLVALID := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  18855. end;
  18856. procedure TPCACHE_CHETAG.setLTAG(thebits : TBits_20); inline;
  18857. begin
  18858. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00000F or ( thebits shl 4 );
  18859. end;
  18860. function TPCACHE_CHETAG.getLTAG : TBits_20; inline;
  18861. begin
  18862. getLTAG := (pTDefRegMap(@Self)^.val and $00FFFFF0) shr 4;
  18863. end;
  18864. procedure TPCACHE_CHETAG.setLTAGBOOT; inline;
  18865. begin
  18866. pTDefRegMap(@Self)^.&set := $80000000;
  18867. end;
  18868. procedure TPCACHE_CHETAG.clearLTAGBOOT; inline;
  18869. begin
  18870. pTDefRegMap(@Self)^.clr := $80000000;
  18871. end;
  18872. procedure TPCACHE_CHETAG.setLTAGBOOT(thebits : TBits_1); inline;
  18873. begin
  18874. if thebits = 0 then
  18875. pTDefRegMap(@Self)^.clr := $80000000
  18876. else
  18877. pTDefRegMap(@Self)^.&set := $80000000;
  18878. end;
  18879. function TPCACHE_CHETAG.getLTAGBOOT : TBits_1; inline;
  18880. begin
  18881. getLTAGBOOT := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  18882. end;
  18883. procedure TPCACHE_CHETAG.setw(thebits : TBits_32); inline;
  18884. begin
  18885. pTDefRegMap(@Self)^.val := thebits;
  18886. end;
  18887. function TPCACHE_CHETAG.getw : TBits_32; inline;
  18888. begin
  18889. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  18890. end;
  18891. procedure TUSB_U1IR.setURSTIF_DETACHIF; inline;
  18892. begin
  18893. pTDefRegMap(@Self)^.&set := $00000001;
  18894. end;
  18895. procedure TUSB_U1IR.clearURSTIF_DETACHIF; inline;
  18896. begin
  18897. pTDefRegMap(@Self)^.clr := $00000001;
  18898. end;
  18899. procedure TUSB_U1IR.setURSTIF_DETACHIF(thebits : TBits_1); inline;
  18900. begin
  18901. if thebits = 0 then
  18902. pTDefRegMap(@Self)^.clr := $00000001
  18903. else
  18904. pTDefRegMap(@Self)^.&set := $00000001;
  18905. end;
  18906. function TUSB_U1IR.getURSTIF_DETACHIF : TBits_1; inline;
  18907. begin
  18908. getURSTIF_DETACHIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  18909. end;
  18910. procedure TUSB_U1IR.setUERRIF; inline;
  18911. begin
  18912. pTDefRegMap(@Self)^.&set := $00000002;
  18913. end;
  18914. procedure TUSB_U1IR.clearUERRIF; inline;
  18915. begin
  18916. pTDefRegMap(@Self)^.clr := $00000002;
  18917. end;
  18918. procedure TUSB_U1IR.setUERRIF(thebits : TBits_1); inline;
  18919. begin
  18920. if thebits = 0 then
  18921. pTDefRegMap(@Self)^.clr := $00000002
  18922. else
  18923. pTDefRegMap(@Self)^.&set := $00000002;
  18924. end;
  18925. function TUSB_U1IR.getUERRIF : TBits_1; inline;
  18926. begin
  18927. getUERRIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  18928. end;
  18929. procedure TUSB_U1IR.setSOFIF; inline;
  18930. begin
  18931. pTDefRegMap(@Self)^.&set := $00000004;
  18932. end;
  18933. procedure TUSB_U1IR.clearSOFIF; inline;
  18934. begin
  18935. pTDefRegMap(@Self)^.clr := $00000004;
  18936. end;
  18937. procedure TUSB_U1IR.setSOFIF(thebits : TBits_1); inline;
  18938. begin
  18939. if thebits = 0 then
  18940. pTDefRegMap(@Self)^.clr := $00000004
  18941. else
  18942. pTDefRegMap(@Self)^.&set := $00000004;
  18943. end;
  18944. function TUSB_U1IR.getSOFIF : TBits_1; inline;
  18945. begin
  18946. getSOFIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  18947. end;
  18948. procedure TUSB_U1IR.setTRNIF; inline;
  18949. begin
  18950. pTDefRegMap(@Self)^.&set := $00000008;
  18951. end;
  18952. procedure TUSB_U1IR.clearTRNIF; inline;
  18953. begin
  18954. pTDefRegMap(@Self)^.clr := $00000008;
  18955. end;
  18956. procedure TUSB_U1IR.setTRNIF(thebits : TBits_1); inline;
  18957. begin
  18958. if thebits = 0 then
  18959. pTDefRegMap(@Self)^.clr := $00000008
  18960. else
  18961. pTDefRegMap(@Self)^.&set := $00000008;
  18962. end;
  18963. function TUSB_U1IR.getTRNIF : TBits_1; inline;
  18964. begin
  18965. getTRNIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  18966. end;
  18967. procedure TUSB_U1IR.setIDLEIF; inline;
  18968. begin
  18969. pTDefRegMap(@Self)^.&set := $00000010;
  18970. end;
  18971. procedure TUSB_U1IR.clearIDLEIF; inline;
  18972. begin
  18973. pTDefRegMap(@Self)^.clr := $00000010;
  18974. end;
  18975. procedure TUSB_U1IR.setIDLEIF(thebits : TBits_1); inline;
  18976. begin
  18977. if thebits = 0 then
  18978. pTDefRegMap(@Self)^.clr := $00000010
  18979. else
  18980. pTDefRegMap(@Self)^.&set := $00000010;
  18981. end;
  18982. function TUSB_U1IR.getIDLEIF : TBits_1; inline;
  18983. begin
  18984. getIDLEIF := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  18985. end;
  18986. procedure TUSB_U1IR.setRESUMEIF; inline;
  18987. begin
  18988. pTDefRegMap(@Self)^.&set := $00000020;
  18989. end;
  18990. procedure TUSB_U1IR.clearRESUMEIF; inline;
  18991. begin
  18992. pTDefRegMap(@Self)^.clr := $00000020;
  18993. end;
  18994. procedure TUSB_U1IR.setRESUMEIF(thebits : TBits_1); inline;
  18995. begin
  18996. if thebits = 0 then
  18997. pTDefRegMap(@Self)^.clr := $00000020
  18998. else
  18999. pTDefRegMap(@Self)^.&set := $00000020;
  19000. end;
  19001. function TUSB_U1IR.getRESUMEIF : TBits_1; inline;
  19002. begin
  19003. getRESUMEIF := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  19004. end;
  19005. procedure TUSB_U1IR.setATTACHIF; inline;
  19006. begin
  19007. pTDefRegMap(@Self)^.&set := $00000040;
  19008. end;
  19009. procedure TUSB_U1IR.clearATTACHIF; inline;
  19010. begin
  19011. pTDefRegMap(@Self)^.clr := $00000040;
  19012. end;
  19013. procedure TUSB_U1IR.setATTACHIF(thebits : TBits_1); inline;
  19014. begin
  19015. if thebits = 0 then
  19016. pTDefRegMap(@Self)^.clr := $00000040
  19017. else
  19018. pTDefRegMap(@Self)^.&set := $00000040;
  19019. end;
  19020. function TUSB_U1IR.getATTACHIF : TBits_1; inline;
  19021. begin
  19022. getATTACHIF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  19023. end;
  19024. procedure TUSB_U1IR.setSTALLIF; inline;
  19025. begin
  19026. pTDefRegMap(@Self)^.&set := $00000080;
  19027. end;
  19028. procedure TUSB_U1IR.clearSTALLIF; inline;
  19029. begin
  19030. pTDefRegMap(@Self)^.clr := $00000080;
  19031. end;
  19032. procedure TUSB_U1IR.setSTALLIF(thebits : TBits_1); inline;
  19033. begin
  19034. if thebits = 0 then
  19035. pTDefRegMap(@Self)^.clr := $00000080
  19036. else
  19037. pTDefRegMap(@Self)^.&set := $00000080;
  19038. end;
  19039. function TUSB_U1IR.getSTALLIF : TBits_1; inline;
  19040. begin
  19041. getSTALLIF := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  19042. end;
  19043. procedure TUSB_U1IR.setDETACHIF; inline;
  19044. begin
  19045. pTDefRegMap(@Self)^.&set := $00000001;
  19046. end;
  19047. procedure TUSB_U1IR.clearDETACHIF; inline;
  19048. begin
  19049. pTDefRegMap(@Self)^.clr := $00000001;
  19050. end;
  19051. procedure TUSB_U1IR.setDETACHIF(thebits : TBits_1); inline;
  19052. begin
  19053. if thebits = 0 then
  19054. pTDefRegMap(@Self)^.clr := $00000001
  19055. else
  19056. pTDefRegMap(@Self)^.&set := $00000001;
  19057. end;
  19058. function TUSB_U1IR.getDETACHIF : TBits_1; inline;
  19059. begin
  19060. getDETACHIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  19061. end;
  19062. procedure TUSB_U1IR.setURSTIF; inline;
  19063. begin
  19064. pTDefRegMap(@Self)^.&set := $00000001;
  19065. end;
  19066. procedure TUSB_U1IR.clearURSTIF; inline;
  19067. begin
  19068. pTDefRegMap(@Self)^.clr := $00000001;
  19069. end;
  19070. procedure TUSB_U1IR.setURSTIF(thebits : TBits_1); inline;
  19071. begin
  19072. if thebits = 0 then
  19073. pTDefRegMap(@Self)^.clr := $00000001
  19074. else
  19075. pTDefRegMap(@Self)^.&set := $00000001;
  19076. end;
  19077. function TUSB_U1IR.getURSTIF : TBits_1; inline;
  19078. begin
  19079. getURSTIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  19080. end;
  19081. procedure TUSB_U1IE.setURSTIE_DETACHIE; inline;
  19082. begin
  19083. pTDefRegMap(@Self)^.&set := $00000001;
  19084. end;
  19085. procedure TUSB_U1IE.clearURSTIE_DETACHIE; inline;
  19086. begin
  19087. pTDefRegMap(@Self)^.clr := $00000001;
  19088. end;
  19089. procedure TUSB_U1IE.setURSTIE_DETACHIE(thebits : TBits_1); inline;
  19090. begin
  19091. if thebits = 0 then
  19092. pTDefRegMap(@Self)^.clr := $00000001
  19093. else
  19094. pTDefRegMap(@Self)^.&set := $00000001;
  19095. end;
  19096. function TUSB_U1IE.getURSTIE_DETACHIE : TBits_1; inline;
  19097. begin
  19098. getURSTIE_DETACHIE := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  19099. end;
  19100. procedure TUSB_U1IE.setUERRIE; inline;
  19101. begin
  19102. pTDefRegMap(@Self)^.&set := $00000002;
  19103. end;
  19104. procedure TUSB_U1IE.clearUERRIE; inline;
  19105. begin
  19106. pTDefRegMap(@Self)^.clr := $00000002;
  19107. end;
  19108. procedure TUSB_U1IE.setUERRIE(thebits : TBits_1); inline;
  19109. begin
  19110. if thebits = 0 then
  19111. pTDefRegMap(@Self)^.clr := $00000002
  19112. else
  19113. pTDefRegMap(@Self)^.&set := $00000002;
  19114. end;
  19115. function TUSB_U1IE.getUERRIE : TBits_1; inline;
  19116. begin
  19117. getUERRIE := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  19118. end;
  19119. procedure TUSB_U1IE.setSOFIE; inline;
  19120. begin
  19121. pTDefRegMap(@Self)^.&set := $00000004;
  19122. end;
  19123. procedure TUSB_U1IE.clearSOFIE; inline;
  19124. begin
  19125. pTDefRegMap(@Self)^.clr := $00000004;
  19126. end;
  19127. procedure TUSB_U1IE.setSOFIE(thebits : TBits_1); inline;
  19128. begin
  19129. if thebits = 0 then
  19130. pTDefRegMap(@Self)^.clr := $00000004
  19131. else
  19132. pTDefRegMap(@Self)^.&set := $00000004;
  19133. end;
  19134. function TUSB_U1IE.getSOFIE : TBits_1; inline;
  19135. begin
  19136. getSOFIE := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  19137. end;
  19138. procedure TUSB_U1IE.setTRNIE; inline;
  19139. begin
  19140. pTDefRegMap(@Self)^.&set := $00000008;
  19141. end;
  19142. procedure TUSB_U1IE.clearTRNIE; inline;
  19143. begin
  19144. pTDefRegMap(@Self)^.clr := $00000008;
  19145. end;
  19146. procedure TUSB_U1IE.setTRNIE(thebits : TBits_1); inline;
  19147. begin
  19148. if thebits = 0 then
  19149. pTDefRegMap(@Self)^.clr := $00000008
  19150. else
  19151. pTDefRegMap(@Self)^.&set := $00000008;
  19152. end;
  19153. function TUSB_U1IE.getTRNIE : TBits_1; inline;
  19154. begin
  19155. getTRNIE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  19156. end;
  19157. procedure TUSB_U1IE.setIDLEIE; inline;
  19158. begin
  19159. pTDefRegMap(@Self)^.&set := $00000010;
  19160. end;
  19161. procedure TUSB_U1IE.clearIDLEIE; inline;
  19162. begin
  19163. pTDefRegMap(@Self)^.clr := $00000010;
  19164. end;
  19165. procedure TUSB_U1IE.setIDLEIE(thebits : TBits_1); inline;
  19166. begin
  19167. if thebits = 0 then
  19168. pTDefRegMap(@Self)^.clr := $00000010
  19169. else
  19170. pTDefRegMap(@Self)^.&set := $00000010;
  19171. end;
  19172. function TUSB_U1IE.getIDLEIE : TBits_1; inline;
  19173. begin
  19174. getIDLEIE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  19175. end;
  19176. procedure TUSB_U1IE.setRESUMEIE; inline;
  19177. begin
  19178. pTDefRegMap(@Self)^.&set := $00000020;
  19179. end;
  19180. procedure TUSB_U1IE.clearRESUMEIE; inline;
  19181. begin
  19182. pTDefRegMap(@Self)^.clr := $00000020;
  19183. end;
  19184. procedure TUSB_U1IE.setRESUMEIE(thebits : TBits_1); inline;
  19185. begin
  19186. if thebits = 0 then
  19187. pTDefRegMap(@Self)^.clr := $00000020
  19188. else
  19189. pTDefRegMap(@Self)^.&set := $00000020;
  19190. end;
  19191. function TUSB_U1IE.getRESUMEIE : TBits_1; inline;
  19192. begin
  19193. getRESUMEIE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  19194. end;
  19195. procedure TUSB_U1IE.setATTACHIE; inline;
  19196. begin
  19197. pTDefRegMap(@Self)^.&set := $00000040;
  19198. end;
  19199. procedure TUSB_U1IE.clearATTACHIE; inline;
  19200. begin
  19201. pTDefRegMap(@Self)^.clr := $00000040;
  19202. end;
  19203. procedure TUSB_U1IE.setATTACHIE(thebits : TBits_1); inline;
  19204. begin
  19205. if thebits = 0 then
  19206. pTDefRegMap(@Self)^.clr := $00000040
  19207. else
  19208. pTDefRegMap(@Self)^.&set := $00000040;
  19209. end;
  19210. function TUSB_U1IE.getATTACHIE : TBits_1; inline;
  19211. begin
  19212. getATTACHIE := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  19213. end;
  19214. procedure TUSB_U1IE.setSTALLIE; inline;
  19215. begin
  19216. pTDefRegMap(@Self)^.&set := $00000080;
  19217. end;
  19218. procedure TUSB_U1IE.clearSTALLIE; inline;
  19219. begin
  19220. pTDefRegMap(@Self)^.clr := $00000080;
  19221. end;
  19222. procedure TUSB_U1IE.setSTALLIE(thebits : TBits_1); inline;
  19223. begin
  19224. if thebits = 0 then
  19225. pTDefRegMap(@Self)^.clr := $00000080
  19226. else
  19227. pTDefRegMap(@Self)^.&set := $00000080;
  19228. end;
  19229. function TUSB_U1IE.getSTALLIE : TBits_1; inline;
  19230. begin
  19231. getSTALLIE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  19232. end;
  19233. procedure TUSB_U1IE.setDETACHIE; inline;
  19234. begin
  19235. pTDefRegMap(@Self)^.&set := $00000001;
  19236. end;
  19237. procedure TUSB_U1IE.clearDETACHIE; inline;
  19238. begin
  19239. pTDefRegMap(@Self)^.clr := $00000001;
  19240. end;
  19241. procedure TUSB_U1IE.setDETACHIE(thebits : TBits_1); inline;
  19242. begin
  19243. if thebits = 0 then
  19244. pTDefRegMap(@Self)^.clr := $00000001
  19245. else
  19246. pTDefRegMap(@Self)^.&set := $00000001;
  19247. end;
  19248. function TUSB_U1IE.getDETACHIE : TBits_1; inline;
  19249. begin
  19250. getDETACHIE := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  19251. end;
  19252. procedure TUSB_U1IE.setURSTIE; inline;
  19253. begin
  19254. pTDefRegMap(@Self)^.&set := $00000001;
  19255. end;
  19256. procedure TUSB_U1IE.clearURSTIE; inline;
  19257. begin
  19258. pTDefRegMap(@Self)^.clr := $00000001;
  19259. end;
  19260. procedure TUSB_U1IE.setURSTIE(thebits : TBits_1); inline;
  19261. begin
  19262. if thebits = 0 then
  19263. pTDefRegMap(@Self)^.clr := $00000001
  19264. else
  19265. pTDefRegMap(@Self)^.&set := $00000001;
  19266. end;
  19267. function TUSB_U1IE.getURSTIE : TBits_1; inline;
  19268. begin
  19269. getURSTIE := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  19270. end;
  19271. procedure TUSB_U1EIR.setPIDEF; inline;
  19272. begin
  19273. pTDefRegMap(@Self)^.&set := $00000001;
  19274. end;
  19275. procedure TUSB_U1EIR.clearPIDEF; inline;
  19276. begin
  19277. pTDefRegMap(@Self)^.clr := $00000001;
  19278. end;
  19279. procedure TUSB_U1EIR.setPIDEF(thebits : TBits_1); inline;
  19280. begin
  19281. if thebits = 0 then
  19282. pTDefRegMap(@Self)^.clr := $00000001
  19283. else
  19284. pTDefRegMap(@Self)^.&set := $00000001;
  19285. end;
  19286. function TUSB_U1EIR.getPIDEF : TBits_1; inline;
  19287. begin
  19288. getPIDEF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  19289. end;
  19290. procedure TUSB_U1EIR.setCRC5EF_EOFEF; inline;
  19291. begin
  19292. pTDefRegMap(@Self)^.&set := $00000002;
  19293. end;
  19294. procedure TUSB_U1EIR.clearCRC5EF_EOFEF; inline;
  19295. begin
  19296. pTDefRegMap(@Self)^.clr := $00000002;
  19297. end;
  19298. procedure TUSB_U1EIR.setCRC5EF_EOFEF(thebits : TBits_1); inline;
  19299. begin
  19300. if thebits = 0 then
  19301. pTDefRegMap(@Self)^.clr := $00000002
  19302. else
  19303. pTDefRegMap(@Self)^.&set := $00000002;
  19304. end;
  19305. function TUSB_U1EIR.getCRC5EF_EOFEF : TBits_1; inline;
  19306. begin
  19307. getCRC5EF_EOFEF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  19308. end;
  19309. procedure TUSB_U1EIR.setCRC16EF; inline;
  19310. begin
  19311. pTDefRegMap(@Self)^.&set := $00000004;
  19312. end;
  19313. procedure TUSB_U1EIR.clearCRC16EF; inline;
  19314. begin
  19315. pTDefRegMap(@Self)^.clr := $00000004;
  19316. end;
  19317. procedure TUSB_U1EIR.setCRC16EF(thebits : TBits_1); inline;
  19318. begin
  19319. if thebits = 0 then
  19320. pTDefRegMap(@Self)^.clr := $00000004
  19321. else
  19322. pTDefRegMap(@Self)^.&set := $00000004;
  19323. end;
  19324. function TUSB_U1EIR.getCRC16EF : TBits_1; inline;
  19325. begin
  19326. getCRC16EF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  19327. end;
  19328. procedure TUSB_U1EIR.setDFN8EF; inline;
  19329. begin
  19330. pTDefRegMap(@Self)^.&set := $00000008;
  19331. end;
  19332. procedure TUSB_U1EIR.clearDFN8EF; inline;
  19333. begin
  19334. pTDefRegMap(@Self)^.clr := $00000008;
  19335. end;
  19336. procedure TUSB_U1EIR.setDFN8EF(thebits : TBits_1); inline;
  19337. begin
  19338. if thebits = 0 then
  19339. pTDefRegMap(@Self)^.clr := $00000008
  19340. else
  19341. pTDefRegMap(@Self)^.&set := $00000008;
  19342. end;
  19343. function TUSB_U1EIR.getDFN8EF : TBits_1; inline;
  19344. begin
  19345. getDFN8EF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  19346. end;
  19347. procedure TUSB_U1EIR.setBTOEF; inline;
  19348. begin
  19349. pTDefRegMap(@Self)^.&set := $00000010;
  19350. end;
  19351. procedure TUSB_U1EIR.clearBTOEF; inline;
  19352. begin
  19353. pTDefRegMap(@Self)^.clr := $00000010;
  19354. end;
  19355. procedure TUSB_U1EIR.setBTOEF(thebits : TBits_1); inline;
  19356. begin
  19357. if thebits = 0 then
  19358. pTDefRegMap(@Self)^.clr := $00000010
  19359. else
  19360. pTDefRegMap(@Self)^.&set := $00000010;
  19361. end;
  19362. function TUSB_U1EIR.getBTOEF : TBits_1; inline;
  19363. begin
  19364. getBTOEF := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  19365. end;
  19366. procedure TUSB_U1EIR.setDMAEF; inline;
  19367. begin
  19368. pTDefRegMap(@Self)^.&set := $00000020;
  19369. end;
  19370. procedure TUSB_U1EIR.clearDMAEF; inline;
  19371. begin
  19372. pTDefRegMap(@Self)^.clr := $00000020;
  19373. end;
  19374. procedure TUSB_U1EIR.setDMAEF(thebits : TBits_1); inline;
  19375. begin
  19376. if thebits = 0 then
  19377. pTDefRegMap(@Self)^.clr := $00000020
  19378. else
  19379. pTDefRegMap(@Self)^.&set := $00000020;
  19380. end;
  19381. function TUSB_U1EIR.getDMAEF : TBits_1; inline;
  19382. begin
  19383. getDMAEF := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  19384. end;
  19385. procedure TUSB_U1EIR.setBMXEF; inline;
  19386. begin
  19387. pTDefRegMap(@Self)^.&set := $00000040;
  19388. end;
  19389. procedure TUSB_U1EIR.clearBMXEF; inline;
  19390. begin
  19391. pTDefRegMap(@Self)^.clr := $00000040;
  19392. end;
  19393. procedure TUSB_U1EIR.setBMXEF(thebits : TBits_1); inline;
  19394. begin
  19395. if thebits = 0 then
  19396. pTDefRegMap(@Self)^.clr := $00000040
  19397. else
  19398. pTDefRegMap(@Self)^.&set := $00000040;
  19399. end;
  19400. function TUSB_U1EIR.getBMXEF : TBits_1; inline;
  19401. begin
  19402. getBMXEF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  19403. end;
  19404. procedure TUSB_U1EIR.setBTSEF; inline;
  19405. begin
  19406. pTDefRegMap(@Self)^.&set := $00000080;
  19407. end;
  19408. procedure TUSB_U1EIR.clearBTSEF; inline;
  19409. begin
  19410. pTDefRegMap(@Self)^.clr := $00000080;
  19411. end;
  19412. procedure TUSB_U1EIR.setBTSEF(thebits : TBits_1); inline;
  19413. begin
  19414. if thebits = 0 then
  19415. pTDefRegMap(@Self)^.clr := $00000080
  19416. else
  19417. pTDefRegMap(@Self)^.&set := $00000080;
  19418. end;
  19419. function TUSB_U1EIR.getBTSEF : TBits_1; inline;
  19420. begin
  19421. getBTSEF := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  19422. end;
  19423. procedure TUSB_U1EIR.setCRC5EF; inline;
  19424. begin
  19425. pTDefRegMap(@Self)^.&set := $00000002;
  19426. end;
  19427. procedure TUSB_U1EIR.clearCRC5EF; inline;
  19428. begin
  19429. pTDefRegMap(@Self)^.clr := $00000002;
  19430. end;
  19431. procedure TUSB_U1EIR.setCRC5EF(thebits : TBits_1); inline;
  19432. begin
  19433. if thebits = 0 then
  19434. pTDefRegMap(@Self)^.clr := $00000002
  19435. else
  19436. pTDefRegMap(@Self)^.&set := $00000002;
  19437. end;
  19438. function TUSB_U1EIR.getCRC5EF : TBits_1; inline;
  19439. begin
  19440. getCRC5EF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  19441. end;
  19442. procedure TUSB_U1EIR.setEOFEF; inline;
  19443. begin
  19444. pTDefRegMap(@Self)^.&set := $00000002;
  19445. end;
  19446. procedure TUSB_U1EIR.clearEOFEF; inline;
  19447. begin
  19448. pTDefRegMap(@Self)^.clr := $00000002;
  19449. end;
  19450. procedure TUSB_U1EIR.setEOFEF(thebits : TBits_1); inline;
  19451. begin
  19452. if thebits = 0 then
  19453. pTDefRegMap(@Self)^.clr := $00000002
  19454. else
  19455. pTDefRegMap(@Self)^.&set := $00000002;
  19456. end;
  19457. function TUSB_U1EIR.getEOFEF : TBits_1; inline;
  19458. begin
  19459. getEOFEF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  19460. end;
  19461. procedure TUSB_U1EIE.setPIDEE; inline;
  19462. begin
  19463. pTDefRegMap(@Self)^.&set := $00000001;
  19464. end;
  19465. procedure TUSB_U1EIE.clearPIDEE; inline;
  19466. begin
  19467. pTDefRegMap(@Self)^.clr := $00000001;
  19468. end;
  19469. procedure TUSB_U1EIE.setPIDEE(thebits : TBits_1); inline;
  19470. begin
  19471. if thebits = 0 then
  19472. pTDefRegMap(@Self)^.clr := $00000001
  19473. else
  19474. pTDefRegMap(@Self)^.&set := $00000001;
  19475. end;
  19476. function TUSB_U1EIE.getPIDEE : TBits_1; inline;
  19477. begin
  19478. getPIDEE := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  19479. end;
  19480. procedure TUSB_U1EIE.setCRC5EE_EOFEE; inline;
  19481. begin
  19482. pTDefRegMap(@Self)^.&set := $00000002;
  19483. end;
  19484. procedure TUSB_U1EIE.clearCRC5EE_EOFEE; inline;
  19485. begin
  19486. pTDefRegMap(@Self)^.clr := $00000002;
  19487. end;
  19488. procedure TUSB_U1EIE.setCRC5EE_EOFEE(thebits : TBits_1); inline;
  19489. begin
  19490. if thebits = 0 then
  19491. pTDefRegMap(@Self)^.clr := $00000002
  19492. else
  19493. pTDefRegMap(@Self)^.&set := $00000002;
  19494. end;
  19495. function TUSB_U1EIE.getCRC5EE_EOFEE : TBits_1; inline;
  19496. begin
  19497. getCRC5EE_EOFEE := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  19498. end;
  19499. procedure TUSB_U1EIE.setCRC16EE; inline;
  19500. begin
  19501. pTDefRegMap(@Self)^.&set := $00000004;
  19502. end;
  19503. procedure TUSB_U1EIE.clearCRC16EE; inline;
  19504. begin
  19505. pTDefRegMap(@Self)^.clr := $00000004;
  19506. end;
  19507. procedure TUSB_U1EIE.setCRC16EE(thebits : TBits_1); inline;
  19508. begin
  19509. if thebits = 0 then
  19510. pTDefRegMap(@Self)^.clr := $00000004
  19511. else
  19512. pTDefRegMap(@Self)^.&set := $00000004;
  19513. end;
  19514. function TUSB_U1EIE.getCRC16EE : TBits_1; inline;
  19515. begin
  19516. getCRC16EE := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  19517. end;
  19518. procedure TUSB_U1EIE.setDFN8EE; inline;
  19519. begin
  19520. pTDefRegMap(@Self)^.&set := $00000008;
  19521. end;
  19522. procedure TUSB_U1EIE.clearDFN8EE; inline;
  19523. begin
  19524. pTDefRegMap(@Self)^.clr := $00000008;
  19525. end;
  19526. procedure TUSB_U1EIE.setDFN8EE(thebits : TBits_1); inline;
  19527. begin
  19528. if thebits = 0 then
  19529. pTDefRegMap(@Self)^.clr := $00000008
  19530. else
  19531. pTDefRegMap(@Self)^.&set := $00000008;
  19532. end;
  19533. function TUSB_U1EIE.getDFN8EE : TBits_1; inline;
  19534. begin
  19535. getDFN8EE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  19536. end;
  19537. procedure TUSB_U1EIE.setBTOEE; inline;
  19538. begin
  19539. pTDefRegMap(@Self)^.&set := $00000010;
  19540. end;
  19541. procedure TUSB_U1EIE.clearBTOEE; inline;
  19542. begin
  19543. pTDefRegMap(@Self)^.clr := $00000010;
  19544. end;
  19545. procedure TUSB_U1EIE.setBTOEE(thebits : TBits_1); inline;
  19546. begin
  19547. if thebits = 0 then
  19548. pTDefRegMap(@Self)^.clr := $00000010
  19549. else
  19550. pTDefRegMap(@Self)^.&set := $00000010;
  19551. end;
  19552. function TUSB_U1EIE.getBTOEE : TBits_1; inline;
  19553. begin
  19554. getBTOEE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  19555. end;
  19556. procedure TUSB_U1EIE.setDMAEE; inline;
  19557. begin
  19558. pTDefRegMap(@Self)^.&set := $00000020;
  19559. end;
  19560. procedure TUSB_U1EIE.clearDMAEE; inline;
  19561. begin
  19562. pTDefRegMap(@Self)^.clr := $00000020;
  19563. end;
  19564. procedure TUSB_U1EIE.setDMAEE(thebits : TBits_1); inline;
  19565. begin
  19566. if thebits = 0 then
  19567. pTDefRegMap(@Self)^.clr := $00000020
  19568. else
  19569. pTDefRegMap(@Self)^.&set := $00000020;
  19570. end;
  19571. function TUSB_U1EIE.getDMAEE : TBits_1; inline;
  19572. begin
  19573. getDMAEE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  19574. end;
  19575. procedure TUSB_U1EIE.setBMXEE; inline;
  19576. begin
  19577. pTDefRegMap(@Self)^.&set := $00000040;
  19578. end;
  19579. procedure TUSB_U1EIE.clearBMXEE; inline;
  19580. begin
  19581. pTDefRegMap(@Self)^.clr := $00000040;
  19582. end;
  19583. procedure TUSB_U1EIE.setBMXEE(thebits : TBits_1); inline;
  19584. begin
  19585. if thebits = 0 then
  19586. pTDefRegMap(@Self)^.clr := $00000040
  19587. else
  19588. pTDefRegMap(@Self)^.&set := $00000040;
  19589. end;
  19590. function TUSB_U1EIE.getBMXEE : TBits_1; inline;
  19591. begin
  19592. getBMXEE := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  19593. end;
  19594. procedure TUSB_U1EIE.setBTSEE; inline;
  19595. begin
  19596. pTDefRegMap(@Self)^.&set := $00000080;
  19597. end;
  19598. procedure TUSB_U1EIE.clearBTSEE; inline;
  19599. begin
  19600. pTDefRegMap(@Self)^.clr := $00000080;
  19601. end;
  19602. procedure TUSB_U1EIE.setBTSEE(thebits : TBits_1); inline;
  19603. begin
  19604. if thebits = 0 then
  19605. pTDefRegMap(@Self)^.clr := $00000080
  19606. else
  19607. pTDefRegMap(@Self)^.&set := $00000080;
  19608. end;
  19609. function TUSB_U1EIE.getBTSEE : TBits_1; inline;
  19610. begin
  19611. getBTSEE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  19612. end;
  19613. procedure TUSB_U1EIE.setCRC5EE; inline;
  19614. begin
  19615. pTDefRegMap(@Self)^.&set := $00000002;
  19616. end;
  19617. procedure TUSB_U1EIE.clearCRC5EE; inline;
  19618. begin
  19619. pTDefRegMap(@Self)^.clr := $00000002;
  19620. end;
  19621. procedure TUSB_U1EIE.setCRC5EE(thebits : TBits_1); inline;
  19622. begin
  19623. if thebits = 0 then
  19624. pTDefRegMap(@Self)^.clr := $00000002
  19625. else
  19626. pTDefRegMap(@Self)^.&set := $00000002;
  19627. end;
  19628. function TUSB_U1EIE.getCRC5EE : TBits_1; inline;
  19629. begin
  19630. getCRC5EE := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  19631. end;
  19632. procedure TUSB_U1EIE.setEOFEE; inline;
  19633. begin
  19634. pTDefRegMap(@Self)^.&set := $00000002;
  19635. end;
  19636. procedure TUSB_U1EIE.clearEOFEE; inline;
  19637. begin
  19638. pTDefRegMap(@Self)^.clr := $00000002;
  19639. end;
  19640. procedure TUSB_U1EIE.setEOFEE(thebits : TBits_1); inline;
  19641. begin
  19642. if thebits = 0 then
  19643. pTDefRegMap(@Self)^.clr := $00000002
  19644. else
  19645. pTDefRegMap(@Self)^.&set := $00000002;
  19646. end;
  19647. function TUSB_U1EIE.getEOFEE : TBits_1; inline;
  19648. begin
  19649. getEOFEE := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  19650. end;
  19651. procedure TUSB_U1STAT.setPPBI; inline;
  19652. begin
  19653. pTDefRegMap(@Self)^.&set := $00000004;
  19654. end;
  19655. procedure TUSB_U1STAT.clearPPBI; inline;
  19656. begin
  19657. pTDefRegMap(@Self)^.clr := $00000004;
  19658. end;
  19659. procedure TUSB_U1STAT.setPPBI(thebits : TBits_1); inline;
  19660. begin
  19661. if thebits = 0 then
  19662. pTDefRegMap(@Self)^.clr := $00000004
  19663. else
  19664. pTDefRegMap(@Self)^.&set := $00000004;
  19665. end;
  19666. function TUSB_U1STAT.getPPBI : TBits_1; inline;
  19667. begin
  19668. getPPBI := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  19669. end;
  19670. procedure TUSB_U1STAT.setDIR; inline;
  19671. begin
  19672. pTDefRegMap(@Self)^.&set := $00000008;
  19673. end;
  19674. procedure TUSB_U1STAT.clearDIR; inline;
  19675. begin
  19676. pTDefRegMap(@Self)^.clr := $00000008;
  19677. end;
  19678. procedure TUSB_U1STAT.setDIR(thebits : TBits_1); inline;
  19679. begin
  19680. if thebits = 0 then
  19681. pTDefRegMap(@Self)^.clr := $00000008
  19682. else
  19683. pTDefRegMap(@Self)^.&set := $00000008;
  19684. end;
  19685. function TUSB_U1STAT.getDIR : TBits_1; inline;
  19686. begin
  19687. getDIR := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  19688. end;
  19689. procedure TUSB_U1STAT.setENDPT0; inline;
  19690. begin
  19691. pTDefRegMap(@Self)^.&set := $00000010;
  19692. end;
  19693. procedure TUSB_U1STAT.clearENDPT0; inline;
  19694. begin
  19695. pTDefRegMap(@Self)^.clr := $00000010;
  19696. end;
  19697. procedure TUSB_U1STAT.setENDPT0(thebits : TBits_1); inline;
  19698. begin
  19699. if thebits = 0 then
  19700. pTDefRegMap(@Self)^.clr := $00000010
  19701. else
  19702. pTDefRegMap(@Self)^.&set := $00000010;
  19703. end;
  19704. function TUSB_U1STAT.getENDPT0 : TBits_1; inline;
  19705. begin
  19706. getENDPT0 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  19707. end;
  19708. procedure TUSB_U1STAT.setENDPT(thebits : TBits_4); inline;
  19709. begin
  19710. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF0F or ( thebits shl 4 );
  19711. end;
  19712. function TUSB_U1STAT.getENDPT : TBits_4; inline;
  19713. begin
  19714. getENDPT := (pTDefRegMap(@Self)^.val and $000000F0) shr 4;
  19715. end;
  19716. procedure TUSB_U1STAT.setENDPT1; inline;
  19717. begin
  19718. pTDefRegMap(@Self)^.&set := $00000020;
  19719. end;
  19720. procedure TUSB_U1STAT.clearENDPT1; inline;
  19721. begin
  19722. pTDefRegMap(@Self)^.clr := $00000020;
  19723. end;
  19724. procedure TUSB_U1STAT.setENDPT1(thebits : TBits_1); inline;
  19725. begin
  19726. if thebits = 0 then
  19727. pTDefRegMap(@Self)^.clr := $00000020
  19728. else
  19729. pTDefRegMap(@Self)^.&set := $00000020;
  19730. end;
  19731. function TUSB_U1STAT.getENDPT1 : TBits_1; inline;
  19732. begin
  19733. getENDPT1 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  19734. end;
  19735. procedure TUSB_U1STAT.setENDPT2; inline;
  19736. begin
  19737. pTDefRegMap(@Self)^.&set := $00000040;
  19738. end;
  19739. procedure TUSB_U1STAT.clearENDPT2; inline;
  19740. begin
  19741. pTDefRegMap(@Self)^.clr := $00000040;
  19742. end;
  19743. procedure TUSB_U1STAT.setENDPT2(thebits : TBits_1); inline;
  19744. begin
  19745. if thebits = 0 then
  19746. pTDefRegMap(@Self)^.clr := $00000040
  19747. else
  19748. pTDefRegMap(@Self)^.&set := $00000040;
  19749. end;
  19750. function TUSB_U1STAT.getENDPT2 : TBits_1; inline;
  19751. begin
  19752. getENDPT2 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  19753. end;
  19754. procedure TUSB_U1STAT.setENDPT3; inline;
  19755. begin
  19756. pTDefRegMap(@Self)^.&set := $00000080;
  19757. end;
  19758. procedure TUSB_U1STAT.clearENDPT3; inline;
  19759. begin
  19760. pTDefRegMap(@Self)^.clr := $00000080;
  19761. end;
  19762. procedure TUSB_U1STAT.setENDPT3(thebits : TBits_1); inline;
  19763. begin
  19764. if thebits = 0 then
  19765. pTDefRegMap(@Self)^.clr := $00000080
  19766. else
  19767. pTDefRegMap(@Self)^.&set := $00000080;
  19768. end;
  19769. function TUSB_U1STAT.getENDPT3 : TBits_1; inline;
  19770. begin
  19771. getENDPT3 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  19772. end;
  19773. procedure TUSB_U1CON.setUSBEN_SOFEN; inline;
  19774. begin
  19775. pTDefRegMap(@Self)^.&set := $00000001;
  19776. end;
  19777. procedure TUSB_U1CON.clearUSBEN_SOFEN; inline;
  19778. begin
  19779. pTDefRegMap(@Self)^.clr := $00000001;
  19780. end;
  19781. procedure TUSB_U1CON.setUSBEN_SOFEN(thebits : TBits_1); inline;
  19782. begin
  19783. if thebits = 0 then
  19784. pTDefRegMap(@Self)^.clr := $00000001
  19785. else
  19786. pTDefRegMap(@Self)^.&set := $00000001;
  19787. end;
  19788. function TUSB_U1CON.getUSBEN_SOFEN : TBits_1; inline;
  19789. begin
  19790. getUSBEN_SOFEN := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  19791. end;
  19792. procedure TUSB_U1CON.setPPBRST; inline;
  19793. begin
  19794. pTDefRegMap(@Self)^.&set := $00000002;
  19795. end;
  19796. procedure TUSB_U1CON.clearPPBRST; inline;
  19797. begin
  19798. pTDefRegMap(@Self)^.clr := $00000002;
  19799. end;
  19800. procedure TUSB_U1CON.setPPBRST(thebits : TBits_1); inline;
  19801. begin
  19802. if thebits = 0 then
  19803. pTDefRegMap(@Self)^.clr := $00000002
  19804. else
  19805. pTDefRegMap(@Self)^.&set := $00000002;
  19806. end;
  19807. function TUSB_U1CON.getPPBRST : TBits_1; inline;
  19808. begin
  19809. getPPBRST := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  19810. end;
  19811. procedure TUSB_U1CON.setRESUME; inline;
  19812. begin
  19813. pTDefRegMap(@Self)^.&set := $00000004;
  19814. end;
  19815. procedure TUSB_U1CON.clearRESUME; inline;
  19816. begin
  19817. pTDefRegMap(@Self)^.clr := $00000004;
  19818. end;
  19819. procedure TUSB_U1CON.setRESUME(thebits : TBits_1); inline;
  19820. begin
  19821. if thebits = 0 then
  19822. pTDefRegMap(@Self)^.clr := $00000004
  19823. else
  19824. pTDefRegMap(@Self)^.&set := $00000004;
  19825. end;
  19826. function TUSB_U1CON.getRESUME : TBits_1; inline;
  19827. begin
  19828. getRESUME := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  19829. end;
  19830. procedure TUSB_U1CON.setHOSTEN; inline;
  19831. begin
  19832. pTDefRegMap(@Self)^.&set := $00000008;
  19833. end;
  19834. procedure TUSB_U1CON.clearHOSTEN; inline;
  19835. begin
  19836. pTDefRegMap(@Self)^.clr := $00000008;
  19837. end;
  19838. procedure TUSB_U1CON.setHOSTEN(thebits : TBits_1); inline;
  19839. begin
  19840. if thebits = 0 then
  19841. pTDefRegMap(@Self)^.clr := $00000008
  19842. else
  19843. pTDefRegMap(@Self)^.&set := $00000008;
  19844. end;
  19845. function TUSB_U1CON.getHOSTEN : TBits_1; inline;
  19846. begin
  19847. getHOSTEN := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  19848. end;
  19849. procedure TUSB_U1CON.setUSBRST; inline;
  19850. begin
  19851. pTDefRegMap(@Self)^.&set := $00000010;
  19852. end;
  19853. procedure TUSB_U1CON.clearUSBRST; inline;
  19854. begin
  19855. pTDefRegMap(@Self)^.clr := $00000010;
  19856. end;
  19857. procedure TUSB_U1CON.setUSBRST(thebits : TBits_1); inline;
  19858. begin
  19859. if thebits = 0 then
  19860. pTDefRegMap(@Self)^.clr := $00000010
  19861. else
  19862. pTDefRegMap(@Self)^.&set := $00000010;
  19863. end;
  19864. function TUSB_U1CON.getUSBRST : TBits_1; inline;
  19865. begin
  19866. getUSBRST := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  19867. end;
  19868. procedure TUSB_U1CON.setPKTDIS_TOKBUSY; inline;
  19869. begin
  19870. pTDefRegMap(@Self)^.&set := $00000020;
  19871. end;
  19872. procedure TUSB_U1CON.clearPKTDIS_TOKBUSY; inline;
  19873. begin
  19874. pTDefRegMap(@Self)^.clr := $00000020;
  19875. end;
  19876. procedure TUSB_U1CON.setPKTDIS_TOKBUSY(thebits : TBits_1); inline;
  19877. begin
  19878. if thebits = 0 then
  19879. pTDefRegMap(@Self)^.clr := $00000020
  19880. else
  19881. pTDefRegMap(@Self)^.&set := $00000020;
  19882. end;
  19883. function TUSB_U1CON.getPKTDIS_TOKBUSY : TBits_1; inline;
  19884. begin
  19885. getPKTDIS_TOKBUSY := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  19886. end;
  19887. procedure TUSB_U1CON.setSE0; inline;
  19888. begin
  19889. pTDefRegMap(@Self)^.&set := $00000040;
  19890. end;
  19891. procedure TUSB_U1CON.clearSE0; inline;
  19892. begin
  19893. pTDefRegMap(@Self)^.clr := $00000040;
  19894. end;
  19895. procedure TUSB_U1CON.setSE0(thebits : TBits_1); inline;
  19896. begin
  19897. if thebits = 0 then
  19898. pTDefRegMap(@Self)^.clr := $00000040
  19899. else
  19900. pTDefRegMap(@Self)^.&set := $00000040;
  19901. end;
  19902. function TUSB_U1CON.getSE0 : TBits_1; inline;
  19903. begin
  19904. getSE0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  19905. end;
  19906. procedure TUSB_U1CON.setJSTATE; inline;
  19907. begin
  19908. pTDefRegMap(@Self)^.&set := $00000080;
  19909. end;
  19910. procedure TUSB_U1CON.clearJSTATE; inline;
  19911. begin
  19912. pTDefRegMap(@Self)^.clr := $00000080;
  19913. end;
  19914. procedure TUSB_U1CON.setJSTATE(thebits : TBits_1); inline;
  19915. begin
  19916. if thebits = 0 then
  19917. pTDefRegMap(@Self)^.clr := $00000080
  19918. else
  19919. pTDefRegMap(@Self)^.&set := $00000080;
  19920. end;
  19921. function TUSB_U1CON.getJSTATE : TBits_1; inline;
  19922. begin
  19923. getJSTATE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  19924. end;
  19925. procedure TUSB_U1CON.setUSBEN; inline;
  19926. begin
  19927. pTDefRegMap(@Self)^.&set := $00000001;
  19928. end;
  19929. procedure TUSB_U1CON.clearUSBEN; inline;
  19930. begin
  19931. pTDefRegMap(@Self)^.clr := $00000001;
  19932. end;
  19933. procedure TUSB_U1CON.setUSBEN(thebits : TBits_1); inline;
  19934. begin
  19935. if thebits = 0 then
  19936. pTDefRegMap(@Self)^.clr := $00000001
  19937. else
  19938. pTDefRegMap(@Self)^.&set := $00000001;
  19939. end;
  19940. function TUSB_U1CON.getUSBEN : TBits_1; inline;
  19941. begin
  19942. getUSBEN := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  19943. end;
  19944. procedure TUSB_U1CON.setSOFEN; inline;
  19945. begin
  19946. pTDefRegMap(@Self)^.&set := $00000001;
  19947. end;
  19948. procedure TUSB_U1CON.clearSOFEN; inline;
  19949. begin
  19950. pTDefRegMap(@Self)^.clr := $00000001;
  19951. end;
  19952. procedure TUSB_U1CON.setSOFEN(thebits : TBits_1); inline;
  19953. begin
  19954. if thebits = 0 then
  19955. pTDefRegMap(@Self)^.clr := $00000001
  19956. else
  19957. pTDefRegMap(@Self)^.&set := $00000001;
  19958. end;
  19959. function TUSB_U1CON.getSOFEN : TBits_1; inline;
  19960. begin
  19961. getSOFEN := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  19962. end;
  19963. procedure TUSB_U1CON.setPKTDIS; inline;
  19964. begin
  19965. pTDefRegMap(@Self)^.&set := $00000020;
  19966. end;
  19967. procedure TUSB_U1CON.clearPKTDIS; inline;
  19968. begin
  19969. pTDefRegMap(@Self)^.clr := $00000020;
  19970. end;
  19971. procedure TUSB_U1CON.setPKTDIS(thebits : TBits_1); inline;
  19972. begin
  19973. if thebits = 0 then
  19974. pTDefRegMap(@Self)^.clr := $00000020
  19975. else
  19976. pTDefRegMap(@Self)^.&set := $00000020;
  19977. end;
  19978. function TUSB_U1CON.getPKTDIS : TBits_1; inline;
  19979. begin
  19980. getPKTDIS := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  19981. end;
  19982. procedure TUSB_U1CON.setTOKBUSY; inline;
  19983. begin
  19984. pTDefRegMap(@Self)^.&set := $00000020;
  19985. end;
  19986. procedure TUSB_U1CON.clearTOKBUSY; inline;
  19987. begin
  19988. pTDefRegMap(@Self)^.clr := $00000020;
  19989. end;
  19990. procedure TUSB_U1CON.setTOKBUSY(thebits : TBits_1); inline;
  19991. begin
  19992. if thebits = 0 then
  19993. pTDefRegMap(@Self)^.clr := $00000020
  19994. else
  19995. pTDefRegMap(@Self)^.&set := $00000020;
  19996. end;
  19997. function TUSB_U1CON.getTOKBUSY : TBits_1; inline;
  19998. begin
  19999. getTOKBUSY := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  20000. end;
  20001. procedure TUSB_U1ADDR.setDEVADDR(thebits : TBits_7); inline;
  20002. begin
  20003. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF80 or ( thebits shl 0 );
  20004. end;
  20005. function TUSB_U1ADDR.getDEVADDR : TBits_7; inline;
  20006. begin
  20007. getDEVADDR := (pTDefRegMap(@Self)^.val and $0000007F) shr 0;
  20008. end;
  20009. procedure TUSB_U1ADDR.setLSPDEN; inline;
  20010. begin
  20011. pTDefRegMap(@Self)^.&set := $00000080;
  20012. end;
  20013. procedure TUSB_U1ADDR.clearLSPDEN; inline;
  20014. begin
  20015. pTDefRegMap(@Self)^.clr := $00000080;
  20016. end;
  20017. procedure TUSB_U1ADDR.setLSPDEN(thebits : TBits_1); inline;
  20018. begin
  20019. if thebits = 0 then
  20020. pTDefRegMap(@Self)^.clr := $00000080
  20021. else
  20022. pTDefRegMap(@Self)^.&set := $00000080;
  20023. end;
  20024. function TUSB_U1ADDR.getLSPDEN : TBits_1; inline;
  20025. begin
  20026. getLSPDEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  20027. end;
  20028. procedure TUSB_U1ADDR.setDEVADDR0; inline;
  20029. begin
  20030. pTDefRegMap(@Self)^.&set := $00000001;
  20031. end;
  20032. procedure TUSB_U1ADDR.clearDEVADDR0; inline;
  20033. begin
  20034. pTDefRegMap(@Self)^.clr := $00000001;
  20035. end;
  20036. procedure TUSB_U1ADDR.setDEVADDR0(thebits : TBits_1); inline;
  20037. begin
  20038. if thebits = 0 then
  20039. pTDefRegMap(@Self)^.clr := $00000001
  20040. else
  20041. pTDefRegMap(@Self)^.&set := $00000001;
  20042. end;
  20043. function TUSB_U1ADDR.getDEVADDR0 : TBits_1; inline;
  20044. begin
  20045. getDEVADDR0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  20046. end;
  20047. procedure TUSB_U1ADDR.setDEVADDR1; inline;
  20048. begin
  20049. pTDefRegMap(@Self)^.&set := $00000002;
  20050. end;
  20051. procedure TUSB_U1ADDR.clearDEVADDR1; inline;
  20052. begin
  20053. pTDefRegMap(@Self)^.clr := $00000002;
  20054. end;
  20055. procedure TUSB_U1ADDR.setDEVADDR1(thebits : TBits_1); inline;
  20056. begin
  20057. if thebits = 0 then
  20058. pTDefRegMap(@Self)^.clr := $00000002
  20059. else
  20060. pTDefRegMap(@Self)^.&set := $00000002;
  20061. end;
  20062. function TUSB_U1ADDR.getDEVADDR1 : TBits_1; inline;
  20063. begin
  20064. getDEVADDR1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  20065. end;
  20066. procedure TUSB_U1ADDR.setDEVADDR2; inline;
  20067. begin
  20068. pTDefRegMap(@Self)^.&set := $00000004;
  20069. end;
  20070. procedure TUSB_U1ADDR.clearDEVADDR2; inline;
  20071. begin
  20072. pTDefRegMap(@Self)^.clr := $00000004;
  20073. end;
  20074. procedure TUSB_U1ADDR.setDEVADDR2(thebits : TBits_1); inline;
  20075. begin
  20076. if thebits = 0 then
  20077. pTDefRegMap(@Self)^.clr := $00000004
  20078. else
  20079. pTDefRegMap(@Self)^.&set := $00000004;
  20080. end;
  20081. function TUSB_U1ADDR.getDEVADDR2 : TBits_1; inline;
  20082. begin
  20083. getDEVADDR2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  20084. end;
  20085. procedure TUSB_U1ADDR.setDEVADDR3; inline;
  20086. begin
  20087. pTDefRegMap(@Self)^.&set := $00000008;
  20088. end;
  20089. procedure TUSB_U1ADDR.clearDEVADDR3; inline;
  20090. begin
  20091. pTDefRegMap(@Self)^.clr := $00000008;
  20092. end;
  20093. procedure TUSB_U1ADDR.setDEVADDR3(thebits : TBits_1); inline;
  20094. begin
  20095. if thebits = 0 then
  20096. pTDefRegMap(@Self)^.clr := $00000008
  20097. else
  20098. pTDefRegMap(@Self)^.&set := $00000008;
  20099. end;
  20100. function TUSB_U1ADDR.getDEVADDR3 : TBits_1; inline;
  20101. begin
  20102. getDEVADDR3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  20103. end;
  20104. procedure TUSB_U1ADDR.setDEVADDR4; inline;
  20105. begin
  20106. pTDefRegMap(@Self)^.&set := $00000010;
  20107. end;
  20108. procedure TUSB_U1ADDR.clearDEVADDR4; inline;
  20109. begin
  20110. pTDefRegMap(@Self)^.clr := $00000010;
  20111. end;
  20112. procedure TUSB_U1ADDR.setDEVADDR4(thebits : TBits_1); inline;
  20113. begin
  20114. if thebits = 0 then
  20115. pTDefRegMap(@Self)^.clr := $00000010
  20116. else
  20117. pTDefRegMap(@Self)^.&set := $00000010;
  20118. end;
  20119. function TUSB_U1ADDR.getDEVADDR4 : TBits_1; inline;
  20120. begin
  20121. getDEVADDR4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  20122. end;
  20123. procedure TUSB_U1ADDR.setDEVADDR5; inline;
  20124. begin
  20125. pTDefRegMap(@Self)^.&set := $00000020;
  20126. end;
  20127. procedure TUSB_U1ADDR.clearDEVADDR5; inline;
  20128. begin
  20129. pTDefRegMap(@Self)^.clr := $00000020;
  20130. end;
  20131. procedure TUSB_U1ADDR.setDEVADDR5(thebits : TBits_1); inline;
  20132. begin
  20133. if thebits = 0 then
  20134. pTDefRegMap(@Self)^.clr := $00000020
  20135. else
  20136. pTDefRegMap(@Self)^.&set := $00000020;
  20137. end;
  20138. function TUSB_U1ADDR.getDEVADDR5 : TBits_1; inline;
  20139. begin
  20140. getDEVADDR5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  20141. end;
  20142. procedure TUSB_U1ADDR.setDEVADDR6; inline;
  20143. begin
  20144. pTDefRegMap(@Self)^.&set := $00000040;
  20145. end;
  20146. procedure TUSB_U1ADDR.clearDEVADDR6; inline;
  20147. begin
  20148. pTDefRegMap(@Self)^.clr := $00000040;
  20149. end;
  20150. procedure TUSB_U1ADDR.setDEVADDR6(thebits : TBits_1); inline;
  20151. begin
  20152. if thebits = 0 then
  20153. pTDefRegMap(@Self)^.clr := $00000040
  20154. else
  20155. pTDefRegMap(@Self)^.&set := $00000040;
  20156. end;
  20157. function TUSB_U1ADDR.getDEVADDR6 : TBits_1; inline;
  20158. begin
  20159. getDEVADDR6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  20160. end;
  20161. procedure TUSB_U1FRML.setFRML(thebits : TBits_8); inline;
  20162. begin
  20163. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF00 or ( thebits shl 0 );
  20164. end;
  20165. function TUSB_U1FRML.getFRML : TBits_8; inline;
  20166. begin
  20167. getFRML := (pTDefRegMap(@Self)^.val and $000000FF) shr 0;
  20168. end;
  20169. procedure TUSB_U1FRML.setFRM0; inline;
  20170. begin
  20171. pTDefRegMap(@Self)^.&set := $00000001;
  20172. end;
  20173. procedure TUSB_U1FRML.clearFRM0; inline;
  20174. begin
  20175. pTDefRegMap(@Self)^.clr := $00000001;
  20176. end;
  20177. procedure TUSB_U1FRML.setFRM0(thebits : TBits_1); inline;
  20178. begin
  20179. if thebits = 0 then
  20180. pTDefRegMap(@Self)^.clr := $00000001
  20181. else
  20182. pTDefRegMap(@Self)^.&set := $00000001;
  20183. end;
  20184. function TUSB_U1FRML.getFRM0 : TBits_1; inline;
  20185. begin
  20186. getFRM0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  20187. end;
  20188. procedure TUSB_U1FRML.setFRM1; inline;
  20189. begin
  20190. pTDefRegMap(@Self)^.&set := $00000002;
  20191. end;
  20192. procedure TUSB_U1FRML.clearFRM1; inline;
  20193. begin
  20194. pTDefRegMap(@Self)^.clr := $00000002;
  20195. end;
  20196. procedure TUSB_U1FRML.setFRM1(thebits : TBits_1); inline;
  20197. begin
  20198. if thebits = 0 then
  20199. pTDefRegMap(@Self)^.clr := $00000002
  20200. else
  20201. pTDefRegMap(@Self)^.&set := $00000002;
  20202. end;
  20203. function TUSB_U1FRML.getFRM1 : TBits_1; inline;
  20204. begin
  20205. getFRM1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  20206. end;
  20207. procedure TUSB_U1FRML.setFRM2; inline;
  20208. begin
  20209. pTDefRegMap(@Self)^.&set := $00000004;
  20210. end;
  20211. procedure TUSB_U1FRML.clearFRM2; inline;
  20212. begin
  20213. pTDefRegMap(@Self)^.clr := $00000004;
  20214. end;
  20215. procedure TUSB_U1FRML.setFRM2(thebits : TBits_1); inline;
  20216. begin
  20217. if thebits = 0 then
  20218. pTDefRegMap(@Self)^.clr := $00000004
  20219. else
  20220. pTDefRegMap(@Self)^.&set := $00000004;
  20221. end;
  20222. function TUSB_U1FRML.getFRM2 : TBits_1; inline;
  20223. begin
  20224. getFRM2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  20225. end;
  20226. procedure TUSB_U1FRML.setFRM3; inline;
  20227. begin
  20228. pTDefRegMap(@Self)^.&set := $00000008;
  20229. end;
  20230. procedure TUSB_U1FRML.clearFRM3; inline;
  20231. begin
  20232. pTDefRegMap(@Self)^.clr := $00000008;
  20233. end;
  20234. procedure TUSB_U1FRML.setFRM3(thebits : TBits_1); inline;
  20235. begin
  20236. if thebits = 0 then
  20237. pTDefRegMap(@Self)^.clr := $00000008
  20238. else
  20239. pTDefRegMap(@Self)^.&set := $00000008;
  20240. end;
  20241. function TUSB_U1FRML.getFRM3 : TBits_1; inline;
  20242. begin
  20243. getFRM3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  20244. end;
  20245. procedure TUSB_U1FRML.setFRM4; inline;
  20246. begin
  20247. pTDefRegMap(@Self)^.&set := $00000010;
  20248. end;
  20249. procedure TUSB_U1FRML.clearFRM4; inline;
  20250. begin
  20251. pTDefRegMap(@Self)^.clr := $00000010;
  20252. end;
  20253. procedure TUSB_U1FRML.setFRM4(thebits : TBits_1); inline;
  20254. begin
  20255. if thebits = 0 then
  20256. pTDefRegMap(@Self)^.clr := $00000010
  20257. else
  20258. pTDefRegMap(@Self)^.&set := $00000010;
  20259. end;
  20260. function TUSB_U1FRML.getFRM4 : TBits_1; inline;
  20261. begin
  20262. getFRM4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  20263. end;
  20264. procedure TUSB_U1FRML.setFRM5; inline;
  20265. begin
  20266. pTDefRegMap(@Self)^.&set := $00000020;
  20267. end;
  20268. procedure TUSB_U1FRML.clearFRM5; inline;
  20269. begin
  20270. pTDefRegMap(@Self)^.clr := $00000020;
  20271. end;
  20272. procedure TUSB_U1FRML.setFRM5(thebits : TBits_1); inline;
  20273. begin
  20274. if thebits = 0 then
  20275. pTDefRegMap(@Self)^.clr := $00000020
  20276. else
  20277. pTDefRegMap(@Self)^.&set := $00000020;
  20278. end;
  20279. function TUSB_U1FRML.getFRM5 : TBits_1; inline;
  20280. begin
  20281. getFRM5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  20282. end;
  20283. procedure TUSB_U1FRML.setFRM6; inline;
  20284. begin
  20285. pTDefRegMap(@Self)^.&set := $00000040;
  20286. end;
  20287. procedure TUSB_U1FRML.clearFRM6; inline;
  20288. begin
  20289. pTDefRegMap(@Self)^.clr := $00000040;
  20290. end;
  20291. procedure TUSB_U1FRML.setFRM6(thebits : TBits_1); inline;
  20292. begin
  20293. if thebits = 0 then
  20294. pTDefRegMap(@Self)^.clr := $00000040
  20295. else
  20296. pTDefRegMap(@Self)^.&set := $00000040;
  20297. end;
  20298. function TUSB_U1FRML.getFRM6 : TBits_1; inline;
  20299. begin
  20300. getFRM6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  20301. end;
  20302. procedure TUSB_U1FRML.setFRM7; inline;
  20303. begin
  20304. pTDefRegMap(@Self)^.&set := $00000080;
  20305. end;
  20306. procedure TUSB_U1FRML.clearFRM7; inline;
  20307. begin
  20308. pTDefRegMap(@Self)^.clr := $00000080;
  20309. end;
  20310. procedure TUSB_U1FRML.setFRM7(thebits : TBits_1); inline;
  20311. begin
  20312. if thebits = 0 then
  20313. pTDefRegMap(@Self)^.clr := $00000080
  20314. else
  20315. pTDefRegMap(@Self)^.&set := $00000080;
  20316. end;
  20317. function TUSB_U1FRML.getFRM7 : TBits_1; inline;
  20318. begin
  20319. getFRM7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  20320. end;
  20321. procedure TUSB_U1FRMH.setFRMH(thebits : TBits_3); inline;
  20322. begin
  20323. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  20324. end;
  20325. function TUSB_U1FRMH.getFRMH : TBits_3; inline;
  20326. begin
  20327. getFRMH := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  20328. end;
  20329. procedure TUSB_U1FRMH.setFRM8; inline;
  20330. begin
  20331. pTDefRegMap(@Self)^.&set := $00000001;
  20332. end;
  20333. procedure TUSB_U1FRMH.clearFRM8; inline;
  20334. begin
  20335. pTDefRegMap(@Self)^.clr := $00000001;
  20336. end;
  20337. procedure TUSB_U1FRMH.setFRM8(thebits : TBits_1); inline;
  20338. begin
  20339. if thebits = 0 then
  20340. pTDefRegMap(@Self)^.clr := $00000001
  20341. else
  20342. pTDefRegMap(@Self)^.&set := $00000001;
  20343. end;
  20344. function TUSB_U1FRMH.getFRM8 : TBits_1; inline;
  20345. begin
  20346. getFRM8 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  20347. end;
  20348. procedure TUSB_U1FRMH.setFRM9; inline;
  20349. begin
  20350. pTDefRegMap(@Self)^.&set := $00000002;
  20351. end;
  20352. procedure TUSB_U1FRMH.clearFRM9; inline;
  20353. begin
  20354. pTDefRegMap(@Self)^.clr := $00000002;
  20355. end;
  20356. procedure TUSB_U1FRMH.setFRM9(thebits : TBits_1); inline;
  20357. begin
  20358. if thebits = 0 then
  20359. pTDefRegMap(@Self)^.clr := $00000002
  20360. else
  20361. pTDefRegMap(@Self)^.&set := $00000002;
  20362. end;
  20363. function TUSB_U1FRMH.getFRM9 : TBits_1; inline;
  20364. begin
  20365. getFRM9 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  20366. end;
  20367. procedure TUSB_U1FRMH.setFRM10; inline;
  20368. begin
  20369. pTDefRegMap(@Self)^.&set := $00000004;
  20370. end;
  20371. procedure TUSB_U1FRMH.clearFRM10; inline;
  20372. begin
  20373. pTDefRegMap(@Self)^.clr := $00000004;
  20374. end;
  20375. procedure TUSB_U1FRMH.setFRM10(thebits : TBits_1); inline;
  20376. begin
  20377. if thebits = 0 then
  20378. pTDefRegMap(@Self)^.clr := $00000004
  20379. else
  20380. pTDefRegMap(@Self)^.&set := $00000004;
  20381. end;
  20382. function TUSB_U1FRMH.getFRM10 : TBits_1; inline;
  20383. begin
  20384. getFRM10 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  20385. end;
  20386. procedure TUSB_U1TOK.setEP(thebits : TBits_4); inline;
  20387. begin
  20388. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF0 or ( thebits shl 0 );
  20389. end;
  20390. function TUSB_U1TOK.getEP : TBits_4; inline;
  20391. begin
  20392. getEP := (pTDefRegMap(@Self)^.val and $0000000F) shr 0;
  20393. end;
  20394. procedure TUSB_U1TOK.setPID(thebits : TBits_4); inline;
  20395. begin
  20396. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF0F or ( thebits shl 4 );
  20397. end;
  20398. function TUSB_U1TOK.getPID : TBits_4; inline;
  20399. begin
  20400. getPID := (pTDefRegMap(@Self)^.val and $000000F0) shr 4;
  20401. end;
  20402. procedure TUSB_U1TOK.setEP0; inline;
  20403. begin
  20404. pTDefRegMap(@Self)^.&set := $00000001;
  20405. end;
  20406. procedure TUSB_U1TOK.clearEP0; inline;
  20407. begin
  20408. pTDefRegMap(@Self)^.clr := $00000001;
  20409. end;
  20410. procedure TUSB_U1TOK.setEP0(thebits : TBits_1); inline;
  20411. begin
  20412. if thebits = 0 then
  20413. pTDefRegMap(@Self)^.clr := $00000001
  20414. else
  20415. pTDefRegMap(@Self)^.&set := $00000001;
  20416. end;
  20417. function TUSB_U1TOK.getEP0 : TBits_1; inline;
  20418. begin
  20419. getEP0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  20420. end;
  20421. procedure TUSB_U1TOK.setEP1; inline;
  20422. begin
  20423. pTDefRegMap(@Self)^.&set := $00000002;
  20424. end;
  20425. procedure TUSB_U1TOK.clearEP1; inline;
  20426. begin
  20427. pTDefRegMap(@Self)^.clr := $00000002;
  20428. end;
  20429. procedure TUSB_U1TOK.setEP1(thebits : TBits_1); inline;
  20430. begin
  20431. if thebits = 0 then
  20432. pTDefRegMap(@Self)^.clr := $00000002
  20433. else
  20434. pTDefRegMap(@Self)^.&set := $00000002;
  20435. end;
  20436. function TUSB_U1TOK.getEP1 : TBits_1; inline;
  20437. begin
  20438. getEP1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  20439. end;
  20440. procedure TUSB_U1TOK.setEP2; inline;
  20441. begin
  20442. pTDefRegMap(@Self)^.&set := $00000004;
  20443. end;
  20444. procedure TUSB_U1TOK.clearEP2; inline;
  20445. begin
  20446. pTDefRegMap(@Self)^.clr := $00000004;
  20447. end;
  20448. procedure TUSB_U1TOK.setEP2(thebits : TBits_1); inline;
  20449. begin
  20450. if thebits = 0 then
  20451. pTDefRegMap(@Self)^.clr := $00000004
  20452. else
  20453. pTDefRegMap(@Self)^.&set := $00000004;
  20454. end;
  20455. function TUSB_U1TOK.getEP2 : TBits_1; inline;
  20456. begin
  20457. getEP2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  20458. end;
  20459. procedure TUSB_U1TOK.setEP3; inline;
  20460. begin
  20461. pTDefRegMap(@Self)^.&set := $00000008;
  20462. end;
  20463. procedure TUSB_U1TOK.clearEP3; inline;
  20464. begin
  20465. pTDefRegMap(@Self)^.clr := $00000008;
  20466. end;
  20467. procedure TUSB_U1TOK.setEP3(thebits : TBits_1); inline;
  20468. begin
  20469. if thebits = 0 then
  20470. pTDefRegMap(@Self)^.clr := $00000008
  20471. else
  20472. pTDefRegMap(@Self)^.&set := $00000008;
  20473. end;
  20474. function TUSB_U1TOK.getEP3 : TBits_1; inline;
  20475. begin
  20476. getEP3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  20477. end;
  20478. procedure TUSB_U1TOK.setPID0; inline;
  20479. begin
  20480. pTDefRegMap(@Self)^.&set := $00000010;
  20481. end;
  20482. procedure TUSB_U1TOK.clearPID0; inline;
  20483. begin
  20484. pTDefRegMap(@Self)^.clr := $00000010;
  20485. end;
  20486. procedure TUSB_U1TOK.setPID0(thebits : TBits_1); inline;
  20487. begin
  20488. if thebits = 0 then
  20489. pTDefRegMap(@Self)^.clr := $00000010
  20490. else
  20491. pTDefRegMap(@Self)^.&set := $00000010;
  20492. end;
  20493. function TUSB_U1TOK.getPID0 : TBits_1; inline;
  20494. begin
  20495. getPID0 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  20496. end;
  20497. procedure TUSB_U1TOK.setPID1; inline;
  20498. begin
  20499. pTDefRegMap(@Self)^.&set := $00000020;
  20500. end;
  20501. procedure TUSB_U1TOK.clearPID1; inline;
  20502. begin
  20503. pTDefRegMap(@Self)^.clr := $00000020;
  20504. end;
  20505. procedure TUSB_U1TOK.setPID1(thebits : TBits_1); inline;
  20506. begin
  20507. if thebits = 0 then
  20508. pTDefRegMap(@Self)^.clr := $00000020
  20509. else
  20510. pTDefRegMap(@Self)^.&set := $00000020;
  20511. end;
  20512. function TUSB_U1TOK.getPID1 : TBits_1; inline;
  20513. begin
  20514. getPID1 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  20515. end;
  20516. procedure TUSB_U1TOK.setPID2; inline;
  20517. begin
  20518. pTDefRegMap(@Self)^.&set := $00000040;
  20519. end;
  20520. procedure TUSB_U1TOK.clearPID2; inline;
  20521. begin
  20522. pTDefRegMap(@Self)^.clr := $00000040;
  20523. end;
  20524. procedure TUSB_U1TOK.setPID2(thebits : TBits_1); inline;
  20525. begin
  20526. if thebits = 0 then
  20527. pTDefRegMap(@Self)^.clr := $00000040
  20528. else
  20529. pTDefRegMap(@Self)^.&set := $00000040;
  20530. end;
  20531. function TUSB_U1TOK.getPID2 : TBits_1; inline;
  20532. begin
  20533. getPID2 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  20534. end;
  20535. procedure TUSB_U1TOK.setPID3; inline;
  20536. begin
  20537. pTDefRegMap(@Self)^.&set := $00000080;
  20538. end;
  20539. procedure TUSB_U1TOK.clearPID3; inline;
  20540. begin
  20541. pTDefRegMap(@Self)^.clr := $00000080;
  20542. end;
  20543. procedure TUSB_U1TOK.setPID3(thebits : TBits_1); inline;
  20544. begin
  20545. if thebits = 0 then
  20546. pTDefRegMap(@Self)^.clr := $00000080
  20547. else
  20548. pTDefRegMap(@Self)^.&set := $00000080;
  20549. end;
  20550. function TUSB_U1TOK.getPID3 : TBits_1; inline;
  20551. begin
  20552. getPID3 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  20553. end;
  20554. procedure TPORTB_TRISB.setTRISB0; inline;
  20555. begin
  20556. pTDefRegMap(@Self)^.&set := $00000001;
  20557. end;
  20558. procedure TPORTB_TRISB.clearTRISB0; inline;
  20559. begin
  20560. pTDefRegMap(@Self)^.clr := $00000001;
  20561. end;
  20562. procedure TPORTB_TRISB.setTRISB0(thebits : TBits_1); inline;
  20563. begin
  20564. if thebits = 0 then
  20565. pTDefRegMap(@Self)^.clr := $00000001
  20566. else
  20567. pTDefRegMap(@Self)^.&set := $00000001;
  20568. end;
  20569. function TPORTB_TRISB.getTRISB0 : TBits_1; inline;
  20570. begin
  20571. getTRISB0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  20572. end;
  20573. procedure TPORTB_TRISB.setTRISB1; inline;
  20574. begin
  20575. pTDefRegMap(@Self)^.&set := $00000002;
  20576. end;
  20577. procedure TPORTB_TRISB.clearTRISB1; inline;
  20578. begin
  20579. pTDefRegMap(@Self)^.clr := $00000002;
  20580. end;
  20581. procedure TPORTB_TRISB.setTRISB1(thebits : TBits_1); inline;
  20582. begin
  20583. if thebits = 0 then
  20584. pTDefRegMap(@Self)^.clr := $00000002
  20585. else
  20586. pTDefRegMap(@Self)^.&set := $00000002;
  20587. end;
  20588. function TPORTB_TRISB.getTRISB1 : TBits_1; inline;
  20589. begin
  20590. getTRISB1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  20591. end;
  20592. procedure TPORTB_TRISB.setTRISB2; inline;
  20593. begin
  20594. pTDefRegMap(@Self)^.&set := $00000004;
  20595. end;
  20596. procedure TPORTB_TRISB.clearTRISB2; inline;
  20597. begin
  20598. pTDefRegMap(@Self)^.clr := $00000004;
  20599. end;
  20600. procedure TPORTB_TRISB.setTRISB2(thebits : TBits_1); inline;
  20601. begin
  20602. if thebits = 0 then
  20603. pTDefRegMap(@Self)^.clr := $00000004
  20604. else
  20605. pTDefRegMap(@Self)^.&set := $00000004;
  20606. end;
  20607. function TPORTB_TRISB.getTRISB2 : TBits_1; inline;
  20608. begin
  20609. getTRISB2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  20610. end;
  20611. procedure TPORTB_TRISB.setTRISB3; inline;
  20612. begin
  20613. pTDefRegMap(@Self)^.&set := $00000008;
  20614. end;
  20615. procedure TPORTB_TRISB.clearTRISB3; inline;
  20616. begin
  20617. pTDefRegMap(@Self)^.clr := $00000008;
  20618. end;
  20619. procedure TPORTB_TRISB.setTRISB3(thebits : TBits_1); inline;
  20620. begin
  20621. if thebits = 0 then
  20622. pTDefRegMap(@Self)^.clr := $00000008
  20623. else
  20624. pTDefRegMap(@Self)^.&set := $00000008;
  20625. end;
  20626. function TPORTB_TRISB.getTRISB3 : TBits_1; inline;
  20627. begin
  20628. getTRISB3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  20629. end;
  20630. procedure TPORTB_TRISB.setTRISB4; inline;
  20631. begin
  20632. pTDefRegMap(@Self)^.&set := $00000010;
  20633. end;
  20634. procedure TPORTB_TRISB.clearTRISB4; inline;
  20635. begin
  20636. pTDefRegMap(@Self)^.clr := $00000010;
  20637. end;
  20638. procedure TPORTB_TRISB.setTRISB4(thebits : TBits_1); inline;
  20639. begin
  20640. if thebits = 0 then
  20641. pTDefRegMap(@Self)^.clr := $00000010
  20642. else
  20643. pTDefRegMap(@Self)^.&set := $00000010;
  20644. end;
  20645. function TPORTB_TRISB.getTRISB4 : TBits_1; inline;
  20646. begin
  20647. getTRISB4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  20648. end;
  20649. procedure TPORTB_TRISB.setTRISB5; inline;
  20650. begin
  20651. pTDefRegMap(@Self)^.&set := $00000020;
  20652. end;
  20653. procedure TPORTB_TRISB.clearTRISB5; inline;
  20654. begin
  20655. pTDefRegMap(@Self)^.clr := $00000020;
  20656. end;
  20657. procedure TPORTB_TRISB.setTRISB5(thebits : TBits_1); inline;
  20658. begin
  20659. if thebits = 0 then
  20660. pTDefRegMap(@Self)^.clr := $00000020
  20661. else
  20662. pTDefRegMap(@Self)^.&set := $00000020;
  20663. end;
  20664. function TPORTB_TRISB.getTRISB5 : TBits_1; inline;
  20665. begin
  20666. getTRISB5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  20667. end;
  20668. procedure TPORTB_TRISB.setTRISB6; inline;
  20669. begin
  20670. pTDefRegMap(@Self)^.&set := $00000040;
  20671. end;
  20672. procedure TPORTB_TRISB.clearTRISB6; inline;
  20673. begin
  20674. pTDefRegMap(@Self)^.clr := $00000040;
  20675. end;
  20676. procedure TPORTB_TRISB.setTRISB6(thebits : TBits_1); inline;
  20677. begin
  20678. if thebits = 0 then
  20679. pTDefRegMap(@Self)^.clr := $00000040
  20680. else
  20681. pTDefRegMap(@Self)^.&set := $00000040;
  20682. end;
  20683. function TPORTB_TRISB.getTRISB6 : TBits_1; inline;
  20684. begin
  20685. getTRISB6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  20686. end;
  20687. procedure TPORTB_TRISB.setTRISB7; inline;
  20688. begin
  20689. pTDefRegMap(@Self)^.&set := $00000080;
  20690. end;
  20691. procedure TPORTB_TRISB.clearTRISB7; inline;
  20692. begin
  20693. pTDefRegMap(@Self)^.clr := $00000080;
  20694. end;
  20695. procedure TPORTB_TRISB.setTRISB7(thebits : TBits_1); inline;
  20696. begin
  20697. if thebits = 0 then
  20698. pTDefRegMap(@Self)^.clr := $00000080
  20699. else
  20700. pTDefRegMap(@Self)^.&set := $00000080;
  20701. end;
  20702. function TPORTB_TRISB.getTRISB7 : TBits_1; inline;
  20703. begin
  20704. getTRISB7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  20705. end;
  20706. procedure TPORTB_TRISB.setTRISB8; inline;
  20707. begin
  20708. pTDefRegMap(@Self)^.&set := $00000100;
  20709. end;
  20710. procedure TPORTB_TRISB.clearTRISB8; inline;
  20711. begin
  20712. pTDefRegMap(@Self)^.clr := $00000100;
  20713. end;
  20714. procedure TPORTB_TRISB.setTRISB8(thebits : TBits_1); inline;
  20715. begin
  20716. if thebits = 0 then
  20717. pTDefRegMap(@Self)^.clr := $00000100
  20718. else
  20719. pTDefRegMap(@Self)^.&set := $00000100;
  20720. end;
  20721. function TPORTB_TRISB.getTRISB8 : TBits_1; inline;
  20722. begin
  20723. getTRISB8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  20724. end;
  20725. procedure TPORTB_TRISB.setTRISB9; inline;
  20726. begin
  20727. pTDefRegMap(@Self)^.&set := $00000200;
  20728. end;
  20729. procedure TPORTB_TRISB.clearTRISB9; inline;
  20730. begin
  20731. pTDefRegMap(@Self)^.clr := $00000200;
  20732. end;
  20733. procedure TPORTB_TRISB.setTRISB9(thebits : TBits_1); inline;
  20734. begin
  20735. if thebits = 0 then
  20736. pTDefRegMap(@Self)^.clr := $00000200
  20737. else
  20738. pTDefRegMap(@Self)^.&set := $00000200;
  20739. end;
  20740. function TPORTB_TRISB.getTRISB9 : TBits_1; inline;
  20741. begin
  20742. getTRISB9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  20743. end;
  20744. procedure TPORTB_TRISB.setTRISB10; inline;
  20745. begin
  20746. pTDefRegMap(@Self)^.&set := $00000400;
  20747. end;
  20748. procedure TPORTB_TRISB.clearTRISB10; inline;
  20749. begin
  20750. pTDefRegMap(@Self)^.clr := $00000400;
  20751. end;
  20752. procedure TPORTB_TRISB.setTRISB10(thebits : TBits_1); inline;
  20753. begin
  20754. if thebits = 0 then
  20755. pTDefRegMap(@Self)^.clr := $00000400
  20756. else
  20757. pTDefRegMap(@Self)^.&set := $00000400;
  20758. end;
  20759. function TPORTB_TRISB.getTRISB10 : TBits_1; inline;
  20760. begin
  20761. getTRISB10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  20762. end;
  20763. procedure TPORTB_TRISB.setTRISB11; inline;
  20764. begin
  20765. pTDefRegMap(@Self)^.&set := $00000800;
  20766. end;
  20767. procedure TPORTB_TRISB.clearTRISB11; inline;
  20768. begin
  20769. pTDefRegMap(@Self)^.clr := $00000800;
  20770. end;
  20771. procedure TPORTB_TRISB.setTRISB11(thebits : TBits_1); inline;
  20772. begin
  20773. if thebits = 0 then
  20774. pTDefRegMap(@Self)^.clr := $00000800
  20775. else
  20776. pTDefRegMap(@Self)^.&set := $00000800;
  20777. end;
  20778. function TPORTB_TRISB.getTRISB11 : TBits_1; inline;
  20779. begin
  20780. getTRISB11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  20781. end;
  20782. procedure TPORTB_TRISB.setTRISB12; inline;
  20783. begin
  20784. pTDefRegMap(@Self)^.&set := $00001000;
  20785. end;
  20786. procedure TPORTB_TRISB.clearTRISB12; inline;
  20787. begin
  20788. pTDefRegMap(@Self)^.clr := $00001000;
  20789. end;
  20790. procedure TPORTB_TRISB.setTRISB12(thebits : TBits_1); inline;
  20791. begin
  20792. if thebits = 0 then
  20793. pTDefRegMap(@Self)^.clr := $00001000
  20794. else
  20795. pTDefRegMap(@Self)^.&set := $00001000;
  20796. end;
  20797. function TPORTB_TRISB.getTRISB12 : TBits_1; inline;
  20798. begin
  20799. getTRISB12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  20800. end;
  20801. procedure TPORTB_TRISB.setTRISB13; inline;
  20802. begin
  20803. pTDefRegMap(@Self)^.&set := $00002000;
  20804. end;
  20805. procedure TPORTB_TRISB.clearTRISB13; inline;
  20806. begin
  20807. pTDefRegMap(@Self)^.clr := $00002000;
  20808. end;
  20809. procedure TPORTB_TRISB.setTRISB13(thebits : TBits_1); inline;
  20810. begin
  20811. if thebits = 0 then
  20812. pTDefRegMap(@Self)^.clr := $00002000
  20813. else
  20814. pTDefRegMap(@Self)^.&set := $00002000;
  20815. end;
  20816. function TPORTB_TRISB.getTRISB13 : TBits_1; inline;
  20817. begin
  20818. getTRISB13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  20819. end;
  20820. procedure TPORTB_TRISB.setTRISB14; inline;
  20821. begin
  20822. pTDefRegMap(@Self)^.&set := $00004000;
  20823. end;
  20824. procedure TPORTB_TRISB.clearTRISB14; inline;
  20825. begin
  20826. pTDefRegMap(@Self)^.clr := $00004000;
  20827. end;
  20828. procedure TPORTB_TRISB.setTRISB14(thebits : TBits_1); inline;
  20829. begin
  20830. if thebits = 0 then
  20831. pTDefRegMap(@Self)^.clr := $00004000
  20832. else
  20833. pTDefRegMap(@Self)^.&set := $00004000;
  20834. end;
  20835. function TPORTB_TRISB.getTRISB14 : TBits_1; inline;
  20836. begin
  20837. getTRISB14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  20838. end;
  20839. procedure TPORTB_TRISB.setTRISB15; inline;
  20840. begin
  20841. pTDefRegMap(@Self)^.&set := $00008000;
  20842. end;
  20843. procedure TPORTB_TRISB.clearTRISB15; inline;
  20844. begin
  20845. pTDefRegMap(@Self)^.clr := $00008000;
  20846. end;
  20847. procedure TPORTB_TRISB.setTRISB15(thebits : TBits_1); inline;
  20848. begin
  20849. if thebits = 0 then
  20850. pTDefRegMap(@Self)^.clr := $00008000
  20851. else
  20852. pTDefRegMap(@Self)^.&set := $00008000;
  20853. end;
  20854. function TPORTB_TRISB.getTRISB15 : TBits_1; inline;
  20855. begin
  20856. getTRISB15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  20857. end;
  20858. procedure TPORTB_TRISB.setw(thebits : TBits_32); inline;
  20859. begin
  20860. pTDefRegMap(@Self)^.val := thebits;
  20861. end;
  20862. function TPORTB_TRISB.getw : TBits_32; inline;
  20863. begin
  20864. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  20865. end;
  20866. procedure TPORTB_PORTB.setRB0; inline;
  20867. begin
  20868. pTDefRegMap(@Self)^.&set := $00000001;
  20869. end;
  20870. procedure TPORTB_PORTB.clearRB0; inline;
  20871. begin
  20872. pTDefRegMap(@Self)^.clr := $00000001;
  20873. end;
  20874. procedure TPORTB_PORTB.setRB0(thebits : TBits_1); inline;
  20875. begin
  20876. if thebits = 0 then
  20877. pTDefRegMap(@Self)^.clr := $00000001
  20878. else
  20879. pTDefRegMap(@Self)^.&set := $00000001;
  20880. end;
  20881. function TPORTB_PORTB.getRB0 : TBits_1; inline;
  20882. begin
  20883. getRB0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  20884. end;
  20885. procedure TPORTB_PORTB.setRB1; inline;
  20886. begin
  20887. pTDefRegMap(@Self)^.&set := $00000002;
  20888. end;
  20889. procedure TPORTB_PORTB.clearRB1; inline;
  20890. begin
  20891. pTDefRegMap(@Self)^.clr := $00000002;
  20892. end;
  20893. procedure TPORTB_PORTB.setRB1(thebits : TBits_1); inline;
  20894. begin
  20895. if thebits = 0 then
  20896. pTDefRegMap(@Self)^.clr := $00000002
  20897. else
  20898. pTDefRegMap(@Self)^.&set := $00000002;
  20899. end;
  20900. function TPORTB_PORTB.getRB1 : TBits_1; inline;
  20901. begin
  20902. getRB1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  20903. end;
  20904. procedure TPORTB_PORTB.setRB2; inline;
  20905. begin
  20906. pTDefRegMap(@Self)^.&set := $00000004;
  20907. end;
  20908. procedure TPORTB_PORTB.clearRB2; inline;
  20909. begin
  20910. pTDefRegMap(@Self)^.clr := $00000004;
  20911. end;
  20912. procedure TPORTB_PORTB.setRB2(thebits : TBits_1); inline;
  20913. begin
  20914. if thebits = 0 then
  20915. pTDefRegMap(@Self)^.clr := $00000004
  20916. else
  20917. pTDefRegMap(@Self)^.&set := $00000004;
  20918. end;
  20919. function TPORTB_PORTB.getRB2 : TBits_1; inline;
  20920. begin
  20921. getRB2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  20922. end;
  20923. procedure TPORTB_PORTB.setRB3; inline;
  20924. begin
  20925. pTDefRegMap(@Self)^.&set := $00000008;
  20926. end;
  20927. procedure TPORTB_PORTB.clearRB3; inline;
  20928. begin
  20929. pTDefRegMap(@Self)^.clr := $00000008;
  20930. end;
  20931. procedure TPORTB_PORTB.setRB3(thebits : TBits_1); inline;
  20932. begin
  20933. if thebits = 0 then
  20934. pTDefRegMap(@Self)^.clr := $00000008
  20935. else
  20936. pTDefRegMap(@Self)^.&set := $00000008;
  20937. end;
  20938. function TPORTB_PORTB.getRB3 : TBits_1; inline;
  20939. begin
  20940. getRB3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  20941. end;
  20942. procedure TPORTB_PORTB.setRB4; inline;
  20943. begin
  20944. pTDefRegMap(@Self)^.&set := $00000010;
  20945. end;
  20946. procedure TPORTB_PORTB.clearRB4; inline;
  20947. begin
  20948. pTDefRegMap(@Self)^.clr := $00000010;
  20949. end;
  20950. procedure TPORTB_PORTB.setRB4(thebits : TBits_1); inline;
  20951. begin
  20952. if thebits = 0 then
  20953. pTDefRegMap(@Self)^.clr := $00000010
  20954. else
  20955. pTDefRegMap(@Self)^.&set := $00000010;
  20956. end;
  20957. function TPORTB_PORTB.getRB4 : TBits_1; inline;
  20958. begin
  20959. getRB4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  20960. end;
  20961. procedure TPORTB_PORTB.setRB5; inline;
  20962. begin
  20963. pTDefRegMap(@Self)^.&set := $00000020;
  20964. end;
  20965. procedure TPORTB_PORTB.clearRB5; inline;
  20966. begin
  20967. pTDefRegMap(@Self)^.clr := $00000020;
  20968. end;
  20969. procedure TPORTB_PORTB.setRB5(thebits : TBits_1); inline;
  20970. begin
  20971. if thebits = 0 then
  20972. pTDefRegMap(@Self)^.clr := $00000020
  20973. else
  20974. pTDefRegMap(@Self)^.&set := $00000020;
  20975. end;
  20976. function TPORTB_PORTB.getRB5 : TBits_1; inline;
  20977. begin
  20978. getRB5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  20979. end;
  20980. procedure TPORTB_PORTB.setRB6; inline;
  20981. begin
  20982. pTDefRegMap(@Self)^.&set := $00000040;
  20983. end;
  20984. procedure TPORTB_PORTB.clearRB6; inline;
  20985. begin
  20986. pTDefRegMap(@Self)^.clr := $00000040;
  20987. end;
  20988. procedure TPORTB_PORTB.setRB6(thebits : TBits_1); inline;
  20989. begin
  20990. if thebits = 0 then
  20991. pTDefRegMap(@Self)^.clr := $00000040
  20992. else
  20993. pTDefRegMap(@Self)^.&set := $00000040;
  20994. end;
  20995. function TPORTB_PORTB.getRB6 : TBits_1; inline;
  20996. begin
  20997. getRB6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  20998. end;
  20999. procedure TPORTB_PORTB.setRB7; inline;
  21000. begin
  21001. pTDefRegMap(@Self)^.&set := $00000080;
  21002. end;
  21003. procedure TPORTB_PORTB.clearRB7; inline;
  21004. begin
  21005. pTDefRegMap(@Self)^.clr := $00000080;
  21006. end;
  21007. procedure TPORTB_PORTB.setRB7(thebits : TBits_1); inline;
  21008. begin
  21009. if thebits = 0 then
  21010. pTDefRegMap(@Self)^.clr := $00000080
  21011. else
  21012. pTDefRegMap(@Self)^.&set := $00000080;
  21013. end;
  21014. function TPORTB_PORTB.getRB7 : TBits_1; inline;
  21015. begin
  21016. getRB7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  21017. end;
  21018. procedure TPORTB_PORTB.setRB8; inline;
  21019. begin
  21020. pTDefRegMap(@Self)^.&set := $00000100;
  21021. end;
  21022. procedure TPORTB_PORTB.clearRB8; inline;
  21023. begin
  21024. pTDefRegMap(@Self)^.clr := $00000100;
  21025. end;
  21026. procedure TPORTB_PORTB.setRB8(thebits : TBits_1); inline;
  21027. begin
  21028. if thebits = 0 then
  21029. pTDefRegMap(@Self)^.clr := $00000100
  21030. else
  21031. pTDefRegMap(@Self)^.&set := $00000100;
  21032. end;
  21033. function TPORTB_PORTB.getRB8 : TBits_1; inline;
  21034. begin
  21035. getRB8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  21036. end;
  21037. procedure TPORTB_PORTB.setRB9; inline;
  21038. begin
  21039. pTDefRegMap(@Self)^.&set := $00000200;
  21040. end;
  21041. procedure TPORTB_PORTB.clearRB9; inline;
  21042. begin
  21043. pTDefRegMap(@Self)^.clr := $00000200;
  21044. end;
  21045. procedure TPORTB_PORTB.setRB9(thebits : TBits_1); inline;
  21046. begin
  21047. if thebits = 0 then
  21048. pTDefRegMap(@Self)^.clr := $00000200
  21049. else
  21050. pTDefRegMap(@Self)^.&set := $00000200;
  21051. end;
  21052. function TPORTB_PORTB.getRB9 : TBits_1; inline;
  21053. begin
  21054. getRB9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  21055. end;
  21056. procedure TPORTB_PORTB.setRB10; inline;
  21057. begin
  21058. pTDefRegMap(@Self)^.&set := $00000400;
  21059. end;
  21060. procedure TPORTB_PORTB.clearRB10; inline;
  21061. begin
  21062. pTDefRegMap(@Self)^.clr := $00000400;
  21063. end;
  21064. procedure TPORTB_PORTB.setRB10(thebits : TBits_1); inline;
  21065. begin
  21066. if thebits = 0 then
  21067. pTDefRegMap(@Self)^.clr := $00000400
  21068. else
  21069. pTDefRegMap(@Self)^.&set := $00000400;
  21070. end;
  21071. function TPORTB_PORTB.getRB10 : TBits_1; inline;
  21072. begin
  21073. getRB10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  21074. end;
  21075. procedure TPORTB_PORTB.setRB11; inline;
  21076. begin
  21077. pTDefRegMap(@Self)^.&set := $00000800;
  21078. end;
  21079. procedure TPORTB_PORTB.clearRB11; inline;
  21080. begin
  21081. pTDefRegMap(@Self)^.clr := $00000800;
  21082. end;
  21083. procedure TPORTB_PORTB.setRB11(thebits : TBits_1); inline;
  21084. begin
  21085. if thebits = 0 then
  21086. pTDefRegMap(@Self)^.clr := $00000800
  21087. else
  21088. pTDefRegMap(@Self)^.&set := $00000800;
  21089. end;
  21090. function TPORTB_PORTB.getRB11 : TBits_1; inline;
  21091. begin
  21092. getRB11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  21093. end;
  21094. procedure TPORTB_PORTB.setRB12; inline;
  21095. begin
  21096. pTDefRegMap(@Self)^.&set := $00001000;
  21097. end;
  21098. procedure TPORTB_PORTB.clearRB12; inline;
  21099. begin
  21100. pTDefRegMap(@Self)^.clr := $00001000;
  21101. end;
  21102. procedure TPORTB_PORTB.setRB12(thebits : TBits_1); inline;
  21103. begin
  21104. if thebits = 0 then
  21105. pTDefRegMap(@Self)^.clr := $00001000
  21106. else
  21107. pTDefRegMap(@Self)^.&set := $00001000;
  21108. end;
  21109. function TPORTB_PORTB.getRB12 : TBits_1; inline;
  21110. begin
  21111. getRB12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  21112. end;
  21113. procedure TPORTB_PORTB.setRB13; inline;
  21114. begin
  21115. pTDefRegMap(@Self)^.&set := $00002000;
  21116. end;
  21117. procedure TPORTB_PORTB.clearRB13; inline;
  21118. begin
  21119. pTDefRegMap(@Self)^.clr := $00002000;
  21120. end;
  21121. procedure TPORTB_PORTB.setRB13(thebits : TBits_1); inline;
  21122. begin
  21123. if thebits = 0 then
  21124. pTDefRegMap(@Self)^.clr := $00002000
  21125. else
  21126. pTDefRegMap(@Self)^.&set := $00002000;
  21127. end;
  21128. function TPORTB_PORTB.getRB13 : TBits_1; inline;
  21129. begin
  21130. getRB13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  21131. end;
  21132. procedure TPORTB_PORTB.setRB14; inline;
  21133. begin
  21134. pTDefRegMap(@Self)^.&set := $00004000;
  21135. end;
  21136. procedure TPORTB_PORTB.clearRB14; inline;
  21137. begin
  21138. pTDefRegMap(@Self)^.clr := $00004000;
  21139. end;
  21140. procedure TPORTB_PORTB.setRB14(thebits : TBits_1); inline;
  21141. begin
  21142. if thebits = 0 then
  21143. pTDefRegMap(@Self)^.clr := $00004000
  21144. else
  21145. pTDefRegMap(@Self)^.&set := $00004000;
  21146. end;
  21147. function TPORTB_PORTB.getRB14 : TBits_1; inline;
  21148. begin
  21149. getRB14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  21150. end;
  21151. procedure TPORTB_PORTB.setRB15; inline;
  21152. begin
  21153. pTDefRegMap(@Self)^.&set := $00008000;
  21154. end;
  21155. procedure TPORTB_PORTB.clearRB15; inline;
  21156. begin
  21157. pTDefRegMap(@Self)^.clr := $00008000;
  21158. end;
  21159. procedure TPORTB_PORTB.setRB15(thebits : TBits_1); inline;
  21160. begin
  21161. if thebits = 0 then
  21162. pTDefRegMap(@Self)^.clr := $00008000
  21163. else
  21164. pTDefRegMap(@Self)^.&set := $00008000;
  21165. end;
  21166. function TPORTB_PORTB.getRB15 : TBits_1; inline;
  21167. begin
  21168. getRB15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  21169. end;
  21170. procedure TPORTB_PORTB.setw(thebits : TBits_32); inline;
  21171. begin
  21172. pTDefRegMap(@Self)^.val := thebits;
  21173. end;
  21174. function TPORTB_PORTB.getw : TBits_32; inline;
  21175. begin
  21176. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  21177. end;
  21178. procedure TPORTB_LATB.setLATB0; inline;
  21179. begin
  21180. pTDefRegMap(@Self)^.&set := $00000001;
  21181. end;
  21182. procedure TPORTB_LATB.clearLATB0; inline;
  21183. begin
  21184. pTDefRegMap(@Self)^.clr := $00000001;
  21185. end;
  21186. procedure TPORTB_LATB.setLATB0(thebits : TBits_1); inline;
  21187. begin
  21188. if thebits = 0 then
  21189. pTDefRegMap(@Self)^.clr := $00000001
  21190. else
  21191. pTDefRegMap(@Self)^.&set := $00000001;
  21192. end;
  21193. function TPORTB_LATB.getLATB0 : TBits_1; inline;
  21194. begin
  21195. getLATB0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  21196. end;
  21197. procedure TPORTB_LATB.setLATB1; inline;
  21198. begin
  21199. pTDefRegMap(@Self)^.&set := $00000002;
  21200. end;
  21201. procedure TPORTB_LATB.clearLATB1; inline;
  21202. begin
  21203. pTDefRegMap(@Self)^.clr := $00000002;
  21204. end;
  21205. procedure TPORTB_LATB.setLATB1(thebits : TBits_1); inline;
  21206. begin
  21207. if thebits = 0 then
  21208. pTDefRegMap(@Self)^.clr := $00000002
  21209. else
  21210. pTDefRegMap(@Self)^.&set := $00000002;
  21211. end;
  21212. function TPORTB_LATB.getLATB1 : TBits_1; inline;
  21213. begin
  21214. getLATB1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  21215. end;
  21216. procedure TPORTB_LATB.setLATB2; inline;
  21217. begin
  21218. pTDefRegMap(@Self)^.&set := $00000004;
  21219. end;
  21220. procedure TPORTB_LATB.clearLATB2; inline;
  21221. begin
  21222. pTDefRegMap(@Self)^.clr := $00000004;
  21223. end;
  21224. procedure TPORTB_LATB.setLATB2(thebits : TBits_1); inline;
  21225. begin
  21226. if thebits = 0 then
  21227. pTDefRegMap(@Self)^.clr := $00000004
  21228. else
  21229. pTDefRegMap(@Self)^.&set := $00000004;
  21230. end;
  21231. function TPORTB_LATB.getLATB2 : TBits_1; inline;
  21232. begin
  21233. getLATB2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  21234. end;
  21235. procedure TPORTB_LATB.setLATB3; inline;
  21236. begin
  21237. pTDefRegMap(@Self)^.&set := $00000008;
  21238. end;
  21239. procedure TPORTB_LATB.clearLATB3; inline;
  21240. begin
  21241. pTDefRegMap(@Self)^.clr := $00000008;
  21242. end;
  21243. procedure TPORTB_LATB.setLATB3(thebits : TBits_1); inline;
  21244. begin
  21245. if thebits = 0 then
  21246. pTDefRegMap(@Self)^.clr := $00000008
  21247. else
  21248. pTDefRegMap(@Self)^.&set := $00000008;
  21249. end;
  21250. function TPORTB_LATB.getLATB3 : TBits_1; inline;
  21251. begin
  21252. getLATB3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  21253. end;
  21254. procedure TPORTB_LATB.setLATB4; inline;
  21255. begin
  21256. pTDefRegMap(@Self)^.&set := $00000010;
  21257. end;
  21258. procedure TPORTB_LATB.clearLATB4; inline;
  21259. begin
  21260. pTDefRegMap(@Self)^.clr := $00000010;
  21261. end;
  21262. procedure TPORTB_LATB.setLATB4(thebits : TBits_1); inline;
  21263. begin
  21264. if thebits = 0 then
  21265. pTDefRegMap(@Self)^.clr := $00000010
  21266. else
  21267. pTDefRegMap(@Self)^.&set := $00000010;
  21268. end;
  21269. function TPORTB_LATB.getLATB4 : TBits_1; inline;
  21270. begin
  21271. getLATB4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  21272. end;
  21273. procedure TPORTB_LATB.setLATB5; inline;
  21274. begin
  21275. pTDefRegMap(@Self)^.&set := $00000020;
  21276. end;
  21277. procedure TPORTB_LATB.clearLATB5; inline;
  21278. begin
  21279. pTDefRegMap(@Self)^.clr := $00000020;
  21280. end;
  21281. procedure TPORTB_LATB.setLATB5(thebits : TBits_1); inline;
  21282. begin
  21283. if thebits = 0 then
  21284. pTDefRegMap(@Self)^.clr := $00000020
  21285. else
  21286. pTDefRegMap(@Self)^.&set := $00000020;
  21287. end;
  21288. function TPORTB_LATB.getLATB5 : TBits_1; inline;
  21289. begin
  21290. getLATB5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  21291. end;
  21292. procedure TPORTB_LATB.setLATB6; inline;
  21293. begin
  21294. pTDefRegMap(@Self)^.&set := $00000040;
  21295. end;
  21296. procedure TPORTB_LATB.clearLATB6; inline;
  21297. begin
  21298. pTDefRegMap(@Self)^.clr := $00000040;
  21299. end;
  21300. procedure TPORTB_LATB.setLATB6(thebits : TBits_1); inline;
  21301. begin
  21302. if thebits = 0 then
  21303. pTDefRegMap(@Self)^.clr := $00000040
  21304. else
  21305. pTDefRegMap(@Self)^.&set := $00000040;
  21306. end;
  21307. function TPORTB_LATB.getLATB6 : TBits_1; inline;
  21308. begin
  21309. getLATB6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  21310. end;
  21311. procedure TPORTB_LATB.setLATB7; inline;
  21312. begin
  21313. pTDefRegMap(@Self)^.&set := $00000080;
  21314. end;
  21315. procedure TPORTB_LATB.clearLATB7; inline;
  21316. begin
  21317. pTDefRegMap(@Self)^.clr := $00000080;
  21318. end;
  21319. procedure TPORTB_LATB.setLATB7(thebits : TBits_1); inline;
  21320. begin
  21321. if thebits = 0 then
  21322. pTDefRegMap(@Self)^.clr := $00000080
  21323. else
  21324. pTDefRegMap(@Self)^.&set := $00000080;
  21325. end;
  21326. function TPORTB_LATB.getLATB7 : TBits_1; inline;
  21327. begin
  21328. getLATB7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  21329. end;
  21330. procedure TPORTB_LATB.setLATB8; inline;
  21331. begin
  21332. pTDefRegMap(@Self)^.&set := $00000100;
  21333. end;
  21334. procedure TPORTB_LATB.clearLATB8; inline;
  21335. begin
  21336. pTDefRegMap(@Self)^.clr := $00000100;
  21337. end;
  21338. procedure TPORTB_LATB.setLATB8(thebits : TBits_1); inline;
  21339. begin
  21340. if thebits = 0 then
  21341. pTDefRegMap(@Self)^.clr := $00000100
  21342. else
  21343. pTDefRegMap(@Self)^.&set := $00000100;
  21344. end;
  21345. function TPORTB_LATB.getLATB8 : TBits_1; inline;
  21346. begin
  21347. getLATB8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  21348. end;
  21349. procedure TPORTB_LATB.setLATB9; inline;
  21350. begin
  21351. pTDefRegMap(@Self)^.&set := $00000200;
  21352. end;
  21353. procedure TPORTB_LATB.clearLATB9; inline;
  21354. begin
  21355. pTDefRegMap(@Self)^.clr := $00000200;
  21356. end;
  21357. procedure TPORTB_LATB.setLATB9(thebits : TBits_1); inline;
  21358. begin
  21359. if thebits = 0 then
  21360. pTDefRegMap(@Self)^.clr := $00000200
  21361. else
  21362. pTDefRegMap(@Self)^.&set := $00000200;
  21363. end;
  21364. function TPORTB_LATB.getLATB9 : TBits_1; inline;
  21365. begin
  21366. getLATB9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  21367. end;
  21368. procedure TPORTB_LATB.setLATB10; inline;
  21369. begin
  21370. pTDefRegMap(@Self)^.&set := $00000400;
  21371. end;
  21372. procedure TPORTB_LATB.clearLATB10; inline;
  21373. begin
  21374. pTDefRegMap(@Self)^.clr := $00000400;
  21375. end;
  21376. procedure TPORTB_LATB.setLATB10(thebits : TBits_1); inline;
  21377. begin
  21378. if thebits = 0 then
  21379. pTDefRegMap(@Self)^.clr := $00000400
  21380. else
  21381. pTDefRegMap(@Self)^.&set := $00000400;
  21382. end;
  21383. function TPORTB_LATB.getLATB10 : TBits_1; inline;
  21384. begin
  21385. getLATB10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  21386. end;
  21387. procedure TPORTB_LATB.setLATB11; inline;
  21388. begin
  21389. pTDefRegMap(@Self)^.&set := $00000800;
  21390. end;
  21391. procedure TPORTB_LATB.clearLATB11; inline;
  21392. begin
  21393. pTDefRegMap(@Self)^.clr := $00000800;
  21394. end;
  21395. procedure TPORTB_LATB.setLATB11(thebits : TBits_1); inline;
  21396. begin
  21397. if thebits = 0 then
  21398. pTDefRegMap(@Self)^.clr := $00000800
  21399. else
  21400. pTDefRegMap(@Self)^.&set := $00000800;
  21401. end;
  21402. function TPORTB_LATB.getLATB11 : TBits_1; inline;
  21403. begin
  21404. getLATB11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  21405. end;
  21406. procedure TPORTB_LATB.setLATB12; inline;
  21407. begin
  21408. pTDefRegMap(@Self)^.&set := $00001000;
  21409. end;
  21410. procedure TPORTB_LATB.clearLATB12; inline;
  21411. begin
  21412. pTDefRegMap(@Self)^.clr := $00001000;
  21413. end;
  21414. procedure TPORTB_LATB.setLATB12(thebits : TBits_1); inline;
  21415. begin
  21416. if thebits = 0 then
  21417. pTDefRegMap(@Self)^.clr := $00001000
  21418. else
  21419. pTDefRegMap(@Self)^.&set := $00001000;
  21420. end;
  21421. function TPORTB_LATB.getLATB12 : TBits_1; inline;
  21422. begin
  21423. getLATB12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  21424. end;
  21425. procedure TPORTB_LATB.setLATB13; inline;
  21426. begin
  21427. pTDefRegMap(@Self)^.&set := $00002000;
  21428. end;
  21429. procedure TPORTB_LATB.clearLATB13; inline;
  21430. begin
  21431. pTDefRegMap(@Self)^.clr := $00002000;
  21432. end;
  21433. procedure TPORTB_LATB.setLATB13(thebits : TBits_1); inline;
  21434. begin
  21435. if thebits = 0 then
  21436. pTDefRegMap(@Self)^.clr := $00002000
  21437. else
  21438. pTDefRegMap(@Self)^.&set := $00002000;
  21439. end;
  21440. function TPORTB_LATB.getLATB13 : TBits_1; inline;
  21441. begin
  21442. getLATB13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  21443. end;
  21444. procedure TPORTB_LATB.setLATB14; inline;
  21445. begin
  21446. pTDefRegMap(@Self)^.&set := $00004000;
  21447. end;
  21448. procedure TPORTB_LATB.clearLATB14; inline;
  21449. begin
  21450. pTDefRegMap(@Self)^.clr := $00004000;
  21451. end;
  21452. procedure TPORTB_LATB.setLATB14(thebits : TBits_1); inline;
  21453. begin
  21454. if thebits = 0 then
  21455. pTDefRegMap(@Self)^.clr := $00004000
  21456. else
  21457. pTDefRegMap(@Self)^.&set := $00004000;
  21458. end;
  21459. function TPORTB_LATB.getLATB14 : TBits_1; inline;
  21460. begin
  21461. getLATB14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  21462. end;
  21463. procedure TPORTB_LATB.setLATB15; inline;
  21464. begin
  21465. pTDefRegMap(@Self)^.&set := $00008000;
  21466. end;
  21467. procedure TPORTB_LATB.clearLATB15; inline;
  21468. begin
  21469. pTDefRegMap(@Self)^.clr := $00008000;
  21470. end;
  21471. procedure TPORTB_LATB.setLATB15(thebits : TBits_1); inline;
  21472. begin
  21473. if thebits = 0 then
  21474. pTDefRegMap(@Self)^.clr := $00008000
  21475. else
  21476. pTDefRegMap(@Self)^.&set := $00008000;
  21477. end;
  21478. function TPORTB_LATB.getLATB15 : TBits_1; inline;
  21479. begin
  21480. getLATB15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  21481. end;
  21482. procedure TPORTB_LATB.setw(thebits : TBits_32); inline;
  21483. begin
  21484. pTDefRegMap(@Self)^.val := thebits;
  21485. end;
  21486. function TPORTB_LATB.getw : TBits_32; inline;
  21487. begin
  21488. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  21489. end;
  21490. procedure TPORTB_ODCB.setODCB0; inline;
  21491. begin
  21492. pTDefRegMap(@Self)^.&set := $00000001;
  21493. end;
  21494. procedure TPORTB_ODCB.clearODCB0; inline;
  21495. begin
  21496. pTDefRegMap(@Self)^.clr := $00000001;
  21497. end;
  21498. procedure TPORTB_ODCB.setODCB0(thebits : TBits_1); inline;
  21499. begin
  21500. if thebits = 0 then
  21501. pTDefRegMap(@Self)^.clr := $00000001
  21502. else
  21503. pTDefRegMap(@Self)^.&set := $00000001;
  21504. end;
  21505. function TPORTB_ODCB.getODCB0 : TBits_1; inline;
  21506. begin
  21507. getODCB0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  21508. end;
  21509. procedure TPORTB_ODCB.setODCB1; inline;
  21510. begin
  21511. pTDefRegMap(@Self)^.&set := $00000002;
  21512. end;
  21513. procedure TPORTB_ODCB.clearODCB1; inline;
  21514. begin
  21515. pTDefRegMap(@Self)^.clr := $00000002;
  21516. end;
  21517. procedure TPORTB_ODCB.setODCB1(thebits : TBits_1); inline;
  21518. begin
  21519. if thebits = 0 then
  21520. pTDefRegMap(@Self)^.clr := $00000002
  21521. else
  21522. pTDefRegMap(@Self)^.&set := $00000002;
  21523. end;
  21524. function TPORTB_ODCB.getODCB1 : TBits_1; inline;
  21525. begin
  21526. getODCB1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  21527. end;
  21528. procedure TPORTB_ODCB.setODCB2; inline;
  21529. begin
  21530. pTDefRegMap(@Self)^.&set := $00000004;
  21531. end;
  21532. procedure TPORTB_ODCB.clearODCB2; inline;
  21533. begin
  21534. pTDefRegMap(@Self)^.clr := $00000004;
  21535. end;
  21536. procedure TPORTB_ODCB.setODCB2(thebits : TBits_1); inline;
  21537. begin
  21538. if thebits = 0 then
  21539. pTDefRegMap(@Self)^.clr := $00000004
  21540. else
  21541. pTDefRegMap(@Self)^.&set := $00000004;
  21542. end;
  21543. function TPORTB_ODCB.getODCB2 : TBits_1; inline;
  21544. begin
  21545. getODCB2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  21546. end;
  21547. procedure TPORTB_ODCB.setODCB3; inline;
  21548. begin
  21549. pTDefRegMap(@Self)^.&set := $00000008;
  21550. end;
  21551. procedure TPORTB_ODCB.clearODCB3; inline;
  21552. begin
  21553. pTDefRegMap(@Self)^.clr := $00000008;
  21554. end;
  21555. procedure TPORTB_ODCB.setODCB3(thebits : TBits_1); inline;
  21556. begin
  21557. if thebits = 0 then
  21558. pTDefRegMap(@Self)^.clr := $00000008
  21559. else
  21560. pTDefRegMap(@Self)^.&set := $00000008;
  21561. end;
  21562. function TPORTB_ODCB.getODCB3 : TBits_1; inline;
  21563. begin
  21564. getODCB3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  21565. end;
  21566. procedure TPORTB_ODCB.setODCB4; inline;
  21567. begin
  21568. pTDefRegMap(@Self)^.&set := $00000010;
  21569. end;
  21570. procedure TPORTB_ODCB.clearODCB4; inline;
  21571. begin
  21572. pTDefRegMap(@Self)^.clr := $00000010;
  21573. end;
  21574. procedure TPORTB_ODCB.setODCB4(thebits : TBits_1); inline;
  21575. begin
  21576. if thebits = 0 then
  21577. pTDefRegMap(@Self)^.clr := $00000010
  21578. else
  21579. pTDefRegMap(@Self)^.&set := $00000010;
  21580. end;
  21581. function TPORTB_ODCB.getODCB4 : TBits_1; inline;
  21582. begin
  21583. getODCB4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  21584. end;
  21585. procedure TPORTB_ODCB.setODCB5; inline;
  21586. begin
  21587. pTDefRegMap(@Self)^.&set := $00000020;
  21588. end;
  21589. procedure TPORTB_ODCB.clearODCB5; inline;
  21590. begin
  21591. pTDefRegMap(@Self)^.clr := $00000020;
  21592. end;
  21593. procedure TPORTB_ODCB.setODCB5(thebits : TBits_1); inline;
  21594. begin
  21595. if thebits = 0 then
  21596. pTDefRegMap(@Self)^.clr := $00000020
  21597. else
  21598. pTDefRegMap(@Self)^.&set := $00000020;
  21599. end;
  21600. function TPORTB_ODCB.getODCB5 : TBits_1; inline;
  21601. begin
  21602. getODCB5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  21603. end;
  21604. procedure TPORTB_ODCB.setODCB6; inline;
  21605. begin
  21606. pTDefRegMap(@Self)^.&set := $00000040;
  21607. end;
  21608. procedure TPORTB_ODCB.clearODCB6; inline;
  21609. begin
  21610. pTDefRegMap(@Self)^.clr := $00000040;
  21611. end;
  21612. procedure TPORTB_ODCB.setODCB6(thebits : TBits_1); inline;
  21613. begin
  21614. if thebits = 0 then
  21615. pTDefRegMap(@Self)^.clr := $00000040
  21616. else
  21617. pTDefRegMap(@Self)^.&set := $00000040;
  21618. end;
  21619. function TPORTB_ODCB.getODCB6 : TBits_1; inline;
  21620. begin
  21621. getODCB6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  21622. end;
  21623. procedure TPORTB_ODCB.setODCB7; inline;
  21624. begin
  21625. pTDefRegMap(@Self)^.&set := $00000080;
  21626. end;
  21627. procedure TPORTB_ODCB.clearODCB7; inline;
  21628. begin
  21629. pTDefRegMap(@Self)^.clr := $00000080;
  21630. end;
  21631. procedure TPORTB_ODCB.setODCB7(thebits : TBits_1); inline;
  21632. begin
  21633. if thebits = 0 then
  21634. pTDefRegMap(@Self)^.clr := $00000080
  21635. else
  21636. pTDefRegMap(@Self)^.&set := $00000080;
  21637. end;
  21638. function TPORTB_ODCB.getODCB7 : TBits_1; inline;
  21639. begin
  21640. getODCB7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  21641. end;
  21642. procedure TPORTB_ODCB.setODCB8; inline;
  21643. begin
  21644. pTDefRegMap(@Self)^.&set := $00000100;
  21645. end;
  21646. procedure TPORTB_ODCB.clearODCB8; inline;
  21647. begin
  21648. pTDefRegMap(@Self)^.clr := $00000100;
  21649. end;
  21650. procedure TPORTB_ODCB.setODCB8(thebits : TBits_1); inline;
  21651. begin
  21652. if thebits = 0 then
  21653. pTDefRegMap(@Self)^.clr := $00000100
  21654. else
  21655. pTDefRegMap(@Self)^.&set := $00000100;
  21656. end;
  21657. function TPORTB_ODCB.getODCB8 : TBits_1; inline;
  21658. begin
  21659. getODCB8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  21660. end;
  21661. procedure TPORTB_ODCB.setODCB9; inline;
  21662. begin
  21663. pTDefRegMap(@Self)^.&set := $00000200;
  21664. end;
  21665. procedure TPORTB_ODCB.clearODCB9; inline;
  21666. begin
  21667. pTDefRegMap(@Self)^.clr := $00000200;
  21668. end;
  21669. procedure TPORTB_ODCB.setODCB9(thebits : TBits_1); inline;
  21670. begin
  21671. if thebits = 0 then
  21672. pTDefRegMap(@Self)^.clr := $00000200
  21673. else
  21674. pTDefRegMap(@Self)^.&set := $00000200;
  21675. end;
  21676. function TPORTB_ODCB.getODCB9 : TBits_1; inline;
  21677. begin
  21678. getODCB9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  21679. end;
  21680. procedure TPORTB_ODCB.setODCB10; inline;
  21681. begin
  21682. pTDefRegMap(@Self)^.&set := $00000400;
  21683. end;
  21684. procedure TPORTB_ODCB.clearODCB10; inline;
  21685. begin
  21686. pTDefRegMap(@Self)^.clr := $00000400;
  21687. end;
  21688. procedure TPORTB_ODCB.setODCB10(thebits : TBits_1); inline;
  21689. begin
  21690. if thebits = 0 then
  21691. pTDefRegMap(@Self)^.clr := $00000400
  21692. else
  21693. pTDefRegMap(@Self)^.&set := $00000400;
  21694. end;
  21695. function TPORTB_ODCB.getODCB10 : TBits_1; inline;
  21696. begin
  21697. getODCB10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  21698. end;
  21699. procedure TPORTB_ODCB.setODCB11; inline;
  21700. begin
  21701. pTDefRegMap(@Self)^.&set := $00000800;
  21702. end;
  21703. procedure TPORTB_ODCB.clearODCB11; inline;
  21704. begin
  21705. pTDefRegMap(@Self)^.clr := $00000800;
  21706. end;
  21707. procedure TPORTB_ODCB.setODCB11(thebits : TBits_1); inline;
  21708. begin
  21709. if thebits = 0 then
  21710. pTDefRegMap(@Self)^.clr := $00000800
  21711. else
  21712. pTDefRegMap(@Self)^.&set := $00000800;
  21713. end;
  21714. function TPORTB_ODCB.getODCB11 : TBits_1; inline;
  21715. begin
  21716. getODCB11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  21717. end;
  21718. procedure TPORTB_ODCB.setODCB12; inline;
  21719. begin
  21720. pTDefRegMap(@Self)^.&set := $00001000;
  21721. end;
  21722. procedure TPORTB_ODCB.clearODCB12; inline;
  21723. begin
  21724. pTDefRegMap(@Self)^.clr := $00001000;
  21725. end;
  21726. procedure TPORTB_ODCB.setODCB12(thebits : TBits_1); inline;
  21727. begin
  21728. if thebits = 0 then
  21729. pTDefRegMap(@Self)^.clr := $00001000
  21730. else
  21731. pTDefRegMap(@Self)^.&set := $00001000;
  21732. end;
  21733. function TPORTB_ODCB.getODCB12 : TBits_1; inline;
  21734. begin
  21735. getODCB12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  21736. end;
  21737. procedure TPORTB_ODCB.setODCB13; inline;
  21738. begin
  21739. pTDefRegMap(@Self)^.&set := $00002000;
  21740. end;
  21741. procedure TPORTB_ODCB.clearODCB13; inline;
  21742. begin
  21743. pTDefRegMap(@Self)^.clr := $00002000;
  21744. end;
  21745. procedure TPORTB_ODCB.setODCB13(thebits : TBits_1); inline;
  21746. begin
  21747. if thebits = 0 then
  21748. pTDefRegMap(@Self)^.clr := $00002000
  21749. else
  21750. pTDefRegMap(@Self)^.&set := $00002000;
  21751. end;
  21752. function TPORTB_ODCB.getODCB13 : TBits_1; inline;
  21753. begin
  21754. getODCB13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  21755. end;
  21756. procedure TPORTB_ODCB.setODCB14; inline;
  21757. begin
  21758. pTDefRegMap(@Self)^.&set := $00004000;
  21759. end;
  21760. procedure TPORTB_ODCB.clearODCB14; inline;
  21761. begin
  21762. pTDefRegMap(@Self)^.clr := $00004000;
  21763. end;
  21764. procedure TPORTB_ODCB.setODCB14(thebits : TBits_1); inline;
  21765. begin
  21766. if thebits = 0 then
  21767. pTDefRegMap(@Self)^.clr := $00004000
  21768. else
  21769. pTDefRegMap(@Self)^.&set := $00004000;
  21770. end;
  21771. function TPORTB_ODCB.getODCB14 : TBits_1; inline;
  21772. begin
  21773. getODCB14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  21774. end;
  21775. procedure TPORTB_ODCB.setODCB15; inline;
  21776. begin
  21777. pTDefRegMap(@Self)^.&set := $00008000;
  21778. end;
  21779. procedure TPORTB_ODCB.clearODCB15; inline;
  21780. begin
  21781. pTDefRegMap(@Self)^.clr := $00008000;
  21782. end;
  21783. procedure TPORTB_ODCB.setODCB15(thebits : TBits_1); inline;
  21784. begin
  21785. if thebits = 0 then
  21786. pTDefRegMap(@Self)^.clr := $00008000
  21787. else
  21788. pTDefRegMap(@Self)^.&set := $00008000;
  21789. end;
  21790. function TPORTB_ODCB.getODCB15 : TBits_1; inline;
  21791. begin
  21792. getODCB15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  21793. end;
  21794. procedure TPORTB_ODCB.setw(thebits : TBits_32); inline;
  21795. begin
  21796. pTDefRegMap(@Self)^.val := thebits;
  21797. end;
  21798. function TPORTB_ODCB.getw : TBits_32; inline;
  21799. begin
  21800. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  21801. end;
  21802. procedure TPORTC_TRISC.setTRISC12; inline;
  21803. begin
  21804. pTDefRegMap(@Self)^.&set := $00001000;
  21805. end;
  21806. procedure TPORTC_TRISC.clearTRISC12; inline;
  21807. begin
  21808. pTDefRegMap(@Self)^.clr := $00001000;
  21809. end;
  21810. procedure TPORTC_TRISC.setTRISC12(thebits : TBits_1); inline;
  21811. begin
  21812. if thebits = 0 then
  21813. pTDefRegMap(@Self)^.clr := $00001000
  21814. else
  21815. pTDefRegMap(@Self)^.&set := $00001000;
  21816. end;
  21817. function TPORTC_TRISC.getTRISC12 : TBits_1; inline;
  21818. begin
  21819. getTRISC12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  21820. end;
  21821. procedure TPORTC_TRISC.setTRISC13; inline;
  21822. begin
  21823. pTDefRegMap(@Self)^.&set := $00002000;
  21824. end;
  21825. procedure TPORTC_TRISC.clearTRISC13; inline;
  21826. begin
  21827. pTDefRegMap(@Self)^.clr := $00002000;
  21828. end;
  21829. procedure TPORTC_TRISC.setTRISC13(thebits : TBits_1); inline;
  21830. begin
  21831. if thebits = 0 then
  21832. pTDefRegMap(@Self)^.clr := $00002000
  21833. else
  21834. pTDefRegMap(@Self)^.&set := $00002000;
  21835. end;
  21836. function TPORTC_TRISC.getTRISC13 : TBits_1; inline;
  21837. begin
  21838. getTRISC13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  21839. end;
  21840. procedure TPORTC_TRISC.setTRISC14; inline;
  21841. begin
  21842. pTDefRegMap(@Self)^.&set := $00004000;
  21843. end;
  21844. procedure TPORTC_TRISC.clearTRISC14; inline;
  21845. begin
  21846. pTDefRegMap(@Self)^.clr := $00004000;
  21847. end;
  21848. procedure TPORTC_TRISC.setTRISC14(thebits : TBits_1); inline;
  21849. begin
  21850. if thebits = 0 then
  21851. pTDefRegMap(@Self)^.clr := $00004000
  21852. else
  21853. pTDefRegMap(@Self)^.&set := $00004000;
  21854. end;
  21855. function TPORTC_TRISC.getTRISC14 : TBits_1; inline;
  21856. begin
  21857. getTRISC14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  21858. end;
  21859. procedure TPORTC_TRISC.setTRISC15; inline;
  21860. begin
  21861. pTDefRegMap(@Self)^.&set := $00008000;
  21862. end;
  21863. procedure TPORTC_TRISC.clearTRISC15; inline;
  21864. begin
  21865. pTDefRegMap(@Self)^.clr := $00008000;
  21866. end;
  21867. procedure TPORTC_TRISC.setTRISC15(thebits : TBits_1); inline;
  21868. begin
  21869. if thebits = 0 then
  21870. pTDefRegMap(@Self)^.clr := $00008000
  21871. else
  21872. pTDefRegMap(@Self)^.&set := $00008000;
  21873. end;
  21874. function TPORTC_TRISC.getTRISC15 : TBits_1; inline;
  21875. begin
  21876. getTRISC15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  21877. end;
  21878. procedure TPORTC_TRISC.setw(thebits : TBits_32); inline;
  21879. begin
  21880. pTDefRegMap(@Self)^.val := thebits;
  21881. end;
  21882. function TPORTC_TRISC.getw : TBits_32; inline;
  21883. begin
  21884. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  21885. end;
  21886. procedure TPORTC_PORTC.setRC12; inline;
  21887. begin
  21888. pTDefRegMap(@Self)^.&set := $00001000;
  21889. end;
  21890. procedure TPORTC_PORTC.clearRC12; inline;
  21891. begin
  21892. pTDefRegMap(@Self)^.clr := $00001000;
  21893. end;
  21894. procedure TPORTC_PORTC.setRC12(thebits : TBits_1); inline;
  21895. begin
  21896. if thebits = 0 then
  21897. pTDefRegMap(@Self)^.clr := $00001000
  21898. else
  21899. pTDefRegMap(@Self)^.&set := $00001000;
  21900. end;
  21901. function TPORTC_PORTC.getRC12 : TBits_1; inline;
  21902. begin
  21903. getRC12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  21904. end;
  21905. procedure TPORTC_PORTC.setRC13; inline;
  21906. begin
  21907. pTDefRegMap(@Self)^.&set := $00002000;
  21908. end;
  21909. procedure TPORTC_PORTC.clearRC13; inline;
  21910. begin
  21911. pTDefRegMap(@Self)^.clr := $00002000;
  21912. end;
  21913. procedure TPORTC_PORTC.setRC13(thebits : TBits_1); inline;
  21914. begin
  21915. if thebits = 0 then
  21916. pTDefRegMap(@Self)^.clr := $00002000
  21917. else
  21918. pTDefRegMap(@Self)^.&set := $00002000;
  21919. end;
  21920. function TPORTC_PORTC.getRC13 : TBits_1; inline;
  21921. begin
  21922. getRC13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  21923. end;
  21924. procedure TPORTC_PORTC.setRC14; inline;
  21925. begin
  21926. pTDefRegMap(@Self)^.&set := $00004000;
  21927. end;
  21928. procedure TPORTC_PORTC.clearRC14; inline;
  21929. begin
  21930. pTDefRegMap(@Self)^.clr := $00004000;
  21931. end;
  21932. procedure TPORTC_PORTC.setRC14(thebits : TBits_1); inline;
  21933. begin
  21934. if thebits = 0 then
  21935. pTDefRegMap(@Self)^.clr := $00004000
  21936. else
  21937. pTDefRegMap(@Self)^.&set := $00004000;
  21938. end;
  21939. function TPORTC_PORTC.getRC14 : TBits_1; inline;
  21940. begin
  21941. getRC14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  21942. end;
  21943. procedure TPORTC_PORTC.setRC15; inline;
  21944. begin
  21945. pTDefRegMap(@Self)^.&set := $00008000;
  21946. end;
  21947. procedure TPORTC_PORTC.clearRC15; inline;
  21948. begin
  21949. pTDefRegMap(@Self)^.clr := $00008000;
  21950. end;
  21951. procedure TPORTC_PORTC.setRC15(thebits : TBits_1); inline;
  21952. begin
  21953. if thebits = 0 then
  21954. pTDefRegMap(@Self)^.clr := $00008000
  21955. else
  21956. pTDefRegMap(@Self)^.&set := $00008000;
  21957. end;
  21958. function TPORTC_PORTC.getRC15 : TBits_1; inline;
  21959. begin
  21960. getRC15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  21961. end;
  21962. procedure TPORTC_PORTC.setw(thebits : TBits_32); inline;
  21963. begin
  21964. pTDefRegMap(@Self)^.val := thebits;
  21965. end;
  21966. function TPORTC_PORTC.getw : TBits_32; inline;
  21967. begin
  21968. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  21969. end;
  21970. procedure TPORTC_LATC.setLATC12; inline;
  21971. begin
  21972. pTDefRegMap(@Self)^.&set := $00001000;
  21973. end;
  21974. procedure TPORTC_LATC.clearLATC12; inline;
  21975. begin
  21976. pTDefRegMap(@Self)^.clr := $00001000;
  21977. end;
  21978. procedure TPORTC_LATC.setLATC12(thebits : TBits_1); inline;
  21979. begin
  21980. if thebits = 0 then
  21981. pTDefRegMap(@Self)^.clr := $00001000
  21982. else
  21983. pTDefRegMap(@Self)^.&set := $00001000;
  21984. end;
  21985. function TPORTC_LATC.getLATC12 : TBits_1; inline;
  21986. begin
  21987. getLATC12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  21988. end;
  21989. procedure TPORTC_LATC.setLATC13; inline;
  21990. begin
  21991. pTDefRegMap(@Self)^.&set := $00002000;
  21992. end;
  21993. procedure TPORTC_LATC.clearLATC13; inline;
  21994. begin
  21995. pTDefRegMap(@Self)^.clr := $00002000;
  21996. end;
  21997. procedure TPORTC_LATC.setLATC13(thebits : TBits_1); inline;
  21998. begin
  21999. if thebits = 0 then
  22000. pTDefRegMap(@Self)^.clr := $00002000
  22001. else
  22002. pTDefRegMap(@Self)^.&set := $00002000;
  22003. end;
  22004. function TPORTC_LATC.getLATC13 : TBits_1; inline;
  22005. begin
  22006. getLATC13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  22007. end;
  22008. procedure TPORTC_LATC.setLATC14; inline;
  22009. begin
  22010. pTDefRegMap(@Self)^.&set := $00004000;
  22011. end;
  22012. procedure TPORTC_LATC.clearLATC14; inline;
  22013. begin
  22014. pTDefRegMap(@Self)^.clr := $00004000;
  22015. end;
  22016. procedure TPORTC_LATC.setLATC14(thebits : TBits_1); inline;
  22017. begin
  22018. if thebits = 0 then
  22019. pTDefRegMap(@Self)^.clr := $00004000
  22020. else
  22021. pTDefRegMap(@Self)^.&set := $00004000;
  22022. end;
  22023. function TPORTC_LATC.getLATC14 : TBits_1; inline;
  22024. begin
  22025. getLATC14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  22026. end;
  22027. procedure TPORTC_LATC.setLATC15; inline;
  22028. begin
  22029. pTDefRegMap(@Self)^.&set := $00008000;
  22030. end;
  22031. procedure TPORTC_LATC.clearLATC15; inline;
  22032. begin
  22033. pTDefRegMap(@Self)^.clr := $00008000;
  22034. end;
  22035. procedure TPORTC_LATC.setLATC15(thebits : TBits_1); inline;
  22036. begin
  22037. if thebits = 0 then
  22038. pTDefRegMap(@Self)^.clr := $00008000
  22039. else
  22040. pTDefRegMap(@Self)^.&set := $00008000;
  22041. end;
  22042. function TPORTC_LATC.getLATC15 : TBits_1; inline;
  22043. begin
  22044. getLATC15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  22045. end;
  22046. procedure TPORTC_LATC.setw(thebits : TBits_32); inline;
  22047. begin
  22048. pTDefRegMap(@Self)^.val := thebits;
  22049. end;
  22050. function TPORTC_LATC.getw : TBits_32; inline;
  22051. begin
  22052. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  22053. end;
  22054. procedure TPORTC_ODCC.setODCC12; inline;
  22055. begin
  22056. pTDefRegMap(@Self)^.&set := $00001000;
  22057. end;
  22058. procedure TPORTC_ODCC.clearODCC12; inline;
  22059. begin
  22060. pTDefRegMap(@Self)^.clr := $00001000;
  22061. end;
  22062. procedure TPORTC_ODCC.setODCC12(thebits : TBits_1); inline;
  22063. begin
  22064. if thebits = 0 then
  22065. pTDefRegMap(@Self)^.clr := $00001000
  22066. else
  22067. pTDefRegMap(@Self)^.&set := $00001000;
  22068. end;
  22069. function TPORTC_ODCC.getODCC12 : TBits_1; inline;
  22070. begin
  22071. getODCC12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  22072. end;
  22073. procedure TPORTC_ODCC.setODCC13; inline;
  22074. begin
  22075. pTDefRegMap(@Self)^.&set := $00002000;
  22076. end;
  22077. procedure TPORTC_ODCC.clearODCC13; inline;
  22078. begin
  22079. pTDefRegMap(@Self)^.clr := $00002000;
  22080. end;
  22081. procedure TPORTC_ODCC.setODCC13(thebits : TBits_1); inline;
  22082. begin
  22083. if thebits = 0 then
  22084. pTDefRegMap(@Self)^.clr := $00002000
  22085. else
  22086. pTDefRegMap(@Self)^.&set := $00002000;
  22087. end;
  22088. function TPORTC_ODCC.getODCC13 : TBits_1; inline;
  22089. begin
  22090. getODCC13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  22091. end;
  22092. procedure TPORTC_ODCC.setODCC14; inline;
  22093. begin
  22094. pTDefRegMap(@Self)^.&set := $00004000;
  22095. end;
  22096. procedure TPORTC_ODCC.clearODCC14; inline;
  22097. begin
  22098. pTDefRegMap(@Self)^.clr := $00004000;
  22099. end;
  22100. procedure TPORTC_ODCC.setODCC14(thebits : TBits_1); inline;
  22101. begin
  22102. if thebits = 0 then
  22103. pTDefRegMap(@Self)^.clr := $00004000
  22104. else
  22105. pTDefRegMap(@Self)^.&set := $00004000;
  22106. end;
  22107. function TPORTC_ODCC.getODCC14 : TBits_1; inline;
  22108. begin
  22109. getODCC14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  22110. end;
  22111. procedure TPORTC_ODCC.setODCC15; inline;
  22112. begin
  22113. pTDefRegMap(@Self)^.&set := $00008000;
  22114. end;
  22115. procedure TPORTC_ODCC.clearODCC15; inline;
  22116. begin
  22117. pTDefRegMap(@Self)^.clr := $00008000;
  22118. end;
  22119. procedure TPORTC_ODCC.setODCC15(thebits : TBits_1); inline;
  22120. begin
  22121. if thebits = 0 then
  22122. pTDefRegMap(@Self)^.clr := $00008000
  22123. else
  22124. pTDefRegMap(@Self)^.&set := $00008000;
  22125. end;
  22126. function TPORTC_ODCC.getODCC15 : TBits_1; inline;
  22127. begin
  22128. getODCC15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  22129. end;
  22130. procedure TPORTC_ODCC.setw(thebits : TBits_32); inline;
  22131. begin
  22132. pTDefRegMap(@Self)^.val := thebits;
  22133. end;
  22134. function TPORTC_ODCC.getw : TBits_32; inline;
  22135. begin
  22136. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  22137. end;
  22138. procedure TPORTD_TRISD.setTRISD0; inline;
  22139. begin
  22140. pTDefRegMap(@Self)^.&set := $00000001;
  22141. end;
  22142. procedure TPORTD_TRISD.clearTRISD0; inline;
  22143. begin
  22144. pTDefRegMap(@Self)^.clr := $00000001;
  22145. end;
  22146. procedure TPORTD_TRISD.setTRISD0(thebits : TBits_1); inline;
  22147. begin
  22148. if thebits = 0 then
  22149. pTDefRegMap(@Self)^.clr := $00000001
  22150. else
  22151. pTDefRegMap(@Self)^.&set := $00000001;
  22152. end;
  22153. function TPORTD_TRISD.getTRISD0 : TBits_1; inline;
  22154. begin
  22155. getTRISD0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  22156. end;
  22157. procedure TPORTD_TRISD.setTRISD1; inline;
  22158. begin
  22159. pTDefRegMap(@Self)^.&set := $00000002;
  22160. end;
  22161. procedure TPORTD_TRISD.clearTRISD1; inline;
  22162. begin
  22163. pTDefRegMap(@Self)^.clr := $00000002;
  22164. end;
  22165. procedure TPORTD_TRISD.setTRISD1(thebits : TBits_1); inline;
  22166. begin
  22167. if thebits = 0 then
  22168. pTDefRegMap(@Self)^.clr := $00000002
  22169. else
  22170. pTDefRegMap(@Self)^.&set := $00000002;
  22171. end;
  22172. function TPORTD_TRISD.getTRISD1 : TBits_1; inline;
  22173. begin
  22174. getTRISD1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  22175. end;
  22176. procedure TPORTD_TRISD.setTRISD2; inline;
  22177. begin
  22178. pTDefRegMap(@Self)^.&set := $00000004;
  22179. end;
  22180. procedure TPORTD_TRISD.clearTRISD2; inline;
  22181. begin
  22182. pTDefRegMap(@Self)^.clr := $00000004;
  22183. end;
  22184. procedure TPORTD_TRISD.setTRISD2(thebits : TBits_1); inline;
  22185. begin
  22186. if thebits = 0 then
  22187. pTDefRegMap(@Self)^.clr := $00000004
  22188. else
  22189. pTDefRegMap(@Self)^.&set := $00000004;
  22190. end;
  22191. function TPORTD_TRISD.getTRISD2 : TBits_1; inline;
  22192. begin
  22193. getTRISD2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  22194. end;
  22195. procedure TPORTD_TRISD.setTRISD3; inline;
  22196. begin
  22197. pTDefRegMap(@Self)^.&set := $00000008;
  22198. end;
  22199. procedure TPORTD_TRISD.clearTRISD3; inline;
  22200. begin
  22201. pTDefRegMap(@Self)^.clr := $00000008;
  22202. end;
  22203. procedure TPORTD_TRISD.setTRISD3(thebits : TBits_1); inline;
  22204. begin
  22205. if thebits = 0 then
  22206. pTDefRegMap(@Self)^.clr := $00000008
  22207. else
  22208. pTDefRegMap(@Self)^.&set := $00000008;
  22209. end;
  22210. function TPORTD_TRISD.getTRISD3 : TBits_1; inline;
  22211. begin
  22212. getTRISD3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  22213. end;
  22214. procedure TPORTD_TRISD.setTRISD4; inline;
  22215. begin
  22216. pTDefRegMap(@Self)^.&set := $00000010;
  22217. end;
  22218. procedure TPORTD_TRISD.clearTRISD4; inline;
  22219. begin
  22220. pTDefRegMap(@Self)^.clr := $00000010;
  22221. end;
  22222. procedure TPORTD_TRISD.setTRISD4(thebits : TBits_1); inline;
  22223. begin
  22224. if thebits = 0 then
  22225. pTDefRegMap(@Self)^.clr := $00000010
  22226. else
  22227. pTDefRegMap(@Self)^.&set := $00000010;
  22228. end;
  22229. function TPORTD_TRISD.getTRISD4 : TBits_1; inline;
  22230. begin
  22231. getTRISD4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  22232. end;
  22233. procedure TPORTD_TRISD.setTRISD5; inline;
  22234. begin
  22235. pTDefRegMap(@Self)^.&set := $00000020;
  22236. end;
  22237. procedure TPORTD_TRISD.clearTRISD5; inline;
  22238. begin
  22239. pTDefRegMap(@Self)^.clr := $00000020;
  22240. end;
  22241. procedure TPORTD_TRISD.setTRISD5(thebits : TBits_1); inline;
  22242. begin
  22243. if thebits = 0 then
  22244. pTDefRegMap(@Self)^.clr := $00000020
  22245. else
  22246. pTDefRegMap(@Self)^.&set := $00000020;
  22247. end;
  22248. function TPORTD_TRISD.getTRISD5 : TBits_1; inline;
  22249. begin
  22250. getTRISD5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  22251. end;
  22252. procedure TPORTD_TRISD.setTRISD6; inline;
  22253. begin
  22254. pTDefRegMap(@Self)^.&set := $00000040;
  22255. end;
  22256. procedure TPORTD_TRISD.clearTRISD6; inline;
  22257. begin
  22258. pTDefRegMap(@Self)^.clr := $00000040;
  22259. end;
  22260. procedure TPORTD_TRISD.setTRISD6(thebits : TBits_1); inline;
  22261. begin
  22262. if thebits = 0 then
  22263. pTDefRegMap(@Self)^.clr := $00000040
  22264. else
  22265. pTDefRegMap(@Self)^.&set := $00000040;
  22266. end;
  22267. function TPORTD_TRISD.getTRISD6 : TBits_1; inline;
  22268. begin
  22269. getTRISD6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  22270. end;
  22271. procedure TPORTD_TRISD.setTRISD7; inline;
  22272. begin
  22273. pTDefRegMap(@Self)^.&set := $00000080;
  22274. end;
  22275. procedure TPORTD_TRISD.clearTRISD7; inline;
  22276. begin
  22277. pTDefRegMap(@Self)^.clr := $00000080;
  22278. end;
  22279. procedure TPORTD_TRISD.setTRISD7(thebits : TBits_1); inline;
  22280. begin
  22281. if thebits = 0 then
  22282. pTDefRegMap(@Self)^.clr := $00000080
  22283. else
  22284. pTDefRegMap(@Self)^.&set := $00000080;
  22285. end;
  22286. function TPORTD_TRISD.getTRISD7 : TBits_1; inline;
  22287. begin
  22288. getTRISD7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  22289. end;
  22290. procedure TPORTD_TRISD.setTRISD8; inline;
  22291. begin
  22292. pTDefRegMap(@Self)^.&set := $00000100;
  22293. end;
  22294. procedure TPORTD_TRISD.clearTRISD8; inline;
  22295. begin
  22296. pTDefRegMap(@Self)^.clr := $00000100;
  22297. end;
  22298. procedure TPORTD_TRISD.setTRISD8(thebits : TBits_1); inline;
  22299. begin
  22300. if thebits = 0 then
  22301. pTDefRegMap(@Self)^.clr := $00000100
  22302. else
  22303. pTDefRegMap(@Self)^.&set := $00000100;
  22304. end;
  22305. function TPORTD_TRISD.getTRISD8 : TBits_1; inline;
  22306. begin
  22307. getTRISD8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  22308. end;
  22309. procedure TPORTD_TRISD.setTRISD9; inline;
  22310. begin
  22311. pTDefRegMap(@Self)^.&set := $00000200;
  22312. end;
  22313. procedure TPORTD_TRISD.clearTRISD9; inline;
  22314. begin
  22315. pTDefRegMap(@Self)^.clr := $00000200;
  22316. end;
  22317. procedure TPORTD_TRISD.setTRISD9(thebits : TBits_1); inline;
  22318. begin
  22319. if thebits = 0 then
  22320. pTDefRegMap(@Self)^.clr := $00000200
  22321. else
  22322. pTDefRegMap(@Self)^.&set := $00000200;
  22323. end;
  22324. function TPORTD_TRISD.getTRISD9 : TBits_1; inline;
  22325. begin
  22326. getTRISD9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  22327. end;
  22328. procedure TPORTD_TRISD.setTRISD10; inline;
  22329. begin
  22330. pTDefRegMap(@Self)^.&set := $00000400;
  22331. end;
  22332. procedure TPORTD_TRISD.clearTRISD10; inline;
  22333. begin
  22334. pTDefRegMap(@Self)^.clr := $00000400;
  22335. end;
  22336. procedure TPORTD_TRISD.setTRISD10(thebits : TBits_1); inline;
  22337. begin
  22338. if thebits = 0 then
  22339. pTDefRegMap(@Self)^.clr := $00000400
  22340. else
  22341. pTDefRegMap(@Self)^.&set := $00000400;
  22342. end;
  22343. function TPORTD_TRISD.getTRISD10 : TBits_1; inline;
  22344. begin
  22345. getTRISD10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  22346. end;
  22347. procedure TPORTD_TRISD.setTRISD11; inline;
  22348. begin
  22349. pTDefRegMap(@Self)^.&set := $00000800;
  22350. end;
  22351. procedure TPORTD_TRISD.clearTRISD11; inline;
  22352. begin
  22353. pTDefRegMap(@Self)^.clr := $00000800;
  22354. end;
  22355. procedure TPORTD_TRISD.setTRISD11(thebits : TBits_1); inline;
  22356. begin
  22357. if thebits = 0 then
  22358. pTDefRegMap(@Self)^.clr := $00000800
  22359. else
  22360. pTDefRegMap(@Self)^.&set := $00000800;
  22361. end;
  22362. function TPORTD_TRISD.getTRISD11 : TBits_1; inline;
  22363. begin
  22364. getTRISD11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  22365. end;
  22366. procedure TPORTD_TRISD.setw(thebits : TBits_32); inline;
  22367. begin
  22368. pTDefRegMap(@Self)^.val := thebits;
  22369. end;
  22370. function TPORTD_TRISD.getw : TBits_32; inline;
  22371. begin
  22372. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  22373. end;
  22374. procedure TPORTD_PORTD.setRD0; inline;
  22375. begin
  22376. pTDefRegMap(@Self)^.&set := $00000001;
  22377. end;
  22378. procedure TPORTD_PORTD.clearRD0; inline;
  22379. begin
  22380. pTDefRegMap(@Self)^.clr := $00000001;
  22381. end;
  22382. procedure TPORTD_PORTD.setRD0(thebits : TBits_1); inline;
  22383. begin
  22384. if thebits = 0 then
  22385. pTDefRegMap(@Self)^.clr := $00000001
  22386. else
  22387. pTDefRegMap(@Self)^.&set := $00000001;
  22388. end;
  22389. function TPORTD_PORTD.getRD0 : TBits_1; inline;
  22390. begin
  22391. getRD0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  22392. end;
  22393. procedure TPORTD_PORTD.setRD1; inline;
  22394. begin
  22395. pTDefRegMap(@Self)^.&set := $00000002;
  22396. end;
  22397. procedure TPORTD_PORTD.clearRD1; inline;
  22398. begin
  22399. pTDefRegMap(@Self)^.clr := $00000002;
  22400. end;
  22401. procedure TPORTD_PORTD.setRD1(thebits : TBits_1); inline;
  22402. begin
  22403. if thebits = 0 then
  22404. pTDefRegMap(@Self)^.clr := $00000002
  22405. else
  22406. pTDefRegMap(@Self)^.&set := $00000002;
  22407. end;
  22408. function TPORTD_PORTD.getRD1 : TBits_1; inline;
  22409. begin
  22410. getRD1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  22411. end;
  22412. procedure TPORTD_PORTD.setRD2; inline;
  22413. begin
  22414. pTDefRegMap(@Self)^.&set := $00000004;
  22415. end;
  22416. procedure TPORTD_PORTD.clearRD2; inline;
  22417. begin
  22418. pTDefRegMap(@Self)^.clr := $00000004;
  22419. end;
  22420. procedure TPORTD_PORTD.setRD2(thebits : TBits_1); inline;
  22421. begin
  22422. if thebits = 0 then
  22423. pTDefRegMap(@Self)^.clr := $00000004
  22424. else
  22425. pTDefRegMap(@Self)^.&set := $00000004;
  22426. end;
  22427. function TPORTD_PORTD.getRD2 : TBits_1; inline;
  22428. begin
  22429. getRD2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  22430. end;
  22431. procedure TPORTD_PORTD.setRD3; inline;
  22432. begin
  22433. pTDefRegMap(@Self)^.&set := $00000008;
  22434. end;
  22435. procedure TPORTD_PORTD.clearRD3; inline;
  22436. begin
  22437. pTDefRegMap(@Self)^.clr := $00000008;
  22438. end;
  22439. procedure TPORTD_PORTD.setRD3(thebits : TBits_1); inline;
  22440. begin
  22441. if thebits = 0 then
  22442. pTDefRegMap(@Self)^.clr := $00000008
  22443. else
  22444. pTDefRegMap(@Self)^.&set := $00000008;
  22445. end;
  22446. function TPORTD_PORTD.getRD3 : TBits_1; inline;
  22447. begin
  22448. getRD3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  22449. end;
  22450. procedure TPORTD_PORTD.setRD4; inline;
  22451. begin
  22452. pTDefRegMap(@Self)^.&set := $00000010;
  22453. end;
  22454. procedure TPORTD_PORTD.clearRD4; inline;
  22455. begin
  22456. pTDefRegMap(@Self)^.clr := $00000010;
  22457. end;
  22458. procedure TPORTD_PORTD.setRD4(thebits : TBits_1); inline;
  22459. begin
  22460. if thebits = 0 then
  22461. pTDefRegMap(@Self)^.clr := $00000010
  22462. else
  22463. pTDefRegMap(@Self)^.&set := $00000010;
  22464. end;
  22465. function TPORTD_PORTD.getRD4 : TBits_1; inline;
  22466. begin
  22467. getRD4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  22468. end;
  22469. procedure TPORTD_PORTD.setRD5; inline;
  22470. begin
  22471. pTDefRegMap(@Self)^.&set := $00000020;
  22472. end;
  22473. procedure TPORTD_PORTD.clearRD5; inline;
  22474. begin
  22475. pTDefRegMap(@Self)^.clr := $00000020;
  22476. end;
  22477. procedure TPORTD_PORTD.setRD5(thebits : TBits_1); inline;
  22478. begin
  22479. if thebits = 0 then
  22480. pTDefRegMap(@Self)^.clr := $00000020
  22481. else
  22482. pTDefRegMap(@Self)^.&set := $00000020;
  22483. end;
  22484. function TPORTD_PORTD.getRD5 : TBits_1; inline;
  22485. begin
  22486. getRD5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  22487. end;
  22488. procedure TPORTD_PORTD.setRD6; inline;
  22489. begin
  22490. pTDefRegMap(@Self)^.&set := $00000040;
  22491. end;
  22492. procedure TPORTD_PORTD.clearRD6; inline;
  22493. begin
  22494. pTDefRegMap(@Self)^.clr := $00000040;
  22495. end;
  22496. procedure TPORTD_PORTD.setRD6(thebits : TBits_1); inline;
  22497. begin
  22498. if thebits = 0 then
  22499. pTDefRegMap(@Self)^.clr := $00000040
  22500. else
  22501. pTDefRegMap(@Self)^.&set := $00000040;
  22502. end;
  22503. function TPORTD_PORTD.getRD6 : TBits_1; inline;
  22504. begin
  22505. getRD6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  22506. end;
  22507. procedure TPORTD_PORTD.setRD7; inline;
  22508. begin
  22509. pTDefRegMap(@Self)^.&set := $00000080;
  22510. end;
  22511. procedure TPORTD_PORTD.clearRD7; inline;
  22512. begin
  22513. pTDefRegMap(@Self)^.clr := $00000080;
  22514. end;
  22515. procedure TPORTD_PORTD.setRD7(thebits : TBits_1); inline;
  22516. begin
  22517. if thebits = 0 then
  22518. pTDefRegMap(@Self)^.clr := $00000080
  22519. else
  22520. pTDefRegMap(@Self)^.&set := $00000080;
  22521. end;
  22522. function TPORTD_PORTD.getRD7 : TBits_1; inline;
  22523. begin
  22524. getRD7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  22525. end;
  22526. procedure TPORTD_PORTD.setRD8; inline;
  22527. begin
  22528. pTDefRegMap(@Self)^.&set := $00000100;
  22529. end;
  22530. procedure TPORTD_PORTD.clearRD8; inline;
  22531. begin
  22532. pTDefRegMap(@Self)^.clr := $00000100;
  22533. end;
  22534. procedure TPORTD_PORTD.setRD8(thebits : TBits_1); inline;
  22535. begin
  22536. if thebits = 0 then
  22537. pTDefRegMap(@Self)^.clr := $00000100
  22538. else
  22539. pTDefRegMap(@Self)^.&set := $00000100;
  22540. end;
  22541. function TPORTD_PORTD.getRD8 : TBits_1; inline;
  22542. begin
  22543. getRD8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  22544. end;
  22545. procedure TPORTD_PORTD.setRD9; inline;
  22546. begin
  22547. pTDefRegMap(@Self)^.&set := $00000200;
  22548. end;
  22549. procedure TPORTD_PORTD.clearRD9; inline;
  22550. begin
  22551. pTDefRegMap(@Self)^.clr := $00000200;
  22552. end;
  22553. procedure TPORTD_PORTD.setRD9(thebits : TBits_1); inline;
  22554. begin
  22555. if thebits = 0 then
  22556. pTDefRegMap(@Self)^.clr := $00000200
  22557. else
  22558. pTDefRegMap(@Self)^.&set := $00000200;
  22559. end;
  22560. function TPORTD_PORTD.getRD9 : TBits_1; inline;
  22561. begin
  22562. getRD9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  22563. end;
  22564. procedure TPORTD_PORTD.setRD10; inline;
  22565. begin
  22566. pTDefRegMap(@Self)^.&set := $00000400;
  22567. end;
  22568. procedure TPORTD_PORTD.clearRD10; inline;
  22569. begin
  22570. pTDefRegMap(@Self)^.clr := $00000400;
  22571. end;
  22572. procedure TPORTD_PORTD.setRD10(thebits : TBits_1); inline;
  22573. begin
  22574. if thebits = 0 then
  22575. pTDefRegMap(@Self)^.clr := $00000400
  22576. else
  22577. pTDefRegMap(@Self)^.&set := $00000400;
  22578. end;
  22579. function TPORTD_PORTD.getRD10 : TBits_1; inline;
  22580. begin
  22581. getRD10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  22582. end;
  22583. procedure TPORTD_PORTD.setRD11; inline;
  22584. begin
  22585. pTDefRegMap(@Self)^.&set := $00000800;
  22586. end;
  22587. procedure TPORTD_PORTD.clearRD11; inline;
  22588. begin
  22589. pTDefRegMap(@Self)^.clr := $00000800;
  22590. end;
  22591. procedure TPORTD_PORTD.setRD11(thebits : TBits_1); inline;
  22592. begin
  22593. if thebits = 0 then
  22594. pTDefRegMap(@Self)^.clr := $00000800
  22595. else
  22596. pTDefRegMap(@Self)^.&set := $00000800;
  22597. end;
  22598. function TPORTD_PORTD.getRD11 : TBits_1; inline;
  22599. begin
  22600. getRD11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  22601. end;
  22602. procedure TPORTD_PORTD.setw(thebits : TBits_32); inline;
  22603. begin
  22604. pTDefRegMap(@Self)^.val := thebits;
  22605. end;
  22606. function TPORTD_PORTD.getw : TBits_32; inline;
  22607. begin
  22608. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  22609. end;
  22610. procedure TPORTD_LATD.setLATD0; inline;
  22611. begin
  22612. pTDefRegMap(@Self)^.&set := $00000001;
  22613. end;
  22614. procedure TPORTD_LATD.clearLATD0; inline;
  22615. begin
  22616. pTDefRegMap(@Self)^.clr := $00000001;
  22617. end;
  22618. procedure TPORTD_LATD.setLATD0(thebits : TBits_1); inline;
  22619. begin
  22620. if thebits = 0 then
  22621. pTDefRegMap(@Self)^.clr := $00000001
  22622. else
  22623. pTDefRegMap(@Self)^.&set := $00000001;
  22624. end;
  22625. function TPORTD_LATD.getLATD0 : TBits_1; inline;
  22626. begin
  22627. getLATD0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  22628. end;
  22629. procedure TPORTD_LATD.setLATD1; inline;
  22630. begin
  22631. pTDefRegMap(@Self)^.&set := $00000002;
  22632. end;
  22633. procedure TPORTD_LATD.clearLATD1; inline;
  22634. begin
  22635. pTDefRegMap(@Self)^.clr := $00000002;
  22636. end;
  22637. procedure TPORTD_LATD.setLATD1(thebits : TBits_1); inline;
  22638. begin
  22639. if thebits = 0 then
  22640. pTDefRegMap(@Self)^.clr := $00000002
  22641. else
  22642. pTDefRegMap(@Self)^.&set := $00000002;
  22643. end;
  22644. function TPORTD_LATD.getLATD1 : TBits_1; inline;
  22645. begin
  22646. getLATD1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  22647. end;
  22648. procedure TPORTD_LATD.setLATD2; inline;
  22649. begin
  22650. pTDefRegMap(@Self)^.&set := $00000004;
  22651. end;
  22652. procedure TPORTD_LATD.clearLATD2; inline;
  22653. begin
  22654. pTDefRegMap(@Self)^.clr := $00000004;
  22655. end;
  22656. procedure TPORTD_LATD.setLATD2(thebits : TBits_1); inline;
  22657. begin
  22658. if thebits = 0 then
  22659. pTDefRegMap(@Self)^.clr := $00000004
  22660. else
  22661. pTDefRegMap(@Self)^.&set := $00000004;
  22662. end;
  22663. function TPORTD_LATD.getLATD2 : TBits_1; inline;
  22664. begin
  22665. getLATD2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  22666. end;
  22667. procedure TPORTD_LATD.setLATD3; inline;
  22668. begin
  22669. pTDefRegMap(@Self)^.&set := $00000008;
  22670. end;
  22671. procedure TPORTD_LATD.clearLATD3; inline;
  22672. begin
  22673. pTDefRegMap(@Self)^.clr := $00000008;
  22674. end;
  22675. procedure TPORTD_LATD.setLATD3(thebits : TBits_1); inline;
  22676. begin
  22677. if thebits = 0 then
  22678. pTDefRegMap(@Self)^.clr := $00000008
  22679. else
  22680. pTDefRegMap(@Self)^.&set := $00000008;
  22681. end;
  22682. function TPORTD_LATD.getLATD3 : TBits_1; inline;
  22683. begin
  22684. getLATD3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  22685. end;
  22686. procedure TPORTD_LATD.setLATD4; inline;
  22687. begin
  22688. pTDefRegMap(@Self)^.&set := $00000010;
  22689. end;
  22690. procedure TPORTD_LATD.clearLATD4; inline;
  22691. begin
  22692. pTDefRegMap(@Self)^.clr := $00000010;
  22693. end;
  22694. procedure TPORTD_LATD.setLATD4(thebits : TBits_1); inline;
  22695. begin
  22696. if thebits = 0 then
  22697. pTDefRegMap(@Self)^.clr := $00000010
  22698. else
  22699. pTDefRegMap(@Self)^.&set := $00000010;
  22700. end;
  22701. function TPORTD_LATD.getLATD4 : TBits_1; inline;
  22702. begin
  22703. getLATD4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  22704. end;
  22705. procedure TPORTD_LATD.setLATD5; inline;
  22706. begin
  22707. pTDefRegMap(@Self)^.&set := $00000020;
  22708. end;
  22709. procedure TPORTD_LATD.clearLATD5; inline;
  22710. begin
  22711. pTDefRegMap(@Self)^.clr := $00000020;
  22712. end;
  22713. procedure TPORTD_LATD.setLATD5(thebits : TBits_1); inline;
  22714. begin
  22715. if thebits = 0 then
  22716. pTDefRegMap(@Self)^.clr := $00000020
  22717. else
  22718. pTDefRegMap(@Self)^.&set := $00000020;
  22719. end;
  22720. function TPORTD_LATD.getLATD5 : TBits_1; inline;
  22721. begin
  22722. getLATD5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  22723. end;
  22724. procedure TPORTD_LATD.setLATD6; inline;
  22725. begin
  22726. pTDefRegMap(@Self)^.&set := $00000040;
  22727. end;
  22728. procedure TPORTD_LATD.clearLATD6; inline;
  22729. begin
  22730. pTDefRegMap(@Self)^.clr := $00000040;
  22731. end;
  22732. procedure TPORTD_LATD.setLATD6(thebits : TBits_1); inline;
  22733. begin
  22734. if thebits = 0 then
  22735. pTDefRegMap(@Self)^.clr := $00000040
  22736. else
  22737. pTDefRegMap(@Self)^.&set := $00000040;
  22738. end;
  22739. function TPORTD_LATD.getLATD6 : TBits_1; inline;
  22740. begin
  22741. getLATD6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  22742. end;
  22743. procedure TPORTD_LATD.setLATD7; inline;
  22744. begin
  22745. pTDefRegMap(@Self)^.&set := $00000080;
  22746. end;
  22747. procedure TPORTD_LATD.clearLATD7; inline;
  22748. begin
  22749. pTDefRegMap(@Self)^.clr := $00000080;
  22750. end;
  22751. procedure TPORTD_LATD.setLATD7(thebits : TBits_1); inline;
  22752. begin
  22753. if thebits = 0 then
  22754. pTDefRegMap(@Self)^.clr := $00000080
  22755. else
  22756. pTDefRegMap(@Self)^.&set := $00000080;
  22757. end;
  22758. function TPORTD_LATD.getLATD7 : TBits_1; inline;
  22759. begin
  22760. getLATD7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  22761. end;
  22762. procedure TPORTD_LATD.setLATD8; inline;
  22763. begin
  22764. pTDefRegMap(@Self)^.&set := $00000100;
  22765. end;
  22766. procedure TPORTD_LATD.clearLATD8; inline;
  22767. begin
  22768. pTDefRegMap(@Self)^.clr := $00000100;
  22769. end;
  22770. procedure TPORTD_LATD.setLATD8(thebits : TBits_1); inline;
  22771. begin
  22772. if thebits = 0 then
  22773. pTDefRegMap(@Self)^.clr := $00000100
  22774. else
  22775. pTDefRegMap(@Self)^.&set := $00000100;
  22776. end;
  22777. function TPORTD_LATD.getLATD8 : TBits_1; inline;
  22778. begin
  22779. getLATD8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  22780. end;
  22781. procedure TPORTD_LATD.setLATD9; inline;
  22782. begin
  22783. pTDefRegMap(@Self)^.&set := $00000200;
  22784. end;
  22785. procedure TPORTD_LATD.clearLATD9; inline;
  22786. begin
  22787. pTDefRegMap(@Self)^.clr := $00000200;
  22788. end;
  22789. procedure TPORTD_LATD.setLATD9(thebits : TBits_1); inline;
  22790. begin
  22791. if thebits = 0 then
  22792. pTDefRegMap(@Self)^.clr := $00000200
  22793. else
  22794. pTDefRegMap(@Self)^.&set := $00000200;
  22795. end;
  22796. function TPORTD_LATD.getLATD9 : TBits_1; inline;
  22797. begin
  22798. getLATD9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  22799. end;
  22800. procedure TPORTD_LATD.setLATD10; inline;
  22801. begin
  22802. pTDefRegMap(@Self)^.&set := $00000400;
  22803. end;
  22804. procedure TPORTD_LATD.clearLATD10; inline;
  22805. begin
  22806. pTDefRegMap(@Self)^.clr := $00000400;
  22807. end;
  22808. procedure TPORTD_LATD.setLATD10(thebits : TBits_1); inline;
  22809. begin
  22810. if thebits = 0 then
  22811. pTDefRegMap(@Self)^.clr := $00000400
  22812. else
  22813. pTDefRegMap(@Self)^.&set := $00000400;
  22814. end;
  22815. function TPORTD_LATD.getLATD10 : TBits_1; inline;
  22816. begin
  22817. getLATD10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  22818. end;
  22819. procedure TPORTD_LATD.setLATD11; inline;
  22820. begin
  22821. pTDefRegMap(@Self)^.&set := $00000800;
  22822. end;
  22823. procedure TPORTD_LATD.clearLATD11; inline;
  22824. begin
  22825. pTDefRegMap(@Self)^.clr := $00000800;
  22826. end;
  22827. procedure TPORTD_LATD.setLATD11(thebits : TBits_1); inline;
  22828. begin
  22829. if thebits = 0 then
  22830. pTDefRegMap(@Self)^.clr := $00000800
  22831. else
  22832. pTDefRegMap(@Self)^.&set := $00000800;
  22833. end;
  22834. function TPORTD_LATD.getLATD11 : TBits_1; inline;
  22835. begin
  22836. getLATD11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  22837. end;
  22838. procedure TPORTD_LATD.setw(thebits : TBits_32); inline;
  22839. begin
  22840. pTDefRegMap(@Self)^.val := thebits;
  22841. end;
  22842. function TPORTD_LATD.getw : TBits_32; inline;
  22843. begin
  22844. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  22845. end;
  22846. procedure TPORTD_ODCD.setODCD0; inline;
  22847. begin
  22848. pTDefRegMap(@Self)^.&set := $00000001;
  22849. end;
  22850. procedure TPORTD_ODCD.clearODCD0; inline;
  22851. begin
  22852. pTDefRegMap(@Self)^.clr := $00000001;
  22853. end;
  22854. procedure TPORTD_ODCD.setODCD0(thebits : TBits_1); inline;
  22855. begin
  22856. if thebits = 0 then
  22857. pTDefRegMap(@Self)^.clr := $00000001
  22858. else
  22859. pTDefRegMap(@Self)^.&set := $00000001;
  22860. end;
  22861. function TPORTD_ODCD.getODCD0 : TBits_1; inline;
  22862. begin
  22863. getODCD0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  22864. end;
  22865. procedure TPORTD_ODCD.setODCD1; inline;
  22866. begin
  22867. pTDefRegMap(@Self)^.&set := $00000002;
  22868. end;
  22869. procedure TPORTD_ODCD.clearODCD1; inline;
  22870. begin
  22871. pTDefRegMap(@Self)^.clr := $00000002;
  22872. end;
  22873. procedure TPORTD_ODCD.setODCD1(thebits : TBits_1); inline;
  22874. begin
  22875. if thebits = 0 then
  22876. pTDefRegMap(@Self)^.clr := $00000002
  22877. else
  22878. pTDefRegMap(@Self)^.&set := $00000002;
  22879. end;
  22880. function TPORTD_ODCD.getODCD1 : TBits_1; inline;
  22881. begin
  22882. getODCD1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  22883. end;
  22884. procedure TPORTD_ODCD.setODCD2; inline;
  22885. begin
  22886. pTDefRegMap(@Self)^.&set := $00000004;
  22887. end;
  22888. procedure TPORTD_ODCD.clearODCD2; inline;
  22889. begin
  22890. pTDefRegMap(@Self)^.clr := $00000004;
  22891. end;
  22892. procedure TPORTD_ODCD.setODCD2(thebits : TBits_1); inline;
  22893. begin
  22894. if thebits = 0 then
  22895. pTDefRegMap(@Self)^.clr := $00000004
  22896. else
  22897. pTDefRegMap(@Self)^.&set := $00000004;
  22898. end;
  22899. function TPORTD_ODCD.getODCD2 : TBits_1; inline;
  22900. begin
  22901. getODCD2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  22902. end;
  22903. procedure TPORTD_ODCD.setODCD3; inline;
  22904. begin
  22905. pTDefRegMap(@Self)^.&set := $00000008;
  22906. end;
  22907. procedure TPORTD_ODCD.clearODCD3; inline;
  22908. begin
  22909. pTDefRegMap(@Self)^.clr := $00000008;
  22910. end;
  22911. procedure TPORTD_ODCD.setODCD3(thebits : TBits_1); inline;
  22912. begin
  22913. if thebits = 0 then
  22914. pTDefRegMap(@Self)^.clr := $00000008
  22915. else
  22916. pTDefRegMap(@Self)^.&set := $00000008;
  22917. end;
  22918. function TPORTD_ODCD.getODCD3 : TBits_1; inline;
  22919. begin
  22920. getODCD3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  22921. end;
  22922. procedure TPORTD_ODCD.setODCD4; inline;
  22923. begin
  22924. pTDefRegMap(@Self)^.&set := $00000010;
  22925. end;
  22926. procedure TPORTD_ODCD.clearODCD4; inline;
  22927. begin
  22928. pTDefRegMap(@Self)^.clr := $00000010;
  22929. end;
  22930. procedure TPORTD_ODCD.setODCD4(thebits : TBits_1); inline;
  22931. begin
  22932. if thebits = 0 then
  22933. pTDefRegMap(@Self)^.clr := $00000010
  22934. else
  22935. pTDefRegMap(@Self)^.&set := $00000010;
  22936. end;
  22937. function TPORTD_ODCD.getODCD4 : TBits_1; inline;
  22938. begin
  22939. getODCD4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  22940. end;
  22941. procedure TPORTD_ODCD.setODCD5; inline;
  22942. begin
  22943. pTDefRegMap(@Self)^.&set := $00000020;
  22944. end;
  22945. procedure TPORTD_ODCD.clearODCD5; inline;
  22946. begin
  22947. pTDefRegMap(@Self)^.clr := $00000020;
  22948. end;
  22949. procedure TPORTD_ODCD.setODCD5(thebits : TBits_1); inline;
  22950. begin
  22951. if thebits = 0 then
  22952. pTDefRegMap(@Self)^.clr := $00000020
  22953. else
  22954. pTDefRegMap(@Self)^.&set := $00000020;
  22955. end;
  22956. function TPORTD_ODCD.getODCD5 : TBits_1; inline;
  22957. begin
  22958. getODCD5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  22959. end;
  22960. procedure TPORTD_ODCD.setODCD6; inline;
  22961. begin
  22962. pTDefRegMap(@Self)^.&set := $00000040;
  22963. end;
  22964. procedure TPORTD_ODCD.clearODCD6; inline;
  22965. begin
  22966. pTDefRegMap(@Self)^.clr := $00000040;
  22967. end;
  22968. procedure TPORTD_ODCD.setODCD6(thebits : TBits_1); inline;
  22969. begin
  22970. if thebits = 0 then
  22971. pTDefRegMap(@Self)^.clr := $00000040
  22972. else
  22973. pTDefRegMap(@Self)^.&set := $00000040;
  22974. end;
  22975. function TPORTD_ODCD.getODCD6 : TBits_1; inline;
  22976. begin
  22977. getODCD6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  22978. end;
  22979. procedure TPORTD_ODCD.setODCD7; inline;
  22980. begin
  22981. pTDefRegMap(@Self)^.&set := $00000080;
  22982. end;
  22983. procedure TPORTD_ODCD.clearODCD7; inline;
  22984. begin
  22985. pTDefRegMap(@Self)^.clr := $00000080;
  22986. end;
  22987. procedure TPORTD_ODCD.setODCD7(thebits : TBits_1); inline;
  22988. begin
  22989. if thebits = 0 then
  22990. pTDefRegMap(@Self)^.clr := $00000080
  22991. else
  22992. pTDefRegMap(@Self)^.&set := $00000080;
  22993. end;
  22994. function TPORTD_ODCD.getODCD7 : TBits_1; inline;
  22995. begin
  22996. getODCD7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  22997. end;
  22998. procedure TPORTD_ODCD.setODCD8; inline;
  22999. begin
  23000. pTDefRegMap(@Self)^.&set := $00000100;
  23001. end;
  23002. procedure TPORTD_ODCD.clearODCD8; inline;
  23003. begin
  23004. pTDefRegMap(@Self)^.clr := $00000100;
  23005. end;
  23006. procedure TPORTD_ODCD.setODCD8(thebits : TBits_1); inline;
  23007. begin
  23008. if thebits = 0 then
  23009. pTDefRegMap(@Self)^.clr := $00000100
  23010. else
  23011. pTDefRegMap(@Self)^.&set := $00000100;
  23012. end;
  23013. function TPORTD_ODCD.getODCD8 : TBits_1; inline;
  23014. begin
  23015. getODCD8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  23016. end;
  23017. procedure TPORTD_ODCD.setODCD9; inline;
  23018. begin
  23019. pTDefRegMap(@Self)^.&set := $00000200;
  23020. end;
  23021. procedure TPORTD_ODCD.clearODCD9; inline;
  23022. begin
  23023. pTDefRegMap(@Self)^.clr := $00000200;
  23024. end;
  23025. procedure TPORTD_ODCD.setODCD9(thebits : TBits_1); inline;
  23026. begin
  23027. if thebits = 0 then
  23028. pTDefRegMap(@Self)^.clr := $00000200
  23029. else
  23030. pTDefRegMap(@Self)^.&set := $00000200;
  23031. end;
  23032. function TPORTD_ODCD.getODCD9 : TBits_1; inline;
  23033. begin
  23034. getODCD9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  23035. end;
  23036. procedure TPORTD_ODCD.setODCD10; inline;
  23037. begin
  23038. pTDefRegMap(@Self)^.&set := $00000400;
  23039. end;
  23040. procedure TPORTD_ODCD.clearODCD10; inline;
  23041. begin
  23042. pTDefRegMap(@Self)^.clr := $00000400;
  23043. end;
  23044. procedure TPORTD_ODCD.setODCD10(thebits : TBits_1); inline;
  23045. begin
  23046. if thebits = 0 then
  23047. pTDefRegMap(@Self)^.clr := $00000400
  23048. else
  23049. pTDefRegMap(@Self)^.&set := $00000400;
  23050. end;
  23051. function TPORTD_ODCD.getODCD10 : TBits_1; inline;
  23052. begin
  23053. getODCD10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  23054. end;
  23055. procedure TPORTD_ODCD.setODCD11; inline;
  23056. begin
  23057. pTDefRegMap(@Self)^.&set := $00000800;
  23058. end;
  23059. procedure TPORTD_ODCD.clearODCD11; inline;
  23060. begin
  23061. pTDefRegMap(@Self)^.clr := $00000800;
  23062. end;
  23063. procedure TPORTD_ODCD.setODCD11(thebits : TBits_1); inline;
  23064. begin
  23065. if thebits = 0 then
  23066. pTDefRegMap(@Self)^.clr := $00000800
  23067. else
  23068. pTDefRegMap(@Self)^.&set := $00000800;
  23069. end;
  23070. function TPORTD_ODCD.getODCD11 : TBits_1; inline;
  23071. begin
  23072. getODCD11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  23073. end;
  23074. procedure TPORTD_ODCD.setw(thebits : TBits_32); inline;
  23075. begin
  23076. pTDefRegMap(@Self)^.val := thebits;
  23077. end;
  23078. function TPORTD_ODCD.getw : TBits_32; inline;
  23079. begin
  23080. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  23081. end;
  23082. procedure TPORTE_TRISE.setTRISE0; inline;
  23083. begin
  23084. pTDefRegMap(@Self)^.&set := $00000001;
  23085. end;
  23086. procedure TPORTE_TRISE.clearTRISE0; inline;
  23087. begin
  23088. pTDefRegMap(@Self)^.clr := $00000001;
  23089. end;
  23090. procedure TPORTE_TRISE.setTRISE0(thebits : TBits_1); inline;
  23091. begin
  23092. if thebits = 0 then
  23093. pTDefRegMap(@Self)^.clr := $00000001
  23094. else
  23095. pTDefRegMap(@Self)^.&set := $00000001;
  23096. end;
  23097. function TPORTE_TRISE.getTRISE0 : TBits_1; inline;
  23098. begin
  23099. getTRISE0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  23100. end;
  23101. procedure TPORTE_TRISE.setTRISE1; inline;
  23102. begin
  23103. pTDefRegMap(@Self)^.&set := $00000002;
  23104. end;
  23105. procedure TPORTE_TRISE.clearTRISE1; inline;
  23106. begin
  23107. pTDefRegMap(@Self)^.clr := $00000002;
  23108. end;
  23109. procedure TPORTE_TRISE.setTRISE1(thebits : TBits_1); inline;
  23110. begin
  23111. if thebits = 0 then
  23112. pTDefRegMap(@Self)^.clr := $00000002
  23113. else
  23114. pTDefRegMap(@Self)^.&set := $00000002;
  23115. end;
  23116. function TPORTE_TRISE.getTRISE1 : TBits_1; inline;
  23117. begin
  23118. getTRISE1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  23119. end;
  23120. procedure TPORTE_TRISE.setTRISE2; inline;
  23121. begin
  23122. pTDefRegMap(@Self)^.&set := $00000004;
  23123. end;
  23124. procedure TPORTE_TRISE.clearTRISE2; inline;
  23125. begin
  23126. pTDefRegMap(@Self)^.clr := $00000004;
  23127. end;
  23128. procedure TPORTE_TRISE.setTRISE2(thebits : TBits_1); inline;
  23129. begin
  23130. if thebits = 0 then
  23131. pTDefRegMap(@Self)^.clr := $00000004
  23132. else
  23133. pTDefRegMap(@Self)^.&set := $00000004;
  23134. end;
  23135. function TPORTE_TRISE.getTRISE2 : TBits_1; inline;
  23136. begin
  23137. getTRISE2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  23138. end;
  23139. procedure TPORTE_TRISE.setTRISE3; inline;
  23140. begin
  23141. pTDefRegMap(@Self)^.&set := $00000008;
  23142. end;
  23143. procedure TPORTE_TRISE.clearTRISE3; inline;
  23144. begin
  23145. pTDefRegMap(@Self)^.clr := $00000008;
  23146. end;
  23147. procedure TPORTE_TRISE.setTRISE3(thebits : TBits_1); inline;
  23148. begin
  23149. if thebits = 0 then
  23150. pTDefRegMap(@Self)^.clr := $00000008
  23151. else
  23152. pTDefRegMap(@Self)^.&set := $00000008;
  23153. end;
  23154. function TPORTE_TRISE.getTRISE3 : TBits_1; inline;
  23155. begin
  23156. getTRISE3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  23157. end;
  23158. procedure TPORTE_TRISE.setTRISE4; inline;
  23159. begin
  23160. pTDefRegMap(@Self)^.&set := $00000010;
  23161. end;
  23162. procedure TPORTE_TRISE.clearTRISE4; inline;
  23163. begin
  23164. pTDefRegMap(@Self)^.clr := $00000010;
  23165. end;
  23166. procedure TPORTE_TRISE.setTRISE4(thebits : TBits_1); inline;
  23167. begin
  23168. if thebits = 0 then
  23169. pTDefRegMap(@Self)^.clr := $00000010
  23170. else
  23171. pTDefRegMap(@Self)^.&set := $00000010;
  23172. end;
  23173. function TPORTE_TRISE.getTRISE4 : TBits_1; inline;
  23174. begin
  23175. getTRISE4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  23176. end;
  23177. procedure TPORTE_TRISE.setTRISE5; inline;
  23178. begin
  23179. pTDefRegMap(@Self)^.&set := $00000020;
  23180. end;
  23181. procedure TPORTE_TRISE.clearTRISE5; inline;
  23182. begin
  23183. pTDefRegMap(@Self)^.clr := $00000020;
  23184. end;
  23185. procedure TPORTE_TRISE.setTRISE5(thebits : TBits_1); inline;
  23186. begin
  23187. if thebits = 0 then
  23188. pTDefRegMap(@Self)^.clr := $00000020
  23189. else
  23190. pTDefRegMap(@Self)^.&set := $00000020;
  23191. end;
  23192. function TPORTE_TRISE.getTRISE5 : TBits_1; inline;
  23193. begin
  23194. getTRISE5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  23195. end;
  23196. procedure TPORTE_TRISE.setTRISE6; inline;
  23197. begin
  23198. pTDefRegMap(@Self)^.&set := $00000040;
  23199. end;
  23200. procedure TPORTE_TRISE.clearTRISE6; inline;
  23201. begin
  23202. pTDefRegMap(@Self)^.clr := $00000040;
  23203. end;
  23204. procedure TPORTE_TRISE.setTRISE6(thebits : TBits_1); inline;
  23205. begin
  23206. if thebits = 0 then
  23207. pTDefRegMap(@Self)^.clr := $00000040
  23208. else
  23209. pTDefRegMap(@Self)^.&set := $00000040;
  23210. end;
  23211. function TPORTE_TRISE.getTRISE6 : TBits_1; inline;
  23212. begin
  23213. getTRISE6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  23214. end;
  23215. procedure TPORTE_TRISE.setTRISE7; inline;
  23216. begin
  23217. pTDefRegMap(@Self)^.&set := $00000080;
  23218. end;
  23219. procedure TPORTE_TRISE.clearTRISE7; inline;
  23220. begin
  23221. pTDefRegMap(@Self)^.clr := $00000080;
  23222. end;
  23223. procedure TPORTE_TRISE.setTRISE7(thebits : TBits_1); inline;
  23224. begin
  23225. if thebits = 0 then
  23226. pTDefRegMap(@Self)^.clr := $00000080
  23227. else
  23228. pTDefRegMap(@Self)^.&set := $00000080;
  23229. end;
  23230. function TPORTE_TRISE.getTRISE7 : TBits_1; inline;
  23231. begin
  23232. getTRISE7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  23233. end;
  23234. procedure TPORTE_TRISE.setw(thebits : TBits_32); inline;
  23235. begin
  23236. pTDefRegMap(@Self)^.val := thebits;
  23237. end;
  23238. function TPORTE_TRISE.getw : TBits_32; inline;
  23239. begin
  23240. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  23241. end;
  23242. procedure TPORTE_PORTE.setRE0; inline;
  23243. begin
  23244. pTDefRegMap(@Self)^.&set := $00000001;
  23245. end;
  23246. procedure TPORTE_PORTE.clearRE0; inline;
  23247. begin
  23248. pTDefRegMap(@Self)^.clr := $00000001;
  23249. end;
  23250. procedure TPORTE_PORTE.setRE0(thebits : TBits_1); inline;
  23251. begin
  23252. if thebits = 0 then
  23253. pTDefRegMap(@Self)^.clr := $00000001
  23254. else
  23255. pTDefRegMap(@Self)^.&set := $00000001;
  23256. end;
  23257. function TPORTE_PORTE.getRE0 : TBits_1; inline;
  23258. begin
  23259. getRE0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  23260. end;
  23261. procedure TPORTE_PORTE.setRE1; inline;
  23262. begin
  23263. pTDefRegMap(@Self)^.&set := $00000002;
  23264. end;
  23265. procedure TPORTE_PORTE.clearRE1; inline;
  23266. begin
  23267. pTDefRegMap(@Self)^.clr := $00000002;
  23268. end;
  23269. procedure TPORTE_PORTE.setRE1(thebits : TBits_1); inline;
  23270. begin
  23271. if thebits = 0 then
  23272. pTDefRegMap(@Self)^.clr := $00000002
  23273. else
  23274. pTDefRegMap(@Self)^.&set := $00000002;
  23275. end;
  23276. function TPORTE_PORTE.getRE1 : TBits_1; inline;
  23277. begin
  23278. getRE1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  23279. end;
  23280. procedure TPORTE_PORTE.setRE2; inline;
  23281. begin
  23282. pTDefRegMap(@Self)^.&set := $00000004;
  23283. end;
  23284. procedure TPORTE_PORTE.clearRE2; inline;
  23285. begin
  23286. pTDefRegMap(@Self)^.clr := $00000004;
  23287. end;
  23288. procedure TPORTE_PORTE.setRE2(thebits : TBits_1); inline;
  23289. begin
  23290. if thebits = 0 then
  23291. pTDefRegMap(@Self)^.clr := $00000004
  23292. else
  23293. pTDefRegMap(@Self)^.&set := $00000004;
  23294. end;
  23295. function TPORTE_PORTE.getRE2 : TBits_1; inline;
  23296. begin
  23297. getRE2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  23298. end;
  23299. procedure TPORTE_PORTE.setRE3; inline;
  23300. begin
  23301. pTDefRegMap(@Self)^.&set := $00000008;
  23302. end;
  23303. procedure TPORTE_PORTE.clearRE3; inline;
  23304. begin
  23305. pTDefRegMap(@Self)^.clr := $00000008;
  23306. end;
  23307. procedure TPORTE_PORTE.setRE3(thebits : TBits_1); inline;
  23308. begin
  23309. if thebits = 0 then
  23310. pTDefRegMap(@Self)^.clr := $00000008
  23311. else
  23312. pTDefRegMap(@Self)^.&set := $00000008;
  23313. end;
  23314. function TPORTE_PORTE.getRE3 : TBits_1; inline;
  23315. begin
  23316. getRE3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  23317. end;
  23318. procedure TPORTE_PORTE.setRE4; inline;
  23319. begin
  23320. pTDefRegMap(@Self)^.&set := $00000010;
  23321. end;
  23322. procedure TPORTE_PORTE.clearRE4; inline;
  23323. begin
  23324. pTDefRegMap(@Self)^.clr := $00000010;
  23325. end;
  23326. procedure TPORTE_PORTE.setRE4(thebits : TBits_1); inline;
  23327. begin
  23328. if thebits = 0 then
  23329. pTDefRegMap(@Self)^.clr := $00000010
  23330. else
  23331. pTDefRegMap(@Self)^.&set := $00000010;
  23332. end;
  23333. function TPORTE_PORTE.getRE4 : TBits_1; inline;
  23334. begin
  23335. getRE4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  23336. end;
  23337. procedure TPORTE_PORTE.setRE5; inline;
  23338. begin
  23339. pTDefRegMap(@Self)^.&set := $00000020;
  23340. end;
  23341. procedure TPORTE_PORTE.clearRE5; inline;
  23342. begin
  23343. pTDefRegMap(@Self)^.clr := $00000020;
  23344. end;
  23345. procedure TPORTE_PORTE.setRE5(thebits : TBits_1); inline;
  23346. begin
  23347. if thebits = 0 then
  23348. pTDefRegMap(@Self)^.clr := $00000020
  23349. else
  23350. pTDefRegMap(@Self)^.&set := $00000020;
  23351. end;
  23352. function TPORTE_PORTE.getRE5 : TBits_1; inline;
  23353. begin
  23354. getRE5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  23355. end;
  23356. procedure TPORTE_PORTE.setRE6; inline;
  23357. begin
  23358. pTDefRegMap(@Self)^.&set := $00000040;
  23359. end;
  23360. procedure TPORTE_PORTE.clearRE6; inline;
  23361. begin
  23362. pTDefRegMap(@Self)^.clr := $00000040;
  23363. end;
  23364. procedure TPORTE_PORTE.setRE6(thebits : TBits_1); inline;
  23365. begin
  23366. if thebits = 0 then
  23367. pTDefRegMap(@Self)^.clr := $00000040
  23368. else
  23369. pTDefRegMap(@Self)^.&set := $00000040;
  23370. end;
  23371. function TPORTE_PORTE.getRE6 : TBits_1; inline;
  23372. begin
  23373. getRE6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  23374. end;
  23375. procedure TPORTE_PORTE.setRE7; inline;
  23376. begin
  23377. pTDefRegMap(@Self)^.&set := $00000080;
  23378. end;
  23379. procedure TPORTE_PORTE.clearRE7; inline;
  23380. begin
  23381. pTDefRegMap(@Self)^.clr := $00000080;
  23382. end;
  23383. procedure TPORTE_PORTE.setRE7(thebits : TBits_1); inline;
  23384. begin
  23385. if thebits = 0 then
  23386. pTDefRegMap(@Self)^.clr := $00000080
  23387. else
  23388. pTDefRegMap(@Self)^.&set := $00000080;
  23389. end;
  23390. function TPORTE_PORTE.getRE7 : TBits_1; inline;
  23391. begin
  23392. getRE7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  23393. end;
  23394. procedure TPORTE_PORTE.setw(thebits : TBits_32); inline;
  23395. begin
  23396. pTDefRegMap(@Self)^.val := thebits;
  23397. end;
  23398. function TPORTE_PORTE.getw : TBits_32; inline;
  23399. begin
  23400. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  23401. end;
  23402. procedure TPORTE_LATE.setLATE0; inline;
  23403. begin
  23404. pTDefRegMap(@Self)^.&set := $00000001;
  23405. end;
  23406. procedure TPORTE_LATE.clearLATE0; inline;
  23407. begin
  23408. pTDefRegMap(@Self)^.clr := $00000001;
  23409. end;
  23410. procedure TPORTE_LATE.setLATE0(thebits : TBits_1); inline;
  23411. begin
  23412. if thebits = 0 then
  23413. pTDefRegMap(@Self)^.clr := $00000001
  23414. else
  23415. pTDefRegMap(@Self)^.&set := $00000001;
  23416. end;
  23417. function TPORTE_LATE.getLATE0 : TBits_1; inline;
  23418. begin
  23419. getLATE0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  23420. end;
  23421. procedure TPORTE_LATE.setLATE1; inline;
  23422. begin
  23423. pTDefRegMap(@Self)^.&set := $00000002;
  23424. end;
  23425. procedure TPORTE_LATE.clearLATE1; inline;
  23426. begin
  23427. pTDefRegMap(@Self)^.clr := $00000002;
  23428. end;
  23429. procedure TPORTE_LATE.setLATE1(thebits : TBits_1); inline;
  23430. begin
  23431. if thebits = 0 then
  23432. pTDefRegMap(@Self)^.clr := $00000002
  23433. else
  23434. pTDefRegMap(@Self)^.&set := $00000002;
  23435. end;
  23436. function TPORTE_LATE.getLATE1 : TBits_1; inline;
  23437. begin
  23438. getLATE1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  23439. end;
  23440. procedure TPORTE_LATE.setLATE2; inline;
  23441. begin
  23442. pTDefRegMap(@Self)^.&set := $00000004;
  23443. end;
  23444. procedure TPORTE_LATE.clearLATE2; inline;
  23445. begin
  23446. pTDefRegMap(@Self)^.clr := $00000004;
  23447. end;
  23448. procedure TPORTE_LATE.setLATE2(thebits : TBits_1); inline;
  23449. begin
  23450. if thebits = 0 then
  23451. pTDefRegMap(@Self)^.clr := $00000004
  23452. else
  23453. pTDefRegMap(@Self)^.&set := $00000004;
  23454. end;
  23455. function TPORTE_LATE.getLATE2 : TBits_1; inline;
  23456. begin
  23457. getLATE2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  23458. end;
  23459. procedure TPORTE_LATE.setLATE3; inline;
  23460. begin
  23461. pTDefRegMap(@Self)^.&set := $00000008;
  23462. end;
  23463. procedure TPORTE_LATE.clearLATE3; inline;
  23464. begin
  23465. pTDefRegMap(@Self)^.clr := $00000008;
  23466. end;
  23467. procedure TPORTE_LATE.setLATE3(thebits : TBits_1); inline;
  23468. begin
  23469. if thebits = 0 then
  23470. pTDefRegMap(@Self)^.clr := $00000008
  23471. else
  23472. pTDefRegMap(@Self)^.&set := $00000008;
  23473. end;
  23474. function TPORTE_LATE.getLATE3 : TBits_1; inline;
  23475. begin
  23476. getLATE3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  23477. end;
  23478. procedure TPORTE_LATE.setLATE4; inline;
  23479. begin
  23480. pTDefRegMap(@Self)^.&set := $00000010;
  23481. end;
  23482. procedure TPORTE_LATE.clearLATE4; inline;
  23483. begin
  23484. pTDefRegMap(@Self)^.clr := $00000010;
  23485. end;
  23486. procedure TPORTE_LATE.setLATE4(thebits : TBits_1); inline;
  23487. begin
  23488. if thebits = 0 then
  23489. pTDefRegMap(@Self)^.clr := $00000010
  23490. else
  23491. pTDefRegMap(@Self)^.&set := $00000010;
  23492. end;
  23493. function TPORTE_LATE.getLATE4 : TBits_1; inline;
  23494. begin
  23495. getLATE4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  23496. end;
  23497. procedure TPORTE_LATE.setLATE5; inline;
  23498. begin
  23499. pTDefRegMap(@Self)^.&set := $00000020;
  23500. end;
  23501. procedure TPORTE_LATE.clearLATE5; inline;
  23502. begin
  23503. pTDefRegMap(@Self)^.clr := $00000020;
  23504. end;
  23505. procedure TPORTE_LATE.setLATE5(thebits : TBits_1); inline;
  23506. begin
  23507. if thebits = 0 then
  23508. pTDefRegMap(@Self)^.clr := $00000020
  23509. else
  23510. pTDefRegMap(@Self)^.&set := $00000020;
  23511. end;
  23512. function TPORTE_LATE.getLATE5 : TBits_1; inline;
  23513. begin
  23514. getLATE5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  23515. end;
  23516. procedure TPORTE_LATE.setLATE6; inline;
  23517. begin
  23518. pTDefRegMap(@Self)^.&set := $00000040;
  23519. end;
  23520. procedure TPORTE_LATE.clearLATE6; inline;
  23521. begin
  23522. pTDefRegMap(@Self)^.clr := $00000040;
  23523. end;
  23524. procedure TPORTE_LATE.setLATE6(thebits : TBits_1); inline;
  23525. begin
  23526. if thebits = 0 then
  23527. pTDefRegMap(@Self)^.clr := $00000040
  23528. else
  23529. pTDefRegMap(@Self)^.&set := $00000040;
  23530. end;
  23531. function TPORTE_LATE.getLATE6 : TBits_1; inline;
  23532. begin
  23533. getLATE6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  23534. end;
  23535. procedure TPORTE_LATE.setLATE7; inline;
  23536. begin
  23537. pTDefRegMap(@Self)^.&set := $00000080;
  23538. end;
  23539. procedure TPORTE_LATE.clearLATE7; inline;
  23540. begin
  23541. pTDefRegMap(@Self)^.clr := $00000080;
  23542. end;
  23543. procedure TPORTE_LATE.setLATE7(thebits : TBits_1); inline;
  23544. begin
  23545. if thebits = 0 then
  23546. pTDefRegMap(@Self)^.clr := $00000080
  23547. else
  23548. pTDefRegMap(@Self)^.&set := $00000080;
  23549. end;
  23550. function TPORTE_LATE.getLATE7 : TBits_1; inline;
  23551. begin
  23552. getLATE7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  23553. end;
  23554. procedure TPORTE_LATE.setw(thebits : TBits_32); inline;
  23555. begin
  23556. pTDefRegMap(@Self)^.val := thebits;
  23557. end;
  23558. function TPORTE_LATE.getw : TBits_32; inline;
  23559. begin
  23560. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  23561. end;
  23562. procedure TPORTE_ODCE.setODCE0; inline;
  23563. begin
  23564. pTDefRegMap(@Self)^.&set := $00000001;
  23565. end;
  23566. procedure TPORTE_ODCE.clearODCE0; inline;
  23567. begin
  23568. pTDefRegMap(@Self)^.clr := $00000001;
  23569. end;
  23570. procedure TPORTE_ODCE.setODCE0(thebits : TBits_1); inline;
  23571. begin
  23572. if thebits = 0 then
  23573. pTDefRegMap(@Self)^.clr := $00000001
  23574. else
  23575. pTDefRegMap(@Self)^.&set := $00000001;
  23576. end;
  23577. function TPORTE_ODCE.getODCE0 : TBits_1; inline;
  23578. begin
  23579. getODCE0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  23580. end;
  23581. procedure TPORTE_ODCE.setODCE1; inline;
  23582. begin
  23583. pTDefRegMap(@Self)^.&set := $00000002;
  23584. end;
  23585. procedure TPORTE_ODCE.clearODCE1; inline;
  23586. begin
  23587. pTDefRegMap(@Self)^.clr := $00000002;
  23588. end;
  23589. procedure TPORTE_ODCE.setODCE1(thebits : TBits_1); inline;
  23590. begin
  23591. if thebits = 0 then
  23592. pTDefRegMap(@Self)^.clr := $00000002
  23593. else
  23594. pTDefRegMap(@Self)^.&set := $00000002;
  23595. end;
  23596. function TPORTE_ODCE.getODCE1 : TBits_1; inline;
  23597. begin
  23598. getODCE1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  23599. end;
  23600. procedure TPORTE_ODCE.setODCE2; inline;
  23601. begin
  23602. pTDefRegMap(@Self)^.&set := $00000004;
  23603. end;
  23604. procedure TPORTE_ODCE.clearODCE2; inline;
  23605. begin
  23606. pTDefRegMap(@Self)^.clr := $00000004;
  23607. end;
  23608. procedure TPORTE_ODCE.setODCE2(thebits : TBits_1); inline;
  23609. begin
  23610. if thebits = 0 then
  23611. pTDefRegMap(@Self)^.clr := $00000004
  23612. else
  23613. pTDefRegMap(@Self)^.&set := $00000004;
  23614. end;
  23615. function TPORTE_ODCE.getODCE2 : TBits_1; inline;
  23616. begin
  23617. getODCE2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  23618. end;
  23619. procedure TPORTE_ODCE.setODCE3; inline;
  23620. begin
  23621. pTDefRegMap(@Self)^.&set := $00000008;
  23622. end;
  23623. procedure TPORTE_ODCE.clearODCE3; inline;
  23624. begin
  23625. pTDefRegMap(@Self)^.clr := $00000008;
  23626. end;
  23627. procedure TPORTE_ODCE.setODCE3(thebits : TBits_1); inline;
  23628. begin
  23629. if thebits = 0 then
  23630. pTDefRegMap(@Self)^.clr := $00000008
  23631. else
  23632. pTDefRegMap(@Self)^.&set := $00000008;
  23633. end;
  23634. function TPORTE_ODCE.getODCE3 : TBits_1; inline;
  23635. begin
  23636. getODCE3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  23637. end;
  23638. procedure TPORTE_ODCE.setODCE4; inline;
  23639. begin
  23640. pTDefRegMap(@Self)^.&set := $00000010;
  23641. end;
  23642. procedure TPORTE_ODCE.clearODCE4; inline;
  23643. begin
  23644. pTDefRegMap(@Self)^.clr := $00000010;
  23645. end;
  23646. procedure TPORTE_ODCE.setODCE4(thebits : TBits_1); inline;
  23647. begin
  23648. if thebits = 0 then
  23649. pTDefRegMap(@Self)^.clr := $00000010
  23650. else
  23651. pTDefRegMap(@Self)^.&set := $00000010;
  23652. end;
  23653. function TPORTE_ODCE.getODCE4 : TBits_1; inline;
  23654. begin
  23655. getODCE4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  23656. end;
  23657. procedure TPORTE_ODCE.setODCE5; inline;
  23658. begin
  23659. pTDefRegMap(@Self)^.&set := $00000020;
  23660. end;
  23661. procedure TPORTE_ODCE.clearODCE5; inline;
  23662. begin
  23663. pTDefRegMap(@Self)^.clr := $00000020;
  23664. end;
  23665. procedure TPORTE_ODCE.setODCE5(thebits : TBits_1); inline;
  23666. begin
  23667. if thebits = 0 then
  23668. pTDefRegMap(@Self)^.clr := $00000020
  23669. else
  23670. pTDefRegMap(@Self)^.&set := $00000020;
  23671. end;
  23672. function TPORTE_ODCE.getODCE5 : TBits_1; inline;
  23673. begin
  23674. getODCE5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  23675. end;
  23676. procedure TPORTE_ODCE.setODCE6; inline;
  23677. begin
  23678. pTDefRegMap(@Self)^.&set := $00000040;
  23679. end;
  23680. procedure TPORTE_ODCE.clearODCE6; inline;
  23681. begin
  23682. pTDefRegMap(@Self)^.clr := $00000040;
  23683. end;
  23684. procedure TPORTE_ODCE.setODCE6(thebits : TBits_1); inline;
  23685. begin
  23686. if thebits = 0 then
  23687. pTDefRegMap(@Self)^.clr := $00000040
  23688. else
  23689. pTDefRegMap(@Self)^.&set := $00000040;
  23690. end;
  23691. function TPORTE_ODCE.getODCE6 : TBits_1; inline;
  23692. begin
  23693. getODCE6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  23694. end;
  23695. procedure TPORTE_ODCE.setODCE7; inline;
  23696. begin
  23697. pTDefRegMap(@Self)^.&set := $00000080;
  23698. end;
  23699. procedure TPORTE_ODCE.clearODCE7; inline;
  23700. begin
  23701. pTDefRegMap(@Self)^.clr := $00000080;
  23702. end;
  23703. procedure TPORTE_ODCE.setODCE7(thebits : TBits_1); inline;
  23704. begin
  23705. if thebits = 0 then
  23706. pTDefRegMap(@Self)^.clr := $00000080
  23707. else
  23708. pTDefRegMap(@Self)^.&set := $00000080;
  23709. end;
  23710. function TPORTE_ODCE.getODCE7 : TBits_1; inline;
  23711. begin
  23712. getODCE7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  23713. end;
  23714. procedure TPORTE_ODCE.setw(thebits : TBits_32); inline;
  23715. begin
  23716. pTDefRegMap(@Self)^.val := thebits;
  23717. end;
  23718. function TPORTE_ODCE.getw : TBits_32; inline;
  23719. begin
  23720. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  23721. end;
  23722. procedure TPORTF_TRISF.setTRISF0; inline;
  23723. begin
  23724. pTDefRegMap(@Self)^.&set := $00000001;
  23725. end;
  23726. procedure TPORTF_TRISF.clearTRISF0; inline;
  23727. begin
  23728. pTDefRegMap(@Self)^.clr := $00000001;
  23729. end;
  23730. procedure TPORTF_TRISF.setTRISF0(thebits : TBits_1); inline;
  23731. begin
  23732. if thebits = 0 then
  23733. pTDefRegMap(@Self)^.clr := $00000001
  23734. else
  23735. pTDefRegMap(@Self)^.&set := $00000001;
  23736. end;
  23737. function TPORTF_TRISF.getTRISF0 : TBits_1; inline;
  23738. begin
  23739. getTRISF0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  23740. end;
  23741. procedure TPORTF_TRISF.setTRISF1; inline;
  23742. begin
  23743. pTDefRegMap(@Self)^.&set := $00000002;
  23744. end;
  23745. procedure TPORTF_TRISF.clearTRISF1; inline;
  23746. begin
  23747. pTDefRegMap(@Self)^.clr := $00000002;
  23748. end;
  23749. procedure TPORTF_TRISF.setTRISF1(thebits : TBits_1); inline;
  23750. begin
  23751. if thebits = 0 then
  23752. pTDefRegMap(@Self)^.clr := $00000002
  23753. else
  23754. pTDefRegMap(@Self)^.&set := $00000002;
  23755. end;
  23756. function TPORTF_TRISF.getTRISF1 : TBits_1; inline;
  23757. begin
  23758. getTRISF1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  23759. end;
  23760. procedure TPORTF_TRISF.setTRISF3; inline;
  23761. begin
  23762. pTDefRegMap(@Self)^.&set := $00000008;
  23763. end;
  23764. procedure TPORTF_TRISF.clearTRISF3; inline;
  23765. begin
  23766. pTDefRegMap(@Self)^.clr := $00000008;
  23767. end;
  23768. procedure TPORTF_TRISF.setTRISF3(thebits : TBits_1); inline;
  23769. begin
  23770. if thebits = 0 then
  23771. pTDefRegMap(@Self)^.clr := $00000008
  23772. else
  23773. pTDefRegMap(@Self)^.&set := $00000008;
  23774. end;
  23775. function TPORTF_TRISF.getTRISF3 : TBits_1; inline;
  23776. begin
  23777. getTRISF3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  23778. end;
  23779. procedure TPORTF_TRISF.setTRISF4; inline;
  23780. begin
  23781. pTDefRegMap(@Self)^.&set := $00000010;
  23782. end;
  23783. procedure TPORTF_TRISF.clearTRISF4; inline;
  23784. begin
  23785. pTDefRegMap(@Self)^.clr := $00000010;
  23786. end;
  23787. procedure TPORTF_TRISF.setTRISF4(thebits : TBits_1); inline;
  23788. begin
  23789. if thebits = 0 then
  23790. pTDefRegMap(@Self)^.clr := $00000010
  23791. else
  23792. pTDefRegMap(@Self)^.&set := $00000010;
  23793. end;
  23794. function TPORTF_TRISF.getTRISF4 : TBits_1; inline;
  23795. begin
  23796. getTRISF4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  23797. end;
  23798. procedure TPORTF_TRISF.setTRISF5; inline;
  23799. begin
  23800. pTDefRegMap(@Self)^.&set := $00000020;
  23801. end;
  23802. procedure TPORTF_TRISF.clearTRISF5; inline;
  23803. begin
  23804. pTDefRegMap(@Self)^.clr := $00000020;
  23805. end;
  23806. procedure TPORTF_TRISF.setTRISF5(thebits : TBits_1); inline;
  23807. begin
  23808. if thebits = 0 then
  23809. pTDefRegMap(@Self)^.clr := $00000020
  23810. else
  23811. pTDefRegMap(@Self)^.&set := $00000020;
  23812. end;
  23813. function TPORTF_TRISF.getTRISF5 : TBits_1; inline;
  23814. begin
  23815. getTRISF5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  23816. end;
  23817. procedure TPORTF_TRISF.setw(thebits : TBits_32); inline;
  23818. begin
  23819. pTDefRegMap(@Self)^.val := thebits;
  23820. end;
  23821. function TPORTF_TRISF.getw : TBits_32; inline;
  23822. begin
  23823. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  23824. end;
  23825. procedure TPORTF_PORTF.setRF0; inline;
  23826. begin
  23827. pTDefRegMap(@Self)^.&set := $00000001;
  23828. end;
  23829. procedure TPORTF_PORTF.clearRF0; inline;
  23830. begin
  23831. pTDefRegMap(@Self)^.clr := $00000001;
  23832. end;
  23833. procedure TPORTF_PORTF.setRF0(thebits : TBits_1); inline;
  23834. begin
  23835. if thebits = 0 then
  23836. pTDefRegMap(@Self)^.clr := $00000001
  23837. else
  23838. pTDefRegMap(@Self)^.&set := $00000001;
  23839. end;
  23840. function TPORTF_PORTF.getRF0 : TBits_1; inline;
  23841. begin
  23842. getRF0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  23843. end;
  23844. procedure TPORTF_PORTF.setRF1; inline;
  23845. begin
  23846. pTDefRegMap(@Self)^.&set := $00000002;
  23847. end;
  23848. procedure TPORTF_PORTF.clearRF1; inline;
  23849. begin
  23850. pTDefRegMap(@Self)^.clr := $00000002;
  23851. end;
  23852. procedure TPORTF_PORTF.setRF1(thebits : TBits_1); inline;
  23853. begin
  23854. if thebits = 0 then
  23855. pTDefRegMap(@Self)^.clr := $00000002
  23856. else
  23857. pTDefRegMap(@Self)^.&set := $00000002;
  23858. end;
  23859. function TPORTF_PORTF.getRF1 : TBits_1; inline;
  23860. begin
  23861. getRF1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  23862. end;
  23863. procedure TPORTF_PORTF.setRF3; inline;
  23864. begin
  23865. pTDefRegMap(@Self)^.&set := $00000008;
  23866. end;
  23867. procedure TPORTF_PORTF.clearRF3; inline;
  23868. begin
  23869. pTDefRegMap(@Self)^.clr := $00000008;
  23870. end;
  23871. procedure TPORTF_PORTF.setRF3(thebits : TBits_1); inline;
  23872. begin
  23873. if thebits = 0 then
  23874. pTDefRegMap(@Self)^.clr := $00000008
  23875. else
  23876. pTDefRegMap(@Self)^.&set := $00000008;
  23877. end;
  23878. function TPORTF_PORTF.getRF3 : TBits_1; inline;
  23879. begin
  23880. getRF3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  23881. end;
  23882. procedure TPORTF_PORTF.setRF4; inline;
  23883. begin
  23884. pTDefRegMap(@Self)^.&set := $00000010;
  23885. end;
  23886. procedure TPORTF_PORTF.clearRF4; inline;
  23887. begin
  23888. pTDefRegMap(@Self)^.clr := $00000010;
  23889. end;
  23890. procedure TPORTF_PORTF.setRF4(thebits : TBits_1); inline;
  23891. begin
  23892. if thebits = 0 then
  23893. pTDefRegMap(@Self)^.clr := $00000010
  23894. else
  23895. pTDefRegMap(@Self)^.&set := $00000010;
  23896. end;
  23897. function TPORTF_PORTF.getRF4 : TBits_1; inline;
  23898. begin
  23899. getRF4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  23900. end;
  23901. procedure TPORTF_PORTF.setRF5; inline;
  23902. begin
  23903. pTDefRegMap(@Self)^.&set := $00000020;
  23904. end;
  23905. procedure TPORTF_PORTF.clearRF5; inline;
  23906. begin
  23907. pTDefRegMap(@Self)^.clr := $00000020;
  23908. end;
  23909. procedure TPORTF_PORTF.setRF5(thebits : TBits_1); inline;
  23910. begin
  23911. if thebits = 0 then
  23912. pTDefRegMap(@Self)^.clr := $00000020
  23913. else
  23914. pTDefRegMap(@Self)^.&set := $00000020;
  23915. end;
  23916. function TPORTF_PORTF.getRF5 : TBits_1; inline;
  23917. begin
  23918. getRF5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  23919. end;
  23920. procedure TPORTF_PORTF.setw(thebits : TBits_32); inline;
  23921. begin
  23922. pTDefRegMap(@Self)^.val := thebits;
  23923. end;
  23924. function TPORTF_PORTF.getw : TBits_32; inline;
  23925. begin
  23926. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  23927. end;
  23928. procedure TPORTF_LATF.setLATF0; inline;
  23929. begin
  23930. pTDefRegMap(@Self)^.&set := $00000001;
  23931. end;
  23932. procedure TPORTF_LATF.clearLATF0; inline;
  23933. begin
  23934. pTDefRegMap(@Self)^.clr := $00000001;
  23935. end;
  23936. procedure TPORTF_LATF.setLATF0(thebits : TBits_1); inline;
  23937. begin
  23938. if thebits = 0 then
  23939. pTDefRegMap(@Self)^.clr := $00000001
  23940. else
  23941. pTDefRegMap(@Self)^.&set := $00000001;
  23942. end;
  23943. function TPORTF_LATF.getLATF0 : TBits_1; inline;
  23944. begin
  23945. getLATF0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  23946. end;
  23947. procedure TPORTF_LATF.setLATF1; inline;
  23948. begin
  23949. pTDefRegMap(@Self)^.&set := $00000002;
  23950. end;
  23951. procedure TPORTF_LATF.clearLATF1; inline;
  23952. begin
  23953. pTDefRegMap(@Self)^.clr := $00000002;
  23954. end;
  23955. procedure TPORTF_LATF.setLATF1(thebits : TBits_1); inline;
  23956. begin
  23957. if thebits = 0 then
  23958. pTDefRegMap(@Self)^.clr := $00000002
  23959. else
  23960. pTDefRegMap(@Self)^.&set := $00000002;
  23961. end;
  23962. function TPORTF_LATF.getLATF1 : TBits_1; inline;
  23963. begin
  23964. getLATF1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  23965. end;
  23966. procedure TPORTF_LATF.setLATF3; inline;
  23967. begin
  23968. pTDefRegMap(@Self)^.&set := $00000008;
  23969. end;
  23970. procedure TPORTF_LATF.clearLATF3; inline;
  23971. begin
  23972. pTDefRegMap(@Self)^.clr := $00000008;
  23973. end;
  23974. procedure TPORTF_LATF.setLATF3(thebits : TBits_1); inline;
  23975. begin
  23976. if thebits = 0 then
  23977. pTDefRegMap(@Self)^.clr := $00000008
  23978. else
  23979. pTDefRegMap(@Self)^.&set := $00000008;
  23980. end;
  23981. function TPORTF_LATF.getLATF3 : TBits_1; inline;
  23982. begin
  23983. getLATF3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  23984. end;
  23985. procedure TPORTF_LATF.setLATF4; inline;
  23986. begin
  23987. pTDefRegMap(@Self)^.&set := $00000010;
  23988. end;
  23989. procedure TPORTF_LATF.clearLATF4; inline;
  23990. begin
  23991. pTDefRegMap(@Self)^.clr := $00000010;
  23992. end;
  23993. procedure TPORTF_LATF.setLATF4(thebits : TBits_1); inline;
  23994. begin
  23995. if thebits = 0 then
  23996. pTDefRegMap(@Self)^.clr := $00000010
  23997. else
  23998. pTDefRegMap(@Self)^.&set := $00000010;
  23999. end;
  24000. function TPORTF_LATF.getLATF4 : TBits_1; inline;
  24001. begin
  24002. getLATF4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  24003. end;
  24004. procedure TPORTF_LATF.setLATF5; inline;
  24005. begin
  24006. pTDefRegMap(@Self)^.&set := $00000020;
  24007. end;
  24008. procedure TPORTF_LATF.clearLATF5; inline;
  24009. begin
  24010. pTDefRegMap(@Self)^.clr := $00000020;
  24011. end;
  24012. procedure TPORTF_LATF.setLATF5(thebits : TBits_1); inline;
  24013. begin
  24014. if thebits = 0 then
  24015. pTDefRegMap(@Self)^.clr := $00000020
  24016. else
  24017. pTDefRegMap(@Self)^.&set := $00000020;
  24018. end;
  24019. function TPORTF_LATF.getLATF5 : TBits_1; inline;
  24020. begin
  24021. getLATF5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  24022. end;
  24023. procedure TPORTF_LATF.setw(thebits : TBits_32); inline;
  24024. begin
  24025. pTDefRegMap(@Self)^.val := thebits;
  24026. end;
  24027. function TPORTF_LATF.getw : TBits_32; inline;
  24028. begin
  24029. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  24030. end;
  24031. procedure TPORTF_ODCF.setODCF0; inline;
  24032. begin
  24033. pTDefRegMap(@Self)^.&set := $00000001;
  24034. end;
  24035. procedure TPORTF_ODCF.clearODCF0; inline;
  24036. begin
  24037. pTDefRegMap(@Self)^.clr := $00000001;
  24038. end;
  24039. procedure TPORTF_ODCF.setODCF0(thebits : TBits_1); inline;
  24040. begin
  24041. if thebits = 0 then
  24042. pTDefRegMap(@Self)^.clr := $00000001
  24043. else
  24044. pTDefRegMap(@Self)^.&set := $00000001;
  24045. end;
  24046. function TPORTF_ODCF.getODCF0 : TBits_1; inline;
  24047. begin
  24048. getODCF0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  24049. end;
  24050. procedure TPORTF_ODCF.setODCF1; inline;
  24051. begin
  24052. pTDefRegMap(@Self)^.&set := $00000002;
  24053. end;
  24054. procedure TPORTF_ODCF.clearODCF1; inline;
  24055. begin
  24056. pTDefRegMap(@Self)^.clr := $00000002;
  24057. end;
  24058. procedure TPORTF_ODCF.setODCF1(thebits : TBits_1); inline;
  24059. begin
  24060. if thebits = 0 then
  24061. pTDefRegMap(@Self)^.clr := $00000002
  24062. else
  24063. pTDefRegMap(@Self)^.&set := $00000002;
  24064. end;
  24065. function TPORTF_ODCF.getODCF1 : TBits_1; inline;
  24066. begin
  24067. getODCF1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  24068. end;
  24069. procedure TPORTF_ODCF.setODCF3; inline;
  24070. begin
  24071. pTDefRegMap(@Self)^.&set := $00000008;
  24072. end;
  24073. procedure TPORTF_ODCF.clearODCF3; inline;
  24074. begin
  24075. pTDefRegMap(@Self)^.clr := $00000008;
  24076. end;
  24077. procedure TPORTF_ODCF.setODCF3(thebits : TBits_1); inline;
  24078. begin
  24079. if thebits = 0 then
  24080. pTDefRegMap(@Self)^.clr := $00000008
  24081. else
  24082. pTDefRegMap(@Self)^.&set := $00000008;
  24083. end;
  24084. function TPORTF_ODCF.getODCF3 : TBits_1; inline;
  24085. begin
  24086. getODCF3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  24087. end;
  24088. procedure TPORTF_ODCF.setODCF4; inline;
  24089. begin
  24090. pTDefRegMap(@Self)^.&set := $00000010;
  24091. end;
  24092. procedure TPORTF_ODCF.clearODCF4; inline;
  24093. begin
  24094. pTDefRegMap(@Self)^.clr := $00000010;
  24095. end;
  24096. procedure TPORTF_ODCF.setODCF4(thebits : TBits_1); inline;
  24097. begin
  24098. if thebits = 0 then
  24099. pTDefRegMap(@Self)^.clr := $00000010
  24100. else
  24101. pTDefRegMap(@Self)^.&set := $00000010;
  24102. end;
  24103. function TPORTF_ODCF.getODCF4 : TBits_1; inline;
  24104. begin
  24105. getODCF4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  24106. end;
  24107. procedure TPORTF_ODCF.setODCF5; inline;
  24108. begin
  24109. pTDefRegMap(@Self)^.&set := $00000020;
  24110. end;
  24111. procedure TPORTF_ODCF.clearODCF5; inline;
  24112. begin
  24113. pTDefRegMap(@Self)^.clr := $00000020;
  24114. end;
  24115. procedure TPORTF_ODCF.setODCF5(thebits : TBits_1); inline;
  24116. begin
  24117. if thebits = 0 then
  24118. pTDefRegMap(@Self)^.clr := $00000020
  24119. else
  24120. pTDefRegMap(@Self)^.&set := $00000020;
  24121. end;
  24122. function TPORTF_ODCF.getODCF5 : TBits_1; inline;
  24123. begin
  24124. getODCF5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  24125. end;
  24126. procedure TPORTF_ODCF.setw(thebits : TBits_32); inline;
  24127. begin
  24128. pTDefRegMap(@Self)^.val := thebits;
  24129. end;
  24130. function TPORTF_ODCF.getw : TBits_32; inline;
  24131. begin
  24132. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  24133. end;
  24134. procedure TPORTG_TRISG.setTRISG2; inline;
  24135. begin
  24136. pTDefRegMap(@Self)^.&set := $00000004;
  24137. end;
  24138. procedure TPORTG_TRISG.clearTRISG2; inline;
  24139. begin
  24140. pTDefRegMap(@Self)^.clr := $00000004;
  24141. end;
  24142. procedure TPORTG_TRISG.setTRISG2(thebits : TBits_1); inline;
  24143. begin
  24144. if thebits = 0 then
  24145. pTDefRegMap(@Self)^.clr := $00000004
  24146. else
  24147. pTDefRegMap(@Self)^.&set := $00000004;
  24148. end;
  24149. function TPORTG_TRISG.getTRISG2 : TBits_1; inline;
  24150. begin
  24151. getTRISG2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  24152. end;
  24153. procedure TPORTG_TRISG.setTRISG3; inline;
  24154. begin
  24155. pTDefRegMap(@Self)^.&set := $00000008;
  24156. end;
  24157. procedure TPORTG_TRISG.clearTRISG3; inline;
  24158. begin
  24159. pTDefRegMap(@Self)^.clr := $00000008;
  24160. end;
  24161. procedure TPORTG_TRISG.setTRISG3(thebits : TBits_1); inline;
  24162. begin
  24163. if thebits = 0 then
  24164. pTDefRegMap(@Self)^.clr := $00000008
  24165. else
  24166. pTDefRegMap(@Self)^.&set := $00000008;
  24167. end;
  24168. function TPORTG_TRISG.getTRISG3 : TBits_1; inline;
  24169. begin
  24170. getTRISG3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  24171. end;
  24172. procedure TPORTG_TRISG.setTRISG6; inline;
  24173. begin
  24174. pTDefRegMap(@Self)^.&set := $00000040;
  24175. end;
  24176. procedure TPORTG_TRISG.clearTRISG6; inline;
  24177. begin
  24178. pTDefRegMap(@Self)^.clr := $00000040;
  24179. end;
  24180. procedure TPORTG_TRISG.setTRISG6(thebits : TBits_1); inline;
  24181. begin
  24182. if thebits = 0 then
  24183. pTDefRegMap(@Self)^.clr := $00000040
  24184. else
  24185. pTDefRegMap(@Self)^.&set := $00000040;
  24186. end;
  24187. function TPORTG_TRISG.getTRISG6 : TBits_1; inline;
  24188. begin
  24189. getTRISG6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  24190. end;
  24191. procedure TPORTG_TRISG.setTRISG7; inline;
  24192. begin
  24193. pTDefRegMap(@Self)^.&set := $00000080;
  24194. end;
  24195. procedure TPORTG_TRISG.clearTRISG7; inline;
  24196. begin
  24197. pTDefRegMap(@Self)^.clr := $00000080;
  24198. end;
  24199. procedure TPORTG_TRISG.setTRISG7(thebits : TBits_1); inline;
  24200. begin
  24201. if thebits = 0 then
  24202. pTDefRegMap(@Self)^.clr := $00000080
  24203. else
  24204. pTDefRegMap(@Self)^.&set := $00000080;
  24205. end;
  24206. function TPORTG_TRISG.getTRISG7 : TBits_1; inline;
  24207. begin
  24208. getTRISG7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  24209. end;
  24210. procedure TPORTG_TRISG.setTRISG8; inline;
  24211. begin
  24212. pTDefRegMap(@Self)^.&set := $00000100;
  24213. end;
  24214. procedure TPORTG_TRISG.clearTRISG8; inline;
  24215. begin
  24216. pTDefRegMap(@Self)^.clr := $00000100;
  24217. end;
  24218. procedure TPORTG_TRISG.setTRISG8(thebits : TBits_1); inline;
  24219. begin
  24220. if thebits = 0 then
  24221. pTDefRegMap(@Self)^.clr := $00000100
  24222. else
  24223. pTDefRegMap(@Self)^.&set := $00000100;
  24224. end;
  24225. function TPORTG_TRISG.getTRISG8 : TBits_1; inline;
  24226. begin
  24227. getTRISG8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  24228. end;
  24229. procedure TPORTG_TRISG.setTRISG9; inline;
  24230. begin
  24231. pTDefRegMap(@Self)^.&set := $00000200;
  24232. end;
  24233. procedure TPORTG_TRISG.clearTRISG9; inline;
  24234. begin
  24235. pTDefRegMap(@Self)^.clr := $00000200;
  24236. end;
  24237. procedure TPORTG_TRISG.setTRISG9(thebits : TBits_1); inline;
  24238. begin
  24239. if thebits = 0 then
  24240. pTDefRegMap(@Self)^.clr := $00000200
  24241. else
  24242. pTDefRegMap(@Self)^.&set := $00000200;
  24243. end;
  24244. function TPORTG_TRISG.getTRISG9 : TBits_1; inline;
  24245. begin
  24246. getTRISG9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  24247. end;
  24248. procedure TPORTG_TRISG.setw(thebits : TBits_32); inline;
  24249. begin
  24250. pTDefRegMap(@Self)^.val := thebits;
  24251. end;
  24252. function TPORTG_TRISG.getw : TBits_32; inline;
  24253. begin
  24254. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  24255. end;
  24256. procedure TPORTG_PORTG.setRG2; inline;
  24257. begin
  24258. pTDefRegMap(@Self)^.&set := $00000004;
  24259. end;
  24260. procedure TPORTG_PORTG.clearRG2; inline;
  24261. begin
  24262. pTDefRegMap(@Self)^.clr := $00000004;
  24263. end;
  24264. procedure TPORTG_PORTG.setRG2(thebits : TBits_1); inline;
  24265. begin
  24266. if thebits = 0 then
  24267. pTDefRegMap(@Self)^.clr := $00000004
  24268. else
  24269. pTDefRegMap(@Self)^.&set := $00000004;
  24270. end;
  24271. function TPORTG_PORTG.getRG2 : TBits_1; inline;
  24272. begin
  24273. getRG2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  24274. end;
  24275. procedure TPORTG_PORTG.setRG3; inline;
  24276. begin
  24277. pTDefRegMap(@Self)^.&set := $00000008;
  24278. end;
  24279. procedure TPORTG_PORTG.clearRG3; inline;
  24280. begin
  24281. pTDefRegMap(@Self)^.clr := $00000008;
  24282. end;
  24283. procedure TPORTG_PORTG.setRG3(thebits : TBits_1); inline;
  24284. begin
  24285. if thebits = 0 then
  24286. pTDefRegMap(@Self)^.clr := $00000008
  24287. else
  24288. pTDefRegMap(@Self)^.&set := $00000008;
  24289. end;
  24290. function TPORTG_PORTG.getRG3 : TBits_1; inline;
  24291. begin
  24292. getRG3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  24293. end;
  24294. procedure TPORTG_PORTG.setRG6; inline;
  24295. begin
  24296. pTDefRegMap(@Self)^.&set := $00000040;
  24297. end;
  24298. procedure TPORTG_PORTG.clearRG6; inline;
  24299. begin
  24300. pTDefRegMap(@Self)^.clr := $00000040;
  24301. end;
  24302. procedure TPORTG_PORTG.setRG6(thebits : TBits_1); inline;
  24303. begin
  24304. if thebits = 0 then
  24305. pTDefRegMap(@Self)^.clr := $00000040
  24306. else
  24307. pTDefRegMap(@Self)^.&set := $00000040;
  24308. end;
  24309. function TPORTG_PORTG.getRG6 : TBits_1; inline;
  24310. begin
  24311. getRG6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  24312. end;
  24313. procedure TPORTG_PORTG.setRG7; inline;
  24314. begin
  24315. pTDefRegMap(@Self)^.&set := $00000080;
  24316. end;
  24317. procedure TPORTG_PORTG.clearRG7; inline;
  24318. begin
  24319. pTDefRegMap(@Self)^.clr := $00000080;
  24320. end;
  24321. procedure TPORTG_PORTG.setRG7(thebits : TBits_1); inline;
  24322. begin
  24323. if thebits = 0 then
  24324. pTDefRegMap(@Self)^.clr := $00000080
  24325. else
  24326. pTDefRegMap(@Self)^.&set := $00000080;
  24327. end;
  24328. function TPORTG_PORTG.getRG7 : TBits_1; inline;
  24329. begin
  24330. getRG7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  24331. end;
  24332. procedure TPORTG_PORTG.setRG8; inline;
  24333. begin
  24334. pTDefRegMap(@Self)^.&set := $00000100;
  24335. end;
  24336. procedure TPORTG_PORTG.clearRG8; inline;
  24337. begin
  24338. pTDefRegMap(@Self)^.clr := $00000100;
  24339. end;
  24340. procedure TPORTG_PORTG.setRG8(thebits : TBits_1); inline;
  24341. begin
  24342. if thebits = 0 then
  24343. pTDefRegMap(@Self)^.clr := $00000100
  24344. else
  24345. pTDefRegMap(@Self)^.&set := $00000100;
  24346. end;
  24347. function TPORTG_PORTG.getRG8 : TBits_1; inline;
  24348. begin
  24349. getRG8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  24350. end;
  24351. procedure TPORTG_PORTG.setRG9; inline;
  24352. begin
  24353. pTDefRegMap(@Self)^.&set := $00000200;
  24354. end;
  24355. procedure TPORTG_PORTG.clearRG9; inline;
  24356. begin
  24357. pTDefRegMap(@Self)^.clr := $00000200;
  24358. end;
  24359. procedure TPORTG_PORTG.setRG9(thebits : TBits_1); inline;
  24360. begin
  24361. if thebits = 0 then
  24362. pTDefRegMap(@Self)^.clr := $00000200
  24363. else
  24364. pTDefRegMap(@Self)^.&set := $00000200;
  24365. end;
  24366. function TPORTG_PORTG.getRG9 : TBits_1; inline;
  24367. begin
  24368. getRG9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  24369. end;
  24370. procedure TPORTG_PORTG.setw(thebits : TBits_32); inline;
  24371. begin
  24372. pTDefRegMap(@Self)^.val := thebits;
  24373. end;
  24374. function TPORTG_PORTG.getw : TBits_32; inline;
  24375. begin
  24376. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  24377. end;
  24378. procedure TPORTG_LATG.setLATG2; inline;
  24379. begin
  24380. pTDefRegMap(@Self)^.&set := $00000004;
  24381. end;
  24382. procedure TPORTG_LATG.clearLATG2; inline;
  24383. begin
  24384. pTDefRegMap(@Self)^.clr := $00000004;
  24385. end;
  24386. procedure TPORTG_LATG.setLATG2(thebits : TBits_1); inline;
  24387. begin
  24388. if thebits = 0 then
  24389. pTDefRegMap(@Self)^.clr := $00000004
  24390. else
  24391. pTDefRegMap(@Self)^.&set := $00000004;
  24392. end;
  24393. function TPORTG_LATG.getLATG2 : TBits_1; inline;
  24394. begin
  24395. getLATG2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  24396. end;
  24397. procedure TPORTG_LATG.setLATG3; inline;
  24398. begin
  24399. pTDefRegMap(@Self)^.&set := $00000008;
  24400. end;
  24401. procedure TPORTG_LATG.clearLATG3; inline;
  24402. begin
  24403. pTDefRegMap(@Self)^.clr := $00000008;
  24404. end;
  24405. procedure TPORTG_LATG.setLATG3(thebits : TBits_1); inline;
  24406. begin
  24407. if thebits = 0 then
  24408. pTDefRegMap(@Self)^.clr := $00000008
  24409. else
  24410. pTDefRegMap(@Self)^.&set := $00000008;
  24411. end;
  24412. function TPORTG_LATG.getLATG3 : TBits_1; inline;
  24413. begin
  24414. getLATG3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  24415. end;
  24416. procedure TPORTG_LATG.setLATG6; inline;
  24417. begin
  24418. pTDefRegMap(@Self)^.&set := $00000040;
  24419. end;
  24420. procedure TPORTG_LATG.clearLATG6; inline;
  24421. begin
  24422. pTDefRegMap(@Self)^.clr := $00000040;
  24423. end;
  24424. procedure TPORTG_LATG.setLATG6(thebits : TBits_1); inline;
  24425. begin
  24426. if thebits = 0 then
  24427. pTDefRegMap(@Self)^.clr := $00000040
  24428. else
  24429. pTDefRegMap(@Self)^.&set := $00000040;
  24430. end;
  24431. function TPORTG_LATG.getLATG6 : TBits_1; inline;
  24432. begin
  24433. getLATG6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  24434. end;
  24435. procedure TPORTG_LATG.setLATG7; inline;
  24436. begin
  24437. pTDefRegMap(@Self)^.&set := $00000080;
  24438. end;
  24439. procedure TPORTG_LATG.clearLATG7; inline;
  24440. begin
  24441. pTDefRegMap(@Self)^.clr := $00000080;
  24442. end;
  24443. procedure TPORTG_LATG.setLATG7(thebits : TBits_1); inline;
  24444. begin
  24445. if thebits = 0 then
  24446. pTDefRegMap(@Self)^.clr := $00000080
  24447. else
  24448. pTDefRegMap(@Self)^.&set := $00000080;
  24449. end;
  24450. function TPORTG_LATG.getLATG7 : TBits_1; inline;
  24451. begin
  24452. getLATG7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  24453. end;
  24454. procedure TPORTG_LATG.setLATG8; inline;
  24455. begin
  24456. pTDefRegMap(@Self)^.&set := $00000100;
  24457. end;
  24458. procedure TPORTG_LATG.clearLATG8; inline;
  24459. begin
  24460. pTDefRegMap(@Self)^.clr := $00000100;
  24461. end;
  24462. procedure TPORTG_LATG.setLATG8(thebits : TBits_1); inline;
  24463. begin
  24464. if thebits = 0 then
  24465. pTDefRegMap(@Self)^.clr := $00000100
  24466. else
  24467. pTDefRegMap(@Self)^.&set := $00000100;
  24468. end;
  24469. function TPORTG_LATG.getLATG8 : TBits_1; inline;
  24470. begin
  24471. getLATG8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  24472. end;
  24473. procedure TPORTG_LATG.setLATG9; inline;
  24474. begin
  24475. pTDefRegMap(@Self)^.&set := $00000200;
  24476. end;
  24477. procedure TPORTG_LATG.clearLATG9; inline;
  24478. begin
  24479. pTDefRegMap(@Self)^.clr := $00000200;
  24480. end;
  24481. procedure TPORTG_LATG.setLATG9(thebits : TBits_1); inline;
  24482. begin
  24483. if thebits = 0 then
  24484. pTDefRegMap(@Self)^.clr := $00000200
  24485. else
  24486. pTDefRegMap(@Self)^.&set := $00000200;
  24487. end;
  24488. function TPORTG_LATG.getLATG9 : TBits_1; inline;
  24489. begin
  24490. getLATG9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  24491. end;
  24492. procedure TPORTG_LATG.setw(thebits : TBits_32); inline;
  24493. begin
  24494. pTDefRegMap(@Self)^.val := thebits;
  24495. end;
  24496. function TPORTG_LATG.getw : TBits_32; inline;
  24497. begin
  24498. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  24499. end;
  24500. procedure TPORTG_ODCG.setODCG2; inline;
  24501. begin
  24502. pTDefRegMap(@Self)^.&set := $00000004;
  24503. end;
  24504. procedure TPORTG_ODCG.clearODCG2; inline;
  24505. begin
  24506. pTDefRegMap(@Self)^.clr := $00000004;
  24507. end;
  24508. procedure TPORTG_ODCG.setODCG2(thebits : TBits_1); inline;
  24509. begin
  24510. if thebits = 0 then
  24511. pTDefRegMap(@Self)^.clr := $00000004
  24512. else
  24513. pTDefRegMap(@Self)^.&set := $00000004;
  24514. end;
  24515. function TPORTG_ODCG.getODCG2 : TBits_1; inline;
  24516. begin
  24517. getODCG2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  24518. end;
  24519. procedure TPORTG_ODCG.setODCG3; inline;
  24520. begin
  24521. pTDefRegMap(@Self)^.&set := $00000008;
  24522. end;
  24523. procedure TPORTG_ODCG.clearODCG3; inline;
  24524. begin
  24525. pTDefRegMap(@Self)^.clr := $00000008;
  24526. end;
  24527. procedure TPORTG_ODCG.setODCG3(thebits : TBits_1); inline;
  24528. begin
  24529. if thebits = 0 then
  24530. pTDefRegMap(@Self)^.clr := $00000008
  24531. else
  24532. pTDefRegMap(@Self)^.&set := $00000008;
  24533. end;
  24534. function TPORTG_ODCG.getODCG3 : TBits_1; inline;
  24535. begin
  24536. getODCG3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  24537. end;
  24538. procedure TPORTG_ODCG.setODCG6; inline;
  24539. begin
  24540. pTDefRegMap(@Self)^.&set := $00000040;
  24541. end;
  24542. procedure TPORTG_ODCG.clearODCG6; inline;
  24543. begin
  24544. pTDefRegMap(@Self)^.clr := $00000040;
  24545. end;
  24546. procedure TPORTG_ODCG.setODCG6(thebits : TBits_1); inline;
  24547. begin
  24548. if thebits = 0 then
  24549. pTDefRegMap(@Self)^.clr := $00000040
  24550. else
  24551. pTDefRegMap(@Self)^.&set := $00000040;
  24552. end;
  24553. function TPORTG_ODCG.getODCG6 : TBits_1; inline;
  24554. begin
  24555. getODCG6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  24556. end;
  24557. procedure TPORTG_ODCG.setODCG7; inline;
  24558. begin
  24559. pTDefRegMap(@Self)^.&set := $00000080;
  24560. end;
  24561. procedure TPORTG_ODCG.clearODCG7; inline;
  24562. begin
  24563. pTDefRegMap(@Self)^.clr := $00000080;
  24564. end;
  24565. procedure TPORTG_ODCG.setODCG7(thebits : TBits_1); inline;
  24566. begin
  24567. if thebits = 0 then
  24568. pTDefRegMap(@Self)^.clr := $00000080
  24569. else
  24570. pTDefRegMap(@Self)^.&set := $00000080;
  24571. end;
  24572. function TPORTG_ODCG.getODCG7 : TBits_1; inline;
  24573. begin
  24574. getODCG7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  24575. end;
  24576. procedure TPORTG_ODCG.setODCG8; inline;
  24577. begin
  24578. pTDefRegMap(@Self)^.&set := $00000100;
  24579. end;
  24580. procedure TPORTG_ODCG.clearODCG8; inline;
  24581. begin
  24582. pTDefRegMap(@Self)^.clr := $00000100;
  24583. end;
  24584. procedure TPORTG_ODCG.setODCG8(thebits : TBits_1); inline;
  24585. begin
  24586. if thebits = 0 then
  24587. pTDefRegMap(@Self)^.clr := $00000100
  24588. else
  24589. pTDefRegMap(@Self)^.&set := $00000100;
  24590. end;
  24591. function TPORTG_ODCG.getODCG8 : TBits_1; inline;
  24592. begin
  24593. getODCG8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  24594. end;
  24595. procedure TPORTG_ODCG.setODCG9; inline;
  24596. begin
  24597. pTDefRegMap(@Self)^.&set := $00000200;
  24598. end;
  24599. procedure TPORTG_ODCG.clearODCG9; inline;
  24600. begin
  24601. pTDefRegMap(@Self)^.clr := $00000200;
  24602. end;
  24603. procedure TPORTG_ODCG.setODCG9(thebits : TBits_1); inline;
  24604. begin
  24605. if thebits = 0 then
  24606. pTDefRegMap(@Self)^.clr := $00000200
  24607. else
  24608. pTDefRegMap(@Self)^.&set := $00000200;
  24609. end;
  24610. function TPORTG_ODCG.getODCG9 : TBits_1; inline;
  24611. begin
  24612. getODCG9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  24613. end;
  24614. procedure TPORTG_ODCG.setw(thebits : TBits_32); inline;
  24615. begin
  24616. pTDefRegMap(@Self)^.val := thebits;
  24617. end;
  24618. function TPORTG_ODCG.getw : TBits_32; inline;
  24619. begin
  24620. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  24621. end;
  24622. procedure TPORTG_CNCON.setSIDL; inline;
  24623. begin
  24624. pTDefRegMap(@Self)^.&set := $00002000;
  24625. end;
  24626. procedure TPORTG_CNCON.clearSIDL; inline;
  24627. begin
  24628. pTDefRegMap(@Self)^.clr := $00002000;
  24629. end;
  24630. procedure TPORTG_CNCON.setSIDL(thebits : TBits_1); inline;
  24631. begin
  24632. if thebits = 0 then
  24633. pTDefRegMap(@Self)^.clr := $00002000
  24634. else
  24635. pTDefRegMap(@Self)^.&set := $00002000;
  24636. end;
  24637. function TPORTG_CNCON.getSIDL : TBits_1; inline;
  24638. begin
  24639. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  24640. end;
  24641. procedure TPORTG_CNCON.setON; inline;
  24642. begin
  24643. pTDefRegMap(@Self)^.&set := $00008000;
  24644. end;
  24645. procedure TPORTG_CNCON.clearON; inline;
  24646. begin
  24647. pTDefRegMap(@Self)^.clr := $00008000;
  24648. end;
  24649. procedure TPORTG_CNCON.setON(thebits : TBits_1); inline;
  24650. begin
  24651. if thebits = 0 then
  24652. pTDefRegMap(@Self)^.clr := $00008000
  24653. else
  24654. pTDefRegMap(@Self)^.&set := $00008000;
  24655. end;
  24656. function TPORTG_CNCON.getON : TBits_1; inline;
  24657. begin
  24658. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  24659. end;
  24660. procedure TPORTG_CNCON.setw(thebits : TBits_32); inline;
  24661. begin
  24662. pTDefRegMap(@Self)^.val := thebits;
  24663. end;
  24664. function TPORTG_CNCON.getw : TBits_32; inline;
  24665. begin
  24666. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  24667. end;
  24668. procedure TPORTG_CNEN.setCNEN0; inline;
  24669. begin
  24670. pTDefRegMap(@Self)^.&set := $00000001;
  24671. end;
  24672. procedure TPORTG_CNEN.clearCNEN0; inline;
  24673. begin
  24674. pTDefRegMap(@Self)^.clr := $00000001;
  24675. end;
  24676. procedure TPORTG_CNEN.setCNEN0(thebits : TBits_1); inline;
  24677. begin
  24678. if thebits = 0 then
  24679. pTDefRegMap(@Self)^.clr := $00000001
  24680. else
  24681. pTDefRegMap(@Self)^.&set := $00000001;
  24682. end;
  24683. function TPORTG_CNEN.getCNEN0 : TBits_1; inline;
  24684. begin
  24685. getCNEN0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  24686. end;
  24687. procedure TPORTG_CNEN.setCNEN1; inline;
  24688. begin
  24689. pTDefRegMap(@Self)^.&set := $00000002;
  24690. end;
  24691. procedure TPORTG_CNEN.clearCNEN1; inline;
  24692. begin
  24693. pTDefRegMap(@Self)^.clr := $00000002;
  24694. end;
  24695. procedure TPORTG_CNEN.setCNEN1(thebits : TBits_1); inline;
  24696. begin
  24697. if thebits = 0 then
  24698. pTDefRegMap(@Self)^.clr := $00000002
  24699. else
  24700. pTDefRegMap(@Self)^.&set := $00000002;
  24701. end;
  24702. function TPORTG_CNEN.getCNEN1 : TBits_1; inline;
  24703. begin
  24704. getCNEN1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  24705. end;
  24706. procedure TPORTG_CNEN.setCNEN2; inline;
  24707. begin
  24708. pTDefRegMap(@Self)^.&set := $00000004;
  24709. end;
  24710. procedure TPORTG_CNEN.clearCNEN2; inline;
  24711. begin
  24712. pTDefRegMap(@Self)^.clr := $00000004;
  24713. end;
  24714. procedure TPORTG_CNEN.setCNEN2(thebits : TBits_1); inline;
  24715. begin
  24716. if thebits = 0 then
  24717. pTDefRegMap(@Self)^.clr := $00000004
  24718. else
  24719. pTDefRegMap(@Self)^.&set := $00000004;
  24720. end;
  24721. function TPORTG_CNEN.getCNEN2 : TBits_1; inline;
  24722. begin
  24723. getCNEN2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  24724. end;
  24725. procedure TPORTG_CNEN.setCNEN3; inline;
  24726. begin
  24727. pTDefRegMap(@Self)^.&set := $00000008;
  24728. end;
  24729. procedure TPORTG_CNEN.clearCNEN3; inline;
  24730. begin
  24731. pTDefRegMap(@Self)^.clr := $00000008;
  24732. end;
  24733. procedure TPORTG_CNEN.setCNEN3(thebits : TBits_1); inline;
  24734. begin
  24735. if thebits = 0 then
  24736. pTDefRegMap(@Self)^.clr := $00000008
  24737. else
  24738. pTDefRegMap(@Self)^.&set := $00000008;
  24739. end;
  24740. function TPORTG_CNEN.getCNEN3 : TBits_1; inline;
  24741. begin
  24742. getCNEN3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  24743. end;
  24744. procedure TPORTG_CNEN.setCNEN4; inline;
  24745. begin
  24746. pTDefRegMap(@Self)^.&set := $00000010;
  24747. end;
  24748. procedure TPORTG_CNEN.clearCNEN4; inline;
  24749. begin
  24750. pTDefRegMap(@Self)^.clr := $00000010;
  24751. end;
  24752. procedure TPORTG_CNEN.setCNEN4(thebits : TBits_1); inline;
  24753. begin
  24754. if thebits = 0 then
  24755. pTDefRegMap(@Self)^.clr := $00000010
  24756. else
  24757. pTDefRegMap(@Self)^.&set := $00000010;
  24758. end;
  24759. function TPORTG_CNEN.getCNEN4 : TBits_1; inline;
  24760. begin
  24761. getCNEN4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  24762. end;
  24763. procedure TPORTG_CNEN.setCNEN5; inline;
  24764. begin
  24765. pTDefRegMap(@Self)^.&set := $00000020;
  24766. end;
  24767. procedure TPORTG_CNEN.clearCNEN5; inline;
  24768. begin
  24769. pTDefRegMap(@Self)^.clr := $00000020;
  24770. end;
  24771. procedure TPORTG_CNEN.setCNEN5(thebits : TBits_1); inline;
  24772. begin
  24773. if thebits = 0 then
  24774. pTDefRegMap(@Self)^.clr := $00000020
  24775. else
  24776. pTDefRegMap(@Self)^.&set := $00000020;
  24777. end;
  24778. function TPORTG_CNEN.getCNEN5 : TBits_1; inline;
  24779. begin
  24780. getCNEN5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  24781. end;
  24782. procedure TPORTG_CNEN.setCNEN6; inline;
  24783. begin
  24784. pTDefRegMap(@Self)^.&set := $00000040;
  24785. end;
  24786. procedure TPORTG_CNEN.clearCNEN6; inline;
  24787. begin
  24788. pTDefRegMap(@Self)^.clr := $00000040;
  24789. end;
  24790. procedure TPORTG_CNEN.setCNEN6(thebits : TBits_1); inline;
  24791. begin
  24792. if thebits = 0 then
  24793. pTDefRegMap(@Self)^.clr := $00000040
  24794. else
  24795. pTDefRegMap(@Self)^.&set := $00000040;
  24796. end;
  24797. function TPORTG_CNEN.getCNEN6 : TBits_1; inline;
  24798. begin
  24799. getCNEN6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  24800. end;
  24801. procedure TPORTG_CNEN.setCNEN7; inline;
  24802. begin
  24803. pTDefRegMap(@Self)^.&set := $00000080;
  24804. end;
  24805. procedure TPORTG_CNEN.clearCNEN7; inline;
  24806. begin
  24807. pTDefRegMap(@Self)^.clr := $00000080;
  24808. end;
  24809. procedure TPORTG_CNEN.setCNEN7(thebits : TBits_1); inline;
  24810. begin
  24811. if thebits = 0 then
  24812. pTDefRegMap(@Self)^.clr := $00000080
  24813. else
  24814. pTDefRegMap(@Self)^.&set := $00000080;
  24815. end;
  24816. function TPORTG_CNEN.getCNEN7 : TBits_1; inline;
  24817. begin
  24818. getCNEN7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  24819. end;
  24820. procedure TPORTG_CNEN.setCNEN8; inline;
  24821. begin
  24822. pTDefRegMap(@Self)^.&set := $00000100;
  24823. end;
  24824. procedure TPORTG_CNEN.clearCNEN8; inline;
  24825. begin
  24826. pTDefRegMap(@Self)^.clr := $00000100;
  24827. end;
  24828. procedure TPORTG_CNEN.setCNEN8(thebits : TBits_1); inline;
  24829. begin
  24830. if thebits = 0 then
  24831. pTDefRegMap(@Self)^.clr := $00000100
  24832. else
  24833. pTDefRegMap(@Self)^.&set := $00000100;
  24834. end;
  24835. function TPORTG_CNEN.getCNEN8 : TBits_1; inline;
  24836. begin
  24837. getCNEN8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  24838. end;
  24839. procedure TPORTG_CNEN.setCNEN9; inline;
  24840. begin
  24841. pTDefRegMap(@Self)^.&set := $00000200;
  24842. end;
  24843. procedure TPORTG_CNEN.clearCNEN9; inline;
  24844. begin
  24845. pTDefRegMap(@Self)^.clr := $00000200;
  24846. end;
  24847. procedure TPORTG_CNEN.setCNEN9(thebits : TBits_1); inline;
  24848. begin
  24849. if thebits = 0 then
  24850. pTDefRegMap(@Self)^.clr := $00000200
  24851. else
  24852. pTDefRegMap(@Self)^.&set := $00000200;
  24853. end;
  24854. function TPORTG_CNEN.getCNEN9 : TBits_1; inline;
  24855. begin
  24856. getCNEN9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  24857. end;
  24858. procedure TPORTG_CNEN.setCNEN10; inline;
  24859. begin
  24860. pTDefRegMap(@Self)^.&set := $00000400;
  24861. end;
  24862. procedure TPORTG_CNEN.clearCNEN10; inline;
  24863. begin
  24864. pTDefRegMap(@Self)^.clr := $00000400;
  24865. end;
  24866. procedure TPORTG_CNEN.setCNEN10(thebits : TBits_1); inline;
  24867. begin
  24868. if thebits = 0 then
  24869. pTDefRegMap(@Self)^.clr := $00000400
  24870. else
  24871. pTDefRegMap(@Self)^.&set := $00000400;
  24872. end;
  24873. function TPORTG_CNEN.getCNEN10 : TBits_1; inline;
  24874. begin
  24875. getCNEN10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  24876. end;
  24877. procedure TPORTG_CNEN.setCNEN11; inline;
  24878. begin
  24879. pTDefRegMap(@Self)^.&set := $00000800;
  24880. end;
  24881. procedure TPORTG_CNEN.clearCNEN11; inline;
  24882. begin
  24883. pTDefRegMap(@Self)^.clr := $00000800;
  24884. end;
  24885. procedure TPORTG_CNEN.setCNEN11(thebits : TBits_1); inline;
  24886. begin
  24887. if thebits = 0 then
  24888. pTDefRegMap(@Self)^.clr := $00000800
  24889. else
  24890. pTDefRegMap(@Self)^.&set := $00000800;
  24891. end;
  24892. function TPORTG_CNEN.getCNEN11 : TBits_1; inline;
  24893. begin
  24894. getCNEN11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  24895. end;
  24896. procedure TPORTG_CNEN.setCNEN12; inline;
  24897. begin
  24898. pTDefRegMap(@Self)^.&set := $00001000;
  24899. end;
  24900. procedure TPORTG_CNEN.clearCNEN12; inline;
  24901. begin
  24902. pTDefRegMap(@Self)^.clr := $00001000;
  24903. end;
  24904. procedure TPORTG_CNEN.setCNEN12(thebits : TBits_1); inline;
  24905. begin
  24906. if thebits = 0 then
  24907. pTDefRegMap(@Self)^.clr := $00001000
  24908. else
  24909. pTDefRegMap(@Self)^.&set := $00001000;
  24910. end;
  24911. function TPORTG_CNEN.getCNEN12 : TBits_1; inline;
  24912. begin
  24913. getCNEN12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  24914. end;
  24915. procedure TPORTG_CNEN.setCNEN13; inline;
  24916. begin
  24917. pTDefRegMap(@Self)^.&set := $00002000;
  24918. end;
  24919. procedure TPORTG_CNEN.clearCNEN13; inline;
  24920. begin
  24921. pTDefRegMap(@Self)^.clr := $00002000;
  24922. end;
  24923. procedure TPORTG_CNEN.setCNEN13(thebits : TBits_1); inline;
  24924. begin
  24925. if thebits = 0 then
  24926. pTDefRegMap(@Self)^.clr := $00002000
  24927. else
  24928. pTDefRegMap(@Self)^.&set := $00002000;
  24929. end;
  24930. function TPORTG_CNEN.getCNEN13 : TBits_1; inline;
  24931. begin
  24932. getCNEN13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  24933. end;
  24934. procedure TPORTG_CNEN.setCNEN14; inline;
  24935. begin
  24936. pTDefRegMap(@Self)^.&set := $00004000;
  24937. end;
  24938. procedure TPORTG_CNEN.clearCNEN14; inline;
  24939. begin
  24940. pTDefRegMap(@Self)^.clr := $00004000;
  24941. end;
  24942. procedure TPORTG_CNEN.setCNEN14(thebits : TBits_1); inline;
  24943. begin
  24944. if thebits = 0 then
  24945. pTDefRegMap(@Self)^.clr := $00004000
  24946. else
  24947. pTDefRegMap(@Self)^.&set := $00004000;
  24948. end;
  24949. function TPORTG_CNEN.getCNEN14 : TBits_1; inline;
  24950. begin
  24951. getCNEN14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  24952. end;
  24953. procedure TPORTG_CNEN.setCNEN15; inline;
  24954. begin
  24955. pTDefRegMap(@Self)^.&set := $00008000;
  24956. end;
  24957. procedure TPORTG_CNEN.clearCNEN15; inline;
  24958. begin
  24959. pTDefRegMap(@Self)^.clr := $00008000;
  24960. end;
  24961. procedure TPORTG_CNEN.setCNEN15(thebits : TBits_1); inline;
  24962. begin
  24963. if thebits = 0 then
  24964. pTDefRegMap(@Self)^.clr := $00008000
  24965. else
  24966. pTDefRegMap(@Self)^.&set := $00008000;
  24967. end;
  24968. function TPORTG_CNEN.getCNEN15 : TBits_1; inline;
  24969. begin
  24970. getCNEN15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  24971. end;
  24972. procedure TPORTG_CNEN.setCNEN16; inline;
  24973. begin
  24974. pTDefRegMap(@Self)^.&set := $00010000;
  24975. end;
  24976. procedure TPORTG_CNEN.clearCNEN16; inline;
  24977. begin
  24978. pTDefRegMap(@Self)^.clr := $00010000;
  24979. end;
  24980. procedure TPORTG_CNEN.setCNEN16(thebits : TBits_1); inline;
  24981. begin
  24982. if thebits = 0 then
  24983. pTDefRegMap(@Self)^.clr := $00010000
  24984. else
  24985. pTDefRegMap(@Self)^.&set := $00010000;
  24986. end;
  24987. function TPORTG_CNEN.getCNEN16 : TBits_1; inline;
  24988. begin
  24989. getCNEN16 := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  24990. end;
  24991. procedure TPORTG_CNEN.setCNEN17; inline;
  24992. begin
  24993. pTDefRegMap(@Self)^.&set := $00020000;
  24994. end;
  24995. procedure TPORTG_CNEN.clearCNEN17; inline;
  24996. begin
  24997. pTDefRegMap(@Self)^.clr := $00020000;
  24998. end;
  24999. procedure TPORTG_CNEN.setCNEN17(thebits : TBits_1); inline;
  25000. begin
  25001. if thebits = 0 then
  25002. pTDefRegMap(@Self)^.clr := $00020000
  25003. else
  25004. pTDefRegMap(@Self)^.&set := $00020000;
  25005. end;
  25006. function TPORTG_CNEN.getCNEN17 : TBits_1; inline;
  25007. begin
  25008. getCNEN17 := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  25009. end;
  25010. procedure TPORTG_CNEN.setCNEN18; inline;
  25011. begin
  25012. pTDefRegMap(@Self)^.&set := $00040000;
  25013. end;
  25014. procedure TPORTG_CNEN.clearCNEN18; inline;
  25015. begin
  25016. pTDefRegMap(@Self)^.clr := $00040000;
  25017. end;
  25018. procedure TPORTG_CNEN.setCNEN18(thebits : TBits_1); inline;
  25019. begin
  25020. if thebits = 0 then
  25021. pTDefRegMap(@Self)^.clr := $00040000
  25022. else
  25023. pTDefRegMap(@Self)^.&set := $00040000;
  25024. end;
  25025. function TPORTG_CNEN.getCNEN18 : TBits_1; inline;
  25026. begin
  25027. getCNEN18 := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  25028. end;
  25029. procedure TPORTG_CNEN.setw(thebits : TBits_32); inline;
  25030. begin
  25031. pTDefRegMap(@Self)^.val := thebits;
  25032. end;
  25033. function TPORTG_CNEN.getw : TBits_32; inline;
  25034. begin
  25035. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  25036. end;
  25037. procedure TPORTG_CNPUE.setCNPUE0; inline;
  25038. begin
  25039. pTDefRegMap(@Self)^.&set := $00000001;
  25040. end;
  25041. procedure TPORTG_CNPUE.clearCNPUE0; inline;
  25042. begin
  25043. pTDefRegMap(@Self)^.clr := $00000001;
  25044. end;
  25045. procedure TPORTG_CNPUE.setCNPUE0(thebits : TBits_1); inline;
  25046. begin
  25047. if thebits = 0 then
  25048. pTDefRegMap(@Self)^.clr := $00000001
  25049. else
  25050. pTDefRegMap(@Self)^.&set := $00000001;
  25051. end;
  25052. function TPORTG_CNPUE.getCNPUE0 : TBits_1; inline;
  25053. begin
  25054. getCNPUE0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  25055. end;
  25056. procedure TPORTG_CNPUE.setCNPUE1; inline;
  25057. begin
  25058. pTDefRegMap(@Self)^.&set := $00000002;
  25059. end;
  25060. procedure TPORTG_CNPUE.clearCNPUE1; inline;
  25061. begin
  25062. pTDefRegMap(@Self)^.clr := $00000002;
  25063. end;
  25064. procedure TPORTG_CNPUE.setCNPUE1(thebits : TBits_1); inline;
  25065. begin
  25066. if thebits = 0 then
  25067. pTDefRegMap(@Self)^.clr := $00000002
  25068. else
  25069. pTDefRegMap(@Self)^.&set := $00000002;
  25070. end;
  25071. function TPORTG_CNPUE.getCNPUE1 : TBits_1; inline;
  25072. begin
  25073. getCNPUE1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  25074. end;
  25075. procedure TPORTG_CNPUE.setCNPUE2; inline;
  25076. begin
  25077. pTDefRegMap(@Self)^.&set := $00000004;
  25078. end;
  25079. procedure TPORTG_CNPUE.clearCNPUE2; inline;
  25080. begin
  25081. pTDefRegMap(@Self)^.clr := $00000004;
  25082. end;
  25083. procedure TPORTG_CNPUE.setCNPUE2(thebits : TBits_1); inline;
  25084. begin
  25085. if thebits = 0 then
  25086. pTDefRegMap(@Self)^.clr := $00000004
  25087. else
  25088. pTDefRegMap(@Self)^.&set := $00000004;
  25089. end;
  25090. function TPORTG_CNPUE.getCNPUE2 : TBits_1; inline;
  25091. begin
  25092. getCNPUE2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  25093. end;
  25094. procedure TPORTG_CNPUE.setCNPUE3; inline;
  25095. begin
  25096. pTDefRegMap(@Self)^.&set := $00000008;
  25097. end;
  25098. procedure TPORTG_CNPUE.clearCNPUE3; inline;
  25099. begin
  25100. pTDefRegMap(@Self)^.clr := $00000008;
  25101. end;
  25102. procedure TPORTG_CNPUE.setCNPUE3(thebits : TBits_1); inline;
  25103. begin
  25104. if thebits = 0 then
  25105. pTDefRegMap(@Self)^.clr := $00000008
  25106. else
  25107. pTDefRegMap(@Self)^.&set := $00000008;
  25108. end;
  25109. function TPORTG_CNPUE.getCNPUE3 : TBits_1; inline;
  25110. begin
  25111. getCNPUE3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  25112. end;
  25113. procedure TPORTG_CNPUE.setCNPUE4; inline;
  25114. begin
  25115. pTDefRegMap(@Self)^.&set := $00000010;
  25116. end;
  25117. procedure TPORTG_CNPUE.clearCNPUE4; inline;
  25118. begin
  25119. pTDefRegMap(@Self)^.clr := $00000010;
  25120. end;
  25121. procedure TPORTG_CNPUE.setCNPUE4(thebits : TBits_1); inline;
  25122. begin
  25123. if thebits = 0 then
  25124. pTDefRegMap(@Self)^.clr := $00000010
  25125. else
  25126. pTDefRegMap(@Self)^.&set := $00000010;
  25127. end;
  25128. function TPORTG_CNPUE.getCNPUE4 : TBits_1; inline;
  25129. begin
  25130. getCNPUE4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  25131. end;
  25132. procedure TPORTG_CNPUE.setCNPUE5; inline;
  25133. begin
  25134. pTDefRegMap(@Self)^.&set := $00000020;
  25135. end;
  25136. procedure TPORTG_CNPUE.clearCNPUE5; inline;
  25137. begin
  25138. pTDefRegMap(@Self)^.clr := $00000020;
  25139. end;
  25140. procedure TPORTG_CNPUE.setCNPUE5(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 TPORTG_CNPUE.getCNPUE5 : TBits_1; inline;
  25148. begin
  25149. getCNPUE5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  25150. end;
  25151. procedure TPORTG_CNPUE.setCNPUE6; inline;
  25152. begin
  25153. pTDefRegMap(@Self)^.&set := $00000040;
  25154. end;
  25155. procedure TPORTG_CNPUE.clearCNPUE6; inline;
  25156. begin
  25157. pTDefRegMap(@Self)^.clr := $00000040;
  25158. end;
  25159. procedure TPORTG_CNPUE.setCNPUE6(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 TPORTG_CNPUE.getCNPUE6 : TBits_1; inline;
  25167. begin
  25168. getCNPUE6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  25169. end;
  25170. procedure TPORTG_CNPUE.setCNPUE7; inline;
  25171. begin
  25172. pTDefRegMap(@Self)^.&set := $00000080;
  25173. end;
  25174. procedure TPORTG_CNPUE.clearCNPUE7; inline;
  25175. begin
  25176. pTDefRegMap(@Self)^.clr := $00000080;
  25177. end;
  25178. procedure TPORTG_CNPUE.setCNPUE7(thebits : TBits_1); inline;
  25179. begin
  25180. if thebits = 0 then
  25181. pTDefRegMap(@Self)^.clr := $00000080
  25182. else
  25183. pTDefRegMap(@Self)^.&set := $00000080;
  25184. end;
  25185. function TPORTG_CNPUE.getCNPUE7 : TBits_1; inline;
  25186. begin
  25187. getCNPUE7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  25188. end;
  25189. procedure TPORTG_CNPUE.setCNPUE8; inline;
  25190. begin
  25191. pTDefRegMap(@Self)^.&set := $00000100;
  25192. end;
  25193. procedure TPORTG_CNPUE.clearCNPUE8; inline;
  25194. begin
  25195. pTDefRegMap(@Self)^.clr := $00000100;
  25196. end;
  25197. procedure TPORTG_CNPUE.setCNPUE8(thebits : TBits_1); inline;
  25198. begin
  25199. if thebits = 0 then
  25200. pTDefRegMap(@Self)^.clr := $00000100
  25201. else
  25202. pTDefRegMap(@Self)^.&set := $00000100;
  25203. end;
  25204. function TPORTG_CNPUE.getCNPUE8 : TBits_1; inline;
  25205. begin
  25206. getCNPUE8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  25207. end;
  25208. procedure TPORTG_CNPUE.setCNPUE9; inline;
  25209. begin
  25210. pTDefRegMap(@Self)^.&set := $00000200;
  25211. end;
  25212. procedure TPORTG_CNPUE.clearCNPUE9; inline;
  25213. begin
  25214. pTDefRegMap(@Self)^.clr := $00000200;
  25215. end;
  25216. procedure TPORTG_CNPUE.setCNPUE9(thebits : TBits_1); inline;
  25217. begin
  25218. if thebits = 0 then
  25219. pTDefRegMap(@Self)^.clr := $00000200
  25220. else
  25221. pTDefRegMap(@Self)^.&set := $00000200;
  25222. end;
  25223. function TPORTG_CNPUE.getCNPUE9 : TBits_1; inline;
  25224. begin
  25225. getCNPUE9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  25226. end;
  25227. procedure TPORTG_CNPUE.setCNPUE10; inline;
  25228. begin
  25229. pTDefRegMap(@Self)^.&set := $00000400;
  25230. end;
  25231. procedure TPORTG_CNPUE.clearCNPUE10; inline;
  25232. begin
  25233. pTDefRegMap(@Self)^.clr := $00000400;
  25234. end;
  25235. procedure TPORTG_CNPUE.setCNPUE10(thebits : TBits_1); inline;
  25236. begin
  25237. if thebits = 0 then
  25238. pTDefRegMap(@Self)^.clr := $00000400
  25239. else
  25240. pTDefRegMap(@Self)^.&set := $00000400;
  25241. end;
  25242. function TPORTG_CNPUE.getCNPUE10 : TBits_1; inline;
  25243. begin
  25244. getCNPUE10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  25245. end;
  25246. procedure TPORTG_CNPUE.setCNPUE11; inline;
  25247. begin
  25248. pTDefRegMap(@Self)^.&set := $00000800;
  25249. end;
  25250. procedure TPORTG_CNPUE.clearCNPUE11; inline;
  25251. begin
  25252. pTDefRegMap(@Self)^.clr := $00000800;
  25253. end;
  25254. procedure TPORTG_CNPUE.setCNPUE11(thebits : TBits_1); inline;
  25255. begin
  25256. if thebits = 0 then
  25257. pTDefRegMap(@Self)^.clr := $00000800
  25258. else
  25259. pTDefRegMap(@Self)^.&set := $00000800;
  25260. end;
  25261. function TPORTG_CNPUE.getCNPUE11 : TBits_1; inline;
  25262. begin
  25263. getCNPUE11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  25264. end;
  25265. procedure TPORTG_CNPUE.setCNPUE12; inline;
  25266. begin
  25267. pTDefRegMap(@Self)^.&set := $00001000;
  25268. end;
  25269. procedure TPORTG_CNPUE.clearCNPUE12; inline;
  25270. begin
  25271. pTDefRegMap(@Self)^.clr := $00001000;
  25272. end;
  25273. procedure TPORTG_CNPUE.setCNPUE12(thebits : TBits_1); inline;
  25274. begin
  25275. if thebits = 0 then
  25276. pTDefRegMap(@Self)^.clr := $00001000
  25277. else
  25278. pTDefRegMap(@Self)^.&set := $00001000;
  25279. end;
  25280. function TPORTG_CNPUE.getCNPUE12 : TBits_1; inline;
  25281. begin
  25282. getCNPUE12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  25283. end;
  25284. procedure TPORTG_CNPUE.setCNPUE13; inline;
  25285. begin
  25286. pTDefRegMap(@Self)^.&set := $00002000;
  25287. end;
  25288. procedure TPORTG_CNPUE.clearCNPUE13; inline;
  25289. begin
  25290. pTDefRegMap(@Self)^.clr := $00002000;
  25291. end;
  25292. procedure TPORTG_CNPUE.setCNPUE13(thebits : TBits_1); inline;
  25293. begin
  25294. if thebits = 0 then
  25295. pTDefRegMap(@Self)^.clr := $00002000
  25296. else
  25297. pTDefRegMap(@Self)^.&set := $00002000;
  25298. end;
  25299. function TPORTG_CNPUE.getCNPUE13 : TBits_1; inline;
  25300. begin
  25301. getCNPUE13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  25302. end;
  25303. procedure TPORTG_CNPUE.setCNPUE14; inline;
  25304. begin
  25305. pTDefRegMap(@Self)^.&set := $00004000;
  25306. end;
  25307. procedure TPORTG_CNPUE.clearCNPUE14; inline;
  25308. begin
  25309. pTDefRegMap(@Self)^.clr := $00004000;
  25310. end;
  25311. procedure TPORTG_CNPUE.setCNPUE14(thebits : TBits_1); inline;
  25312. begin
  25313. if thebits = 0 then
  25314. pTDefRegMap(@Self)^.clr := $00004000
  25315. else
  25316. pTDefRegMap(@Self)^.&set := $00004000;
  25317. end;
  25318. function TPORTG_CNPUE.getCNPUE14 : TBits_1; inline;
  25319. begin
  25320. getCNPUE14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  25321. end;
  25322. procedure TPORTG_CNPUE.setCNPUE15; inline;
  25323. begin
  25324. pTDefRegMap(@Self)^.&set := $00008000;
  25325. end;
  25326. procedure TPORTG_CNPUE.clearCNPUE15; inline;
  25327. begin
  25328. pTDefRegMap(@Self)^.clr := $00008000;
  25329. end;
  25330. procedure TPORTG_CNPUE.setCNPUE15(thebits : TBits_1); inline;
  25331. begin
  25332. if thebits = 0 then
  25333. pTDefRegMap(@Self)^.clr := $00008000
  25334. else
  25335. pTDefRegMap(@Self)^.&set := $00008000;
  25336. end;
  25337. function TPORTG_CNPUE.getCNPUE15 : TBits_1; inline;
  25338. begin
  25339. getCNPUE15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  25340. end;
  25341. procedure TPORTG_CNPUE.setCNPUE16; inline;
  25342. begin
  25343. pTDefRegMap(@Self)^.&set := $00010000;
  25344. end;
  25345. procedure TPORTG_CNPUE.clearCNPUE16; inline;
  25346. begin
  25347. pTDefRegMap(@Self)^.clr := $00010000;
  25348. end;
  25349. procedure TPORTG_CNPUE.setCNPUE16(thebits : TBits_1); inline;
  25350. begin
  25351. if thebits = 0 then
  25352. pTDefRegMap(@Self)^.clr := $00010000
  25353. else
  25354. pTDefRegMap(@Self)^.&set := $00010000;
  25355. end;
  25356. function TPORTG_CNPUE.getCNPUE16 : TBits_1; inline;
  25357. begin
  25358. getCNPUE16 := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  25359. end;
  25360. procedure TPORTG_CNPUE.setCNPUE17; inline;
  25361. begin
  25362. pTDefRegMap(@Self)^.&set := $00020000;
  25363. end;
  25364. procedure TPORTG_CNPUE.clearCNPUE17; inline;
  25365. begin
  25366. pTDefRegMap(@Self)^.clr := $00020000;
  25367. end;
  25368. procedure TPORTG_CNPUE.setCNPUE17(thebits : TBits_1); inline;
  25369. begin
  25370. if thebits = 0 then
  25371. pTDefRegMap(@Self)^.clr := $00020000
  25372. else
  25373. pTDefRegMap(@Self)^.&set := $00020000;
  25374. end;
  25375. function TPORTG_CNPUE.getCNPUE17 : TBits_1; inline;
  25376. begin
  25377. getCNPUE17 := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  25378. end;
  25379. procedure TPORTG_CNPUE.setCNPUE18; inline;
  25380. begin
  25381. pTDefRegMap(@Self)^.&set := $00040000;
  25382. end;
  25383. procedure TPORTG_CNPUE.clearCNPUE18; inline;
  25384. begin
  25385. pTDefRegMap(@Self)^.clr := $00040000;
  25386. end;
  25387. procedure TPORTG_CNPUE.setCNPUE18(thebits : TBits_1); inline;
  25388. begin
  25389. if thebits = 0 then
  25390. pTDefRegMap(@Self)^.clr := $00040000
  25391. else
  25392. pTDefRegMap(@Self)^.&set := $00040000;
  25393. end;
  25394. function TPORTG_CNPUE.getCNPUE18 : TBits_1; inline;
  25395. begin
  25396. getCNPUE18 := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  25397. end;
  25398. procedure TPORTG_CNPUE.setw(thebits : TBits_32); inline;
  25399. begin
  25400. pTDefRegMap(@Self)^.val := thebits;
  25401. end;
  25402. function TPORTG_CNPUE.getw : TBits_32; inline;
  25403. begin
  25404. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  25405. end;
  25406. procedure TDEVCFG_DEVCFG3.setUSERID(thebits : TBits_16); inline;
  25407. begin
  25408. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF0000 or ( thebits shl 0 );
  25409. end;
  25410. function TDEVCFG_DEVCFG3.getUSERID : TBits_16; inline;
  25411. begin
  25412. getUSERID := (pTDefRegMap(@Self)^.val and $0000FFFF) shr 0;
  25413. end;
  25414. procedure TDEVCFG_DEVCFG3.setw(thebits : TBits_32); inline;
  25415. begin
  25416. pTDefRegMap(@Self)^.val := thebits;
  25417. end;
  25418. function TDEVCFG_DEVCFG3.getw : TBits_32; inline;
  25419. begin
  25420. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  25421. end;
  25422. procedure TDEVCFG_DEVCFG2.setFPLLIDIV(thebits : TBits_3); inline;
  25423. begin
  25424. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  25425. end;
  25426. function TDEVCFG_DEVCFG2.getFPLLIDIV : TBits_3; inline;
  25427. begin
  25428. getFPLLIDIV := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  25429. end;
  25430. procedure TDEVCFG_DEVCFG2.setFPLLMUL(thebits : TBits_3); inline;
  25431. begin
  25432. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF8F or ( thebits shl 4 );
  25433. end;
  25434. function TDEVCFG_DEVCFG2.getFPLLMUL : TBits_3; inline;
  25435. begin
  25436. getFPLLMUL := (pTDefRegMap(@Self)^.val and $00000070) shr 4;
  25437. end;
  25438. procedure TDEVCFG_DEVCFG2.setUPLLIDIV(thebits : TBits_3); inline;
  25439. begin
  25440. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFF8FF or ( thebits shl 8 );
  25441. end;
  25442. function TDEVCFG_DEVCFG2.getUPLLIDIV : TBits_3; inline;
  25443. begin
  25444. getUPLLIDIV := (pTDefRegMap(@Self)^.val and $00000700) shr 8;
  25445. end;
  25446. procedure TDEVCFG_DEVCFG2.setUPLLEN; inline;
  25447. begin
  25448. pTDefRegMap(@Self)^.&set := $00008000;
  25449. end;
  25450. procedure TDEVCFG_DEVCFG2.clearUPLLEN; inline;
  25451. begin
  25452. pTDefRegMap(@Self)^.clr := $00008000;
  25453. end;
  25454. procedure TDEVCFG_DEVCFG2.setUPLLEN(thebits : TBits_1); inline;
  25455. begin
  25456. if thebits = 0 then
  25457. pTDefRegMap(@Self)^.clr := $00008000
  25458. else
  25459. pTDefRegMap(@Self)^.&set := $00008000;
  25460. end;
  25461. function TDEVCFG_DEVCFG2.getUPLLEN : TBits_1; inline;
  25462. begin
  25463. getUPLLEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  25464. end;
  25465. procedure TDEVCFG_DEVCFG2.setFPLLODIV(thebits : TBits_3); inline;
  25466. begin
  25467. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFF8FFFF or ( thebits shl 16 );
  25468. end;
  25469. function TDEVCFG_DEVCFG2.getFPLLODIV : TBits_3; inline;
  25470. begin
  25471. getFPLLODIV := (pTDefRegMap(@Self)^.val and $00070000) shr 16;
  25472. end;
  25473. procedure TDEVCFG_DEVCFG2.setw(thebits : TBits_32); inline;
  25474. begin
  25475. pTDefRegMap(@Self)^.val := thebits;
  25476. end;
  25477. function TDEVCFG_DEVCFG2.getw : TBits_32; inline;
  25478. begin
  25479. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  25480. end;
  25481. procedure TDEVCFG_DEVCFG1.setFNOSC(thebits : TBits_3); inline;
  25482. begin
  25483. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  25484. end;
  25485. function TDEVCFG_DEVCFG1.getFNOSC : TBits_3; inline;
  25486. begin
  25487. getFNOSC := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  25488. end;
  25489. procedure TDEVCFG_DEVCFG1.setFSOSCEN; inline;
  25490. begin
  25491. pTDefRegMap(@Self)^.&set := $00000020;
  25492. end;
  25493. procedure TDEVCFG_DEVCFG1.clearFSOSCEN; inline;
  25494. begin
  25495. pTDefRegMap(@Self)^.clr := $00000020;
  25496. end;
  25497. procedure TDEVCFG_DEVCFG1.setFSOSCEN(thebits : TBits_1); inline;
  25498. begin
  25499. if thebits = 0 then
  25500. pTDefRegMap(@Self)^.clr := $00000020
  25501. else
  25502. pTDefRegMap(@Self)^.&set := $00000020;
  25503. end;
  25504. function TDEVCFG_DEVCFG1.getFSOSCEN : TBits_1; inline;
  25505. begin
  25506. getFSOSCEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  25507. end;
  25508. procedure TDEVCFG_DEVCFG1.setIESO; inline;
  25509. begin
  25510. pTDefRegMap(@Self)^.&set := $00000080;
  25511. end;
  25512. procedure TDEVCFG_DEVCFG1.clearIESO; inline;
  25513. begin
  25514. pTDefRegMap(@Self)^.clr := $00000080;
  25515. end;
  25516. procedure TDEVCFG_DEVCFG1.setIESO(thebits : TBits_1); inline;
  25517. begin
  25518. if thebits = 0 then
  25519. pTDefRegMap(@Self)^.clr := $00000080
  25520. else
  25521. pTDefRegMap(@Self)^.&set := $00000080;
  25522. end;
  25523. function TDEVCFG_DEVCFG1.getIESO : TBits_1; inline;
  25524. begin
  25525. getIESO := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  25526. end;
  25527. procedure TDEVCFG_DEVCFG1.setPOSCMOD(thebits : TBits_2); inline;
  25528. begin
  25529. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  25530. end;
  25531. function TDEVCFG_DEVCFG1.getPOSCMOD : TBits_2; inline;
  25532. begin
  25533. getPOSCMOD := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  25534. end;
  25535. procedure TDEVCFG_DEVCFG1.setOSCIOFNC; inline;
  25536. begin
  25537. pTDefRegMap(@Self)^.&set := $00000400;
  25538. end;
  25539. procedure TDEVCFG_DEVCFG1.clearOSCIOFNC; inline;
  25540. begin
  25541. pTDefRegMap(@Self)^.clr := $00000400;
  25542. end;
  25543. procedure TDEVCFG_DEVCFG1.setOSCIOFNC(thebits : TBits_1); inline;
  25544. begin
  25545. if thebits = 0 then
  25546. pTDefRegMap(@Self)^.clr := $00000400
  25547. else
  25548. pTDefRegMap(@Self)^.&set := $00000400;
  25549. end;
  25550. function TDEVCFG_DEVCFG1.getOSCIOFNC : TBits_1; inline;
  25551. begin
  25552. getOSCIOFNC := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  25553. end;
  25554. procedure TDEVCFG_DEVCFG1.setFPBDIV(thebits : TBits_2); inline;
  25555. begin
  25556. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFCFFF or ( thebits shl 12 );
  25557. end;
  25558. function TDEVCFG_DEVCFG1.getFPBDIV : TBits_2; inline;
  25559. begin
  25560. getFPBDIV := (pTDefRegMap(@Self)^.val and $00003000) shr 12;
  25561. end;
  25562. procedure TDEVCFG_DEVCFG1.setFCKSM(thebits : TBits_2); inline;
  25563. begin
  25564. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  25565. end;
  25566. function TDEVCFG_DEVCFG1.getFCKSM : TBits_2; inline;
  25567. begin
  25568. getFCKSM := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  25569. end;
  25570. procedure TDEVCFG_DEVCFG1.setWDTPS(thebits : TBits_5); inline;
  25571. begin
  25572. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  25573. end;
  25574. function TDEVCFG_DEVCFG1.getWDTPS : TBits_5; inline;
  25575. begin
  25576. getWDTPS := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  25577. end;
  25578. procedure TDEVCFG_DEVCFG1.setFWDTEN; inline;
  25579. begin
  25580. pTDefRegMap(@Self)^.&set := $00800000;
  25581. end;
  25582. procedure TDEVCFG_DEVCFG1.clearFWDTEN; inline;
  25583. begin
  25584. pTDefRegMap(@Self)^.clr := $00800000;
  25585. end;
  25586. procedure TDEVCFG_DEVCFG1.setFWDTEN(thebits : TBits_1); inline;
  25587. begin
  25588. if thebits = 0 then
  25589. pTDefRegMap(@Self)^.clr := $00800000
  25590. else
  25591. pTDefRegMap(@Self)^.&set := $00800000;
  25592. end;
  25593. function TDEVCFG_DEVCFG1.getFWDTEN : TBits_1; inline;
  25594. begin
  25595. getFWDTEN := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
  25596. end;
  25597. procedure TDEVCFG_DEVCFG1.setw(thebits : TBits_32); inline;
  25598. begin
  25599. pTDefRegMap(@Self)^.val := thebits;
  25600. end;
  25601. function TDEVCFG_DEVCFG1.getw : TBits_32; inline;
  25602. begin
  25603. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  25604. end;
  25605. procedure TDEVCFG_DEVCFG0.setDEBUG(thebits : TBits_2); inline;
  25606. begin
  25607. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  25608. end;
  25609. function TDEVCFG_DEVCFG0.getDEBUG : TBits_2; inline;
  25610. begin
  25611. getDEBUG := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  25612. end;
  25613. procedure TDEVCFG_DEVCFG0.setICESEL; inline;
  25614. begin
  25615. pTDefRegMap(@Self)^.&set := $00000008;
  25616. end;
  25617. procedure TDEVCFG_DEVCFG0.clearICESEL; inline;
  25618. begin
  25619. pTDefRegMap(@Self)^.clr := $00000008;
  25620. end;
  25621. procedure TDEVCFG_DEVCFG0.setICESEL(thebits : TBits_1); inline;
  25622. begin
  25623. if thebits = 0 then
  25624. pTDefRegMap(@Self)^.clr := $00000008
  25625. else
  25626. pTDefRegMap(@Self)^.&set := $00000008;
  25627. end;
  25628. function TDEVCFG_DEVCFG0.getICESEL : TBits_1; inline;
  25629. begin
  25630. getICESEL := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  25631. end;
  25632. procedure TDEVCFG_DEVCFG0.setPWP(thebits : TBits_8); inline;
  25633. begin
  25634. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFF00FFF or ( thebits shl 12 );
  25635. end;
  25636. function TDEVCFG_DEVCFG0.getPWP : TBits_8; inline;
  25637. begin
  25638. getPWP := (pTDefRegMap(@Self)^.val and $000FF000) shr 12;
  25639. end;
  25640. procedure TDEVCFG_DEVCFG0.setBWP; inline;
  25641. begin
  25642. pTDefRegMap(@Self)^.&set := $01000000;
  25643. end;
  25644. procedure TDEVCFG_DEVCFG0.clearBWP; inline;
  25645. begin
  25646. pTDefRegMap(@Self)^.clr := $01000000;
  25647. end;
  25648. procedure TDEVCFG_DEVCFG0.setBWP(thebits : TBits_1); inline;
  25649. begin
  25650. if thebits = 0 then
  25651. pTDefRegMap(@Self)^.clr := $01000000
  25652. else
  25653. pTDefRegMap(@Self)^.&set := $01000000;
  25654. end;
  25655. function TDEVCFG_DEVCFG0.getBWP : TBits_1; inline;
  25656. begin
  25657. getBWP := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  25658. end;
  25659. procedure TDEVCFG_DEVCFG0.setCP; inline;
  25660. begin
  25661. pTDefRegMap(@Self)^.&set := $10000000;
  25662. end;
  25663. procedure TDEVCFG_DEVCFG0.clearCP; inline;
  25664. begin
  25665. pTDefRegMap(@Self)^.clr := $10000000;
  25666. end;
  25667. procedure TDEVCFG_DEVCFG0.setCP(thebits : TBits_1); inline;
  25668. begin
  25669. if thebits = 0 then
  25670. pTDefRegMap(@Self)^.clr := $10000000
  25671. else
  25672. pTDefRegMap(@Self)^.&set := $10000000;
  25673. end;
  25674. function TDEVCFG_DEVCFG0.getCP : TBits_1; inline;
  25675. begin
  25676. getCP := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  25677. end;
  25678. procedure TDEVCFG_DEVCFG0.setFDEBUG(thebits : TBits_2); inline;
  25679. begin
  25680. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  25681. end;
  25682. function TDEVCFG_DEVCFG0.getFDEBUG : TBits_2; inline;
  25683. begin
  25684. getFDEBUG := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  25685. end;
  25686. procedure TDEVCFG_DEVCFG0.setw(thebits : TBits_32); inline;
  25687. begin
  25688. pTDefRegMap(@Self)^.val := thebits;
  25689. end;
  25690. function TDEVCFG_DEVCFG0.getw : TBits_32; inline;
  25691. begin
  25692. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  25693. end;
  25694. procedure _CORE_TIMER_VECTOR_interrupt; external name '_CORE_TIMER_VECTOR_interrupt';
  25695. procedure _CORE_SOFTWARE_0_VECTOR_interrupt; external name '_CORE_SOFTWARE_0_VECTOR_interrupt';
  25696. procedure _CORE_SOFTWARE_1_VECTOR_interrupt; external name '_CORE_SOFTWARE_1_VECTOR_interrupt';
  25697. procedure _EXTERNAL_0_VECTOR_interrupt; external name '_EXTERNAL_0_VECTOR_interrupt';
  25698. procedure _TIMER_1_VECTOR_interrupt; external name '_TIMER_1_VECTOR_interrupt';
  25699. procedure _INPUT_CAPTURE_1_VECTOR_interrupt; external name '_INPUT_CAPTURE_1_VECTOR_interrupt';
  25700. procedure _OUTPUT_COMPARE_1_VECTOR_interrupt; external name '_OUTPUT_COMPARE_1_VECTOR_interrupt';
  25701. procedure _EXTERNAL_1_VECTOR_interrupt; external name '_EXTERNAL_1_VECTOR_interrupt';
  25702. procedure _TIMER_2_VECTOR_interrupt; external name '_TIMER_2_VECTOR_interrupt';
  25703. procedure _INPUT_CAPTURE_2_VECTOR_interrupt; external name '_INPUT_CAPTURE_2_VECTOR_interrupt';
  25704. procedure _OUTPUT_COMPARE_2_VECTOR_interrupt; external name '_OUTPUT_COMPARE_2_VECTOR_interrupt';
  25705. procedure _EXTERNAL_2_VECTOR_interrupt; external name '_EXTERNAL_2_VECTOR_interrupt';
  25706. procedure _TIMER_3_VECTOR_interrupt; external name '_TIMER_3_VECTOR_interrupt';
  25707. procedure _INPUT_CAPTURE_3_VECTOR_interrupt; external name '_INPUT_CAPTURE_3_VECTOR_interrupt';
  25708. procedure _OUTPUT_COMPARE_3_VECTOR_interrupt; external name '_OUTPUT_COMPARE_3_VECTOR_interrupt';
  25709. procedure _EXTERNAL_3_VECTOR_interrupt; external name '_EXTERNAL_3_VECTOR_interrupt';
  25710. procedure _TIMER_4_VECTOR_interrupt; external name '_TIMER_4_VECTOR_interrupt';
  25711. procedure _INPUT_CAPTURE_4_VECTOR_interrupt; external name '_INPUT_CAPTURE_4_VECTOR_interrupt';
  25712. procedure _OUTPUT_COMPARE_4_VECTOR_interrupt; external name '_OUTPUT_COMPARE_4_VECTOR_interrupt';
  25713. procedure _EXTERNAL_4_VECTOR_interrupt; external name '_EXTERNAL_4_VECTOR_interrupt';
  25714. procedure _TIMER_5_VECTOR_interrupt; external name '_TIMER_5_VECTOR_interrupt';
  25715. procedure _INPUT_CAPTURE_5_VECTOR_interrupt; external name '_INPUT_CAPTURE_5_VECTOR_interrupt';
  25716. procedure _OUTPUT_COMPARE_5_VECTOR_interrupt; external name '_OUTPUT_COMPARE_5_VECTOR_interrupt';
  25717. procedure _UART_1_VECTOR_interrupt; external name '_UART_1_VECTOR_interrupt';
  25718. procedure _I2C_1_VECTOR_interrupt; external name '_I2C_1_VECTOR_interrupt';
  25719. procedure _CHANGE_NOTICE_VECTOR_interrupt; external name '_CHANGE_NOTICE_VECTOR_interrupt';
  25720. procedure _ADC_VECTOR_interrupt; external name '_ADC_VECTOR_interrupt';
  25721. procedure _PMP_VECTOR_interrupt; external name '_PMP_VECTOR_interrupt';
  25722. procedure _COMPARATOR_1_VECTOR_interrupt; external name '_COMPARATOR_1_VECTOR_interrupt';
  25723. procedure _COMPARATOR_2_VECTOR_interrupt; external name '_COMPARATOR_2_VECTOR_interrupt';
  25724. procedure _SPI_2_VECTOR_interrupt; external name '_SPI_2_VECTOR_interrupt';
  25725. procedure _UART_2_VECTOR_interrupt; external name '_UART_2_VECTOR_interrupt';
  25726. procedure _I2C_2_VECTOR_interrupt; external name '_I2C_2_VECTOR_interrupt';
  25727. procedure _FAIL_SAFE_MONITOR_VECTOR_interrupt; external name '_FAIL_SAFE_MONITOR_VECTOR_interrupt';
  25728. procedure _RTCC_VECTOR_interrupt; external name '_RTCC_VECTOR_interrupt';
  25729. procedure _FCE_VECTOR_interrupt; external name '_FCE_VECTOR_interrupt';
  25730. procedure _USB_1_VECTOR_interrupt; external name '_USB_1_VECTOR_interrupt';
  25731. procedure Vectors; assembler; nostackframe;
  25732. label interrupt_vectors;
  25733. asm
  25734. .section ".init.interrupt_vectors,\"ax\",@progbits"
  25735. interrupt_vectors:
  25736. j _CORE_TIMER_VECTOR_interrupt
  25737. nop
  25738. nop
  25739. nop
  25740. nop
  25741. nop
  25742. nop
  25743. nop
  25744. j _CORE_SOFTWARE_0_VECTOR_interrupt
  25745. nop
  25746. nop
  25747. nop
  25748. nop
  25749. nop
  25750. nop
  25751. nop
  25752. j _CORE_SOFTWARE_1_VECTOR_interrupt
  25753. nop
  25754. nop
  25755. nop
  25756. nop
  25757. nop
  25758. nop
  25759. nop
  25760. j _EXTERNAL_0_VECTOR_interrupt
  25761. nop
  25762. nop
  25763. nop
  25764. nop
  25765. nop
  25766. nop
  25767. nop
  25768. j _TIMER_1_VECTOR_interrupt
  25769. nop
  25770. nop
  25771. nop
  25772. nop
  25773. nop
  25774. nop
  25775. nop
  25776. j _INPUT_CAPTURE_1_VECTOR_interrupt
  25777. nop
  25778. nop
  25779. nop
  25780. nop
  25781. nop
  25782. nop
  25783. nop
  25784. j _OUTPUT_COMPARE_1_VECTOR_interrupt
  25785. nop
  25786. nop
  25787. nop
  25788. nop
  25789. nop
  25790. nop
  25791. nop
  25792. j _EXTERNAL_1_VECTOR_interrupt
  25793. nop
  25794. nop
  25795. nop
  25796. nop
  25797. nop
  25798. nop
  25799. nop
  25800. j _TIMER_2_VECTOR_interrupt
  25801. nop
  25802. nop
  25803. nop
  25804. nop
  25805. nop
  25806. nop
  25807. nop
  25808. j _INPUT_CAPTURE_2_VECTOR_interrupt
  25809. nop
  25810. nop
  25811. nop
  25812. nop
  25813. nop
  25814. nop
  25815. nop
  25816. j _OUTPUT_COMPARE_2_VECTOR_interrupt
  25817. nop
  25818. nop
  25819. nop
  25820. nop
  25821. nop
  25822. nop
  25823. nop
  25824. j _EXTERNAL_2_VECTOR_interrupt
  25825. nop
  25826. nop
  25827. nop
  25828. nop
  25829. nop
  25830. nop
  25831. nop
  25832. j _TIMER_3_VECTOR_interrupt
  25833. nop
  25834. nop
  25835. nop
  25836. nop
  25837. nop
  25838. nop
  25839. nop
  25840. j _INPUT_CAPTURE_3_VECTOR_interrupt
  25841. nop
  25842. nop
  25843. nop
  25844. nop
  25845. nop
  25846. nop
  25847. nop
  25848. j _OUTPUT_COMPARE_3_VECTOR_interrupt
  25849. nop
  25850. nop
  25851. nop
  25852. nop
  25853. nop
  25854. nop
  25855. nop
  25856. j _EXTERNAL_3_VECTOR_interrupt
  25857. nop
  25858. nop
  25859. nop
  25860. nop
  25861. nop
  25862. nop
  25863. nop
  25864. j _TIMER_4_VECTOR_interrupt
  25865. nop
  25866. nop
  25867. nop
  25868. nop
  25869. nop
  25870. nop
  25871. nop
  25872. j _INPUT_CAPTURE_4_VECTOR_interrupt
  25873. nop
  25874. nop
  25875. nop
  25876. nop
  25877. nop
  25878. nop
  25879. nop
  25880. j _OUTPUT_COMPARE_4_VECTOR_interrupt
  25881. nop
  25882. nop
  25883. nop
  25884. nop
  25885. nop
  25886. nop
  25887. nop
  25888. j _EXTERNAL_4_VECTOR_interrupt
  25889. nop
  25890. nop
  25891. nop
  25892. nop
  25893. nop
  25894. nop
  25895. nop
  25896. j _TIMER_5_VECTOR_interrupt
  25897. nop
  25898. nop
  25899. nop
  25900. nop
  25901. nop
  25902. nop
  25903. nop
  25904. j _INPUT_CAPTURE_5_VECTOR_interrupt
  25905. nop
  25906. nop
  25907. nop
  25908. nop
  25909. nop
  25910. nop
  25911. nop
  25912. j _OUTPUT_COMPARE_5_VECTOR_interrupt
  25913. nop
  25914. nop
  25915. nop
  25916. nop
  25917. nop
  25918. nop
  25919. nop
  25920. nop
  25921. nop
  25922. nop
  25923. nop
  25924. nop
  25925. nop
  25926. nop
  25927. nop
  25928. j _UART_1_VECTOR_interrupt
  25929. nop
  25930. nop
  25931. nop
  25932. nop
  25933. nop
  25934. nop
  25935. nop
  25936. j _I2C_1_VECTOR_interrupt
  25937. nop
  25938. nop
  25939. nop
  25940. nop
  25941. nop
  25942. nop
  25943. nop
  25944. j _CHANGE_NOTICE_VECTOR_interrupt
  25945. nop
  25946. nop
  25947. nop
  25948. nop
  25949. nop
  25950. nop
  25951. nop
  25952. j _ADC_VECTOR_interrupt
  25953. nop
  25954. nop
  25955. nop
  25956. nop
  25957. nop
  25958. nop
  25959. nop
  25960. j _PMP_VECTOR_interrupt
  25961. nop
  25962. nop
  25963. nop
  25964. nop
  25965. nop
  25966. nop
  25967. nop
  25968. j _COMPARATOR_1_VECTOR_interrupt
  25969. nop
  25970. nop
  25971. nop
  25972. nop
  25973. nop
  25974. nop
  25975. nop
  25976. j _COMPARATOR_2_VECTOR_interrupt
  25977. nop
  25978. nop
  25979. nop
  25980. nop
  25981. nop
  25982. nop
  25983. nop
  25984. j _SPI_2_VECTOR_interrupt
  25985. nop
  25986. nop
  25987. nop
  25988. nop
  25989. nop
  25990. nop
  25991. nop
  25992. j _UART_2_VECTOR_interrupt
  25993. nop
  25994. nop
  25995. nop
  25996. nop
  25997. nop
  25998. nop
  25999. nop
  26000. j _I2C_2_VECTOR_interrupt
  26001. nop
  26002. nop
  26003. nop
  26004. nop
  26005. nop
  26006. nop
  26007. nop
  26008. j _FAIL_SAFE_MONITOR_VECTOR_interrupt
  26009. nop
  26010. nop
  26011. nop
  26012. nop
  26013. nop
  26014. nop
  26015. nop
  26016. j _RTCC_VECTOR_interrupt
  26017. nop
  26018. nop
  26019. nop
  26020. nop
  26021. nop
  26022. nop
  26023. nop
  26024. nop
  26025. nop
  26026. nop
  26027. nop
  26028. nop
  26029. nop
  26030. nop
  26031. nop
  26032. nop
  26033. nop
  26034. nop
  26035. nop
  26036. nop
  26037. nop
  26038. nop
  26039. nop
  26040. nop
  26041. nop
  26042. nop
  26043. nop
  26044. nop
  26045. nop
  26046. nop
  26047. nop
  26048. nop
  26049. nop
  26050. nop
  26051. nop
  26052. nop
  26053. nop
  26054. nop
  26055. nop
  26056. nop
  26057. nop
  26058. nop
  26059. nop
  26060. nop
  26061. nop
  26062. nop
  26063. nop
  26064. nop
  26065. nop
  26066. nop
  26067. nop
  26068. nop
  26069. nop
  26070. nop
  26071. nop
  26072. nop
  26073. nop
  26074. nop
  26075. nop
  26076. nop
  26077. nop
  26078. nop
  26079. nop
  26080. nop
  26081. nop
  26082. nop
  26083. nop
  26084. nop
  26085. nop
  26086. nop
  26087. nop
  26088. j _FCE_VECTOR_interrupt
  26089. nop
  26090. nop
  26091. nop
  26092. nop
  26093. nop
  26094. nop
  26095. nop
  26096. j _USB_1_VECTOR_interrupt
  26097. nop
  26098. nop
  26099. nop
  26100. nop
  26101. nop
  26102. nop
  26103. nop
  26104. .weak _CORE_TIMER_VECTOR_interrupt
  26105. .weak _CORE_SOFTWARE_0_VECTOR_interrupt
  26106. .weak _CORE_SOFTWARE_1_VECTOR_interrupt
  26107. .weak _EXTERNAL_0_VECTOR_interrupt
  26108. .weak _TIMER_1_VECTOR_interrupt
  26109. .weak _INPUT_CAPTURE_1_VECTOR_interrupt
  26110. .weak _OUTPUT_COMPARE_1_VECTOR_interrupt
  26111. .weak _EXTERNAL_1_VECTOR_interrupt
  26112. .weak _TIMER_2_VECTOR_interrupt
  26113. .weak _INPUT_CAPTURE_2_VECTOR_interrupt
  26114. .weak _OUTPUT_COMPARE_2_VECTOR_interrupt
  26115. .weak _EXTERNAL_2_VECTOR_interrupt
  26116. .weak _TIMER_3_VECTOR_interrupt
  26117. .weak _INPUT_CAPTURE_3_VECTOR_interrupt
  26118. .weak _OUTPUT_COMPARE_3_VECTOR_interrupt
  26119. .weak _EXTERNAL_3_VECTOR_interrupt
  26120. .weak _TIMER_4_VECTOR_interrupt
  26121. .weak _INPUT_CAPTURE_4_VECTOR_interrupt
  26122. .weak _OUTPUT_COMPARE_4_VECTOR_interrupt
  26123. .weak _EXTERNAL_4_VECTOR_interrupt
  26124. .weak _TIMER_5_VECTOR_interrupt
  26125. .weak _INPUT_CAPTURE_5_VECTOR_interrupt
  26126. .weak _OUTPUT_COMPARE_5_VECTOR_interrupt
  26127. .weak _UART_1_VECTOR_interrupt
  26128. .weak _I2C_1_VECTOR_interrupt
  26129. .weak _CHANGE_NOTICE_VECTOR_interrupt
  26130. .weak _ADC_VECTOR_interrupt
  26131. .weak _PMP_VECTOR_interrupt
  26132. .weak _COMPARATOR_1_VECTOR_interrupt
  26133. .weak _COMPARATOR_2_VECTOR_interrupt
  26134. .weak _SPI_2_VECTOR_interrupt
  26135. .weak _UART_2_VECTOR_interrupt
  26136. .weak _I2C_2_VECTOR_interrupt
  26137. .weak _FAIL_SAFE_MONITOR_VECTOR_interrupt
  26138. .weak _RTCC_VECTOR_interrupt
  26139. .weak _FCE_VECTOR_interrupt
  26140. .weak _USB_1_VECTOR_interrupt
  26141. .text
  26142. end;
  26143. end.