안녕하세요. 프로그래밍을 시작해보려는 신입 입니다.
10000 COM /Alglib/ INTEGER Alg !! 85
10001 COM /Alglib/ Nam$(1:85)[32]
10002 COM /Alglib/ INTEGER Num(1:85,0:3)
10003 COM /Alglib/ Var$(1:85,0:3,0:255)[32]
10004 COM /Alglib/ INTEGER Typ(1:85,0:3,0:255)
10005 COM /Alglib/ INTEGER Dim(1:85,0:3,0:255)
10006 COM /Alglib/ INTEGER Loc(1:85,0:3,0:255)
10007 COM /Alglib/ INTEGER Vali(1:85,0:3,0:255)
10008 COM /Alglib/ REAL Valr(1:85,0:3,0:31)
10009 COM /Alglib/ Valc$(1:85,0:3,0:31)[1]
10010 COM /Alglib/ Vals$(1:85,0:3,0:31)[255]
10011 !
10012 Main:!
10013 CALL Direct_data
10014 CALL Direct_init
10015 CALL Direct_algo
10016 CALL Direct_uninit
10017 END
10018 !
10019 User_coms: SUB User_coms
10020 !========================================================================
10021 ! User defined COMmon variables. Append new variable to the COM line.
10022 !========================================================================
10023 !
10024 COM /Test_info/ Lotid$[32],Wafid$[32],INTEGER Wafslot,INTEGER Wafer_flag,INTEGER Die_pos_x,INTEGER Die_pos_y
10025 !
10026 SUBEND
10027 System_coms: SUB System_coms
10028 !========================================================================
10029 ! System defined COMmon variables.
10030 !========================================================================
10031 SUBEND
10032 !========================================================================
10033 ! Prober driver common
10034 !========================================================================
10035 Hp_com_prbdvr: SUB Hp_com_prbdvr
10036 COM /Hp_prbdvr/ Prb_model$[255],INTEGER Prb_address
10037 COM /Hp_prbdvr/ Prb_parm$[255],Prb_lot$[255],Prb_dev$[255]
10038 COM /Hp_prbdvr/ INTEGER Prb_diameter,Prb_coord,Prb_flat
10039 COM /Hp_prbdvr/ REAL Prb_stepx,Prb_stepy
10040 COM /Hp_prbdvr/ REAL Prb_init_dx,Prb_init_dy,Prb_init_mx,Prb_init_my
10041 COM /Hp_prbdvr/ REAL Prb_curr_dx,Prb_curr_dy,Prb_curr_mx,Prb_curr_my
10042 COM /Hp_prbdvr/ REAL Prb_curr_x,Prb_curr_y
10043 COM /Hp_prbdvr/ Prb_status$[255],Prb_error$[255]
10044 SUBEND
10045 !========================================================================
10046 ! Interpreter common
10047 !========================================================================
10048 Hp_com_intprt: SUB Hp_com_intprt
10049 COM /Hp_intprt/ REAL Hp_r1,Hp_r2,Hp_r3,Hp_r4
10050 COM /Hp_intprt/ Hp_s1$[255],Hp_s2$[255],Hp_s3$[255],Hp_s4$[255]
10051 SUBEND
10052 Tester_coms: SUB Tester_coms
10053 !========================================================================
10054 ! Tester defined COMmon variables.
10055 !========================================================================
10056 SUBEND
10057 Hp_com_prober: SUB Hp_com_prober
10058 OPTION BASE 1
10059 COM /Tiswps/ INTEGER Paddress,Ponline,Premote,Ponwafer,Plastwafer,REAL Pxsize,Pysize,Pxpos,Pypos
10060 COM /Tiswps2/ INTEGER Pzstatus
10061 COM /Tiswps3/ Prober_model$[20]
10062 COM /?ldfg/ Var_name$(50)[10],REAL D(1,1500),No,INTEGER Data_no,Name_no
10063 COM /?cl/ File_type$[20]
10064 COM /?pg_int1/ INTEGER Xmodule_max,Ymodule_max,Module_nmbr(6,6),Xchip_max,Ychip_max,First_m_nmbr
10065 COM /?pg_int2/ INTEGER Xchip_orig,Ychip_orig,Direction
10066 COM /?pg_int3/ INTEGER C_chip_nmbr,Allow_max_x_c,Allow_max_y_c,C_mod_nmbr,C_m_coord
10067 COM /?pg_real/ REAL Wafer_size,Xchip_size,Ychip_size,Xmodule_size,Ymodule_size,Module_coord(100,2)
10068 COM /?pg_str/ File$[60],Date_ppg$[11],Comment$[50],Get_file$[60]
10069 COM /?isppg/ INTEGER Old,Pointer
10070 COM /?afer_1/ INTEGER Chip_coord(32760),Xchip_pos,Ychip_pos,REAL Xmodule_pos,Ymodule_pos,INTEGER Max_mod_num
10071 COM /?afer_2/ All_chip,Y_c_num_arr(255)
10072 COM /?m/ P$(18)[41],INTEGER Offset,Table(18,5),Max_col,Max_row,Crt_width,Color_crt,Colors$(8)[2],INTEGER Inverse_fl,Yoffset
10073 SUBEND
10074 !
10075 Hp_com_swmpanel: SUB Hp_com_swmpanel
10076 COM /Hp_swm_pnl/ Port_pins$(-2:11)[160],INTEGER Defined,Pin_spec_ovfl,Ilgl_rly_ptn,Cursor,Top_port_seq,Max_line,No_of_ports,Current_port_no,Current_pos,Swm_status
10077 COM /Hp_swm_pnl1/ INTEGER Scroll_sk_flag,Exit_flag
10078 COM /Hp_swm_pnl2/ INTEGER Checked_pin(1:96)
10079 SUBEND
10080 !
10081 Hp_com_vfp: SUB Hp_com_vfp
10082 OPTION BASE 1
10083 COM /?fpsys/ Dcs$[5],Cms$[5],Swm$[5],INTEGER Vfp_mode,Compo(4),Adrs(4)
10084 COM /?fpdcs/ INTEGER Dcs_meas(32),Dcs_on(32),Dcs_id(32),Dcs_swm(32)
10085 COM /?fpdcs/ INTEGER Unit_adrs(32),Slot_no(32),Update(32),Ssmu(33)
10086 COM /?fpdcs/ INTEGER Dcs_mode(32),Dvm_mode(32),Dcs_time,Dcs_status
10087 COM /?fpdcs/ INTEGER I_range(32),V_range(32)
10088 COM /?fpdcs/ REAL I_meas(32),I_set(32),V_meas(32),V_set(32)
10089 COM /?fpcms/ INTEGER Cms_meas,Cms_on,Scms(2),Cms_swm,Cmh_adrs
10090 COM /?fpcms/ INTEGER Cms_vrange,C_range,Cms_level,Cms_time
10091 COM /?fpcms/ REAL Cms_vset,C_offset,C_meas,G_meas
10092 COM /?fpdnt/ INTEGER Dnt_port,Sdnt,Relay,Make,Block,Pin_buf(96)
10093 COM /?fpa/ INTEGER Page,Init,Udall,Exec,Buf,Change_flag
10094 COM /?fpb/ B$[11],K$[1],U$[1],C$[1],Pin$[2]
10095 COM /?fpfld/ INTEGER Field,Pos(130),R_l(130),U_d(130),Status(130)
10096 COM /?fpfld/ INTEGER Length(130),Attrib(130),Xos,Set_fld
10097 COM /?fptab/ INTEGER Xad,Yad,Ppos(11),Pin_tab(48)
10098 SUBEND
10099 Hp_com_para: SUB Hp_com_para
10100 COM /?rpins/ INTEGER Port(1:11),Pemitter,Pbase,Pcollector,Psubs
10101 COM /?ultitr/ INTEGER Port_(1:11),Psource,Pgate,Psubs_,Pdrain(1:6)
10102 SUBEND
10103 Hp_com_pgmlib: SUB Hp_com_pgmlib
10104 COM /Hp_pgmlib/ @Dcs,Pgmon,Direct
10105 SUBEND
현재 회사 업무로 프로그래밍 분석을 맡게 되었습니다.
상기 프로그램은 HP Basic으로 짜여져 있고 OS는 UNIX로 알고 있습니다.
굉장히 오래된 프로그램으로 알고 있는데, 기본적인 문법이 어떻게 짜여져서 돌아가는지 분석 중입니다.
제가 알기로 위의 COM은 Labled COM이라 하여 한번 변수 선언? 정의? 를 해준다면
프로그램 전체에서 사용할수 있는것으로 알고 있습니다.
저 COM으로 표기된 경로를 찾아보았으나, 보이질 않고 있습니다.
저 해당 경로의 있는 특정 File?이나 값을 이 프로그램에 사용하고자 정의 해주고자 하는것으로 알고있는데
전체적인 틀을 좀 알려주시면 감사히 배우겠습니다.
댓글 달기