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. RCL 46
2. JPZ 5
3. CNS X
4. STF
5. CON 300
6. MCP CD7800A6F5DF04
7. GSB @SETLOG
8. 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 DIR38D
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
@GTIN38D
1. CON -1
2. STO 50
3. CDS 16,48
4. WID 16
5. VUM "Instruments     "
6. WID 16
7. CDS 32,0
8. VUM "        1 or 2  "
9. WID 16
10. CDS 48,0
11. VUM "(default is 2): "
12. CDS 63,0
13. WID 1
14. GSB @GETKEY
15. PSH
16. CON 49
17. SUB
18. JPZ 36
19. POP
20. PSH
21. CON 50
22. SUB
23. JPZ 42
24. POP
25. PSH
26. CON 13
27. SUB
28. JPZ 42
29. POP
30. PSH
31. CON 14
32. SUB
33. JPZ 48
34. SNG 60,50
35. JMP 1
36. VUM "1"
37. CON 0
38. STO 50
39. POP
40. POP
41. JMP 47
42. VUM "2"
43. CON 1
44. STO 50
45. POP
46. POP
47. DLY 1
48. 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
@GTLOG38D
1. CDS 16,48
2. WID 16
3. VUM "Record data Y/N "
4. CDS 32,0
5. VUM "(log data in the"
6. CDS 48,0
7. VUM "   Polycorder): "
8. CDS 63,0
9. GSB @YESNO
10. JPZ 16
11. CON 1
12. STO 14
13. CON 0
14. STO 13
15. JMP 17
16. CON 1
17. STO 46
18. END
&
PGM
@GTFIL38D
1. GSB @SETNOLOG
2. GSB @GTLOG38D
3. JPZ 33
4. CDS 16,48
5. WID 5
6. VUM "FILE:"
7. WID 16
8. CDS 48,0
9. VUM "(maximum 7 char)"
10. CDS 21,0
11. CNS XXXXXXXXX
12. STT
13. KYS
14. CPS
15. JNZ 18
16. SNG 60,50
17. JMP 4
18. GSB @CHKDIR
19. JNZ 33
20. SNG 60,50
21. CDS 16,16
22. VUS
23. CDS 25,0
24. WID 6
25. VUM "exists"
26. WID 16
27. CDS 32,0
28. VUM "press any key   "
29. CDS 48,0
30. VUM "& enter new Name"
31. GSB @GETKEY
32. JMP 4
33. GSB @GTIN38D
34. JPZ 1
35. MID 0,7
36. RCL 46
37. JPZ 56
38. RCL 50
39. JGZ 42
40. CNS @DLM38S
41. JMP 43
42. CNS @DLM38B
43. XST
44. CRF
45. STF
46. ILP
47. NOP
48. RCL 50
49. JPZ 52
50. CNS "INST: 2"
51. JMP 53
52. CNS "INST: 1"
53. STF
54. ILP
55. NOP
56. 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
@DISST38D
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 32,0
18. NOP
19. NOP
20. VUM "1:"
21. RCL 50
22. JPZ 35
23. CDS 48,0
24. VUM "2:"
25. NOP
26. NOP
27. NOP
28. NOP
29. NOP
30. NOP
31. NOP
32. NOP
33. NOP
34. NOP
35. POP
36. END
&
PGM
@STNDISP
1. RCL 13
2. DCM 3
3. WID 9
4. CDS 18,0
5. VUA
6. ICR 17
7. DJZ 17,15
8. RCL 18
9. CDS 27,0
10. WID 1
11. VUM ":"
12. CDS 28,0
13. DCM 0
14. VUA
15. END
&
PGM
@MEMO38D
1. CDS 0,64
2. RCL 50
3. JGZ 6
4. CON 12
5. JMP 7
6. CON 17
7. MEM
8. XAB
9. DIV
10. INT
11. CDS 0,32
12. WID 8
13. VUM "Room for"
14. CDS 11,0
15. DCM 0
16. WID 5
17. VUA
18. CDS 24,0
19. WID 8
20. VUM "readings"
21. CDS 16,0
22. DLY 20
23. 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
@GTAUT38D
1. NOP
2. NOP
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 71
17. POP
18. PSH
19. CON 53
20. SUB
21. JPZ 84
22. POP
23. PSH
24. CON 14
25. SUB
26. JPZ 129
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.5s): "
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. RCL 46
50. JPZ 54
51. CNS A
52. STF
53. ILP
54. POP
55. POP
56. RCL 46
57. JPZ 63
58. POP
59. MCP CD780050CF0550D101AEDF5204798278047602819A04
60. STF
61. ILP
62. JMP 64
63. POP
64. STO 30
65. CON 100
66. MLT
67. STO 34
68. CON 0
69. STO 47
70. JMP 128
71. CON -1
72. STO 47
73. CNS W
74. CDS 16,48
75. WID 16
76. VUM "   WHEEL MODE   "
77. CDS 32,0
78. VUM "ENTER INCREMENT:"
79. CDS 48,0
80. WID 8
81. KYA
82. STO 14
83. JMP 89
84. CON 1
85. STO 47
86. RCL 46
87. JPZ 91
88. CNS M
89. STF
90. ILP
91. CDS 16,48
92. WID 13
93. VUM "  MANUAL MODE"
94. CDS 32,0
95. WID 15
96. VUM "Samples/reading"
97. WID 12
98. CDS 48,0
99. VUM "(max. 100): "
100. CDS 59,0
101. WID 4
102. KYA
103. ABS
104. PSH
105. CON 600
106. SUB
107. JGZ 115
108. POP
109. PSH
110. CON 1
111. SUB
112. JGZ 117
113. CON 1
114. JMP 118
115. CON 100
116. JMP 118
117. POP
118. MCP CD780050CF0550D101AEDF5204798278047602819A04
119. RCL 46
120. JPZ 123
121. STF
122. ILP
123. POP
124. STO 30
125. CON 0
126. STO 29
127. STO 34
128. NOP
129. CON 1
130. END
&
PGM
@GTLNM38D
1. CDS 16,48
2. CON 1
3. STO 18
4. RCL 19
5. JPZ 24
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. RLC
25. POP
26. STO 19
27. CON 1
28. SLC
29. CDS 16,0
30. WID 6
31. VUM "LINE: "
32. WID 16
33. CDS 48,0
34. VUM "(maximum 6 char)"
35. CDS 22,0
36. WID 8
37. KYS
38. MID 0,8
39. CNS L
40. SAD
41. STF
42. ILP
43. CON 92
44. TIM
45. GSB @TIMESTR
46. STT
47. MID 0,8
48. STF
49. ILP
50. TTS
51. MID 11,8
52. STF
53. ILP
54. RCL 52
55. CON 14
56. SUB
57. 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 CD780050CF0650D101AEDF5204798278047602819A04
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 CD780050CF0650D101AEDF5204798278047602819A04
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 CD780050CF0650D101AEDF5204798278047602819A04
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 CD780050CF0650D101AEDF5204798278047602819A04
8. MID 0,6
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 CD780050CF0750D101AEDF5204798278047602819A04
8. MID 0,7
9. STF
10. ILP
11. CON 1
12. END
&
PGM
@SKIPST
1. CNS S
2. STF
3. ILP
4. GSB @INCSTN
5. END
&
PGM
@GETGN38D
1. NOP
2. GSB @ASCI
3. PSH
4. CON 128
5. SUB
6. JPS 8
7. POP
8. PSH
9. RCL 47
10. JGZ 17
11. POP
12. CON 64
13. AND
14. JPZ 17
15. CON 1
16. JMP 18
17. CON 0
18. STO 48
19. POP
20. POP
21. NOP
22. PSH
23. CON 32
24. AND
25. JPZ 28
26. CON 1
27. JMP 29
28. CON 0
29. STO 40
30. POP
31. POP
32. PSH
33. NOP
34. NOP
35. CON 4
36. AND
37. JPZ 45
38. CON 1
39. STO 39
40. POP
41. NOP
42. POP
43. CON -1
44. JMP 51
45. CON 0
46. STO 39
47. POP
48. NOP
49. POP
50. CON -.0288
51. STO 49
52. POP
53. PSH
54. CON 2
55. AND
56. JNZ 62
57. POP
58. RCL 49
59. CON .1
60. MLT
61. STO 49
62. POP
63. CON 16
64. AND
65. JPZ 70
66. RCL 49
67. CON 8
68. DIV
69. STO 49
70. POP
71. END
&
PGM
@CONV38D
1. MID 1,1
2. GSB @GETGN38D
3. TTS
4. MID 2,1
5. GSB @ASCI
6. CON 45
7. SUB
8. JPZ 11
9. CON 1
10. JMP 12
11. CON -1
12. STO 41
13. RCL 50
14. JPZ 26
15. JLZ 26
16. TTS
17. MID 7,1
18. GSB @ASCI
19. CON 45
20. SUB
21. JPZ 24
22. CON 1
23. JMP 25
24. CON -1
25. STO 42
26. TTS
27. MID 3,4
28. VAL
29. RCL 49
30. MLT
31. RCL 41
32. MLT
33. STO 41
34. RCL 50
35. JPZ 44
36. TTS
37. MID 8,4
38. VAL
39. RCL 49
40. MLT
41. RCL 42
42. MLT
43. STO 42
44. END
&
PGM
@DDISP38D
1. RCL 50
2. JGZ 10
3. WID 1
4. CDS 30,0
5. RCL 40
6. JPZ 9
7. VUM "V"
8. JMP 10
9. VUM "H"
10. RCL 47
11. JNZ 19
12. WID 1
13. CDS 31,0
14. RCL 48
15. JPZ 18
16. VUM "M"
17. JMP 19
18. VUM " "
19. DCM 2
20. WID 8
21. CDS 34,0
22. RCL 41
23. VUA
24. RCL 50
25. JPZ 29
26. RCL 42
27. CDS 50,0
28. VUA
29. WID 4
30. CDS 44,0
31. RCL 39
32. JPZ 35
33. VUM "mS/m"
34. JMP 36
35. VUM "ppt "
36. RCL 50
37. JPZ 44
38. POP
39. CDS 60,0
40. JPZ 43
41. VUM "mS/m"
42. JMP 44
43. VUM "ppt "
44. END
&
PGM
@VIEWDAT
1. CDS 16,0
2. WID 2
3. VUM ST
4. CDS 32,0
5. VUM "1:"
6. RCL 50
7. JPZ 10
8. CDS 48,0
9. VUM "2:"
10. POP
11. GSB @STNDISP
12. RCF
13. STT
14. MID 0,1
15. GSB @ASCI
16. CON 83
17. SUB
18. JPZ 23
19. TTS
20. GSB @CONV38D
21. GSB @DDISP38D
22. JMP 31
23. GSB @STNDISP
24. WID 4
25. CDS 34,9
26. VUM "Skip"
27. RCL 50
28. JPZ 31
29. CDS 50,9
30. VUM "Skip"
31. END
&
PGM
@STOREASC
1. RCL 50
2. JGZ 5
3. MID 1,9
4. JMP 6
5. MID 1,17
6. STF
7. TIM
8. ICP
9. STF
10. POP
11. ICP
12. STF
13. POP
14. ICP
15. END
&
PGM
@STORE38D
1. STF
2. TIM
3. ICP
4. STF
5. POP
6. ICP
7. STF
8. POP
9. ICP
10. END
&
PGM
@CMNT38D
1. WID 14
2. CDS 0,64
3. VUM "Enter Comment:"
4. WID 16
5. CDS 16,0
6. RCL 50
7. JGZ 23
8. RCL 46
9. JPZ 12
10. VUM " (max. 6 char.) "
11. JMP 13
12. VUM " (max. 8 char.) "
13. WID 8
14. CDS 32,0
15. KYS
16. MID 0,8
17. STT
18. CNS "        "
19. XST
20. SAD
21. MID 0,8
22. JMP 37
23. RCL 46
24. JPZ 27
25. VUM " (max. 11 char.)"
26. JMP 28
27. VUM " (max. 16 char.)"
28. WID 16
29. CDS 32,0
30. KYS
31. MID 0,16
32. STT
33. CNS "                "
34. XST
35. SAD
36. MID 0,16
37. STT
38. CNS "C"
39. SAD
40. STT
41. RCL 46
42. JPZ 50
43. RCL 50
44. JPZ 47
45. MID 0,11
46. JMP 48
47. MID 0,7
48. GSB @STORE38D
49. TTS
50. CNS "^M"
51. XST
52. SAD
53. STT
54. CNS "T"
55. SAD
56. GSB @SETLOG
57. GSB @RSTUBUF
58. TRS
59. GSB @RSTUBUF
60. GSB @SETNOLOG
61. NOP
62. NOP
63. NOP
64. 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
@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,20
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 1
42. CON 1
43. ILP
44. END
&
PGM
@GTLIN38D
1. GSB @GTLNM38D
2. JPZ 9
3. GSB @GTDIR
4. JPZ 1
5. GSB @GTSST
6. JPZ 3
7. GSB @GETSINC
8. JPZ 5
9. 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
@INTEG38D
1. TTS
2. MID 1,1
3. GSB @GETGN38D
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. MID 7,1
42. GSB @ASCI
43. CON 43
44. SUB
45. JPZ 48
46. CON -1
47. JMP 49
48. CON 1
49. STO 42
50. TTS
51. MID 3,4
52. VAL
53. RCL 41
54. MLT
55. RCL 43
56. ADD
57. STO 43
58. TTS
59. MID 8,4
60. VAL
61. RCL 42
62. MLT
63. RCL 44
64. ADD
65. STO 44
66. ICR 45
67. RCL 30
68. RCL 45
69. CDS 6,0
70. VUA
71. SUB
72. JGZ 18
73. NOP
74. NOP
75. NOP
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. NOP
87. NOP
88. NOP
89. NOP
90. RCL 50
91. JGZ 93
92. JMP 104
93. RCL 44
94. RCL 30
95. DIV
96. MCP CD780050CF0550D100AEDF5204798278047602819A04
97. XST
98. SAD
99. STT
100. NOP
101. NOP
102. NOP
103. NOP
104. GSB @STORE38D
105. NOP
106. NOP
107. CDS 0,16
108. WID 16
109. VUM " Trigger to LOG "
110. END
&
PGM
@UPDATE
1. WID 2
2. CDS 32,32
3. VUM "1:"
4. RCL 50
5. JPZ 9
6. NOP
7. CDS 48,0
8. VUM "2:"
9. NOP
10. NOP
11. NOP
12. NOP
13. NOP
14. GSB @RSTUBUF
15. JKY 30
16. GSB @GETLN
17. JGZ 19
18. JMP 15
19. STT
20. MID 0,1
21. GSB @ASCI
22. CON 84
23. SUB
24. JPZ 26
25. JNZ 15
26. TTS
27. GSB @CONV38D
28. GSB @DDISP38D
29. JMP 14
30. RCL 52
31. CDS 0,64
32. END
&
PGM
@SND38D
1. CNS "^M"
2. STT
3. RCL 50
4. JPZ 18
5. JLZ 18
6. RCL 42
7. PSH
8. CON 1000
9. SUB
10. JLZ 14
11. POP
12. MCP CD780050CF0850D101AEDF5204798278047602819A04
13. JMP 16
14. POP
15. MCP CD780050CF0850D102AEDF5204798278047602819A04
16. SAD
17. STT
18. RCL 41
19. PSH
20. CON 1000
21. SUB
22. JLZ 26
23. POP
24. MCP CD780050CF0850D101AEDF5204798278047602819A04
25. JMP 28
26. POP
27. MCP CD780050CF0850D102AEDF5204798278047602819A04
28. SAD
29. STT
30. RCL 50
31. JGZ 62
32. RCL 48
33. JPZ 48
34. RCL 39
35. JPZ 42
36. RCL 40
37. JPZ 40
38. CNS "Tv"
39. JMP 76
40. CNS "Th"
41. JMP 76
42. RCL 40
43. JPZ 46
44. CNS "Tw"
45. JMP 76
46. CNS "Tp"
47. JMP 76
48. RCL 39
49. JPZ 56
50. RCL 40
51. JPZ 54
52. CNS "TV"
53. JMP 76
54. CNS "TH"
55. JMP 76
56. RCL 40
57. JPZ 60
58. CNS "TW"
59. JMP 76
60. CNS "TP"
61. JMP 76
62. RCL 48
63. JPZ 70
64. RCL 39
65. JPZ 68
66. CNS "Tq"
67. JMP 76
68. CNS "Ti"
69. JMP 76
70. RCL 39
71. JPZ 74
72. CNS "TQ"
73. JMP 76
74. CNS "TI"
75. NOP
76. SAD
77. STT
78. GSB @RSTUBUF
79. TRS
80. GSB @RSTUBUF
81. END
&
PGM
@WTM38D
1. GSB @RSTUBUF
2. JKY 53
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. TTS
14. MID 1,1
15. GSB @ASCI
16. PSH
17. CON 64
18. AND
19. JNZ 22
20. STO 37
21. JMP 55
22. POP
23. RCL 37
24. XAB
25. STO 37
26. SUB
27. JPZ 55
28. RCL 30
29. CON 1
30. SUB
31. JPZ 35
32. JLZ 35
33. GSB @INTEG38D
34. JMP 43
35. TTS
36. RCL 50
37. JGZ 40
38. MID 0,7
39. STT
40. RCL 46
41. JPZ 43
42. GSB @STORE38D
43. GSB @CONV38D
44. GSB @SND38D
45. NOP
46. NOP
47. NOP
48. SNG 50,1
49. GSB @DDISP38D
50. GSB @INCSTN
51. GSB @STNDISP
52. JMP 1
53. RCL 52
54. JMP 59
55. TTS
56. GSB @CONV38D
57. GSB @DDISP38D
58. JMP 1
59. END
&
PGM
@WTA38D
1. GSB @RSTUBUF
2. JNK 4
3. JMP 41
4. GSB @CHKTIME
5. JNZ 2
6. GSB @RSTUBUF
7. JKY 41
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. RCL 50
25. JGZ 28
26. MID 0,7
27. STT
28. RCL 46
29. JPZ 31
30. GSB @STORE38D
31. GSB @CONV38D
32. GSB @SND38D
33. NOP
34. NOP
35. NOP
36. SNG 50,1
37. GSB @DDISP38D
38. GSB @INCSTN
39. GSB @STNDISP
40. JMP 2
41. RCL 52
42. JMP 46
43. NOP
44. NOP
45. NOP
46. END
&
PGM
@NEWLN
1. CDS 0,16
2. WID 16
3. VUM "EM38-DLM  LOGGER"
4. GSB @GTLIN38D
5. END
&
PGM
CREATEDIR
1. CNS @DIR38DLM
2. CNS DIR38D
3. CRF
4. CON 1
5. CON 1
6. CON 1
7. SLC
8. CNS ALL
9. STF
10. CDS 0,64
11. WID 15
12. VUM "DIR38D CREATED"
13. CDS 16,0
14. WID 3
15. VUM "OK."
16. DLY 3
17. END
&
PGM
DUMP38DW
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 "DIR38D"
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 "DIR38D          "
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 DIR38D
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
DUMP38D
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 "DIR38D          "
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 DIR38D
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
EM38DD
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 " EM38DD  LOGGER "
18. CDS 16,0
19. VUM " Set clock? Y/N "
20. CDS 59,0
21. WID 5
22. VUM "V2.20"
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 EM38DD"
32. JNK 32
33. END
34. CDS 0,64
35. WID 16
36. GSB @SETNOLOG
37. VUM " EM38DD  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 @GTFIL38D
51. CON 1
52. GSB @GTAUT38D
53. JPZ 34
54. RCL 24
55. STO 11
56. RCL 46
57. JPZ 61
58. GSB @GTLIN38D
59. JPZ 52
60. NOP
61. CDS 0,64
62. WID 16
63. VUM READY
64. CDS 16,0
65. VUM "  <ENTER> to LOG"
66. GSB @GETKEY
67. CON 13
68. SUB
69. JNZ 66
70. GSB @DISST38D
71. GSB @STNDISP
72. NOP
73. RCL 47
74. JGZ 94
75. NOP
76. ICR 29
77. DJN 29,88
78. CDS 16,10
79. WID 11
80. VUM "not logging"
81. GSB @SETLOG
82. GSB @UPDATE
83. GSB @SETNOLOG
84. RCL 52
85. JMP 99
86. NOP
87. NOP
88. NOP
89. NOP
90. GSB @WTA38D
91. JMP 99
92. NOP
93. NOP
94. NOP
95. NOP
96. GSB @WTM38D
97. JMP 99
98. NOP
99. GSB @SETNOLOG
100. PSH
101. CON 55
102. SUB
103. JPZ 159
104. POP
105. PSH
106. CON 90
107. SUB
108. JPZ 174
109. POP
110. PSH
111. CON 69
112. SUB
113. JPZ 171
114. POP
115. PSH
116. CON 13
117. SUB
118. JPZ 176
119. RCL 46
120. JPZ 152
121. POP
122. POP
123. PSH
124. CON 52
125. SUB
126. JPZ 165
127. POP
128. PSH
129. CON 53
130. SUB
131. JPZ 161
132. POP
133. PSH
134. CON 49
135. SUB
136. JPZ 167
137. POP
138. PSH
139. CON 54
140. SUB
141. JPZ 157
142. POP
143. PSH
144. CON 50
145. SUB
146. JPZ 169
147. POP
148. PSH
149. CON 56
150. SUB
151. JPZ 155
152. SNG 50,20
153. POP
154. JMP 70
155. GSB @DELLAST
156. JMP 197
157. GSB @RECALLD
158. JMP 197
159. GSB @CMNT38D
160. JMP 197
161. NOP
162. NOP
163. GSB @SKIPST
164. JMP 197
165. GSB @NEWLN
166. JMP 197
167. GSB @NSTATN
168. JMP 197
169. GSB @MEMO38D
170. JMP 197
171. GSB @ENDDAT
172. GSB @SETNOLOG
173. JMP 1
174. GSB @ENDDAT
175. ZZZ
176. GSB @TOGLPS
177. JMP 70
178. JMP 197
179. CON 540
180. ADD
181. JLZ 189
182. CDS 0,16
183. WID 16
184. VUM " MEMORY WARNING"
185. SNG 30,20
186. SNG 45,5
187. SNG 60,15
188. JMP 70
189. GSB @ENDDAT
190. CDS 0,32
191. WID 16
192. VUM MEMORY FULL
193. SNG 60,50
194. DLY 5
195. SNG 40,50
196. JMP 193
197. ICR 30
198. DJZ 30,70
199. ICR 29
200. DJZ 29,70
201. GSB @CHKTIME
202. JNZ 70
203. TIM
204. STO 32
205. POP
206. STO 31
207. JMP 70
208. END
#
