File SEQUENCE

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

[SEQUENCE
[GENERATES A SEQ OF PULSES
[SET RSW TO NO OF SEQ AND PRESS N
[SET RSW TO NOO OF PULS PER SEQ AND PRESS M
[SET RSW TO PULD WIDTH AND PRESS W
[SET RSW TO BLK NO FOR STORAGE ON TP AND PRESS S
[IF SNS1 UP THE INITIAL COD IS TAKEN FROM LSW
[IF DOWN INITIAL SEQ IS 00....0
#2A KBD i [NO OF SEQ
SAE i
41 [N
JMP 2A
RSW
COM
STC 11
KBD i [NO OF PULS |SEQ
SAE i
40 [M
JMP 2A
RSW
STC 2P
KBD i [PULSE WITH
SAE i
52 [W
JMP 2A
RSW
STA
2W
COM
STC 5 [WITH COUNT
KBD i [INIT BLK ON TP
SAE i
46 [S
JMP 2A 
RSW
STC 7
ADD 2P
MUL
2W
STA
p+7
ADA i
-1000
APO
JMP p+2
JMP 2A
LDA i
X
COM
ADA i
2000
ADD p-1
STA 
2X
STC 12 [INIT ADD
SNS 1
JMP p+2
LSW
STA
10
STC 2Q [CODE
ADD 2P
COM
STA 
2P
STC 6 [NO OF PULSES COUN
#2B CLR [CLR PGS 15, 16, 17
SET i4
3777
UMB 15
STA i4
XSK 4
JMP p-2
UMB 16
STA i4
XSK 4
JMP p-2
UMB 17
STA i4
XSK 4
JMP p-2
LDA
2Q
#2E BCL i
7776
AZE
JMP 2C
LDA
2W
ROL 1
ADD 12
BCL i
4000
BSE i
2000
STC 12
JMP 2D
#2C UMB 15 [LO WITH FP 100
LDA 
2Z
STA 12
UMB 16
LDA
2Z+1
STA 12
UMB 17
LDA
2Z+2
STA 12
LDA i12
LDA i 12 [INDX
XSK i5 [IND WIDTH C
JMP 2C
LDA 
2W
COM
STC 5 [RESET WIDTH C
#2D XSK i6 [INDX NO OF PULS C
JMP p+2
JMP 2F [SEQ FIINISHED
LDA [NNEW BIT
2Q
SCR 1
STA
2Q
JMP 2E
#2F LDA i
2R+2
JMP 2T
JMP 2R
#2T STA
2T+15
STC 2T+23
ADD 0
STC 2S
SET i17
-14
SET i16
-4
LDA 
7 [BLK NO
STC 2T+21
LDA
2R+2
BCL i
0777
ADA i
X [BLK NO 
STA
2R+2
LDA
p-4
ADA i
1
STC p-7
XSK i17
JMP p+2
#2S RETURN
XSK i16
JMP p+2
JMP p+5
ADD 2T+15
ADAi
2
JMP p+6
ADD 2T+15
ADAi
3
SET i16
-4
STA
2T+15
STC 2T+23
JMP 2T+14
#2R UMB 15 [SV ON TP
WRC
4|100
WRC 
5|101
WRC
6|102
WRC
7|103
UMB 16
WRC
4|104
WRC
5|105
WRC
6|106
WRC
7|107
UMB 17 
WRC
4|110
WRC
5|111
WRC 
6|112
WRC
7|113
XSK i11 [INDEX SEQ COUNT
JMP p+2
JMP 2G
CLR [NEW BLK NO
ADD 7
ADA i
14
STC 7
ADD 2P
STC 6 [RESET PULS C
LDA i10 [INDX FOR NEW COD
LDA
10
STC 2Q
ADD 2X
STC 12
JMP 2B
#2P X [NO OF PULS|SEQ
#2Q X [CURRENT COD
#2W X [PULS WIDTH
#2X X [INIT ADD
#2Z 7
2000
0000
#2G KBDi [DISP
SAE i
27 [D
JMP 2G
KBDi
SAEi
45 [R
JMP p+4
CLR
STC 2I+1
JMP p+7
SAE i
34 [I
JMP 2G
LDA i
-1
STC 2I+1
UMB 1 [LO DIS PRO
RDC u
4|30
RDC u
6|31
RDC u
7|32
RSW
STC 7
LDA i
2H+2
JMP 2T
#2H UMB15
RDC
4|100
RDC
5|101
RDC
6|102
RDC
7|103
UMB 16
RDC
4|104
RDC
5|105
RDC
6|106
RDC
7|107
UMB 17
RDC
4|110
RDC
5|111
RDC
6|112
RDC
7|113
#2I LDA i
X
LMB 1
JMP 20
JMP 2G
[XXXXXXXXXXXXXXXX
[XXXXXXXXXXXXXXXX



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