| ! Test recognition of predefined control register names, lower and upper |
| ! case; getcon and putcon. Exhaustive test in those domain is small and |
| ! simple enough. Note that basic-1.s has already tested non-predefined |
| ! register names. |
| |
| .mode SHmedia |
| .text |
| start: |
| getcon sr,r21 |
| getcon ssr,r31 |
| getcon pssr,r22 |
| getcon intevt,r21 |
| getcon expevt,r21 |
| getcon pexpevt,r21 |
| getcon tra,r12 |
| getcon spc,r21 |
| getcon pspc,r41 |
| getcon resvec,r21 |
| getcon vbr,r19 |
| getcon tea,r21 |
| getcon dcr,r35 |
| getcon kcr0,r21 |
| getcon kcr1,r21 |
| getcon ctc,r22 |
| getcon usr,r21 |
| |
| getcon SR,r2 |
| getcon SSR,r21 |
| getcon PSSR,r21 |
| getcon INTEVT,r21 |
| getcon EXPEVT,r38 |
| getcon PEXPEVT,r21 |
| getcon TRA,r21 |
| getcon SPC,r1 |
| getcon PSPC,r21 |
| getcon RESVEC,r21 |
| getcon VBR,r47 |
| getcon TEA,r21 |
| getcon DCR,r21 |
| getcon KCR0,r35 |
| getcon KCR1,r21 |
| getcon CTC,r21 |
| getcon USR,r21 |
| |
| putcon r21,sr |
| putcon r31,ssr |
| putcon r22,pssr |
| putcon r21,intevt |
| putcon r21,expevt |
| putcon r21,pexpevt |
| putcon r12,tra |
| putcon r21,spc |
| putcon r41,pspc |
| putcon r21,resvec |
| putcon r19,vbr |
| putcon r21,tea |
| putcon r35,dcr |
| putcon r21,kcr0 |
| putcon r21,kcr1 |
| putcon r22,ctc |
| putcon r21,usr |
| |
| putcon r2,SR |
| putcon r21,SSR |
| putcon r21,PSSR |
| putcon r21,INTEVT |
| putcon r38,EXPEVT |
| putcon r21,PEXPEVT |
| putcon r21,TRA |
| putcon r1,SPC |
| putcon r21,PSPC |
| putcon r21,RESVEC |
| putcon r47,VBR |
| putcon r21,TEA |
| putcon r21,DCR |
| putcon r35,KCR0 |
| putcon r21,KCR1 |
| putcon r21,CTC |
| putcon r21,USR |