File COUNTM

Directory of image this file is from
This file as a plain text file

[ PROGRAM COUNT
$1
JMP 8B
$20
[--------------
#1P SNS i 5
JMP 7B
LDA i
2777
STC 12
SET i 13
0000
SETi14
-764 [#BINS
#1C LDA i 12
ROL 2
APO i
JMP p+3
AZE
JMP 7F
ADA i
-100
#1D SAE i
-100
JMP p+2
JMP 1E
DIS 13
ADA i
-1
JMP 1D
#7F ADA i
-100
SAE i
-100
JMP p+2
JMP 1E
DIS 13
ADA i
1
JMP 7F+2
#1E XSK i 13
XSK i14
JMP 1C
[HISTOGRAM DONE
[-----------
#7B LDA
3773
JMP 4U
SET i 1
0000
LDA i
340
JMP 6Q
[
LDA
1B [MAX # BET CURSORS
JMP 4U
SET i 1
500
LDA i
340
JMP 6Q
[
LDA
3771 [BW
JMP 4U
SETi1
300
LDAi
-277
JMP 6Q
[
[
LDA
3772 [#SWEEPS
JMP 4U
SETi1
500
LDAi
-277
JMP 6Q
[
JMP 9N [HISTO PARAMS
[
SRO i
3737
JMP 7B
[DISPLAY #S 5 TIMES
JMP 9V
[TOTAL COUNT AND SWEEPS DISPLAYED
[--------------
[OCTAL TO DECIMAL
[CONVERSION SUBRTN
#4U SET 4Z
0
STC 2D
STC 4Y
STC 5E
STC 5G
4Z=16
4Y=15
LDA i
#2D
#4X ADA i
-1750
AZE i
JMP 4W
APO i
JMP 4W
ADA i
1750
#5I ADA i
-144
AZE i
JMP 5J
APO i
JMP 5J
ADA i
144
#5K ADA i
-12
AZE i
JMP 5L
APO i
JMP 5L
ADA i
12
STC 12
JMP 4Z
#4W XSK i 4Y
JMP 4X
#5J XSK i 5E
JMP 5I
#5L XSK i 5G
JMP 5K
#5H 0 [UNITS
5E=14
5G=13
[############
[ANALYSIS
#8Q 0144 [L CURSOR
#8R 0453 [R CURSOR
#8T [CHARACTER
#8V [ TEST STORAGE
#9A [ COUNT
#9U [ 3000 + 8R
#1B [ MAX # BET CURSORS
[
#9V KBD
AZE i
JMP 9D
STA
8T
SAE i
24
JMP p+2
JMP 1J-5
[A MODE EXIT
SAE i
43
JMP p+2
JMP 7C
[P MODE EXIT
SAE i
40
JMP p+2
JMP 8B
[M MODE EXIT
SAE i
23 [CASE
JMP p+12
LDA i
144
STA
8Q
LDA i
453
STA
8R
JMP 9C
SAE i
11
JMP 9Y
CLR
STA
8Q
LDA i
763
STA
8R
JMP 9C
[
#9Y LDA
8T
APO
JMP 1P
AZE i
JMP 1P
COM
ADA i
10
AZE i
JMP 8Y
APO
JMP 1P
JMP 8X
[------------
[
[
#8Y LDA i
20
#8K ADA
8R
STA
8V
COM
ADA i
763
APO i
JMP 8W
LDA i
763
STA
8R
JMP 9C
[
#8W LDA
8V
STA
8R
JMP 9C
#8X  LDA
8T
SAE i
1
JMP p+10
LDA i
-1
ADA
8Q
STA
8V
JMP 8Z
SAE i
2
JMP 8P
LDA i
-20
ADA
8Q
STA
8V
#8Z APO
JMP p+6
LDA
8V
STA
8Q
JMP 9C
[
CLR
STA
8Q
JMP 9C
[
#8P SAE i
3
JMP 8O
LDA i
1
#8N ADA
8Q
STA
8V
SNS 0
JMP p+14
STA 
8Q
ADA i
2777
STA 
12
LDA i 12
AZE i
JMP 8N-2
LDA
8V
COM
ADA
8R
APO
JMP p+6
LDA
8V
STA
8Q
JMP 9C
LDA i
-1
ADA
8R
STA
8Q
JMP 9C
[
#8O SAEi
4
JMP p+4
LDA i
20
JMP 8N
[
SAE i
5
JMP 8L
LDA i
-1
#8MADA
8R
STA
8V
SNS 0
JMP p+14
STA
8R
ADA i
2777
STA
12
LDA i 12
AZE i
JMP 8M-2
LDA
8V
COM
ADA
8Q
APO
JMP p+10
LDA i
1
ADA
8Q
STA
8R
JMP 9C
LDA
8V
STA
8R
JMP 9C
#8L SAE i
6
JMP p+4
LDA i
-20
JMP 8M
LDA i
1
JMP 8K
[
[##############
[CURSOR SHIFT FINISHED
[### COMPUTE ####
#9C LDA i
3000
ADA
8R
STA
9U
LDA i
2777
ADA
8Q
STA
12
CLR
STC 9A
STC 1B
[--------
#1F LDA
12
SAE
9U
JMP p+2
JMP 1P
LDA i 12
COM
ADA
1B
APO
JMP p+5
LDA 12
ADD 9A
STC 9A
JMP p+5
LDA 12
STA
1B
JMP p-6
JMP 1F
[------------
[### DISPLAY ###
#9D SET12
8Q
LDA i
-124
ADA i
1
DIS 12
SAE i
-103
JMP p-5
SET 12
8R
LDA i
-124
ADA i
1
DIS 12
SAE i
-103
 JMP p-5
[
[NUMBER DISPLAY-
#1A LDA
8Q
JMP 4U
SET i 1
20
LDA i
-237
JMP 6Q
[
LDA
8R
JMP 4U
SET i 1
200
LDA i
-237
JMP 6Q
LDA
9A
APO
JMP p+5
JMP 4U
SET i 1
440
JMP p+5
COM
JMP 4U
SET i 1
320
LDA i
-237
JMP 6Q
[
SRO i
3737
JMP 1A
[ DISPLAY #S 5 TIMES
JMP 1P
[ END OF ANALYSIS SECTION - JUMPS BACK TO THE MAIN DISPLAY
[
[
[### PAUSE MODE ###
[
#7C LDA i
JMP 7D
STA
9V
[
#7D KBD
AZE i
JMP p-2
SAE i
0043 [P
JMP p+2
JMP p+3
CLR
JMP 9Y
[
LDA i
KBD
STA
9V
JMP 9V
[
[--------------
[
[### MEMORY MODE
[
#8C 0000
5177
2651 [B
0177
0301
4177
7741
4136
2241
1077
4324
0000
0000
4060
#8D 7055
#8E 0000
#8F 0000
[
#8B CLR
STA
8E
STC 8F
#1H SET i 1
0200
SET i 12
8C
SET i 13
8D
CLR
JMP 1S
[ DISPLAY1
KST
JMP 1I
KBD
STA
8E
COM
ADA i
7
APO i
JMP p+3
AZE
JMP 8G [NOT OCTAL CHARACTER
LDA
8F
ROL 3
ADA
8E
STA
8F
JMP 1I
[
#8G LDA
8E
SAE i
0012 [EOL
JMP p+2
JMP 1J
[
SAE i
0013 [DEL
JMP p+2
JMP 8B
[
[ DISPLAY2
#1I SET i 2
-200
SET i 1
300
LDA
8F
JMP 1Z
JMP 1H
[
LDA
8F
ADA i
2
STC 8F
#1J LDA
8F
COM
ADA i
777
APO
JMP 8B
AZE i
JMP 8B
LDA 
8F
ADA i
6000
STA
1K
ADA i
1001
STA
1L
0710
#1K 0000
0710
#1L 0000
JMP 9C
[
[-------------
[
[###OCTAL NO. DISPLAY SUBROUTINE ###
[USES NUMBER DISPLAY SUBROUTINE
#7I 0000 [NUMBER
#1Z STA
7I
LDA
0
STC 7J
LDA
7I
ROL 3
BCL i
7770
STC 15
LDA
7I
ROL 6
BCL i
7770
STC 14
LDA
7I
ROL 11
BCL i
7770
STC 13
LDA
7I
BCL i
7770
STC 12
LDA
2
JMP 6Q
#7J [RETURN
[
[-----------
[
[###CHARACTER LINE DISPLAY SUBROUTINE
#1S STC14
LDA
0
STC 1U
#1T LDA
14
DSC i 12
SRO i
2525
JMP 1T
LDA i
4
ADM
1
LDA
12
COM
ADA
13
AZE
JMP 1T
#1U [RETURN
[
[
[DECIMAL DIOPLAY    SUBROUTINE
#6Q STA
6E
LDA
0
STA
6K
LDA i
15
STA
1N
STA
6I
#6O LDA
#1N 15
AZE i
JMP 6L [INITIAL DIGIT ZERO
#1M LDA
#6I 15
ROL 1
ADA i
6D
STC 6G
#6H LDA 
6E
DSC
#6G 0000
SRO i
2525
JMP p+2
JMP 6J
[
LDA i
1
ADM
6G
JMP 6H
[
#6J LDA i
4
ADM
1 [SPACE CHARACTERS
LDA
6I
ADA i
-1
SAE i
11
JMP p+2
#6K [RETURN
[
STA
6I
JMP 1M [DO NEXT DIGIT
[INIPIAL DIGIT ZERO
#6L LDA
1N
ADA i
-1
SAE i
11
JMP p+2
JMP 1M
[
STA
1N
STA
6I [CHANGE DIGIT REGISTERS
LDA i
24
ADM
1
[SPACE PAST ONE DIGIT
JMP 6O
[GO ON TO TREAT NEXT DIGIT REGISTER
[--------------
[
#6D 4136
3641 [0
2101
0177[1
4523
2151 [2
4122
2651 [3
2414
0477 [4
5172
0651 [5
1506
4225 [6
4443
6050 [7
5126 
2651 [8
5120
3651 [9
#6E [VERT COORD
[##################
[SUB TO PUT PARAMS ON SCREEN
[
0
#9N LDA
0
STAi
0
[
LDA
3770
SETi1
100 [X COORD
ROL 1
ADAi
1R
STC 17 [ADDR OF PATTERN
LDAi
-277 [Y COORD
DSC 17
DSCi17
JMP 9N+3
[
[
[CHARACTER PATTERNS
[KBD 0:CODE 00
#1R 4136
3641
[1:01
2101
0177
[2:02
4523
2151
[3:03
4122
2651
[4:04
2414
0477
[5:05
5172
0651
[6:06
1506
4225
[7:07
4443
6050
[8:10
5126
2651
[9:11
5122
3651
[EOL:12
KBDi
ADD p-212
[DEL:13
JMP 0
67
[SPACE:14
0000
0000
[i:15
0101
0126
[p:16
3700
3424
[-:17
0404
0404
[+:20
0404
0437
[|:21
0000
0077
[#:22
JMP p-102
JMP p-52
[CASE:23
JMP p-53
JMP p-211
[A:24
4477
7744
[B:25
5177
2651
[C:26
4136
2241
[D:27
4177
3641
[E:30
4577
4145
[F:31
4477
4044
[G:32
4136
2645
[H:33
1077
7710
[I:34
7741
0041
[J:35
4142
4076
[K:36
1077
4324
[L:37
0177
0301
[M:40
3077
7730
[N:41
3077
7706
[O:42
4177
7741
[P:43
4477
3044
[Q:44
4276
0376
[R:45
4477
3146
[S:46
5121
4651
[T:47
4040
4077
[U:50
0177
7701
[V:51
0176
7402
[W:52
0677
7701
[X:53
1463
6314
[Y:54
0770
7007
[Z:55
4543
6151
[REVISED JULY 1,1976
[JAN 1,1979
[COMPATABLE WITH CSPOT PROGRAMS ---  M.A.



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search