5 Anhang

%%HP: T(2)A(D)F(.);

DIR

OFF.

« PATH \-> P

« -33 SF

BUFLEN DROP SRECV

DROP2 HOME PEIL

PARA 9 'K' STO 16

TX DROP 0 TX DROP P

EVAL OFF RESET

S.TST 1 MENU

DIS

DIR

EXIT

« UPDIR

QSOSHELL

« 0 1 0 0 1

0 1 1 1 0 REPIC

PWPIC SZPIC FQPIC \->

tx weiter key w1 a1

w2 a2 neu ch am

repic pwpic szpic

fqpic

« 22 TX

DROP 18 TX DROP

UPDIR PARA K 'ch'

STO UPDIR DIS 52 TX

DROP ERASE { # 0d

# 0d } PVIEW PICT {

# 0d # 49d } OPIC3

REPL PICT { # 107d

# 5d } "CH: " 1

\->GROB REPL PICT {

# 117d # 1d } ch

\->STR 3 \->GROB REPL

PICT { # 108d # 15d

} "FM" 3 \->GROB REPL

PICT { # 108d # 25d

} "DTMF" 3 \->GROB

REPL PICT { # 108d

# 15d }

IF ch

16 < ch 3 > AND am

AND

THEN

"AM"

ELSE

"FM"

END 3

\->GROB REPL PICT {

# 108d # 35d } "RX"

3 \->GROB REPL

WHILE

weiter

REPEAT

IF tx

THEN

38 TX .32941 * 42 -

'w1' STO 39 TX

.32941 * 42 - 'w2'

STO

IF w1 a1 - ABS 1 >

neu OR

THEN PICT { # 1d

# 1d } pwpic REPL

31 w1 SIN * 31 w1

COS * R\->C (27,24) +

(27,24) LINE w1

'a1' STO

END

IF w2 a2 - ABS 1 >

neu OR

THEN PICT { # 54d

# 1d } repic REPL

31 w2 SIN * 31 w2

COS * R\->C (80,24) +

(80,24) LINE w2

'a2' STO 0 'neu'

STO

END

ELSE

37 TX .32941 * 42 -

'w1' STO 41 TX

.32941 * 42 - 'w2'

STO

IF w1 a1 - ABS 1 >

neu OR

THEN PICT { # 1d

# 1d } szpic REPL

31 w1 SIN * 31 w1

COS * R\->C (27,24) +

(27,24) LINE w1

'a1' STO

END

IF w2 a2 - ABS 1 >

neu OR

THEN PICT { # 54d

# 1d } fqpic REPL

31 w2 SIN * 31 w2

COS * R\->C (80,24) +

(80,24) LINE w2

'a2' STO 0 'neu'

STO

END

.01 WAIT

KEY

THEN

{ 21 22 23 24 25 26

11 12 13 14 15 16

51 92 93 94 95 82

83 84 85 72 73 74

75 62 63 64 65 }

SWAP POS 'key' STO

IF key

THEN {

« 0 'weiter' STO

« 28 TX DROP 1

'tx' STO 1 'neu'

STO

« 17 TX DROP 0

'tx' STO 1 'neu'

STO

« UPDIR PARA K 1

IF DUP 80 >

THEN DROP 1

END DUP 'ch'

STO CHE UPDIR DIS

« UPDIR PARA K 1

IF DUP 1 <

THEN DROP 80

END DUP 'ch'

STO CHE UPDIR DIS

« 25 TX DROP 17

TX DROP PICT {

# 108d # 15d }

IF ch 16 < ch 3

> AND

THEN am NOT

'am' STO

IF am

THEN "AM"

ELSE "FM"

END

ELSE "FM"

END 3 \->GROB

REPL

« PICT

IF 17 LES.IO 7

GET

THEN 18 TX DROP

" STB " 1 \->GROB NEG

{ # 1d # 50d }

ELSE 19 TX DROP

"STB-" 1 \->GROB NEG

{ # 4d # 50d }

END SWAP REPL

« PICT

IF 17 LES.IO 6

GET

THEN 20 TX DROP

" ATT " 1 \->GROB NEG

{ # 22d # 50d }

ELSE 21 TX DROP

"ATT-" 1 \->GROB NEG

{ # 25d # 50d }

END SWAP REPL

« PICT { # 108d

# 25d } "MIC " 3

\->GROB REPL 53 TX

DROP

« PICT { # 108d

# 25d } "DTMF" 3

\->GROB REPL 52 TX

DROP

« CLLCD

"gib Kanal ein

danach ENTER"

{ ":CH:" { 1 5 } V

} INPUT OBJ\-> DTAG

DUP 'ch' STO CHE {

# 0d # 0d } PVIEW

PICT { # 117d # 1d

} ch \->STR " " + 3

\->GROB REPL

« CLLCD TEXT

"Hardwareanweisung:"

{ ":TX:" { 1 5 } V

} INPUT OBJ\-> DTAG

TX CLLCD "ANTWORT:"

SWAP + 3 DISP 2

WAIT 1 'neu' STO {

# 0d # 0d } PVIEW

IF tx

THEN 17 TX DROP

0 'tx' STO

ELSE 28 TX DROP

1 'tx' STO

END 1 'neu' STO

« 28 TX DROP .5

WAIT 64 TX DROP 17

TX DROP

« 28 TX DROP .5

WAIT 76 TX DROP 17

TX DROP

« 28 TX DROP .5

WAIT 77 TX DROP 17

TX DROP

« 28 TX DROP .5

WAIT 78 TX DROP 17

TX DROP

« 28 TX DROP .5

WAIT 65 TX DROP 17

TX DROP

« 28 TX DROP .5

WAIT 66 TX DROP 17

TX DROP

« 28 TX DROP .5

WAIT 67 TX DROP 17

TX DROP

« 28 TX DROP .5

WAIT 79 TX DROP 17

TX DROP

« 28 TX DROP .5

WAIT 68 TX DROP 17

TX DROP

« 28 TX DROP .5

WAIT 69 TX DROP 17

TX DROP

« 28 TX DROP .5

WAIT 70 TX DROP 17

TX DROP

« 28 TX DROP .5

WAIT 74 TX DROP 17

TX DROP

« 28 TX DROP .5

WAIT 71 TX DROP 17

TX DROP

« 28 TX DROP .5

WAIT 72 TX DROP 17

TX DROP

« 28 TX DROP .5

WAIT 73 TX DROP 17

TX DROP

« 28 TX DROP .5

WAIT 75 TX DROP 17

TX DROP

» } key GET EVAL

PICT { # 108d # 35d

}

IF tx

THEN "TX"

ELSE "RX"

END 3 \->GROB REPL

PICT { # 117d # 1d

} ch \->STR " " + 3

\->GROB REPL PICT {

# 108d # 15d }

IF ch 16 < ch 3 >

AND am AND

THEN "AM"

ELSE "FM"

END 3 \->GROB REPL

END

REPIC

GROB 51 45

FFFFFFFFFFFF7010000000000040100000000000401000E008300040100080002000401000E008300040100020002000401000E0083000401C00000000414018000FF70041401800F00870C140180C00008101401C9300000E014010400000001040103000000060401800000000804014000000000140120000000002401100000000044010000000000040100000000000401000000000004010000377000040100005110000401000037700004010000511000040100005710000401000000000004010000000000040100000000000401000000000004010000000000040100000000000401000000000004010000000000040100000700000401000088000004010000401000040100002020000401000020200004010000202000040100004010000401000088000004010000070000040FFFFFFFFFFFF70

PWPIC

GROB 51 45

FFFFFFFFFFFF7010000000000040100000000000401000E008300040100080002000401000E008300040100020002000401000E0083000401C00000000414018000FF70041401800F00870C140180C00008101401C9300000E01401040000000104010300000006040180000000080401400000000014012000000000240110000000004401000000000004010000000000040100000000000401008BB8E6000401008AA82A000401008BAAE60004010088AD2A0004010088B8EA000401000000000004010000000000040100000000000401000000000004010000000000040100000000000401000000000004010000000000040100000700000401000088000004010000401000040100002020000401000020200004010000202000040100004010000401000088000004010000070000040FFFFFFFFFFFF70

SZPIC

GROB 51 45

FFFFFFFFFFFF70100000000000401000007000004010083040E0004010080020A0004010083010E0004010002010800D4010083000E005501C00000008CD4018000FF70C55501800F00878CD40180C00008100401C9300000E0040104000000010401030000000604018000000008040140000000001401200000000024011000000000440100000000000401000000000004010000000000040100C0A2576004010020A652100401004EAE522004010080AA524004010060E252300401000000000004010000000000040100000000000401000000000004010000000000040100000000000401000000000004010000000000040100000700000401000088000004010000401000040100002020000401000020200004010000202000040100004010000401000088000004010000070000040FFFFFFFFFFFF70

FQPIC

GROB 51 45

FFFFFFFFFFFF7010000000000040100000700000401000005000004010000050000040100000500000401000007000004010000000008040100000000080401E300FF700E3401000F008708040100C0000818040108300000E0040104000000010401030000000604018000000008040140000000001401200000000024011000000000440100000000000401000000000004010000000000040100C9188A100401004428DA20040100C528AA2004010044188A2004010048288A100401000000000004010000000000040100000000000401000000000004010000000000040100000000000401000000000004010000000000040100000700000401000088000004010000401000040100002020000401000020200004010000202000040100004010000401000088000004010000070000040FFFFFFFFFFFF70

ZEICN

"GLEICH ==

UNGL \=/

GROESSER >

KLEINER <"

HELP

"Befehlsliste EXIT mit ENTER

00..15 Frei (Bustest)

DEZ HEX:

1X = Stromversorgung

16 10 = Stromversorgung aus

17 11 = Stromversorgung ein

18 12 = STB AUS

19 13 = STB EIN

20 14 = Attenator AUS

21 15 = Attenator EIN

22 16 = Taktgenerator AUS

23 17 = Taktgenerator EIN

24 18 = Frei-1

25 19 = AM-FM Umschaltung

26 1A = Frei-2

27 1B = Frei-3

28 1C = TX-Tastung

29 1D = Frei-4

30 1E = Channal UP

31 1F = Channal DOWN

2X = A/D-Wandler

32 20 = Versorgungsspannung ?

33 21 = Phasennsrung-1 ?

34 22 = Phasennsrung-2 ?

35 23 = Phasennsrung-3 ?

36 24 = Phasennsrung-4 ?

37 25 = S-Wert ?

38 26 = HF-Leistung ?

39 27 = Reflektierte Leistung ?

40 28 = Temperatur ?

41 29 = Frequenzablage ?

42 2A = A/D max TEST -> FF

43 2B = Frei-1

44 2C = Frei-2

45 2D = A/D min TEST -> 00

46 2E = Frei-3

47 2F = Frei-4

3X = Modem RX

48 30 = Statusabfrage

49 31 = n\.Schstes Zeichen lesen

50 32 = L\Gnschen des FIFO's

51 33 = Frei

52 34 = Audio->DTMF

53 35 = Audio->Mic

54 36 = Audio->Systemlautspr.

55 37 = Audio->Sprachspeicher

56 38 = Antwortstest +32->BUS

57 39 = Frei

58 3A = Frei

59 3B = Frei

60 3C = Frei

61 3D = Frei

62 3E = Frei

63 3F = Frei

4X = Modem TX

64 40 = DTMF TON 0

65 41 = DTMF TON 1

66 42 = DTMF TON 2

67 43 = DTMF TON 3

68 44 = DTMF TON 4

69 45 = DTMF TON 5

70 46 = DTMF TON 6

71 47 = DTMF TON 7

72 48 = DTMF TON 8

73 49 = DTMF TON 9

74 4A = DTMF TON *

75 4B = DTMF TON #

76 4C = DTMF TON A

77 4D = DTMF TON B

78 4E = DTMF TON C

79 4F = DTMF TON D

80..255 (50..FF) = Frei

SHELL

« 1 0 1 0 0

0 0 0 0 OPIC OPIC2

SPIC 0 0 0 (0,0) \->

weiter warm ch l fq

s t u0 u opic opic2

spic d w key pos

« { (1,1)

(131,64) X 0 (0,0)

FUNCTION Y } 'PPAR'

STO ERASE RESET {

# 0d # 0d } PVIEW

WHILE

weiter

REPEAT

warm NOT

THEN

CLLCD TEXT

"gib Kanal ein

danach ENTER"

{ ":CH:" { 1 5 } V

} INPUT OBJ\-> DTAG

CHE PICT { # 0d

# 0d } opic REPL {

# 0d # 0d } PVIEW

18 TX DROP 20 TX

DROP 23 TX DROP 10

FOR i PICT { # 60d

# 50d }

"Warmlaufen: " i +

"sek " + 1 \->GROB

REPL .95 WAIT -1

STEP 1 'warm' STO

END

TIME 2 TRNC 'u' STO

DATE 2 TRNC 'd' STO

HOME PEIL FKT PEIL

'w' STO PICT {

# 60d # 50d }

"ANDERE MESSUNGEN"

1 \->GROB REPL HOME

PEIL PARA K 'ch'

STO HOME PEIL DIS

32 TX 10 / 'u0' STO

37 TX 's' STO 40 TX

.4328 ^ 2.9417 *

't' STO 41 TX 127.5

- 'fq' STO 1 s 255

/ - 24 * 2 + 'l'

STO PICT { # 0d

# 0d } opic2 REPL l

w SIN * l w COS *

R\->C (29,36) + 'pos'

STO PICT pos (-2,2)

+ C\->PX spic REPL

(29,36) pos LINE

pos PIXOFF PICT {

# 63d # 2d } 1 FIX

w " " + "\<) :"

SWAP + 3 \->GROB REPL

PICT { # 63d # 14d

} STD "S :" s +

" u " + 3 \->GROB

REPL PICT { # 60d

# 26d } 2 FIX "AM:"

d + " UM:" + u + 1

\->GROB REPL PICT {

# 60d # 32d } 1 FIX

"U-BAT: " u0 + "V"

+ 1 \->GROB REPL PICT

{ # 60d # 38d } 1

FIX "TEMP: " t +

" C" + 1 \->GROB REPL

PICT { # 60d # 44d

} "FQ: " fq + "U" +

STD " CH: " + ch +

" " + 1 \->GROB

REPL .01 WAIT

KEY

THEN

{ 11 12 13 14 15 16

} SWAP POS 'key'

STO

IF key

THEN {

« OFF. 0 'warm'

STO

« 0 'weiter' STO

« HOME PEIL ANZ

G.S HOME PEIL DIS

OPIC PICT STO

« PICT

IF 17 LES.IO 7

GET

THEN 18 TX DROP

" STB " 1 \->GROB NEG

{ # 67d # 58d }

ELSE 19 TX DROP

"STB-" 1 \->GROB NEG

{ # 69d # 58d }

END SWAP REPL

« CLLCD

"gib Kanal ein

danach ENTER"

{ ":CH:" { 1 5 } V

} INPUT OBJ\-> DTAG

CHE

« QSOSHELL 0

'warm' STO

» } key GET EVAL

{ # 0d # 0d } PVIEW

END

OPIC

GROB 131 64

FFF00000000EFF9FFFFFFFFFFFFFFFFF70FF3008FF3008FF90000000000000000040FF100700C100FF90000000000000000040F700E0000E00EF90000000000000000040F308100000308F90000000000000000040F104000000400F90000000000000000040F003000000810E90000000000000000040F08000FF10020E9000000000000000004070400E00E0040C900000000000000000403020810003080890000000000000000040101060000C0010900000000000000000400800100000102090000000000000000040040C00000060408FFFFFFFFFFFFFFFFF70040200EF0080408000000000000000004002010C10700180800000000000000000400101030081010180000000000000000040018080000202018000000000000000004080404000040402800000000000000000408040200008040280000000000000000040802010C700180280000000000000000040402800381028048000000000000000004040180C00602014800000000000000000404014020080401480000000000000000040201400000040188000000000000000004028048FFFF340288FFFFFFFFFFFFFFFFF70280280000280280000000000000000000028028229E2802800000000000000000000280282AA4280280000000000000000000028028AAB42802800000000000000000000280286BA42802800000000000000000000280282AA42802800000000000000000000280280000280280000000000000000000028048FFFF34028000000000000000000002014000000401800000000000000000000401402008040140000000000000000000040180C00602014000000000000000000004028003810280400000000000000000000802010C700180200000000000000000000804020000804020000000000000000000080404000040402000000000000000000000180800002020100000000000000000000010103008101010000000000000000000002010C1070018000000000000000000000040200EF00804000000000000000000000040C0000006040000000000000000000001800100000102010000000000000000000101060000C001010000000000000000000302081000308081000000000000000000070400E00E0040C10000000000000000000F08000FF10020E10000000000000000000F003000000810E10000000000000000000F104000000400F10000000000000000000F308100000308F10000000000000000000FF00E0000E00EF10000000000000000000FF100700C100FF10000000000000000000FF3008FF3008FF100000000000000000000000000000000000000000000000000000FFFFFDFFFF7FFFFFDFFFF7FFFFFDFFFF70F111FD3AA87F44CCDF44E7FF4DFD7E4C70F5DDFDBBAD77757FD7F6D7F77DFDB57D70F511FD36BD7F644FDFE6E7F77CFDBD6D70F5DDFDBBAD7F577FDFD6D7F77DFDBE5D70F1DDFD3AAD7767CCD7E6E7FF4DFD756C70FFFFFDFFFF7FFFFFDFFFF7FFFFFDFFFF70

OPIC2

GROB 59 57

FFF00000000EFF10FF3008FF3008FF10FF100700C100FF10F700E0000E00EF10F308100000308F10F104000000400F10F003000000810E10F08000FF10020E1070400E00E0040C103020810003080810101060000C0010100800100000102010040C000000604000040200EF0080400002010C10700180000101030081010100018080000202010080404000040402008040200008040200802010C700180200402800381028040040180C0060201400401402008040140020140200804018002804010001402800280201830180280028028044028028002802802802802800280280290280280028028028028028002802804402802800280201830180280028040100014028002014020080401800401402008040140040180C00602014004028003810280400802010C700180200804020000804020080404000040402000180800002020100010103008101010002010C1070018000040200EF00804000040C0000006040001800100000102010101060000C001010302081000308081070400E00E0040C10F08000FF10020E10F003000000810E10F104000000400F10F308100000308F10FF00E0000E00EF10FF100700C100FF10FF3008FF3008FF100000000000000000

OPIC3

GROB 131 15

FFFFFDFFFF7FFFFFDFFFF7FFFFFDFFFF70F319FD732E7FEA9FDC8E26FE9AFD5B9970FDB5FDB67F7F4AEFDAD4A7FDEAFD555570FBB9FD367F7FAAEFDADA2678E8FD119570F7B5FDB67F7FEAEFDADEA7FDEAFD555570F9B9FDB67F7FEA9FDCDEA7FE9AFD555970FFFFFDFFFF7FFFFFDFFFF7FFFFFDFFFF700000000000000000000000000000000000FFFFFDFFFF7FFFFFDFFFF7FFFFFDFFFF70F8A2EDF8AF7F3BEFDFA8F791D5BDE74770FEA6FDFDAF7FBAEFDFAAF755D5A5D77270F8D6FDFDDF7F37FFDFA8F7555585444570FEA6FDFDAF7FBAEFDFAEF7559495D77770F8A6FDFDAF7FBAEFDF8EF791D5B5D77770FFFFFDFFFF7FFFFFDFFFF7FFFFFDFFFF70

OPIC4

GROB 51 45

FFFFFFFFFFFF70100000000000401000000000004010000000000040100000000000401000000000004010000000000040100000000000401000000000004010000FF70000401000F008700040100C0000810040108300000E0040104000000010401030000000604018000000008040140000000001401200000000024011000000000440100000000000401000000000004010000000000040100000000000401000000000004010000000000040100000000000401000000000004010000000000040100000000000401000000000004010000000000040100000000000401000000000004010000000000040100000000000401000000000004010000020000040100000200000401000002000004010000CF100004010000020000040100000200000401000000000004010000000000040FFFFFFFFFFFF70

SPIC

GROB 5 5 00E0A0E000

CST { EXIT

SHELL }

PPAR { (1,1)

(131,64) X 0 (0,0)

FUNCTION Y }

END

REM

DIR

EXIT

« UPDIR

REM

« 1 \->

« CLLCD 1

CHE 50 TX DROP 256

SRECV DROP2

WHILE W

REPEAT

"REMOTE-BETRIEB

STAND BY

2 DISP LES LEST 2

\->LIST

IF {

12 1 } ==

THEN

"AKTIV" 4 DISP { 0

1 2 3 4 5 6 SEL 8

TON 10 11 QU P.R 14

15 } { 1 0 } D.TX

LES 1 + GET DUP

"PROGRAMM: " SWAP +

6 DISP EVAL { 0 1 }

D.TX

END

DTMF

DIR

PPAR {

(-6.5,-3.1)

(6.5,3.2) X 0 (0,0)

FUNCTION Y }

EXIT

« UPDIR

MONI

« 1 ""

0 { "D" "1" "2" "3"

"4" "5" "6" "7" "8"

"9" "0" "*" "#" "A"

"B" "C" } \-> W S s Z

CLLCD

"DTMF-MONITOR:" 1

DISP 256 SRECV

DROP2

WHILE W

REPEAT LES Z SWAP 1

+ GET S SWAP + DUP

SIZE 's' STO 'S'

STO

IF s 22 >

THEN S s DUP 21 -

SWAP SUB 'S' STO

END S 3 DISP

END

« { 11

} D.TX 1 WAIT { 4 8

6 9 0 } D.TX 3 WAIT

{ 9 5 16 3 6 } D.TX

1 WAIT { 11 } D.TX

D.TEST

« 0 15

FOR n

n 1 \->LIST D.TX 2

WAIT

D.TE2

« 9 CHE

52 TX DROP 25 TX

DROP 18 TX DROP 0

FOR i

64 i + TX DROP

25 TX DROP 19 TX

DROP

CL.S

« CLLCD

"LOG IN" 4 DISP {

11 } D.TX 1 WAIT {

4 8 6 9 0 } D.TX 3

WAIT

"RES. LOG-COUNT" 4

DISP { 9 5 16 3 6 }

D.TX 1 WAIT { 8 7 }

D.TX "MASTER" 4

DISP 2 WAIT { 7 9 7

0 7 0 7 6 7 3 7 8 6

9 } D.TX

"SET CLOCK" 4 DISP

3 WAIT { 0 2 } D.TX

TIME 100 * 0 TRNC

TEIL DUP 1 2 SUB 11

+ SWAP 3 4 SUB + 11

+ { 16 16 16 16 1 }

+ D.TX "EXIT" 4

DISP 1 WAIT { 10 10

} D.TX { 11 } D.TX

MASTER

« { 11

} D.TX 1 WAIT { 4 8

6 9 0 } D.TX 3 WAIT

{ 9 5 16 3 6 } D.TX

1 WAIT { 8 7 } D.TX

2 WAIT { 7 9 7 0 7

0 7 6 7 3 7 8 6 9 }

D.TX 3 WAIT { 10 10

} D.TX { 11 } D.TX

CST {

EXIT MONI }

END

P.R

« 1 0 0 \-> a

Z E

WHILE a

REPEAT

"KANAL: ??" 6 DISP

LEST 'Z' STO

"KANAL: " Z + "?" +

6 DISP LEST 'E'

STO "KANAL: " Z 10

* E + + 6 DISP

IF E

0 \>= Z 0 \>= AND Z 10

* E + 80 \<= AND Z E

+ 0 > AND

THEN

0 'a' STO

ELSE

{ 0 0 0 } D.TX

END

END Z

10 * E + QU UPDIR

CHE FKT PEIL 10 *

HOME PEIL PARA K.S

CHE CLLCD DUP 10 /

" WINKEL: " SWAP

+ " " + 4 DISP HOME

PEIL REM TEIL D.TX

CST { EXIT

REM DTMF }

D.TX

« \-> TXLST

« 52 TX

DROP 28 TX DROP .5

WAIT 1 TXLST SIZE

FOR n

TXLST n GET 64 +

CHR XMIT DROP .08

WAIT

NEXT .1

WAIT 17 TX DROP 53

TX DROP 256 SRECV

DROP2

TEIL

« { } \-> li

« 1 4

START

10 / DUP FP 10 *

'li' STO+ IP

DROP li

SEL

« { 0 4 6 1

6 3 0 0 8 } D.TX 1

WAIT { 11 11 11 11

11 16 16 16 16 16

11 11 11 11 11 16

16 16 16 16 11 11

11 11 11 } D.TX

« { 0 1 0 }

D.TX

LES

WHILE 49

TX 16 - DUP 0 <

REPEAT

DROP .25 WAIT

END

LEST

« 0 \-> n

WHILE

49 TX 16 - DUP 0 <

'n' INCR 20 < AND

REPEAT

DROP .01 WAIT

END

PPAR {

(-6.5,-3.1)

(6.5,3.2) X 0 (0,0)

FUNCTION Y }

TON

« 54 TX

DROP 28 TX DROP .3

WAIT 1400 .05 BEEP

.09 WAIT 1400 .05

BEEP .05 WAIT 17 TX

DROP

END

TIM

DIR

EXIT

« UPDIR

AL15

« DATE TIME

3 TRNC .001 + 'T.P'

15 491520 * 4 \->LIST

STOALARM OFF.

DEL.A

« 1

IFERR

DELALARM

THEN DROP

"Der ALARM

ist bereits gelöscht!"

DOERR

END

NEU

"Me°werte:

Winkel Zeit Tag UB S-WERT Temp.

'TABELLE.TXT' STO

SEDA

« -33 CF

'TABELLE.TXT' SEND

HOME PEIL PARA

'BOOTLOG.TXT' SEND

HOME PEIL TIM -33

CST { EXIT

AL15 DEL.A NEU SEDA

}

TABELLE.TXT

"Me°werte:

Winkel Zeit Tag UB S-WERT Temp.

89.3° 13.00 5.05 13.3V 164 28.6°C

89.3° 20.57 5.07 13.3V 166 31.2°C

T.P

« 8 CHE 23

TX DROP CLLCD

"WARMLAUFEN" 2 DISP

10 0

FOR a

"Zeit: " a + "sek"

+ 4 DISP 1 WAIT -1

STEP "" 4

DISP 256 SRECV

DROP2 HOME PEIL FKT

PEIL DUP 1 FIX 5

DISP "°" + STD " "

+ 2 FIX TIME + STD

" " + DATE 2 TRNC +

" " + 32 TX 10 / +

"V" + " " + 37 TX +

" " + 40 TX \-> X '

2.9417*X^.4328'

EVAL 1 FIX + STD

"°C" + "

" + HOME

PEIL TIM

TABELLE.TXT SWAP +

'TABELLE.TXT' STO

OFF.

END

FKT

DIR

EXIT

« UPDIR

PEIL

« 23 TX

DROP CLLCD

" PHASENMESSUNG:"

2 DISP PICT { # 60d

# 50d }

"PHASENMESSUNG: "

1 \->GROB REPL 256

SRECV DROP2 { 0 0 0

0 } 1 5

START

MESS DUP 2 RND \->STR

DUP SIZE 2 - 3 SWAP

SUB 4 DISP NEG -

NEXT 5 /

DUP 2 RND 3 DISP

PICT { # 60d # 50d

}

"WINKELBESTIMMUNG:"

1 \->GROB REPL WBS

WBS

« { 0 90

180 270 } 1 1 180 0

180 0 \-> Y.lst X.lst

abw\|^ abw\|v \Ga\|^ \Ga\|v \Gai

\Gau

« CLLCD

" WINKELBESTIMMUNG"

4 DISP

WHILE

\Gai .005 >

REPEAT

\Ga\|^ X.lst ADD SIN

Y.lst - ABS \GSLIST

'abw\|^' STO \Ga\|v X.lst

ADD SIN Y.lst - ABS

\GSLIST 'abw\|v' STO

abw\|^ abw\|v < \Ga\|^ \Ga\|v

IFTE '\Gau' STO \Gai 2

/ '\Gai' STO \Gau \Gai +

'\Ga\|^' STO \Gau \Gai -

'\Ga\|v' STO

END \Gau

1 RND DUP

IF 0 <

THEN

360 +

END

MESS

« 1 4

FOR n 32

n + TX 127 - 123 /

IF DUP

0 <

THEN

1.067 *

END

NEXT 4

\->LIST DUP \GSLIST 4 /

- DUP ABS \GSLIST / 2

END

ANZ

DIR

EXIT

« UPDIR

G.S

« -1 0 0 {

# 0d # 0d } -15 100

0 0 0 1 \-> z J s pl

letzt sw durch x h

weiter

« 1 CHE {

# 0d # 0d } PVIEW

ERASE

WHILE

weiter

REPEAT

-15 'letzt' STO 36

'x' STO 0 'durch'

STO -1 'z' STO PICT

PICT { # 37d # 5d }

{ # 123d # 63d }

SUB ERASE { # 37d

# 5d } SWAP REPL {

# 29d # 0d } {

# 29d # 63d } LINE

{ # 20d # 0d } {

# 20d # 63d } LINE

0 1

FOR o

1 9

FOR p PICT { # 32d

} o 94 * R\->B ADD 65

p 6 * - R\->B + p

\->STR 1 \->GROB REPL

NEXT PICT { # 32d

# 5d } o 94 * R\->B {

# 0d } + ADD "+" 1

\->GROB REPL

PICT x R\->B # 14d -

62 sw 4 / - R\->B 'h'

STO h # 2d - 2

\->LIST "S\->" 1 \->GROB

REPL PICT { # 0d

# 0d } "DATE:" 1

\->GROB REPL PICT {

# 0d # 6d } DATE 2

TRNC 2 FIX \->STR 1

\->GROB REPL PICT {

# 0d # 13d }

"TIME:" 1 \->GROB

REPL PICT { # 0d

# 19d } TIME 2 TRNC

\->STR STD 1 \->GROB

REPL PICT { # 0d

# 26d } "SWTC:" 1

\->GROB REPL PICT {

# 0d # 32d } sw

\->STR 1 \->GROB REPL 1

FOR u

PICT { # 0d # 39d }

"CHAN:" 1 \->GROB

REPL PICT { # 0d

# 45d } u \->STR 1

\->GROB REPL PICT {

# 0d # 52d } "S:" 1

\->GROB REPL PICT {

# 0d # 58d } s 1000

/ 3 FIX \->STR STD

TAIL TAIL 1 \->GROB

REPL

IF 'z' INCR 10 ==

THEN 0 'z' STO PICT

'x' INCR R\->B { # 5d

} + # 1d # 59d

BLANK REPL

END u CHE "%" XMIT

SRECV DROP NUM 's'

STO PICT 'x' INCR

R\->B { # 5d } + # 1d

# 59d BLANK REPL x

R\->B 'J' STO J {

# 63d } + DUP {

# 0d } s 4 / R\->B +

- DUP 'pl' STO LINE

x R\->B # 1d + h 2

\->LIST PIXON

IF s sw \>=

THEN 'durch' INCR

DROP

IF u letzt 7 + >

THEN PICT J {

# 0d } + u "" + 1

\->GROB REPL u

'letzt' STO

END

IF KEY

THEN 0 'weiter' STO

80 'u' STO

END

durch

CASE

DUP 3 <

THEN 'sw' -10 STO+

END 3 >

THEN 'sw' 10 STO+

END

DROP2

G.S2

« -1 0 0 {

# 0d # 0d } -15 100

0 0 0 \-> z J s pl

letzt sw durch x h

« 1 CHE {

# 0d # 0d } PVIEW

ERASE 1 20

START

-15 'letzt' STO 36

'x' STO 0 'durch'

STO -1 'z' STO PICT

PICT { # 37d # 5d }

{ # 123d # 63d }

SUB ERASE { # 37d

# 5d } SWAP REPL {

# 29d # 0d } {

# 29d # 63d } LINE

{ # 20d # 0d } {

# 20d # 63d } LINE

0 1

FOR o

1 9

FOR p PICT { # 32d

} o 94 * R\->B ADD 65

p 6 * - R\->B + p

\->STR 1 \->GROB REPL

NEXT PICT { # 32d

# 5d } o 94 * R\->B {

# 0d } + ADD "+" 1

\->GROB REPL

PICT x R\->B # 14d -

62 sw 4 / - R\->B 'h'

STO h # 2d - 2

\->LIST "S\->" 1 \->GROB

REPL PICT { # 0d

# 0d } "DATE:" 1

\->GROB REPL PICT {

# 0d # 6d } DATE 2

TRNC 2 FIX \->STR 1

\->GROB REPL PICT {

# 0d # 13d }

"TIME:" 1 \->GROB

REPL PICT { # 0d

# 19d } TIME 2 TRNC

\->STR STD 1 \->GROB

REPL PICT { # 0d

# 26d } "SWTC:" 1

\->GROB REPL PICT {

# 0d # 32d } sw

\->STR 1 \->GROB REPL 1

FOR u

PICT { # 0d # 39d }

"CHAN:" 1 \->GROB

REPL PICT { # 0d

# 45d } u \->STR 1

\->GROB REPL PICT {

# 0d # 52d } "S:" 1

\->GROB REPL PICT {

# 0d # 58d } s 1000

/ 3 FIX \->STR STD

TAIL TAIL 1 \->GROB

REPL

IF 'z' INCR 10 ==

THEN 0 'z' STO PICT

'x' INCR R\->B { # 5d

} + # 1d # 59d

BLANK REPL

END u CHE "%" XMIT

SRECV DROP NUM 's'

STO PICT 'x' INCR

R\->B { # 5d } + # 1d

# 59d BLANK REPL x

R\->B 'J' STO J {

# 63d } + DUP {

# 0d } s 4 / R\->B +

- DUP 'pl' STO LINE

x R\->B # 1d + h 2

\->LIST PIXON

IF s sw \>=

THEN 'durch' INCR

DROP

IF u letzt 7 + >

THEN PICT J {

# 0d } + u "" + 1

\->GROB REPL u

'letzt' STO

END

durch

CASE

DUP 3 <

THEN 'sw' -10 STO+

END 3 >

THEN 'sw' 10 STO+

END

MESS.

« BUFLEN

DROP SRECV DROP

CLLCD

" A1 A2 A3 A4"

2 DISP 1 1000

START " "

1 4

FOR n n

32 + TX 127 - " " +

NEXT 4

DISP

MES2

« BUFLEN

DROP SRECV DROP

CLLCD 1 1000

START

"S : " 37 TX \-> X

IF X

153 <

THEN

.355 X *

ELSE

.3998 X * 55.991 -

END

DUP 9 >

THEN

9 - 6 * 0 RND "9+"

SWAP + "dB" +

ELSE

1 FIX

END

» + STD

UB : " + 32 TX 10

/ + "V

HF : " + 38

TX + "

REF: " + 39

TX + "

TMP: " + 40

TX \-> X '2.9417*X^

.4328' EVAL 1 FIX +

" + STD "FQ : "

+ 41 TX 127 - 10 /

1 FIX + STD 1 DISP

MES3

« 8 CHE 1

1000

START 1 4

FOR n 0

32 n + TX 132 -

NEXT 0

{ 9 1 } \->ARRY

'\GSDAT' STO BARPLOT

CST { EXIT

G.S MESS. MES2 MES3

}

\GSPAR { 1 2 0

0 LINFIT }

\GSDAT

[[ 0 ]

[ -75 ]

[ 0 ]

[ -109 ]

[ 0 ]

[ -109 ]

[ 0 ]

[ -80 ]

[ 0 ]]

S.TAB { 95.8

102.7 27 22 98 74.8

75.8 120.3 23.8

61.2 138.7 68.3

57.8 81.3 32.7 18.3

62.7 21.3 15 2 2 2

46.5 93.8 152.5

154.8 61.5 95.5

63.7 109.5 103 97.8

2.3 47.8 6.5 15.5

129.7 88.3 65.8

97.8 2 2 22.3 2 2

5.2 98.5 41 2 2 2 2

2 42.7 73.5 69.5

67.5 67.8 55 2 2 2

2 2 2 2 2 2 2 130.8

2 15.8 20 2 2 2 2 2

2 2 }

PPAR {

(0,-125.35) (9,0) X

0 (0,0) BAR Y }

SPEC

« { } \->

s.li

« 1 80

FOR c c

CHE .2 WAIT "%"

XMIT SRECV DROP NUM

DUP 6 DISP 1 RND

's.li' STO+

s.li REVLIST

S.WERT

« CLLCD

"KANAL : " K + 3

DISP 1 1000

START

"S-WERT: " "%" XMIT

SRECV DROP NUM + 5

DISP

END

FUNK

DIR

EXIT

« UPDIR

SEND.

« " " XMIT

DROP "SENDEN

" 1

DISP 1 FREEZE

EMPF.

« " " XMIT

DROP

« UPDIR

PARA K 1 +

IF DUP 80

THEN 80 -

END CHE

UPDIR FUNK

DOWN

« UPDIR

PARA K 1 -

IF DUP 1

THEN 80 +

END CHE

UPDIR FUNK

AFM

« 25 TX

DROP 17 TX DROP

STB.1

« 19 TX

DROP

STB.0

« 18 TX

DROP

ATT.1

« 21 TX

DROP

ATT.0

« 20 TX

DROP

MIC

« 53 TX

DROP 22 TX DROP 18

TX DROP 20 TX DROP

END

DIR

EXIT

« UPDIR

ZEICHEN

"\GS SUMME

\-> PFEIL

== VERGLEICH

« » PRORGAMMPFEILE

< KLEINER ALS

> GROESSER ALS

\<= KLEINER GLEICH

\>= GROESSER GLEICH

Ö OE

ö oe

Ä AE

ä ae

Ü UE

ü ue

\<) WINKEL

µ MUE

\Gw OMEGA KLEIN

\GW OHM

° SZ"

HELP

"Befehlsliste EXIT mit ENTER

00..15 Frei (Bustest)

DEZ HEX:

1X = Stromversorgung

16 10 = Stromversorgung aus

17 11 = Stromversorgung ein

18 12 = STB AUS

19 13 = STB EIN

20 14 = Attenator AUS

21 15 = Attenator EIN

22 16 = Taktgenerator AUS

23 17 = Taktgenerator EIN

24 18 = Frei-1

25 19 = AM-FM Umschaltung

26 1A = Frei-2

27 1B = Frei-3

28 1C = TX-Tastung

29 1D = Frei-4

30 1E = Channal UP

31 1F = Channal DOWN

2X = A/D-Wandler

32 20 = Versorgungsspannung ?

33 21 = Phasennsrung-1 ?

34 22 = Phasennsrung-2 ?

35 23 = Phasennsrung-3 ?

36 24 = Phasennsrung-4 ?

37 25 = S-Wert ?

38 26 = HF-Leistung ?

39 27 = Reflektierte Leistung ?

40 28 = Temperatur ?

41 29 = Frequenzablage ?

42 2A = A/D max TEST -> FF

43 2B = Frei-1

44 2C = Frei-2

45 2D = A/D min TEST -> 00

46 2E = Frei-3

47 2F = Frei-4

3X = Modem RX

48 30 = Statusabfrage

49 31 = n\.Schstes Zeichen lesen

50 32 = L\Gnschen des FIFO's

51 33 = Frei

52 34 = Audio->DTMF

53 35 = Audio->Mic

54 36 = Audio->Systemlautspr.

55 37 = Audio->Sprachspeicher

56 38 = Antwortstest +32->BUS

57 39 = Frei

58 3A = Frei

59 3B = Frei

60 3C = Frei

61 3D = Frei

62 3E = Frei

63 3F = Frei

4X = Modem TX

64 40 = DTMF TON 0

65 41 = DTMF TON 1

66 42 = DTMF TON 2

67 43 = DTMF TON 3

68 44 = DTMF TON 4

69 45 = DTMF TON 5

70 46 = DTMF TON 6

71 47 = DTMF TON 7

72 48 = DTMF TON 8

73 49 = DTMF TON 9

74 4A = DTMF TON *

75 4B = DTMF TON #

76 4C = DTMF TON A

77 4D = DTMF TON B

78 4E = DTMF TON C

79 4F = DTMF TON D

80..255 (50..FF) = Frei

BACK

« -33 CF

HOME 'PEIL' SEND

-33 SF

P.DIS

« -33 CF

-34 SF PICT RCL PR1

DROP

ABGL

« 1 500

FOR i 0

CHR XMIT DROP

C80D

« 1 80

START ""

XMIT DROP .015 WAIT

NEXT 260

SRECV DROP2

C80U

« 1 80

START "-"

XMIT DROP .015 WAIT

NEXT 260

SRECV DROP2

IO.Z

« 1 255

FOR i i

CHR XMIT DROP

« 256 SRECV

DROP

PPAR {

(-6.5,-3.1)

(6.5,3.2) X 0 (0,0)

FUNCTION Y }

END

PARA

DIR

K 9

K.S 1

BOOTLOG.TXT

*****SELBST-TEST******

FRI 05/31/96 10:18:35A

ERRORS: NON

*********END**********

*****SELBST-TEST******

FRI 05/31/96 05:01:49P

ERRORS:

HF-PWR

*********END**********

*****SELBST-TEST******

TUE 06/04/96 10:16:06A

ERRORS: NON

*********END**********

*****SELBST-TEST******

TUE 06/04/96 12:03:46P

ERRORS: NON

*********END**********

*****SELBST-TEST******

TUE 06/04/96 02:42:48P

ERRORS:

*****SELBST-TEST******

WED 06/05/96 09:24:57A

ERRORS:

*****SELBST-TEST******

WED 06/05/96 09:25:31A

ERRORS: NON

*********END**********

END

RESET

« 16 TX DROP

PATH \-> P

« CLLCD TEXT

HOME PEIL PARA

" RESET " 4

DISP 3.5 WAIT 9 'K'

STO 19 TX 17 TX

DROP2 25 TX DROP 22

TX DROP 50 TX DROP

53 TX DROP K.S

CHE 0 TX 256 SRECV

CLEAR P EVAL

« \-> x

« x CHR XMIT

DROP 1 SRECV

THEN NUM

ELSE DROP x

ERHAND

END

CHE

« 0 PATH \-> z k

« HOME PEIL

PARA K 'k' STO

CLLCD

" Kanal:" z +

4 DISP

IF z 80 > z

1 < OR

THEN

" Eingaben ch: 1..80!"

1 DISP 1000 .5 BEEP

1 WAIT k 'z' STO

END

CASE z k <

THEN

IF k z

- 40 <

THEN 1

k z -

START

"" XMIT DROP .015

WAIT

ELSE 1

80 k - z +

START

"-" XMIT DROP .015

WAIT

END

END z k >

THEN

IF z k

- 40 <

THEN 1

z k -

START

"-" XMIT DROP .015

WAIT

ELSE 1

80 z - k +

START

"" XMIT DROP .015

WAIT

END

END BUFLEN

DROP SRECV DROP2 z

'K' STO pa EVAL

S.TST

« \-> ja txt

rol

« 256 SRECV

DROP2

IF ja

THEN txt

" : OK" + 5 .1

ELSE 1 SF

txt " : FAILED!" +

1400 .2 BOOTLOG.TXT

txt DUP "

" POS txt

SIZE SUB +

'BOOTLOG.TXT' STO

END BEEP

+ 'txt' STO

IF rol

THEN txt

DUP "

" POS 1 + txt

SIZE SUB

ELSE txt

END DUP 1

DISP

« \-> sen info

« sen

LES.IO info GET s

» "" PATH \->

anz test str path

"ANFANG DES HAUPTPRG."

DROP CLLCD HOME

PEIL PARA 1 CF

"SELBST-TEST:" DUP

1 DISP BOOTLOG.TXT

*****SELBST-TEST******

+ DATE TIME TSTR +

ERRORS: " +

'BOOTLOG.TXT' STO

17 8 1 test EVAL

+12V " 0 anz

EVAL 17 3 1 test

EVAL "

+5V " 0

anz EVAL 17 1 1

test EVAL

-6V " 0 anz

EVAL 18 7 0 test

EVAL "

STB OFF" 0

anz EVAL 19 7 1

test EVAL

STB ON " 0 anz

EVAL 20 6 0 test

EVAL "

ATT OFF" 0

anz EVAL 21 6 1

test EVAL

ATT ON " 1 anz

EVAL 20 TX DROP 22

5 0 test EVAL

TKT OFF" 1 anz

EVAL 23 5 1 test

EVAL "

TKT ON " 1

anz EVAL 28 4 1

test EVAL

TX SW " 1 anz

EVAL 17 TX DROP .5

WAIT 42 TX 255 ==

A/D-MAX" 1 anz

EVAL 45 TX 0 ==

A/D-MIN" 1 anz

EVAL 38 TX 3 <

HF-DET " 1 anz

EVAL 39 TX 3 <

REV-DET" 1 anz

EVAL 22 TX DROP 28

TX DROP .4 WAIT 38

TX 225 > "

HF-PWR "

1 anz EVAL 39 TX

120 < "

SWR-ANT" 1

anz EVAL 50 TX DUP

16 < SWAP 32 + 56

TX == AND

DTMF-IO" 1 anz

EVAL 17 TX DROP 2

WAIT DROP CLLCD

BOOTLOG.TXT

IF 1 FC?

THEN

" SYSTEM OK" 4

DISP "NON" + 1000

.05 BEEP 1500 .05

BEEP 1 WAIT

ELSE

" TEST FALSE" 4

DISP 100 1 BEEP 2

WAIT

END

*********END**********

+ 'BOOTLOG.TXT' STO

1 CF path EVAL

LES.IO

[ 0 0 0 0 0 0 0 0 ]

9 0 \-> ST AR P z

« ST TX

WHILE DUP

REPEAT 2 /

DUP FP CEIL AR SWAP

'P' DECR SWAP PUT

'AR' STO IP

END DROP AR

ERHAND

« \-> x

« -33 SF .5

WAIT x CHR XMIT

DROP 1 SRECV

THEN NUM

ELSE DROP

CLLCD

" IO antwortet nicht!"

4 DISP 100 1 BEEP 1

WAIT OFF x TX

END

CST { OFF. DIS

REM TIM }

IOPAR { 9600 0 0

0 3 3 }

END