DoctorWkt.pdp7-unix/scans/ttt2.s

"** 14-148-165.pdf page 13
" ttt2

boardp: board
sbufp: sbuf
qdt: <dt>
imaxin: -4000
noblink: 060000
blinkpar: 070000
setxv: setx
setyv: sety
o12: 012
o14: 014
o74: 074
o3: 03
o2000: 02000
o60: o60
o4: 4
o3000: 03000
o4000: 04000
o2: 2
o1000: 01000
d1: 1
om60: -060
o77: 077
line:
tb = tad board-1
   tb+52; tb+56; tb+60; tb+64
   tb+1; tb+6; tb+11; tb+16
   tb+2; tb+6; tb+10; tb+14
   tb+2; tb+18; tb+34; tb+50
   tb+2; tb+22; tb+42; tb+62
   tb+3; tb+7; tb+11; tb+15
   tb+3; tb+23; tb+43; tb+63
   tb+3; tb+19; tb+35; tb+51
   tb+4; tb+7; tb+10; tb+13
   tb+4; tb+8; tb+12; tb+16
   tb+4; tb+19; tb+34; tb+49
   tb+4; tb+20; tb+36; tb+52
   tb+4; tb+23; tb+42; tb+61
   tb+61; tb+62; tb+63; tb+64
   tb+4; tb+24; tb+44; tb+64
   tb+5; tb+6; tb+7; tb+8
   tb+5; tb+21; tb+37; tb+53
   tb+5; tb+22; tb+39; tb+56
   tb+6; tb+22; tb+38; tb+54
   tb+7; tb+23; tb+39; tb+55
   tb+8; tb+23; tb+38; tb+53
   tb+8; tb+24; tb+40; tb+56
   tb+9; tb+10; tb+11; tb+12
   tb+9; tb+26; tb+43; tb+60
   tb+9; tb+25; tb+41; tb+57
   tb+12; tb+28; tb+44; tb+60
   tb+13; tb+14; tb+15; tb+16
   tb+13; tb+25; tb+37; tb+49
   tb+13; tb+26; tb+39; tb+52
   tb+13; tb+29; tb+45; tb+61
   tb+13; tb+30; tb+47; tb+64
   tb+14; tb+26; tb+38; tb+50
   tb+14; tb+30; tb+46; tb+62
   tb+15; tb+27; tb+39; tb+51
   tb+53; tb+54; tb+55; tb+56
   tb+15; tb+31; tb+47; tb+63
"** 14-148-165.pdf page 14
   tb+16; tb+28; tb+40; tb+52
   tb+16; tb+27; tb+38; tb+49
   tb+16; tb+31; tb+46; tb+61
   tb+16; tb+32; tb+48; tb+64
   tb+17; tb+21; tb+25; tb+29
   tb+17; tb+18; tb+19; tb+20
   tb+17; tb+22; tb+27; tb+32
   tb+18; tb+22; tb+26; tb+30
   tb+19; tb+23; tb+27; tb+31
   tb+20; tb+23; tb+26; tb+29
   tb+20; tb+24; tb+28; tb+32
   tb+21; tb+22; tb+23; tb+24
   tb+25; tb+26; tb+27; tb+28
   tb+29; tb+30; tb+31; tb+32
   tb+33; tb+34; tb+35; tb+36
   tb+33; tb+38; tb+43; tb+48
   tb+33; tb+37; tb+41; tb+45
   tb+34; tb+38; tb+42; tb+46
   tb+35; tb+39; tb+43; tb+47
   tb+36; tb+39; tb+42; tb+45
   tb+36; tb+40; tb+44; tb+48
   tb+37; tb+38; tb+39; tb+40
   tb+41; tb+42; tb+43; tb+44
   tb+45; tb+46; tb+47; tb+48
   tb+49; tb+50; tb+51; tb+52
   tb+49; tb+53; tb+57; tb+61
   tb+12; tb+27; tb+42; tb+57
   tb+49; tb+54; tb+59; tb+64
   tb+50; tb+54; tb+58; tb+62
   tb+51; tb+55; tb+59; tb+63
   tb+52; tb+55; tb+58; tb+61
   tb+57; tb+58; tb+59; tb+60
   tb+11; tb+27; tb+43; tb+59
   tb+10; tb+26; tb+42; tb+58
   tb+1; tb+2; tb+3; tb+4
   tb+1; tb+5; tb+9; tb+13
   tb+1; tb+17; tb+33; tb+49
   tb+1; tb+18; tb+35; 52
   tb+1; tb+21; tb+41; tb+61
   tb+1; tb+22; tb+43; tb+64
