1. Reboot
setdlgpos 300 300
for i 1 1000
sprintf2 s "Warm Reset TEST is on going, Counter %d: " i
statusbox s 'Test ongoing'
wait 'Hit any key to stop autoboot:'
sendln ''
wait '=>'
sendln 'md.b 0xffdf0000 80'
pause 1
sendln 'mw.b 0xffdf0019 0xff'
sendln 'mw.b 0xffdf001a 0xff
sendln 'mw.b 0xffdf001b 0xff'
sendln 'mw.b 0xffdf001c 0xff'
sendln 'mw.b 0xffdf001d 0xff'
sendln 'mw.b 0xffdf001e 0xff'
pause 1
wait '=>'
sendln 'md.b 0xffdf0000 80'
pause 1
wait '=>'
sendln 'boot'
wait 'login:'
pause 10
sendln ''
wait 'login:'
sendln 'root'
wait 'username:'
sendln 'labuser'
wait 'password for (labuser):'
sendln 'tellabs'
pause 1
sendln 'debug;shell'
pause 20
wait 'craft@MDS1-IO16:/#'
pause 1
sendln 'devmem 0xfffdf0014 8 0x00'
next
closesbox
setdlgpos 300 300
messagebox 'Power Reset Test is complete!' 'Test Complete'
end
2. Fan Speed Setting
; macro for Tera Term
;
; thermal test macro for fan speeds and drive temps for ARAPAHO in JOSHUA
; Donovan Metcalf 08/04/2015
;
; SET POINTS = 3600, 4500, 5500, 6500, 7500
setdebug 0
setsync 0
show 1 ; Show MACRO dialog
inputbox 'RPM value to set:' 'Enter RPM Value' '3600'
RPMvalue=inputstr
do
sprintf2 tempStr 'pwsplmSetFanSpeed 0,0,%s' RPMvalue
sendln tempStr
wait '->'
sprintf2 tempStr 'pwsplmSetFanSpeed 0,1,%s' RPMvalue
sendln tempStr
wait '->'
sprintf2 tempStr 'pwsplmSetFanSpeed 1,0,%s' RPMvalue
sendln tempStr
wait '->'
sprintf2 tempStr 'pwsplmSetFanSpeed 1,1,%s' RPMvalue
sendln tempStr
wait '->'
mpause 900
loop