; Along with this file, 'SDT.SUB', and 5k of free space,
; have a copy of ex14.com and ddt.com on the A: disc.
; Invoke as 'EX SDT'
; See original SDT article by Dr. William Parke, in >CHUG, Dec 1983.
; This sub file prepared by Walt Jung BHEC RCPM, (301)-661-2175
ddt ddt.com
;-l100
;0100 LXI B,0FBC
;must be as above
s102
10
.
;
m11bc,13bf,21bc
f11bc,14ff,0
m21bc,23bf,12bc
s11bc
CD
15
0C
CD
90
0C
2A
B7
0F
3D
C2
CC
0F
CD
66
0C
11
81
FF
1A
A7
CA
AB
0B
47
13
1A
BE
23
C2
D7
0F
13
05
CA
EA
0F
1A
BE
23
CA
DC
0F
C3
CC
0F
CD
2E
0C
C3
FE
06
CD
90
0C
3D
C2
AB
0B
CD
66
0C
CD
15
0C
E5
CD
2E
0C
CD
C5
0B
E1
7E
FE
20
D2
0D
10
3E
2E
FE
7F
DA
14
10
3E
2E
E5
CD
C7
0B
CD
C5
0B
0E
01
CD
05
00
E1
FE
7F
CA
FE
06
77
23
C3
FA
0F
CD
15
0C
11
80
FF
3E
50
12
0E
0A
CD
05
00
C3
FE
06
31
BC
10
0E
1A
11
80
00
CD
05
00
0E
11
11
5C
00
CD
05
00
C3
5A
10
31
BC
10
0E
12
CD
05
00
F5
CD
15
0C
F1
3C
CA
AB
0B
C6
2F
CD
C7
0B
C3
FE
06
CD
90
0C
3D
C2
AB
0B
CD
66
0C
CD
15
0C
0E
0E
5D
CD
05
00
C3
FE
06
.
;
s939
2B
10
F0
0F
C6
07
BC
0F
.
;
s949
6B
10
.
;
s961
3C
10
52
10
.
;
s14b3
02
48
92
10
10
82
49
22
48
90
20
41
20
04
24
80
12
00
00
48
04
21
24
49
00
80
.
;
s130
53
.
g0
save 20 sdt.com
;now test as per CHUG article