Modifikasi program translator, STAMAR Lampung

Programmer : Dwi Agus Soeprapto / NIP. 120157849


Penjelasan awal :
a. Memori internal
sloc -> mengambil data pada alamat memori xx
contoh : sloc=03
mengambil data pada alamat memori 03

dloc -> menyimpan data pada alamat memori xx
contoh : dloc=01
menyimpan data pada alamat memori 01

Alamat memori ->Fungsi
00 -> teraan dari sensor WS (instant)
01 -> rata-rata WS u/ display
02 -> rata-rata WS u/ printer
03 -> maximum WS u/ display
04 -> maximum WS u/ printer
10 -> teraan dari sensor WD (instant)
11 -> rata-rata WD u/ display
12 -> standar deviasi WD u/ display
13 -> rata-rata WD u/ printer
14 -> standar deviasi WD u/ printer

b. Module & channel
Chan -> penunjukan hardware untuk pengambilan sample data yang akan diolah.
contoh : chan=01
Maksudnya adalah data yang diambil dari kartu module 0 dan channel 1.
Yang dimaksud dengan modul :



Yang dimaksud dengan channel :



c. Seting satuan
unit=M/S
mult=0.09800
offs=0.00000

unit=KTS
mult=1.45687
offs=0.38850




Listing program:

1 IF TIME INTR
mins=10

2 FLAG
flag#=7
fcond=set

3 END IF

4 INP WIND SPD
chan=00 Modul ke-0, channel ke-0
type=03xxx
unit=KTS
mult=1.45687
offs=0.38850
dloc=00 Output sensor WS ditaruh pada alamat 00

5 AVERAGE
sloc=00 Input rata-rata diambil dari alamat memori 00 (WS instan)
dloc=01 Output rata-rata WS ditaruh pada alamat 01
#samp=00060 Lama pengambilan sampel rata-rata WS

6 DISPLAY VAL
sloc=00
scrn=0
row=0
col=02
width=3
decpt=0

7 DISPLAY VAL
sloc=01
scrn=0
row=0
col=09
width=2
decpt=0

8 IF FLAG
flag#=7
fcond=set

9 AVERAGE
sloc=00
dloc=02

10 MAXIMUM
sloc=00
dloc1=03
dloc2=04
#samp=00600

11 DISPLAY VAL
sloc=03
scrn=0
row=0
col=13
width=3
decpt=0

12 END IF

13 INP WIND DIR
chan=01
mult=0.99155
offs=0.00000
dloc=10

14 AVERAGE WD
sloc=10
dloc=11
#samp=00060

15 STD DEV WD
sloc=10
dloc=12
#samp=00600

16 DISPLAY VAL
sloc=10
scrn=0
row=0
col=03
width=3
decpt=0

17 DISPLAY VAL
sloc=11
scrn=1
row=1
col=09
width=3
decpt=0

18 DISPLAY VAL
sloc=12
scrn=0
row=1
col=13
width=3
decpt=0

19 IF FLAG
flag#=7
fcond=set

20 AVERAGE WD
sloc=10
dloc=13
#samp=00600

21 STD DEV WD
sloc=10
dloc=14
#samp=00600

22 END IF

23 IF TIME INTR
mins=10

24 RECORD TIME
frmt=dd-mm

25 RECORD TIME
frmt=hh:mm

26 RECORD VALUE
sloc=02

27 RECORD VALUE
sloc=04

28 RECORD VALUE
sloc=13

29 RECORD VALUE
sloc=14

30 IF L ? VALUE
sloc=95
cond?:=
val=0.00000

31 PRN BUF TEXT
col=001
text=TANGGAL

32 PRN BUF TEXT
col=011
text=JAM

33 PRN BUF TEXT
col=018
text=WS:AVG

34 PRN BUF TEXT
col=026
text=WS:MAX

35 PRN BUF TEXT
col=034
text=WD:AVG

36 PRN BUF TEXT
col=042
text=WD:SDV

37 PRN BUF OUT
chan=0

38 END IF

39 L OPER VALUE
sloc=95
oper:+
val=1.00000
dloc=95

40 IF L ? VALUE
sloc=95
cond?:=
val=60.0000

41 L = VALUE
dloc=95
val=0.00000

42 END IF

43 PRN BUF TIME
col=002
frmt=dd-mm

44 PRN BUF TIME
col=010
frmt=hh:mm

45 PRN BUF VAL
sloc=02
col=016
width=8
decpt=1

46 PRN BUF VAL
sloc=04
col=024
width=8
decpt=1

47 PRN BUF VAL
sloc=13
col=032
width=8
decpt=0

48 PRN BUF VAL
sloc=14
col=040
width=8
decpt=0

49 PRN BUF OUT
chan=0

50 END IF

51 PGM END


SET RECORDER
RECORD HEADER1: R M YOUNG CO. TRAVERSE CITY, MI
RECORD HEADER2: 26700 SERIES TRANSLATOR
FIELDS/REC: 08
RECORDS: 00096


SET SCROLL
SCROLL: NO
INTERVAL: 00
END SCREEN: 0


SET SCREEN TEXT
0123456789012345
----------------
WS___Kt_→__Kt___ SCREEN:0
WD____°_→___°___

UNUSED__________ SCREEN:1
SCREEN_1________

UNUSED__________ SCREEN:2
SCREEN_2________

UNUSED__________ SCREEN:3
SCREEN_3________

UNUSED__________ SCREEN:4
SCREEN_4________

UNUSED__________ SCREEN:5
SCREEN_5________

UNUSED__________ SCREEN:6
SCREEN_6________

UNUSED__________ SCREEN:7
SCREEN_7________

UNUSED__________ SCREEN:8
SCREEN_8________

UNUSED__________ SCREEN:9
SCREEN_9________

SET COMM
DEFAULT BAUD RATE: 9600
DATA BITS: 8
PARITY: NONE
BUFFER LEN: 080
BUFFER END: CR
ECHO: NO
LEAD 0s: NO
INIT STR LEN: 00
NUM ONLY INP: NO
MAX SER ERRS: 10

SET PRINTER
LINE LENGTH: 050
PAGE LENGTH: 61
INIT STR LEN: 03

SET AUTO-START
AUTO START: YES