diff --git a/build/misc.tcl b/build/misc.tcl index 71ee61db..ff30516b 100644 --- a/build/misc.tcl +++ b/build/misc.tcl @@ -1201,6 +1201,19 @@ respond "*" ":palx rug;_ar\r" respond "COMPUTER=" "1\r" expect ":KILL" +# BBN Logo +respond "*" ":cwd bbn\r" +respond "*" ":macro\r" +respond "*" "logo=logo\r" +respond "CORE USED" "\032" +type ":kill\r" +respond "*" ":dec sys:loader\r" +respond "*" "logo/go\r" +respond "EXIT" ":start 45\r" +respond "Command:" "d" +respond "*" ":pdump bbn; ts logo\r" +respond "*" ":kill\r" + # CLOGO respond "*" ":job clogo\r" respond "*" ":load hqm; clogo bin\r" diff --git a/src/bbn/logo.mac b/src/bbn/logo.mac index c2b4af78..672fb746 100644 --- a/src/bbn/logo.mac +++ b/src/bbn/logo.mac @@ -4712,7 +4712,7 @@ MNTZ: MPM ZEROP,ZEROP,1 ;WHICH RELIES ON THE FACT THAT THIS ENTIRE TABLE RESIDES ABOVE ;THE PREFIX OPERATOR TABLES TO DISTINGUISH INFIX FROM PREFIX OPS -RPREN: MPM ),EXCTRP,0,1 ;PARENTHESES ARE NOT INFIX OPERATORS BUT +RPREN: MPM <)>,EXCTRP,0,1 ;PARENTHESES ARE NOT INFIX OPERATORS BUT LPREN: MPM <(>,EXCTLP,0,1 ;ARE INCLUDED HERE FOR CONVENIENCE IMAKEL: MPM _,MAKE,1,2 UPRODL: MPM ,UPROD,1,2 ;NO OF ARGS NEEDED IS A LIE @@ -7781,8 +7781,8 @@ FOR MOCKTURTLE,< EE OFSCRN,THAT PUTS YOU OFF THE SCREEN.> EE PREDR1,INPUT MUST BE A PREDICATE.,ONEARG EE PREDR2,INPUTS MUST BE PREDICATES.,TWOARG -EE PRNER1,MATCHING (? -EE PRNER2,MISSING )? +EE PRNER1, +EE PRNER2, EE STOERR, CAN ONLY BE USED IN A PROCEDURE.,.PMNAM EE SUMERR,INPUTS MUST BE NUMBERS.,TWOARG FOR TENEX,<