File DRAW12

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

*20
*20
JMP A1
*0
JMP A1
E1, 0303
P1, 7665
J1, K2
H1, 0023
Q2, 0232
T2, 0000
0000
D1, 0000
   0000
B1, 1220
0000
0000
0000
0000
OKBD=JMP READ
OKST=0415
   0316
*21
I1,  0052
K1, 0222
L1, 0050
M1, 0406
Y1,  0001
B2,  7776
T1, 7200
X1, 0100
F1, 0400
     XSK I E1   /HORIZONTAL SWEEP
     DIS E1   /DISPLAY A POINT
     JMP F1   /
     0000     /
     0000     /
     0000     /
     0000     /
     OKST
     JMP G1   /
     OKBD
P2,  SET I H1
     I1
     LDA H1   /
     STA J1   /
     LDA I H1 /
     STA I J1
     LDA I H1
     STA I J1
     LDA I H1
     STA I J1
     LDA I
     7777
     STA I J1
     JMP G1
N2,  SAM 0     /SAMPLE CHANNEL 0
     SCR  1    /SCALE RIGHT, 1
     STC I1
     SAM 1     /SAMPLE CHANNEL 1
     SCR 1     /
     ADD F1    /400
     STC K1    /
R2,  SAM 2     /SAMPLE CHANNEL 2
     SCR 1     /
     STC L1    /
     SAM 3     /SAMPLE CHANNEL 3
     SCR 1     /
     ADD F1    /400
     STC M1
     JMP N1
G1,  CLR
     STC P1
     STC Q1
     STC R1
     ADD K1
     COM
     ADD M1
     APO
     JMP S1
     STC T1
     ADD K1
     STC E1
     ADD I1
     STC U1
     JMP V1
S1,  COM
     STC T1
     ADD M1
     STC E1
     ADD L1
     STC U1
     ADD I1
     STC L1
     ADD U1
     STC I1
V1,  ADD I1
     COM
     ADD L1
     APO
     JMP W1
     STC X1
     ADD Y1
     STC Z1
     JMP A2
W1,  COM
     STC X1
     ADD B2
     STC Z1
A2,  NOP
     NOP
     ADD T1
     COM
     ADD X1
     APO
     CLR
     ADD T1
     AZE I
     JMP C2
D2,  ROL 1
     XSK I P1
     APO I
     JMP D2
     LDA I
     0240
     ADD P1
     STC E2
     ADD P1
     COM
     ADA I
     0254
     STC F2
     ADD Y1
F2,  ROL 7
C2,   ADD Y1
     COM
     STC P1
     ADD T1
     JMP E2
     STC T1
     ADD X1
     JMP E2
     STC X1
     JMP G2
E2,  ROL 5
    JMP 0
G2, NOP
     NOP
     NOP
     NOP
     NOP
H2,  CLR
     ADD T1
     LAM I
     Q1,  6000
     LZE
     XSK I E1
     CLR
     ADD X1
     LAM I
R1,  6700
     LDA I
Z1, 7776
     LZE I
     CLR
     ADM I
U1,  0052
     DIS E1
     XSK I P1
     JMP H2
A1,  LDA J1
     SAE I
     7777
     JMP I2
     JMP J2
     COM
     STC T1
     ADD M1
     ADD E1
     ADD I1
     STC X1
     LDA I
     7777
     STC K2
J2,  SET I J1
     K2-1
I2,  LDA I J1
     SAE I
     7777
     JMP M2
     JMP N2
M2,  STC I1
     ADA I J1
     STC K1
     ADA I J1
     STC L1
     ADA I J1
     STC M1
     JMP G1
N1,  OKST
     JMP G1
     OKBD
     SAE I
     0377
     JMP CR
     LDA I
     7773
     ADD J1
     STC J1
     LDA I
     7777
     STA J1
     JMP G1
     ADD X1
     STC Q2
     LDA I
     0100
     DIS Q2
     CLR
     JMP R2
     0000
READ,CLR
     IOB
     6036
     JMP 0
     0000
CR, SAE I
     215
     JMP P2
     LDA I
     7777
     STC K2
     JMP 20
     0000
     0000
     7777
     0000
     0000
     0000
K2,  7777
     0430
     0054
     0430
     7777
     0426
     7701
     0540
     7777
     0542
     7701
     0542
     7777
     0544
     0050
     0430
     7777
     0432
     0146
     0450
     0222
     0536
     0146
     0450


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