1 ! Test recognition of predefined control register names, lower and upper 2 ! case; getcon and putcon. Exhaustive test in those domain is small and 3 ! simple enough. Note that basic-1.s has already tested non-predefined 4 ! register names. 5 6 .mode SHmedia 7 .text 8 start: 9 getcon sr,r21 10 getcon ssr,r31 11 getcon pssr,r22 12 getcon intevt,r21 13 getcon expevt,r21 14 getcon pexpevt,r21 15 getcon tra,r12 16 getcon spc,r21 17 getcon pspc,r41 18 getcon resvec,r21 19 getcon vbr,r19 20 getcon tea,r21 21 getcon dcr,r35 22 getcon kcr0,r21 23 getcon kcr1,r21 24 getcon ctc,r22 25 getcon usr,r21 26 27 getcon SR,r2 28 getcon SSR,r21 29 getcon PSSR,r21 30 getcon INTEVT,r21 31 getcon EXPEVT,r38 32 getcon PEXPEVT,r21 33 getcon TRA,r21 34 getcon SPC,r1 35 getcon PSPC,r21 36 getcon RESVEC,r21 37 getcon VBR,r47 38 getcon TEA,r21 39 getcon DCR,r21 40 getcon KCR0,r35 41 getcon KCR1,r21 42 getcon CTC,r21 43 getcon USR,r21 44 45 putcon r21,sr 46 putcon r31,ssr 47 putcon r22,pssr 48 putcon r21,intevt 49 putcon r21,expevt 50 putcon r21,pexpevt 51 putcon r12,tra 52 putcon r21,spc 53 putcon r41,pspc 54 putcon r21,resvec 55 putcon r19,vbr 56 putcon r21,tea 57 putcon r35,dcr 58 putcon r21,kcr0 59 putcon r21,kcr1 60 putcon r22,ctc 61 putcon r21,usr 62 63 putcon r2,SR 64 putcon r21,SSR 65 putcon r21,PSSR 66 putcon r21,INTEVT 67 putcon r38,EXPEVT 68 putcon r21,PEXPEVT 69 putcon r21,TRA 70 putcon r1,SPC 71 putcon r21,PSPC 72 putcon r21,RESVEC 73 putcon r47,VBR 74 putcon r21,TEA 75 putcon r21,DCR 76 putcon r35,KCR0 77 putcon r21,KCR1 78 putcon r21,CTC 79 putcon r21,USR 80