0 ( 0): 37 40 41 64 37 67 50 16 : 176 010 164 177 172 016 1 ( 1): 61 00 77 77 10 47 41 63 : 304 017 377 042 170 163 2 ( 2): 25 07 11 70 35 06 15 60 : 124 162 170 164 143 160 3 ( 3): 36 27 71 57 35 54 20 00 : 171 176 157 166 304 000 4 ( 4): 00 27 41 70 25 07 01 76 : 001 170 170 124 160 176 5 ( 5): 02 02 51 20 34 51 27 40 : 010 052 120 162 225 340 6 ( 6): 01 04 01 60 36 07 72 20 : 004 100 160 170 176 220 7 ( 7): 10 00 16 40 30 00 01 71 : 040 003 240 140 000 171 10 ( 8): 31 07 60 00 40 57 00 00 : 144 174 000 202 360 000 (WORD 0.0) 176 010 K4; ( read reason for interrupt -- also clears interrupt pending flag 164 177 SHL+63; ( clear any rubbish from top two nest cells 172 016 =Q0; ( don't know -- Q0 is read only and always contains zero (WORD 1.0) 304 017 377 SETB 7777; 042 DUP; 170 163 =RM7; ( Q7 = 0 / 1 / 4095 (WORD 2.0) 124 162 CLOQ7; ( clear lock outs over the first 4096 words 170 164 =I7; 143 160 DC7; ( Q7 = -1 / 4095 / 4095 (WORD 3.0) 171 176 1; Q7; 157 166 Q7TOQ6; ( Q6 = -1 / 4095 / 4095 first time 304 000 001 SET 1; ( bootstrap load is on paper-tape reader 1 (WORD 4.1) 170 170 =C7; 124 160 PIAQ7; ( read 8 chars into word 4095 176 010 2; K4; ( clear RFI again (WORD 5.1) 052 ERASE; 120 162 BUSYQ7; 225 340 004 J2NTR; ( jump to (Word4:Syllable5) if still busy (WORD 6.2) 100 160 M7M0; ( pick up last word read in 170 176 =Q7; ( Q7 = word read from paper tape 220 040 003 J1