SYS
@TIMESTR
0006
0200A600001300A1000300FA000200000018004333383030300000220080CD78
00A604EB582E04520830805A0A00220A760052060281507A0050CF0250D10006
ED5B06802A0A807EFEFF283FCB7F200D7E1213ED53068023220A8018E3CD7800
640C0828085E1C0C521E00008C1CB0520479826402041402306204027479827A
068402967C06260A0618B5AF12CD780004802F802F80202020803A803A80FF86
000300C380000000000000000000000000000000000000000000000000000000
2CFD
&
PGM
@SETUART
1.  MCP  CD7800548A802500509108509202509301024604
2.  END
&
PGM
@RSTUBUF
1.  MCP 21DE8036FF21DD803600CD780004
2.  END
&
PGM
@GETLN
1.  MCP CD7800527100005800DE526F79820621
2.  MMC 00805E1C3ADD80BB285034AF5721F982
3.  MMC 193E7FA6473A7180FE00200E78FE2030
4.  MMC 09CD780058DE000618C678FE0A2817FE
5.  MMC 0D2813ED5B6F801213ED536F80217180
6.  MMC 347EFE2038B9CD780058DE0074798276
7.  MMC 02818871969CA4DF7104217180AFBE28
8.  MMC 09CD7800A4DF7146DF04CD7800A4DF7104
9.  END
&
PGM
@ASCI
1.  MCP CD7800520402816404045E0404A4DF0404
2.  END
&
SYS
@FILSZ
0003
020050000013004B000300FA000200000018004333383030300000CD78005267
0281029E063A5280FE002009CD7800544800000006CD780050D100507A00600C
48500F008C0CB4DF0430000300C3800000000000000000000000000000000000
122E
&
SYS
@ERASE
0002
0200360000130031000300FA000200000018004333383030300000CD78000292
58524E02A6504E00505000504F000416000300C3800000000000000000000000
0987
&
PGM
@SETLOG
1.  MCP  CD7800548A802500509108509202509301024604
2.  END
&
PGM
@SETNOLOG
1.  MCP  CD7800548A2C0100509107509202509301024604
2.  END
&
PGM
@ENDDAT
1. CNS E
2. STF
3. CON 300
4. MCP CD7800A6F5DF04
5. GSB @SETLOG
6. END
&
PGM
@FINDEND
1. CON 1
2. PSH
3. PSH
4. LCT
5. SLC
6. RCF
7. JPZ 9
8. ICP
9. END
&
PGM
@GETKEY
1. JNK 1
2. RCL 52
3. END
&
PGM
@CHKDIR
1. OPN DIR34
2. LCT
3. XAB
4. CON 1
5. CON 1
6. CON 1
7. SLC
8. POP
9. POP
10. POP
11. RCF
12. CPS
13. JPZ 24
14. TTS
15. POP
16. CON 1
17. SUB
18. JPZ 21
19. ILP
20. JMP 11
21. STF
22. ILP
23. CON 1
24. END
&
PGM
@GETPHASE
1. NOP
2. NOP
3. NOP
4. NOP
5. CON -1
6. STO 50
7. CON 0
8. STO 39
9. CDS 16,48
10. WID 16
11. VUM "Number of CONFIG"
12. CDS 32,0
13. WID 11
14. VUM "1/2/3/4/5/6"
15. CDS 44,0
16. GSB @GETKEY
17. PSH
18. CON 49
19. SUB
20. JNZ 24
21. CNS 1
22. CON 1
23. JMP 71
24. POP
25. PSH
26. CON 50
27. SUB
28. JNZ 32
29. CNS 2
30. CON 2
31. JMP 71
32. POP
33. PSH
34. CON 51
35. SUB
36. JNZ 40
37. CNS 3
38. CON 3
39. JMP 71
40. POP
41. PSH
42. CON 52
43. SUB
44. JNZ 48
45. CNS 4
46. CON 4
47. JMP 71
48. POP
49. PSH
50. CON 53
51. SUB
52. JNZ 56
53. CNS 5
54. CON 5
55. JMP 71
56. POP
57. PSH
58. CON 54
59. SUB
60. JNZ 64
61. CNS 6
62. CON 6
63. JMP 71
64. POP
65. PSH
66. CON 14
67. SUB
68. JPZ 80
69. SNG 60,50
70. JMP 9
71. STF
72. ILP
73. XST
74. STO 17
75. VUD
76. DLY 1
77. DJZ 17,79
78. ICR 17
79. CON 1
80. END
&
PGM
@YESNO
1. JNK 1
2. RCL 52
3. PSH
4. CON 51
5. SUB
6. JPZ 14
7. POP
8. CON 53
9. SUB
10. JPZ 13
11. SNG 60,50
12. JMP 1
13. CON 53
14. END
&
PGM
@GETFNAM
1. GSB @SETNOLOG
2. CDS 16,48
3. VUM "FILE:"
4. CDS 21,0
5. CNS XXXXXXXXX
6. STT
7. KYS
8. CPS
9. JNZ 12
10. SNG 60,50
11. JMP 2
12. GSB @CHKDIR
13. JNZ 21
14. SNG 60,50
15. CDS 16,16
16. VUS
17. CDS 25,0
18. WID 6
19. VUM "exists"
20. JMP 2
21. CDS 16,48
22. WID 16
23. VUM "GPS option  Y/N "
24. CDS 32,0
25. VUM "(Time Stamp at  "
26. CDS 48,0
27. VUM "   each reading)"
28. CDS 31,0
29. GSB @YESNO
30. JPZ 33
31. CON 0
32. JMP 34
33. CON 1
34. STO 46
35. NOP
36. NOP
37. MID 0,7
38. RCL 46
39. JPZ 42
40. CNS @GP34
41. JMP 43
42. CNS @RT34
43. XST
44. CRF
45. RCL 46
46. JPZ 49
47. CNS $G
48. JMP 50
49. CNS $S
50. STF
51. ILP
52. XST
53. CNS Q
54. STF
55. ILP
56. XST
57. GSB @GETPHASE
58. JPZ 57
59. CON 1
60. CNS 1
61. STF
62. ILP
63. XST
64. END
&
PGM
@DECSTN
1. ICR 17
2. DJZ 17,8
3. DCR 18
4. RCL 18
5. JGZ 12
6. RCL 17
7. STO 18
8. RCL 13
9. RCL 14
10. SUB
11. STO 13
12. END
&
PGM
@INCSTN
1. ICR 17
2. DJZ 17,10
3. ICR 18
4. RCL 17
5. RCL 18
6. SUB
7. JPS 14
8. CON 1
9. STO 18
10. RCL 14
11. RCL 13
12. ADD
13. STO 13
14. END
&
PGM
@INCTIME
1. RCL 32
2. RCL 34
3. ADD
4. PSH
5. MOD 6000
6. STO 32
7. POP
8. CON 6000
9. DIV
10. INT
11. RCL 31
12. MOD 100
13. ADD
14. PSH
15. MOD 60
16. STO 20
17. POP
18. CON 60
19. DIV
20. INT
21. RCL 31
22. CON 100
23. DIV
24. INT
25. ADD
26. MOD 24
27. CON 100
28. MLT
29. RCL 20
30. ADD
31. STO 31
32. END
&
PGM
@RCPLC
1. ICR 12
2. ICR 12
3. RCI 12
4. DCR 12
5. RCI 12
6. DCR 12
7. RCI 12
8. SLC
9. END
&
PGM
@DISPST
1. CDS 0,64
2. WID 16
3. GSB @SETLOG
4. RCL 47
5. JGZ 13
6. RCL 29
7. MOD 2
8. JNZ 11
9. VUM "<ENTER> to START"
10. JMP 14
11. VUM "<ENTER> to STOP "
12. JMP 14
13. VUM " TRIGGER to LOG "
14. CDS 16,0
15. WID 2
16. VUM ST
17. CDS 49,0
18. WID 1
19. VUM "/"
20. CDS 32,0
21. WID 2
22. VUM "Q:"
23. CDS 44,0
24. WID 4
25. VUM "mS/m"
26. WID 7
27. CDS 57,0
28. RCL 46
29. JGZ 32
30. VUM "GPS off"
31. JMP 33
32. VUM "GPS on "
33. END
&
PGM
@STNDISP
1. RCL 13
2. DCM 3
3. WID 10
4. CDS 18,0
5. VUA
6. NOP
7. NOP
8. NOP
9. NOP
10. NOP
11. ICR 17
12. DJZ 17,20
13. RCL 18
14. CDS 28,0
15. WID 1
16. VUM ":"
17. CDS 29,0
18. DCM 0
19. VUA
20. END
&
PGM
@MEMO
1. CDS 0,64
2. WID 16
3. CDS 48,0
4. RCL 46
5. JPZ 9
6. VUM " GPS option  ON "
7. CON 12
8. JMP 11
9. VUM " GPS option  OFF"
10. CON 8
11. MEM
12. XAB
13. DIV
14. INT
15. CDS 0,32
16. WID 8
17. VUM "Room for"
18. CDS 11,0
19. DCM 0
20. WID 5
21. VUA
22. CDS 24,0
23. WID 8
24. VUM "readings"
25. CDS 16,0
26. DLY 20
27. END
&
PGM
@SVPLC
1. RLC
2. STI 12
3. POP
4. ICR 12
5. STI 12
6. POP
7. ICR 12
8. STI 12
9. END
&
PGM
@TOGLPS
1. RCL 47
2. JGZ 13
3. ICR 29
4. RCL 29
5. MOD 2
6. STO 29
7. JPZ 14
8. TIM
9. STO 32
10. POP
11. STO 31
12. JMP 14
13. SNG 60,50
14. END
&
PGM
@CHKTIME
1. TIM
2. XAB
3. RCL 31
4. SUB
5. JLZ 13
6. JNZ 11
7. POP
8. RCL 32
9. SUB
10. JLZ 13
11. GSB @INCTIME
12. CON 0
13. END
&
PGM
@GETLAUT
1. RCL 17
2. JGZ 75
3. CDS 16,48
4. WID 11
5. VUM "Trigger A/M"
6. CDS 32,0
7. GSB @GETKEY
8. PSH
9. CON 55
10. SUB
11. JPZ 30
12. POP
13. PSH
14. CON 50
15. SUB
16. JPZ 62
17. POP
18. PSH
19. CON 53
20. SUB
21. JPZ 75
22. POP
23. PSH
24. CON 14
25. SUB
26. JPZ 114
27. SNG 60,50
28. JMP 1
29. SNG 60,50
30. CDS 16,48
31. WID 12
32. VUM "   AUTO MODE"
33. CDS 32,0
34. WID 13
35. VUM "Time Interval"
36. WID 12
37. CDS 48,0
38. VUM "(min 0.4s): "
39. CDS 59,0
40. WID 4
41. KYA
42. JPZ 29
43. ABS
44. PSH
45. CON .1
46. SUB
47. JPS 49
48. JMP 29
49. CNS A
50. STF
51. ILP
52. POP
53. MCP CD780050CF0550D101AEDF5204798278047602819A04
54. STF
55. STO 30
56. CON 100
57. MLT
58. STO 34
59. CON 0
60. STO 47
61. JMP 113
62. CON -1
63. STO 47
64. CNS W
65. CDS 16,48
66. WID 16
67. VUM "   WHEEL MODE   "
68. CDS 32,0
69. VUM "Enter Increment:"
70. CDS 48,0
71. WID 8
72. KYA
73. STO 14
74. JMP 78
75. CON 1
76. STO 47
77. CNS M
78. STF
79. ILP
80. CDS 16,48
81. WID 13
82. VUM "  MANUAL MODE"
83. CDS 32,0
84. WID 15
85. VUM "Samples/Reading"
86. WID 12
87. CDS 48,0
88. VUM "(max. 100): "
89. CDS 59,0
90. WID 4
91. KYA
92. ABS
93. PSH
94. CON 600
95. SUB
96. JGZ 104
97. POP
98. PSH
99. CON 1
100. SUB
101. JGZ 106
102. CON 1
103. JMP 107
104. CON 100
105. JMP 107
106. POP
107. MCP CD780050CF0550D101AEDF5204798278047602819A04
108. STF
109. STO 30
110. CON 0
111. STO 29
112. STO 34
113. CON 1
114. ILP
115. END
&
PGM
@GTDIR
1. WID 11
2. CDS 16,48
3. VUM "Dir W/E/S/N"
4. CDS 32,0
5. GSB @GETKEY
6. PSH
7. CON 50
8. SUB
9. JPZ 32
10. POP
11. PSH
12. CON 56
13. SUB
14. JPZ 34
15. POP
16. PSH
17. CON 53
18. SUB
19. JPZ 36
20. POP
21. PSH
22. CON 49
23. SUB
24. JPZ 38
25. POP
26. PSH
27. CON 14
28. SUB
29. JPZ 44
30. SNG 60,50
31. JMP 1
32. CNS W
33. JMP 39
34. CNS E
35. JMP 39
36. CNS N
37. JMP 39
38. CNS S
39. STF
40. VUS
41. DLY 3
42. CON 1
43. ILP
44. END
&
PGM
@GTLNUM
1. CDS 16,48
2. CON 1
3. STO 18
4. RCL 19
5. JPZ 32
6. CON 26
7. STO 12
8. GSB @SVPLC
9. CON 1
10. RCL 19
11. CON 1
12. SLC
13. CDS 32,0
14. WID 6
15. VUM "Last: "
16. WID 8
17. CDS 38,0
18. RCF
19. MID 1,8
20. VUS
21. CON 26
22. STO 12
23. GSB @RCPLC
24. WID 16
25. CDS 48,0
26. RCL 46
27. JPZ 30
28. VUM " GPS option  ON "
29. JMP 31
30. VUM " GPS option  OFF"
31. POP
32. RLC
33. POP
34. STO 19
35. CON 1
36. SLC
37. CDS 16,0
38. WID 6
39. VUM "LINE: "
40. CDS 22,0
41. WID 8
42. KYS
43. MID 0,8
44. CNS L
45. SAD
46. STF
47. ILP
48. CON 92
49. TIM
50. GSB @TIMESTR
51. STT
52. MID 0,8
53. STF
54. ILP
55. TTS
56. MID 11,8
57. STF
58. ILP
59. RCL 52
60. CON 14
61. SUB
62. END
&
PGM
@GETOPER
1. WID 13
2. CDS 16,32
3. VUM "Operator Name"
4. CDS 32,0
5. WID 14
6. VUM "(max. 7 char.)"
7. CDS 48,0
8. KYN
9. ILP
10. END
&
PGM
@GETSINC
1. CDS 16,48
2. RCL 47
3. JGZ 64
4. WID 15
5. VUM "Increment (+/-)"
6. CDS 32,0
7. GSB @GETKEY
8. PSH
9. CON 48
10. SUB
11. JPZ 24
12. POP
13. PSH
14. CON 46
15. SUB
16. JPZ 39
17. POP
18. PSH
19. CON 14
20. SUB
21. JPZ 74
22. SNG 60,50
23. JMP 6
24. RCL 30
25. JPZ 32
26. CNS 1
27. CNS I
28. SAD
29. STF
30. CON 1
31. JMP 55
32. RCL 14
33. ABS
34. MCP CD780050CF0950D103AEDF5204798278047602819A04
35. CNS I
36. SAD
37. STF
38. JMP 55
39. RCL 30
40. JPZ 47
41. CNS -1
42. CNS I
43. SAD
44. STF
45. CON -1
46. JMP 55
47. RCL 14
48. ABS
49. CON -1
50. MLT
51. MCP CD780050CF0950D103AEDF5204798278047602819A04
52. CNS I
53. SAD
54. STF
55. STO 14
56. CDS 32,1
57. WID 7
58. DCM 3
59. VUA
60. DLY 1
61. JMP 74
62. SNG 60,50
63. CDS 16,48
64. WID 15
65. VUM "Enter Increment"
66. CDS 32,0
67. KYA
68. JPZ 62
69. STO 14
70. MCP CD780050CF0950D103AEDF5204798278047602819A04
71. CNS I
72. SAD
73. STF
74. CON 1
75. ILP
76. END
&
PGM
@GTNSST
1. CDS 16,48
2. WID 13
3. VUM "Start Station"
4. CDS 32,0
5. KYA
6. STO 13
7. MCP CD780050CF0950D103AEDF5204798278047602819A04
8. MID 0,10
9. CNS N
10. SAD
11. STF
12. ILP
13. CON 1
14. END
&
PGM
@GTSST
1. CDS 16,48
2. WID 13
3. VUM "Start Station"
4. CDS 32,0
5. KYA
6. STO 13
7. MCP CD780050CF0950D103AEDF5204798278047602819A04
8. MID 0,10
9. STF
10. ILP
11. CON 1
12. END
&
PGM
@SKIPST
1. CNS S
2. STF
3. ILP
4. GSB @INCSTN
5. END
&
PGM
@GETGN
1. WID 1
2. GSB @ASCI
3. PSH
4. CDS 31,0
5. CON 64
6. AND
7. JPZ 10
8. VUM "M"
9. JMP 11
10. VUM " "
11. POP
12. PSH
13. CDS 48,0
14. CON 32
15. AND
16. JPZ 19
17. VUM "H"
18. JMP 20
19. VUM "V"
20. POP
21. PSH
22. WID 3
23. CDS 50,0
24. CON 24
25. AND
26. CON 24
27. SUB
28. JNZ 31
29. VUM "40m"
30. JMP 41
31. POP
32. PSH
33. CON 16
34. AND
35. CON 16
36. SUB
37. JNZ 40
38. VUM "10m"
39. JMP 41
40. VUM "20m"
41. NOP
42. POP
43. PSH
44. CON 6
45. AND
46. CON 6
47. SUB
48. JNZ 51
49. CON -.25
50. JMP 88
51. POP
52. PSH
53. CON 5
54. AND
55. CON 5
56. SUB
57. JNZ 60
58. CON -.075
59. JMP 88
60. POP
61. PSH
62. CON 4
63. AND
64. CON 4
65. SUB
66. JNZ 69
67. CON -.025
68. JMP 88
69. POP
70. PSH
71. CON 3
72. AND
73. CON 3
74. SUB
75. JNZ 78
76. CON -.0075
77. JMP 88
78. POP
79. PSH
80. CON 2
81. AND
82. CON 2
83. SUB
84. JNZ 87
85. CON -.0025
86. JMP 88
87. CON -.00075
88. STO 49
89. POP
90. PSH
91. END
&
PGM
@DATDISP
1. MID 1,1
2. GSB @GETGN
3. TTS
4. MID 2,1
5. GSB @ASCI
6. CON 43
7. SUB
8. JPZ 11
9. CON -1
10. JMP 12
11. CON 1
12. STO 41
13. TTS
14. DCM 3
15. WID 9
16. MID 3,4
17. VAL
18. RCL 49
19. MLT
20. RCL 41
21. MLT
22. CDS 34,0
23. VUA
24. END
&
PGM
@VIEWDAT
1. CDS 16,0
2. WID 2
3. VUM ST
4. GSB @STNDISP
5. RCF
6. STT
7. MID 0,1
8. GSB @ASCI
9. CON 83
10. SUB
11. JPZ 15
12. TTS
13. GSB @DATDISP
14. JMP 19
15. GSB @STNDISP
16. WID 4
17. CDS 34,9
18. VUM Skip
19. END
&
PGM
@COMMNT
1. CDS 0,64
2. WID 16
3. CDS 48,0
4. RCL 46
5. JPZ 8
6. VUM " GPS option  ON "
7. JMP 9
8. VUM " GPS option  OFF"
9. WID 14
10. CDS 0,0
11. VUM "Enter Comment:"
12. WID 16
13. CDS 16,0
14. RCL 46
15. JGZ 22
16. VUM " (max. 6 char.) "
17. WID 7
18. CDS 32,0
19. KYS
20. MID 0,6
21. JMP 27
22. VUM " (max. 6 char.)"
23. WID 12
24. CDS 32,0
25. KYS
26. MID 0,11
27. CNS C
28. SAD
29. STF
30. ILP
31. END
&
PGM
@IFFLAG
1. RCF
2. MID 0,1
3. CNS I
4. CPS
5. JPZ 23
6. TTS
7. CNS N
8. CPS
9. JPZ 23
10. TTS
11. CNS D
12. CPS
13. JNZ 16
14. CON 2
15. JMP 23
16. TTS
17. CNS C
18. CPS
19. JNZ 22
20. CON 2
21. JMP 23
22. CON 1
23. END
&
PGM
@DELLAST
1. CDS 0,16
2. WID 6
3. VUM "Delete"
4. CON 23
5. STO 12
6. GSB @SVPLC
7. CON 0
8. STO 36
9. RLC
10. POP
11. CON 1
12. SUB
13. JPZ 45
14. CON 1
15. SLC
16. GSB @IFFLAG
17. JPZ 45
18. CON 1
19. SUB
20. JPZ 22
21. JMP 9
22. CON 1
23. STO 36
24. GSB @DECSTN
25. CNS D
26. GSB @VIEWDAT
27. XST
28. GSB @INCSTN
29. GSB @GETKEY
30. CON 56
31. SUB
32. JNZ 52
33. GSB @DECSTN
34. RCF
35. MID 1,12
36. CNS D
37. SAD
38. STF
39. CDS 15,0
40. WID 1
41. VUM X
42. WID 16
43. DLY 5
44. JMP 9
45. SNG 60,50
46. ICR 36
47. DJZ 36,52
48. GSB @GETKEY
49. CON 56
50. SUB
51. JPZ 45
52. CON 23
53. STO 12
54. GSB @RCPLC
55. END
&
PGM
@GTLINE
1. GSB @GTLNUM
2. JPZ 9
3. GSB @GTDIR
4. JPZ 1
5. GSB @GTSST
6. JPZ 3
7. GSB @GETSINC
8. JPZ 5
9. END
&
PGM
@HDRGEN
1. GSB @GETOPER
2. GSB @GETLAUT
3. END
&
PGM
@NSTATN
1. GSB @GTNSST
2. GSB @GETSINC
3. END
&
PGM
@RECALLD
1. CDS 0,64
2. WID 6
3. VUM "Recall"
4. CON 23
5. STO 12
6. GSB @SVPLC
7. RCL 13
8. STO 20
9. RCL 18
10. STO 21
11. CON 0
12. STO 36
13. RLC
14. POP
15. CON 1
16. SUB
17. JPZ 33
18. CON 1
19. SLC
20. GSB @IFFLAG
21. JPZ 33
22. CON 1
23. SUB
24. JPZ 26
25. JMP 13
26. CON 1
27. STO 36
28. CNS R
29. GSB @DECSTN
30. GSB @VIEWDAT
31. XST
32. JMP 41
33. SNG 60,50
34. ICR 36
35. DJZ 36,45
36. GSB @GETKEY
37. CON 54
38. SUB
39. JPZ 33
40. JMP 45
41. GSB @GETKEY
42. CON 54
43. SUB
44. JPZ 13
45. CON 23
46. STO 12
47. GSB @RCPLC
48. RCL 20
49. STO 13
50. RCL 21
51. STO 18
52. CDS 0,64
53. END
&
PGM
@INTEG
1. TTS
2. MID 1,1
3. GSB @GETGN
4. TTS
5. CON 0
6. STO 43
7. STO 44
8. STO 45
9. CDS 0,16
10. WID 13
11. VUM "Sample  0 of "
12. RCL 30
13. WID 3
14. DCM 0
15. CDS 13,0
16. VUA
17. JMP 30
18. GSB @RSTUBUF
19. NOP
20. GSB @GETLN
21. JGZ 23
22. JMP 19
23. STT
24. MID 0,1
25. GSB @ASCI
26. CON 84
27. SUB
28. JPZ 30
29. JMP 19
30. TTS
31. MID 2,1
32. GSB @ASCI
33. CON 43
34. SUB
35. JPZ 38
36. CON -1
37. JMP 39
38. CON 1
39. STO 41
40. TTS
41. NOP
42. NOP
43. NOP
44. NOP
45. NOP
46. NOP
47. NOP
48. NOP
49. NOP
50. NOP
51. MID 3,4
52. VAL
53. RCL 41
54. MLT
55. RCL 43
56. ADD
57. STO 43
58. TTS
59. NOP
60. NOP
61. NOP
62. NOP
63. NOP
64. NOP
65. NOP
66. ICR 45
67. RCL 30
68. RCL 45
69. CDS 6,0
70. VUA
71. SUB
72. JGZ 18
73. NOP
74. DCM 3
75. WID 9
76. TTS
77. MID 0,2
78. STT
79. RCL 43
80. RCL 30
81. DIV
82. MCP CD780050CF0550D100AEDF5204798278047602819A04
83. XST
84. SAD
85. STT
86. RCL 49
87. MLT
88. CDS 34,0
89. VUA
90. NOP
91. NOP
92. JMP 103
93. RCL 44
94. RCL 30
95. DIV
96. MCP CD780050CF0550D100AEDF5204798278047602819A04
97. XST
98. SAD
99. CON -.0025
100. MLT
101. CDS 50,0
102. VUA
103. STF
104. RCL 46
105. JPZ 115
106. TIM 
107. ICP
108. STF
109. POP
110. ICP
111. STF
112. POP
113. ICP
114. JMP 116
115. ILP
116. SNG 50,1
117. CDS 0,16
118. WID 15
119. VUM " Trigger to LOG"
120. END
&
PGM
@UPDATE
1. WID 2
2. CDS 32,0
3. VUM "Q:"
4. CDS 44,0
5. WID 4
6. VUM "mS/m"
7. CDS 49,0
8. WID 1
9. VUM "/"
10. GSB @RSTUBUF
11. JKY 32
12. GSB @GETLN
13. JGZ 15
14. JMP 11
15. STT
16. MID 0,1
17. GSB @ASCI
18. CON 84
19. SUB
20. JPZ 26
21. JMP 11
22. NOP
23. NOP
24. NOP
25. JPZ 29
26. TTS
27. GSB @DATDISP
28. JMP 10
29. TTS
30. NOP
31. JMP 10
32. RCL 52
33. CDS 0,64
34. END
&
PGM
@WAITMN
1. GSB @RSTUBUF
2. JKY 51
3. GSB @GETLN
4. JGZ 6
5. JMP 2
6. STT
7. MID 0,1
8. GSB @ASCI
9. CON 84
10. SUB
11. JPZ 13
12. JNZ 2
13. INP
14. CON 7
15. SUB
16. JPZ 56
17. TTS
18. MID 1,1
19. GSB @ASCI
20. PSH
21. CON 64
22. AND
23. JNZ 26
24. STO 37
25. JMP 53
26. POP
27. RCL 37
28. XAB
29. STO 37
30. SUB
31. JPZ 53
32. RCL 30
33. CON 1
34. SUB
35. JPZ 39
36. JLZ 39
37. GSB @INTEG
38. JMP 48
39. TTS
40. NOP
41. NOP
42. NOP
43. NOP
44. STF
45. ILP
46. SNG 50,1
47. GSB @DATDISP
48. GSB @INCSTN
49. GSB @STNDISP
50. JMP 1
51. RCL 52
52. JMP 59
53. TTS
54. GSB @DATDISP
55. JMP 1
56. TTS
57. NOP 
58. JMP 1
59. END
&
PGM
@WTMGPS
1. GSB @RSTUBUF
2. JKY 58
3. GSB @GETLN
4. JGZ 6
5. JMP 2
6. STT
7. MID 0,1
8. GSB @ASCI
9. CON 84
10. SUB
11. JPZ 13
12. JNZ 2
13. INP
14. CON 7
15. SUB
16. JPZ 63
17. TTS
18. MID 1,1
19. GSB @ASCI
20. PSH
21. CON 64
22. AND
23. JNZ 26
24. STO 37
25. JMP 60
26. POP
27. RCL 37
28. XAB
29. STO 37
30. SUB
31. JPZ 60
32. RCL 30
33. CON 1
34. SUB
35. JPZ 39
36. JLZ 39
37. GSB @INTEG
38. JMP 55
39. TTS
40. NOP
41. NOP
42. NOP
43. NOP
44. STF
45. TIM
46. ICP
47. STF
48. POP
49. ICP
50. STF
51. POP
52. ICP
53. SNG 50,1
54. GSB @DATDISP
55. GSB @INCSTN
56. GSB @STNDISP
57. JMP 1
58. RCL 52
59. JMP 66
60. TTS
61. GSB @DATDISP
62. JMP 1
63. TTS
64. NOP
65. JMP 1
66. END
&
PGM
@WAITAF
1. GSB @RSTUBUF
2. JNK 4
3. JMP 35
4. GSB @CHKTIME
5. JNZ 2
6. GSB @RSTUBUF
7. JKY 35
8. GSB @GETLN
9. JGZ 11
10. JMP 7
11. STT
12. MID 0,1
13. GSB @ASCI
14. CON 84
15. SUB
16. JPZ 18
17. JMP 7
18. NOP
19. NOP
20. NOP
21. NOP
22. CDS 29,1
23. TTS
24. NOP
25. NOP
26. NOP
27. NOP
28. STF
29. SNG 50,1
30. ILP
31. GSB @DATDISP
32. GSB @INCSTN
33. GSB @STNDISP
34. JMP 2
35. RCL 52
36. JMP 40
37. TTS
38. NOP
39. JMP 2
40. END
&
PGM
@WTAGPS
1. GSB @RSTUBUF
2. JNK 4
3. JMP 42
4. GSB @CHKTIME
5. JNZ 2
6. GSB @RSTUBUF
7. JKY 42
8. GSB @GETLN
9. JGZ 11
10. JMP 7
11. STT
12. MID 0,1
13. GSB @ASCI
14. CON 84
15. SUB
16. JPZ 18
17. JMP 7
18. NOP
19. NOP
20. NOP
21. NOP
22. CDS 29,1
23. TTS
24. NOP
25. NOP
26. NOP
27. NOP
28. STF
29. TIM
30. ICP
31. STF
32. POP
33. ICP
34. STF
35. POP
36. ICP
37. SNG 50,1
38. GSB @DATDISP
39. GSB @INCSTN
40. GSB @STNDISP
41. JMP 2
42. RCL 52
43. JMP 47
44. TTS
45. NOP
46. JMP 2
47. END
&
PGM
@WAITAX
1. GSB @RSTUBUF
2. JNK 4
3. JMP 30
4. GSB @RSTUBUF
5. JKY 30
6. GSB @GETLN
7. JGZ 9
8. JMP 5
9. STT
10. MID 0,1
11. GSB @ASCI
12. CON 84
13. SUB
14. JPZ 16
15. JMP 5
16. CDS 29,1
17. TTS
18. NOP
19. NOP
20. NOP
21. NOP
22. STF
23. SNG 50,1
24. ILP
25. GSB @DATDISP
26. GSB @INCSTN
27. GSB @STNDISP
28. NOP
29. JMP 2
30. RCL 52
31. END
&
PGM
@NEWLN
1. CDS 0,16
2. WID 16
3. VUM " EM34RT  LOGGER "
4. GSB @GTLINE
5. END
&
PGM
CREATEDIR
1. CNS @DIRF34
2. CNS DIR34
3. CRF
4. CON 1
5. CON 1
6. CON 1
7. SLC
8. CNS ALL
9. STF
10. CDS 0,64
11. WID 16
12. VUM "DIR34   created"
13. CDS 16,0
14. WID 3
15. VUM "OK."
16. DLY 3
17. END
&
PGM
DUMP34W
1. GSB @SETLOG
2. DCM 0
3. CDS 0, 64
4. CON 0
5. STO 30
6. WID 16
7. VUM " DATA FILE COPY "
8. CDS 16, 16
9. VUM "READY  "
10. CDS 32, 0
11. VUM "waiting for"
12. CDS 48, 0
13. VUM "    entry in PC"
14. CDS 23, 0
15. CNS XXXXXXXXX
16. STT
17. RDS
18. CDS 0, 9
19. WID 9
20. VUM "#########"
21. CDS 0, 0
22. VUS
23. NOP
24. CPS
25. JNZ 29
26. SNG 60, 50
27. GSB @SETNOLOG
28. END
29. CNS "DIR34"
30. CPS
31. CDS 16, 10
32. WID 10
33. VUS
34. CDS 27, 3
35. WID 3
36. VUA
37. JPZ 118
38. TTS
39. CNS XXXXXXXXX
40. CPS
41. JPZ 2
42. TTS
43. MID 0, 9
44. GSB @FILSZ
45. CDS 32, 32
46. WID 10
47. VUS
48. CDS 48, 0
49. VUA
50. JPZ 99
51. SWF
52. MID 1, 30
53. STT
54. LCT
55. POP
56. STO 11
57. CON 1
58. PSH
59. PSH
60. SLC
61. CDS 32, 32
62. WID 10
63. RCL 11
64. VUA
65. TRA
66. JMP 74
67. GSB @RSTUBUF
68. CON 0
69. RDA
70. CDS 60, 0
71. WID 4
72. VUA
73. JPZ 67
74. DLY 1
75. WID 10
76. CDS 48, 0
77. VUM "working..."
78. JMP 82
79. CON 0
80. RDA
81. JPZ 78
82. GSB @RSTUBUF
83. TRL
84. DJZ 11, 91
85. RCL 11
86. WID 4
87. CDS 60, 0
88. VUA
89. ILP
90. JMP 82
91. GSB @RSTUBUF
92. NOP
93. NOP
94. WID 5
95. CNS ####
96. TRS
97. TRL
98. JMP 2
99. SNG 50, 2
100. CNS !!!!
101. TRS
102. CDS 0, 64
103. WID 16
104. ICR 30
105. DJZ 30, 108
106. VUM "DIR34           "
107. JMP 109
108. VUM "SPECIFIED FILE  "
109. CDS 16, 0
110. VUM "  DOES NOT EXIST"
111. CDS 32, 0
112. VUM "CHECK MODE 4-1  "
113. CDS 48, 0
114. VUM "   PRESS ANY KEY"
115. DLY 10
116. JMP 2
117. END
118. DCM 0
119. ICR 30
120. CNS DIR34
121. GSB @FILSZ
122. CDS 32, 32
123. WID 4
124. VUA
125. JPZ 99
126. SWF
127. LCT
128. POP
129. STO 31
130. CON 1
131. PSH
132. PSH
133. SLC
134. CDS 53, 4
135. WID 4
136. RCL 31
137. VUA
138. TRA
139. TRL
140. ILP
141. DCR 31
142. WID 4
143. CDS 48, 0
144. VUM "TX: "
145. WID 6
146. CDS 53, 4
147. RCL 31
148. VUA
149. JMP 156
150. GSB @RSTUBUF
151. CON 53
152. RDA
153. SUB
154. JNZ 150
155. TRL
156. GSB @RSTUBUF
157. JMP 161
158. RDA
159. SUB
160. JNZ 156
161. RCF
162. GSB @FILSZ
163. TRA
164. TRL
165. DJZ 31, 168
166. ILP
167. JMP 146
168. GSB @RSTUBUF
169. JMP 173
170. RDA
171. SUB
172. JPZ 168
173. CNS ####
174. GSB @RSTUBUF
175. TRS
176. TRL
177. JMP 2
178. END
&
PGM
DUMP34RT
1. GSB @SETLOG
2. CDS 0,64
3. CON 0
4. STO 30
5. WID 16
6. VUM " DATA FILE COPY "
7. CDS 16,16
8. VUM "READY  "
9. CDS 32,0
10. VUM "waiting for"
11. CDS 48,0
12. VUM "    entry in PC"
13. CDS 23,0
14. CNS XXXXXXXXX
15. STT
16. RDS
17. CPS
18. JNZ 22
19. SNG 60,50
20. GSB @SETNOLOG
21. END
22. CNS "ALL"
23. CPS
24. JPZ 87
25. TTS
26. CNS XXXXX????
27. CPS
28. JPZ 2
29. TTS
30. MID 0,9
31. GSB @FILSZ
32. CDS 32,32
33. WID 10
34. VUS
35. DCM 0
36. CDS 48,0
37. VUA
38. JPZ 68
39. SWF
40. MID 1,30
41. STT
42. LCT
43. POP
44. STO 11
45. CON 1
46. PSH
47. PSH
48. SLC
49. CDS 32,32
50. WID 10
51. RCL 11
52. VUA
53. TRA
54. CON 0
55. RDA
56. JPZ 54
57. DLY 2
58. CDS 48,0
59. VUM "working..."
60. TRL
61. DJZ 11,64
62. ILP
63. JMP 60
64. CON 0
65. RDA
66. JPZ 64
67. JMP 2
68. SNG 50,1
69. CON -1
70. TRA
71. CDS 0,64
72. WID 16
73. ICR 30
74. DJZ 30,77
75. VUM "DIR34           "
76. JMP 78
77. VUM "Specified file  "
78. CDS 16,0
79. VUM "  does not exist"
80. CDS 32,0
81. VUM "Check MODE 4-1  "
82. CDS 48,0
83. VUM "   press any key"
84. DLY 10
85. JMP 2
86. END
87. ICR 30
88. CNS DIR34
89. SWF
90. GSB @FILSZ
91. CDS 32,32
92. WID 10
93. JPZ 68
94. LCT
95. POP
96. STO 31
97. CON 1
98. PSH
99. PSH
100. SLC
101. CDS 32,32
102. WID 10
103. RCL 31
104. VUA
105. TRA
106. CON 0
107. RDA
108. JPZ 106
109. DLY 2
110. CDS 48,0
111. VUM "working..."
112. ILP
113. DCR 31
114. TRL
115. DJZ 31,118
116. ILP
117. JMP 114
118. CON 0
119. RDA
120. JPZ 118
121. JMP 2
122. END
&
PGM
EM34RT
1. GSB @SETNOLOG
2. CDS 0,64
3. CON 1
4. STO 50
5. CON -99
6. STO 29
7. WID 16
8. GSB @SETLOG
9. CDS 0,0
10. VUM "After Set Up    "
11. CDS 16,0
12. VUM "press any key   "
13. GSB @UPDATE
14. GSB @SETNOLOG
15. CDS 0,64
16. WID 16
17. VUM " EM34RT  LOGGER "
18. CDS 16,0
19. VUM " Set clock? Y/N "
20. CDS 59,0
21. WID 5
22. VUM "V3.70"
23. GSB @YESNO
24. JNZ 38
25. WID 16
26. CDS 0,32
27. VUM "press any key,  "
28. CDS 16,0
29. VUM "  use MODE 7-1, "
30. CDS 32,0
31. VUM "  and run EM34RT"
32. JNK 32
33. END
34. CDS 0,64
35. WID 16
36. GSB @SETNOLOG
37. VUM " EM34RT  LOGGER "
38. CON 1800
39. MCP CD7800A6F5DF04
40. MCP CD7800548A802500509108509202509301024604
41. CDS 16,48
42. CON 0
43. STO 37
44. STO 16
45. STO 17
46. STO 19
47. STO 35
48. STO 29
49. STO 30
50. GSB @GETFNAM
51. CON 1
52. GSB @HDRGEN
53. JPZ 34
54. RCL 24
55. STO 11
56. GSB @GTLINE
57. JPZ 52
58. NOP
59. CDS 0,64
60. WID 16
61. VUM READY
62. CDS 16,0
63. VUM "  <ENTER> to LOG"
64. GSB @GETKEY
65. CON 13
66. SUB
67. JNZ 64
68. GSB @DISPST
69. GSB @STNDISP
70. NOP
71. RCL 47
72. JGZ 92
73. JLZ 84
74. ICR 29
75. DJN 29,86
76. CDS 16,10
77. WID 12
78. VUM "not logging "
79. GSB @SETLOG
80. GSB @UPDATE
81. GSB @SETNOLOG
82. RCL 52
83. JMP 97
84. GSB @WAITAX
85. JMP 97
86. RCL 46
87. JPZ 90
88. GSB @WTAGPS
89. JMP 97
90. GSB @WAITAF
91. JMP 97
92. RCL 46
93. JPZ 96
94. GSB @WTMGPS
95. JMP 97
96. GSB @WAITMN
97. GSB @SETNOLOG
98. PSH
99. CON 56
100. SUB
101. JPZ 150
102. POP
103. PSH
104. CON 54
105. SUB
106. JPZ 152
107. POP
108. PSH
109. CON 69
110. SUB
111. JPZ 166
112. POP
113. PSH
114. CON 55
115. SUB
116. JPZ 154
117. POP
118. PSH
119. CON 52
120. SUB
121. JPZ 160
122. POP
123. PSH
124. CON 53
125. SUB
126. JPZ 156
127. POP
128. PSH
129. CON 49
130. SUB
131. JPZ 162
132. POP
133. PSH
134. CON 90
135. SUB
136. JPZ 169
137. POP
138. PSH
139. CON 50
140. SUB
141. JPZ 164
142. POP
143. PSH
144. CON 13
145. SUB
146. JPZ 171
147. SNG 50,50
148. POP
149. JMP 68
150. GSB @DELLAST
151. JMP 192
152. GSB @RECALLD
153. JMP 192
154. GSB @COMMNT
155. JMP 192
156. NOP
157. NOP
158. GSB @SKIPST
159. JMP 192
160. GSB @NEWLN
161. JMP 58
162. GSB @NSTATN
163. JMP 192
164. GSB @MEMO
165. JMP 192
166. GSB @ENDDAT
167. GSB @SETNOLOG
168. JMP 1
169. GSB @ENDDAT
170. ZZZ
171. GSB @TOGLPS
172. JMP 68
173. JMP 192
174. CON 540
175. ADD
176. JLZ 184
177. CDS 0,16
178. WID 16
179. VUM " MEMORY WARNING"
180. SNG 30,20
181. SNG 45,5
182. SNG 60,15
183. JMP 68
184. GSB @ENDDAT
185. CDS 0,32
186. WID 16
187. VUM MEMORY FULL
188. SNG 60,50
189. DLY 5
190. SNG 40,50
191. JMP 188
192. ICR 30
193. DJZ 30,68
194. ICR 29
195. DJZ 29,68
196. GSB @CHKTIME
197. JNZ 68
198. TIM
199. STO 32
200. POP
201. STO 31
202. JMP 68
203. END
#
