1 /PDP8-E PATCHES TO U/W-FOCAL: 2 3 BSW=7002 4 KCF=6030 5 SWP=7521 6 FIXTAB 7 8 9 FIELD 1 10 11 *2355 /'GETC' PATCH 12 012355 7002 BSW 13 012356 7000 NOP 14 15 16 *2637 /TELETYPE PATCH 17 012637 1243 TAD .+4 18 012640 3057 DCA INBUF 19 012641 6030 KCF 20 012642 5247 JMP XINT 21 012643 0206 206 22 012644 0000 ZBLOCK 2 012645 0000 23 24 *2667 25 012667 6032 KCC 26 27 /REFERENCE: FOCAL8-280 28 29 *7200 /MULTIPLY PATCH 30 017200 0000 MP4, 0 31 017201 7450 SNA 32 017202 5600 JMP I MP4 33 017203 7521 SWP 34 017204 3253 DCA MP5 35 017205 1257 TAD THIR 36 017206 3255 DCA MP3 37 017207 1600 TAD I MP4 38 017210 7161 STL CIA 39 017211 1252 TAD DATUMA 40 017212 3254 DCA MP1 41 017213 1654 TAD I MP1 42 017214 7521 SWP 43 44 017215 7010 LOOP, RAR /30% FASTER 45 017216 7521 SWP 46 017217 7420 SNL 47 017220 5223 JMP .+3 48 017221 7100 CLL 49 017222 1256 TAD MP2 50 017223 7010 RAR 51 017224 7521 SWP 52 017225 2255 ISZ MP3 53 017226 5215 JMP LOOP 54 017227 7010 RAR 55 017230 3654 DCA I MP1 56 017231 1253 TAD MP5 57 017232 7521 SWP 58 017233 2254 ISZ MP1 59 017234 1654 TAD I MP1 60 017235 3654 DCA I MP1 61 017236 7420 SNL 62 017237 5600 JMP I MP4 63 017240 2254 ISZ MP1 64 017241 2654 ISZ I MP1 65 017242 5600 JMP I MP4 66 017243 5240 JMP .-3 67 68 / ZBLOCK 6 69 70 INBUF=57 71 XINT=2647 72 DATUMA=7252 73 MP1=7254 74 MP2=7256 75 MP3=7255 76 MP5=7253 77 THIR=7257 78 $ BSW 7002 DATUMA 7252 INBUF 0057 KCF 6030 LOOP 7215 MP1 7254 MP2 7256 MP3 7255 MP4 7200 MP5 7253 SWP 7521 THIR 7257 XINT 2647