plane:
   tb+1; tb+2; tb+3; tb+4; tb+5; tb+6; tb+7; tb+8
   tb+9; tb+10; tb+11; tb+12; tb+13; tb+14; tb+15; tb+16

   tb+17; tb+18; tb+19; tb+20; tb+21; tb+22; tb+23; tb+24
   tb+25; tb+26; tb+27; tb+28; tb+29; tb+30; tb+31; tb+32

   tb+33; tb+34; tb+35; tb+36; tb+37; tb+38; tb+39; tb+40
   tb+41; tb+42; tb+43; tb+44; tb+45; tb+46; tb+47; tb+48

   tb+49; tb+50; tb+51; tb+52; tb+53; tb+54; tb+55; tb+56
   tb+57; tb+58; tb+59; tb+60; tb+61; tb+62; tb+63; tb+64

   tb+13; tb+14; tb+15; tb+16; tb+29; tb+30; tb+31; tb+32
   tb+45; tb+46; tb+47; tb+48; tb+91; tb+62; tb+63; tb+64

   tb+9; tb+10; tb+11; tb+12; tb+25; tb+26; tb+27; tb+28
   tb+41; tb+42; tb+43; tb+44; tb+57; tb+58; tb+59; tb+60

   tb+5; tb+6; tb+7; tb+8; tb+21; tb+22; tb+23; tb+24
   tb+37; tb+38; tb+39; tb+40; tb+53; tb+54; tb+55; tb+56

"** 14-148-165.pdf page 15
   tb+1; tb+2; tb+3; tb+4; tb+17; tb+18; tb+19; tb+20
   tb+33; tb+34; tb+35; tb+36; tb+49; tb+50; tb+51; tb+52

   tb+1; tb+5; tb+9; tb+13; tb+17; tb+21; tb+25; tb+29
   tb+33; tb+37; tb+41; tb+45; tb+49; tb+53; tb+57; tb+61

   tb+2; tb+6; tb+10; tb+14; tb+18; tb+22; tb+26; tb+30
   tb+34; tb+38; tb+42; tb+46; tb+50; tb+54; tb+58; tb+62


   tb+3; tb+7; tb+11; tb+15; tb+19; tb+23; tb+27; tb+31
   tb+35; tb+39; tb+43; tb+47; tb+51; tb+55; tb+59; tb+63

   tb+4; tb+8; tb+12; tb+16; tb+20; tb+24; tb+28; tb+32
   tb+36; tb+40; tb+44; tb+48; tb+52; tb+56; tb+60; tb+64

   tb+1; tb+6; tb+11; tb+16; tb+17; tb+22; tb+27; tb+32
   tb+33; tb+38; tb+43; tb+48; tb+49; tb+54; tb+59; tb+64

   tb+4; tb+7; tb+10; tb+13; tb+20; tb+23; tb+26; tb+29
   tb+35; tb+39; tb+42; tb+45; tb+52; tb+55; tb+58; tb+62

   tb+1; tb+2; tb+3; tb+4; tb+21; tb+22; tb+23; tb+24
   tb+41; tb+42; tb+43; tb+44; tb+61; tb+62; tb+63; tb+67

   tb+13; tb+14; tb+15; tb+16; tb+25; tb+26; tb+27; tb+28
   tb+37; tb+38; tb+39; tb+40; tb+39; tb+50; tb+51; tb+52

   tb+1; tb+5; tb+9; tb+13; tb+18; tb+22; tb+26; tb+30
   tb+35; tb+39; tb+43; tb+47; tb+52; tb+56; tb+60; tb+64

   tb+4; tb+8; tb+12; tb+16; tb+19; tb+23; tb+27; tb+31
   tb+34; tb+38; tb+42; tb+46; tb+49; tb+53; tb+57; tb+61
pritab:
   0;10;22;0
   0;10;20;0
   0;30;30;0
   0;0;0;0;0
ex:
   vx 0100
   vy 020 iv
   vx 0200
   vy 040 v
   vx m 0140
   vy 0 iv
   vx 0100
   vy m 040 v
   dnop
   dnop
   dnop
   dnop
oh:
   vx 0100
   vy 020 iv
   vx 0140
   vy 0 v
   vx 040
   vy 040 v
   vx m 0140
   vy 0 v
"** 14-148-165.pdf page 16
   vx m 040
   vy m 040 v
   dnop
   dnop
dot:
   lpenb
   vx 0200
   vy 040 iv
   vx 05
   vy 0 v
   vx 0
   vy m 05 v
   vx m 05
   vy 0 v
   vx 0
   vy 05 v
   lpdis
dbuf:
   lpdis
   scale 0
   setx 0
   sety 0
   "
   vx 01400 v
   vx 0377
   vy 0374 v
   vx m 01377 v
   vx m 0400
   vy m 0374 v
   "
   setx 0
   sety 0400
   vx 01400 v
   vx 0377
   vy 0374 v
   vx m 01377 v
   vx m 0400
   vy m 0374 v
   "
   setx 0
   sety 01000
   vx 01400 v
   vx 0377
   vy 0374 v
   vx m 01377 v
   vx m 0400
   vy m 0374 v
   "
   setx 0
   sety 01400
   vx 01400 v
   vx 0377
   vy 0374 v
   vx m 01377 v
   vx m 0400
   vy m 0374 v
   dnop
sbuf: .=.+1050
board: .=.+64
maxin: .=.+1
force: .=.+1
"** 14-148-165.pdf page 17
pri: .=.+1
lpri: .=.+1
lforce: .=.+1
rand: .=.+1
lmov: .=.+1
dspflg: .=.+1
lpadr: .=.+1
pbadr: .=.+1
blink: .=.+1
blk1: .=.+1
blk2: .=.+1
9: .=.+1
stack:

dnop = 040040
setx = 0140000
sety = 0164000
n = 02000
scale = 0040040
y = 020000
iy = 030000
vx = 0100000
vy = 0104000
lpdis = 0044000
lpenb = 0046000
vbl = 0704424