[3D-DIS
[3D DISPLAY WITH HIDDEN LINE SUPPRESSION
$20
#4A SAM 0
ADAi
177
SCR 2
STAi
#4X 0000   [X OFFSET
SAM 1
ADAi
177
SCR 2
STAi
#4Y 0000   [Y OFFSET
SAM 2
ADAi
177
SCR 5
AZEi
CLR
BSEi
SCR
STC 4Q
SETi1
4M-1   [MASK
SETi2
-100   [NUMBER OF POINTS PER TRACE
LDAi
-377
STAi1  [Y BASELINE
XSKi2
JMP p-2
SETi5
-10   [NUMBER OF TRACES
SETi3
3777   [DATA
CLR
STC 4N+1
LDAi
-340
STC 4P
#4N SETi4
0      [DISPLAY X ORIGIN
SETi1
4M-1   [MASK
SETi2
#4L -100
LDAi1
COM
ADAi3
ADD 4P
APO
JMP p+10  [NOT VISIBLE
LDA 3   [VISIBLE
AZEi
CLR
ADD 4P  [ADD CURRENT Y OFFSET
#4Q SCR 1
DIS 4
STA 1   [ADD TO MASK
LDAi4   [INDEX DISPLAY
XSKi2
JMP 4L+1
SETi1
4M-1   [OLD MASK ORIGIN
LDA
1
ADD 4X
STC 4   [NEW MASK ORIGIN
ADD 4L
ADD 4X
STC 2   [TOTAL OF POINTS IN MASK TO BE SHIFTED
LDAi4
STAi1   [SAVE NEW MASK, OFFSET BY X
XSKi2
JMP p-3
LDA
4P
STAi1   [FILL UP REMAINDER OF MASK WITH ZEROES
LDA
1
SAEi
4M+100
JMP p-7
LDA
4X
ADD 4N+1
STC 4N+1  [UPDATE DISPLAY X ORIGIN
ADD 4Y
ADD 4P
STAi
#4P 0000
XSKi5
JMP 4N
JMP 4A
#4M 0000
[MASK BEGINS HERE AN CONTINUES FOR 100 WORDS
[END 3D-DIS
[16 FEB