Develop and Download Open Source Software

Tera Term

Browse Subversion Repository

/[ttssh2]/branches/ttcomtester/tests/shift.ttl

Annotation of /branches/ttcomtester/tests/shift.ttl

Parent Directory Parent Directory | Revision Log Revision Log

Revision 10521 - (hide annotations) (download)
Fri Jan 20 16:03:38 2023 UTC (14 months, 3 weeks ago) by zmatsuo
File size: 308 byte(s) 
add communication test tool
1 maya 6353 num = $A5 ;10100101
2     cnt = 4
3    
4     ; left 8bit rotate shift
5     rotleft = ((num << cnt) & $FF) + (((num << cnt) & $FF00) >> 8)
6    
7     sprintf '0x%X' rotleft
8     messagebox inputstr ''
9    
10    
11     ; right 8bit rotate shift
12     rotright = (num >> cnt) + ((num << (8 - cnt)) & $FF)
13    
14     sprintf '0x%X' rotright
15     messagebox inputstr ''
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help