Sample Application Programs
Flash EEPROM Test
1540 INTEGER I
1550 !
1560 !/////////////// Main /////////////////////////////////////////////
1570 CALL Init_hp4155
1580 ON INTR 8 CALL Err_check
1590 ENABLE INTR 8;2
1600 !
1610 CALL Test_setting
1620 CALL Get_file
1630 !
1640 Str_num=1
1650 FOR I=1 TO Meas_points
1660 CALL Stress_loop(I)
1670 IF Meas_str_num(I)>4500 THEN CALL Calibration
1680 !
1690 OUTPUT @Hp4155;":MMEM:LOAD:STAT 0,'MEM2.STR','MEMORY'"
1700 OUTPUT @Hp4155;":MMEM:LOAD:STAT 0,'MEM1.MES','MEMORY'"
1710 CALL Vth_meas("Write",I)
1720 !
1730 OUTPUT @Hp4155;":MMEM:LOAD:STAT 0,'MEM3.STR','MEMORY'"
1740 CALL Vth_meas("Erase",I)
1750 !
1760 CALL Trans_data(I)
1770 CALL Stress_graph(I)
1780 !
1790 IF Vth_w(I)<.1 OR Vth_e(I)<.1 THEN
1800 PRINT " ### The Device is broken. Test Aborted ###"
1810 PRINT " Final Stress Times : ";Str_num
1820 CALL Final_session
1830 STOP
1840 END IF
1850 Str_num=Str_num+1
1860 NEXT I
1870 !
1880 CALL Final_session
1890 !
1900 END
1910 !
1920 !/////////////// Sub //////////////////////////////////////////////
1930 Test_setting:SUB Test_setting
1940 COM /File_name/ Vth_file$,Wrt_file$,Ers_file$,Save_file$
1950 COM /Meas_info/ INTEGER Meas_points,REAL Str,Str_num,Meas_str_num(*)
1960 COM /Meas_data/ Vth_w(*),Vth_e(*)
1970 !
1980 Vth_file$="ROMVTH.MES" ! Vth Measurement Setup File Name
1990 Wrt_file$="NORWRT.STR" ! Write Stress Setup File Name
2000 Ers_file$="NORERS.STR" ! Erase Stress Setup File Name
2010 Save_file$=TIME$(TIMEDATE) ! File Name for saving measurement results
2020 Save_file$=Save_file$[1,2]&Save_file$[4,5]&Save_file$[7,7]&".DAT"
2030 Meas_points=16 ! Number of times to repeat Measurement
2040 REDIM Meas_str_num(1:Meas_points)
2050 REDIM Vth_w(1:Meas_points),Vth_e(1:Meas_points)
2060 Str_num: ! ! Stress Pulse Count data
2070 DATA 1, 2, 5
2080 DATA 10, 20, 50
2090 DATA 100, 200, 500
2100 DATA 1000, 2000, 5000
2110 DATA 10000, 20000, 50000
2120 DATA 100000, 200000, 500000
2130 DATA 1000000
2140 RESTORE Str_num
6-15
To Next Page
Loading...
Need help?
General
