(FILECREATED "30-May-86 17:35:01" ("compiled on " {ERIS}UCODE>FORCEOPNRS.;1) "12-Nov-85 14:59:23" tcompl'd in "INTERLISP-D 11-May-86 ..." dated "11-May-86 15:19:08") (FILECREATED "30-May-86 17:34:15" {ERIS}UCODE>FORCEOPNRS.;1 15206 changes to: (VARS FORCEOPNRSCOMS) (FNS FORCEOPNRS MAKERANGES MAKERANGES.1 COMPAREOPS OCT SAMEOPS? TAKEUCODEOPNRS HEX COMPAREOPS.HDG) previous date: "13-May-86 12:41:57" {ERIS}WORK>DT>FORCEOPNRS.;5) FORCEOPNRS D1 (P 14Q TAMRANGE P 13Q TURANGE P 12Q TAMOPNR P 11Q TUOPNR P 10Q TUOP P 7 OPNAME P 6 TAMOP P 1 X P 0 TAMOPS I 0 TUOPS F 15Q OpCodeList F 16Q \TAMOPCODEARRAY) @W b` @ Y#`@ oH JKhco^_@_oO ONkoO O_N_OdhOhoO OMOOkOOk OO.Oi oi Oi oi Oi i NONL Mh\JZ=M&(332Q TERPRI 325Q PRIN1 316Q PRIN1 305Q PRIN1 276Q PRIN1 265Q PRIN1 213Q HELP 147Q HELP 120Q HELP 40Q SAMEOPS? 26Q COMPAREOPS 17Q COPYALL 6 MAKERANGES) (63Q \TAMOPCODES 34Q \TAMOPCODES 14Q \TAMOPCODES) ( 312Q " now " 272Q " range was" 206Q "rangeness" 142Q "#args" 113Q "name missing" 72Q "please run TOP.EDIT to load this \TAMOPCODES and set \TAMOPCODEARRAY" 45Q "no changes necessary") MAKERANGES D1 (P 14Q X P 12Q FIRSTOPNR P 11Q LASTOPNR P 10Q KOP P 6 KOP P 5 X P 4 OP P 1 RANGEDOPS P 0 OUTPUTOPS I 0 INPUTOPS) t 0@ i 1K)Ii 1 OH O"Hi \ ]&MLlLi oi i ihLHXyMI^MhMLh^IMLNLi oi Ni i 1LN Li oi Ni i NLNK[(_ O_O _O OOkOi oi i OOdOOhOhHXO__ZjJJ OkO_(542Q \FZEROP 452Q TERPRI 445Q PRIN1 434Q PRIN1 414Q LENGTH 401Q LAST 361Q SORT 327Q TERPRI 322Q PRIN1 314Q PRIN1 303Q PRIN1 274Q MEMB 261Q TERPRI 254Q PRIN1 246Q PRIN1 235Q PRIN1 140Q TERPRI 133Q PRIN1 122Q PRIN1 76Q MAKERANGES.1 67Q SORT 27Q SORT 12Q SORT 6 COPYALL) NIL ( 441Q " skipped because range not contiguous" 310Q " skipped because duplicated in " 242Q " skipped because length differs from that of " 127Q " taken as non-opK-format: low 4 bits wrong") MAKERANGES.1 D1 (P 5 FORCELENGTH P 4 KATOM P 3 NEWCHARLISTEND P 2 THENUMBER P 1 NEWCHARLISTBEG P 0 CHARLIST I 0 THEATOM) p@ X@dgjg]kl ghOH^hG3NIHHh HH3jHdd3Jl HHذIghK \ddgh\(gh\LgLdgh\ggkLhLJMh(161Q PACK 156Q \APPEND2 153Q \APPEND2 77Q \NCONC2 34Q SUBATOM 6 UNPACK) (240Q JUMPK 233Q NOPK 222Q OVARK.X_ 213Q OVARK.X 201Q FNK 167Q 'K 145Q K 37Q UDF 24Q NOPK 14Q NOP) () COMPAREOPS D1 (P 24Q TUOP P 23Q NARGSBAD P 22Q NROPSBAD P 21Q TUOP P 20Q TAMOP P 17Q TAMOP P 16Q ORIGTUOPS P 15Q ORIGTAMOPS P 14Q HDGPRINTED? P 13Q NERRORS P 12Q NARGSCOL P 11Q NROPSCOL P 10Q NEWCOL P 7 GONECOL P 6 TUCOL P 5 TAMCOL P 4 TAMOPS I 1 PRINTANYWAY I 0 TUOPS) @` d[KKkhIHhZH&Jkll.l8lBlLj8L i \_@ i b_L @OjOd_ VhLh@gL@ dgJLLOk_Mhi Oi Ohi OdOooi i gLL@@b"O hO"hh_$O O"h_&AO$O&_Mhi O i Nhi O"i O$Ok_Ohi oi O&Ok_Ohi oi i @@bOk_Nhi O(i Ohi O(dOooi i Ogh(672Q TERPRI 665Q PRIN1 636Q TAB 626Q PRIN1 617Q TAB 610Q COMPAREOPS.HDG 557Q TERPRI 552Q PRIN1 541Q TAB 516Q PRIN1 505Q TAB 462Q PRIN1 453Q TAB 444Q PRIN1 435Q TAB 426Q COMPAREOPS.HDG 314Q TERPRI 307Q PRIN1 260Q TAB 250Q PRIN1 241Q TAB 232Q COMPAREOPS.HDG 200Q ALPHORDER 147Q \FZEROP 114Q SORT 110Q COPYALL 101Q SORT 75Q COPYALL) (703Q errors 322Q EQUAL 204Q LESSP 166Q LESSP 5 \TAMOPCODES) ( 661Q "duplInTU" 654Q "TUOnly" 546Q "length" 512Q "rangeness" 303Q "duplInTam" 276Q "TamOnly") COMPAREOPS.HDG D1 (F 0 HDGPRINTED? F 1 TAMCOL F 2 TUCOL F 3 GONECOL) CP?Qhi oi Rhi oi Shi oi i i ich(73Q TERPRI 66Q TERPRI 61Q PRIN1 50Q TAB 41Q PRIN1 30Q TAB 21Q PRIN1 10Q TAB) NIL ( 55Q "problems..." 35Q "tucodeops" 15Q "tamops") LISTOPSA0001 D1 (I 1 B I 0 A) @A (10Q ALPHORDER) NIL () LISTOPS D1 (P 0 X I 0 OPS) *@`b g dHi i h(41Q TERPRI 34Q PRIN1 20Q SORT 12Q COPY) (15Q LISTOPSA0001 5 \TAMOPCODES) () LISTRANGEOPS D1 (P 4 BASEOPNR P 3 OPNR P 2 OPCODE P 0 N I 0 OPCODES) @`boj@1IHZ[bHkԸoKl\i oi ki KLi gi KLi KLloi ki Ji i IY(202Q TERPRI 175Q PRIN1 167Q SPACES 161Q PRIN1 137Q PRIN1 125Q PRIN1 115Q PRIN1 104Q SPACES 76Q PRIN1 65Q PRINTNUM) (121Q - 5 \TAMOPCODES) ( 155Q " **not properly aligned**" 72Q "q" 53Q (FIX 3 10Q T) 15Q "need opcodes array") SAMEOPS? D1 (P 6 TAMOP P 5 TUOP P 1 NROKTUOPS P 0 CTAMOPS I 1 TUOPS I 0 TAMOPS) @ j"A!LHhIA HhZh^+Mi oi i ^MKKiJH MNMi oi i (MNkMi oi i IkYL\m(226Q TERPRI 221Q PRIN1 210Q PRIN1 163Q TERPRI 156Q PRIN1 145Q PRIN1 126Q DREMOVE 75Q TERPRI 70Q PRIN1 57Q PRIN1 32Q LENGTH 3 COPYALL) NIL ( 215Q " bad length" 152Q " wrong OP#" 64Q " no TAMOP") OPNRSAVAIL D1 (P 3 NLO P 1 NHI I 0 OPCODES) g@`boljIHhoIi gi ljKdJi IkYIl@ gi oKi Kk[(136Q PRINTNUM 124Q PRIN1 114Q OPNRUSED 74Q TERPRI 53Q PRIN1 43Q PRINTNUM) (120Q * 47Q - 5 \TAMOPCODES) ( 131Q (FIX 1 20Q) 36Q (FIX 1 20Q) 15Q "bad OPCODES") OPNRUSED D1 (I 1 OPCODES I 0 TARGETOPNR) WA`b@3j@@lo@ A oA !HhYZ@J@J@JhIiHX(51Q HELP 34Q HELP) (4 \TAMOPCODES) ( 45Q "bad OPCODES" 30Q "bad OPNR") (PRETTYCOMPRINT FORCEOPNRSCOMS) (RPAQQ FORCEOPNRSCOMS ((* * FORCEOPNRS forces \TAMOPCODES' ops to correspond to OpCodeList -- diagnostic messages and no action if correspondence is not close enough -- you will have to make TOPCODE records for totally new opcodes before FORCEOPNRS will complete -- you will have to make \TAMOPCODEARRAY via some other mechanism) (FNS FORCEOPNRS) (FNS MAKERANGES MAKERANGES.1) (FNS COMPAREOPS COMPAREOPS.HDG) (* * other possibly useful stuff) (FNS LISTOPS LISTRANGEOPS) (FNS SAMEOPS?) (FNS OPNRSAVAIL OPNRUSED))) (PUTPROPS FORCEOPNRS COPYRIGHT ("Xerox Corporation" 1986)) NIL