;;; -*- Mode: Lisp; Package: USER; Syntax: Common-Lisp; Base: 10 -*- ;;;; (IN-PACKAGE "USER") ; Creation date: April 2, 2000 21:48:41 ; Created as: /v/hank/v28/boyer/nqthm-2nd/nqthm-1992/examples/yu/mc20-1.lib (EVAL-WHEN (LOAD EVAL COMPILE) (CHK-BASE-AND-PACKAGE-1992 10 *PACKAGE*)) (INIT-LIB (QUOTE (TYPE-PRESCRIPTION-LST LEMMAS TOTALP-LST LINEAR-LEMMAS QUICK-BLOCK-INFO SDEFN LISP-CODE SUBRP BODY ERRATICP TYPE-RESTRICTIONS INDUCTION-MACHINE LEVEL-NO JUSTIFICATIONS IDATE ELIMINATE-DESTRUCTORS-SEQ ELIMINATE-DESTRUCTORS-DESTS CONTROLLER-POCKETS SATELLITES MAIN-EVENT IMMEDIATE-DEPENDENTS0 EVENT LOCAL-UNDO-TUPLES)) (QUOTE (NONCONSTRUCTIVE-AXIOM-NAMES *1*BTM-OBJECTS RECOGNIZER-ALIST TRUE-COMPOUND-RECOGNIZER-ALIST FALSE-COMPOUND-RECOGNIZER-ALIST SHELL-ALIST SINGLETON-TYPE-SETS GENERALIZE-LEMMAS SHELL-POCKETS DEFINED-FUNCTIONS-TOGGLED DISABLED-LEMMAS *1*THM-MODE$ FREE-VARS-IN-REWRITE-RHSS CHRONOLOGY))) (SETQ LIB-DATE 1000402214841) (SETQ LIB-VERSION (QUOTE 7)) (SETQ NONCONSTRUCTIVE-AXIOM-NAMES (QUOTE NIL)) (SETQ *1*BTM-OBJECTS (QUOTE (ZERO))) (SETQ RECOGNIZER-ALIST (QUOTE ((NEGATIVEP . 32) (LISTP . 16) (LITATOM . 8) (NUMBERP . 4) (TRUEP . 2) (FALSEP . 1)))) (SETQ TRUE-COMPOUND-RECOGNIZER-ALIST (QUOTE NIL)) (SETQ FALSE-COMPOUND-RECOGNIZER-ALIST (QUOTE NIL)) (SETQ SHELL-ALIST (QUOTE ((MINUS . 5) (CONS . 4) (PACK . 3) (ADD1 . 2) (TRUE . 1) (FALSE . 0)))) (SETQ SINGLETON-TYPE-SETS (QUOTE (2 1))) (SETQ GENERALIZE-LEMMAS (QUOTE ((GENERALIZE-LEMMA REMAINDER-LESSP (EQUAL (LESSP (REMAINDER X Y) Y) (NOT (ZEROP Y)))) (GENERALIZE-LEMMA QUOTIENT-GENERALIZE (EQUAL (EQUAL (QUOTIENT M N) (QUOTE 0)) (IF (OR (ZEROP M) (ZEROP N)) (QUOTE *1*TRUE) (LESSP M N))))))) (SETQ SHELL-POCKETS (QUOTE ((MINUS NEGATIVE-GUTS) (CONS CAR CDR) (PACK UNPACK) (ADD1 SUB1) (TRUE) (FALSE)))) (SETQ DEFINED-FUNCTIONS-TOGGLED (QUOTE NIL)) (SETQ DISABLED-LEMMAS (QUOTE ((TIMES-DISTRIBUTES-PLUS TIMES-DISTRIBUTES-PLUS-OFF . T) (QUOTIENT-CROCK QUOTIENT-CROCK-OFF . T) (REMAINDER-CROCK REMAINDER-CROCK-OFF . T) (QUOTIENT-DIFFERENCE QUOTIENT-DIFFERENCE-OFF . T) (REMAINDER-DIFFERENCE REMAINDER-DIFFERENCE-OFF . T) (QUOTIENT-GENERALIZE QUOTIENT-GENERALIZE-OFF . T) (TIMES TIMES-OFF . T) (LESSP-1-TIMES-TREE-DELETE LESSP-1-TIMES-TREE-DELETE-OFF . T) (AND-NOT-ZEROP-TREE-DELETE AND-NOT-ZEROP-TREE-DELETE-OFF . T) (AND-NOT-ZEROP-TREE-LESSP AND-NOT-ZEROP-TREE-LESSP-OFF . T) (EQUAL-IFF EQUAL-IFF-OFF . T) (APPLY$ GROUND-ZERO . T) (V&C-APPLY$ GROUND-ZERO . T)))) (SETQ *1*THM-MODE$ (QUOTE NQTHM)) (SETQ FREE-VARS-IN-REWRITE-RHSS (QUOTE NIL)) (SETQ CHRONOLOGY (QUOTE (GCD-EXAMPLE LOAD-LST-MEM MAP-UPDATE MAKE-MAP KEY-FIELD CONS-KEY-LST STEPN STEPI CURRENT-INS EXECUTE-INS OPCODE-FIELD BIT-GROUP CMPI-SUBGROUP CMPI-INS CMPI-MAPPING CMPI-ADDR-MODEP EORI-SUBGROUP EORI-TO-CCR-INS EORI-INS ADDI-SUBGROUP ADDI-INS ADDI-ADDR-MODEP SUBI-SUBGROUP SUBI-INS SUBI-ADDR-MODEP ANDI-SUBGROUP ANDI-TO-CCR-INS ANDI-INS ANDI-ADDR-MODEP ORI-SUBGROUP ORI-TO-CCR-INS ORI-INS ORI-ADDR-MODEP S-BIT-SUBGROUP D-BIT-SUBGROUP BIT-INS BTST-INS BTST-ADDR-MODEP BSET-INS BSET-EFFECT BSET-ADDR-MODEP BCLR-INS BCLR-EFFECT BCLR-ADDR-MODEP BCHG-INS BCHG-EFFECT BCHG-ADDR-MODEP BXXX-OPD BXXX-NUM BXXX-OPLEN MOVEP-INS MOVEP-ADDR EVENP MOVEP-TO-REG MOVEP-READ MOVEP-READP MOVEP-TO-MEM MOVEP-WRITE MOVEP-WRITEP CMP-GROUP CMPM-INS CMPM-MAPPING EOR-INS EOR-MAPPING EOR&EORI-ADDR-MODEP EOR-EFFECT EOR-CVZNX EOR-N EOR-Z CMPA-INS CMPA-ADDR-MODEP CMP-INS CMP-ADDR-MODEP CMP-CVZNX MOVEQ-INS SCC-GROUP SUBQ-INS SUBQ-ADDR-MODEP ADDQ-INS ADDQ-ADDR-MODEP DBCC-INS DBCC-LOOP SCC-INS SCC-EFFECT SCC-ADDR-MODEP BCC-GROUP BCC-RA-SR BSR-INS BRANCH-CC BHI BLS BGE BLT BGT BLE BMI BEQ BCS MISC-GROUP NOT-SUBGROUP NOT-INS NOT-EFFECT NOT-CVZNX NOT-N NOT-Z NOT-ADDR-MODEP JSR-INS JSR-ADDR-MODEP JMP-INS JMP-MAPPING JMP-ADDR-MODEP NOP-SUBGROUP TRAPV-INS BVS RTR-INS RTS-INS RTD-INS RTD-MAPPING NOP-INS UNLK-SUBGROUP UNLK-INS LINK_W-INS LINK_L-INS LINK-MAPPING MOVEM-EA-RN-SUBGROUP MOVEM-EA-RN-INS READMP MOVEM-EA-RN-ADDR-MODEP MUL-DIV_L-INS MUL_L-INS DH DL MULS_L_DLDH MULS_L_DL MULU_L_DLDH MULU_L_DL DIV_L-INS DR DQ DIVU_L DIVUL_L DIVS_L DIVSL_L TST-SUBGROUP TAS-INS TAS-EFFECT TAS-ADDR-MODEP TST-INS TST-ADDR-MODEP EXT-SUBGROUP MOVEM-RN-EA-INS MOVEM-RN-EA-ADDR-MODEP MOVEM-PREDEC MOVEM-PRE-RNLST WRITEMP MOVEM-LEN MOVEM-RNLST WRITEM-RN READM-RN WRITEM-MEM READM-MEM EXT-INS PEA-SUBGROUP SWAP-INS SWAP-EFFECT SWAP-CVZNX SWAP-N SWAP-Z PEA-INS PEA-ADDR-MODEP NEG-SUBGROUP MOVE-TO-CCR-INS MOVE-TO-CCR-ADDR-MODEP NEG-INS NEG-ADDR-MODEP NEGX-SUBGROUP NEGX-INS NEGX-ADDR-MODEP CLR-SUBGROUP MOVE-FROM-CCR-INS MOVE-FROM-CCR-EFFECT MOVE-FROM-CCR-ADDR-MODEP CLR-INS CLR-EFFECT CLR-CVZNX CLR-ADDR-MODEP LEA-SUBGROUP EXTB-INS EXT-EFFECT EXT-CVZNX EXT-N EXT-Z LEA-INS LEA-ADDR-MODEP MOVE-GROUP MOVEA-INS MOVEA-ADDR-MODEP MOVE-INS MOVE-MAPPING MOVE-EFFECT MOVE-CVZNX MOVE-N MOVE-Z MOVE-ADDR-MODEP S&R-GROUP BF-SUBGROUP REGISTER-SHIFT-ROTATE MEMORY-SHIFT-ROTATE MEM-ROXR-INS MEM-ROXR-EFFECT MEM-ROXL-INS MEM-ROXL-EFFECT REGISTER-ROXR-INS ROXR-EFFECT ROXR-CVZNX ROXR-N ROXR-Z ROXR-C REGISTER-ROXL-INS ROXL-EFFECT ROXL-CVZNX ROXL-N ROXL-Z ROXL-C ROXR ROXL MEM-ASR-INS MEM-ASR-EFFECT MEM-ASL-INS MEM-ASL-EFFECT REGISTER-ASR-INS ASR-EFFECT ASR-CVZNX ASR-X ASR-N ASR-Z ASR-C REGISTER-ASL-INS ASL-EFFECT ASL-CVZNX ASL-X ASL-N ASL-Z ASL-V ASL-C MEM-LSR-INS MEM-LSR-EFFECT MEM-LSL-INS MEM-LSL-EFFECT REGISTER-LSR-INS LSR-EFFECT LSR-CVZNX LSR-X LSR-N LSR-Z LSR-C REGISTER-LSL-INS LSL-EFFECT LSL-CVZNX LSL-X LSL-N LSL-Z LSL-C MEM-ROR-INS MEM-ROR-EFFECT MEM-ROL-INS MEM-ROL-EFFECT REGISTER-ROR-INS ROR-EFFECT ROR-CVZNX ROR-N ROR-Z ROR-C REGISTER-ROL-INS ROL-EFFECT ROL-CVZNX ROL-N ROL-Z ROL-C SR-CNT I-DATA S&R-ADDR-MODEP ROR ROL OR-GROUP DIV_W-INS DIVU_W-INS DIVU-CVZNX DIVU-N DIVU-Z DIVU-V REM QUOT DIVS_W-INS DIVS-CVZNX DIVS-N DIVS-Z DIVS-V IREM IQUOT OR-INS2 OR-MAPPING OR-INS1 OR-ADDR-MODEP2 OR-ADDR-MODEP1 OR-EFFECT OR-CVZNX OR-N OR-Z AND-GROUP MUL_W-INS EXG-DRAR-INS EXG-ARAR-INS EXG-DRDR-INS MULS_W-INS MULS-CVZNX MULS-N MULS-Z MULS-V MULU_W-INS MULU-CVZNX MULU-N MULU-Z MULU-V MUL&DIV-ADDR-MODEP MULS MULU AND-INS2 AND-MAPPING AND-INS1 AND-ADDR-MODEP2 AND-ADDR-MODEP1 AND-EFFECT AND-CVZNX AND-N AND-Z SUB-GROUP SUBX-INS2 SUBX-INS1 SUBX-EFFECT SUBX-CVZNX SUBX-N SUBX-Z SUBX-V SUBX-C SUBA-INS SUBA-ADDR-MODEP SUB-INS2 SUB-MAPPING SUB-INS1 SUB-ADDR-MODEP2 SUB-ADDR-MODEP1 SUB-EFFECT SUB-CVZNX SUB-N SUB-Z SUB-V SUB-C ADD-GROUP ADDX-INS2 ADDX-INS1 ADDX-EFFECT ADDX-CVZNX ADDX-N ADDX-Z ADDX-V ADDX-C ADDA-INS ADDA-ADDR-MODEP ADD-INS2 ADD-MAPPING ADD-INS1 ADD-ADDR-MODEP2 ADD-ADDR-MODEP1 ADD-EFFECT ADD-CVZNX ADD-N ADD-Z ADD-V ADD-C MAPPING M-MAPPING A-MAPPING D-MAPPING MC-INSTATE BYTE-AN-DIRECT-MODEP IDATA-MODEP PREDEC-MODEP POSTINC-MODEP AN-DIRECT-MODEP DN-DIRECT-MODEP ALTERABLE-ADDR-MODEP CONTROL-ADDR-MODEP MEMORY-ADDR-MODEP DATA-ADDR-MODEP ADDR-MODEP EFFEC-ADDR IMMEDIATE PC-INDEX PC-INDEX1 BS-PC PC-INDEX-DISP PC-DISP ABSOLUTE-LONG ABSOLUTE-SHORT ADDR-INDEX ADDR-INDEX1 BS-REGISTER ADDR-INDEX2 BD-SZ ADDR-INDEX3 I-IS MEM-PREINDEX MEM-POSTINDEX MEM-INDIRECT ADDR-INDEX-BD ADDR-INDEX-DISP IR-SCALED INDEX-REGISTER INDEX-RN ADDR-DISP ADDR-PREDEC ADDR-POSTINC ADDR-INDIRECT AN-DIRECT DN-DIRECT PRE-EFFECT POST-EFFECT OPERAND PUSH-SP WRITE-SP READ-SP SP WRITE-AN WRITE-DN READ-AN READ-DN UPDATE-MEM UPDATE-CCR UPDATE-PC UPDATE-RFILE HALT SET-X SET-N SET-Z SET-V SET-C SET-CVZNX CVZNX CCR-X CCR-N CCR-Z CCR-V CCR-C WRITE-MEM BYTE-WRITE WRITE-MEMP BYTE-WRITEP OP-LEN COND-FIELD OPMODE-FIELD D_RN D_MODE S_MODE S_RN PC-LONG-READ PC-WORD-READ PC-READ-MEM PC-BYTE-READ LONG-READ WORD-READ READ-MEM BYTE-READ PC-LONG-READP PC-WORD-READP PC-READ-MEMP PC-BYTE-READP LONG-READP WORD-READP READ-MEMP BYTE-READP MC-HALTP LEN MC-MEM MC-CCR MC-PC MC-RFILE MC-STATUS MC-STATE WRITE-RN READ-RN OP-SZ PUT-NTH GET-NTH WRITE PC-READ READ WRITEP PC-READP READP MAKE-BT BRANCH1 BRANCH0 VALUE-FIELD INT-TO-NAT NAT-TO-INT INT-RANGEP UINT-TO-NAT NAT-TO-UINT UINT-RANGEP NAT-RANGEP IQUOTIENT IREMAINDER ITIMES IDIFFERENCE INEG IPLUS ILEQ ILESSP ABS IZEROP FIX-INT INTEGERP NEGP ASR LSR ASL LSL EXT REPLACE APP SUB SUBTRACTER ADD ADDER SETN BITS MBIT BITN LOGEOR LOGOR LOGAND LOGNOT TAIL HEAD BCDR BCAR B-EQUAL B-EOR B-NAND B-NOR B-OR B-AND B-NOT FIX-BIT B1P B0P B0 B1 BITP MODE-SIGNAL PC-ODD-SIGNAL PC-SIGNAL RESERVED-SIGNAL WRITE-SIGNAL READ-SIGNAL QSZ LSZ WSZ BSZ Q L W B TA-LEMMA-2 TA-LEMMA-1 LOG-LEQ QUOTIENT2-INDUCT LOG-QUOTIENT-EXP LOG-TIMES-EXP-1 LOG-TIMES-EXP LOG-EXP LOG-EQUAL-0 LOG-OF-1 LOG-OF-0 LOG TIMES-LESSP REMAINDER-REMAINDER-2 REMAINDER-REMAINDER-EXP2 QUOTIENT-TIMES-EXP2-4 QUOTIENT-TIMES-EXP2-3 QUOTIENT-TIMES-EXP2-2 QUOTIENT-TIMES-EXP2-1 REMAINDER-TIMES-EXP2-4 REMAINDER-TIMES-EXP2-3 REMAINDER-TIMES-EXP2-2 REMAINDER-TIMES-EXP2-1 LESSP-PLUS-EXP2 LESSP-PLUS-TIMES-EXP2 QUOT2-SUB12-INDUCT TIMES-DISTRIBUTES-PLUS-OFF TIMES-DISTRIBUTES-PLUS-NEW QUOTIENT-QUOTIENT QUOTIENT-TIMES-LESSP REMAINDER-PLUS-CANCEL REMAINDER-PLUS-CANCEL0 REMAINDER-EXP QUOTIENT-EXP QUOTIENT-DISTRIBUTES-TIMES2-ADD1 REMAINDER-DISTRIBUTES-TIMES2-ADD1 QUOTIENT-CROCK-OFF REMAINDER-CROCK-OFF QUOTIENT-TIMES-CANCEL QUOTIENT-CROCK TIMES-DISTRIBUTES-REMAINDER REMAINDER-CROCK REMAINDER-PLUS-REMAINDER REMAINDER-PLUS-REMAINDER2 REMAINDER-DIFFERENCE-REMAINDER1 REMAINDER-PLUS-REMAINDER1 QUOTIENT-SHRINK-FAST TIMES-PLUS-LESSP QUOTIENT-ADD1 REMAINDER-ADD1 REMAINDER-QUOTIENT-ELIM REMAINDER-QUOTIENT QUOTIENT-SUB1 REMAINDER-SUB1 QUOTIENT-DIFFERENCE-OFF REMAINDER-DIFFERENCE-OFF QUOTIENT-DIFFERENCE-TIMES2 QUOTIENT-DIFFERENCE-TIMES1 QUOTIENT-DIFFERENCE QUOTIENT-DIFFERENCE-PLUS2 QUOTIENT-DIFFERENCE-PLUS1 QUOTIENT-PLUS-ADD1 QUOTIENT-PLUS-PLUS QUOTIENT-PLUS-TIMES2 QUOTIENT-PLUS-TIMES1 QUOTIENT-TIMES QUOTIENT-PLUS2 QUOTIENT-PLUS1 REMAINDER-DIFFERENCE-TIMES2 REMAINDER-DIFFERENCE-TIMES1 REMAINDER-DIFFERENCE REMAINDER-PLUS-PLUS-TIMES2 REMAINDER-PLUS-PLUS-TIMES1 REMAINDER-PLUS-DIFFERENCE2 REMAINDER-PLUS-DIFFERENCE1 REMAINDER-PLUS-ADD1 REMAINDER-PLUS-PLUS REMAINDER-PLUS-TIMES2 REMAINDER-PLUS-TIMES1 REMAINDER-TIMES REMAINDER-PLUS2 REMAINDER-PLUS1 REMAINDER-WRT-2 QUOTIENT-LEQ QUOTIENT-LESSP-LINEAR REMAINDER-LESSP-LINEAR QUOTIENT-LESSP REMAINDER-LESSP QUOTIENT-GENERALIZE-OFF QUOTIENT-GENERALIZE QUOTIENT-2X-ADD1 REMAINDER-2X-ADD1 QUOTIENT-2X REMAINDER-2X QUOTIENT-EQUAL-0 QUOTIENT-X-X REMAINDER-X-X QUOTIENT-1 REMAINDER-1 QUOTIENT-0 REMAINDER-0 QUOTIENT-EXIT REMAINDER-EXIT TIMES-EXP2-LESSP TIMES-OFF EXP-LESSP EXP-OF-2-1 EXP-OF-2-0 EXP-EXP EXP-TIMES EXP-PLUS EXP-OF-1 EXP-OF-0 EXP CORRECTNESS-OF-CANCEL-EQUAL-TIMES CANCEL-EQUAL-TIMES EQUAL-1-TIMES-TREE-DELETE EQUAL-1-EVAL$-TIMES-TREE-DELETE-END ZEROP-MAKES-EQUAL-TRUE-BRIDGE EVAL$-EQUAL-TIMES-TREE-BAGDIFF LESSP-1-TIMES-TREE-DELETE-OFF AND-NOT-ZEROP-TREE-DELETE-OFF CORRECTNESS-OF-CANCEL-LESSP-TIMES CANCEL-LESSP-TIMES EVAL$-TIMES-FRINGE-MEMBER-ZERO LESSP-1-TIMES-TREE-DELETE LESSP-1-TIMES-TREE-DELETE-END AND-NOT-ZEROP-TREE-LESSP-OFF AND-NOT-ZEROP-TREE-DELETE EVAL$-AND-NOT-ZEROP-TREE-END AND-NOT-ZEROP-TREE-LESSP ZEROP-MAKES-LESSP-FALSE-BRIDGE EVAL$-LESSP-TIMES-TREE-BAGDIFF TIMES-TREE-TIMES-FRINGE EVAL$-TIMES-TREE-APPEND ZEROP-MAKES-TIMES-TREE-ZERO EVAL$-TIMES-MEMBER EVAL$-TIMES-TREE-NUMBERP NUMBERP-EVAL$-TIMES AND-NOT-ZEROP-TREE TIMES-TREE TIMES-FRINGE TIMES2-ADD1-LESSP-CANCEL TIMES-DISTRIBUTES-DIFFERENCE1 TIMES-DISTRIBUTES-DIFFERENCE TIMES-LESSP-LINEAR TIMES-LESSP-CANCEL-1 EQUAL-IFF-OFF TIMES-LESSP-CANCEL TIMES-LESSP-CANCEL0 TIMES-LESSP-1 TIMES-LESSP-0 TIMES-EQUAL-CANCEL TIMES-EQUAL-CANCEL0 EQUAL-IFF BOOLEAN TIMES-ASSOCIATIVITY TIMES-ADD1-SUB1 TIMES-1 TIMES-EQUAL-1 TIMES-EQUAL-0 TIMES-COMMUTATIVITY1 TIMES-COMMUTATIVITY TIMES-ADD1 TIMES-DISTRIBUTES-PLUS TIMES-ZERO PLUS-LESSP-CANCEL-2 CORRECTNESS-OF-CANCEL-LESSP-PLUS CANCEL-LESSP-PLUS CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS CANCEL-DIFFERENCE-PLUS CORRECTNESS-OF-CANCEL-EQUAL-PLUS CANCEL-EQUAL-PLUS LISTP-EVAL$ EVAL$-QUOTE CADR-EVAL$-LIST MEMBER-IMPLIES-NUMBERP PLUS-TREE-PLUS-FRINGE EVAL$-PLUS-TREE-APPEND BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GEQ NUMBERP-EVAL$-BRIDGE PLUS-TREE-BAGDIFF SUBBAGP-IMPLIES-PLUS-TREE-GEQ PLUS-TREE-DELETE MEMBER-IMPLIES-PLUS-TREE-GREATEREQP NUMBERP-EVAL$-PLUS-TREE NUMBERP-EVAL$-PLUS PLUS-TREE PLUS-FRINGE DIFFERENCE-LESSP-CANCEL DIFFERENCE-EQUAL-CANCEL-1 DIFFERENCE-EQUAL-CANCEL-0 DIFFERENCE=0 DIFFERENCE-LESSP1 DIFFERENCE-LESSP DIFFERENCE-PLUS-CANCEL-ADD1 DIFFERENCE-PLUS-CANCEL1 DIFFERENCE-DIFFERENCE2 DIFFERENCE-DIFFERENCE1 DIFFERENCE-PLUS2 DIFFERENCE-PLUS1 DIFFERENCE-PLUS-CANCEL0 DIFFERENCE-X-X DIFFERENCE-0 DIFFERENCE-SUB1-SUB1 DIFFERENCE-SUB1 SUB1-OF-1 PLUS-EQUAL-0 PLUS-LESSP-CANCEL-ADD1 PLUS-LESSP-CANCEL-1 PLUS-LESSP-CANCEL-0 PLUS-EQUAL-CANCEL PLUS-EQUAL-CANCEL0 PLUS-ASSOCIATIVITY PLUS-COMMUTATIVITY1 PLUS-COMMUTATIVITY PLUS-ADD1-1 PLUS-ADD1 LESSP-SUB1 LESSP-OF-1 SUBBAGP-BAGINT2 SUBBAGP-BAGINT1 SUBBAGP-CDR2 SUBBAGP-CDR1 SUBBAGP-DELETE DELETE-COMMUTATIVITY MEMBER-DELETE DELETE-NON-MEMBER BAGINT BAGDIFF SUBBAGP DELETE SUBSET GROUND-ZERO))) (SETQ LIB-ATOMS-WITH-PROPS (QUOTE (GCD-EXAMPLE *1*LOAD-LST-MEM LOAD-LST-MEM *1*MAP-UPDATE MAP-UPDATE *1*MAKE-MAP MAKE-MAP *1*KEY-FIELD KEY-FIELD *1*CONS-KEY-LST CONS-KEY-LST *1*STEPN STEPN *1*STEPI STEPI *1*CURRENT-INS CURRENT-INS *1*EXECUTE-INS EXECUTE-INS *1*OPCODE-FIELD OPCODE-FIELD *1*BIT-GROUP BIT-GROUP *1*CMPI-SUBGROUP CMPI-SUBGROUP *1*CMPI-INS CMPI-INS *1*CMPI-MAPPING CMPI-MAPPING *1*CMPI-ADDR-MODEP CMPI-ADDR-MODEP *1*EORI-SUBGROUP EORI-SUBGROUP *1*EORI-TO-CCR-INS EORI-TO-CCR-INS *1*EORI-INS EORI-INS *1*ADDI-SUBGROUP ADDI-SUBGROUP *1*ADDI-INS ADDI-INS *1*ADDI-ADDR-MODEP ADDI-ADDR-MODEP *1*SUBI-SUBGROUP SUBI-SUBGROUP *1*SUBI-INS SUBI-INS *1*SUBI-ADDR-MODEP SUBI-ADDR-MODEP *1*ANDI-SUBGROUP ANDI-SUBGROUP *1*ANDI-TO-CCR-INS ANDI-TO-CCR-INS *1*ANDI-INS ANDI-INS *1*ANDI-ADDR-MODEP ANDI-ADDR-MODEP *1*ORI-SUBGROUP ORI-SUBGROUP *1*ORI-TO-CCR-INS ORI-TO-CCR-INS *1*ORI-INS ORI-INS *1*ORI-ADDR-MODEP ORI-ADDR-MODEP *1*S-BIT-SUBGROUP S-BIT-SUBGROUP *1*D-BIT-SUBGROUP D-BIT-SUBGROUP *1*BIT-INS BIT-INS *1*BTST-INS BTST-INS *1*BTST-ADDR-MODEP BTST-ADDR-MODEP *1*BSET-INS BSET-INS *1*BSET-EFFECT BSET-EFFECT *1*BSET-ADDR-MODEP BSET-ADDR-MODEP *1*BCLR-INS BCLR-INS *1*BCLR-EFFECT BCLR-EFFECT *1*BCLR-ADDR-MODEP BCLR-ADDR-MODEP *1*BCHG-INS BCHG-INS *1*BCHG-EFFECT BCHG-EFFECT *1*BCHG-ADDR-MODEP BCHG-ADDR-MODEP *1*BXXX-OPD BXXX-OPD *1*BXXX-NUM BXXX-NUM *1*BXXX-OPLEN BXXX-OPLEN *1*MOVEP-INS MOVEP-INS *1*MOVEP-ADDR MOVEP-ADDR *1*EVENP EVENP *1*MOVEP-TO-REG MOVEP-TO-REG *1*MOVEP-READ MOVEP-READ *1*MOVEP-READP MOVEP-READP *1*MOVEP-TO-MEM MOVEP-TO-MEM *1*MOVEP-WRITE MOVEP-WRITE *1*MOVEP-WRITEP MOVEP-WRITEP *1*CMP-GROUP CMP-GROUP *1*CMPM-INS CMPM-INS *1*CMPM-MAPPING CMPM-MAPPING *1*EOR-INS EOR-INS *1*EOR-MAPPING EOR-MAPPING *1*EOR&EORI-ADDR-MODEP EOR&EORI-ADDR-MODEP *1*EOR-EFFECT EOR-EFFECT *1*EOR-CVZNX EOR-CVZNX *1*EOR-N EOR-N *1*EOR-Z EOR-Z *1*CMPA-INS CMPA-INS *1*CMPA-ADDR-MODEP CMPA-ADDR-MODEP *1*CMP-INS CMP-INS *1*CMP-ADDR-MODEP CMP-ADDR-MODEP *1*CMP-CVZNX CMP-CVZNX *1*MOVEQ-INS MOVEQ-INS *1*SCC-GROUP SCC-GROUP *1*SUBQ-INS SUBQ-INS *1*SUBQ-ADDR-MODEP SUBQ-ADDR-MODEP *1*ADDQ-INS ADDQ-INS *1*ADDQ-ADDR-MODEP ADDQ-ADDR-MODEP *1*DBCC-INS DBCC-INS *1*DBCC-LOOP DBCC-LOOP *1*SCC-INS SCC-INS *1*SCC-EFFECT SCC-EFFECT *1*SCC-ADDR-MODEP SCC-ADDR-MODEP *1*BCC-GROUP BCC-GROUP *1*BCC-RA-SR BCC-RA-SR *1*BSR-INS BSR-INS *1*BRANCH-CC BRANCH-CC *1*BHI BHI *1*BLS BLS *1*BGE BGE *1*BLT BLT *1*BGT BGT *1*BLE BLE *1*BMI BMI *1*BEQ BEQ *1*BCS BCS *1*MISC-GROUP MISC-GROUP *1*NOT-SUBGROUP NOT-SUBGROUP *1*NOT-INS NOT-INS *1*NOT-EFFECT NOT-EFFECT *1*NOT-CVZNX NOT-CVZNX *1*NOT-N NOT-N *1*NOT-Z NOT-Z *1*NOT-ADDR-MODEP NOT-ADDR-MODEP *1*JSR-INS JSR-INS *1*JSR-ADDR-MODEP JSR-ADDR-MODEP *1*JMP-INS JMP-INS *1*JMP-MAPPING JMP-MAPPING *1*JMP-ADDR-MODEP JMP-ADDR-MODEP *1*NOP-SUBGROUP NOP-SUBGROUP *1*TRAPV-INS TRAPV-INS *1*BVS BVS *1*RTR-INS RTR-INS *1*RTS-INS RTS-INS *1*RTD-INS RTD-INS *1*RTD-MAPPING RTD-MAPPING *1*NOP-INS NOP-INS *1*UNLK-SUBGROUP UNLK-SUBGROUP *1*UNLK-INS UNLK-INS *1*LINK_W-INS LINK_W-INS *1*LINK_L-INS LINK_L-INS *1*LINK-MAPPING LINK-MAPPING *1*MOVEM-EA-RN-SUBGROUP MOVEM-EA-RN-SUBGROUP *1*MOVEM-EA-RN-INS MOVEM-EA-RN-INS *1*READMP READMP *1*MOVEM-EA-RN-ADDR-MODEP MOVEM-EA-RN-ADDR-MODEP *1*MUL-DIV_L-INS MUL-DIV_L-INS *1*MUL_L-INS MUL_L-INS *1*DH DH *1*DL DL *1*MULS_L_DLDH MULS_L_DLDH *1*MULS_L_DL MULS_L_DL *1*MULU_L_DLDH MULU_L_DLDH *1*MULU_L_DL MULU_L_DL *1*DIV_L-INS DIV_L-INS *1*DR DR *1*DQ DQ *1*DIVU_L DIVU_L *1*DIVUL_L DIVUL_L *1*DIVS_L DIVS_L *1*DIVSL_L DIVSL_L *1*TST-SUBGROUP TST-SUBGROUP *1*TAS-INS TAS-INS *1*TAS-EFFECT TAS-EFFECT *1*TAS-ADDR-MODEP TAS-ADDR-MODEP *1*TST-INS TST-INS *1*TST-ADDR-MODEP TST-ADDR-MODEP *1*EXT-SUBGROUP EXT-SUBGROUP *1*MOVEM-RN-EA-INS MOVEM-RN-EA-INS *1*MOVEM-RN-EA-ADDR-MODEP MOVEM-RN-EA-ADDR-MODEP *1*MOVEM-PREDEC MOVEM-PREDEC *1*MOVEM-PRE-RNLST MOVEM-PRE-RNLST *1*WRITEMP WRITEMP *1*MOVEM-LEN MOVEM-LEN *1*MOVEM-RNLST MOVEM-RNLST *1*WRITEM-RN WRITEM-RN *1*READM-RN READM-RN *1*WRITEM-MEM WRITEM-MEM *1*READM-MEM READM-MEM *1*EXT-INS EXT-INS *1*PEA-SUBGROUP PEA-SUBGROUP *1*SWAP-INS SWAP-INS *1*SWAP-EFFECT SWAP-EFFECT *1*SWAP-CVZNX SWAP-CVZNX *1*SWAP-N SWAP-N *1*SWAP-Z SWAP-Z *1*PEA-INS PEA-INS *1*PEA-ADDR-MODEP PEA-ADDR-MODEP *1*NEG-SUBGROUP NEG-SUBGROUP *1*MOVE-TO-CCR-INS MOVE-TO-CCR-INS *1*MOVE-TO-CCR-ADDR-MODEP MOVE-TO-CCR-ADDR-MODEP *1*NEG-INS NEG-INS *1*NEG-ADDR-MODEP NEG-ADDR-MODEP *1*NEGX-SUBGROUP NEGX-SUBGROUP *1*NEGX-INS NEGX-INS *1*NEGX-ADDR-MODEP NEGX-ADDR-MODEP *1*CLR-SUBGROUP CLR-SUBGROUP *1*MOVE-FROM-CCR-INS MOVE-FROM-CCR-INS *1*MOVE-FROM-CCR-EFFECT MOVE-FROM-CCR-EFFECT *1*MOVE-FROM-CCR-ADDR-MODEP MOVE-FROM-CCR-ADDR-MODEP *1*CLR-INS CLR-INS *1*CLR-EFFECT CLR-EFFECT *1*CLR-CVZNX CLR-CVZNX *1*CLR-ADDR-MODEP CLR-ADDR-MODEP *1*LEA-SUBGROUP LEA-SUBGROUP *1*EXTB-INS EXTB-INS *1*EXT-EFFECT EXT-EFFECT *1*EXT-CVZNX EXT-CVZNX *1*EXT-N EXT-N *1*EXT-Z EXT-Z *1*LEA-INS LEA-INS *1*LEA-ADDR-MODEP LEA-ADDR-MODEP *1*MOVE-GROUP MOVE-GROUP *1*MOVEA-INS MOVEA-INS *1*MOVEA-ADDR-MODEP MOVEA-ADDR-MODEP *1*MOVE-INS MOVE-INS *1*MOVE-MAPPING MOVE-MAPPING *1*MOVE-EFFECT MOVE-EFFECT *1*MOVE-CVZNX MOVE-CVZNX *1*MOVE-N MOVE-N *1*MOVE-Z MOVE-Z *1*MOVE-ADDR-MODEP MOVE-ADDR-MODEP *1*S&R-GROUP S&R-GROUP *1*BF-SUBGROUP BF-SUBGROUP *1*REGISTER-SHIFT-ROTATE REGISTER-SHIFT-ROTATE *1*MEMORY-SHIFT-ROTATE MEMORY-SHIFT-ROTATE *1*MEM-ROXR-INS MEM-ROXR-INS *1*MEM-ROXR-EFFECT MEM-ROXR-EFFECT *1*MEM-ROXL-INS MEM-ROXL-INS *1*MEM-ROXL-EFFECT MEM-ROXL-EFFECT *1*REGISTER-ROXR-INS REGISTER-ROXR-INS *1*ROXR-EFFECT ROXR-EFFECT *1*ROXR-CVZNX ROXR-CVZNX *1*ROXR-N ROXR-N *1*ROXR-Z ROXR-Z *1*ROXR-C ROXR-C *1*REGISTER-ROXL-INS REGISTER-ROXL-INS *1*ROXL-EFFECT ROXL-EFFECT *1*ROXL-CVZNX ROXL-CVZNX *1*ROXL-N ROXL-N *1*ROXL-Z ROXL-Z *1*ROXL-C ROXL-C *1*ROXR ROXR *1*ROXL ROXL *1*MEM-ASR-INS MEM-ASR-INS *1*MEM-ASR-EFFECT MEM-ASR-EFFECT *1*MEM-ASL-INS MEM-ASL-INS *1*MEM-ASL-EFFECT MEM-ASL-EFFECT *1*REGISTER-ASR-INS REGISTER-ASR-INS *1*ASR-EFFECT ASR-EFFECT *1*ASR-CVZNX ASR-CVZNX *1*ASR-X ASR-X *1*ASR-N ASR-N *1*ASR-Z ASR-Z *1*ASR-C ASR-C *1*REGISTER-ASL-INS REGISTER-ASL-INS *1*ASL-EFFECT ASL-EFFECT *1*ASL-CVZNX ASL-CVZNX *1*ASL-X ASL-X *1*ASL-N ASL-N *1*ASL-Z ASL-Z *1*ASL-V ASL-V *1*ASL-C ASL-C *1*MEM-LSR-INS MEM-LSR-INS *1*MEM-LSR-EFFECT MEM-LSR-EFFECT *1*MEM-LSL-INS MEM-LSL-INS *1*MEM-LSL-EFFECT MEM-LSL-EFFECT *1*REGISTER-LSR-INS REGISTER-LSR-INS *1*LSR-EFFECT LSR-EFFECT *1*LSR-CVZNX LSR-CVZNX *1*LSR-X LSR-X *1*LSR-N LSR-N *1*LSR-Z LSR-Z *1*LSR-C LSR-C *1*REGISTER-LSL-INS REGISTER-LSL-INS *1*LSL-EFFECT LSL-EFFECT *1*LSL-CVZNX LSL-CVZNX *1*LSL-X LSL-X *1*LSL-N LSL-N *1*LSL-Z LSL-Z *1*LSL-C LSL-C *1*MEM-ROR-INS MEM-ROR-INS *1*MEM-ROR-EFFECT MEM-ROR-EFFECT *1*MEM-ROL-INS MEM-ROL-INS *1*MEM-ROL-EFFECT MEM-ROL-EFFECT *1*REGISTER-ROR-INS REGISTER-ROR-INS *1*ROR-EFFECT ROR-EFFECT *1*ROR-CVZNX ROR-CVZNX *1*ROR-N ROR-N *1*ROR-Z ROR-Z *1*ROR-C ROR-C *1*REGISTER-ROL-INS REGISTER-ROL-INS *1*ROL-EFFECT ROL-EFFECT *1*ROL-CVZNX ROL-CVZNX *1*ROL-N ROL-N *1*ROL-Z ROL-Z *1*ROL-C ROL-C *1*SR-CNT SR-CNT *1*I-DATA I-DATA *1*S&R-ADDR-MODEP S&R-ADDR-MODEP *1*ROR ROR *1*ROL ROL *1*OR-GROUP OR-GROUP *1*DIV_W-INS DIV_W-INS *1*DIVU_W-INS DIVU_W-INS *1*DIVU-CVZNX DIVU-CVZNX *1*DIVU-N DIVU-N *1*DIVU-Z DIVU-Z *1*DIVU-V DIVU-V *1*REM REM *1*QUOT QUOT *1*DIVS_W-INS DIVS_W-INS *1*DIVS-CVZNX DIVS-CVZNX *1*DIVS-N DIVS-N *1*DIVS-Z DIVS-Z *1*DIVS-V DIVS-V *1*IREM IREM *1*IQUOT IQUOT *1*OR-INS2 OR-INS2 *1*OR-MAPPING OR-MAPPING *1*OR-INS1 OR-INS1 *1*OR-ADDR-MODEP2 OR-ADDR-MODEP2 *1*OR-ADDR-MODEP1 OR-ADDR-MODEP1 *1*OR-EFFECT OR-EFFECT *1*OR-CVZNX OR-CVZNX *1*OR-N OR-N *1*OR-Z OR-Z *1*AND-GROUP AND-GROUP *1*MUL_W-INS MUL_W-INS *1*EXG-DRAR-INS EXG-DRAR-INS *1*EXG-ARAR-INS EXG-ARAR-INS *1*EXG-DRDR-INS EXG-DRDR-INS *1*MULS_W-INS MULS_W-INS *1*MULS-CVZNX MULS-CVZNX *1*MULS-N MULS-N *1*MULS-Z MULS-Z *1*MULS-V MULS-V *1*MULU_W-INS MULU_W-INS *1*MULU-CVZNX MULU-CVZNX *1*MULU-N MULU-N *1*MULU-Z MULU-Z *1*MULU-V MULU-V *1*MUL&DIV-ADDR-MODEP MUL&DIV-ADDR-MODEP *1*MULS MULS *1*MULU MULU *1*AND-INS2 AND-INS2 *1*AND-MAPPING AND-MAPPING *1*AND-INS1 AND-INS1 *1*AND-ADDR-MODEP2 AND-ADDR-MODEP2 *1*AND-ADDR-MODEP1 AND-ADDR-MODEP1 *1*AND-EFFECT AND-EFFECT *1*AND-CVZNX AND-CVZNX *1*AND-N AND-N *1*AND-Z AND-Z *1*SUB-GROUP SUB-GROUP *1*SUBX-INS2 SUBX-INS2 *1*SUBX-INS1 SUBX-INS1 *1*SUBX-EFFECT SUBX-EFFECT *1*SUBX-CVZNX SUBX-CVZNX *1*SUBX-N SUBX-N *1*SUBX-Z SUBX-Z *1*SUBX-V SUBX-V *1*SUBX-C SUBX-C *1*SUBA-INS SUBA-INS *1*SUBA-ADDR-MODEP SUBA-ADDR-MODEP *1*SUB-INS2 SUB-INS2 *1*SUB-MAPPING SUB-MAPPING *1*SUB-INS1 SUB-INS1 *1*SUB-ADDR-MODEP2 SUB-ADDR-MODEP2 *1*SUB-ADDR-MODEP1 SUB-ADDR-MODEP1 *1*SUB-EFFECT SUB-EFFECT *1*SUB-CVZNX SUB-CVZNX *1*SUB-N SUB-N *1*SUB-Z SUB-Z *1*SUB-V SUB-V *1*SUB-C SUB-C *1*ADD-GROUP ADD-GROUP *1*ADDX-INS2 ADDX-INS2 *1*ADDX-INS1 ADDX-INS1 *1*ADDX-EFFECT ADDX-EFFECT *1*ADDX-CVZNX ADDX-CVZNX *1*ADDX-N ADDX-N *1*ADDX-Z ADDX-Z *1*ADDX-V ADDX-V *1*ADDX-C ADDX-C *1*ADDA-INS ADDA-INS *1*ADDA-ADDR-MODEP ADDA-ADDR-MODEP *1*ADD-INS2 ADD-INS2 *1*ADD-MAPPING ADD-MAPPING *1*ADD-INS1 ADD-INS1 *1*ADD-ADDR-MODEP2 ADD-ADDR-MODEP2 *1*ADD-ADDR-MODEP1 ADD-ADDR-MODEP1 *1*ADD-EFFECT ADD-EFFECT *1*ADD-CVZNX ADD-CVZNX *1*ADD-N ADD-N *1*ADD-Z ADD-Z *1*ADD-V ADD-V *1*ADD-C ADD-C *1*MAPPING MAPPING *1*M-MAPPING M-MAPPING *1*A-MAPPING A-MAPPING *1*D-MAPPING D-MAPPING *1*MC-INSTATE MC-INSTATE *1*BYTE-AN-DIRECT-MODEP BYTE-AN-DIRECT-MODEP *1*IDATA-MODEP IDATA-MODEP *1*PREDEC-MODEP PREDEC-MODEP *1*POSTINC-MODEP POSTINC-MODEP *1*AN-DIRECT-MODEP AN-DIRECT-MODEP *1*DN-DIRECT-MODEP DN-DIRECT-MODEP *1*ALTERABLE-ADDR-MODEP ALTERABLE-ADDR-MODEP *1*CONTROL-ADDR-MODEP CONTROL-ADDR-MODEP *1*MEMORY-ADDR-MODEP MEMORY-ADDR-MODEP *1*DATA-ADDR-MODEP DATA-ADDR-MODEP *1*ADDR-MODEP ADDR-MODEP *1*EFFEC-ADDR EFFEC-ADDR *1*IMMEDIATE IMMEDIATE *1*PC-INDEX PC-INDEX *1*PC-INDEX1 PC-INDEX1 *1*BS-PC BS-PC *1*PC-INDEX-DISP PC-INDEX-DISP *1*PC-DISP PC-DISP *1*ABSOLUTE-LONG ABSOLUTE-LONG *1*ABSOLUTE-SHORT ABSOLUTE-SHORT *1*ADDR-INDEX ADDR-INDEX *1*ADDR-INDEX1 ADDR-INDEX1 *1*BS-REGISTER BS-REGISTER *1*ADDR-INDEX2 ADDR-INDEX2 *1*BD-SZ BD-SZ *1*ADDR-INDEX3 ADDR-INDEX3 *1*I-IS I-IS *1*MEM-PREINDEX MEM-PREINDEX *1*MEM-POSTINDEX MEM-POSTINDEX *1*MEM-INDIRECT MEM-INDIRECT *1*ADDR-INDEX-BD ADDR-INDEX-BD *1*ADDR-INDEX-DISP ADDR-INDEX-DISP *1*IR-SCALED IR-SCALED *1*INDEX-REGISTER INDEX-REGISTER *1*INDEX-RN INDEX-RN *1*ADDR-DISP ADDR-DISP *1*ADDR-PREDEC ADDR-PREDEC *1*ADDR-POSTINC ADDR-POSTINC *1*ADDR-INDIRECT ADDR-INDIRECT *1*AN-DIRECT AN-DIRECT *1*DN-DIRECT DN-DIRECT *1*PRE-EFFECT PRE-EFFECT *1*POST-EFFECT POST-EFFECT *1*OPERAND OPERAND *1*PUSH-SP PUSH-SP *1*WRITE-SP WRITE-SP *1*READ-SP READ-SP *1*SP SP *1*WRITE-AN WRITE-AN *1*WRITE-DN WRITE-DN *1*READ-AN READ-AN *1*READ-DN READ-DN *1*UPDATE-MEM UPDATE-MEM *1*UPDATE-CCR UPDATE-CCR *1*UPDATE-PC UPDATE-PC *1*UPDATE-RFILE UPDATE-RFILE *1*HALT HALT *1*SET-X SET-X *1*SET-N SET-N *1*SET-Z SET-Z *1*SET-V SET-V *1*SET-C SET-C *1*SET-CVZNX SET-CVZNX *1*CVZNX CVZNX *1*CCR-X CCR-X *1*CCR-N CCR-N *1*CCR-Z CCR-Z *1*CCR-V CCR-V *1*CCR-C CCR-C *1*WRITE-MEM WRITE-MEM *1*BYTE-WRITE BYTE-WRITE *1*WRITE-MEMP WRITE-MEMP *1*BYTE-WRITEP BYTE-WRITEP *1*OP-LEN OP-LEN *1*COND-FIELD COND-FIELD *1*OPMODE-FIELD OPMODE-FIELD *1*D_RN D_RN *1*D_MODE D_MODE *1*S_MODE S_MODE *1*S_RN S_RN *1*PC-LONG-READ PC-LONG-READ *1*PC-WORD-READ PC-WORD-READ *1*PC-READ-MEM PC-READ-MEM *1*PC-BYTE-READ PC-BYTE-READ *1*LONG-READ LONG-READ *1*WORD-READ WORD-READ *1*READ-MEM READ-MEM *1*BYTE-READ BYTE-READ *1*PC-LONG-READP PC-LONG-READP *1*PC-WORD-READP PC-WORD-READP *1*PC-READ-MEMP PC-READ-MEMP *1*PC-BYTE-READP PC-BYTE-READP *1*LONG-READP LONG-READP *1*WORD-READP WORD-READP *1*READ-MEMP READ-MEMP *1*BYTE-READP BYTE-READP *1*MC-HALTP MC-HALTP *1*LEN LEN *1*MC-MEM MC-MEM *1*MC-CCR MC-CCR *1*MC-PC MC-PC *1*MC-RFILE MC-RFILE *1*MC-STATUS MC-STATUS *1*MC-STATE MC-STATE *1*WRITE-RN WRITE-RN *1*READ-RN READ-RN *1*OP-SZ OP-SZ *1*PUT-NTH PUT-NTH *1*GET-NTH GET-NTH *1*WRITE WRITE *1*PC-READ PC-READ *1*READ READ *1*WRITEP WRITEP *1*PC-READP PC-READP *1*READP READP *1*MAKE-BT MAKE-BT *1*BRANCH1 BRANCH1 *1*BRANCH0 BRANCH0 *1*VALUE-FIELD VALUE-FIELD *1*INT-TO-NAT INT-TO-NAT *1*NAT-TO-INT NAT-TO-INT *1*INT-RANGEP INT-RANGEP *1*UINT-TO-NAT UINT-TO-NAT *1*NAT-TO-UINT NAT-TO-UINT *1*UINT-RANGEP UINT-RANGEP *1*NAT-RANGEP NAT-RANGEP *1*IQUOTIENT IQUOTIENT *1*IREMAINDER IREMAINDER *1*ITIMES ITIMES *1*IDIFFERENCE IDIFFERENCE *1*INEG INEG *1*IPLUS IPLUS *1*ILEQ ILEQ *1*ILESSP ILESSP *1*ABS ABS *1*IZEROP IZEROP *1*FIX-INT FIX-INT *1*INTEGERP INTEGERP *1*NEGP NEGP *1*ASR ASR *1*LSR LSR *1*ASL ASL *1*LSL LSL *1*EXT EXT *1*REPLACE REPLACE *1*APP APP *1*SUB SUB *1*SUBTRACTER SUBTRACTER *1*ADD ADD *1*ADDER ADDER *1*SETN SETN *1*BITS BITS *1*MBIT MBIT *1*BITN BITN *1*LOGEOR LOGEOR *1*LOGOR LOGOR *1*LOGAND LOGAND *1*LOGNOT LOGNOT *1*TAIL TAIL *1*HEAD HEAD *1*BCDR BCDR *1*BCAR BCAR *1*B-EQUAL B-EQUAL *1*B-EOR B-EOR *1*B-NAND B-NAND *1*B-NOR B-NOR *1*B-OR B-OR *1*B-AND B-AND *1*B-NOT B-NOT *1*FIX-BIT FIX-BIT *1*B1P B1P *1*B0P B0P *1*B0 B0 *1*B1 B1 *1*BITP BITP *1*MODE-SIGNAL MODE-SIGNAL *1*PC-ODD-SIGNAL PC-ODD-SIGNAL *1*PC-SIGNAL PC-SIGNAL *1*RESERVED-SIGNAL RESERVED-SIGNAL *1*WRITE-SIGNAL WRITE-SIGNAL *1*READ-SIGNAL READ-SIGNAL *1*QSZ QSZ *1*LSZ LSZ *1*WSZ WSZ *1*BSZ BSZ *1*Q Q *1*L L *1*W W *1*B B TA-LEMMA-2 TA-LEMMA-1 LOG-LEQ *1*QUOTIENT2-INDUCT QUOTIENT2-INDUCT LOG-QUOTIENT-EXP LOG-TIMES-EXP-1 LOG-TIMES-EXP LOG-EXP LOG-EQUAL-0 LOG-OF-1 LOG-OF-0 *1*LOG LOG TIMES-LESSP REMAINDER-REMAINDER-2 REMAINDER-REMAINDER-EXP2 QUOTIENT-TIMES-EXP2-4 QUOTIENT-TIMES-EXP2-3 QUOTIENT-TIMES-EXP2-2 QUOTIENT-TIMES-EXP2-1 REMAINDER-TIMES-EXP2-4 REMAINDER-TIMES-EXP2-3 REMAINDER-TIMES-EXP2-2 REMAINDER-TIMES-EXP2-1 LESSP-PLUS-EXP2 LESSP-PLUS-TIMES-EXP2 *1*QUOT2-SUB12-INDUCT QUOT2-SUB12-INDUCT TIMES-DISTRIBUTES-PLUS-OFF TIMES-DISTRIBUTES-PLUS-NEW QUOTIENT-QUOTIENT QUOTIENT-TIMES-LESSP REMAINDER-PLUS-CANCEL REMAINDER-PLUS-CANCEL0 REMAINDER-EXP QUOTIENT-EXP QUOTIENT-DISTRIBUTES-TIMES2-ADD1 REMAINDER-DISTRIBUTES-TIMES2-ADD1 QUOTIENT-CROCK-OFF REMAINDER-CROCK-OFF QUOTIENT-TIMES-CANCEL QUOTIENT-CROCK TIMES-DISTRIBUTES-REMAINDER REMAINDER-CROCK REMAINDER-PLUS-REMAINDER REMAINDER-PLUS-REMAINDER2 REMAINDER-DIFFERENCE-REMAINDER1 REMAINDER-PLUS-REMAINDER1 QUOTIENT-SHRINK-FAST TIMES-PLUS-LESSP QUOTIENT-ADD1 REMAINDER-ADD1 REMAINDER-QUOTIENT-ELIM REMAINDER-QUOTIENT QUOTIENT-SUB1 REMAINDER-SUB1 QUOTIENT-DIFFERENCE-OFF REMAINDER-DIFFERENCE-OFF QUOTIENT-DIFFERENCE-TIMES2 QUOTIENT-DIFFERENCE-TIMES1 QUOTIENT-DIFFERENCE QUOTIENT-DIFFERENCE-PLUS2 QUOTIENT-DIFFERENCE-PLUS1 QUOTIENT-PLUS-ADD1 QUOTIENT-PLUS-PLUS QUOTIENT-PLUS-TIMES2 QUOTIENT-PLUS-TIMES1 QUOTIENT-TIMES QUOTIENT-PLUS2 QUOTIENT-PLUS1 REMAINDER-DIFFERENCE-TIMES2 REMAINDER-DIFFERENCE-TIMES1 REMAINDER-DIFFERENCE REMAINDER-PLUS-PLUS-TIMES2 REMAINDER-PLUS-PLUS-TIMES1 REMAINDER-PLUS-DIFFERENCE2 REMAINDER-PLUS-DIFFERENCE1 REMAINDER-PLUS-ADD1 REMAINDER-PLUS-PLUS REMAINDER-PLUS-TIMES2 REMAINDER-PLUS-TIMES1 REMAINDER-TIMES REMAINDER-PLUS2 REMAINDER-PLUS1 REMAINDER-WRT-2 QUOTIENT-LEQ QUOTIENT-LESSP-LINEAR REMAINDER-LESSP-LINEAR QUOTIENT-LESSP REMAINDER-LESSP QUOTIENT-GENERALIZE-OFF QUOTIENT-GENERALIZE QUOTIENT-2X-ADD1 REMAINDER-2X-ADD1 QUOTIENT-2X REMAINDER-2X QUOTIENT-EQUAL-0 QUOTIENT-X-X REMAINDER-X-X QUOTIENT-1 REMAINDER-1 QUOTIENT-0 REMAINDER-0 QUOTIENT-EXIT REMAINDER-EXIT TIMES-EXP2-LESSP TIMES-OFF EXP-LESSP EXP-OF-2-1 EXP-OF-2-0 EXP-EXP EXP-TIMES EXP-PLUS EXP-OF-1 EXP-OF-0 *1*EXP EXP CORRECTNESS-OF-CANCEL-EQUAL-TIMES *1*CANCEL-EQUAL-TIMES CANCEL-EQUAL-TIMES EQUAL-1-TIMES-TREE-DELETE *1*EQUAL-1-EVAL$-TIMES-TREE-DELETE-END EQUAL-1-EVAL$-TIMES-TREE-DELETE-END ZEROP-MAKES-EQUAL-TRUE-BRIDGE EVAL$-EQUAL-TIMES-TREE-BAGDIFF LESSP-1-TIMES-TREE-DELETE-OFF AND-NOT-ZEROP-TREE-DELETE-OFF CORRECTNESS-OF-CANCEL-LESSP-TIMES *1*CANCEL-LESSP-TIMES CANCEL-LESSP-TIMES EVAL$-TIMES-FRINGE-MEMBER-ZERO LESSP-1-TIMES-TREE-DELETE *1*LESSP-1-TIMES-TREE-DELETE-END LESSP-1-TIMES-TREE-DELETE-END AND-NOT-ZEROP-TREE-LESSP-OFF AND-NOT-ZEROP-TREE-DELETE *1*EVAL$-AND-NOT-ZEROP-TREE-END EVAL$-AND-NOT-ZEROP-TREE-END AND-NOT-ZEROP-TREE-LESSP ZEROP-MAKES-LESSP-FALSE-BRIDGE EVAL$-LESSP-TIMES-TREE-BAGDIFF TIMES-TREE-TIMES-FRINGE EVAL$-TIMES-TREE-APPEND ZEROP-MAKES-TIMES-TREE-ZERO EVAL$-TIMES-MEMBER EVAL$-TIMES-TREE-NUMBERP NUMBERP-EVAL$-TIMES *1*AND-NOT-ZEROP-TREE AND-NOT-ZEROP-TREE *1*TIMES-TREE TIMES-TREE *1*TIMES-FRINGE TIMES-FRINGE TIMES2-ADD1-LESSP-CANCEL TIMES-DISTRIBUTES-DIFFERENCE1 TIMES-DISTRIBUTES-DIFFERENCE TIMES-LESSP-LINEAR TIMES-LESSP-CANCEL-1 EQUAL-IFF-OFF TIMES-LESSP-CANCEL TIMES-LESSP-CANCEL0 TIMES-LESSP-1 TIMES-LESSP-0 TIMES-EQUAL-CANCEL TIMES-EQUAL-CANCEL0 EQUAL-IFF *1*BOOLEAN BOOLEAN TIMES-ASSOCIATIVITY TIMES-ADD1-SUB1 TIMES-1 TIMES-EQUAL-1 TIMES-EQUAL-0 TIMES-COMMUTATIVITY1 TIMES-COMMUTATIVITY TIMES-ADD1 TIMES-DISTRIBUTES-PLUS TIMES-ZERO PLUS-LESSP-CANCEL-2 CORRECTNESS-OF-CANCEL-LESSP-PLUS *1*CANCEL-LESSP-PLUS CANCEL-LESSP-PLUS CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS *1*CANCEL-DIFFERENCE-PLUS CANCEL-DIFFERENCE-PLUS CORRECTNESS-OF-CANCEL-EQUAL-PLUS *1*CANCEL-EQUAL-PLUS CANCEL-EQUAL-PLUS LISTP-EVAL$ EVAL$-QUOTE CADR-EVAL$-LIST MEMBER-IMPLIES-NUMBERP PLUS-TREE-PLUS-FRINGE EVAL$-PLUS-TREE-APPEND BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GEQ NUMBERP-EVAL$-BRIDGE PLUS-TREE-BAGDIFF SUBBAGP-IMPLIES-PLUS-TREE-GEQ PLUS-TREE-DELETE MEMBER-IMPLIES-PLUS-TREE-GREATEREQP NUMBERP-EVAL$-PLUS-TREE NUMBERP-EVAL$-PLUS *1*PLUS-TREE PLUS-TREE *1*PLUS-FRINGE PLUS-FRINGE DIFFERENCE-LESSP-CANCEL DIFFERENCE-EQUAL-CANCEL-1 DIFFERENCE-EQUAL-CANCEL-0 DIFFERENCE=0 DIFFERENCE-LESSP1 DIFFERENCE-LESSP DIFFERENCE-PLUS-CANCEL-ADD1 DIFFERENCE-PLUS-CANCEL1 DIFFERENCE-DIFFERENCE2 DIFFERENCE-DIFFERENCE1 DIFFERENCE-PLUS2 DIFFERENCE-PLUS1 DIFFERENCE-PLUS-CANCEL0 DIFFERENCE-X-X DIFFERENCE-0 DIFFERENCE-SUB1-SUB1 DIFFERENCE-SUB1 SUB1-OF-1 PLUS-EQUAL-0 PLUS-LESSP-CANCEL-ADD1 PLUS-LESSP-CANCEL-1 PLUS-LESSP-CANCEL-0 PLUS-EQUAL-CANCEL PLUS-EQUAL-CANCEL0 PLUS-ASSOCIATIVITY PLUS-COMMUTATIVITY1 PLUS-COMMUTATIVITY PLUS-ADD1-1 PLUS-ADD1 LESSP-SUB1 LESSP-OF-1 SUBBAGP-BAGINT2 SUBBAGP-BAGINT1 SUBBAGP-CDR2 SUBBAGP-CDR1 SUBBAGP-DELETE DELETE-COMMUTATIVITY MEMBER-DELETE DELETE-NON-MEMBER *1*BAGINT BAGINT *1*BAGDIFF BAGDIFF *1*SUBBAGP SUBBAGP *1*DELETE DELETE *1*SUBSET SUBSET *1*IDENTITY IDENTITY REWRITE-EVAL$ REWRITE-CAR-V&C$ REWRITE-V&C-APPLY$ REWRITE-V&C$ REWRITE-APPLY-SUBR REWRITE-APPLY$ REWRITE-CAR-V&C-APPLY$ *1*FOR FOR *1*QUANTIFIER-OPERATION QUANTIFIER-OPERATION *1*UNION UNION NUMBERP-MAX *1*MAX MAX *1*APPEND APPEND *1*ADD-TO-SET ADD-TO-SET *1*QUANTIFIER-INITIAL-VALUE QUANTIFIER-INITIAL-VALUE NOT-SUBRP-APPLY-SUBR SUBRP-BODY SUBRP-FORMALS NOT-LITATOM-BODY NOT-LITATOM-FORMALS NOT-LITATOM-SUBRP *1*EVAL$ EVAL$ *1*APPLY$ APPLY$ *1*V&C-APPLY$ V&C-APPLY$ *1*V&C$ V&C$ *1*SUM-CDRS SUM-CDRS *1*STRIP-CARS STRIP-CARS *1*FIX-COST FIX-COST *1*BODY BODY *1*FORMALS FORMALS *1*APPLY-SUBR APPLY-SUBR SUBRP-BOOLEAN *1*SUBRP SUBRP *1*PAIRLIST PAIRLIST *1*ASSOC ASSOC *1*ORDINALP ORDINALP *1*ORD-LESSP ORD-LESSP *1*IFF IFF *1*MEMBER MEMBER *1*REMAINDER REMAINDER *1*QUOTIENT QUOTIENT *1*TIMES TIMES *1*DIFFERENCE DIFFERENCE COUNT-MINUS NEGATIVE-GUTS-ELIM MINUS-NEGATIVE-GUTS MINUS-EQUAL NEGATIVE-GUTS-LESSEQP NEGATIVE-GUTS-LESSP NEGATIVE-GUTS-TYPE-RESTRICTION NEGATIVE-GUTS-NNEGATIVEP NEGATIVE-GUTS-MINUS *1*NEGATIVE-GUTS NEGATIVE-GUTS *1*NEGATIVEP NEGATIVEP *1*MINUS MINUS *1*NLISTP NLISTP COUNT-CONS CAR-CDR-ELIM CONS-CAR-CDR CONS-EQUAL CDR-LESSEQP CDR-LESSP CDR-NLISTP CDR-CONS CAR-LESSEQP CAR-LESSP CAR-NLISTP CAR-CONS *1*CDR CDR *1*CAR CAR *1*LISTP LISTP *1*CONS CONS COUNT-PACK UNPACK-ELIM PACK-UNPACK PACK-EQUAL UNPACK-LESSEQP UNPACK-LESSP UNPACK-NLITATOM UNPACK-PACK *1*UNPACK UNPACK *1*LITATOM LITATOM *1*PACK PACK COUNT-NOT-LESSP COUNT-NUMBERP *1*PLUS PLUS *1*FIX FIX *1*ZEROP ZEROP *1*GEQ GEQ *1*LEQ LEQ *1*GREATERP GREATERP *1*LESSP LESSP COUNT-ADD1 SUB1-ELIM ADD1-SUB1 ADD1-EQUAL SUB1-LESSEQP SUB1-LESSP SUB1-TYPE-RESTRICTION SUB1-NNUMBERP SUB1-ADD1 *1*ZERO ZERO *1*SUB1 SUB1 *1*NUMBERP NUMBERP *1*ADD1 ADD1 *1*IMPLIES IMPLIES *1*OR OR *1*AND AND *1*NOT NOT *1*TRUEP TRUEP *1*TRUE TRUE *1*FALSEP FALSEP *1*FALSE FALSE *1*COUNT COUNT QUOTE *1*EQUAL EQUAL *1*IF-ERROR IF GROUND-ZERO))) (SETQ LIB-ATOMS-WITH-DEFS (QUOTE (*1*LOAD-LST-MEM *1*MAP-UPDATE *1*MAKE-MAP *1*KEY-FIELD *1*CONS-KEY-LST *1*STEPN *1*STEPI *1*CURRENT-INS *1*EXECUTE-INS *1*OPCODE-FIELD *1*BIT-GROUP *1*CMPI-SUBGROUP *1*CMPI-INS *1*CMPI-MAPPING *1*CMPI-ADDR-MODEP *1*EORI-SUBGROUP *1*EORI-TO-CCR-INS *1*EORI-INS *1*ADDI-SUBGROUP *1*ADDI-INS *1*ADDI-ADDR-MODEP *1*SUBI-SUBGROUP *1*SUBI-INS *1*SUBI-ADDR-MODEP *1*ANDI-SUBGROUP *1*ANDI-TO-CCR-INS *1*ANDI-INS *1*ANDI-ADDR-MODEP *1*ORI-SUBGROUP *1*ORI-TO-CCR-INS *1*ORI-INS *1*ORI-ADDR-MODEP *1*S-BIT-SUBGROUP *1*D-BIT-SUBGROUP *1*BIT-INS *1*BTST-INS *1*BTST-ADDR-MODEP *1*BSET-INS *1*BSET-EFFECT *1*BSET-ADDR-MODEP *1*BCLR-INS *1*BCLR-EFFECT *1*BCLR-ADDR-MODEP *1*BCHG-INS *1*BCHG-EFFECT *1*BCHG-ADDR-MODEP *1*BXXX-OPD *1*BXXX-NUM *1*BXXX-OPLEN *1*MOVEP-INS *1*MOVEP-ADDR *1*EVENP *1*MOVEP-TO-REG *1*MOVEP-READ *1*MOVEP-READP *1*MOVEP-TO-MEM *1*MOVEP-WRITE *1*MOVEP-WRITEP *1*CMP-GROUP *1*CMPM-INS *1*CMPM-MAPPING *1*EOR-INS *1*EOR-MAPPING *1*EOR&EORI-ADDR-MODEP *1*EOR-EFFECT *1*EOR-CVZNX *1*EOR-N *1*EOR-Z *1*CMPA-INS *1*CMPA-ADDR-MODEP *1*CMP-INS *1*CMP-ADDR-MODEP *1*CMP-CVZNX *1*MOVEQ-INS *1*SCC-GROUP *1*SUBQ-INS *1*SUBQ-ADDR-MODEP *1*ADDQ-INS *1*ADDQ-ADDR-MODEP *1*DBCC-INS *1*DBCC-LOOP *1*SCC-INS *1*SCC-EFFECT *1*SCC-ADDR-MODEP *1*BCC-GROUP *1*BCC-RA-SR *1*BSR-INS *1*BRANCH-CC *1*BHI *1*BLS *1*BGE *1*BLT *1*BGT *1*BLE *1*BMI *1*BEQ *1*BCS *1*MISC-GROUP *1*NOT-SUBGROUP *1*NOT-INS *1*NOT-EFFECT *1*NOT-CVZNX *1*NOT-N *1*NOT-Z *1*NOT-ADDR-MODEP *1*JSR-INS *1*JSR-ADDR-MODEP *1*JMP-INS *1*JMP-MAPPING *1*JMP-ADDR-MODEP *1*NOP-SUBGROUP *1*TRAPV-INS *1*BVS *1*RTR-INS *1*RTS-INS *1*RTD-INS *1*RTD-MAPPING *1*NOP-INS *1*UNLK-SUBGROUP *1*UNLK-INS *1*LINK_W-INS *1*LINK_L-INS *1*LINK-MAPPING *1*MOVEM-EA-RN-SUBGROUP *1*MOVEM-EA-RN-INS *1*READMP *1*MOVEM-EA-RN-ADDR-MODEP *1*MUL-DIV_L-INS *1*MUL_L-INS *1*DH *1*DL *1*MULS_L_DLDH *1*MULS_L_DL *1*MULU_L_DLDH *1*MULU_L_DL *1*DIV_L-INS *1*DR *1*DQ *1*DIVU_L *1*DIVUL_L *1*DIVS_L *1*DIVSL_L *1*TST-SUBGROUP *1*TAS-INS *1*TAS-EFFECT *1*TAS-ADDR-MODEP *1*TST-INS *1*TST-ADDR-MODEP *1*EXT-SUBGROUP *1*MOVEM-RN-EA-INS *1*MOVEM-RN-EA-ADDR-MODEP *1*MOVEM-PREDEC *1*MOVEM-PRE-RNLST *1*WRITEMP *1*MOVEM-LEN *1*MOVEM-RNLST *1*WRITEM-RN *1*READM-RN *1*WRITEM-MEM *1*READM-MEM *1*EXT-INS *1*PEA-SUBGROUP *1*SWAP-INS *1*SWAP-EFFECT *1*SWAP-CVZNX *1*SWAP-N *1*SWAP-Z *1*PEA-INS *1*PEA-ADDR-MODEP *1*NEG-SUBGROUP *1*MOVE-TO-CCR-INS *1*MOVE-TO-CCR-ADDR-MODEP *1*NEG-INS *1*NEG-ADDR-MODEP *1*NEGX-SUBGROUP *1*NEGX-INS *1*NEGX-ADDR-MODEP *1*CLR-SUBGROUP *1*MOVE-FROM-CCR-INS *1*MOVE-FROM-CCR-EFFECT *1*MOVE-FROM-CCR-ADDR-MODEP *1*CLR-INS *1*CLR-EFFECT *1*CLR-CVZNX *1*CLR-ADDR-MODEP *1*LEA-SUBGROUP *1*EXTB-INS *1*EXT-EFFECT *1*EXT-CVZNX *1*EXT-N *1*EXT-Z *1*LEA-INS *1*LEA-ADDR-MODEP *1*MOVE-GROUP *1*MOVEA-INS *1*MOVEA-ADDR-MODEP *1*MOVE-INS *1*MOVE-MAPPING *1*MOVE-EFFECT *1*MOVE-CVZNX *1*MOVE-N *1*MOVE-Z *1*MOVE-ADDR-MODEP *1*S&R-GROUP *1*BF-SUBGROUP *1*REGISTER-SHIFT-ROTATE *1*MEMORY-SHIFT-ROTATE *1*MEM-ROXR-INS *1*MEM-ROXR-EFFECT *1*MEM-ROXL-INS *1*MEM-ROXL-EFFECT *1*REGISTER-ROXR-INS *1*ROXR-EFFECT *1*ROXR-CVZNX *1*ROXR-N *1*ROXR-Z *1*ROXR-C *1*REGISTER-ROXL-INS *1*ROXL-EFFECT *1*ROXL-CVZNX *1*ROXL-N *1*ROXL-Z *1*ROXL-C *1*ROXR *1*ROXL *1*MEM-ASR-INS *1*MEM-ASR-EFFECT *1*MEM-ASL-INS *1*MEM-ASL-EFFECT *1*REGISTER-ASR-INS *1*ASR-EFFECT *1*ASR-CVZNX *1*ASR-X *1*ASR-N *1*ASR-Z *1*ASR-C *1*REGISTER-ASL-INS *1*ASL-EFFECT *1*ASL-CVZNX *1*ASL-X *1*ASL-N *1*ASL-Z *1*ASL-V *1*ASL-C *1*MEM-LSR-INS *1*MEM-LSR-EFFECT *1*MEM-LSL-INS *1*MEM-LSL-EFFECT *1*REGISTER-LSR-INS *1*LSR-EFFECT *1*LSR-CVZNX *1*LSR-X *1*LSR-N *1*LSR-Z *1*LSR-C *1*REGISTER-LSL-INS *1*LSL-EFFECT *1*LSL-CVZNX *1*LSL-X *1*LSL-N *1*LSL-Z *1*LSL-C *1*MEM-ROR-INS *1*MEM-ROR-EFFECT *1*MEM-ROL-INS *1*MEM-ROL-EFFECT *1*REGISTER-ROR-INS *1*ROR-EFFECT *1*ROR-CVZNX *1*ROR-N *1*ROR-Z *1*ROR-C *1*REGISTER-ROL-INS *1*ROL-EFFECT *1*ROL-CVZNX *1*ROL-N *1*ROL-Z *1*ROL-C *1*SR-CNT *1*I-DATA *1*S&R-ADDR-MODEP *1*ROR *1*ROL *1*OR-GROUP *1*DIV_W-INS *1*DIVU_W-INS *1*DIVU-CVZNX *1*DIVU-N *1*DIVU-Z *1*DIVU-V *1*REM *1*QUOT *1*DIVS_W-INS *1*DIVS-CVZNX *1*DIVS-N *1*DIVS-Z *1*DIVS-V *1*IREM *1*IQUOT *1*OR-INS2 *1*OR-MAPPING *1*OR-INS1 *1*OR-ADDR-MODEP2 *1*OR-ADDR-MODEP1 *1*OR-EFFECT *1*OR-CVZNX *1*OR-N *1*OR-Z *1*AND-GROUP *1*MUL_W-INS *1*EXG-DRAR-INS *1*EXG-ARAR-INS *1*EXG-DRDR-INS *1*MULS_W-INS *1*MULS-CVZNX *1*MULS-N *1*MULS-Z *1*MULS-V *1*MULU_W-INS *1*MULU-CVZNX *1*MULU-N *1*MULU-Z *1*MULU-V *1*MUL&DIV-ADDR-MODEP *1*MULS *1*MULU *1*AND-INS2 *1*AND-MAPPING *1*AND-INS1 *1*AND-ADDR-MODEP2 *1*AND-ADDR-MODEP1 *1*AND-EFFECT *1*AND-CVZNX *1*AND-N *1*AND-Z *1*SUB-GROUP *1*SUBX-INS2 *1*SUBX-INS1 *1*SUBX-EFFECT *1*SUBX-CVZNX *1*SUBX-N *1*SUBX-Z *1*SUBX-V *1*SUBX-C *1*SUBA-INS *1*SUBA-ADDR-MODEP *1*SUB-INS2 *1*SUB-MAPPING *1*SUB-INS1 *1*SUB-ADDR-MODEP2 *1*SUB-ADDR-MODEP1 *1*SUB-EFFECT *1*SUB-CVZNX *1*SUB-N *1*SUB-Z *1*SUB-V *1*SUB-C *1*ADD-GROUP *1*ADDX-INS2 *1*ADDX-INS1 *1*ADDX-EFFECT *1*ADDX-CVZNX *1*ADDX-N *1*ADDX-Z *1*ADDX-V *1*ADDX-C *1*ADDA-INS *1*ADDA-ADDR-MODEP *1*ADD-INS2 *1*ADD-MAPPING *1*ADD-INS1 *1*ADD-ADDR-MODEP2 *1*ADD-ADDR-MODEP1 *1*ADD-EFFECT *1*ADD-CVZNX *1*ADD-N *1*ADD-Z *1*ADD-V *1*ADD-C *1*MAPPING *1*M-MAPPING *1*A-MAPPING *1*D-MAPPING *1*MC-INSTATE *1*BYTE-AN-DIRECT-MODEP *1*IDATA-MODEP *1*PREDEC-MODEP *1*POSTINC-MODEP *1*AN-DIRECT-MODEP *1*DN-DIRECT-MODEP *1*ALTERABLE-ADDR-MODEP *1*CONTROL-ADDR-MODEP *1*MEMORY-ADDR-MODEP *1*DATA-ADDR-MODEP *1*ADDR-MODEP *1*EFFEC-ADDR *1*IMMEDIATE *1*PC-INDEX *1*PC-INDEX1 *1*BS-PC *1*PC-INDEX-DISP *1*PC-DISP *1*ABSOLUTE-LONG *1*ABSOLUTE-SHORT *1*ADDR-INDEX *1*ADDR-INDEX1 *1*BS-REGISTER *1*ADDR-INDEX2 *1*BD-SZ *1*ADDR-INDEX3 *1*I-IS *1*MEM-PREINDEX *1*MEM-POSTINDEX *1*MEM-INDIRECT *1*ADDR-INDEX-BD *1*ADDR-INDEX-DISP *1*IR-SCALED *1*INDEX-REGISTER *1*INDEX-RN *1*ADDR-DISP *1*ADDR-PREDEC *1*ADDR-POSTINC *1*ADDR-INDIRECT *1*AN-DIRECT *1*DN-DIRECT *1*PRE-EFFECT *1*POST-EFFECT *1*OPERAND *1*PUSH-SP *1*WRITE-SP *1*READ-SP *1*SP *1*WRITE-AN *1*WRITE-DN *1*READ-AN *1*READ-DN *1*UPDATE-MEM *1*UPDATE-CCR *1*UPDATE-PC *1*UPDATE-RFILE *1*HALT *1*SET-X *1*SET-N *1*SET-Z *1*SET-V *1*SET-C *1*SET-CVZNX *1*CVZNX *1*CCR-X *1*CCR-N *1*CCR-Z *1*CCR-V *1*CCR-C *1*WRITE-MEM *1*BYTE-WRITE *1*WRITE-MEMP *1*BYTE-WRITEP *1*OP-LEN *1*COND-FIELD *1*OPMODE-FIELD *1*D_RN *1*D_MODE *1*S_MODE *1*S_RN *1*PC-LONG-READ *1*PC-WORD-READ *1*PC-READ-MEM *1*PC-BYTE-READ *1*LONG-READ *1*WORD-READ *1*READ-MEM *1*BYTE-READ *1*PC-LONG-READP *1*PC-WORD-READP *1*PC-READ-MEMP *1*PC-BYTE-READP *1*LONG-READP *1*WORD-READP *1*READ-MEMP *1*BYTE-READP *1*MC-HALTP *1*LEN *1*MC-MEM *1*MC-CCR *1*MC-PC *1*MC-RFILE *1*MC-STATUS *1*MC-STATE *1*WRITE-RN *1*READ-RN *1*OP-SZ *1*PUT-NTH *1*GET-NTH *1*WRITE *1*PC-READ *1*READ *1*WRITEP *1*PC-READP *1*READP *1*MAKE-BT *1*BRANCH1 *1*BRANCH0 *1*VALUE-FIELD *1*INT-TO-NAT *1*NAT-TO-INT *1*INT-RANGEP *1*UINT-TO-NAT *1*NAT-TO-UINT *1*UINT-RANGEP *1*NAT-RANGEP *1*IQUOTIENT *1*IREMAINDER *1*ITIMES *1*IDIFFERENCE *1*INEG *1*IPLUS *1*ILEQ *1*ILESSP *1*ABS *1*IZEROP *1*FIX-INT *1*INTEGERP *1*NEGP *1*ASR *1*LSR *1*ASL *1*LSL *1*EXT *1*REPLACE *1*APP *1*SUB *1*SUBTRACTER *1*ADD *1*ADDER *1*SETN *1*BITS *1*MBIT *1*BITN *1*LOGEOR *1*LOGOR *1*LOGAND *1*LOGNOT *1*TAIL *1*HEAD *1*BCDR *1*BCAR *1*B-EQUAL *1*B-EOR *1*B-NAND *1*B-NOR *1*B-OR *1*B-AND *1*B-NOT *1*FIX-BIT *1*B1P *1*B0P *1*B0 *1*B1 *1*BITP *1*MODE-SIGNAL *1*PC-ODD-SIGNAL *1*PC-SIGNAL *1*RESERVED-SIGNAL *1*WRITE-SIGNAL *1*READ-SIGNAL *1*QSZ *1*LSZ *1*WSZ *1*BSZ *1*Q *1*L *1*W *1*B *1*QUOTIENT2-INDUCT *1*LOG *1*QUOT2-SUB12-INDUCT *1*EXP *1*CANCEL-EQUAL-TIMES *1*EQUAL-1-EVAL$-TIMES-TREE-DELETE-END *1*CANCEL-LESSP-TIMES *1*LESSP-1-TIMES-TREE-DELETE-END *1*EVAL$-AND-NOT-ZEROP-TREE-END *1*AND-NOT-ZEROP-TREE *1*TIMES-TREE *1*TIMES-FRINGE *1*BOOLEAN *1*CANCEL-LESSP-PLUS *1*CANCEL-DIFFERENCE-PLUS *1*CANCEL-EQUAL-PLUS *1*PLUS-TREE *1*PLUS-FRINGE *1*BAGINT *1*BAGDIFF *1*SUBBAGP *1*DELETE *1*SUBSET *1*IDENTITY *1*FOR *1*QUANTIFIER-OPERATION *1*UNION *1*MAX *1*APPEND *1*ADD-TO-SET *1*QUANTIFIER-INITIAL-VALUE *1*EVAL$ *1*V&C-APPLY$ *1*V&C$ *1*SUM-CDRS *1*STRIP-CARS *1*FIX-COST *1*BODY *1*FORMALS *1*APPLY-SUBR *1*SUBRP *1*PAIRLIST *1*ASSOC *1*ORDINALP *1*ORD-LESSP *1*IFF *1*MEMBER *1*GEQ *1*LEQ *1*GREATERP))) (PUT1-LST (QUOTE GCD-EXAMPLE) (QUOTE (IDATE 1000402214841 EVENT (PROVE-LEMMA GCD-EXAMPLE NIL (IMPLIES (AND (EQUAL STACK-POINTER (QUOTE 251657792)) (AND (EQUAL RFILE (QUOTE (0 0 0 0 0 0 0 0 0 0 0 0 0 0 251657804 251657792))) (AND (EQUAL PC (QUOTE 8886)) (AND (EQUAL CCR (QUOTE 0)) (AND (EQUAL GCD-CODE (QUOTE (78 86 0 0 72 231 48 0 36 46 0 8 38 46 0 12 74 130 103 28 74 131 102 4 32 2 96 22 182 130 108 8 76 67 40 0 36 0 96 232 76 66 56 0 38 0 96 224 32 3 76 238 0 12 255 248 78 94 78 117))) (AND (EQUAL EMPTY-MEMORY (QUOTE ((NIL (NIL (NIL (NIL (NIL ((ROM) NIL))))))))) (AND (EQUAL MEM (LOAD-LST-MEM (QUOTE 4) (QUOTE (8882 54 42)) STACK-POINTER (LOAD-LST-MEM (QUOTE 1) GCD-CODE PC EMPTY-MEMORY))) (AND (EQUAL INITIAL-STATE (MC-STATE (QUOTE RUNNING) RFILE PC CCR MEM)) (EQUAL FINAL-STATE (STEPN INITIAL-STATE (QUOTE 37))))))))))) (AND (EQUAL (MC-STATUS FINAL-STATE) (QUOTE RUNNING)) (AND (EQUAL (MC-RFILE FINAL-STATE) (QUOTE (6 0 0 0 0 0 0 0 0 0 0 0 0 0 251657804 251657796))) (EQUAL (MC-PC FINAL-STATE) (QUOTE 8882)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP . GCD-EXAMPLE) (IMMEDIATE-DEPENDENTS0 L . GCD-EXAMPLE) (IMMEDIATE-DEPENDENTS0 HEAD . GCD-EXAMPLE) (IMMEDIATE-DEPENDENTS0 MC-PC . GCD-EXAMPLE) (IMMEDIATE-DEPENDENTS0 MC-RFILE . GCD-EXAMPLE) (IMMEDIATE-DEPENDENTS0 MC-STATUS . GCD-EXAMPLE) (IMMEDIATE-DEPENDENTS0 STEPN . GCD-EXAMPLE) (IMMEDIATE-DEPENDENTS0 MC-STATE . GCD-EXAMPLE) (IMMEDIATE-DEPENDENTS0 LOAD-LST-MEM . GCD-EXAMPLE))))) (PUT1-LST (QUOTE *1*LOAD-LST-MEM) (QUOTE (MAIN-EVENT LOAD-LST-MEM))) (PUT1-LST (QUOTE LOAD-LST-MEM) (QUOTE (TYPE-PRESCRIPTION-LST ((LOAD-LST-MEM 16 NIL NIL NIL T)) TOTALP-LST ((LOAD-LST-MEM . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (OPSZ LST ADDR MEM) (IF (LISTP LST) (LOAD-LST-MEM OPSZ (CDR LST) (ADD (QUOTE 32) ADDR OPSZ) (WRITE-MEM (CAR LST) ADDR MEM OPSZ)) MEM)) LISP-CODE *1*LOAD-LST-MEM SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP LST)) ((OPSZ (CDR LST) (ADD (QUOTE 32) ADDR OPSZ) (WRITE-MEM (CAR LST) ADDR MEM OPSZ)))) (TESTS-AND-CASES ((NOT (LISTP LST))) NIL)) LEVEL-NO 6 JUSTIFICATIONS ((JUSTIFICATION (LST) (COUNT LST) LESSP (ZERO CDR-LESSP))) IDATE 1000402214825 CONTROLLER-POCKETS (2) SATELLITES (*1*LOAD-LST-MEM) IMMEDIATE-DEPENDENTS0 (GCD-EXAMPLE) EVENT (DEFN LOAD-LST-MEM (OPSZ LST ADDR MEM) (IF (LISTP LST) (LOAD-LST-MEM OPSZ (CDR LST) (ADD (QUOTE 32) ADDR OPSZ) (WRITE-MEM (CAR LST) ADDR MEM OPSZ)) MEM)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEM . LOAD-LST-MEM) (IMMEDIATE-DEPENDENTS0 ADD . LOAD-LST-MEM) (DCELL . *1*LOAD-LST-MEM))))) (PUT1-LST (QUOTE *1*MAP-UPDATE) (QUOTE (MAIN-EVENT MAP-UPDATE))) (PUT1-LST (QUOTE MAP-UPDATE) (QUOTE (TYPE-PRESCRIPTION-LST ((MAP-UPDATE 16 NIL NIL NIL NIL)) TOTALP-LST ((MAP-UPDATE . T)) QUICK-BLOCK-INFO (UNCHANGING UNCHANGING SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (KEY X N MAP) (IF (EQUAL N (QUOTE 0)) (MAKE-MAP KEY MAP) (IF (NUMBERP N) (IF (B0P (BITN X (SUB1 N))) (MAKE-BT (KEY-FIELD MAP) (MAP-UPDATE KEY X (SUB1 N) (BRANCH0 MAP)) (BRANCH1 MAP)) (MAKE-BT (KEY-FIELD MAP) (BRANCH0 MAP) (MAP-UPDATE KEY X (SUB1 N) (BRANCH1 MAP)))) (MAKE-MAP KEY MAP)))) LISP-CODE *1*MAP-UPDATE SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N)) (B0P (BITN X (SUB1 N)))) ((KEY X (SUB1 N) (BRANCH0 MAP)))) (TESTS-AND-CASES ((NOT (ZEROP N)) (NOT (B0P (BITN X (SUB1 N))))) ((KEY X (SUB1 N) (BRANCH1 MAP))))) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP BCAR TAIL BITN B0 B0P COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402214825 CONTROLLER-POCKETS (4) SATELLITES (*1*MAP-UPDATE) EVENT (DEFN MAP-UPDATE (KEY X N MAP) (IF (ZEROP N) (MAKE-MAP KEY MAP) (IF (B0P (BITN X (SUB1 N))) (MAKE-BT (KEY-FIELD MAP) (MAP-UPDATE KEY X (SUB1 N) (BRANCH0 MAP)) (BRANCH1 MAP)) (MAKE-BT (KEY-FIELD MAP) (BRANCH0 MAP) (MAP-UPDATE KEY X (SUB1 N) (BRANCH1 MAP)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BRANCH1 . MAP-UPDATE) (IMMEDIATE-DEPENDENTS0 BRANCH0 . MAP-UPDATE) (IMMEDIATE-DEPENDENTS0 KEY-FIELD . MAP-UPDATE) (IMMEDIATE-DEPENDENTS0 MAKE-BT . MAP-UPDATE) (IMMEDIATE-DEPENDENTS0 MAKE-MAP . MAP-UPDATE) (IMMEDIATE-DEPENDENTS0 BCAR . MAP-UPDATE) (IMMEDIATE-DEPENDENTS0 TAIL . MAP-UPDATE) (IMMEDIATE-DEPENDENTS0 BITN . MAP-UPDATE) (IMMEDIATE-DEPENDENTS0 B0 . MAP-UPDATE) (IMMEDIATE-DEPENDENTS0 B0P . MAP-UPDATE) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . MAP-UPDATE) (DCELL . *1*MAP-UPDATE))))) (PUT1-LST (QUOTE *1*MAKE-MAP) (QUOTE (MAIN-EVENT MAKE-MAP))) (PUT1-LST (QUOTE MAKE-MAP) (QUOTE (TYPE-PRESCRIPTION-LST ((MAKE-MAP 16 NIL NIL)) TOTALP-LST ((MAKE-MAP . T)) SDEFN (LAMBDA (KEY MAP) (MAKE-BT (CONS-KEY-LST KEY (KEY-FIELD MAP)) (BRANCH0 MAP) (BRANCH1 MAP))) LISP-CODE *1*MAKE-MAP SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402214825 SATELLITES (*1*MAKE-MAP) IMMEDIATE-DEPENDENTS0 (MAP-UPDATE) EVENT (DEFN MAKE-MAP (KEY MAP) (MAKE-BT (CONS-KEY-LST KEY (KEY-FIELD MAP)) (BRANCH0 MAP) (BRANCH1 MAP))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BRANCH1 . MAKE-MAP) (IMMEDIATE-DEPENDENTS0 BRANCH0 . MAKE-MAP) (IMMEDIATE-DEPENDENTS0 KEY-FIELD . MAKE-MAP) (IMMEDIATE-DEPENDENTS0 CONS-KEY-LST . MAKE-MAP) (IMMEDIATE-DEPENDENTS0 MAKE-BT . MAKE-MAP) (DCELL . *1*MAKE-MAP))))) (PUT1-LST (QUOTE *1*KEY-FIELD) (QUOTE (MAIN-EVENT KEY-FIELD))) (PUT1-LST (QUOTE KEY-FIELD) (QUOTE (TYPE-PRESCRIPTION-LST ((KEY-FIELD -1 NIL)) TOTALP-LST ((KEY-FIELD . T)) SDEFN (LAMBDA (MAP) (IF (LISTP MAP) (CAR MAP) (QUOTE NIL))) LISP-CODE *1*KEY-FIELD SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214825 SATELLITES (*1*KEY-FIELD) IMMEDIATE-DEPENDENTS0 (MAP-UPDATE MAKE-MAP) EVENT (DEFN KEY-FIELD (MAP) (IF (LISTP MAP) (CAR MAP) (QUOTE NIL))) LOCAL-UNDO-TUPLES ((DCELL . *1*KEY-FIELD))))) (PUT1-LST (QUOTE *1*CONS-KEY-LST) (QUOTE (MAIN-EVENT CONS-KEY-LST))) (PUT1-LST (QUOTE CONS-KEY-LST) (QUOTE (TYPE-PRESCRIPTION-LST ((CONS-KEY-LST 16 NIL T)) TOTALP-LST ((CONS-KEY-LST . T)) SDEFN (LAMBDA (KEY LST) (IF (MEMBER KEY LST) LST (CONS KEY LST))) LISP-CODE *1*CONS-KEY-LST SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402214825 SATELLITES (*1*CONS-KEY-LST) IMMEDIATE-DEPENDENTS0 (MAKE-MAP) EVENT (DEFN CONS-KEY-LST (KEY LST) (IF (MEMBER KEY LST) LST (CONS KEY LST))) LOCAL-UNDO-TUPLES ((DCELL . *1*CONS-KEY-LST))))) (PUT1-LST (QUOTE *1*STEPN) (QUOTE (MAIN-EVENT STEPN))) (PUT1-LST (QUOTE STEPN) (QUOTE (TYPE-PRESCRIPTION-LST ((STEPN -1 T NIL)) TOTALP-LST ((STEPN . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (S N) (IF (MC-HALTP S) S (IF (EQUAL N (QUOTE 0)) S (IF (NUMBERP N) (STEPN (STEPI S) (SUB1 N)) S)))) LISP-CODE *1*STEPN SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((OR (MC-HALTP S) (ZEROP N))) NIL) (TESTS-AND-CASES ((NOT (OR (MC-HALTP S) (ZEROP N)))) (((STEPI S) (SUB1 N))))) LEVEL-NO 7 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (MC-STATUS MC-HALTP ZEROP OR COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402214825 CONTROLLER-POCKETS (2) SATELLITES (*1*STEPN) IMMEDIATE-DEPENDENTS0 (GCD-EXAMPLE) EVENT (DEFN STEPN (S N) (IF (OR (MC-HALTP S) (ZEROP N)) S (STEPN (STEPI S) (SUB1 N))) ((LESSP (COUNT N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 STEPI . STEPN) (IMMEDIATE-DEPENDENTS0 MC-STATUS . STEPN) (IMMEDIATE-DEPENDENTS0 MC-HALTP . STEPN) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . STEPN) (DCELL . *1*STEPN))))) (PUT1-LST (QUOTE *1*STEPI) (QUOTE (MAIN-EVENT STEPI))) (PUT1-LST (QUOTE STEPI) (QUOTE (TYPE-PRESCRIPTION-LST ((STEPI -1 NIL)) TOTALP-LST ((STEPI . T)) SDEFN (LAMBDA (S) (IF (EVENP (MC-PC S)) (IF (PC-WORD-READP (MC-PC S) (MC-MEM S)) (EXECUTE-INS (CURRENT-INS (MC-PC S) S) (UPDATE-PC (ADD (L) (MC-PC S) (WSZ)) S)) (HALT (PC-SIGNAL) S)) (HALT (PC-ODD-SIGNAL) S))) LISP-CODE *1*STEPI SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*STEPI) IMMEDIATE-DEPENDENTS0 (STEPN) EVENT (DEFN STEPI (S) (IF (EVENP (MC-PC S)) (IF (PC-WORD-READP (MC-PC S) (MC-MEM S)) (EXECUTE-INS (CURRENT-INS (MC-PC S) S) (UPDATE-PC (ADD (L) (MC-PC S) (WSZ)) S)) (HALT (PC-SIGNAL) S)) (HALT (PC-ODD-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-ODD-SIGNAL . STEPI) (IMMEDIATE-DEPENDENTS0 PC-SIGNAL . STEPI) (IMMEDIATE-DEPENDENTS0 HALT . STEPI) (IMMEDIATE-DEPENDENTS0 WSZ . STEPI) (IMMEDIATE-DEPENDENTS0 L . STEPI) (IMMEDIATE-DEPENDENTS0 ADD . STEPI) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . STEPI) (IMMEDIATE-DEPENDENTS0 CURRENT-INS . STEPI) (IMMEDIATE-DEPENDENTS0 EXECUTE-INS . STEPI) (IMMEDIATE-DEPENDENTS0 MC-MEM . STEPI) (IMMEDIATE-DEPENDENTS0 PC-WORD-READP . STEPI) (IMMEDIATE-DEPENDENTS0 MC-PC . STEPI) (IMMEDIATE-DEPENDENTS0 EVENP . STEPI) (DCELL . *1*STEPI))))) (PUT1-LST (QUOTE *1*CURRENT-INS) (QUOTE (MAIN-EVENT CURRENT-INS))) (PUT1-LST (QUOTE CURRENT-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((CURRENT-INS 4 NIL NIL)) TOTALP-LST ((CURRENT-INS . T)) SDEFN (LAMBDA (PC S) (PC-WORD-READ PC (MC-MEM S))) LISP-CODE *1*CURRENT-INS SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402214825 SATELLITES (*1*CURRENT-INS) IMMEDIATE-DEPENDENTS0 (STEPI) EVENT (DEFN CURRENT-INS (PC S) (PC-WORD-READ PC (MC-MEM S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-MEM . CURRENT-INS) (IMMEDIATE-DEPENDENTS0 PC-WORD-READ . CURRENT-INS) (DCELL . *1*CURRENT-INS))))) (PUT1-LST (QUOTE *1*EXECUTE-INS) (QUOTE (MAIN-EVENT EXECUTE-INS))) (PUT1-LST (QUOTE EXECUTE-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((EXECUTE-INS -1 NIL T)) TOTALP-LST ((EXECUTE-INS . T)) SDEFN (LAMBDA (INS S) (IF (LESSP (OPCODE-FIELD INS) (QUOTE 8)) (IF (LESSP (OPCODE-FIELD INS) (QUOTE 4)) (IF (LESSP (OPCODE-FIELD INS) (QUOTE 2)) (IF (EQUAL (OPCODE-FIELD INS) (QUOTE 0)) (BIT-GROUP INS S) (MOVE-INS (B) INS S)) (IF (EQUAL (OPCODE-FIELD INS) (QUOTE 2)) (MOVE-GROUP (L) INS S) (MOVE-GROUP (W) INS S))) (IF (LESSP (OPCODE-FIELD INS) (QUOTE 6)) (IF (EQUAL (OPCODE-FIELD INS) (QUOTE 4)) (MISC-GROUP INS S) (SCC-GROUP INS S)) (IF (EQUAL (OPCODE-FIELD INS) (QUOTE 6)) (BCC-GROUP (HEAD INS (B)) INS S) (MOVEQ-INS INS S)))) (IF (LESSP (OPCODE-FIELD INS) (QUOTE 12)) (IF (LESSP (OPCODE-FIELD INS) (QUOTE 10)) (IF (EQUAL (OPCODE-FIELD INS) (QUOTE 8)) (OR-GROUP (OP-LEN INS) INS S) (SUB-GROUP (OPMODE-FIELD INS) INS S)) (IF (EQUAL (OPCODE-FIELD INS) (QUOTE 10)) (HALT (RESERVED-SIGNAL) S) (CMP-GROUP (OP-LEN INS) INS S))) (IF (LESSP (OPCODE-FIELD INS) (QUOTE 14)) (IF (EQUAL (OPCODE-FIELD INS) (QUOTE 12)) (AND-GROUP (OP-LEN INS) INS S) (ADD-GROUP (OPMODE-FIELD INS) INS S)) (IF (EQUAL (OPCODE-FIELD INS) (QUOTE 14)) (S&R-GROUP INS S) (HALT (QUOTE COPROCESSOR-UNSPECIFIED) S)))))) LISP-CODE *1*EXECUTE-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*EXECUTE-INS) IMMEDIATE-DEPENDENTS0 (STEPI) EVENT (DEFN EXECUTE-INS (INS S) (IF (LESSP (OPCODE-FIELD INS) (QUOTE 8)) (IF (LESSP (OPCODE-FIELD INS) (QUOTE 4)) (IF (LESSP (OPCODE-FIELD INS) (QUOTE 2)) (IF (EQUAL (OPCODE-FIELD INS) (QUOTE 0)) (BIT-GROUP INS S) (MOVE-INS (B) INS S)) (IF (EQUAL (OPCODE-FIELD INS) (QUOTE 2)) (MOVE-GROUP (L) INS S) (MOVE-GROUP (W) INS S))) (IF (LESSP (OPCODE-FIELD INS) (QUOTE 6)) (IF (EQUAL (OPCODE-FIELD INS) (QUOTE 4)) (MISC-GROUP INS S) (SCC-GROUP INS S)) (IF (EQUAL (OPCODE-FIELD INS) (QUOTE 6)) (BCC-GROUP (HEAD INS (B)) INS S) (MOVEQ-INS INS S)))) (IF (LESSP (OPCODE-FIELD INS) (QUOTE 12)) (IF (LESSP (OPCODE-FIELD INS) (QUOTE 10)) (IF (EQUAL (OPCODE-FIELD INS) (QUOTE 8)) (OR-GROUP (OP-LEN INS) INS S) (SUB-GROUP (OPMODE-FIELD INS) INS S)) (IF (EQUAL (OPCODE-FIELD INS) (QUOTE 10)) (HALT (RESERVED-SIGNAL) S) (CMP-GROUP (OP-LEN INS) INS S))) (IF (LESSP (OPCODE-FIELD INS) (QUOTE 14)) (IF (EQUAL (OPCODE-FIELD INS) (QUOTE 12)) (AND-GROUP (OP-LEN INS) INS S) (ADD-GROUP (OPMODE-FIELD INS) INS S)) (IF (EQUAL (OPCODE-FIELD INS) (QUOTE 14)) (S&R-GROUP INS S) (HALT (QUOTE COPROCESSOR-UNSPECIFIED) S)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S&R-GROUP . EXECUTE-INS) (IMMEDIATE-DEPENDENTS0 ADD-GROUP . EXECUTE-INS) (IMMEDIATE-DEPENDENTS0 AND-GROUP . EXECUTE-INS) (IMMEDIATE-DEPENDENTS0 CMP-GROUP . EXECUTE-INS) (IMMEDIATE-DEPENDENTS0 RESERVED-SIGNAL . EXECUTE-INS) (IMMEDIATE-DEPENDENTS0 HALT . EXECUTE-INS) (IMMEDIATE-DEPENDENTS0 OPMODE-FIELD . EXECUTE-INS) (IMMEDIATE-DEPENDENTS0 SUB-GROUP . EXECUTE-INS) (IMMEDIATE-DEPENDENTS0 OP-LEN . EXECUTE-INS) (IMMEDIATE-DEPENDENTS0 OR-GROUP . EXECUTE-INS) (IMMEDIATE-DEPENDENTS0 MOVEQ-INS . EXECUTE-INS) (IMMEDIATE-DEPENDENTS0 HEAD . EXECUTE-INS) (IMMEDIATE-DEPENDENTS0 BCC-GROUP . EXECUTE-INS) (IMMEDIATE-DEPENDENTS0 SCC-GROUP . EXECUTE-INS) (IMMEDIATE-DEPENDENTS0 MISC-GROUP . EXECUTE-INS) (IMMEDIATE-DEPENDENTS0 W . EXECUTE-INS) (IMMEDIATE-DEPENDENTS0 L . EXECUTE-INS) (IMMEDIATE-DEPENDENTS0 MOVE-GROUP . EXECUTE-INS) (IMMEDIATE-DEPENDENTS0 B . EXECUTE-INS) (IMMEDIATE-DEPENDENTS0 MOVE-INS . EXECUTE-INS) (IMMEDIATE-DEPENDENTS0 BIT-GROUP . EXECUTE-INS) (IMMEDIATE-DEPENDENTS0 OPCODE-FIELD . EXECUTE-INS) (DCELL . *1*EXECUTE-INS))))) (PUT1-LST (QUOTE *1*OPCODE-FIELD) (QUOTE (MAIN-EVENT OPCODE-FIELD))) (PUT1-LST (QUOTE OPCODE-FIELD) (QUOTE (TYPE-PRESCRIPTION-LST ((OPCODE-FIELD 4 NIL)) TOTALP-LST ((OPCODE-FIELD . T)) SDEFN (LAMBDA (INS) (BITS INS (QUOTE 12) (QUOTE 15))) LISP-CODE *1*OPCODE-FIELD SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214825 SATELLITES (*1*OPCODE-FIELD) IMMEDIATE-DEPENDENTS0 (EXECUTE-INS) EVENT (DEFN OPCODE-FIELD (INS) (BITS INS (QUOTE 12) (QUOTE 15))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITS . OPCODE-FIELD) (DCELL . *1*OPCODE-FIELD))))) (PUT1-LST (QUOTE *1*BIT-GROUP) (QUOTE (MAIN-EVENT BIT-GROUP))) (PUT1-LST (QUOTE BIT-GROUP) (QUOTE (TYPE-PRESCRIPTION-LST ((BIT-GROUP -1 NIL NIL)) TOTALP-LST ((BIT-GROUP . T)) SDEFN (LAMBDA (INS S) (IF (B0P (BITN INS (QUOTE 8))) (IF (B0P (BITN INS (QUOTE 11))) (IF (B0P (BITN INS (QUOTE 10))) (IF (B0P (BITN INS (QUOTE 9))) (ORI-SUBGROUP (OP-LEN INS) INS S) (ANDI-SUBGROUP (OP-LEN INS) INS S)) (IF (B0P (BITN INS (QUOTE 9))) (SUBI-SUBGROUP (OP-LEN INS) INS S) (ADDI-SUBGROUP (OP-LEN INS) INS S))) (IF (B0P (BITN INS (QUOTE 10))) (IF (B0P (BITN INS (QUOTE 9))) (S-BIT-SUBGROUP INS S) (EORI-SUBGROUP (OP-LEN INS) INS S)) (IF (B0P (BITN INS (QUOTE 9))) (CMPI-SUBGROUP (OP-LEN INS) INS S) (HALT (QUOTE MOVES-CAS-CAS2-UNSPECIFIED) S)))) (D-BIT-SUBGROUP INS S))) LISP-CODE *1*BIT-GROUP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*BIT-GROUP) IMMEDIATE-DEPENDENTS0 (EXECUTE-INS) EVENT (DEFN BIT-GROUP (INS S) (IF (B0P (BITN INS (QUOTE 8))) (IF (B0P (BITN INS (QUOTE 11))) (IF (B0P (BITN INS (QUOTE 10))) (IF (B0P (BITN INS (QUOTE 9))) (ORI-SUBGROUP (OP-LEN INS) INS S) (ANDI-SUBGROUP (OP-LEN INS) INS S)) (IF (B0P (BITN INS (QUOTE 9))) (SUBI-SUBGROUP (OP-LEN INS) INS S) (ADDI-SUBGROUP (OP-LEN INS) INS S))) (IF (B0P (BITN INS (QUOTE 10))) (IF (B0P (BITN INS (QUOTE 9))) (S-BIT-SUBGROUP INS S) (EORI-SUBGROUP (OP-LEN INS) INS S)) (IF (B0P (BITN INS (QUOTE 9))) (CMPI-SUBGROUP (OP-LEN INS) INS S) (HALT (QUOTE MOVES-CAS-CAS2-UNSPECIFIED) S)))) (D-BIT-SUBGROUP INS S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 D-BIT-SUBGROUP . BIT-GROUP) (IMMEDIATE-DEPENDENTS0 HALT . BIT-GROUP) (IMMEDIATE-DEPENDENTS0 CMPI-SUBGROUP . BIT-GROUP) (IMMEDIATE-DEPENDENTS0 EORI-SUBGROUP . BIT-GROUP) (IMMEDIATE-DEPENDENTS0 S-BIT-SUBGROUP . BIT-GROUP) (IMMEDIATE-DEPENDENTS0 ADDI-SUBGROUP . BIT-GROUP) (IMMEDIATE-DEPENDENTS0 SUBI-SUBGROUP . BIT-GROUP) (IMMEDIATE-DEPENDENTS0 ANDI-SUBGROUP . BIT-GROUP) (IMMEDIATE-DEPENDENTS0 OP-LEN . BIT-GROUP) (IMMEDIATE-DEPENDENTS0 ORI-SUBGROUP . BIT-GROUP) (IMMEDIATE-DEPENDENTS0 BITN . BIT-GROUP) (IMMEDIATE-DEPENDENTS0 B0P . BIT-GROUP) (DCELL . *1*BIT-GROUP))))) (PUT1-LST (QUOTE *1*CMPI-SUBGROUP) (QUOTE (MAIN-EVENT CMPI-SUBGROUP))) (PUT1-LST (QUOTE CMPI-SUBGROUP) (QUOTE (TYPE-PRESCRIPTION-LST ((CMPI-SUBGROUP -1 NIL NIL NIL)) TOTALP-LST ((CMPI-SUBGROUP . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (EQUAL OPLEN (Q)) (HALT (QUOTE CAS-CAS2-UNSPECIFIED) S) (CMPI-INS OPLEN INS S))) LISP-CODE *1*CMPI-SUBGROUP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*CMPI-SUBGROUP) IMMEDIATE-DEPENDENTS0 (BIT-GROUP) EVENT (DEFN CMPI-SUBGROUP (OPLEN INS S) (IF (EQUAL OPLEN (Q)) (HALT (QUOTE CAS-CAS2-UNSPECIFIED) S) (CMPI-INS OPLEN INS S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CMPI-INS . CMPI-SUBGROUP) (IMMEDIATE-DEPENDENTS0 HALT . CMPI-SUBGROUP) (IMMEDIATE-DEPENDENTS0 Q . CMPI-SUBGROUP) (DCELL . *1*CMPI-SUBGROUP))))) (PUT1-LST (QUOTE *1*CMPI-INS) (QUOTE (MAIN-EVENT CMPI-INS))) (PUT1-LST (QUOTE CMPI-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((CMPI-INS -1 NIL NIL NIL)) TOTALP-LST ((CMPI-INS . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (MC-HALTP (CAR (IMMEDIATE OPLEN (MC-PC S) S))) (CAR (IMMEDIATE OPLEN (MC-PC S) S)) (IF (CMPI-ADDR-MODEP INS) (CMPI-MAPPING (CDR (CDR (IMMEDIATE OPLEN (MC-PC S) S))) OPLEN INS (CAR (IMMEDIATE OPLEN (MC-PC S) S))) (HALT (MODE-SIGNAL) S)))) LISP-CODE *1*CMPI-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*CMPI-INS) IMMEDIATE-DEPENDENTS0 (CMPI-SUBGROUP) EVENT (DEFN CMPI-INS (OPLEN INS S) (IF (MC-HALTP (CAR (IMMEDIATE OPLEN (MC-PC S) S))) (CAR (IMMEDIATE OPLEN (MC-PC S) S)) (IF (CMPI-ADDR-MODEP INS) (CMPI-MAPPING (CDR (CDR (IMMEDIATE OPLEN (MC-PC S) S))) OPLEN INS (CAR (IMMEDIATE OPLEN (MC-PC S) S))) (HALT (MODE-SIGNAL) S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . CMPI-INS) (IMMEDIATE-DEPENDENTS0 HALT . CMPI-INS) (IMMEDIATE-DEPENDENTS0 CMPI-MAPPING . CMPI-INS) (IMMEDIATE-DEPENDENTS0 CMPI-ADDR-MODEP . CMPI-INS) (IMMEDIATE-DEPENDENTS0 MC-PC . CMPI-INS) (IMMEDIATE-DEPENDENTS0 IMMEDIATE . CMPI-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . CMPI-INS) (DCELL . *1*CMPI-INS))))) (PUT1-LST (QUOTE *1*CMPI-MAPPING) (QUOTE (MAIN-EVENT CMPI-MAPPING))) (PUT1-LST (QUOTE CMPI-MAPPING) (QUOTE (TYPE-PRESCRIPTION-LST ((CMPI-MAPPING -1 NIL NIL NIL NIL)) TOTALP-LST ((CMPI-MAPPING . T)) SDEFN (LAMBDA (IDATA OPLEN INS S) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (UPDATE-CCR (CMP-CVZNX OPLEN IDATA (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (MC-CCR S)) (CAR (MC-INSTATE OPLEN INS S))))) LISP-CODE *1*CMPI-MAPPING SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*CMPI-MAPPING) IMMEDIATE-DEPENDENTS0 (CMPI-INS) EVENT (DEFN CMPI-MAPPING (IDATA OPLEN INS S) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (UPDATE-CCR (CMP-CVZNX OPLEN IDATA (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (MC-CCR S)) (CAR (MC-INSTATE OPLEN INS S))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-CCR . CMPI-MAPPING) (IMMEDIATE-DEPENDENTS0 OPERAND . CMPI-MAPPING) (IMMEDIATE-DEPENDENTS0 CMP-CVZNX . CMPI-MAPPING) (IMMEDIATE-DEPENDENTS0 UPDATE-CCR . CMPI-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . CMPI-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-HALTP . CMPI-MAPPING) (DCELL . *1*CMPI-MAPPING))))) (PUT1-LST (QUOTE *1*CMPI-ADDR-MODEP) (QUOTE (MAIN-EVENT CMPI-ADDR-MODEP))) (PUT1-LST (QUOTE CMPI-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((CMPI-ADDR-MODEP 3 NIL)) TOTALP-LST ((CMPI-ADDR-MODEP . T)) SDEFN (LAMBDA (INS) (IF (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (IF (IDATA-MODEP (S_MODE INS) (S_RN INS)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (QUOTE *1*FALSE))) LISP-CODE *1*CMPI-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214825 SATELLITES (*1*CMPI-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (CMPI-INS) EVENT (DEFN CMPI-ADDR-MODEP (INS) (AND (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (NOT (IDATA-MODEP (S_MODE INS) (S_RN INS))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IDATA-MODEP . CMPI-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_RN . CMPI-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . CMPI-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 DATA-ADDR-MODEP . CMPI-ADDR-MODEP) (DCELL . *1*CMPI-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*EORI-SUBGROUP) (QUOTE (MAIN-EVENT EORI-SUBGROUP))) (PUT1-LST (QUOTE EORI-SUBGROUP) (QUOTE (TYPE-PRESCRIPTION-LST ((EORI-SUBGROUP -1 NIL NIL NIL)) TOTALP-LST ((EORI-SUBGROUP . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (EQUAL OPLEN (Q)) (HALT (QUOTE CAS-CAS2-UNSPECIFIED) S) (IF (EQUAL (HEAD INS (QUOTE 6)) (QUOTE 60)) (IF (EQUAL OPLEN (B)) (EORI-TO-CCR-INS (MC-PC S) S) (IF (EQUAL OPLEN (W)) (HALT (QUOTE EORI-TO-SR-UNSPECIFIED) S) (HALT (RESERVED-SIGNAL) S))) (EORI-INS OPLEN INS S)))) LISP-CODE *1*EORI-SUBGROUP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*EORI-SUBGROUP) IMMEDIATE-DEPENDENTS0 (BIT-GROUP) EVENT (DEFN EORI-SUBGROUP (OPLEN INS S) (IF (EQUAL OPLEN (Q)) (HALT (QUOTE CAS-CAS2-UNSPECIFIED) S) (IF (EQUAL (HEAD INS (QUOTE 6)) (QUOTE 60)) (IF (EQUAL OPLEN (B)) (EORI-TO-CCR-INS (MC-PC S) S) (IF (EQUAL OPLEN (W)) (HALT (QUOTE EORI-TO-SR-UNSPECIFIED) S) (HALT (RESERVED-SIGNAL) S))) (EORI-INS OPLEN INS S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EORI-INS . EORI-SUBGROUP) (IMMEDIATE-DEPENDENTS0 RESERVED-SIGNAL . EORI-SUBGROUP) (IMMEDIATE-DEPENDENTS0 W . EORI-SUBGROUP) (IMMEDIATE-DEPENDENTS0 MC-PC . EORI-SUBGROUP) (IMMEDIATE-DEPENDENTS0 EORI-TO-CCR-INS . EORI-SUBGROUP) (IMMEDIATE-DEPENDENTS0 B . EORI-SUBGROUP) (IMMEDIATE-DEPENDENTS0 HEAD . EORI-SUBGROUP) (IMMEDIATE-DEPENDENTS0 HALT . EORI-SUBGROUP) (IMMEDIATE-DEPENDENTS0 Q . EORI-SUBGROUP) (DCELL . *1*EORI-SUBGROUP))))) (PUT1-LST (QUOTE *1*EORI-TO-CCR-INS) (QUOTE (MAIN-EVENT EORI-TO-CCR-INS))) (PUT1-LST (QUOTE EORI-TO-CCR-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((EORI-TO-CCR-INS 16 NIL NIL)) TOTALP-LST ((EORI-TO-CCR-INS . T)) SDEFN (LAMBDA (PC S) (IF (PC-WORD-READP PC (MC-MEM S)) (IF (EQUAL (PC-BYTE-READ PC (MC-MEM S)) (QUOTE 0)) (UPDATE-CCR (LOGEOR (PC-BYTE-READ (ADD (L) PC (BSZ)) (MC-MEM S)) (MC-CCR S)) (UPDATE-PC (ADD (L) PC (WSZ)) S)) (HALT (RESERVED-SIGNAL) S)) (HALT (PC-SIGNAL) S))) LISP-CODE *1*EORI-TO-CCR-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*EORI-TO-CCR-INS) IMMEDIATE-DEPENDENTS0 (EORI-SUBGROUP) EVENT (DEFN EORI-TO-CCR-INS (PC S) (IF (PC-WORD-READP PC (MC-MEM S)) (IF (EQUAL (PC-BYTE-READ PC (MC-MEM S)) (QUOTE 0)) (UPDATE-CCR (LOGEOR (PC-BYTE-READ (ADD (L) PC (BSZ)) (MC-MEM S)) (MC-CCR S)) (UPDATE-PC (ADD (L) PC (WSZ)) S)) (HALT (RESERVED-SIGNAL) S)) (HALT (PC-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-SIGNAL . EORI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 RESERVED-SIGNAL . EORI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 HALT . EORI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 WSZ . EORI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . EORI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . EORI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 BSZ . EORI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 L . EORI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 ADD . EORI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 LOGEOR . EORI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 UPDATE-CCR . EORI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 PC-BYTE-READ . EORI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 MC-MEM . EORI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 PC-WORD-READP . EORI-TO-CCR-INS) (DCELL . *1*EORI-TO-CCR-INS))))) (PUT1-LST (QUOTE *1*EORI-INS) (QUOTE (MAIN-EVENT EORI-INS))) (PUT1-LST (QUOTE EORI-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((EORI-INS -1 NIL NIL NIL)) TOTALP-LST ((EORI-INS . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (MC-HALTP (CAR (IMMEDIATE OPLEN (MC-PC S) S))) (CAR (IMMEDIATE OPLEN (MC-PC S) S)) (IF (EOR&EORI-ADDR-MODEP INS) (EOR-MAPPING (CDR (CDR (IMMEDIATE OPLEN (MC-PC S) S))) OPLEN INS (CAR (IMMEDIATE OPLEN (MC-PC S) S))) (HALT (MODE-SIGNAL) S)))) LISP-CODE *1*EORI-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*EORI-INS) IMMEDIATE-DEPENDENTS0 (EORI-SUBGROUP) EVENT (DEFN EORI-INS (OPLEN INS S) (IF (MC-HALTP (CAR (IMMEDIATE OPLEN (MC-PC S) S))) (CAR (IMMEDIATE OPLEN (MC-PC S) S)) (IF (EOR&EORI-ADDR-MODEP INS) (EOR-MAPPING (CDR (CDR (IMMEDIATE OPLEN (MC-PC S) S))) OPLEN INS (CAR (IMMEDIATE OPLEN (MC-PC S) S))) (HALT (MODE-SIGNAL) S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . EORI-INS) (IMMEDIATE-DEPENDENTS0 HALT . EORI-INS) (IMMEDIATE-DEPENDENTS0 EOR-MAPPING . EORI-INS) (IMMEDIATE-DEPENDENTS0 EOR&EORI-ADDR-MODEP . EORI-INS) (IMMEDIATE-DEPENDENTS0 MC-PC . EORI-INS) (IMMEDIATE-DEPENDENTS0 IMMEDIATE . EORI-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . EORI-INS) (DCELL . *1*EORI-INS))))) (PUT1-LST (QUOTE *1*ADDI-SUBGROUP) (QUOTE (MAIN-EVENT ADDI-SUBGROUP))) (PUT1-LST (QUOTE ADDI-SUBGROUP) (QUOTE (TYPE-PRESCRIPTION-LST ((ADDI-SUBGROUP -1 NIL NIL NIL)) TOTALP-LST ((ADDI-SUBGROUP . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (EQUAL OPLEN (Q)) (HALT (QUOTE RTM-CALLM-UNSPECIFIED) S) (ADDI-INS OPLEN INS S))) LISP-CODE *1*ADDI-SUBGROUP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*ADDI-SUBGROUP) IMMEDIATE-DEPENDENTS0 (BIT-GROUP) EVENT (DEFN ADDI-SUBGROUP (OPLEN INS S) (IF (EQUAL OPLEN (Q)) (HALT (QUOTE RTM-CALLM-UNSPECIFIED) S) (ADDI-INS OPLEN INS S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADDI-INS . ADDI-SUBGROUP) (IMMEDIATE-DEPENDENTS0 HALT . ADDI-SUBGROUP) (IMMEDIATE-DEPENDENTS0 Q . ADDI-SUBGROUP) (DCELL . *1*ADDI-SUBGROUP))))) (PUT1-LST (QUOTE *1*ADDI-INS) (QUOTE (MAIN-EVENT ADDI-INS))) (PUT1-LST (QUOTE ADDI-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((ADDI-INS -1 NIL NIL NIL)) TOTALP-LST ((ADDI-INS . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (MC-HALTP (CAR (IMMEDIATE OPLEN (MC-PC S) S))) (CAR (IMMEDIATE OPLEN (MC-PC S) S)) (IF (ADDI-ADDR-MODEP INS) (ADD-MAPPING (CDR (CDR (IMMEDIATE OPLEN (MC-PC S) S))) OPLEN INS (CAR (IMMEDIATE OPLEN (MC-PC S) S))) (HALT (MODE-SIGNAL) S)))) LISP-CODE *1*ADDI-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*ADDI-INS) IMMEDIATE-DEPENDENTS0 (ADDI-SUBGROUP) EVENT (DEFN ADDI-INS (OPLEN INS S) (IF (MC-HALTP (CAR (IMMEDIATE OPLEN (MC-PC S) S))) (CAR (IMMEDIATE OPLEN (MC-PC S) S)) (IF (ADDI-ADDR-MODEP INS) (ADD-MAPPING (CDR (CDR (IMMEDIATE OPLEN (MC-PC S) S))) OPLEN INS (CAR (IMMEDIATE OPLEN (MC-PC S) S))) (HALT (MODE-SIGNAL) S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . ADDI-INS) (IMMEDIATE-DEPENDENTS0 HALT . ADDI-INS) (IMMEDIATE-DEPENDENTS0 ADD-MAPPING . ADDI-INS) (IMMEDIATE-DEPENDENTS0 ADDI-ADDR-MODEP . ADDI-INS) (IMMEDIATE-DEPENDENTS0 MC-PC . ADDI-INS) (IMMEDIATE-DEPENDENTS0 IMMEDIATE . ADDI-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . ADDI-INS) (DCELL . *1*ADDI-INS))))) (PUT1-LST (QUOTE *1*ADDI-ADDR-MODEP) (QUOTE (MAIN-EVENT ADDI-ADDR-MODEP))) (PUT1-LST (QUOTE ADDI-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((ADDI-ADDR-MODEP 3 NIL)) TOTALP-LST ((ADDI-ADDR-MODEP . T)) SDEFN (LAMBDA (INS) (IF (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)) (QUOTE *1*FALSE))) LISP-CODE *1*ADDI-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214825 SATELLITES (*1*ADDI-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (ADDI-INS) EVENT (DEFN ADDI-ADDR-MODEP (INS) (AND (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALTERABLE-ADDR-MODEP . ADDI-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_RN . ADDI-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . ADDI-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 DATA-ADDR-MODEP . ADDI-ADDR-MODEP) (DCELL . *1*ADDI-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*SUBI-SUBGROUP) (QUOTE (MAIN-EVENT SUBI-SUBGROUP))) (PUT1-LST (QUOTE SUBI-SUBGROUP) (QUOTE (TYPE-PRESCRIPTION-LST ((SUBI-SUBGROUP -1 NIL NIL NIL)) TOTALP-LST ((SUBI-SUBGROUP . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (EQUAL OPLEN (Q)) (HALT (QUOTE CMP2-CHK2-UNSPECIFIED) S) (SUBI-INS OPLEN INS S))) LISP-CODE *1*SUBI-SUBGROUP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*SUBI-SUBGROUP) IMMEDIATE-DEPENDENTS0 (BIT-GROUP) EVENT (DEFN SUBI-SUBGROUP (OPLEN INS S) (IF (EQUAL OPLEN (Q)) (HALT (QUOTE CMP2-CHK2-UNSPECIFIED) S) (SUBI-INS OPLEN INS S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBI-INS . SUBI-SUBGROUP) (IMMEDIATE-DEPENDENTS0 HALT . SUBI-SUBGROUP) (IMMEDIATE-DEPENDENTS0 Q . SUBI-SUBGROUP) (DCELL . *1*SUBI-SUBGROUP))))) (PUT1-LST (QUOTE *1*SUBI-INS) (QUOTE (MAIN-EVENT SUBI-INS))) (PUT1-LST (QUOTE SUBI-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((SUBI-INS -1 NIL NIL NIL)) TOTALP-LST ((SUBI-INS . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (MC-HALTP (CAR (IMMEDIATE OPLEN (MC-PC S) S))) (CAR (IMMEDIATE OPLEN (MC-PC S) S)) (IF (SUBI-ADDR-MODEP INS) (SUB-MAPPING (CDR (CDR (IMMEDIATE OPLEN (MC-PC S) S))) OPLEN INS (CAR (IMMEDIATE OPLEN (MC-PC S) S))) (HALT (MODE-SIGNAL) S)))) LISP-CODE *1*SUBI-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*SUBI-INS) IMMEDIATE-DEPENDENTS0 (SUBI-SUBGROUP) EVENT (DEFN SUBI-INS (OPLEN INS S) (IF (MC-HALTP (CAR (IMMEDIATE OPLEN (MC-PC S) S))) (CAR (IMMEDIATE OPLEN (MC-PC S) S)) (IF (SUBI-ADDR-MODEP INS) (SUB-MAPPING (CDR (CDR (IMMEDIATE OPLEN (MC-PC S) S))) OPLEN INS (CAR (IMMEDIATE OPLEN (MC-PC S) S))) (HALT (MODE-SIGNAL) S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . SUBI-INS) (IMMEDIATE-DEPENDENTS0 HALT . SUBI-INS) (IMMEDIATE-DEPENDENTS0 SUB-MAPPING . SUBI-INS) (IMMEDIATE-DEPENDENTS0 SUBI-ADDR-MODEP . SUBI-INS) (IMMEDIATE-DEPENDENTS0 MC-PC . SUBI-INS) (IMMEDIATE-DEPENDENTS0 IMMEDIATE . SUBI-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . SUBI-INS) (DCELL . *1*SUBI-INS))))) (PUT1-LST (QUOTE *1*SUBI-ADDR-MODEP) (QUOTE (MAIN-EVENT SUBI-ADDR-MODEP))) (PUT1-LST (QUOTE SUBI-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((SUBI-ADDR-MODEP 3 NIL)) TOTALP-LST ((SUBI-ADDR-MODEP . T)) SDEFN (LAMBDA (INS) (IF (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)) (QUOTE *1*FALSE))) LISP-CODE *1*SUBI-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214825 SATELLITES (*1*SUBI-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (SUBI-INS) EVENT (DEFN SUBI-ADDR-MODEP (INS) (AND (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALTERABLE-ADDR-MODEP . SUBI-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_RN . SUBI-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . SUBI-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 DATA-ADDR-MODEP . SUBI-ADDR-MODEP) (DCELL . *1*SUBI-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*ANDI-SUBGROUP) (QUOTE (MAIN-EVENT ANDI-SUBGROUP))) (PUT1-LST (QUOTE ANDI-SUBGROUP) (QUOTE (TYPE-PRESCRIPTION-LST ((ANDI-SUBGROUP -1 NIL NIL NIL)) TOTALP-LST ((ANDI-SUBGROUP . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (EQUAL OPLEN (Q)) (HALT (QUOTE CMP2-CHK2-UNSPECIFIED) S) (IF (EQUAL (HEAD INS (QUOTE 6)) (QUOTE 60)) (IF (EQUAL OPLEN (B)) (ANDI-TO-CCR-INS (MC-PC S) S) (IF (EQUAL OPLEN (W)) (HALT (QUOTE ANDI-TO-SR-UNSPECIFIED) S) (HALT (RESERVED-SIGNAL) S))) (ANDI-INS OPLEN INS S)))) LISP-CODE *1*ANDI-SUBGROUP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*ANDI-SUBGROUP) IMMEDIATE-DEPENDENTS0 (BIT-GROUP) EVENT (DEFN ANDI-SUBGROUP (OPLEN INS S) (IF (EQUAL OPLEN (Q)) (HALT (QUOTE CMP2-CHK2-UNSPECIFIED) S) (IF (EQUAL (HEAD INS (QUOTE 6)) (QUOTE 60)) (IF (EQUAL OPLEN (B)) (ANDI-TO-CCR-INS (MC-PC S) S) (IF (EQUAL OPLEN (W)) (HALT (QUOTE ANDI-TO-SR-UNSPECIFIED) S) (HALT (RESERVED-SIGNAL) S))) (ANDI-INS OPLEN INS S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ANDI-INS . ANDI-SUBGROUP) (IMMEDIATE-DEPENDENTS0 RESERVED-SIGNAL . ANDI-SUBGROUP) (IMMEDIATE-DEPENDENTS0 W . ANDI-SUBGROUP) (IMMEDIATE-DEPENDENTS0 MC-PC . ANDI-SUBGROUP) (IMMEDIATE-DEPENDENTS0 ANDI-TO-CCR-INS . ANDI-SUBGROUP) (IMMEDIATE-DEPENDENTS0 B . ANDI-SUBGROUP) (IMMEDIATE-DEPENDENTS0 HEAD . ANDI-SUBGROUP) (IMMEDIATE-DEPENDENTS0 HALT . ANDI-SUBGROUP) (IMMEDIATE-DEPENDENTS0 Q . ANDI-SUBGROUP) (DCELL . *1*ANDI-SUBGROUP))))) (PUT1-LST (QUOTE *1*ANDI-TO-CCR-INS) (QUOTE (MAIN-EVENT ANDI-TO-CCR-INS))) (PUT1-LST (QUOTE ANDI-TO-CCR-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((ANDI-TO-CCR-INS 16 NIL NIL)) TOTALP-LST ((ANDI-TO-CCR-INS . T)) SDEFN (LAMBDA (PC S) (IF (PC-WORD-READP PC (MC-MEM S)) (IF (EQUAL (PC-BYTE-READ PC (MC-MEM S)) (QUOTE 0)) (UPDATE-CCR (LOGAND (PC-BYTE-READ (ADD (L) PC (BSZ)) (MC-MEM S)) (MC-CCR S)) (UPDATE-PC (ADD (L) PC (WSZ)) S)) (HALT (RESERVED-SIGNAL) S)) (HALT (PC-SIGNAL) S))) LISP-CODE *1*ANDI-TO-CCR-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*ANDI-TO-CCR-INS) IMMEDIATE-DEPENDENTS0 (ANDI-SUBGROUP) EVENT (DEFN ANDI-TO-CCR-INS (PC S) (IF (PC-WORD-READP PC (MC-MEM S)) (IF (EQUAL (PC-BYTE-READ PC (MC-MEM S)) (QUOTE 0)) (UPDATE-CCR (LOGAND (PC-BYTE-READ (ADD (L) PC (BSZ)) (MC-MEM S)) (MC-CCR S)) (UPDATE-PC (ADD (L) PC (WSZ)) S)) (HALT (RESERVED-SIGNAL) S)) (HALT (PC-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-SIGNAL . ANDI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 RESERVED-SIGNAL . ANDI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 HALT . ANDI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 WSZ . ANDI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . ANDI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . ANDI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 BSZ . ANDI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 L . ANDI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 ADD . ANDI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 LOGAND . ANDI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 UPDATE-CCR . ANDI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 PC-BYTE-READ . ANDI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 MC-MEM . ANDI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 PC-WORD-READP . ANDI-TO-CCR-INS) (DCELL . *1*ANDI-TO-CCR-INS))))) (PUT1-LST (QUOTE *1*ANDI-INS) (QUOTE (MAIN-EVENT ANDI-INS))) (PUT1-LST (QUOTE ANDI-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((ANDI-INS -1 NIL NIL NIL)) TOTALP-LST ((ANDI-INS . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (MC-HALTP S) (CAR (IMMEDIATE OPLEN (MC-PC S) S)) (IF (ANDI-ADDR-MODEP INS) (AND-MAPPING (CDR (CDR (IMMEDIATE OPLEN (MC-PC S) S))) OPLEN INS (CAR (IMMEDIATE OPLEN (MC-PC S) S))) (HALT (MODE-SIGNAL) S)))) LISP-CODE *1*ANDI-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*ANDI-INS) IMMEDIATE-DEPENDENTS0 (ANDI-SUBGROUP) EVENT (DEFN ANDI-INS (OPLEN INS S) (IF (MC-HALTP S) (CAR (IMMEDIATE OPLEN (MC-PC S) S)) (IF (ANDI-ADDR-MODEP INS) (AND-MAPPING (CDR (CDR (IMMEDIATE OPLEN (MC-PC S) S))) OPLEN INS (CAR (IMMEDIATE OPLEN (MC-PC S) S))) (HALT (MODE-SIGNAL) S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . ANDI-INS) (IMMEDIATE-DEPENDENTS0 HALT . ANDI-INS) (IMMEDIATE-DEPENDENTS0 AND-MAPPING . ANDI-INS) (IMMEDIATE-DEPENDENTS0 ANDI-ADDR-MODEP . ANDI-INS) (IMMEDIATE-DEPENDENTS0 MC-PC . ANDI-INS) (IMMEDIATE-DEPENDENTS0 IMMEDIATE . ANDI-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . ANDI-INS) (DCELL . *1*ANDI-INS))))) (PUT1-LST (QUOTE *1*ANDI-ADDR-MODEP) (QUOTE (MAIN-EVENT ANDI-ADDR-MODEP))) (PUT1-LST (QUOTE ANDI-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((ANDI-ADDR-MODEP 3 NIL)) TOTALP-LST ((ANDI-ADDR-MODEP . T)) SDEFN (LAMBDA (INS) (IF (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)) (QUOTE *1*FALSE))) LISP-CODE *1*ANDI-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214825 SATELLITES (*1*ANDI-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (ANDI-INS) EVENT (DEFN ANDI-ADDR-MODEP (INS) (AND (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALTERABLE-ADDR-MODEP . ANDI-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_RN . ANDI-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . ANDI-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 DATA-ADDR-MODEP . ANDI-ADDR-MODEP) (DCELL . *1*ANDI-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*ORI-SUBGROUP) (QUOTE (MAIN-EVENT ORI-SUBGROUP))) (PUT1-LST (QUOTE ORI-SUBGROUP) (QUOTE (TYPE-PRESCRIPTION-LST ((ORI-SUBGROUP -1 NIL NIL NIL)) TOTALP-LST ((ORI-SUBGROUP . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (EQUAL OPLEN (Q)) (HALT (QUOTE CMP2-CHK2-UNSPECIFIED) S) (IF (EQUAL (HEAD INS (QUOTE 6)) (QUOTE 60)) (IF (EQUAL OPLEN (B)) (ORI-TO-CCR-INS (MC-PC S) S) (IF (EQUAL OPLEN (W)) (HALT (QUOTE ORI-TO-SR-PRIVILEGED) S) (HALT (RESERVED-SIGNAL) S))) (ORI-INS OPLEN INS S)))) LISP-CODE *1*ORI-SUBGROUP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*ORI-SUBGROUP) IMMEDIATE-DEPENDENTS0 (BIT-GROUP) EVENT (DEFN ORI-SUBGROUP (OPLEN INS S) (IF (EQUAL OPLEN (Q)) (HALT (QUOTE CMP2-CHK2-UNSPECIFIED) S) (IF (EQUAL (HEAD INS (QUOTE 6)) (QUOTE 60)) (IF (EQUAL OPLEN (B)) (ORI-TO-CCR-INS (MC-PC S) S) (IF (EQUAL OPLEN (W)) (HALT (QUOTE ORI-TO-SR-PRIVILEGED) S) (HALT (RESERVED-SIGNAL) S))) (ORI-INS OPLEN INS S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ORI-INS . ORI-SUBGROUP) (IMMEDIATE-DEPENDENTS0 RESERVED-SIGNAL . ORI-SUBGROUP) (IMMEDIATE-DEPENDENTS0 W . ORI-SUBGROUP) (IMMEDIATE-DEPENDENTS0 MC-PC . ORI-SUBGROUP) (IMMEDIATE-DEPENDENTS0 ORI-TO-CCR-INS . ORI-SUBGROUP) (IMMEDIATE-DEPENDENTS0 B . ORI-SUBGROUP) (IMMEDIATE-DEPENDENTS0 HEAD . ORI-SUBGROUP) (IMMEDIATE-DEPENDENTS0 HALT . ORI-SUBGROUP) (IMMEDIATE-DEPENDENTS0 Q . ORI-SUBGROUP) (DCELL . *1*ORI-SUBGROUP))))) (PUT1-LST (QUOTE *1*ORI-TO-CCR-INS) (QUOTE (MAIN-EVENT ORI-TO-CCR-INS))) (PUT1-LST (QUOTE ORI-TO-CCR-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((ORI-TO-CCR-INS 16 NIL NIL)) TOTALP-LST ((ORI-TO-CCR-INS . T)) SDEFN (LAMBDA (PC S) (IF (PC-WORD-READP PC (MC-MEM S)) (IF (EQUAL (PC-BYTE-READ PC (MC-MEM S)) (QUOTE 0)) (UPDATE-CCR (LOGOR (PC-BYTE-READ (ADD (L) PC (BSZ)) (MC-MEM S)) (MC-CCR S)) (UPDATE-PC (ADD (L) PC (WSZ)) S)) (HALT (RESERVED-SIGNAL) S)) (HALT (PC-SIGNAL) S))) LISP-CODE *1*ORI-TO-CCR-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*ORI-TO-CCR-INS) IMMEDIATE-DEPENDENTS0 (ORI-SUBGROUP) EVENT (DEFN ORI-TO-CCR-INS (PC S) (IF (PC-WORD-READP PC (MC-MEM S)) (IF (EQUAL (PC-BYTE-READ PC (MC-MEM S)) (QUOTE 0)) (UPDATE-CCR (LOGOR (PC-BYTE-READ (ADD (L) PC (BSZ)) (MC-MEM S)) (MC-CCR S)) (UPDATE-PC (ADD (L) PC (WSZ)) S)) (HALT (RESERVED-SIGNAL) S)) (HALT (PC-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-SIGNAL . ORI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 RESERVED-SIGNAL . ORI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 HALT . ORI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 WSZ . ORI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . ORI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . ORI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 BSZ . ORI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 L . ORI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 ADD . ORI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 LOGOR . ORI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 UPDATE-CCR . ORI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 PC-BYTE-READ . ORI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 MC-MEM . ORI-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 PC-WORD-READP . ORI-TO-CCR-INS) (DCELL . *1*ORI-TO-CCR-INS))))) (PUT1-LST (QUOTE *1*ORI-INS) (QUOTE (MAIN-EVENT ORI-INS))) (PUT1-LST (QUOTE ORI-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((ORI-INS -1 NIL NIL NIL)) TOTALP-LST ((ORI-INS . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (MC-HALTP (CAR (IMMEDIATE OPLEN (MC-PC S) S))) (CAR (IMMEDIATE OPLEN (MC-PC S) S)) (IF (ORI-ADDR-MODEP INS) (OR-MAPPING (CDR (CDR (IMMEDIATE OPLEN (MC-PC S) S))) OPLEN INS (CAR (IMMEDIATE OPLEN (MC-PC S) S))) (HALT (MODE-SIGNAL) S)))) LISP-CODE *1*ORI-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*ORI-INS) IMMEDIATE-DEPENDENTS0 (ORI-SUBGROUP) EVENT (DEFN ORI-INS (OPLEN INS S) (IF (MC-HALTP (CAR (IMMEDIATE OPLEN (MC-PC S) S))) (CAR (IMMEDIATE OPLEN (MC-PC S) S)) (IF (ORI-ADDR-MODEP INS) (OR-MAPPING (CDR (CDR (IMMEDIATE OPLEN (MC-PC S) S))) OPLEN INS (CAR (IMMEDIATE OPLEN (MC-PC S) S))) (HALT (MODE-SIGNAL) S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . ORI-INS) (IMMEDIATE-DEPENDENTS0 HALT . ORI-INS) (IMMEDIATE-DEPENDENTS0 OR-MAPPING . ORI-INS) (IMMEDIATE-DEPENDENTS0 ORI-ADDR-MODEP . ORI-INS) (IMMEDIATE-DEPENDENTS0 MC-PC . ORI-INS) (IMMEDIATE-DEPENDENTS0 IMMEDIATE . ORI-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . ORI-INS) (DCELL . *1*ORI-INS))))) (PUT1-LST (QUOTE *1*ORI-ADDR-MODEP) (QUOTE (MAIN-EVENT ORI-ADDR-MODEP))) (PUT1-LST (QUOTE ORI-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((ORI-ADDR-MODEP 3 NIL)) TOTALP-LST ((ORI-ADDR-MODEP . T)) SDEFN (LAMBDA (INS) (IF (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)) (QUOTE *1*FALSE))) LISP-CODE *1*ORI-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214825 SATELLITES (*1*ORI-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (ORI-INS) EVENT (DEFN ORI-ADDR-MODEP (INS) (AND (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALTERABLE-ADDR-MODEP . ORI-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_RN . ORI-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . ORI-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 DATA-ADDR-MODEP . ORI-ADDR-MODEP) (DCELL . *1*ORI-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*S-BIT-SUBGROUP) (QUOTE (MAIN-EVENT S-BIT-SUBGROUP))) (PUT1-LST (QUOTE S-BIT-SUBGROUP) (QUOTE (TYPE-PRESCRIPTION-LST ((S-BIT-SUBGROUP -1 NIL NIL)) TOTALP-LST ((S-BIT-SUBGROUP . T)) SDEFN (LAMBDA (INS S) (IF (PC-WORD-READP (MC-PC S) (MC-MEM S)) (IF (EQUAL (PC-BYTE-READ (MC-PC S) (MC-MEM S)) (QUOTE 0)) (BIT-INS (PC-BYTE-READ (ADD (L) (MC-PC S) (BSZ)) (MC-MEM S)) INS (UPDATE-PC (ADD (L) (MC-PC S) (WSZ)) S)) (HALT (RESERVED-SIGNAL) S)) (HALT (PC-SIGNAL) S))) LISP-CODE *1*S-BIT-SUBGROUP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*S-BIT-SUBGROUP) IMMEDIATE-DEPENDENTS0 (BIT-GROUP) EVENT (DEFN S-BIT-SUBGROUP (INS S) (IF (PC-WORD-READP (MC-PC S) (MC-MEM S)) (IF (EQUAL (PC-BYTE-READ (MC-PC S) (MC-MEM S)) (QUOTE 0)) (BIT-INS (PC-BYTE-READ (ADD (L) (MC-PC S) (BSZ)) (MC-MEM S)) INS (UPDATE-PC (ADD (L) (MC-PC S) (WSZ)) S)) (HALT (RESERVED-SIGNAL) S)) (HALT (PC-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-SIGNAL . S-BIT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 RESERVED-SIGNAL . S-BIT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 HALT . S-BIT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 WSZ . S-BIT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . S-BIT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 BSZ . S-BIT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 L . S-BIT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 ADD . S-BIT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 BIT-INS . S-BIT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 PC-BYTE-READ . S-BIT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 MC-MEM . S-BIT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 MC-PC . S-BIT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 PC-WORD-READP . S-BIT-SUBGROUP) (DCELL . *1*S-BIT-SUBGROUP))))) (PUT1-LST (QUOTE *1*D-BIT-SUBGROUP) (QUOTE (MAIN-EVENT D-BIT-SUBGROUP))) (PUT1-LST (QUOTE D-BIT-SUBGROUP) (QUOTE (TYPE-PRESCRIPTION-LST ((D-BIT-SUBGROUP -1 NIL NIL)) TOTALP-LST ((D-BIT-SUBGROUP . T)) SDEFN (LAMBDA (INS S) (IF (EQUAL (S_MODE INS) (QUOTE 1)) (MOVEP-INS (OPMODE-FIELD INS) INS S) (BIT-INS (READ-DN (L) (D_RN INS) S) INS S))) LISP-CODE *1*D-BIT-SUBGROUP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*D-BIT-SUBGROUP) IMMEDIATE-DEPENDENTS0 (BIT-GROUP) EVENT (DEFN D-BIT-SUBGROUP (INS S) (IF (EQUAL (S_MODE INS) (QUOTE 1)) (MOVEP-INS (OPMODE-FIELD INS) INS S) (BIT-INS (READ-DN (L) (D_RN INS) S) INS S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 D_RN . D-BIT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 L . D-BIT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 READ-DN . D-BIT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 BIT-INS . D-BIT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 OPMODE-FIELD . D-BIT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 MOVEP-INS . D-BIT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 S_MODE . D-BIT-SUBGROUP) (DCELL . *1*D-BIT-SUBGROUP))))) (PUT1-LST (QUOTE *1*BIT-INS) (QUOTE (MAIN-EVENT BIT-INS))) (PUT1-LST (QUOTE BIT-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((BIT-INS -1 NIL NIL NIL)) TOTALP-LST ((BIT-INS . T)) SDEFN (LAMBDA (BNUM INS S) (IF (LESSP (BITS INS (QUOTE 6) (QUOTE 7)) (QUOTE 2)) (IF (EQUAL (BITS INS (QUOTE 6) (QUOTE 7)) (QUOTE 0)) (BTST-INS BNUM INS S) (BCHG-INS BNUM INS S)) (IF (EQUAL (BITS INS (QUOTE 6) (QUOTE 7)) (QUOTE 2)) (BCLR-INS BNUM INS S) (BSET-INS BNUM INS S)))) LISP-CODE *1*BIT-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*BIT-INS) IMMEDIATE-DEPENDENTS0 (S-BIT-SUBGROUP D-BIT-SUBGROUP) EVENT (DEFN BIT-INS (BNUM INS S) (IF (LESSP (BITS INS (QUOTE 6) (QUOTE 7)) (QUOTE 2)) (IF (EQUAL (BITS INS (QUOTE 6) (QUOTE 7)) (QUOTE 0)) (BTST-INS BNUM INS S) (BCHG-INS BNUM INS S)) (IF (EQUAL (BITS INS (QUOTE 6) (QUOTE 7)) (QUOTE 2)) (BCLR-INS BNUM INS S) (BSET-INS BNUM INS S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BSET-INS . BIT-INS) (IMMEDIATE-DEPENDENTS0 BCLR-INS . BIT-INS) (IMMEDIATE-DEPENDENTS0 BCHG-INS . BIT-INS) (IMMEDIATE-DEPENDENTS0 BTST-INS . BIT-INS) (IMMEDIATE-DEPENDENTS0 BITS . BIT-INS) (DCELL . *1*BIT-INS))))) (PUT1-LST (QUOTE *1*BTST-INS) (QUOTE (MAIN-EVENT BTST-INS))) (PUT1-LST (QUOTE BTST-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((BTST-INS -1 NIL NIL NIL)) TOTALP-LST ((BTST-INS . T)) SDEFN (LAMBDA (BNUM INS S) (IF (BTST-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (B) INS S))) (CAR (MC-INSTATE (B) INS S)) (UPDATE-CCR (SET-Z (B-NOT (BITN (BXXX-OPD (S_MODE INS) (MC-INSTATE (B) INS S)) (BXXX-NUM (S_MODE INS) BNUM))) (MC-CCR S)) (CAR (MC-INSTATE (B) INS S)))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*BTST-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*BTST-INS) IMMEDIATE-DEPENDENTS0 (BIT-INS) EVENT (DEFN BTST-INS (BNUM INS S) (IF (BTST-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (B) INS S))) (CAR (MC-INSTATE (B) INS S)) (UPDATE-CCR (SET-Z (B-NOT (BITN (BXXX-OPD (S_MODE INS) (MC-INSTATE (B) INS S)) (BXXX-NUM (S_MODE INS) BNUM))) (MC-CCR S)) (CAR (MC-INSTATE (B) INS S)))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . BTST-INS) (IMMEDIATE-DEPENDENTS0 HALT . BTST-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . BTST-INS) (IMMEDIATE-DEPENDENTS0 BXXX-NUM . BTST-INS) (IMMEDIATE-DEPENDENTS0 S_MODE . BTST-INS) (IMMEDIATE-DEPENDENTS0 BXXX-OPD . BTST-INS) (IMMEDIATE-DEPENDENTS0 BITN . BTST-INS) (IMMEDIATE-DEPENDENTS0 B-NOT . BTST-INS) (IMMEDIATE-DEPENDENTS0 SET-Z . BTST-INS) (IMMEDIATE-DEPENDENTS0 UPDATE-CCR . BTST-INS) (IMMEDIATE-DEPENDENTS0 B . BTST-INS) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . BTST-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . BTST-INS) (IMMEDIATE-DEPENDENTS0 BTST-ADDR-MODEP . BTST-INS) (DCELL . *1*BTST-INS))))) (PUT1-LST (QUOTE *1*BTST-ADDR-MODEP) (QUOTE (MAIN-EVENT BTST-ADDR-MODEP))) (PUT1-LST (QUOTE BTST-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((BTST-ADDR-MODEP 3 NIL)) TOTALP-LST ((BTST-ADDR-MODEP . T)) SDEFN (LAMBDA (INS) (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS))) LISP-CODE *1*BTST-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214825 SATELLITES (*1*BTST-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (BTST-INS) EVENT (DEFN BTST-ADDR-MODEP (INS) (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S_RN . BTST-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . BTST-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 DATA-ADDR-MODEP . BTST-ADDR-MODEP) (DCELL . *1*BTST-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*BSET-INS) (QUOTE (MAIN-EVENT BSET-INS))) (PUT1-LST (QUOTE BSET-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((BSET-INS -1 NIL NIL NIL)) TOTALP-LST ((BSET-INS . T)) SDEFN (LAMBDA (BNUM INS S) (IF (BSET-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (B) INS S))) (CAR (MC-INSTATE (B) INS S)) (MAPPING (BXXX-OPLEN (S_MODE INS)) (BSET-EFFECT (BXXX-NUM (S_MODE INS) BNUM) (BXXX-OPD (S_MODE INS) (MC-INSTATE (B) INS S)) (MC-CCR S)) (MC-INSTATE (B) INS S))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*BSET-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*BSET-INS) IMMEDIATE-DEPENDENTS0 (BIT-INS) EVENT (DEFN BSET-INS (BNUM INS S) (IF (BSET-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (B) INS S))) (CAR (MC-INSTATE (B) INS S)) (MAPPING (BXXX-OPLEN (S_MODE INS)) (BSET-EFFECT (BXXX-NUM (S_MODE INS) BNUM) (BXXX-OPD (S_MODE INS) (MC-INSTATE (B) INS S)) (MC-CCR S)) (MC-INSTATE (B) INS S))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . BSET-INS) (IMMEDIATE-DEPENDENTS0 HALT . BSET-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . BSET-INS) (IMMEDIATE-DEPENDENTS0 BXXX-OPD . BSET-INS) (IMMEDIATE-DEPENDENTS0 BXXX-NUM . BSET-INS) (IMMEDIATE-DEPENDENTS0 BSET-EFFECT . BSET-INS) (IMMEDIATE-DEPENDENTS0 S_MODE . BSET-INS) (IMMEDIATE-DEPENDENTS0 BXXX-OPLEN . BSET-INS) (IMMEDIATE-DEPENDENTS0 MAPPING . BSET-INS) (IMMEDIATE-DEPENDENTS0 B . BSET-INS) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . BSET-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . BSET-INS) (IMMEDIATE-DEPENDENTS0 BSET-ADDR-MODEP . BSET-INS) (DCELL . *1*BSET-INS))))) (PUT1-LST (QUOTE *1*BSET-EFFECT) (QUOTE (MAIN-EVENT BSET-EFFECT))) (PUT1-LST (QUOTE BSET-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((BSET-EFFECT 16 NIL NIL NIL)) TOTALP-LST ((BSET-EFFECT . T)) SDEFN (LAMBDA (BNUM OPD CCR) (CONS (SETN OPD BNUM (B1)) (SET-Z (B-NOT (BITN OPD BNUM)) CCR))) LISP-CODE *1*BSET-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214825 SATELLITES (*1*BSET-EFFECT) IMMEDIATE-DEPENDENTS0 (BSET-INS) EVENT (DEFN BSET-EFFECT (BNUM OPD CCR) (CONS (SETN OPD BNUM (B1)) (SET-Z (B-NOT (BITN OPD BNUM)) CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN . BSET-EFFECT) (IMMEDIATE-DEPENDENTS0 B-NOT . BSET-EFFECT) (IMMEDIATE-DEPENDENTS0 SET-Z . BSET-EFFECT) (IMMEDIATE-DEPENDENTS0 B1 . BSET-EFFECT) (IMMEDIATE-DEPENDENTS0 SETN . BSET-EFFECT) (DCELL . *1*BSET-EFFECT))))) (PUT1-LST (QUOTE *1*BSET-ADDR-MODEP) (QUOTE (MAIN-EVENT BSET-ADDR-MODEP))) (PUT1-LST (QUOTE BSET-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((BSET-ADDR-MODEP 3 NIL)) TOTALP-LST ((BSET-ADDR-MODEP . T)) SDEFN (LAMBDA (INS) (IF (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)) (QUOTE *1*FALSE))) LISP-CODE *1*BSET-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214825 SATELLITES (*1*BSET-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (BSET-INS) EVENT (DEFN BSET-ADDR-MODEP (INS) (AND (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALTERABLE-ADDR-MODEP . BSET-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_RN . BSET-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . BSET-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 DATA-ADDR-MODEP . BSET-ADDR-MODEP) (DCELL . *1*BSET-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*BCLR-INS) (QUOTE (MAIN-EVENT BCLR-INS))) (PUT1-LST (QUOTE BCLR-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((BCLR-INS -1 NIL NIL NIL)) TOTALP-LST ((BCLR-INS . T)) SDEFN (LAMBDA (BNUM INS S) (IF (BCLR-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (B) INS S))) (CAR (MC-INSTATE (B) INS S)) (MAPPING (BXXX-OPLEN (S_MODE INS)) (BCLR-EFFECT (BXXX-NUM (S_MODE INS) BNUM) (BXXX-OPD (S_MODE INS) (MC-INSTATE (B) INS S)) (MC-CCR S)) (MC-INSTATE (B) INS S))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*BCLR-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*BCLR-INS) IMMEDIATE-DEPENDENTS0 (BIT-INS) EVENT (DEFN BCLR-INS (BNUM INS S) (IF (BCLR-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (B) INS S))) (CAR (MC-INSTATE (B) INS S)) (MAPPING (BXXX-OPLEN (S_MODE INS)) (BCLR-EFFECT (BXXX-NUM (S_MODE INS) BNUM) (BXXX-OPD (S_MODE INS) (MC-INSTATE (B) INS S)) (MC-CCR S)) (MC-INSTATE (B) INS S))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . BCLR-INS) (IMMEDIATE-DEPENDENTS0 HALT . BCLR-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . BCLR-INS) (IMMEDIATE-DEPENDENTS0 BXXX-OPD . BCLR-INS) (IMMEDIATE-DEPENDENTS0 BXXX-NUM . BCLR-INS) (IMMEDIATE-DEPENDENTS0 BCLR-EFFECT . BCLR-INS) (IMMEDIATE-DEPENDENTS0 S_MODE . BCLR-INS) (IMMEDIATE-DEPENDENTS0 BXXX-OPLEN . BCLR-INS) (IMMEDIATE-DEPENDENTS0 MAPPING . BCLR-INS) (IMMEDIATE-DEPENDENTS0 B . BCLR-INS) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . BCLR-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . BCLR-INS) (IMMEDIATE-DEPENDENTS0 BCLR-ADDR-MODEP . BCLR-INS) (DCELL . *1*BCLR-INS))))) (PUT1-LST (QUOTE *1*BCLR-EFFECT) (QUOTE (MAIN-EVENT BCLR-EFFECT))) (PUT1-LST (QUOTE BCLR-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((BCLR-EFFECT 16 NIL NIL NIL)) TOTALP-LST ((BCLR-EFFECT . T)) SDEFN (LAMBDA (BNUM OPD CCR) (CONS (SETN OPD BNUM (B0)) (SET-Z (B-NOT (BITN OPD BNUM)) CCR))) LISP-CODE *1*BCLR-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214825 SATELLITES (*1*BCLR-EFFECT) IMMEDIATE-DEPENDENTS0 (BCLR-INS) EVENT (DEFN BCLR-EFFECT (BNUM OPD CCR) (CONS (SETN OPD BNUM (B0)) (SET-Z (B-NOT (BITN OPD BNUM)) CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN . BCLR-EFFECT) (IMMEDIATE-DEPENDENTS0 B-NOT . BCLR-EFFECT) (IMMEDIATE-DEPENDENTS0 SET-Z . BCLR-EFFECT) (IMMEDIATE-DEPENDENTS0 B0 . BCLR-EFFECT) (IMMEDIATE-DEPENDENTS0 SETN . BCLR-EFFECT) (DCELL . *1*BCLR-EFFECT))))) (PUT1-LST (QUOTE *1*BCLR-ADDR-MODEP) (QUOTE (MAIN-EVENT BCLR-ADDR-MODEP))) (PUT1-LST (QUOTE BCLR-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((BCLR-ADDR-MODEP 3 NIL)) TOTALP-LST ((BCLR-ADDR-MODEP . T)) SDEFN (LAMBDA (INS) (IF (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)) (QUOTE *1*FALSE))) LISP-CODE *1*BCLR-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214825 SATELLITES (*1*BCLR-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (BCLR-INS) EVENT (DEFN BCLR-ADDR-MODEP (INS) (AND (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALTERABLE-ADDR-MODEP . BCLR-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_RN . BCLR-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . BCLR-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 DATA-ADDR-MODEP . BCLR-ADDR-MODEP) (DCELL . *1*BCLR-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*BCHG-INS) (QUOTE (MAIN-EVENT BCHG-INS))) (PUT1-LST (QUOTE BCHG-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((BCHG-INS -1 NIL NIL NIL)) TOTALP-LST ((BCHG-INS . T)) SDEFN (LAMBDA (BNUM INS S) (IF (BCHG-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (B) INS S))) (CAR (MC-INSTATE (B) INS S)) (MAPPING (BXXX-OPLEN (S_MODE INS)) (BCHG-EFFECT (BXXX-NUM (S_MODE INS) BNUM) (BXXX-OPD (S_MODE INS) (MC-INSTATE (B) INS S)) (MC-CCR S)) (MC-INSTATE (B) INS S))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*BCHG-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*BCHG-INS) IMMEDIATE-DEPENDENTS0 (BIT-INS) EVENT (DEFN BCHG-INS (BNUM INS S) (IF (BCHG-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (B) INS S))) (CAR (MC-INSTATE (B) INS S)) (MAPPING (BXXX-OPLEN (S_MODE INS)) (BCHG-EFFECT (BXXX-NUM (S_MODE INS) BNUM) (BXXX-OPD (S_MODE INS) (MC-INSTATE (B) INS S)) (MC-CCR S)) (MC-INSTATE (B) INS S))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . BCHG-INS) (IMMEDIATE-DEPENDENTS0 HALT . BCHG-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . BCHG-INS) (IMMEDIATE-DEPENDENTS0 BXXX-OPD . BCHG-INS) (IMMEDIATE-DEPENDENTS0 BXXX-NUM . BCHG-INS) (IMMEDIATE-DEPENDENTS0 BCHG-EFFECT . BCHG-INS) (IMMEDIATE-DEPENDENTS0 S_MODE . BCHG-INS) (IMMEDIATE-DEPENDENTS0 BXXX-OPLEN . BCHG-INS) (IMMEDIATE-DEPENDENTS0 MAPPING . BCHG-INS) (IMMEDIATE-DEPENDENTS0 B . BCHG-INS) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . BCHG-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . BCHG-INS) (IMMEDIATE-DEPENDENTS0 BCHG-ADDR-MODEP . BCHG-INS) (DCELL . *1*BCHG-INS))))) (PUT1-LST (QUOTE *1*BCHG-EFFECT) (QUOTE (MAIN-EVENT BCHG-EFFECT))) (PUT1-LST (QUOTE BCHG-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((BCHG-EFFECT 16 NIL NIL NIL)) TOTALP-LST ((BCHG-EFFECT . T)) SDEFN (LAMBDA (BNUM OPD CCR) (CONS (SETN OPD BNUM (B-NOT (BITN OPD BNUM))) (SET-Z (B-NOT (BITN OPD BNUM)) CCR))) LISP-CODE *1*BCHG-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214825 SATELLITES (*1*BCHG-EFFECT) IMMEDIATE-DEPENDENTS0 (BCHG-INS) EVENT (DEFN BCHG-EFFECT (BNUM OPD CCR) (CONS (SETN OPD BNUM (B-NOT (BITN OPD BNUM))) (SET-Z (B-NOT (BITN OPD BNUM)) CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SET-Z . BCHG-EFFECT) (IMMEDIATE-DEPENDENTS0 BITN . BCHG-EFFECT) (IMMEDIATE-DEPENDENTS0 B-NOT . BCHG-EFFECT) (IMMEDIATE-DEPENDENTS0 SETN . BCHG-EFFECT) (DCELL . *1*BCHG-EFFECT))))) (PUT1-LST (QUOTE *1*BCHG-ADDR-MODEP) (QUOTE (MAIN-EVENT BCHG-ADDR-MODEP))) (PUT1-LST (QUOTE BCHG-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((BCHG-ADDR-MODEP 3 NIL)) TOTALP-LST ((BCHG-ADDR-MODEP . T)) SDEFN (LAMBDA (INS) (IF (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)) (QUOTE *1*FALSE))) LISP-CODE *1*BCHG-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214825 SATELLITES (*1*BCHG-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (BCHG-INS) EVENT (DEFN BCHG-ADDR-MODEP (INS) (AND (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALTERABLE-ADDR-MODEP . BCHG-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_RN . BCHG-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . BCHG-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 DATA-ADDR-MODEP . BCHG-ADDR-MODEP) (DCELL . *1*BCHG-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*BXXX-OPD) (QUOTE (MAIN-EVENT BXXX-OPD))) (PUT1-LST (QUOTE BXXX-OPD) (QUOTE (TYPE-PRESCRIPTION-LST ((BXXX-OPD -1 NIL NIL)) TOTALP-LST ((BXXX-OPD . T)) SDEFN (LAMBDA (SMODE S&ADDR) (IF (DN-DIRECT-MODEP SMODE) (READ-DN (L) (CDR (CDR S&ADDR)) (CAR S&ADDR)) (OPERAND (B) (CDR S&ADDR) (CAR S&ADDR)))) LISP-CODE *1*BXXX-OPD SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402214825 SATELLITES (*1*BXXX-OPD) IMMEDIATE-DEPENDENTS0 (BTST-INS BSET-INS BCLR-INS BCHG-INS) EVENT (DEFN BXXX-OPD (SMODE S&ADDR) (IF (DN-DIRECT-MODEP SMODE) (READ-DN (L) (CDR (CDR S&ADDR)) (CAR S&ADDR)) (OPERAND (B) (CDR S&ADDR) (CAR S&ADDR)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B . BXXX-OPD) (IMMEDIATE-DEPENDENTS0 OPERAND . BXXX-OPD) (IMMEDIATE-DEPENDENTS0 L . BXXX-OPD) (IMMEDIATE-DEPENDENTS0 READ-DN . BXXX-OPD) (IMMEDIATE-DEPENDENTS0 DN-DIRECT-MODEP . BXXX-OPD) (DCELL . *1*BXXX-OPD))))) (PUT1-LST (QUOTE *1*BXXX-NUM) (QUOTE (MAIN-EVENT BXXX-NUM))) (PUT1-LST (QUOTE BXXX-NUM) (QUOTE (TYPE-PRESCRIPTION-LST ((BXXX-NUM 4 NIL NIL)) TOTALP-LST ((BXXX-NUM . T)) SDEFN (LAMBDA (SMODE BNUM) (IF (DN-DIRECT-MODEP SMODE) (HEAD BNUM (QUOTE 5)) (HEAD BNUM (QUOTE 3)))) LISP-CODE *1*BXXX-NUM SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214825 SATELLITES (*1*BXXX-NUM) IMMEDIATE-DEPENDENTS0 (BTST-INS BSET-INS BCLR-INS BCHG-INS) EVENT (DEFN BXXX-NUM (SMODE BNUM) (IF (DN-DIRECT-MODEP SMODE) (HEAD BNUM (QUOTE 5)) (HEAD BNUM (QUOTE 3)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD . BXXX-NUM) (IMMEDIATE-DEPENDENTS0 DN-DIRECT-MODEP . BXXX-NUM) (DCELL . *1*BXXX-NUM))))) (PUT1-LST (QUOTE *1*BXXX-OPLEN) (QUOTE (MAIN-EVENT BXXX-OPLEN))) (PUT1-LST (QUOTE BXXX-OPLEN) (QUOTE (TYPE-PRESCRIPTION-LST ((BXXX-OPLEN 4 NIL)) TOTALP-LST ((BXXX-OPLEN . T)) SDEFN (LAMBDA (SMODE) (IF (DN-DIRECT-MODEP SMODE) (L) (B))) LISP-CODE *1*BXXX-OPLEN SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214825 SATELLITES (*1*BXXX-OPLEN) IMMEDIATE-DEPENDENTS0 (BSET-INS BCLR-INS BCHG-INS) EVENT (DEFN BXXX-OPLEN (SMODE) (IF (DN-DIRECT-MODEP SMODE) (L) (B))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B . BXXX-OPLEN) (IMMEDIATE-DEPENDENTS0 L . BXXX-OPLEN) (IMMEDIATE-DEPENDENTS0 DN-DIRECT-MODEP . BXXX-OPLEN) (DCELL . *1*BXXX-OPLEN))))) (PUT1-LST (QUOTE *1*MOVEP-INS) (QUOTE (MAIN-EVENT MOVEP-INS))) (PUT1-LST (QUOTE MOVEP-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVEP-INS -1 NIL NIL NIL)) TOTALP-LST ((MOVEP-INS . T)) SDEFN (LAMBDA (OPMODE INS S) (IF (MC-HALTP (CAR (ADDR-DISP (MC-PC S) (S_RN INS) S))) (CAR (ADDR-DISP (MC-PC S) (S_RN INS) S)) (IF (LESSP OPMODE (QUOTE 6)) (IF (EQUAL OPMODE (QUOTE 4)) (MOVEP-TO-REG (MOVEP-ADDR (ADDR-DISP (MC-PC S) (S_RN INS) S)) (W) INS (CAR (ADDR-DISP (MC-PC S) (S_RN INS) S))) (MOVEP-TO-REG (MOVEP-ADDR (ADDR-DISP (MC-PC S) (S_RN INS) S)) (L) INS (CAR (ADDR-DISP (MC-PC S) (S_RN INS) S)))) (IF (EQUAL OPMODE (QUOTE 6)) (MOVEP-TO-MEM (MOVEP-ADDR (ADDR-DISP (MC-PC S) (S_RN INS) S)) (W) INS (CAR (ADDR-DISP (MC-PC S) (S_RN INS) S))) (MOVEP-TO-MEM (MOVEP-ADDR (ADDR-DISP (MC-PC S) (S_RN INS) S)) (L) INS (CAR (ADDR-DISP (MC-PC S) (S_RN INS) S))))))) LISP-CODE *1*MOVEP-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*MOVEP-INS) IMMEDIATE-DEPENDENTS0 (D-BIT-SUBGROUP) EVENT (DEFN MOVEP-INS (OPMODE INS S) (IF (MC-HALTP (CAR (ADDR-DISP (MC-PC S) (S_RN INS) S))) (CAR (ADDR-DISP (MC-PC S) (S_RN INS) S)) (IF (LESSP OPMODE (QUOTE 6)) (IF (EQUAL OPMODE (QUOTE 4)) (MOVEP-TO-REG (MOVEP-ADDR (ADDR-DISP (MC-PC S) (S_RN INS) S)) (W) INS (CAR (ADDR-DISP (MC-PC S) (S_RN INS) S))) (MOVEP-TO-REG (MOVEP-ADDR (ADDR-DISP (MC-PC S) (S_RN INS) S)) (L) INS (CAR (ADDR-DISP (MC-PC S) (S_RN INS) S)))) (IF (EQUAL OPMODE (QUOTE 6)) (MOVEP-TO-MEM (MOVEP-ADDR (ADDR-DISP (MC-PC S) (S_RN INS) S)) (W) INS (CAR (ADDR-DISP (MC-PC S) (S_RN INS) S))) (MOVEP-TO-MEM (MOVEP-ADDR (ADDR-DISP (MC-PC S) (S_RN INS) S)) (L) INS (CAR (ADDR-DISP (MC-PC S) (S_RN INS) S))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MOVEP-TO-MEM . MOVEP-INS) (IMMEDIATE-DEPENDENTS0 L . MOVEP-INS) (IMMEDIATE-DEPENDENTS0 W . MOVEP-INS) (IMMEDIATE-DEPENDENTS0 MOVEP-ADDR . MOVEP-INS) (IMMEDIATE-DEPENDENTS0 MOVEP-TO-REG . MOVEP-INS) (IMMEDIATE-DEPENDENTS0 S_RN . MOVEP-INS) (IMMEDIATE-DEPENDENTS0 MC-PC . MOVEP-INS) (IMMEDIATE-DEPENDENTS0 ADDR-DISP . MOVEP-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . MOVEP-INS) (DCELL . *1*MOVEP-INS))))) (PUT1-LST (QUOTE *1*MOVEP-ADDR) (QUOTE (MAIN-EVENT MOVEP-ADDR))) (PUT1-LST (QUOTE MOVEP-ADDR) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVEP-ADDR -1 NIL)) TOTALP-LST ((MOVEP-ADDR . T)) SDEFN (LAMBDA (S&ADDR) (IF (EVENP (CDR (CDR S&ADDR))) (CDR (CDR S&ADDR)) (ADD (L) (CDR (CDR S&ADDR)) (BSZ)))) LISP-CODE *1*MOVEP-ADDR SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214825 SATELLITES (*1*MOVEP-ADDR) IMMEDIATE-DEPENDENTS0 (MOVEP-INS) EVENT (DEFN MOVEP-ADDR (S&ADDR) (IF (EVENP (CDR (CDR S&ADDR))) (CDR (CDR S&ADDR)) (ADD (L) (CDR (CDR S&ADDR)) (BSZ)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BSZ . MOVEP-ADDR) (IMMEDIATE-DEPENDENTS0 L . MOVEP-ADDR) (IMMEDIATE-DEPENDENTS0 ADD . MOVEP-ADDR) (IMMEDIATE-DEPENDENTS0 EVENP . MOVEP-ADDR) (DCELL . *1*MOVEP-ADDR))))) (PUT1-LST (QUOTE *1*EVENP) (QUOTE (MAIN-EVENT EVENP))) (PUT1-LST (QUOTE EVENP) (QUOTE (TYPE-PRESCRIPTION-LST ((EVENP 3 NIL)) TOTALP-LST ((EVENP . T)) SDEFN (LAMBDA (X) (B0P (BCAR X))) LISP-CODE *1*EVENP SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402214825 SATELLITES (*1*EVENP) IMMEDIATE-DEPENDENTS0 (STEPI MOVEP-ADDR) EVENT (DEFN EVENP (X) (B0P (BCAR X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BCAR . EVENP) (IMMEDIATE-DEPENDENTS0 B0P . EVENP) (DCELL . *1*EVENP))))) (PUT1-LST (QUOTE *1*MOVEP-TO-REG) (QUOTE (MAIN-EVENT MOVEP-TO-REG))) (PUT1-LST (QUOTE MOVEP-TO-REG) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVEP-TO-REG 16 NIL NIL NIL NIL)) TOTALP-LST ((MOVEP-TO-REG . T)) SDEFN (LAMBDA (ADDR OPLEN INS S) (IF (MOVEP-READP ADDR (MC-MEM S) (OP-SZ OPLEN)) (WRITE-DN OPLEN (MOVEP-READ ADDR (MC-MEM S) (OP-SZ OPLEN)) (D_RN INS) S) (HALT (READ-SIGNAL) S))) LISP-CODE *1*MOVEP-TO-REG SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402214825 SATELLITES (*1*MOVEP-TO-REG) IMMEDIATE-DEPENDENTS0 (MOVEP-INS) EVENT (DEFN MOVEP-TO-REG (ADDR OPLEN INS S) (IF (MOVEP-READP ADDR (MC-MEM S) (OP-SZ OPLEN)) (WRITE-DN OPLEN (MOVEP-READ ADDR (MC-MEM S) (OP-SZ OPLEN)) (D_RN INS) S) (HALT (READ-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-SIGNAL . MOVEP-TO-REG) (IMMEDIATE-DEPENDENTS0 HALT . MOVEP-TO-REG) (IMMEDIATE-DEPENDENTS0 D_RN . MOVEP-TO-REG) (IMMEDIATE-DEPENDENTS0 MOVEP-READ . MOVEP-TO-REG) (IMMEDIATE-DEPENDENTS0 WRITE-DN . MOVEP-TO-REG) (IMMEDIATE-DEPENDENTS0 OP-SZ . MOVEP-TO-REG) (IMMEDIATE-DEPENDENTS0 MC-MEM . MOVEP-TO-REG) (IMMEDIATE-DEPENDENTS0 MOVEP-READP . MOVEP-TO-REG) (DCELL . *1*MOVEP-TO-REG))))) (PUT1-LST (QUOTE *1*MOVEP-READ) (QUOTE (MAIN-EVENT MOVEP-READ))) (PUT1-LST (QUOTE MOVEP-READ) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVEP-READ 4 NIL NIL NIL)) TOTALP-LST ((MOVEP-READ . T)) QUICK-BLOCK-INFO (UNCHANGING UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (ADDR MEM N) (IF (EQUAL N (QUOTE 0)) (QUOTE 0) (IF (NUMBERP N) (APP (B) (BYTE-READ (ADD (L) ADDR (TIMES (QUOTE 2) (SUB1 N))) MEM) (MOVEP-READ ADDR MEM (SUB1 N))) (QUOTE 0)))) LISP-CODE *1*MOVEP-READ SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) ((ADDR MEM (SUB1 N))))) LEVEL-NO 5 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402214825 CONTROLLER-POCKETS (4) SATELLITES (*1*MOVEP-READ) IMMEDIATE-DEPENDENTS0 (MOVEP-TO-REG) EVENT (DEFN MOVEP-READ (ADDR MEM N) (IF (ZEROP N) (QUOTE 0) (APP (B) (BYTE-READ (ADD (L) ADDR (TIMES (QUOTE 2) (SUB1 N))) MEM) (MOVEP-READ ADDR MEM (SUB1 N))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 L . MOVEP-READ) (IMMEDIATE-DEPENDENTS0 ADD . MOVEP-READ) (IMMEDIATE-DEPENDENTS0 BYTE-READ . MOVEP-READ) (IMMEDIATE-DEPENDENTS0 B . MOVEP-READ) (IMMEDIATE-DEPENDENTS0 APP . MOVEP-READ) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . MOVEP-READ) (DCELL . *1*MOVEP-READ))))) (PUT1-LST (QUOTE *1*MOVEP-READP) (QUOTE (MAIN-EVENT MOVEP-READP))) (PUT1-LST (QUOTE MOVEP-READP) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVEP-READP 3 NIL NIL NIL)) TOTALP-LST ((MOVEP-READP . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (ADDR MEM N) (IF (EQUAL N (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP N) (IF (BYTE-READP ADDR MEM) (IF (MOVEP-READP (ADD (L) ADDR (WSZ)) MEM (SUB1 N)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*TRUE)))) LISP-CODE *1*MOVEP-READP SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) (((ADD (L) ADDR (WSZ)) MEM (SUB1 N))))) LEVEL-NO 5 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402214825 CONTROLLER-POCKETS (4) SATELLITES (*1*MOVEP-READP) IMMEDIATE-DEPENDENTS0 (MOVEP-TO-REG) EVENT (DEFN MOVEP-READP (ADDR MEM N) (IF (ZEROP N) (QUOTE *1*TRUE) (AND (BYTE-READP ADDR MEM) (MOVEP-READP (ADD (L) ADDR (WSZ)) MEM (SUB1 N))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WSZ . MOVEP-READP) (IMMEDIATE-DEPENDENTS0 L . MOVEP-READP) (IMMEDIATE-DEPENDENTS0 ADD . MOVEP-READP) (IMMEDIATE-DEPENDENTS0 BYTE-READP . MOVEP-READP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . MOVEP-READP) (DCELL . *1*MOVEP-READP))))) (PUT1-LST (QUOTE *1*MOVEP-TO-MEM) (QUOTE (MAIN-EVENT MOVEP-TO-MEM))) (PUT1-LST (QUOTE MOVEP-TO-MEM) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVEP-TO-MEM 16 NIL NIL NIL NIL)) TOTALP-LST ((MOVEP-TO-MEM . T)) SDEFN (LAMBDA (ADDR OPLEN INS S) (IF (MOVEP-WRITEP ADDR (MC-MEM S) (OP-SZ OPLEN)) (UPDATE-MEM (MOVEP-WRITE (READ-DN OPLEN (D_RN INS) S) ADDR (MC-MEM S) (OP-SZ OPLEN)) S) (HALT (WRITE-SIGNAL) S))) LISP-CODE *1*MOVEP-TO-MEM SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402214825 SATELLITES (*1*MOVEP-TO-MEM) IMMEDIATE-DEPENDENTS0 (MOVEP-INS) EVENT (DEFN MOVEP-TO-MEM (ADDR OPLEN INS S) (IF (MOVEP-WRITEP ADDR (MC-MEM S) (OP-SZ OPLEN)) (UPDATE-MEM (MOVEP-WRITE (READ-DN OPLEN (D_RN INS) S) ADDR (MC-MEM S) (OP-SZ OPLEN)) S) (HALT (WRITE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-SIGNAL . MOVEP-TO-MEM) (IMMEDIATE-DEPENDENTS0 HALT . MOVEP-TO-MEM) (IMMEDIATE-DEPENDENTS0 D_RN . MOVEP-TO-MEM) (IMMEDIATE-DEPENDENTS0 READ-DN . MOVEP-TO-MEM) (IMMEDIATE-DEPENDENTS0 MOVEP-WRITE . MOVEP-TO-MEM) (IMMEDIATE-DEPENDENTS0 UPDATE-MEM . MOVEP-TO-MEM) (IMMEDIATE-DEPENDENTS0 OP-SZ . MOVEP-TO-MEM) (IMMEDIATE-DEPENDENTS0 MC-MEM . MOVEP-TO-MEM) (IMMEDIATE-DEPENDENTS0 MOVEP-WRITEP . MOVEP-TO-MEM) (DCELL . *1*MOVEP-TO-MEM))))) (PUT1-LST (QUOTE *1*MOVEP-WRITE) (QUOTE (MAIN-EVENT MOVEP-WRITE))) (PUT1-LST (QUOTE MOVEP-WRITE) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVEP-WRITE 16 NIL NIL T NIL)) TOTALP-LST ((MOVEP-WRITE . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (VALUE ADDR MEM N) (IF (EQUAL N (QUOTE 0)) MEM (IF (NUMBERP N) (MOVEP-WRITE (TAIL VALUE (B)) ADDR (BYTE-WRITE VALUE (ADD (L) ADDR (TIMES (QUOTE 2) (SUB1 N))) MEM) (SUB1 N)) MEM))) LISP-CODE *1*MOVEP-WRITE SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) (((TAIL VALUE (B)) ADDR (BYTE-WRITE VALUE (ADD (L) ADDR (TIMES (QUOTE 2) (SUB1 N))) MEM) (SUB1 N))))) LEVEL-NO 5 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402214825 CONTROLLER-POCKETS (8) SATELLITES (*1*MOVEP-WRITE) IMMEDIATE-DEPENDENTS0 (MOVEP-TO-MEM) EVENT (DEFN MOVEP-WRITE (VALUE ADDR MEM N) (IF (ZEROP N) MEM (MOVEP-WRITE (TAIL VALUE (B)) ADDR (BYTE-WRITE VALUE (ADD (L) ADDR (TIMES (QUOTE 2) (SUB1 N))) MEM) (SUB1 N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 L . MOVEP-WRITE) (IMMEDIATE-DEPENDENTS0 ADD . MOVEP-WRITE) (IMMEDIATE-DEPENDENTS0 BYTE-WRITE . MOVEP-WRITE) (IMMEDIATE-DEPENDENTS0 B . MOVEP-WRITE) (IMMEDIATE-DEPENDENTS0 TAIL . MOVEP-WRITE) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . MOVEP-WRITE) (DCELL . *1*MOVEP-WRITE))))) (PUT1-LST (QUOTE *1*MOVEP-WRITEP) (QUOTE (MAIN-EVENT MOVEP-WRITEP))) (PUT1-LST (QUOTE MOVEP-WRITEP) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVEP-WRITEP 3 NIL NIL NIL)) TOTALP-LST ((MOVEP-WRITEP . T)) QUICK-BLOCK-INFO (UNCHANGING UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (ADDR MEM N) (IF (EQUAL N (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP N) (IF (BYTE-WRITEP (ADD (L) ADDR (TIMES (QUOTE 2) (SUB1 N))) MEM) (IF (MOVEP-WRITEP ADDR MEM (SUB1 N)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*TRUE)))) LISP-CODE *1*MOVEP-WRITEP SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) ((ADDR MEM (SUB1 N))))) LEVEL-NO 5 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402214825 CONTROLLER-POCKETS (4) SATELLITES (*1*MOVEP-WRITEP) IMMEDIATE-DEPENDENTS0 (MOVEP-TO-MEM) EVENT (DEFN MOVEP-WRITEP (ADDR MEM N) (IF (ZEROP N) (QUOTE *1*TRUE) (AND (BYTE-WRITEP (ADD (L) ADDR (TIMES (QUOTE 2) (SUB1 N))) MEM) (MOVEP-WRITEP ADDR MEM (SUB1 N))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 L . MOVEP-WRITEP) (IMMEDIATE-DEPENDENTS0 ADD . MOVEP-WRITEP) (IMMEDIATE-DEPENDENTS0 BYTE-WRITEP . MOVEP-WRITEP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . MOVEP-WRITEP) (DCELL . *1*MOVEP-WRITEP))))) (PUT1-LST (QUOTE *1*CMP-GROUP) (QUOTE (MAIN-EVENT CMP-GROUP))) (PUT1-LST (QUOTE CMP-GROUP) (QUOTE (TYPE-PRESCRIPTION-LST ((CMP-GROUP -1 NIL NIL NIL)) TOTALP-LST ((CMP-GROUP . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (B0P (BITN INS (QUOTE 8))) (IF (EQUAL OPLEN (Q)) (CMPA-INS (W) INS S) (CMP-INS OPLEN INS S)) (IF (EQUAL OPLEN (Q)) (CMPA-INS (L) INS S) (IF (EQUAL (S_MODE INS) (QUOTE 1)) (CMPM-INS OPLEN INS S) (EOR-INS OPLEN INS S))))) LISP-CODE *1*CMP-GROUP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*CMP-GROUP) IMMEDIATE-DEPENDENTS0 (EXECUTE-INS) EVENT (DEFN CMP-GROUP (OPLEN INS S) (IF (B0P (BITN INS (QUOTE 8))) (IF (EQUAL OPLEN (Q)) (CMPA-INS (W) INS S) (CMP-INS OPLEN INS S)) (IF (EQUAL OPLEN (Q)) (CMPA-INS (L) INS S) (IF (EQUAL (S_MODE INS) (QUOTE 1)) (CMPM-INS OPLEN INS S) (EOR-INS OPLEN INS S))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EOR-INS . CMP-GROUP) (IMMEDIATE-DEPENDENTS0 CMPM-INS . CMP-GROUP) (IMMEDIATE-DEPENDENTS0 S_MODE . CMP-GROUP) (IMMEDIATE-DEPENDENTS0 L . CMP-GROUP) (IMMEDIATE-DEPENDENTS0 CMP-INS . CMP-GROUP) (IMMEDIATE-DEPENDENTS0 W . CMP-GROUP) (IMMEDIATE-DEPENDENTS0 CMPA-INS . CMP-GROUP) (IMMEDIATE-DEPENDENTS0 Q . CMP-GROUP) (IMMEDIATE-DEPENDENTS0 BITN . CMP-GROUP) (IMMEDIATE-DEPENDENTS0 B0P . CMP-GROUP) (DCELL . *1*CMP-GROUP))))) (PUT1-LST (QUOTE *1*CMPM-INS) (QUOTE (MAIN-EVENT CMPM-INS))) (PUT1-LST (QUOTE CMPM-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((CMPM-INS 16 NIL NIL NIL)) TOTALP-LST ((CMPM-INS . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (READ-MEMP (CDR (CDR (ADDR-POSTINC OPLEN (S_RN INS) S))) (MC-MEM S) (OP-SZ OPLEN)) (CMPM-MAPPING (CDR (ADDR-POSTINC OPLEN (S_RN INS) S)) OPLEN INS (CAR (ADDR-POSTINC OPLEN (S_RN INS) S))) (HALT (READ-SIGNAL) S))) LISP-CODE *1*CMPM-INS SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402214825 SATELLITES (*1*CMPM-INS) IMMEDIATE-DEPENDENTS0 (CMP-GROUP) EVENT (DEFN CMPM-INS (OPLEN INS S) (IF (READ-MEMP (CDR (CDR (ADDR-POSTINC OPLEN (S_RN INS) S))) (MC-MEM S) (OP-SZ OPLEN)) (CMPM-MAPPING (CDR (ADDR-POSTINC OPLEN (S_RN INS) S)) OPLEN INS (CAR (ADDR-POSTINC OPLEN (S_RN INS) S))) (HALT (READ-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-SIGNAL . CMPM-INS) (IMMEDIATE-DEPENDENTS0 HALT . CMPM-INS) (IMMEDIATE-DEPENDENTS0 CMPM-MAPPING . CMPM-INS) (IMMEDIATE-DEPENDENTS0 OP-SZ . CMPM-INS) (IMMEDIATE-DEPENDENTS0 MC-MEM . CMPM-INS) (IMMEDIATE-DEPENDENTS0 S_RN . CMPM-INS) (IMMEDIATE-DEPENDENTS0 ADDR-POSTINC . CMPM-INS) (IMMEDIATE-DEPENDENTS0 READ-MEMP . CMPM-INS) (DCELL . *1*CMPM-INS))))) (PUT1-LST (QUOTE *1*CMPM-MAPPING) (QUOTE (MAIN-EVENT CMPM-MAPPING))) (PUT1-LST (QUOTE CMPM-MAPPING) (QUOTE (TYPE-PRESCRIPTION-LST ((CMPM-MAPPING 16 NIL NIL NIL NIL)) TOTALP-LST ((CMPM-MAPPING . T)) SDEFN (LAMBDA (ADDR OPLEN INS S) (IF (READ-MEMP (CDR (CDR (ADDR-POSTINC OPLEN (D_RN INS) S))) (MC-MEM S) (OP-SZ OPLEN)) (UPDATE-CCR (CMP-CVZNX OPLEN (OPERAND OPLEN ADDR S) (OPERAND OPLEN (CDR (ADDR-POSTINC OPLEN (D_RN INS) S)) S) (MC-CCR S)) (CAR (ADDR-POSTINC OPLEN (D_RN INS) S))) (HALT (READ-SIGNAL) S))) LISP-CODE *1*CMPM-MAPPING SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402214825 SATELLITES (*1*CMPM-MAPPING) IMMEDIATE-DEPENDENTS0 (CMPM-INS) EVENT (DEFN CMPM-MAPPING (ADDR OPLEN INS S) (IF (READ-MEMP (CDR (CDR (ADDR-POSTINC OPLEN (D_RN INS) S))) (MC-MEM S) (OP-SZ OPLEN)) (UPDATE-CCR (CMP-CVZNX OPLEN (OPERAND OPLEN ADDR S) (OPERAND OPLEN (CDR (ADDR-POSTINC OPLEN (D_RN INS) S)) S) (MC-CCR S)) (CAR (ADDR-POSTINC OPLEN (D_RN INS) S))) (HALT (READ-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-SIGNAL . CMPM-MAPPING) (IMMEDIATE-DEPENDENTS0 HALT . CMPM-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-CCR . CMPM-MAPPING) (IMMEDIATE-DEPENDENTS0 OPERAND . CMPM-MAPPING) (IMMEDIATE-DEPENDENTS0 CMP-CVZNX . CMPM-MAPPING) (IMMEDIATE-DEPENDENTS0 UPDATE-CCR . CMPM-MAPPING) (IMMEDIATE-DEPENDENTS0 OP-SZ . CMPM-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-MEM . CMPM-MAPPING) (IMMEDIATE-DEPENDENTS0 D_RN . CMPM-MAPPING) (IMMEDIATE-DEPENDENTS0 ADDR-POSTINC . CMPM-MAPPING) (IMMEDIATE-DEPENDENTS0 READ-MEMP . CMPM-MAPPING) (DCELL . *1*CMPM-MAPPING))))) (PUT1-LST (QUOTE *1*EOR-INS) (QUOTE (MAIN-EVENT EOR-INS))) (PUT1-LST (QUOTE EOR-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((EOR-INS -1 NIL NIL NIL)) TOTALP-LST ((EOR-INS . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (EOR&EORI-ADDR-MODEP INS) (EOR-MAPPING (READ-DN OPLEN (D_RN INS) S) OPLEN INS S) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*EOR-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*EOR-INS) IMMEDIATE-DEPENDENTS0 (CMP-GROUP) EVENT (DEFN EOR-INS (OPLEN INS S) (IF (EOR&EORI-ADDR-MODEP INS) (EOR-MAPPING (READ-DN OPLEN (D_RN INS) S) OPLEN INS S) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . EOR-INS) (IMMEDIATE-DEPENDENTS0 HALT . EOR-INS) (IMMEDIATE-DEPENDENTS0 D_RN . EOR-INS) (IMMEDIATE-DEPENDENTS0 READ-DN . EOR-INS) (IMMEDIATE-DEPENDENTS0 EOR-MAPPING . EOR-INS) (IMMEDIATE-DEPENDENTS0 EOR&EORI-ADDR-MODEP . EOR-INS) (DCELL . *1*EOR-INS))))) (PUT1-LST (QUOTE *1*EOR-MAPPING) (QUOTE (MAIN-EVENT EOR-MAPPING))) (PUT1-LST (QUOTE EOR-MAPPING) (QUOTE (TYPE-PRESCRIPTION-LST ((EOR-MAPPING -1 NIL NIL NIL NIL)) TOTALP-LST ((EOR-MAPPING . T)) SDEFN (LAMBDA (SOPD OPLEN INS S) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (MAPPING OPLEN (EOR-EFFECT OPLEN SOPD (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (MC-CCR S)) (MC-INSTATE OPLEN INS S)))) LISP-CODE *1*EOR-MAPPING SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*EOR-MAPPING) IMMEDIATE-DEPENDENTS0 (EORI-INS EOR-INS) EVENT (DEFN EOR-MAPPING (SOPD OPLEN INS S) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (MAPPING OPLEN (EOR-EFFECT OPLEN SOPD (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (MC-CCR S)) (MC-INSTATE OPLEN INS S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-CCR . EOR-MAPPING) (IMMEDIATE-DEPENDENTS0 OPERAND . EOR-MAPPING) (IMMEDIATE-DEPENDENTS0 EOR-EFFECT . EOR-MAPPING) (IMMEDIATE-DEPENDENTS0 MAPPING . EOR-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . EOR-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-HALTP . EOR-MAPPING) (DCELL . *1*EOR-MAPPING))))) (PUT1-LST (QUOTE *1*EOR&EORI-ADDR-MODEP) (QUOTE (MAIN-EVENT EOR&EORI-ADDR-MODEP))) (PUT1-LST (QUOTE EOR&EORI-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((EOR&EORI-ADDR-MODEP 3 NIL)) TOTALP-LST ((EOR&EORI-ADDR-MODEP . T)) SDEFN (LAMBDA (INS) (IF (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)) (QUOTE *1*FALSE))) LISP-CODE *1*EOR&EORI-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214825 SATELLITES (*1*EOR&EORI-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (EORI-INS EOR-INS) EVENT (DEFN EOR&EORI-ADDR-MODEP (INS) (AND (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALTERABLE-ADDR-MODEP . EOR&EORI-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_RN . EOR&EORI-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . EOR&EORI-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 DATA-ADDR-MODEP . EOR&EORI-ADDR-MODEP) (DCELL . *1*EOR&EORI-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*EOR-EFFECT) (QUOTE (MAIN-EVENT EOR-EFFECT))) (PUT1-LST (QUOTE EOR-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((EOR-EFFECT 16 NIL NIL NIL NIL)) TOTALP-LST ((EOR-EFFECT . T)) SDEFN (LAMBDA (OPLEN SOPD DOPD CCR) (CONS (LOGEOR SOPD DOPD) (EOR-CVZNX OPLEN SOPD DOPD CCR))) LISP-CODE *1*EOR-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214825 SATELLITES (*1*EOR-EFFECT) IMMEDIATE-DEPENDENTS0 (EOR-MAPPING) EVENT (DEFN EOR-EFFECT (OPLEN SOPD DOPD CCR) (CONS (LOGEOR SOPD DOPD) (EOR-CVZNX OPLEN SOPD DOPD CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EOR-CVZNX . EOR-EFFECT) (IMMEDIATE-DEPENDENTS0 LOGEOR . EOR-EFFECT) (DCELL . *1*EOR-EFFECT))))) (PUT1-LST (QUOTE *1*EOR-CVZNX) (QUOTE (MAIN-EVENT EOR-CVZNX))) (PUT1-LST (QUOTE EOR-CVZNX) (QUOTE (TYPE-PRESCRIPTION-LST ((EOR-CVZNX 4 NIL NIL NIL NIL)) TOTALP-LST ((EOR-CVZNX . T)) SDEFN (LAMBDA (OPLEN SOPD DOPD CCR) (CVZNX (B0) (B0) (EOR-Z OPLEN SOPD DOPD) (EOR-N OPLEN SOPD DOPD) (CCR-X CCR))) LISP-CODE *1*EOR-CVZNX SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214825 SATELLITES (*1*EOR-CVZNX) IMMEDIATE-DEPENDENTS0 (EOR-EFFECT) EVENT (DEFN EOR-CVZNX (OPLEN SOPD DOPD CCR) (CVZNX (B0) (B0) (EOR-Z OPLEN SOPD DOPD) (EOR-N OPLEN SOPD DOPD) (CCR-X CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CCR-X . EOR-CVZNX) (IMMEDIATE-DEPENDENTS0 EOR-N . EOR-CVZNX) (IMMEDIATE-DEPENDENTS0 EOR-Z . EOR-CVZNX) (IMMEDIATE-DEPENDENTS0 B0 . EOR-CVZNX) (IMMEDIATE-DEPENDENTS0 CVZNX . EOR-CVZNX) (DCELL . *1*EOR-CVZNX))))) (PUT1-LST (QUOTE *1*EOR-N) (QUOTE (MAIN-EVENT EOR-N))) (PUT1-LST (QUOTE EOR-N) (QUOTE (TYPE-PRESCRIPTION-LST ((EOR-N 4 NIL NIL NIL)) TOTALP-LST ((EOR-N . T)) SDEFN (LAMBDA (OPLEN SOPD DOPD) (B-EOR (MBIT SOPD OPLEN) (MBIT DOPD OPLEN))) LISP-CODE *1*EOR-N SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214825 SATELLITES (*1*EOR-N) IMMEDIATE-DEPENDENTS0 (EOR-CVZNX) EVENT (DEFN EOR-N (OPLEN SOPD DOPD) (B-EOR (MBIT SOPD OPLEN) (MBIT DOPD OPLEN))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MBIT . EOR-N) (IMMEDIATE-DEPENDENTS0 B-EOR . EOR-N) (DCELL . *1*EOR-N))))) (PUT1-LST (QUOTE *1*EOR-Z) (QUOTE (MAIN-EVENT EOR-Z))) (PUT1-LST (QUOTE EOR-Z) (QUOTE (TYPE-PRESCRIPTION-LST ((EOR-Z 4 NIL NIL NIL)) TOTALP-LST ((EOR-Z . T)) SDEFN (LAMBDA (OPLEN SOPD DOPD) (IF (EQUAL (LOGEOR SOPD DOPD) (QUOTE 0)) (B1) (B0))) LISP-CODE *1*EOR-Z SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214825 SATELLITES (*1*EOR-Z) IMMEDIATE-DEPENDENTS0 (EOR-CVZNX) EVENT (DEFN EOR-Z (OPLEN SOPD DOPD) (IF (EQUAL (LOGEOR SOPD DOPD) (QUOTE 0)) (B1) (B0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . EOR-Z) (IMMEDIATE-DEPENDENTS0 B1 . EOR-Z) (IMMEDIATE-DEPENDENTS0 LOGEOR . EOR-Z) (DCELL . *1*EOR-Z))))) (PUT1-LST (QUOTE *1*CMPA-INS) (QUOTE (MAIN-EVENT CMPA-INS))) (PUT1-LST (QUOTE CMPA-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((CMPA-INS -1 NIL NIL NIL)) TOTALP-LST ((CMPA-INS . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (CMPA-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (UPDATE-CCR (CMP-CVZNX (L) (EXT OPLEN (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (L)) (READ-AN (L) (D_RN INS) (CAR (MC-INSTATE OPLEN INS S))) (MC-CCR S)) (CAR (MC-INSTATE OPLEN INS S)))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*CMPA-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*CMPA-INS) IMMEDIATE-DEPENDENTS0 (CMP-GROUP) EVENT (DEFN CMPA-INS (OPLEN INS S) (IF (CMPA-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (UPDATE-CCR (CMP-CVZNX (L) (EXT OPLEN (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (L)) (READ-AN (L) (D_RN INS) (CAR (MC-INSTATE OPLEN INS S))) (MC-CCR S)) (CAR (MC-INSTATE OPLEN INS S)))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . CMPA-INS) (IMMEDIATE-DEPENDENTS0 HALT . CMPA-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . CMPA-INS) (IMMEDIATE-DEPENDENTS0 D_RN . CMPA-INS) (IMMEDIATE-DEPENDENTS0 READ-AN . CMPA-INS) (IMMEDIATE-DEPENDENTS0 OPERAND . CMPA-INS) (IMMEDIATE-DEPENDENTS0 EXT . CMPA-INS) (IMMEDIATE-DEPENDENTS0 L . CMPA-INS) (IMMEDIATE-DEPENDENTS0 CMP-CVZNX . CMPA-INS) (IMMEDIATE-DEPENDENTS0 UPDATE-CCR . CMPA-INS) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . CMPA-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . CMPA-INS) (IMMEDIATE-DEPENDENTS0 CMPA-ADDR-MODEP . CMPA-INS) (DCELL . *1*CMPA-INS))))) (PUT1-LST (QUOTE *1*CMPA-ADDR-MODEP) (QUOTE (MAIN-EVENT CMPA-ADDR-MODEP))) (PUT1-LST (QUOTE CMPA-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((CMPA-ADDR-MODEP 3 NIL)) TOTALP-LST ((CMPA-ADDR-MODEP . T)) SDEFN (LAMBDA (INS) (ADDR-MODEP (S_MODE INS) (S_RN INS))) LISP-CODE *1*CMPA-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214825 SATELLITES (*1*CMPA-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (CMPA-INS) EVENT (DEFN CMPA-ADDR-MODEP (INS) (ADDR-MODEP (S_MODE INS) (S_RN INS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S_RN . CMPA-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . CMPA-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 ADDR-MODEP . CMPA-ADDR-MODEP) (DCELL . *1*CMPA-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*CMP-INS) (QUOTE (MAIN-EVENT CMP-INS))) (PUT1-LST (QUOTE CMP-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((CMP-INS -1 NIL NIL NIL)) TOTALP-LST ((CMP-INS . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (CMP-ADDR-MODEP OPLEN INS) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (UPDATE-CCR (CMP-CVZNX OPLEN (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) (CAR (MC-INSTATE OPLEN INS S))) (READ-DN OPLEN (D_RN INS) S) (MC-CCR S)) (CAR (MC-INSTATE OPLEN INS S)))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*CMP-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*CMP-INS) IMMEDIATE-DEPENDENTS0 (CMP-GROUP) EVENT (DEFN CMP-INS (OPLEN INS S) (IF (CMP-ADDR-MODEP OPLEN INS) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (UPDATE-CCR (CMP-CVZNX OPLEN (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) (CAR (MC-INSTATE OPLEN INS S))) (READ-DN OPLEN (D_RN INS) S) (MC-CCR S)) (CAR (MC-INSTATE OPLEN INS S)))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . CMP-INS) (IMMEDIATE-DEPENDENTS0 HALT . CMP-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . CMP-INS) (IMMEDIATE-DEPENDENTS0 D_RN . CMP-INS) (IMMEDIATE-DEPENDENTS0 READ-DN . CMP-INS) (IMMEDIATE-DEPENDENTS0 OPERAND . CMP-INS) (IMMEDIATE-DEPENDENTS0 CMP-CVZNX . CMP-INS) (IMMEDIATE-DEPENDENTS0 UPDATE-CCR . CMP-INS) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . CMP-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . CMP-INS) (IMMEDIATE-DEPENDENTS0 CMP-ADDR-MODEP . CMP-INS) (DCELL . *1*CMP-INS))))) (PUT1-LST (QUOTE *1*CMP-ADDR-MODEP) (QUOTE (MAIN-EVENT CMP-ADDR-MODEP))) (PUT1-LST (QUOTE CMP-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((CMP-ADDR-MODEP 3 NIL NIL)) TOTALP-LST ((CMP-ADDR-MODEP . T)) SDEFN (LAMBDA (OPLEN INS) (IF (ADDR-MODEP (S_MODE INS) (S_RN INS)) (IF (BYTE-AN-DIRECT-MODEP OPLEN (S_MODE INS)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (QUOTE *1*FALSE))) LISP-CODE *1*CMP-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214825 SATELLITES (*1*CMP-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (CMP-INS) EVENT (DEFN CMP-ADDR-MODEP (OPLEN INS) (AND (ADDR-MODEP (S_MODE INS) (S_RN INS)) (NOT (BYTE-AN-DIRECT-MODEP OPLEN (S_MODE INS))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BYTE-AN-DIRECT-MODEP . CMP-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_RN . CMP-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . CMP-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 ADDR-MODEP . CMP-ADDR-MODEP) (DCELL . *1*CMP-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*CMP-CVZNX) (QUOTE (MAIN-EVENT CMP-CVZNX))) (PUT1-LST (QUOTE CMP-CVZNX) (QUOTE (TYPE-PRESCRIPTION-LST ((CMP-CVZNX 4 NIL NIL NIL NIL)) TOTALP-LST ((CMP-CVZNX . T)) SDEFN (LAMBDA (OPLEN SOPD DOPD CCR) (CVZNX (SUB-C OPLEN SOPD DOPD) (SUB-V OPLEN SOPD DOPD) (SUB-Z OPLEN SOPD DOPD) (SUB-N OPLEN SOPD DOPD) (CCR-X CCR))) LISP-CODE *1*CMP-CVZNX SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214825 SATELLITES (*1*CMP-CVZNX) IMMEDIATE-DEPENDENTS0 (CMPI-MAPPING CMPM-MAPPING CMPA-INS CMP-INS) EVENT (DEFN CMP-CVZNX (OPLEN SOPD DOPD CCR) (CVZNX (SUB-C OPLEN SOPD DOPD) (SUB-V OPLEN SOPD DOPD) (SUB-Z OPLEN SOPD DOPD) (SUB-N OPLEN SOPD DOPD) (CCR-X CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CCR-X . CMP-CVZNX) (IMMEDIATE-DEPENDENTS0 SUB-N . CMP-CVZNX) (IMMEDIATE-DEPENDENTS0 SUB-Z . CMP-CVZNX) (IMMEDIATE-DEPENDENTS0 SUB-V . CMP-CVZNX) (IMMEDIATE-DEPENDENTS0 SUB-C . CMP-CVZNX) (IMMEDIATE-DEPENDENTS0 CVZNX . CMP-CVZNX) (DCELL . *1*CMP-CVZNX))))) (PUT1-LST (QUOTE *1*MOVEQ-INS) (QUOTE (MAIN-EVENT MOVEQ-INS))) (PUT1-LST (QUOTE MOVEQ-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVEQ-INS 16 NIL NIL)) TOTALP-LST ((MOVEQ-INS . T)) SDEFN (LAMBDA (INS S) (IF (B0P (BITN INS (QUOTE 8))) (D-MAPPING (L) (MOVE-EFFECT (L) (EXT (B) (HEAD INS (B)) (L)) (MC-CCR S)) (D_RN INS) S) (HALT (RESERVED-SIGNAL) S))) LISP-CODE *1*MOVEQ-INS SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214825 SATELLITES (*1*MOVEQ-INS) IMMEDIATE-DEPENDENTS0 (EXECUTE-INS) EVENT (DEFN MOVEQ-INS (INS S) (IF (B0P (BITN INS (QUOTE 8))) (D-MAPPING (L) (MOVE-EFFECT (L) (EXT (B) (HEAD INS (B)) (L)) (MC-CCR S)) (D_RN INS) S) (HALT (RESERVED-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RESERVED-SIGNAL . MOVEQ-INS) (IMMEDIATE-DEPENDENTS0 HALT . MOVEQ-INS) (IMMEDIATE-DEPENDENTS0 D_RN . MOVEQ-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . MOVEQ-INS) (IMMEDIATE-DEPENDENTS0 HEAD . MOVEQ-INS) (IMMEDIATE-DEPENDENTS0 B . MOVEQ-INS) (IMMEDIATE-DEPENDENTS0 EXT . MOVEQ-INS) (IMMEDIATE-DEPENDENTS0 MOVE-EFFECT . MOVEQ-INS) (IMMEDIATE-DEPENDENTS0 L . MOVEQ-INS) (IMMEDIATE-DEPENDENTS0 D-MAPPING . MOVEQ-INS) (IMMEDIATE-DEPENDENTS0 BITN . MOVEQ-INS) (IMMEDIATE-DEPENDENTS0 B0P . MOVEQ-INS) (DCELL . *1*MOVEQ-INS))))) (PUT1-LST (QUOTE *1*SCC-GROUP) (QUOTE (MAIN-EVENT SCC-GROUP))) (PUT1-LST (QUOTE SCC-GROUP) (QUOTE (TYPE-PRESCRIPTION-LST ((SCC-GROUP -1 NIL NIL)) TOTALP-LST ((SCC-GROUP . T)) SDEFN (LAMBDA (INS S) (IF (EQUAL (OP-LEN INS) (Q)) (IF (EQUAL (S_MODE INS) (QUOTE 1)) (DBCC-INS INS S) (IF (EQUAL (S_MODE INS) (QUOTE 7)) (IF (LESSP (QUOTE 1) (S_RN INS)) (HALT (QUOTE TRAPCC-UNSPECIFIED) S) (SCC-INS INS S)) (SCC-INS INS S))) (IF (B0P (BITN INS (QUOTE 8))) (ADDQ-INS (OP-LEN INS) INS S) (SUBQ-INS (OP-LEN INS) INS S)))) LISP-CODE *1*SCC-GROUP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*SCC-GROUP) IMMEDIATE-DEPENDENTS0 (EXECUTE-INS) EVENT (DEFN SCC-GROUP (INS S) (IF (EQUAL (OP-LEN INS) (Q)) (IF (EQUAL (S_MODE INS) (QUOTE 1)) (DBCC-INS INS S) (IF (AND (EQUAL (S_MODE INS) (QUOTE 7)) (LESSP (QUOTE 1) (S_RN INS))) (HALT (QUOTE TRAPCC-UNSPECIFIED) S) (SCC-INS INS S))) (IF (B0P (BITN INS (QUOTE 8))) (ADDQ-INS (OP-LEN INS) INS S) (SUBQ-INS (OP-LEN INS) INS S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBQ-INS . SCC-GROUP) (IMMEDIATE-DEPENDENTS0 ADDQ-INS . SCC-GROUP) (IMMEDIATE-DEPENDENTS0 BITN . SCC-GROUP) (IMMEDIATE-DEPENDENTS0 B0P . SCC-GROUP) (IMMEDIATE-DEPENDENTS0 SCC-INS . SCC-GROUP) (IMMEDIATE-DEPENDENTS0 HALT . SCC-GROUP) (IMMEDIATE-DEPENDENTS0 S_RN . SCC-GROUP) (IMMEDIATE-DEPENDENTS0 DBCC-INS . SCC-GROUP) (IMMEDIATE-DEPENDENTS0 S_MODE . SCC-GROUP) (IMMEDIATE-DEPENDENTS0 Q . SCC-GROUP) (IMMEDIATE-DEPENDENTS0 OP-LEN . SCC-GROUP) (DCELL . *1*SCC-GROUP))))) (PUT1-LST (QUOTE *1*SUBQ-INS) (QUOTE (MAIN-EVENT SUBQ-INS))) (PUT1-LST (QUOTE SUBQ-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((SUBQ-INS -1 NIL NIL NIL)) TOTALP-LST ((SUBQ-INS . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (SUBQ-ADDR-MODEP OPLEN INS) (IF (AN-DIRECT-MODEP (S_MODE INS)) (WRITE-AN (L) (SUB (L) (I-DATA (D_RN INS)) (READ-AN (L) (S_RN INS) S)) (S_RN INS) S) (SUB-MAPPING (I-DATA (D_RN INS)) OPLEN INS S)) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*SUBQ-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*SUBQ-INS) IMMEDIATE-DEPENDENTS0 (SCC-GROUP) EVENT (DEFN SUBQ-INS (OPLEN INS S) (IF (SUBQ-ADDR-MODEP OPLEN INS) (IF (AN-DIRECT-MODEP (S_MODE INS)) (WRITE-AN (L) (SUB (L) (I-DATA (D_RN INS)) (READ-AN (L) (S_RN INS) S)) (S_RN INS) S) (SUB-MAPPING (I-DATA (D_RN INS)) OPLEN INS S)) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . SUBQ-INS) (IMMEDIATE-DEPENDENTS0 HALT . SUBQ-INS) (IMMEDIATE-DEPENDENTS0 SUB-MAPPING . SUBQ-INS) (IMMEDIATE-DEPENDENTS0 S_RN . SUBQ-INS) (IMMEDIATE-DEPENDENTS0 READ-AN . SUBQ-INS) (IMMEDIATE-DEPENDENTS0 D_RN . SUBQ-INS) (IMMEDIATE-DEPENDENTS0 I-DATA . SUBQ-INS) (IMMEDIATE-DEPENDENTS0 SUB . SUBQ-INS) (IMMEDIATE-DEPENDENTS0 L . SUBQ-INS) (IMMEDIATE-DEPENDENTS0 WRITE-AN . SUBQ-INS) (IMMEDIATE-DEPENDENTS0 S_MODE . SUBQ-INS) (IMMEDIATE-DEPENDENTS0 AN-DIRECT-MODEP . SUBQ-INS) (IMMEDIATE-DEPENDENTS0 SUBQ-ADDR-MODEP . SUBQ-INS) (DCELL . *1*SUBQ-INS))))) (PUT1-LST (QUOTE *1*SUBQ-ADDR-MODEP) (QUOTE (MAIN-EVENT SUBQ-ADDR-MODEP))) (PUT1-LST (QUOTE SUBQ-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((SUBQ-ADDR-MODEP 3 NIL NIL)) TOTALP-LST ((SUBQ-ADDR-MODEP . T)) SDEFN (LAMBDA (OPLEN INS) (IF (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)) (IF (BYTE-AN-DIRECT-MODEP OPLEN (S_MODE INS)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (QUOTE *1*FALSE))) LISP-CODE *1*SUBQ-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214825 SATELLITES (*1*SUBQ-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (SUBQ-INS) EVENT (DEFN SUBQ-ADDR-MODEP (OPLEN INS) (AND (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)) (NOT (BYTE-AN-DIRECT-MODEP OPLEN (S_MODE INS))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BYTE-AN-DIRECT-MODEP . SUBQ-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_RN . SUBQ-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . SUBQ-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 ALTERABLE-ADDR-MODEP . SUBQ-ADDR-MODEP) (DCELL . *1*SUBQ-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*ADDQ-INS) (QUOTE (MAIN-EVENT ADDQ-INS))) (PUT1-LST (QUOTE ADDQ-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((ADDQ-INS -1 NIL NIL NIL)) TOTALP-LST ((ADDQ-INS . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (ADDQ-ADDR-MODEP OPLEN INS) (IF (AN-DIRECT-MODEP (S_MODE INS)) (WRITE-AN (L) (ADD (L) (READ-AN (L) (S_RN INS) S) (I-DATA (D_RN INS))) (S_RN INS) S) (ADD-MAPPING (I-DATA (D_RN INS)) OPLEN INS S)) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*ADDQ-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*ADDQ-INS) IMMEDIATE-DEPENDENTS0 (SCC-GROUP) EVENT (DEFN ADDQ-INS (OPLEN INS S) (IF (ADDQ-ADDR-MODEP OPLEN INS) (IF (AN-DIRECT-MODEP (S_MODE INS)) (WRITE-AN (L) (ADD (L) (READ-AN (L) (S_RN INS) S) (I-DATA (D_RN INS))) (S_RN INS) S) (ADD-MAPPING (I-DATA (D_RN INS)) OPLEN INS S)) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . ADDQ-INS) (IMMEDIATE-DEPENDENTS0 HALT . ADDQ-INS) (IMMEDIATE-DEPENDENTS0 ADD-MAPPING . ADDQ-INS) (IMMEDIATE-DEPENDENTS0 D_RN . ADDQ-INS) (IMMEDIATE-DEPENDENTS0 I-DATA . ADDQ-INS) (IMMEDIATE-DEPENDENTS0 S_RN . ADDQ-INS) (IMMEDIATE-DEPENDENTS0 READ-AN . ADDQ-INS) (IMMEDIATE-DEPENDENTS0 ADD . ADDQ-INS) (IMMEDIATE-DEPENDENTS0 L . ADDQ-INS) (IMMEDIATE-DEPENDENTS0 WRITE-AN . ADDQ-INS) (IMMEDIATE-DEPENDENTS0 S_MODE . ADDQ-INS) (IMMEDIATE-DEPENDENTS0 AN-DIRECT-MODEP . ADDQ-INS) (IMMEDIATE-DEPENDENTS0 ADDQ-ADDR-MODEP . ADDQ-INS) (DCELL . *1*ADDQ-INS))))) (PUT1-LST (QUOTE *1*ADDQ-ADDR-MODEP) (QUOTE (MAIN-EVENT ADDQ-ADDR-MODEP))) (PUT1-LST (QUOTE ADDQ-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((ADDQ-ADDR-MODEP 3 NIL NIL)) TOTALP-LST ((ADDQ-ADDR-MODEP . T)) SDEFN (LAMBDA (OPLEN INS) (IF (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)) (IF (BYTE-AN-DIRECT-MODEP OPLEN (S_MODE INS)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (QUOTE *1*FALSE))) LISP-CODE *1*ADDQ-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214825 SATELLITES (*1*ADDQ-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (ADDQ-INS) EVENT (DEFN ADDQ-ADDR-MODEP (OPLEN INS) (AND (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)) (NOT (BYTE-AN-DIRECT-MODEP OPLEN (S_MODE INS))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BYTE-AN-DIRECT-MODEP . ADDQ-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_RN . ADDQ-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . ADDQ-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 ALTERABLE-ADDR-MODEP . ADDQ-ADDR-MODEP) (DCELL . *1*ADDQ-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*DBCC-INS) (QUOTE (MAIN-EVENT DBCC-INS))) (PUT1-LST (QUOTE DBCC-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((DBCC-INS 16 NIL NIL)) TOTALP-LST ((DBCC-INS . T)) SDEFN (LAMBDA (INS S) (IF (PC-WORD-READP (MC-PC S) (MC-MEM S)) (IF (B0P (BRANCH-CC (COND-FIELD INS) (MC-CCR S))) (DBCC-LOOP (S_RN INS) S) (UPDATE-PC (ADD (L) (MC-PC S) (WSZ)) S)) (HALT (PC-SIGNAL) S))) LISP-CODE *1*DBCC-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*DBCC-INS) IMMEDIATE-DEPENDENTS0 (SCC-GROUP) EVENT (DEFN DBCC-INS (INS S) (IF (PC-WORD-READP (MC-PC S) (MC-MEM S)) (IF (B0P (BRANCH-CC (COND-FIELD INS) (MC-CCR S))) (DBCC-LOOP (S_RN INS) S) (UPDATE-PC (ADD (L) (MC-PC S) (WSZ)) S)) (HALT (PC-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-SIGNAL . DBCC-INS) (IMMEDIATE-DEPENDENTS0 HALT . DBCC-INS) (IMMEDIATE-DEPENDENTS0 WSZ . DBCC-INS) (IMMEDIATE-DEPENDENTS0 L . DBCC-INS) (IMMEDIATE-DEPENDENTS0 ADD . DBCC-INS) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . DBCC-INS) (IMMEDIATE-DEPENDENTS0 S_RN . DBCC-INS) (IMMEDIATE-DEPENDENTS0 DBCC-LOOP . DBCC-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . DBCC-INS) (IMMEDIATE-DEPENDENTS0 COND-FIELD . DBCC-INS) (IMMEDIATE-DEPENDENTS0 BRANCH-CC . DBCC-INS) (IMMEDIATE-DEPENDENTS0 B0P . DBCC-INS) (IMMEDIATE-DEPENDENTS0 MC-MEM . DBCC-INS) (IMMEDIATE-DEPENDENTS0 MC-PC . DBCC-INS) (IMMEDIATE-DEPENDENTS0 PC-WORD-READP . DBCC-INS) (DCELL . *1*DBCC-INS))))) (PUT1-LST (QUOTE *1*DBCC-LOOP) (QUOTE (MAIN-EVENT DBCC-LOOP))) (PUT1-LST (QUOTE DBCC-LOOP) (QUOTE (TYPE-PRESCRIPTION-LST ((DBCC-LOOP 16 NIL NIL)) TOTALP-LST ((DBCC-LOOP . T)) SDEFN (LAMBDA (RN S) (IF (EQUAL (NAT-TO-INT (SUB (W) (QUOTE 1) (READ-DN (W) RN S)) (W)) (QUOTE -1)) (UPDATE-PC (ADD (L) (MC-PC S) (WSZ)) (WRITE-DN (W) (SUB (W) (QUOTE 1) (READ-DN (W) RN S)) RN S)) (UPDATE-PC (ADD (L) (MC-PC S) (EXT (W) (PC-WORD-READ (MC-PC S) (MC-MEM S)) (L))) (WRITE-DN (W) (SUB (W) (QUOTE 1) (READ-DN (W) RN S)) RN S)))) LISP-CODE *1*DBCC-LOOP SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402214825 SATELLITES (*1*DBCC-LOOP) IMMEDIATE-DEPENDENTS0 (DBCC-INS) EVENT (DEFN DBCC-LOOP (RN S) (IF (EQUAL (NAT-TO-INT (SUB (W) (QUOTE 1) (READ-DN (W) RN S)) (W)) (QUOTE -1)) (UPDATE-PC (ADD (L) (MC-PC S) (WSZ)) (WRITE-DN (W) (SUB (W) (QUOTE 1) (READ-DN (W) RN S)) RN S)) (UPDATE-PC (ADD (L) (MC-PC S) (EXT (W) (PC-WORD-READ (MC-PC S) (MC-MEM S)) (L))) (WRITE-DN (W) (SUB (W) (QUOTE 1) (READ-DN (W) RN S)) RN S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-MEM . DBCC-LOOP) (IMMEDIATE-DEPENDENTS0 PC-WORD-READ . DBCC-LOOP) (IMMEDIATE-DEPENDENTS0 EXT . DBCC-LOOP) (IMMEDIATE-DEPENDENTS0 WRITE-DN . DBCC-LOOP) (IMMEDIATE-DEPENDENTS0 WSZ . DBCC-LOOP) (IMMEDIATE-DEPENDENTS0 MC-PC . DBCC-LOOP) (IMMEDIATE-DEPENDENTS0 L . DBCC-LOOP) (IMMEDIATE-DEPENDENTS0 ADD . DBCC-LOOP) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . DBCC-LOOP) (IMMEDIATE-DEPENDENTS0 READ-DN . DBCC-LOOP) (IMMEDIATE-DEPENDENTS0 W . DBCC-LOOP) (IMMEDIATE-DEPENDENTS0 SUB . DBCC-LOOP) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . DBCC-LOOP) (DCELL . *1*DBCC-LOOP))))) (PUT1-LST (QUOTE *1*SCC-INS) (QUOTE (MAIN-EVENT SCC-INS))) (PUT1-LST (QUOTE SCC-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((SCC-INS -1 NIL NIL)) TOTALP-LST ((SCC-INS . T)) SDEFN (LAMBDA (INS S) (IF (SCC-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (B) INS S))) (CAR (MC-INSTATE (B) INS S)) (MAPPING (B) (SCC-EFFECT (COND-FIELD INS) (MC-CCR S)) (MC-INSTATE (B) INS S))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*SCC-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*SCC-INS) IMMEDIATE-DEPENDENTS0 (SCC-GROUP) EVENT (DEFN SCC-INS (INS S) (IF (SCC-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (B) INS S))) (CAR (MC-INSTATE (B) INS S)) (MAPPING (B) (SCC-EFFECT (COND-FIELD INS) (MC-CCR S)) (MC-INSTATE (B) INS S))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . SCC-INS) (IMMEDIATE-DEPENDENTS0 HALT . SCC-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . SCC-INS) (IMMEDIATE-DEPENDENTS0 COND-FIELD . SCC-INS) (IMMEDIATE-DEPENDENTS0 SCC-EFFECT . SCC-INS) (IMMEDIATE-DEPENDENTS0 MAPPING . SCC-INS) (IMMEDIATE-DEPENDENTS0 B . SCC-INS) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . SCC-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . SCC-INS) (IMMEDIATE-DEPENDENTS0 SCC-ADDR-MODEP . SCC-INS) (DCELL . *1*SCC-INS))))) (PUT1-LST (QUOTE *1*SCC-EFFECT) (QUOTE (MAIN-EVENT SCC-EFFECT))) (PUT1-LST (QUOTE SCC-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((SCC-EFFECT 16 NIL NIL)) TOTALP-LST ((SCC-EFFECT . T)) SDEFN (LAMBDA (COND CCR) (IF (B0P (BRANCH-CC COND CCR)) (CONS (QUOTE 0) CCR) (CONS (QUOTE 255) CCR))) LISP-CODE *1*SCC-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214825 SATELLITES (*1*SCC-EFFECT) IMMEDIATE-DEPENDENTS0 (SCC-INS) EVENT (DEFN SCC-EFFECT (COND CCR) (CONS (IF (B0P (BRANCH-CC COND CCR)) (QUOTE 0) (QUOTE 255)) CCR)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BRANCH-CC . SCC-EFFECT) (IMMEDIATE-DEPENDENTS0 B0P . SCC-EFFECT) (DCELL . *1*SCC-EFFECT))))) (PUT1-LST (QUOTE *1*SCC-ADDR-MODEP) (QUOTE (MAIN-EVENT SCC-ADDR-MODEP))) (PUT1-LST (QUOTE SCC-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((SCC-ADDR-MODEP 3 NIL)) TOTALP-LST ((SCC-ADDR-MODEP . T)) SDEFN (LAMBDA (INS) (IF (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)) (QUOTE *1*FALSE))) LISP-CODE *1*SCC-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214825 SATELLITES (*1*SCC-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (SCC-INS) EVENT (DEFN SCC-ADDR-MODEP (INS) (AND (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALTERABLE-ADDR-MODEP . SCC-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_RN . SCC-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . SCC-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 DATA-ADDR-MODEP . SCC-ADDR-MODEP) (DCELL . *1*SCC-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*BCC-GROUP) (QUOTE (MAIN-EVENT BCC-GROUP))) (PUT1-LST (QUOTE BCC-GROUP) (QUOTE (TYPE-PRESCRIPTION-LST ((BCC-GROUP 16 NIL NIL NIL)) TOTALP-LST ((BCC-GROUP . T)) SDEFN (LAMBDA (DISP INS S) (IF (EQUAL DISP (QUOTE 0)) (IF (PC-WORD-READP (MC-PC S) (MC-MEM S)) (BCC-RA-SR (ADD (L) (MC-PC S) (WSZ)) (COND-FIELD INS) (EXT (W) (PC-WORD-READ (MC-PC S) (MC-MEM S)) (L)) S) (HALT (PC-SIGNAL) S)) (IF (EQUAL DISP (QUOTE 255)) (IF (PC-LONG-READP (MC-PC S) (MC-MEM S)) (BCC-RA-SR (ADD (L) (MC-PC S) (LSZ)) (COND-FIELD INS) (PC-LONG-READ (MC-PC S) (MC-MEM S)) S) (HALT (PC-SIGNAL) S)) (BCC-RA-SR (MC-PC S) (COND-FIELD INS) (EXT (B) DISP (L)) S)))) LISP-CODE *1*BCC-GROUP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214825 SATELLITES (*1*BCC-GROUP) IMMEDIATE-DEPENDENTS0 (EXECUTE-INS) EVENT (DEFN BCC-GROUP (DISP INS S) (IF (EQUAL DISP (QUOTE 0)) (IF (PC-WORD-READP (MC-PC S) (MC-MEM S)) (BCC-RA-SR (ADD (L) (MC-PC S) (WSZ)) (COND-FIELD INS) (EXT (W) (PC-WORD-READ (MC-PC S) (MC-MEM S)) (L)) S) (HALT (PC-SIGNAL) S)) (IF (EQUAL DISP (QUOTE 255)) (IF (PC-LONG-READP (MC-PC S) (MC-MEM S)) (BCC-RA-SR (ADD (L) (MC-PC S) (LSZ)) (COND-FIELD INS) (PC-LONG-READ (MC-PC S) (MC-MEM S)) S) (HALT (PC-SIGNAL) S)) (BCC-RA-SR (MC-PC S) (COND-FIELD INS) (EXT (B) DISP (L)) S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B . BCC-GROUP) (IMMEDIATE-DEPENDENTS0 PC-LONG-READ . BCC-GROUP) (IMMEDIATE-DEPENDENTS0 LSZ . BCC-GROUP) (IMMEDIATE-DEPENDENTS0 PC-LONG-READP . BCC-GROUP) (IMMEDIATE-DEPENDENTS0 PC-SIGNAL . BCC-GROUP) (IMMEDIATE-DEPENDENTS0 HALT . BCC-GROUP) (IMMEDIATE-DEPENDENTS0 PC-WORD-READ . BCC-GROUP) (IMMEDIATE-DEPENDENTS0 W . BCC-GROUP) (IMMEDIATE-DEPENDENTS0 EXT . BCC-GROUP) (IMMEDIATE-DEPENDENTS0 COND-FIELD . BCC-GROUP) (IMMEDIATE-DEPENDENTS0 WSZ . BCC-GROUP) (IMMEDIATE-DEPENDENTS0 L . BCC-GROUP) (IMMEDIATE-DEPENDENTS0 ADD . BCC-GROUP) (IMMEDIATE-DEPENDENTS0 BCC-RA-SR . BCC-GROUP) (IMMEDIATE-DEPENDENTS0 MC-MEM . BCC-GROUP) (IMMEDIATE-DEPENDENTS0 MC-PC . BCC-GROUP) (IMMEDIATE-DEPENDENTS0 PC-WORD-READP . BCC-GROUP) (DCELL . *1*BCC-GROUP))))) (PUT1-LST (QUOTE *1*BCC-RA-SR) (QUOTE (MAIN-EVENT BCC-RA-SR))) (PUT1-LST (QUOTE BCC-RA-SR) (QUOTE (TYPE-PRESCRIPTION-LST ((BCC-RA-SR 16 NIL NIL NIL NIL)) TOTALP-LST ((BCC-RA-SR . T)) SDEFN (LAMBDA (PC COND DISP S) (IF (EQUAL COND (QUOTE 0)) (UPDATE-PC (ADD (L) (MC-PC S) DISP) S) (IF (EQUAL COND (QUOTE 1)) (BSR-INS PC DISP S) (IF (B0P (BRANCH-CC COND (MC-CCR S))) (UPDATE-PC PC S) (UPDATE-PC (ADD (L) (MC-PC S) DISP) S))))) LISP-CODE *1*BCC-RA-SR SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402214824 SATELLITES (*1*BCC-RA-SR) IMMEDIATE-DEPENDENTS0 (BCC-GROUP) EVENT (DEFN BCC-RA-SR (PC COND DISP S) (IF (EQUAL COND (QUOTE 0)) (UPDATE-PC (ADD (L) (MC-PC S) DISP) S) (IF (EQUAL COND (QUOTE 1)) (BSR-INS PC DISP S) (IF (B0P (BRANCH-CC COND (MC-CCR S))) (UPDATE-PC PC S) (UPDATE-PC (ADD (L) (MC-PC S) DISP) S))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-CCR . BCC-RA-SR) (IMMEDIATE-DEPENDENTS0 BRANCH-CC . BCC-RA-SR) (IMMEDIATE-DEPENDENTS0 B0P . BCC-RA-SR) (IMMEDIATE-DEPENDENTS0 BSR-INS . BCC-RA-SR) (IMMEDIATE-DEPENDENTS0 MC-PC . BCC-RA-SR) (IMMEDIATE-DEPENDENTS0 L . BCC-RA-SR) (IMMEDIATE-DEPENDENTS0 ADD . BCC-RA-SR) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . BCC-RA-SR) (DCELL . *1*BCC-RA-SR))))) (PUT1-LST (QUOTE *1*BSR-INS) (QUOTE (MAIN-EVENT BSR-INS))) (PUT1-LST (QUOTE BSR-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((BSR-INS 16 NIL NIL NIL)) TOTALP-LST ((BSR-INS . T)) SDEFN (LAMBDA (PC DISP S) (PUSH-SP (LSZ) PC (UPDATE-PC (ADD (L) (MC-PC S) DISP) S))) LISP-CODE *1*BSR-INS SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402214824 SATELLITES (*1*BSR-INS) IMMEDIATE-DEPENDENTS0 (BCC-RA-SR) EVENT (DEFN BSR-INS (PC DISP S) (PUSH-SP (LSZ) PC (UPDATE-PC (ADD (L) (MC-PC S) DISP) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-PC . BSR-INS) (IMMEDIATE-DEPENDENTS0 L . BSR-INS) (IMMEDIATE-DEPENDENTS0 ADD . BSR-INS) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . BSR-INS) (IMMEDIATE-DEPENDENTS0 LSZ . BSR-INS) (IMMEDIATE-DEPENDENTS0 PUSH-SP . BSR-INS) (DCELL . *1*BSR-INS))))) (PUT1-LST (QUOTE *1*BRANCH-CC) (QUOTE (MAIN-EVENT BRANCH-CC))) (PUT1-LST (QUOTE BRANCH-CC) (QUOTE (TYPE-PRESCRIPTION-LST ((BRANCH-CC 4 NIL NIL)) TOTALP-LST ((BRANCH-CC . T)) SDEFN (LAMBDA (COND CCR) (IF (LESSP COND (QUOTE 8)) (IF (LESSP COND (QUOTE 4)) (IF (LESSP COND (QUOTE 2)) (IF (EQUAL COND (QUOTE 0)) (B1) (B0)) (IF (EQUAL COND (QUOTE 2)) (BHI (CCR-C CCR) (CCR-Z CCR)) (BLS (CCR-C CCR) (CCR-Z CCR)))) (IF (LESSP COND (QUOTE 6)) (IF (EQUAL COND (QUOTE 4)) (B-NOT (BCS (CCR-C CCR))) (BCS (CCR-C CCR))) (IF (EQUAL COND (QUOTE 6)) (B-NOT (BEQ (CCR-Z CCR))) (BEQ (CCR-Z CCR))))) (IF (LESSP COND (QUOTE 12)) (IF (LESSP COND (QUOTE 10)) (IF (EQUAL COND (QUOTE 8)) (B-NOT (BVS (CCR-V CCR))) (BVS (CCR-V CCR))) (IF (EQUAL COND (QUOTE 10)) (B-NOT (BMI (CCR-N CCR))) (BMI (CCR-N CCR)))) (IF (LESSP COND (QUOTE 14)) (IF (EQUAL COND (QUOTE 12)) (BGE (CCR-V CCR) (CCR-N CCR)) (BLT (CCR-V CCR) (CCR-N CCR))) (IF (EQUAL COND (QUOTE 14)) (BGT (CCR-V CCR) (CCR-Z CCR) (CCR-N CCR)) (BLE (CCR-V CCR) (CCR-Z CCR) (CCR-N CCR))))))) LISP-CODE *1*BRANCH-CC SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*BRANCH-CC) IMMEDIATE-DEPENDENTS0 (DBCC-INS SCC-EFFECT BCC-RA-SR) EVENT (DEFN BRANCH-CC (COND CCR) (IF (LESSP COND (QUOTE 8)) (IF (LESSP COND (QUOTE 4)) (IF (LESSP COND (QUOTE 2)) (IF (EQUAL COND (QUOTE 0)) (B1) (B0)) (IF (EQUAL COND (QUOTE 2)) (BHI (CCR-C CCR) (CCR-Z CCR)) (BLS (CCR-C CCR) (CCR-Z CCR)))) (IF (LESSP COND (QUOTE 6)) (IF (EQUAL COND (QUOTE 4)) (B-NOT (BCS (CCR-C CCR))) (BCS (CCR-C CCR))) (IF (EQUAL COND (QUOTE 6)) (B-NOT (BEQ (CCR-Z CCR))) (BEQ (CCR-Z CCR))))) (IF (LESSP COND (QUOTE 12)) (IF (LESSP COND (QUOTE 10)) (IF (EQUAL COND (QUOTE 8)) (B-NOT (BVS (CCR-V CCR))) (BVS (CCR-V CCR))) (IF (EQUAL COND (QUOTE 10)) (B-NOT (BMI (CCR-N CCR))) (BMI (CCR-N CCR)))) (IF (LESSP COND (QUOTE 14)) (IF (EQUAL COND (QUOTE 12)) (BGE (CCR-V CCR) (CCR-N CCR)) (BLT (CCR-V CCR) (CCR-N CCR))) (IF (EQUAL COND (QUOTE 14)) (BGT (CCR-V CCR) (CCR-Z CCR) (CCR-N CCR)) (BLE (CCR-V CCR) (CCR-Z CCR) (CCR-N CCR))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BLE . BRANCH-CC) (IMMEDIATE-DEPENDENTS0 BGT . BRANCH-CC) (IMMEDIATE-DEPENDENTS0 BLT . BRANCH-CC) (IMMEDIATE-DEPENDENTS0 BGE . BRANCH-CC) (IMMEDIATE-DEPENDENTS0 CCR-N . BRANCH-CC) (IMMEDIATE-DEPENDENTS0 BMI . BRANCH-CC) (IMMEDIATE-DEPENDENTS0 CCR-V . BRANCH-CC) (IMMEDIATE-DEPENDENTS0 BVS . BRANCH-CC) (IMMEDIATE-DEPENDENTS0 BEQ . BRANCH-CC) (IMMEDIATE-DEPENDENTS0 BCS . BRANCH-CC) (IMMEDIATE-DEPENDENTS0 B-NOT . BRANCH-CC) (IMMEDIATE-DEPENDENTS0 BLS . BRANCH-CC) (IMMEDIATE-DEPENDENTS0 CCR-Z . BRANCH-CC) (IMMEDIATE-DEPENDENTS0 CCR-C . BRANCH-CC) (IMMEDIATE-DEPENDENTS0 BHI . BRANCH-CC) (IMMEDIATE-DEPENDENTS0 B0 . BRANCH-CC) (IMMEDIATE-DEPENDENTS0 B1 . BRANCH-CC) (DCELL . *1*BRANCH-CC))))) (PUT1-LST (QUOTE *1*BHI) (QUOTE (MAIN-EVENT BHI))) (PUT1-LST (QUOTE BHI) (QUOTE (TYPE-PRESCRIPTION-LST ((BHI 4 NIL NIL)) TOTALP-LST ((BHI . T)) SDEFN (LAMBDA (C Z) (B-AND (B-NOT C) (B-NOT Z))) LISP-CODE *1*BHI SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214824 SATELLITES (*1*BHI) IMMEDIATE-DEPENDENTS0 (BRANCH-CC) EVENT (DEFN BHI (C Z) (B-AND (B-NOT C) (B-NOT Z))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOT . BHI) (IMMEDIATE-DEPENDENTS0 B-AND . BHI) (DCELL . *1*BHI))))) (PUT1-LST (QUOTE *1*BLS) (QUOTE (MAIN-EVENT BLS))) (PUT1-LST (QUOTE BLS) (QUOTE (TYPE-PRESCRIPTION-LST ((BLS 4 NIL NIL)) TOTALP-LST ((BLS . T)) SDEFN (LAMBDA (C Z) (B-OR C Z)) LISP-CODE *1*BLS SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214824 SATELLITES (*1*BLS) IMMEDIATE-DEPENDENTS0 (BRANCH-CC) EVENT (DEFN BLS (C Z) (B-OR C Z)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-OR . BLS) (DCELL . *1*BLS))))) (PUT1-LST (QUOTE *1*BGE) (QUOTE (MAIN-EVENT BGE))) (PUT1-LST (QUOTE BGE) (QUOTE (TYPE-PRESCRIPTION-LST ((BGE 4 NIL NIL)) TOTALP-LST ((BGE . T)) SDEFN (LAMBDA (V N) (B-OR (B-AND N V) (B-AND (B-NOT N) (B-NOT V)))) LISP-CODE *1*BGE SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214824 SATELLITES (*1*BGE) IMMEDIATE-DEPENDENTS0 (BRANCH-CC) EVENT (DEFN BGE (V N) (B-OR (B-AND N V) (B-AND (B-NOT N) (B-NOT V)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOT . BGE) (IMMEDIATE-DEPENDENTS0 B-AND . BGE) (IMMEDIATE-DEPENDENTS0 B-OR . BGE) (DCELL . *1*BGE))))) (PUT1-LST (QUOTE *1*BLT) (QUOTE (MAIN-EVENT BLT))) (PUT1-LST (QUOTE BLT) (QUOTE (TYPE-PRESCRIPTION-LST ((BLT 4 NIL NIL)) TOTALP-LST ((BLT . T)) SDEFN (LAMBDA (V N) (B-OR (B-AND N (B-NOT V)) (B-AND (B-NOT N) V))) LISP-CODE *1*BLT SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214824 SATELLITES (*1*BLT) IMMEDIATE-DEPENDENTS0 (BRANCH-CC) EVENT (DEFN BLT (V N) (B-OR (B-AND N (B-NOT V)) (B-AND (B-NOT N) V))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOT . BLT) (IMMEDIATE-DEPENDENTS0 B-AND . BLT) (IMMEDIATE-DEPENDENTS0 B-OR . BLT) (DCELL . *1*BLT))))) (PUT1-LST (QUOTE *1*BGT) (QUOTE (MAIN-EVENT BGT))) (PUT1-LST (QUOTE BGT) (QUOTE (TYPE-PRESCRIPTION-LST ((BGT 4 NIL NIL NIL)) TOTALP-LST ((BGT . T)) SDEFN (LAMBDA (V Z N) (B-AND (B-OR (B-AND N V) (B-AND (B-NOT N) (B-NOT V))) (B-NOT Z))) LISP-CODE *1*BGT SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214824 SATELLITES (*1*BGT) IMMEDIATE-DEPENDENTS0 (BRANCH-CC) EVENT (DEFN BGT (V Z N) (B-AND (B-OR (B-AND N V) (B-AND (B-NOT N) (B-NOT V))) (B-NOT Z))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOT . BGT) (IMMEDIATE-DEPENDENTS0 B-OR . BGT) (IMMEDIATE-DEPENDENTS0 B-AND . BGT) (DCELL . *1*BGT))))) (PUT1-LST (QUOTE *1*BLE) (QUOTE (MAIN-EVENT BLE))) (PUT1-LST (QUOTE BLE) (QUOTE (TYPE-PRESCRIPTION-LST ((BLE 4 NIL NIL NIL)) TOTALP-LST ((BLE . T)) SDEFN (LAMBDA (V Z N) (B-OR Z (B-OR (B-AND N (B-NOT V)) (B-AND (B-NOT N) V)))) LISP-CODE *1*BLE SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214824 SATELLITES (*1*BLE) IMMEDIATE-DEPENDENTS0 (BRANCH-CC) EVENT (DEFN BLE (V Z N) (B-OR Z (B-OR (B-AND N (B-NOT V)) (B-AND (B-NOT N) V)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B-NOT . BLE) (IMMEDIATE-DEPENDENTS0 B-AND . BLE) (IMMEDIATE-DEPENDENTS0 B-OR . BLE) (DCELL . *1*BLE))))) (PUT1-LST (QUOTE *1*BMI) (QUOTE (MAIN-EVENT BMI))) (PUT1-LST (QUOTE BMI) (QUOTE (TYPE-PRESCRIPTION-LST ((BMI 4 NIL)) TOTALP-LST ((BMI . T)) SDEFN (LAMBDA (N) (FIX-BIT N)) LISP-CODE *1*BMI SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214824 SATELLITES (*1*BMI) IMMEDIATE-DEPENDENTS0 (BRANCH-CC) EVENT (DEFN BMI (N) (FIX-BIT N)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-BIT . BMI) (DCELL . *1*BMI))))) (PUT1-LST (QUOTE *1*BEQ) (QUOTE (MAIN-EVENT BEQ))) (PUT1-LST (QUOTE BEQ) (QUOTE (TYPE-PRESCRIPTION-LST ((BEQ 4 NIL)) TOTALP-LST ((BEQ . T)) SDEFN (LAMBDA (Z) (FIX-BIT Z)) LISP-CODE *1*BEQ SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214824 SATELLITES (*1*BEQ) IMMEDIATE-DEPENDENTS0 (BRANCH-CC) EVENT (DEFN BEQ (Z) (FIX-BIT Z)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-BIT . BEQ) (DCELL . *1*BEQ))))) (PUT1-LST (QUOTE *1*BCS) (QUOTE (MAIN-EVENT BCS))) (PUT1-LST (QUOTE BCS) (QUOTE (TYPE-PRESCRIPTION-LST ((BCS 4 NIL)) TOTALP-LST ((BCS . T)) SDEFN (LAMBDA (C) (FIX-BIT C)) LISP-CODE *1*BCS SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214824 SATELLITES (*1*BCS) IMMEDIATE-DEPENDENTS0 (BRANCH-CC) EVENT (DEFN BCS (C) (FIX-BIT C)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-BIT . BCS) (DCELL . *1*BCS))))) (PUT1-LST (QUOTE *1*MISC-GROUP) (QUOTE (MAIN-EVENT MISC-GROUP))) (PUT1-LST (QUOTE MISC-GROUP) (QUOTE (TYPE-PRESCRIPTION-LST ((MISC-GROUP -1 NIL T)) TOTALP-LST ((MISC-GROUP . T)) SDEFN (LAMBDA (INS S) (IF (B0P (BITN INS (QUOTE 8))) (IF (B0P (BITN INS (QUOTE 11))) (IF (B0P (BITN INS (QUOTE 10))) (IF (B0P (BITN INS (QUOTE 9))) (NEGX-SUBGROUP INS S) (CLR-SUBGROUP INS S)) (IF (B0P (BITN INS (QUOTE 9))) (NEG-SUBGROUP INS S) (NOT-SUBGROUP INS S))) (IF (B0P (BITN INS (QUOTE 10))) (IF (B0P (BITN INS (QUOTE 9))) (IF (B0P (BITN INS (QUOTE 7))) (IF (B0P (BITN INS (QUOTE 6))) (IF (B0P (BITN INS (QUOTE 5))) (IF (B0P (BITN INS (QUOTE 4))) (IF (B1P (BITN INS (QUOTE 3))) (LINK_L-INS (S_RN INS) S) (HALT (QUOTE NBCD-UNSPECIFIED) S)) (HALT (QUOTE NBCD-UNSPECIFIED) S)) (HALT (QUOTE NBCD-UNSPECIFIED) S)) (PEA-SUBGROUP INS S)) (EXT-SUBGROUP INS S)) (TST-SUBGROUP INS S)) (IF (B0P (BITN INS (QUOTE 9))) (MOVEM-EA-RN-SUBGROUP INS S) (IF (B0P (BITN INS (QUOTE 7))) (IF (B0P (BITN INS (QUOTE 6))) (HALT (RESERVED-SIGNAL) S) (IF (B0P (BITN INS (QUOTE 5))) (UNLK-SUBGROUP INS S) (IF (B0P (BITN INS (QUOTE 4))) (HALT (QUOTE MOVE-USP-UNSPECIFIED) S) (IF (B0P (BITN INS (QUOTE 3))) (NOP-SUBGROUP INS S) (HALT (QUOTE MOVEC-UNSPECIFIED) S))))) (IF (B0P (BITN INS (QUOTE 6))) (JSR-INS INS S) (JMP-INS INS S)))))) (IF (B1P (BITN INS (QUOTE 6))) (IF (B1P (BITN INS (QUOTE 7))) (LEA-SUBGROUP INS S) (HALT (QUOTE CHK-UNSPECIFIED) S)) (HALT (QUOTE CHK-UNSPECIFIED) S)))) LISP-CODE *1*MISC-GROUP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*MISC-GROUP) IMMEDIATE-DEPENDENTS0 (EXECUTE-INS) EVENT (DEFN MISC-GROUP (INS S) (IF (B0P (BITN INS (QUOTE 8))) (IF (B0P (BITN INS (QUOTE 11))) (IF (B0P (BITN INS (QUOTE 10))) (IF (B0P (BITN INS (QUOTE 9))) (NEGX-SUBGROUP INS S) (CLR-SUBGROUP INS S)) (IF (B0P (BITN INS (QUOTE 9))) (NEG-SUBGROUP INS S) (NOT-SUBGROUP INS S))) (IF (B0P (BITN INS (QUOTE 10))) (IF (B0P (BITN INS (QUOTE 9))) (IF (B0P (BITN INS (QUOTE 7))) (IF (B0P (BITN INS (QUOTE 6))) (IF (AND (B0P (BITN INS (QUOTE 5))) (AND (B0P (BITN INS (QUOTE 4))) (B1P (BITN INS (QUOTE 3))))) (LINK_L-INS (S_RN INS) S) (HALT (QUOTE NBCD-UNSPECIFIED) S)) (PEA-SUBGROUP INS S)) (EXT-SUBGROUP INS S)) (TST-SUBGROUP INS S)) (IF (B0P (BITN INS (QUOTE 9))) (MOVEM-EA-RN-SUBGROUP INS S) (IF (B0P (BITN INS (QUOTE 7))) (IF (B0P (BITN INS (QUOTE 6))) (HALT (RESERVED-SIGNAL) S) (IF (B0P (BITN INS (QUOTE 5))) (UNLK-SUBGROUP INS S) (IF (B0P (BITN INS (QUOTE 4))) (HALT (QUOTE MOVE-USP-UNSPECIFIED) S) (IF (B0P (BITN INS (QUOTE 3))) (NOP-SUBGROUP INS S) (HALT (QUOTE MOVEC-UNSPECIFIED) S))))) (IF (B0P (BITN INS (QUOTE 6))) (JSR-INS INS S) (JMP-INS INS S)))))) (IF (AND (B1P (BITN INS (QUOTE 6))) (B1P (BITN INS (QUOTE 7)))) (LEA-SUBGROUP INS S) (HALT (QUOTE CHK-UNSPECIFIED) S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LEA-SUBGROUP . MISC-GROUP) (IMMEDIATE-DEPENDENTS0 JMP-INS . MISC-GROUP) (IMMEDIATE-DEPENDENTS0 JSR-INS . MISC-GROUP) (IMMEDIATE-DEPENDENTS0 NOP-SUBGROUP . MISC-GROUP) (IMMEDIATE-DEPENDENTS0 UNLK-SUBGROUP . MISC-GROUP) (IMMEDIATE-DEPENDENTS0 RESERVED-SIGNAL . MISC-GROUP) (IMMEDIATE-DEPENDENTS0 MOVEM-EA-RN-SUBGROUP . MISC-GROUP) (IMMEDIATE-DEPENDENTS0 TST-SUBGROUP . MISC-GROUP) (IMMEDIATE-DEPENDENTS0 EXT-SUBGROUP . MISC-GROUP) (IMMEDIATE-DEPENDENTS0 PEA-SUBGROUP . MISC-GROUP) (IMMEDIATE-DEPENDENTS0 HALT . MISC-GROUP) (IMMEDIATE-DEPENDENTS0 S_RN . MISC-GROUP) (IMMEDIATE-DEPENDENTS0 LINK_L-INS . MISC-GROUP) (IMMEDIATE-DEPENDENTS0 B1P . MISC-GROUP) (IMMEDIATE-DEPENDENTS0 NOT-SUBGROUP . MISC-GROUP) (IMMEDIATE-DEPENDENTS0 NEG-SUBGROUP . MISC-GROUP) (IMMEDIATE-DEPENDENTS0 CLR-SUBGROUP . MISC-GROUP) (IMMEDIATE-DEPENDENTS0 NEGX-SUBGROUP . MISC-GROUP) (IMMEDIATE-DEPENDENTS0 BITN . MISC-GROUP) (IMMEDIATE-DEPENDENTS0 B0P . MISC-GROUP) (DCELL . *1*MISC-GROUP))))) (PUT1-LST (QUOTE *1*NOT-SUBGROUP) (QUOTE (MAIN-EVENT NOT-SUBGROUP))) (PUT1-LST (QUOTE NOT-SUBGROUP) (QUOTE (TYPE-PRESCRIPTION-LST ((NOT-SUBGROUP -1 NIL NIL)) TOTALP-LST ((NOT-SUBGROUP . T)) SDEFN (LAMBDA (INS S) (IF (EQUAL (OP-LEN INS) (Q)) (HALT (QUOTE MOVE-TO-SR-PRIVILEGED) S) (NOT-INS (OP-LEN INS) INS S))) LISP-CODE *1*NOT-SUBGROUP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*NOT-SUBGROUP) IMMEDIATE-DEPENDENTS0 (MISC-GROUP) EVENT (DEFN NOT-SUBGROUP (INS S) (IF (EQUAL (OP-LEN INS) (Q)) (HALT (QUOTE MOVE-TO-SR-PRIVILEGED) S) (NOT-INS (OP-LEN INS) INS S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NOT-INS . NOT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 HALT . NOT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 Q . NOT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 OP-LEN . NOT-SUBGROUP) (DCELL . *1*NOT-SUBGROUP))))) (PUT1-LST (QUOTE *1*NOT-INS) (QUOTE (MAIN-EVENT NOT-INS))) (PUT1-LST (QUOTE NOT-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((NOT-INS -1 NIL NIL NIL)) TOTALP-LST ((NOT-INS . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (NOT-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (MAPPING OPLEN (NOT-EFFECT OPLEN (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (MC-CCR S)) (MC-INSTATE OPLEN INS S))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*NOT-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*NOT-INS) IMMEDIATE-DEPENDENTS0 (NOT-SUBGROUP) EVENT (DEFN NOT-INS (OPLEN INS S) (IF (NOT-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (MAPPING OPLEN (NOT-EFFECT OPLEN (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (MC-CCR S)) (MC-INSTATE OPLEN INS S))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . NOT-INS) (IMMEDIATE-DEPENDENTS0 HALT . NOT-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . NOT-INS) (IMMEDIATE-DEPENDENTS0 OPERAND . NOT-INS) (IMMEDIATE-DEPENDENTS0 NOT-EFFECT . NOT-INS) (IMMEDIATE-DEPENDENTS0 MAPPING . NOT-INS) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . NOT-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . NOT-INS) (IMMEDIATE-DEPENDENTS0 NOT-ADDR-MODEP . NOT-INS) (DCELL . *1*NOT-INS))))) (PUT1-LST (QUOTE *1*NOT-EFFECT) (QUOTE (MAIN-EVENT NOT-EFFECT))) (PUT1-LST (QUOTE NOT-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((NOT-EFFECT 16 NIL NIL NIL)) TOTALP-LST ((NOT-EFFECT . T)) SDEFN (LAMBDA (OPLEN OPD CCR) (CONS (LOGNOT OPLEN OPD) (NOT-CVZNX OPLEN OPD CCR))) LISP-CODE *1*NOT-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*NOT-EFFECT) IMMEDIATE-DEPENDENTS0 (NOT-INS) EVENT (DEFN NOT-EFFECT (OPLEN OPD CCR) (CONS (LOGNOT OPLEN OPD) (NOT-CVZNX OPLEN OPD CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NOT-CVZNX . NOT-EFFECT) (IMMEDIATE-DEPENDENTS0 LOGNOT . NOT-EFFECT) (DCELL . *1*NOT-EFFECT))))) (PUT1-LST (QUOTE *1*NOT-CVZNX) (QUOTE (MAIN-EVENT NOT-CVZNX))) (PUT1-LST (QUOTE NOT-CVZNX) (QUOTE (TYPE-PRESCRIPTION-LST ((NOT-CVZNX 4 NIL NIL NIL)) TOTALP-LST ((NOT-CVZNX . T)) SDEFN (LAMBDA (OPLEN OPD CCR) (CVZNX (B0) (B0) (NOT-Z OPLEN OPD) (NOT-N OPLEN OPD) (CCR-X CCR))) LISP-CODE *1*NOT-CVZNX SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*NOT-CVZNX) IMMEDIATE-DEPENDENTS0 (NOT-EFFECT) EVENT (DEFN NOT-CVZNX (OPLEN OPD CCR) (CVZNX (B0) (B0) (NOT-Z OPLEN OPD) (NOT-N OPLEN OPD) (CCR-X CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CCR-X . NOT-CVZNX) (IMMEDIATE-DEPENDENTS0 NOT-N . NOT-CVZNX) (IMMEDIATE-DEPENDENTS0 NOT-Z . NOT-CVZNX) (IMMEDIATE-DEPENDENTS0 B0 . NOT-CVZNX) (IMMEDIATE-DEPENDENTS0 CVZNX . NOT-CVZNX) (DCELL . *1*NOT-CVZNX))))) (PUT1-LST (QUOTE *1*NOT-N) (QUOTE (MAIN-EVENT NOT-N))) (PUT1-LST (QUOTE NOT-N) (QUOTE (TYPE-PRESCRIPTION-LST ((NOT-N 4 NIL NIL)) TOTALP-LST ((NOT-N . T)) SDEFN (LAMBDA (OPLEN OPD) (MBIT (LOGNOT OPLEN OPD) OPLEN)) LISP-CODE *1*NOT-N SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*NOT-N) IMMEDIATE-DEPENDENTS0 (NOT-CVZNX) EVENT (DEFN NOT-N (OPLEN OPD) (MBIT (LOGNOT OPLEN OPD) OPLEN)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOGNOT . NOT-N) (IMMEDIATE-DEPENDENTS0 MBIT . NOT-N) (DCELL . *1*NOT-N))))) (PUT1-LST (QUOTE *1*NOT-Z) (QUOTE (MAIN-EVENT NOT-Z))) (PUT1-LST (QUOTE NOT-Z) (QUOTE (TYPE-PRESCRIPTION-LST ((NOT-Z 4 NIL NIL)) TOTALP-LST ((NOT-Z . T)) SDEFN (LAMBDA (OPLEN OPD) (IF (EQUAL (LOGNOT OPLEN OPD) (QUOTE 0)) (B1) (B0))) LISP-CODE *1*NOT-Z SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*NOT-Z) IMMEDIATE-DEPENDENTS0 (NOT-CVZNX) EVENT (DEFN NOT-Z (OPLEN OPD) (IF (EQUAL (LOGNOT OPLEN OPD) (QUOTE 0)) (B1) (B0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . NOT-Z) (IMMEDIATE-DEPENDENTS0 B1 . NOT-Z) (IMMEDIATE-DEPENDENTS0 LOGNOT . NOT-Z) (DCELL . *1*NOT-Z))))) (PUT1-LST (QUOTE *1*NOT-ADDR-MODEP) (QUOTE (MAIN-EVENT NOT-ADDR-MODEP))) (PUT1-LST (QUOTE NOT-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((NOT-ADDR-MODEP 3 NIL)) TOTALP-LST ((NOT-ADDR-MODEP . T)) SDEFN (LAMBDA (INS) (IF (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)) (QUOTE *1*FALSE))) LISP-CODE *1*NOT-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*NOT-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (NOT-INS) EVENT (DEFN NOT-ADDR-MODEP (INS) (AND (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALTERABLE-ADDR-MODEP . NOT-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_RN . NOT-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . NOT-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 DATA-ADDR-MODEP . NOT-ADDR-MODEP) (DCELL . *1*NOT-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*JSR-INS) (QUOTE (MAIN-EVENT JSR-INS))) (PUT1-LST (QUOTE JSR-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((JSR-INS -1 NIL NIL)) TOTALP-LST ((JSR-INS . T)) SDEFN (LAMBDA (INS S) (IF (JSR-ADDR-MODEP INS) (IF (MC-HALTP (CAR (EFFEC-ADDR (L) (S_MODE INS) (S_RN INS) S))) (CAR (EFFEC-ADDR (L) (S_MODE INS) (S_RN INS) S)) (JMP-MAPPING (CDR (CDR (EFFEC-ADDR (L) (S_MODE INS) (S_RN INS) S))) (PUSH-SP (LSZ) (MC-PC (CAR (EFFEC-ADDR (L) (S_MODE INS) (S_RN INS) S))) (CAR (EFFEC-ADDR (L) (S_MODE INS) (S_RN INS) S))))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*JSR-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*JSR-INS) IMMEDIATE-DEPENDENTS0 (MISC-GROUP) EVENT (DEFN JSR-INS (INS S) (IF (JSR-ADDR-MODEP INS) (IF (MC-HALTP (CAR (EFFEC-ADDR (L) (S_MODE INS) (S_RN INS) S))) (CAR (EFFEC-ADDR (L) (S_MODE INS) (S_RN INS) S)) (JMP-MAPPING (CDR (CDR (EFFEC-ADDR (L) (S_MODE INS) (S_RN INS) S))) (PUSH-SP (LSZ) (MC-PC (CAR (EFFEC-ADDR (L) (S_MODE INS) (S_RN INS) S))) (CAR (EFFEC-ADDR (L) (S_MODE INS) (S_RN INS) S))))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . JSR-INS) (IMMEDIATE-DEPENDENTS0 HALT . JSR-INS) (IMMEDIATE-DEPENDENTS0 MC-PC . JSR-INS) (IMMEDIATE-DEPENDENTS0 LSZ . JSR-INS) (IMMEDIATE-DEPENDENTS0 PUSH-SP . JSR-INS) (IMMEDIATE-DEPENDENTS0 JMP-MAPPING . JSR-INS) (IMMEDIATE-DEPENDENTS0 S_RN . JSR-INS) (IMMEDIATE-DEPENDENTS0 S_MODE . JSR-INS) (IMMEDIATE-DEPENDENTS0 L . JSR-INS) (IMMEDIATE-DEPENDENTS0 EFFEC-ADDR . JSR-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . JSR-INS) (IMMEDIATE-DEPENDENTS0 JSR-ADDR-MODEP . JSR-INS) (DCELL . *1*JSR-INS))))) (PUT1-LST (QUOTE *1*JSR-ADDR-MODEP) (QUOTE (MAIN-EVENT JSR-ADDR-MODEP))) (PUT1-LST (QUOTE JSR-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((JSR-ADDR-MODEP 3 NIL)) TOTALP-LST ((JSR-ADDR-MODEP . T)) SDEFN (LAMBDA (INS) (CONTROL-ADDR-MODEP (S_MODE INS) (S_RN INS))) LISP-CODE *1*JSR-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*JSR-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (JSR-INS) EVENT (DEFN JSR-ADDR-MODEP (INS) (CONTROL-ADDR-MODEP (S_MODE INS) (S_RN INS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S_RN . JSR-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . JSR-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 CONTROL-ADDR-MODEP . JSR-ADDR-MODEP) (DCELL . *1*JSR-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*JMP-INS) (QUOTE (MAIN-EVENT JMP-INS))) (PUT1-LST (QUOTE JMP-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((JMP-INS -1 NIL NIL)) TOTALP-LST ((JMP-INS . T)) SDEFN (LAMBDA (INS S) (IF (JMP-ADDR-MODEP INS) (JMP-MAPPING (CDR (CDR (EFFEC-ADDR (L) (S_MODE INS) (S_RN INS) S))) (CAR (EFFEC-ADDR (L) (S_MODE INS) (S_RN INS) S))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*JMP-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*JMP-INS) IMMEDIATE-DEPENDENTS0 (MISC-GROUP) EVENT (DEFN JMP-INS (INS S) (IF (JMP-ADDR-MODEP INS) (JMP-MAPPING (CDR (CDR (EFFEC-ADDR (L) (S_MODE INS) (S_RN INS) S))) (CAR (EFFEC-ADDR (L) (S_MODE INS) (S_RN INS) S))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . JMP-INS) (IMMEDIATE-DEPENDENTS0 HALT . JMP-INS) (IMMEDIATE-DEPENDENTS0 S_RN . JMP-INS) (IMMEDIATE-DEPENDENTS0 S_MODE . JMP-INS) (IMMEDIATE-DEPENDENTS0 L . JMP-INS) (IMMEDIATE-DEPENDENTS0 EFFEC-ADDR . JMP-INS) (IMMEDIATE-DEPENDENTS0 JMP-MAPPING . JMP-INS) (IMMEDIATE-DEPENDENTS0 JMP-ADDR-MODEP . JMP-INS) (DCELL . *1*JMP-INS))))) (PUT1-LST (QUOTE *1*JMP-MAPPING) (QUOTE (MAIN-EVENT JMP-MAPPING))) (PUT1-LST (QUOTE JMP-MAPPING) (QUOTE (TYPE-PRESCRIPTION-LST ((JMP-MAPPING 16 NIL T)) TOTALP-LST ((JMP-MAPPING . T)) SDEFN (LAMBDA (ADDR S) (IF (MC-HALTP S) S (UPDATE-PC ADDR S))) LISP-CODE *1*JMP-MAPPING SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*JMP-MAPPING) IMMEDIATE-DEPENDENTS0 (JSR-INS JMP-INS) EVENT (DEFN JMP-MAPPING (ADDR S) (IF (MC-HALTP S) S (UPDATE-PC ADDR S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UPDATE-PC . JMP-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-HALTP . JMP-MAPPING) (DCELL . *1*JMP-MAPPING))))) (PUT1-LST (QUOTE *1*JMP-ADDR-MODEP) (QUOTE (MAIN-EVENT JMP-ADDR-MODEP))) (PUT1-LST (QUOTE JMP-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((JMP-ADDR-MODEP 3 NIL)) TOTALP-LST ((JMP-ADDR-MODEP . T)) SDEFN (LAMBDA (INS) (CONTROL-ADDR-MODEP (S_MODE INS) (S_RN INS))) LISP-CODE *1*JMP-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*JMP-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (JMP-INS) EVENT (DEFN JMP-ADDR-MODEP (INS) (CONTROL-ADDR-MODEP (S_MODE INS) (S_RN INS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S_RN . JMP-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . JMP-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 CONTROL-ADDR-MODEP . JMP-ADDR-MODEP) (DCELL . *1*JMP-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*NOP-SUBGROUP) (QUOTE (MAIN-EVENT NOP-SUBGROUP))) (PUT1-LST (QUOTE NOP-SUBGROUP) (QUOTE (TYPE-PRESCRIPTION-LST ((NOP-SUBGROUP 16 NIL T)) TOTALP-LST ((NOP-SUBGROUP . T)) SDEFN (LAMBDA (INS S) (IF (B0P (BITN INS (QUOTE 2))) (IF (B0P (BITN INS (QUOTE 1))) (IF (B0P (BITN INS (QUOTE 0))) (HALT (QUOTE RESET-PRIVILEGED) S) (NOP-INS S)) (IF (B0P (BITN INS (QUOTE 0))) (HALT (QUOTE STOP-PRIVILEGED) S) (HALT (QUOTE RTE-PRIVILEGED) S))) (IF (B0P (BITN INS (QUOTE 1))) (IF (B0P (BITN INS (QUOTE 0))) (RTD-INS S) (RTS-INS S)) (IF (B0P (BITN INS (QUOTE 0))) (TRAPV-INS S) (RTR-INS S))))) LISP-CODE *1*NOP-SUBGROUP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*NOP-SUBGROUP) IMMEDIATE-DEPENDENTS0 (MISC-GROUP) EVENT (DEFN NOP-SUBGROUP (INS S) (IF (B0P (BITN INS (QUOTE 2))) (IF (B0P (BITN INS (QUOTE 1))) (IF (B0P (BITN INS (QUOTE 0))) (HALT (QUOTE RESET-PRIVILEGED) S) (NOP-INS S)) (IF (B0P (BITN INS (QUOTE 0))) (HALT (QUOTE STOP-PRIVILEGED) S) (HALT (QUOTE RTE-PRIVILEGED) S))) (IF (B0P (BITN INS (QUOTE 1))) (IF (B0P (BITN INS (QUOTE 0))) (RTD-INS S) (RTS-INS S)) (IF (B0P (BITN INS (QUOTE 0))) (TRAPV-INS S) (RTR-INS S))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RTR-INS . NOP-SUBGROUP) (IMMEDIATE-DEPENDENTS0 TRAPV-INS . NOP-SUBGROUP) (IMMEDIATE-DEPENDENTS0 RTS-INS . NOP-SUBGROUP) (IMMEDIATE-DEPENDENTS0 RTD-INS . NOP-SUBGROUP) (IMMEDIATE-DEPENDENTS0 NOP-INS . NOP-SUBGROUP) (IMMEDIATE-DEPENDENTS0 HALT . NOP-SUBGROUP) (IMMEDIATE-DEPENDENTS0 BITN . NOP-SUBGROUP) (IMMEDIATE-DEPENDENTS0 B0P . NOP-SUBGROUP) (DCELL . *1*NOP-SUBGROUP))))) (PUT1-LST (QUOTE *1*TRAPV-INS) (QUOTE (MAIN-EVENT TRAPV-INS))) (PUT1-LST (QUOTE TRAPV-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((TRAPV-INS 16 T)) TOTALP-LST ((TRAPV-INS . T)) SDEFN (LAMBDA (S) (IF (B1P (BVS (CCR-V (MC-CCR S)))) (HALT (QUOTE TRAPV-EXCEPTION) S) S)) LISP-CODE *1*TRAPV-INS SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*TRAPV-INS) IMMEDIATE-DEPENDENTS0 (NOP-SUBGROUP) EVENT (DEFN TRAPV-INS (S) (IF (B1P (BVS (CCR-V (MC-CCR S)))) (HALT (QUOTE TRAPV-EXCEPTION) S) S)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HALT . TRAPV-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . TRAPV-INS) (IMMEDIATE-DEPENDENTS0 CCR-V . TRAPV-INS) (IMMEDIATE-DEPENDENTS0 BVS . TRAPV-INS) (IMMEDIATE-DEPENDENTS0 B1P . TRAPV-INS) (DCELL . *1*TRAPV-INS))))) (PUT1-LST (QUOTE *1*BVS) (QUOTE (MAIN-EVENT BVS))) (PUT1-LST (QUOTE BVS) (QUOTE (TYPE-PRESCRIPTION-LST ((BVS 4 NIL)) TOTALP-LST ((BVS . T)) SDEFN (LAMBDA (V) (FIX-BIT V)) LISP-CODE *1*BVS SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214824 SATELLITES (*1*BVS) IMMEDIATE-DEPENDENTS0 (BRANCH-CC TRAPV-INS) EVENT (DEFN BVS (V) (FIX-BIT V)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-BIT . BVS) (DCELL . *1*BVS))))) (PUT1-LST (QUOTE *1*RTR-INS) (QUOTE (MAIN-EVENT RTR-INS))) (PUT1-LST (QUOTE RTR-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((RTR-INS 16 NIL)) TOTALP-LST ((RTR-INS . T)) SDEFN (LAMBDA (S) (IF (WORD-READP (READ-SP S) (MC-MEM S)) (RTD-MAPPING (ADD (L) (READ-SP S) (WSZ)) (QUOTE 0) (UPDATE-CCR (WORD-READ (READ-SP S) (MC-MEM S)) S)) (HALT (READ-SIGNAL) S))) LISP-CODE *1*RTR-INS SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402214824 SATELLITES (*1*RTR-INS) IMMEDIATE-DEPENDENTS0 (NOP-SUBGROUP) EVENT (DEFN RTR-INS (S) (IF (WORD-READP (READ-SP S) (MC-MEM S)) (RTD-MAPPING (ADD (L) (READ-SP S) (WSZ)) (QUOTE 0) (UPDATE-CCR (WORD-READ (READ-SP S) (MC-MEM S)) S)) (HALT (READ-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-SIGNAL . RTR-INS) (IMMEDIATE-DEPENDENTS0 HALT . RTR-INS) (IMMEDIATE-DEPENDENTS0 WORD-READ . RTR-INS) (IMMEDIATE-DEPENDENTS0 UPDATE-CCR . RTR-INS) (IMMEDIATE-DEPENDENTS0 WSZ . RTR-INS) (IMMEDIATE-DEPENDENTS0 L . RTR-INS) (IMMEDIATE-DEPENDENTS0 ADD . RTR-INS) (IMMEDIATE-DEPENDENTS0 RTD-MAPPING . RTR-INS) (IMMEDIATE-DEPENDENTS0 MC-MEM . RTR-INS) (IMMEDIATE-DEPENDENTS0 READ-SP . RTR-INS) (IMMEDIATE-DEPENDENTS0 WORD-READP . RTR-INS) (DCELL . *1*RTR-INS))))) (PUT1-LST (QUOTE *1*RTS-INS) (QUOTE (MAIN-EVENT RTS-INS))) (PUT1-LST (QUOTE RTS-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((RTS-INS 16 NIL)) TOTALP-LST ((RTS-INS . T)) SDEFN (LAMBDA (S) (RTD-MAPPING (READ-SP S) (QUOTE 0) S)) LISP-CODE *1*RTS-INS SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402214824 SATELLITES (*1*RTS-INS) IMMEDIATE-DEPENDENTS0 (NOP-SUBGROUP) EVENT (DEFN RTS-INS (S) (RTD-MAPPING (READ-SP S) (QUOTE 0) S)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-SP . RTS-INS) (IMMEDIATE-DEPENDENTS0 RTD-MAPPING . RTS-INS) (DCELL . *1*RTS-INS))))) (PUT1-LST (QUOTE *1*RTD-INS) (QUOTE (MAIN-EVENT RTD-INS))) (PUT1-LST (QUOTE RTD-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((RTD-INS 16 NIL)) TOTALP-LST ((RTD-INS . T)) SDEFN (LAMBDA (S) (IF (PC-WORD-READP (MC-PC S) (MC-MEM S)) (RTD-MAPPING (READ-SP S) (PC-WORD-READ (MC-PC S) (MC-MEM S)) S) (HALT (PC-SIGNAL) S))) LISP-CODE *1*RTD-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*RTD-INS) IMMEDIATE-DEPENDENTS0 (NOP-SUBGROUP) EVENT (DEFN RTD-INS (S) (IF (PC-WORD-READP (MC-PC S) (MC-MEM S)) (RTD-MAPPING (READ-SP S) (PC-WORD-READ (MC-PC S) (MC-MEM S)) S) (HALT (PC-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-SIGNAL . RTD-INS) (IMMEDIATE-DEPENDENTS0 HALT . RTD-INS) (IMMEDIATE-DEPENDENTS0 PC-WORD-READ . RTD-INS) (IMMEDIATE-DEPENDENTS0 READ-SP . RTD-INS) (IMMEDIATE-DEPENDENTS0 RTD-MAPPING . RTD-INS) (IMMEDIATE-DEPENDENTS0 MC-MEM . RTD-INS) (IMMEDIATE-DEPENDENTS0 MC-PC . RTD-INS) (IMMEDIATE-DEPENDENTS0 PC-WORD-READP . RTD-INS) (DCELL . *1*RTD-INS))))) (PUT1-LST (QUOTE *1*RTD-MAPPING) (QUOTE (MAIN-EVENT RTD-MAPPING))) (PUT1-LST (QUOTE RTD-MAPPING) (QUOTE (TYPE-PRESCRIPTION-LST ((RTD-MAPPING 16 NIL NIL NIL)) TOTALP-LST ((RTD-MAPPING . T)) SDEFN (LAMBDA (SP DISP S) (IF (LONG-READP SP (MC-MEM S)) (UPDATE-PC (LONG-READ SP (MC-MEM S)) (WRITE-SP (ADD (L) (ADD (L) SP (LSZ)) (EXT (W) DISP (L))) S)) (HALT (READ-SIGNAL) S))) LISP-CODE *1*RTD-MAPPING SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402214824 SATELLITES (*1*RTD-MAPPING) IMMEDIATE-DEPENDENTS0 (RTR-INS RTS-INS RTD-INS) EVENT (DEFN RTD-MAPPING (SP DISP S) (IF (LONG-READP SP (MC-MEM S)) (UPDATE-PC (LONG-READ SP (MC-MEM S)) (WRITE-SP (ADD (L) (ADD (L) SP (LSZ)) (EXT (W) DISP (L))) S)) (HALT (READ-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-SIGNAL . RTD-MAPPING) (IMMEDIATE-DEPENDENTS0 HALT . RTD-MAPPING) (IMMEDIATE-DEPENDENTS0 W . RTD-MAPPING) (IMMEDIATE-DEPENDENTS0 EXT . RTD-MAPPING) (IMMEDIATE-DEPENDENTS0 LSZ . RTD-MAPPING) (IMMEDIATE-DEPENDENTS0 L . RTD-MAPPING) (IMMEDIATE-DEPENDENTS0 ADD . RTD-MAPPING) (IMMEDIATE-DEPENDENTS0 WRITE-SP . RTD-MAPPING) (IMMEDIATE-DEPENDENTS0 LONG-READ . RTD-MAPPING) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . RTD-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-MEM . RTD-MAPPING) (IMMEDIATE-DEPENDENTS0 LONG-READP . RTD-MAPPING) (DCELL . *1*RTD-MAPPING))))) (PUT1-LST (QUOTE *1*NOP-INS) (QUOTE (MAIN-EVENT NOP-INS))) (PUT1-LST (QUOTE NOP-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((NOP-INS 0 T)) TOTALP-LST ((NOP-INS . T)) SDEFN (LAMBDA (S) S) LISP-CODE *1*NOP-INS SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214824 SATELLITES (*1*NOP-INS) IMMEDIATE-DEPENDENTS0 (NOP-SUBGROUP) EVENT (DEFN NOP-INS (S) S) LOCAL-UNDO-TUPLES ((DCELL . *1*NOP-INS))))) (PUT1-LST (QUOTE *1*UNLK-SUBGROUP) (QUOTE (MAIN-EVENT UNLK-SUBGROUP))) (PUT1-LST (QUOTE UNLK-SUBGROUP) (QUOTE (TYPE-PRESCRIPTION-LST ((UNLK-SUBGROUP 16 NIL NIL)) TOTALP-LST ((UNLK-SUBGROUP . T)) SDEFN (LAMBDA (INS S) (IF (B0P (BITN INS (QUOTE 4))) (HALT (QUOTE TRAP-UNSPECIFIED) S) (IF (B0P (BITN INS (QUOTE 3))) (LINK_W-INS (S_RN INS) S) (UNLK-INS (S_RN INS) S)))) LISP-CODE *1*UNLK-SUBGROUP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*UNLK-SUBGROUP) IMMEDIATE-DEPENDENTS0 (MISC-GROUP) EVENT (DEFN UNLK-SUBGROUP (INS S) (IF (B0P (BITN INS (QUOTE 4))) (HALT (QUOTE TRAP-UNSPECIFIED) S) (IF (B0P (BITN INS (QUOTE 3))) (LINK_W-INS (S_RN INS) S) (UNLK-INS (S_RN INS) S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 UNLK-INS . UNLK-SUBGROUP) (IMMEDIATE-DEPENDENTS0 S_RN . UNLK-SUBGROUP) (IMMEDIATE-DEPENDENTS0 LINK_W-INS . UNLK-SUBGROUP) (IMMEDIATE-DEPENDENTS0 HALT . UNLK-SUBGROUP) (IMMEDIATE-DEPENDENTS0 BITN . UNLK-SUBGROUP) (IMMEDIATE-DEPENDENTS0 B0P . UNLK-SUBGROUP) (DCELL . *1*UNLK-SUBGROUP))))) (PUT1-LST (QUOTE *1*UNLK-INS) (QUOTE (MAIN-EVENT UNLK-INS))) (PUT1-LST (QUOTE UNLK-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((UNLK-INS 16 NIL NIL)) TOTALP-LST ((UNLK-INS . T)) SDEFN (LAMBDA (AN S) (IF (LONG-READP (READ-AN (L) AN S) (MC-MEM S)) (WRITE-AN (L) (LONG-READ (READ-AN (L) AN S) (MC-MEM S)) AN (WRITE-SP (ADD (L) (READ-AN (L) AN S) (LSZ)) S)) (HALT (READ-SIGNAL) S))) LISP-CODE *1*UNLK-INS SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402214824 SATELLITES (*1*UNLK-INS) IMMEDIATE-DEPENDENTS0 (UNLK-SUBGROUP) EVENT (DEFN UNLK-INS (AN S) (IF (LONG-READP (READ-AN (L) AN S) (MC-MEM S)) (WRITE-AN (L) (LONG-READ (READ-AN (L) AN S) (MC-MEM S)) AN (WRITE-SP (ADD (L) (READ-AN (L) AN S) (LSZ)) S)) (HALT (READ-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-SIGNAL . UNLK-INS) (IMMEDIATE-DEPENDENTS0 HALT . UNLK-INS) (IMMEDIATE-DEPENDENTS0 LSZ . UNLK-INS) (IMMEDIATE-DEPENDENTS0 ADD . UNLK-INS) (IMMEDIATE-DEPENDENTS0 WRITE-SP . UNLK-INS) (IMMEDIATE-DEPENDENTS0 LONG-READ . UNLK-INS) (IMMEDIATE-DEPENDENTS0 WRITE-AN . UNLK-INS) (IMMEDIATE-DEPENDENTS0 MC-MEM . UNLK-INS) (IMMEDIATE-DEPENDENTS0 L . UNLK-INS) (IMMEDIATE-DEPENDENTS0 READ-AN . UNLK-INS) (IMMEDIATE-DEPENDENTS0 LONG-READP . UNLK-INS) (DCELL . *1*UNLK-INS))))) (PUT1-LST (QUOTE *1*LINK_W-INS) (QUOTE (MAIN-EVENT LINK_W-INS))) (PUT1-LST (QUOTE LINK_W-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((LINK_W-INS 16 NIL NIL)) TOTALP-LST ((LINK_W-INS . T)) SDEFN (LAMBDA (AN S) (IF (PC-WORD-READP (MC-PC S) (MC-MEM S)) (LINK-MAPPING AN (EXT (W) (PC-WORD-READ (MC-PC S) (MC-MEM S)) (L)) (UPDATE-PC (ADD (L) (MC-PC S) (WSZ)) S)) (HALT (PC-SIGNAL) S))) LISP-CODE *1*LINK_W-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*LINK_W-INS) IMMEDIATE-DEPENDENTS0 (UNLK-SUBGROUP) EVENT (DEFN LINK_W-INS (AN S) (IF (PC-WORD-READP (MC-PC S) (MC-MEM S)) (LINK-MAPPING AN (EXT (W) (PC-WORD-READ (MC-PC S) (MC-MEM S)) (L)) (UPDATE-PC (ADD (L) (MC-PC S) (WSZ)) S)) (HALT (PC-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-SIGNAL . LINK_W-INS) (IMMEDIATE-DEPENDENTS0 HALT . LINK_W-INS) (IMMEDIATE-DEPENDENTS0 WSZ . LINK_W-INS) (IMMEDIATE-DEPENDENTS0 ADD . LINK_W-INS) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . LINK_W-INS) (IMMEDIATE-DEPENDENTS0 L . LINK_W-INS) (IMMEDIATE-DEPENDENTS0 PC-WORD-READ . LINK_W-INS) (IMMEDIATE-DEPENDENTS0 W . LINK_W-INS) (IMMEDIATE-DEPENDENTS0 EXT . LINK_W-INS) (IMMEDIATE-DEPENDENTS0 LINK-MAPPING . LINK_W-INS) (IMMEDIATE-DEPENDENTS0 MC-MEM . LINK_W-INS) (IMMEDIATE-DEPENDENTS0 MC-PC . LINK_W-INS) (IMMEDIATE-DEPENDENTS0 PC-WORD-READP . LINK_W-INS) (DCELL . *1*LINK_W-INS))))) (PUT1-LST (QUOTE *1*LINK_L-INS) (QUOTE (MAIN-EVENT LINK_L-INS))) (PUT1-LST (QUOTE LINK_L-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((LINK_L-INS 16 NIL NIL)) TOTALP-LST ((LINK_L-INS . T)) SDEFN (LAMBDA (AN S) (IF (PC-LONG-READP (MC-PC S) (MC-MEM S)) (LINK-MAPPING AN (PC-LONG-READ (MC-PC S) (MC-MEM S)) (UPDATE-PC (ADD (L) (MC-PC S) (LSZ)) S)) (HALT (PC-SIGNAL) S))) LISP-CODE *1*LINK_L-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*LINK_L-INS) IMMEDIATE-DEPENDENTS0 (MISC-GROUP) EVENT (DEFN LINK_L-INS (AN S) (IF (PC-LONG-READP (MC-PC S) (MC-MEM S)) (LINK-MAPPING AN (PC-LONG-READ (MC-PC S) (MC-MEM S)) (UPDATE-PC (ADD (L) (MC-PC S) (LSZ)) S)) (HALT (PC-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-SIGNAL . LINK_L-INS) (IMMEDIATE-DEPENDENTS0 HALT . LINK_L-INS) (IMMEDIATE-DEPENDENTS0 LSZ . LINK_L-INS) (IMMEDIATE-DEPENDENTS0 L . LINK_L-INS) (IMMEDIATE-DEPENDENTS0 ADD . LINK_L-INS) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . LINK_L-INS) (IMMEDIATE-DEPENDENTS0 PC-LONG-READ . LINK_L-INS) (IMMEDIATE-DEPENDENTS0 LINK-MAPPING . LINK_L-INS) (IMMEDIATE-DEPENDENTS0 MC-MEM . LINK_L-INS) (IMMEDIATE-DEPENDENTS0 MC-PC . LINK_L-INS) (IMMEDIATE-DEPENDENTS0 PC-LONG-READP . LINK_L-INS) (DCELL . *1*LINK_L-INS))))) (PUT1-LST (QUOTE *1*LINK-MAPPING) (QUOTE (MAIN-EVENT LINK-MAPPING))) (PUT1-LST (QUOTE LINK-MAPPING) (QUOTE (TYPE-PRESCRIPTION-LST ((LINK-MAPPING 16 NIL NIL NIL)) TOTALP-LST ((LINK-MAPPING . T)) SDEFN (LAMBDA (AN DISP S) (IF (WRITE-MEMP (SUB (L) (LSZ) (READ-SP S)) (MC-MEM S) (LSZ)) (UPDATE-MEM (WRITE-MEM (READ-AN (L) AN S) (SUB (L) (LSZ) (READ-SP S)) (MC-MEM S) (LSZ)) (WRITE-SP (ADD (L) (SUB (L) (LSZ) (READ-SP S)) DISP) (WRITE-AN (L) (SUB (L) (LSZ) (READ-SP S)) AN S))) (HALT (WRITE-SIGNAL) S))) LISP-CODE *1*LINK-MAPPING SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402214824 SATELLITES (*1*LINK-MAPPING) IMMEDIATE-DEPENDENTS0 (LINK_W-INS LINK_L-INS) EVENT (DEFN LINK-MAPPING (AN DISP S) (IF (WRITE-MEMP (SUB (L) (LSZ) (READ-SP S)) (MC-MEM S) (LSZ)) (UPDATE-MEM (WRITE-MEM (READ-AN (L) AN S) (SUB (L) (LSZ) (READ-SP S)) (MC-MEM S) (LSZ)) (WRITE-SP (ADD (L) (SUB (L) (LSZ) (READ-SP S)) DISP) (WRITE-AN (L) (SUB (L) (LSZ) (READ-SP S)) AN S))) (HALT (WRITE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-SIGNAL . LINK-MAPPING) (IMMEDIATE-DEPENDENTS0 HALT . LINK-MAPPING) (IMMEDIATE-DEPENDENTS0 WRITE-AN . LINK-MAPPING) (IMMEDIATE-DEPENDENTS0 ADD . LINK-MAPPING) (IMMEDIATE-DEPENDENTS0 WRITE-SP . LINK-MAPPING) (IMMEDIATE-DEPENDENTS0 READ-AN . LINK-MAPPING) (IMMEDIATE-DEPENDENTS0 WRITE-MEM . LINK-MAPPING) (IMMEDIATE-DEPENDENTS0 UPDATE-MEM . LINK-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-MEM . LINK-MAPPING) (IMMEDIATE-DEPENDENTS0 READ-SP . LINK-MAPPING) (IMMEDIATE-DEPENDENTS0 LSZ . LINK-MAPPING) (IMMEDIATE-DEPENDENTS0 L . LINK-MAPPING) (IMMEDIATE-DEPENDENTS0 SUB . LINK-MAPPING) (IMMEDIATE-DEPENDENTS0 WRITE-MEMP . LINK-MAPPING) (DCELL . *1*LINK-MAPPING))))) (PUT1-LST (QUOTE *1*MOVEM-EA-RN-SUBGROUP) (QUOTE (MAIN-EVENT MOVEM-EA-RN-SUBGROUP))) (PUT1-LST (QUOTE MOVEM-EA-RN-SUBGROUP) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVEM-EA-RN-SUBGROUP -1 NIL NIL)) TOTALP-LST ((MOVEM-EA-RN-SUBGROUP . T)) SDEFN (LAMBDA (INS S) (IF (PC-WORD-READP (MC-PC S) (MC-MEM S)) (IF (B0P (BITN INS (QUOTE 7))) (MUL-DIV_L-INS (PC-WORD-READ (MC-PC S) (MC-MEM S)) INS (UPDATE-PC (ADD (L) (MC-PC S) (WSZ)) S)) (IF (B0P (BITN INS (QUOTE 6))) (MOVEM-EA-RN-INS (PC-WORD-READ (MC-PC S) (MC-MEM S)) (W) INS (UPDATE-PC (ADD (L) (MC-PC S) (WSZ)) S)) (MOVEM-EA-RN-INS (PC-WORD-READ (MC-PC S) (MC-MEM S)) (L) INS (UPDATE-PC (ADD (L) (MC-PC S) (WSZ)) S)))) (HALT (PC-SIGNAL) S))) LISP-CODE *1*MOVEM-EA-RN-SUBGROUP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*MOVEM-EA-RN-SUBGROUP) IMMEDIATE-DEPENDENTS0 (MISC-GROUP) EVENT (DEFN MOVEM-EA-RN-SUBGROUP (INS S) (IF (PC-WORD-READP (MC-PC S) (MC-MEM S)) (IF (B0P (BITN INS (QUOTE 7))) (MUL-DIV_L-INS (PC-WORD-READ (MC-PC S) (MC-MEM S)) INS (UPDATE-PC (ADD (L) (MC-PC S) (WSZ)) S)) (MOVEM-EA-RN-INS (PC-WORD-READ (MC-PC S) (MC-MEM S)) (IF (B0P (BITN INS (QUOTE 6))) (W) (L)) INS (UPDATE-PC (ADD (L) (MC-PC S) (WSZ)) S))) (HALT (PC-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-SIGNAL . MOVEM-EA-RN-SUBGROUP) (IMMEDIATE-DEPENDENTS0 HALT . MOVEM-EA-RN-SUBGROUP) (IMMEDIATE-DEPENDENTS0 W . MOVEM-EA-RN-SUBGROUP) (IMMEDIATE-DEPENDENTS0 MOVEM-EA-RN-INS . MOVEM-EA-RN-SUBGROUP) (IMMEDIATE-DEPENDENTS0 WSZ . MOVEM-EA-RN-SUBGROUP) (IMMEDIATE-DEPENDENTS0 L . MOVEM-EA-RN-SUBGROUP) (IMMEDIATE-DEPENDENTS0 ADD . MOVEM-EA-RN-SUBGROUP) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . MOVEM-EA-RN-SUBGROUP) (IMMEDIATE-DEPENDENTS0 PC-WORD-READ . MOVEM-EA-RN-SUBGROUP) (IMMEDIATE-DEPENDENTS0 MUL-DIV_L-INS . MOVEM-EA-RN-SUBGROUP) (IMMEDIATE-DEPENDENTS0 BITN . MOVEM-EA-RN-SUBGROUP) (IMMEDIATE-DEPENDENTS0 B0P . MOVEM-EA-RN-SUBGROUP) (IMMEDIATE-DEPENDENTS0 MC-MEM . MOVEM-EA-RN-SUBGROUP) (IMMEDIATE-DEPENDENTS0 MC-PC . MOVEM-EA-RN-SUBGROUP) (IMMEDIATE-DEPENDENTS0 PC-WORD-READP . MOVEM-EA-RN-SUBGROUP) (DCELL . *1*MOVEM-EA-RN-SUBGROUP))))) (PUT1-LST (QUOTE *1*MOVEM-EA-RN-INS) (QUOTE (MAIN-EVENT MOVEM-EA-RN-INS))) (PUT1-LST (QUOTE MOVEM-EA-RN-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVEM-EA-RN-INS -1 NIL NIL NIL NIL)) TOTALP-LST ((MOVEM-EA-RN-INS . T)) SDEFN (LAMBDA (MASK OPLEN INS S) (IF (POSTINC-MODEP (S_MODE INS)) (IF (READMP MASK OPLEN (READ-AN (L) (S_RN INS) S) (MC-MEM S)) (WRITE-AN (L) (ADD (L) (READ-AN (L) (S_RN INS) S) (TIMES (OP-SZ OPLEN) (MOVEM-LEN MASK))) (S_RN INS) (UPDATE-RFILE (WRITEM-RN OPLEN (READM-MEM (OP-SZ OPLEN) (READ-AN (L) (S_RN INS) S) (MC-MEM S) (MOVEM-LEN MASK)) (MOVEM-RNLST MASK (QUOTE 0)) (MC-RFILE S)) S)) (HALT (READ-SIGNAL) S)) (IF (MOVEM-EA-RN-ADDR-MODEP INS) (IF (MC-HALTP (CAR (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S))) (CAR (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S)) (IF (READMP MASK OPLEN (CDR (CDR (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S))) (MC-MEM S)) (UPDATE-RFILE (WRITEM-RN OPLEN (READM-MEM (OP-SZ OPLEN) (CDR (CDR (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S))) (MC-MEM S) (MOVEM-LEN MASK)) (MOVEM-RNLST MASK (QUOTE 0)) (MC-RFILE S)) (CAR (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S))) (HALT (READ-SIGNAL) S))) (HALT (MODE-SIGNAL) S)))) LISP-CODE *1*MOVEM-EA-RN-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*MOVEM-EA-RN-INS) IMMEDIATE-DEPENDENTS0 (MOVEM-EA-RN-SUBGROUP) EVENT (DEFN MOVEM-EA-RN-INS (MASK OPLEN INS S) (IF (POSTINC-MODEP (S_MODE INS)) (IF (READMP MASK OPLEN (READ-AN (L) (S_RN INS) S) (MC-MEM S)) (WRITE-AN (L) (ADD (L) (READ-AN (L) (S_RN INS) S) (TIMES (OP-SZ OPLEN) (MOVEM-LEN MASK))) (S_RN INS) (UPDATE-RFILE (WRITEM-RN OPLEN (READM-MEM (OP-SZ OPLEN) (READ-AN (L) (S_RN INS) S) (MC-MEM S) (MOVEM-LEN MASK)) (MOVEM-RNLST MASK (QUOTE 0)) (MC-RFILE S)) S)) (HALT (READ-SIGNAL) S)) (IF (MOVEM-EA-RN-ADDR-MODEP INS) (IF (MC-HALTP (CAR (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S))) (CAR (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S)) (IF (READMP MASK OPLEN (CDR (CDR (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S))) (MC-MEM S)) (UPDATE-RFILE (WRITEM-RN OPLEN (READM-MEM (OP-SZ OPLEN) (CDR (CDR (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S))) (MC-MEM S) (MOVEM-LEN MASK)) (MOVEM-RNLST MASK (QUOTE 0)) (MC-RFILE S)) (CAR (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S))) (HALT (READ-SIGNAL) S))) (HALT (MODE-SIGNAL) S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . MOVEM-EA-RN-INS) (IMMEDIATE-DEPENDENTS0 EFFEC-ADDR . MOVEM-EA-RN-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . MOVEM-EA-RN-INS) (IMMEDIATE-DEPENDENTS0 MOVEM-EA-RN-ADDR-MODEP . MOVEM-EA-RN-INS) (IMMEDIATE-DEPENDENTS0 READ-SIGNAL . MOVEM-EA-RN-INS) (IMMEDIATE-DEPENDENTS0 HALT . MOVEM-EA-RN-INS) (IMMEDIATE-DEPENDENTS0 MC-RFILE . MOVEM-EA-RN-INS) (IMMEDIATE-DEPENDENTS0 MOVEM-RNLST . MOVEM-EA-RN-INS) (IMMEDIATE-DEPENDENTS0 READM-MEM . MOVEM-EA-RN-INS) (IMMEDIATE-DEPENDENTS0 WRITEM-RN . MOVEM-EA-RN-INS) (IMMEDIATE-DEPENDENTS0 UPDATE-RFILE . MOVEM-EA-RN-INS) (IMMEDIATE-DEPENDENTS0 MOVEM-LEN . MOVEM-EA-RN-INS) (IMMEDIATE-DEPENDENTS0 OP-SZ . MOVEM-EA-RN-INS) (IMMEDIATE-DEPENDENTS0 ADD . MOVEM-EA-RN-INS) (IMMEDIATE-DEPENDENTS0 WRITE-AN . MOVEM-EA-RN-INS) (IMMEDIATE-DEPENDENTS0 MC-MEM . MOVEM-EA-RN-INS) (IMMEDIATE-DEPENDENTS0 S_RN . MOVEM-EA-RN-INS) (IMMEDIATE-DEPENDENTS0 L . MOVEM-EA-RN-INS) (IMMEDIATE-DEPENDENTS0 READ-AN . MOVEM-EA-RN-INS) (IMMEDIATE-DEPENDENTS0 READMP . MOVEM-EA-RN-INS) (IMMEDIATE-DEPENDENTS0 S_MODE . MOVEM-EA-RN-INS) (IMMEDIATE-DEPENDENTS0 POSTINC-MODEP . MOVEM-EA-RN-INS) (DCELL . *1*MOVEM-EA-RN-INS))))) (PUT1-LST (QUOTE *1*READMP) (QUOTE (MAIN-EVENT READMP))) (PUT1-LST (QUOTE READMP) (QUOTE (TYPE-PRESCRIPTION-LST ((READMP 3 NIL NIL NIL NIL)) TOTALP-LST ((READMP . T)) SDEFN (LAMBDA (MASK OPLEN ADDR MEM) (READ-MEMP ADDR MEM (TIMES (OP-SZ OPLEN) (MOVEM-LEN MASK)))) LISP-CODE *1*READMP SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402214824 SATELLITES (*1*READMP) IMMEDIATE-DEPENDENTS0 (MOVEM-EA-RN-INS) EVENT (DEFN READMP (MASK OPLEN ADDR MEM) (READ-MEMP ADDR MEM (TIMES (OP-SZ OPLEN) (MOVEM-LEN MASK)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MOVEM-LEN . READMP) (IMMEDIATE-DEPENDENTS0 OP-SZ . READMP) (IMMEDIATE-DEPENDENTS0 READ-MEMP . READMP) (DCELL . *1*READMP))))) (PUT1-LST (QUOTE *1*MOVEM-EA-RN-ADDR-MODEP) (QUOTE (MAIN-EVENT MOVEM-EA-RN-ADDR-MODEP))) (PUT1-LST (QUOTE MOVEM-EA-RN-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVEM-EA-RN-ADDR-MODEP 3 NIL)) TOTALP-LST ((MOVEM-EA-RN-ADDR-MODEP . T)) SDEFN (LAMBDA (INS) (CONTROL-ADDR-MODEP (S_MODE INS) (S_RN INS))) LISP-CODE *1*MOVEM-EA-RN-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MOVEM-EA-RN-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (MOVEM-EA-RN-INS) EVENT (DEFN MOVEM-EA-RN-ADDR-MODEP (INS) (CONTROL-ADDR-MODEP (S_MODE INS) (S_RN INS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S_RN . MOVEM-EA-RN-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . MOVEM-EA-RN-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 CONTROL-ADDR-MODEP . MOVEM-EA-RN-ADDR-MODEP) (DCELL . *1*MOVEM-EA-RN-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*MUL-DIV_L-INS) (QUOTE (MAIN-EVENT MUL-DIV_L-INS))) (PUT1-LST (QUOTE MUL-DIV_L-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((MUL-DIV_L-INS -1 NIL NIL NIL)) TOTALP-LST ((MUL-DIV_L-INS . T)) SDEFN (LAMBDA (WORD INS S) (IF (B0P (BITN WORD (QUOTE 15))) (IF (EQUAL (BITS WORD (QUOTE 3) (QUOTE 9)) (QUOTE 0)) (IF (MUL&DIV-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (L) INS S))) (CAR (MC-INSTATE (L) INS S)) (IF (B0P (BITN INS (QUOTE 6))) (MUL_L-INS (OPERAND (L) (CDR (MC-INSTATE (L) INS S)) (CAR (MC-INSTATE (L) INS S))) WORD (CAR (MC-INSTATE (L) INS S))) (DIV_L-INS (OPERAND (L) (CDR (MC-INSTATE (L) INS S)) (CAR (MC-INSTATE (L) INS S))) WORD (CAR (MC-INSTATE (L) INS S))))) (HALT (MODE-SIGNAL) S)) (HALT (RESERVED-SIGNAL) S)) (HALT (RESERVED-SIGNAL) S))) LISP-CODE *1*MUL-DIV_L-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*MUL-DIV_L-INS) IMMEDIATE-DEPENDENTS0 (MOVEM-EA-RN-SUBGROUP) EVENT (DEFN MUL-DIV_L-INS (WORD INS S) (IF (AND (B0P (BITN WORD (QUOTE 15))) (EQUAL (BITS WORD (QUOTE 3) (QUOTE 9)) (QUOTE 0))) (IF (MUL&DIV-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (L) INS S))) (CAR (MC-INSTATE (L) INS S)) (IF (B0P (BITN INS (QUOTE 6))) (MUL_L-INS (OPERAND (L) (CDR (MC-INSTATE (L) INS S)) (CAR (MC-INSTATE (L) INS S))) WORD (CAR (MC-INSTATE (L) INS S))) (DIV_L-INS (OPERAND (L) (CDR (MC-INSTATE (L) INS S)) (CAR (MC-INSTATE (L) INS S))) WORD (CAR (MC-INSTATE (L) INS S))))) (HALT (MODE-SIGNAL) S)) (HALT (RESERVED-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RESERVED-SIGNAL . MUL-DIV_L-INS) (IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . MUL-DIV_L-INS) (IMMEDIATE-DEPENDENTS0 HALT . MUL-DIV_L-INS) (IMMEDIATE-DEPENDENTS0 DIV_L-INS . MUL-DIV_L-INS) (IMMEDIATE-DEPENDENTS0 OPERAND . MUL-DIV_L-INS) (IMMEDIATE-DEPENDENTS0 MUL_L-INS . MUL-DIV_L-INS) (IMMEDIATE-DEPENDENTS0 L . MUL-DIV_L-INS) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . MUL-DIV_L-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . MUL-DIV_L-INS) (IMMEDIATE-DEPENDENTS0 MUL&DIV-ADDR-MODEP . MUL-DIV_L-INS) (IMMEDIATE-DEPENDENTS0 BITS . MUL-DIV_L-INS) (IMMEDIATE-DEPENDENTS0 BITN . MUL-DIV_L-INS) (IMMEDIATE-DEPENDENTS0 B0P . MUL-DIV_L-INS) (DCELL . *1*MUL-DIV_L-INS))))) (PUT1-LST (QUOTE *1*MUL_L-INS) (QUOTE (MAIN-EVENT MUL_L-INS))) (PUT1-LST (QUOTE MUL_L-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((MUL_L-INS 16 NIL NIL NIL)) TOTALP-LST ((MUL_L-INS . T)) SDEFN (LAMBDA (SOPD WORD S) (IF (B0P (BITN WORD (QUOTE 11))) (IF (B0P (BITN WORD (QUOTE 10))) (MULU_L_DL SOPD (READ-DN (L) (DL WORD) S) (DL WORD) S) (MULU_L_DLDH SOPD (READ-DN (L) (DL WORD) S) (DL WORD) (DH WORD) S)) (IF (B0P (BITN WORD (QUOTE 10))) (MULS_L_DL SOPD (READ-DN (L) (DL WORD) S) (DL WORD) S) (MULS_L_DLDH SOPD (READ-DN (L) (DL WORD) S) (DL WORD) (DH WORD) S)))) LISP-CODE *1*MUL_L-INS SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MUL_L-INS) IMMEDIATE-DEPENDENTS0 (MUL-DIV_L-INS) EVENT (DEFN MUL_L-INS (SOPD WORD S) (IF (B0P (BITN WORD (QUOTE 11))) (IF (B0P (BITN WORD (QUOTE 10))) (MULU_L_DL SOPD (READ-DN (L) (DL WORD) S) (DL WORD) S) (MULU_L_DLDH SOPD (READ-DN (L) (DL WORD) S) (DL WORD) (DH WORD) S)) (IF (B0P (BITN WORD (QUOTE 10))) (MULS_L_DL SOPD (READ-DN (L) (DL WORD) S) (DL WORD) S) (MULS_L_DLDH SOPD (READ-DN (L) (DL WORD) S) (DL WORD) (DH WORD) S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MULS_L_DLDH . MUL_L-INS) (IMMEDIATE-DEPENDENTS0 MULS_L_DL . MUL_L-INS) (IMMEDIATE-DEPENDENTS0 DH . MUL_L-INS) (IMMEDIATE-DEPENDENTS0 MULU_L_DLDH . MUL_L-INS) (IMMEDIATE-DEPENDENTS0 DL . MUL_L-INS) (IMMEDIATE-DEPENDENTS0 L . MUL_L-INS) (IMMEDIATE-DEPENDENTS0 READ-DN . MUL_L-INS) (IMMEDIATE-DEPENDENTS0 MULU_L_DL . MUL_L-INS) (IMMEDIATE-DEPENDENTS0 BITN . MUL_L-INS) (IMMEDIATE-DEPENDENTS0 B0P . MUL_L-INS) (DCELL . *1*MUL_L-INS))))) (PUT1-LST (QUOTE *1*DH) (QUOTE (MAIN-EVENT DH))) (PUT1-LST (QUOTE DH) (QUOTE (TYPE-PRESCRIPTION-LST ((DH 4 NIL)) TOTALP-LST ((DH . T)) SDEFN (LAMBDA (WORD) (BITS WORD (QUOTE 0) (QUOTE 2))) LISP-CODE *1*DH SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*DH) IMMEDIATE-DEPENDENTS0 (MUL_L-INS) EVENT (DEFN DH (WORD) (BITS WORD (QUOTE 0) (QUOTE 2))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITS . DH) (DCELL . *1*DH))))) (PUT1-LST (QUOTE *1*DL) (QUOTE (MAIN-EVENT DL))) (PUT1-LST (QUOTE DL) (QUOTE (TYPE-PRESCRIPTION-LST ((DL 4 NIL)) TOTALP-LST ((DL . T)) SDEFN (LAMBDA (WORD) (BITS WORD (QUOTE 12) (QUOTE 14))) LISP-CODE *1*DL SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*DL) IMMEDIATE-DEPENDENTS0 (MUL_L-INS) EVENT (DEFN DL (WORD) (BITS WORD (QUOTE 12) (QUOTE 14))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITS . DL) (DCELL . *1*DL))))) (PUT1-LST (QUOTE *1*MULS_L_DLDH) (QUOTE (MAIN-EVENT MULS_L_DLDH))) (PUT1-LST (QUOTE MULS_L_DLDH) (QUOTE (TYPE-PRESCRIPTION-LST ((MULS_L_DLDH 16 NIL NIL NIL NIL NIL)) TOTALP-LST ((MULS_L_DLDH . T)) SDEFN (LAMBDA (SOPD DOPD DL DH S) (IF (EQUAL DL DH) (HALT (QUOTE MC-UNDEFINED) S) (UPDATE-CCR (MULS-CVZNX (Q) SOPD DOPD (L) (MC-CCR S)) (WRITE-DN (L) (TAIL (MULS (Q) SOPD DOPD (L)) (L)) DH (WRITE-DN (L) (HEAD (MULS (Q) SOPD DOPD (L)) (L)) DL S))))) LISP-CODE *1*MULS_L_DLDH SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MULS_L_DLDH) IMMEDIATE-DEPENDENTS0 (MUL_L-INS) EVENT (DEFN MULS_L_DLDH (SOPD DOPD DL DH S) (IF (EQUAL DL DH) (HALT (QUOTE MC-UNDEFINED) S) (UPDATE-CCR (MULS-CVZNX (Q) SOPD DOPD (L) (MC-CCR S)) (WRITE-DN (L) (TAIL (MULS (Q) SOPD DOPD (L)) (L)) DH (WRITE-DN (L) (HEAD (MULS (Q) SOPD DOPD (L)) (L)) DL S))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD . MULS_L_DLDH) (IMMEDIATE-DEPENDENTS0 MULS . MULS_L_DLDH) (IMMEDIATE-DEPENDENTS0 TAIL . MULS_L_DLDH) (IMMEDIATE-DEPENDENTS0 WRITE-DN . MULS_L_DLDH) (IMMEDIATE-DEPENDENTS0 MC-CCR . MULS_L_DLDH) (IMMEDIATE-DEPENDENTS0 L . MULS_L_DLDH) (IMMEDIATE-DEPENDENTS0 Q . MULS_L_DLDH) (IMMEDIATE-DEPENDENTS0 MULS-CVZNX . MULS_L_DLDH) (IMMEDIATE-DEPENDENTS0 UPDATE-CCR . MULS_L_DLDH) (IMMEDIATE-DEPENDENTS0 HALT . MULS_L_DLDH) (DCELL . *1*MULS_L_DLDH))))) (PUT1-LST (QUOTE *1*MULS_L_DL) (QUOTE (MAIN-EVENT MULS_L_DL))) (PUT1-LST (QUOTE MULS_L_DL) (QUOTE (TYPE-PRESCRIPTION-LST ((MULS_L_DL 16 NIL NIL NIL NIL)) TOTALP-LST ((MULS_L_DL . T)) SDEFN (LAMBDA (SOPD DOPD DL S) (UPDATE-CCR (MULS-CVZNX (L) SOPD DOPD (L) (MC-CCR S)) (WRITE-DN (L) (MULS (L) SOPD DOPD (L)) DL S))) LISP-CODE *1*MULS_L_DL SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MULS_L_DL) IMMEDIATE-DEPENDENTS0 (MUL_L-INS) EVENT (DEFN MULS_L_DL (SOPD DOPD DL S) (UPDATE-CCR (MULS-CVZNX (L) SOPD DOPD (L) (MC-CCR S)) (WRITE-DN (L) (MULS (L) SOPD DOPD (L)) DL S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MULS . MULS_L_DL) (IMMEDIATE-DEPENDENTS0 WRITE-DN . MULS_L_DL) (IMMEDIATE-DEPENDENTS0 MC-CCR . MULS_L_DL) (IMMEDIATE-DEPENDENTS0 L . MULS_L_DL) (IMMEDIATE-DEPENDENTS0 MULS-CVZNX . MULS_L_DL) (IMMEDIATE-DEPENDENTS0 UPDATE-CCR . MULS_L_DL) (DCELL . *1*MULS_L_DL))))) (PUT1-LST (QUOTE *1*MULU_L_DLDH) (QUOTE (MAIN-EVENT MULU_L_DLDH))) (PUT1-LST (QUOTE MULU_L_DLDH) (QUOTE (TYPE-PRESCRIPTION-LST ((MULU_L_DLDH 16 NIL NIL NIL NIL NIL)) TOTALP-LST ((MULU_L_DLDH . T)) SDEFN (LAMBDA (SOPD DOPD DL DH S) (IF (EQUAL DL DH) (HALT (QUOTE MC-UNDEFINED) S) (UPDATE-CCR (MULU-CVZNX (Q) SOPD DOPD (L) (MC-CCR S)) (WRITE-DN (L) (TAIL (MULU (Q) SOPD DOPD (L)) (L)) DH (WRITE-DN (L) (HEAD (MULU (Q) SOPD DOPD (L)) (L)) DL S))))) LISP-CODE *1*MULU_L_DLDH SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MULU_L_DLDH) IMMEDIATE-DEPENDENTS0 (MUL_L-INS) EVENT (DEFN MULU_L_DLDH (SOPD DOPD DL DH S) (IF (EQUAL DL DH) (HALT (QUOTE MC-UNDEFINED) S) (UPDATE-CCR (MULU-CVZNX (Q) SOPD DOPD (L) (MC-CCR S)) (WRITE-DN (L) (TAIL (MULU (Q) SOPD DOPD (L)) (L)) DH (WRITE-DN (L) (HEAD (MULU (Q) SOPD DOPD (L)) (L)) DL S))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD . MULU_L_DLDH) (IMMEDIATE-DEPENDENTS0 MULU . MULU_L_DLDH) (IMMEDIATE-DEPENDENTS0 TAIL . MULU_L_DLDH) (IMMEDIATE-DEPENDENTS0 WRITE-DN . MULU_L_DLDH) (IMMEDIATE-DEPENDENTS0 MC-CCR . MULU_L_DLDH) (IMMEDIATE-DEPENDENTS0 L . MULU_L_DLDH) (IMMEDIATE-DEPENDENTS0 Q . MULU_L_DLDH) (IMMEDIATE-DEPENDENTS0 MULU-CVZNX . MULU_L_DLDH) (IMMEDIATE-DEPENDENTS0 UPDATE-CCR . MULU_L_DLDH) (IMMEDIATE-DEPENDENTS0 HALT . MULU_L_DLDH) (DCELL . *1*MULU_L_DLDH))))) (PUT1-LST (QUOTE *1*MULU_L_DL) (QUOTE (MAIN-EVENT MULU_L_DL))) (PUT1-LST (QUOTE MULU_L_DL) (QUOTE (TYPE-PRESCRIPTION-LST ((MULU_L_DL 16 NIL NIL NIL NIL)) TOTALP-LST ((MULU_L_DL . T)) SDEFN (LAMBDA (SOPD DOPD DL S) (UPDATE-CCR (MULU-CVZNX (L) SOPD DOPD (L) (MC-CCR S)) (WRITE-DN (L) (MULU (L) SOPD DOPD (L)) DL S))) LISP-CODE *1*MULU_L_DL SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MULU_L_DL) IMMEDIATE-DEPENDENTS0 (MUL_L-INS) EVENT (DEFN MULU_L_DL (SOPD DOPD DL S) (UPDATE-CCR (MULU-CVZNX (L) SOPD DOPD (L) (MC-CCR S)) (WRITE-DN (L) (MULU (L) SOPD DOPD (L)) DL S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MULU . MULU_L_DL) (IMMEDIATE-DEPENDENTS0 WRITE-DN . MULU_L_DL) (IMMEDIATE-DEPENDENTS0 MC-CCR . MULU_L_DL) (IMMEDIATE-DEPENDENTS0 L . MULU_L_DL) (IMMEDIATE-DEPENDENTS0 MULU-CVZNX . MULU_L_DL) (IMMEDIATE-DEPENDENTS0 UPDATE-CCR . MULU_L_DL) (DCELL . *1*MULU_L_DL))))) (PUT1-LST (QUOTE *1*DIV_L-INS) (QUOTE (MAIN-EVENT DIV_L-INS))) (PUT1-LST (QUOTE DIV_L-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((DIV_L-INS 16 NIL NIL NIL)) TOTALP-LST ((DIV_L-INS . T)) SDEFN (LAMBDA (SOPD WORD S) (IF (B0P (BITN WORD (QUOTE 11))) (IF (EQUAL (NAT-TO-UINT SOPD) (QUOTE 0)) (HALT (QUOTE TRAP-EXCEPTION) S) (IF (B0P (BITN WORD (QUOTE 10))) (DIVUL_L SOPD (READ-DN (L) (DQ WORD) S) (DQ WORD) (DR WORD) S) (DIVU_L SOPD (READ-DN (L) (DQ WORD) S) (DQ WORD) (DR WORD) S))) (IF (EQUAL (NAT-TO-INT SOPD (L)) (QUOTE 0)) (HALT (QUOTE TRAP-EXCEPTION) S) (IF (B0P (BITN WORD (QUOTE 10))) (DIVSL_L SOPD (READ-DN (L) (DQ WORD) S) (DQ WORD) (DR WORD) S) (DIVS_L SOPD (READ-DN (L) (DQ WORD) S) (DQ WORD) (DR WORD) S))))) LISP-CODE *1*DIV_L-INS SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*DIV_L-INS) IMMEDIATE-DEPENDENTS0 (MUL-DIV_L-INS) EVENT (DEFN DIV_L-INS (SOPD WORD S) (IF (B0P (BITN WORD (QUOTE 11))) (IF (EQUAL (NAT-TO-UINT SOPD) (QUOTE 0)) (HALT (QUOTE TRAP-EXCEPTION) S) (IF (B0P (BITN WORD (QUOTE 10))) (DIVUL_L SOPD (READ-DN (L) (DQ WORD) S) (DQ WORD) (DR WORD) S) (DIVU_L SOPD (READ-DN (L) (DQ WORD) S) (DQ WORD) (DR WORD) S))) (IF (EQUAL (NAT-TO-INT SOPD (L)) (QUOTE 0)) (HALT (QUOTE TRAP-EXCEPTION) S) (IF (B0P (BITN WORD (QUOTE 10))) (DIVSL_L SOPD (READ-DN (L) (DQ WORD) S) (DQ WORD) (DR WORD) S) (DIVS_L SOPD (READ-DN (L) (DQ WORD) S) (DQ WORD) (DR WORD) S))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIVS_L . DIV_L-INS) (IMMEDIATE-DEPENDENTS0 DIVSL_L . DIV_L-INS) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . DIV_L-INS) (IMMEDIATE-DEPENDENTS0 DIVU_L . DIV_L-INS) (IMMEDIATE-DEPENDENTS0 DR . DIV_L-INS) (IMMEDIATE-DEPENDENTS0 DQ . DIV_L-INS) (IMMEDIATE-DEPENDENTS0 L . DIV_L-INS) (IMMEDIATE-DEPENDENTS0 READ-DN . DIV_L-INS) (IMMEDIATE-DEPENDENTS0 DIVUL_L . DIV_L-INS) (IMMEDIATE-DEPENDENTS0 HALT . DIV_L-INS) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . DIV_L-INS) (IMMEDIATE-DEPENDENTS0 BITN . DIV_L-INS) (IMMEDIATE-DEPENDENTS0 B0P . DIV_L-INS) (DCELL . *1*DIV_L-INS))))) (PUT1-LST (QUOTE *1*DR) (QUOTE (MAIN-EVENT DR))) (PUT1-LST (QUOTE DR) (QUOTE (TYPE-PRESCRIPTION-LST ((DR 4 NIL)) TOTALP-LST ((DR . T)) SDEFN (LAMBDA (WORD) (BITS WORD (QUOTE 0) (QUOTE 2))) LISP-CODE *1*DR SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*DR) IMMEDIATE-DEPENDENTS0 (DIV_L-INS) EVENT (DEFN DR (WORD) (BITS WORD (QUOTE 0) (QUOTE 2))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITS . DR) (DCELL . *1*DR))))) (PUT1-LST (QUOTE *1*DQ) (QUOTE (MAIN-EVENT DQ))) (PUT1-LST (QUOTE DQ) (QUOTE (TYPE-PRESCRIPTION-LST ((DQ 4 NIL)) TOTALP-LST ((DQ . T)) SDEFN (LAMBDA (WORD) (BITS WORD (QUOTE 12) (QUOTE 14))) LISP-CODE *1*DQ SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*DQ) IMMEDIATE-DEPENDENTS0 (DIV_L-INS) EVENT (DEFN DQ (WORD) (BITS WORD (QUOTE 12) (QUOTE 14))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITS . DQ) (DCELL . *1*DQ))))) (PUT1-LST (QUOTE *1*DIVU_L) (QUOTE (MAIN-EVENT DIVU_L))) (PUT1-LST (QUOTE DIVU_L) (QUOTE (TYPE-PRESCRIPTION-LST ((DIVU_L 16 NIL NIL NIL NIL NIL)) TOTALP-LST ((DIVU_L . T)) SDEFN (LAMBDA (SOPD DOPD_LOW DQ DR S) (IF (B0P (DIVU-V (L) SOPD (APP (L) DOPD_LOW (READ-DN (L) DR S)))) (UPDATE-CCR (DIVU-CVZNX (L) SOPD (APP (L) DOPD_LOW (READ-DN (L) DR S)) (MC-CCR S)) (WRITE-DN (L) (QUOT (L) SOPD (APP (L) DOPD_LOW (READ-DN (L) DR S))) DQ (WRITE-DN (L) (REM (L) SOPD (APP (L) DOPD_LOW (READ-DN (L) DR S))) DR S))) (HALT (QUOTE DIVU-OVERFLOW) (UPDATE-CCR (SET-V (B1) (MC-CCR S)) S)))) LISP-CODE *1*DIVU_L SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*DIVU_L) IMMEDIATE-DEPENDENTS0 (DIV_L-INS) EVENT (DEFN DIVU_L (SOPD DOPD_LOW DQ DR S) (IF (B0P (DIVU-V (L) SOPD (APP (L) DOPD_LOW (READ-DN (L) DR S)))) (UPDATE-CCR (DIVU-CVZNX (L) SOPD (APP (L) DOPD_LOW (READ-DN (L) DR S)) (MC-CCR S)) (WRITE-DN (L) (QUOT (L) SOPD (APP (L) DOPD_LOW (READ-DN (L) DR S))) DQ (WRITE-DN (L) (REM (L) SOPD (APP (L) DOPD_LOW (READ-DN (L) DR S))) DR S))) (HALT (QUOTE DIVU-OVERFLOW) (UPDATE-CCR (SET-V (B1) (MC-CCR S)) S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B1 . DIVU_L) (IMMEDIATE-DEPENDENTS0 SET-V . DIVU_L) (IMMEDIATE-DEPENDENTS0 HALT . DIVU_L) (IMMEDIATE-DEPENDENTS0 REM . DIVU_L) (IMMEDIATE-DEPENDENTS0 QUOT . DIVU_L) (IMMEDIATE-DEPENDENTS0 WRITE-DN . DIVU_L) (IMMEDIATE-DEPENDENTS0 MC-CCR . DIVU_L) (IMMEDIATE-DEPENDENTS0 DIVU-CVZNX . DIVU_L) (IMMEDIATE-DEPENDENTS0 UPDATE-CCR . DIVU_L) (IMMEDIATE-DEPENDENTS0 READ-DN . DIVU_L) (IMMEDIATE-DEPENDENTS0 APP . DIVU_L) (IMMEDIATE-DEPENDENTS0 L . DIVU_L) (IMMEDIATE-DEPENDENTS0 DIVU-V . DIVU_L) (IMMEDIATE-DEPENDENTS0 B0P . DIVU_L) (DCELL . *1*DIVU_L))))) (PUT1-LST (QUOTE *1*DIVUL_L) (QUOTE (MAIN-EVENT DIVUL_L))) (PUT1-LST (QUOTE DIVUL_L) (QUOTE (TYPE-PRESCRIPTION-LST ((DIVUL_L 16 NIL NIL NIL NIL NIL)) TOTALP-LST ((DIVUL_L . T)) SDEFN (LAMBDA (SOPD DOPD DQ DR S) (UPDATE-CCR (DIVU-CVZNX (L) SOPD DOPD (MC-CCR S)) (WRITE-DN (L) (QUOT (L) SOPD DOPD) DQ (WRITE-DN (L) (REM (L) SOPD DOPD) DR S)))) LISP-CODE *1*DIVUL_L SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*DIVUL_L) IMMEDIATE-DEPENDENTS0 (DIV_L-INS) EVENT (DEFN DIVUL_L (SOPD DOPD DQ DR S) (UPDATE-CCR (DIVU-CVZNX (L) SOPD DOPD (MC-CCR S)) (WRITE-DN (L) (QUOT (L) SOPD DOPD) DQ (WRITE-DN (L) (REM (L) SOPD DOPD) DR S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REM . DIVUL_L) (IMMEDIATE-DEPENDENTS0 QUOT . DIVUL_L) (IMMEDIATE-DEPENDENTS0 WRITE-DN . DIVUL_L) (IMMEDIATE-DEPENDENTS0 MC-CCR . DIVUL_L) (IMMEDIATE-DEPENDENTS0 L . DIVUL_L) (IMMEDIATE-DEPENDENTS0 DIVU-CVZNX . DIVUL_L) (IMMEDIATE-DEPENDENTS0 UPDATE-CCR . DIVUL_L) (DCELL . *1*DIVUL_L))))) (PUT1-LST (QUOTE *1*DIVS_L) (QUOTE (MAIN-EVENT DIVS_L))) (PUT1-LST (QUOTE DIVS_L) (QUOTE (TYPE-PRESCRIPTION-LST ((DIVS_L 16 NIL NIL NIL NIL NIL)) TOTALP-LST ((DIVS_L . T)) SDEFN (LAMBDA (SOPD DOPD_LOW DQ DR S) (IF (B0P (DIVS-V (L) SOPD (L) (APP (L) DOPD_LOW (READ-DN (L) DR S)) (Q))) (UPDATE-CCR (DIVS-CVZNX (L) SOPD (L) (APP (L) DOPD_LOW (READ-DN (L) DR S)) (Q) (MC-CCR S)) (WRITE-DN (L) (IQUOT (L) SOPD (L) (APP (L) DOPD_LOW (READ-DN (L) DR S)) (Q)) DQ (WRITE-DN (L) (IREM (L) SOPD (L) (APP (L) DOPD_LOW (READ-DN (L) DR S)) (Q)) DR S))) (HALT (QUOTE DIVS-OVERFLOW) (UPDATE-CCR (SET-V (B1) (MC-CCR S)) S)))) LISP-CODE *1*DIVS_L SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*DIVS_L) IMMEDIATE-DEPENDENTS0 (DIV_L-INS) EVENT (DEFN DIVS_L (SOPD DOPD_LOW DQ DR S) (IF (B0P (DIVS-V (L) SOPD (L) (APP (L) DOPD_LOW (READ-DN (L) DR S)) (Q))) (UPDATE-CCR (DIVS-CVZNX (L) SOPD (L) (APP (L) DOPD_LOW (READ-DN (L) DR S)) (Q) (MC-CCR S)) (WRITE-DN (L) (IQUOT (L) SOPD (L) (APP (L) DOPD_LOW (READ-DN (L) DR S)) (Q)) DQ (WRITE-DN (L) (IREM (L) SOPD (L) (APP (L) DOPD_LOW (READ-DN (L) DR S)) (Q)) DR S))) (HALT (QUOTE DIVS-OVERFLOW) (UPDATE-CCR (SET-V (B1) (MC-CCR S)) S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B1 . DIVS_L) (IMMEDIATE-DEPENDENTS0 SET-V . DIVS_L) (IMMEDIATE-DEPENDENTS0 HALT . DIVS_L) (IMMEDIATE-DEPENDENTS0 IREM . DIVS_L) (IMMEDIATE-DEPENDENTS0 IQUOT . DIVS_L) (IMMEDIATE-DEPENDENTS0 WRITE-DN . DIVS_L) (IMMEDIATE-DEPENDENTS0 MC-CCR . DIVS_L) (IMMEDIATE-DEPENDENTS0 DIVS-CVZNX . DIVS_L) (IMMEDIATE-DEPENDENTS0 UPDATE-CCR . DIVS_L) (IMMEDIATE-DEPENDENTS0 Q . DIVS_L) (IMMEDIATE-DEPENDENTS0 READ-DN . DIVS_L) (IMMEDIATE-DEPENDENTS0 APP . DIVS_L) (IMMEDIATE-DEPENDENTS0 L . DIVS_L) (IMMEDIATE-DEPENDENTS0 DIVS-V . DIVS_L) (IMMEDIATE-DEPENDENTS0 B0P . DIVS_L) (DCELL . *1*DIVS_L))))) (PUT1-LST (QUOTE *1*DIVSL_L) (QUOTE (MAIN-EVENT DIVSL_L))) (PUT1-LST (QUOTE DIVSL_L) (QUOTE (TYPE-PRESCRIPTION-LST ((DIVSL_L 16 NIL NIL NIL NIL NIL)) TOTALP-LST ((DIVSL_L . T)) SDEFN (LAMBDA (SOPD DOPD DQ DR S) (IF (B0P (DIVS-V (L) SOPD (L) DOPD (L))) (UPDATE-CCR (DIVS-CVZNX (L) SOPD (L) DOPD (L) (MC-CCR S)) (WRITE-DN (L) (IQUOT (L) SOPD (L) DOPD (L)) DQ (WRITE-DN (L) (IREM (L) SOPD (L) DOPD (L)) DR S))) (HALT (QUOTE DIVS-OVERFLOW) (UPDATE-CCR (SET-V (B1) (MC-CCR S)) S)))) LISP-CODE *1*DIVSL_L SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*DIVSL_L) IMMEDIATE-DEPENDENTS0 (DIV_L-INS) EVENT (DEFN DIVSL_L (SOPD DOPD DQ DR S) (IF (B0P (DIVS-V (L) SOPD (L) DOPD (L))) (UPDATE-CCR (DIVS-CVZNX (L) SOPD (L) DOPD (L) (MC-CCR S)) (WRITE-DN (L) (IQUOT (L) SOPD (L) DOPD (L)) DQ (WRITE-DN (L) (IREM (L) SOPD (L) DOPD (L)) DR S))) (HALT (QUOTE DIVS-OVERFLOW) (UPDATE-CCR (SET-V (B1) (MC-CCR S)) S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B1 . DIVSL_L) (IMMEDIATE-DEPENDENTS0 SET-V . DIVSL_L) (IMMEDIATE-DEPENDENTS0 HALT . DIVSL_L) (IMMEDIATE-DEPENDENTS0 IREM . DIVSL_L) (IMMEDIATE-DEPENDENTS0 IQUOT . DIVSL_L) (IMMEDIATE-DEPENDENTS0 WRITE-DN . DIVSL_L) (IMMEDIATE-DEPENDENTS0 MC-CCR . DIVSL_L) (IMMEDIATE-DEPENDENTS0 DIVS-CVZNX . DIVSL_L) (IMMEDIATE-DEPENDENTS0 UPDATE-CCR . DIVSL_L) (IMMEDIATE-DEPENDENTS0 L . DIVSL_L) (IMMEDIATE-DEPENDENTS0 DIVS-V . DIVSL_L) (IMMEDIATE-DEPENDENTS0 B0P . DIVSL_L) (DCELL . *1*DIVSL_L))))) (PUT1-LST (QUOTE *1*TST-SUBGROUP) (QUOTE (MAIN-EVENT TST-SUBGROUP))) (PUT1-LST (QUOTE TST-SUBGROUP) (QUOTE (TYPE-PRESCRIPTION-LST ((TST-SUBGROUP -1 NIL NIL)) TOTALP-LST ((TST-SUBGROUP . T)) SDEFN (LAMBDA (INS S) (IF (EQUAL (OP-LEN INS) (Q)) (IF (EQUAL (HEAD INS (QUOTE 6)) (QUOTE 60)) (HALT (QUOTE ILLEGAL-UNSPECIFIED) S) (TAS-INS INS S)) (TST-INS (OP-LEN INS) INS S))) LISP-CODE *1*TST-SUBGROUP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*TST-SUBGROUP) IMMEDIATE-DEPENDENTS0 (MISC-GROUP) EVENT (DEFN TST-SUBGROUP (INS S) (IF (EQUAL (OP-LEN INS) (Q)) (IF (EQUAL (HEAD INS (QUOTE 6)) (QUOTE 60)) (HALT (QUOTE ILLEGAL-UNSPECIFIED) S) (TAS-INS INS S)) (TST-INS (OP-LEN INS) INS S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TST-INS . TST-SUBGROUP) (IMMEDIATE-DEPENDENTS0 TAS-INS . TST-SUBGROUP) (IMMEDIATE-DEPENDENTS0 HALT . TST-SUBGROUP) (IMMEDIATE-DEPENDENTS0 HEAD . TST-SUBGROUP) (IMMEDIATE-DEPENDENTS0 Q . TST-SUBGROUP) (IMMEDIATE-DEPENDENTS0 OP-LEN . TST-SUBGROUP) (DCELL . *1*TST-SUBGROUP))))) (PUT1-LST (QUOTE *1*TAS-INS) (QUOTE (MAIN-EVENT TAS-INS))) (PUT1-LST (QUOTE TAS-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((TAS-INS -1 NIL NIL)) TOTALP-LST ((TAS-INS . T)) SDEFN (LAMBDA (INS S) (IF (TAS-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (B) INS S))) (CAR (MC-INSTATE (B) INS S)) (MAPPING (B) (TAS-EFFECT (OPERAND (B) (CDR (MC-INSTATE (B) INS S)) S) (MC-CCR S)) (MC-INSTATE (B) INS S))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*TAS-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*TAS-INS) IMMEDIATE-DEPENDENTS0 (TST-SUBGROUP) EVENT (DEFN TAS-INS (INS S) (IF (TAS-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (B) INS S))) (CAR (MC-INSTATE (B) INS S)) (MAPPING (B) (TAS-EFFECT (OPERAND (B) (CDR (MC-INSTATE (B) INS S)) S) (MC-CCR S)) (MC-INSTATE (B) INS S))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . TAS-INS) (IMMEDIATE-DEPENDENTS0 HALT . TAS-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . TAS-INS) (IMMEDIATE-DEPENDENTS0 OPERAND . TAS-INS) (IMMEDIATE-DEPENDENTS0 TAS-EFFECT . TAS-INS) (IMMEDIATE-DEPENDENTS0 MAPPING . TAS-INS) (IMMEDIATE-DEPENDENTS0 B . TAS-INS) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . TAS-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . TAS-INS) (IMMEDIATE-DEPENDENTS0 TAS-ADDR-MODEP . TAS-INS) (DCELL . *1*TAS-INS))))) (PUT1-LST (QUOTE *1*TAS-EFFECT) (QUOTE (MAIN-EVENT TAS-EFFECT))) (PUT1-LST (QUOTE TAS-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((TAS-EFFECT 16 NIL NIL)) TOTALP-LST ((TAS-EFFECT . T)) SDEFN (LAMBDA (OPD CCR) (CONS (SETN OPD (QUOTE 7) (B1)) (MOVE-CVZNX (B) OPD CCR))) LISP-CODE *1*TAS-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*TAS-EFFECT) IMMEDIATE-DEPENDENTS0 (TAS-INS) EVENT (DEFN TAS-EFFECT (OPD CCR) (CONS (SETN OPD (QUOTE 7) (B1)) (MOVE-CVZNX (B) OPD CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B . TAS-EFFECT) (IMMEDIATE-DEPENDENTS0 MOVE-CVZNX . TAS-EFFECT) (IMMEDIATE-DEPENDENTS0 B1 . TAS-EFFECT) (IMMEDIATE-DEPENDENTS0 SETN . TAS-EFFECT) (DCELL . *1*TAS-EFFECT))))) (PUT1-LST (QUOTE *1*TAS-ADDR-MODEP) (QUOTE (MAIN-EVENT TAS-ADDR-MODEP))) (PUT1-LST (QUOTE TAS-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((TAS-ADDR-MODEP 3 NIL)) TOTALP-LST ((TAS-ADDR-MODEP . T)) SDEFN (LAMBDA (INS) (IF (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)) (QUOTE *1*FALSE))) LISP-CODE *1*TAS-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*TAS-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (TAS-INS) EVENT (DEFN TAS-ADDR-MODEP (INS) (AND (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALTERABLE-ADDR-MODEP . TAS-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_RN . TAS-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . TAS-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 DATA-ADDR-MODEP . TAS-ADDR-MODEP) (DCELL . *1*TAS-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*TST-INS) (QUOTE (MAIN-EVENT TST-INS))) (PUT1-LST (QUOTE TST-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((TST-INS -1 NIL NIL NIL)) TOTALP-LST ((TST-INS . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (TST-ADDR-MODEP OPLEN INS) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (UPDATE-CCR (MOVE-CVZNX OPLEN (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (MC-CCR S)) (CAR (MC-INSTATE OPLEN INS S)))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*TST-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*TST-INS) IMMEDIATE-DEPENDENTS0 (TST-SUBGROUP) EVENT (DEFN TST-INS (OPLEN INS S) (IF (TST-ADDR-MODEP OPLEN INS) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (UPDATE-CCR (MOVE-CVZNX OPLEN (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (MC-CCR S)) (CAR (MC-INSTATE OPLEN INS S)))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . TST-INS) (IMMEDIATE-DEPENDENTS0 HALT . TST-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . TST-INS) (IMMEDIATE-DEPENDENTS0 OPERAND . TST-INS) (IMMEDIATE-DEPENDENTS0 MOVE-CVZNX . TST-INS) (IMMEDIATE-DEPENDENTS0 UPDATE-CCR . TST-INS) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . TST-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . TST-INS) (IMMEDIATE-DEPENDENTS0 TST-ADDR-MODEP . TST-INS) (DCELL . *1*TST-INS))))) (PUT1-LST (QUOTE *1*TST-ADDR-MODEP) (QUOTE (MAIN-EVENT TST-ADDR-MODEP))) (PUT1-LST (QUOTE TST-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((TST-ADDR-MODEP 3 NIL NIL)) TOTALP-LST ((TST-ADDR-MODEP . T)) SDEFN (LAMBDA (OPLEN INS) (IF (EQUAL OPLEN (B)) (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ADDR-MODEP (S_MODE INS) (S_RN INS)))) LISP-CODE *1*TST-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*TST-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (TST-INS) EVENT (DEFN TST-ADDR-MODEP (OPLEN INS) (IF (EQUAL OPLEN (B)) (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ADDR-MODEP (S_MODE INS) (S_RN INS)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADDR-MODEP . TST-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_RN . TST-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . TST-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 DATA-ADDR-MODEP . TST-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 B . TST-ADDR-MODEP) (DCELL . *1*TST-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*EXT-SUBGROUP) (QUOTE (MAIN-EVENT EXT-SUBGROUP))) (PUT1-LST (QUOTE EXT-SUBGROUP) (QUOTE (TYPE-PRESCRIPTION-LST ((EXT-SUBGROUP -1 NIL NIL)) TOTALP-LST ((EXT-SUBGROUP . T)) SDEFN (LAMBDA (INS S) (IF (EQUAL (S_MODE INS) (QUOTE 0)) (EXT-INS INS S) (IF (PC-WORD-READP (MC-PC S) (MC-MEM S)) (IF (B0P (BITN INS (QUOTE 6))) (MOVEM-RN-EA-INS (PC-WORD-READ (MC-PC S) (MC-MEM S)) (W) INS (UPDATE-PC (ADD (L) (MC-PC S) (WSZ)) S)) (MOVEM-RN-EA-INS (PC-WORD-READ (MC-PC S) (MC-MEM S)) (L) INS (UPDATE-PC (ADD (L) (MC-PC S) (WSZ)) S))) (HALT (PC-SIGNAL) S)))) LISP-CODE *1*EXT-SUBGROUP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*EXT-SUBGROUP) IMMEDIATE-DEPENDENTS0 (MISC-GROUP) EVENT (DEFN EXT-SUBGROUP (INS S) (IF (EQUAL (S_MODE INS) (QUOTE 0)) (EXT-INS INS S) (IF (PC-WORD-READP (MC-PC S) (MC-MEM S)) (MOVEM-RN-EA-INS (PC-WORD-READ (MC-PC S) (MC-MEM S)) (IF (B0P (BITN INS (QUOTE 6))) (W) (L)) INS (UPDATE-PC (ADD (L) (MC-PC S) (WSZ)) S)) (HALT (PC-SIGNAL) S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-SIGNAL . EXT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 HALT . EXT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 WSZ . EXT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 ADD . EXT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . EXT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 L . EXT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 W . EXT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 BITN . EXT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 B0P . EXT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 PC-WORD-READ . EXT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 MOVEM-RN-EA-INS . EXT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 MC-MEM . EXT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 MC-PC . EXT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 PC-WORD-READP . EXT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 EXT-INS . EXT-SUBGROUP) (IMMEDIATE-DEPENDENTS0 S_MODE . EXT-SUBGROUP) (DCELL . *1*EXT-SUBGROUP))))) (PUT1-LST (QUOTE *1*MOVEM-RN-EA-INS) (QUOTE (MAIN-EVENT MOVEM-RN-EA-INS))) (PUT1-LST (QUOTE MOVEM-RN-EA-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVEM-RN-EA-INS -1 NIL NIL NIL NIL)) TOTALP-LST ((MOVEM-RN-EA-INS . T)) SDEFN (LAMBDA (MASK OPLEN INS S) (IF (PREDEC-MODEP (S_MODE INS)) (IF (WRITEMP MASK OPLEN (CDR (CDR (MOVEM-PREDEC MASK OPLEN (S_RN INS) S))) (MC-MEM S)) (WRITE-AN (L) (CDR (CDR (MOVEM-PREDEC MASK OPLEN (S_RN INS) S))) (S_RN INS) (UPDATE-MEM (WRITEM-MEM (OP-SZ OPLEN) (READM-RN OPLEN (MOVEM-PRE-RNLST MASK (QUOTE 15) (QUOTE NIL)) (MC-RFILE (CAR (MOVEM-PREDEC MASK OPLEN (S_RN INS) S)))) (CDR (CDR (MOVEM-PREDEC MASK OPLEN (S_RN INS) S))) (MC-MEM S)) (CAR (MOVEM-PREDEC MASK OPLEN (S_RN INS) S)))) (HALT (WRITE-SIGNAL) S)) (IF (MOVEM-RN-EA-ADDR-MODEP INS) (IF (MC-HALTP (CAR (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S))) (CAR (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S)) (IF (WRITEMP MASK OPLEN (CDR (CDR (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S))) (MC-MEM S)) (UPDATE-MEM (WRITEM-MEM (OP-SZ OPLEN) (READM-RN OPLEN (MOVEM-RNLST MASK (QUOTE 0)) (MC-RFILE S)) (CDR (CDR (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S))) (MC-MEM S)) (CAR (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S))) (HALT (WRITE-SIGNAL) S))) (HALT (MODE-SIGNAL) S)))) LISP-CODE *1*MOVEM-RN-EA-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*MOVEM-RN-EA-INS) IMMEDIATE-DEPENDENTS0 (EXT-SUBGROUP) EVENT (DEFN MOVEM-RN-EA-INS (MASK OPLEN INS S) (IF (PREDEC-MODEP (S_MODE INS)) (IF (WRITEMP MASK OPLEN (CDR (CDR (MOVEM-PREDEC MASK OPLEN (S_RN INS) S))) (MC-MEM S)) (WRITE-AN (L) (CDR (CDR (MOVEM-PREDEC MASK OPLEN (S_RN INS) S))) (S_RN INS) (UPDATE-MEM (WRITEM-MEM (OP-SZ OPLEN) (READM-RN OPLEN (MOVEM-PRE-RNLST MASK (QUOTE 15) (QUOTE NIL)) (MC-RFILE (CAR (MOVEM-PREDEC MASK OPLEN (S_RN INS) S)))) (CDR (CDR (MOVEM-PREDEC MASK OPLEN (S_RN INS) S))) (MC-MEM S)) (CAR (MOVEM-PREDEC MASK OPLEN (S_RN INS) S)))) (HALT (WRITE-SIGNAL) S)) (IF (MOVEM-RN-EA-ADDR-MODEP INS) (IF (MC-HALTP (CAR (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S))) (CAR (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S)) (IF (WRITEMP MASK OPLEN (CDR (CDR (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S))) (MC-MEM S)) (UPDATE-MEM (WRITEM-MEM (OP-SZ OPLEN) (READM-RN OPLEN (MOVEM-RNLST MASK (QUOTE 0)) (MC-RFILE S)) (CDR (CDR (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S))) (MC-MEM S)) (CAR (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S))) (HALT (WRITE-SIGNAL) S))) (HALT (MODE-SIGNAL) S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . MOVEM-RN-EA-INS) (IMMEDIATE-DEPENDENTS0 MOVEM-RNLST . MOVEM-RN-EA-INS) (IMMEDIATE-DEPENDENTS0 EFFEC-ADDR . MOVEM-RN-EA-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . MOVEM-RN-EA-INS) (IMMEDIATE-DEPENDENTS0 MOVEM-RN-EA-ADDR-MODEP . MOVEM-RN-EA-INS) (IMMEDIATE-DEPENDENTS0 WRITE-SIGNAL . MOVEM-RN-EA-INS) (IMMEDIATE-DEPENDENTS0 HALT . MOVEM-RN-EA-INS) (IMMEDIATE-DEPENDENTS0 MC-RFILE . MOVEM-RN-EA-INS) (IMMEDIATE-DEPENDENTS0 MOVEM-PRE-RNLST . MOVEM-RN-EA-INS) (IMMEDIATE-DEPENDENTS0 READM-RN . MOVEM-RN-EA-INS) (IMMEDIATE-DEPENDENTS0 OP-SZ . MOVEM-RN-EA-INS) (IMMEDIATE-DEPENDENTS0 WRITEM-MEM . MOVEM-RN-EA-INS) (IMMEDIATE-DEPENDENTS0 UPDATE-MEM . MOVEM-RN-EA-INS) (IMMEDIATE-DEPENDENTS0 L . MOVEM-RN-EA-INS) (IMMEDIATE-DEPENDENTS0 WRITE-AN . MOVEM-RN-EA-INS) (IMMEDIATE-DEPENDENTS0 MC-MEM . MOVEM-RN-EA-INS) (IMMEDIATE-DEPENDENTS0 S_RN . MOVEM-RN-EA-INS) (IMMEDIATE-DEPENDENTS0 MOVEM-PREDEC . MOVEM-RN-EA-INS) (IMMEDIATE-DEPENDENTS0 WRITEMP . MOVEM-RN-EA-INS) (IMMEDIATE-DEPENDENTS0 S_MODE . MOVEM-RN-EA-INS) (IMMEDIATE-DEPENDENTS0 PREDEC-MODEP . MOVEM-RN-EA-INS) (DCELL . *1*MOVEM-RN-EA-INS))))) (PUT1-LST (QUOTE *1*MOVEM-RN-EA-ADDR-MODEP) (QUOTE (MAIN-EVENT MOVEM-RN-EA-ADDR-MODEP))) (PUT1-LST (QUOTE MOVEM-RN-EA-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVEM-RN-EA-ADDR-MODEP 3 NIL)) TOTALP-LST ((MOVEM-RN-EA-ADDR-MODEP . T)) SDEFN (LAMBDA (INS) (IF (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)) (CONTROL-ADDR-MODEP (S_MODE INS) (S_RN INS)) (QUOTE *1*FALSE))) LISP-CODE *1*MOVEM-RN-EA-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MOVEM-RN-EA-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (MOVEM-RN-EA-INS) EVENT (DEFN MOVEM-RN-EA-ADDR-MODEP (INS) (AND (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)) (CONTROL-ADDR-MODEP (S_MODE INS) (S_RN INS)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CONTROL-ADDR-MODEP . MOVEM-RN-EA-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_RN . MOVEM-RN-EA-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . MOVEM-RN-EA-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 ALTERABLE-ADDR-MODEP . MOVEM-RN-EA-ADDR-MODEP) (DCELL . *1*MOVEM-RN-EA-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*MOVEM-PREDEC) (QUOTE (MAIN-EVENT MOVEM-PREDEC))) (PUT1-LST (QUOTE MOVEM-PREDEC) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVEM-PREDEC 16 NIL NIL NIL NIL)) TOTALP-LST ((MOVEM-PREDEC . T)) SDEFN (LAMBDA (MASK OPLEN RN S) (CONS (WRITE-AN (L) (PRE-EFFECT OPLEN RN (READ-AN (L) RN S)) RN S) (CONS (QUOTE M) (SUB (L) (TIMES (OP-SZ OPLEN) (MOVEM-LEN MASK)) (READ-AN (L) RN S))))) LISP-CODE *1*MOVEM-PREDEC SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MOVEM-PREDEC) IMMEDIATE-DEPENDENTS0 (MOVEM-RN-EA-INS) EVENT (DEFN MOVEM-PREDEC (MASK OPLEN RN S) (CONS (WRITE-AN (L) (PRE-EFFECT OPLEN RN (READ-AN (L) RN S)) RN S) (CONS (QUOTE M) (SUB (L) (TIMES (OP-SZ OPLEN) (MOVEM-LEN MASK)) (READ-AN (L) RN S))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MOVEM-LEN . MOVEM-PREDEC) (IMMEDIATE-DEPENDENTS0 OP-SZ . MOVEM-PREDEC) (IMMEDIATE-DEPENDENTS0 SUB . MOVEM-PREDEC) (IMMEDIATE-DEPENDENTS0 READ-AN . MOVEM-PREDEC) (IMMEDIATE-DEPENDENTS0 PRE-EFFECT . MOVEM-PREDEC) (IMMEDIATE-DEPENDENTS0 L . MOVEM-PREDEC) (IMMEDIATE-DEPENDENTS0 WRITE-AN . MOVEM-PREDEC) (DCELL . *1*MOVEM-PREDEC))))) (PUT1-LST (QUOTE *1*MOVEM-PRE-RNLST) (QUOTE (MAIN-EVENT MOVEM-PRE-RNLST))) (PUT1-LST (QUOTE MOVEM-PRE-RNLST) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVEM-PRE-RNLST 16 NIL NIL T)) TOTALP-LST ((MOVEM-PRE-RNLST . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE QUESTIONABLE) SDEFN (LAMBDA (MASK I LST) (IF (EQUAL MASK (QUOTE 0)) LST (IF (NUMBERP MASK) (IF (B0P (BCAR MASK)) (MOVEM-PRE-RNLST (BCDR MASK) (SUB1 I) LST) (MOVEM-PRE-RNLST (BCDR MASK) (SUB1 I) (CONS I LST))) LST))) LISP-CODE *1*MOVEM-PRE-RNLST SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP MASK)) NIL) (TESTS-AND-CASES ((NOT (ZEROP MASK)) (B0P (BCAR MASK))) (((BCDR MASK) (SUB1 I) LST))) (TESTS-AND-CASES ((NOT (ZEROP MASK)) (NOT (B0P (BCAR MASK)))) (((BCDR MASK) (SUB1 I) (CONS I LST))))) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (MASK) (COUNT MASK) LESSP (ZEROP BCAR B0 B0P BCDR COUNT-NUMBERP EQUAL NUMBERP ZERO TIMES-LESSP QUOTIENT-TIMES-LESSP))) IDATE 1000402214824 CONTROLLER-POCKETS (1) SATELLITES (*1*MOVEM-PRE-RNLST) IMMEDIATE-DEPENDENTS0 (MOVEM-RN-EA-INS) EVENT (DEFN MOVEM-PRE-RNLST (MASK I LST) (IF (ZEROP MASK) LST (IF (B0P (BCAR MASK)) (MOVEM-PRE-RNLST (BCDR MASK) (SUB1 I) LST) (MOVEM-PRE-RNLST (BCDR MASK) (SUB1 I) (CONS I LST))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BCAR . MOVEM-PRE-RNLST) (IMMEDIATE-DEPENDENTS0 B0 . MOVEM-PRE-RNLST) (IMMEDIATE-DEPENDENTS0 B0P . MOVEM-PRE-RNLST) (IMMEDIATE-DEPENDENTS0 BCDR . MOVEM-PRE-RNLST) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP . MOVEM-PRE-RNLST) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-LESSP . MOVEM-PRE-RNLST) (DCELL . *1*MOVEM-PRE-RNLST))))) (PUT1-LST (QUOTE *1*WRITEMP) (QUOTE (MAIN-EVENT WRITEMP))) (PUT1-LST (QUOTE WRITEMP) (QUOTE (TYPE-PRESCRIPTION-LST ((WRITEMP 3 NIL NIL NIL NIL)) TOTALP-LST ((WRITEMP . T)) SDEFN (LAMBDA (MASK OPLEN ADDR MEM) (WRITE-MEMP ADDR MEM (TIMES (OP-SZ OPLEN) (MOVEM-LEN MASK)))) LISP-CODE *1*WRITEMP SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402214824 SATELLITES (*1*WRITEMP) IMMEDIATE-DEPENDENTS0 (MOVEM-RN-EA-INS) EVENT (DEFN WRITEMP (MASK OPLEN ADDR MEM) (WRITE-MEMP ADDR MEM (TIMES (OP-SZ OPLEN) (MOVEM-LEN MASK)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MOVEM-LEN . WRITEMP) (IMMEDIATE-DEPENDENTS0 OP-SZ . WRITEMP) (IMMEDIATE-DEPENDENTS0 WRITE-MEMP . WRITEMP) (DCELL . *1*WRITEMP))))) (PUT1-LST (QUOTE *1*MOVEM-LEN) (QUOTE (MAIN-EVENT MOVEM-LEN))) (PUT1-LST (QUOTE MOVEM-LEN) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVEM-LEN 4 NIL)) TOTALP-LST ((MOVEM-LEN . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (MASK) (IF (EQUAL MASK (QUOTE 0)) (QUOTE 0) (IF (NUMBERP MASK) (IF (B0P (BCAR MASK)) (MOVEM-LEN (BCDR MASK)) (ADD1 (MOVEM-LEN (BCDR MASK)))) (QUOTE 0)))) LISP-CODE *1*MOVEM-LEN SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP MASK)) NIL) (TESTS-AND-CASES ((NOT (ZEROP MASK)) (B0P (BCAR MASK))) (((BCDR MASK)))) (TESTS-AND-CASES ((NOT (ZEROP MASK)) (NOT (B0P (BCAR MASK)))) (((BCDR MASK))))) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (MASK) (COUNT MASK) LESSP (ZEROP BCAR B0 B0P BCDR COUNT-NUMBERP EQUAL NUMBERP ZERO TIMES-LESSP QUOTIENT-TIMES-LESSP))) IDATE 1000402214824 CONTROLLER-POCKETS (1) SATELLITES (*1*MOVEM-LEN) IMMEDIATE-DEPENDENTS0 (MOVEM-EA-RN-INS READMP MOVEM-PREDEC WRITEMP) EVENT (DEFN MOVEM-LEN (MASK) (IF (ZEROP MASK) (QUOTE 0) (IF (B0P (BCAR MASK)) (MOVEM-LEN (BCDR MASK)) (ADD1 (MOVEM-LEN (BCDR MASK)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BCAR . MOVEM-LEN) (IMMEDIATE-DEPENDENTS0 B0 . MOVEM-LEN) (IMMEDIATE-DEPENDENTS0 B0P . MOVEM-LEN) (IMMEDIATE-DEPENDENTS0 BCDR . MOVEM-LEN) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP . MOVEM-LEN) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-LESSP . MOVEM-LEN) (DCELL . *1*MOVEM-LEN))))) (PUT1-LST (QUOTE *1*MOVEM-RNLST) (QUOTE (MAIN-EVENT MOVEM-RNLST))) (PUT1-LST (QUOTE MOVEM-RNLST) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVEM-RNLST 24 NIL NIL)) TOTALP-LST ((MOVEM-RNLST . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (MASK I) (IF (EQUAL MASK (QUOTE 0)) (QUOTE NIL) (IF (NUMBERP MASK) (IF (B0P (BCAR MASK)) (MOVEM-RNLST (BCDR MASK) (ADD1 I)) (CONS I (MOVEM-RNLST (BCDR MASK) (ADD1 I)))) (QUOTE NIL)))) LISP-CODE *1*MOVEM-RNLST SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP MASK)) NIL) (TESTS-AND-CASES ((NOT (ZEROP MASK)) (B0P (BCAR MASK))) (((BCDR MASK) (ADD1 I)))) (TESTS-AND-CASES ((NOT (ZEROP MASK)) (NOT (B0P (BCAR MASK)))) (((BCDR MASK) (ADD1 I))))) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (MASK) (COUNT MASK) LESSP (ZEROP BCAR B0 B0P BCDR COUNT-NUMBERP EQUAL NUMBERP ZERO TIMES-LESSP QUOTIENT-TIMES-LESSP))) IDATE 1000402214824 CONTROLLER-POCKETS (1) SATELLITES (*1*MOVEM-RNLST) IMMEDIATE-DEPENDENTS0 (MOVEM-EA-RN-INS MOVEM-RN-EA-INS) EVENT (DEFN MOVEM-RNLST (MASK I) (IF (ZEROP MASK) (QUOTE NIL) (IF (B0P (BCAR MASK)) (MOVEM-RNLST (BCDR MASK) (ADD1 I)) (CONS I (MOVEM-RNLST (BCDR MASK) (ADD1 I)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BCAR . MOVEM-RNLST) (IMMEDIATE-DEPENDENTS0 B0 . MOVEM-RNLST) (IMMEDIATE-DEPENDENTS0 B0P . MOVEM-RNLST) (IMMEDIATE-DEPENDENTS0 BCDR . MOVEM-RNLST) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP . MOVEM-RNLST) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-LESSP . MOVEM-RNLST) (DCELL . *1*MOVEM-RNLST))))) (PUT1-LST (QUOTE *1*WRITEM-RN) (QUOTE (MAIN-EVENT WRITEM-RN))) (PUT1-LST (QUOTE WRITEM-RN) (QUOTE (TYPE-PRESCRIPTION-LST ((WRITEM-RN 16 NIL NIL NIL T)) TOTALP-LST ((WRITEM-RN . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (OPLEN VLST RNLST RFILE) (IF (LISTP RNLST) (WRITEM-RN OPLEN (CDR VLST) (CDR RNLST) (WRITE-RN (L) (EXT OPLEN (CAR VLST) (L)) (CAR RNLST) RFILE)) RFILE)) LISP-CODE *1*WRITEM-RN SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP RNLST)) ((OPLEN (CDR VLST) (CDR RNLST) (WRITE-RN (L) (EXT OPLEN (CAR VLST) (L)) (CAR RNLST) RFILE)))) (TESTS-AND-CASES ((NOT (LISTP RNLST))) NIL)) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (RNLST) (COUNT RNLST) LESSP (ZERO CDR-LESSP))) IDATE 1000402214824 CONTROLLER-POCKETS (4) SATELLITES (*1*WRITEM-RN) IMMEDIATE-DEPENDENTS0 (MOVEM-EA-RN-INS) EVENT (DEFN WRITEM-RN (OPLEN VLST RNLST RFILE) (IF (LISTP RNLST) (WRITEM-RN OPLEN (CDR VLST) (CDR RNLST) (WRITE-RN (L) (EXT OPLEN (CAR VLST) (L)) (CAR RNLST) RFILE)) RFILE)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXT . WRITEM-RN) (IMMEDIATE-DEPENDENTS0 L . WRITEM-RN) (IMMEDIATE-DEPENDENTS0 WRITE-RN . WRITEM-RN) (DCELL . *1*WRITEM-RN))))) (PUT1-LST (QUOTE *1*READM-RN) (QUOTE (MAIN-EVENT READM-RN))) (PUT1-LST (QUOTE READM-RN) (QUOTE (TYPE-PRESCRIPTION-LST ((READM-RN 24 NIL NIL NIL)) TOTALP-LST ((READM-RN . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (OPLEN RNLST RFILE) (IF (LISTP RNLST) (CONS (READ-RN OPLEN (CAR RNLST) RFILE) (READM-RN OPLEN (CDR RNLST) RFILE)) (QUOTE NIL))) LISP-CODE *1*READM-RN SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP RNLST)) ((OPLEN (CDR RNLST) RFILE))) (TESTS-AND-CASES ((NOT (LISTP RNLST))) NIL)) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (RNLST) (COUNT RNLST) LESSP (ZERO CDR-LESSP))) IDATE 1000402214824 CONTROLLER-POCKETS (2) SATELLITES (*1*READM-RN) IMMEDIATE-DEPENDENTS0 (MOVEM-RN-EA-INS) EVENT (DEFN READM-RN (OPLEN RNLST RFILE) (IF (LISTP RNLST) (CONS (READ-RN OPLEN (CAR RNLST) RFILE) (READM-RN OPLEN (CDR RNLST) RFILE)) (QUOTE NIL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-RN . READM-RN) (DCELL . *1*READM-RN))))) (PUT1-LST (QUOTE *1*WRITEM-MEM) (QUOTE (MAIN-EVENT WRITEM-MEM))) (PUT1-LST (QUOTE WRITEM-MEM) (QUOTE (TYPE-PRESCRIPTION-LST ((WRITEM-MEM 16 NIL NIL NIL T)) TOTALP-LST ((WRITEM-MEM . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (OPSZ VLST ADDR MEM) (IF (LISTP VLST) (WRITEM-MEM OPSZ (CDR VLST) (ADD (L) ADDR OPSZ) (WRITE-MEM (CAR VLST) ADDR MEM OPSZ)) MEM)) LISP-CODE *1*WRITEM-MEM SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP VLST)) ((OPSZ (CDR VLST) (ADD (L) ADDR OPSZ) (WRITE-MEM (CAR VLST) ADDR MEM OPSZ)))) (TESTS-AND-CASES ((NOT (LISTP VLST))) NIL)) LEVEL-NO 6 JUSTIFICATIONS ((JUSTIFICATION (VLST) (COUNT VLST) LESSP (ZERO CDR-LESSP))) IDATE 1000402214824 CONTROLLER-POCKETS (2) SATELLITES (*1*WRITEM-MEM) IMMEDIATE-DEPENDENTS0 (MOVEM-RN-EA-INS) EVENT (DEFN WRITEM-MEM (OPSZ VLST ADDR MEM) (IF (LISTP VLST) (WRITEM-MEM OPSZ (CDR VLST) (ADD (L) ADDR OPSZ) (WRITE-MEM (CAR VLST) ADDR MEM OPSZ)) MEM)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-MEM . WRITEM-MEM) (IMMEDIATE-DEPENDENTS0 L . WRITEM-MEM) (IMMEDIATE-DEPENDENTS0 ADD . WRITEM-MEM) (DCELL . *1*WRITEM-MEM))))) (PUT1-LST (QUOTE *1*READM-MEM) (QUOTE (MAIN-EVENT READM-MEM))) (PUT1-LST (QUOTE READM-MEM) (QUOTE (TYPE-PRESCRIPTION-LST ((READM-MEM 24 NIL NIL NIL NIL)) TOTALP-LST ((READM-MEM . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (OPSZ ADDR MEM N) (IF (EQUAL N (QUOTE 0)) (QUOTE NIL) (IF (NUMBERP N) (CONS (READ-MEM ADDR MEM OPSZ) (READM-MEM OPSZ (ADD (L) ADDR OPSZ) MEM (SUB1 N))) (QUOTE NIL)))) LISP-CODE *1*READM-MEM SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) ((OPSZ (ADD (L) ADDR OPSZ) MEM (SUB1 N))))) LEVEL-NO 6 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402214824 CONTROLLER-POCKETS (8) SATELLITES (*1*READM-MEM) IMMEDIATE-DEPENDENTS0 (MOVEM-EA-RN-INS) EVENT (DEFN READM-MEM (OPSZ ADDR MEM N) (IF (ZEROP N) (QUOTE NIL) (CONS (READ-MEM ADDR MEM OPSZ) (READM-MEM OPSZ (ADD (L) ADDR OPSZ) MEM (SUB1 N))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 L . READM-MEM) (IMMEDIATE-DEPENDENTS0 ADD . READM-MEM) (IMMEDIATE-DEPENDENTS0 READ-MEM . READM-MEM) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . READM-MEM) (DCELL . *1*READM-MEM))))) (PUT1-LST (QUOTE *1*EXT-INS) (QUOTE (MAIN-EVENT EXT-INS))) (PUT1-LST (QUOTE EXT-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((EXT-INS 16 NIL NIL)) TOTALP-LST ((EXT-INS . T)) SDEFN (LAMBDA (INS S) (IF (B0P (BITN INS (QUOTE 6))) (D-MAPPING (W) (EXT-EFFECT (B) (READ-DN (B) (S_RN INS) S) (W) (MC-CCR S)) (S_RN INS) S) (D-MAPPING (L) (EXT-EFFECT (W) (READ-DN (W) (S_RN INS) S) (L) (MC-CCR S)) (S_RN INS) S))) LISP-CODE *1*EXT-INS SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*EXT-INS) IMMEDIATE-DEPENDENTS0 (EXT-SUBGROUP) EVENT (DEFN EXT-INS (INS S) (IF (B0P (BITN INS (QUOTE 6))) (D-MAPPING (W) (EXT-EFFECT (B) (READ-DN (B) (S_RN INS) S) (W) (MC-CCR S)) (S_RN INS) S) (D-MAPPING (L) (EXT-EFFECT (W) (READ-DN (W) (S_RN INS) S) (L) (MC-CCR S)) (S_RN INS) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 L . EXT-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . EXT-INS) (IMMEDIATE-DEPENDENTS0 S_RN . EXT-INS) (IMMEDIATE-DEPENDENTS0 READ-DN . EXT-INS) (IMMEDIATE-DEPENDENTS0 B . EXT-INS) (IMMEDIATE-DEPENDENTS0 EXT-EFFECT . EXT-INS) (IMMEDIATE-DEPENDENTS0 W . EXT-INS) (IMMEDIATE-DEPENDENTS0 D-MAPPING . EXT-INS) (IMMEDIATE-DEPENDENTS0 BITN . EXT-INS) (IMMEDIATE-DEPENDENTS0 B0P . EXT-INS) (DCELL . *1*EXT-INS))))) (PUT1-LST (QUOTE *1*PEA-SUBGROUP) (QUOTE (MAIN-EVENT PEA-SUBGROUP))) (PUT1-LST (QUOTE PEA-SUBGROUP) (QUOTE (TYPE-PRESCRIPTION-LST ((PEA-SUBGROUP -1 NIL NIL)) TOTALP-LST ((PEA-SUBGROUP . T)) SDEFN (LAMBDA (INS S) (IF (LESSP (S_MODE INS) (QUOTE 2)) (IF (EQUAL (S_MODE INS) (QUOTE 0)) (SWAP-INS INS S) (HALT (QUOTE BKPT-UNSPECIFIED) S)) (PEA-INS (S_MODE INS) INS S))) LISP-CODE *1*PEA-SUBGROUP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*PEA-SUBGROUP) IMMEDIATE-DEPENDENTS0 (MISC-GROUP) EVENT (DEFN PEA-SUBGROUP (INS S) (IF (LESSP (S_MODE INS) (QUOTE 2)) (IF (EQUAL (S_MODE INS) (QUOTE 0)) (SWAP-INS INS S) (HALT (QUOTE BKPT-UNSPECIFIED) S)) (PEA-INS (S_MODE INS) INS S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PEA-INS . PEA-SUBGROUP) (IMMEDIATE-DEPENDENTS0 HALT . PEA-SUBGROUP) (IMMEDIATE-DEPENDENTS0 SWAP-INS . PEA-SUBGROUP) (IMMEDIATE-DEPENDENTS0 S_MODE . PEA-SUBGROUP) (DCELL . *1*PEA-SUBGROUP))))) (PUT1-LST (QUOTE *1*SWAP-INS) (QUOTE (MAIN-EVENT SWAP-INS))) (PUT1-LST (QUOTE SWAP-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((SWAP-INS 16 NIL NIL)) TOTALP-LST ((SWAP-INS . T)) SDEFN (LAMBDA (INS S) (D-MAPPING (L) (SWAP-EFFECT (READ-DN (L) (S_RN INS) S) (MC-CCR S)) (S_RN INS) S)) LISP-CODE *1*SWAP-INS SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*SWAP-INS) IMMEDIATE-DEPENDENTS0 (PEA-SUBGROUP) EVENT (DEFN SWAP-INS (INS S) (D-MAPPING (L) (SWAP-EFFECT (READ-DN (L) (S_RN INS) S) (MC-CCR S)) (S_RN INS) S)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-CCR . SWAP-INS) (IMMEDIATE-DEPENDENTS0 S_RN . SWAP-INS) (IMMEDIATE-DEPENDENTS0 READ-DN . SWAP-INS) (IMMEDIATE-DEPENDENTS0 SWAP-EFFECT . SWAP-INS) (IMMEDIATE-DEPENDENTS0 L . SWAP-INS) (IMMEDIATE-DEPENDENTS0 D-MAPPING . SWAP-INS) (DCELL . *1*SWAP-INS))))) (PUT1-LST (QUOTE *1*SWAP-EFFECT) (QUOTE (MAIN-EVENT SWAP-EFFECT))) (PUT1-LST (QUOTE SWAP-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((SWAP-EFFECT 16 NIL NIL)) TOTALP-LST ((SWAP-EFFECT . T)) SDEFN (LAMBDA (OPD CCR) (CONS (APP (W) (TAIL OPD (W)) (HEAD OPD (W))) (SWAP-CVZNX OPD CCR))) LISP-CODE *1*SWAP-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*SWAP-EFFECT) IMMEDIATE-DEPENDENTS0 (SWAP-INS) EVENT (DEFN SWAP-EFFECT (OPD CCR) (CONS (APP (W) (TAIL OPD (W)) (HEAD OPD (W))) (SWAP-CVZNX OPD CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SWAP-CVZNX . SWAP-EFFECT) (IMMEDIATE-DEPENDENTS0 HEAD . SWAP-EFFECT) (IMMEDIATE-DEPENDENTS0 TAIL . SWAP-EFFECT) (IMMEDIATE-DEPENDENTS0 W . SWAP-EFFECT) (IMMEDIATE-DEPENDENTS0 APP . SWAP-EFFECT) (DCELL . *1*SWAP-EFFECT))))) (PUT1-LST (QUOTE *1*SWAP-CVZNX) (QUOTE (MAIN-EVENT SWAP-CVZNX))) (PUT1-LST (QUOTE SWAP-CVZNX) (QUOTE (TYPE-PRESCRIPTION-LST ((SWAP-CVZNX 4 NIL NIL)) TOTALP-LST ((SWAP-CVZNX . T)) SDEFN (LAMBDA (OPD CCR) (CVZNX (B0) (B0) (SWAP-Z OPD) (SWAP-N OPD) (CCR-X CCR))) LISP-CODE *1*SWAP-CVZNX SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*SWAP-CVZNX) IMMEDIATE-DEPENDENTS0 (SWAP-EFFECT) EVENT (DEFN SWAP-CVZNX (OPD CCR) (CVZNX (B0) (B0) (SWAP-Z OPD) (SWAP-N OPD) (CCR-X CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CCR-X . SWAP-CVZNX) (IMMEDIATE-DEPENDENTS0 SWAP-N . SWAP-CVZNX) (IMMEDIATE-DEPENDENTS0 SWAP-Z . SWAP-CVZNX) (IMMEDIATE-DEPENDENTS0 B0 . SWAP-CVZNX) (IMMEDIATE-DEPENDENTS0 CVZNX . SWAP-CVZNX) (DCELL . *1*SWAP-CVZNX))))) (PUT1-LST (QUOTE *1*SWAP-N) (QUOTE (MAIN-EVENT SWAP-N))) (PUT1-LST (QUOTE SWAP-N) (QUOTE (TYPE-PRESCRIPTION-LST ((SWAP-N 4 NIL)) TOTALP-LST ((SWAP-N . T)) SDEFN (LAMBDA (OPD) (BITN OPD (QUOTE 15))) LISP-CODE *1*SWAP-N SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*SWAP-N) IMMEDIATE-DEPENDENTS0 (SWAP-CVZNX) EVENT (DEFN SWAP-N (OPD) (BITN OPD (QUOTE 15))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN . SWAP-N) (DCELL . *1*SWAP-N))))) (PUT1-LST (QUOTE *1*SWAP-Z) (QUOTE (MAIN-EVENT SWAP-Z))) (PUT1-LST (QUOTE SWAP-Z) (QUOTE (TYPE-PRESCRIPTION-LST ((SWAP-Z 4 NIL)) TOTALP-LST ((SWAP-Z . T)) SDEFN (LAMBDA (OPD) (IF (NUMBERP OPD) (IF (EQUAL OPD (QUOTE 0)) (B1) (B0)) (B1))) LISP-CODE *1*SWAP-Z SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214824 SATELLITES (*1*SWAP-Z) IMMEDIATE-DEPENDENTS0 (SWAP-CVZNX) EVENT (DEFN SWAP-Z (OPD) (IF (EQUAL (FIX OPD) (QUOTE 0)) (B1) (B0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . SWAP-Z) (IMMEDIATE-DEPENDENTS0 B1 . SWAP-Z) (DCELL . *1*SWAP-Z))))) (PUT1-LST (QUOTE *1*PEA-INS) (QUOTE (MAIN-EVENT PEA-INS))) (PUT1-LST (QUOTE PEA-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((PEA-INS -1 NIL NIL NIL)) TOTALP-LST ((PEA-INS . T)) SDEFN (LAMBDA (SMODE INS S) (IF (PEA-ADDR-MODEP INS) (IF (MC-HALTP (CAR (EFFEC-ADDR (L) SMODE (S_RN INS) S))) (CAR (EFFEC-ADDR (L) SMODE (S_RN INS) S)) (PUSH-SP (LSZ) (CDR (CDR (EFFEC-ADDR (L) SMODE (S_RN INS) S))) (CAR (EFFEC-ADDR (L) SMODE (S_RN INS) S)))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*PEA-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*PEA-INS) IMMEDIATE-DEPENDENTS0 (PEA-SUBGROUP) EVENT (DEFN PEA-INS (SMODE INS S) (IF (PEA-ADDR-MODEP INS) (IF (MC-HALTP (CAR (EFFEC-ADDR (L) SMODE (S_RN INS) S))) (CAR (EFFEC-ADDR (L) SMODE (S_RN INS) S)) (PUSH-SP (LSZ) (CDR (CDR (EFFEC-ADDR (L) SMODE (S_RN INS) S))) (CAR (EFFEC-ADDR (L) SMODE (S_RN INS) S)))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . PEA-INS) (IMMEDIATE-DEPENDENTS0 HALT . PEA-INS) (IMMEDIATE-DEPENDENTS0 LSZ . PEA-INS) (IMMEDIATE-DEPENDENTS0 PUSH-SP . PEA-INS) (IMMEDIATE-DEPENDENTS0 S_RN . PEA-INS) (IMMEDIATE-DEPENDENTS0 L . PEA-INS) (IMMEDIATE-DEPENDENTS0 EFFEC-ADDR . PEA-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . PEA-INS) (IMMEDIATE-DEPENDENTS0 PEA-ADDR-MODEP . PEA-INS) (DCELL . *1*PEA-INS))))) (PUT1-LST (QUOTE *1*PEA-ADDR-MODEP) (QUOTE (MAIN-EVENT PEA-ADDR-MODEP))) (PUT1-LST (QUOTE PEA-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((PEA-ADDR-MODEP 3 NIL)) TOTALP-LST ((PEA-ADDR-MODEP . T)) SDEFN (LAMBDA (INS) (CONTROL-ADDR-MODEP (S_MODE INS) (S_RN INS))) LISP-CODE *1*PEA-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*PEA-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (PEA-INS) EVENT (DEFN PEA-ADDR-MODEP (INS) (CONTROL-ADDR-MODEP (S_MODE INS) (S_RN INS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S_RN . PEA-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . PEA-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 CONTROL-ADDR-MODEP . PEA-ADDR-MODEP) (DCELL . *1*PEA-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*NEG-SUBGROUP) (QUOTE (MAIN-EVENT NEG-SUBGROUP))) (PUT1-LST (QUOTE NEG-SUBGROUP) (QUOTE (TYPE-PRESCRIPTION-LST ((NEG-SUBGROUP -1 NIL NIL)) TOTALP-LST ((NEG-SUBGROUP . T)) SDEFN (LAMBDA (INS S) (IF (EQUAL (OP-LEN INS) (Q)) (MOVE-TO-CCR-INS INS S) (NEG-INS (OP-LEN INS) INS S))) LISP-CODE *1*NEG-SUBGROUP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*NEG-SUBGROUP) IMMEDIATE-DEPENDENTS0 (MISC-GROUP) EVENT (DEFN NEG-SUBGROUP (INS S) (IF (EQUAL (OP-LEN INS) (Q)) (MOVE-TO-CCR-INS INS S) (NEG-INS (OP-LEN INS) INS S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEG-INS . NEG-SUBGROUP) (IMMEDIATE-DEPENDENTS0 MOVE-TO-CCR-INS . NEG-SUBGROUP) (IMMEDIATE-DEPENDENTS0 Q . NEG-SUBGROUP) (IMMEDIATE-DEPENDENTS0 OP-LEN . NEG-SUBGROUP) (DCELL . *1*NEG-SUBGROUP))))) (PUT1-LST (QUOTE *1*MOVE-TO-CCR-INS) (QUOTE (MAIN-EVENT MOVE-TO-CCR-INS))) (PUT1-LST (QUOTE MOVE-TO-CCR-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVE-TO-CCR-INS -1 NIL NIL)) TOTALP-LST ((MOVE-TO-CCR-INS . T)) SDEFN (LAMBDA (INS S) (IF (MOVE-TO-CCR-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (W) INS S))) (CAR (MC-INSTATE (W) INS S)) (UPDATE-CCR (HEAD (OPERAND (W) (CDR (MC-INSTATE (W) INS S)) S) (B)) (CAR (MC-INSTATE (W) INS S)))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*MOVE-TO-CCR-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*MOVE-TO-CCR-INS) IMMEDIATE-DEPENDENTS0 (NEG-SUBGROUP) EVENT (DEFN MOVE-TO-CCR-INS (INS S) (IF (MOVE-TO-CCR-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (W) INS S))) (CAR (MC-INSTATE (W) INS S)) (UPDATE-CCR (HEAD (OPERAND (W) (CDR (MC-INSTATE (W) INS S)) S) (B)) (CAR (MC-INSTATE (W) INS S)))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . MOVE-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 HALT . MOVE-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 B . MOVE-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 OPERAND . MOVE-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 HEAD . MOVE-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 UPDATE-CCR . MOVE-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 W . MOVE-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . MOVE-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . MOVE-TO-CCR-INS) (IMMEDIATE-DEPENDENTS0 MOVE-TO-CCR-ADDR-MODEP . MOVE-TO-CCR-INS) (DCELL . *1*MOVE-TO-CCR-INS))))) (PUT1-LST (QUOTE *1*MOVE-TO-CCR-ADDR-MODEP) (QUOTE (MAIN-EVENT MOVE-TO-CCR-ADDR-MODEP))) (PUT1-LST (QUOTE MOVE-TO-CCR-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVE-TO-CCR-ADDR-MODEP 3 NIL)) TOTALP-LST ((MOVE-TO-CCR-ADDR-MODEP . T)) SDEFN (LAMBDA (INS) (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS))) LISP-CODE *1*MOVE-TO-CCR-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MOVE-TO-CCR-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (MOVE-TO-CCR-INS) EVENT (DEFN MOVE-TO-CCR-ADDR-MODEP (INS) (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S_RN . MOVE-TO-CCR-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . MOVE-TO-CCR-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 DATA-ADDR-MODEP . MOVE-TO-CCR-ADDR-MODEP) (DCELL . *1*MOVE-TO-CCR-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*NEG-INS) (QUOTE (MAIN-EVENT NEG-INS))) (PUT1-LST (QUOTE NEG-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((NEG-INS -1 NIL NIL NIL)) TOTALP-LST ((NEG-INS . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (NEG-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (MAPPING OPLEN (SUB-EFFECT OPLEN (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (QUOTE 0)) (MC-INSTATE OPLEN INS S))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*NEG-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*NEG-INS) IMMEDIATE-DEPENDENTS0 (NEG-SUBGROUP) EVENT (DEFN NEG-INS (OPLEN INS S) (IF (NEG-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (MAPPING OPLEN (SUB-EFFECT OPLEN (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (QUOTE 0)) (MC-INSTATE OPLEN INS S))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . NEG-INS) (IMMEDIATE-DEPENDENTS0 HALT . NEG-INS) (IMMEDIATE-DEPENDENTS0 OPERAND . NEG-INS) (IMMEDIATE-DEPENDENTS0 SUB-EFFECT . NEG-INS) (IMMEDIATE-DEPENDENTS0 MAPPING . NEG-INS) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . NEG-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . NEG-INS) (IMMEDIATE-DEPENDENTS0 NEG-ADDR-MODEP . NEG-INS) (DCELL . *1*NEG-INS))))) (PUT1-LST (QUOTE *1*NEG-ADDR-MODEP) (QUOTE (MAIN-EVENT NEG-ADDR-MODEP))) (PUT1-LST (QUOTE NEG-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((NEG-ADDR-MODEP 3 NIL)) TOTALP-LST ((NEG-ADDR-MODEP . T)) SDEFN (LAMBDA (INS) (IF (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)) (QUOTE *1*FALSE))) LISP-CODE *1*NEG-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*NEG-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (NEG-INS) EVENT (DEFN NEG-ADDR-MODEP (INS) (AND (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALTERABLE-ADDR-MODEP . NEG-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_RN . NEG-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . NEG-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 DATA-ADDR-MODEP . NEG-ADDR-MODEP) (DCELL . *1*NEG-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*NEGX-SUBGROUP) (QUOTE (MAIN-EVENT NEGX-SUBGROUP))) (PUT1-LST (QUOTE NEGX-SUBGROUP) (QUOTE (TYPE-PRESCRIPTION-LST ((NEGX-SUBGROUP -1 NIL NIL)) TOTALP-LST ((NEGX-SUBGROUP . T)) SDEFN (LAMBDA (INS S) (IF (EQUAL (OP-LEN INS) (Q)) (HALT (QUOTE MOVE-FROM-SR-PRIVILEGED) S) (NEGX-INS (OP-LEN INS) INS S))) LISP-CODE *1*NEGX-SUBGROUP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*NEGX-SUBGROUP) IMMEDIATE-DEPENDENTS0 (MISC-GROUP) EVENT (DEFN NEGX-SUBGROUP (INS S) (IF (EQUAL (OP-LEN INS) (Q)) (HALT (QUOTE MOVE-FROM-SR-PRIVILEGED) S) (NEGX-INS (OP-LEN INS) INS S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEGX-INS . NEGX-SUBGROUP) (IMMEDIATE-DEPENDENTS0 HALT . NEGX-SUBGROUP) (IMMEDIATE-DEPENDENTS0 Q . NEGX-SUBGROUP) (IMMEDIATE-DEPENDENTS0 OP-LEN . NEGX-SUBGROUP) (DCELL . *1*NEGX-SUBGROUP))))) (PUT1-LST (QUOTE *1*NEGX-INS) (QUOTE (MAIN-EVENT NEGX-INS))) (PUT1-LST (QUOTE NEGX-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((NEGX-INS -1 NIL NIL NIL)) TOTALP-LST ((NEGX-INS . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (NEGX-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (MAPPING OPLEN (SUBX-EFFECT OPLEN (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (QUOTE 0) (MC-CCR S)) (MC-INSTATE OPLEN INS S))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*NEGX-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*NEGX-INS) IMMEDIATE-DEPENDENTS0 (NEGX-SUBGROUP) EVENT (DEFN NEGX-INS (OPLEN INS S) (IF (NEGX-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (MAPPING OPLEN (SUBX-EFFECT OPLEN (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (QUOTE 0) (MC-CCR S)) (MC-INSTATE OPLEN INS S))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . NEGX-INS) (IMMEDIATE-DEPENDENTS0 HALT . NEGX-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . NEGX-INS) (IMMEDIATE-DEPENDENTS0 OPERAND . NEGX-INS) (IMMEDIATE-DEPENDENTS0 SUBX-EFFECT . NEGX-INS) (IMMEDIATE-DEPENDENTS0 MAPPING . NEGX-INS) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . NEGX-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . NEGX-INS) (IMMEDIATE-DEPENDENTS0 NEGX-ADDR-MODEP . NEGX-INS) (DCELL . *1*NEGX-INS))))) (PUT1-LST (QUOTE *1*NEGX-ADDR-MODEP) (QUOTE (MAIN-EVENT NEGX-ADDR-MODEP))) (PUT1-LST (QUOTE NEGX-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((NEGX-ADDR-MODEP 3 NIL)) TOTALP-LST ((NEGX-ADDR-MODEP . T)) SDEFN (LAMBDA (INS) (IF (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)) (QUOTE *1*FALSE))) LISP-CODE *1*NEGX-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*NEGX-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (NEGX-INS) EVENT (DEFN NEGX-ADDR-MODEP (INS) (AND (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALTERABLE-ADDR-MODEP . NEGX-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_RN . NEGX-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . NEGX-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 DATA-ADDR-MODEP . NEGX-ADDR-MODEP) (DCELL . *1*NEGX-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*CLR-SUBGROUP) (QUOTE (MAIN-EVENT CLR-SUBGROUP))) (PUT1-LST (QUOTE CLR-SUBGROUP) (QUOTE (TYPE-PRESCRIPTION-LST ((CLR-SUBGROUP -1 NIL NIL)) TOTALP-LST ((CLR-SUBGROUP . T)) SDEFN (LAMBDA (INS S) (IF (EQUAL (OP-LEN INS) (Q)) (MOVE-FROM-CCR-INS INS S) (CLR-INS (OP-LEN INS) INS S))) LISP-CODE *1*CLR-SUBGROUP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*CLR-SUBGROUP) IMMEDIATE-DEPENDENTS0 (MISC-GROUP) EVENT (DEFN CLR-SUBGROUP (INS S) (IF (EQUAL (OP-LEN INS) (Q)) (MOVE-FROM-CCR-INS INS S) (CLR-INS (OP-LEN INS) INS S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CLR-INS . CLR-SUBGROUP) (IMMEDIATE-DEPENDENTS0 MOVE-FROM-CCR-INS . CLR-SUBGROUP) (IMMEDIATE-DEPENDENTS0 Q . CLR-SUBGROUP) (IMMEDIATE-DEPENDENTS0 OP-LEN . CLR-SUBGROUP) (DCELL . *1*CLR-SUBGROUP))))) (PUT1-LST (QUOTE *1*MOVE-FROM-CCR-INS) (QUOTE (MAIN-EVENT MOVE-FROM-CCR-INS))) (PUT1-LST (QUOTE MOVE-FROM-CCR-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVE-FROM-CCR-INS -1 NIL NIL)) TOTALP-LST ((MOVE-FROM-CCR-INS . T)) SDEFN (LAMBDA (INS S) (IF (MOVE-FROM-CCR-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (W) INS S))) (CAR (MC-INSTATE (W) INS S)) (MAPPING (W) (MOVE-FROM-CCR-EFFECT (MC-CCR S)) (MC-INSTATE (W) INS S))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*MOVE-FROM-CCR-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*MOVE-FROM-CCR-INS) IMMEDIATE-DEPENDENTS0 (CLR-SUBGROUP) EVENT (DEFN MOVE-FROM-CCR-INS (INS S) (IF (MOVE-FROM-CCR-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (W) INS S))) (CAR (MC-INSTATE (W) INS S)) (MAPPING (W) (MOVE-FROM-CCR-EFFECT (MC-CCR S)) (MC-INSTATE (W) INS S))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . MOVE-FROM-CCR-INS) (IMMEDIATE-DEPENDENTS0 HALT . MOVE-FROM-CCR-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . MOVE-FROM-CCR-INS) (IMMEDIATE-DEPENDENTS0 MOVE-FROM-CCR-EFFECT . MOVE-FROM-CCR-INS) (IMMEDIATE-DEPENDENTS0 MAPPING . MOVE-FROM-CCR-INS) (IMMEDIATE-DEPENDENTS0 W . MOVE-FROM-CCR-INS) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . MOVE-FROM-CCR-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . MOVE-FROM-CCR-INS) (IMMEDIATE-DEPENDENTS0 MOVE-FROM-CCR-ADDR-MODEP . MOVE-FROM-CCR-INS) (DCELL . *1*MOVE-FROM-CCR-INS))))) (PUT1-LST (QUOTE *1*MOVE-FROM-CCR-EFFECT) (QUOTE (MAIN-EVENT MOVE-FROM-CCR-EFFECT))) (PUT1-LST (QUOTE MOVE-FROM-CCR-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVE-FROM-CCR-EFFECT 16 NIL)) TOTALP-LST ((MOVE-FROM-CCR-EFFECT . T)) SDEFN (LAMBDA (CCR) (CONS CCR CCR)) LISP-CODE *1*MOVE-FROM-CCR-EFFECT SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214824 SATELLITES (*1*MOVE-FROM-CCR-EFFECT) IMMEDIATE-DEPENDENTS0 (MOVE-FROM-CCR-INS) EVENT (DEFN MOVE-FROM-CCR-EFFECT (CCR) (CONS CCR CCR)) LOCAL-UNDO-TUPLES ((DCELL . *1*MOVE-FROM-CCR-EFFECT))))) (PUT1-LST (QUOTE *1*MOVE-FROM-CCR-ADDR-MODEP) (QUOTE (MAIN-EVENT MOVE-FROM-CCR-ADDR-MODEP))) (PUT1-LST (QUOTE MOVE-FROM-CCR-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVE-FROM-CCR-ADDR-MODEP 3 NIL)) TOTALP-LST ((MOVE-FROM-CCR-ADDR-MODEP . T)) SDEFN (LAMBDA (INS) (IF (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)) (QUOTE *1*FALSE))) LISP-CODE *1*MOVE-FROM-CCR-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MOVE-FROM-CCR-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (MOVE-FROM-CCR-INS) EVENT (DEFN MOVE-FROM-CCR-ADDR-MODEP (INS) (AND (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALTERABLE-ADDR-MODEP . MOVE-FROM-CCR-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_RN . MOVE-FROM-CCR-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . MOVE-FROM-CCR-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 DATA-ADDR-MODEP . MOVE-FROM-CCR-ADDR-MODEP) (DCELL . *1*MOVE-FROM-CCR-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*CLR-INS) (QUOTE (MAIN-EVENT CLR-INS))) (PUT1-LST (QUOTE CLR-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((CLR-INS -1 NIL NIL NIL)) TOTALP-LST ((CLR-INS . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (CLR-ADDR-MODEP INS) (IF (MC-HALTP (CAR (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S))) (CAR (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S)) (MAPPING OPLEN (CLR-EFFECT (MC-CCR S)) (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*CLR-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*CLR-INS) IMMEDIATE-DEPENDENTS0 (CLR-SUBGROUP) EVENT (DEFN CLR-INS (OPLEN INS S) (IF (CLR-ADDR-MODEP INS) (IF (MC-HALTP (CAR (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S))) (CAR (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S)) (MAPPING OPLEN (CLR-EFFECT (MC-CCR S)) (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . CLR-INS) (IMMEDIATE-DEPENDENTS0 HALT . CLR-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . CLR-INS) (IMMEDIATE-DEPENDENTS0 CLR-EFFECT . CLR-INS) (IMMEDIATE-DEPENDENTS0 MAPPING . CLR-INS) (IMMEDIATE-DEPENDENTS0 S_RN . CLR-INS) (IMMEDIATE-DEPENDENTS0 S_MODE . CLR-INS) (IMMEDIATE-DEPENDENTS0 EFFEC-ADDR . CLR-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . CLR-INS) (IMMEDIATE-DEPENDENTS0 CLR-ADDR-MODEP . CLR-INS) (DCELL . *1*CLR-INS))))) (PUT1-LST (QUOTE *1*CLR-EFFECT) (QUOTE (MAIN-EVENT CLR-EFFECT))) (PUT1-LST (QUOTE CLR-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((CLR-EFFECT 16 NIL)) TOTALP-LST ((CLR-EFFECT . T)) SDEFN (LAMBDA (CCR) (CONS (QUOTE 0) (CLR-CVZNX CCR))) LISP-CODE *1*CLR-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*CLR-EFFECT) IMMEDIATE-DEPENDENTS0 (CLR-INS) EVENT (DEFN CLR-EFFECT (CCR) (CONS (QUOTE 0) (CLR-CVZNX CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CLR-CVZNX . CLR-EFFECT) (DCELL . *1*CLR-EFFECT))))) (PUT1-LST (QUOTE *1*CLR-CVZNX) (QUOTE (MAIN-EVENT CLR-CVZNX))) (PUT1-LST (QUOTE CLR-CVZNX) (QUOTE (TYPE-PRESCRIPTION-LST ((CLR-CVZNX 4 NIL)) TOTALP-LST ((CLR-CVZNX . T)) SDEFN (LAMBDA (CCR) (CVZNX (B0) (B0) (B1) (B0) (CCR-X CCR))) LISP-CODE *1*CLR-CVZNX SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*CLR-CVZNX) IMMEDIATE-DEPENDENTS0 (CLR-EFFECT) EVENT (DEFN CLR-CVZNX (CCR) (CVZNX (B0) (B0) (B1) (B0) (CCR-X CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CCR-X . CLR-CVZNX) (IMMEDIATE-DEPENDENTS0 B1 . CLR-CVZNX) (IMMEDIATE-DEPENDENTS0 B0 . CLR-CVZNX) (IMMEDIATE-DEPENDENTS0 CVZNX . CLR-CVZNX) (DCELL . *1*CLR-CVZNX))))) (PUT1-LST (QUOTE *1*CLR-ADDR-MODEP) (QUOTE (MAIN-EVENT CLR-ADDR-MODEP))) (PUT1-LST (QUOTE CLR-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((CLR-ADDR-MODEP 3 NIL)) TOTALP-LST ((CLR-ADDR-MODEP . T)) SDEFN (LAMBDA (INS) (IF (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)) (QUOTE *1*FALSE))) LISP-CODE *1*CLR-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*CLR-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (CLR-INS) EVENT (DEFN CLR-ADDR-MODEP (INS) (AND (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALTERABLE-ADDR-MODEP . CLR-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_RN . CLR-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . CLR-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 DATA-ADDR-MODEP . CLR-ADDR-MODEP) (DCELL . *1*CLR-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*LEA-SUBGROUP) (QUOTE (MAIN-EVENT LEA-SUBGROUP))) (PUT1-LST (QUOTE LEA-SUBGROUP) (QUOTE (TYPE-PRESCRIPTION-LST ((LEA-SUBGROUP -1 NIL NIL)) TOTALP-LST ((LEA-SUBGROUP . T)) SDEFN (LAMBDA (INS S) (IF (EQUAL (S_MODE INS) (QUOTE 0)) (IF (EQUAL (BITS INS (QUOTE 9) (QUOTE 11)) (QUOTE 4)) (EXTB-INS INS S) (HALT (RESERVED-SIGNAL) S)) (LEA-INS (S_MODE INS) INS S))) LISP-CODE *1*LEA-SUBGROUP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*LEA-SUBGROUP) IMMEDIATE-DEPENDENTS0 (MISC-GROUP) EVENT (DEFN LEA-SUBGROUP (INS S) (IF (EQUAL (S_MODE INS) (QUOTE 0)) (IF (EQUAL (BITS INS (QUOTE 9) (QUOTE 11)) (QUOTE 4)) (EXTB-INS INS S) (HALT (RESERVED-SIGNAL) S)) (LEA-INS (S_MODE INS) INS S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LEA-INS . LEA-SUBGROUP) (IMMEDIATE-DEPENDENTS0 RESERVED-SIGNAL . LEA-SUBGROUP) (IMMEDIATE-DEPENDENTS0 HALT . LEA-SUBGROUP) (IMMEDIATE-DEPENDENTS0 EXTB-INS . LEA-SUBGROUP) (IMMEDIATE-DEPENDENTS0 BITS . LEA-SUBGROUP) (IMMEDIATE-DEPENDENTS0 S_MODE . LEA-SUBGROUP) (DCELL . *1*LEA-SUBGROUP))))) (PUT1-LST (QUOTE *1*EXTB-INS) (QUOTE (MAIN-EVENT EXTB-INS))) (PUT1-LST (QUOTE EXTB-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((EXTB-INS 16 NIL NIL)) TOTALP-LST ((EXTB-INS . T)) SDEFN (LAMBDA (INS S) (D-MAPPING (L) (EXT-EFFECT (B) (READ-DN (B) (S_RN INS) S) (L) (MC-CCR S)) (S_RN INS) S)) LISP-CODE *1*EXTB-INS SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*EXTB-INS) IMMEDIATE-DEPENDENTS0 (LEA-SUBGROUP) EVENT (DEFN EXTB-INS (INS S) (D-MAPPING (L) (EXT-EFFECT (B) (READ-DN (B) (S_RN INS) S) (L) (MC-CCR S)) (S_RN INS) S)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-CCR . EXTB-INS) (IMMEDIATE-DEPENDENTS0 S_RN . EXTB-INS) (IMMEDIATE-DEPENDENTS0 READ-DN . EXTB-INS) (IMMEDIATE-DEPENDENTS0 B . EXTB-INS) (IMMEDIATE-DEPENDENTS0 EXT-EFFECT . EXTB-INS) (IMMEDIATE-DEPENDENTS0 L . EXTB-INS) (IMMEDIATE-DEPENDENTS0 D-MAPPING . EXTB-INS) (DCELL . *1*EXTB-INS))))) (PUT1-LST (QUOTE *1*EXT-EFFECT) (QUOTE (MAIN-EVENT EXT-EFFECT))) (PUT1-LST (QUOTE EXT-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((EXT-EFFECT 16 NIL NIL NIL NIL)) TOTALP-LST ((EXT-EFFECT . T)) SDEFN (LAMBDA (OPLEN OPD SIZE CCR) (CONS (EXT OPLEN OPD SIZE) (EXT-CVZNX OPLEN OPD SIZE CCR))) LISP-CODE *1*EXT-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*EXT-EFFECT) IMMEDIATE-DEPENDENTS0 (EXT-INS EXTB-INS) EVENT (DEFN EXT-EFFECT (OPLEN OPD SIZE CCR) (CONS (EXT OPLEN OPD SIZE) (EXT-CVZNX OPLEN OPD SIZE CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXT-CVZNX . EXT-EFFECT) (IMMEDIATE-DEPENDENTS0 EXT . EXT-EFFECT) (DCELL . *1*EXT-EFFECT))))) (PUT1-LST (QUOTE *1*EXT-CVZNX) (QUOTE (MAIN-EVENT EXT-CVZNX))) (PUT1-LST (QUOTE EXT-CVZNX) (QUOTE (TYPE-PRESCRIPTION-LST ((EXT-CVZNX 4 NIL NIL NIL NIL)) TOTALP-LST ((EXT-CVZNX . T)) SDEFN (LAMBDA (OPLEN OPD SIZE CCR) (CVZNX (B0) (B0) (EXT-Z OPLEN OPD SIZE) (EXT-N OPLEN OPD SIZE) (CCR-X CCR))) LISP-CODE *1*EXT-CVZNX SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*EXT-CVZNX) IMMEDIATE-DEPENDENTS0 (EXT-EFFECT) EVENT (DEFN EXT-CVZNX (OPLEN OPD SIZE CCR) (CVZNX (B0) (B0) (EXT-Z OPLEN OPD SIZE) (EXT-N OPLEN OPD SIZE) (CCR-X CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CCR-X . EXT-CVZNX) (IMMEDIATE-DEPENDENTS0 EXT-N . EXT-CVZNX) (IMMEDIATE-DEPENDENTS0 EXT-Z . EXT-CVZNX) (IMMEDIATE-DEPENDENTS0 B0 . EXT-CVZNX) (IMMEDIATE-DEPENDENTS0 CVZNX . EXT-CVZNX) (DCELL . *1*EXT-CVZNX))))) (PUT1-LST (QUOTE *1*EXT-N) (QUOTE (MAIN-EVENT EXT-N))) (PUT1-LST (QUOTE EXT-N) (QUOTE (TYPE-PRESCRIPTION-LST ((EXT-N 4 NIL NIL NIL)) TOTALP-LST ((EXT-N . T)) SDEFN (LAMBDA (OPLEN OPD SIZE) (MBIT (EXT OPLEN OPD SIZE) SIZE)) LISP-CODE *1*EXT-N SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*EXT-N) IMMEDIATE-DEPENDENTS0 (EXT-CVZNX) EVENT (DEFN EXT-N (OPLEN OPD SIZE) (MBIT (EXT OPLEN OPD SIZE) SIZE)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXT . EXT-N) (IMMEDIATE-DEPENDENTS0 MBIT . EXT-N) (DCELL . *1*EXT-N))))) (PUT1-LST (QUOTE *1*EXT-Z) (QUOTE (MAIN-EVENT EXT-Z))) (PUT1-LST (QUOTE EXT-Z) (QUOTE (TYPE-PRESCRIPTION-LST ((EXT-Z 4 NIL NIL NIL)) TOTALP-LST ((EXT-Z . T)) SDEFN (LAMBDA (OPLEN OPD SIZE) (IF (EQUAL (EXT OPLEN OPD SIZE) (QUOTE 0)) (B1) (B0))) LISP-CODE *1*EXT-Z SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*EXT-Z) IMMEDIATE-DEPENDENTS0 (EXT-CVZNX) EVENT (DEFN EXT-Z (OPLEN OPD SIZE) (IF (EQUAL (EXT OPLEN OPD SIZE) (QUOTE 0)) (B1) (B0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . EXT-Z) (IMMEDIATE-DEPENDENTS0 B1 . EXT-Z) (IMMEDIATE-DEPENDENTS0 EXT . EXT-Z) (DCELL . *1*EXT-Z))))) (PUT1-LST (QUOTE *1*LEA-INS) (QUOTE (MAIN-EVENT LEA-INS))) (PUT1-LST (QUOTE LEA-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((LEA-INS -1 NIL NIL NIL)) TOTALP-LST ((LEA-INS . T)) SDEFN (LAMBDA (SMODE INS S) (IF (LEA-ADDR-MODEP INS) (IF (MC-HALTP (CAR (EFFEC-ADDR (L) SMODE (S_RN INS) S))) (CAR (EFFEC-ADDR (L) SMODE (S_RN INS) S)) (WRITE-AN (L) (CDR (CDR (EFFEC-ADDR (L) SMODE (S_RN INS) S))) (D_RN INS) (CAR (EFFEC-ADDR (L) SMODE (S_RN INS) S)))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*LEA-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*LEA-INS) IMMEDIATE-DEPENDENTS0 (LEA-SUBGROUP) EVENT (DEFN LEA-INS (SMODE INS S) (IF (LEA-ADDR-MODEP INS) (IF (MC-HALTP (CAR (EFFEC-ADDR (L) SMODE (S_RN INS) S))) (CAR (EFFEC-ADDR (L) SMODE (S_RN INS) S)) (WRITE-AN (L) (CDR (CDR (EFFEC-ADDR (L) SMODE (S_RN INS) S))) (D_RN INS) (CAR (EFFEC-ADDR (L) SMODE (S_RN INS) S)))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . LEA-INS) (IMMEDIATE-DEPENDENTS0 HALT . LEA-INS) (IMMEDIATE-DEPENDENTS0 D_RN . LEA-INS) (IMMEDIATE-DEPENDENTS0 WRITE-AN . LEA-INS) (IMMEDIATE-DEPENDENTS0 S_RN . LEA-INS) (IMMEDIATE-DEPENDENTS0 L . LEA-INS) (IMMEDIATE-DEPENDENTS0 EFFEC-ADDR . LEA-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . LEA-INS) (IMMEDIATE-DEPENDENTS0 LEA-ADDR-MODEP . LEA-INS) (DCELL . *1*LEA-INS))))) (PUT1-LST (QUOTE *1*LEA-ADDR-MODEP) (QUOTE (MAIN-EVENT LEA-ADDR-MODEP))) (PUT1-LST (QUOTE LEA-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((LEA-ADDR-MODEP 3 NIL)) TOTALP-LST ((LEA-ADDR-MODEP . T)) SDEFN (LAMBDA (INS) (CONTROL-ADDR-MODEP (S_MODE INS) (S_RN INS))) LISP-CODE *1*LEA-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*LEA-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (LEA-INS) EVENT (DEFN LEA-ADDR-MODEP (INS) (CONTROL-ADDR-MODEP (S_MODE INS) (S_RN INS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S_RN . LEA-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . LEA-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 CONTROL-ADDR-MODEP . LEA-ADDR-MODEP) (DCELL . *1*LEA-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*MOVE-GROUP) (QUOTE (MAIN-EVENT MOVE-GROUP))) (PUT1-LST (QUOTE MOVE-GROUP) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVE-GROUP -1 NIL NIL NIL)) TOTALP-LST ((MOVE-GROUP . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (EQUAL (D_MODE INS) (QUOTE 1)) (MOVEA-INS OPLEN INS S) (MOVE-INS OPLEN INS S))) LISP-CODE *1*MOVE-GROUP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*MOVE-GROUP) IMMEDIATE-DEPENDENTS0 (EXECUTE-INS) EVENT (DEFN MOVE-GROUP (OPLEN INS S) (IF (EQUAL (D_MODE INS) (QUOTE 1)) (MOVEA-INS OPLEN INS S) (MOVE-INS OPLEN INS S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MOVE-INS . MOVE-GROUP) (IMMEDIATE-DEPENDENTS0 MOVEA-INS . MOVE-GROUP) (IMMEDIATE-DEPENDENTS0 D_MODE . MOVE-GROUP) (DCELL . *1*MOVE-GROUP))))) (PUT1-LST (QUOTE *1*MOVEA-INS) (QUOTE (MAIN-EVENT MOVEA-INS))) (PUT1-LST (QUOTE MOVEA-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVEA-INS -1 NIL NIL NIL)) TOTALP-LST ((MOVEA-INS . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (MOVEA-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (WRITE-AN (L) (EXT OPLEN (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (L)) (D_RN INS) (CAR (MC-INSTATE OPLEN INS S)))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*MOVEA-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*MOVEA-INS) IMMEDIATE-DEPENDENTS0 (MOVE-GROUP) EVENT (DEFN MOVEA-INS (OPLEN INS S) (IF (MOVEA-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (WRITE-AN (L) (EXT OPLEN (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (L)) (D_RN INS) (CAR (MC-INSTATE OPLEN INS S)))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . MOVEA-INS) (IMMEDIATE-DEPENDENTS0 HALT . MOVEA-INS) (IMMEDIATE-DEPENDENTS0 D_RN . MOVEA-INS) (IMMEDIATE-DEPENDENTS0 OPERAND . MOVEA-INS) (IMMEDIATE-DEPENDENTS0 EXT . MOVEA-INS) (IMMEDIATE-DEPENDENTS0 L . MOVEA-INS) (IMMEDIATE-DEPENDENTS0 WRITE-AN . MOVEA-INS) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . MOVEA-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . MOVEA-INS) (IMMEDIATE-DEPENDENTS0 MOVEA-ADDR-MODEP . MOVEA-INS) (DCELL . *1*MOVEA-INS))))) (PUT1-LST (QUOTE *1*MOVEA-ADDR-MODEP) (QUOTE (MAIN-EVENT MOVEA-ADDR-MODEP))) (PUT1-LST (QUOTE MOVEA-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVEA-ADDR-MODEP 3 NIL)) TOTALP-LST ((MOVEA-ADDR-MODEP . T)) SDEFN (LAMBDA (INS) (ADDR-MODEP (S_MODE INS) (S_RN INS))) LISP-CODE *1*MOVEA-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MOVEA-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (MOVEA-INS) EVENT (DEFN MOVEA-ADDR-MODEP (INS) (ADDR-MODEP (S_MODE INS) (S_RN INS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S_RN . MOVEA-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . MOVEA-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 ADDR-MODEP . MOVEA-ADDR-MODEP) (DCELL . *1*MOVEA-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*MOVE-INS) (QUOTE (MAIN-EVENT MOVE-INS))) (PUT1-LST (QUOTE MOVE-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVE-INS -1 NIL NIL NIL)) TOTALP-LST ((MOVE-INS . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (MOVE-ADDR-MODEP OPLEN INS) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (MOVE-MAPPING (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) OPLEN INS (CAR (MC-INSTATE OPLEN INS S)))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*MOVE-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*MOVE-INS) IMMEDIATE-DEPENDENTS0 (EXECUTE-INS MOVE-GROUP) EVENT (DEFN MOVE-INS (OPLEN INS S) (IF (MOVE-ADDR-MODEP OPLEN INS) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (MOVE-MAPPING (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) OPLEN INS (CAR (MC-INSTATE OPLEN INS S)))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . MOVE-INS) (IMMEDIATE-DEPENDENTS0 HALT . MOVE-INS) (IMMEDIATE-DEPENDENTS0 OPERAND . MOVE-INS) (IMMEDIATE-DEPENDENTS0 MOVE-MAPPING . MOVE-INS) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . MOVE-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . MOVE-INS) (IMMEDIATE-DEPENDENTS0 MOVE-ADDR-MODEP . MOVE-INS) (DCELL . *1*MOVE-INS))))) (PUT1-LST (QUOTE *1*MOVE-MAPPING) (QUOTE (MAIN-EVENT MOVE-MAPPING))) (PUT1-LST (QUOTE MOVE-MAPPING) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVE-MAPPING -1 NIL NIL NIL NIL)) TOTALP-LST ((MOVE-MAPPING . T)) SDEFN (LAMBDA (SOPD OPLEN INS S) (IF (MC-HALTP (CAR (EFFEC-ADDR OPLEN (D_MODE INS) (D_RN INS) S))) (CAR (EFFEC-ADDR OPLEN (D_MODE INS) (D_RN INS) S)) (MAPPING OPLEN (MOVE-EFFECT OPLEN SOPD (MC-CCR S)) (EFFEC-ADDR OPLEN (D_MODE INS) (D_RN INS) S)))) LISP-CODE *1*MOVE-MAPPING SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*MOVE-MAPPING) IMMEDIATE-DEPENDENTS0 (MOVE-INS) EVENT (DEFN MOVE-MAPPING (SOPD OPLEN INS S) (IF (MC-HALTP (CAR (EFFEC-ADDR OPLEN (D_MODE INS) (D_RN INS) S))) (CAR (EFFEC-ADDR OPLEN (D_MODE INS) (D_RN INS) S)) (MAPPING OPLEN (MOVE-EFFECT OPLEN SOPD (MC-CCR S)) (EFFEC-ADDR OPLEN (D_MODE INS) (D_RN INS) S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-CCR . MOVE-MAPPING) (IMMEDIATE-DEPENDENTS0 MOVE-EFFECT . MOVE-MAPPING) (IMMEDIATE-DEPENDENTS0 MAPPING . MOVE-MAPPING) (IMMEDIATE-DEPENDENTS0 D_RN . MOVE-MAPPING) (IMMEDIATE-DEPENDENTS0 D_MODE . MOVE-MAPPING) (IMMEDIATE-DEPENDENTS0 EFFEC-ADDR . MOVE-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-HALTP . MOVE-MAPPING) (DCELL . *1*MOVE-MAPPING))))) (PUT1-LST (QUOTE *1*MOVE-EFFECT) (QUOTE (MAIN-EVENT MOVE-EFFECT))) (PUT1-LST (QUOTE MOVE-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVE-EFFECT 16 NIL NIL NIL)) TOTALP-LST ((MOVE-EFFECT . T)) SDEFN (LAMBDA (OPLEN SOPD CCR) (CONS SOPD (MOVE-CVZNX OPLEN SOPD CCR))) LISP-CODE *1*MOVE-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MOVE-EFFECT) IMMEDIATE-DEPENDENTS0 (MOVEQ-INS MOVE-MAPPING) EVENT (DEFN MOVE-EFFECT (OPLEN SOPD CCR) (CONS SOPD (MOVE-CVZNX OPLEN SOPD CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MOVE-CVZNX . MOVE-EFFECT) (DCELL . *1*MOVE-EFFECT))))) (PUT1-LST (QUOTE *1*MOVE-CVZNX) (QUOTE (MAIN-EVENT MOVE-CVZNX))) (PUT1-LST (QUOTE MOVE-CVZNX) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVE-CVZNX 4 NIL NIL NIL)) TOTALP-LST ((MOVE-CVZNX . T)) SDEFN (LAMBDA (OPLEN SOPD CCR) (CVZNX (B0) (B0) (MOVE-Z OPLEN SOPD) (MOVE-N OPLEN SOPD) (CCR-X CCR))) LISP-CODE *1*MOVE-CVZNX SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MOVE-CVZNX) IMMEDIATE-DEPENDENTS0 (TAS-EFFECT TST-INS MOVE-EFFECT) EVENT (DEFN MOVE-CVZNX (OPLEN SOPD CCR) (CVZNX (B0) (B0) (MOVE-Z OPLEN SOPD) (MOVE-N OPLEN SOPD) (CCR-X CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CCR-X . MOVE-CVZNX) (IMMEDIATE-DEPENDENTS0 MOVE-N . MOVE-CVZNX) (IMMEDIATE-DEPENDENTS0 MOVE-Z . MOVE-CVZNX) (IMMEDIATE-DEPENDENTS0 B0 . MOVE-CVZNX) (IMMEDIATE-DEPENDENTS0 CVZNX . MOVE-CVZNX) (DCELL . *1*MOVE-CVZNX))))) (PUT1-LST (QUOTE *1*MOVE-N) (QUOTE (MAIN-EVENT MOVE-N))) (PUT1-LST (QUOTE MOVE-N) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVE-N 4 NIL NIL)) TOTALP-LST ((MOVE-N . T)) SDEFN (LAMBDA (OPLEN SOPD) (MBIT SOPD OPLEN)) LISP-CODE *1*MOVE-N SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MOVE-N) IMMEDIATE-DEPENDENTS0 (MOVE-CVZNX) EVENT (DEFN MOVE-N (OPLEN SOPD) (MBIT SOPD OPLEN)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MBIT . MOVE-N) (DCELL . *1*MOVE-N))))) (PUT1-LST (QUOTE *1*MOVE-Z) (QUOTE (MAIN-EVENT MOVE-Z))) (PUT1-LST (QUOTE MOVE-Z) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVE-Z 4 NIL NIL)) TOTALP-LST ((MOVE-Z . T)) SDEFN (LAMBDA (OPLEN SOPD) (IF (EQUAL (HEAD SOPD OPLEN) (QUOTE 0)) (B1) (B0))) LISP-CODE *1*MOVE-Z SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MOVE-Z) IMMEDIATE-DEPENDENTS0 (MOVE-CVZNX) EVENT (DEFN MOVE-Z (OPLEN SOPD) (IF (EQUAL (HEAD SOPD OPLEN) (QUOTE 0)) (B1) (B0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . MOVE-Z) (IMMEDIATE-DEPENDENTS0 B1 . MOVE-Z) (IMMEDIATE-DEPENDENTS0 HEAD . MOVE-Z) (DCELL . *1*MOVE-Z))))) (PUT1-LST (QUOTE *1*MOVE-ADDR-MODEP) (QUOTE (MAIN-EVENT MOVE-ADDR-MODEP))) (PUT1-LST (QUOTE MOVE-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((MOVE-ADDR-MODEP 3 NIL NIL)) TOTALP-LST ((MOVE-ADDR-MODEP . T)) SDEFN (LAMBDA (OPLEN INS) (IF (ADDR-MODEP (S_MODE INS) (S_RN INS)) (IF (DATA-ADDR-MODEP (D_MODE INS) (D_RN INS)) (IF (ALTERABLE-ADDR-MODEP (D_MODE INS) (D_RN INS)) (IF (BYTE-AN-DIRECT-MODEP OPLEN (S_MODE INS)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*MOVE-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MOVE-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (MOVE-INS) EVENT (DEFN MOVE-ADDR-MODEP (OPLEN INS) (AND (ADDR-MODEP (S_MODE INS) (S_RN INS)) (AND (DATA-ADDR-MODEP (D_MODE INS) (D_RN INS)) (AND (ALTERABLE-ADDR-MODEP (D_MODE INS) (D_RN INS)) (NOT (BYTE-AN-DIRECT-MODEP OPLEN (S_MODE INS))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BYTE-AN-DIRECT-MODEP . MOVE-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 ALTERABLE-ADDR-MODEP . MOVE-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 D_RN . MOVE-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 D_MODE . MOVE-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 DATA-ADDR-MODEP . MOVE-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_RN . MOVE-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . MOVE-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 ADDR-MODEP . MOVE-ADDR-MODEP) (DCELL . *1*MOVE-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*S&R-GROUP) (QUOTE (MAIN-EVENT S&R-GROUP))) (PUT1-LST (QUOTE S&R-GROUP) (QUOTE (TYPE-PRESCRIPTION-LST ((S&R-GROUP -1 NIL NIL)) TOTALP-LST ((S&R-GROUP . T)) SDEFN (LAMBDA (INS S) (IF (EQUAL (OP-LEN INS) (Q)) (IF (B0P (BITN INS (QUOTE 11))) (MEMORY-SHIFT-ROTATE INS S) (BF-SUBGROUP INS S)) (REGISTER-SHIFT-ROTATE (OP-LEN INS) INS S))) LISP-CODE *1*S&R-GROUP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*S&R-GROUP) IMMEDIATE-DEPENDENTS0 (EXECUTE-INS) EVENT (DEFN S&R-GROUP (INS S) (IF (EQUAL (OP-LEN INS) (Q)) (IF (B0P (BITN INS (QUOTE 11))) (MEMORY-SHIFT-ROTATE INS S) (BF-SUBGROUP INS S)) (REGISTER-SHIFT-ROTATE (OP-LEN INS) INS S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REGISTER-SHIFT-ROTATE . S&R-GROUP) (IMMEDIATE-DEPENDENTS0 BF-SUBGROUP . S&R-GROUP) (IMMEDIATE-DEPENDENTS0 MEMORY-SHIFT-ROTATE . S&R-GROUP) (IMMEDIATE-DEPENDENTS0 BITN . S&R-GROUP) (IMMEDIATE-DEPENDENTS0 B0P . S&R-GROUP) (IMMEDIATE-DEPENDENTS0 Q . S&R-GROUP) (IMMEDIATE-DEPENDENTS0 OP-LEN . S&R-GROUP) (DCELL . *1*S&R-GROUP))))) (PUT1-LST (QUOTE *1*BF-SUBGROUP) (QUOTE (MAIN-EVENT BF-SUBGROUP))) (PUT1-LST (QUOTE BF-SUBGROUP) (QUOTE (TYPE-PRESCRIPTION-LST ((BF-SUBGROUP 16 NIL NIL)) TOTALP-LST ((BF-SUBGROUP . T)) SDEFN (LAMBDA (INS S) (HALT (QUOTE I-WILL-DO-IT-LATER) S)) LISP-CODE *1*BF-SUBGROUP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*BF-SUBGROUP) IMMEDIATE-DEPENDENTS0 (S&R-GROUP) EVENT (DEFN BF-SUBGROUP (INS S) (HALT (QUOTE I-WILL-DO-IT-LATER) S)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HALT . BF-SUBGROUP) (DCELL . *1*BF-SUBGROUP))))) (PUT1-LST (QUOTE *1*REGISTER-SHIFT-ROTATE) (QUOTE (MAIN-EVENT REGISTER-SHIFT-ROTATE))) (PUT1-LST (QUOTE REGISTER-SHIFT-ROTATE) (QUOTE (TYPE-PRESCRIPTION-LST ((REGISTER-SHIFT-ROTATE 16 NIL NIL NIL)) TOTALP-LST ((REGISTER-SHIFT-ROTATE . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (B0P (BITN INS (QUOTE 4))) (IF (B0P (BITN INS (QUOTE 3))) (IF (B0P (BITN INS (QUOTE 8))) (REGISTER-ASR-INS OPLEN INS S) (REGISTER-ASL-INS OPLEN INS S)) (IF (B0P (BITN INS (QUOTE 8))) (REGISTER-LSR-INS OPLEN INS S) (REGISTER-LSL-INS OPLEN INS S))) (IF (B0P (BITN INS (QUOTE 3))) (IF (B0P (BITN INS (QUOTE 8))) (REGISTER-ROXR-INS OPLEN INS S) (REGISTER-ROXL-INS OPLEN INS S)) (IF (B0P (BITN INS (QUOTE 8))) (REGISTER-ROR-INS OPLEN INS S) (REGISTER-ROL-INS OPLEN INS S))))) LISP-CODE *1*REGISTER-SHIFT-ROTATE SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*REGISTER-SHIFT-ROTATE) IMMEDIATE-DEPENDENTS0 (S&R-GROUP) EVENT (DEFN REGISTER-SHIFT-ROTATE (OPLEN INS S) (IF (B0P (BITN INS (QUOTE 4))) (IF (B0P (BITN INS (QUOTE 3))) (IF (B0P (BITN INS (QUOTE 8))) (REGISTER-ASR-INS OPLEN INS S) (REGISTER-ASL-INS OPLEN INS S)) (IF (B0P (BITN INS (QUOTE 8))) (REGISTER-LSR-INS OPLEN INS S) (REGISTER-LSL-INS OPLEN INS S))) (IF (B0P (BITN INS (QUOTE 3))) (IF (B0P (BITN INS (QUOTE 8))) (REGISTER-ROXR-INS OPLEN INS S) (REGISTER-ROXL-INS OPLEN INS S)) (IF (B0P (BITN INS (QUOTE 8))) (REGISTER-ROR-INS OPLEN INS S) (REGISTER-ROL-INS OPLEN INS S))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REGISTER-ROL-INS . REGISTER-SHIFT-ROTATE) (IMMEDIATE-DEPENDENTS0 REGISTER-ROR-INS . REGISTER-SHIFT-ROTATE) (IMMEDIATE-DEPENDENTS0 REGISTER-ROXL-INS . REGISTER-SHIFT-ROTATE) (IMMEDIATE-DEPENDENTS0 REGISTER-ROXR-INS . REGISTER-SHIFT-ROTATE) (IMMEDIATE-DEPENDENTS0 REGISTER-LSL-INS . REGISTER-SHIFT-ROTATE) (IMMEDIATE-DEPENDENTS0 REGISTER-LSR-INS . REGISTER-SHIFT-ROTATE) (IMMEDIATE-DEPENDENTS0 REGISTER-ASL-INS . REGISTER-SHIFT-ROTATE) (IMMEDIATE-DEPENDENTS0 REGISTER-ASR-INS . REGISTER-SHIFT-ROTATE) (IMMEDIATE-DEPENDENTS0 BITN . REGISTER-SHIFT-ROTATE) (IMMEDIATE-DEPENDENTS0 B0P . REGISTER-SHIFT-ROTATE) (DCELL . *1*REGISTER-SHIFT-ROTATE))))) (PUT1-LST (QUOTE *1*MEMORY-SHIFT-ROTATE) (QUOTE (MAIN-EVENT MEMORY-SHIFT-ROTATE))) (PUT1-LST (QUOTE MEMORY-SHIFT-ROTATE) (QUOTE (TYPE-PRESCRIPTION-LST ((MEMORY-SHIFT-ROTATE -1 NIL NIL)) TOTALP-LST ((MEMORY-SHIFT-ROTATE . T)) SDEFN (LAMBDA (INS S) (IF (B0P (BITN INS (QUOTE 10))) (IF (B0P (BITN INS (QUOTE 9))) (IF (B0P (BITN INS (QUOTE 8))) (MEM-ASR-INS INS S) (MEM-ASL-INS INS S)) (IF (B0P (BITN INS (QUOTE 8))) (MEM-LSR-INS INS S) (MEM-LSL-INS INS S))) (IF (B0P (BITN INS (QUOTE 9))) (IF (B0P (BITN INS (QUOTE 8))) (MEM-ROXR-INS INS S) (MEM-ROXL-INS INS S)) (IF (B0P (BITN INS (QUOTE 8))) (MEM-ROR-INS INS S) (MEM-ROL-INS INS S))))) LISP-CODE *1*MEMORY-SHIFT-ROTATE SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*MEMORY-SHIFT-ROTATE) IMMEDIATE-DEPENDENTS0 (S&R-GROUP) EVENT (DEFN MEMORY-SHIFT-ROTATE (INS S) (IF (B0P (BITN INS (QUOTE 10))) (IF (B0P (BITN INS (QUOTE 9))) (IF (B0P (BITN INS (QUOTE 8))) (MEM-ASR-INS INS S) (MEM-ASL-INS INS S)) (IF (B0P (BITN INS (QUOTE 8))) (MEM-LSR-INS INS S) (MEM-LSL-INS INS S))) (IF (B0P (BITN INS (QUOTE 9))) (IF (B0P (BITN INS (QUOTE 8))) (MEM-ROXR-INS INS S) (MEM-ROXL-INS INS S)) (IF (B0P (BITN INS (QUOTE 8))) (MEM-ROR-INS INS S) (MEM-ROL-INS INS S))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEM-ROL-INS . MEMORY-SHIFT-ROTATE) (IMMEDIATE-DEPENDENTS0 MEM-ROR-INS . MEMORY-SHIFT-ROTATE) (IMMEDIATE-DEPENDENTS0 MEM-ROXL-INS . MEMORY-SHIFT-ROTATE) (IMMEDIATE-DEPENDENTS0 MEM-ROXR-INS . MEMORY-SHIFT-ROTATE) (IMMEDIATE-DEPENDENTS0 MEM-LSL-INS . MEMORY-SHIFT-ROTATE) (IMMEDIATE-DEPENDENTS0 MEM-LSR-INS . MEMORY-SHIFT-ROTATE) (IMMEDIATE-DEPENDENTS0 MEM-ASL-INS . MEMORY-SHIFT-ROTATE) (IMMEDIATE-DEPENDENTS0 MEM-ASR-INS . MEMORY-SHIFT-ROTATE) (IMMEDIATE-DEPENDENTS0 BITN . MEMORY-SHIFT-ROTATE) (IMMEDIATE-DEPENDENTS0 B0P . MEMORY-SHIFT-ROTATE) (DCELL . *1*MEMORY-SHIFT-ROTATE))))) (PUT1-LST (QUOTE *1*MEM-ROXR-INS) (QUOTE (MAIN-EVENT MEM-ROXR-INS))) (PUT1-LST (QUOTE MEM-ROXR-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((MEM-ROXR-INS -1 NIL NIL)) TOTALP-LST ((MEM-ROXR-INS . T)) SDEFN (LAMBDA (INS S) (IF (S&R-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (W) INS S))) (CAR (MC-INSTATE (W) INS S)) (MAPPING (W) (MEM-ROXR-EFFECT (OPERAND (W) (CDR (MC-INSTATE (W) INS S)) S) (MC-CCR S)) (MC-INSTATE (W) INS S))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*MEM-ROXR-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*MEM-ROXR-INS) IMMEDIATE-DEPENDENTS0 (MEMORY-SHIFT-ROTATE) EVENT (DEFN MEM-ROXR-INS (INS S) (IF (S&R-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (W) INS S))) (CAR (MC-INSTATE (W) INS S)) (MAPPING (W) (MEM-ROXR-EFFECT (OPERAND (W) (CDR (MC-INSTATE (W) INS S)) S) (MC-CCR S)) (MC-INSTATE (W) INS S))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . MEM-ROXR-INS) (IMMEDIATE-DEPENDENTS0 HALT . MEM-ROXR-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . MEM-ROXR-INS) (IMMEDIATE-DEPENDENTS0 OPERAND . MEM-ROXR-INS) (IMMEDIATE-DEPENDENTS0 MEM-ROXR-EFFECT . MEM-ROXR-INS) (IMMEDIATE-DEPENDENTS0 MAPPING . MEM-ROXR-INS) (IMMEDIATE-DEPENDENTS0 W . MEM-ROXR-INS) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . MEM-ROXR-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . MEM-ROXR-INS) (IMMEDIATE-DEPENDENTS0 S&R-ADDR-MODEP . MEM-ROXR-INS) (DCELL . *1*MEM-ROXR-INS))))) (PUT1-LST (QUOTE *1*MEM-ROXR-EFFECT) (QUOTE (MAIN-EVENT MEM-ROXR-EFFECT))) (PUT1-LST (QUOTE MEM-ROXR-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((MEM-ROXR-EFFECT 16 NIL NIL)) TOTALP-LST ((MEM-ROXR-EFFECT . T)) SDEFN (LAMBDA (OPD CCR) (ROXR-EFFECT (W) OPD (QUOTE 1) CCR)) LISP-CODE *1*MEM-ROXR-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MEM-ROXR-EFFECT) IMMEDIATE-DEPENDENTS0 (MEM-ROXR-INS) EVENT (DEFN MEM-ROXR-EFFECT (OPD CCR) (ROXR-EFFECT (W) OPD (QUOTE 1) CCR)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 W . MEM-ROXR-EFFECT) (IMMEDIATE-DEPENDENTS0 ROXR-EFFECT . MEM-ROXR-EFFECT) (DCELL . *1*MEM-ROXR-EFFECT))))) (PUT1-LST (QUOTE *1*MEM-ROXL-INS) (QUOTE (MAIN-EVENT MEM-ROXL-INS))) (PUT1-LST (QUOTE MEM-ROXL-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((MEM-ROXL-INS -1 NIL NIL)) TOTALP-LST ((MEM-ROXL-INS . T)) SDEFN (LAMBDA (INS S) (IF (S&R-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (W) INS S))) (CAR (MC-INSTATE (W) INS S)) (MAPPING (W) (MEM-ROXL-EFFECT (OPERAND (W) (CDR (MC-INSTATE (W) INS S)) S) (MC-CCR S)) (MC-INSTATE (W) INS S))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*MEM-ROXL-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*MEM-ROXL-INS) IMMEDIATE-DEPENDENTS0 (MEMORY-SHIFT-ROTATE) EVENT (DEFN MEM-ROXL-INS (INS S) (IF (S&R-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (W) INS S))) (CAR (MC-INSTATE (W) INS S)) (MAPPING (W) (MEM-ROXL-EFFECT (OPERAND (W) (CDR (MC-INSTATE (W) INS S)) S) (MC-CCR S)) (MC-INSTATE (W) INS S))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . MEM-ROXL-INS) (IMMEDIATE-DEPENDENTS0 HALT . MEM-ROXL-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . MEM-ROXL-INS) (IMMEDIATE-DEPENDENTS0 OPERAND . MEM-ROXL-INS) (IMMEDIATE-DEPENDENTS0 MEM-ROXL-EFFECT . MEM-ROXL-INS) (IMMEDIATE-DEPENDENTS0 MAPPING . MEM-ROXL-INS) (IMMEDIATE-DEPENDENTS0 W . MEM-ROXL-INS) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . MEM-ROXL-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . MEM-ROXL-INS) (IMMEDIATE-DEPENDENTS0 S&R-ADDR-MODEP . MEM-ROXL-INS) (DCELL . *1*MEM-ROXL-INS))))) (PUT1-LST (QUOTE *1*MEM-ROXL-EFFECT) (QUOTE (MAIN-EVENT MEM-ROXL-EFFECT))) (PUT1-LST (QUOTE MEM-ROXL-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((MEM-ROXL-EFFECT 16 NIL NIL)) TOTALP-LST ((MEM-ROXL-EFFECT . T)) SDEFN (LAMBDA (OPD CCR) (ROXL-EFFECT (W) OPD (QUOTE 1) CCR)) LISP-CODE *1*MEM-ROXL-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MEM-ROXL-EFFECT) IMMEDIATE-DEPENDENTS0 (MEM-ROXL-INS) EVENT (DEFN MEM-ROXL-EFFECT (OPD CCR) (ROXL-EFFECT (W) OPD (QUOTE 1) CCR)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 W . MEM-ROXL-EFFECT) (IMMEDIATE-DEPENDENTS0 ROXL-EFFECT . MEM-ROXL-EFFECT) (DCELL . *1*MEM-ROXL-EFFECT))))) (PUT1-LST (QUOTE *1*REGISTER-ROXR-INS) (QUOTE (MAIN-EVENT REGISTER-ROXR-INS))) (PUT1-LST (QUOTE REGISTER-ROXR-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((REGISTER-ROXR-INS 16 NIL NIL NIL)) TOTALP-LST ((REGISTER-ROXR-INS . T)) SDEFN (LAMBDA (OPLEN INS S) (D-MAPPING OPLEN (ROXR-EFFECT OPLEN (READ-DN OPLEN (S_RN INS) S) (SR-CNT INS S) (MC-CCR S)) (S_RN INS) S)) LISP-CODE *1*REGISTER-ROXR-INS SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*REGISTER-ROXR-INS) IMMEDIATE-DEPENDENTS0 (REGISTER-SHIFT-ROTATE) EVENT (DEFN REGISTER-ROXR-INS (OPLEN INS S) (D-MAPPING OPLEN (ROXR-EFFECT OPLEN (READ-DN OPLEN (S_RN INS) S) (SR-CNT INS S) (MC-CCR S)) (S_RN INS) S)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-CCR . REGISTER-ROXR-INS) (IMMEDIATE-DEPENDENTS0 SR-CNT . REGISTER-ROXR-INS) (IMMEDIATE-DEPENDENTS0 S_RN . REGISTER-ROXR-INS) (IMMEDIATE-DEPENDENTS0 READ-DN . REGISTER-ROXR-INS) (IMMEDIATE-DEPENDENTS0 ROXR-EFFECT . REGISTER-ROXR-INS) (IMMEDIATE-DEPENDENTS0 D-MAPPING . REGISTER-ROXR-INS) (DCELL . *1*REGISTER-ROXR-INS))))) (PUT1-LST (QUOTE *1*ROXR-EFFECT) (QUOTE (MAIN-EVENT ROXR-EFFECT))) (PUT1-LST (QUOTE ROXR-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((ROXR-EFFECT 16 NIL NIL NIL NIL)) TOTALP-LST ((ROXR-EFFECT . T)) SDEFN (LAMBDA (LEN OPD CNT CCR) (CONS (ROXR LEN OPD CNT (CCR-X CCR)) (ROXR-CVZNX LEN OPD CNT (CCR-X CCR)))) LISP-CODE *1*ROXR-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ROXR-EFFECT) IMMEDIATE-DEPENDENTS0 (MEM-ROXR-EFFECT REGISTER-ROXR-INS) EVENT (DEFN ROXR-EFFECT (LEN OPD CNT CCR) (CONS (ROXR LEN OPD CNT (CCR-X CCR)) (ROXR-CVZNX LEN OPD CNT (CCR-X CCR)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ROXR-CVZNX . ROXR-EFFECT) (IMMEDIATE-DEPENDENTS0 CCR-X . ROXR-EFFECT) (IMMEDIATE-DEPENDENTS0 ROXR . ROXR-EFFECT) (DCELL . *1*ROXR-EFFECT))))) (PUT1-LST (QUOTE *1*ROXR-CVZNX) (QUOTE (MAIN-EVENT ROXR-CVZNX))) (PUT1-LST (QUOTE ROXR-CVZNX) (QUOTE (TYPE-PRESCRIPTION-LST ((ROXR-CVZNX 4 NIL NIL NIL NIL)) TOTALP-LST ((ROXR-CVZNX . T)) SDEFN (LAMBDA (LEN OPD CNT X) (CVZNX (ROXR-C LEN OPD CNT X) (B0) (ROXR-Z LEN OPD CNT X) (ROXR-N LEN OPD CNT X) (ROXR-C LEN OPD CNT X))) LISP-CODE *1*ROXR-CVZNX SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ROXR-CVZNX) IMMEDIATE-DEPENDENTS0 (ROXR-EFFECT) EVENT (DEFN ROXR-CVZNX (LEN OPD CNT X) (CVZNX (ROXR-C LEN OPD CNT X) (B0) (ROXR-Z LEN OPD CNT X) (ROXR-N LEN OPD CNT X) (ROXR-C LEN OPD CNT X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ROXR-N . ROXR-CVZNX) (IMMEDIATE-DEPENDENTS0 ROXR-Z . ROXR-CVZNX) (IMMEDIATE-DEPENDENTS0 B0 . ROXR-CVZNX) (IMMEDIATE-DEPENDENTS0 ROXR-C . ROXR-CVZNX) (IMMEDIATE-DEPENDENTS0 CVZNX . ROXR-CVZNX) (DCELL . *1*ROXR-CVZNX))))) (PUT1-LST (QUOTE *1*ROXR-N) (QUOTE (MAIN-EVENT ROXR-N))) (PUT1-LST (QUOTE ROXR-N) (QUOTE (TYPE-PRESCRIPTION-LST ((ROXR-N 4 NIL NIL NIL NIL)) TOTALP-LST ((ROXR-N . T)) SDEFN (LAMBDA (LEN OPD CNT X) (BITN (ROXR LEN OPD CNT X) (SUB1 LEN))) LISP-CODE *1*ROXR-N SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ROXR-N) IMMEDIATE-DEPENDENTS0 (ROXR-CVZNX) EVENT (DEFN ROXR-N (LEN OPD CNT X) (BITN (ROXR LEN OPD CNT X) (SUB1 LEN))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ROXR . ROXR-N) (IMMEDIATE-DEPENDENTS0 BITN . ROXR-N) (DCELL . *1*ROXR-N))))) (PUT1-LST (QUOTE *1*ROXR-Z) (QUOTE (MAIN-EVENT ROXR-Z))) (PUT1-LST (QUOTE ROXR-Z) (QUOTE (TYPE-PRESCRIPTION-LST ((ROXR-Z 4 NIL NIL NIL NIL)) TOTALP-LST ((ROXR-Z . T)) SDEFN (LAMBDA (LEN OPD CNT X) (IF (EQUAL (ROXR LEN OPD CNT X) (QUOTE 0)) (B1) (B0))) LISP-CODE *1*ROXR-Z SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ROXR-Z) IMMEDIATE-DEPENDENTS0 (ROXR-CVZNX) EVENT (DEFN ROXR-Z (LEN OPD CNT X) (IF (EQUAL (ROXR LEN OPD CNT X) (QUOTE 0)) (B1) (B0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . ROXR-Z) (IMMEDIATE-DEPENDENTS0 B1 . ROXR-Z) (IMMEDIATE-DEPENDENTS0 ROXR . ROXR-Z) (DCELL . *1*ROXR-Z))))) (PUT1-LST (QUOTE *1*ROXR-C) (QUOTE (MAIN-EVENT ROXR-C))) (PUT1-LST (QUOTE ROXR-C) (QUOTE (TYPE-PRESCRIPTION-LST ((ROXR-C 4 NIL NIL NIL NIL)) TOTALP-LST ((ROXR-C . T)) SDEFN (LAMBDA (LEN OPD CNT X) (IF (EQUAL (REMAINDER CNT (ADD1 LEN)) (QUOTE 0)) (FIX-BIT X) (BITN OPD (SUB1 (REMAINDER CNT (ADD1 LEN)))))) LISP-CODE *1*ROXR-C SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ROXR-C) IMMEDIATE-DEPENDENTS0 (ROXR-CVZNX) EVENT (DEFN ROXR-C (LEN OPD CNT X) (IF (EQUAL (REMAINDER CNT (ADD1 LEN)) (QUOTE 0)) (FIX-BIT X) (BITN OPD (SUB1 (REMAINDER CNT (ADD1 LEN)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN . ROXR-C) (IMMEDIATE-DEPENDENTS0 FIX-BIT . ROXR-C) (DCELL . *1*ROXR-C))))) (PUT1-LST (QUOTE *1*REGISTER-ROXL-INS) (QUOTE (MAIN-EVENT REGISTER-ROXL-INS))) (PUT1-LST (QUOTE REGISTER-ROXL-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((REGISTER-ROXL-INS 16 NIL NIL NIL)) TOTALP-LST ((REGISTER-ROXL-INS . T)) SDEFN (LAMBDA (OPLEN INS S) (D-MAPPING OPLEN (ROXL-EFFECT OPLEN (READ-DN OPLEN (S_RN INS) S) (SR-CNT INS S) (MC-CCR S)) (S_RN INS) S)) LISP-CODE *1*REGISTER-ROXL-INS SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*REGISTER-ROXL-INS) IMMEDIATE-DEPENDENTS0 (REGISTER-SHIFT-ROTATE) EVENT (DEFN REGISTER-ROXL-INS (OPLEN INS S) (D-MAPPING OPLEN (ROXL-EFFECT OPLEN (READ-DN OPLEN (S_RN INS) S) (SR-CNT INS S) (MC-CCR S)) (S_RN INS) S)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-CCR . REGISTER-ROXL-INS) (IMMEDIATE-DEPENDENTS0 SR-CNT . REGISTER-ROXL-INS) (IMMEDIATE-DEPENDENTS0 S_RN . REGISTER-ROXL-INS) (IMMEDIATE-DEPENDENTS0 READ-DN . REGISTER-ROXL-INS) (IMMEDIATE-DEPENDENTS0 ROXL-EFFECT . REGISTER-ROXL-INS) (IMMEDIATE-DEPENDENTS0 D-MAPPING . REGISTER-ROXL-INS) (DCELL . *1*REGISTER-ROXL-INS))))) (PUT1-LST (QUOTE *1*ROXL-EFFECT) (QUOTE (MAIN-EVENT ROXL-EFFECT))) (PUT1-LST (QUOTE ROXL-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((ROXL-EFFECT 16 NIL NIL NIL NIL)) TOTALP-LST ((ROXL-EFFECT . T)) SDEFN (LAMBDA (LEN OPD CNT CCR) (CONS (ROXL LEN OPD CNT (CCR-X CCR)) (ROXL-CVZNX LEN OPD CNT (CCR-X CCR)))) LISP-CODE *1*ROXL-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ROXL-EFFECT) IMMEDIATE-DEPENDENTS0 (MEM-ROXL-EFFECT REGISTER-ROXL-INS) EVENT (DEFN ROXL-EFFECT (LEN OPD CNT CCR) (CONS (ROXL LEN OPD CNT (CCR-X CCR)) (ROXL-CVZNX LEN OPD CNT (CCR-X CCR)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ROXL-CVZNX . ROXL-EFFECT) (IMMEDIATE-DEPENDENTS0 CCR-X . ROXL-EFFECT) (IMMEDIATE-DEPENDENTS0 ROXL . ROXL-EFFECT) (DCELL . *1*ROXL-EFFECT))))) (PUT1-LST (QUOTE *1*ROXL-CVZNX) (QUOTE (MAIN-EVENT ROXL-CVZNX))) (PUT1-LST (QUOTE ROXL-CVZNX) (QUOTE (TYPE-PRESCRIPTION-LST ((ROXL-CVZNX 4 NIL NIL NIL NIL)) TOTALP-LST ((ROXL-CVZNX . T)) SDEFN (LAMBDA (LEN OPD CNT X) (CVZNX (ROXL-C LEN OPD CNT X) (B0) (ROXL-Z LEN OPD CNT X) (ROXL-N LEN OPD CNT X) (ROXL-C LEN OPD CNT X))) LISP-CODE *1*ROXL-CVZNX SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ROXL-CVZNX) IMMEDIATE-DEPENDENTS0 (ROXL-EFFECT) EVENT (DEFN ROXL-CVZNX (LEN OPD CNT X) (CVZNX (ROXL-C LEN OPD CNT X) (B0) (ROXL-Z LEN OPD CNT X) (ROXL-N LEN OPD CNT X) (ROXL-C LEN OPD CNT X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ROXL-N . ROXL-CVZNX) (IMMEDIATE-DEPENDENTS0 ROXL-Z . ROXL-CVZNX) (IMMEDIATE-DEPENDENTS0 B0 . ROXL-CVZNX) (IMMEDIATE-DEPENDENTS0 ROXL-C . ROXL-CVZNX) (IMMEDIATE-DEPENDENTS0 CVZNX . ROXL-CVZNX) (DCELL . *1*ROXL-CVZNX))))) (PUT1-LST (QUOTE *1*ROXL-N) (QUOTE (MAIN-EVENT ROXL-N))) (PUT1-LST (QUOTE ROXL-N) (QUOTE (TYPE-PRESCRIPTION-LST ((ROXL-N 4 NIL NIL NIL NIL)) TOTALP-LST ((ROXL-N . T)) SDEFN (LAMBDA (LEN OPD CNT X) (BITN (ROXL LEN OPD CNT X) (SUB1 LEN))) LISP-CODE *1*ROXL-N SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ROXL-N) IMMEDIATE-DEPENDENTS0 (ROXL-CVZNX) EVENT (DEFN ROXL-N (LEN OPD CNT X) (BITN (ROXL LEN OPD CNT X) (SUB1 LEN))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ROXL . ROXL-N) (IMMEDIATE-DEPENDENTS0 BITN . ROXL-N) (DCELL . *1*ROXL-N))))) (PUT1-LST (QUOTE *1*ROXL-Z) (QUOTE (MAIN-EVENT ROXL-Z))) (PUT1-LST (QUOTE ROXL-Z) (QUOTE (TYPE-PRESCRIPTION-LST ((ROXL-Z 4 NIL NIL NIL NIL)) TOTALP-LST ((ROXL-Z . T)) SDEFN (LAMBDA (LEN OPD CNT X) (IF (EQUAL (ROXL LEN OPD CNT X) (QUOTE 0)) (B1) (B0))) LISP-CODE *1*ROXL-Z SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ROXL-Z) IMMEDIATE-DEPENDENTS0 (ROXL-CVZNX) EVENT (DEFN ROXL-Z (LEN OPD CNT X) (IF (EQUAL (ROXL LEN OPD CNT X) (QUOTE 0)) (B1) (B0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . ROXL-Z) (IMMEDIATE-DEPENDENTS0 B1 . ROXL-Z) (IMMEDIATE-DEPENDENTS0 ROXL . ROXL-Z) (DCELL . *1*ROXL-Z))))) (PUT1-LST (QUOTE *1*ROXL-C) (QUOTE (MAIN-EVENT ROXL-C))) (PUT1-LST (QUOTE ROXL-C) (QUOTE (TYPE-PRESCRIPTION-LST ((ROXL-C 4 NIL NIL NIL NIL)) TOTALP-LST ((ROXL-C . T)) SDEFN (LAMBDA (LEN OPD CNT X) (IF (EQUAL (REMAINDER CNT (ADD1 LEN)) (QUOTE 0)) (FIX-BIT X) (BITN OPD (DIFFERENCE LEN (REMAINDER CNT (ADD1 LEN)))))) LISP-CODE *1*ROXL-C SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ROXL-C) IMMEDIATE-DEPENDENTS0 (ROXL-CVZNX) EVENT (DEFN ROXL-C (LEN OPD CNT X) (IF (EQUAL (REMAINDER CNT (ADD1 LEN)) (QUOTE 0)) (FIX-BIT X) (BITN OPD (DIFFERENCE LEN (REMAINDER CNT (ADD1 LEN)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN . ROXL-C) (IMMEDIATE-DEPENDENTS0 FIX-BIT . ROXL-C) (DCELL . *1*ROXL-C))))) (PUT1-LST (QUOTE *1*ROXR) (QUOTE (MAIN-EVENT ROXR))) (PUT1-LST (QUOTE ROXR) (QUOTE (TYPE-PRESCRIPTION-LST ((ROXR 4 NIL NIL NIL NIL)) TOTALP-LST ((ROXR . T)) SDEFN (LAMBDA (LEN OPD CNT X) (HEAD (ROR (ADD1 LEN) (PLUS OPD (TIMES X (EXP (QUOTE 2) LEN))) CNT) LEN)) LISP-CODE *1*ROXR SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ROXR) IMMEDIATE-DEPENDENTS0 (ROXR-EFFECT ROXR-N ROXR-Z) EVENT (DEFN ROXR (LEN OPD CNT X) (HEAD (ROR (ADD1 LEN) (PLUS OPD (TIMES X (EXP (QUOTE 2) LEN))) CNT) LEN)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP . ROXR) (IMMEDIATE-DEPENDENTS0 ROR . ROXR) (IMMEDIATE-DEPENDENTS0 HEAD . ROXR) (DCELL . *1*ROXR))))) (PUT1-LST (QUOTE *1*ROXL) (QUOTE (MAIN-EVENT ROXL))) (PUT1-LST (QUOTE ROXL) (QUOTE (TYPE-PRESCRIPTION-LST ((ROXL 4 NIL NIL NIL NIL)) TOTALP-LST ((ROXL . T)) SDEFN (LAMBDA (LEN OPD CNT X) (BCDR (ROL (ADD1 LEN) (PLUS X (TIMES (QUOTE 2) OPD)) CNT))) LISP-CODE *1*ROXL SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ROXL) IMMEDIATE-DEPENDENTS0 (ROXL-EFFECT ROXL-N ROXL-Z) EVENT (DEFN ROXL (LEN OPD CNT X) (BCDR (ROL (ADD1 LEN) (PLUS X (TIMES (QUOTE 2) OPD)) CNT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ROL . ROXL) (IMMEDIATE-DEPENDENTS0 BCDR . ROXL) (DCELL . *1*ROXL))))) (PUT1-LST (QUOTE *1*MEM-ASR-INS) (QUOTE (MAIN-EVENT MEM-ASR-INS))) (PUT1-LST (QUOTE MEM-ASR-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((MEM-ASR-INS -1 NIL NIL)) TOTALP-LST ((MEM-ASR-INS . T)) SDEFN (LAMBDA (INS S) (IF (S&R-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (W) INS S))) (CAR (MC-INSTATE (W) INS S)) (MAPPING (W) (MEM-ASR-EFFECT (OPERAND (W) (CDR (MC-INSTATE (W) INS S)) S) (MC-CCR S)) (MC-INSTATE (W) INS S))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*MEM-ASR-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*MEM-ASR-INS) IMMEDIATE-DEPENDENTS0 (MEMORY-SHIFT-ROTATE) EVENT (DEFN MEM-ASR-INS (INS S) (IF (S&R-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (W) INS S))) (CAR (MC-INSTATE (W) INS S)) (MAPPING (W) (MEM-ASR-EFFECT (OPERAND (W) (CDR (MC-INSTATE (W) INS S)) S) (MC-CCR S)) (MC-INSTATE (W) INS S))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . MEM-ASR-INS) (IMMEDIATE-DEPENDENTS0 HALT . MEM-ASR-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . MEM-ASR-INS) (IMMEDIATE-DEPENDENTS0 OPERAND . MEM-ASR-INS) (IMMEDIATE-DEPENDENTS0 MEM-ASR-EFFECT . MEM-ASR-INS) (IMMEDIATE-DEPENDENTS0 MAPPING . MEM-ASR-INS) (IMMEDIATE-DEPENDENTS0 W . MEM-ASR-INS) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . MEM-ASR-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . MEM-ASR-INS) (IMMEDIATE-DEPENDENTS0 S&R-ADDR-MODEP . MEM-ASR-INS) (DCELL . *1*MEM-ASR-INS))))) (PUT1-LST (QUOTE *1*MEM-ASR-EFFECT) (QUOTE (MAIN-EVENT MEM-ASR-EFFECT))) (PUT1-LST (QUOTE MEM-ASR-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((MEM-ASR-EFFECT 16 NIL NIL)) TOTALP-LST ((MEM-ASR-EFFECT . T)) SDEFN (LAMBDA (OPD CCR) (ASR-EFFECT (W) OPD (QUOTE 1) CCR)) LISP-CODE *1*MEM-ASR-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MEM-ASR-EFFECT) IMMEDIATE-DEPENDENTS0 (MEM-ASR-INS) EVENT (DEFN MEM-ASR-EFFECT (OPD CCR) (ASR-EFFECT (W) OPD (QUOTE 1) CCR)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 W . MEM-ASR-EFFECT) (IMMEDIATE-DEPENDENTS0 ASR-EFFECT . MEM-ASR-EFFECT) (DCELL . *1*MEM-ASR-EFFECT))))) (PUT1-LST (QUOTE *1*MEM-ASL-INS) (QUOTE (MAIN-EVENT MEM-ASL-INS))) (PUT1-LST (QUOTE MEM-ASL-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((MEM-ASL-INS -1 NIL NIL)) TOTALP-LST ((MEM-ASL-INS . T)) SDEFN (LAMBDA (INS S) (IF (S&R-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (W) INS S))) (CAR (MC-INSTATE (W) INS S)) (MAPPING (W) (MEM-ASL-EFFECT (OPERAND (W) (CDR (MC-INSTATE (W) INS S)) S) (MC-CCR S)) (MC-INSTATE (W) INS S))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*MEM-ASL-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*MEM-ASL-INS) IMMEDIATE-DEPENDENTS0 (MEMORY-SHIFT-ROTATE) EVENT (DEFN MEM-ASL-INS (INS S) (IF (S&R-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (W) INS S))) (CAR (MC-INSTATE (W) INS S)) (MAPPING (W) (MEM-ASL-EFFECT (OPERAND (W) (CDR (MC-INSTATE (W) INS S)) S) (MC-CCR S)) (MC-INSTATE (W) INS S))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . MEM-ASL-INS) (IMMEDIATE-DEPENDENTS0 HALT . MEM-ASL-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . MEM-ASL-INS) (IMMEDIATE-DEPENDENTS0 OPERAND . MEM-ASL-INS) (IMMEDIATE-DEPENDENTS0 MEM-ASL-EFFECT . MEM-ASL-INS) (IMMEDIATE-DEPENDENTS0 MAPPING . MEM-ASL-INS) (IMMEDIATE-DEPENDENTS0 W . MEM-ASL-INS) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . MEM-ASL-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . MEM-ASL-INS) (IMMEDIATE-DEPENDENTS0 S&R-ADDR-MODEP . MEM-ASL-INS) (DCELL . *1*MEM-ASL-INS))))) (PUT1-LST (QUOTE *1*MEM-ASL-EFFECT) (QUOTE (MAIN-EVENT MEM-ASL-EFFECT))) (PUT1-LST (QUOTE MEM-ASL-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((MEM-ASL-EFFECT 16 NIL NIL)) TOTALP-LST ((MEM-ASL-EFFECT . T)) SDEFN (LAMBDA (OPD CCR) (ASL-EFFECT (W) OPD (QUOTE 1) CCR)) LISP-CODE *1*MEM-ASL-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MEM-ASL-EFFECT) IMMEDIATE-DEPENDENTS0 (MEM-ASL-INS) EVENT (DEFN MEM-ASL-EFFECT (OPD CCR) (ASL-EFFECT (W) OPD (QUOTE 1) CCR)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 W . MEM-ASL-EFFECT) (IMMEDIATE-DEPENDENTS0 ASL-EFFECT . MEM-ASL-EFFECT) (DCELL . *1*MEM-ASL-EFFECT))))) (PUT1-LST (QUOTE *1*REGISTER-ASR-INS) (QUOTE (MAIN-EVENT REGISTER-ASR-INS))) (PUT1-LST (QUOTE REGISTER-ASR-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((REGISTER-ASR-INS 16 NIL NIL NIL)) TOTALP-LST ((REGISTER-ASR-INS . T)) SDEFN (LAMBDA (OPLEN INS S) (D-MAPPING OPLEN (ASR-EFFECT OPLEN (READ-DN OPLEN (S_RN INS) S) (SR-CNT INS S) (MC-CCR S)) (S_RN INS) S)) LISP-CODE *1*REGISTER-ASR-INS SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*REGISTER-ASR-INS) IMMEDIATE-DEPENDENTS0 (REGISTER-SHIFT-ROTATE) EVENT (DEFN REGISTER-ASR-INS (OPLEN INS S) (D-MAPPING OPLEN (ASR-EFFECT OPLEN (READ-DN OPLEN (S_RN INS) S) (SR-CNT INS S) (MC-CCR S)) (S_RN INS) S)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-CCR . REGISTER-ASR-INS) (IMMEDIATE-DEPENDENTS0 SR-CNT . REGISTER-ASR-INS) (IMMEDIATE-DEPENDENTS0 S_RN . REGISTER-ASR-INS) (IMMEDIATE-DEPENDENTS0 READ-DN . REGISTER-ASR-INS) (IMMEDIATE-DEPENDENTS0 ASR-EFFECT . REGISTER-ASR-INS) (IMMEDIATE-DEPENDENTS0 D-MAPPING . REGISTER-ASR-INS) (DCELL . *1*REGISTER-ASR-INS))))) (PUT1-LST (QUOTE *1*ASR-EFFECT) (QUOTE (MAIN-EVENT ASR-EFFECT))) (PUT1-LST (QUOTE ASR-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((ASR-EFFECT 16 NIL NIL NIL NIL)) TOTALP-LST ((ASR-EFFECT . T)) SDEFN (LAMBDA (LEN OPD CNT CCR) (CONS (ASR LEN OPD CNT) (ASR-CVZNX LEN OPD CNT CCR))) LISP-CODE *1*ASR-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ASR-EFFECT) IMMEDIATE-DEPENDENTS0 (MEM-ASR-EFFECT REGISTER-ASR-INS) EVENT (DEFN ASR-EFFECT (LEN OPD CNT CCR) (CONS (ASR LEN OPD CNT) (ASR-CVZNX LEN OPD CNT CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ASR-CVZNX . ASR-EFFECT) (IMMEDIATE-DEPENDENTS0 ASR . ASR-EFFECT) (DCELL . *1*ASR-EFFECT))))) (PUT1-LST (QUOTE *1*ASR-CVZNX) (QUOTE (MAIN-EVENT ASR-CVZNX))) (PUT1-LST (QUOTE ASR-CVZNX) (QUOTE (TYPE-PRESCRIPTION-LST ((ASR-CVZNX 4 NIL NIL NIL NIL)) TOTALP-LST ((ASR-CVZNX . T)) SDEFN (LAMBDA (LEN OPD CNT CCR) (CVZNX (ASR-C LEN OPD CNT) (B0) (ASR-Z LEN OPD CNT) (ASR-N LEN OPD CNT) (ASR-X LEN OPD CNT CCR))) LISP-CODE *1*ASR-CVZNX SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ASR-CVZNX) IMMEDIATE-DEPENDENTS0 (ASR-EFFECT) EVENT (DEFN ASR-CVZNX (LEN OPD CNT CCR) (CVZNX (ASR-C LEN OPD CNT) (B0) (ASR-Z LEN OPD CNT) (ASR-N LEN OPD CNT) (ASR-X LEN OPD CNT CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ASR-X . ASR-CVZNX) (IMMEDIATE-DEPENDENTS0 ASR-N . ASR-CVZNX) (IMMEDIATE-DEPENDENTS0 ASR-Z . ASR-CVZNX) (IMMEDIATE-DEPENDENTS0 B0 . ASR-CVZNX) (IMMEDIATE-DEPENDENTS0 ASR-C . ASR-CVZNX) (IMMEDIATE-DEPENDENTS0 CVZNX . ASR-CVZNX) (DCELL . *1*ASR-CVZNX))))) (PUT1-LST (QUOTE *1*ASR-X) (QUOTE (MAIN-EVENT ASR-X))) (PUT1-LST (QUOTE ASR-X) (QUOTE (TYPE-PRESCRIPTION-LST ((ASR-X 4 NIL NIL NIL NIL)) TOTALP-LST ((ASR-X . T)) SDEFN (LAMBDA (LEN OPD CNT CCR) (IF (EQUAL CNT (QUOTE 0)) (CCR-X CCR) (ASR-C LEN OPD CNT))) LISP-CODE *1*ASR-X SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ASR-X) IMMEDIATE-DEPENDENTS0 (ASR-CVZNX) EVENT (DEFN ASR-X (LEN OPD CNT CCR) (IF (EQUAL CNT (QUOTE 0)) (CCR-X CCR) (ASR-C LEN OPD CNT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ASR-C . ASR-X) (IMMEDIATE-DEPENDENTS0 CCR-X . ASR-X) (DCELL . *1*ASR-X))))) (PUT1-LST (QUOTE *1*ASR-N) (QUOTE (MAIN-EVENT ASR-N))) (PUT1-LST (QUOTE ASR-N) (QUOTE (TYPE-PRESCRIPTION-LST ((ASR-N 4 NIL NIL NIL)) TOTALP-LST ((ASR-N . T)) SDEFN (LAMBDA (LEN OPD CNT) (MBIT (ASR LEN OPD CNT) LEN)) LISP-CODE *1*ASR-N SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ASR-N) IMMEDIATE-DEPENDENTS0 (ASR-CVZNX) EVENT (DEFN ASR-N (LEN OPD CNT) (MBIT (ASR LEN OPD CNT) LEN)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ASR . ASR-N) (IMMEDIATE-DEPENDENTS0 MBIT . ASR-N) (DCELL . *1*ASR-N))))) (PUT1-LST (QUOTE *1*ASR-Z) (QUOTE (MAIN-EVENT ASR-Z))) (PUT1-LST (QUOTE ASR-Z) (QUOTE (TYPE-PRESCRIPTION-LST ((ASR-Z 4 NIL NIL NIL)) TOTALP-LST ((ASR-Z . T)) SDEFN (LAMBDA (LEN OPD CNT) (IF (EQUAL (ASR LEN OPD CNT) (QUOTE 0)) (B1) (B0))) LISP-CODE *1*ASR-Z SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ASR-Z) IMMEDIATE-DEPENDENTS0 (ASR-CVZNX) EVENT (DEFN ASR-Z (LEN OPD CNT) (IF (EQUAL (ASR LEN OPD CNT) (QUOTE 0)) (B1) (B0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . ASR-Z) (IMMEDIATE-DEPENDENTS0 B1 . ASR-Z) (IMMEDIATE-DEPENDENTS0 ASR . ASR-Z) (DCELL . *1*ASR-Z))))) (PUT1-LST (QUOTE *1*ASR-C) (QUOTE (MAIN-EVENT ASR-C))) (PUT1-LST (QUOTE ASR-C) (QUOTE (TYPE-PRESCRIPTION-LST ((ASR-C 4 NIL NIL NIL)) TOTALP-LST ((ASR-C . T)) SDEFN (LAMBDA (LEN OPD CNT) (IF (EQUAL CNT (QUOTE 0)) (B0) (IF (LESSP CNT LEN) (BITN OPD (SUB1 CNT)) (BITN OPD (SUB1 LEN))))) LISP-CODE *1*ASR-C SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ASR-C) IMMEDIATE-DEPENDENTS0 (ASR-CVZNX ASR-X) EVENT (DEFN ASR-C (LEN OPD CNT) (IF (EQUAL CNT (QUOTE 0)) (B0) (IF (LESSP CNT LEN) (BITN OPD (SUB1 CNT)) (BITN OPD (SUB1 LEN))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN . ASR-C) (IMMEDIATE-DEPENDENTS0 B0 . ASR-C) (DCELL . *1*ASR-C))))) (PUT1-LST (QUOTE *1*REGISTER-ASL-INS) (QUOTE (MAIN-EVENT REGISTER-ASL-INS))) (PUT1-LST (QUOTE REGISTER-ASL-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((REGISTER-ASL-INS 16 NIL NIL NIL)) TOTALP-LST ((REGISTER-ASL-INS . T)) SDEFN (LAMBDA (OPLEN INS S) (D-MAPPING OPLEN (ASL-EFFECT OPLEN (READ-DN OPLEN (S_RN INS) S) (SR-CNT INS S) (MC-CCR S)) (S_RN INS) S)) LISP-CODE *1*REGISTER-ASL-INS SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*REGISTER-ASL-INS) IMMEDIATE-DEPENDENTS0 (REGISTER-SHIFT-ROTATE) EVENT (DEFN REGISTER-ASL-INS (OPLEN INS S) (D-MAPPING OPLEN (ASL-EFFECT OPLEN (READ-DN OPLEN (S_RN INS) S) (SR-CNT INS S) (MC-CCR S)) (S_RN INS) S)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-CCR . REGISTER-ASL-INS) (IMMEDIATE-DEPENDENTS0 SR-CNT . REGISTER-ASL-INS) (IMMEDIATE-DEPENDENTS0 S_RN . REGISTER-ASL-INS) (IMMEDIATE-DEPENDENTS0 READ-DN . REGISTER-ASL-INS) (IMMEDIATE-DEPENDENTS0 ASL-EFFECT . REGISTER-ASL-INS) (IMMEDIATE-DEPENDENTS0 D-MAPPING . REGISTER-ASL-INS) (DCELL . *1*REGISTER-ASL-INS))))) (PUT1-LST (QUOTE *1*ASL-EFFECT) (QUOTE (MAIN-EVENT ASL-EFFECT))) (PUT1-LST (QUOTE ASL-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((ASL-EFFECT 16 NIL NIL NIL NIL)) TOTALP-LST ((ASL-EFFECT . T)) SDEFN (LAMBDA (LEN OPD CNT CCR) (CONS (ASL LEN OPD CNT) (ASL-CVZNX LEN OPD CNT CCR))) LISP-CODE *1*ASL-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ASL-EFFECT) IMMEDIATE-DEPENDENTS0 (MEM-ASL-EFFECT REGISTER-ASL-INS) EVENT (DEFN ASL-EFFECT (LEN OPD CNT CCR) (CONS (ASL LEN OPD CNT) (ASL-CVZNX LEN OPD CNT CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ASL-CVZNX . ASL-EFFECT) (IMMEDIATE-DEPENDENTS0 ASL . ASL-EFFECT) (DCELL . *1*ASL-EFFECT))))) (PUT1-LST (QUOTE *1*ASL-CVZNX) (QUOTE (MAIN-EVENT ASL-CVZNX))) (PUT1-LST (QUOTE ASL-CVZNX) (QUOTE (TYPE-PRESCRIPTION-LST ((ASL-CVZNX 4 NIL NIL NIL NIL)) TOTALP-LST ((ASL-CVZNX . T)) SDEFN (LAMBDA (LEN OPD CNT CCR) (CVZNX (ASL-C LEN OPD CNT) (ASL-V LEN OPD CNT) (ASL-Z LEN OPD CNT) (ASL-N LEN OPD CNT) (ASL-X LEN OPD CNT CCR))) LISP-CODE *1*ASL-CVZNX SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ASL-CVZNX) IMMEDIATE-DEPENDENTS0 (ASL-EFFECT) EVENT (DEFN ASL-CVZNX (LEN OPD CNT CCR) (CVZNX (ASL-C LEN OPD CNT) (ASL-V LEN OPD CNT) (ASL-Z LEN OPD CNT) (ASL-N LEN OPD CNT) (ASL-X LEN OPD CNT CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ASL-X . ASL-CVZNX) (IMMEDIATE-DEPENDENTS0 ASL-N . ASL-CVZNX) (IMMEDIATE-DEPENDENTS0 ASL-Z . ASL-CVZNX) (IMMEDIATE-DEPENDENTS0 ASL-V . ASL-CVZNX) (IMMEDIATE-DEPENDENTS0 ASL-C . ASL-CVZNX) (IMMEDIATE-DEPENDENTS0 CVZNX . ASL-CVZNX) (DCELL . *1*ASL-CVZNX))))) (PUT1-LST (QUOTE *1*ASL-X) (QUOTE (MAIN-EVENT ASL-X))) (PUT1-LST (QUOTE ASL-X) (QUOTE (TYPE-PRESCRIPTION-LST ((ASL-X 4 NIL NIL NIL NIL)) TOTALP-LST ((ASL-X . T)) SDEFN (LAMBDA (LEN OPD CNT CCR) (IF (EQUAL CNT (QUOTE 0)) (CCR-X CCR) (ASL-C LEN OPD CNT))) LISP-CODE *1*ASL-X SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ASL-X) IMMEDIATE-DEPENDENTS0 (ASL-CVZNX) EVENT (DEFN ASL-X (LEN OPD CNT CCR) (IF (EQUAL CNT (QUOTE 0)) (CCR-X CCR) (ASL-C LEN OPD CNT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ASL-C . ASL-X) (IMMEDIATE-DEPENDENTS0 CCR-X . ASL-X) (DCELL . *1*ASL-X))))) (PUT1-LST (QUOTE *1*ASL-N) (QUOTE (MAIN-EVENT ASL-N))) (PUT1-LST (QUOTE ASL-N) (QUOTE (TYPE-PRESCRIPTION-LST ((ASL-N 4 NIL NIL NIL)) TOTALP-LST ((ASL-N . T)) SDEFN (LAMBDA (LEN OPD CNT) (MBIT (ASL LEN OPD CNT) LEN)) LISP-CODE *1*ASL-N SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ASL-N) IMMEDIATE-DEPENDENTS0 (ASL-CVZNX) EVENT (DEFN ASL-N (LEN OPD CNT) (MBIT (ASL LEN OPD CNT) LEN)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ASL . ASL-N) (IMMEDIATE-DEPENDENTS0 MBIT . ASL-N) (DCELL . *1*ASL-N))))) (PUT1-LST (QUOTE *1*ASL-Z) (QUOTE (MAIN-EVENT ASL-Z))) (PUT1-LST (QUOTE ASL-Z) (QUOTE (TYPE-PRESCRIPTION-LST ((ASL-Z 4 NIL NIL NIL)) TOTALP-LST ((ASL-Z . T)) SDEFN (LAMBDA (LEN OPD CNT) (IF (EQUAL (ASL LEN OPD CNT) (QUOTE 0)) (B1) (B0))) LISP-CODE *1*ASL-Z SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ASL-Z) IMMEDIATE-DEPENDENTS0 (ASL-CVZNX) EVENT (DEFN ASL-Z (LEN OPD CNT) (IF (EQUAL (ASL LEN OPD CNT) (QUOTE 0)) (B1) (B0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . ASL-Z) (IMMEDIATE-DEPENDENTS0 B1 . ASL-Z) (IMMEDIATE-DEPENDENTS0 ASL . ASL-Z) (DCELL . *1*ASL-Z))))) (PUT1-LST (QUOTE *1*ASL-V) (QUOTE (MAIN-EVENT ASL-V))) (PUT1-LST (QUOTE ASL-V) (QUOTE (TYPE-PRESCRIPTION-LST ((ASL-V 4 NIL NIL NIL)) TOTALP-LST ((ASL-V . T)) SDEFN (LAMBDA (LEN OPD CNT) (IF (INT-RANGEP (NAT-TO-INT OPD LEN) (DIFFERENCE LEN CNT)) (B0) (B1))) LISP-CODE *1*ASL-V SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ASL-V) IMMEDIATE-DEPENDENTS0 (ASL-CVZNX) EVENT (DEFN ASL-V (LEN OPD CNT) (IF (INT-RANGEP (NAT-TO-INT OPD LEN) (DIFFERENCE LEN CNT)) (B0) (B1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B1 . ASL-V) (IMMEDIATE-DEPENDENTS0 B0 . ASL-V) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . ASL-V) (IMMEDIATE-DEPENDENTS0 INT-RANGEP . ASL-V) (DCELL . *1*ASL-V))))) (PUT1-LST (QUOTE *1*ASL-C) (QUOTE (MAIN-EVENT ASL-C))) (PUT1-LST (QUOTE ASL-C) (QUOTE (TYPE-PRESCRIPTION-LST ((ASL-C 4 NIL NIL NIL)) TOTALP-LST ((ASL-C . T)) SDEFN (LAMBDA (LEN OPD CNT) (LSL-C LEN OPD CNT)) LISP-CODE *1*ASL-C SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ASL-C) IMMEDIATE-DEPENDENTS0 (ASL-CVZNX ASL-X) EVENT (DEFN ASL-C (LEN OPD CNT) (LSL-C LEN OPD CNT)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSL-C . ASL-C) (DCELL . *1*ASL-C))))) (PUT1-LST (QUOTE *1*MEM-LSR-INS) (QUOTE (MAIN-EVENT MEM-LSR-INS))) (PUT1-LST (QUOTE MEM-LSR-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((MEM-LSR-INS -1 NIL NIL)) TOTALP-LST ((MEM-LSR-INS . T)) SDEFN (LAMBDA (INS S) (IF (S&R-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (W) INS S))) (CAR (MC-INSTATE (W) INS S)) (MAPPING (W) (MEM-LSR-EFFECT (OPERAND (W) (CDR (MC-INSTATE (W) INS S)) S) (MC-CCR S)) (MC-INSTATE (W) INS S))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*MEM-LSR-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*MEM-LSR-INS) IMMEDIATE-DEPENDENTS0 (MEMORY-SHIFT-ROTATE) EVENT (DEFN MEM-LSR-INS (INS S) (IF (S&R-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (W) INS S))) (CAR (MC-INSTATE (W) INS S)) (MAPPING (W) (MEM-LSR-EFFECT (OPERAND (W) (CDR (MC-INSTATE (W) INS S)) S) (MC-CCR S)) (MC-INSTATE (W) INS S))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . MEM-LSR-INS) (IMMEDIATE-DEPENDENTS0 HALT . MEM-LSR-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . MEM-LSR-INS) (IMMEDIATE-DEPENDENTS0 OPERAND . MEM-LSR-INS) (IMMEDIATE-DEPENDENTS0 MEM-LSR-EFFECT . MEM-LSR-INS) (IMMEDIATE-DEPENDENTS0 MAPPING . MEM-LSR-INS) (IMMEDIATE-DEPENDENTS0 W . MEM-LSR-INS) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . MEM-LSR-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . MEM-LSR-INS) (IMMEDIATE-DEPENDENTS0 S&R-ADDR-MODEP . MEM-LSR-INS) (DCELL . *1*MEM-LSR-INS))))) (PUT1-LST (QUOTE *1*MEM-LSR-EFFECT) (QUOTE (MAIN-EVENT MEM-LSR-EFFECT))) (PUT1-LST (QUOTE MEM-LSR-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((MEM-LSR-EFFECT 16 NIL NIL)) TOTALP-LST ((MEM-LSR-EFFECT . T)) SDEFN (LAMBDA (OPD CCR) (LSR-EFFECT (W) OPD (QUOTE 1) CCR)) LISP-CODE *1*MEM-LSR-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MEM-LSR-EFFECT) IMMEDIATE-DEPENDENTS0 (MEM-LSR-INS) EVENT (DEFN MEM-LSR-EFFECT (OPD CCR) (LSR-EFFECT (W) OPD (QUOTE 1) CCR)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 W . MEM-LSR-EFFECT) (IMMEDIATE-DEPENDENTS0 LSR-EFFECT . MEM-LSR-EFFECT) (DCELL . *1*MEM-LSR-EFFECT))))) (PUT1-LST (QUOTE *1*MEM-LSL-INS) (QUOTE (MAIN-EVENT MEM-LSL-INS))) (PUT1-LST (QUOTE MEM-LSL-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((MEM-LSL-INS -1 NIL NIL)) TOTALP-LST ((MEM-LSL-INS . T)) SDEFN (LAMBDA (INS S) (IF (S&R-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (W) INS S))) (CAR (MC-INSTATE (W) INS S)) (MAPPING (W) (MEM-LSL-EFFECT (OPERAND (W) (CDR (MC-INSTATE (W) INS S)) S) (MC-CCR S)) (MC-INSTATE (W) INS S))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*MEM-LSL-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*MEM-LSL-INS) IMMEDIATE-DEPENDENTS0 (MEMORY-SHIFT-ROTATE) EVENT (DEFN MEM-LSL-INS (INS S) (IF (S&R-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (W) INS S))) (CAR (MC-INSTATE (W) INS S)) (MAPPING (W) (MEM-LSL-EFFECT (OPERAND (W) (CDR (MC-INSTATE (W) INS S)) S) (MC-CCR S)) (MC-INSTATE (W) INS S))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . MEM-LSL-INS) (IMMEDIATE-DEPENDENTS0 HALT . MEM-LSL-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . MEM-LSL-INS) (IMMEDIATE-DEPENDENTS0 OPERAND . MEM-LSL-INS) (IMMEDIATE-DEPENDENTS0 MEM-LSL-EFFECT . MEM-LSL-INS) (IMMEDIATE-DEPENDENTS0 MAPPING . MEM-LSL-INS) (IMMEDIATE-DEPENDENTS0 W . MEM-LSL-INS) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . MEM-LSL-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . MEM-LSL-INS) (IMMEDIATE-DEPENDENTS0 S&R-ADDR-MODEP . MEM-LSL-INS) (DCELL . *1*MEM-LSL-INS))))) (PUT1-LST (QUOTE *1*MEM-LSL-EFFECT) (QUOTE (MAIN-EVENT MEM-LSL-EFFECT))) (PUT1-LST (QUOTE MEM-LSL-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((MEM-LSL-EFFECT 16 NIL NIL)) TOTALP-LST ((MEM-LSL-EFFECT . T)) SDEFN (LAMBDA (OPD CCR) (LSL-EFFECT (W) OPD (QUOTE 1) CCR)) LISP-CODE *1*MEM-LSL-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MEM-LSL-EFFECT) IMMEDIATE-DEPENDENTS0 (MEM-LSL-INS) EVENT (DEFN MEM-LSL-EFFECT (OPD CCR) (LSL-EFFECT (W) OPD (QUOTE 1) CCR)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 W . MEM-LSL-EFFECT) (IMMEDIATE-DEPENDENTS0 LSL-EFFECT . MEM-LSL-EFFECT) (DCELL . *1*MEM-LSL-EFFECT))))) (PUT1-LST (QUOTE *1*REGISTER-LSR-INS) (QUOTE (MAIN-EVENT REGISTER-LSR-INS))) (PUT1-LST (QUOTE REGISTER-LSR-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((REGISTER-LSR-INS 16 NIL NIL NIL)) TOTALP-LST ((REGISTER-LSR-INS . T)) SDEFN (LAMBDA (OPLEN INS S) (D-MAPPING OPLEN (LSR-EFFECT OPLEN (READ-DN OPLEN (S_RN INS) S) (SR-CNT INS S) (MC-CCR S)) (S_RN INS) S)) LISP-CODE *1*REGISTER-LSR-INS SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*REGISTER-LSR-INS) IMMEDIATE-DEPENDENTS0 (REGISTER-SHIFT-ROTATE) EVENT (DEFN REGISTER-LSR-INS (OPLEN INS S) (D-MAPPING OPLEN (LSR-EFFECT OPLEN (READ-DN OPLEN (S_RN INS) S) (SR-CNT INS S) (MC-CCR S)) (S_RN INS) S)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-CCR . REGISTER-LSR-INS) (IMMEDIATE-DEPENDENTS0 SR-CNT . REGISTER-LSR-INS) (IMMEDIATE-DEPENDENTS0 S_RN . REGISTER-LSR-INS) (IMMEDIATE-DEPENDENTS0 READ-DN . REGISTER-LSR-INS) (IMMEDIATE-DEPENDENTS0 LSR-EFFECT . REGISTER-LSR-INS) (IMMEDIATE-DEPENDENTS0 D-MAPPING . REGISTER-LSR-INS) (DCELL . *1*REGISTER-LSR-INS))))) (PUT1-LST (QUOTE *1*LSR-EFFECT) (QUOTE (MAIN-EVENT LSR-EFFECT))) (PUT1-LST (QUOTE LSR-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((LSR-EFFECT 16 NIL NIL NIL NIL)) TOTALP-LST ((LSR-EFFECT . T)) SDEFN (LAMBDA (LEN OPD CNT CCR) (CONS (LSR OPD CNT) (LSR-CVZNX LEN OPD CNT CCR))) LISP-CODE *1*LSR-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*LSR-EFFECT) IMMEDIATE-DEPENDENTS0 (MEM-LSR-EFFECT REGISTER-LSR-INS) EVENT (DEFN LSR-EFFECT (LEN OPD CNT CCR) (CONS (LSR OPD CNT) (LSR-CVZNX LEN OPD CNT CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSR-CVZNX . LSR-EFFECT) (IMMEDIATE-DEPENDENTS0 LSR . LSR-EFFECT) (DCELL . *1*LSR-EFFECT))))) (PUT1-LST (QUOTE *1*LSR-CVZNX) (QUOTE (MAIN-EVENT LSR-CVZNX))) (PUT1-LST (QUOTE LSR-CVZNX) (QUOTE (TYPE-PRESCRIPTION-LST ((LSR-CVZNX 4 NIL NIL NIL NIL)) TOTALP-LST ((LSR-CVZNX . T)) SDEFN (LAMBDA (LEN OPD CNT CCR) (CVZNX (LSR-C LEN OPD CNT) (B0) (LSR-Z LEN OPD CNT) (LSR-N LEN OPD CNT) (LSR-X LEN OPD CNT CCR))) LISP-CODE *1*LSR-CVZNX SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*LSR-CVZNX) IMMEDIATE-DEPENDENTS0 (LSR-EFFECT) EVENT (DEFN LSR-CVZNX (LEN OPD CNT CCR) (CVZNX (LSR-C LEN OPD CNT) (B0) (LSR-Z LEN OPD CNT) (LSR-N LEN OPD CNT) (LSR-X LEN OPD CNT CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSR-X . LSR-CVZNX) (IMMEDIATE-DEPENDENTS0 LSR-N . LSR-CVZNX) (IMMEDIATE-DEPENDENTS0 LSR-Z . LSR-CVZNX) (IMMEDIATE-DEPENDENTS0 B0 . LSR-CVZNX) (IMMEDIATE-DEPENDENTS0 LSR-C . LSR-CVZNX) (IMMEDIATE-DEPENDENTS0 CVZNX . LSR-CVZNX) (DCELL . *1*LSR-CVZNX))))) (PUT1-LST (QUOTE *1*LSR-X) (QUOTE (MAIN-EVENT LSR-X))) (PUT1-LST (QUOTE LSR-X) (QUOTE (TYPE-PRESCRIPTION-LST ((LSR-X 4 NIL NIL NIL NIL)) TOTALP-LST ((LSR-X . T)) SDEFN (LAMBDA (LEN OPD CNT CCR) (IF (EQUAL CNT (QUOTE 0)) (CCR-X CCR) (LSR-C LEN OPD CNT))) LISP-CODE *1*LSR-X SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*LSR-X) IMMEDIATE-DEPENDENTS0 (LSR-CVZNX) EVENT (DEFN LSR-X (LEN OPD CNT CCR) (IF (EQUAL CNT (QUOTE 0)) (CCR-X CCR) (LSR-C LEN OPD CNT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSR-C . LSR-X) (IMMEDIATE-DEPENDENTS0 CCR-X . LSR-X) (DCELL . *1*LSR-X))))) (PUT1-LST (QUOTE *1*LSR-N) (QUOTE (MAIN-EVENT LSR-N))) (PUT1-LST (QUOTE LSR-N) (QUOTE (TYPE-PRESCRIPTION-LST ((LSR-N 4 NIL NIL NIL)) TOTALP-LST ((LSR-N . T)) SDEFN (LAMBDA (LEN OPD CNT) (MBIT (LSR OPD CNT) LEN)) LISP-CODE *1*LSR-N SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*LSR-N) IMMEDIATE-DEPENDENTS0 (LSR-CVZNX) EVENT (DEFN LSR-N (LEN OPD CNT) (MBIT (LSR OPD CNT) LEN)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSR . LSR-N) (IMMEDIATE-DEPENDENTS0 MBIT . LSR-N) (DCELL . *1*LSR-N))))) (PUT1-LST (QUOTE *1*LSR-Z) (QUOTE (MAIN-EVENT LSR-Z))) (PUT1-LST (QUOTE LSR-Z) (QUOTE (TYPE-PRESCRIPTION-LST ((LSR-Z 4 NIL NIL NIL)) TOTALP-LST ((LSR-Z . T)) SDEFN (LAMBDA (LEN OPD CNT) (IF (EQUAL (LSR OPD CNT) (QUOTE 0)) (B1) (B0))) LISP-CODE *1*LSR-Z SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*LSR-Z) IMMEDIATE-DEPENDENTS0 (LSR-CVZNX) EVENT (DEFN LSR-Z (LEN OPD CNT) (IF (EQUAL (LSR OPD CNT) (QUOTE 0)) (B1) (B0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . LSR-Z) (IMMEDIATE-DEPENDENTS0 B1 . LSR-Z) (IMMEDIATE-DEPENDENTS0 LSR . LSR-Z) (DCELL . *1*LSR-Z))))) (PUT1-LST (QUOTE *1*LSR-C) (QUOTE (MAIN-EVENT LSR-C))) (PUT1-LST (QUOTE LSR-C) (QUOTE (TYPE-PRESCRIPTION-LST ((LSR-C 4 NIL NIL NIL)) TOTALP-LST ((LSR-C . T)) SDEFN (LAMBDA (LEN OPD CNT) (IF (EQUAL CNT (QUOTE 0)) (B0) (IF (LESSP LEN CNT) (B0) (BITN OPD (SUB1 CNT))))) LISP-CODE *1*LSR-C SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*LSR-C) IMMEDIATE-DEPENDENTS0 (LSR-CVZNX LSR-X) EVENT (DEFN LSR-C (LEN OPD CNT) (IF (EQUAL CNT (QUOTE 0)) (B0) (IF (LESSP LEN CNT) (B0) (BITN OPD (SUB1 CNT))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN . LSR-C) (IMMEDIATE-DEPENDENTS0 B0 . LSR-C) (DCELL . *1*LSR-C))))) (PUT1-LST (QUOTE *1*REGISTER-LSL-INS) (QUOTE (MAIN-EVENT REGISTER-LSL-INS))) (PUT1-LST (QUOTE REGISTER-LSL-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((REGISTER-LSL-INS 16 NIL NIL NIL)) TOTALP-LST ((REGISTER-LSL-INS . T)) SDEFN (LAMBDA (OPLEN INS S) (D-MAPPING OPLEN (LSL-EFFECT OPLEN (READ-DN OPLEN (S_RN INS) S) (SR-CNT INS S) (MC-CCR S)) (S_RN INS) S)) LISP-CODE *1*REGISTER-LSL-INS SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*REGISTER-LSL-INS) IMMEDIATE-DEPENDENTS0 (REGISTER-SHIFT-ROTATE) EVENT (DEFN REGISTER-LSL-INS (OPLEN INS S) (D-MAPPING OPLEN (LSL-EFFECT OPLEN (READ-DN OPLEN (S_RN INS) S) (SR-CNT INS S) (MC-CCR S)) (S_RN INS) S)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-CCR . REGISTER-LSL-INS) (IMMEDIATE-DEPENDENTS0 SR-CNT . REGISTER-LSL-INS) (IMMEDIATE-DEPENDENTS0 S_RN . REGISTER-LSL-INS) (IMMEDIATE-DEPENDENTS0 READ-DN . REGISTER-LSL-INS) (IMMEDIATE-DEPENDENTS0 LSL-EFFECT . REGISTER-LSL-INS) (IMMEDIATE-DEPENDENTS0 D-MAPPING . REGISTER-LSL-INS) (DCELL . *1*REGISTER-LSL-INS))))) (PUT1-LST (QUOTE *1*LSL-EFFECT) (QUOTE (MAIN-EVENT LSL-EFFECT))) (PUT1-LST (QUOTE LSL-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((LSL-EFFECT 16 NIL NIL NIL NIL)) TOTALP-LST ((LSL-EFFECT . T)) SDEFN (LAMBDA (LEN OPD CNT CCR) (CONS (LSL LEN OPD CNT) (LSL-CVZNX LEN OPD CNT CCR))) LISP-CODE *1*LSL-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*LSL-EFFECT) IMMEDIATE-DEPENDENTS0 (MEM-LSL-EFFECT REGISTER-LSL-INS) EVENT (DEFN LSL-EFFECT (LEN OPD CNT CCR) (CONS (LSL LEN OPD CNT) (LSL-CVZNX LEN OPD CNT CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSL-CVZNX . LSL-EFFECT) (IMMEDIATE-DEPENDENTS0 LSL . LSL-EFFECT) (DCELL . *1*LSL-EFFECT))))) (PUT1-LST (QUOTE *1*LSL-CVZNX) (QUOTE (MAIN-EVENT LSL-CVZNX))) (PUT1-LST (QUOTE LSL-CVZNX) (QUOTE (TYPE-PRESCRIPTION-LST ((LSL-CVZNX 4 NIL NIL NIL NIL)) TOTALP-LST ((LSL-CVZNX . T)) SDEFN (LAMBDA (LEN OPD CNT CCR) (CVZNX (LSL-C LEN OPD CNT) (B0) (LSL-Z LEN OPD CNT) (LSL-N LEN OPD CNT) (LSL-X LEN OPD CNT CCR))) LISP-CODE *1*LSL-CVZNX SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*LSL-CVZNX) IMMEDIATE-DEPENDENTS0 (LSL-EFFECT) EVENT (DEFN LSL-CVZNX (LEN OPD CNT CCR) (CVZNX (LSL-C LEN OPD CNT) (B0) (LSL-Z LEN OPD CNT) (LSL-N LEN OPD CNT) (LSL-X LEN OPD CNT CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSL-X . LSL-CVZNX) (IMMEDIATE-DEPENDENTS0 LSL-N . LSL-CVZNX) (IMMEDIATE-DEPENDENTS0 LSL-Z . LSL-CVZNX) (IMMEDIATE-DEPENDENTS0 B0 . LSL-CVZNX) (IMMEDIATE-DEPENDENTS0 LSL-C . LSL-CVZNX) (IMMEDIATE-DEPENDENTS0 CVZNX . LSL-CVZNX) (DCELL . *1*LSL-CVZNX))))) (PUT1-LST (QUOTE *1*LSL-X) (QUOTE (MAIN-EVENT LSL-X))) (PUT1-LST (QUOTE LSL-X) (QUOTE (TYPE-PRESCRIPTION-LST ((LSL-X 4 NIL NIL NIL NIL)) TOTALP-LST ((LSL-X . T)) SDEFN (LAMBDA (LEN OPD CNT CCR) (IF (EQUAL CNT (QUOTE 0)) (CCR-X CCR) (LSL-C LEN OPD CNT))) LISP-CODE *1*LSL-X SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*LSL-X) IMMEDIATE-DEPENDENTS0 (LSL-CVZNX) EVENT (DEFN LSL-X (LEN OPD CNT CCR) (IF (EQUAL CNT (QUOTE 0)) (CCR-X CCR) (LSL-C LEN OPD CNT))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSL-C . LSL-X) (IMMEDIATE-DEPENDENTS0 CCR-X . LSL-X) (DCELL . *1*LSL-X))))) (PUT1-LST (QUOTE *1*LSL-N) (QUOTE (MAIN-EVENT LSL-N))) (PUT1-LST (QUOTE LSL-N) (QUOTE (TYPE-PRESCRIPTION-LST ((LSL-N 4 NIL NIL NIL)) TOTALP-LST ((LSL-N . T)) SDEFN (LAMBDA (LEN OPD CNT) (MBIT (LSL LEN OPD CNT) LEN)) LISP-CODE *1*LSL-N SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*LSL-N) IMMEDIATE-DEPENDENTS0 (LSL-CVZNX) EVENT (DEFN LSL-N (LEN OPD CNT) (MBIT (LSL LEN OPD CNT) LEN)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSL . LSL-N) (IMMEDIATE-DEPENDENTS0 MBIT . LSL-N) (DCELL . *1*LSL-N))))) (PUT1-LST (QUOTE *1*LSL-Z) (QUOTE (MAIN-EVENT LSL-Z))) (PUT1-LST (QUOTE LSL-Z) (QUOTE (TYPE-PRESCRIPTION-LST ((LSL-Z 4 NIL NIL NIL)) TOTALP-LST ((LSL-Z . T)) SDEFN (LAMBDA (LEN OPD CNT) (IF (EQUAL (LSL LEN OPD CNT) (QUOTE 0)) (B1) (B0))) LISP-CODE *1*LSL-Z SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*LSL-Z) IMMEDIATE-DEPENDENTS0 (LSL-CVZNX) EVENT (DEFN LSL-Z (LEN OPD CNT) (IF (EQUAL (LSL LEN OPD CNT) (QUOTE 0)) (B1) (B0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . LSL-Z) (IMMEDIATE-DEPENDENTS0 B1 . LSL-Z) (IMMEDIATE-DEPENDENTS0 LSL . LSL-Z) (DCELL . *1*LSL-Z))))) (PUT1-LST (QUOTE *1*LSL-C) (QUOTE (MAIN-EVENT LSL-C))) (PUT1-LST (QUOTE LSL-C) (QUOTE (TYPE-PRESCRIPTION-LST ((LSL-C 4 NIL NIL NIL)) TOTALP-LST ((LSL-C . T)) SDEFN (LAMBDA (LEN OPD CNT) (IF (EQUAL CNT (QUOTE 0)) (B0) (IF (LESSP LEN CNT) (B0) (BITN OPD (DIFFERENCE LEN CNT))))) LISP-CODE *1*LSL-C SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*LSL-C) IMMEDIATE-DEPENDENTS0 (ASL-C LSL-CVZNX LSL-X) EVENT (DEFN LSL-C (LEN OPD CNT) (IF (EQUAL CNT (QUOTE 0)) (B0) (IF (LESSP LEN CNT) (B0) (BITN OPD (DIFFERENCE LEN CNT))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN . LSL-C) (IMMEDIATE-DEPENDENTS0 B0 . LSL-C) (DCELL . *1*LSL-C))))) (PUT1-LST (QUOTE *1*MEM-ROR-INS) (QUOTE (MAIN-EVENT MEM-ROR-INS))) (PUT1-LST (QUOTE MEM-ROR-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((MEM-ROR-INS -1 NIL NIL)) TOTALP-LST ((MEM-ROR-INS . T)) SDEFN (LAMBDA (INS S) (IF (S&R-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (W) INS S))) (CAR (MC-INSTATE (W) INS S)) (MAPPING (W) (MEM-ROR-EFFECT (OPERAND (W) (CDR (MC-INSTATE (W) INS S)) S) (MC-CCR S)) (MC-INSTATE (W) INS S))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*MEM-ROR-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*MEM-ROR-INS) IMMEDIATE-DEPENDENTS0 (MEMORY-SHIFT-ROTATE) EVENT (DEFN MEM-ROR-INS (INS S) (IF (S&R-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (W) INS S))) (CAR (MC-INSTATE (W) INS S)) (MAPPING (W) (MEM-ROR-EFFECT (OPERAND (W) (CDR (MC-INSTATE (W) INS S)) S) (MC-CCR S)) (MC-INSTATE (W) INS S))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . MEM-ROR-INS) (IMMEDIATE-DEPENDENTS0 HALT . MEM-ROR-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . MEM-ROR-INS) (IMMEDIATE-DEPENDENTS0 OPERAND . MEM-ROR-INS) (IMMEDIATE-DEPENDENTS0 MEM-ROR-EFFECT . MEM-ROR-INS) (IMMEDIATE-DEPENDENTS0 MAPPING . MEM-ROR-INS) (IMMEDIATE-DEPENDENTS0 W . MEM-ROR-INS) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . MEM-ROR-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . MEM-ROR-INS) (IMMEDIATE-DEPENDENTS0 S&R-ADDR-MODEP . MEM-ROR-INS) (DCELL . *1*MEM-ROR-INS))))) (PUT1-LST (QUOTE *1*MEM-ROR-EFFECT) (QUOTE (MAIN-EVENT MEM-ROR-EFFECT))) (PUT1-LST (QUOTE MEM-ROR-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((MEM-ROR-EFFECT 16 NIL NIL)) TOTALP-LST ((MEM-ROR-EFFECT . T)) SDEFN (LAMBDA (OPD CCR) (ROR-EFFECT (W) OPD (QUOTE 1) CCR)) LISP-CODE *1*MEM-ROR-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MEM-ROR-EFFECT) IMMEDIATE-DEPENDENTS0 (MEM-ROR-INS) EVENT (DEFN MEM-ROR-EFFECT (OPD CCR) (ROR-EFFECT (W) OPD (QUOTE 1) CCR)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 W . MEM-ROR-EFFECT) (IMMEDIATE-DEPENDENTS0 ROR-EFFECT . MEM-ROR-EFFECT) (DCELL . *1*MEM-ROR-EFFECT))))) (PUT1-LST (QUOTE *1*MEM-ROL-INS) (QUOTE (MAIN-EVENT MEM-ROL-INS))) (PUT1-LST (QUOTE MEM-ROL-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((MEM-ROL-INS -1 NIL NIL)) TOTALP-LST ((MEM-ROL-INS . T)) SDEFN (LAMBDA (INS S) (IF (S&R-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (W) INS S))) (CAR (MC-INSTATE (W) INS S)) (MAPPING (W) (MEM-ROL-EFFECT (OPERAND (W) (CDR (MC-INSTATE (W) INS S)) S) (MC-CCR S)) (MC-INSTATE (W) INS S))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*MEM-ROL-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*MEM-ROL-INS) IMMEDIATE-DEPENDENTS0 (MEMORY-SHIFT-ROTATE) EVENT (DEFN MEM-ROL-INS (INS S) (IF (S&R-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (W) INS S))) (CAR (MC-INSTATE (W) INS S)) (MAPPING (W) (MEM-ROL-EFFECT (OPERAND (W) (CDR (MC-INSTATE (W) INS S)) S) (MC-CCR S)) (MC-INSTATE (W) INS S))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . MEM-ROL-INS) (IMMEDIATE-DEPENDENTS0 HALT . MEM-ROL-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . MEM-ROL-INS) (IMMEDIATE-DEPENDENTS0 OPERAND . MEM-ROL-INS) (IMMEDIATE-DEPENDENTS0 MEM-ROL-EFFECT . MEM-ROL-INS) (IMMEDIATE-DEPENDENTS0 MAPPING . MEM-ROL-INS) (IMMEDIATE-DEPENDENTS0 W . MEM-ROL-INS) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . MEM-ROL-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . MEM-ROL-INS) (IMMEDIATE-DEPENDENTS0 S&R-ADDR-MODEP . MEM-ROL-INS) (DCELL . *1*MEM-ROL-INS))))) (PUT1-LST (QUOTE *1*MEM-ROL-EFFECT) (QUOTE (MAIN-EVENT MEM-ROL-EFFECT))) (PUT1-LST (QUOTE MEM-ROL-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((MEM-ROL-EFFECT 16 NIL NIL)) TOTALP-LST ((MEM-ROL-EFFECT . T)) SDEFN (LAMBDA (OPD CCR) (ROL-EFFECT (W) OPD (QUOTE 1) CCR)) LISP-CODE *1*MEM-ROL-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MEM-ROL-EFFECT) IMMEDIATE-DEPENDENTS0 (MEM-ROL-INS) EVENT (DEFN MEM-ROL-EFFECT (OPD CCR) (ROL-EFFECT (W) OPD (QUOTE 1) CCR)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 W . MEM-ROL-EFFECT) (IMMEDIATE-DEPENDENTS0 ROL-EFFECT . MEM-ROL-EFFECT) (DCELL . *1*MEM-ROL-EFFECT))))) (PUT1-LST (QUOTE *1*REGISTER-ROR-INS) (QUOTE (MAIN-EVENT REGISTER-ROR-INS))) (PUT1-LST (QUOTE REGISTER-ROR-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((REGISTER-ROR-INS 16 NIL NIL NIL)) TOTALP-LST ((REGISTER-ROR-INS . T)) SDEFN (LAMBDA (OPLEN INS S) (D-MAPPING OPLEN (ROR-EFFECT OPLEN (READ-DN OPLEN (S_RN INS) S) (SR-CNT INS S) (MC-CCR S)) (S_RN INS) S)) LISP-CODE *1*REGISTER-ROR-INS SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*REGISTER-ROR-INS) IMMEDIATE-DEPENDENTS0 (REGISTER-SHIFT-ROTATE) EVENT (DEFN REGISTER-ROR-INS (OPLEN INS S) (D-MAPPING OPLEN (ROR-EFFECT OPLEN (READ-DN OPLEN (S_RN INS) S) (SR-CNT INS S) (MC-CCR S)) (S_RN INS) S)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-CCR . REGISTER-ROR-INS) (IMMEDIATE-DEPENDENTS0 SR-CNT . REGISTER-ROR-INS) (IMMEDIATE-DEPENDENTS0 S_RN . REGISTER-ROR-INS) (IMMEDIATE-DEPENDENTS0 READ-DN . REGISTER-ROR-INS) (IMMEDIATE-DEPENDENTS0 ROR-EFFECT . REGISTER-ROR-INS) (IMMEDIATE-DEPENDENTS0 D-MAPPING . REGISTER-ROR-INS) (DCELL . *1*REGISTER-ROR-INS))))) (PUT1-LST (QUOTE *1*ROR-EFFECT) (QUOTE (MAIN-EVENT ROR-EFFECT))) (PUT1-LST (QUOTE ROR-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((ROR-EFFECT 16 NIL NIL NIL NIL)) TOTALP-LST ((ROR-EFFECT . T)) SDEFN (LAMBDA (OPLEN OPD CNT CCR) (CONS (ROR OPLEN OPD CNT) (ROR-CVZNX OPLEN OPD CNT CCR))) LISP-CODE *1*ROR-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ROR-EFFECT) IMMEDIATE-DEPENDENTS0 (MEM-ROR-EFFECT REGISTER-ROR-INS) EVENT (DEFN ROR-EFFECT (OPLEN OPD CNT CCR) (CONS (ROR OPLEN OPD CNT) (ROR-CVZNX OPLEN OPD CNT CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ROR-CVZNX . ROR-EFFECT) (IMMEDIATE-DEPENDENTS0 ROR . ROR-EFFECT) (DCELL . *1*ROR-EFFECT))))) (PUT1-LST (QUOTE *1*ROR-CVZNX) (QUOTE (MAIN-EVENT ROR-CVZNX))) (PUT1-LST (QUOTE ROR-CVZNX) (QUOTE (TYPE-PRESCRIPTION-LST ((ROR-CVZNX 4 NIL NIL NIL NIL)) TOTALP-LST ((ROR-CVZNX . T)) SDEFN (LAMBDA (LEN OPD CNT CCR) (CVZNX (ROR-C LEN OPD CNT) (B0) (ROR-Z LEN OPD CNT) (ROR-N LEN OPD CNT) (CCR-X CCR))) LISP-CODE *1*ROR-CVZNX SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ROR-CVZNX) IMMEDIATE-DEPENDENTS0 (ROR-EFFECT) EVENT (DEFN ROR-CVZNX (LEN OPD CNT CCR) (CVZNX (ROR-C LEN OPD CNT) (B0) (ROR-Z LEN OPD CNT) (ROR-N LEN OPD CNT) (CCR-X CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CCR-X . ROR-CVZNX) (IMMEDIATE-DEPENDENTS0 ROR-N . ROR-CVZNX) (IMMEDIATE-DEPENDENTS0 ROR-Z . ROR-CVZNX) (IMMEDIATE-DEPENDENTS0 B0 . ROR-CVZNX) (IMMEDIATE-DEPENDENTS0 ROR-C . ROR-CVZNX) (IMMEDIATE-DEPENDENTS0 CVZNX . ROR-CVZNX) (DCELL . *1*ROR-CVZNX))))) (PUT1-LST (QUOTE *1*ROR-N) (QUOTE (MAIN-EVENT ROR-N))) (PUT1-LST (QUOTE ROR-N) (QUOTE (TYPE-PRESCRIPTION-LST ((ROR-N 4 NIL NIL NIL)) TOTALP-LST ((ROR-N . T)) SDEFN (LAMBDA (LEN X CNT) (IF (EQUAL (REMAINDER CNT LEN) (QUOTE 0)) (BITN X (SUB1 LEN)) (BITN X (SUB1 (REMAINDER CNT LEN))))) LISP-CODE *1*ROR-N SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ROR-N) IMMEDIATE-DEPENDENTS0 (ROR-CVZNX) EVENT (DEFN ROR-N (LEN X CNT) (IF (ZEROP (REMAINDER CNT LEN)) (BITN X (SUB1 LEN)) (BITN X (SUB1 (REMAINDER CNT LEN))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN . ROR-N) (DCELL . *1*ROR-N))))) (PUT1-LST (QUOTE *1*ROR-Z) (QUOTE (MAIN-EVENT ROR-Z))) (PUT1-LST (QUOTE ROR-Z) (QUOTE (TYPE-PRESCRIPTION-LST ((ROR-Z 4 NIL NIL NIL)) TOTALP-LST ((ROR-Z . T)) SDEFN (LAMBDA (LEN OPD CNT) (IF (EQUAL OPD (QUOTE 0)) (B1) (B0))) LISP-CODE *1*ROR-Z SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214824 SATELLITES (*1*ROR-Z) IMMEDIATE-DEPENDENTS0 (ROR-CVZNX) EVENT (DEFN ROR-Z (LEN OPD CNT) (IF (EQUAL OPD (QUOTE 0)) (B1) (B0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . ROR-Z) (IMMEDIATE-DEPENDENTS0 B1 . ROR-Z) (DCELL . *1*ROR-Z))))) (PUT1-LST (QUOTE *1*ROR-C) (QUOTE (MAIN-EVENT ROR-C))) (PUT1-LST (QUOTE ROR-C) (QUOTE (TYPE-PRESCRIPTION-LST ((ROR-C 4 NIL NIL NIL)) TOTALP-LST ((ROR-C . T)) SDEFN (LAMBDA (LEN X CNT) (IF (EQUAL CNT (QUOTE 0)) (B0) (IF (EQUAL (REMAINDER CNT LEN) (QUOTE 0)) (BITN X (SUB1 LEN)) (BITN X (SUB1 (REMAINDER CNT LEN)))))) LISP-CODE *1*ROR-C SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ROR-C) IMMEDIATE-DEPENDENTS0 (ROR-CVZNX) EVENT (DEFN ROR-C (LEN X CNT) (IF (EQUAL CNT (QUOTE 0)) (B0) (IF (EQUAL (REMAINDER CNT LEN) (QUOTE 0)) (BITN X (SUB1 LEN)) (BITN X (SUB1 (REMAINDER CNT LEN)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN . ROR-C) (IMMEDIATE-DEPENDENTS0 B0 . ROR-C) (DCELL . *1*ROR-C))))) (PUT1-LST (QUOTE *1*REGISTER-ROL-INS) (QUOTE (MAIN-EVENT REGISTER-ROL-INS))) (PUT1-LST (QUOTE REGISTER-ROL-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((REGISTER-ROL-INS 16 NIL NIL NIL)) TOTALP-LST ((REGISTER-ROL-INS . T)) SDEFN (LAMBDA (OPLEN INS S) (D-MAPPING OPLEN (ROL-EFFECT OPLEN (READ-DN OPLEN (S_RN INS) S) (SR-CNT INS S) (MC-CCR S)) (S_RN INS) S)) LISP-CODE *1*REGISTER-ROL-INS SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*REGISTER-ROL-INS) IMMEDIATE-DEPENDENTS0 (REGISTER-SHIFT-ROTATE) EVENT (DEFN REGISTER-ROL-INS (OPLEN INS S) (D-MAPPING OPLEN (ROL-EFFECT OPLEN (READ-DN OPLEN (S_RN INS) S) (SR-CNT INS S) (MC-CCR S)) (S_RN INS) S)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-CCR . REGISTER-ROL-INS) (IMMEDIATE-DEPENDENTS0 SR-CNT . REGISTER-ROL-INS) (IMMEDIATE-DEPENDENTS0 S_RN . REGISTER-ROL-INS) (IMMEDIATE-DEPENDENTS0 READ-DN . REGISTER-ROL-INS) (IMMEDIATE-DEPENDENTS0 ROL-EFFECT . REGISTER-ROL-INS) (IMMEDIATE-DEPENDENTS0 D-MAPPING . REGISTER-ROL-INS) (DCELL . *1*REGISTER-ROL-INS))))) (PUT1-LST (QUOTE *1*ROL-EFFECT) (QUOTE (MAIN-EVENT ROL-EFFECT))) (PUT1-LST (QUOTE ROL-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((ROL-EFFECT 16 NIL NIL NIL NIL)) TOTALP-LST ((ROL-EFFECT . T)) SDEFN (LAMBDA (LEN OPD CNT CCR) (CONS (ROL LEN OPD CNT) (ROL-CVZNX LEN OPD CNT CCR))) LISP-CODE *1*ROL-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ROL-EFFECT) IMMEDIATE-DEPENDENTS0 (MEM-ROL-EFFECT REGISTER-ROL-INS) EVENT (DEFN ROL-EFFECT (LEN OPD CNT CCR) (CONS (ROL LEN OPD CNT) (ROL-CVZNX LEN OPD CNT CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ROL-CVZNX . ROL-EFFECT) (IMMEDIATE-DEPENDENTS0 ROL . ROL-EFFECT) (DCELL . *1*ROL-EFFECT))))) (PUT1-LST (QUOTE *1*ROL-CVZNX) (QUOTE (MAIN-EVENT ROL-CVZNX))) (PUT1-LST (QUOTE ROL-CVZNX) (QUOTE (TYPE-PRESCRIPTION-LST ((ROL-CVZNX 4 NIL NIL NIL NIL)) TOTALP-LST ((ROL-CVZNX . T)) SDEFN (LAMBDA (LEN OPD CNT CCR) (CVZNX (ROL-C LEN OPD CNT) (B0) (ROL-Z LEN OPD CNT) (ROL-N LEN OPD CNT) (CCR-X CCR))) LISP-CODE *1*ROL-CVZNX SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ROL-CVZNX) IMMEDIATE-DEPENDENTS0 (ROL-EFFECT) EVENT (DEFN ROL-CVZNX (LEN OPD CNT CCR) (CVZNX (ROL-C LEN OPD CNT) (B0) (ROL-Z LEN OPD CNT) (ROL-N LEN OPD CNT) (CCR-X CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CCR-X . ROL-CVZNX) (IMMEDIATE-DEPENDENTS0 ROL-N . ROL-CVZNX) (IMMEDIATE-DEPENDENTS0 ROL-Z . ROL-CVZNX) (IMMEDIATE-DEPENDENTS0 B0 . ROL-CVZNX) (IMMEDIATE-DEPENDENTS0 ROL-C . ROL-CVZNX) (IMMEDIATE-DEPENDENTS0 CVZNX . ROL-CVZNX) (DCELL . *1*ROL-CVZNX))))) (PUT1-LST (QUOTE *1*ROL-N) (QUOTE (MAIN-EVENT ROL-N))) (PUT1-LST (QUOTE ROL-N) (QUOTE (TYPE-PRESCRIPTION-LST ((ROL-N 4 NIL NIL NIL)) TOTALP-LST ((ROL-N . T)) SDEFN (LAMBDA (LEN X CNT) (BITN X (SUB1 (DIFFERENCE LEN (REMAINDER CNT LEN))))) LISP-CODE *1*ROL-N SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ROL-N) IMMEDIATE-DEPENDENTS0 (ROL-CVZNX) EVENT (DEFN ROL-N (LEN X CNT) (BITN X (SUB1 (DIFFERENCE LEN (REMAINDER CNT LEN))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN . ROL-N) (DCELL . *1*ROL-N))))) (PUT1-LST (QUOTE *1*ROL-Z) (QUOTE (MAIN-EVENT ROL-Z))) (PUT1-LST (QUOTE ROL-Z) (QUOTE (TYPE-PRESCRIPTION-LST ((ROL-Z 4 NIL NIL NIL)) TOTALP-LST ((ROL-Z . T)) SDEFN (LAMBDA (LEN X CNT) (IF (EQUAL X (QUOTE 0)) (B1) (B0))) LISP-CODE *1*ROL-Z SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214824 SATELLITES (*1*ROL-Z) IMMEDIATE-DEPENDENTS0 (ROL-CVZNX) EVENT (DEFN ROL-Z (LEN X CNT) (IF (EQUAL X (QUOTE 0)) (B1) (B0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . ROL-Z) (IMMEDIATE-DEPENDENTS0 B1 . ROL-Z) (DCELL . *1*ROL-Z))))) (PUT1-LST (QUOTE *1*ROL-C) (QUOTE (MAIN-EVENT ROL-C))) (PUT1-LST (QUOTE ROL-C) (QUOTE (TYPE-PRESCRIPTION-LST ((ROL-C 4 NIL NIL NIL)) TOTALP-LST ((ROL-C . T)) SDEFN (LAMBDA (LEN X CNT) (IF (EQUAL CNT (QUOTE 0)) (B0) (IF (EQUAL (REMAINDER CNT LEN) (QUOTE 0)) (BCAR X) (BITN X (DIFFERENCE LEN (REMAINDER CNT LEN)))))) LISP-CODE *1*ROL-C SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ROL-C) IMMEDIATE-DEPENDENTS0 (ROL-CVZNX) EVENT (DEFN ROL-C (LEN X CNT) (IF (EQUAL CNT (QUOTE 0)) (B0) (IF (ZEROP (REMAINDER CNT LEN)) (BCAR X) (BITN X (DIFFERENCE LEN (REMAINDER CNT LEN)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN . ROL-C) (IMMEDIATE-DEPENDENTS0 BCAR . ROL-C) (IMMEDIATE-DEPENDENTS0 B0 . ROL-C) (DCELL . *1*ROL-C))))) (PUT1-LST (QUOTE *1*SR-CNT) (QUOTE (MAIN-EVENT SR-CNT))) (PUT1-LST (QUOTE SR-CNT) (QUOTE (TYPE-PRESCRIPTION-LST ((SR-CNT 4 NIL NIL)) TOTALP-LST ((SR-CNT . T)) SDEFN (LAMBDA (INS S) (IF (B0P (BITN INS (QUOTE 5))) (I-DATA (D_RN INS)) (REMAINDER (READ-DN (B) (D_RN INS) S) (QUOTE 64)))) LISP-CODE *1*SR-CNT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*SR-CNT) IMMEDIATE-DEPENDENTS0 (REGISTER-ROXR-INS REGISTER-ROXL-INS REGISTER-ASR-INS REGISTER-ASL-INS REGISTER-LSR-INS REGISTER-LSL-INS REGISTER-ROR-INS REGISTER-ROL-INS) EVENT (DEFN SR-CNT (INS S) (IF (B0P (BITN INS (QUOTE 5))) (I-DATA (D_RN INS)) (REMAINDER (READ-DN (B) (D_RN INS) S) (QUOTE 64)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B . SR-CNT) (IMMEDIATE-DEPENDENTS0 READ-DN . SR-CNT) (IMMEDIATE-DEPENDENTS0 D_RN . SR-CNT) (IMMEDIATE-DEPENDENTS0 I-DATA . SR-CNT) (IMMEDIATE-DEPENDENTS0 BITN . SR-CNT) (IMMEDIATE-DEPENDENTS0 B0P . SR-CNT) (DCELL . *1*SR-CNT))))) (PUT1-LST (QUOTE *1*I-DATA) (QUOTE (MAIN-EVENT I-DATA))) (PUT1-LST (QUOTE I-DATA) (QUOTE (TYPE-PRESCRIPTION-LST ((I-DATA 4 NIL)) TOTALP-LST ((I-DATA . T)) SDEFN (LAMBDA (N) (IF (EQUAL N (QUOTE 0)) (QUOTE 8) (IF (NUMBERP N) N (QUOTE 8)))) LISP-CODE *1*I-DATA SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214824 SATELLITES (*1*I-DATA) IMMEDIATE-DEPENDENTS0 (SUBQ-INS ADDQ-INS SR-CNT) EVENT (DEFN I-DATA (N) (IF (ZEROP N) (QUOTE 8) N)) LOCAL-UNDO-TUPLES ((DCELL . *1*I-DATA))))) (PUT1-LST (QUOTE *1*S&R-ADDR-MODEP) (QUOTE (MAIN-EVENT S&R-ADDR-MODEP))) (PUT1-LST (QUOTE S&R-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((S&R-ADDR-MODEP 3 NIL)) TOTALP-LST ((S&R-ADDR-MODEP . T)) SDEFN (LAMBDA (INS) (IF (MEMORY-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)) (QUOTE *1*FALSE))) LISP-CODE *1*S&R-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*S&R-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (MEM-ROXR-INS MEM-ROXL-INS MEM-ASR-INS MEM-ASL-INS MEM-LSR-INS MEM-LSL-INS MEM-ROR-INS MEM-ROL-INS) EVENT (DEFN S&R-ADDR-MODEP (INS) (AND (MEMORY-ADDR-MODEP (S_MODE INS) (S_RN INS)) (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ALTERABLE-ADDR-MODEP . S&R-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_RN . S&R-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . S&R-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 MEMORY-ADDR-MODEP . S&R-ADDR-MODEP) (DCELL . *1*S&R-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*ROR) (QUOTE (MAIN-EVENT ROR))) (PUT1-LST (QUOTE ROR) (QUOTE (TYPE-PRESCRIPTION-LST ((ROR 4 NIL NIL NIL)) TOTALP-LST ((ROR . T)) SDEFN (LAMBDA (LEN X CNT) (APP (DIFFERENCE LEN (REMAINDER CNT LEN)) (TAIL X (REMAINDER CNT LEN)) (HEAD X (REMAINDER CNT LEN)))) LISP-CODE *1*ROR SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ROR) IMMEDIATE-DEPENDENTS0 (ROXR ROR-EFFECT) EVENT (DEFN ROR (LEN X CNT) (APP (DIFFERENCE LEN (REMAINDER CNT LEN)) (TAIL X (REMAINDER CNT LEN)) (HEAD X (REMAINDER CNT LEN)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD . ROR) (IMMEDIATE-DEPENDENTS0 TAIL . ROR) (IMMEDIATE-DEPENDENTS0 APP . ROR) (DCELL . *1*ROR))))) (PUT1-LST (QUOTE *1*ROL) (QUOTE (MAIN-EVENT ROL))) (PUT1-LST (QUOTE ROL) (QUOTE (TYPE-PRESCRIPTION-LST ((ROL 4 NIL NIL NIL)) TOTALP-LST ((ROL . T)) SDEFN (LAMBDA (LEN X CNT) (APP (REMAINDER CNT LEN) (TAIL X (DIFFERENCE LEN (REMAINDER CNT LEN))) (HEAD X (DIFFERENCE LEN (REMAINDER CNT LEN))))) LISP-CODE *1*ROL SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ROL) IMMEDIATE-DEPENDENTS0 (ROXL ROL-EFFECT) EVENT (DEFN ROL (LEN X CNT) (APP (REMAINDER CNT LEN) (TAIL X (DIFFERENCE LEN (REMAINDER CNT LEN))) (HEAD X (DIFFERENCE LEN (REMAINDER CNT LEN))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD . ROL) (IMMEDIATE-DEPENDENTS0 TAIL . ROL) (IMMEDIATE-DEPENDENTS0 APP . ROL) (DCELL . *1*ROL))))) (PUT1-LST (QUOTE *1*OR-GROUP) (QUOTE (MAIN-EVENT OR-GROUP))) (PUT1-LST (QUOTE OR-GROUP) (QUOTE (TYPE-PRESCRIPTION-LST ((OR-GROUP -1 NIL NIL NIL)) TOTALP-LST ((OR-GROUP . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (EQUAL OPLEN (Q)) (DIV_W-INS INS S) (IF (B0P (BITN INS (QUOTE 8))) (OR-INS1 OPLEN INS S) (IF (LESSP (S_MODE INS) (QUOTE 2)) (HALT (QUOTE SBCD-PACK-UNPK-UNSPECIFIED) S) (OR-INS2 OPLEN INS S))))) LISP-CODE *1*OR-GROUP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*OR-GROUP) IMMEDIATE-DEPENDENTS0 (EXECUTE-INS) EVENT (DEFN OR-GROUP (OPLEN INS S) (IF (EQUAL OPLEN (Q)) (DIV_W-INS INS S) (IF (B0P (BITN INS (QUOTE 8))) (OR-INS1 OPLEN INS S) (IF (LESSP (S_MODE INS) (QUOTE 2)) (HALT (QUOTE SBCD-PACK-UNPK-UNSPECIFIED) S) (OR-INS2 OPLEN INS S))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OR-INS2 . OR-GROUP) (IMMEDIATE-DEPENDENTS0 HALT . OR-GROUP) (IMMEDIATE-DEPENDENTS0 S_MODE . OR-GROUP) (IMMEDIATE-DEPENDENTS0 OR-INS1 . OR-GROUP) (IMMEDIATE-DEPENDENTS0 BITN . OR-GROUP) (IMMEDIATE-DEPENDENTS0 B0P . OR-GROUP) (IMMEDIATE-DEPENDENTS0 DIV_W-INS . OR-GROUP) (IMMEDIATE-DEPENDENTS0 Q . OR-GROUP) (DCELL . *1*OR-GROUP))))) (PUT1-LST (QUOTE *1*DIV_W-INS) (QUOTE (MAIN-EVENT DIV_W-INS))) (PUT1-LST (QUOTE DIV_W-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((DIV_W-INS -1 NIL NIL)) TOTALP-LST ((DIV_W-INS . T)) SDEFN (LAMBDA (INS S) (IF (MUL&DIV-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (W) INS S))) (CAR (MC-INSTATE (W) INS S)) (IF (B0P (BITN INS (QUOTE 8))) (DIVU_W-INS (OPERAND (W) (CDR (MC-INSTATE (W) INS S)) S) (D_RN INS) (CAR (MC-INSTATE (W) INS S))) (DIVS_W-INS (OPERAND (W) (CDR (MC-INSTATE (W) INS S)) S) (D_RN INS) (CAR (MC-INSTATE (W) INS S))))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*DIV_W-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*DIV_W-INS) IMMEDIATE-DEPENDENTS0 (OR-GROUP) EVENT (DEFN DIV_W-INS (INS S) (IF (MUL&DIV-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (W) INS S))) (CAR (MC-INSTATE (W) INS S)) (IF (B0P (BITN INS (QUOTE 8))) (DIVU_W-INS (OPERAND (W) (CDR (MC-INSTATE (W) INS S)) S) (D_RN INS) (CAR (MC-INSTATE (W) INS S))) (DIVS_W-INS (OPERAND (W) (CDR (MC-INSTATE (W) INS S)) S) (D_RN INS) (CAR (MC-INSTATE (W) INS S))))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . DIV_W-INS) (IMMEDIATE-DEPENDENTS0 HALT . DIV_W-INS) (IMMEDIATE-DEPENDENTS0 DIVS_W-INS . DIV_W-INS) (IMMEDIATE-DEPENDENTS0 D_RN . DIV_W-INS) (IMMEDIATE-DEPENDENTS0 OPERAND . DIV_W-INS) (IMMEDIATE-DEPENDENTS0 DIVU_W-INS . DIV_W-INS) (IMMEDIATE-DEPENDENTS0 BITN . DIV_W-INS) (IMMEDIATE-DEPENDENTS0 B0P . DIV_W-INS) (IMMEDIATE-DEPENDENTS0 W . DIV_W-INS) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . DIV_W-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . DIV_W-INS) (IMMEDIATE-DEPENDENTS0 MUL&DIV-ADDR-MODEP . DIV_W-INS) (DCELL . *1*DIV_W-INS))))) (PUT1-LST (QUOTE *1*DIVU_W-INS) (QUOTE (MAIN-EVENT DIVU_W-INS))) (PUT1-LST (QUOTE DIVU_W-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((DIVU_W-INS 16 NIL NIL NIL)) TOTALP-LST ((DIVU_W-INS . T)) SDEFN (LAMBDA (SOPD DN S) (IF (EQUAL (NAT-TO-UINT SOPD) (QUOTE 0)) (HALT (QUOTE TRAP-EXCEPTION) S) (IF (B0P (DIVU-V (W) SOPD (READ-DN (L) DN S))) (UPDATE-CCR (DIVU-CVZNX (W) SOPD (READ-DN (L) DN S) (MC-CCR S)) (WRITE-DN (L) (APP (W) (QUOT (W) SOPD (READ-DN (L) DN S)) (REM (W) SOPD (READ-DN (L) DN S))) DN S)) (HALT (QUOTE DIVU-OVERFLOW) (UPDATE-CCR (SET-V (B1) (MC-CCR S)) S))))) LISP-CODE *1*DIVU_W-INS SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*DIVU_W-INS) IMMEDIATE-DEPENDENTS0 (DIV_W-INS) EVENT (DEFN DIVU_W-INS (SOPD DN S) (IF (EQUAL (NAT-TO-UINT SOPD) (QUOTE 0)) (HALT (QUOTE TRAP-EXCEPTION) S) (IF (B0P (DIVU-V (W) SOPD (READ-DN (L) DN S))) (UPDATE-CCR (DIVU-CVZNX (W) SOPD (READ-DN (L) DN S) (MC-CCR S)) (WRITE-DN (L) (APP (W) (QUOT (W) SOPD (READ-DN (L) DN S)) (REM (W) SOPD (READ-DN (L) DN S))) DN S)) (HALT (QUOTE DIVU-OVERFLOW) (UPDATE-CCR (SET-V (B1) (MC-CCR S)) S))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B1 . DIVU_W-INS) (IMMEDIATE-DEPENDENTS0 SET-V . DIVU_W-INS) (IMMEDIATE-DEPENDENTS0 REM . DIVU_W-INS) (IMMEDIATE-DEPENDENTS0 QUOT . DIVU_W-INS) (IMMEDIATE-DEPENDENTS0 APP . DIVU_W-INS) (IMMEDIATE-DEPENDENTS0 WRITE-DN . DIVU_W-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . DIVU_W-INS) (IMMEDIATE-DEPENDENTS0 DIVU-CVZNX . DIVU_W-INS) (IMMEDIATE-DEPENDENTS0 UPDATE-CCR . DIVU_W-INS) (IMMEDIATE-DEPENDENTS0 L . DIVU_W-INS) (IMMEDIATE-DEPENDENTS0 READ-DN . DIVU_W-INS) (IMMEDIATE-DEPENDENTS0 W . DIVU_W-INS) (IMMEDIATE-DEPENDENTS0 DIVU-V . DIVU_W-INS) (IMMEDIATE-DEPENDENTS0 B0P . DIVU_W-INS) (IMMEDIATE-DEPENDENTS0 HALT . DIVU_W-INS) (IMMEDIATE-DEPENDENTS0 NAT-TO-UINT . DIVU_W-INS) (DCELL . *1*DIVU_W-INS))))) (PUT1-LST (QUOTE *1*DIVU-CVZNX) (QUOTE (MAIN-EVENT DIVU-CVZNX))) (PUT1-LST (QUOTE DIVU-CVZNX) (QUOTE (TYPE-PRESCRIPTION-LST ((DIVU-CVZNX 4 NIL NIL NIL NIL)) TOTALP-LST ((DIVU-CVZNX . T)) SDEFN (LAMBDA (N SOPD DOPD CCR) (CVZNX (B0) (B0) (DIVU-Z N SOPD DOPD) (DIVU-N N SOPD DOPD) (CCR-X CCR))) LISP-CODE *1*DIVU-CVZNX SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*DIVU-CVZNX) IMMEDIATE-DEPENDENTS0 (DIVU_L DIVUL_L DIVU_W-INS) EVENT (DEFN DIVU-CVZNX (N SOPD DOPD CCR) (CVZNX (B0) (B0) (DIVU-Z N SOPD DOPD) (DIVU-N N SOPD DOPD) (CCR-X CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CCR-X . DIVU-CVZNX) (IMMEDIATE-DEPENDENTS0 DIVU-N . DIVU-CVZNX) (IMMEDIATE-DEPENDENTS0 DIVU-Z . DIVU-CVZNX) (IMMEDIATE-DEPENDENTS0 B0 . DIVU-CVZNX) (IMMEDIATE-DEPENDENTS0 CVZNX . DIVU-CVZNX) (DCELL . *1*DIVU-CVZNX))))) (PUT1-LST (QUOTE *1*DIVU-N) (QUOTE (MAIN-EVENT DIVU-N))) (PUT1-LST (QUOTE DIVU-N) (QUOTE (TYPE-PRESCRIPTION-LST ((DIVU-N 4 NIL NIL NIL)) TOTALP-LST ((DIVU-N . T)) SDEFN (LAMBDA (N SOPD DOPD) (MBIT (QUOT N SOPD DOPD) N)) LISP-CODE *1*DIVU-N SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*DIVU-N) IMMEDIATE-DEPENDENTS0 (DIVU-CVZNX) EVENT (DEFN DIVU-N (N SOPD DOPD) (MBIT (QUOT N SOPD DOPD) N)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOT . DIVU-N) (IMMEDIATE-DEPENDENTS0 MBIT . DIVU-N) (DCELL . *1*DIVU-N))))) (PUT1-LST (QUOTE *1*DIVU-Z) (QUOTE (MAIN-EVENT DIVU-Z))) (PUT1-LST (QUOTE DIVU-Z) (QUOTE (TYPE-PRESCRIPTION-LST ((DIVU-Z 4 NIL NIL NIL)) TOTALP-LST ((DIVU-Z . T)) SDEFN (LAMBDA (N SOPD DOPD) (IF (EQUAL (QUOT N SOPD DOPD) (QUOTE 0)) (B1) (B0))) LISP-CODE *1*DIVU-Z SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*DIVU-Z) IMMEDIATE-DEPENDENTS0 (DIVU-CVZNX) EVENT (DEFN DIVU-Z (N SOPD DOPD) (IF (EQUAL (QUOT N SOPD DOPD) (QUOTE 0)) (B1) (B0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . DIVU-Z) (IMMEDIATE-DEPENDENTS0 B1 . DIVU-Z) (IMMEDIATE-DEPENDENTS0 QUOT . DIVU-Z) (DCELL . *1*DIVU-Z))))) (PUT1-LST (QUOTE *1*DIVU-V) (QUOTE (MAIN-EVENT DIVU-V))) (PUT1-LST (QUOTE DIVU-V) (QUOTE (TYPE-PRESCRIPTION-LST ((DIVU-V 4 NIL NIL NIL)) TOTALP-LST ((DIVU-V . T)) SDEFN (LAMBDA (N SOPD DOPD) (IF (LESSP (QUOTIENT DOPD SOPD) (EXP (QUOTE 2) N)) (B0) (B1))) LISP-CODE *1*DIVU-V SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*DIVU-V) IMMEDIATE-DEPENDENTS0 (DIVU_L DIVU_W-INS) EVENT (DEFN DIVU-V (N SOPD DOPD) (IF (LESSP (QUOTIENT DOPD SOPD) (EXP (QUOTE 2) N)) (B0) (B1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B1 . DIVU-V) (IMMEDIATE-DEPENDENTS0 B0 . DIVU-V) (IMMEDIATE-DEPENDENTS0 EXP . DIVU-V) (DCELL . *1*DIVU-V))))) (PUT1-LST (QUOTE *1*REM) (QUOTE (MAIN-EVENT REM))) (PUT1-LST (QUOTE REM) (QUOTE (TYPE-PRESCRIPTION-LST ((REM 4 NIL NIL NIL)) TOTALP-LST ((REM . T)) SDEFN (LAMBDA (N X Y) (HEAD (REMAINDER Y X) N)) LISP-CODE *1*REM SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*REM) IMMEDIATE-DEPENDENTS0 (DIVU_L DIVUL_L DIVU_W-INS) EVENT (DEFN REM (N X Y) (HEAD (REMAINDER Y X) N)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD . REM) (DCELL . *1*REM))))) (PUT1-LST (QUOTE *1*QUOT) (QUOTE (MAIN-EVENT QUOT))) (PUT1-LST (QUOTE QUOT) (QUOTE (TYPE-PRESCRIPTION-LST ((QUOT 4 NIL NIL NIL)) TOTALP-LST ((QUOT . T)) SDEFN (LAMBDA (N X Y) (HEAD (QUOTIENT Y X) N)) LISP-CODE *1*QUOT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*QUOT) IMMEDIATE-DEPENDENTS0 (DIVU_L DIVUL_L DIVU_W-INS DIVU-N DIVU-Z) EVENT (DEFN QUOT (N X Y) (HEAD (QUOTIENT Y X) N)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD . QUOT) (DCELL . *1*QUOT))))) (PUT1-LST (QUOTE *1*DIVS_W-INS) (QUOTE (MAIN-EVENT DIVS_W-INS))) (PUT1-LST (QUOTE DIVS_W-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((DIVS_W-INS 16 NIL NIL NIL)) TOTALP-LST ((DIVS_W-INS . T)) SDEFN (LAMBDA (SOPD DN S) (IF (EQUAL (NAT-TO-INT SOPD (W)) (QUOTE 0)) (HALT (QUOTE TRAP-EXCEPTION) S) (IF (B0P (DIVS-V (W) SOPD (W) (READ-DN (L) DN S) (L))) (UPDATE-CCR (DIVS-CVZNX (W) SOPD (W) (READ-DN (L) DN S) (L) (MC-CCR S)) (WRITE-DN (L) (APP (W) (IQUOT (W) SOPD (W) (READ-DN (L) DN S) (L)) (IREM (W) SOPD (W) (READ-DN (L) DN S) (L))) DN S)) (HALT (QUOTE DIVS-OVERFLOW) (UPDATE-CCR (SET-V (B1) (MC-CCR S)) S))))) LISP-CODE *1*DIVS_W-INS SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*DIVS_W-INS) IMMEDIATE-DEPENDENTS0 (DIV_W-INS) EVENT (DEFN DIVS_W-INS (SOPD DN S) (IF (EQUAL (NAT-TO-INT SOPD (W)) (QUOTE 0)) (HALT (QUOTE TRAP-EXCEPTION) S) (IF (B0P (DIVS-V (W) SOPD (W) (READ-DN (L) DN S) (L))) (UPDATE-CCR (DIVS-CVZNX (W) SOPD (W) (READ-DN (L) DN S) (L) (MC-CCR S)) (WRITE-DN (L) (APP (W) (IQUOT (W) SOPD (W) (READ-DN (L) DN S) (L)) (IREM (W) SOPD (W) (READ-DN (L) DN S) (L))) DN S)) (HALT (QUOTE DIVS-OVERFLOW) (UPDATE-CCR (SET-V (B1) (MC-CCR S)) S))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B1 . DIVS_W-INS) (IMMEDIATE-DEPENDENTS0 SET-V . DIVS_W-INS) (IMMEDIATE-DEPENDENTS0 IREM . DIVS_W-INS) (IMMEDIATE-DEPENDENTS0 IQUOT . DIVS_W-INS) (IMMEDIATE-DEPENDENTS0 APP . DIVS_W-INS) (IMMEDIATE-DEPENDENTS0 WRITE-DN . DIVS_W-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . DIVS_W-INS) (IMMEDIATE-DEPENDENTS0 DIVS-CVZNX . DIVS_W-INS) (IMMEDIATE-DEPENDENTS0 UPDATE-CCR . DIVS_W-INS) (IMMEDIATE-DEPENDENTS0 L . DIVS_W-INS) (IMMEDIATE-DEPENDENTS0 READ-DN . DIVS_W-INS) (IMMEDIATE-DEPENDENTS0 DIVS-V . DIVS_W-INS) (IMMEDIATE-DEPENDENTS0 B0P . DIVS_W-INS) (IMMEDIATE-DEPENDENTS0 HALT . DIVS_W-INS) (IMMEDIATE-DEPENDENTS0 W . DIVS_W-INS) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . DIVS_W-INS) (DCELL . *1*DIVS_W-INS))))) (PUT1-LST (QUOTE *1*DIVS-CVZNX) (QUOTE (MAIN-EVENT DIVS-CVZNX))) (PUT1-LST (QUOTE DIVS-CVZNX) (QUOTE (TYPE-PRESCRIPTION-LST ((DIVS-CVZNX 4 NIL NIL NIL NIL NIL NIL)) TOTALP-LST ((DIVS-CVZNX . T)) SDEFN (LAMBDA (N SOPD I DOPD J CCR) (CVZNX (B0) (B0) (DIVS-Z N SOPD I DOPD J) (DIVS-N N SOPD I DOPD J) (CCR-X CCR))) LISP-CODE *1*DIVS-CVZNX SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*DIVS-CVZNX) IMMEDIATE-DEPENDENTS0 (DIVS_L DIVSL_L DIVS_W-INS) EVENT (DEFN DIVS-CVZNX (N SOPD I DOPD J CCR) (CVZNX (B0) (B0) (DIVS-Z N SOPD I DOPD J) (DIVS-N N SOPD I DOPD J) (CCR-X CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CCR-X . DIVS-CVZNX) (IMMEDIATE-DEPENDENTS0 DIVS-N . DIVS-CVZNX) (IMMEDIATE-DEPENDENTS0 DIVS-Z . DIVS-CVZNX) (IMMEDIATE-DEPENDENTS0 B0 . DIVS-CVZNX) (IMMEDIATE-DEPENDENTS0 CVZNX . DIVS-CVZNX) (DCELL . *1*DIVS-CVZNX))))) (PUT1-LST (QUOTE *1*DIVS-N) (QUOTE (MAIN-EVENT DIVS-N))) (PUT1-LST (QUOTE DIVS-N) (QUOTE (TYPE-PRESCRIPTION-LST ((DIVS-N 4 NIL NIL NIL NIL NIL)) TOTALP-LST ((DIVS-N . T)) SDEFN (LAMBDA (N SOPD I DOPD J) (MBIT (IQUOT N SOPD I DOPD J) N)) LISP-CODE *1*DIVS-N SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*DIVS-N) IMMEDIATE-DEPENDENTS0 (DIVS-CVZNX) EVENT (DEFN DIVS-N (N SOPD I DOPD J) (MBIT (IQUOT N SOPD I DOPD J) N)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IQUOT . DIVS-N) (IMMEDIATE-DEPENDENTS0 MBIT . DIVS-N) (DCELL . *1*DIVS-N))))) (PUT1-LST (QUOTE *1*DIVS-Z) (QUOTE (MAIN-EVENT DIVS-Z))) (PUT1-LST (QUOTE DIVS-Z) (QUOTE (TYPE-PRESCRIPTION-LST ((DIVS-Z 4 NIL NIL NIL NIL NIL)) TOTALP-LST ((DIVS-Z . T)) SDEFN (LAMBDA (N SOPD I DOPD J) (IF (EQUAL (IQUOT N SOPD I DOPD J) (QUOTE 0)) (B1) (B0))) LISP-CODE *1*DIVS-Z SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*DIVS-Z) IMMEDIATE-DEPENDENTS0 (DIVS-CVZNX) EVENT (DEFN DIVS-Z (N SOPD I DOPD J) (IF (EQUAL (IQUOT N SOPD I DOPD J) (QUOTE 0)) (B1) (B0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . DIVS-Z) (IMMEDIATE-DEPENDENTS0 B1 . DIVS-Z) (IMMEDIATE-DEPENDENTS0 IQUOT . DIVS-Z) (DCELL . *1*DIVS-Z))))) (PUT1-LST (QUOTE *1*DIVS-V) (QUOTE (MAIN-EVENT DIVS-V))) (PUT1-LST (QUOTE DIVS-V) (QUOTE (TYPE-PRESCRIPTION-LST ((DIVS-V 4 NIL NIL NIL NIL NIL)) TOTALP-LST ((DIVS-V . T)) SDEFN (LAMBDA (N SOPD I DOPD J) (IF (INT-RANGEP (IQUOTIENT (NAT-TO-INT DOPD J) (NAT-TO-INT SOPD I)) N) (B0) (B1))) LISP-CODE *1*DIVS-V SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*DIVS-V) IMMEDIATE-DEPENDENTS0 (DIVS_L DIVSL_L DIVS_W-INS) EVENT (DEFN DIVS-V (N SOPD I DOPD J) (IF (INT-RANGEP (IQUOTIENT (NAT-TO-INT DOPD J) (NAT-TO-INT SOPD I)) N) (B0) (B1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B1 . DIVS-V) (IMMEDIATE-DEPENDENTS0 B0 . DIVS-V) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . DIVS-V) (IMMEDIATE-DEPENDENTS0 IQUOTIENT . DIVS-V) (IMMEDIATE-DEPENDENTS0 INT-RANGEP . DIVS-V) (DCELL . *1*DIVS-V))))) (PUT1-LST (QUOTE *1*IREM) (QUOTE (MAIN-EVENT IREM))) (PUT1-LST (QUOTE IREM) (QUOTE (TYPE-PRESCRIPTION-LST ((IREM 4 NIL NIL NIL NIL NIL)) TOTALP-LST ((IREM . T)) SDEFN (LAMBDA (N S I D J) (HEAD (INT-TO-NAT (IREMAINDER (NAT-TO-INT D J) (NAT-TO-INT S I)) I) N)) LISP-CODE *1*IREM SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*IREM) IMMEDIATE-DEPENDENTS0 (DIVS_L DIVSL_L DIVS_W-INS) EVENT (DEFN IREM (N S I D J) (HEAD (INT-TO-NAT (IREMAINDER (NAT-TO-INT D J) (NAT-TO-INT S I)) I) N)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAT-TO-INT . IREM) (IMMEDIATE-DEPENDENTS0 IREMAINDER . IREM) (IMMEDIATE-DEPENDENTS0 INT-TO-NAT . IREM) (IMMEDIATE-DEPENDENTS0 HEAD . IREM) (DCELL . *1*IREM))))) (PUT1-LST (QUOTE *1*IQUOT) (QUOTE (MAIN-EVENT IQUOT))) (PUT1-LST (QUOTE IQUOT) (QUOTE (TYPE-PRESCRIPTION-LST ((IQUOT 4 NIL NIL NIL NIL NIL)) TOTALP-LST ((IQUOT . T)) SDEFN (LAMBDA (N S I D J) (HEAD (INT-TO-NAT (IQUOTIENT (NAT-TO-INT D J) (NAT-TO-INT S I)) J) N)) LISP-CODE *1*IQUOT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*IQUOT) IMMEDIATE-DEPENDENTS0 (DIVS_L DIVSL_L DIVS_W-INS DIVS-N DIVS-Z) EVENT (DEFN IQUOT (N S I D J) (HEAD (INT-TO-NAT (IQUOTIENT (NAT-TO-INT D J) (NAT-TO-INT S I)) J) N)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAT-TO-INT . IQUOT) (IMMEDIATE-DEPENDENTS0 IQUOTIENT . IQUOT) (IMMEDIATE-DEPENDENTS0 INT-TO-NAT . IQUOT) (IMMEDIATE-DEPENDENTS0 HEAD . IQUOT) (DCELL . *1*IQUOT))))) (PUT1-LST (QUOTE *1*OR-INS2) (QUOTE (MAIN-EVENT OR-INS2))) (PUT1-LST (QUOTE OR-INS2) (QUOTE (TYPE-PRESCRIPTION-LST ((OR-INS2 -1 NIL NIL NIL)) TOTALP-LST ((OR-INS2 . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (OR-ADDR-MODEP2 INS) (OR-MAPPING (READ-DN OPLEN (D_RN INS) S) OPLEN INS S) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*OR-INS2 SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*OR-INS2) IMMEDIATE-DEPENDENTS0 (OR-GROUP) EVENT (DEFN OR-INS2 (OPLEN INS S) (IF (OR-ADDR-MODEP2 INS) (OR-MAPPING (READ-DN OPLEN (D_RN INS) S) OPLEN INS S) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . OR-INS2) (IMMEDIATE-DEPENDENTS0 HALT . OR-INS2) (IMMEDIATE-DEPENDENTS0 D_RN . OR-INS2) (IMMEDIATE-DEPENDENTS0 READ-DN . OR-INS2) (IMMEDIATE-DEPENDENTS0 OR-MAPPING . OR-INS2) (IMMEDIATE-DEPENDENTS0 OR-ADDR-MODEP2 . OR-INS2) (DCELL . *1*OR-INS2))))) (PUT1-LST (QUOTE *1*OR-MAPPING) (QUOTE (MAIN-EVENT OR-MAPPING))) (PUT1-LST (QUOTE OR-MAPPING) (QUOTE (TYPE-PRESCRIPTION-LST ((OR-MAPPING -1 NIL NIL NIL NIL)) TOTALP-LST ((OR-MAPPING . T)) SDEFN (LAMBDA (SOPD OPLEN INS S) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (MAPPING OPLEN (OR-EFFECT OPLEN SOPD (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (MC-CCR S)) (MC-INSTATE OPLEN INS S)))) LISP-CODE *1*OR-MAPPING SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*OR-MAPPING) IMMEDIATE-DEPENDENTS0 (ORI-INS OR-INS2) EVENT (DEFN OR-MAPPING (SOPD OPLEN INS S) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (MAPPING OPLEN (OR-EFFECT OPLEN SOPD (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (MC-CCR S)) (MC-INSTATE OPLEN INS S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-CCR . OR-MAPPING) (IMMEDIATE-DEPENDENTS0 OPERAND . OR-MAPPING) (IMMEDIATE-DEPENDENTS0 OR-EFFECT . OR-MAPPING) (IMMEDIATE-DEPENDENTS0 MAPPING . OR-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . OR-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-HALTP . OR-MAPPING) (DCELL . *1*OR-MAPPING))))) (PUT1-LST (QUOTE *1*OR-INS1) (QUOTE (MAIN-EVENT OR-INS1))) (PUT1-LST (QUOTE OR-INS1) (QUOTE (TYPE-PRESCRIPTION-LST ((OR-INS1 -1 NIL NIL NIL)) TOTALP-LST ((OR-INS1 . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (OR-ADDR-MODEP1 INS) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (D-MAPPING OPLEN (OR-EFFECT OPLEN (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (READ-DN OPLEN (D_RN INS) S) (MC-CCR S)) (D_RN INS) (CAR (MC-INSTATE OPLEN INS S)))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*OR-INS1 SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*OR-INS1) IMMEDIATE-DEPENDENTS0 (OR-GROUP) EVENT (DEFN OR-INS1 (OPLEN INS S) (IF (OR-ADDR-MODEP1 INS) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (D-MAPPING OPLEN (OR-EFFECT OPLEN (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (READ-DN OPLEN (D_RN INS) S) (MC-CCR S)) (D_RN INS) (CAR (MC-INSTATE OPLEN INS S)))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . OR-INS1) (IMMEDIATE-DEPENDENTS0 HALT . OR-INS1) (IMMEDIATE-DEPENDENTS0 MC-CCR . OR-INS1) (IMMEDIATE-DEPENDENTS0 D_RN . OR-INS1) (IMMEDIATE-DEPENDENTS0 READ-DN . OR-INS1) (IMMEDIATE-DEPENDENTS0 OPERAND . OR-INS1) (IMMEDIATE-DEPENDENTS0 OR-EFFECT . OR-INS1) (IMMEDIATE-DEPENDENTS0 D-MAPPING . OR-INS1) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . OR-INS1) (IMMEDIATE-DEPENDENTS0 MC-HALTP . OR-INS1) (IMMEDIATE-DEPENDENTS0 OR-ADDR-MODEP1 . OR-INS1) (DCELL . *1*OR-INS1))))) (PUT1-LST (QUOTE *1*OR-ADDR-MODEP2) (QUOTE (MAIN-EVENT OR-ADDR-MODEP2))) (PUT1-LST (QUOTE OR-ADDR-MODEP2) (QUOTE (TYPE-PRESCRIPTION-LST ((OR-ADDR-MODEP2 3 NIL)) TOTALP-LST ((OR-ADDR-MODEP2 . T)) SDEFN (LAMBDA (INS) (IF (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)) (MEMORY-ADDR-MODEP (S_MODE INS) (S_RN INS)) (QUOTE *1*FALSE))) LISP-CODE *1*OR-ADDR-MODEP2 SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*OR-ADDR-MODEP2) IMMEDIATE-DEPENDENTS0 (OR-INS2) EVENT (DEFN OR-ADDR-MODEP2 (INS) (AND (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)) (MEMORY-ADDR-MODEP (S_MODE INS) (S_RN INS)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMORY-ADDR-MODEP . OR-ADDR-MODEP2) (IMMEDIATE-DEPENDENTS0 S_RN . OR-ADDR-MODEP2) (IMMEDIATE-DEPENDENTS0 S_MODE . OR-ADDR-MODEP2) (IMMEDIATE-DEPENDENTS0 ALTERABLE-ADDR-MODEP . OR-ADDR-MODEP2) (DCELL . *1*OR-ADDR-MODEP2))))) (PUT1-LST (QUOTE *1*OR-ADDR-MODEP1) (QUOTE (MAIN-EVENT OR-ADDR-MODEP1))) (PUT1-LST (QUOTE OR-ADDR-MODEP1) (QUOTE (TYPE-PRESCRIPTION-LST ((OR-ADDR-MODEP1 3 NIL)) TOTALP-LST ((OR-ADDR-MODEP1 . T)) SDEFN (LAMBDA (INS) (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS))) LISP-CODE *1*OR-ADDR-MODEP1 SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*OR-ADDR-MODEP1) IMMEDIATE-DEPENDENTS0 (OR-INS1) EVENT (DEFN OR-ADDR-MODEP1 (INS) (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S_RN . OR-ADDR-MODEP1) (IMMEDIATE-DEPENDENTS0 S_MODE . OR-ADDR-MODEP1) (IMMEDIATE-DEPENDENTS0 DATA-ADDR-MODEP . OR-ADDR-MODEP1) (DCELL . *1*OR-ADDR-MODEP1))))) (PUT1-LST (QUOTE *1*OR-EFFECT) (QUOTE (MAIN-EVENT OR-EFFECT))) (PUT1-LST (QUOTE OR-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((OR-EFFECT 16 NIL NIL NIL NIL)) TOTALP-LST ((OR-EFFECT . T)) SDEFN (LAMBDA (OPLEN SOPD DOPD CCR) (CONS (LOGOR SOPD DOPD) (OR-CVZNX OPLEN SOPD DOPD CCR))) LISP-CODE *1*OR-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*OR-EFFECT) IMMEDIATE-DEPENDENTS0 (OR-MAPPING OR-INS1) EVENT (DEFN OR-EFFECT (OPLEN SOPD DOPD CCR) (CONS (LOGOR SOPD DOPD) (OR-CVZNX OPLEN SOPD DOPD CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OR-CVZNX . OR-EFFECT) (IMMEDIATE-DEPENDENTS0 LOGOR . OR-EFFECT) (DCELL . *1*OR-EFFECT))))) (PUT1-LST (QUOTE *1*OR-CVZNX) (QUOTE (MAIN-EVENT OR-CVZNX))) (PUT1-LST (QUOTE OR-CVZNX) (QUOTE (TYPE-PRESCRIPTION-LST ((OR-CVZNX 4 NIL NIL NIL NIL)) TOTALP-LST ((OR-CVZNX . T)) SDEFN (LAMBDA (OPLEN SOPD DOPD CCR) (CVZNX (B0) (B0) (OR-Z OPLEN SOPD DOPD) (OR-N OPLEN SOPD DOPD) (CCR-X CCR))) LISP-CODE *1*OR-CVZNX SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*OR-CVZNX) IMMEDIATE-DEPENDENTS0 (OR-EFFECT) EVENT (DEFN OR-CVZNX (OPLEN SOPD DOPD CCR) (CVZNX (B0) (B0) (OR-Z OPLEN SOPD DOPD) (OR-N OPLEN SOPD DOPD) (CCR-X CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CCR-X . OR-CVZNX) (IMMEDIATE-DEPENDENTS0 OR-N . OR-CVZNX) (IMMEDIATE-DEPENDENTS0 OR-Z . OR-CVZNX) (IMMEDIATE-DEPENDENTS0 B0 . OR-CVZNX) (IMMEDIATE-DEPENDENTS0 CVZNX . OR-CVZNX) (DCELL . *1*OR-CVZNX))))) (PUT1-LST (QUOTE *1*OR-N) (QUOTE (MAIN-EVENT OR-N))) (PUT1-LST (QUOTE OR-N) (QUOTE (TYPE-PRESCRIPTION-LST ((OR-N 4 NIL NIL NIL)) TOTALP-LST ((OR-N . T)) SDEFN (LAMBDA (OPLEN SOPD DOPD) (B-OR (MBIT SOPD OPLEN) (MBIT DOPD OPLEN))) LISP-CODE *1*OR-N SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*OR-N) IMMEDIATE-DEPENDENTS0 (OR-CVZNX) EVENT (DEFN OR-N (OPLEN SOPD DOPD) (B-OR (MBIT SOPD OPLEN) (MBIT DOPD OPLEN))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MBIT . OR-N) (IMMEDIATE-DEPENDENTS0 B-OR . OR-N) (DCELL . *1*OR-N))))) (PUT1-LST (QUOTE *1*OR-Z) (QUOTE (MAIN-EVENT OR-Z))) (PUT1-LST (QUOTE OR-Z) (QUOTE (TYPE-PRESCRIPTION-LST ((OR-Z 4 NIL NIL NIL)) TOTALP-LST ((OR-Z . T)) SDEFN (LAMBDA (OPLEN SOPD DOPD) (IF (EQUAL (LOGOR SOPD DOPD) (QUOTE 0)) (B1) (B0))) LISP-CODE *1*OR-Z SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*OR-Z) IMMEDIATE-DEPENDENTS0 (OR-CVZNX) EVENT (DEFN OR-Z (OPLEN SOPD DOPD) (IF (EQUAL (LOGOR SOPD DOPD) (QUOTE 0)) (B1) (B0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . OR-Z) (IMMEDIATE-DEPENDENTS0 B1 . OR-Z) (IMMEDIATE-DEPENDENTS0 LOGOR . OR-Z) (DCELL . *1*OR-Z))))) (PUT1-LST (QUOTE *1*AND-GROUP) (QUOTE (MAIN-EVENT AND-GROUP))) (PUT1-LST (QUOTE AND-GROUP) (QUOTE (TYPE-PRESCRIPTION-LST ((AND-GROUP -1 NIL NIL NIL)) TOTALP-LST ((AND-GROUP . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (EQUAL OPLEN (Q)) (MUL_W-INS INS S) (IF (B0P (BITN INS (QUOTE 8))) (AND-INS1 OPLEN INS S) (IF (LESSP (S_MODE INS) (QUOTE 2)) (IF (EQUAL OPLEN (B)) (HALT (QUOTE ABCD-UNSPECIFIED) S) (IF (EQUAL OPLEN (W)) (IF (EQUAL (S_MODE INS) (QUOTE 0)) (EXG-DRDR-INS INS S) (EXG-ARAR-INS INS S)) (IF (EQUAL (S_MODE INS) (QUOTE 0)) (HALT (RESERVED-SIGNAL) S) (EXG-DRAR-INS INS S)))) (AND-INS2 OPLEN INS S))))) LISP-CODE *1*AND-GROUP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*AND-GROUP) IMMEDIATE-DEPENDENTS0 (EXECUTE-INS) EVENT (DEFN AND-GROUP (OPLEN INS S) (IF (EQUAL OPLEN (Q)) (MUL_W-INS INS S) (IF (B0P (BITN INS (QUOTE 8))) (AND-INS1 OPLEN INS S) (IF (LESSP (S_MODE INS) (QUOTE 2)) (IF (EQUAL OPLEN (B)) (HALT (QUOTE ABCD-UNSPECIFIED) S) (IF (EQUAL OPLEN (W)) (IF (EQUAL (S_MODE INS) (QUOTE 0)) (EXG-DRDR-INS INS S) (EXG-ARAR-INS INS S)) (IF (EQUAL (S_MODE INS) (QUOTE 0)) (HALT (RESERVED-SIGNAL) S) (EXG-DRAR-INS INS S)))) (AND-INS2 OPLEN INS S))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 AND-INS2 . AND-GROUP) (IMMEDIATE-DEPENDENTS0 EXG-DRAR-INS . AND-GROUP) (IMMEDIATE-DEPENDENTS0 RESERVED-SIGNAL . AND-GROUP) (IMMEDIATE-DEPENDENTS0 EXG-ARAR-INS . AND-GROUP) (IMMEDIATE-DEPENDENTS0 EXG-DRDR-INS . AND-GROUP) (IMMEDIATE-DEPENDENTS0 W . AND-GROUP) (IMMEDIATE-DEPENDENTS0 HALT . AND-GROUP) (IMMEDIATE-DEPENDENTS0 B . AND-GROUP) (IMMEDIATE-DEPENDENTS0 S_MODE . AND-GROUP) (IMMEDIATE-DEPENDENTS0 AND-INS1 . AND-GROUP) (IMMEDIATE-DEPENDENTS0 BITN . AND-GROUP) (IMMEDIATE-DEPENDENTS0 B0P . AND-GROUP) (IMMEDIATE-DEPENDENTS0 MUL_W-INS . AND-GROUP) (IMMEDIATE-DEPENDENTS0 Q . AND-GROUP) (DCELL . *1*AND-GROUP))))) (PUT1-LST (QUOTE *1*MUL_W-INS) (QUOTE (MAIN-EVENT MUL_W-INS))) (PUT1-LST (QUOTE MUL_W-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((MUL_W-INS -1 NIL NIL)) TOTALP-LST ((MUL_W-INS . T)) SDEFN (LAMBDA (INS S) (IF (MUL&DIV-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (W) INS S))) (CAR (MC-INSTATE (W) INS S)) (IF (B0P (BITN INS (QUOTE 8))) (MULU_W-INS (OPERAND (W) (CDR (MC-INSTATE (W) INS S)) S) (D_RN INS) (CAR (MC-INSTATE (W) INS S))) (MULS_W-INS (OPERAND (W) (CDR (MC-INSTATE (W) INS S)) S) (D_RN INS) (CAR (MC-INSTATE (W) INS S))))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*MUL_W-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*MUL_W-INS) IMMEDIATE-DEPENDENTS0 (AND-GROUP) EVENT (DEFN MUL_W-INS (INS S) (IF (MUL&DIV-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE (W) INS S))) (CAR (MC-INSTATE (W) INS S)) (IF (B0P (BITN INS (QUOTE 8))) (MULU_W-INS (OPERAND (W) (CDR (MC-INSTATE (W) INS S)) S) (D_RN INS) (CAR (MC-INSTATE (W) INS S))) (MULS_W-INS (OPERAND (W) (CDR (MC-INSTATE (W) INS S)) S) (D_RN INS) (CAR (MC-INSTATE (W) INS S))))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . MUL_W-INS) (IMMEDIATE-DEPENDENTS0 HALT . MUL_W-INS) (IMMEDIATE-DEPENDENTS0 MULS_W-INS . MUL_W-INS) (IMMEDIATE-DEPENDENTS0 D_RN . MUL_W-INS) (IMMEDIATE-DEPENDENTS0 OPERAND . MUL_W-INS) (IMMEDIATE-DEPENDENTS0 MULU_W-INS . MUL_W-INS) (IMMEDIATE-DEPENDENTS0 BITN . MUL_W-INS) (IMMEDIATE-DEPENDENTS0 B0P . MUL_W-INS) (IMMEDIATE-DEPENDENTS0 W . MUL_W-INS) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . MUL_W-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . MUL_W-INS) (IMMEDIATE-DEPENDENTS0 MUL&DIV-ADDR-MODEP . MUL_W-INS) (DCELL . *1*MUL_W-INS))))) (PUT1-LST (QUOTE *1*EXG-DRAR-INS) (QUOTE (MAIN-EVENT EXG-DRAR-INS))) (PUT1-LST (QUOTE EXG-DRAR-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((EXG-DRAR-INS 16 NIL NIL)) TOTALP-LST ((EXG-DRAR-INS . T)) SDEFN (LAMBDA (INS S) (WRITE-DN (L) (READ-AN (L) (S_RN INS) S) (D_RN INS) (WRITE-AN (L) (READ-DN (L) (D_RN INS) S) (S_RN INS) S))) LISP-CODE *1*EXG-DRAR-INS SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*EXG-DRAR-INS) IMMEDIATE-DEPENDENTS0 (AND-GROUP) EVENT (DEFN EXG-DRAR-INS (INS S) (WRITE-DN (L) (READ-AN (L) (S_RN INS) S) (D_RN INS) (WRITE-AN (L) (READ-DN (L) (D_RN INS) S) (S_RN INS) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-DN . EXG-DRAR-INS) (IMMEDIATE-DEPENDENTS0 WRITE-AN . EXG-DRAR-INS) (IMMEDIATE-DEPENDENTS0 D_RN . EXG-DRAR-INS) (IMMEDIATE-DEPENDENTS0 S_RN . EXG-DRAR-INS) (IMMEDIATE-DEPENDENTS0 READ-AN . EXG-DRAR-INS) (IMMEDIATE-DEPENDENTS0 L . EXG-DRAR-INS) (IMMEDIATE-DEPENDENTS0 WRITE-DN . EXG-DRAR-INS) (DCELL . *1*EXG-DRAR-INS))))) (PUT1-LST (QUOTE *1*EXG-ARAR-INS) (QUOTE (MAIN-EVENT EXG-ARAR-INS))) (PUT1-LST (QUOTE EXG-ARAR-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((EXG-ARAR-INS 16 NIL NIL)) TOTALP-LST ((EXG-ARAR-INS . T)) SDEFN (LAMBDA (INS S) (WRITE-AN (L) (READ-AN (L) (S_RN INS) S) (D_RN INS) (WRITE-AN (L) (READ-AN (L) (D_RN INS) S) (S_RN INS) S))) LISP-CODE *1*EXG-ARAR-INS SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*EXG-ARAR-INS) IMMEDIATE-DEPENDENTS0 (AND-GROUP) EVENT (DEFN EXG-ARAR-INS (INS S) (WRITE-AN (L) (READ-AN (L) (S_RN INS) S) (D_RN INS) (WRITE-AN (L) (READ-AN (L) (D_RN INS) S) (S_RN INS) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 D_RN . EXG-ARAR-INS) (IMMEDIATE-DEPENDENTS0 S_RN . EXG-ARAR-INS) (IMMEDIATE-DEPENDENTS0 READ-AN . EXG-ARAR-INS) (IMMEDIATE-DEPENDENTS0 L . EXG-ARAR-INS) (IMMEDIATE-DEPENDENTS0 WRITE-AN . EXG-ARAR-INS) (DCELL . *1*EXG-ARAR-INS))))) (PUT1-LST (QUOTE *1*EXG-DRDR-INS) (QUOTE (MAIN-EVENT EXG-DRDR-INS))) (PUT1-LST (QUOTE EXG-DRDR-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((EXG-DRDR-INS 16 NIL NIL)) TOTALP-LST ((EXG-DRDR-INS . T)) SDEFN (LAMBDA (INS S) (WRITE-DN (L) (READ-DN (L) (S_RN INS) S) (D_RN INS) (WRITE-DN (L) (READ-DN (L) (D_RN INS) S) (S_RN INS) S))) LISP-CODE *1*EXG-DRDR-INS SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*EXG-DRDR-INS) IMMEDIATE-DEPENDENTS0 (AND-GROUP) EVENT (DEFN EXG-DRDR-INS (INS S) (WRITE-DN (L) (READ-DN (L) (S_RN INS) S) (D_RN INS) (WRITE-DN (L) (READ-DN (L) (D_RN INS) S) (S_RN INS) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 D_RN . EXG-DRDR-INS) (IMMEDIATE-DEPENDENTS0 S_RN . EXG-DRDR-INS) (IMMEDIATE-DEPENDENTS0 READ-DN . EXG-DRDR-INS) (IMMEDIATE-DEPENDENTS0 L . EXG-DRDR-INS) (IMMEDIATE-DEPENDENTS0 WRITE-DN . EXG-DRDR-INS) (DCELL . *1*EXG-DRDR-INS))))) (PUT1-LST (QUOTE *1*MULS_W-INS) (QUOTE (MAIN-EVENT MULS_W-INS))) (PUT1-LST (QUOTE MULS_W-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((MULS_W-INS 16 NIL NIL NIL)) TOTALP-LST ((MULS_W-INS . T)) SDEFN (LAMBDA (SOPD DN S) (UPDATE-CCR (MULS-CVZNX (L) SOPD (READ-DN (W) DN S) (W) (MC-CCR S)) (WRITE-DN (L) (MULS (L) SOPD (READ-DN (W) DN S) (W)) DN S))) LISP-CODE *1*MULS_W-INS SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MULS_W-INS) IMMEDIATE-DEPENDENTS0 (MUL_W-INS) EVENT (DEFN MULS_W-INS (SOPD DN S) (UPDATE-CCR (MULS-CVZNX (L) SOPD (READ-DN (W) DN S) (W) (MC-CCR S)) (WRITE-DN (L) (MULS (L) SOPD (READ-DN (W) DN S) (W)) DN S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MULS . MULS_W-INS) (IMMEDIATE-DEPENDENTS0 WRITE-DN . MULS_W-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . MULS_W-INS) (IMMEDIATE-DEPENDENTS0 W . MULS_W-INS) (IMMEDIATE-DEPENDENTS0 READ-DN . MULS_W-INS) (IMMEDIATE-DEPENDENTS0 L . MULS_W-INS) (IMMEDIATE-DEPENDENTS0 MULS-CVZNX . MULS_W-INS) (IMMEDIATE-DEPENDENTS0 UPDATE-CCR . MULS_W-INS) (DCELL . *1*MULS_W-INS))))) (PUT1-LST (QUOTE *1*MULS-CVZNX) (QUOTE (MAIN-EVENT MULS-CVZNX))) (PUT1-LST (QUOTE MULS-CVZNX) (QUOTE (TYPE-PRESCRIPTION-LST ((MULS-CVZNX 4 NIL NIL NIL NIL NIL)) TOTALP-LST ((MULS-CVZNX . T)) SDEFN (LAMBDA (N SOPD DOPD I CCR) (CVZNX (B0) (MULS-V N SOPD DOPD I) (MULS-Z N SOPD DOPD I) (MULS-N N SOPD DOPD I) (CCR-X CCR))) LISP-CODE *1*MULS-CVZNX SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MULS-CVZNX) IMMEDIATE-DEPENDENTS0 (MULS_L_DLDH MULS_L_DL MULS_W-INS) EVENT (DEFN MULS-CVZNX (N SOPD DOPD I CCR) (CVZNX (B0) (MULS-V N SOPD DOPD I) (MULS-Z N SOPD DOPD I) (MULS-N N SOPD DOPD I) (CCR-X CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CCR-X . MULS-CVZNX) (IMMEDIATE-DEPENDENTS0 MULS-N . MULS-CVZNX) (IMMEDIATE-DEPENDENTS0 MULS-Z . MULS-CVZNX) (IMMEDIATE-DEPENDENTS0 MULS-V . MULS-CVZNX) (IMMEDIATE-DEPENDENTS0 B0 . MULS-CVZNX) (IMMEDIATE-DEPENDENTS0 CVZNX . MULS-CVZNX) (DCELL . *1*MULS-CVZNX))))) (PUT1-LST (QUOTE *1*MULS-N) (QUOTE (MAIN-EVENT MULS-N))) (PUT1-LST (QUOTE MULS-N) (QUOTE (TYPE-PRESCRIPTION-LST ((MULS-N 4 NIL NIL NIL NIL)) TOTALP-LST ((MULS-N . T)) SDEFN (LAMBDA (N SOPD DOPD I) (MBIT (MULS N SOPD DOPD I) N)) LISP-CODE *1*MULS-N SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MULS-N) IMMEDIATE-DEPENDENTS0 (MULS-CVZNX) EVENT (DEFN MULS-N (N SOPD DOPD I) (MBIT (MULS N SOPD DOPD I) N)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MULS . MULS-N) (IMMEDIATE-DEPENDENTS0 MBIT . MULS-N) (DCELL . *1*MULS-N))))) (PUT1-LST (QUOTE *1*MULS-Z) (QUOTE (MAIN-EVENT MULS-Z))) (PUT1-LST (QUOTE MULS-Z) (QUOTE (TYPE-PRESCRIPTION-LST ((MULS-Z 4 NIL NIL NIL NIL)) TOTALP-LST ((MULS-Z . T)) SDEFN (LAMBDA (N SOPD DOPD I) (IF (EQUAL (MULS N SOPD DOPD I) (QUOTE 0)) (B1) (B0))) LISP-CODE *1*MULS-Z SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MULS-Z) IMMEDIATE-DEPENDENTS0 (MULS-CVZNX) EVENT (DEFN MULS-Z (N SOPD DOPD I) (IF (EQUAL (MULS N SOPD DOPD I) (QUOTE 0)) (B1) (B0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . MULS-Z) (IMMEDIATE-DEPENDENTS0 B1 . MULS-Z) (IMMEDIATE-DEPENDENTS0 MULS . MULS-Z) (DCELL . *1*MULS-Z))))) (PUT1-LST (QUOTE *1*MULS-V) (QUOTE (MAIN-EVENT MULS-V))) (PUT1-LST (QUOTE MULS-V) (QUOTE (TYPE-PRESCRIPTION-LST ((MULS-V 4 NIL NIL NIL NIL)) TOTALP-LST ((MULS-V . T)) SDEFN (LAMBDA (N SOPD DOPD I) (IF (INT-RANGEP (ITIMES (NAT-TO-INT SOPD I) (NAT-TO-INT DOPD I)) N) (B0) (B1))) LISP-CODE *1*MULS-V SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MULS-V) IMMEDIATE-DEPENDENTS0 (MULS-CVZNX) EVENT (DEFN MULS-V (N SOPD DOPD I) (IF (INT-RANGEP (ITIMES (NAT-TO-INT SOPD I) (NAT-TO-INT DOPD I)) N) (B0) (B1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B1 . MULS-V) (IMMEDIATE-DEPENDENTS0 B0 . MULS-V) (IMMEDIATE-DEPENDENTS0 NAT-TO-INT . MULS-V) (IMMEDIATE-DEPENDENTS0 ITIMES . MULS-V) (IMMEDIATE-DEPENDENTS0 INT-RANGEP . MULS-V) (DCELL . *1*MULS-V))))) (PUT1-LST (QUOTE *1*MULU_W-INS) (QUOTE (MAIN-EVENT MULU_W-INS))) (PUT1-LST (QUOTE MULU_W-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((MULU_W-INS 16 NIL NIL NIL)) TOTALP-LST ((MULU_W-INS . T)) SDEFN (LAMBDA (SOPD DN S) (UPDATE-CCR (MULU-CVZNX (L) SOPD (READ-DN (W) DN S) (W) (MC-CCR S)) (WRITE-DN (L) (MULU (L) SOPD (READ-DN (W) DN S) (W)) DN S))) LISP-CODE *1*MULU_W-INS SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MULU_W-INS) IMMEDIATE-DEPENDENTS0 (MUL_W-INS) EVENT (DEFN MULU_W-INS (SOPD DN S) (UPDATE-CCR (MULU-CVZNX (L) SOPD (READ-DN (W) DN S) (W) (MC-CCR S)) (WRITE-DN (L) (MULU (L) SOPD (READ-DN (W) DN S) (W)) DN S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MULU . MULU_W-INS) (IMMEDIATE-DEPENDENTS0 WRITE-DN . MULU_W-INS) (IMMEDIATE-DEPENDENTS0 MC-CCR . MULU_W-INS) (IMMEDIATE-DEPENDENTS0 W . MULU_W-INS) (IMMEDIATE-DEPENDENTS0 READ-DN . MULU_W-INS) (IMMEDIATE-DEPENDENTS0 L . MULU_W-INS) (IMMEDIATE-DEPENDENTS0 MULU-CVZNX . MULU_W-INS) (IMMEDIATE-DEPENDENTS0 UPDATE-CCR . MULU_W-INS) (DCELL . *1*MULU_W-INS))))) (PUT1-LST (QUOTE *1*MULU-CVZNX) (QUOTE (MAIN-EVENT MULU-CVZNX))) (PUT1-LST (QUOTE MULU-CVZNX) (QUOTE (TYPE-PRESCRIPTION-LST ((MULU-CVZNX 4 NIL NIL NIL NIL NIL)) TOTALP-LST ((MULU-CVZNX . T)) SDEFN (LAMBDA (N SOPD DOPD I CCR) (CVZNX (B0) (MULU-V N SOPD DOPD I) (MULU-Z N SOPD DOPD I) (MULU-N N SOPD DOPD I) (CCR-X CCR))) LISP-CODE *1*MULU-CVZNX SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MULU-CVZNX) IMMEDIATE-DEPENDENTS0 (MULU_L_DLDH MULU_L_DL MULU_W-INS) EVENT (DEFN MULU-CVZNX (N SOPD DOPD I CCR) (CVZNX (B0) (MULU-V N SOPD DOPD I) (MULU-Z N SOPD DOPD I) (MULU-N N SOPD DOPD I) (CCR-X CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CCR-X . MULU-CVZNX) (IMMEDIATE-DEPENDENTS0 MULU-N . MULU-CVZNX) (IMMEDIATE-DEPENDENTS0 MULU-Z . MULU-CVZNX) (IMMEDIATE-DEPENDENTS0 MULU-V . MULU-CVZNX) (IMMEDIATE-DEPENDENTS0 B0 . MULU-CVZNX) (IMMEDIATE-DEPENDENTS0 CVZNX . MULU-CVZNX) (DCELL . *1*MULU-CVZNX))))) (PUT1-LST (QUOTE *1*MULU-N) (QUOTE (MAIN-EVENT MULU-N))) (PUT1-LST (QUOTE MULU-N) (QUOTE (TYPE-PRESCRIPTION-LST ((MULU-N 4 NIL NIL NIL NIL)) TOTALP-LST ((MULU-N . T)) SDEFN (LAMBDA (N SOPD DOPD I) (MBIT (MULU N SOPD DOPD I) N)) LISP-CODE *1*MULU-N SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MULU-N) IMMEDIATE-DEPENDENTS0 (MULU-CVZNX) EVENT (DEFN MULU-N (N SOPD DOPD I) (MBIT (MULU N SOPD DOPD I) N)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MULU . MULU-N) (IMMEDIATE-DEPENDENTS0 MBIT . MULU-N) (DCELL . *1*MULU-N))))) (PUT1-LST (QUOTE *1*MULU-Z) (QUOTE (MAIN-EVENT MULU-Z))) (PUT1-LST (QUOTE MULU-Z) (QUOTE (TYPE-PRESCRIPTION-LST ((MULU-Z 4 NIL NIL NIL NIL)) TOTALP-LST ((MULU-Z . T)) SDEFN (LAMBDA (N SOPD DOPD I) (IF (EQUAL (MULU N SOPD DOPD I) (QUOTE 0)) (B1) (B0))) LISP-CODE *1*MULU-Z SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MULU-Z) IMMEDIATE-DEPENDENTS0 (MULU-CVZNX) EVENT (DEFN MULU-Z (N SOPD DOPD I) (IF (EQUAL (MULU N SOPD DOPD I) (QUOTE 0)) (B1) (B0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . MULU-Z) (IMMEDIATE-DEPENDENTS0 B1 . MULU-Z) (IMMEDIATE-DEPENDENTS0 MULU . MULU-Z) (DCELL . *1*MULU-Z))))) (PUT1-LST (QUOTE *1*MULU-V) (QUOTE (MAIN-EVENT MULU-V))) (PUT1-LST (QUOTE MULU-V) (QUOTE (TYPE-PRESCRIPTION-LST ((MULU-V 4 NIL NIL NIL NIL)) TOTALP-LST ((MULU-V . T)) SDEFN (LAMBDA (N SOPD DOPD I) (IF (LESSP (TIMES SOPD DOPD) (EXP (QUOTE 2) N)) (B0) (B1))) LISP-CODE *1*MULU-V SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MULU-V) IMMEDIATE-DEPENDENTS0 (MULU-CVZNX) EVENT (DEFN MULU-V (N SOPD DOPD I) (IF (LESSP (TIMES SOPD DOPD) (EXP (QUOTE 2) N)) (B0) (B1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B1 . MULU-V) (IMMEDIATE-DEPENDENTS0 B0 . MULU-V) (IMMEDIATE-DEPENDENTS0 EXP . MULU-V) (DCELL . *1*MULU-V))))) (PUT1-LST (QUOTE *1*MUL&DIV-ADDR-MODEP) (QUOTE (MAIN-EVENT MUL&DIV-ADDR-MODEP))) (PUT1-LST (QUOTE MUL&DIV-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((MUL&DIV-ADDR-MODEP 3 NIL)) TOTALP-LST ((MUL&DIV-ADDR-MODEP . T)) SDEFN (LAMBDA (INS) (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS))) LISP-CODE *1*MUL&DIV-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MUL&DIV-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (MUL-DIV_L-INS DIV_W-INS MUL_W-INS) EVENT (DEFN MUL&DIV-ADDR-MODEP (INS) (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S_RN . MUL&DIV-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . MUL&DIV-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 DATA-ADDR-MODEP . MUL&DIV-ADDR-MODEP) (DCELL . *1*MUL&DIV-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*MULS) (QUOTE (MAIN-EVENT MULS))) (PUT1-LST (QUOTE MULS) (QUOTE (TYPE-PRESCRIPTION-LST ((MULS 4 NIL NIL NIL NIL)) TOTALP-LST ((MULS . T)) SDEFN (LAMBDA (N X Y I) (HEAD (INT-TO-NAT (ITIMES (NAT-TO-INT X I) (NAT-TO-INT Y I)) (TIMES (QUOTE 2) I)) N)) LISP-CODE *1*MULS SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MULS) IMMEDIATE-DEPENDENTS0 (MULS_L_DLDH MULS_L_DL MULS_W-INS MULS-N MULS-Z) EVENT (DEFN MULS (N X Y I) (HEAD (INT-TO-NAT (ITIMES (NAT-TO-INT X I) (NAT-TO-INT Y I)) (TIMES (QUOTE 2) I)) N)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NAT-TO-INT . MULS) (IMMEDIATE-DEPENDENTS0 ITIMES . MULS) (IMMEDIATE-DEPENDENTS0 INT-TO-NAT . MULS) (IMMEDIATE-DEPENDENTS0 HEAD . MULS) (DCELL . *1*MULS))))) (PUT1-LST (QUOTE *1*MULU) (QUOTE (MAIN-EVENT MULU))) (PUT1-LST (QUOTE MULU) (QUOTE (TYPE-PRESCRIPTION-LST ((MULU 4 NIL NIL NIL NIL)) TOTALP-LST ((MULU . T)) SDEFN (LAMBDA (N X Y I) (HEAD (TIMES X Y) N)) LISP-CODE *1*MULU SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*MULU) IMMEDIATE-DEPENDENTS0 (MULU_L_DLDH MULU_L_DL MULU_W-INS MULU-N MULU-Z) EVENT (DEFN MULU (N X Y I) (HEAD (TIMES X Y) N)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD . MULU) (DCELL . *1*MULU))))) (PUT1-LST (QUOTE *1*AND-INS2) (QUOTE (MAIN-EVENT AND-INS2))) (PUT1-LST (QUOTE AND-INS2) (QUOTE (TYPE-PRESCRIPTION-LST ((AND-INS2 -1 NIL NIL NIL)) TOTALP-LST ((AND-INS2 . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (AND-ADDR-MODEP2 INS) (AND-MAPPING (READ-DN OPLEN (D_RN INS) S) OPLEN INS S) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*AND-INS2 SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*AND-INS2) IMMEDIATE-DEPENDENTS0 (AND-GROUP) EVENT (DEFN AND-INS2 (OPLEN INS S) (IF (AND-ADDR-MODEP2 INS) (AND-MAPPING (READ-DN OPLEN (D_RN INS) S) OPLEN INS S) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . AND-INS2) (IMMEDIATE-DEPENDENTS0 HALT . AND-INS2) (IMMEDIATE-DEPENDENTS0 D_RN . AND-INS2) (IMMEDIATE-DEPENDENTS0 READ-DN . AND-INS2) (IMMEDIATE-DEPENDENTS0 AND-MAPPING . AND-INS2) (IMMEDIATE-DEPENDENTS0 AND-ADDR-MODEP2 . AND-INS2) (DCELL . *1*AND-INS2))))) (PUT1-LST (QUOTE *1*AND-MAPPING) (QUOTE (MAIN-EVENT AND-MAPPING))) (PUT1-LST (QUOTE AND-MAPPING) (QUOTE (TYPE-PRESCRIPTION-LST ((AND-MAPPING -1 NIL NIL NIL NIL)) TOTALP-LST ((AND-MAPPING . T)) SDEFN (LAMBDA (SOPD OPLEN INS S) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (MAPPING OPLEN (AND-EFFECT OPLEN SOPD (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (MC-CCR S)) (MC-INSTATE OPLEN INS S)))) LISP-CODE *1*AND-MAPPING SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*AND-MAPPING) IMMEDIATE-DEPENDENTS0 (ANDI-INS AND-INS2) EVENT (DEFN AND-MAPPING (SOPD OPLEN INS S) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (MAPPING OPLEN (AND-EFFECT OPLEN SOPD (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (MC-CCR S)) (MC-INSTATE OPLEN INS S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-CCR . AND-MAPPING) (IMMEDIATE-DEPENDENTS0 OPERAND . AND-MAPPING) (IMMEDIATE-DEPENDENTS0 AND-EFFECT . AND-MAPPING) (IMMEDIATE-DEPENDENTS0 MAPPING . AND-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . AND-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-HALTP . AND-MAPPING) (DCELL . *1*AND-MAPPING))))) (PUT1-LST (QUOTE *1*AND-INS1) (QUOTE (MAIN-EVENT AND-INS1))) (PUT1-LST (QUOTE AND-INS1) (QUOTE (TYPE-PRESCRIPTION-LST ((AND-INS1 -1 NIL NIL NIL)) TOTALP-LST ((AND-INS1 . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (AND-ADDR-MODEP1 INS) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (D-MAPPING OPLEN (AND-EFFECT OPLEN (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (READ-DN OPLEN (D_RN INS) S) (MC-CCR S)) (D_RN INS) (CAR (MC-INSTATE OPLEN INS S)))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*AND-INS1 SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*AND-INS1) IMMEDIATE-DEPENDENTS0 (AND-GROUP) EVENT (DEFN AND-INS1 (OPLEN INS S) (IF (AND-ADDR-MODEP1 INS) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (D-MAPPING OPLEN (AND-EFFECT OPLEN (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (READ-DN OPLEN (D_RN INS) S) (MC-CCR S)) (D_RN INS) (CAR (MC-INSTATE OPLEN INS S)))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . AND-INS1) (IMMEDIATE-DEPENDENTS0 HALT . AND-INS1) (IMMEDIATE-DEPENDENTS0 MC-CCR . AND-INS1) (IMMEDIATE-DEPENDENTS0 D_RN . AND-INS1) (IMMEDIATE-DEPENDENTS0 READ-DN . AND-INS1) (IMMEDIATE-DEPENDENTS0 OPERAND . AND-INS1) (IMMEDIATE-DEPENDENTS0 AND-EFFECT . AND-INS1) (IMMEDIATE-DEPENDENTS0 D-MAPPING . AND-INS1) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . AND-INS1) (IMMEDIATE-DEPENDENTS0 MC-HALTP . AND-INS1) (IMMEDIATE-DEPENDENTS0 AND-ADDR-MODEP1 . AND-INS1) (DCELL . *1*AND-INS1))))) (PUT1-LST (QUOTE *1*AND-ADDR-MODEP2) (QUOTE (MAIN-EVENT AND-ADDR-MODEP2))) (PUT1-LST (QUOTE AND-ADDR-MODEP2) (QUOTE (TYPE-PRESCRIPTION-LST ((AND-ADDR-MODEP2 3 NIL)) TOTALP-LST ((AND-ADDR-MODEP2 . T)) SDEFN (LAMBDA (INS) (IF (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)) (MEMORY-ADDR-MODEP (S_MODE INS) (S_RN INS)) (QUOTE *1*FALSE))) LISP-CODE *1*AND-ADDR-MODEP2 SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*AND-ADDR-MODEP2) IMMEDIATE-DEPENDENTS0 (AND-INS2) EVENT (DEFN AND-ADDR-MODEP2 (INS) (AND (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)) (MEMORY-ADDR-MODEP (S_MODE INS) (S_RN INS)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMORY-ADDR-MODEP . AND-ADDR-MODEP2) (IMMEDIATE-DEPENDENTS0 S_RN . AND-ADDR-MODEP2) (IMMEDIATE-DEPENDENTS0 S_MODE . AND-ADDR-MODEP2) (IMMEDIATE-DEPENDENTS0 ALTERABLE-ADDR-MODEP . AND-ADDR-MODEP2) (DCELL . *1*AND-ADDR-MODEP2))))) (PUT1-LST (QUOTE *1*AND-ADDR-MODEP1) (QUOTE (MAIN-EVENT AND-ADDR-MODEP1))) (PUT1-LST (QUOTE AND-ADDR-MODEP1) (QUOTE (TYPE-PRESCRIPTION-LST ((AND-ADDR-MODEP1 3 NIL)) TOTALP-LST ((AND-ADDR-MODEP1 . T)) SDEFN (LAMBDA (INS) (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS))) LISP-CODE *1*AND-ADDR-MODEP1 SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*AND-ADDR-MODEP1) IMMEDIATE-DEPENDENTS0 (AND-INS1) EVENT (DEFN AND-ADDR-MODEP1 (INS) (DATA-ADDR-MODEP (S_MODE INS) (S_RN INS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S_RN . AND-ADDR-MODEP1) (IMMEDIATE-DEPENDENTS0 S_MODE . AND-ADDR-MODEP1) (IMMEDIATE-DEPENDENTS0 DATA-ADDR-MODEP . AND-ADDR-MODEP1) (DCELL . *1*AND-ADDR-MODEP1))))) (PUT1-LST (QUOTE *1*AND-EFFECT) (QUOTE (MAIN-EVENT AND-EFFECT))) (PUT1-LST (QUOTE AND-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((AND-EFFECT 16 NIL NIL NIL NIL)) TOTALP-LST ((AND-EFFECT . T)) SDEFN (LAMBDA (OPLEN SOPD DOPD CCR) (CONS (LOGAND SOPD DOPD) (AND-CVZNX OPLEN SOPD DOPD CCR))) LISP-CODE *1*AND-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*AND-EFFECT) IMMEDIATE-DEPENDENTS0 (AND-MAPPING AND-INS1) EVENT (DEFN AND-EFFECT (OPLEN SOPD DOPD CCR) (CONS (LOGAND SOPD DOPD) (AND-CVZNX OPLEN SOPD DOPD CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 AND-CVZNX . AND-EFFECT) (IMMEDIATE-DEPENDENTS0 LOGAND . AND-EFFECT) (DCELL . *1*AND-EFFECT))))) (PUT1-LST (QUOTE *1*AND-CVZNX) (QUOTE (MAIN-EVENT AND-CVZNX))) (PUT1-LST (QUOTE AND-CVZNX) (QUOTE (TYPE-PRESCRIPTION-LST ((AND-CVZNX 4 NIL NIL NIL NIL)) TOTALP-LST ((AND-CVZNX . T)) SDEFN (LAMBDA (OPLEN SOPD DOPD CCR) (CVZNX (B0) (B0) (AND-Z OPLEN SOPD DOPD) (AND-N OPLEN SOPD DOPD) (CCR-X CCR))) LISP-CODE *1*AND-CVZNX SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*AND-CVZNX) IMMEDIATE-DEPENDENTS0 (AND-EFFECT) EVENT (DEFN AND-CVZNX (OPLEN SOPD DOPD CCR) (CVZNX (B0) (B0) (AND-Z OPLEN SOPD DOPD) (AND-N OPLEN SOPD DOPD) (CCR-X CCR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CCR-X . AND-CVZNX) (IMMEDIATE-DEPENDENTS0 AND-N . AND-CVZNX) (IMMEDIATE-DEPENDENTS0 AND-Z . AND-CVZNX) (IMMEDIATE-DEPENDENTS0 B0 . AND-CVZNX) (IMMEDIATE-DEPENDENTS0 CVZNX . AND-CVZNX) (DCELL . *1*AND-CVZNX))))) (PUT1-LST (QUOTE *1*AND-N) (QUOTE (MAIN-EVENT AND-N))) (PUT1-LST (QUOTE AND-N) (QUOTE (TYPE-PRESCRIPTION-LST ((AND-N 4 NIL NIL NIL)) TOTALP-LST ((AND-N . T)) SDEFN (LAMBDA (OPLEN SOPD DOPD) (MBIT (LOGAND SOPD DOPD) OPLEN)) LISP-CODE *1*AND-N SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*AND-N) IMMEDIATE-DEPENDENTS0 (AND-CVZNX) EVENT (DEFN AND-N (OPLEN SOPD DOPD) (MBIT (LOGAND SOPD DOPD) OPLEN)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOGAND . AND-N) (IMMEDIATE-DEPENDENTS0 MBIT . AND-N) (DCELL . *1*AND-N))))) (PUT1-LST (QUOTE *1*AND-Z) (QUOTE (MAIN-EVENT AND-Z))) (PUT1-LST (QUOTE AND-Z) (QUOTE (TYPE-PRESCRIPTION-LST ((AND-Z 4 NIL NIL NIL)) TOTALP-LST ((AND-Z . T)) SDEFN (LAMBDA (OPLEN SOPD DOPD) (IF (EQUAL (LOGAND SOPD DOPD) (QUOTE 0)) (B1) (B0))) LISP-CODE *1*AND-Z SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*AND-Z) IMMEDIATE-DEPENDENTS0 (AND-CVZNX) EVENT (DEFN AND-Z (OPLEN SOPD DOPD) (IF (EQUAL (LOGAND SOPD DOPD) (QUOTE 0)) (B1) (B0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . AND-Z) (IMMEDIATE-DEPENDENTS0 B1 . AND-Z) (IMMEDIATE-DEPENDENTS0 LOGAND . AND-Z) (DCELL . *1*AND-Z))))) (PUT1-LST (QUOTE *1*SUB-GROUP) (QUOTE (MAIN-EVENT SUB-GROUP))) (PUT1-LST (QUOTE SUB-GROUP) (QUOTE (TYPE-PRESCRIPTION-LST ((SUB-GROUP -1 NIL NIL NIL)) TOTALP-LST ((SUB-GROUP . T)) SDEFN (LAMBDA (OPMODE INS S) (IF (LESSP OPMODE (QUOTE 4)) (IF (EQUAL OPMODE (QUOTE 3)) (SUBA-INS (W) INS S) (SUB-INS1 (OP-LEN INS) INS S)) (IF (EQUAL OPMODE (QUOTE 7)) (SUBA-INS (L) INS S) (IF (EQUAL (S_MODE INS) (QUOTE 0)) (SUBX-INS1 (OP-LEN INS) INS S) (IF (EQUAL (S_MODE INS) (QUOTE 1)) (SUBX-INS2 (OP-LEN INS) INS S) (SUB-INS2 (OP-LEN INS) INS S)))))) LISP-CODE *1*SUB-GROUP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*SUB-GROUP) IMMEDIATE-DEPENDENTS0 (EXECUTE-INS) EVENT (DEFN SUB-GROUP (OPMODE INS S) (IF (LESSP OPMODE (QUOTE 4)) (IF (EQUAL OPMODE (QUOTE 3)) (SUBA-INS (W) INS S) (SUB-INS1 (OP-LEN INS) INS S)) (IF (EQUAL OPMODE (QUOTE 7)) (SUBA-INS (L) INS S) (IF (EQUAL (S_MODE INS) (QUOTE 0)) (SUBX-INS1 (OP-LEN INS) INS S) (IF (EQUAL (S_MODE INS) (QUOTE 1)) (SUBX-INS2 (OP-LEN INS) INS S) (SUB-INS2 (OP-LEN INS) INS S)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB-INS2 . SUB-GROUP) (IMMEDIATE-DEPENDENTS0 SUBX-INS2 . SUB-GROUP) (IMMEDIATE-DEPENDENTS0 SUBX-INS1 . SUB-GROUP) (IMMEDIATE-DEPENDENTS0 S_MODE . SUB-GROUP) (IMMEDIATE-DEPENDENTS0 L . SUB-GROUP) (IMMEDIATE-DEPENDENTS0 OP-LEN . SUB-GROUP) (IMMEDIATE-DEPENDENTS0 SUB-INS1 . SUB-GROUP) (IMMEDIATE-DEPENDENTS0 W . SUB-GROUP) (IMMEDIATE-DEPENDENTS0 SUBA-INS . SUB-GROUP) (DCELL . *1*SUB-GROUP))))) (PUT1-LST (QUOTE *1*SUBX-INS2) (QUOTE (MAIN-EVENT SUBX-INS2))) (PUT1-LST (QUOTE SUBX-INS2) (QUOTE (TYPE-PRESCRIPTION-LST ((SUBX-INS2 16 NIL NIL NIL)) TOTALP-LST ((SUBX-INS2 . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (READ-MEMP (CDR (CDR (ADDR-PREDEC OPLEN (S_RN INS) S))) (MC-MEM S) (OP-SZ OPLEN)) (IF (READ-MEMP (CDR (CDR (ADDR-PREDEC OPLEN (D_RN INS) (CAR (ADDR-PREDEC OPLEN (S_RN INS) S))))) (MC-MEM S) (OP-SZ OPLEN)) (MAPPING OPLEN (SUBX-EFFECT OPLEN (OPERAND OPLEN (CDR (ADDR-PREDEC OPLEN (S_RN INS) S)) (CAR (ADDR-PREDEC OPLEN (S_RN INS) S))) (OPERAND OPLEN (CDR (ADDR-PREDEC OPLEN (D_RN INS) (CAR (ADDR-PREDEC OPLEN (S_RN INS) S)))) (CAR (ADDR-PREDEC OPLEN (D_RN INS) (CAR (ADDR-PREDEC OPLEN (S_RN INS) S))))) (MC-CCR S)) (ADDR-PREDEC OPLEN (D_RN INS) (CAR (ADDR-PREDEC OPLEN (S_RN INS) S)))) (HALT (READ-SIGNAL) S)) (HALT (READ-SIGNAL) S))) LISP-CODE *1*SUBX-INS2 SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402214824 SATELLITES (*1*SUBX-INS2) IMMEDIATE-DEPENDENTS0 (SUB-GROUP) EVENT (DEFN SUBX-INS2 (OPLEN INS S) (IF (READ-MEMP (CDR (CDR (ADDR-PREDEC OPLEN (S_RN INS) S))) (MC-MEM S) (OP-SZ OPLEN)) (IF (READ-MEMP (CDR (CDR (ADDR-PREDEC OPLEN (D_RN INS) (CAR (ADDR-PREDEC OPLEN (S_RN INS) S))))) (MC-MEM S) (OP-SZ OPLEN)) (MAPPING OPLEN (SUBX-EFFECT OPLEN (OPERAND OPLEN (CDR (ADDR-PREDEC OPLEN (S_RN INS) S)) (CAR (ADDR-PREDEC OPLEN (S_RN INS) S))) (OPERAND OPLEN (CDR (ADDR-PREDEC OPLEN (D_RN INS) (CAR (ADDR-PREDEC OPLEN (S_RN INS) S)))) (CAR (ADDR-PREDEC OPLEN (D_RN INS) (CAR (ADDR-PREDEC OPLEN (S_RN INS) S))))) (MC-CCR S)) (ADDR-PREDEC OPLEN (D_RN INS) (CAR (ADDR-PREDEC OPLEN (S_RN INS) S)))) (HALT (READ-SIGNAL) S)) (HALT (READ-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-SIGNAL . SUBX-INS2) (IMMEDIATE-DEPENDENTS0 HALT . SUBX-INS2) (IMMEDIATE-DEPENDENTS0 MC-CCR . SUBX-INS2) (IMMEDIATE-DEPENDENTS0 OPERAND . SUBX-INS2) (IMMEDIATE-DEPENDENTS0 SUBX-EFFECT . SUBX-INS2) (IMMEDIATE-DEPENDENTS0 MAPPING . SUBX-INS2) (IMMEDIATE-DEPENDENTS0 D_RN . SUBX-INS2) (IMMEDIATE-DEPENDENTS0 OP-SZ . SUBX-INS2) (IMMEDIATE-DEPENDENTS0 MC-MEM . SUBX-INS2) (IMMEDIATE-DEPENDENTS0 S_RN . SUBX-INS2) (IMMEDIATE-DEPENDENTS0 ADDR-PREDEC . SUBX-INS2) (IMMEDIATE-DEPENDENTS0 READ-MEMP . SUBX-INS2) (DCELL . *1*SUBX-INS2))))) (PUT1-LST (QUOTE *1*SUBX-INS1) (QUOTE (MAIN-EVENT SUBX-INS1))) (PUT1-LST (QUOTE SUBX-INS1) (QUOTE (TYPE-PRESCRIPTION-LST ((SUBX-INS1 16 NIL NIL NIL)) TOTALP-LST ((SUBX-INS1 . T)) SDEFN (LAMBDA (OPLEN INS S) (D-MAPPING OPLEN (SUBX-EFFECT OPLEN (READ-DN OPLEN (S_RN INS) S) (READ-DN OPLEN (D_RN INS) S) (MC-CCR S)) (D_RN INS) S)) LISP-CODE *1*SUBX-INS1 SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*SUBX-INS1) IMMEDIATE-DEPENDENTS0 (SUB-GROUP) EVENT (DEFN SUBX-INS1 (OPLEN INS S) (D-MAPPING OPLEN (SUBX-EFFECT OPLEN (READ-DN OPLEN (S_RN INS) S) (READ-DN OPLEN (D_RN INS) S) (MC-CCR S)) (D_RN INS) S)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-CCR . SUBX-INS1) (IMMEDIATE-DEPENDENTS0 D_RN . SUBX-INS1) (IMMEDIATE-DEPENDENTS0 S_RN . SUBX-INS1) (IMMEDIATE-DEPENDENTS0 READ-DN . SUBX-INS1) (IMMEDIATE-DEPENDENTS0 SUBX-EFFECT . SUBX-INS1) (IMMEDIATE-DEPENDENTS0 D-MAPPING . SUBX-INS1) (DCELL . *1*SUBX-INS1))))) (PUT1-LST (QUOTE *1*SUBX-EFFECT) (QUOTE (MAIN-EVENT SUBX-EFFECT))) (PUT1-LST (QUOTE SUBX-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((SUBX-EFFECT 16 NIL NIL NIL NIL)) TOTALP-LST ((SUBX-EFFECT . T)) SDEFN (LAMBDA (OPLEN SOPD DOPD CCR) (CONS (SUBTRACTER OPLEN (CCR-X CCR) SOPD DOPD) (SUBX-CVZNX OPLEN (CCR-Z CCR) (CCR-X CCR) SOPD DOPD))) LISP-CODE *1*SUBX-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*SUBX-EFFECT) IMMEDIATE-DEPENDENTS0 (NEGX-INS SUBX-INS2 SUBX-INS1) EVENT (DEFN SUBX-EFFECT (OPLEN SOPD DOPD CCR) (CONS (SUBTRACTER OPLEN (CCR-X CCR) SOPD DOPD) (SUBX-CVZNX OPLEN (CCR-Z CCR) (CCR-X CCR) SOPD DOPD))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CCR-Z . SUBX-EFFECT) (IMMEDIATE-DEPENDENTS0 SUBX-CVZNX . SUBX-EFFECT) (IMMEDIATE-DEPENDENTS0 CCR-X . SUBX-EFFECT) (IMMEDIATE-DEPENDENTS0 SUBTRACTER . SUBX-EFFECT) (DCELL . *1*SUBX-EFFECT))))) (PUT1-LST (QUOTE *1*SUBX-CVZNX) (QUOTE (MAIN-EVENT SUBX-CVZNX))) (PUT1-LST (QUOTE SUBX-CVZNX) (QUOTE (TYPE-PRESCRIPTION-LST ((SUBX-CVZNX 4 NIL NIL NIL NIL NIL)) TOTALP-LST ((SUBX-CVZNX . T)) SDEFN (LAMBDA (OPLEN Z X SOPD DOPD) (CVZNX (SUBX-C OPLEN X SOPD DOPD) (SUBX-V OPLEN X SOPD DOPD) (SUBX-Z OPLEN Z X SOPD DOPD) (SUBX-N OPLEN X SOPD DOPD) (SUBX-C OPLEN X SOPD DOPD))) LISP-CODE *1*SUBX-CVZNX SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*SUBX-CVZNX) IMMEDIATE-DEPENDENTS0 (SUBX-EFFECT) EVENT (DEFN SUBX-CVZNX (OPLEN Z X SOPD DOPD) (CVZNX (SUBX-C OPLEN X SOPD DOPD) (SUBX-V OPLEN X SOPD DOPD) (SUBX-Z OPLEN Z X SOPD DOPD) (SUBX-N OPLEN X SOPD DOPD) (SUBX-C OPLEN X SOPD DOPD))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBX-N . SUBX-CVZNX) (IMMEDIATE-DEPENDENTS0 SUBX-Z . SUBX-CVZNX) (IMMEDIATE-DEPENDENTS0 SUBX-V . SUBX-CVZNX) (IMMEDIATE-DEPENDENTS0 SUBX-C . SUBX-CVZNX) (IMMEDIATE-DEPENDENTS0 CVZNX . SUBX-CVZNX) (DCELL . *1*SUBX-CVZNX))))) (PUT1-LST (QUOTE *1*SUBX-N) (QUOTE (MAIN-EVENT SUBX-N))) (PUT1-LST (QUOTE SUBX-N) (QUOTE (TYPE-PRESCRIPTION-LST ((SUBX-N 4 NIL NIL NIL NIL)) TOTALP-LST ((SUBX-N . T)) SDEFN (LAMBDA (OPLEN X SOPD DOPD) (MBIT (SUBTRACTER OPLEN X SOPD DOPD) OPLEN)) LISP-CODE *1*SUBX-N SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*SUBX-N) IMMEDIATE-DEPENDENTS0 (SUBX-CVZNX) EVENT (DEFN SUBX-N (OPLEN X SOPD DOPD) (MBIT (SUBTRACTER OPLEN X SOPD DOPD) OPLEN)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBTRACTER . SUBX-N) (IMMEDIATE-DEPENDENTS0 MBIT . SUBX-N) (DCELL . *1*SUBX-N))))) (PUT1-LST (QUOTE *1*SUBX-Z) (QUOTE (MAIN-EVENT SUBX-Z))) (PUT1-LST (QUOTE SUBX-Z) (QUOTE (TYPE-PRESCRIPTION-LST ((SUBX-Z 4 NIL NIL NIL NIL NIL)) TOTALP-LST ((SUBX-Z . T)) SDEFN (LAMBDA (OPLEN Z X SOPD DOPD) (IF (EQUAL (SUBTRACTER OPLEN X SOPD DOPD) (QUOTE 0)) (B-AND Z (B1)) (B-AND Z (B0)))) LISP-CODE *1*SUBX-Z SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*SUBX-Z) IMMEDIATE-DEPENDENTS0 (SUBX-CVZNX) EVENT (DEFN SUBX-Z (OPLEN Z X SOPD DOPD) (B-AND Z (IF (EQUAL (SUBTRACTER OPLEN X SOPD DOPD) (QUOTE 0)) (B1) (B0)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . SUBX-Z) (IMMEDIATE-DEPENDENTS0 B1 . SUBX-Z) (IMMEDIATE-DEPENDENTS0 SUBTRACTER . SUBX-Z) (IMMEDIATE-DEPENDENTS0 B-AND . SUBX-Z) (DCELL . *1*SUBX-Z))))) (PUT1-LST (QUOTE *1*SUBX-V) (QUOTE (MAIN-EVENT SUBX-V))) (PUT1-LST (QUOTE SUBX-V) (QUOTE (TYPE-PRESCRIPTION-LST ((SUBX-V 4 NIL NIL NIL NIL)) TOTALP-LST ((SUBX-V . T)) SDEFN (LAMBDA (N X SOPD DOPD) (B-OR (B-AND (B-AND (B-NOT (MBIT SOPD N)) (MBIT DOPD N)) (B-NOT (MBIT (SUBTRACTER N X SOPD DOPD) N))) (B-AND (B-AND (MBIT SOPD N) (B-NOT (MBIT DOPD N))) (MBIT (SUBTRACTER N X SOPD DOPD) N)))) LISP-CODE *1*SUBX-V SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*SUBX-V) IMMEDIATE-DEPENDENTS0 (SUBX-CVZNX) EVENT (DEFN SUBX-V (N X SOPD DOPD) (B-OR (B-AND (B-AND (B-NOT (MBIT SOPD N)) (MBIT DOPD N)) (B-NOT (MBIT (SUBTRACTER N X SOPD DOPD) N))) (B-AND (B-AND (MBIT SOPD N) (B-NOT (MBIT DOPD N))) (MBIT (SUBTRACTER N X SOPD DOPD) N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBTRACTER . SUBX-V) (IMMEDIATE-DEPENDENTS0 MBIT . SUBX-V) (IMMEDIATE-DEPENDENTS0 B-NOT . SUBX-V) (IMMEDIATE-DEPENDENTS0 B-AND . SUBX-V) (IMMEDIATE-DEPENDENTS0 B-OR . SUBX-V) (DCELL . *1*SUBX-V))))) (PUT1-LST (QUOTE *1*SUBX-C) (QUOTE (MAIN-EVENT SUBX-C))) (PUT1-LST (QUOTE SUBX-C) (QUOTE (TYPE-PRESCRIPTION-LST ((SUBX-C 4 NIL NIL NIL NIL)) TOTALP-LST ((SUBX-C . T)) SDEFN (LAMBDA (N X SOPD DOPD) (B-OR (B-OR (B-AND (MBIT SOPD N) (B-NOT (MBIT DOPD N))) (B-AND (MBIT (SUBTRACTER N X SOPD DOPD) N) (B-NOT (MBIT DOPD N)))) (B-AND (MBIT SOPD N) (MBIT (SUBTRACTER N X SOPD DOPD) N)))) LISP-CODE *1*SUBX-C SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*SUBX-C) IMMEDIATE-DEPENDENTS0 (SUBX-CVZNX) EVENT (DEFN SUBX-C (N X SOPD DOPD) (B-OR (B-OR (B-AND (MBIT SOPD N) (B-NOT (MBIT DOPD N))) (B-AND (MBIT (SUBTRACTER N X SOPD DOPD) N) (B-NOT (MBIT DOPD N)))) (B-AND (MBIT SOPD N) (MBIT (SUBTRACTER N X SOPD DOPD) N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBTRACTER . SUBX-C) (IMMEDIATE-DEPENDENTS0 B-NOT . SUBX-C) (IMMEDIATE-DEPENDENTS0 MBIT . SUBX-C) (IMMEDIATE-DEPENDENTS0 B-AND . SUBX-C) (IMMEDIATE-DEPENDENTS0 B-OR . SUBX-C) (DCELL . *1*SUBX-C))))) (PUT1-LST (QUOTE *1*SUBA-INS) (QUOTE (MAIN-EVENT SUBA-INS))) (PUT1-LST (QUOTE SUBA-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((SUBA-INS -1 NIL NIL NIL)) TOTALP-LST ((SUBA-INS . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (SUBA-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (WRITE-AN (L) (SUB (L) (EXT OPLEN (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (L)) (READ-AN (L) (D_RN INS) (CAR (MC-INSTATE OPLEN INS S)))) (D_RN INS) (CAR (MC-INSTATE OPLEN INS S)))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*SUBA-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*SUBA-INS) IMMEDIATE-DEPENDENTS0 (SUB-GROUP) EVENT (DEFN SUBA-INS (OPLEN INS S) (IF (SUBA-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (WRITE-AN (L) (SUB (L) (EXT OPLEN (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (L)) (READ-AN (L) (D_RN INS) (CAR (MC-INSTATE OPLEN INS S)))) (D_RN INS) (CAR (MC-INSTATE OPLEN INS S)))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . SUBA-INS) (IMMEDIATE-DEPENDENTS0 HALT . SUBA-INS) (IMMEDIATE-DEPENDENTS0 D_RN . SUBA-INS) (IMMEDIATE-DEPENDENTS0 READ-AN . SUBA-INS) (IMMEDIATE-DEPENDENTS0 OPERAND . SUBA-INS) (IMMEDIATE-DEPENDENTS0 EXT . SUBA-INS) (IMMEDIATE-DEPENDENTS0 SUB . SUBA-INS) (IMMEDIATE-DEPENDENTS0 L . SUBA-INS) (IMMEDIATE-DEPENDENTS0 WRITE-AN . SUBA-INS) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . SUBA-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . SUBA-INS) (IMMEDIATE-DEPENDENTS0 SUBA-ADDR-MODEP . SUBA-INS) (DCELL . *1*SUBA-INS))))) (PUT1-LST (QUOTE *1*SUBA-ADDR-MODEP) (QUOTE (MAIN-EVENT SUBA-ADDR-MODEP))) (PUT1-LST (QUOTE SUBA-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((SUBA-ADDR-MODEP 3 NIL)) TOTALP-LST ((SUBA-ADDR-MODEP . T)) SDEFN (LAMBDA (INS) (ADDR-MODEP (S_MODE INS) (S_RN INS))) LISP-CODE *1*SUBA-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*SUBA-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (SUBA-INS) EVENT (DEFN SUBA-ADDR-MODEP (INS) (ADDR-MODEP (S_MODE INS) (S_RN INS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S_RN . SUBA-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . SUBA-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 ADDR-MODEP . SUBA-ADDR-MODEP) (DCELL . *1*SUBA-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*SUB-INS2) (QUOTE (MAIN-EVENT SUB-INS2))) (PUT1-LST (QUOTE SUB-INS2) (QUOTE (TYPE-PRESCRIPTION-LST ((SUB-INS2 -1 NIL NIL NIL)) TOTALP-LST ((SUB-INS2 . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (SUB-ADDR-MODEP2 INS) (SUB-MAPPING (READ-DN OPLEN (D_RN INS) S) OPLEN INS S) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*SUB-INS2 SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*SUB-INS2) IMMEDIATE-DEPENDENTS0 (SUB-GROUP) EVENT (DEFN SUB-INS2 (OPLEN INS S) (IF (SUB-ADDR-MODEP2 INS) (SUB-MAPPING (READ-DN OPLEN (D_RN INS) S) OPLEN INS S) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . SUB-INS2) (IMMEDIATE-DEPENDENTS0 HALT . SUB-INS2) (IMMEDIATE-DEPENDENTS0 D_RN . SUB-INS2) (IMMEDIATE-DEPENDENTS0 READ-DN . SUB-INS2) (IMMEDIATE-DEPENDENTS0 SUB-MAPPING . SUB-INS2) (IMMEDIATE-DEPENDENTS0 SUB-ADDR-MODEP2 . SUB-INS2) (DCELL . *1*SUB-INS2))))) (PUT1-LST (QUOTE *1*SUB-MAPPING) (QUOTE (MAIN-EVENT SUB-MAPPING))) (PUT1-LST (QUOTE SUB-MAPPING) (QUOTE (TYPE-PRESCRIPTION-LST ((SUB-MAPPING -1 NIL NIL NIL NIL)) TOTALP-LST ((SUB-MAPPING . T)) SDEFN (LAMBDA (OPD OPLEN INS S) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (MAPPING OPLEN (SUB-EFFECT OPLEN OPD (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S)) (MC-INSTATE OPLEN INS S)))) LISP-CODE *1*SUB-MAPPING SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*SUB-MAPPING) IMMEDIATE-DEPENDENTS0 (SUBI-INS SUBQ-INS SUB-INS2) EVENT (DEFN SUB-MAPPING (OPD OPLEN INS S) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (MAPPING OPLEN (SUB-EFFECT OPLEN OPD (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S)) (MC-INSTATE OPLEN INS S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPERAND . SUB-MAPPING) (IMMEDIATE-DEPENDENTS0 SUB-EFFECT . SUB-MAPPING) (IMMEDIATE-DEPENDENTS0 MAPPING . SUB-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . SUB-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-HALTP . SUB-MAPPING) (DCELL . *1*SUB-MAPPING))))) (PUT1-LST (QUOTE *1*SUB-INS1) (QUOTE (MAIN-EVENT SUB-INS1))) (PUT1-LST (QUOTE SUB-INS1) (QUOTE (TYPE-PRESCRIPTION-LST ((SUB-INS1 -1 NIL NIL NIL)) TOTALP-LST ((SUB-INS1 . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (SUB-ADDR-MODEP1 OPLEN INS) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (D-MAPPING OPLEN (SUB-EFFECT OPLEN (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (READ-DN OPLEN (D_RN INS) S)) (D_RN INS) (CAR (MC-INSTATE OPLEN INS S)))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*SUB-INS1 SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*SUB-INS1) IMMEDIATE-DEPENDENTS0 (SUB-GROUP) EVENT (DEFN SUB-INS1 (OPLEN INS S) (IF (SUB-ADDR-MODEP1 OPLEN INS) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (D-MAPPING OPLEN (SUB-EFFECT OPLEN (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (READ-DN OPLEN (D_RN INS) S)) (D_RN INS) (CAR (MC-INSTATE OPLEN INS S)))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . SUB-INS1) (IMMEDIATE-DEPENDENTS0 HALT . SUB-INS1) (IMMEDIATE-DEPENDENTS0 D_RN . SUB-INS1) (IMMEDIATE-DEPENDENTS0 READ-DN . SUB-INS1) (IMMEDIATE-DEPENDENTS0 OPERAND . SUB-INS1) (IMMEDIATE-DEPENDENTS0 SUB-EFFECT . SUB-INS1) (IMMEDIATE-DEPENDENTS0 D-MAPPING . SUB-INS1) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . SUB-INS1) (IMMEDIATE-DEPENDENTS0 MC-HALTP . SUB-INS1) (IMMEDIATE-DEPENDENTS0 SUB-ADDR-MODEP1 . SUB-INS1) (DCELL . *1*SUB-INS1))))) (PUT1-LST (QUOTE *1*SUB-ADDR-MODEP2) (QUOTE (MAIN-EVENT SUB-ADDR-MODEP2))) (PUT1-LST (QUOTE SUB-ADDR-MODEP2) (QUOTE (TYPE-PRESCRIPTION-LST ((SUB-ADDR-MODEP2 3 NIL)) TOTALP-LST ((SUB-ADDR-MODEP2 . T)) SDEFN (LAMBDA (INS) (IF (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)) (MEMORY-ADDR-MODEP (S_MODE INS) (S_RN INS)) (QUOTE *1*FALSE))) LISP-CODE *1*SUB-ADDR-MODEP2 SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*SUB-ADDR-MODEP2) IMMEDIATE-DEPENDENTS0 (SUB-INS2) EVENT (DEFN SUB-ADDR-MODEP2 (INS) (AND (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)) (MEMORY-ADDR-MODEP (S_MODE INS) (S_RN INS)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMORY-ADDR-MODEP . SUB-ADDR-MODEP2) (IMMEDIATE-DEPENDENTS0 S_RN . SUB-ADDR-MODEP2) (IMMEDIATE-DEPENDENTS0 S_MODE . SUB-ADDR-MODEP2) (IMMEDIATE-DEPENDENTS0 ALTERABLE-ADDR-MODEP . SUB-ADDR-MODEP2) (DCELL . *1*SUB-ADDR-MODEP2))))) (PUT1-LST (QUOTE *1*SUB-ADDR-MODEP1) (QUOTE (MAIN-EVENT SUB-ADDR-MODEP1))) (PUT1-LST (QUOTE SUB-ADDR-MODEP1) (QUOTE (TYPE-PRESCRIPTION-LST ((SUB-ADDR-MODEP1 3 NIL NIL)) TOTALP-LST ((SUB-ADDR-MODEP1 . T)) SDEFN (LAMBDA (OPLEN INS) (IF (ADDR-MODEP (S_MODE INS) (S_RN INS)) (IF (BYTE-AN-DIRECT-MODEP OPLEN (S_MODE INS)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (QUOTE *1*FALSE))) LISP-CODE *1*SUB-ADDR-MODEP1 SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*SUB-ADDR-MODEP1) IMMEDIATE-DEPENDENTS0 (SUB-INS1) EVENT (DEFN SUB-ADDR-MODEP1 (OPLEN INS) (AND (ADDR-MODEP (S_MODE INS) (S_RN INS)) (NOT (BYTE-AN-DIRECT-MODEP OPLEN (S_MODE INS))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BYTE-AN-DIRECT-MODEP . SUB-ADDR-MODEP1) (IMMEDIATE-DEPENDENTS0 S_RN . SUB-ADDR-MODEP1) (IMMEDIATE-DEPENDENTS0 S_MODE . SUB-ADDR-MODEP1) (IMMEDIATE-DEPENDENTS0 ADDR-MODEP . SUB-ADDR-MODEP1) (DCELL . *1*SUB-ADDR-MODEP1))))) (PUT1-LST (QUOTE *1*SUB-EFFECT) (QUOTE (MAIN-EVENT SUB-EFFECT))) (PUT1-LST (QUOTE SUB-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((SUB-EFFECT 16 NIL NIL NIL)) TOTALP-LST ((SUB-EFFECT . T)) SDEFN (LAMBDA (OPLEN SOPD DOPD) (CONS (SUB OPLEN SOPD DOPD) (SUB-CVZNX OPLEN SOPD DOPD))) LISP-CODE *1*SUB-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*SUB-EFFECT) IMMEDIATE-DEPENDENTS0 (NEG-INS SUB-MAPPING SUB-INS1) EVENT (DEFN SUB-EFFECT (OPLEN SOPD DOPD) (CONS (SUB OPLEN SOPD DOPD) (SUB-CVZNX OPLEN SOPD DOPD))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB-CVZNX . SUB-EFFECT) (IMMEDIATE-DEPENDENTS0 SUB . SUB-EFFECT) (DCELL . *1*SUB-EFFECT))))) (PUT1-LST (QUOTE *1*SUB-CVZNX) (QUOTE (MAIN-EVENT SUB-CVZNX))) (PUT1-LST (QUOTE SUB-CVZNX) (QUOTE (TYPE-PRESCRIPTION-LST ((SUB-CVZNX 4 NIL NIL NIL)) TOTALP-LST ((SUB-CVZNX . T)) SDEFN (LAMBDA (OPLEN SOPD DOPD) (CVZNX (SUB-C OPLEN SOPD DOPD) (SUB-V OPLEN SOPD DOPD) (SUB-Z OPLEN SOPD DOPD) (SUB-N OPLEN SOPD DOPD) (SUB-C OPLEN SOPD DOPD))) LISP-CODE *1*SUB-CVZNX SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*SUB-CVZNX) IMMEDIATE-DEPENDENTS0 (SUB-EFFECT) EVENT (DEFN SUB-CVZNX (OPLEN SOPD DOPD) (CVZNX (SUB-C OPLEN SOPD DOPD) (SUB-V OPLEN SOPD DOPD) (SUB-Z OPLEN SOPD DOPD) (SUB-N OPLEN SOPD DOPD) (SUB-C OPLEN SOPD DOPD))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB-N . SUB-CVZNX) (IMMEDIATE-DEPENDENTS0 SUB-Z . SUB-CVZNX) (IMMEDIATE-DEPENDENTS0 SUB-V . SUB-CVZNX) (IMMEDIATE-DEPENDENTS0 SUB-C . SUB-CVZNX) (IMMEDIATE-DEPENDENTS0 CVZNX . SUB-CVZNX) (DCELL . *1*SUB-CVZNX))))) (PUT1-LST (QUOTE *1*SUB-N) (QUOTE (MAIN-EVENT SUB-N))) (PUT1-LST (QUOTE SUB-N) (QUOTE (TYPE-PRESCRIPTION-LST ((SUB-N 4 NIL NIL NIL)) TOTALP-LST ((SUB-N . T)) SDEFN (LAMBDA (OPLEN SOPD DOPD) (MBIT (SUB OPLEN SOPD DOPD) OPLEN)) LISP-CODE *1*SUB-N SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*SUB-N) IMMEDIATE-DEPENDENTS0 (CMP-CVZNX SUB-CVZNX) EVENT (DEFN SUB-N (OPLEN SOPD DOPD) (MBIT (SUB OPLEN SOPD DOPD) OPLEN)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB . SUB-N) (IMMEDIATE-DEPENDENTS0 MBIT . SUB-N) (DCELL . *1*SUB-N))))) (PUT1-LST (QUOTE *1*SUB-Z) (QUOTE (MAIN-EVENT SUB-Z))) (PUT1-LST (QUOTE SUB-Z) (QUOTE (TYPE-PRESCRIPTION-LST ((SUB-Z 4 NIL NIL NIL)) TOTALP-LST ((SUB-Z . T)) SDEFN (LAMBDA (OPLEN SOPD DOPD) (IF (EQUAL (SUB OPLEN SOPD DOPD) (QUOTE 0)) (B1) (B0))) LISP-CODE *1*SUB-Z SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*SUB-Z) IMMEDIATE-DEPENDENTS0 (CMP-CVZNX SUB-CVZNX) EVENT (DEFN SUB-Z (OPLEN SOPD DOPD) (IF (EQUAL (SUB OPLEN SOPD DOPD) (QUOTE 0)) (B1) (B0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . SUB-Z) (IMMEDIATE-DEPENDENTS0 B1 . SUB-Z) (IMMEDIATE-DEPENDENTS0 SUB . SUB-Z) (DCELL . *1*SUB-Z))))) (PUT1-LST (QUOTE *1*SUB-V) (QUOTE (MAIN-EVENT SUB-V))) (PUT1-LST (QUOTE SUB-V) (QUOTE (TYPE-PRESCRIPTION-LST ((SUB-V 4 NIL NIL NIL)) TOTALP-LST ((SUB-V . T)) SDEFN (LAMBDA (N SOPD DOPD) (B-OR (B-AND (B-AND (B-NOT (MBIT SOPD N)) (MBIT DOPD N)) (B-NOT (MBIT (SUB N SOPD DOPD) N))) (B-AND (B-AND (MBIT SOPD N) (B-NOT (MBIT DOPD N))) (MBIT (SUB N SOPD DOPD) N)))) LISP-CODE *1*SUB-V SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*SUB-V) IMMEDIATE-DEPENDENTS0 (CMP-CVZNX SUB-CVZNX) EVENT (DEFN SUB-V (N SOPD DOPD) (B-OR (B-AND (B-AND (B-NOT (MBIT SOPD N)) (MBIT DOPD N)) (B-NOT (MBIT (SUB N SOPD DOPD) N))) (B-AND (B-AND (MBIT SOPD N) (B-NOT (MBIT DOPD N))) (MBIT (SUB N SOPD DOPD) N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB . SUB-V) (IMMEDIATE-DEPENDENTS0 MBIT . SUB-V) (IMMEDIATE-DEPENDENTS0 B-NOT . SUB-V) (IMMEDIATE-DEPENDENTS0 B-AND . SUB-V) (IMMEDIATE-DEPENDENTS0 B-OR . SUB-V) (DCELL . *1*SUB-V))))) (PUT1-LST (QUOTE *1*SUB-C) (QUOTE (MAIN-EVENT SUB-C))) (PUT1-LST (QUOTE SUB-C) (QUOTE (TYPE-PRESCRIPTION-LST ((SUB-C 4 NIL NIL NIL)) TOTALP-LST ((SUB-C . T)) SDEFN (LAMBDA (N SOPD DOPD) (B-OR (B-OR (B-AND (MBIT SOPD N) (B-NOT (MBIT DOPD N))) (B-AND (MBIT (SUB N SOPD DOPD) N) (B-NOT (MBIT DOPD N)))) (B-AND (MBIT SOPD N) (MBIT (SUB N SOPD DOPD) N)))) LISP-CODE *1*SUB-C SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*SUB-C) IMMEDIATE-DEPENDENTS0 (CMP-CVZNX SUB-CVZNX) EVENT (DEFN SUB-C (N SOPD DOPD) (B-OR (B-OR (B-AND (MBIT SOPD N) (B-NOT (MBIT DOPD N))) (B-AND (MBIT (SUB N SOPD DOPD) N) (B-NOT (MBIT DOPD N)))) (B-AND (MBIT SOPD N) (MBIT (SUB N SOPD DOPD) N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB . SUB-C) (IMMEDIATE-DEPENDENTS0 B-NOT . SUB-C) (IMMEDIATE-DEPENDENTS0 MBIT . SUB-C) (IMMEDIATE-DEPENDENTS0 B-AND . SUB-C) (IMMEDIATE-DEPENDENTS0 B-OR . SUB-C) (DCELL . *1*SUB-C))))) (PUT1-LST (QUOTE *1*ADD-GROUP) (QUOTE (MAIN-EVENT ADD-GROUP))) (PUT1-LST (QUOTE ADD-GROUP) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD-GROUP -1 NIL NIL NIL)) TOTALP-LST ((ADD-GROUP . T)) SDEFN (LAMBDA (OPMODE INS S) (IF (LESSP OPMODE (QUOTE 4)) (IF (EQUAL OPMODE (QUOTE 3)) (ADDA-INS (W) INS S) (ADD-INS1 (OP-LEN INS) INS S)) (IF (EQUAL OPMODE (QUOTE 7)) (ADDA-INS (L) INS S) (IF (EQUAL (S_MODE INS) (QUOTE 0)) (ADDX-INS1 (OP-LEN INS) INS S) (IF (EQUAL (S_MODE INS) (QUOTE 1)) (ADDX-INS2 (OP-LEN INS) INS S) (ADD-INS2 (OP-LEN INS) INS S)))))) LISP-CODE *1*ADD-GROUP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*ADD-GROUP) IMMEDIATE-DEPENDENTS0 (EXECUTE-INS) EVENT (DEFN ADD-GROUP (OPMODE INS S) (IF (LESSP OPMODE (QUOTE 4)) (IF (EQUAL OPMODE (QUOTE 3)) (ADDA-INS (W) INS S) (ADD-INS1 (OP-LEN INS) INS S)) (IF (EQUAL OPMODE (QUOTE 7)) (ADDA-INS (L) INS S) (IF (EQUAL (S_MODE INS) (QUOTE 0)) (ADDX-INS1 (OP-LEN INS) INS S) (IF (EQUAL (S_MODE INS) (QUOTE 1)) (ADDX-INS2 (OP-LEN INS) INS S) (ADD-INS2 (OP-LEN INS) INS S)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-INS2 . ADD-GROUP) (IMMEDIATE-DEPENDENTS0 ADDX-INS2 . ADD-GROUP) (IMMEDIATE-DEPENDENTS0 ADDX-INS1 . ADD-GROUP) (IMMEDIATE-DEPENDENTS0 S_MODE . ADD-GROUP) (IMMEDIATE-DEPENDENTS0 L . ADD-GROUP) (IMMEDIATE-DEPENDENTS0 OP-LEN . ADD-GROUP) (IMMEDIATE-DEPENDENTS0 ADD-INS1 . ADD-GROUP) (IMMEDIATE-DEPENDENTS0 W . ADD-GROUP) (IMMEDIATE-DEPENDENTS0 ADDA-INS . ADD-GROUP) (DCELL . *1*ADD-GROUP))))) (PUT1-LST (QUOTE *1*ADDX-INS2) (QUOTE (MAIN-EVENT ADDX-INS2))) (PUT1-LST (QUOTE ADDX-INS2) (QUOTE (TYPE-PRESCRIPTION-LST ((ADDX-INS2 16 NIL NIL NIL)) TOTALP-LST ((ADDX-INS2 . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (READ-MEMP (CDR (CDR (ADDR-PREDEC OPLEN (S_RN INS) S))) (MC-MEM S) (OP-SZ OPLEN)) (IF (READ-MEMP (CDR (CDR (ADDR-PREDEC OPLEN (D_RN INS) (CAR (ADDR-PREDEC OPLEN (S_RN INS) S))))) (MC-MEM S) (OP-SZ OPLEN)) (MAPPING OPLEN (ADDX-EFFECT OPLEN (OPERAND OPLEN (CDR (ADDR-PREDEC OPLEN (S_RN INS) S)) (CAR (ADDR-PREDEC OPLEN (S_RN INS) S))) (OPERAND OPLEN (CDR (ADDR-PREDEC OPLEN (D_RN INS) (CAR (ADDR-PREDEC OPLEN (S_RN INS) S)))) (CAR (ADDR-PREDEC OPLEN (D_RN INS) (CAR (ADDR-PREDEC OPLEN (S_RN INS) S))))) (MC-CCR S)) (ADDR-PREDEC OPLEN (D_RN INS) (CAR (ADDR-PREDEC OPLEN (S_RN INS) S)))) (HALT (READ-SIGNAL) S)) (HALT (READ-SIGNAL) S))) LISP-CODE *1*ADDX-INS2 SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402214824 SATELLITES (*1*ADDX-INS2) IMMEDIATE-DEPENDENTS0 (ADD-GROUP) EVENT (DEFN ADDX-INS2 (OPLEN INS S) (IF (READ-MEMP (CDR (CDR (ADDR-PREDEC OPLEN (S_RN INS) S))) (MC-MEM S) (OP-SZ OPLEN)) (IF (READ-MEMP (CDR (CDR (ADDR-PREDEC OPLEN (D_RN INS) (CAR (ADDR-PREDEC OPLEN (S_RN INS) S))))) (MC-MEM S) (OP-SZ OPLEN)) (MAPPING OPLEN (ADDX-EFFECT OPLEN (OPERAND OPLEN (CDR (ADDR-PREDEC OPLEN (S_RN INS) S)) (CAR (ADDR-PREDEC OPLEN (S_RN INS) S))) (OPERAND OPLEN (CDR (ADDR-PREDEC OPLEN (D_RN INS) (CAR (ADDR-PREDEC OPLEN (S_RN INS) S)))) (CAR (ADDR-PREDEC OPLEN (D_RN INS) (CAR (ADDR-PREDEC OPLEN (S_RN INS) S))))) (MC-CCR S)) (ADDR-PREDEC OPLEN (D_RN INS) (CAR (ADDR-PREDEC OPLEN (S_RN INS) S)))) (HALT (READ-SIGNAL) S)) (HALT (READ-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-SIGNAL . ADDX-INS2) (IMMEDIATE-DEPENDENTS0 HALT . ADDX-INS2) (IMMEDIATE-DEPENDENTS0 MC-CCR . ADDX-INS2) (IMMEDIATE-DEPENDENTS0 OPERAND . ADDX-INS2) (IMMEDIATE-DEPENDENTS0 ADDX-EFFECT . ADDX-INS2) (IMMEDIATE-DEPENDENTS0 MAPPING . ADDX-INS2) (IMMEDIATE-DEPENDENTS0 D_RN . ADDX-INS2) (IMMEDIATE-DEPENDENTS0 OP-SZ . ADDX-INS2) (IMMEDIATE-DEPENDENTS0 MC-MEM . ADDX-INS2) (IMMEDIATE-DEPENDENTS0 S_RN . ADDX-INS2) (IMMEDIATE-DEPENDENTS0 ADDR-PREDEC . ADDX-INS2) (IMMEDIATE-DEPENDENTS0 READ-MEMP . ADDX-INS2) (DCELL . *1*ADDX-INS2))))) (PUT1-LST (QUOTE *1*ADDX-INS1) (QUOTE (MAIN-EVENT ADDX-INS1))) (PUT1-LST (QUOTE ADDX-INS1) (QUOTE (TYPE-PRESCRIPTION-LST ((ADDX-INS1 16 NIL NIL NIL)) TOTALP-LST ((ADDX-INS1 . T)) SDEFN (LAMBDA (OPLEN INS S) (D-MAPPING OPLEN (ADDX-EFFECT OPLEN (READ-DN OPLEN (S_RN INS) S) (READ-DN OPLEN (D_RN INS) S) (MC-CCR S)) (D_RN INS) S)) LISP-CODE *1*ADDX-INS1 SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ADDX-INS1) IMMEDIATE-DEPENDENTS0 (ADD-GROUP) EVENT (DEFN ADDX-INS1 (OPLEN INS S) (D-MAPPING OPLEN (ADDX-EFFECT OPLEN (READ-DN OPLEN (S_RN INS) S) (READ-DN OPLEN (D_RN INS) S) (MC-CCR S)) (D_RN INS) S)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-CCR . ADDX-INS1) (IMMEDIATE-DEPENDENTS0 D_RN . ADDX-INS1) (IMMEDIATE-DEPENDENTS0 S_RN . ADDX-INS1) (IMMEDIATE-DEPENDENTS0 READ-DN . ADDX-INS1) (IMMEDIATE-DEPENDENTS0 ADDX-EFFECT . ADDX-INS1) (IMMEDIATE-DEPENDENTS0 D-MAPPING . ADDX-INS1) (DCELL . *1*ADDX-INS1))))) (PUT1-LST (QUOTE *1*ADDX-EFFECT) (QUOTE (MAIN-EVENT ADDX-EFFECT))) (PUT1-LST (QUOTE ADDX-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((ADDX-EFFECT 16 NIL NIL NIL NIL)) TOTALP-LST ((ADDX-EFFECT . T)) SDEFN (LAMBDA (OPLEN SOPD DOPD CCR) (CONS (ADDER OPLEN (CCR-X CCR) DOPD SOPD) (ADDX-CVZNX OPLEN (CCR-Z CCR) (CCR-X CCR) SOPD DOPD))) LISP-CODE *1*ADDX-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ADDX-EFFECT) IMMEDIATE-DEPENDENTS0 (ADDX-INS2 ADDX-INS1) EVENT (DEFN ADDX-EFFECT (OPLEN SOPD DOPD CCR) (CONS (ADDER OPLEN (CCR-X CCR) DOPD SOPD) (ADDX-CVZNX OPLEN (CCR-Z CCR) (CCR-X CCR) SOPD DOPD))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CCR-Z . ADDX-EFFECT) (IMMEDIATE-DEPENDENTS0 ADDX-CVZNX . ADDX-EFFECT) (IMMEDIATE-DEPENDENTS0 CCR-X . ADDX-EFFECT) (IMMEDIATE-DEPENDENTS0 ADDER . ADDX-EFFECT) (DCELL . *1*ADDX-EFFECT))))) (PUT1-LST (QUOTE *1*ADDX-CVZNX) (QUOTE (MAIN-EVENT ADDX-CVZNX))) (PUT1-LST (QUOTE ADDX-CVZNX) (QUOTE (TYPE-PRESCRIPTION-LST ((ADDX-CVZNX 4 NIL NIL NIL NIL NIL)) TOTALP-LST ((ADDX-CVZNX . T)) SDEFN (LAMBDA (OPLEN Z X SOPD DOPD) (CVZNX (ADDX-C OPLEN X SOPD DOPD) (ADDX-V OPLEN X SOPD DOPD) (ADDX-Z OPLEN Z X SOPD DOPD) (ADDX-N OPLEN X SOPD DOPD) (ADDX-C OPLEN X SOPD DOPD))) LISP-CODE *1*ADDX-CVZNX SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ADDX-CVZNX) IMMEDIATE-DEPENDENTS0 (ADDX-EFFECT) EVENT (DEFN ADDX-CVZNX (OPLEN Z X SOPD DOPD) (CVZNX (ADDX-C OPLEN X SOPD DOPD) (ADDX-V OPLEN X SOPD DOPD) (ADDX-Z OPLEN Z X SOPD DOPD) (ADDX-N OPLEN X SOPD DOPD) (ADDX-C OPLEN X SOPD DOPD))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADDX-N . ADDX-CVZNX) (IMMEDIATE-DEPENDENTS0 ADDX-Z . ADDX-CVZNX) (IMMEDIATE-DEPENDENTS0 ADDX-V . ADDX-CVZNX) (IMMEDIATE-DEPENDENTS0 ADDX-C . ADDX-CVZNX) (IMMEDIATE-DEPENDENTS0 CVZNX . ADDX-CVZNX) (DCELL . *1*ADDX-CVZNX))))) (PUT1-LST (QUOTE *1*ADDX-N) (QUOTE (MAIN-EVENT ADDX-N))) (PUT1-LST (QUOTE ADDX-N) (QUOTE (TYPE-PRESCRIPTION-LST ((ADDX-N 4 NIL NIL NIL NIL)) TOTALP-LST ((ADDX-N . T)) SDEFN (LAMBDA (OPLEN X SOPD DOPD) (MBIT (ADDER OPLEN X DOPD SOPD) OPLEN)) LISP-CODE *1*ADDX-N SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ADDX-N) IMMEDIATE-DEPENDENTS0 (ADDX-CVZNX) EVENT (DEFN ADDX-N (OPLEN X SOPD DOPD) (MBIT (ADDER OPLEN X DOPD SOPD) OPLEN)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADDER . ADDX-N) (IMMEDIATE-DEPENDENTS0 MBIT . ADDX-N) (DCELL . *1*ADDX-N))))) (PUT1-LST (QUOTE *1*ADDX-Z) (QUOTE (MAIN-EVENT ADDX-Z))) (PUT1-LST (QUOTE ADDX-Z) (QUOTE (TYPE-PRESCRIPTION-LST ((ADDX-Z 4 NIL NIL NIL NIL NIL)) TOTALP-LST ((ADDX-Z . T)) SDEFN (LAMBDA (OPLEN Z X SOPD DOPD) (IF (EQUAL (ADDER OPLEN X DOPD SOPD) (QUOTE 0)) (B-AND Z (B1)) (B-AND Z (B0)))) LISP-CODE *1*ADDX-Z SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ADDX-Z) IMMEDIATE-DEPENDENTS0 (ADDX-CVZNX) EVENT (DEFN ADDX-Z (OPLEN Z X SOPD DOPD) (B-AND Z (IF (EQUAL (ADDER OPLEN X DOPD SOPD) (QUOTE 0)) (B1) (B0)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . ADDX-Z) (IMMEDIATE-DEPENDENTS0 B1 . ADDX-Z) (IMMEDIATE-DEPENDENTS0 ADDER . ADDX-Z) (IMMEDIATE-DEPENDENTS0 B-AND . ADDX-Z) (DCELL . *1*ADDX-Z))))) (PUT1-LST (QUOTE *1*ADDX-V) (QUOTE (MAIN-EVENT ADDX-V))) (PUT1-LST (QUOTE ADDX-V) (QUOTE (TYPE-PRESCRIPTION-LST ((ADDX-V 4 NIL NIL NIL NIL)) TOTALP-LST ((ADDX-V . T)) SDEFN (LAMBDA (N X SOPD DOPD) (B-OR (B-AND (B-AND (MBIT SOPD N) (MBIT DOPD N)) (B-NOT (MBIT (ADDER N X SOPD DOPD) N))) (B-AND (B-AND (B-NOT (MBIT SOPD N)) (B-NOT (MBIT DOPD N))) (MBIT (ADDER N X SOPD DOPD) N)))) LISP-CODE *1*ADDX-V SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ADDX-V) IMMEDIATE-DEPENDENTS0 (ADDX-CVZNX) EVENT (DEFN ADDX-V (N X SOPD DOPD) (B-OR (B-AND (B-AND (MBIT SOPD N) (MBIT DOPD N)) (B-NOT (MBIT (ADDER N X SOPD DOPD) N))) (B-AND (B-AND (B-NOT (MBIT SOPD N)) (B-NOT (MBIT DOPD N))) (MBIT (ADDER N X SOPD DOPD) N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADDER . ADDX-V) (IMMEDIATE-DEPENDENTS0 B-NOT . ADDX-V) (IMMEDIATE-DEPENDENTS0 MBIT . ADDX-V) (IMMEDIATE-DEPENDENTS0 B-AND . ADDX-V) (IMMEDIATE-DEPENDENTS0 B-OR . ADDX-V) (DCELL . *1*ADDX-V))))) (PUT1-LST (QUOTE *1*ADDX-C) (QUOTE (MAIN-EVENT ADDX-C))) (PUT1-LST (QUOTE ADDX-C) (QUOTE (TYPE-PRESCRIPTION-LST ((ADDX-C 4 NIL NIL NIL NIL)) TOTALP-LST ((ADDX-C . T)) SDEFN (LAMBDA (N X SOPD DOPD) (B-OR (B-OR (B-AND (MBIT SOPD N) (MBIT DOPD N)) (B-AND (B-NOT (MBIT (ADDER N X SOPD DOPD) N)) (MBIT DOPD N))) (B-AND (MBIT SOPD N) (B-NOT (MBIT (ADDER N X SOPD DOPD) N))))) LISP-CODE *1*ADDX-C SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ADDX-C) IMMEDIATE-DEPENDENTS0 (ADDX-CVZNX) EVENT (DEFN ADDX-C (N X SOPD DOPD) (B-OR (B-OR (B-AND (MBIT SOPD N) (MBIT DOPD N)) (B-AND (B-NOT (MBIT (ADDER N X SOPD DOPD) N)) (MBIT DOPD N))) (B-AND (MBIT SOPD N) (B-NOT (MBIT (ADDER N X SOPD DOPD) N))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADDER . ADDX-C) (IMMEDIATE-DEPENDENTS0 B-NOT . ADDX-C) (IMMEDIATE-DEPENDENTS0 MBIT . ADDX-C) (IMMEDIATE-DEPENDENTS0 B-AND . ADDX-C) (IMMEDIATE-DEPENDENTS0 B-OR . ADDX-C) (DCELL . *1*ADDX-C))))) (PUT1-LST (QUOTE *1*ADDA-INS) (QUOTE (MAIN-EVENT ADDA-INS))) (PUT1-LST (QUOTE ADDA-INS) (QUOTE (TYPE-PRESCRIPTION-LST ((ADDA-INS -1 NIL NIL NIL)) TOTALP-LST ((ADDA-INS . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (ADDA-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (WRITE-AN (L) (ADD (L) (READ-AN (L) (D_RN INS) (CAR (MC-INSTATE OPLEN INS S))) (EXT OPLEN (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (L))) (D_RN INS) (CAR (MC-INSTATE OPLEN INS S)))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*ADDA-INS SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*ADDA-INS) IMMEDIATE-DEPENDENTS0 (ADD-GROUP) EVENT (DEFN ADDA-INS (OPLEN INS S) (IF (ADDA-ADDR-MODEP INS) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (WRITE-AN (L) (ADD (L) (READ-AN (L) (D_RN INS) (CAR (MC-INSTATE OPLEN INS S))) (EXT OPLEN (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (L))) (D_RN INS) (CAR (MC-INSTATE OPLEN INS S)))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . ADDA-INS) (IMMEDIATE-DEPENDENTS0 HALT . ADDA-INS) (IMMEDIATE-DEPENDENTS0 OPERAND . ADDA-INS) (IMMEDIATE-DEPENDENTS0 EXT . ADDA-INS) (IMMEDIATE-DEPENDENTS0 D_RN . ADDA-INS) (IMMEDIATE-DEPENDENTS0 READ-AN . ADDA-INS) (IMMEDIATE-DEPENDENTS0 ADD . ADDA-INS) (IMMEDIATE-DEPENDENTS0 L . ADDA-INS) (IMMEDIATE-DEPENDENTS0 WRITE-AN . ADDA-INS) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . ADDA-INS) (IMMEDIATE-DEPENDENTS0 MC-HALTP . ADDA-INS) (IMMEDIATE-DEPENDENTS0 ADDA-ADDR-MODEP . ADDA-INS) (DCELL . *1*ADDA-INS))))) (PUT1-LST (QUOTE *1*ADDA-ADDR-MODEP) (QUOTE (MAIN-EVENT ADDA-ADDR-MODEP))) (PUT1-LST (QUOTE ADDA-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((ADDA-ADDR-MODEP 3 NIL)) TOTALP-LST ((ADDA-ADDR-MODEP . T)) SDEFN (LAMBDA (INS) (ADDR-MODEP (S_MODE INS) (S_RN INS))) LISP-CODE *1*ADDA-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ADDA-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (ADDA-INS) EVENT (DEFN ADDA-ADDR-MODEP (INS) (ADDR-MODEP (S_MODE INS) (S_RN INS))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 S_RN . ADDA-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 S_MODE . ADDA-ADDR-MODEP) (IMMEDIATE-DEPENDENTS0 ADDR-MODEP . ADDA-ADDR-MODEP) (DCELL . *1*ADDA-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*ADD-INS2) (QUOTE (MAIN-EVENT ADD-INS2))) (PUT1-LST (QUOTE ADD-INS2) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD-INS2 -1 NIL NIL NIL)) TOTALP-LST ((ADD-INS2 . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (ADD-ADDR-MODEP2 INS) (ADD-MAPPING (READ-DN OPLEN (D_RN INS) S) OPLEN INS S) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*ADD-INS2 SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*ADD-INS2) IMMEDIATE-DEPENDENTS0 (ADD-GROUP) EVENT (DEFN ADD-INS2 (OPLEN INS S) (IF (ADD-ADDR-MODEP2 INS) (ADD-MAPPING (READ-DN OPLEN (D_RN INS) S) OPLEN INS S) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . ADD-INS2) (IMMEDIATE-DEPENDENTS0 HALT . ADD-INS2) (IMMEDIATE-DEPENDENTS0 D_RN . ADD-INS2) (IMMEDIATE-DEPENDENTS0 READ-DN . ADD-INS2) (IMMEDIATE-DEPENDENTS0 ADD-MAPPING . ADD-INS2) (IMMEDIATE-DEPENDENTS0 ADD-ADDR-MODEP2 . ADD-INS2) (DCELL . *1*ADD-INS2))))) (PUT1-LST (QUOTE *1*ADD-MAPPING) (QUOTE (MAIN-EVENT ADD-MAPPING))) (PUT1-LST (QUOTE ADD-MAPPING) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD-MAPPING -1 NIL NIL NIL NIL)) TOTALP-LST ((ADD-MAPPING . T)) SDEFN (LAMBDA (OPD OPLEN INS S) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (MAPPING OPLEN (ADD-EFFECT OPLEN OPD (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S)) (MC-INSTATE OPLEN INS S)))) LISP-CODE *1*ADD-MAPPING SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*ADD-MAPPING) IMMEDIATE-DEPENDENTS0 (ADDI-INS ADDQ-INS ADD-INS2) EVENT (DEFN ADD-MAPPING (OPD OPLEN INS S) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (MAPPING OPLEN (ADD-EFFECT OPLEN OPD (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S)) (MC-INSTATE OPLEN INS S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OPERAND . ADD-MAPPING) (IMMEDIATE-DEPENDENTS0 ADD-EFFECT . ADD-MAPPING) (IMMEDIATE-DEPENDENTS0 MAPPING . ADD-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . ADD-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-HALTP . ADD-MAPPING) (DCELL . *1*ADD-MAPPING))))) (PUT1-LST (QUOTE *1*ADD-INS1) (QUOTE (MAIN-EVENT ADD-INS1))) (PUT1-LST (QUOTE ADD-INS1) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD-INS1 -1 NIL NIL NIL)) TOTALP-LST ((ADD-INS1 . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (ADD-ADDR-MODEP1 OPLEN INS) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (D-MAPPING OPLEN (ADD-EFFECT OPLEN (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (READ-DN OPLEN (D_RN INS) S)) (D_RN INS) (CAR (MC-INSTATE OPLEN INS S)))) (HALT (MODE-SIGNAL) S))) LISP-CODE *1*ADD-INS1 SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*ADD-INS1) IMMEDIATE-DEPENDENTS0 (ADD-GROUP) EVENT (DEFN ADD-INS1 (OPLEN INS S) (IF (ADD-ADDR-MODEP1 OPLEN INS) (IF (MC-HALTP (CAR (MC-INSTATE OPLEN INS S))) (CAR (MC-INSTATE OPLEN INS S)) (D-MAPPING OPLEN (ADD-EFFECT OPLEN (OPERAND OPLEN (CDR (MC-INSTATE OPLEN INS S)) S) (READ-DN OPLEN (D_RN INS) S)) (D_RN INS) (CAR (MC-INSTATE OPLEN INS S)))) (HALT (MODE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MODE-SIGNAL . ADD-INS1) (IMMEDIATE-DEPENDENTS0 HALT . ADD-INS1) (IMMEDIATE-DEPENDENTS0 D_RN . ADD-INS1) (IMMEDIATE-DEPENDENTS0 READ-DN . ADD-INS1) (IMMEDIATE-DEPENDENTS0 OPERAND . ADD-INS1) (IMMEDIATE-DEPENDENTS0 ADD-EFFECT . ADD-INS1) (IMMEDIATE-DEPENDENTS0 D-MAPPING . ADD-INS1) (IMMEDIATE-DEPENDENTS0 MC-INSTATE . ADD-INS1) (IMMEDIATE-DEPENDENTS0 MC-HALTP . ADD-INS1) (IMMEDIATE-DEPENDENTS0 ADD-ADDR-MODEP1 . ADD-INS1) (DCELL . *1*ADD-INS1))))) (PUT1-LST (QUOTE *1*ADD-ADDR-MODEP2) (QUOTE (MAIN-EVENT ADD-ADDR-MODEP2))) (PUT1-LST (QUOTE ADD-ADDR-MODEP2) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD-ADDR-MODEP2 3 NIL)) TOTALP-LST ((ADD-ADDR-MODEP2 . T)) SDEFN (LAMBDA (INS) (IF (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)) (MEMORY-ADDR-MODEP (S_MODE INS) (S_RN INS)) (QUOTE *1*FALSE))) LISP-CODE *1*ADD-ADDR-MODEP2 SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ADD-ADDR-MODEP2) IMMEDIATE-DEPENDENTS0 (ADD-INS2) EVENT (DEFN ADD-ADDR-MODEP2 (INS) (AND (ALTERABLE-ADDR-MODEP (S_MODE INS) (S_RN INS)) (MEMORY-ADDR-MODEP (S_MODE INS) (S_RN INS)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMORY-ADDR-MODEP . ADD-ADDR-MODEP2) (IMMEDIATE-DEPENDENTS0 S_RN . ADD-ADDR-MODEP2) (IMMEDIATE-DEPENDENTS0 S_MODE . ADD-ADDR-MODEP2) (IMMEDIATE-DEPENDENTS0 ALTERABLE-ADDR-MODEP . ADD-ADDR-MODEP2) (DCELL . *1*ADD-ADDR-MODEP2))))) (PUT1-LST (QUOTE *1*ADD-ADDR-MODEP1) (QUOTE (MAIN-EVENT ADD-ADDR-MODEP1))) (PUT1-LST (QUOTE ADD-ADDR-MODEP1) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD-ADDR-MODEP1 3 NIL NIL)) TOTALP-LST ((ADD-ADDR-MODEP1 . T)) SDEFN (LAMBDA (OPLEN INS) (IF (ADDR-MODEP (S_MODE INS) (S_RN INS)) (IF (BYTE-AN-DIRECT-MODEP OPLEN (S_MODE INS)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (QUOTE *1*FALSE))) LISP-CODE *1*ADD-ADDR-MODEP1 SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ADD-ADDR-MODEP1) IMMEDIATE-DEPENDENTS0 (ADD-INS1) EVENT (DEFN ADD-ADDR-MODEP1 (OPLEN INS) (AND (ADDR-MODEP (S_MODE INS) (S_RN INS)) (NOT (BYTE-AN-DIRECT-MODEP OPLEN (S_MODE INS))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BYTE-AN-DIRECT-MODEP . ADD-ADDR-MODEP1) (IMMEDIATE-DEPENDENTS0 S_RN . ADD-ADDR-MODEP1) (IMMEDIATE-DEPENDENTS0 S_MODE . ADD-ADDR-MODEP1) (IMMEDIATE-DEPENDENTS0 ADDR-MODEP . ADD-ADDR-MODEP1) (DCELL . *1*ADD-ADDR-MODEP1))))) (PUT1-LST (QUOTE *1*ADD-EFFECT) (QUOTE (MAIN-EVENT ADD-EFFECT))) (PUT1-LST (QUOTE ADD-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD-EFFECT 16 NIL NIL NIL)) TOTALP-LST ((ADD-EFFECT . T)) SDEFN (LAMBDA (OPLEN SOPD DOPD) (CONS (ADD OPLEN DOPD SOPD) (ADD-CVZNX OPLEN SOPD DOPD))) LISP-CODE *1*ADD-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ADD-EFFECT) IMMEDIATE-DEPENDENTS0 (ADD-MAPPING ADD-INS1) EVENT (DEFN ADD-EFFECT (OPLEN SOPD DOPD) (CONS (ADD OPLEN DOPD SOPD) (ADD-CVZNX OPLEN SOPD DOPD))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-CVZNX . ADD-EFFECT) (IMMEDIATE-DEPENDENTS0 ADD . ADD-EFFECT) (DCELL . *1*ADD-EFFECT))))) (PUT1-LST (QUOTE *1*ADD-CVZNX) (QUOTE (MAIN-EVENT ADD-CVZNX))) (PUT1-LST (QUOTE ADD-CVZNX) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD-CVZNX 4 NIL NIL NIL)) TOTALP-LST ((ADD-CVZNX . T)) SDEFN (LAMBDA (OPLEN SOPD DOPD) (CVZNX (ADD-C OPLEN SOPD DOPD) (ADD-V OPLEN SOPD DOPD) (ADD-Z OPLEN SOPD DOPD) (ADD-N OPLEN SOPD DOPD) (ADD-C OPLEN SOPD DOPD))) LISP-CODE *1*ADD-CVZNX SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ADD-CVZNX) IMMEDIATE-DEPENDENTS0 (ADD-EFFECT) EVENT (DEFN ADD-CVZNX (OPLEN SOPD DOPD) (CVZNX (ADD-C OPLEN SOPD DOPD) (ADD-V OPLEN SOPD DOPD) (ADD-Z OPLEN SOPD DOPD) (ADD-N OPLEN SOPD DOPD) (ADD-C OPLEN SOPD DOPD))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD-N . ADD-CVZNX) (IMMEDIATE-DEPENDENTS0 ADD-Z . ADD-CVZNX) (IMMEDIATE-DEPENDENTS0 ADD-V . ADD-CVZNX) (IMMEDIATE-DEPENDENTS0 ADD-C . ADD-CVZNX) (IMMEDIATE-DEPENDENTS0 CVZNX . ADD-CVZNX) (DCELL . *1*ADD-CVZNX))))) (PUT1-LST (QUOTE *1*ADD-N) (QUOTE (MAIN-EVENT ADD-N))) (PUT1-LST (QUOTE ADD-N) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD-N 4 NIL NIL NIL)) TOTALP-LST ((ADD-N . T)) SDEFN (LAMBDA (OPLEN SOPD DOPD) (MBIT (ADD OPLEN DOPD SOPD) OPLEN)) LISP-CODE *1*ADD-N SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ADD-N) IMMEDIATE-DEPENDENTS0 (ADD-CVZNX) EVENT (DEFN ADD-N (OPLEN SOPD DOPD) (MBIT (ADD OPLEN DOPD SOPD) OPLEN)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD . ADD-N) (IMMEDIATE-DEPENDENTS0 MBIT . ADD-N) (DCELL . *1*ADD-N))))) (PUT1-LST (QUOTE *1*ADD-Z) (QUOTE (MAIN-EVENT ADD-Z))) (PUT1-LST (QUOTE ADD-Z) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD-Z 4 NIL NIL NIL)) TOTALP-LST ((ADD-Z . T)) SDEFN (LAMBDA (OPLEN SOPD DOPD) (IF (EQUAL (ADD OPLEN DOPD SOPD) (QUOTE 0)) (B1) (B0))) LISP-CODE *1*ADD-Z SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ADD-Z) IMMEDIATE-DEPENDENTS0 (ADD-CVZNX) EVENT (DEFN ADD-Z (OPLEN SOPD DOPD) (IF (EQUAL (ADD OPLEN DOPD SOPD) (QUOTE 0)) (B1) (B0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . ADD-Z) (IMMEDIATE-DEPENDENTS0 B1 . ADD-Z) (IMMEDIATE-DEPENDENTS0 ADD . ADD-Z) (DCELL . *1*ADD-Z))))) (PUT1-LST (QUOTE *1*ADD-V) (QUOTE (MAIN-EVENT ADD-V))) (PUT1-LST (QUOTE ADD-V) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD-V 4 NIL NIL NIL)) TOTALP-LST ((ADD-V . T)) SDEFN (LAMBDA (N SOPD DOPD) (B-OR (B-AND (B-AND (MBIT SOPD N) (MBIT DOPD N)) (B-NOT (MBIT (ADD N SOPD DOPD) N))) (B-AND (B-AND (B-NOT (MBIT SOPD N)) (B-NOT (MBIT DOPD N))) (MBIT (ADD N SOPD DOPD) N)))) LISP-CODE *1*ADD-V SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ADD-V) IMMEDIATE-DEPENDENTS0 (ADD-CVZNX) EVENT (DEFN ADD-V (N SOPD DOPD) (B-OR (B-AND (B-AND (MBIT SOPD N) (MBIT DOPD N)) (B-NOT (MBIT (ADD N SOPD DOPD) N))) (B-AND (B-AND (B-NOT (MBIT SOPD N)) (B-NOT (MBIT DOPD N))) (MBIT (ADD N SOPD DOPD) N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD . ADD-V) (IMMEDIATE-DEPENDENTS0 B-NOT . ADD-V) (IMMEDIATE-DEPENDENTS0 MBIT . ADD-V) (IMMEDIATE-DEPENDENTS0 B-AND . ADD-V) (IMMEDIATE-DEPENDENTS0 B-OR . ADD-V) (DCELL . *1*ADD-V))))) (PUT1-LST (QUOTE *1*ADD-C) (QUOTE (MAIN-EVENT ADD-C))) (PUT1-LST (QUOTE ADD-C) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD-C 4 NIL NIL NIL)) TOTALP-LST ((ADD-C . T)) SDEFN (LAMBDA (N SOPD DOPD) (B-OR (B-OR (B-AND (MBIT SOPD N) (MBIT DOPD N)) (B-AND (B-NOT (MBIT (ADD N SOPD DOPD) N)) (MBIT DOPD N))) (B-AND (MBIT SOPD N) (B-NOT (MBIT (ADD N SOPD DOPD) N))))) LISP-CODE *1*ADD-C SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*ADD-C) IMMEDIATE-DEPENDENTS0 (ADD-CVZNX) EVENT (DEFN ADD-C (N SOPD DOPD) (B-OR (B-OR (B-AND (MBIT SOPD N) (MBIT DOPD N)) (B-AND (B-NOT (MBIT (ADD N SOPD DOPD) N)) (MBIT DOPD N))) (B-AND (MBIT SOPD N) (B-NOT (MBIT (ADD N SOPD DOPD) N))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD . ADD-C) (IMMEDIATE-DEPENDENTS0 B-NOT . ADD-C) (IMMEDIATE-DEPENDENTS0 MBIT . ADD-C) (IMMEDIATE-DEPENDENTS0 B-AND . ADD-C) (IMMEDIATE-DEPENDENTS0 B-OR . ADD-C) (DCELL . *1*ADD-C))))) (PUT1-LST (QUOTE *1*MAPPING) (QUOTE (MAIN-EVENT MAPPING))) (PUT1-LST (QUOTE MAPPING) (QUOTE (TYPE-PRESCRIPTION-LST ((MAPPING 16 NIL NIL NIL)) TOTALP-LST ((MAPPING . T)) SDEFN (LAMBDA (OPLEN V&CVZNX S&ADDR) (IF (EQUAL (CAR (CDR S&ADDR)) (QUOTE D)) (D-MAPPING OPLEN V&CVZNX (CDR (CDR S&ADDR)) (CAR S&ADDR)) (IF (EQUAL (CAR (CDR S&ADDR)) (QUOTE A)) (A-MAPPING OPLEN V&CVZNX (CDR (CDR S&ADDR)) (CAR S&ADDR)) (M-MAPPING OPLEN V&CVZNX (CDR (CDR S&ADDR)) (CAR S&ADDR))))) LISP-CODE *1*MAPPING SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402214824 SATELLITES (*1*MAPPING) IMMEDIATE-DEPENDENTS0 (BSET-INS BCLR-INS BCHG-INS EOR-MAPPING SCC-INS NOT-INS TAS-INS NEG-INS NEGX-INS MOVE-FROM-CCR-INS CLR-INS MOVE-MAPPING MEM-ROXR-INS MEM-ROXL-INS MEM-ASR-INS MEM-ASL-INS MEM-LSR-INS MEM-LSL-INS MEM-ROR-INS MEM-ROL-INS OR-MAPPING AND-MAPPING SUBX-INS2 SUB-MAPPING ADDX-INS2 ADD-MAPPING) EVENT (DEFN MAPPING (OPLEN V&CVZNX S&ADDR) (IF (EQUAL (CAR (CDR S&ADDR)) (QUOTE D)) (D-MAPPING OPLEN V&CVZNX (CDR (CDR S&ADDR)) (CAR S&ADDR)) (IF (EQUAL (CAR (CDR S&ADDR)) (QUOTE A)) (A-MAPPING OPLEN V&CVZNX (CDR (CDR S&ADDR)) (CAR S&ADDR)) (M-MAPPING OPLEN V&CVZNX (CDR (CDR S&ADDR)) (CAR S&ADDR))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 M-MAPPING . MAPPING) (IMMEDIATE-DEPENDENTS0 A-MAPPING . MAPPING) (IMMEDIATE-DEPENDENTS0 D-MAPPING . MAPPING) (DCELL . *1*MAPPING))))) (PUT1-LST (QUOTE *1*M-MAPPING) (QUOTE (MAIN-EVENT M-MAPPING))) (PUT1-LST (QUOTE M-MAPPING) (QUOTE (TYPE-PRESCRIPTION-LST ((M-MAPPING 16 NIL NIL NIL NIL)) TOTALP-LST ((M-MAPPING . T)) SDEFN (LAMBDA (OPLEN V&CVZNX ADDR S) (IF (WRITE-MEMP ADDR (MC-MEM S) (OP-SZ OPLEN)) (MC-STATE (MC-STATUS S) (MC-RFILE S) (MC-PC S) (SET-CVZNX (CDR V&CVZNX) (MC-CCR S)) (WRITE-MEM (CAR V&CVZNX) ADDR (MC-MEM S) (OP-SZ OPLEN))) (HALT (WRITE-SIGNAL) S))) LISP-CODE *1*M-MAPPING SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402214824 SATELLITES (*1*M-MAPPING) IMMEDIATE-DEPENDENTS0 (MAPPING) EVENT (DEFN M-MAPPING (OPLEN V&CVZNX ADDR S) (IF (WRITE-MEMP ADDR (MC-MEM S) (OP-SZ OPLEN)) (MC-STATE (MC-STATUS S) (MC-RFILE S) (MC-PC S) (SET-CVZNX (CDR V&CVZNX) (MC-CCR S)) (WRITE-MEM (CAR V&CVZNX) ADDR (MC-MEM S) (OP-SZ OPLEN))) (HALT (WRITE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-SIGNAL . M-MAPPING) (IMMEDIATE-DEPENDENTS0 HALT . M-MAPPING) (IMMEDIATE-DEPENDENTS0 WRITE-MEM . M-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-CCR . M-MAPPING) (IMMEDIATE-DEPENDENTS0 SET-CVZNX . M-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-PC . M-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-RFILE . M-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-STATUS . M-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-STATE . M-MAPPING) (IMMEDIATE-DEPENDENTS0 OP-SZ . M-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-MEM . M-MAPPING) (IMMEDIATE-DEPENDENTS0 WRITE-MEMP . M-MAPPING) (DCELL . *1*M-MAPPING))))) (PUT1-LST (QUOTE *1*A-MAPPING) (QUOTE (MAIN-EVENT A-MAPPING))) (PUT1-LST (QUOTE A-MAPPING) (QUOTE (TYPE-PRESCRIPTION-LST ((A-MAPPING 16 NIL NIL NIL NIL)) TOTALP-LST ((A-MAPPING . T)) SDEFN (LAMBDA (OPLEN V&CVZNX ADDR S) (MC-STATE (MC-STATUS S) (WRITE-RN OPLEN (CAR V&CVZNX) (PLUS (QUOTE 8) ADDR) (MC-RFILE S)) (MC-PC S) (SET-CVZNX (CDR V&CVZNX) (MC-CCR S)) (MC-MEM S))) LISP-CODE *1*A-MAPPING SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*A-MAPPING) IMMEDIATE-DEPENDENTS0 (MAPPING) EVENT (DEFN A-MAPPING (OPLEN V&CVZNX ADDR S) (MC-STATE (MC-STATUS S) (WRITE-RN OPLEN (CAR V&CVZNX) (PLUS (QUOTE 8) ADDR) (MC-RFILE S)) (MC-PC S) (SET-CVZNX (CDR V&CVZNX) (MC-CCR S)) (MC-MEM S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-MEM . A-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-CCR . A-MAPPING) (IMMEDIATE-DEPENDENTS0 SET-CVZNX . A-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-PC . A-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-RFILE . A-MAPPING) (IMMEDIATE-DEPENDENTS0 WRITE-RN . A-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-STATUS . A-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-STATE . A-MAPPING) (DCELL . *1*A-MAPPING))))) (PUT1-LST (QUOTE *1*D-MAPPING) (QUOTE (MAIN-EVENT D-MAPPING))) (PUT1-LST (QUOTE D-MAPPING) (QUOTE (TYPE-PRESCRIPTION-LST ((D-MAPPING 16 NIL NIL NIL NIL)) TOTALP-LST ((D-MAPPING . T)) SDEFN (LAMBDA (OPLEN V&CVZNX ADDR S) (MC-STATE (MC-STATUS S) (WRITE-RN OPLEN (CAR V&CVZNX) ADDR (MC-RFILE S)) (MC-PC S) (SET-CVZNX (CDR V&CVZNX) (MC-CCR S)) (MC-MEM S))) LISP-CODE *1*D-MAPPING SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*D-MAPPING) IMMEDIATE-DEPENDENTS0 (MOVEQ-INS EXT-INS SWAP-INS EXTB-INS REGISTER-ROXR-INS REGISTER-ROXL-INS REGISTER-ASR-INS REGISTER-ASL-INS REGISTER-LSR-INS REGISTER-LSL-INS REGISTER-ROR-INS REGISTER-ROL-INS OR-INS1 AND-INS1 SUBX-INS1 SUB-INS1 ADDX-INS1 ADD-INS1 MAPPING) EVENT (DEFN D-MAPPING (OPLEN V&CVZNX ADDR S) (MC-STATE (MC-STATUS S) (WRITE-RN OPLEN (CAR V&CVZNX) ADDR (MC-RFILE S)) (MC-PC S) (SET-CVZNX (CDR V&CVZNX) (MC-CCR S)) (MC-MEM S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-MEM . D-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-CCR . D-MAPPING) (IMMEDIATE-DEPENDENTS0 SET-CVZNX . D-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-PC . D-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-RFILE . D-MAPPING) (IMMEDIATE-DEPENDENTS0 WRITE-RN . D-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-STATUS . D-MAPPING) (IMMEDIATE-DEPENDENTS0 MC-STATE . D-MAPPING) (DCELL . *1*D-MAPPING))))) (PUT1-LST (QUOTE *1*MC-INSTATE) (QUOTE (MAIN-EVENT MC-INSTATE))) (PUT1-LST (QUOTE MC-INSTATE) (QUOTE (TYPE-PRESCRIPTION-LST ((MC-INSTATE 16 NIL NIL NIL)) TOTALP-LST ((MC-INSTATE . T)) SDEFN (LAMBDA (OPLEN INS S) (IF (EQUAL (CAR (CDR (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S))) (QUOTE M)) (IF (READ-MEMP (CDR (CDR (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S))) (MC-MEM S) (OP-SZ OPLEN)) (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S) (CONS (HALT (READ-SIGNAL) S) (QUOTE NIL))) (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S))) LISP-CODE *1*MC-INSTATE SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*MC-INSTATE) IMMEDIATE-DEPENDENTS0 (CMPI-MAPPING BTST-INS BSET-INS BCLR-INS BCHG-INS EOR-MAPPING CMPA-INS CMP-INS SCC-INS NOT-INS MUL-DIV_L-INS TAS-INS TST-INS MOVE-TO-CCR-INS NEG-INS NEGX-INS MOVE-FROM-CCR-INS MOVEA-INS MOVE-INS MEM-ROXR-INS MEM-ROXL-INS MEM-ASR-INS MEM-ASL-INS MEM-LSR-INS MEM-LSL-INS MEM-ROR-INS MEM-ROL-INS DIV_W-INS OR-MAPPING OR-INS1 MUL_W-INS AND-MAPPING AND-INS1 SUBA-INS SUB-MAPPING SUB-INS1 ADDA-INS ADD-MAPPING ADD-INS1) EVENT (DEFN MC-INSTATE (OPLEN INS S) (IF (EQUAL (CAR (CDR (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S))) (QUOTE M)) (IF (READ-MEMP (CDR (CDR (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S))) (MC-MEM S) (OP-SZ OPLEN)) (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S) (CONS (HALT (READ-SIGNAL) S) (QUOTE NIL))) (EFFEC-ADDR OPLEN (S_MODE INS) (S_RN INS) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-SIGNAL . MC-INSTATE) (IMMEDIATE-DEPENDENTS0 HALT . MC-INSTATE) (IMMEDIATE-DEPENDENTS0 OP-SZ . MC-INSTATE) (IMMEDIATE-DEPENDENTS0 MC-MEM . MC-INSTATE) (IMMEDIATE-DEPENDENTS0 READ-MEMP . MC-INSTATE) (IMMEDIATE-DEPENDENTS0 S_RN . MC-INSTATE) (IMMEDIATE-DEPENDENTS0 S_MODE . MC-INSTATE) (IMMEDIATE-DEPENDENTS0 EFFEC-ADDR . MC-INSTATE) (DCELL . *1*MC-INSTATE))))) (PUT1-LST (QUOTE *1*BYTE-AN-DIRECT-MODEP) (QUOTE (MAIN-EVENT BYTE-AN-DIRECT-MODEP))) (PUT1-LST (QUOTE BYTE-AN-DIRECT-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((BYTE-AN-DIRECT-MODEP 3 NIL NIL)) TOTALP-LST ((BYTE-AN-DIRECT-MODEP . T)) SDEFN (LAMBDA (OPLEN MODE) (IF (EQUAL OPLEN (B)) (AN-DIRECT-MODEP MODE) (QUOTE *1*FALSE))) LISP-CODE *1*BYTE-AN-DIRECT-MODEP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214824 SATELLITES (*1*BYTE-AN-DIRECT-MODEP) IMMEDIATE-DEPENDENTS0 (CMP-ADDR-MODEP SUBQ-ADDR-MODEP ADDQ-ADDR-MODEP MOVE-ADDR-MODEP SUB-ADDR-MODEP1 ADD-ADDR-MODEP1) EVENT (DEFN BYTE-AN-DIRECT-MODEP (OPLEN MODE) (AND (EQUAL OPLEN (B)) (AN-DIRECT-MODEP MODE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 AN-DIRECT-MODEP . BYTE-AN-DIRECT-MODEP) (IMMEDIATE-DEPENDENTS0 B . BYTE-AN-DIRECT-MODEP) (DCELL . *1*BYTE-AN-DIRECT-MODEP))))) (PUT1-LST (QUOTE *1*IDATA-MODEP) (QUOTE (MAIN-EVENT IDATA-MODEP))) (PUT1-LST (QUOTE IDATA-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((IDATA-MODEP 3 NIL NIL)) TOTALP-LST ((IDATA-MODEP . T)) SDEFN (LAMBDA (MODE RN) (IF (EQUAL MODE (QUOTE 7)) (EQUAL RN (QUOTE 4)) (QUOTE *1*FALSE))) LISP-CODE *1*IDATA-MODEP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214824 SATELLITES (*1*IDATA-MODEP) IMMEDIATE-DEPENDENTS0 (CMPI-ADDR-MODEP) EVENT (DEFN IDATA-MODEP (MODE RN) (AND (EQUAL MODE (QUOTE 7)) (EQUAL RN (QUOTE 4)))) LOCAL-UNDO-TUPLES ((DCELL . *1*IDATA-MODEP))))) (PUT1-LST (QUOTE *1*PREDEC-MODEP) (QUOTE (MAIN-EVENT PREDEC-MODEP))) (PUT1-LST (QUOTE PREDEC-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((PREDEC-MODEP 3 NIL)) TOTALP-LST ((PREDEC-MODEP . T)) SDEFN (LAMBDA (MODE) (EQUAL MODE (QUOTE 4))) LISP-CODE *1*PREDEC-MODEP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214824 SATELLITES (*1*PREDEC-MODEP) IMMEDIATE-DEPENDENTS0 (MOVEM-RN-EA-INS) EVENT (DEFN PREDEC-MODEP (MODE) (EQUAL MODE (QUOTE 4))) LOCAL-UNDO-TUPLES ((DCELL . *1*PREDEC-MODEP))))) (PUT1-LST (QUOTE *1*POSTINC-MODEP) (QUOTE (MAIN-EVENT POSTINC-MODEP))) (PUT1-LST (QUOTE POSTINC-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((POSTINC-MODEP 3 NIL)) TOTALP-LST ((POSTINC-MODEP . T)) SDEFN (LAMBDA (MODE) (EQUAL MODE (QUOTE 3))) LISP-CODE *1*POSTINC-MODEP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214824 SATELLITES (*1*POSTINC-MODEP) IMMEDIATE-DEPENDENTS0 (MOVEM-EA-RN-INS) EVENT (DEFN POSTINC-MODEP (MODE) (EQUAL MODE (QUOTE 3))) LOCAL-UNDO-TUPLES ((DCELL . *1*POSTINC-MODEP))))) (PUT1-LST (QUOTE *1*AN-DIRECT-MODEP) (QUOTE (MAIN-EVENT AN-DIRECT-MODEP))) (PUT1-LST (QUOTE AN-DIRECT-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((AN-DIRECT-MODEP 3 NIL)) TOTALP-LST ((AN-DIRECT-MODEP . T)) SDEFN (LAMBDA (MODE) (EQUAL MODE (QUOTE 1))) LISP-CODE *1*AN-DIRECT-MODEP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214824 SATELLITES (*1*AN-DIRECT-MODEP) IMMEDIATE-DEPENDENTS0 (SUBQ-INS ADDQ-INS BYTE-AN-DIRECT-MODEP) EVENT (DEFN AN-DIRECT-MODEP (MODE) (EQUAL MODE (QUOTE 1))) LOCAL-UNDO-TUPLES ((DCELL . *1*AN-DIRECT-MODEP))))) (PUT1-LST (QUOTE *1*DN-DIRECT-MODEP) (QUOTE (MAIN-EVENT DN-DIRECT-MODEP))) (PUT1-LST (QUOTE DN-DIRECT-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((DN-DIRECT-MODEP 3 NIL)) TOTALP-LST ((DN-DIRECT-MODEP . T)) SDEFN (LAMBDA (MODE) (EQUAL MODE (QUOTE 0))) LISP-CODE *1*DN-DIRECT-MODEP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214824 SATELLITES (*1*DN-DIRECT-MODEP) IMMEDIATE-DEPENDENTS0 (BXXX-OPD BXXX-NUM BXXX-OPLEN) EVENT (DEFN DN-DIRECT-MODEP (MODE) (EQUAL MODE (QUOTE 0))) LOCAL-UNDO-TUPLES ((DCELL . *1*DN-DIRECT-MODEP))))) (PUT1-LST (QUOTE *1*ALTERABLE-ADDR-MODEP) (QUOTE (MAIN-EVENT ALTERABLE-ADDR-MODEP))) (PUT1-LST (QUOTE ALTERABLE-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((ALTERABLE-ADDR-MODEP 3 NIL NIL)) TOTALP-LST ((ALTERABLE-ADDR-MODEP . T)) SDEFN (LAMBDA (MODE RN) (IF (EQUAL MODE (QUOTE 7)) (IF (EQUAL RN (QUOTE 0)) (QUOTE *1*TRUE) (EQUAL RN (QUOTE 1))) (QUOTE *1*TRUE))) LISP-CODE *1*ALTERABLE-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214824 SATELLITES (*1*ALTERABLE-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (ADDI-ADDR-MODEP SUBI-ADDR-MODEP ANDI-ADDR-MODEP ORI-ADDR-MODEP BSET-ADDR-MODEP BCLR-ADDR-MODEP BCHG-ADDR-MODEP EOR&EORI-ADDR-MODEP SUBQ-ADDR-MODEP ADDQ-ADDR-MODEP SCC-ADDR-MODEP NOT-ADDR-MODEP TAS-ADDR-MODEP MOVEM-RN-EA-ADDR-MODEP NEG-ADDR-MODEP NEGX-ADDR-MODEP MOVE-FROM-CCR-ADDR-MODEP CLR-ADDR-MODEP MOVE-ADDR-MODEP S&R-ADDR-MODEP OR-ADDR-MODEP2 AND-ADDR-MODEP2 SUB-ADDR-MODEP2 ADD-ADDR-MODEP2) EVENT (DEFN ALTERABLE-ADDR-MODEP (MODE RN) (OR (NOT (EQUAL MODE (QUOTE 7))) (OR (EQUAL RN (QUOTE 0)) (EQUAL RN (QUOTE 1))))) LOCAL-UNDO-TUPLES ((DCELL . *1*ALTERABLE-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*CONTROL-ADDR-MODEP) (QUOTE (MAIN-EVENT CONTROL-ADDR-MODEP))) (PUT1-LST (QUOTE CONTROL-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((CONTROL-ADDR-MODEP 3 NIL NIL)) TOTALP-LST ((CONTROL-ADDR-MODEP . T)) SDEFN (LAMBDA (MODE RN) (IF (EQUAL MODE (QUOTE 7)) (IF (LESSP (QUOTE 3) RN) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (EQUAL MODE (QUOTE 2)) (QUOTE *1*TRUE) (IF (LESSP MODE (QUOTE 5)) (QUOTE *1*FALSE) (QUOTE *1*TRUE))))) LISP-CODE *1*CONTROL-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214824 SATELLITES (*1*CONTROL-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (JSR-ADDR-MODEP JMP-ADDR-MODEP MOVEM-EA-RN-ADDR-MODEP MOVEM-RN-EA-ADDR-MODEP PEA-ADDR-MODEP LEA-ADDR-MODEP) EVENT (DEFN CONTROL-ADDR-MODEP (MODE RN) (IF (EQUAL MODE (QUOTE 7)) (IF (LESSP (QUOTE 3) RN) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (OR (EQUAL MODE (QUOTE 2)) (IF (LESSP MODE (QUOTE 5)) (QUOTE *1*FALSE) (QUOTE *1*TRUE))))) LOCAL-UNDO-TUPLES ((DCELL . *1*CONTROL-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*MEMORY-ADDR-MODEP) (QUOTE (MAIN-EVENT MEMORY-ADDR-MODEP))) (PUT1-LST (QUOTE MEMORY-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((MEMORY-ADDR-MODEP 3 NIL NIL)) TOTALP-LST ((MEMORY-ADDR-MODEP . T)) SDEFN (LAMBDA (MODE RN) (IF (EQUAL MODE (QUOTE 7)) (IF (LESSP (QUOTE 4) RN) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (LESSP MODE (QUOTE 2)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) LISP-CODE *1*MEMORY-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214824 SATELLITES (*1*MEMORY-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (S&R-ADDR-MODEP OR-ADDR-MODEP2 AND-ADDR-MODEP2 SUB-ADDR-MODEP2 ADD-ADDR-MODEP2) EVENT (DEFN MEMORY-ADDR-MODEP (MODE RN) (IF (EQUAL MODE (QUOTE 7)) (IF (LESSP (QUOTE 4) RN) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (LESSP MODE (QUOTE 2)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) LOCAL-UNDO-TUPLES ((DCELL . *1*MEMORY-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*DATA-ADDR-MODEP) (QUOTE (MAIN-EVENT DATA-ADDR-MODEP))) (PUT1-LST (QUOTE DATA-ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((DATA-ADDR-MODEP 3 NIL NIL)) TOTALP-LST ((DATA-ADDR-MODEP . T)) SDEFN (LAMBDA (MODE RN) (IF (EQUAL MODE (QUOTE 7)) (IF (LESSP (QUOTE 4) RN) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (EQUAL MODE (QUOTE 1)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) LISP-CODE *1*DATA-ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214824 SATELLITES (*1*DATA-ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (CMPI-ADDR-MODEP ADDI-ADDR-MODEP SUBI-ADDR-MODEP ANDI-ADDR-MODEP ORI-ADDR-MODEP BTST-ADDR-MODEP BSET-ADDR-MODEP BCLR-ADDR-MODEP BCHG-ADDR-MODEP EOR&EORI-ADDR-MODEP SCC-ADDR-MODEP NOT-ADDR-MODEP TAS-ADDR-MODEP TST-ADDR-MODEP MOVE-TO-CCR-ADDR-MODEP NEG-ADDR-MODEP NEGX-ADDR-MODEP MOVE-FROM-CCR-ADDR-MODEP CLR-ADDR-MODEP MOVE-ADDR-MODEP OR-ADDR-MODEP1 MUL&DIV-ADDR-MODEP AND-ADDR-MODEP1) EVENT (DEFN DATA-ADDR-MODEP (MODE RN) (IF (EQUAL MODE (QUOTE 7)) (IF (LESSP (QUOTE 4) RN) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (NOT (EQUAL MODE (QUOTE 1))))) LOCAL-UNDO-TUPLES ((DCELL . *1*DATA-ADDR-MODEP))))) (PUT1-LST (QUOTE *1*ADDR-MODEP) (QUOTE (MAIN-EVENT ADDR-MODEP))) (PUT1-LST (QUOTE ADDR-MODEP) (QUOTE (TYPE-PRESCRIPTION-LST ((ADDR-MODEP 3 NIL NIL)) TOTALP-LST ((ADDR-MODEP . T)) SDEFN (LAMBDA (MODE RN) (IF (EQUAL MODE (QUOTE 7)) (IF (LESSP (QUOTE 4) RN) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (QUOTE *1*TRUE))) LISP-CODE *1*ADDR-MODEP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214824 SATELLITES (*1*ADDR-MODEP) IMMEDIATE-DEPENDENTS0 (CMPA-ADDR-MODEP CMP-ADDR-MODEP TST-ADDR-MODEP MOVEA-ADDR-MODEP MOVE-ADDR-MODEP SUBA-ADDR-MODEP SUB-ADDR-MODEP1 ADDA-ADDR-MODEP ADD-ADDR-MODEP1) EVENT (DEFN ADDR-MODEP (MODE RN) (IF (EQUAL MODE (QUOTE 7)) (IF (LESSP (QUOTE 4) RN) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (QUOTE *1*TRUE))) LOCAL-UNDO-TUPLES ((DCELL . *1*ADDR-MODEP))))) (PUT1-LST (QUOTE *1*EFFEC-ADDR) (QUOTE (MAIN-EVENT EFFEC-ADDR))) (PUT1-LST (QUOTE EFFEC-ADDR) (QUOTE (TYPE-PRESCRIPTION-LST ((EFFEC-ADDR 16 NIL NIL NIL NIL)) TOTALP-LST ((EFFEC-ADDR . T)) SDEFN (LAMBDA (OPLEN MODE RN S) (IF (LESSP MODE (QUOTE 4)) (IF (LESSP MODE (QUOTE 2)) (IF (EQUAL MODE (QUOTE 0)) (DN-DIRECT RN S) (AN-DIRECT RN S)) (IF (EQUAL MODE (QUOTE 2)) (ADDR-INDIRECT RN S) (ADDR-POSTINC OPLEN RN S))) (IF (LESSP MODE (QUOTE 6)) (IF (EQUAL MODE (QUOTE 4)) (ADDR-PREDEC OPLEN RN S) (ADDR-DISP (MC-PC S) RN S)) (IF (EQUAL MODE (QUOTE 6)) (ADDR-INDEX (MC-PC S) RN S) (IF (LESSP RN (QUOTE 4)) (IF (LESSP RN (QUOTE 2)) (IF (EQUAL RN (QUOTE 0)) (ABSOLUTE-SHORT (MC-PC S) S) (ABSOLUTE-LONG (MC-PC S) S)) (IF (EQUAL RN (QUOTE 2)) (PC-DISP (MC-PC S) S) (PC-INDEX (MC-PC S) S))) (IMMEDIATE OPLEN (MC-PC S) S)))))) LISP-CODE *1*EFFEC-ADDR SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*EFFEC-ADDR) IMMEDIATE-DEPENDENTS0 (JSR-INS JMP-INS MOVEM-EA-RN-INS MOVEM-RN-EA-INS PEA-INS CLR-INS LEA-INS MOVE-MAPPING MC-INSTATE) EVENT (DEFN EFFEC-ADDR (OPLEN MODE RN S) (IF (LESSP MODE (QUOTE 4)) (IF (LESSP MODE (QUOTE 2)) (IF (EQUAL MODE (QUOTE 0)) (DN-DIRECT RN S) (AN-DIRECT RN S)) (IF (EQUAL MODE (QUOTE 2)) (ADDR-INDIRECT RN S) (ADDR-POSTINC OPLEN RN S))) (IF (LESSP MODE (QUOTE 6)) (IF (EQUAL MODE (QUOTE 4)) (ADDR-PREDEC OPLEN RN S) (ADDR-DISP (MC-PC S) RN S)) (IF (EQUAL MODE (QUOTE 6)) (ADDR-INDEX (MC-PC S) RN S) (IF (LESSP RN (QUOTE 4)) (IF (LESSP RN (QUOTE 2)) (IF (EQUAL RN (QUOTE 0)) (ABSOLUTE-SHORT (MC-PC S) S) (ABSOLUTE-LONG (MC-PC S) S)) (IF (EQUAL RN (QUOTE 2)) (PC-DISP (MC-PC S) S) (PC-INDEX (MC-PC S) S))) (IMMEDIATE OPLEN (MC-PC S) S)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IMMEDIATE . EFFEC-ADDR) (IMMEDIATE-DEPENDENTS0 PC-INDEX . EFFEC-ADDR) (IMMEDIATE-DEPENDENTS0 PC-DISP . EFFEC-ADDR) (IMMEDIATE-DEPENDENTS0 ABSOLUTE-LONG . EFFEC-ADDR) (IMMEDIATE-DEPENDENTS0 ABSOLUTE-SHORT . EFFEC-ADDR) (IMMEDIATE-DEPENDENTS0 ADDR-INDEX . EFFEC-ADDR) (IMMEDIATE-DEPENDENTS0 MC-PC . EFFEC-ADDR) (IMMEDIATE-DEPENDENTS0 ADDR-DISP . EFFEC-ADDR) (IMMEDIATE-DEPENDENTS0 ADDR-PREDEC . EFFEC-ADDR) (IMMEDIATE-DEPENDENTS0 ADDR-POSTINC . EFFEC-ADDR) (IMMEDIATE-DEPENDENTS0 ADDR-INDIRECT . EFFEC-ADDR) (IMMEDIATE-DEPENDENTS0 AN-DIRECT . EFFEC-ADDR) (IMMEDIATE-DEPENDENTS0 DN-DIRECT . EFFEC-ADDR) (DCELL . *1*EFFEC-ADDR))))) (PUT1-LST (QUOTE *1*IMMEDIATE) (QUOTE (MAIN-EVENT IMMEDIATE))) (PUT1-LST (QUOTE IMMEDIATE) (QUOTE (TYPE-PRESCRIPTION-LST ((IMMEDIATE 16 NIL NIL NIL)) TOTALP-LST ((IMMEDIATE . T)) SDEFN (LAMBDA (OPLEN PC S) (IF (EQUAL OPLEN (B)) (IF (PC-WORD-READP PC (MC-MEM S)) (CONS (UPDATE-PC (ADD (L) PC (WSZ)) S) (CONS (QUOTE I) (PC-BYTE-READ (ADD (L) PC (BSZ)) (MC-MEM S)))) (CONS (HALT (PC-SIGNAL) S) (QUOTE NIL))) (IF (PC-READ-MEMP PC (MC-MEM S) (OP-SZ OPLEN)) (CONS (UPDATE-PC (ADD (L) PC (OP-SZ OPLEN)) S) (CONS (QUOTE I) (PC-READ-MEM PC (MC-MEM S) (OP-SZ OPLEN)))) (CONS (HALT (PC-SIGNAL) S) (QUOTE NIL))))) LISP-CODE *1*IMMEDIATE SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*IMMEDIATE) IMMEDIATE-DEPENDENTS0 (CMPI-INS EORI-INS ADDI-INS SUBI-INS ANDI-INS ORI-INS EFFEC-ADDR) EVENT (DEFN IMMEDIATE (OPLEN PC S) (IF (EQUAL OPLEN (B)) (IF (PC-WORD-READP PC (MC-MEM S)) (CONS (UPDATE-PC (ADD (L) PC (WSZ)) S) (CONS (QUOTE I) (PC-BYTE-READ (ADD (L) PC (BSZ)) (MC-MEM S)))) (CONS (HALT (PC-SIGNAL) S) (QUOTE NIL))) (IF (PC-READ-MEMP PC (MC-MEM S) (OP-SZ OPLEN)) (CONS (UPDATE-PC (ADD (L) PC (OP-SZ OPLEN)) S) (CONS (QUOTE I) (PC-READ-MEM PC (MC-MEM S) (OP-SZ OPLEN)))) (CONS (HALT (PC-SIGNAL) S) (QUOTE NIL))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-READ-MEM . IMMEDIATE) (IMMEDIATE-DEPENDENTS0 OP-SZ . IMMEDIATE) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP . IMMEDIATE) (IMMEDIATE-DEPENDENTS0 PC-SIGNAL . IMMEDIATE) (IMMEDIATE-DEPENDENTS0 HALT . IMMEDIATE) (IMMEDIATE-DEPENDENTS0 BSZ . IMMEDIATE) (IMMEDIATE-DEPENDENTS0 PC-BYTE-READ . IMMEDIATE) (IMMEDIATE-DEPENDENTS0 WSZ . IMMEDIATE) (IMMEDIATE-DEPENDENTS0 L . IMMEDIATE) (IMMEDIATE-DEPENDENTS0 ADD . IMMEDIATE) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . IMMEDIATE) (IMMEDIATE-DEPENDENTS0 MC-MEM . IMMEDIATE) (IMMEDIATE-DEPENDENTS0 PC-WORD-READP . IMMEDIATE) (IMMEDIATE-DEPENDENTS0 B . IMMEDIATE) (DCELL . *1*IMMEDIATE))))) (PUT1-LST (QUOTE *1*PC-INDEX) (QUOTE (MAIN-EVENT PC-INDEX))) (PUT1-LST (QUOTE PC-INDEX) (QUOTE (TYPE-PRESCRIPTION-LST ((PC-INDEX 16 NIL NIL)) TOTALP-LST ((PC-INDEX . T)) SDEFN (LAMBDA (PC S) (IF (PC-WORD-READP PC (MC-MEM S)) (PC-INDEX1 PC (PC-WORD-READ PC (MC-MEM S)) S) (CONS (HALT (PC-SIGNAL) S) (QUOTE NIL)))) LISP-CODE *1*PC-INDEX SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*PC-INDEX) IMMEDIATE-DEPENDENTS0 (EFFEC-ADDR) EVENT (DEFN PC-INDEX (PC S) (IF (PC-WORD-READP PC (MC-MEM S)) (PC-INDEX1 PC (PC-WORD-READ PC (MC-MEM S)) S) (CONS (HALT (PC-SIGNAL) S) (QUOTE NIL)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-SIGNAL . PC-INDEX) (IMMEDIATE-DEPENDENTS0 HALT . PC-INDEX) (IMMEDIATE-DEPENDENTS0 PC-WORD-READ . PC-INDEX) (IMMEDIATE-DEPENDENTS0 PC-INDEX1 . PC-INDEX) (IMMEDIATE-DEPENDENTS0 MC-MEM . PC-INDEX) (IMMEDIATE-DEPENDENTS0 PC-WORD-READP . PC-INDEX) (DCELL . *1*PC-INDEX))))) (PUT1-LST (QUOTE *1*PC-INDEX1) (QUOTE (MAIN-EVENT PC-INDEX1))) (PUT1-LST (QUOTE PC-INDEX1) (QUOTE (TYPE-PRESCRIPTION-LST ((PC-INDEX1 16 NIL NIL NIL)) TOTALP-LST ((PC-INDEX1 . T)) SDEFN (LAMBDA (PC INDEXWD S) (IF (B0P (BITN INDEXWD (QUOTE 8))) (PC-INDEX-DISP PC INDEXWD S) (IF (B0P (BITN INDEXWD (QUOTE 3))) (ADDR-INDEX2 (ADD (L) PC (WSZ)) (BS-PC PC INDEXWD) INDEXWD S) (CONS (HALT (RESERVED-SIGNAL) S) (QUOTE NIL))))) LISP-CODE *1*PC-INDEX1 SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*PC-INDEX1) IMMEDIATE-DEPENDENTS0 (PC-INDEX) EVENT (DEFN PC-INDEX1 (PC INDEXWD S) (IF (B0P (BITN INDEXWD (QUOTE 8))) (PC-INDEX-DISP PC INDEXWD S) (IF (B0P (BITN INDEXWD (QUOTE 3))) (ADDR-INDEX2 (ADD (L) PC (WSZ)) (BS-PC PC INDEXWD) INDEXWD S) (CONS (HALT (RESERVED-SIGNAL) S) (QUOTE NIL))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RESERVED-SIGNAL . PC-INDEX1) (IMMEDIATE-DEPENDENTS0 HALT . PC-INDEX1) (IMMEDIATE-DEPENDENTS0 BS-PC . PC-INDEX1) (IMMEDIATE-DEPENDENTS0 WSZ . PC-INDEX1) (IMMEDIATE-DEPENDENTS0 L . PC-INDEX1) (IMMEDIATE-DEPENDENTS0 ADD . PC-INDEX1) (IMMEDIATE-DEPENDENTS0 ADDR-INDEX2 . PC-INDEX1) (IMMEDIATE-DEPENDENTS0 PC-INDEX-DISP . PC-INDEX1) (IMMEDIATE-DEPENDENTS0 BITN . PC-INDEX1) (IMMEDIATE-DEPENDENTS0 B0P . PC-INDEX1) (DCELL . *1*PC-INDEX1))))) (PUT1-LST (QUOTE *1*BS-PC) (QUOTE (MAIN-EVENT BS-PC))) (PUT1-LST (QUOTE BS-PC) (QUOTE (TYPE-PRESCRIPTION-LST ((BS-PC 4 T NIL)) TOTALP-LST ((BS-PC . T)) SDEFN (LAMBDA (PC INDEXWD) (IF (B0P (BITN INDEXWD (QUOTE 7))) PC (QUOTE 0))) LISP-CODE *1*BS-PC SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*BS-PC) IMMEDIATE-DEPENDENTS0 (PC-INDEX1) EVENT (DEFN BS-PC (PC INDEXWD) (IF (B0P (BITN INDEXWD (QUOTE 7))) PC (QUOTE 0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN . BS-PC) (IMMEDIATE-DEPENDENTS0 B0P . BS-PC) (DCELL . *1*BS-PC))))) (PUT1-LST (QUOTE *1*PC-INDEX-DISP) (QUOTE (MAIN-EVENT PC-INDEX-DISP))) (PUT1-LST (QUOTE PC-INDEX-DISP) (QUOTE (TYPE-PRESCRIPTION-LST ((PC-INDEX-DISP 16 NIL NIL NIL)) TOTALP-LST ((PC-INDEX-DISP . T)) SDEFN (LAMBDA (PC INDEXWD S) (CONS (UPDATE-PC (ADD (L) PC (WSZ)) S) (CONS (QUOTE M) (ADD (L) (ADD (L) PC (EXT (B) (HEAD INDEXWD (B)) (L))) (IR-SCALED INDEXWD S))))) LISP-CODE *1*PC-INDEX-DISP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214824 SATELLITES (*1*PC-INDEX-DISP) IMMEDIATE-DEPENDENTS0 (PC-INDEX1) EVENT (DEFN PC-INDEX-DISP (PC INDEXWD S) (CONS (UPDATE-PC (ADD (L) PC (WSZ)) S) (CONS (QUOTE M) (ADD (L) (ADD (L) PC (EXT (B) (HEAD INDEXWD (B)) (L))) (IR-SCALED INDEXWD S))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IR-SCALED . PC-INDEX-DISP) (IMMEDIATE-DEPENDENTS0 HEAD . PC-INDEX-DISP) (IMMEDIATE-DEPENDENTS0 B . PC-INDEX-DISP) (IMMEDIATE-DEPENDENTS0 EXT . PC-INDEX-DISP) (IMMEDIATE-DEPENDENTS0 WSZ . PC-INDEX-DISP) (IMMEDIATE-DEPENDENTS0 L . PC-INDEX-DISP) (IMMEDIATE-DEPENDENTS0 ADD . PC-INDEX-DISP) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . PC-INDEX-DISP) (DCELL . *1*PC-INDEX-DISP))))) (PUT1-LST (QUOTE *1*PC-DISP) (QUOTE (MAIN-EVENT PC-DISP))) (PUT1-LST (QUOTE PC-DISP) (QUOTE (TYPE-PRESCRIPTION-LST ((PC-DISP 16 NIL NIL)) TOTALP-LST ((PC-DISP . T)) SDEFN (LAMBDA (PC S) (IF (PC-WORD-READP PC (MC-MEM S)) (CONS (UPDATE-PC (ADD (L) PC (WSZ)) S) (CONS (QUOTE M) (ADD (L) PC (EXT (W) (PC-WORD-READ PC (MC-MEM S)) (L))))) (CONS (HALT (PC-SIGNAL) S) (QUOTE NIL)))) LISP-CODE *1*PC-DISP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*PC-DISP) IMMEDIATE-DEPENDENTS0 (EFFEC-ADDR) EVENT (DEFN PC-DISP (PC S) (IF (PC-WORD-READP PC (MC-MEM S)) (CONS (UPDATE-PC (ADD (L) PC (WSZ)) S) (CONS (QUOTE M) (ADD (L) PC (EXT (W) (PC-WORD-READ PC (MC-MEM S)) (L))))) (CONS (HALT (PC-SIGNAL) S) (QUOTE NIL)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-SIGNAL . PC-DISP) (IMMEDIATE-DEPENDENTS0 HALT . PC-DISP) (IMMEDIATE-DEPENDENTS0 PC-WORD-READ . PC-DISP) (IMMEDIATE-DEPENDENTS0 W . PC-DISP) (IMMEDIATE-DEPENDENTS0 EXT . PC-DISP) (IMMEDIATE-DEPENDENTS0 WSZ . PC-DISP) (IMMEDIATE-DEPENDENTS0 L . PC-DISP) (IMMEDIATE-DEPENDENTS0 ADD . PC-DISP) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . PC-DISP) (IMMEDIATE-DEPENDENTS0 MC-MEM . PC-DISP) (IMMEDIATE-DEPENDENTS0 PC-WORD-READP . PC-DISP) (DCELL . *1*PC-DISP))))) (PUT1-LST (QUOTE *1*ABSOLUTE-LONG) (QUOTE (MAIN-EVENT ABSOLUTE-LONG))) (PUT1-LST (QUOTE ABSOLUTE-LONG) (QUOTE (TYPE-PRESCRIPTION-LST ((ABSOLUTE-LONG 16 NIL NIL)) TOTALP-LST ((ABSOLUTE-LONG . T)) SDEFN (LAMBDA (PC S) (IF (PC-LONG-READP PC (MC-MEM S)) (CONS (UPDATE-PC (ADD (L) PC (LSZ)) S) (CONS (QUOTE M) (PC-LONG-READ PC (MC-MEM S)))) (CONS (HALT (PC-SIGNAL) S) (QUOTE NIL)))) LISP-CODE *1*ABSOLUTE-LONG SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214824 SATELLITES (*1*ABSOLUTE-LONG) IMMEDIATE-DEPENDENTS0 (EFFEC-ADDR) EVENT (DEFN ABSOLUTE-LONG (PC S) (IF (PC-LONG-READP PC (MC-MEM S)) (CONS (UPDATE-PC (ADD (L) PC (LSZ)) S) (CONS (QUOTE M) (PC-LONG-READ PC (MC-MEM S)))) (CONS (HALT (PC-SIGNAL) S) (QUOTE NIL)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-SIGNAL . ABSOLUTE-LONG) (IMMEDIATE-DEPENDENTS0 HALT . ABSOLUTE-LONG) (IMMEDIATE-DEPENDENTS0 PC-LONG-READ . ABSOLUTE-LONG) (IMMEDIATE-DEPENDENTS0 LSZ . ABSOLUTE-LONG) (IMMEDIATE-DEPENDENTS0 L . ABSOLUTE-LONG) (IMMEDIATE-DEPENDENTS0 ADD . ABSOLUTE-LONG) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . ABSOLUTE-LONG) (IMMEDIATE-DEPENDENTS0 MC-MEM . ABSOLUTE-LONG) (IMMEDIATE-DEPENDENTS0 PC-LONG-READP . ABSOLUTE-LONG) (DCELL . *1*ABSOLUTE-LONG))))) (PUT1-LST (QUOTE *1*ABSOLUTE-SHORT) (QUOTE (MAIN-EVENT ABSOLUTE-SHORT))) (PUT1-LST (QUOTE ABSOLUTE-SHORT) (QUOTE (TYPE-PRESCRIPTION-LST ((ABSOLUTE-SHORT 16 NIL NIL)) TOTALP-LST ((ABSOLUTE-SHORT . T)) SDEFN (LAMBDA (PC S) (IF (PC-WORD-READP PC (MC-MEM S)) (CONS (UPDATE-PC (ADD (L) PC (WSZ)) S) (CONS (QUOTE M) (EXT (W) (PC-WORD-READ PC (MC-MEM S)) (L)))) (CONS (HALT (PC-SIGNAL) S) (QUOTE NIL)))) LISP-CODE *1*ABSOLUTE-SHORT SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214823 SATELLITES (*1*ABSOLUTE-SHORT) IMMEDIATE-DEPENDENTS0 (EFFEC-ADDR) EVENT (DEFN ABSOLUTE-SHORT (PC S) (IF (PC-WORD-READP PC (MC-MEM S)) (CONS (UPDATE-PC (ADD (L) PC (WSZ)) S) (CONS (QUOTE M) (EXT (W) (PC-WORD-READ PC (MC-MEM S)) (L)))) (CONS (HALT (PC-SIGNAL) S) (QUOTE NIL)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-SIGNAL . ABSOLUTE-SHORT) (IMMEDIATE-DEPENDENTS0 HALT . ABSOLUTE-SHORT) (IMMEDIATE-DEPENDENTS0 PC-WORD-READ . ABSOLUTE-SHORT) (IMMEDIATE-DEPENDENTS0 W . ABSOLUTE-SHORT) (IMMEDIATE-DEPENDENTS0 EXT . ABSOLUTE-SHORT) (IMMEDIATE-DEPENDENTS0 WSZ . ABSOLUTE-SHORT) (IMMEDIATE-DEPENDENTS0 L . ABSOLUTE-SHORT) (IMMEDIATE-DEPENDENTS0 ADD . ABSOLUTE-SHORT) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . ABSOLUTE-SHORT) (IMMEDIATE-DEPENDENTS0 MC-MEM . ABSOLUTE-SHORT) (IMMEDIATE-DEPENDENTS0 PC-WORD-READP . ABSOLUTE-SHORT) (DCELL . *1*ABSOLUTE-SHORT))))) (PUT1-LST (QUOTE *1*ADDR-INDEX) (QUOTE (MAIN-EVENT ADDR-INDEX))) (PUT1-LST (QUOTE ADDR-INDEX) (QUOTE (TYPE-PRESCRIPTION-LST ((ADDR-INDEX 16 NIL NIL NIL)) TOTALP-LST ((ADDR-INDEX . T)) SDEFN (LAMBDA (PC RN S) (IF (PC-WORD-READP PC (MC-MEM S)) (ADDR-INDEX1 (ADD (L) PC (WSZ)) RN (PC-WORD-READ PC (MC-MEM S)) S) (CONS (HALT (PC-SIGNAL) S) (QUOTE NIL)))) LISP-CODE *1*ADDR-INDEX SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214823 SATELLITES (*1*ADDR-INDEX) IMMEDIATE-DEPENDENTS0 (EFFEC-ADDR) EVENT (DEFN ADDR-INDEX (PC RN S) (IF (PC-WORD-READP PC (MC-MEM S)) (ADDR-INDEX1 (ADD (L) PC (WSZ)) RN (PC-WORD-READ PC (MC-MEM S)) S) (CONS (HALT (PC-SIGNAL) S) (QUOTE NIL)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-SIGNAL . ADDR-INDEX) (IMMEDIATE-DEPENDENTS0 HALT . ADDR-INDEX) (IMMEDIATE-DEPENDENTS0 PC-WORD-READ . ADDR-INDEX) (IMMEDIATE-DEPENDENTS0 WSZ . ADDR-INDEX) (IMMEDIATE-DEPENDENTS0 L . ADDR-INDEX) (IMMEDIATE-DEPENDENTS0 ADD . ADDR-INDEX) (IMMEDIATE-DEPENDENTS0 ADDR-INDEX1 . ADDR-INDEX) (IMMEDIATE-DEPENDENTS0 MC-MEM . ADDR-INDEX) (IMMEDIATE-DEPENDENTS0 PC-WORD-READP . ADDR-INDEX) (DCELL . *1*ADDR-INDEX))))) (PUT1-LST (QUOTE *1*ADDR-INDEX1) (QUOTE (MAIN-EVENT ADDR-INDEX1))) (PUT1-LST (QUOTE ADDR-INDEX1) (QUOTE (TYPE-PRESCRIPTION-LST ((ADDR-INDEX1 16 NIL NIL NIL NIL)) TOTALP-LST ((ADDR-INDEX1 . T)) SDEFN (LAMBDA (PC RN INDEXWD S) (IF (B0P (BITN INDEXWD (QUOTE 8))) (ADDR-INDEX-DISP PC RN INDEXWD S) (IF (B0P (BITN INDEXWD (QUOTE 3))) (ADDR-INDEX2 PC (BS-REGISTER RN INDEXWD S) INDEXWD S) (CONS (HALT (RESERVED-SIGNAL) S) (QUOTE NIL))))) LISP-CODE *1*ADDR-INDEX1 SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214823 SATELLITES (*1*ADDR-INDEX1) IMMEDIATE-DEPENDENTS0 (ADDR-INDEX) EVENT (DEFN ADDR-INDEX1 (PC RN INDEXWD S) (IF (B0P (BITN INDEXWD (QUOTE 8))) (ADDR-INDEX-DISP PC RN INDEXWD S) (IF (B0P (BITN INDEXWD (QUOTE 3))) (ADDR-INDEX2 PC (BS-REGISTER RN INDEXWD S) INDEXWD S) (CONS (HALT (RESERVED-SIGNAL) S) (QUOTE NIL))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 RESERVED-SIGNAL . ADDR-INDEX1) (IMMEDIATE-DEPENDENTS0 HALT . ADDR-INDEX1) (IMMEDIATE-DEPENDENTS0 BS-REGISTER . ADDR-INDEX1) (IMMEDIATE-DEPENDENTS0 ADDR-INDEX2 . ADDR-INDEX1) (IMMEDIATE-DEPENDENTS0 ADDR-INDEX-DISP . ADDR-INDEX1) (IMMEDIATE-DEPENDENTS0 BITN . ADDR-INDEX1) (IMMEDIATE-DEPENDENTS0 B0P . ADDR-INDEX1) (DCELL . *1*ADDR-INDEX1))))) (PUT1-LST (QUOTE *1*BS-REGISTER) (QUOTE (MAIN-EVENT BS-REGISTER))) (PUT1-LST (QUOTE BS-REGISTER) (QUOTE (TYPE-PRESCRIPTION-LST ((BS-REGISTER 4 NIL NIL NIL)) TOTALP-LST ((BS-REGISTER . T)) SDEFN (LAMBDA (RN INDEXWD S) (IF (B0P (BITN INDEXWD (QUOTE 7))) (READ-AN (L) RN S) (QUOTE 0))) LISP-CODE *1*BS-REGISTER SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*BS-REGISTER) IMMEDIATE-DEPENDENTS0 (ADDR-INDEX1) EVENT (DEFN BS-REGISTER (RN INDEXWD S) (IF (B0P (BITN INDEXWD (QUOTE 7))) (READ-AN (L) RN S) (QUOTE 0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 L . BS-REGISTER) (IMMEDIATE-DEPENDENTS0 READ-AN . BS-REGISTER) (IMMEDIATE-DEPENDENTS0 BITN . BS-REGISTER) (IMMEDIATE-DEPENDENTS0 B0P . BS-REGISTER) (DCELL . *1*BS-REGISTER))))) (PUT1-LST (QUOTE *1*ADDR-INDEX2) (QUOTE (MAIN-EVENT ADDR-INDEX2))) (PUT1-LST (QUOTE ADDR-INDEX2) (QUOTE (TYPE-PRESCRIPTION-LST ((ADDR-INDEX2 16 NIL NIL NIL NIL)) TOTALP-LST ((ADDR-INDEX2 . T)) SDEFN (LAMBDA (PC ADDR INDEXWD S) (IF (LESSP (BD-SZ INDEXWD) (QUOTE 2)) (IF (EQUAL (BD-SZ INDEXWD) (QUOTE 0)) (CONS (HALT (RESERVED-SIGNAL) S) (QUOTE NIL)) (ADDR-INDEX3 PC ADDR INDEXWD S)) (IF (EQUAL (BD-SZ INDEXWD) (QUOTE 2)) (IF (PC-WORD-READP PC (MC-MEM S)) (ADDR-INDEX3 (ADD (L) PC (WSZ)) (ADD (L) ADDR (EXT (W) (PC-WORD-READ PC (MC-MEM S)) (L))) INDEXWD S) (CONS (HALT (PC-SIGNAL) S) (QUOTE NIL))) (IF (PC-LONG-READP PC (MC-MEM S)) (ADDR-INDEX3 (ADD (L) PC (LSZ)) (ADD (L) ADDR (PC-LONG-READ PC (MC-MEM S))) INDEXWD S) (CONS (HALT (PC-SIGNAL) S) (QUOTE NIL)))))) LISP-CODE *1*ADDR-INDEX2 SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214823 SATELLITES (*1*ADDR-INDEX2) IMMEDIATE-DEPENDENTS0 (PC-INDEX1 ADDR-INDEX1) EVENT (DEFN ADDR-INDEX2 (PC ADDR INDEXWD S) (IF (LESSP (BD-SZ INDEXWD) (QUOTE 2)) (IF (EQUAL (BD-SZ INDEXWD) (QUOTE 0)) (CONS (HALT (RESERVED-SIGNAL) S) (QUOTE NIL)) (ADDR-INDEX3 PC ADDR INDEXWD S)) (IF (EQUAL (BD-SZ INDEXWD) (QUOTE 2)) (IF (PC-WORD-READP PC (MC-MEM S)) (ADDR-INDEX3 (ADD (L) PC (WSZ)) (ADD (L) ADDR (EXT (W) (PC-WORD-READ PC (MC-MEM S)) (L))) INDEXWD S) (CONS (HALT (PC-SIGNAL) S) (QUOTE NIL))) (IF (PC-LONG-READP PC (MC-MEM S)) (ADDR-INDEX3 (ADD (L) PC (LSZ)) (ADD (L) ADDR (PC-LONG-READ PC (MC-MEM S))) INDEXWD S) (CONS (HALT (PC-SIGNAL) S) (QUOTE NIL)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-LONG-READ . ADDR-INDEX2) (IMMEDIATE-DEPENDENTS0 LSZ . ADDR-INDEX2) (IMMEDIATE-DEPENDENTS0 PC-LONG-READP . ADDR-INDEX2) (IMMEDIATE-DEPENDENTS0 PC-SIGNAL . ADDR-INDEX2) (IMMEDIATE-DEPENDENTS0 PC-WORD-READ . ADDR-INDEX2) (IMMEDIATE-DEPENDENTS0 W . ADDR-INDEX2) (IMMEDIATE-DEPENDENTS0 EXT . ADDR-INDEX2) (IMMEDIATE-DEPENDENTS0 WSZ . ADDR-INDEX2) (IMMEDIATE-DEPENDENTS0 L . ADDR-INDEX2) (IMMEDIATE-DEPENDENTS0 ADD . ADDR-INDEX2) (IMMEDIATE-DEPENDENTS0 MC-MEM . ADDR-INDEX2) (IMMEDIATE-DEPENDENTS0 PC-WORD-READP . ADDR-INDEX2) (IMMEDIATE-DEPENDENTS0 ADDR-INDEX3 . ADDR-INDEX2) (IMMEDIATE-DEPENDENTS0 RESERVED-SIGNAL . ADDR-INDEX2) (IMMEDIATE-DEPENDENTS0 HALT . ADDR-INDEX2) (IMMEDIATE-DEPENDENTS0 BD-SZ . ADDR-INDEX2) (DCELL . *1*ADDR-INDEX2))))) (PUT1-LST (QUOTE *1*BD-SZ) (QUOTE (MAIN-EVENT BD-SZ))) (PUT1-LST (QUOTE BD-SZ) (QUOTE (TYPE-PRESCRIPTION-LST ((BD-SZ 4 NIL)) TOTALP-LST ((BD-SZ . T)) SDEFN (LAMBDA (INDEXWD) (BITS INDEXWD (QUOTE 4) (QUOTE 5))) LISP-CODE *1*BD-SZ SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*BD-SZ) IMMEDIATE-DEPENDENTS0 (ADDR-INDEX2) EVENT (DEFN BD-SZ (INDEXWD) (BITS INDEXWD (QUOTE 4) (QUOTE 5))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITS . BD-SZ) (DCELL . *1*BD-SZ))))) (PUT1-LST (QUOTE *1*ADDR-INDEX3) (QUOTE (MAIN-EVENT ADDR-INDEX3))) (PUT1-LST (QUOTE ADDR-INDEX3) (QUOTE (TYPE-PRESCRIPTION-LST ((ADDR-INDEX3 16 NIL NIL NIL NIL)) TOTALP-LST ((ADDR-INDEX3 . T)) SDEFN (LAMBDA (PC ADDR INDEXWD S) (IF (B0P (BITN INDEXWD (QUOTE 6))) (IF (LESSP (I-IS INDEXWD) (QUOTE 4)) (IF (LESSP (I-IS INDEXWD) (QUOTE 2)) (IF (EQUAL (I-IS INDEXWD) (QUOTE 0)) (ADDR-INDEX-BD PC ADDR INDEXWD S) (MEM-PREINDEX PC ADDR INDEXWD (QUOTE 0) S)) (IF (EQUAL (I-IS INDEXWD) (QUOTE 2)) (MEM-PREINDEX PC ADDR INDEXWD (W) S) (MEM-PREINDEX PC ADDR INDEXWD (L) S))) (IF (LESSP (I-IS INDEXWD) (QUOTE 6)) (IF (EQUAL (I-IS INDEXWD) (QUOTE 4)) (CONS (HALT (RESERVED-SIGNAL) S) (QUOTE NIL)) (MEM-POSTINDEX PC ADDR INDEXWD (QUOTE 0) S)) (IF (EQUAL (I-IS INDEXWD) (QUOTE 6)) (MEM-POSTINDEX PC ADDR INDEXWD (W) S) (MEM-POSTINDEX PC ADDR INDEXWD (L) S)))) (IF (LESSP (I-IS INDEXWD) (QUOTE 4)) (IF (LESSP (I-IS INDEXWD) (QUOTE 2)) (IF (EQUAL (I-IS INDEXWD) (QUOTE 0)) (CONS (UPDATE-PC PC S) (CONS (QUOTE M) ADDR)) (MEM-INDIRECT PC ADDR (QUOTE 0) S)) (IF (EQUAL (I-IS INDEXWD) (QUOTE 2)) (MEM-INDIRECT PC ADDR (W) S) (MEM-INDIRECT PC ADDR (L) S))) (CONS (HALT (RESERVED-SIGNAL) S) (QUOTE NIL))))) LISP-CODE *1*ADDR-INDEX3 SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214823 SATELLITES (*1*ADDR-INDEX3) IMMEDIATE-DEPENDENTS0 (ADDR-INDEX2) EVENT (DEFN ADDR-INDEX3 (PC ADDR INDEXWD S) (IF (B0P (BITN INDEXWD (QUOTE 6))) (IF (LESSP (I-IS INDEXWD) (QUOTE 4)) (IF (LESSP (I-IS INDEXWD) (QUOTE 2)) (IF (EQUAL (I-IS INDEXWD) (QUOTE 0)) (ADDR-INDEX-BD PC ADDR INDEXWD S) (MEM-PREINDEX PC ADDR INDEXWD (QUOTE 0) S)) (IF (EQUAL (I-IS INDEXWD) (QUOTE 2)) (MEM-PREINDEX PC ADDR INDEXWD (W) S) (MEM-PREINDEX PC ADDR INDEXWD (L) S))) (IF (LESSP (I-IS INDEXWD) (QUOTE 6)) (IF (EQUAL (I-IS INDEXWD) (QUOTE 4)) (CONS (HALT (RESERVED-SIGNAL) S) (QUOTE NIL)) (MEM-POSTINDEX PC ADDR INDEXWD (QUOTE 0) S)) (IF (EQUAL (I-IS INDEXWD) (QUOTE 6)) (MEM-POSTINDEX PC ADDR INDEXWD (W) S) (MEM-POSTINDEX PC ADDR INDEXWD (L) S)))) (IF (LESSP (I-IS INDEXWD) (QUOTE 4)) (IF (LESSP (I-IS INDEXWD) (QUOTE 2)) (IF (EQUAL (I-IS INDEXWD) (QUOTE 0)) (CONS (UPDATE-PC PC S) (CONS (QUOTE M) ADDR)) (MEM-INDIRECT PC ADDR (QUOTE 0) S)) (IF (EQUAL (I-IS INDEXWD) (QUOTE 2)) (MEM-INDIRECT PC ADDR (W) S) (MEM-INDIRECT PC ADDR (L) S))) (CONS (HALT (RESERVED-SIGNAL) S) (QUOTE NIL))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEM-INDIRECT . ADDR-INDEX3) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . ADDR-INDEX3) (IMMEDIATE-DEPENDENTS0 MEM-POSTINDEX . ADDR-INDEX3) (IMMEDIATE-DEPENDENTS0 RESERVED-SIGNAL . ADDR-INDEX3) (IMMEDIATE-DEPENDENTS0 HALT . ADDR-INDEX3) (IMMEDIATE-DEPENDENTS0 L . ADDR-INDEX3) (IMMEDIATE-DEPENDENTS0 W . ADDR-INDEX3) (IMMEDIATE-DEPENDENTS0 MEM-PREINDEX . ADDR-INDEX3) (IMMEDIATE-DEPENDENTS0 ADDR-INDEX-BD . ADDR-INDEX3) (IMMEDIATE-DEPENDENTS0 I-IS . ADDR-INDEX3) (IMMEDIATE-DEPENDENTS0 BITN . ADDR-INDEX3) (IMMEDIATE-DEPENDENTS0 B0P . ADDR-INDEX3) (DCELL . *1*ADDR-INDEX3))))) (PUT1-LST (QUOTE *1*I-IS) (QUOTE (MAIN-EVENT I-IS))) (PUT1-LST (QUOTE I-IS) (QUOTE (TYPE-PRESCRIPTION-LST ((I-IS 4 NIL)) TOTALP-LST ((I-IS . T)) SDEFN (LAMBDA (INDEXWD) (BITS INDEXWD (QUOTE 0) (QUOTE 2))) LISP-CODE *1*I-IS SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*I-IS) IMMEDIATE-DEPENDENTS0 (ADDR-INDEX3) EVENT (DEFN I-IS (INDEXWD) (BITS INDEXWD (QUOTE 0) (QUOTE 2))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITS . I-IS) (DCELL . *1*I-IS))))) (PUT1-LST (QUOTE *1*MEM-PREINDEX) (QUOTE (MAIN-EVENT MEM-PREINDEX))) (PUT1-LST (QUOTE MEM-PREINDEX) (QUOTE (TYPE-PRESCRIPTION-LST ((MEM-PREINDEX 16 NIL NIL NIL NIL NIL)) TOTALP-LST ((MEM-PREINDEX . T)) SDEFN (LAMBDA (PC ADDR INDEXWD OLEN S) (MEM-INDIRECT PC (ADD (L) ADDR (IR-SCALED INDEXWD S)) OLEN S)) LISP-CODE *1*MEM-PREINDEX SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214823 SATELLITES (*1*MEM-PREINDEX) IMMEDIATE-DEPENDENTS0 (ADDR-INDEX3) EVENT (DEFN MEM-PREINDEX (PC ADDR INDEXWD OLEN S) (MEM-INDIRECT PC (ADD (L) ADDR (IR-SCALED INDEXWD S)) OLEN S)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IR-SCALED . MEM-PREINDEX) (IMMEDIATE-DEPENDENTS0 L . MEM-PREINDEX) (IMMEDIATE-DEPENDENTS0 ADD . MEM-PREINDEX) (IMMEDIATE-DEPENDENTS0 MEM-INDIRECT . MEM-PREINDEX) (DCELL . *1*MEM-PREINDEX))))) (PUT1-LST (QUOTE *1*MEM-POSTINDEX) (QUOTE (MAIN-EVENT MEM-POSTINDEX))) (PUT1-LST (QUOTE MEM-POSTINDEX) (QUOTE (TYPE-PRESCRIPTION-LST ((MEM-POSTINDEX 16 NIL NIL NIL NIL NIL)) TOTALP-LST ((MEM-POSTINDEX . T)) SDEFN (LAMBDA (PC ADDR INDEXWD OLEN S) (IF (LONG-READP ADDR (MC-MEM S)) (IF (PC-READ-MEMP PC (MC-MEM S) (OP-SZ OLEN)) (CONS (UPDATE-PC (ADD (L) PC (OP-SZ OLEN)) S) (CONS (QUOTE M) (ADD (L) (ADD (L) (LONG-READ ADDR (MC-MEM S)) (IR-SCALED INDEXWD S)) (EXT OLEN (PC-READ-MEM PC (MC-MEM S) (OP-SZ OLEN)) (L))))) (CONS (HALT (PC-SIGNAL) S) (QUOTE NIL))) (CONS (HALT (READ-SIGNAL) S) (QUOTE NIL)))) LISP-CODE *1*MEM-POSTINDEX SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214823 SATELLITES (*1*MEM-POSTINDEX) IMMEDIATE-DEPENDENTS0 (ADDR-INDEX3) EVENT (DEFN MEM-POSTINDEX (PC ADDR INDEXWD OLEN S) (IF (LONG-READP ADDR (MC-MEM S)) (IF (PC-READ-MEMP PC (MC-MEM S) (OP-SZ OLEN)) (CONS (UPDATE-PC (ADD (L) PC (OP-SZ OLEN)) S) (CONS (QUOTE M) (ADD (L) (ADD (L) (LONG-READ ADDR (MC-MEM S)) (IR-SCALED INDEXWD S)) (EXT OLEN (PC-READ-MEM PC (MC-MEM S) (OP-SZ OLEN)) (L))))) (CONS (HALT (PC-SIGNAL) S) (QUOTE NIL))) (CONS (HALT (READ-SIGNAL) S) (QUOTE NIL)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-SIGNAL . MEM-POSTINDEX) (IMMEDIATE-DEPENDENTS0 PC-SIGNAL . MEM-POSTINDEX) (IMMEDIATE-DEPENDENTS0 HALT . MEM-POSTINDEX) (IMMEDIATE-DEPENDENTS0 PC-READ-MEM . MEM-POSTINDEX) (IMMEDIATE-DEPENDENTS0 EXT . MEM-POSTINDEX) (IMMEDIATE-DEPENDENTS0 IR-SCALED . MEM-POSTINDEX) (IMMEDIATE-DEPENDENTS0 LONG-READ . MEM-POSTINDEX) (IMMEDIATE-DEPENDENTS0 L . MEM-POSTINDEX) (IMMEDIATE-DEPENDENTS0 ADD . MEM-POSTINDEX) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . MEM-POSTINDEX) (IMMEDIATE-DEPENDENTS0 OP-SZ . MEM-POSTINDEX) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP . MEM-POSTINDEX) (IMMEDIATE-DEPENDENTS0 MC-MEM . MEM-POSTINDEX) (IMMEDIATE-DEPENDENTS0 LONG-READP . MEM-POSTINDEX) (DCELL . *1*MEM-POSTINDEX))))) (PUT1-LST (QUOTE *1*MEM-INDIRECT) (QUOTE (MAIN-EVENT MEM-INDIRECT))) (PUT1-LST (QUOTE MEM-INDIRECT) (QUOTE (TYPE-PRESCRIPTION-LST ((MEM-INDIRECT 16 NIL NIL NIL NIL)) TOTALP-LST ((MEM-INDIRECT . T)) SDEFN (LAMBDA (PC ADDR OLEN S) (IF (LONG-READP ADDR (MC-MEM S)) (IF (PC-READ-MEMP PC (MC-MEM S) (OP-SZ OLEN)) (CONS (UPDATE-PC (ADD (L) PC (OP-SZ OLEN)) S) (CONS (QUOTE M) (ADD (L) (LONG-READ ADDR (MC-MEM S)) (EXT OLEN (PC-READ-MEM PC (MC-MEM S) (OP-SZ OLEN)) (L))))) (CONS (HALT (PC-SIGNAL) S) (QUOTE NIL))) (CONS (HALT (READ-SIGNAL) S) (QUOTE NIL)))) LISP-CODE *1*MEM-INDIRECT SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214823 SATELLITES (*1*MEM-INDIRECT) IMMEDIATE-DEPENDENTS0 (ADDR-INDEX3 MEM-PREINDEX) EVENT (DEFN MEM-INDIRECT (PC ADDR OLEN S) (IF (LONG-READP ADDR (MC-MEM S)) (IF (PC-READ-MEMP PC (MC-MEM S) (OP-SZ OLEN)) (CONS (UPDATE-PC (ADD (L) PC (OP-SZ OLEN)) S) (CONS (QUOTE M) (ADD (L) (LONG-READ ADDR (MC-MEM S)) (EXT OLEN (PC-READ-MEM PC (MC-MEM S) (OP-SZ OLEN)) (L))))) (CONS (HALT (PC-SIGNAL) S) (QUOTE NIL))) (CONS (HALT (READ-SIGNAL) S) (QUOTE NIL)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-SIGNAL . MEM-INDIRECT) (IMMEDIATE-DEPENDENTS0 PC-SIGNAL . MEM-INDIRECT) (IMMEDIATE-DEPENDENTS0 HALT . MEM-INDIRECT) (IMMEDIATE-DEPENDENTS0 PC-READ-MEM . MEM-INDIRECT) (IMMEDIATE-DEPENDENTS0 EXT . MEM-INDIRECT) (IMMEDIATE-DEPENDENTS0 LONG-READ . MEM-INDIRECT) (IMMEDIATE-DEPENDENTS0 L . MEM-INDIRECT) (IMMEDIATE-DEPENDENTS0 ADD . MEM-INDIRECT) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . MEM-INDIRECT) (IMMEDIATE-DEPENDENTS0 OP-SZ . MEM-INDIRECT) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP . MEM-INDIRECT) (IMMEDIATE-DEPENDENTS0 MC-MEM . MEM-INDIRECT) (IMMEDIATE-DEPENDENTS0 LONG-READP . MEM-INDIRECT) (DCELL . *1*MEM-INDIRECT))))) (PUT1-LST (QUOTE *1*ADDR-INDEX-BD) (QUOTE (MAIN-EVENT ADDR-INDEX-BD))) (PUT1-LST (QUOTE ADDR-INDEX-BD) (QUOTE (TYPE-PRESCRIPTION-LST ((ADDR-INDEX-BD 16 NIL NIL NIL NIL)) TOTALP-LST ((ADDR-INDEX-BD . T)) SDEFN (LAMBDA (PC ADDR INDEXWD S) (CONS (UPDATE-PC PC S) (CONS (QUOTE M) (ADD (L) ADDR (IR-SCALED INDEXWD S))))) LISP-CODE *1*ADDR-INDEX-BD SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*ADDR-INDEX-BD) IMMEDIATE-DEPENDENTS0 (ADDR-INDEX3) EVENT (DEFN ADDR-INDEX-BD (PC ADDR INDEXWD S) (CONS (UPDATE-PC PC S) (CONS (QUOTE M) (ADD (L) ADDR (IR-SCALED INDEXWD S))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IR-SCALED . ADDR-INDEX-BD) (IMMEDIATE-DEPENDENTS0 L . ADDR-INDEX-BD) (IMMEDIATE-DEPENDENTS0 ADD . ADDR-INDEX-BD) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . ADDR-INDEX-BD) (DCELL . *1*ADDR-INDEX-BD))))) (PUT1-LST (QUOTE *1*ADDR-INDEX-DISP) (QUOTE (MAIN-EVENT ADDR-INDEX-DISP))) (PUT1-LST (QUOTE ADDR-INDEX-DISP) (QUOTE (TYPE-PRESCRIPTION-LST ((ADDR-INDEX-DISP 16 NIL NIL NIL NIL)) TOTALP-LST ((ADDR-INDEX-DISP . T)) SDEFN (LAMBDA (PC RN INDEXWD S) (CONS (UPDATE-PC PC S) (CONS (QUOTE M) (ADD (L) (ADD (L) (READ-AN (L) RN S) (EXT (B) (HEAD INDEXWD (B)) (L))) (IR-SCALED INDEXWD S))))) LISP-CODE *1*ADDR-INDEX-DISP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*ADDR-INDEX-DISP) IMMEDIATE-DEPENDENTS0 (ADDR-INDEX1) EVENT (DEFN ADDR-INDEX-DISP (PC RN INDEXWD S) (CONS (UPDATE-PC PC S) (CONS (QUOTE M) (ADD (L) (ADD (L) (READ-AN (L) RN S) (EXT (B) (HEAD INDEXWD (B)) (L))) (IR-SCALED INDEXWD S))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 IR-SCALED . ADDR-INDEX-DISP) (IMMEDIATE-DEPENDENTS0 HEAD . ADDR-INDEX-DISP) (IMMEDIATE-DEPENDENTS0 B . ADDR-INDEX-DISP) (IMMEDIATE-DEPENDENTS0 EXT . ADDR-INDEX-DISP) (IMMEDIATE-DEPENDENTS0 READ-AN . ADDR-INDEX-DISP) (IMMEDIATE-DEPENDENTS0 L . ADDR-INDEX-DISP) (IMMEDIATE-DEPENDENTS0 ADD . ADDR-INDEX-DISP) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . ADDR-INDEX-DISP) (DCELL . *1*ADDR-INDEX-DISP))))) (PUT1-LST (QUOTE *1*IR-SCALED) (QUOTE (MAIN-EVENT IR-SCALED))) (PUT1-LST (QUOTE IR-SCALED) (QUOTE (TYPE-PRESCRIPTION-LST ((IR-SCALED 4 NIL NIL)) TOTALP-LST ((IR-SCALED . T)) SDEFN (LAMBDA (INDEXWD S) (ASL (L) (INDEX-REGISTER INDEXWD S) (BITS INDEXWD (QUOTE 9) (QUOTE 10)))) LISP-CODE *1*IR-SCALED SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*IR-SCALED) IMMEDIATE-DEPENDENTS0 (PC-INDEX-DISP MEM-PREINDEX MEM-POSTINDEX ADDR-INDEX-BD ADDR-INDEX-DISP) EVENT (DEFN IR-SCALED (INDEXWD S) (ASL (L) (INDEX-REGISTER INDEXWD S) (BITS INDEXWD (QUOTE 9) (QUOTE 10)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITS . IR-SCALED) (IMMEDIATE-DEPENDENTS0 INDEX-REGISTER . IR-SCALED) (IMMEDIATE-DEPENDENTS0 L . IR-SCALED) (IMMEDIATE-DEPENDENTS0 ASL . IR-SCALED) (DCELL . *1*IR-SCALED))))) (PUT1-LST (QUOTE *1*INDEX-REGISTER) (QUOTE (MAIN-EVENT INDEX-REGISTER))) (PUT1-LST (QUOTE INDEX-REGISTER) (QUOTE (TYPE-PRESCRIPTION-LST ((INDEX-REGISTER 4 NIL NIL)) TOTALP-LST ((INDEX-REGISTER . T)) SDEFN (LAMBDA (INDEXWD S) (IF (B0P (BITN INDEXWD (QUOTE 15))) (IF (B0P (BITN INDEXWD (QUOTE 11))) (EXT (W) (READ-DN (W) (INDEX-RN INDEXWD) S) (L)) (READ-DN (L) (INDEX-RN INDEXWD) S)) (IF (B0P (BITN INDEXWD (QUOTE 11))) (EXT (W) (READ-AN (W) (INDEX-RN INDEXWD) S) (L)) (READ-AN (L) (INDEX-RN INDEXWD) S)))) LISP-CODE *1*INDEX-REGISTER SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*INDEX-REGISTER) IMMEDIATE-DEPENDENTS0 (IR-SCALED) EVENT (DEFN INDEX-REGISTER (INDEXWD S) (IF (B0P (BITN INDEXWD (QUOTE 15))) (IF (B0P (BITN INDEXWD (QUOTE 11))) (EXT (W) (READ-DN (W) (INDEX-RN INDEXWD) S) (L)) (READ-DN (L) (INDEX-RN INDEXWD) S)) (IF (B0P (BITN INDEXWD (QUOTE 11))) (EXT (W) (READ-AN (W) (INDEX-RN INDEXWD) S) (L)) (READ-AN (L) (INDEX-RN INDEXWD) S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-AN . INDEX-REGISTER) (IMMEDIATE-DEPENDENTS0 L . INDEX-REGISTER) (IMMEDIATE-DEPENDENTS0 INDEX-RN . INDEX-REGISTER) (IMMEDIATE-DEPENDENTS0 READ-DN . INDEX-REGISTER) (IMMEDIATE-DEPENDENTS0 W . INDEX-REGISTER) (IMMEDIATE-DEPENDENTS0 EXT . INDEX-REGISTER) (IMMEDIATE-DEPENDENTS0 BITN . INDEX-REGISTER) (IMMEDIATE-DEPENDENTS0 B0P . INDEX-REGISTER) (DCELL . *1*INDEX-REGISTER))))) (PUT1-LST (QUOTE *1*INDEX-RN) (QUOTE (MAIN-EVENT INDEX-RN))) (PUT1-LST (QUOTE INDEX-RN) (QUOTE (TYPE-PRESCRIPTION-LST ((INDEX-RN 4 NIL)) TOTALP-LST ((INDEX-RN . T)) SDEFN (LAMBDA (INDEXWD) (BITS INDEXWD (QUOTE 12) (QUOTE 14))) LISP-CODE *1*INDEX-RN SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*INDEX-RN) IMMEDIATE-DEPENDENTS0 (INDEX-REGISTER) EVENT (DEFN INDEX-RN (INDEXWD) (BITS INDEXWD (QUOTE 12) (QUOTE 14))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITS . INDEX-RN) (DCELL . *1*INDEX-RN))))) (PUT1-LST (QUOTE *1*ADDR-DISP) (QUOTE (MAIN-EVENT ADDR-DISP))) (PUT1-LST (QUOTE ADDR-DISP) (QUOTE (TYPE-PRESCRIPTION-LST ((ADDR-DISP 16 NIL NIL NIL)) TOTALP-LST ((ADDR-DISP . T)) SDEFN (LAMBDA (PC RN S) (IF (PC-WORD-READP PC (MC-MEM S)) (CONS (UPDATE-PC (ADD (L) PC (WSZ)) S) (CONS (QUOTE M) (ADD (L) (READ-AN (L) RN S) (EXT (W) (PC-WORD-READ PC (MC-MEM S)) (L))))) (CONS (HALT (PC-SIGNAL) S) (QUOTE NIL)))) LISP-CODE *1*ADDR-DISP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214823 SATELLITES (*1*ADDR-DISP) IMMEDIATE-DEPENDENTS0 (MOVEP-INS EFFEC-ADDR) EVENT (DEFN ADDR-DISP (PC RN S) (IF (PC-WORD-READP PC (MC-MEM S)) (CONS (UPDATE-PC (ADD (L) PC (WSZ)) S) (CONS (QUOTE M) (ADD (L) (READ-AN (L) RN S) (EXT (W) (PC-WORD-READ PC (MC-MEM S)) (L))))) (CONS (HALT (PC-SIGNAL) S) (QUOTE NIL)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-SIGNAL . ADDR-DISP) (IMMEDIATE-DEPENDENTS0 HALT . ADDR-DISP) (IMMEDIATE-DEPENDENTS0 PC-WORD-READ . ADDR-DISP) (IMMEDIATE-DEPENDENTS0 W . ADDR-DISP) (IMMEDIATE-DEPENDENTS0 EXT . ADDR-DISP) (IMMEDIATE-DEPENDENTS0 READ-AN . ADDR-DISP) (IMMEDIATE-DEPENDENTS0 WSZ . ADDR-DISP) (IMMEDIATE-DEPENDENTS0 L . ADDR-DISP) (IMMEDIATE-DEPENDENTS0 ADD . ADDR-DISP) (IMMEDIATE-DEPENDENTS0 UPDATE-PC . ADDR-DISP) (IMMEDIATE-DEPENDENTS0 MC-MEM . ADDR-DISP) (IMMEDIATE-DEPENDENTS0 PC-WORD-READP . ADDR-DISP) (DCELL . *1*ADDR-DISP))))) (PUT1-LST (QUOTE *1*ADDR-PREDEC) (QUOTE (MAIN-EVENT ADDR-PREDEC))) (PUT1-LST (QUOTE ADDR-PREDEC) (QUOTE (TYPE-PRESCRIPTION-LST ((ADDR-PREDEC 16 NIL NIL NIL)) TOTALP-LST ((ADDR-PREDEC . T)) SDEFN (LAMBDA (OPLEN RN S) (CONS (WRITE-AN (L) (PRE-EFFECT OPLEN RN (READ-AN (L) RN S)) RN S) (CONS (QUOTE M) (PRE-EFFECT OPLEN RN (READ-AN (L) RN S))))) LISP-CODE *1*ADDR-PREDEC SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*ADDR-PREDEC) IMMEDIATE-DEPENDENTS0 (SUBX-INS2 ADDX-INS2 EFFEC-ADDR) EVENT (DEFN ADDR-PREDEC (OPLEN RN S) (CONS (WRITE-AN (L) (PRE-EFFECT OPLEN RN (READ-AN (L) RN S)) RN S) (CONS (QUOTE M) (PRE-EFFECT OPLEN RN (READ-AN (L) RN S))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-AN . ADDR-PREDEC) (IMMEDIATE-DEPENDENTS0 PRE-EFFECT . ADDR-PREDEC) (IMMEDIATE-DEPENDENTS0 L . ADDR-PREDEC) (IMMEDIATE-DEPENDENTS0 WRITE-AN . ADDR-PREDEC) (DCELL . *1*ADDR-PREDEC))))) (PUT1-LST (QUOTE *1*ADDR-POSTINC) (QUOTE (MAIN-EVENT ADDR-POSTINC))) (PUT1-LST (QUOTE ADDR-POSTINC) (QUOTE (TYPE-PRESCRIPTION-LST ((ADDR-POSTINC 16 NIL NIL NIL)) TOTALP-LST ((ADDR-POSTINC . T)) SDEFN (LAMBDA (OPLEN RN S) (CONS (WRITE-AN (L) (POST-EFFECT OPLEN RN (READ-AN (L) RN S)) RN S) (CONS (QUOTE M) (READ-AN (L) RN S)))) LISP-CODE *1*ADDR-POSTINC SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*ADDR-POSTINC) IMMEDIATE-DEPENDENTS0 (CMPM-INS CMPM-MAPPING EFFEC-ADDR) EVENT (DEFN ADDR-POSTINC (OPLEN RN S) (CONS (WRITE-AN (L) (POST-EFFECT OPLEN RN (READ-AN (L) RN S)) RN S) (CONS (QUOTE M) (READ-AN (L) RN S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ-AN . ADDR-POSTINC) (IMMEDIATE-DEPENDENTS0 POST-EFFECT . ADDR-POSTINC) (IMMEDIATE-DEPENDENTS0 L . ADDR-POSTINC) (IMMEDIATE-DEPENDENTS0 WRITE-AN . ADDR-POSTINC) (DCELL . *1*ADDR-POSTINC))))) (PUT1-LST (QUOTE *1*ADDR-INDIRECT) (QUOTE (MAIN-EVENT ADDR-INDIRECT))) (PUT1-LST (QUOTE ADDR-INDIRECT) (QUOTE (TYPE-PRESCRIPTION-LST ((ADDR-INDIRECT 16 NIL NIL)) TOTALP-LST ((ADDR-INDIRECT . T)) SDEFN (LAMBDA (RN S) (CONS S (CONS (QUOTE M) (READ-AN (L) RN S)))) LISP-CODE *1*ADDR-INDIRECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*ADDR-INDIRECT) IMMEDIATE-DEPENDENTS0 (EFFEC-ADDR) EVENT (DEFN ADDR-INDIRECT (RN S) (CONS S (CONS (QUOTE M) (READ-AN (L) RN S)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 L . ADDR-INDIRECT) (IMMEDIATE-DEPENDENTS0 READ-AN . ADDR-INDIRECT) (DCELL . *1*ADDR-INDIRECT))))) (PUT1-LST (QUOTE *1*AN-DIRECT) (QUOTE (MAIN-EVENT AN-DIRECT))) (PUT1-LST (QUOTE AN-DIRECT) (QUOTE (TYPE-PRESCRIPTION-LST ((AN-DIRECT 16 NIL NIL)) TOTALP-LST ((AN-DIRECT . T)) SDEFN (LAMBDA (RN S) (CONS S (CONS (QUOTE A) RN))) LISP-CODE *1*AN-DIRECT SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214823 SATELLITES (*1*AN-DIRECT) IMMEDIATE-DEPENDENTS0 (EFFEC-ADDR) EVENT (DEFN AN-DIRECT (RN S) (CONS S (CONS (QUOTE A) RN))) LOCAL-UNDO-TUPLES ((DCELL . *1*AN-DIRECT))))) (PUT1-LST (QUOTE *1*DN-DIRECT) (QUOTE (MAIN-EVENT DN-DIRECT))) (PUT1-LST (QUOTE DN-DIRECT) (QUOTE (TYPE-PRESCRIPTION-LST ((DN-DIRECT 16 NIL NIL)) TOTALP-LST ((DN-DIRECT . T)) SDEFN (LAMBDA (RN S) (CONS S (CONS (QUOTE D) RN))) LISP-CODE *1*DN-DIRECT SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214823 SATELLITES (*1*DN-DIRECT) IMMEDIATE-DEPENDENTS0 (EFFEC-ADDR) EVENT (DEFN DN-DIRECT (RN S) (CONS S (CONS (QUOTE D) RN))) LOCAL-UNDO-TUPLES ((DCELL . *1*DN-DIRECT))))) (PUT1-LST (QUOTE *1*PRE-EFFECT) (QUOTE (MAIN-EVENT PRE-EFFECT))) (PUT1-LST (QUOTE PRE-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((PRE-EFFECT 4 NIL NIL NIL)) TOTALP-LST ((PRE-EFFECT . T)) SDEFN (LAMBDA (OPLEN RN ADDR) (IF (EQUAL RN (SP)) (IF (EQUAL OPLEN (B)) (SUB (L) (WSZ) ADDR) (SUB (L) (OP-SZ OPLEN) ADDR)) (SUB (L) (OP-SZ OPLEN) ADDR))) LISP-CODE *1*PRE-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*PRE-EFFECT) IMMEDIATE-DEPENDENTS0 (MOVEM-PREDEC ADDR-PREDEC) EVENT (DEFN PRE-EFFECT (OPLEN RN ADDR) (IF (AND (EQUAL RN (SP)) (EQUAL OPLEN (B))) (SUB (L) (WSZ) ADDR) (SUB (L) (OP-SZ OPLEN) ADDR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OP-SZ . PRE-EFFECT) (IMMEDIATE-DEPENDENTS0 WSZ . PRE-EFFECT) (IMMEDIATE-DEPENDENTS0 L . PRE-EFFECT) (IMMEDIATE-DEPENDENTS0 SUB . PRE-EFFECT) (IMMEDIATE-DEPENDENTS0 B . PRE-EFFECT) (IMMEDIATE-DEPENDENTS0 SP . PRE-EFFECT) (DCELL . *1*PRE-EFFECT))))) (PUT1-LST (QUOTE *1*POST-EFFECT) (QUOTE (MAIN-EVENT POST-EFFECT))) (PUT1-LST (QUOTE POST-EFFECT) (QUOTE (TYPE-PRESCRIPTION-LST ((POST-EFFECT 4 NIL NIL NIL)) TOTALP-LST ((POST-EFFECT . T)) SDEFN (LAMBDA (OPLEN RN ADDR) (IF (EQUAL RN (SP)) (IF (EQUAL OPLEN (B)) (ADD (L) ADDR (WSZ)) (ADD (L) ADDR (OP-SZ OPLEN))) (ADD (L) ADDR (OP-SZ OPLEN)))) LISP-CODE *1*POST-EFFECT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*POST-EFFECT) IMMEDIATE-DEPENDENTS0 (ADDR-POSTINC) EVENT (DEFN POST-EFFECT (OPLEN RN ADDR) (IF (AND (EQUAL RN (SP)) (EQUAL OPLEN (B))) (ADD (L) ADDR (WSZ)) (ADD (L) ADDR (OP-SZ OPLEN)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OP-SZ . POST-EFFECT) (IMMEDIATE-DEPENDENTS0 WSZ . POST-EFFECT) (IMMEDIATE-DEPENDENTS0 L . POST-EFFECT) (IMMEDIATE-DEPENDENTS0 ADD . POST-EFFECT) (IMMEDIATE-DEPENDENTS0 B . POST-EFFECT) (IMMEDIATE-DEPENDENTS0 SP . POST-EFFECT) (DCELL . *1*POST-EFFECT))))) (PUT1-LST (QUOTE *1*OPERAND) (QUOTE (MAIN-EVENT OPERAND))) (PUT1-LST (QUOTE OPERAND) (QUOTE (TYPE-PRESCRIPTION-LST ((OPERAND -1 NIL NIL NIL)) TOTALP-LST ((OPERAND . T)) SDEFN (LAMBDA (OPLEN ADDR S) (IF (EQUAL (CAR ADDR) (QUOTE D)) (READ-DN OPLEN (CDR ADDR) S) (IF (EQUAL (CAR ADDR) (QUOTE A)) (READ-AN OPLEN (CDR ADDR) S) (IF (EQUAL (CAR ADDR) (QUOTE M)) (READ-MEM (CDR ADDR) (MC-MEM S) (OP-SZ OPLEN)) (CDR ADDR))))) LISP-CODE *1*OPERAND SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402214823 SATELLITES (*1*OPERAND) IMMEDIATE-DEPENDENTS0 (CMPI-MAPPING BXXX-OPD CMPM-MAPPING EOR-MAPPING CMPA-INS CMP-INS NOT-INS MUL-DIV_L-INS TAS-INS TST-INS MOVE-TO-CCR-INS NEG-INS NEGX-INS MOVEA-INS MOVE-INS MEM-ROXR-INS MEM-ROXL-INS MEM-ASR-INS MEM-ASL-INS MEM-LSR-INS MEM-LSL-INS MEM-ROR-INS MEM-ROL-INS DIV_W-INS OR-MAPPING OR-INS1 MUL_W-INS AND-MAPPING AND-INS1 SUBX-INS2 SUBA-INS SUB-MAPPING SUB-INS1 ADDX-INS2 ADDA-INS ADD-MAPPING ADD-INS1) EVENT (DEFN OPERAND (OPLEN ADDR S) (IF (EQUAL (CAR ADDR) (QUOTE D)) (READ-DN OPLEN (CDR ADDR) S) (IF (EQUAL (CAR ADDR) (QUOTE A)) (READ-AN OPLEN (CDR ADDR) S) (IF (EQUAL (CAR ADDR) (QUOTE M)) (READ-MEM (CDR ADDR) (MC-MEM S) (OP-SZ OPLEN)) (CDR ADDR))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 OP-SZ . OPERAND) (IMMEDIATE-DEPENDENTS0 MC-MEM . OPERAND) (IMMEDIATE-DEPENDENTS0 READ-MEM . OPERAND) (IMMEDIATE-DEPENDENTS0 READ-AN . OPERAND) (IMMEDIATE-DEPENDENTS0 READ-DN . OPERAND) (DCELL . *1*OPERAND))))) (PUT1-LST (QUOTE *1*PUSH-SP) (QUOTE (MAIN-EVENT PUSH-SP))) (PUT1-LST (QUOTE PUSH-SP) (QUOTE (TYPE-PRESCRIPTION-LST ((PUSH-SP 16 NIL NIL NIL)) TOTALP-LST ((PUSH-SP . T)) SDEFN (LAMBDA (OPSZ VALUE S) (IF (WRITE-MEMP (SUB (L) OPSZ (READ-SP S)) (MC-MEM S) OPSZ) (UPDATE-MEM (WRITE-MEM VALUE (SUB (L) OPSZ (READ-SP S)) (MC-MEM S) OPSZ) (WRITE-SP (SUB (L) OPSZ (READ-SP S)) S)) (HALT (WRITE-SIGNAL) S))) LISP-CODE *1*PUSH-SP SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402214823 SATELLITES (*1*PUSH-SP) IMMEDIATE-DEPENDENTS0 (BSR-INS JSR-INS PEA-INS) EVENT (DEFN PUSH-SP (OPSZ VALUE S) (IF (WRITE-MEMP (SUB (L) OPSZ (READ-SP S)) (MC-MEM S) OPSZ) (UPDATE-MEM (WRITE-MEM VALUE (SUB (L) OPSZ (READ-SP S)) (MC-MEM S) OPSZ) (WRITE-SP (SUB (L) OPSZ (READ-SP S)) S)) (HALT (WRITE-SIGNAL) S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITE-SIGNAL . PUSH-SP) (IMMEDIATE-DEPENDENTS0 HALT . PUSH-SP) (IMMEDIATE-DEPENDENTS0 WRITE-SP . PUSH-SP) (IMMEDIATE-DEPENDENTS0 WRITE-MEM . PUSH-SP) (IMMEDIATE-DEPENDENTS0 UPDATE-MEM . PUSH-SP) (IMMEDIATE-DEPENDENTS0 MC-MEM . PUSH-SP) (IMMEDIATE-DEPENDENTS0 READ-SP . PUSH-SP) (IMMEDIATE-DEPENDENTS0 L . PUSH-SP) (IMMEDIATE-DEPENDENTS0 SUB . PUSH-SP) (IMMEDIATE-DEPENDENTS0 WRITE-MEMP . PUSH-SP) (DCELL . *1*PUSH-SP))))) (PUT1-LST (QUOTE *1*WRITE-SP) (QUOTE (MAIN-EVENT WRITE-SP))) (PUT1-LST (QUOTE WRITE-SP) (QUOTE (TYPE-PRESCRIPTION-LST ((WRITE-SP 16 NIL NIL)) TOTALP-LST ((WRITE-SP . T)) SDEFN (LAMBDA (VALUE S) (WRITE-AN (L) VALUE (SP) S)) LISP-CODE *1*WRITE-SP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*WRITE-SP) IMMEDIATE-DEPENDENTS0 (RTD-MAPPING UNLK-INS LINK-MAPPING PUSH-SP) EVENT (DEFN WRITE-SP (VALUE S) (WRITE-AN (L) VALUE (SP) S)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SP . WRITE-SP) (IMMEDIATE-DEPENDENTS0 L . WRITE-SP) (IMMEDIATE-DEPENDENTS0 WRITE-AN . WRITE-SP) (DCELL . *1*WRITE-SP))))) (PUT1-LST (QUOTE *1*READ-SP) (QUOTE (MAIN-EVENT READ-SP))) (PUT1-LST (QUOTE READ-SP) (QUOTE (TYPE-PRESCRIPTION-LST ((READ-SP 4 NIL)) TOTALP-LST ((READ-SP . T)) SDEFN (LAMBDA (S) (READ-AN (L) (SP) S)) LISP-CODE *1*READ-SP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*READ-SP) IMMEDIATE-DEPENDENTS0 (RTR-INS RTS-INS RTD-INS LINK-MAPPING PUSH-SP) EVENT (DEFN READ-SP (S) (READ-AN (L) (SP) S)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SP . READ-SP) (IMMEDIATE-DEPENDENTS0 L . READ-SP) (IMMEDIATE-DEPENDENTS0 READ-AN . READ-SP) (DCELL . *1*READ-SP))))) (PUT1-LST (QUOTE *1*SP) (QUOTE (MAIN-EVENT SP))) (PUT1-LST (QUOTE SP) (QUOTE (TYPE-PRESCRIPTION-LST ((SP 4)) TOTALP-LST ((SP . T)) SDEFN (LAMBDA NIL (QUOTE 7)) LISP-CODE *1*SP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214823 SATELLITES (*1*SP) IMMEDIATE-DEPENDENTS0 (PRE-EFFECT POST-EFFECT WRITE-SP READ-SP) EVENT (DEFN SP NIL (QUOTE 7)) LOCAL-UNDO-TUPLES ((DCELL . *1*SP))))) (PUT1-LST (QUOTE *1*WRITE-AN) (QUOTE (MAIN-EVENT WRITE-AN))) (PUT1-LST (QUOTE WRITE-AN) (QUOTE (TYPE-PRESCRIPTION-LST ((WRITE-AN 16 NIL NIL NIL NIL)) TOTALP-LST ((WRITE-AN . T)) SDEFN (LAMBDA (OPLEN VALUE AN S) (UPDATE-RFILE (WRITE-RN OPLEN VALUE (PLUS (QUOTE 8) AN) (MC-RFILE S)) S)) LISP-CODE *1*WRITE-AN SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*WRITE-AN) IMMEDIATE-DEPENDENTS0 (SUBQ-INS ADDQ-INS UNLK-INS LINK-MAPPING MOVEM-EA-RN-INS MOVEM-RN-EA-INS MOVEM-PREDEC LEA-INS MOVEA-INS EXG-DRAR-INS EXG-ARAR-INS SUBA-INS ADDA-INS ADDR-PREDEC ADDR-POSTINC WRITE-SP) EVENT (DEFN WRITE-AN (OPLEN VALUE AN S) (UPDATE-RFILE (WRITE-RN OPLEN VALUE (PLUS (QUOTE 8) AN) (MC-RFILE S)) S)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-RFILE . WRITE-AN) (IMMEDIATE-DEPENDENTS0 WRITE-RN . WRITE-AN) (IMMEDIATE-DEPENDENTS0 UPDATE-RFILE . WRITE-AN) (DCELL . *1*WRITE-AN))))) (PUT1-LST (QUOTE *1*WRITE-DN) (QUOTE (MAIN-EVENT WRITE-DN))) (PUT1-LST (QUOTE WRITE-DN) (QUOTE (TYPE-PRESCRIPTION-LST ((WRITE-DN 16 NIL NIL NIL NIL)) TOTALP-LST ((WRITE-DN . T)) SDEFN (LAMBDA (OPLEN VALUE DN S) (UPDATE-RFILE (WRITE-RN OPLEN VALUE DN (MC-RFILE S)) S)) LISP-CODE *1*WRITE-DN SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*WRITE-DN) IMMEDIATE-DEPENDENTS0 (MOVEP-TO-REG DBCC-LOOP MULS_L_DLDH MULS_L_DL MULU_L_DLDH MULU_L_DL DIVU_L DIVUL_L DIVS_L DIVSL_L DIVU_W-INS DIVS_W-INS EXG-DRAR-INS EXG-DRDR-INS MULS_W-INS MULU_W-INS) EVENT (DEFN WRITE-DN (OPLEN VALUE DN S) (UPDATE-RFILE (WRITE-RN OPLEN VALUE DN (MC-RFILE S)) S)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-RFILE . WRITE-DN) (IMMEDIATE-DEPENDENTS0 WRITE-RN . WRITE-DN) (IMMEDIATE-DEPENDENTS0 UPDATE-RFILE . WRITE-DN) (DCELL . *1*WRITE-DN))))) (PUT1-LST (QUOTE *1*READ-AN) (QUOTE (MAIN-EVENT READ-AN))) (PUT1-LST (QUOTE READ-AN) (QUOTE (TYPE-PRESCRIPTION-LST ((READ-AN 4 NIL NIL NIL)) TOTALP-LST ((READ-AN . T)) SDEFN (LAMBDA (OPLEN AN S) (READ-RN OPLEN (PLUS (QUOTE 8) AN) (MC-RFILE S))) LISP-CODE *1*READ-AN SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*READ-AN) IMMEDIATE-DEPENDENTS0 (CMPA-INS SUBQ-INS ADDQ-INS UNLK-INS LINK-MAPPING MOVEM-EA-RN-INS MOVEM-PREDEC EXG-DRAR-INS EXG-ARAR-INS SUBA-INS ADDA-INS BS-REGISTER ADDR-INDEX-DISP INDEX-REGISTER ADDR-DISP ADDR-PREDEC ADDR-POSTINC ADDR-INDIRECT OPERAND READ-SP) EVENT (DEFN READ-AN (OPLEN AN S) (READ-RN OPLEN (PLUS (QUOTE 8) AN) (MC-RFILE S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-RFILE . READ-AN) (IMMEDIATE-DEPENDENTS0 READ-RN . READ-AN) (DCELL . *1*READ-AN))))) (PUT1-LST (QUOTE *1*READ-DN) (QUOTE (MAIN-EVENT READ-DN))) (PUT1-LST (QUOTE READ-DN) (QUOTE (TYPE-PRESCRIPTION-LST ((READ-DN 4 NIL NIL NIL)) TOTALP-LST ((READ-DN . T)) SDEFN (LAMBDA (OPLEN DN S) (READ-RN OPLEN DN (MC-RFILE S))) LISP-CODE *1*READ-DN SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*READ-DN) IMMEDIATE-DEPENDENTS0 (D-BIT-SUBGROUP BXXX-OPD MOVEP-TO-MEM EOR-INS CMP-INS DBCC-LOOP MUL_L-INS DIV_L-INS DIVU_L DIVS_L EXT-INS SWAP-INS EXTB-INS REGISTER-ROXR-INS REGISTER-ROXL-INS REGISTER-ASR-INS REGISTER-ASL-INS REGISTER-LSR-INS REGISTER-LSL-INS REGISTER-ROR-INS REGISTER-ROL-INS SR-CNT DIVU_W-INS DIVS_W-INS OR-INS2 OR-INS1 EXG-DRAR-INS EXG-DRDR-INS MULS_W-INS MULU_W-INS AND-INS2 AND-INS1 SUBX-INS1 SUB-INS2 SUB-INS1 ADDX-INS1 ADD-INS2 ADD-INS1 INDEX-REGISTER OPERAND) EVENT (DEFN READ-DN (OPLEN DN S) (READ-RN OPLEN DN (MC-RFILE S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-RFILE . READ-DN) (IMMEDIATE-DEPENDENTS0 READ-RN . READ-DN) (DCELL . *1*READ-DN))))) (PUT1-LST (QUOTE *1*UPDATE-MEM) (QUOTE (MAIN-EVENT UPDATE-MEM))) (PUT1-LST (QUOTE UPDATE-MEM) (QUOTE (TYPE-PRESCRIPTION-LST ((UPDATE-MEM 16 NIL NIL)) TOTALP-LST ((UPDATE-MEM . T)) SDEFN (LAMBDA (NEW-MEM S) (MC-STATE (MC-STATUS S) (MC-RFILE S) (MC-PC S) (MC-CCR S) NEW-MEM)) LISP-CODE *1*UPDATE-MEM SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*UPDATE-MEM) IMMEDIATE-DEPENDENTS0 (MOVEP-TO-MEM LINK-MAPPING MOVEM-RN-EA-INS PUSH-SP) EVENT (DEFN UPDATE-MEM (NEW-MEM S) (MC-STATE (MC-STATUS S) (MC-RFILE S) (MC-PC S) (MC-CCR S) NEW-MEM)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-CCR . UPDATE-MEM) (IMMEDIATE-DEPENDENTS0 MC-PC . UPDATE-MEM) (IMMEDIATE-DEPENDENTS0 MC-RFILE . UPDATE-MEM) (IMMEDIATE-DEPENDENTS0 MC-STATUS . UPDATE-MEM) (IMMEDIATE-DEPENDENTS0 MC-STATE . UPDATE-MEM) (DCELL . *1*UPDATE-MEM))))) (PUT1-LST (QUOTE *1*UPDATE-CCR) (QUOTE (MAIN-EVENT UPDATE-CCR))) (PUT1-LST (QUOTE UPDATE-CCR) (QUOTE (TYPE-PRESCRIPTION-LST ((UPDATE-CCR 16 NIL NIL)) TOTALP-LST ((UPDATE-CCR . T)) SDEFN (LAMBDA (NEW-CCR S) (MC-STATE (MC-STATUS S) (MC-RFILE S) (MC-PC S) (SET-CVZNX NEW-CCR (MC-CCR S)) (MC-MEM S))) LISP-CODE *1*UPDATE-CCR SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*UPDATE-CCR) IMMEDIATE-DEPENDENTS0 (CMPI-MAPPING EORI-TO-CCR-INS ANDI-TO-CCR-INS ORI-TO-CCR-INS BTST-INS CMPM-MAPPING CMPA-INS CMP-INS RTR-INS MULS_L_DLDH MULS_L_DL MULU_L_DLDH MULU_L_DL DIVU_L DIVUL_L DIVS_L DIVSL_L TST-INS MOVE-TO-CCR-INS DIVU_W-INS DIVS_W-INS MULS_W-INS MULU_W-INS) EVENT (DEFN UPDATE-CCR (NEW-CCR S) (MC-STATE (MC-STATUS S) (MC-RFILE S) (MC-PC S) (SET-CVZNX NEW-CCR (MC-CCR S)) (MC-MEM S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-MEM . UPDATE-CCR) (IMMEDIATE-DEPENDENTS0 MC-CCR . UPDATE-CCR) (IMMEDIATE-DEPENDENTS0 SET-CVZNX . UPDATE-CCR) (IMMEDIATE-DEPENDENTS0 MC-PC . UPDATE-CCR) (IMMEDIATE-DEPENDENTS0 MC-RFILE . UPDATE-CCR) (IMMEDIATE-DEPENDENTS0 MC-STATUS . UPDATE-CCR) (IMMEDIATE-DEPENDENTS0 MC-STATE . UPDATE-CCR) (DCELL . *1*UPDATE-CCR))))) (PUT1-LST (QUOTE *1*UPDATE-PC) (QUOTE (MAIN-EVENT UPDATE-PC))) (PUT1-LST (QUOTE UPDATE-PC) (QUOTE (TYPE-PRESCRIPTION-LST ((UPDATE-PC 16 NIL NIL)) TOTALP-LST ((UPDATE-PC . T)) SDEFN (LAMBDA (NEW-PC S) (MC-STATE (MC-STATUS S) (MC-RFILE S) NEW-PC (MC-CCR S) (MC-MEM S))) LISP-CODE *1*UPDATE-PC SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*UPDATE-PC) IMMEDIATE-DEPENDENTS0 (STEPI EORI-TO-CCR-INS ANDI-TO-CCR-INS ORI-TO-CCR-INS S-BIT-SUBGROUP DBCC-INS DBCC-LOOP BCC-RA-SR BSR-INS JMP-MAPPING RTD-MAPPING LINK_W-INS LINK_L-INS MOVEM-EA-RN-SUBGROUP EXT-SUBGROUP IMMEDIATE PC-INDEX-DISP PC-DISP ABSOLUTE-LONG ABSOLUTE-SHORT ADDR-INDEX3 MEM-POSTINDEX MEM-INDIRECT ADDR-INDEX-BD ADDR-INDEX-DISP ADDR-DISP) EVENT (DEFN UPDATE-PC (NEW-PC S) (MC-STATE (MC-STATUS S) (MC-RFILE S) NEW-PC (MC-CCR S) (MC-MEM S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-MEM . UPDATE-PC) (IMMEDIATE-DEPENDENTS0 MC-CCR . UPDATE-PC) (IMMEDIATE-DEPENDENTS0 MC-RFILE . UPDATE-PC) (IMMEDIATE-DEPENDENTS0 MC-STATUS . UPDATE-PC) (IMMEDIATE-DEPENDENTS0 MC-STATE . UPDATE-PC) (DCELL . *1*UPDATE-PC))))) (PUT1-LST (QUOTE *1*UPDATE-RFILE) (QUOTE (MAIN-EVENT UPDATE-RFILE))) (PUT1-LST (QUOTE UPDATE-RFILE) (QUOTE (TYPE-PRESCRIPTION-LST ((UPDATE-RFILE 16 NIL NIL)) TOTALP-LST ((UPDATE-RFILE . T)) SDEFN (LAMBDA (NEW-RFILE S) (MC-STATE (MC-STATUS S) NEW-RFILE (MC-PC S) (MC-CCR S) (MC-MEM S))) LISP-CODE *1*UPDATE-RFILE SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*UPDATE-RFILE) IMMEDIATE-DEPENDENTS0 (MOVEM-EA-RN-INS WRITE-AN WRITE-DN) EVENT (DEFN UPDATE-RFILE (NEW-RFILE S) (MC-STATE (MC-STATUS S) NEW-RFILE (MC-PC S) (MC-CCR S) (MC-MEM S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-MEM . UPDATE-RFILE) (IMMEDIATE-DEPENDENTS0 MC-CCR . UPDATE-RFILE) (IMMEDIATE-DEPENDENTS0 MC-PC . UPDATE-RFILE) (IMMEDIATE-DEPENDENTS0 MC-STATUS . UPDATE-RFILE) (IMMEDIATE-DEPENDENTS0 MC-STATE . UPDATE-RFILE) (DCELL . *1*UPDATE-RFILE))))) (PUT1-LST (QUOTE *1*HALT) (QUOTE (MAIN-EVENT HALT))) (PUT1-LST (QUOTE HALT) (QUOTE (TYPE-PRESCRIPTION-LST ((HALT 16 NIL NIL)) TOTALP-LST ((HALT . T)) SDEFN (LAMBDA (SIGNAL S) (MC-STATE SIGNAL (MC-RFILE S) (MC-PC S) (MC-CCR S) (MC-MEM S))) LISP-CODE *1*HALT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*HALT) IMMEDIATE-DEPENDENTS0 (STEPI EXECUTE-INS BIT-GROUP CMPI-SUBGROUP CMPI-INS EORI-SUBGROUP EORI-TO-CCR-INS EORI-INS ADDI-SUBGROUP ADDI-INS SUBI-SUBGROUP SUBI-INS ANDI-SUBGROUP ANDI-TO-CCR-INS ANDI-INS ORI-SUBGROUP ORI-TO-CCR-INS ORI-INS S-BIT-SUBGROUP BTST-INS BSET-INS BCLR-INS BCHG-INS MOVEP-TO-REG MOVEP-TO-MEM CMPM-INS CMPM-MAPPING EOR-INS CMPA-INS CMP-INS MOVEQ-INS SCC-GROUP SUBQ-INS ADDQ-INS DBCC-INS SCC-INS BCC-GROUP MISC-GROUP NOT-SUBGROUP NOT-INS JSR-INS JMP-INS NOP-SUBGROUP TRAPV-INS RTR-INS RTD-INS RTD-MAPPING UNLK-SUBGROUP UNLK-INS LINK_W-INS LINK_L-INS LINK-MAPPING MOVEM-EA-RN-SUBGROUP MOVEM-EA-RN-INS MUL-DIV_L-INS MULS_L_DLDH MULU_L_DLDH DIV_L-INS DIVU_L DIVS_L DIVSL_L TST-SUBGROUP TAS-INS TST-INS EXT-SUBGROUP MOVEM-RN-EA-INS PEA-SUBGROUP PEA-INS MOVE-TO-CCR-INS NEG-INS NEGX-SUBGROUP NEGX-INS MOVE-FROM-CCR-INS CLR-INS LEA-SUBGROUP LEA-INS MOVEA-INS MOVE-INS BF-SUBGROUP MEM-ROXR-INS MEM-ROXL-INS MEM-ASR-INS MEM-ASL-INS MEM-LSR-INS MEM-LSL-INS MEM-ROR-INS MEM-ROL-INS OR-GROUP DIV_W-INS DIVU_W-INS DIVS_W-INS OR-INS2 OR-INS1 AND-GROUP MUL_W-INS AND-INS2 AND-INS1 SUBX-INS2 SUBA-INS SUB-INS2 SUB-INS1 ADDX-INS2 ADDA-INS ADD-INS2 ADD-INS1 M-MAPPING MC-INSTATE IMMEDIATE PC-INDEX PC-INDEX1 PC-DISP ABSOLUTE-LONG ABSOLUTE-SHORT ADDR-INDEX ADDR-INDEX1 ADDR-INDEX2 ADDR-INDEX3 MEM-POSTINDEX MEM-INDIRECT ADDR-DISP PUSH-SP) EVENT (DEFN HALT (SIGNAL S) (MC-STATE SIGNAL (MC-RFILE S) (MC-PC S) (MC-CCR S) (MC-MEM S))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-MEM . HALT) (IMMEDIATE-DEPENDENTS0 MC-CCR . HALT) (IMMEDIATE-DEPENDENTS0 MC-PC . HALT) (IMMEDIATE-DEPENDENTS0 MC-RFILE . HALT) (IMMEDIATE-DEPENDENTS0 MC-STATE . HALT) (DCELL . *1*HALT))))) (PUT1-LST (QUOTE *1*SET-X) (QUOTE (MAIN-EVENT SET-X))) (PUT1-LST (QUOTE SET-X) (QUOTE (TYPE-PRESCRIPTION-LST ((SET-X 4 NIL NIL)) TOTALP-LST ((SET-X . T)) SDEFN (LAMBDA (X CCR) (SET-CVZNX (CVZNX (CCR-C CCR) (CCR-V CCR) (CCR-Z CCR) (CCR-N CCR) X) CCR)) LISP-CODE *1*SET-X SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*SET-X) EVENT (DEFN SET-X (X CCR) (SET-CVZNX (CVZNX (CCR-C CCR) (CCR-V CCR) (CCR-Z CCR) (CCR-N CCR) X) CCR)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CCR-N . SET-X) (IMMEDIATE-DEPENDENTS0 CCR-Z . SET-X) (IMMEDIATE-DEPENDENTS0 CCR-V . SET-X) (IMMEDIATE-DEPENDENTS0 CCR-C . SET-X) (IMMEDIATE-DEPENDENTS0 CVZNX . SET-X) (IMMEDIATE-DEPENDENTS0 SET-CVZNX . SET-X) (DCELL . *1*SET-X))))) (PUT1-LST (QUOTE *1*SET-N) (QUOTE (MAIN-EVENT SET-N))) (PUT1-LST (QUOTE SET-N) (QUOTE (TYPE-PRESCRIPTION-LST ((SET-N 4 NIL NIL)) TOTALP-LST ((SET-N . T)) SDEFN (LAMBDA (N CCR) (SET-CVZNX (CVZNX (CCR-C CCR) (CCR-V CCR) (CCR-Z CCR) N (CCR-X CCR)) CCR)) LISP-CODE *1*SET-N SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*SET-N) EVENT (DEFN SET-N (N CCR) (SET-CVZNX (CVZNX (CCR-C CCR) (CCR-V CCR) (CCR-Z CCR) N (CCR-X CCR)) CCR)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CCR-X . SET-N) (IMMEDIATE-DEPENDENTS0 CCR-Z . SET-N) (IMMEDIATE-DEPENDENTS0 CCR-V . SET-N) (IMMEDIATE-DEPENDENTS0 CCR-C . SET-N) (IMMEDIATE-DEPENDENTS0 CVZNX . SET-N) (IMMEDIATE-DEPENDENTS0 SET-CVZNX . SET-N) (DCELL . *1*SET-N))))) (PUT1-LST (QUOTE *1*SET-Z) (QUOTE (MAIN-EVENT SET-Z))) (PUT1-LST (QUOTE SET-Z) (QUOTE (TYPE-PRESCRIPTION-LST ((SET-Z 4 NIL NIL)) TOTALP-LST ((SET-Z . T)) SDEFN (LAMBDA (Z CCR) (SET-CVZNX (CVZNX (CCR-C CCR) (CCR-V CCR) Z (CCR-N CCR) (CCR-X CCR)) CCR)) LISP-CODE *1*SET-Z SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*SET-Z) IMMEDIATE-DEPENDENTS0 (BTST-INS BSET-EFFECT BCLR-EFFECT BCHG-EFFECT) EVENT (DEFN SET-Z (Z CCR) (SET-CVZNX (CVZNX (CCR-C CCR) (CCR-V CCR) Z (CCR-N CCR) (CCR-X CCR)) CCR)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CCR-X . SET-Z) (IMMEDIATE-DEPENDENTS0 CCR-N . SET-Z) (IMMEDIATE-DEPENDENTS0 CCR-V . SET-Z) (IMMEDIATE-DEPENDENTS0 CCR-C . SET-Z) (IMMEDIATE-DEPENDENTS0 CVZNX . SET-Z) (IMMEDIATE-DEPENDENTS0 SET-CVZNX . SET-Z) (DCELL . *1*SET-Z))))) (PUT1-LST (QUOTE *1*SET-V) (QUOTE (MAIN-EVENT SET-V))) (PUT1-LST (QUOTE SET-V) (QUOTE (TYPE-PRESCRIPTION-LST ((SET-V 4 NIL NIL)) TOTALP-LST ((SET-V . T)) SDEFN (LAMBDA (V CCR) (SET-CVZNX (CVZNX (CCR-C CCR) V (CCR-Z CCR) (CCR-N CCR) (CCR-X CCR)) CCR)) LISP-CODE *1*SET-V SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*SET-V) IMMEDIATE-DEPENDENTS0 (DIVU_L DIVS_L DIVSL_L DIVU_W-INS DIVS_W-INS) EVENT (DEFN SET-V (V CCR) (SET-CVZNX (CVZNX (CCR-C CCR) V (CCR-Z CCR) (CCR-N CCR) (CCR-X CCR)) CCR)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CCR-X . SET-V) (IMMEDIATE-DEPENDENTS0 CCR-N . SET-V) (IMMEDIATE-DEPENDENTS0 CCR-Z . SET-V) (IMMEDIATE-DEPENDENTS0 CCR-C . SET-V) (IMMEDIATE-DEPENDENTS0 CVZNX . SET-V) (IMMEDIATE-DEPENDENTS0 SET-CVZNX . SET-V) (DCELL . *1*SET-V))))) (PUT1-LST (QUOTE *1*SET-C) (QUOTE (MAIN-EVENT SET-C))) (PUT1-LST (QUOTE SET-C) (QUOTE (TYPE-PRESCRIPTION-LST ((SET-C 4 NIL NIL)) TOTALP-LST ((SET-C . T)) SDEFN (LAMBDA (C CCR) (SET-CVZNX (CVZNX C (CCR-V CCR) (CCR-Z CCR) (CCR-N CCR) (CCR-X CCR)) CCR)) LISP-CODE *1*SET-C SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*SET-C) EVENT (DEFN SET-C (C CCR) (SET-CVZNX (CVZNX C (CCR-V CCR) (CCR-Z CCR) (CCR-N CCR) (CCR-X CCR)) CCR)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CCR-X . SET-C) (IMMEDIATE-DEPENDENTS0 CCR-N . SET-C) (IMMEDIATE-DEPENDENTS0 CCR-Z . SET-C) (IMMEDIATE-DEPENDENTS0 CCR-V . SET-C) (IMMEDIATE-DEPENDENTS0 CVZNX . SET-C) (IMMEDIATE-DEPENDENTS0 SET-CVZNX . SET-C) (DCELL . *1*SET-C))))) (PUT1-LST (QUOTE *1*SET-CVZNX) (QUOTE (MAIN-EVENT SET-CVZNX))) (PUT1-LST (QUOTE SET-CVZNX) (QUOTE (TYPE-PRESCRIPTION-LST ((SET-CVZNX 4 NIL NIL)) TOTALP-LST ((SET-CVZNX . T)) SDEFN (LAMBDA (CVZNX CCR) (REPLACE (QUOTE 5) CVZNX CCR)) LISP-CODE *1*SET-CVZNX SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*SET-CVZNX) IMMEDIATE-DEPENDENTS0 (M-MAPPING A-MAPPING D-MAPPING UPDATE-CCR SET-X SET-N SET-Z SET-V SET-C) EVENT (DEFN SET-CVZNX (CVZNX CCR) (REPLACE (QUOTE 5) CVZNX CCR)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REPLACE . SET-CVZNX) (DCELL . *1*SET-CVZNX))))) (PUT1-LST (QUOTE *1*CVZNX) (QUOTE (MAIN-EVENT CVZNX))) (PUT1-LST (QUOTE CVZNX) (QUOTE (TYPE-PRESCRIPTION-LST ((CVZNX 4 NIL NIL NIL NIL NIL)) TOTALP-LST ((CVZNX . T)) SDEFN (LAMBDA (C V Z N X) (PLUS (FIX-BIT C) (PLUS (TIMES (QUOTE 2) (FIX-BIT V)) (PLUS (TIMES (QUOTE 4) (FIX-BIT Z)) (PLUS (TIMES (QUOTE 8) (FIX-BIT N)) (TIMES (QUOTE 16) (FIX-BIT X))))))) LISP-CODE *1*CVZNX SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402214823 SATELLITES (*1*CVZNX) IMMEDIATE-DEPENDENTS0 (EOR-CVZNX CMP-CVZNX NOT-CVZNX SWAP-CVZNX CLR-CVZNX EXT-CVZNX MOVE-CVZNX ROXR-CVZNX ROXL-CVZNX ASR-CVZNX ASL-CVZNX LSR-CVZNX LSL-CVZNX ROR-CVZNX ROL-CVZNX DIVU-CVZNX DIVS-CVZNX OR-CVZNX MULS-CVZNX MULU-CVZNX AND-CVZNX SUBX-CVZNX SUB-CVZNX ADDX-CVZNX ADD-CVZNX SET-X SET-N SET-Z SET-V SET-C) EVENT (DEFN CVZNX (C V Z N X) (PLUS (FIX-BIT C) (PLUS (TIMES (QUOTE 2) (FIX-BIT V)) (PLUS (TIMES (QUOTE 4) (FIX-BIT Z)) (PLUS (TIMES (QUOTE 8) (FIX-BIT N)) (TIMES (QUOTE 16) (FIX-BIT X))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-BIT . CVZNX) (DCELL . *1*CVZNX))))) (PUT1-LST (QUOTE *1*CCR-X) (QUOTE (MAIN-EVENT CCR-X))) (PUT1-LST (QUOTE CCR-X) (QUOTE (TYPE-PRESCRIPTION-LST ((CCR-X 4 NIL)) TOTALP-LST ((CCR-X . T)) SDEFN (LAMBDA (CCR) (BITN CCR (QUOTE 4))) LISP-CODE *1*CCR-X SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*CCR-X) IMMEDIATE-DEPENDENTS0 (EOR-CVZNX CMP-CVZNX NOT-CVZNX SWAP-CVZNX CLR-CVZNX EXT-CVZNX MOVE-CVZNX ROXR-EFFECT ROXL-EFFECT ASR-X ASL-X LSR-X LSL-X ROR-CVZNX ROL-CVZNX DIVU-CVZNX DIVS-CVZNX OR-CVZNX MULS-CVZNX MULU-CVZNX AND-CVZNX SUBX-EFFECT ADDX-EFFECT SET-N SET-Z SET-V SET-C) EVENT (DEFN CCR-X (CCR) (BITN CCR (QUOTE 4))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN . CCR-X) (DCELL . *1*CCR-X))))) (PUT1-LST (QUOTE *1*CCR-N) (QUOTE (MAIN-EVENT CCR-N))) (PUT1-LST (QUOTE CCR-N) (QUOTE (TYPE-PRESCRIPTION-LST ((CCR-N 4 NIL)) TOTALP-LST ((CCR-N . T)) SDEFN (LAMBDA (CCR) (BITN CCR (QUOTE 3))) LISP-CODE *1*CCR-N SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*CCR-N) IMMEDIATE-DEPENDENTS0 (BRANCH-CC SET-X SET-Z SET-V SET-C) EVENT (DEFN CCR-N (CCR) (BITN CCR (QUOTE 3))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN . CCR-N) (DCELL . *1*CCR-N))))) (PUT1-LST (QUOTE *1*CCR-Z) (QUOTE (MAIN-EVENT CCR-Z))) (PUT1-LST (QUOTE CCR-Z) (QUOTE (TYPE-PRESCRIPTION-LST ((CCR-Z 4 NIL)) TOTALP-LST ((CCR-Z . T)) SDEFN (LAMBDA (CCR) (BITN CCR (QUOTE 2))) LISP-CODE *1*CCR-Z SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*CCR-Z) IMMEDIATE-DEPENDENTS0 (BRANCH-CC SUBX-EFFECT ADDX-EFFECT SET-X SET-N SET-V SET-C) EVENT (DEFN CCR-Z (CCR) (BITN CCR (QUOTE 2))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN . CCR-Z) (DCELL . *1*CCR-Z))))) (PUT1-LST (QUOTE *1*CCR-V) (QUOTE (MAIN-EVENT CCR-V))) (PUT1-LST (QUOTE CCR-V) (QUOTE (TYPE-PRESCRIPTION-LST ((CCR-V 4 NIL)) TOTALP-LST ((CCR-V . T)) SDEFN (LAMBDA (CCR) (BITN CCR (QUOTE 1))) LISP-CODE *1*CCR-V SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*CCR-V) IMMEDIATE-DEPENDENTS0 (BRANCH-CC TRAPV-INS SET-X SET-N SET-Z SET-C) EVENT (DEFN CCR-V (CCR) (BITN CCR (QUOTE 1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN . CCR-V) (DCELL . *1*CCR-V))))) (PUT1-LST (QUOTE *1*CCR-C) (QUOTE (MAIN-EVENT CCR-C))) (PUT1-LST (QUOTE CCR-C) (QUOTE (TYPE-PRESCRIPTION-LST ((CCR-C 4 NIL)) TOTALP-LST ((CCR-C . T)) SDEFN (LAMBDA (CCR) (BITN CCR (QUOTE 0))) LISP-CODE *1*CCR-C SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*CCR-C) IMMEDIATE-DEPENDENTS0 (BRANCH-CC SET-X SET-N SET-Z SET-V) EVENT (DEFN CCR-C (CCR) (BITN CCR (QUOTE 0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN . CCR-C) (DCELL . *1*CCR-C))))) (PUT1-LST (QUOTE *1*WRITE-MEM) (QUOTE (MAIN-EVENT WRITE-MEM))) (PUT1-LST (QUOTE WRITE-MEM) (QUOTE (TYPE-PRESCRIPTION-LST ((WRITE-MEM 16 NIL NIL T NIL)) TOTALP-LST ((WRITE-MEM . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (VALUE X MEM K) (IF (EQUAL K (QUOTE 0)) MEM (IF (NUMBERP K) (WRITE-MEM (TAIL VALUE (B)) X (BYTE-WRITE VALUE (ADD (QUOTE 32) X (SUB1 K)) MEM) (SUB1 K)) MEM))) LISP-CODE *1*WRITE-MEM SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP K)) NIL) (TESTS-AND-CASES ((NOT (ZEROP K))) (((TAIL VALUE (B)) X (BYTE-WRITE VALUE (ADD (QUOTE 32) X (SUB1 K)) MEM) (SUB1 K))))) LEVEL-NO 5 JUSTIFICATIONS ((JUSTIFICATION (K) (COUNT K) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402214823 CONTROLLER-POCKETS (8) SATELLITES (*1*WRITE-MEM) IMMEDIATE-DEPENDENTS0 (LOAD-LST-MEM LINK-MAPPING WRITEM-MEM M-MAPPING PUSH-SP) EVENT (DEFN WRITE-MEM (VALUE X MEM K) (IF (ZEROP K) MEM (WRITE-MEM (TAIL VALUE (B)) X (BYTE-WRITE VALUE (ADD (QUOTE 32) X (SUB1 K)) MEM) (SUB1 K)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD . WRITE-MEM) (IMMEDIATE-DEPENDENTS0 BYTE-WRITE . WRITE-MEM) (IMMEDIATE-DEPENDENTS0 B . WRITE-MEM) (IMMEDIATE-DEPENDENTS0 TAIL . WRITE-MEM) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . WRITE-MEM) (DCELL . *1*WRITE-MEM))))) (PUT1-LST (QUOTE *1*BYTE-WRITE) (QUOTE (MAIN-EVENT BYTE-WRITE))) (PUT1-LST (QUOTE BYTE-WRITE) (QUOTE (TYPE-PRESCRIPTION-LST ((BYTE-WRITE 16 NIL NIL NIL)) TOTALP-LST ((BYTE-WRITE . T)) SDEFN (LAMBDA (VALUE X MEM) (CONS (CAR MEM) (WRITE (HEAD VALUE (B)) X (QUOTE 32) (CDR MEM)))) LISP-CODE *1*BYTE-WRITE SUBRP *1*FALSE LEVEL-NO 4 IDATE 1000402214823 SATELLITES (*1*BYTE-WRITE) IMMEDIATE-DEPENDENTS0 (MOVEP-WRITE WRITE-MEM) EVENT (DEFN BYTE-WRITE (VALUE X MEM) (CONS (CAR MEM) (WRITE (HEAD VALUE (B)) X (QUOTE 32) (CDR MEM)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B . BYTE-WRITE) (IMMEDIATE-DEPENDENTS0 HEAD . BYTE-WRITE) (IMMEDIATE-DEPENDENTS0 WRITE . BYTE-WRITE) (DCELL . *1*BYTE-WRITE))))) (PUT1-LST (QUOTE *1*WRITE-MEMP) (QUOTE (MAIN-EVENT WRITE-MEMP))) (PUT1-LST (QUOTE WRITE-MEMP) (QUOTE (TYPE-PRESCRIPTION-LST ((WRITE-MEMP 3 NIL NIL NIL)) TOTALP-LST ((WRITE-MEMP . T)) QUICK-BLOCK-INFO (UNCHANGING UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (X MEM K) (IF (EQUAL K (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP K) (IF (BYTE-WRITEP (ADD (QUOTE 32) X (SUB1 K)) MEM) (IF (WRITE-MEMP X MEM (SUB1 K)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*TRUE)))) LISP-CODE *1*WRITE-MEMP SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP K)) NIL) (TESTS-AND-CASES ((NOT (ZEROP K))) ((X MEM (SUB1 K))))) LEVEL-NO 5 JUSTIFICATIONS ((JUSTIFICATION (K) (COUNT K) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402214823 CONTROLLER-POCKETS (4) SATELLITES (*1*WRITE-MEMP) IMMEDIATE-DEPENDENTS0 (LINK-MAPPING WRITEMP M-MAPPING PUSH-SP) EVENT (DEFN WRITE-MEMP (X MEM K) (IF (ZEROP K) (QUOTE *1*TRUE) (AND (BYTE-WRITEP (ADD (QUOTE 32) X (SUB1 K)) MEM) (WRITE-MEMP X MEM (SUB1 K))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD . WRITE-MEMP) (IMMEDIATE-DEPENDENTS0 BYTE-WRITEP . WRITE-MEMP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . WRITE-MEMP) (DCELL . *1*WRITE-MEMP))))) (PUT1-LST (QUOTE *1*BYTE-WRITEP) (QUOTE (MAIN-EVENT BYTE-WRITEP))) (PUT1-LST (QUOTE BYTE-WRITEP) (QUOTE (TYPE-PRESCRIPTION-LST ((BYTE-WRITEP 3 NIL NIL)) TOTALP-LST ((BYTE-WRITEP . T)) SDEFN (LAMBDA (X MEM) (WRITEP X (QUOTE 32) (CAR MEM))) LISP-CODE *1*BYTE-WRITEP SUBRP *1*FALSE LEVEL-NO 4 IDATE 1000402214823 SATELLITES (*1*BYTE-WRITEP) IMMEDIATE-DEPENDENTS0 (MOVEP-WRITEP WRITE-MEMP) EVENT (DEFN BYTE-WRITEP (X MEM) (WRITEP X (QUOTE 32) (CAR MEM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WRITEP . BYTE-WRITEP) (DCELL . *1*BYTE-WRITEP))))) (PUT1-LST (QUOTE *1*OP-LEN) (QUOTE (MAIN-EVENT OP-LEN))) (PUT1-LST (QUOTE OP-LEN) (QUOTE (TYPE-PRESCRIPTION-LST ((OP-LEN 4 NIL)) TOTALP-LST ((OP-LEN . T)) SDEFN (LAMBDA (INS) (TIMES (B) (EXP (QUOTE 2) (BITS INS (QUOTE 6) (QUOTE 7))))) LISP-CODE *1*OP-LEN SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*OP-LEN) IMMEDIATE-DEPENDENTS0 (EXECUTE-INS BIT-GROUP SCC-GROUP NOT-SUBGROUP TST-SUBGROUP NEG-SUBGROUP NEGX-SUBGROUP CLR-SUBGROUP S&R-GROUP SUB-GROUP ADD-GROUP) EVENT (DEFN OP-LEN (INS) (TIMES (B) (EXP (QUOTE 2) (BITS INS (QUOTE 6) (QUOTE 7))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITS . OP-LEN) (IMMEDIATE-DEPENDENTS0 EXP . OP-LEN) (IMMEDIATE-DEPENDENTS0 B . OP-LEN) (DCELL . *1*OP-LEN))))) (PUT1-LST (QUOTE *1*COND-FIELD) (QUOTE (MAIN-EVENT COND-FIELD))) (PUT1-LST (QUOTE COND-FIELD) (QUOTE (TYPE-PRESCRIPTION-LST ((COND-FIELD 4 NIL)) TOTALP-LST ((COND-FIELD . T)) SDEFN (LAMBDA (INS) (BITS INS (QUOTE 8) (QUOTE 11))) LISP-CODE *1*COND-FIELD SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*COND-FIELD) IMMEDIATE-DEPENDENTS0 (DBCC-INS SCC-INS BCC-GROUP) EVENT (DEFN COND-FIELD (INS) (BITS INS (QUOTE 8) (QUOTE 11))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITS . COND-FIELD) (DCELL . *1*COND-FIELD))))) (PUT1-LST (QUOTE *1*OPMODE-FIELD) (QUOTE (MAIN-EVENT OPMODE-FIELD))) (PUT1-LST (QUOTE OPMODE-FIELD) (QUOTE (TYPE-PRESCRIPTION-LST ((OPMODE-FIELD 4 NIL)) TOTALP-LST ((OPMODE-FIELD . T)) SDEFN (LAMBDA (INS) (BITS INS (QUOTE 6) (QUOTE 8))) LISP-CODE *1*OPMODE-FIELD SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*OPMODE-FIELD) IMMEDIATE-DEPENDENTS0 (EXECUTE-INS D-BIT-SUBGROUP) EVENT (DEFN OPMODE-FIELD (INS) (BITS INS (QUOTE 6) (QUOTE 8))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITS . OPMODE-FIELD) (DCELL . *1*OPMODE-FIELD))))) (PUT1-LST (QUOTE *1*D_RN) (QUOTE (MAIN-EVENT D_RN))) (PUT1-LST (QUOTE D_RN) (QUOTE (TYPE-PRESCRIPTION-LST ((D_RN 4 NIL)) TOTALP-LST ((D_RN . T)) SDEFN (LAMBDA (INS) (BITS INS (QUOTE 9) (QUOTE 11))) LISP-CODE *1*D_RN SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*D_RN) IMMEDIATE-DEPENDENTS0 (D-BIT-SUBGROUP MOVEP-TO-REG MOVEP-TO-MEM CMPM-MAPPING EOR-INS CMPA-INS CMP-INS MOVEQ-INS SUBQ-INS ADDQ-INS LEA-INS MOVEA-INS MOVE-MAPPING MOVE-ADDR-MODEP SR-CNT DIV_W-INS OR-INS2 OR-INS1 MUL_W-INS EXG-DRAR-INS EXG-ARAR-INS EXG-DRDR-INS AND-INS2 AND-INS1 SUBX-INS2 SUBX-INS1 SUBA-INS SUB-INS2 SUB-INS1 ADDX-INS2 ADDX-INS1 ADDA-INS ADD-INS2 ADD-INS1) EVENT (DEFN D_RN (INS) (BITS INS (QUOTE 9) (QUOTE 11))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITS . D_RN) (DCELL . *1*D_RN))))) (PUT1-LST (QUOTE *1*D_MODE) (QUOTE (MAIN-EVENT D_MODE))) (PUT1-LST (QUOTE D_MODE) (QUOTE (TYPE-PRESCRIPTION-LST ((D_MODE 4 NIL)) TOTALP-LST ((D_MODE . T)) SDEFN (LAMBDA (INS) (BITS INS (QUOTE 6) (QUOTE 8))) LISP-CODE *1*D_MODE SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*D_MODE) IMMEDIATE-DEPENDENTS0 (MOVE-GROUP MOVE-MAPPING MOVE-ADDR-MODEP) EVENT (DEFN D_MODE (INS) (BITS INS (QUOTE 6) (QUOTE 8))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITS . D_MODE) (DCELL . *1*D_MODE))))) (PUT1-LST (QUOTE *1*S_MODE) (QUOTE (MAIN-EVENT S_MODE))) (PUT1-LST (QUOTE S_MODE) (QUOTE (TYPE-PRESCRIPTION-LST ((S_MODE 4 NIL)) TOTALP-LST ((S_MODE . T)) SDEFN (LAMBDA (INS) (BITS INS (QUOTE 3) (QUOTE 5))) LISP-CODE *1*S_MODE SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*S_MODE) IMMEDIATE-DEPENDENTS0 (CMPI-ADDR-MODEP ADDI-ADDR-MODEP SUBI-ADDR-MODEP ANDI-ADDR-MODEP ORI-ADDR-MODEP D-BIT-SUBGROUP BTST-INS BTST-ADDR-MODEP BSET-INS BSET-ADDR-MODEP BCLR-INS BCLR-ADDR-MODEP BCHG-INS BCHG-ADDR-MODEP CMP-GROUP EOR&EORI-ADDR-MODEP CMPA-ADDR-MODEP CMP-ADDR-MODEP SCC-GROUP SUBQ-INS SUBQ-ADDR-MODEP ADDQ-INS ADDQ-ADDR-MODEP SCC-ADDR-MODEP NOT-ADDR-MODEP JSR-INS JSR-ADDR-MODEP JMP-INS JMP-ADDR-MODEP MOVEM-EA-RN-INS MOVEM-EA-RN-ADDR-MODEP TAS-ADDR-MODEP TST-ADDR-MODEP EXT-SUBGROUP MOVEM-RN-EA-INS MOVEM-RN-EA-ADDR-MODEP PEA-SUBGROUP PEA-ADDR-MODEP MOVE-TO-CCR-ADDR-MODEP NEG-ADDR-MODEP NEGX-ADDR-MODEP MOVE-FROM-CCR-ADDR-MODEP CLR-INS CLR-ADDR-MODEP LEA-SUBGROUP LEA-ADDR-MODEP MOVEA-ADDR-MODEP MOVE-ADDR-MODEP S&R-ADDR-MODEP OR-GROUP OR-ADDR-MODEP2 OR-ADDR-MODEP1 AND-GROUP MUL&DIV-ADDR-MODEP AND-ADDR-MODEP2 AND-ADDR-MODEP1 SUB-GROUP SUBA-ADDR-MODEP SUB-ADDR-MODEP2 SUB-ADDR-MODEP1 ADD-GROUP ADDA-ADDR-MODEP ADD-ADDR-MODEP2 ADD-ADDR-MODEP1 MC-INSTATE) EVENT (DEFN S_MODE (INS) (BITS INS (QUOTE 3) (QUOTE 5))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITS . S_MODE) (DCELL . *1*S_MODE))))) (PUT1-LST (QUOTE *1*S_RN) (QUOTE (MAIN-EVENT S_RN))) (PUT1-LST (QUOTE S_RN) (QUOTE (TYPE-PRESCRIPTION-LST ((S_RN 4 NIL)) TOTALP-LST ((S_RN . T)) SDEFN (LAMBDA (INS) (BITS INS (QUOTE 0) (QUOTE 2))) LISP-CODE *1*S_RN SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*S_RN) IMMEDIATE-DEPENDENTS0 (CMPI-ADDR-MODEP ADDI-ADDR-MODEP SUBI-ADDR-MODEP ANDI-ADDR-MODEP ORI-ADDR-MODEP BTST-ADDR-MODEP BSET-ADDR-MODEP BCLR-ADDR-MODEP BCHG-ADDR-MODEP MOVEP-INS CMPM-INS EOR&EORI-ADDR-MODEP CMPA-ADDR-MODEP CMP-ADDR-MODEP SCC-GROUP SUBQ-INS SUBQ-ADDR-MODEP ADDQ-INS ADDQ-ADDR-MODEP DBCC-INS SCC-ADDR-MODEP MISC-GROUP NOT-ADDR-MODEP JSR-INS JSR-ADDR-MODEP JMP-INS JMP-ADDR-MODEP UNLK-SUBGROUP MOVEM-EA-RN-INS MOVEM-EA-RN-ADDR-MODEP TAS-ADDR-MODEP TST-ADDR-MODEP MOVEM-RN-EA-INS MOVEM-RN-EA-ADDR-MODEP EXT-INS SWAP-INS PEA-INS PEA-ADDR-MODEP MOVE-TO-CCR-ADDR-MODEP NEG-ADDR-MODEP NEGX-ADDR-MODEP MOVE-FROM-CCR-ADDR-MODEP CLR-INS CLR-ADDR-MODEP EXTB-INS LEA-INS LEA-ADDR-MODEP MOVEA-ADDR-MODEP MOVE-ADDR-MODEP REGISTER-ROXR-INS REGISTER-ROXL-INS REGISTER-ASR-INS REGISTER-ASL-INS REGISTER-LSR-INS REGISTER-LSL-INS REGISTER-ROR-INS REGISTER-ROL-INS S&R-ADDR-MODEP OR-ADDR-MODEP2 OR-ADDR-MODEP1 EXG-DRAR-INS EXG-ARAR-INS EXG-DRDR-INS MUL&DIV-ADDR-MODEP AND-ADDR-MODEP2 AND-ADDR-MODEP1 SUBX-INS2 SUBX-INS1 SUBA-ADDR-MODEP SUB-ADDR-MODEP2 SUB-ADDR-MODEP1 ADDX-INS2 ADDX-INS1 ADDA-ADDR-MODEP ADD-ADDR-MODEP2 ADD-ADDR-MODEP1 MC-INSTATE) EVENT (DEFN S_RN (INS) (BITS INS (QUOTE 0) (QUOTE 2))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITS . S_RN) (DCELL . *1*S_RN))))) (PUT1-LST (QUOTE *1*PC-LONG-READ) (QUOTE (MAIN-EVENT PC-LONG-READ))) (PUT1-LST (QUOTE PC-LONG-READ) (QUOTE (TYPE-PRESCRIPTION-LST ((PC-LONG-READ 4 NIL NIL)) TOTALP-LST ((PC-LONG-READ . T)) SDEFN (LAMBDA (PC MEM) (PC-READ-MEM PC MEM (LSZ))) LISP-CODE *1*PC-LONG-READ SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402214823 SATELLITES (*1*PC-LONG-READ) IMMEDIATE-DEPENDENTS0 (BCC-GROUP LINK_L-INS ABSOLUTE-LONG ADDR-INDEX2) EVENT (DEFN PC-LONG-READ (PC MEM) (PC-READ-MEM PC MEM (LSZ))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSZ . PC-LONG-READ) (IMMEDIATE-DEPENDENTS0 PC-READ-MEM . PC-LONG-READ) (DCELL . *1*PC-LONG-READ))))) (PUT1-LST (QUOTE *1*PC-WORD-READ) (QUOTE (MAIN-EVENT PC-WORD-READ))) (PUT1-LST (QUOTE PC-WORD-READ) (QUOTE (TYPE-PRESCRIPTION-LST ((PC-WORD-READ 4 NIL NIL)) TOTALP-LST ((PC-WORD-READ . T)) SDEFN (LAMBDA (PC MEM) (PC-READ-MEM PC MEM (WSZ))) LISP-CODE *1*PC-WORD-READ SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402214823 SATELLITES (*1*PC-WORD-READ) IMMEDIATE-DEPENDENTS0 (CURRENT-INS DBCC-LOOP BCC-GROUP RTD-INS LINK_W-INS MOVEM-EA-RN-SUBGROUP EXT-SUBGROUP PC-INDEX PC-DISP ABSOLUTE-SHORT ADDR-INDEX ADDR-INDEX2 ADDR-DISP) EVENT (DEFN PC-WORD-READ (PC MEM) (PC-READ-MEM PC MEM (WSZ))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WSZ . PC-WORD-READ) (IMMEDIATE-DEPENDENTS0 PC-READ-MEM . PC-WORD-READ) (DCELL . *1*PC-WORD-READ))))) (PUT1-LST (QUOTE *1*PC-READ-MEM) (QUOTE (MAIN-EVENT PC-READ-MEM))) (PUT1-LST (QUOTE PC-READ-MEM) (QUOTE (TYPE-PRESCRIPTION-LST ((PC-READ-MEM 4 NIL NIL NIL)) TOTALP-LST ((PC-READ-MEM . T)) QUICK-BLOCK-INFO (UNCHANGING UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (PC MEM K) (IF (EQUAL K (QUOTE 0)) (QUOTE 0) (IF (NUMBERP K) (APP (B) (PC-BYTE-READ (ADD (QUOTE 32) PC (SUB1 K)) MEM) (PC-READ-MEM PC MEM (SUB1 K))) (QUOTE 0)))) LISP-CODE *1*PC-READ-MEM SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP K)) NIL) (TESTS-AND-CASES ((NOT (ZEROP K))) ((PC MEM (SUB1 K))))) LEVEL-NO 5 JUSTIFICATIONS ((JUSTIFICATION (K) (COUNT K) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402214823 CONTROLLER-POCKETS (4) SATELLITES (*1*PC-READ-MEM) IMMEDIATE-DEPENDENTS0 (IMMEDIATE MEM-POSTINDEX MEM-INDIRECT PC-LONG-READ PC-WORD-READ) EVENT (DEFN PC-READ-MEM (PC MEM K) (IF (ZEROP K) (QUOTE 0) (APP (B) (PC-BYTE-READ (ADD (QUOTE 32) PC (SUB1 K)) MEM) (PC-READ-MEM PC MEM (SUB1 K))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD . PC-READ-MEM) (IMMEDIATE-DEPENDENTS0 PC-BYTE-READ . PC-READ-MEM) (IMMEDIATE-DEPENDENTS0 B . PC-READ-MEM) (IMMEDIATE-DEPENDENTS0 APP . PC-READ-MEM) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . PC-READ-MEM) (DCELL . *1*PC-READ-MEM))))) (PUT1-LST (QUOTE *1*PC-BYTE-READ) (QUOTE (MAIN-EVENT PC-BYTE-READ))) (PUT1-LST (QUOTE PC-BYTE-READ) (QUOTE (TYPE-PRESCRIPTION-LST ((PC-BYTE-READ 4 NIL NIL)) TOTALP-LST ((PC-BYTE-READ . T)) SDEFN (LAMBDA (PC MEM) (HEAD (PC-READ PC (QUOTE 32) (CDR MEM)) (B))) LISP-CODE *1*PC-BYTE-READ SUBRP *1*FALSE LEVEL-NO 4 IDATE 1000402214823 SATELLITES (*1*PC-BYTE-READ) IMMEDIATE-DEPENDENTS0 (EORI-TO-CCR-INS ANDI-TO-CCR-INS ORI-TO-CCR-INS S-BIT-SUBGROUP IMMEDIATE PC-READ-MEM) EVENT (DEFN PC-BYTE-READ (PC MEM) (HEAD (PC-READ PC (QUOTE 32) (CDR MEM)) (B))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B . PC-BYTE-READ) (IMMEDIATE-DEPENDENTS0 PC-READ . PC-BYTE-READ) (IMMEDIATE-DEPENDENTS0 HEAD . PC-BYTE-READ) (DCELL . *1*PC-BYTE-READ))))) (PUT1-LST (QUOTE *1*LONG-READ) (QUOTE (MAIN-EVENT LONG-READ))) (PUT1-LST (QUOTE LONG-READ) (QUOTE (TYPE-PRESCRIPTION-LST ((LONG-READ 4 NIL NIL)) TOTALP-LST ((LONG-READ . T)) SDEFN (LAMBDA (X MEM) (READ-MEM X MEM (LSZ))) LISP-CODE *1*LONG-READ SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402214823 SATELLITES (*1*LONG-READ) IMMEDIATE-DEPENDENTS0 (RTD-MAPPING UNLK-INS MEM-POSTINDEX MEM-INDIRECT) EVENT (DEFN LONG-READ (X MEM) (READ-MEM X MEM (LSZ))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSZ . LONG-READ) (IMMEDIATE-DEPENDENTS0 READ-MEM . LONG-READ) (DCELL . *1*LONG-READ))))) (PUT1-LST (QUOTE *1*WORD-READ) (QUOTE (MAIN-EVENT WORD-READ))) (PUT1-LST (QUOTE WORD-READ) (QUOTE (TYPE-PRESCRIPTION-LST ((WORD-READ 4 NIL NIL)) TOTALP-LST ((WORD-READ . T)) SDEFN (LAMBDA (X MEM) (READ-MEM X MEM (WSZ))) LISP-CODE *1*WORD-READ SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402214823 SATELLITES (*1*WORD-READ) IMMEDIATE-DEPENDENTS0 (RTR-INS) EVENT (DEFN WORD-READ (X MEM) (READ-MEM X MEM (WSZ))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WSZ . WORD-READ) (IMMEDIATE-DEPENDENTS0 READ-MEM . WORD-READ) (DCELL . *1*WORD-READ))))) (PUT1-LST (QUOTE *1*READ-MEM) (QUOTE (MAIN-EVENT READ-MEM))) (PUT1-LST (QUOTE READ-MEM) (QUOTE (TYPE-PRESCRIPTION-LST ((READ-MEM 4 NIL NIL NIL)) TOTALP-LST ((READ-MEM . T)) QUICK-BLOCK-INFO (UNCHANGING UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (X MEM K) (IF (EQUAL K (QUOTE 0)) (QUOTE 0) (IF (NUMBERP K) (APP (B) (BYTE-READ (ADD (QUOTE 32) X (SUB1 K)) MEM) (READ-MEM X MEM (SUB1 K))) (QUOTE 0)))) LISP-CODE *1*READ-MEM SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP K)) NIL) (TESTS-AND-CASES ((NOT (ZEROP K))) ((X MEM (SUB1 K))))) LEVEL-NO 5 JUSTIFICATIONS ((JUSTIFICATION (K) (COUNT K) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402214823 CONTROLLER-POCKETS (4) SATELLITES (*1*READ-MEM) IMMEDIATE-DEPENDENTS0 (READM-MEM OPERAND LONG-READ WORD-READ) EVENT (DEFN READ-MEM (X MEM K) (IF (ZEROP K) (QUOTE 0) (APP (B) (BYTE-READ (ADD (QUOTE 32) X (SUB1 K)) MEM) (READ-MEM X MEM (SUB1 K))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD . READ-MEM) (IMMEDIATE-DEPENDENTS0 BYTE-READ . READ-MEM) (IMMEDIATE-DEPENDENTS0 B . READ-MEM) (IMMEDIATE-DEPENDENTS0 APP . READ-MEM) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . READ-MEM) (DCELL . *1*READ-MEM))))) (PUT1-LST (QUOTE *1*BYTE-READ) (QUOTE (MAIN-EVENT BYTE-READ))) (PUT1-LST (QUOTE BYTE-READ) (QUOTE (TYPE-PRESCRIPTION-LST ((BYTE-READ 4 NIL NIL)) TOTALP-LST ((BYTE-READ . T)) SDEFN (LAMBDA (X MEM) (HEAD (READ X (QUOTE 32) (CDR MEM)) (B))) LISP-CODE *1*BYTE-READ SUBRP *1*FALSE LEVEL-NO 4 IDATE 1000402214823 SATELLITES (*1*BYTE-READ) IMMEDIATE-DEPENDENTS0 (MOVEP-READ READ-MEM) EVENT (DEFN BYTE-READ (X MEM) (HEAD (READ X (QUOTE 32) (CDR MEM)) (B))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B . BYTE-READ) (IMMEDIATE-DEPENDENTS0 READ . BYTE-READ) (IMMEDIATE-DEPENDENTS0 HEAD . BYTE-READ) (DCELL . *1*BYTE-READ))))) (PUT1-LST (QUOTE *1*PC-LONG-READP) (QUOTE (MAIN-EVENT PC-LONG-READP))) (PUT1-LST (QUOTE PC-LONG-READP) (QUOTE (TYPE-PRESCRIPTION-LST ((PC-LONG-READP 3 NIL NIL)) TOTALP-LST ((PC-LONG-READP . T)) SDEFN (LAMBDA (X MEM) (PC-READ-MEMP X MEM (LSZ))) LISP-CODE *1*PC-LONG-READP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214823 SATELLITES (*1*PC-LONG-READP) IMMEDIATE-DEPENDENTS0 (BCC-GROUP LINK_L-INS ABSOLUTE-LONG ADDR-INDEX2) EVENT (DEFN PC-LONG-READP (X MEM) (PC-READ-MEMP X MEM (LSZ))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSZ . PC-LONG-READP) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP . PC-LONG-READP) (DCELL . *1*PC-LONG-READP))))) (PUT1-LST (QUOTE *1*PC-WORD-READP) (QUOTE (MAIN-EVENT PC-WORD-READP))) (PUT1-LST (QUOTE PC-WORD-READP) (QUOTE (TYPE-PRESCRIPTION-LST ((PC-WORD-READP 3 NIL NIL)) TOTALP-LST ((PC-WORD-READP . T)) SDEFN (LAMBDA (X MEM) (PC-READ-MEMP X MEM (WSZ))) LISP-CODE *1*PC-WORD-READP SUBRP *1*FALSE LEVEL-NO 6 IDATE 1000402214823 SATELLITES (*1*PC-WORD-READP) IMMEDIATE-DEPENDENTS0 (STEPI EORI-TO-CCR-INS ANDI-TO-CCR-INS ORI-TO-CCR-INS S-BIT-SUBGROUP DBCC-INS BCC-GROUP RTD-INS LINK_W-INS MOVEM-EA-RN-SUBGROUP EXT-SUBGROUP IMMEDIATE PC-INDEX PC-DISP ABSOLUTE-SHORT ADDR-INDEX ADDR-INDEX2 ADDR-DISP) EVENT (DEFN PC-WORD-READP (X MEM) (PC-READ-MEMP X MEM (WSZ))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WSZ . PC-WORD-READP) (IMMEDIATE-DEPENDENTS0 PC-READ-MEMP . PC-WORD-READP) (DCELL . *1*PC-WORD-READP))))) (PUT1-LST (QUOTE *1*PC-READ-MEMP) (QUOTE (MAIN-EVENT PC-READ-MEMP))) (PUT1-LST (QUOTE PC-READ-MEMP) (QUOTE (TYPE-PRESCRIPTION-LST ((PC-READ-MEMP 3 NIL NIL NIL)) TOTALP-LST ((PC-READ-MEMP . T)) QUICK-BLOCK-INFO (UNCHANGING UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (X MEM K) (IF (EQUAL K (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP K) (IF (PC-BYTE-READP (ADD (QUOTE 32) X (SUB1 K)) MEM) (IF (PC-READ-MEMP X MEM (SUB1 K)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*TRUE)))) LISP-CODE *1*PC-READ-MEMP SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP K)) NIL) (TESTS-AND-CASES ((NOT (ZEROP K))) ((X MEM (SUB1 K))))) LEVEL-NO 6 JUSTIFICATIONS ((JUSTIFICATION (K) (COUNT K) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402214823 CONTROLLER-POCKETS (4) SATELLITES (*1*PC-READ-MEMP) IMMEDIATE-DEPENDENTS0 (IMMEDIATE MEM-POSTINDEX MEM-INDIRECT PC-LONG-READP PC-WORD-READP) EVENT (DEFN PC-READ-MEMP (X MEM K) (IF (ZEROP K) (QUOTE *1*TRUE) (AND (PC-BYTE-READP (ADD (QUOTE 32) X (SUB1 K)) MEM) (PC-READ-MEMP X MEM (SUB1 K))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD . PC-READ-MEMP) (IMMEDIATE-DEPENDENTS0 PC-BYTE-READP . PC-READ-MEMP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . PC-READ-MEMP) (DCELL . *1*PC-READ-MEMP))))) (PUT1-LST (QUOTE *1*PC-BYTE-READP) (QUOTE (MAIN-EVENT PC-BYTE-READP))) (PUT1-LST (QUOTE PC-BYTE-READP) (QUOTE (TYPE-PRESCRIPTION-LST ((PC-BYTE-READP 3 NIL NIL)) TOTALP-LST ((PC-BYTE-READP . T)) SDEFN (LAMBDA (X MEM) (PC-READP X (QUOTE 32) (CAR MEM))) LISP-CODE *1*PC-BYTE-READP SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402214823 SATELLITES (*1*PC-BYTE-READP) IMMEDIATE-DEPENDENTS0 (PC-READ-MEMP) EVENT (DEFN PC-BYTE-READP (X MEM) (PC-READP X (QUOTE 32) (CAR MEM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PC-READP . PC-BYTE-READP) (DCELL . *1*PC-BYTE-READP))))) (PUT1-LST (QUOTE *1*LONG-READP) (QUOTE (MAIN-EVENT LONG-READP))) (PUT1-LST (QUOTE LONG-READP) (QUOTE (TYPE-PRESCRIPTION-LST ((LONG-READP 3 NIL NIL)) TOTALP-LST ((LONG-READP . T)) SDEFN (LAMBDA (X MEM) (READ-MEMP X MEM (LSZ))) LISP-CODE *1*LONG-READP SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402214823 SATELLITES (*1*LONG-READP) IMMEDIATE-DEPENDENTS0 (RTD-MAPPING UNLK-INS MEM-POSTINDEX MEM-INDIRECT) EVENT (DEFN LONG-READP (X MEM) (READ-MEMP X MEM (LSZ))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LSZ . LONG-READP) (IMMEDIATE-DEPENDENTS0 READ-MEMP . LONG-READP) (DCELL . *1*LONG-READP))))) (PUT1-LST (QUOTE *1*WORD-READP) (QUOTE (MAIN-EVENT WORD-READP))) (PUT1-LST (QUOTE WORD-READP) (QUOTE (TYPE-PRESCRIPTION-LST ((WORD-READP 3 NIL NIL)) TOTALP-LST ((WORD-READP . T)) SDEFN (LAMBDA (X MEM) (READ-MEMP X MEM (WSZ))) LISP-CODE *1*WORD-READP SUBRP *1*FALSE LEVEL-NO 5 IDATE 1000402214823 SATELLITES (*1*WORD-READP) IMMEDIATE-DEPENDENTS0 (RTR-INS) EVENT (DEFN WORD-READP (X MEM) (READ-MEMP X MEM (WSZ))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 WSZ . WORD-READP) (IMMEDIATE-DEPENDENTS0 READ-MEMP . WORD-READP) (DCELL . *1*WORD-READP))))) (PUT1-LST (QUOTE *1*READ-MEMP) (QUOTE (MAIN-EVENT READ-MEMP))) (PUT1-LST (QUOTE READ-MEMP) (QUOTE (TYPE-PRESCRIPTION-LST ((READ-MEMP 3 NIL NIL NIL)) TOTALP-LST ((READ-MEMP . T)) QUICK-BLOCK-INFO (UNCHANGING UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (X MEM K) (IF (EQUAL K (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP K) (IF (BYTE-READP (ADD (QUOTE 32) X (SUB1 K)) MEM) (IF (READ-MEMP X MEM (SUB1 K)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (QUOTE *1*TRUE)))) LISP-CODE *1*READ-MEMP SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP K)) NIL) (TESTS-AND-CASES ((NOT (ZEROP K))) ((X MEM (SUB1 K))))) LEVEL-NO 5 JUSTIFICATIONS ((JUSTIFICATION (K) (COUNT K) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402214823 CONTROLLER-POCKETS (4) SATELLITES (*1*READ-MEMP) IMMEDIATE-DEPENDENTS0 (CMPM-INS CMPM-MAPPING READMP SUBX-INS2 ADDX-INS2 MC-INSTATE LONG-READP WORD-READP) EVENT (DEFN READ-MEMP (X MEM K) (IF (ZEROP K) (QUOTE *1*TRUE) (AND (BYTE-READP (ADD (QUOTE 32) X (SUB1 K)) MEM) (READ-MEMP X MEM (SUB1 K))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ADD . READ-MEMP) (IMMEDIATE-DEPENDENTS0 BYTE-READP . READ-MEMP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . READ-MEMP) (DCELL . *1*READ-MEMP))))) (PUT1-LST (QUOTE *1*BYTE-READP) (QUOTE (MAIN-EVENT BYTE-READP))) (PUT1-LST (QUOTE BYTE-READP) (QUOTE (TYPE-PRESCRIPTION-LST ((BYTE-READP 3 NIL NIL)) TOTALP-LST ((BYTE-READP . T)) SDEFN (LAMBDA (X MEM) (READP X (QUOTE 32) (CAR MEM))) LISP-CODE *1*BYTE-READP SUBRP *1*FALSE LEVEL-NO 4 IDATE 1000402214823 SATELLITES (*1*BYTE-READP) IMMEDIATE-DEPENDENTS0 (MOVEP-READP READ-MEMP) EVENT (DEFN BYTE-READP (X MEM) (READP X (QUOTE 32) (CAR MEM))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READP . BYTE-READP) (DCELL . *1*BYTE-READP))))) (PUT1-LST (QUOTE *1*MC-HALTP) (QUOTE (MAIN-EVENT MC-HALTP))) (PUT1-LST (QUOTE MC-HALTP) (QUOTE (TYPE-PRESCRIPTION-LST ((MC-HALTP 3 NIL)) TOTALP-LST ((MC-HALTP . T)) SDEFN (LAMBDA (S) (IF (EQUAL (MC-STATUS S) (QUOTE RUNNING)) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) LISP-CODE *1*MC-HALTP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214823 SATELLITES (*1*MC-HALTP) IMMEDIATE-DEPENDENTS0 (STEPN CMPI-INS CMPI-MAPPING EORI-INS ADDI-INS SUBI-INS ANDI-INS ORI-INS BTST-INS BSET-INS BCLR-INS BCHG-INS MOVEP-INS EOR-MAPPING CMPA-INS CMP-INS SCC-INS NOT-INS JSR-INS JMP-MAPPING MOVEM-EA-RN-INS MUL-DIV_L-INS TAS-INS TST-INS MOVEM-RN-EA-INS PEA-INS MOVE-TO-CCR-INS NEG-INS NEGX-INS MOVE-FROM-CCR-INS CLR-INS LEA-INS MOVEA-INS MOVE-INS MOVE-MAPPING MEM-ROXR-INS MEM-ROXL-INS MEM-ASR-INS MEM-ASL-INS MEM-LSR-INS MEM-LSL-INS MEM-ROR-INS MEM-ROL-INS DIV_W-INS OR-MAPPING OR-INS1 MUL_W-INS AND-MAPPING AND-INS1 SUBA-INS SUB-MAPPING SUB-INS1 ADDA-INS ADD-MAPPING ADD-INS1) EVENT (DEFN MC-HALTP (S) (NOT (EQUAL (MC-STATUS S) (QUOTE RUNNING)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MC-STATUS . MC-HALTP) (DCELL . *1*MC-HALTP))))) (PUT1-LST (QUOTE *1*LEN) (QUOTE (MAIN-EVENT LEN))) (PUT1-LST (QUOTE LEN) (QUOTE (TYPE-PRESCRIPTION-LST ((LEN 4 NIL)) TOTALP-LST ((LEN . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (LST) (IF (LISTP LST) (ADD1 (LEN (CDR LST))) (QUOTE 0))) LISP-CODE *1*LEN SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP LST)) NIL) (TESTS-AND-CASES ((NOT (NLISTP LST))) (((CDR LST))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (LST) (COUNT LST) LESSP (CDR-LESSP NLISTP ZERO CDR-LESSEQP))) IDATE 1000402214823 CONTROLLER-POCKETS (1) SATELLITES (*1*LEN) EVENT (DEFN LEN (LST) (IF (NLISTP LST) (QUOTE 0) (ADD1 (LEN (CDR LST))))) LOCAL-UNDO-TUPLES ((DCELL . *1*LEN))))) (PUT1-LST (QUOTE *1*MC-MEM) (QUOTE (MAIN-EVENT MC-MEM))) (PUT1-LST (QUOTE MC-MEM) (QUOTE (TYPE-PRESCRIPTION-LST ((MC-MEM -1 NIL)) TOTALP-LST ((MC-MEM . T)) SDEFN (LAMBDA (S) (CAR (CDR (CDR (CDR (CDR S)))))) LISP-CODE *1*MC-MEM SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214823 SATELLITES (*1*MC-MEM) IMMEDIATE-DEPENDENTS0 (STEPI CURRENT-INS EORI-TO-CCR-INS ANDI-TO-CCR-INS ORI-TO-CCR-INS S-BIT-SUBGROUP MOVEP-TO-REG MOVEP-TO-MEM CMPM-INS CMPM-MAPPING DBCC-INS DBCC-LOOP BCC-GROUP RTR-INS RTD-INS RTD-MAPPING UNLK-INS LINK_W-INS LINK_L-INS LINK-MAPPING MOVEM-EA-RN-SUBGROUP MOVEM-EA-RN-INS EXT-SUBGROUP MOVEM-RN-EA-INS SUBX-INS2 ADDX-INS2 M-MAPPING A-MAPPING D-MAPPING MC-INSTATE IMMEDIATE PC-INDEX PC-DISP ABSOLUTE-LONG ABSOLUTE-SHORT ADDR-INDEX ADDR-INDEX2 MEM-POSTINDEX MEM-INDIRECT ADDR-DISP OPERAND PUSH-SP UPDATE-CCR UPDATE-PC UPDATE-RFILE HALT) EVENT (DEFN MC-MEM (S) (CAR (CDR (CDR (CDR (CDR S)))))) LOCAL-UNDO-TUPLES ((DCELL . *1*MC-MEM))))) (PUT1-LST (QUOTE *1*MC-CCR) (QUOTE (MAIN-EVENT MC-CCR))) (PUT1-LST (QUOTE MC-CCR) (QUOTE (TYPE-PRESCRIPTION-LST ((MC-CCR 4 NIL)) TOTALP-LST ((MC-CCR . T)) SDEFN (LAMBDA (S) (HEAD (CAR (CDR (CDR (CDR S)))) (B))) LISP-CODE *1*MC-CCR SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*MC-CCR) IMMEDIATE-DEPENDENTS0 (CMPI-MAPPING EORI-TO-CCR-INS ANDI-TO-CCR-INS ORI-TO-CCR-INS BTST-INS BSET-INS BCLR-INS BCHG-INS CMPM-MAPPING EOR-MAPPING CMPA-INS CMP-INS MOVEQ-INS DBCC-INS SCC-INS BCC-RA-SR NOT-INS TRAPV-INS MULS_L_DLDH MULS_L_DL MULU_L_DLDH MULU_L_DL DIVU_L DIVUL_L DIVS_L DIVSL_L TAS-INS TST-INS EXT-INS SWAP-INS NEGX-INS MOVE-FROM-CCR-INS CLR-INS EXTB-INS MOVE-MAPPING MEM-ROXR-INS MEM-ROXL-INS REGISTER-ROXR-INS REGISTER-ROXL-INS MEM-ASR-INS MEM-ASL-INS REGISTER-ASR-INS REGISTER-ASL-INS MEM-LSR-INS MEM-LSL-INS REGISTER-LSR-INS REGISTER-LSL-INS MEM-ROR-INS MEM-ROL-INS REGISTER-ROR-INS REGISTER-ROL-INS DIVU_W-INS DIVS_W-INS OR-MAPPING OR-INS1 MULS_W-INS MULU_W-INS AND-MAPPING AND-INS1 SUBX-INS2 SUBX-INS1 ADDX-INS2 ADDX-INS1 M-MAPPING A-MAPPING D-MAPPING UPDATE-MEM UPDATE-CCR UPDATE-PC UPDATE-RFILE HALT) EVENT (DEFN MC-CCR (S) (HEAD (CAR (CDR (CDR (CDR S)))) (B))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B . MC-CCR) (IMMEDIATE-DEPENDENTS0 HEAD . MC-CCR) (DCELL . *1*MC-CCR))))) (PUT1-LST (QUOTE *1*MC-PC) (QUOTE (MAIN-EVENT MC-PC))) (PUT1-LST (QUOTE MC-PC) (QUOTE (TYPE-PRESCRIPTION-LST ((MC-PC 4 NIL)) TOTALP-LST ((MC-PC . T)) SDEFN (LAMBDA (S) (HEAD (CAR (CDR (CDR S))) (L))) LISP-CODE *1*MC-PC SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*MC-PC) IMMEDIATE-DEPENDENTS0 (GCD-EXAMPLE STEPI CMPI-INS EORI-SUBGROUP EORI-INS ADDI-INS SUBI-INS ANDI-SUBGROUP ANDI-INS ORI-SUBGROUP ORI-INS S-BIT-SUBGROUP MOVEP-INS DBCC-INS DBCC-LOOP BCC-GROUP BCC-RA-SR BSR-INS JSR-INS RTD-INS LINK_W-INS LINK_L-INS MOVEM-EA-RN-SUBGROUP EXT-SUBGROUP M-MAPPING A-MAPPING D-MAPPING EFFEC-ADDR UPDATE-MEM UPDATE-CCR UPDATE-RFILE HALT) EVENT (DEFN MC-PC (S) (HEAD (CAR (CDR (CDR S))) (L))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 L . MC-PC) (IMMEDIATE-DEPENDENTS0 HEAD . MC-PC) (DCELL . *1*MC-PC))))) (PUT1-LST (QUOTE *1*MC-RFILE) (QUOTE (MAIN-EVENT MC-RFILE))) (PUT1-LST (QUOTE MC-RFILE) (QUOTE (TYPE-PRESCRIPTION-LST ((MC-RFILE -1 NIL)) TOTALP-LST ((MC-RFILE . T)) SDEFN (LAMBDA (S) (CAR (CDR S))) LISP-CODE *1*MC-RFILE SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214823 SATELLITES (*1*MC-RFILE) IMMEDIATE-DEPENDENTS0 (GCD-EXAMPLE MOVEM-EA-RN-INS MOVEM-RN-EA-INS M-MAPPING A-MAPPING D-MAPPING WRITE-AN WRITE-DN READ-AN READ-DN UPDATE-MEM UPDATE-CCR UPDATE-PC HALT) EVENT (DEFN MC-RFILE (S) (CAR (CDR S))) LOCAL-UNDO-TUPLES ((DCELL . *1*MC-RFILE))))) (PUT1-LST (QUOTE *1*MC-STATUS) (QUOTE (MAIN-EVENT MC-STATUS))) (PUT1-LST (QUOTE MC-STATUS) (QUOTE (TYPE-PRESCRIPTION-LST ((MC-STATUS -1 NIL)) TOTALP-LST ((MC-STATUS . T)) SDEFN (LAMBDA (S) (CAR S)) LISP-CODE *1*MC-STATUS SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214823 SATELLITES (*1*MC-STATUS) IMMEDIATE-DEPENDENTS0 (GCD-EXAMPLE STEPN M-MAPPING A-MAPPING D-MAPPING UPDATE-MEM UPDATE-CCR UPDATE-PC UPDATE-RFILE MC-HALTP) EVENT (DEFN MC-STATUS (S) (CAR S)) LOCAL-UNDO-TUPLES ((DCELL . *1*MC-STATUS))))) (PUT1-LST (QUOTE *1*MC-STATE) (QUOTE (MAIN-EVENT MC-STATE))) (PUT1-LST (QUOTE MC-STATE) (QUOTE (TYPE-PRESCRIPTION-LST ((MC-STATE 16 NIL NIL NIL NIL NIL)) TOTALP-LST ((MC-STATE . T)) SDEFN (LAMBDA (STATUS REGS PC CCR MEM) (CONS STATUS (CONS REGS (CONS PC (CONS CCR (CONS MEM (QUOTE NIL))))))) LISP-CODE *1*MC-STATE SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214823 SATELLITES (*1*MC-STATE) IMMEDIATE-DEPENDENTS0 (GCD-EXAMPLE M-MAPPING A-MAPPING D-MAPPING UPDATE-MEM UPDATE-CCR UPDATE-PC UPDATE-RFILE HALT) EVENT (DEFN MC-STATE (STATUS REGS PC CCR MEM) (CONS STATUS (CONS REGS (CONS PC (CONS CCR (CONS MEM (QUOTE NIL))))))) LOCAL-UNDO-TUPLES ((DCELL . *1*MC-STATE))))) (PUT1-LST (QUOTE *1*WRITE-RN) (QUOTE (MAIN-EVENT WRITE-RN))) (PUT1-LST (QUOTE WRITE-RN) (QUOTE (TYPE-PRESCRIPTION-LST ((WRITE-RN 16 NIL NIL NIL NIL)) TOTALP-LST ((WRITE-RN . T)) SDEFN (LAMBDA (OPLEN VALUE RN REGS) (PUT-NTH (REPLACE OPLEN VALUE (GET-NTH RN REGS)) RN REGS)) LISP-CODE *1*WRITE-RN SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*WRITE-RN) IMMEDIATE-DEPENDENTS0 (WRITEM-RN A-MAPPING D-MAPPING WRITE-AN WRITE-DN) EVENT (DEFN WRITE-RN (OPLEN VALUE RN REGS) (PUT-NTH (REPLACE OPLEN VALUE (GET-NTH RN REGS)) RN REGS)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GET-NTH . WRITE-RN) (IMMEDIATE-DEPENDENTS0 REPLACE . WRITE-RN) (IMMEDIATE-DEPENDENTS0 PUT-NTH . WRITE-RN) (DCELL . *1*WRITE-RN))))) (PUT1-LST (QUOTE *1*READ-RN) (QUOTE (MAIN-EVENT READ-RN))) (PUT1-LST (QUOTE READ-RN) (QUOTE (TYPE-PRESCRIPTION-LST ((READ-RN 4 NIL NIL NIL)) TOTALP-LST ((READ-RN . T)) SDEFN (LAMBDA (OPLEN RN REGS) (HEAD (GET-NTH RN REGS) OPLEN)) LISP-CODE *1*READ-RN SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214823 SATELLITES (*1*READ-RN) IMMEDIATE-DEPENDENTS0 (READM-RN READ-AN READ-DN) EVENT (DEFN READ-RN (OPLEN RN REGS) (HEAD (GET-NTH RN REGS) OPLEN)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 GET-NTH . READ-RN) (IMMEDIATE-DEPENDENTS0 HEAD . READ-RN) (DCELL . *1*READ-RN))))) (PUT1-LST (QUOTE *1*OP-SZ) (QUOTE (MAIN-EVENT OP-SZ))) (PUT1-LST (QUOTE OP-SZ) (QUOTE (TYPE-PRESCRIPTION-LST ((OP-SZ 4 NIL)) TOTALP-LST ((OP-SZ . T)) SDEFN (LAMBDA (OPLEN) (QUOTIENT OPLEN (B))) LISP-CODE *1*OP-SZ SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402214823 SATELLITES (*1*OP-SZ) IMMEDIATE-DEPENDENTS0 (MOVEP-TO-REG MOVEP-TO-MEM CMPM-INS CMPM-MAPPING MOVEM-EA-RN-INS READMP MOVEM-RN-EA-INS MOVEM-PREDEC WRITEMP SUBX-INS2 ADDX-INS2 M-MAPPING MC-INSTATE IMMEDIATE MEM-POSTINDEX MEM-INDIRECT PRE-EFFECT POST-EFFECT OPERAND) EVENT (DEFN OP-SZ (OPLEN) (QUOTIENT OPLEN (B))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B . OP-SZ) (DCELL . *1*OP-SZ))))) (PUT1-LST (QUOTE *1*PUT-NTH) (QUOTE (MAIN-EVENT PUT-NTH))) (PUT1-LST (QUOTE PUT-NTH) (QUOTE (TYPE-PRESCRIPTION-LST ((PUT-NTH 16 NIL NIL NIL)) TOTALP-LST ((PUT-NTH . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (VALUE N LST) (IF (EQUAL N (QUOTE 0)) (CONS VALUE (CDR LST)) (IF (NUMBERP N) (CONS (CAR LST) (PUT-NTH VALUE (SUB1 N) (CDR LST))) (CONS VALUE (CDR LST))))) LISP-CODE *1*PUT-NTH SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) ((VALUE (SUB1 N) (CDR LST))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402214823 CONTROLLER-POCKETS (2) SATELLITES (*1*PUT-NTH) IMMEDIATE-DEPENDENTS0 (WRITE-RN) EVENT (DEFN PUT-NTH (VALUE N LST) (IF (ZEROP N) (CONS VALUE (CDR LST)) (CONS (CAR LST) (PUT-NTH VALUE (SUB1 N) (CDR LST))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . PUT-NTH) (DCELL . *1*PUT-NTH))))) (PUT1-LST (QUOTE *1*GET-NTH) (QUOTE (MAIN-EVENT GET-NTH))) (PUT1-LST (QUOTE GET-NTH) (QUOTE (TYPE-PRESCRIPTION-LST ((GET-NTH -1 NIL NIL)) TOTALP-LST ((GET-NTH . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (N LST) (IF (EQUAL N (QUOTE 0)) (CAR LST) (IF (NUMBERP N) (GET-NTH (SUB1 N) (CDR LST)) (CAR LST)))) LISP-CODE *1*GET-NTH SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) (((SUB1 N) (CDR LST))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402214823 CONTROLLER-POCKETS (1) SATELLITES (*1*GET-NTH) IMMEDIATE-DEPENDENTS0 (WRITE-RN READ-RN) EVENT (DEFN GET-NTH (N LST) (IF (ZEROP N) (CAR LST) (GET-NTH (SUB1 N) (CDR LST)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . GET-NTH) (DCELL . *1*GET-NTH))))) (PUT1-LST (QUOTE *1*WRITE) (QUOTE (MAIN-EVENT WRITE))) (PUT1-LST (QUOTE WRITE) (QUOTE (TYPE-PRESCRIPTION-LST ((WRITE 16 NIL NIL NIL NIL)) TOTALP-LST ((WRITE . T)) QUICK-BLOCK-INFO (UNCHANGING UNCHANGING SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (VALUE X N BT) (IF (EQUAL N (QUOTE 0)) (MAKE-BT VALUE (BRANCH0 BT) (BRANCH1 BT)) (IF (NUMBERP N) (IF (B0P (BITN X (SUB1 N))) (MAKE-BT (VALUE-FIELD BT) (WRITE VALUE X (SUB1 N) (BRANCH0 BT)) (BRANCH1 BT)) (MAKE-BT (VALUE-FIELD BT) (BRANCH0 BT) (WRITE VALUE X (SUB1 N) (BRANCH1 BT)))) (MAKE-BT VALUE (BRANCH0 BT) (BRANCH1 BT))))) LISP-CODE *1*WRITE SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N)) (B0P (BITN X (SUB1 N)))) ((VALUE X (SUB1 N) (BRANCH0 BT)))) (TESTS-AND-CASES ((NOT (ZEROP N)) (NOT (B0P (BITN X (SUB1 N))))) ((VALUE X (SUB1 N) (BRANCH1 BT))))) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP BCAR TAIL BITN B0 B0P COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402214823 CONTROLLER-POCKETS (4) SATELLITES (*1*WRITE) IMMEDIATE-DEPENDENTS0 (BYTE-WRITE) EVENT (DEFN WRITE (VALUE X N BT) (IF (ZEROP N) (MAKE-BT VALUE (BRANCH0 BT) (BRANCH1 BT)) (IF (B0P (BITN X (SUB1 N))) (MAKE-BT (VALUE-FIELD BT) (WRITE VALUE X (SUB1 N) (BRANCH0 BT)) (BRANCH1 BT)) (MAKE-BT (VALUE-FIELD BT) (BRANCH0 BT) (WRITE VALUE X (SUB1 N) (BRANCH1 BT)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 VALUE-FIELD . WRITE) (IMMEDIATE-DEPENDENTS0 BRANCH1 . WRITE) (IMMEDIATE-DEPENDENTS0 BRANCH0 . WRITE) (IMMEDIATE-DEPENDENTS0 MAKE-BT . WRITE) (IMMEDIATE-DEPENDENTS0 BCAR . WRITE) (IMMEDIATE-DEPENDENTS0 TAIL . WRITE) (IMMEDIATE-DEPENDENTS0 BITN . WRITE) (IMMEDIATE-DEPENDENTS0 B0 . WRITE) (IMMEDIATE-DEPENDENTS0 B0P . WRITE) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . WRITE) (DCELL . *1*WRITE))))) (PUT1-LST (QUOTE *1*PC-READ) (QUOTE (MAIN-EVENT PC-READ))) (PUT1-LST (QUOTE PC-READ) (QUOTE (TYPE-PRESCRIPTION-LST ((PC-READ -1 NIL NIL NIL)) TOTALP-LST ((PC-READ . T)) SDEFN (LAMBDA (X N BT) (READ X N BT)) LISP-CODE *1*PC-READ SUBRP *1*FALSE LEVEL-NO 4 IDATE 1000402214823 SATELLITES (*1*PC-READ) IMMEDIATE-DEPENDENTS0 (PC-BYTE-READ) EVENT (DEFN PC-READ (X N BT) (READ X N BT)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 READ . PC-READ) (DCELL . *1*PC-READ))))) (PUT1-LST (QUOTE *1*READ) (QUOTE (MAIN-EVENT READ))) (PUT1-LST (QUOTE READ) (QUOTE (TYPE-PRESCRIPTION-LST ((READ -1 NIL NIL NIL)) TOTALP-LST ((READ . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (X N BT) (IF (EQUAL N (QUOTE 0)) (VALUE-FIELD BT) (IF (NUMBERP N) (IF (B0P (BITN X (SUB1 N))) (READ X (SUB1 N) (BRANCH0 BT)) (READ X (SUB1 N) (BRANCH1 BT))) (VALUE-FIELD BT)))) LISP-CODE *1*READ SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N)) (B0P (BITN X (SUB1 N)))) ((X (SUB1 N) (BRANCH0 BT)))) (TESTS-AND-CASES ((NOT (ZEROP N)) (NOT (B0P (BITN X (SUB1 N))))) ((X (SUB1 N) (BRANCH1 BT))))) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP BCAR TAIL BITN B0 B0P COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402214823 CONTROLLER-POCKETS (2) SATELLITES (*1*READ) IMMEDIATE-DEPENDENTS0 (BYTE-READ PC-READ) EVENT (DEFN READ (X N BT) (IF (ZEROP N) (VALUE-FIELD BT) (IF (B0P (BITN X (SUB1 N))) (READ X (SUB1 N) (BRANCH0 BT)) (READ X (SUB1 N) (BRANCH1 BT))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BRANCH1 . READ) (IMMEDIATE-DEPENDENTS0 BRANCH0 . READ) (IMMEDIATE-DEPENDENTS0 VALUE-FIELD . READ) (IMMEDIATE-DEPENDENTS0 BCAR . READ) (IMMEDIATE-DEPENDENTS0 TAIL . READ) (IMMEDIATE-DEPENDENTS0 BITN . READ) (IMMEDIATE-DEPENDENTS0 B0 . READ) (IMMEDIATE-DEPENDENTS0 B0P . READ) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . READ) (DCELL . *1*READ))))) (PUT1-LST (QUOTE *1*WRITEP) (QUOTE (MAIN-EVENT WRITEP))) (PUT1-LST (QUOTE WRITEP) (QUOTE (TYPE-PRESCRIPTION-LST ((WRITEP 3 NIL NIL NIL)) TOTALP-LST ((WRITEP . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (X N MAP) (IF (MEMBER (QUOTE UNAVAILABLE) (VALUE-FIELD MAP)) (QUOTE *1*FALSE) (IF (MEMBER (QUOTE ROM) (VALUE-FIELD MAP)) (QUOTE *1*FALSE) (IF (LISTP MAP) (IF (EQUAL N (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP N) (IF (B0P (BITN X (SUB1 N))) (WRITEP X (SUB1 N) (BRANCH0 MAP)) (WRITEP X (SUB1 N) (BRANCH1 MAP))) (QUOTE *1*TRUE))) (QUOTE *1*TRUE))))) LISP-CODE *1*WRITEP SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((OR (MEMBER (QUOTE UNAVAILABLE) (VALUE-FIELD MAP)) (MEMBER (QUOTE ROM) (VALUE-FIELD MAP)))) NIL) (TESTS-AND-CASES ((NOT (OR (MEMBER (QUOTE UNAVAILABLE) (VALUE-FIELD MAP)) (MEMBER (QUOTE ROM) (VALUE-FIELD MAP)))) (OR (NLISTP MAP) (ZEROP N))) NIL) (TESTS-AND-CASES ((NOT (OR (MEMBER (QUOTE UNAVAILABLE) (VALUE-FIELD MAP)) (MEMBER (QUOTE ROM) (VALUE-FIELD MAP)))) (NOT (OR (NLISTP MAP) (ZEROP N))) (B0P (BITN X (SUB1 N)))) ((X (SUB1 N) (BRANCH0 MAP)))) (TESTS-AND-CASES ((NOT (OR (MEMBER (QUOTE UNAVAILABLE) (VALUE-FIELD MAP)) (MEMBER (QUOTE ROM) (VALUE-FIELD MAP)))) (NOT (OR (NLISTP MAP) (ZEROP N))) (NOT (B0P (BITN X (SUB1 N))))) ((X (SUB1 N) (BRANCH1 MAP))))) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (VALUE-FIELD OR NLISTP ZEROP BCAR TAIL BITN B0 B0P COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402214823 CONTROLLER-POCKETS (2) SATELLITES (*1*WRITEP) IMMEDIATE-DEPENDENTS0 (BYTE-WRITEP) EVENT (DEFN WRITEP (X N MAP) (IF (OR (MEMBER (QUOTE UNAVAILABLE) (VALUE-FIELD MAP)) (MEMBER (QUOTE ROM) (VALUE-FIELD MAP))) (QUOTE *1*FALSE) (IF (OR (NLISTP MAP) (ZEROP N)) (QUOTE *1*TRUE) (IF (B0P (BITN X (SUB1 N))) (WRITEP X (SUB1 N) (BRANCH0 MAP)) (WRITEP X (SUB1 N) (BRANCH1 MAP))))) ((LESSP (COUNT N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BRANCH1 . WRITEP) (IMMEDIATE-DEPENDENTS0 BRANCH0 . WRITEP) (IMMEDIATE-DEPENDENTS0 VALUE-FIELD . WRITEP) (IMMEDIATE-DEPENDENTS0 BCAR . WRITEP) (IMMEDIATE-DEPENDENTS0 TAIL . WRITEP) (IMMEDIATE-DEPENDENTS0 BITN . WRITEP) (IMMEDIATE-DEPENDENTS0 B0 . WRITEP) (IMMEDIATE-DEPENDENTS0 B0P . WRITEP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . WRITEP) (DCELL . *1*WRITEP))))) (PUT1-LST (QUOTE *1*PC-READP) (QUOTE (MAIN-EVENT PC-READP))) (PUT1-LST (QUOTE PC-READP) (QUOTE (TYPE-PRESCRIPTION-LST ((PC-READP 3 NIL NIL NIL)) TOTALP-LST ((PC-READP . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (X N MAP) (IF (MEMBER (QUOTE UNAVAILABLE) (VALUE-FIELD MAP)) (QUOTE *1*FALSE) (IF (MEMBER (QUOTE ROM) (VALUE-FIELD MAP)) (READP X N MAP) (IF (LISTP MAP) (IF (EQUAL N (QUOTE 0)) (QUOTE *1*FALSE) (IF (NUMBERP N) (IF (B0P (BITN X (SUB1 N))) (PC-READP X (SUB1 N) (BRANCH0 MAP)) (PC-READP X (SUB1 N) (BRANCH1 MAP))) (QUOTE *1*FALSE))) (QUOTE *1*FALSE))))) LISP-CODE *1*PC-READP SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((MEMBER (QUOTE UNAVAILABLE) (VALUE-FIELD MAP))) NIL) (TESTS-AND-CASES ((NOT (MEMBER (QUOTE UNAVAILABLE) (VALUE-FIELD MAP))) (MEMBER (QUOTE ROM) (VALUE-FIELD MAP))) NIL) (TESTS-AND-CASES ((NOT (MEMBER (QUOTE UNAVAILABLE) (VALUE-FIELD MAP))) (NOT (MEMBER (QUOTE ROM) (VALUE-FIELD MAP))) (OR (NLISTP MAP) (ZEROP N))) NIL) (TESTS-AND-CASES ((NOT (MEMBER (QUOTE UNAVAILABLE) (VALUE-FIELD MAP))) (NOT (MEMBER (QUOTE ROM) (VALUE-FIELD MAP))) (NOT (OR (NLISTP MAP) (ZEROP N))) (B0P (BITN X (SUB1 N)))) ((X (SUB1 N) (BRANCH0 MAP)))) (TESTS-AND-CASES ((NOT (MEMBER (QUOTE UNAVAILABLE) (VALUE-FIELD MAP))) (NOT (MEMBER (QUOTE ROM) (VALUE-FIELD MAP))) (NOT (OR (NLISTP MAP) (ZEROP N))) (NOT (B0P (BITN X (SUB1 N))))) ((X (SUB1 N) (BRANCH1 MAP))))) LEVEL-NO 5 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (VALUE-FIELD MEMBER NLISTP ZEROP OR BCAR TAIL BITN B0 B0P COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402214823 CONTROLLER-POCKETS (2) SATELLITES (*1*PC-READP) IMMEDIATE-DEPENDENTS0 (PC-BYTE-READP) EVENT (DEFN PC-READP (X N MAP) (IF (MEMBER (QUOTE UNAVAILABLE) (VALUE-FIELD MAP)) (QUOTE *1*FALSE) (IF (MEMBER (QUOTE ROM) (VALUE-FIELD MAP)) (READP X N MAP) (IF (OR (NLISTP MAP) (ZEROP N)) (QUOTE *1*FALSE) (IF (B0P (BITN X (SUB1 N))) (PC-READP X (SUB1 N) (BRANCH0 MAP)) (PC-READP X (SUB1 N) (BRANCH1 MAP)))))) ((LESSP (COUNT N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BRANCH1 . PC-READP) (IMMEDIATE-DEPENDENTS0 BRANCH0 . PC-READP) (IMMEDIATE-DEPENDENTS0 READP . PC-READP) (IMMEDIATE-DEPENDENTS0 VALUE-FIELD . PC-READP) (IMMEDIATE-DEPENDENTS0 BCAR . PC-READP) (IMMEDIATE-DEPENDENTS0 TAIL . PC-READP) (IMMEDIATE-DEPENDENTS0 BITN . PC-READP) (IMMEDIATE-DEPENDENTS0 B0 . PC-READP) (IMMEDIATE-DEPENDENTS0 B0P . PC-READP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . PC-READP) (DCELL . *1*PC-READP))))) (PUT1-LST (QUOTE *1*READP) (QUOTE (MAIN-EVENT READP))) (PUT1-LST (QUOTE READP) (QUOTE (TYPE-PRESCRIPTION-LST ((READP 3 NIL NIL NIL)) TOTALP-LST ((READP . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (X N MAP) (IF (MEMBER (QUOTE UNAVAILABLE) (VALUE-FIELD MAP)) (QUOTE *1*FALSE) (IF (LISTP MAP) (IF (EQUAL N (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP N) (IF (B0P (BITN X (SUB1 N))) (READP X (SUB1 N) (BRANCH0 MAP)) (READP X (SUB1 N) (BRANCH1 MAP))) (QUOTE *1*TRUE))) (QUOTE *1*TRUE)))) LISP-CODE *1*READP SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((MEMBER (QUOTE UNAVAILABLE) (VALUE-FIELD MAP))) NIL) (TESTS-AND-CASES ((NOT (MEMBER (QUOTE UNAVAILABLE) (VALUE-FIELD MAP))) (OR (NLISTP MAP) (ZEROP N))) NIL) (TESTS-AND-CASES ((NOT (MEMBER (QUOTE UNAVAILABLE) (VALUE-FIELD MAP))) (NOT (OR (NLISTP MAP) (ZEROP N))) (B0P (BITN X (SUB1 N)))) ((X (SUB1 N) (BRANCH0 MAP)))) (TESTS-AND-CASES ((NOT (MEMBER (QUOTE UNAVAILABLE) (VALUE-FIELD MAP))) (NOT (OR (NLISTP MAP) (ZEROP N))) (NOT (B0P (BITN X (SUB1 N))))) ((X (SUB1 N) (BRANCH1 MAP))))) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (VALUE-FIELD NLISTP ZEROP OR BCAR TAIL BITN B0 B0P COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402214822 CONTROLLER-POCKETS (2) SATELLITES (*1*READP) IMMEDIATE-DEPENDENTS0 (BYTE-READP PC-READP) EVENT (DEFN READP (X N MAP) (IF (MEMBER (QUOTE UNAVAILABLE) (VALUE-FIELD MAP)) (QUOTE *1*FALSE) (IF (OR (NLISTP MAP) (ZEROP N)) (QUOTE *1*TRUE) (IF (B0P (BITN X (SUB1 N))) (READP X (SUB1 N) (BRANCH0 MAP)) (READP X (SUB1 N) (BRANCH1 MAP))))) ((LESSP (COUNT N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BRANCH1 . READP) (IMMEDIATE-DEPENDENTS0 BRANCH0 . READP) (IMMEDIATE-DEPENDENTS0 VALUE-FIELD . READP) (IMMEDIATE-DEPENDENTS0 BCAR . READP) (IMMEDIATE-DEPENDENTS0 TAIL . READP) (IMMEDIATE-DEPENDENTS0 BITN . READP) (IMMEDIATE-DEPENDENTS0 B0 . READP) (IMMEDIATE-DEPENDENTS0 B0P . READP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . READP) (DCELL . *1*READP))))) (PUT1-LST (QUOTE *1*MAKE-BT) (QUOTE (MAIN-EVENT MAKE-BT))) (PUT1-LST (QUOTE MAKE-BT) (QUOTE (TYPE-PRESCRIPTION-LST ((MAKE-BT 16 NIL NIL NIL)) TOTALP-LST ((MAKE-BT . T)) SDEFN (LAMBDA (VALUE BR0 BR1) (CONS VALUE (CONS BR0 BR1))) LISP-CODE *1*MAKE-BT SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*MAKE-BT) IMMEDIATE-DEPENDENTS0 (MAP-UPDATE MAKE-MAP WRITE) EVENT (DEFN MAKE-BT (VALUE BR0 BR1) (CONS VALUE (CONS BR0 BR1))) LOCAL-UNDO-TUPLES ((DCELL . *1*MAKE-BT))))) (PUT1-LST (QUOTE *1*BRANCH1) (QUOTE (MAIN-EVENT BRANCH1))) (PUT1-LST (QUOTE BRANCH1) (QUOTE (TYPE-PRESCRIPTION-LST ((BRANCH1 -1 NIL)) TOTALP-LST ((BRANCH1 . T)) SDEFN (LAMBDA (BT) (IF (LISTP BT) (IF (LISTP (CDR BT)) (CDR (CDR BT)) (QUOTE NIL)) (QUOTE NIL))) LISP-CODE *1*BRANCH1 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*BRANCH1) IMMEDIATE-DEPENDENTS0 (MAP-UPDATE MAKE-MAP WRITE READ WRITEP PC-READP READP) EVENT (DEFN BRANCH1 (BT) (IF (AND (LISTP BT) (LISTP (CDR BT))) (CDR (CDR BT)) (QUOTE NIL))) LOCAL-UNDO-TUPLES ((DCELL . *1*BRANCH1))))) (PUT1-LST (QUOTE *1*BRANCH0) (QUOTE (MAIN-EVENT BRANCH0))) (PUT1-LST (QUOTE BRANCH0) (QUOTE (TYPE-PRESCRIPTION-LST ((BRANCH0 -1 NIL)) TOTALP-LST ((BRANCH0 . T)) SDEFN (LAMBDA (BT) (IF (LISTP BT) (CAR (CDR BT)) (QUOTE NIL))) LISP-CODE *1*BRANCH0 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*BRANCH0) IMMEDIATE-DEPENDENTS0 (MAP-UPDATE MAKE-MAP WRITE READ WRITEP PC-READP READP) EVENT (DEFN BRANCH0 (BT) (IF (LISTP BT) (CAR (CDR BT)) (QUOTE NIL))) LOCAL-UNDO-TUPLES ((DCELL . *1*BRANCH0))))) (PUT1-LST (QUOTE *1*VALUE-FIELD) (QUOTE (MAIN-EVENT VALUE-FIELD))) (PUT1-LST (QUOTE VALUE-FIELD) (QUOTE (TYPE-PRESCRIPTION-LST ((VALUE-FIELD -1 NIL)) TOTALP-LST ((VALUE-FIELD . T)) SDEFN (LAMBDA (BT) (IF (LISTP BT) (CAR BT) (QUOTE 0))) LISP-CODE *1*VALUE-FIELD SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*VALUE-FIELD) IMMEDIATE-DEPENDENTS0 (WRITE READ WRITEP PC-READP READP) EVENT (DEFN VALUE-FIELD (BT) (IF (LISTP BT) (CAR BT) (QUOTE 0))) LOCAL-UNDO-TUPLES ((DCELL . *1*VALUE-FIELD))))) (PUT1-LST (QUOTE *1*INT-TO-NAT) (QUOTE (MAIN-EVENT INT-TO-NAT))) (PUT1-LST (QUOTE INT-TO-NAT) (QUOTE (TYPE-PRESCRIPTION-LST ((INT-TO-NAT 4 NIL NIL)) TOTALP-LST ((INT-TO-NAT . T)) SDEFN (LAMBDA (X SIZE) (IF (NEGATIVEP X) (DIFFERENCE (EXP (QUOTE 2) SIZE) (NEGATIVE-GUTS X)) (IF (NUMBERP X) X (QUOTE 0)))) LISP-CODE *1*INT-TO-NAT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214822 SATELLITES (*1*INT-TO-NAT) IMMEDIATE-DEPENDENTS0 (IREM IQUOT MULS) EVENT (DEFN INT-TO-NAT (X SIZE) (IF (NEGATIVEP X) (DIFFERENCE (EXP (QUOTE 2) SIZE) (NEGATIVE-GUTS X)) (FIX X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP . INT-TO-NAT) (DCELL . *1*INT-TO-NAT))))) (PUT1-LST (QUOTE *1*NAT-TO-INT) (QUOTE (MAIN-EVENT NAT-TO-INT))) (PUT1-LST (QUOTE NAT-TO-INT) (QUOTE (TYPE-PRESCRIPTION-LST ((NAT-TO-INT 36 NIL NIL)) TOTALP-LST ((NAT-TO-INT . T)) SDEFN (LAMBDA (X N) (IF (LESSP X (EXP (QUOTE 2) (SUB1 N))) (IF (NUMBERP X) X (QUOTE 0)) (MINUS (DIFFERENCE (EXP (QUOTE 2) N) X)))) LISP-CODE *1*NAT-TO-INT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214822 SATELLITES (*1*NAT-TO-INT) IMMEDIATE-DEPENDENTS0 (DBCC-LOOP DIV_L-INS ASL-V DIVS_W-INS DIVS-V IREM IQUOT MULS-V MULS) EVENT (DEFN NAT-TO-INT (X N) (IF (LESSP X (EXP (QUOTE 2) (SUB1 N))) (FIX X) (MINUS (DIFFERENCE (EXP (QUOTE 2) N) X)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP . NAT-TO-INT) (DCELL . *1*NAT-TO-INT))))) (PUT1-LST (QUOTE *1*INT-RANGEP) (QUOTE (MAIN-EVENT INT-RANGEP))) (PUT1-LST (QUOTE INT-RANGEP) (QUOTE (TYPE-PRESCRIPTION-LST ((INT-RANGEP 3 NIL NIL)) TOTALP-LST ((INT-RANGEP . T)) SDEFN (LAMBDA (INT N) (IF (EQUAL N (QUOTE 0)) (EQUAL (FIX-INT INT) (QUOTE 0)) (IF (NUMBERP N) (IF (NEGATIVEP INT) (IF (LESSP (EXP (QUOTE 2) (SUB1 N)) (NEGATIVE-GUTS INT)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (LESSP INT (EXP (QUOTE 2) (SUB1 N)))) (EQUAL (FIX-INT INT) (QUOTE 0))))) LISP-CODE *1*INT-RANGEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214822 SATELLITES (*1*INT-RANGEP) IMMEDIATE-DEPENDENTS0 (ASL-V DIVS-V MULS-V) EVENT (DEFN INT-RANGEP (INT N) (IF (ZEROP N) (EQUAL (FIX-INT INT) (QUOTE 0)) (IF (NEGATIVEP INT) (IF (LESSP (EXP (QUOTE 2) (SUB1 N)) (NEGATIVE-GUTS INT)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (LESSP INT (EXP (QUOTE 2) (SUB1 N)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP . INT-RANGEP) (IMMEDIATE-DEPENDENTS0 FIX-INT . INT-RANGEP) (DCELL . *1*INT-RANGEP))))) (PUT1-LST (QUOTE *1*UINT-TO-NAT) (QUOTE (MAIN-EVENT UINT-TO-NAT))) (PUT1-LST (QUOTE UINT-TO-NAT) (QUOTE (TYPE-PRESCRIPTION-LST ((UINT-TO-NAT 4 NIL)) TOTALP-LST ((UINT-TO-NAT . T)) SDEFN (LAMBDA (X) (IF (NUMBERP X) X (QUOTE 0))) LISP-CODE *1*UINT-TO-NAT SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*UINT-TO-NAT) EVENT (DEFN UINT-TO-NAT (X) (FIX X)) LOCAL-UNDO-TUPLES ((DCELL . *1*UINT-TO-NAT))))) (PUT1-LST (QUOTE *1*NAT-TO-UINT) (QUOTE (MAIN-EVENT NAT-TO-UINT))) (PUT1-LST (QUOTE NAT-TO-UINT) (QUOTE (TYPE-PRESCRIPTION-LST ((NAT-TO-UINT 4 NIL)) TOTALP-LST ((NAT-TO-UINT . T)) SDEFN (LAMBDA (X) (IF (NUMBERP X) X (QUOTE 0))) LISP-CODE *1*NAT-TO-UINT SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*NAT-TO-UINT) IMMEDIATE-DEPENDENTS0 (DIV_L-INS DIVU_W-INS) EVENT (DEFN NAT-TO-UINT (X) (FIX X)) LOCAL-UNDO-TUPLES ((DCELL . *1*NAT-TO-UINT))))) (PUT1-LST (QUOTE *1*UINT-RANGEP) (QUOTE (MAIN-EVENT UINT-RANGEP))) (PUT1-LST (QUOTE UINT-RANGEP) (QUOTE (TYPE-PRESCRIPTION-LST ((UINT-RANGEP 3 NIL NIL)) TOTALP-LST ((UINT-RANGEP . T)) SDEFN (LAMBDA (X N) (LESSP X (EXP (QUOTE 2) N))) LISP-CODE *1*UINT-RANGEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214822 SATELLITES (*1*UINT-RANGEP) EVENT (DEFN UINT-RANGEP (X N) (LESSP X (EXP (QUOTE 2) N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP . UINT-RANGEP) (DCELL . *1*UINT-RANGEP))))) (PUT1-LST (QUOTE *1*NAT-RANGEP) (QUOTE (MAIN-EVENT NAT-RANGEP))) (PUT1-LST (QUOTE NAT-RANGEP) (QUOTE (TYPE-PRESCRIPTION-LST ((NAT-RANGEP 3 NIL NIL)) TOTALP-LST ((NAT-RANGEP . T)) SDEFN (LAMBDA (NAT N) (LESSP NAT (EXP (QUOTE 2) N))) LISP-CODE *1*NAT-RANGEP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214822 SATELLITES (*1*NAT-RANGEP) EVENT (DEFN NAT-RANGEP (NAT N) (LESSP NAT (EXP (QUOTE 2) N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP . NAT-RANGEP) (DCELL . *1*NAT-RANGEP))))) (PUT1-LST (QUOTE *1*IQUOTIENT) (QUOTE (MAIN-EVENT IQUOTIENT))) (PUT1-LST (QUOTE IQUOTIENT) (QUOTE (TYPE-PRESCRIPTION-LST ((IQUOTIENT 36 NIL NIL)) TOTALP-LST ((IQUOTIENT . T)) SDEFN (LAMBDA (X Y) (IF (NEGP X) (IF (NEGP Y) (QUOTIENT (NEGATIVE-GUTS X) (NEGATIVE-GUTS Y)) (FIX-INT (MINUS (QUOTIENT (NEGATIVE-GUTS X) Y)))) (IF (NEGP Y) (FIX-INT (MINUS (QUOTIENT X (NEGATIVE-GUTS Y)))) (QUOTIENT X Y)))) LISP-CODE *1*IQUOTIENT SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402214822 SATELLITES (*1*IQUOTIENT) IMMEDIATE-DEPENDENTS0 (DIVS-V IQUOT) EVENT (DEFN IQUOTIENT (X Y) (IF (NEGP X) (IF (NEGP Y) (QUOTIENT (NEGATIVE-GUTS X) (NEGATIVE-GUTS Y)) (FIX-INT (MINUS (QUOTIENT (NEGATIVE-GUTS X) Y)))) (IF (NEGP Y) (FIX-INT (MINUS (QUOTIENT X (NEGATIVE-GUTS Y)))) (QUOTIENT X Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT . IQUOTIENT) (IMMEDIATE-DEPENDENTS0 NEGP . IQUOTIENT) (DCELL . *1*IQUOTIENT))))) (PUT1-LST (QUOTE *1*IREMAINDER) (QUOTE (MAIN-EVENT IREMAINDER))) (PUT1-LST (QUOTE IREMAINDER) (QUOTE (TYPE-PRESCRIPTION-LST ((IREMAINDER 36 NIL NIL)) TOTALP-LST ((IREMAINDER . T)) SDEFN (LAMBDA (X Y) (IF (NEGP X) (FIX-INT (MINUS (REMAINDER (NEGATIVE-GUTS X) (ABS Y)))) (REMAINDER X (ABS Y)))) LISP-CODE *1*IREMAINDER SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402214822 SATELLITES (*1*IREMAINDER) IMMEDIATE-DEPENDENTS0 (IREM) EVENT (DEFN IREMAINDER (X Y) (IF (NEGP X) (FIX-INT (MINUS (REMAINDER (NEGATIVE-GUTS X) (ABS Y)))) (REMAINDER X (ABS Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ABS . IREMAINDER) (IMMEDIATE-DEPENDENTS0 FIX-INT . IREMAINDER) (IMMEDIATE-DEPENDENTS0 NEGP . IREMAINDER) (DCELL . *1*IREMAINDER))))) (PUT1-LST (QUOTE *1*ITIMES) (QUOTE (MAIN-EVENT ITIMES))) (PUT1-LST (QUOTE ITIMES) (QUOTE (TYPE-PRESCRIPTION-LST ((ITIMES 36 NIL NIL)) TOTALP-LST ((ITIMES . T)) SDEFN (LAMBDA (X Y) (IF (NEGP X) (IF (NEGP Y) (TIMES (NEGATIVE-GUTS X) (NEGATIVE-GUTS Y)) (FIX-INT (MINUS (TIMES (NEGATIVE-GUTS X) Y)))) (IF (NEGP Y) (FIX-INT (MINUS (TIMES X (NEGATIVE-GUTS Y)))) (TIMES X Y)))) LISP-CODE *1*ITIMES SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402214822 SATELLITES (*1*ITIMES) IMMEDIATE-DEPENDENTS0 (MULS-V MULS) EVENT (DEFN ITIMES (X Y) (IF (NEGP X) (IF (NEGP Y) (TIMES (NEGATIVE-GUTS X) (NEGATIVE-GUTS Y)) (FIX-INT (MINUS (TIMES (NEGATIVE-GUTS X) Y)))) (IF (NEGP Y) (FIX-INT (MINUS (TIMES X (NEGATIVE-GUTS Y)))) (TIMES X Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT . ITIMES) (IMMEDIATE-DEPENDENTS0 NEGP . ITIMES) (DCELL . *1*ITIMES))))) (PUT1-LST (QUOTE *1*IDIFFERENCE) (QUOTE (MAIN-EVENT IDIFFERENCE))) (PUT1-LST (QUOTE IDIFFERENCE) (QUOTE (TYPE-PRESCRIPTION-LST ((IDIFFERENCE 36 NIL NIL)) TOTALP-LST ((IDIFFERENCE . T)) SDEFN (LAMBDA (X Y) (IPLUS X (INEG Y))) LISP-CODE *1*IDIFFERENCE SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402214822 SATELLITES (*1*IDIFFERENCE) EVENT (DEFN IDIFFERENCE (X Y) (IPLUS X (INEG Y))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INEG . IDIFFERENCE) (IMMEDIATE-DEPENDENTS0 IPLUS . IDIFFERENCE) (DCELL . *1*IDIFFERENCE))))) (PUT1-LST (QUOTE *1*INEG) (QUOTE (MAIN-EVENT INEG))) (PUT1-LST (QUOTE INEG) (QUOTE (TYPE-PRESCRIPTION-LST ((INEG 36 NIL)) TOTALP-LST ((INEG . T)) SDEFN (LAMBDA (X) (IF (IZEROP X) (QUOTE 0) (IF (NEGP X) (NEGATIVE-GUTS X) (MINUS X)))) LISP-CODE *1*INEG SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*INEG) IMMEDIATE-DEPENDENTS0 (IDIFFERENCE) EVENT (DEFN INEG (X) (IF (IZEROP X) (QUOTE 0) (IF (NEGP X) (NEGATIVE-GUTS X) (MINUS X)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEGP . INEG) (IMMEDIATE-DEPENDENTS0 IZEROP . INEG) (DCELL . *1*INEG))))) (PUT1-LST (QUOTE *1*IPLUS) (QUOTE (MAIN-EVENT IPLUS))) (PUT1-LST (QUOTE IPLUS) (QUOTE (TYPE-PRESCRIPTION-LST ((IPLUS 36 NIL NIL)) TOTALP-LST ((IPLUS . T)) SDEFN (LAMBDA (X Y) (IF (NEGP X) (IF (NEGP Y) (MINUS (PLUS (NEGATIVE-GUTS X) (NEGATIVE-GUTS Y))) (IF (LESSP Y (NEGATIVE-GUTS X)) (MINUS (DIFFERENCE (NEGATIVE-GUTS X) Y)) (DIFFERENCE Y (NEGATIVE-GUTS X)))) (IF (NEGP Y) (IF (LESSP X (NEGATIVE-GUTS Y)) (MINUS (DIFFERENCE (NEGATIVE-GUTS Y) X)) (DIFFERENCE X (NEGATIVE-GUTS Y))) (PLUS X Y)))) LISP-CODE *1*IPLUS SUBRP *1*FALSE LEVEL-NO 1 IDATE 1000402214822 SATELLITES (*1*IPLUS) IMMEDIATE-DEPENDENTS0 (IDIFFERENCE) EVENT (DEFN IPLUS (X Y) (IF (NEGP X) (IF (NEGP Y) (MINUS (PLUS (NEGATIVE-GUTS X) (NEGATIVE-GUTS Y))) (IF (LESSP Y (NEGATIVE-GUTS X)) (MINUS (DIFFERENCE (NEGATIVE-GUTS X) Y)) (DIFFERENCE Y (NEGATIVE-GUTS X)))) (IF (NEGP Y) (IF (LESSP X (NEGATIVE-GUTS Y)) (MINUS (DIFFERENCE (NEGATIVE-GUTS Y) X)) (DIFFERENCE X (NEGATIVE-GUTS Y))) (PLUS X Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEGP . IPLUS) (DCELL . *1*IPLUS))))) (PUT1-LST (QUOTE *1*ILEQ) (QUOTE (MAIN-EVENT ILEQ))) (PUT1-LST (QUOTE ILEQ) (QUOTE (TYPE-PRESCRIPTION-LST ((ILEQ 3 NIL NIL)) TOTALP-LST ((ILEQ . T)) SDEFN (LAMBDA (I J) (IF (ILESSP J I) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) LISP-CODE *1*ILEQ SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*ILEQ) EVENT (DEFN ILEQ (I J) (NOT (ILESSP J I))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ILESSP . ILEQ) (DCELL . *1*ILEQ))))) (PUT1-LST (QUOTE *1*ILESSP) (QUOTE (MAIN-EVENT ILESSP))) (PUT1-LST (QUOTE ILESSP) (QUOTE (TYPE-PRESCRIPTION-LST ((ILESSP 3 NIL NIL)) TOTALP-LST ((ILESSP . T)) SDEFN (LAMBDA (I J) (IF (NEGP I) (IF (NEGP J) (LESSP (NEGATIVE-GUTS J) (NEGATIVE-GUTS I)) (QUOTE *1*TRUE)) (IF (NEGP J) (QUOTE *1*FALSE) (LESSP I J)))) LISP-CODE *1*ILESSP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*ILESSP) IMMEDIATE-DEPENDENTS0 (ILEQ) EVENT (DEFN ILESSP (I J) (IF (NEGP I) (IF (NEGP J) (LESSP (NEGATIVE-GUTS J) (NEGATIVE-GUTS I)) (QUOTE *1*TRUE)) (IF (NEGP J) (QUOTE *1*FALSE) (LESSP I J)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEGP . ILESSP) (DCELL . *1*ILESSP))))) (PUT1-LST (QUOTE *1*ABS) (QUOTE (MAIN-EVENT ABS))) (PUT1-LST (QUOTE ABS) (QUOTE (TYPE-PRESCRIPTION-LST ((ABS 4 NIL)) TOTALP-LST ((ABS . T)) SDEFN (LAMBDA (X) (IF (NEGP X) (NEGATIVE-GUTS X) (IF (NUMBERP X) X (QUOTE 0)))) LISP-CODE *1*ABS SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*ABS) IMMEDIATE-DEPENDENTS0 (IREMAINDER) EVENT (DEFN ABS (X) (IF (NEGP X) (NEGATIVE-GUTS X) (FIX X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEGP . ABS) (DCELL . *1*ABS))))) (PUT1-LST (QUOTE *1*IZEROP) (QUOTE (MAIN-EVENT IZEROP))) (PUT1-LST (QUOTE IZEROP) (QUOTE (TYPE-PRESCRIPTION-LST ((IZEROP 3 NIL)) TOTALP-LST ((IZEROP . T)) SDEFN (LAMBDA (X) (EQUAL (FIX-INT X) (QUOTE 0))) LISP-CODE *1*IZEROP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*IZEROP) IMMEDIATE-DEPENDENTS0 (INEG) EVENT (DEFN IZEROP (X) (EQUAL (FIX-INT X) (QUOTE 0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 FIX-INT . IZEROP) (DCELL . *1*IZEROP))))) (PUT1-LST (QUOTE *1*FIX-INT) (QUOTE (MAIN-EVENT FIX-INT))) (PUT1-LST (QUOTE FIX-INT) (QUOTE (TYPE-PRESCRIPTION-LST ((FIX-INT 4 T)) TOTALP-LST ((FIX-INT . T)) SDEFN (LAMBDA (X) (IF (INTEGERP X) X (QUOTE 0))) LISP-CODE *1*FIX-INT SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*FIX-INT) IMMEDIATE-DEPENDENTS0 (INT-RANGEP IQUOTIENT IREMAINDER ITIMES IZEROP) EVENT (DEFN FIX-INT (X) (IF (INTEGERP X) X (QUOTE 0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 INTEGERP . FIX-INT) (DCELL . *1*FIX-INT))))) (PUT1-LST (QUOTE *1*INTEGERP) (QUOTE (MAIN-EVENT INTEGERP))) (PUT1-LST (QUOTE INTEGERP) (QUOTE (TYPE-PRESCRIPTION-LST ((INTEGERP 3 NIL)) TOTALP-LST ((INTEGERP . T)) SDEFN (LAMBDA (X) (IF (NUMBERP X) (QUOTE *1*TRUE) (NEGP X))) LISP-CODE *1*INTEGERP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*INTEGERP) IMMEDIATE-DEPENDENTS0 (FIX-INT) EVENT (DEFN INTEGERP (X) (OR (NUMBERP X) (NEGP X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NEGP . INTEGERP) (DCELL . *1*INTEGERP))))) (PUT1-LST (QUOTE *1*NEGP) (QUOTE (MAIN-EVENT NEGP))) (PUT1-LST (QUOTE NEGP) (QUOTE (TYPE-PRESCRIPTION-LST ((NEGP 3 NIL)) TOTALP-LST ((NEGP . T)) SDEFN (LAMBDA (I) (IF (NEGATIVEP I) (IF (EQUAL I (QUOTE (*1*QUOTE MINUS 0))) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (QUOTE *1*FALSE))) LISP-CODE *1*NEGP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*NEGP) IMMEDIATE-DEPENDENTS0 (IQUOTIENT IREMAINDER ITIMES INEG IPLUS ILESSP ABS INTEGERP) EVENT (DEFN NEGP (I) (AND (NEGATIVEP I) (NOT (EQUAL I (QUOTE (*1*QUOTE MINUS 0)))))) LOCAL-UNDO-TUPLES ((DCELL . *1*NEGP))))) (PUT1-LST (QUOTE *1*ASR) (QUOTE (MAIN-EVENT ASR))) (PUT1-LST (QUOTE ASR) (QUOTE (TYPE-PRESCRIPTION-LST ((ASR 4 NIL NIL NIL)) TOTALP-LST ((ASR . T)) SDEFN (LAMBDA (N X CNT) (IF (LESSP X (EXP (QUOTE 2) (SUB1 N))) (TAIL X CNT) (IF (LESSP N CNT) (SUB1 (EXP (QUOTE 2) N)) (APP (DIFFERENCE N CNT) (TAIL X CNT) (SUB1 (EXP (QUOTE 2) CNT)))))) LISP-CODE *1*ASR SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214822 SATELLITES (*1*ASR) IMMEDIATE-DEPENDENTS0 (ASR-EFFECT ASR-N ASR-Z) EVENT (DEFN ASR (N X CNT) (IF (LESSP X (EXP (QUOTE 2) (SUB1 N))) (TAIL X CNT) (IF (LESSP N CNT) (SUB1 (EXP (QUOTE 2) N)) (APP (DIFFERENCE N CNT) (TAIL X CNT) (SUB1 (EXP (QUOTE 2) CNT)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 APP . ASR) (IMMEDIATE-DEPENDENTS0 TAIL . ASR) (IMMEDIATE-DEPENDENTS0 EXP . ASR) (DCELL . *1*ASR))))) (PUT1-LST (QUOTE *1*LSR) (QUOTE (MAIN-EVENT LSR))) (PUT1-LST (QUOTE LSR) (QUOTE (TYPE-PRESCRIPTION-LST ((LSR 4 NIL NIL)) TOTALP-LST ((LSR . T)) SDEFN (LAMBDA (X CNT) (TAIL X CNT)) LISP-CODE *1*LSR SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214822 SATELLITES (*1*LSR) IMMEDIATE-DEPENDENTS0 (LSR-EFFECT LSR-N LSR-Z) EVENT (DEFN LSR (X CNT) (TAIL X CNT)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TAIL . LSR) (DCELL . *1*LSR))))) (PUT1-LST (QUOTE *1*ASL) (QUOTE (MAIN-EVENT ASL))) (PUT1-LST (QUOTE ASL) (QUOTE (TYPE-PRESCRIPTION-LST ((ASL 4 NIL NIL NIL)) TOTALP-LST ((ASL . T)) SDEFN (LAMBDA (LEN X CNT) (HEAD (TIMES X (EXP (QUOTE 2) CNT)) LEN)) LISP-CODE *1*ASL SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214822 SATELLITES (*1*ASL) IMMEDIATE-DEPENDENTS0 (ASL-EFFECT ASL-N ASL-Z IR-SCALED) EVENT (DEFN ASL (LEN X CNT) (HEAD (TIMES X (EXP (QUOTE 2) CNT)) LEN)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP . ASL) (IMMEDIATE-DEPENDENTS0 HEAD . ASL) (DCELL . *1*ASL))))) (PUT1-LST (QUOTE *1*LSL) (QUOTE (MAIN-EVENT LSL))) (PUT1-LST (QUOTE LSL) (QUOTE (TYPE-PRESCRIPTION-LST ((LSL 4 NIL NIL NIL)) TOTALP-LST ((LSL . T)) SDEFN (LAMBDA (LEN X CNT) (HEAD (TIMES X (EXP (QUOTE 2) CNT)) LEN)) LISP-CODE *1*LSL SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214822 SATELLITES (*1*LSL) IMMEDIATE-DEPENDENTS0 (LSL-EFFECT LSL-N LSL-Z) EVENT (DEFN LSL (LEN X CNT) (HEAD (TIMES X (EXP (QUOTE 2) CNT)) LEN)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP . LSL) (IMMEDIATE-DEPENDENTS0 HEAD . LSL) (DCELL . *1*LSL))))) (PUT1-LST (QUOTE *1*EXT) (QUOTE (MAIN-EVENT EXT))) (PUT1-LST (QUOTE EXT) (QUOTE (TYPE-PRESCRIPTION-LST ((EXT 4 NIL NIL NIL)) TOTALP-LST ((EXT . T)) SDEFN (LAMBDA (N X SIZE) (IF (LESSP N SIZE) (IF (B0P (BITN X (SUB1 N))) (HEAD X N) (APP N X (SUB1 (EXP (QUOTE 2) (DIFFERENCE SIZE N))))) (HEAD X SIZE))) LISP-CODE *1*EXT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214822 SATELLITES (*1*EXT) IMMEDIATE-DEPENDENTS0 (CMPA-INS MOVEQ-INS DBCC-LOOP BCC-GROUP RTD-MAPPING LINK_W-INS WRITEM-RN EXT-EFFECT EXT-N EXT-Z MOVEA-INS SUBA-INS ADDA-INS PC-INDEX-DISP PC-DISP ABSOLUTE-SHORT ADDR-INDEX2 MEM-POSTINDEX MEM-INDIRECT ADDR-INDEX-DISP INDEX-REGISTER ADDR-DISP) EVENT (DEFN EXT (N X SIZE) (IF (LESSP N SIZE) (IF (B0P (BITN X (SUB1 N))) (HEAD X N) (APP N X (SUB1 (EXP (QUOTE 2) (DIFFERENCE SIZE N))))) (HEAD X SIZE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP . EXT) (IMMEDIATE-DEPENDENTS0 APP . EXT) (IMMEDIATE-DEPENDENTS0 HEAD . EXT) (IMMEDIATE-DEPENDENTS0 BITN . EXT) (IMMEDIATE-DEPENDENTS0 B0P . EXT) (DCELL . *1*EXT))))) (PUT1-LST (QUOTE *1*REPLACE) (QUOTE (MAIN-EVENT REPLACE))) (PUT1-LST (QUOTE REPLACE) (QUOTE (TYPE-PRESCRIPTION-LST ((REPLACE 4 NIL NIL NIL)) TOTALP-LST ((REPLACE . T)) SDEFN (LAMBDA (N X Y) (APP N X (TAIL Y N))) LISP-CODE *1*REPLACE SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214822 SATELLITES (*1*REPLACE) IMMEDIATE-DEPENDENTS0 (SET-CVZNX WRITE-RN) EVENT (DEFN REPLACE (N X Y) (APP N X (TAIL Y N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TAIL . REPLACE) (IMMEDIATE-DEPENDENTS0 APP . REPLACE) (DCELL . *1*REPLACE))))) (PUT1-LST (QUOTE *1*APP) (QUOTE (MAIN-EVENT APP))) (PUT1-LST (QUOTE APP) (QUOTE (TYPE-PRESCRIPTION-LST ((APP 4 NIL NIL NIL)) TOTALP-LST ((APP . T)) SDEFN (LAMBDA (N X Y) (PLUS (HEAD X N) (TIMES Y (EXP (QUOTE 2) N)))) LISP-CODE *1*APP SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214822 SATELLITES (*1*APP) IMMEDIATE-DEPENDENTS0 (MOVEP-READ DIVU_L DIVS_L SWAP-EFFECT ROR ROL DIVU_W-INS DIVS_W-INS PC-READ-MEM READ-MEM ASR EXT REPLACE) EVENT (DEFN APP (N X Y) (PLUS (HEAD X N) (TIMES Y (EXP (QUOTE 2) N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP . APP) (IMMEDIATE-DEPENDENTS0 HEAD . APP) (DCELL . *1*APP))))) (PUT1-LST (QUOTE *1*SUB) (QUOTE (MAIN-EVENT SUB))) (PUT1-LST (QUOTE SUB) (QUOTE (TYPE-PRESCRIPTION-LST ((SUB 4 NIL NIL NIL)) TOTALP-LST ((SUB . T)) SDEFN (LAMBDA (N X Y) (HEAD (PLUS Y (DIFFERENCE (EXP (QUOTE 2) N) (HEAD X N))) N)) LISP-CODE *1*SUB SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214822 SATELLITES (*1*SUB) IMMEDIATE-DEPENDENTS0 (SUBQ-INS DBCC-LOOP LINK-MAPPING MOVEM-PREDEC SUBA-INS SUB-EFFECT SUB-N SUB-Z SUB-V SUB-C PRE-EFFECT PUSH-SP) EVENT (DEFN SUB (N X Y) (HEAD (PLUS Y (DIFFERENCE (EXP (QUOTE 2) N) (HEAD X N))) N)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP . SUB) (IMMEDIATE-DEPENDENTS0 HEAD . SUB) (DCELL . *1*SUB))))) (PUT1-LST (QUOTE *1*SUBTRACTER) (QUOTE (MAIN-EVENT SUBTRACTER))) (PUT1-LST (QUOTE SUBTRACTER) (QUOTE (TYPE-PRESCRIPTION-LST ((SUBTRACTER 4 NIL NIL NIL NIL)) TOTALP-LST ((SUBTRACTER . T)) SDEFN (LAMBDA (N C X Y) (ADDER N (B-NOT C) Y (LOGNOT N X))) LISP-CODE *1*SUBTRACTER SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214822 SATELLITES (*1*SUBTRACTER) IMMEDIATE-DEPENDENTS0 (SUBX-EFFECT SUBX-N SUBX-Z SUBX-V SUBX-C) EVENT (DEFN SUBTRACTER (N C X Y) (ADDER N (B-NOT C) Y (LOGNOT N X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOGNOT . SUBTRACTER) (IMMEDIATE-DEPENDENTS0 B-NOT . SUBTRACTER) (IMMEDIATE-DEPENDENTS0 ADDER . SUBTRACTER) (DCELL . *1*SUBTRACTER))))) (PUT1-LST (QUOTE *1*ADD) (QUOTE (MAIN-EVENT ADD))) (PUT1-LST (QUOTE ADD) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD 4 NIL NIL NIL)) TOTALP-LST ((ADD . T)) SDEFN (LAMBDA (N X Y) (HEAD (PLUS X Y) N)) LISP-CODE *1*ADD SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214822 SATELLITES (*1*ADD) IMMEDIATE-DEPENDENTS0 (LOAD-LST-MEM STEPI EORI-TO-CCR-INS ANDI-TO-CCR-INS ORI-TO-CCR-INS S-BIT-SUBGROUP MOVEP-ADDR MOVEP-READ MOVEP-READP MOVEP-WRITE MOVEP-WRITEP ADDQ-INS DBCC-INS DBCC-LOOP BCC-GROUP BCC-RA-SR BSR-INS RTR-INS RTD-MAPPING UNLK-INS LINK_W-INS LINK_L-INS LINK-MAPPING MOVEM-EA-RN-SUBGROUP MOVEM-EA-RN-INS EXT-SUBGROUP WRITEM-MEM READM-MEM ADDA-INS ADD-EFFECT ADD-N ADD-Z ADD-V ADD-C IMMEDIATE PC-INDEX1 PC-INDEX-DISP PC-DISP ABSOLUTE-LONG ABSOLUTE-SHORT ADDR-INDEX ADDR-INDEX2 MEM-PREINDEX MEM-POSTINDEX MEM-INDIRECT ADDR-INDEX-BD ADDR-INDEX-DISP ADDR-DISP POST-EFFECT WRITE-MEM WRITE-MEMP PC-READ-MEM READ-MEM PC-READ-MEMP READ-MEMP) EVENT (DEFN ADD (N X Y) (HEAD (PLUS X Y) N)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD . ADD) (DCELL . *1*ADD))))) (PUT1-LST (QUOTE *1*ADDER) (QUOTE (MAIN-EVENT ADDER))) (PUT1-LST (QUOTE ADDER) (QUOTE (TYPE-PRESCRIPTION-LST ((ADDER 4 NIL NIL NIL NIL)) TOTALP-LST ((ADDER . T)) SDEFN (LAMBDA (N C X Y) (HEAD (PLUS C (PLUS X Y)) N)) LISP-CODE *1*ADDER SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214822 SATELLITES (*1*ADDER) IMMEDIATE-DEPENDENTS0 (ADDX-EFFECT ADDX-N ADDX-Z ADDX-V ADDX-C SUBTRACTER) EVENT (DEFN ADDER (N C X Y) (HEAD (PLUS C (PLUS X Y)) N)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD . ADDER) (DCELL . *1*ADDER))))) (PUT1-LST (QUOTE *1*SETN) (QUOTE (MAIN-EVENT SETN))) (PUT1-LST (QUOTE SETN) (QUOTE (TYPE-PRESCRIPTION-LST ((SETN 4 NIL NIL NIL)) TOTALP-LST ((SETN . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (X N C) (IF (EQUAL N (QUOTE 0)) (PLUS (FIX-BIT C) (TIMES (QUOTE 2) (BCDR X))) (IF (NUMBERP N) (PLUS (BCAR X) (TIMES (QUOTE 2) (SETN (BCDR X) (SUB1 N) C))) (PLUS (FIX-BIT C) (TIMES (QUOTE 2) (BCDR X)))))) LISP-CODE *1*SETN SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP N)) NIL) (TESTS-AND-CASES ((NOT (ZEROP N))) (((BCDR X) (SUB1 N) C)))) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (N) (COUNT N) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402214822 CONTROLLER-POCKETS (2) SATELLITES (*1*SETN) IMMEDIATE-DEPENDENTS0 (BSET-EFFECT BCLR-EFFECT BCHG-EFFECT TAS-EFFECT) EVENT (DEFN SETN (X N C) (IF (ZEROP N) (PLUS (FIX-BIT C) (TIMES (QUOTE 2) (BCDR X))) (PLUS (BCAR X) (TIMES (QUOTE 2) (SETN (BCDR X) (SUB1 N) C))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BCAR . SETN) (IMMEDIATE-DEPENDENTS0 BCDR . SETN) (IMMEDIATE-DEPENDENTS0 FIX-BIT . SETN) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . SETN) (DCELL . *1*SETN))))) (PUT1-LST (QUOTE *1*BITS) (QUOTE (MAIN-EVENT BITS))) (PUT1-LST (QUOTE BITS) (QUOTE (TYPE-PRESCRIPTION-LST ((BITS 4 NIL NIL NIL)) TOTALP-LST ((BITS . T)) SDEFN (LAMBDA (X I J) (HEAD (TAIL X I) (ADD1 (DIFFERENCE J I)))) LISP-CODE *1*BITS SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214822 SATELLITES (*1*BITS) IMMEDIATE-DEPENDENTS0 (OPCODE-FIELD BIT-INS MUL-DIV_L-INS DH DL DR DQ LEA-SUBGROUP BD-SZ I-IS IR-SCALED INDEX-RN OP-LEN COND-FIELD OPMODE-FIELD D_RN D_MODE S_MODE S_RN) EVENT (DEFN BITS (X I J) (HEAD (TAIL X I) (ADD1 (DIFFERENCE J I)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TAIL . BITS) (IMMEDIATE-DEPENDENTS0 HEAD . BITS) (DCELL . *1*BITS))))) (PUT1-LST (QUOTE *1*MBIT) (QUOTE (MAIN-EVENT MBIT))) (PUT1-LST (QUOTE MBIT) (QUOTE (TYPE-PRESCRIPTION-LST ((MBIT 4 NIL NIL)) TOTALP-LST ((MBIT . T)) SDEFN (LAMBDA (X N) (BITN X (SUB1 N))) LISP-CODE *1*MBIT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214822 SATELLITES (*1*MBIT) IMMEDIATE-DEPENDENTS0 (EOR-N NOT-N EXT-N MOVE-N ASR-N ASL-N LSR-N LSL-N DIVU-N DIVS-N OR-N MULS-N MULU-N AND-N SUBX-N SUBX-V SUBX-C SUB-N SUB-V SUB-C ADDX-N ADDX-V ADDX-C ADD-N ADD-V ADD-C) EVENT (DEFN MBIT (X N) (BITN X (SUB1 N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BITN . MBIT) (DCELL . *1*MBIT))))) (PUT1-LST (QUOTE *1*BITN) (QUOTE (MAIN-EVENT BITN))) (PUT1-LST (QUOTE BITN) (QUOTE (TYPE-PRESCRIPTION-LST ((BITN 4 NIL NIL)) TOTALP-LST ((BITN . T)) SDEFN (LAMBDA (X N) (BCAR (TAIL X N))) LISP-CODE *1*BITN SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214822 SATELLITES (*1*BITN) IMMEDIATE-DEPENDENTS0 (MAP-UPDATE BIT-GROUP BTST-INS BSET-EFFECT BCLR-EFFECT BCHG-EFFECT CMP-GROUP MOVEQ-INS SCC-GROUP MISC-GROUP NOP-SUBGROUP UNLK-SUBGROUP MOVEM-EA-RN-SUBGROUP MUL-DIV_L-INS MUL_L-INS DIV_L-INS EXT-SUBGROUP EXT-INS SWAP-N S&R-GROUP REGISTER-SHIFT-ROTATE MEMORY-SHIFT-ROTATE ROXR-N ROXR-C ROXL-N ROXL-C ASR-C LSR-C LSL-C ROR-N ROR-C ROL-N ROL-C SR-CNT OR-GROUP DIV_W-INS AND-GROUP MUL_W-INS PC-INDEX1 BS-PC ADDR-INDEX1 BS-REGISTER ADDR-INDEX3 INDEX-REGISTER CCR-X CCR-N CCR-Z CCR-V CCR-C WRITE READ WRITEP PC-READP READP EXT MBIT) EVENT (DEFN BITN (X N) (BCAR (TAIL X N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TAIL . BITN) (IMMEDIATE-DEPENDENTS0 BCAR . BITN) (DCELL . *1*BITN))))) (PUT1-LST (QUOTE *1*LOGEOR) (QUOTE (MAIN-EVENT LOGEOR))) (PUT1-LST (QUOTE LOGEOR) (QUOTE (TYPE-PRESCRIPTION-LST ((LOGEOR 4 NIL NIL)) TOTALP-LST ((LOGEOR . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (X Y) (IF (EQUAL X (QUOTE 0)) (IF (EQUAL Y (QUOTE 0)) (QUOTE 0) (IF (NUMBERP Y) (PLUS (B-EOR (BCAR X) (BCAR Y)) (TIMES (QUOTE 2) (LOGEOR (BCDR X) (BCDR Y)))) (QUOTE 0))) (IF (NUMBERP X) (PLUS (B-EOR (BCAR X) (BCAR Y)) (TIMES (QUOTE 2) (LOGEOR (BCDR X) (BCDR Y)))) (IF (EQUAL Y (QUOTE 0)) (QUOTE 0) (IF (NUMBERP Y) (PLUS (B-EOR (BCAR X) (BCAR Y)) (TIMES (QUOTE 2) (LOGEOR (BCDR X) (BCDR Y)))) (QUOTE 0)))))) LISP-CODE *1*LOGEOR SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((AND (ZEROP X) (ZEROP Y))) NIL) (TESTS-AND-CASES ((NOT (AND (ZEROP X) (ZEROP Y)))) (((BCDR X) (BCDR Y))))) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (Y X) (PLUS X Y) LESSP (ZERO QUOTIENT-LESSP-LINEAR LESSP QUOTIENT-LEQ ZEROP AND BCDR))) IDATE 1000402214822 CONTROLLER-POCKETS (3) SATELLITES (*1*LOGEOR) IMMEDIATE-DEPENDENTS0 (EORI-TO-CCR-INS EOR-EFFECT EOR-Z) EVENT (DEFN LOGEOR (X Y) (IF (AND (ZEROP X) (ZEROP Y)) (QUOTE 0) (PLUS (B-EOR (BCAR X) (BCAR Y)) (TIMES (QUOTE 2) (LOGEOR (BCDR X) (BCDR Y))))) ((LESSP (PLUS X Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BCAR . LOGEOR) (IMMEDIATE-DEPENDENTS0 B-EOR . LOGEOR) (IMMEDIATE-DEPENDENTS0 QUOTIENT-LESSP-LINEAR . LOGEOR) (IMMEDIATE-DEPENDENTS0 QUOTIENT-LEQ . LOGEOR) (IMMEDIATE-DEPENDENTS0 BCDR . LOGEOR) (DCELL . *1*LOGEOR))))) (PUT1-LST (QUOTE *1*LOGOR) (QUOTE (MAIN-EVENT LOGOR))) (PUT1-LST (QUOTE LOGOR) (QUOTE (TYPE-PRESCRIPTION-LST ((LOGOR 4 NIL NIL)) TOTALP-LST ((LOGOR . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (X Y) (IF (EQUAL X (QUOTE 0)) (IF (NUMBERP Y) Y (QUOTE 0)) (IF (NUMBERP X) (IF (EQUAL Y (QUOTE 0)) X (IF (NUMBERP Y) (PLUS (B-OR (BCAR X) (BCAR Y)) (TIMES (QUOTE 2) (LOGOR (BCDR X) (BCDR Y)))) X)) (IF (NUMBERP Y) Y (QUOTE 0))))) LISP-CODE *1*LOGOR SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP X)) NIL) (TESTS-AND-CASES ((NOT (ZEROP X)) (ZEROP Y)) NIL) (TESTS-AND-CASES ((NOT (ZEROP X)) (NOT (ZEROP Y))) (((BCDR X) (BCDR Y))))) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (ZEROP BCDR COUNT-NUMBERP EQUAL NUMBERP ZERO TIMES-LESSP QUOTIENT-TIMES-LESSP)) (JUSTIFICATION (Y) (COUNT Y) LESSP (ZEROP BCDR COUNT-NUMBERP EQUAL NUMBERP ZERO TIMES-LESSP QUOTIENT-TIMES-LESSP))) IDATE 1000402214822 CONTROLLER-POCKETS (1 2) SATELLITES (*1*LOGOR) IMMEDIATE-DEPENDENTS0 (ORI-TO-CCR-INS OR-EFFECT OR-Z) EVENT (DEFN LOGOR (X Y) (IF (ZEROP X) (FIX Y) (IF (ZEROP Y) (FIX X) (PLUS (B-OR (BCAR X) (BCAR Y)) (TIMES (QUOTE 2) (LOGOR (BCDR X) (BCDR Y))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BCAR . LOGOR) (IMMEDIATE-DEPENDENTS0 B-OR . LOGOR) (IMMEDIATE-DEPENDENTS0 BCDR . LOGOR) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP . LOGOR) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-LESSP . LOGOR) (DCELL . *1*LOGOR))))) (PUT1-LST (QUOTE *1*LOGAND) (QUOTE (MAIN-EVENT LOGAND))) (PUT1-LST (QUOTE LOGAND) (QUOTE (TYPE-PRESCRIPTION-LST ((LOGAND 4 NIL NIL)) TOTALP-LST ((LOGAND . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (X Y) (IF (EQUAL X (QUOTE 0)) (QUOTE 0) (IF (NUMBERP X) (IF (EQUAL Y (QUOTE 0)) (QUOTE 0) (IF (NUMBERP Y) (PLUS (B-AND (BCAR X) (BCAR Y)) (TIMES (QUOTE 2) (LOGAND (BCDR X) (BCDR Y)))) (QUOTE 0))) (QUOTE 0)))) LISP-CODE *1*LOGAND SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((OR (ZEROP X) (ZEROP Y))) NIL) (TESTS-AND-CASES ((NOT (OR (ZEROP X) (ZEROP Y)))) (((BCDR X) (BCDR Y))))) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (ZEROP OR BCDR COUNT-NUMBERP EQUAL NUMBERP ZERO TIMES-LESSP QUOTIENT-TIMES-LESSP)) (JUSTIFICATION (Y) (COUNT Y) LESSP (ZEROP OR BCDR COUNT-NUMBERP EQUAL NUMBERP ZERO TIMES-LESSP QUOTIENT-TIMES-LESSP))) IDATE 1000402214822 CONTROLLER-POCKETS (1 2) SATELLITES (*1*LOGAND) IMMEDIATE-DEPENDENTS0 (ANDI-TO-CCR-INS AND-EFFECT AND-N AND-Z) EVENT (DEFN LOGAND (X Y) (IF (OR (ZEROP X) (ZEROP Y)) (QUOTE 0) (PLUS (B-AND (BCAR X) (BCAR Y)) (TIMES (QUOTE 2) (LOGAND (BCDR X) (BCDR Y)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BCAR . LOGAND) (IMMEDIATE-DEPENDENTS0 B-AND . LOGAND) (IMMEDIATE-DEPENDENTS0 BCDR . LOGAND) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP . LOGAND) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-LESSP . LOGAND) (DCELL . *1*LOGAND))))) (PUT1-LST (QUOTE *1*LOGNOT) (QUOTE (MAIN-EVENT LOGNOT))) (PUT1-LST (QUOTE LOGNOT) (QUOTE (TYPE-PRESCRIPTION-LST ((LOGNOT 4 NIL NIL)) TOTALP-LST ((LOGNOT . T)) SDEFN (LAMBDA (N X) (SUB1 (DIFFERENCE (EXP (QUOTE 2) N) (HEAD X N)))) LISP-CODE *1*LOGNOT SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214822 SATELLITES (*1*LOGNOT) IMMEDIATE-DEPENDENTS0 (NOT-EFFECT NOT-N NOT-Z SUBTRACTER) EVENT (DEFN LOGNOT (N X) (SUB1 (DIFFERENCE (EXP (QUOTE 2) N) (HEAD X N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 HEAD . LOGNOT) (IMMEDIATE-DEPENDENTS0 EXP . LOGNOT) (DCELL . *1*LOGNOT))))) (PUT1-LST (QUOTE *1*TAIL) (QUOTE (MAIN-EVENT TAIL))) (PUT1-LST (QUOTE TAIL) (QUOTE (TYPE-PRESCRIPTION-LST ((TAIL 4 NIL NIL)) TOTALP-LST ((TAIL . T)) SDEFN (LAMBDA (X N) (QUOTIENT X (EXP (QUOTE 2) N))) LISP-CODE *1*TAIL SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214822 SATELLITES (*1*TAIL) IMMEDIATE-DEPENDENTS0 (MAP-UPDATE MOVEP-WRITE MULS_L_DLDH MULU_L_DLDH SWAP-EFFECT ROR ROL WRITE-MEM WRITE READ WRITEP PC-READP READP ASR LSR REPLACE BITS BITN) EVENT (DEFN TAIL (X N) (QUOTIENT X (EXP (QUOTE 2) N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP . TAIL) (DCELL . *1*TAIL))))) (PUT1-LST (QUOTE *1*HEAD) (QUOTE (MAIN-EVENT HEAD))) (PUT1-LST (QUOTE HEAD) (QUOTE (TYPE-PRESCRIPTION-LST ((HEAD 4 NIL NIL)) TOTALP-LST ((HEAD . T)) SDEFN (LAMBDA (X N) (REMAINDER X (EXP (QUOTE 2) N))) LISP-CODE *1*HEAD SUBRP *1*FALSE LEVEL-NO 3 IDATE 1000402214822 SATELLITES (*1*HEAD) IMMEDIATE-DEPENDENTS0 (GCD-EXAMPLE EXECUTE-INS EORI-SUBGROUP ANDI-SUBGROUP ORI-SUBGROUP BXXX-NUM MOVEQ-INS MULS_L_DLDH MULU_L_DLDH TST-SUBGROUP SWAP-EFFECT MOVE-TO-CCR-INS MOVE-Z ROXR ROR ROL REM QUOT IREM IQUOT MULS MULU PC-INDEX-DISP ADDR-INDEX-DISP BYTE-WRITE PC-BYTE-READ BYTE-READ MC-CCR MC-PC READ-RN ASL LSL EXT APP SUB ADD ADDER BITS LOGNOT) EVENT (DEFN HEAD (X N) (REMAINDER X (EXP (QUOTE 2) N))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP . HEAD) (DCELL . *1*HEAD))))) (PUT1-LST (QUOTE *1*BCDR) (QUOTE (MAIN-EVENT BCDR))) (PUT1-LST (QUOTE BCDR) (QUOTE (TYPE-PRESCRIPTION-LST ((BCDR 4 NIL)) TOTALP-LST ((BCDR . T)) SDEFN (LAMBDA (X) (QUOTIENT X (QUOTE 2))) LISP-CODE *1*BCDR SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402214822 SATELLITES (*1*BCDR) IMMEDIATE-DEPENDENTS0 (MOVEM-PRE-RNLST MOVEM-LEN MOVEM-RNLST ROXL SETN LOGEOR LOGOR LOGAND) EVENT (DEFN BCDR (X) (QUOTIENT X (QUOTE 2))) LOCAL-UNDO-TUPLES ((DCELL . *1*BCDR))))) (PUT1-LST (QUOTE *1*BCAR) (QUOTE (MAIN-EVENT BCAR))) (PUT1-LST (QUOTE BCAR) (QUOTE (TYPE-PRESCRIPTION-LST ((BCAR 4 NIL)) TOTALP-LST ((BCAR . T)) SDEFN (LAMBDA (X) (REMAINDER X (QUOTE 2))) LISP-CODE *1*BCAR SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402214822 SATELLITES (*1*BCAR) IMMEDIATE-DEPENDENTS0 (MAP-UPDATE EVENP MOVEM-PRE-RNLST MOVEM-LEN MOVEM-RNLST ROL-C WRITE READ WRITEP PC-READP READP SETN BITN LOGEOR LOGOR LOGAND) EVENT (DEFN BCAR (X) (REMAINDER X (QUOTE 2))) LOCAL-UNDO-TUPLES ((DCELL . *1*BCAR))))) (PUT1-LST (QUOTE *1*B-EQUAL) (QUOTE (MAIN-EVENT B-EQUAL))) (PUT1-LST (QUOTE B-EQUAL) (QUOTE (TYPE-PRESCRIPTION-LST ((B-EQUAL 3 NIL NIL)) TOTALP-LST ((B-EQUAL . T)) SDEFN (LAMBDA (X Y) (IF (B0P X) (B0P Y) (B1P Y))) LISP-CODE *1*B-EQUAL SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*B-EQUAL) EVENT (DEFN B-EQUAL (X Y) (IF (B0P X) (B0P Y) (B1P Y))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B1P . B-EQUAL) (IMMEDIATE-DEPENDENTS0 B0P . B-EQUAL) (DCELL . *1*B-EQUAL))))) (PUT1-LST (QUOTE *1*B-EOR) (QUOTE (MAIN-EVENT B-EOR))) (PUT1-LST (QUOTE B-EOR) (QUOTE (TYPE-PRESCRIPTION-LST ((B-EOR 4 NIL NIL)) TOTALP-LST ((B-EOR . T)) SDEFN (LAMBDA (X Y) (IF (B0P X) (IF (B0P Y) (B0) (B1)) (IF (B0P Y) (B1) (B0)))) LISP-CODE *1*B-EOR SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*B-EOR) IMMEDIATE-DEPENDENTS0 (EOR-N LOGEOR) EVENT (DEFN B-EOR (X Y) (IF (B0P X) (IF (B0P Y) (B0) (B1)) (IF (B0P Y) (B1) (B0)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B1 . B-EOR) (IMMEDIATE-DEPENDENTS0 B0 . B-EOR) (IMMEDIATE-DEPENDENTS0 B0P . B-EOR) (DCELL . *1*B-EOR))))) (PUT1-LST (QUOTE *1*B-NAND) (QUOTE (MAIN-EVENT B-NAND))) (PUT1-LST (QUOTE B-NAND) (QUOTE (TYPE-PRESCRIPTION-LST ((B-NAND 4 NIL NIL)) TOTALP-LST ((B-NAND . T)) SDEFN (LAMBDA (X Y) (IF (B0P X) (B1) (IF (B0P Y) (B1) (B0)))) LISP-CODE *1*B-NAND SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*B-NAND) EVENT (DEFN B-NAND (X Y) (IF (B0P X) (B1) (IF (B0P Y) (B1) (B0)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . B-NAND) (IMMEDIATE-DEPENDENTS0 B1 . B-NAND) (IMMEDIATE-DEPENDENTS0 B0P . B-NAND) (DCELL . *1*B-NAND))))) (PUT1-LST (QUOTE *1*B-NOR) (QUOTE (MAIN-EVENT B-NOR))) (PUT1-LST (QUOTE B-NOR) (QUOTE (TYPE-PRESCRIPTION-LST ((B-NOR 4 NIL NIL)) TOTALP-LST ((B-NOR . T)) SDEFN (LAMBDA (X Y) (IF (B0P X) (IF (B0P Y) (B1) (B0)) (B0))) LISP-CODE *1*B-NOR SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*B-NOR) EVENT (DEFN B-NOR (X Y) (IF (B0P X) (IF (B0P Y) (B1) (B0)) (B0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . B-NOR) (IMMEDIATE-DEPENDENTS0 B1 . B-NOR) (IMMEDIATE-DEPENDENTS0 B0P . B-NOR) (DCELL . *1*B-NOR))))) (PUT1-LST (QUOTE *1*B-OR) (QUOTE (MAIN-EVENT B-OR))) (PUT1-LST (QUOTE B-OR) (QUOTE (TYPE-PRESCRIPTION-LST ((B-OR 4 NIL NIL)) TOTALP-LST ((B-OR . T)) SDEFN (LAMBDA (X Y) (IF (B0P X) (IF (B0P Y) (B0) (B1)) (B1))) LISP-CODE *1*B-OR SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*B-OR) IMMEDIATE-DEPENDENTS0 (BLS BGE BLT BGT BLE OR-N SUBX-V SUBX-C SUB-V SUB-C ADDX-V ADDX-C ADD-V ADD-C LOGOR) EVENT (DEFN B-OR (X Y) (IF (B0P X) (IF (B0P Y) (B0) (B1)) (B1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B1 . B-OR) (IMMEDIATE-DEPENDENTS0 B0 . B-OR) (IMMEDIATE-DEPENDENTS0 B0P . B-OR) (DCELL . *1*B-OR))))) (PUT1-LST (QUOTE *1*B-AND) (QUOTE (MAIN-EVENT B-AND))) (PUT1-LST (QUOTE B-AND) (QUOTE (TYPE-PRESCRIPTION-LST ((B-AND 4 NIL NIL)) TOTALP-LST ((B-AND . T)) SDEFN (LAMBDA (X Y) (IF (B0P X) (B0) (IF (B0P Y) (B0) (B1)))) LISP-CODE *1*B-AND SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*B-AND) IMMEDIATE-DEPENDENTS0 (BHI BGE BLT BGT BLE SUBX-Z SUBX-V SUBX-C SUB-V SUB-C ADDX-Z ADDX-V ADDX-C ADD-V ADD-C LOGAND) EVENT (DEFN B-AND (X Y) (IF (B0P X) (B0) (IF (B0P Y) (B0) (B1)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B1 . B-AND) (IMMEDIATE-DEPENDENTS0 B0 . B-AND) (IMMEDIATE-DEPENDENTS0 B0P . B-AND) (DCELL . *1*B-AND))))) (PUT1-LST (QUOTE *1*B-NOT) (QUOTE (MAIN-EVENT B-NOT))) (PUT1-LST (QUOTE B-NOT) (QUOTE (TYPE-PRESCRIPTION-LST ((B-NOT 4 NIL)) TOTALP-LST ((B-NOT . T)) SDEFN (LAMBDA (X) (IF (B0P X) (B1) (B0))) LISP-CODE *1*B-NOT SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*B-NOT) IMMEDIATE-DEPENDENTS0 (BTST-INS BSET-EFFECT BCLR-EFFECT BCHG-EFFECT BRANCH-CC BHI BGE BLT BGT BLE SUBX-V SUBX-C SUB-V SUB-C ADDX-V ADDX-C ADD-V ADD-C SUBTRACTER) EVENT (DEFN B-NOT (X) (IF (B0P X) (B1) (B0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . B-NOT) (IMMEDIATE-DEPENDENTS0 B1 . B-NOT) (IMMEDIATE-DEPENDENTS0 B0P . B-NOT) (DCELL . *1*B-NOT))))) (PUT1-LST (QUOTE *1*FIX-BIT) (QUOTE (MAIN-EVENT FIX-BIT))) (PUT1-LST (QUOTE FIX-BIT) (QUOTE (TYPE-PRESCRIPTION-LST ((FIX-BIT 4 NIL)) TOTALP-LST ((FIX-BIT . T)) SDEFN (LAMBDA (C) (IF (B0P C) (B0) (B1))) LISP-CODE *1*FIX-BIT SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*FIX-BIT) IMMEDIATE-DEPENDENTS0 (BMI BEQ BCS BVS ROXR-C ROXL-C CVZNX SETN) EVENT (DEFN FIX-BIT (C) (IF (B0P C) (B0) (B1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B1 . FIX-BIT) (IMMEDIATE-DEPENDENTS0 B0 . FIX-BIT) (IMMEDIATE-DEPENDENTS0 B0P . FIX-BIT) (DCELL . *1*FIX-BIT))))) (PUT1-LST (QUOTE *1*B1P) (QUOTE (MAIN-EVENT B1P))) (PUT1-LST (QUOTE B1P) (QUOTE (TYPE-PRESCRIPTION-LST ((B1P 3 NIL)) TOTALP-LST ((B1P . T)) SDEFN (LAMBDA (X) (IF (EQUAL X (B0)) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) LISP-CODE *1*B1P SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*B1P) IMMEDIATE-DEPENDENTS0 (MISC-GROUP TRAPV-INS B-EQUAL) EVENT (DEFN B1P (X) (NOT (EQUAL X (B0)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . B1P) (DCELL . *1*B1P))))) (PUT1-LST (QUOTE *1*B0P) (QUOTE (MAIN-EVENT B0P))) (PUT1-LST (QUOTE B0P) (QUOTE (TYPE-PRESCRIPTION-LST ((B0P 3 NIL)) TOTALP-LST ((B0P . T)) SDEFN (LAMBDA (X) (EQUAL X (B0))) LISP-CODE *1*B0P SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*B0P) IMMEDIATE-DEPENDENTS0 (MAP-UPDATE BIT-GROUP EVENP CMP-GROUP MOVEQ-INS SCC-GROUP DBCC-INS SCC-EFFECT BCC-RA-SR MISC-GROUP NOP-SUBGROUP UNLK-SUBGROUP MOVEM-EA-RN-SUBGROUP MUL-DIV_L-INS MUL_L-INS DIV_L-INS DIVU_L DIVS_L DIVSL_L EXT-SUBGROUP MOVEM-PRE-RNLST MOVEM-LEN MOVEM-RNLST EXT-INS S&R-GROUP REGISTER-SHIFT-ROTATE MEMORY-SHIFT-ROTATE SR-CNT OR-GROUP DIV_W-INS DIVU_W-INS DIVS_W-INS AND-GROUP MUL_W-INS PC-INDEX1 BS-PC ADDR-INDEX1 BS-REGISTER ADDR-INDEX3 INDEX-REGISTER WRITE READ WRITEP PC-READP READP EXT B-EQUAL B-EOR B-NAND B-NOR B-OR B-AND B-NOT FIX-BIT) EVENT (DEFN B0P (X) (EQUAL X (B0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 B0 . B0P) (DCELL . *1*B0P))))) (PUT1-LST (QUOTE *1*B0) (QUOTE (MAIN-EVENT B0))) (PUT1-LST (QUOTE B0) (QUOTE (TYPE-PRESCRIPTION-LST ((B0 4)) TOTALP-LST ((B0 . T)) SDEFN (LAMBDA NIL (QUOTE 0)) LISP-CODE *1*B0 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*B0) IMMEDIATE-DEPENDENTS0 (MAP-UPDATE BCLR-EFFECT EOR-CVZNX EOR-Z BRANCH-CC NOT-CVZNX NOT-Z MOVEM-PRE-RNLST MOVEM-LEN MOVEM-RNLST SWAP-CVZNX SWAP-Z CLR-CVZNX EXT-CVZNX EXT-Z MOVE-CVZNX MOVE-Z ROXR-CVZNX ROXR-Z ROXL-CVZNX ROXL-Z ASR-CVZNX ASR-Z ASR-C ASL-Z ASL-V LSR-CVZNX LSR-Z LSR-C LSL-CVZNX LSL-Z LSL-C ROR-CVZNX ROR-Z ROR-C ROL-CVZNX ROL-Z ROL-C DIVU-CVZNX DIVU-Z DIVU-V DIVS-CVZNX DIVS-Z DIVS-V OR-CVZNX OR-Z MULS-CVZNX MULS-Z MULS-V MULU-CVZNX MULU-Z MULU-V AND-CVZNX AND-Z SUBX-Z SUB-Z ADDX-Z ADD-Z WRITE READ WRITEP PC-READP READP B-EOR B-NAND B-NOR B-OR B-AND B-NOT FIX-BIT B1P B0P) EVENT (DEFN B0 NIL (QUOTE 0)) LOCAL-UNDO-TUPLES ((DCELL . *1*B0))))) (PUT1-LST (QUOTE *1*B1) (QUOTE (MAIN-EVENT B1))) (PUT1-LST (QUOTE B1) (QUOTE (TYPE-PRESCRIPTION-LST ((B1 4)) TOTALP-LST ((B1 . T)) SDEFN (LAMBDA NIL (QUOTE 1)) LISP-CODE *1*B1 SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*B1) IMMEDIATE-DEPENDENTS0 (BSET-EFFECT EOR-Z BRANCH-CC NOT-Z DIVU_L DIVS_L DIVSL_L TAS-EFFECT SWAP-Z CLR-CVZNX EXT-Z MOVE-Z ROXR-Z ROXL-Z ASR-Z ASL-Z ASL-V LSR-Z LSL-Z ROR-Z ROL-Z DIVU_W-INS DIVU-Z DIVU-V DIVS_W-INS DIVS-Z DIVS-V OR-Z MULS-Z MULS-V MULU-Z MULU-V AND-Z SUBX-Z SUB-Z ADDX-Z ADD-Z B-EOR B-NAND B-NOR B-OR B-AND B-NOT FIX-BIT) EVENT (DEFN B1 NIL (QUOTE 1)) LOCAL-UNDO-TUPLES ((DCELL . *1*B1))))) (PUT1-LST (QUOTE *1*BITP) (QUOTE (MAIN-EVENT BITP))) (PUT1-LST (QUOTE BITP) (QUOTE (TYPE-PRESCRIPTION-LST ((BITP 3 NIL)) TOTALP-LST ((BITP . T)) SDEFN (LAMBDA (X) (IF (EQUAL X (QUOTE 0)) (QUOTE *1*TRUE) (EQUAL X (QUOTE 1)))) LISP-CODE *1*BITP SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*BITP) EVENT (DEFN BITP (X) (OR (EQUAL X (QUOTE 0)) (EQUAL X (QUOTE 1)))) LOCAL-UNDO-TUPLES ((DCELL . *1*BITP))))) (PUT1-LST (QUOTE *1*MODE-SIGNAL) (QUOTE (MAIN-EVENT MODE-SIGNAL))) (PUT1-LST (QUOTE MODE-SIGNAL) (QUOTE (TYPE-PRESCRIPTION-LST ((MODE-SIGNAL 8)) TOTALP-LST ((MODE-SIGNAL . T)) SDEFN (LAMBDA NIL (QUOTE ILLEGAL_ADDRESSING_MODE_IN_CURRENT_INSTRUCTION)) LISP-CODE *1*MODE-SIGNAL SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*MODE-SIGNAL) IMMEDIATE-DEPENDENTS0 (CMPI-INS EORI-INS ADDI-INS SUBI-INS ANDI-INS ORI-INS BTST-INS BSET-INS BCLR-INS BCHG-INS EOR-INS CMPA-INS CMP-INS SUBQ-INS ADDQ-INS SCC-INS NOT-INS JSR-INS JMP-INS MOVEM-EA-RN-INS MUL-DIV_L-INS TAS-INS TST-INS MOVEM-RN-EA-INS PEA-INS MOVE-TO-CCR-INS NEG-INS NEGX-INS MOVE-FROM-CCR-INS CLR-INS LEA-INS MOVEA-INS MOVE-INS MEM-ROXR-INS MEM-ROXL-INS MEM-ASR-INS MEM-ASL-INS MEM-LSR-INS MEM-LSL-INS MEM-ROR-INS MEM-ROL-INS DIV_W-INS OR-INS2 OR-INS1 MUL_W-INS AND-INS2 AND-INS1 SUBA-INS SUB-INS2 SUB-INS1 ADDA-INS ADD-INS2 ADD-INS1) EVENT (DEFN MODE-SIGNAL NIL (QUOTE ILLEGAL_ADDRESSING_MODE_IN_CURRENT_INSTRUCTION)) LOCAL-UNDO-TUPLES ((DCELL . *1*MODE-SIGNAL))))) (PUT1-LST (QUOTE *1*PC-ODD-SIGNAL) (QUOTE (MAIN-EVENT PC-ODD-SIGNAL))) (PUT1-LST (QUOTE PC-ODD-SIGNAL) (QUOTE (TYPE-PRESCRIPTION-LST ((PC-ODD-SIGNAL 8)) TOTALP-LST ((PC-ODD-SIGNAL . T)) SDEFN (LAMBDA NIL (QUOTE PC_AT_ODD_ADDRESS)) LISP-CODE *1*PC-ODD-SIGNAL SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*PC-ODD-SIGNAL) IMMEDIATE-DEPENDENTS0 (STEPI) EVENT (DEFN PC-ODD-SIGNAL NIL (QUOTE PC_AT_ODD_ADDRESS)) LOCAL-UNDO-TUPLES ((DCELL . *1*PC-ODD-SIGNAL))))) (PUT1-LST (QUOTE *1*PC-SIGNAL) (QUOTE (MAIN-EVENT PC-SIGNAL))) (PUT1-LST (QUOTE PC-SIGNAL) (QUOTE (TYPE-PRESCRIPTION-LST ((PC-SIGNAL 8)) TOTALP-LST ((PC-SIGNAL . T)) SDEFN (LAMBDA NIL (QUOTE PC_OUTSIDE_ROM)) LISP-CODE *1*PC-SIGNAL SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*PC-SIGNAL) IMMEDIATE-DEPENDENTS0 (STEPI EORI-TO-CCR-INS ANDI-TO-CCR-INS ORI-TO-CCR-INS S-BIT-SUBGROUP DBCC-INS BCC-GROUP RTD-INS LINK_W-INS LINK_L-INS MOVEM-EA-RN-SUBGROUP EXT-SUBGROUP IMMEDIATE PC-INDEX PC-DISP ABSOLUTE-LONG ABSOLUTE-SHORT ADDR-INDEX ADDR-INDEX2 MEM-POSTINDEX MEM-INDIRECT ADDR-DISP) EVENT (DEFN PC-SIGNAL NIL (QUOTE PC_OUTSIDE_ROM)) LOCAL-UNDO-TUPLES ((DCELL . *1*PC-SIGNAL))))) (PUT1-LST (QUOTE *1*RESERVED-SIGNAL) (QUOTE (MAIN-EVENT RESERVED-SIGNAL))) (PUT1-LST (QUOTE RESERVED-SIGNAL) (QUOTE (TYPE-PRESCRIPTION-LST ((RESERVED-SIGNAL 8)) TOTALP-LST ((RESERVED-SIGNAL . T)) SDEFN (LAMBDA NIL (QUOTE MOTOROLA_RESERVED_FOR_FUTURE_DEVELOPMENT)) LISP-CODE *1*RESERVED-SIGNAL SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*RESERVED-SIGNAL) IMMEDIATE-DEPENDENTS0 (EXECUTE-INS EORI-SUBGROUP EORI-TO-CCR-INS ANDI-SUBGROUP ANDI-TO-CCR-INS ORI-SUBGROUP ORI-TO-CCR-INS S-BIT-SUBGROUP MOVEQ-INS MISC-GROUP MUL-DIV_L-INS LEA-SUBGROUP AND-GROUP PC-INDEX1 ADDR-INDEX1 ADDR-INDEX2 ADDR-INDEX3) EVENT (DEFN RESERVED-SIGNAL NIL (QUOTE MOTOROLA_RESERVED_FOR_FUTURE_DEVELOPMENT)) LOCAL-UNDO-TUPLES ((DCELL . *1*RESERVED-SIGNAL))))) (PUT1-LST (QUOTE *1*WRITE-SIGNAL) (QUOTE (MAIN-EVENT WRITE-SIGNAL))) (PUT1-LST (QUOTE WRITE-SIGNAL) (QUOTE (TYPE-PRESCRIPTION-LST ((WRITE-SIGNAL 8)) TOTALP-LST ((WRITE-SIGNAL . T)) SDEFN (LAMBDA NIL (QUOTE WRITE_ROM_OR_UNAVAILABLE_MEMORY)) LISP-CODE *1*WRITE-SIGNAL SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*WRITE-SIGNAL) IMMEDIATE-DEPENDENTS0 (MOVEP-TO-MEM LINK-MAPPING MOVEM-RN-EA-INS M-MAPPING PUSH-SP) EVENT (DEFN WRITE-SIGNAL NIL (QUOTE WRITE_ROM_OR_UNAVAILABLE_MEMORY)) LOCAL-UNDO-TUPLES ((DCELL . *1*WRITE-SIGNAL))))) (PUT1-LST (QUOTE *1*READ-SIGNAL) (QUOTE (MAIN-EVENT READ-SIGNAL))) (PUT1-LST (QUOTE READ-SIGNAL) (QUOTE (TYPE-PRESCRIPTION-LST ((READ-SIGNAL 8)) TOTALP-LST ((READ-SIGNAL . T)) SDEFN (LAMBDA NIL (QUOTE READ_UNAVAILABLE_MEMORY)) LISP-CODE *1*READ-SIGNAL SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*READ-SIGNAL) IMMEDIATE-DEPENDENTS0 (MOVEP-TO-REG CMPM-INS CMPM-MAPPING RTR-INS RTD-MAPPING UNLK-INS MOVEM-EA-RN-INS SUBX-INS2 ADDX-INS2 MC-INSTATE MEM-POSTINDEX MEM-INDIRECT) EVENT (DEFN READ-SIGNAL NIL (QUOTE READ_UNAVAILABLE_MEMORY)) LOCAL-UNDO-TUPLES ((DCELL . *1*READ-SIGNAL))))) (PUT1-LST (QUOTE *1*QSZ) (QUOTE (MAIN-EVENT QSZ))) (PUT1-LST (QUOTE QSZ) (QUOTE (TYPE-PRESCRIPTION-LST ((QSZ 4)) TOTALP-LST ((QSZ . T)) SDEFN (LAMBDA NIL (QUOTE 8)) LISP-CODE *1*QSZ SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*QSZ) EVENT (DEFN QSZ NIL (QUOTE 8)) LOCAL-UNDO-TUPLES ((DCELL . *1*QSZ))))) (PUT1-LST (QUOTE *1*LSZ) (QUOTE (MAIN-EVENT LSZ))) (PUT1-LST (QUOTE LSZ) (QUOTE (TYPE-PRESCRIPTION-LST ((LSZ 4)) TOTALP-LST ((LSZ . T)) SDEFN (LAMBDA NIL (QUOTE 4)) LISP-CODE *1*LSZ SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*LSZ) IMMEDIATE-DEPENDENTS0 (BCC-GROUP BSR-INS JSR-INS RTD-MAPPING UNLK-INS LINK_L-INS LINK-MAPPING PEA-INS ABSOLUTE-LONG ADDR-INDEX2 PC-LONG-READ LONG-READ PC-LONG-READP LONG-READP) EVENT (DEFN LSZ NIL (QUOTE 4)) LOCAL-UNDO-TUPLES ((DCELL . *1*LSZ))))) (PUT1-LST (QUOTE *1*WSZ) (QUOTE (MAIN-EVENT WSZ))) (PUT1-LST (QUOTE WSZ) (QUOTE (TYPE-PRESCRIPTION-LST ((WSZ 4)) TOTALP-LST ((WSZ . T)) SDEFN (LAMBDA NIL (QUOTE 2)) LISP-CODE *1*WSZ SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*WSZ) IMMEDIATE-DEPENDENTS0 (STEPI EORI-TO-CCR-INS ANDI-TO-CCR-INS ORI-TO-CCR-INS S-BIT-SUBGROUP MOVEP-READP DBCC-INS DBCC-LOOP BCC-GROUP RTR-INS LINK_W-INS MOVEM-EA-RN-SUBGROUP EXT-SUBGROUP IMMEDIATE PC-INDEX1 PC-INDEX-DISP PC-DISP ABSOLUTE-SHORT ADDR-INDEX ADDR-INDEX2 ADDR-DISP PRE-EFFECT POST-EFFECT PC-WORD-READ WORD-READ PC-WORD-READP WORD-READP) EVENT (DEFN WSZ NIL (QUOTE 2)) LOCAL-UNDO-TUPLES ((DCELL . *1*WSZ))))) (PUT1-LST (QUOTE *1*BSZ) (QUOTE (MAIN-EVENT BSZ))) (PUT1-LST (QUOTE BSZ) (QUOTE (TYPE-PRESCRIPTION-LST ((BSZ 4)) TOTALP-LST ((BSZ . T)) SDEFN (LAMBDA NIL (QUOTE 1)) LISP-CODE *1*BSZ SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*BSZ) IMMEDIATE-DEPENDENTS0 (EORI-TO-CCR-INS ANDI-TO-CCR-INS ORI-TO-CCR-INS S-BIT-SUBGROUP MOVEP-ADDR IMMEDIATE) EVENT (DEFN BSZ NIL (QUOTE 1)) LOCAL-UNDO-TUPLES ((DCELL . *1*BSZ))))) (PUT1-LST (QUOTE *1*Q) (QUOTE (MAIN-EVENT Q))) (PUT1-LST (QUOTE Q) (QUOTE (TYPE-PRESCRIPTION-LST ((Q 4)) TOTALP-LST ((Q . T)) SDEFN (LAMBDA NIL (QUOTE 64)) LISP-CODE *1*Q SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*Q) IMMEDIATE-DEPENDENTS0 (CMPI-SUBGROUP EORI-SUBGROUP ADDI-SUBGROUP SUBI-SUBGROUP ANDI-SUBGROUP ORI-SUBGROUP CMP-GROUP SCC-GROUP NOT-SUBGROUP MULS_L_DLDH MULU_L_DLDH DIVS_L TST-SUBGROUP NEG-SUBGROUP NEGX-SUBGROUP CLR-SUBGROUP S&R-GROUP OR-GROUP AND-GROUP) EVENT (DEFN Q NIL (QUOTE 64)) LOCAL-UNDO-TUPLES ((DCELL . *1*Q))))) (PUT1-LST (QUOTE *1*L) (QUOTE (MAIN-EVENT L))) (PUT1-LST (QUOTE L) (QUOTE (TYPE-PRESCRIPTION-LST ((L 4)) TOTALP-LST ((L . T)) SDEFN (LAMBDA NIL (QUOTE 32)) LISP-CODE *1*L SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*L) IMMEDIATE-DEPENDENTS0 (GCD-EXAMPLE STEPI EXECUTE-INS EORI-TO-CCR-INS ANDI-TO-CCR-INS ORI-TO-CCR-INS S-BIT-SUBGROUP D-BIT-SUBGROUP BXXX-OPD BXXX-OPLEN MOVEP-INS MOVEP-ADDR MOVEP-READ MOVEP-READP MOVEP-WRITE MOVEP-WRITEP CMP-GROUP CMPA-INS MOVEQ-INS SUBQ-INS ADDQ-INS DBCC-INS DBCC-LOOP BCC-GROUP BCC-RA-SR BSR-INS JSR-INS JMP-INS RTR-INS RTD-MAPPING UNLK-INS LINK_W-INS LINK_L-INS LINK-MAPPING MOVEM-EA-RN-SUBGROUP MOVEM-EA-RN-INS MUL-DIV_L-INS MUL_L-INS MULS_L_DLDH MULS_L_DL MULU_L_DLDH MULU_L_DL DIV_L-INS DIVU_L DIVUL_L DIVS_L DIVSL_L EXT-SUBGROUP MOVEM-RN-EA-INS MOVEM-PREDEC WRITEM-RN WRITEM-MEM READM-MEM EXT-INS SWAP-INS PEA-INS EXTB-INS LEA-INS MOVEA-INS DIVU_W-INS DIVS_W-INS EXG-DRAR-INS EXG-ARAR-INS EXG-DRDR-INS MULS_W-INS MULU_W-INS SUB-GROUP SUBA-INS ADD-GROUP ADDA-INS IMMEDIATE PC-INDEX1 PC-INDEX-DISP PC-DISP ABSOLUTE-LONG ABSOLUTE-SHORT ADDR-INDEX BS-REGISTER ADDR-INDEX2 ADDR-INDEX3 MEM-PREINDEX MEM-POSTINDEX MEM-INDIRECT ADDR-INDEX-BD ADDR-INDEX-DISP IR-SCALED INDEX-REGISTER ADDR-DISP ADDR-PREDEC ADDR-POSTINC ADDR-INDIRECT PRE-EFFECT POST-EFFECT PUSH-SP WRITE-SP READ-SP MC-PC) EVENT (DEFN L NIL (QUOTE 32)) LOCAL-UNDO-TUPLES ((DCELL . *1*L))))) (PUT1-LST (QUOTE *1*W) (QUOTE (MAIN-EVENT W))) (PUT1-LST (QUOTE W) (QUOTE (TYPE-PRESCRIPTION-LST ((W 4)) TOTALP-LST ((W . T)) SDEFN (LAMBDA NIL (QUOTE 16)) LISP-CODE *1*W SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*W) IMMEDIATE-DEPENDENTS0 (EXECUTE-INS EORI-SUBGROUP ANDI-SUBGROUP ORI-SUBGROUP MOVEP-INS CMP-GROUP DBCC-LOOP BCC-GROUP RTD-MAPPING LINK_W-INS MOVEM-EA-RN-SUBGROUP EXT-SUBGROUP EXT-INS SWAP-EFFECT MOVE-TO-CCR-INS MOVE-FROM-CCR-INS MEM-ROXR-INS MEM-ROXR-EFFECT MEM-ROXL-INS MEM-ROXL-EFFECT MEM-ASR-INS MEM-ASR-EFFECT MEM-ASL-INS MEM-ASL-EFFECT MEM-LSR-INS MEM-LSR-EFFECT MEM-LSL-INS MEM-LSL-EFFECT MEM-ROR-INS MEM-ROR-EFFECT MEM-ROL-INS MEM-ROL-EFFECT DIV_W-INS DIVU_W-INS DIVS_W-INS AND-GROUP MUL_W-INS MULS_W-INS MULU_W-INS SUB-GROUP ADD-GROUP PC-DISP ABSOLUTE-SHORT ADDR-INDEX2 ADDR-INDEX3 INDEX-REGISTER ADDR-DISP) EVENT (DEFN W NIL (QUOTE 16)) LOCAL-UNDO-TUPLES ((DCELL . *1*W))))) (PUT1-LST (QUOTE *1*B) (QUOTE (MAIN-EVENT B))) (PUT1-LST (QUOTE B) (QUOTE (TYPE-PRESCRIPTION-LST ((B 4)) TOTALP-LST ((B . T)) SDEFN (LAMBDA NIL (QUOTE 8)) LISP-CODE *1*B SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214822 SATELLITES (*1*B) IMMEDIATE-DEPENDENTS0 (EXECUTE-INS EORI-SUBGROUP ANDI-SUBGROUP ORI-SUBGROUP BTST-INS BSET-INS BCLR-INS BCHG-INS BXXX-OPD BXXX-OPLEN MOVEP-READ MOVEP-WRITE MOVEQ-INS SCC-INS BCC-GROUP TAS-INS TAS-EFFECT TST-ADDR-MODEP EXT-INS MOVE-TO-CCR-INS EXTB-INS SR-CNT AND-GROUP BYTE-AN-DIRECT-MODEP IMMEDIATE PC-INDEX-DISP ADDR-INDEX-DISP PRE-EFFECT POST-EFFECT WRITE-MEM BYTE-WRITE OP-LEN PC-READ-MEM PC-BYTE-READ READ-MEM BYTE-READ MC-CCR OP-SZ) EVENT (DEFN B NIL (QUOTE 8)) LOCAL-UNDO-TUPLES ((DCELL . *1*B))))) (PUT1-LST (QUOTE TA-LEMMA-2) (QUOTE (IDATE 1000402214820 EVENT (PROVE-LEMMA TA-LEMMA-2 NIL (IMPLIES (AND (IF (LESSP A1 A) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (LESSP B1 B) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (IF (LESSP (PLUS X (TIMES Y (PLUS (LOG (QUOTE 2) A1) (LOG (QUOTE 2) B1)))) (PLUS X (TIMES Y (PLUS (LOG (QUOTE 2) A) (LOG (QUOTE 2) B))))) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOG-LEQ . TA-LEMMA-2) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP-CANCEL . TA-LEMMA-2) (IMMEDIATE-DEPENDENTS0 PLUS-LESSP-CANCEL-1 . TA-LEMMA-2) (IMMEDIATE-DEPENDENTS0 LOG . TA-LEMMA-2))))) (PUT1-LST (QUOTE TA-LEMMA-1) (QUOTE (IDATE 1000402214820 EVENT (PROVE-LEMMA TA-LEMMA-1 NIL (IMPLIES (IF (LESSP A1 A) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (LESSP (PLUS X (TIMES Y (LOG (QUOTE 2) A1))) (PLUS X (TIMES Y (LOG (QUOTE 2) A)))) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOG-LEQ . TA-LEMMA-1) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP-CANCEL . TA-LEMMA-1) (IMMEDIATE-DEPENDENTS0 PLUS-LESSP-CANCEL-1 . TA-LEMMA-1) (IMMEDIATE-DEPENDENTS0 LOG . TA-LEMMA-1))))) (PUT1-LST (QUOTE LOG-LEQ) (QUOTE (IDATE 1000402214820 IMMEDIATE-DEPENDENTS0 (TA-LEMMA-2 TA-LEMMA-1) EVENT (PROVE-LEMMA LOG-LEQ (REWRITE) (IMPLIES (IF (LESSP Y X) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (NOT (LESSP (LOG B Y) (LOG B X)))) ((INDUCT (QUOTIENT2-INDUCT B X Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-SHRINK-FAST . LOG-LEQ) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-LESSP . LOG-LEQ) (IMMEDIATE-DEPENDENTS0 LOG-OF-0 . LOG-LEQ) (IMMEDIATE-DEPENDENTS0 QUOTIENT2-INDUCT . LOG-LEQ) (IMMEDIATE-DEPENDENTS0 LOG . LOG-LEQ) (LINEAR-LEMMAS LOG . LOG-LEQ) (LINEAR-LEMMAS LOG . LOG-LEQ))))) (PUT1-LST (QUOTE *1*QUOTIENT2-INDUCT) (QUOTE (MAIN-EVENT QUOTIENT2-INDUCT))) (PUT1-LST (QUOTE QUOTIENT2-INDUCT) (QUOTE (TYPE-PRESCRIPTION-LST ((QUOTIENT2-INDUCT 4 NIL NIL NIL)) TOTALP-LST ((QUOTIENT2-INDUCT . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (B X Y) (IF (EQUAL B (QUOTE 0)) (QUOTE 0) (IF (NUMBERP B) (IF (EQUAL B (QUOTE 1)) (QUOTE 0) (IF (EQUAL X (QUOTE 0)) (QUOTE 0) (IF (NUMBERP X) (IF (EQUAL Y (QUOTE 0)) (QUOTE 0) (IF (NUMBERP Y) (QUOTIENT2-INDUCT B (QUOTIENT X B) (QUOTIENT Y B)) (QUOTE 0))) (QUOTE 0)))) (QUOTE 0)))) LISP-CODE *1*QUOTIENT2-INDUCT SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((OR (ZEROP B) (EQUAL B (QUOTE 1)))) NIL) (TESTS-AND-CASES ((NOT (OR (ZEROP B) (EQUAL B (QUOTE 1)))) (OR (ZEROP X) (ZEROP Y))) NIL) (TESTS-AND-CASES ((NOT (OR (ZEROP B) (EQUAL B (QUOTE 1)))) (NOT (OR (ZEROP X) (ZEROP Y)))) ((B (QUOTIENT X B) (QUOTIENT Y B))))) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (ZEROP OR COUNT-NUMBERP ZERO TIMES-LESSP QUOTIENT-TIMES-LESSP)) (JUSTIFICATION (Y) (COUNT Y) LESSP (ZEROP OR COUNT-NUMBERP ZERO TIMES-LESSP QUOTIENT-TIMES-LESSP))) IDATE 1000402214819 CONTROLLER-POCKETS (2 4) SATELLITES (*1*QUOTIENT2-INDUCT) IMMEDIATE-DEPENDENTS0 (LOG-LEQ) EVENT (DEFN QUOTIENT2-INDUCT (B X Y) (IF (OR (ZEROP B) (EQUAL B (QUOTE 1))) (QUOTE 0) (IF (OR (ZEROP X) (ZEROP Y)) (QUOTE 0) (QUOTIENT2-INDUCT B (QUOTIENT X B) (QUOTIENT Y B))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-LESSP . QUOTIENT2-INDUCT) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-LESSP . QUOTIENT2-INDUCT) (DCELL . *1*QUOTIENT2-INDUCT))))) (PUT1-LST (QUOTE LOG-QUOTIENT-EXP) (QUOTE (IDATE 1000402214819 EVENT (PROVE-LEMMA LOG-QUOTIENT-EXP (REWRITE) (IMPLIES (LESSP (QUOTE 1) B) (EQUAL (LOG B (QUOTIENT X (EXP B I))) (DIFFERENCE (LOG B X) I)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . LOG-QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . LOG-QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-QUOTIENT . LOG-QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-LESSP . LOG-QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . LOG-QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . LOG-QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . LOG-QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . LOG-QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 TIMES-ASSOCIATIVITY . LOG-QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-1 . LOG-QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 LOG-EQUAL-0 . LOG-QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . LOG-QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . LOG-QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . LOG-QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 LOG-OF-0 . LOG-QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . LOG-QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . LOG-QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . LOG-QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 EXP . LOG-QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 LOG . LOG-QUOTIENT-EXP) (LEMMAS LOG . LOG-QUOTIENT-EXP))))) (PUT1-LST (QUOTE LOG-TIMES-EXP-1) (QUOTE (IDATE 1000402214818 EVENT (PROVE-LEMMA LOG-TIMES-EXP-1 (REWRITE) (IMPLIES (AND (LESSP (QUOTE 1) B) (NOT (ZEROP X))) (AND (EQUAL (LOG B (TIMES X B)) (ADD1 (LOG B X))) (EQUAL (LOG B (TIMES B X)) (ADD1 (LOG B X)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . LOG-TIMES-EXP-1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES . LOG-TIMES-EXP-1) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-TIMES . LOG-TIMES-EXP-1) (IMMEDIATE-DEPENDENTS0 LOG . LOG-TIMES-EXP-1) (LEMMAS LOG . LOG-TIMES-EXP-1) (LEMMAS LOG . LOG-TIMES-EXP-1))))) (PUT1-LST (QUOTE LOG-TIMES-EXP) (QUOTE (IDATE 1000402214818 EVENT (PROVE-LEMMA LOG-TIMES-EXP (REWRITE) (IMPLIES (AND (LESSP (QUOTE 1) B) (NOT (ZEROP X))) (AND (EQUAL (LOG B (TIMES X (EXP B N))) (PLUS N (LOG B X))) (EQUAL (LOG B (TIMES (EXP B N) X)) (PLUS N (LOG B X)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ZERO . LOG-TIMES-EXP) (IMMEDIATE-DEPENDENTS0 LOG-OF-0 . LOG-TIMES-EXP) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . LOG-TIMES-EXP) (IMMEDIATE-DEPENDENTS0 LOG-EQUAL-0 . LOG-TIMES-EXP) (IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-0 . LOG-TIMES-EXP) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY1 . LOG-TIMES-EXP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES . LOG-TIMES-EXP) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-TIMES . LOG-TIMES-EXP) (IMMEDIATE-DEPENDENTS0 TIMES-1 . LOG-TIMES-EXP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . LOG-TIMES-EXP) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . LOG-TIMES-EXP) (IMMEDIATE-DEPENDENTS0 EXP . LOG-TIMES-EXP) (IMMEDIATE-DEPENDENTS0 LOG . LOG-TIMES-EXP) (LEMMAS LOG . LOG-TIMES-EXP) (LEMMAS LOG . LOG-TIMES-EXP))))) (PUT1-LST (QUOTE LOG-EXP) (QUOTE (IDATE 1000402214818 EVENT (PROVE-LEMMA LOG-EXP (REWRITE) (IMPLIES (LESSP (QUOTE 1) B) (EQUAL (LOG B (EXP B N)) (FIX N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOG-OF-0 . LOG-EXP) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . LOG-EXP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES . LOG-EXP) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-TIMES . LOG-EXP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . LOG-EXP) (IMMEDIATE-DEPENDENTS0 LOG-OF-1 . LOG-EXP) (IMMEDIATE-DEPENDENTS0 EXP . LOG-EXP) (IMMEDIATE-DEPENDENTS0 LOG . LOG-EXP) (LEMMAS LOG . LOG-EXP))))) (PUT1-LST (QUOTE LOG-EQUAL-0) (QUOTE (IDATE 1000402214818 IMMEDIATE-DEPENDENTS0 (LOG-QUOTIENT-EXP LOG-TIMES-EXP) EVENT (PROVE-LEMMA LOG-EQUAL-0 (REWRITE) (EQUAL (EQUAL (LOG B X) (QUOTE 0)) (OR (ZEROP B) (OR (EQUAL B (QUOTE 1)) (LESSP X B))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-LESSP . LOG-EQUAL-0) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-LESSP . LOG-EQUAL-0) (IMMEDIATE-DEPENDENTS0 LOG . LOG-EQUAL-0) (LEMMAS EQUAL . LOG-EQUAL-0))))) (PUT1-LST (QUOTE LOG-OF-1) (QUOTE (IDATE 1000402214818 IMMEDIATE-DEPENDENTS0 (LOG-EXP) EVENT (PROVE-LEMMA LOG-OF-1 (REWRITE) (IMPLIES (LESSP (QUOTE 1) B) (EQUAL (LOG B (QUOTE 1)) (QUOTE 0)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOG . LOG-OF-1) (LEMMAS LOG . LOG-OF-1))))) (PUT1-LST (QUOTE LOG-OF-0) (QUOTE (IDATE 1000402214818 IMMEDIATE-DEPENDENTS0 (LOG-LEQ LOG-QUOTIENT-EXP LOG-TIMES-EXP LOG-EXP) EVENT (PROVE-LEMMA LOG-OF-0 (REWRITE) (EQUAL (LOG B (QUOTE 0)) (QUOTE 0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LOG . LOG-OF-0) (LEMMAS LOG . LOG-OF-0))))) (PUT1-LST (QUOTE *1*LOG) (QUOTE (MAIN-EVENT LOG))) (PUT1-LST (QUOTE LOG) (QUOTE (TYPE-PRESCRIPTION-LST ((LOG 4 NIL NIL)) LEMMAS ((REWRITE-RULE LOG-QUOTIENT-EXP ((LESSP (QUOTE 1) B)) (EQUAL (LOG B (QUOTIENT X (EXP B I))) (DIFFERENCE (LOG B X) I)) NIL) (REWRITE-RULE LOG-TIMES-EXP-1 ((LESSP (QUOTE 1) B) (NUMBERP X) (NOT (EQUAL X (QUOTE 0)))) (EQUAL (LOG B (TIMES B X)) (ADD1 (LOG B X))) NIL) (REWRITE-RULE LOG-TIMES-EXP-1 ((LESSP (QUOTE 1) B) (NUMBERP X) (NOT (EQUAL X (QUOTE 0)))) (EQUAL (LOG B (TIMES X B)) (ADD1 (LOG B X))) NIL) (REWRITE-RULE LOG-TIMES-EXP ((LESSP (QUOTE 1) B) (NUMBERP X) (NOT (EQUAL X (QUOTE 0)))) (EQUAL (LOG B (TIMES (EXP B N) X)) (PLUS N (LOG B X))) NIL) (REWRITE-RULE LOG-TIMES-EXP ((LESSP (QUOTE 1) B) (NUMBERP X) (NOT (EQUAL X (QUOTE 0)))) (EQUAL (LOG B (TIMES X (EXP B N))) (PLUS N (LOG B X))) NIL) (REWRITE-RULE LOG-EXP ((LESSP (QUOTE 1) B)) (EQUAL (LOG B (EXP B N)) (IF (NUMBERP N) N (QUOTE 0))) NIL) (REWRITE-RULE LOG-OF-1 ((LESSP (QUOTE 1) B)) (EQUAL (LOG B (QUOTE 1)) (QUOTE 0)) NIL) (REWRITE-RULE LOG-OF-0 NIL (EQUAL (LOG B (QUOTE 0)) (QUOTE 0)) NIL)) TOTALP-LST ((LOG . T)) LINEAR-LEMMAS ((LINEAR-LEMMA LOG-LEQ ((NOT (LESSP Y X))) (NOT (LESSP (LOG B Y) (LOG B X))) (LOG B X)) (LINEAR-LEMMA LOG-LEQ ((NOT (LESSP Y X))) (NOT (LESSP (LOG B Y) (LOG B X))) (LOG B Y))) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (B X) (IF (EQUAL B (QUOTE 0)) (QUOTE 0) (IF (NUMBERP B) (IF (EQUAL B (QUOTE 1)) (QUOTE 0) (IF (LESSP X B) (QUOTE 0) (ADD1 (LOG B (QUOTIENT X B))))) (QUOTE 0)))) LISP-CODE *1*LOG SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((OR (ZEROP B) (EQUAL B (QUOTE 1)))) NIL) (TESTS-AND-CASES ((NOT (OR (ZEROP B) (EQUAL B (QUOTE 1)))) (LESSP X B)) NIL) (TESTS-AND-CASES ((NOT (OR (ZEROP B) (EQUAL B (QUOTE 1)))) (NOT (LESSP X B))) ((B (QUOTIENT X B))))) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (ZEROP OR COUNT-NUMBERP ZERO COUNT-NOT-LESSP TIMES-LESSP QUOTIENT-TIMES-LESSP))) IDATE 1000402214818 CONTROLLER-POCKETS (2) SATELLITES (*1*LOG) IMMEDIATE-DEPENDENTS0 (TA-LEMMA-2 TA-LEMMA-1 LOG-LEQ LOG-QUOTIENT-EXP LOG-TIMES-EXP-1 LOG-TIMES-EXP LOG-EXP LOG-EQUAL-0 LOG-OF-1 LOG-OF-0) EVENT (DEFN LOG (B X) (IF (OR (ZEROP B) (EQUAL B (QUOTE 1))) (QUOTE 0) (IF (LESSP X B) (QUOTE 0) (ADD1 (LOG B (QUOTIENT X B)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-LESSP . LOG) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-LESSP . LOG) (DCELL . *1*LOG))))) (PUT1-LST (QUOTE TIMES-LESSP) (QUOTE (IDATE 1000402214818 IMMEDIATE-DEPENDENTS0 (MOVEM-PRE-RNLST MOVEM-LEN MOVEM-RNLST LOGOR LOGAND QUOTIENT2-INDUCT LOG-EQUAL-0 LOG) EVENT (PROVE-LEMMA TIMES-LESSP (REWRITE) (IMPLIES (IF (LESSP Z X) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (EQUAL (LESSP X (TIMES Y Z)) (IF (OR (ZEROP Y) (ZEROP Z)) (QUOTE *1*FALSE) (IF (EQUAL Y (QUOTE 1)) (LESSP X Z) (QUOTE *1*TRUE))))) ((ENABLE TIMES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . TIMES-LESSP) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . TIMES-LESSP) (IMMEDIATE-DEPENDENTS0 TIMES-1 . TIMES-LESSP) (LEMMAS LESSP . TIMES-LESSP))))) (PUT1-LST (QUOTE REMAINDER-REMAINDER-2) (QUOTE (IDATE 1000402214818 EVENT (PROVE-LEMMA REMAINDER-REMAINDER-2 (REWRITE) (EQUAL (REMAINDER (REMAINDER X (EXP (QUOTE 2) I)) (QUOTE 2)) (IF (ZEROP I) (QUOTE 0) (REMAINDER X (QUOTE 2)))) ((USE (REMAINDER-REMAINDER-EXP2 (J (QUOTE 1)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . REMAINDER-REMAINDER-2) (IMMEDIATE-DEPENDENTS0 REMAINDER-1 . REMAINDER-REMAINDER-2) (IMMEDIATE-DEPENDENTS0 REMAINDER-REMAINDER-EXP2 . REMAINDER-REMAINDER-2) (IMMEDIATE-DEPENDENTS0 EXP . REMAINDER-REMAINDER-2) (LEMMAS REMAINDER . REMAINDER-REMAINDER-2))))) (PUT1-LST (QUOTE REMAINDER-REMAINDER-EXP2) (QUOTE (IDATE 1000402214818 IMMEDIATE-DEPENDENTS0 (REMAINDER-REMAINDER-2) EVENT (PROVE-LEMMA REMAINDER-REMAINDER-EXP2 (REWRITE) (EQUAL (REMAINDER (REMAINDER X (EXP (QUOTE 2) I)) (EXP (QUOTE 2) J)) (IF (LESSP I J) (REMAINDER X (EXP (QUOTE 2) I)) (REMAINDER X (EXP (QUOTE 2) J))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . REMAINDER-REMAINDER-EXP2) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . REMAINDER-REMAINDER-EXP2) (IMMEDIATE-DEPENDENTS0 LESSP-PLUS-TIMES-EXP2 . REMAINDER-REMAINDER-EXP2) (IMMEDIATE-DEPENDENTS0 PLUS-ASSOCIATIVITY . REMAINDER-REMAINDER-EXP2) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES-EXP2-1 . REMAINDER-REMAINDER-EXP2) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . REMAINDER-REMAINDER-EXP2) (IMMEDIATE-DEPENDENTS0 REMAINDER-1 . REMAINDER-REMAINDER-EXP2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . REMAINDER-REMAINDER-EXP2) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-TIMES2 . REMAINDER-REMAINDER-EXP2) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-PLUS . REMAINDER-REMAINDER-EXP2) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . REMAINDER-REMAINDER-EXP2) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS1 . REMAINDER-REMAINDER-EXP2) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . REMAINDER-REMAINDER-EXP2) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . REMAINDER-REMAINDER-EXP2) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . REMAINDER-REMAINDER-EXP2) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . REMAINDER-REMAINDER-EXP2) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . REMAINDER-REMAINDER-EXP2) (IMMEDIATE-DEPENDENTS0 EXP . REMAINDER-REMAINDER-EXP2) (LEMMAS REMAINDER . REMAINDER-REMAINDER-EXP2))))) (PUT1-LST (QUOTE QUOTIENT-TIMES-EXP2-4) (QUOTE (IDATE 1000402214817 EVENT (PROVE-LEMMA QUOTIENT-TIMES-EXP2-4 (REWRITE) (AND (EQUAL (QUOTIENT (TIMES X (TIMES (EXP (QUOTE 2) I) Y)) (QUOTE 2)) (IF (ZEROP I) (QUOTIENT (TIMES X Y) (QUOTE 2)) (TIMES X (TIMES Y (EXP (QUOTE 2) (SUB1 I)))))) (EQUAL (QUOTIENT (TIMES X (TIMES Y (EXP (QUOTE 2) I))) (QUOTE 2)) (IF (ZEROP I) (QUOTIENT (TIMES X Y) (QUOTE 2)) (TIMES X (TIMES Y (EXP (QUOTE 2) (SUB1 I))))))) ((USE (QUOTIENT-TIMES-EXP2-3 (X (TIMES X Y)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . QUOTIENT-TIMES-EXP2-4) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY1 . QUOTIENT-TIMES-EXP2-4) (IMMEDIATE-DEPENDENTS0 TIMES-1 . QUOTIENT-TIMES-EXP2-4) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . QUOTIENT-TIMES-EXP2-4) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . QUOTIENT-TIMES-EXP2-4) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . QUOTIENT-TIMES-EXP2-4) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . QUOTIENT-TIMES-EXP2-4) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-1 . QUOTIENT-TIMES-EXP2-4) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EQUAL-0 . QUOTIENT-TIMES-EXP2-4) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES . QUOTIENT-TIMES-EXP2-4) (IMMEDIATE-DEPENDENTS0 TIMES-ASSOCIATIVITY . QUOTIENT-TIMES-EXP2-4) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-EXP2-3 . QUOTIENT-TIMES-EXP2-4) (IMMEDIATE-DEPENDENTS0 EXP . QUOTIENT-TIMES-EXP2-4) (LEMMAS QUOTIENT . QUOTIENT-TIMES-EXP2-4) (LEMMAS QUOTIENT . QUOTIENT-TIMES-EXP2-4))))) (PUT1-LST (QUOTE QUOTIENT-TIMES-EXP2-3) (QUOTE (IDATE 1000402214817 IMMEDIATE-DEPENDENTS0 (QUOTIENT-TIMES-EXP2-4) EVENT (PROVE-LEMMA QUOTIENT-TIMES-EXP2-3 (REWRITE) (AND (EQUAL (QUOTIENT (TIMES X (EXP (QUOTE 2) I)) (QUOTE 2)) (IF (ZEROP I) (QUOTIENT X (QUOTE 2)) (TIMES X (EXP (QUOTE 2) (SUB1 I))))) (EQUAL (QUOTIENT (TIMES (EXP (QUOTE 2) I) X) (QUOTE 2)) (IF (ZEROP I) (QUOTIENT X (QUOTE 2)) (TIMES X (EXP (QUOTE 2) (SUB1 I)))))) ((USE (QUOTIENT-TIMES-EXP2-1 (J (QUOTE 1)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . QUOTIENT-TIMES-EXP2-3) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . QUOTIENT-TIMES-EXP2-3) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . QUOTIENT-TIMES-EXP2-3) (IMMEDIATE-DEPENDENTS0 TIMES-1 . QUOTIENT-TIMES-EXP2-3) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . QUOTIENT-TIMES-EXP2-3) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY1 . QUOTIENT-TIMES-EXP2-3) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES . QUOTIENT-TIMES-EXP2-3) (IMMEDIATE-DEPENDENTS0 TIMES-ASSOCIATIVITY . QUOTIENT-TIMES-EXP2-3) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1 . QUOTIENT-TIMES-EXP2-3) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-EXP2-1 . QUOTIENT-TIMES-EXP2-3) (IMMEDIATE-DEPENDENTS0 EXP . QUOTIENT-TIMES-EXP2-3) (LEMMAS QUOTIENT . QUOTIENT-TIMES-EXP2-3) (LEMMAS QUOTIENT . QUOTIENT-TIMES-EXP2-3))))) (PUT1-LST (QUOTE QUOTIENT-TIMES-EXP2-2) (QUOTE (IDATE 1000402214816 EVENT (PROVE-LEMMA QUOTIENT-TIMES-EXP2-2 (REWRITE) (EQUAL (QUOTIENT (TIMES (EXP (QUOTE 2) I) X) (EXP (QUOTE 2) J)) (IF (LESSP I J) (QUOTIENT X (EXP (QUOTE 2) (DIFFERENCE J I))) (TIMES X (EXP (QUOTE 2) (DIFFERENCE I J))))) ((USE (QUOTIENT-TIMES-EXP2-1)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . QUOTIENT-TIMES-EXP2-2) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-EXP2-1 . QUOTIENT-TIMES-EXP2-2) (IMMEDIATE-DEPENDENTS0 EXP . QUOTIENT-TIMES-EXP2-2) (LEMMAS QUOTIENT . QUOTIENT-TIMES-EXP2-2))))) (PUT1-LST (QUOTE QUOTIENT-TIMES-EXP2-1) (QUOTE (IDATE 1000402214816 IMMEDIATE-DEPENDENTS0 (QUOTIENT-TIMES-EXP2-3 QUOTIENT-TIMES-EXP2-2) EVENT (PROVE-LEMMA QUOTIENT-TIMES-EXP2-1 (REWRITE) (EQUAL (QUOTIENT (TIMES X (EXP (QUOTE 2) I)) (EXP (QUOTE 2) J)) (IF (LESSP I J) (QUOTIENT X (EXP (QUOTE 2) (DIFFERENCE J I))) (TIMES X (EXP (QUOTE 2) (DIFFERENCE I J)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES . QUOTIENT-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1-SUB1 . QUOTIENT-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . QUOTIENT-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY1 . QUOTIENT-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-CANCEL . QUOTIENT-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . QUOTIENT-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 TIMES-1 . QUOTIENT-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-1 . QUOTIENT-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-TIMES . QUOTIENT-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . QUOTIENT-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . QUOTIENT-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . QUOTIENT-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . QUOTIENT-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . QUOTIENT-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . QUOTIENT-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . QUOTIENT-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 EXP . QUOTIENT-TIMES-EXP2-1) (LEMMAS QUOTIENT . QUOTIENT-TIMES-EXP2-1))))) (PUT1-LST (QUOTE REMAINDER-TIMES-EXP2-4) (QUOTE (IDATE 1000402214816 EVENT (PROVE-LEMMA REMAINDER-TIMES-EXP2-4 (REWRITE) (AND (EQUAL (REMAINDER (TIMES X (TIMES (EXP (QUOTE 2) I) Y)) (QUOTE 2)) (IF (ZEROP I) (REMAINDER (TIMES X Y) (QUOTE 2)) (QUOTE 0))) (EQUAL (REMAINDER (TIMES X (TIMES Y (EXP (QUOTE 2) I))) (QUOTE 2)) (IF (ZEROP I) (REMAINDER (TIMES X Y) (QUOTE 2)) (QUOTE 0)))) ((USE (REMAINDER-TIMES-EXP2-3 (X (TIMES X Y)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ZERO . REMAINDER-TIMES-EXP2-4) (IMMEDIATE-DEPENDENTS0 TIMES-1 . REMAINDER-TIMES-EXP2-4) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . REMAINDER-TIMES-EXP2-4) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY1 . REMAINDER-TIMES-EXP2-4) (IMMEDIATE-DEPENDENTS0 TIMES-ASSOCIATIVITY . REMAINDER-TIMES-EXP2-4) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES-EXP2-3 . REMAINDER-TIMES-EXP2-4) (IMMEDIATE-DEPENDENTS0 EXP . REMAINDER-TIMES-EXP2-4) (LEMMAS REMAINDER . REMAINDER-TIMES-EXP2-4) (LEMMAS REMAINDER . REMAINDER-TIMES-EXP2-4))))) (PUT1-LST (QUOTE REMAINDER-TIMES-EXP2-3) (QUOTE (IDATE 1000402214815 IMMEDIATE-DEPENDENTS0 (REMAINDER-TIMES-EXP2-4) EVENT (PROVE-LEMMA REMAINDER-TIMES-EXP2-3 (REWRITE) (AND (EQUAL (REMAINDER (TIMES X (EXP (QUOTE 2) I)) (QUOTE 2)) (IF (ZEROP I) (REMAINDER X (QUOTE 2)) (QUOTE 0))) (EQUAL (REMAINDER (TIMES (EXP (QUOTE 2) I) X) (QUOTE 2)) (IF (ZEROP I) (REMAINDER X (QUOTE 2)) (QUOTE 0)))) ((USE (REMAINDER-TIMES-EXP2-1 (J (QUOTE 1)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . REMAINDER-TIMES-EXP2-3) (IMMEDIATE-DEPENDENTS0 REMAINDER-1 . REMAINDER-TIMES-EXP2-3) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . REMAINDER-TIMES-EXP2-3) (IMMEDIATE-DEPENDENTS0 REMAINDER-WRT-2 . REMAINDER-TIMES-EXP2-3) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . REMAINDER-TIMES-EXP2-3) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . REMAINDER-TIMES-EXP2-3) (IMMEDIATE-DEPENDENTS0 TIMES-1 . REMAINDER-TIMES-EXP2-3) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES-EXP2-1 . REMAINDER-TIMES-EXP2-3) (IMMEDIATE-DEPENDENTS0 EXP . REMAINDER-TIMES-EXP2-3) (LEMMAS REMAINDER . REMAINDER-TIMES-EXP2-3) (LEMMAS REMAINDER . REMAINDER-TIMES-EXP2-3))))) (PUT1-LST (QUOTE REMAINDER-TIMES-EXP2-2) (QUOTE (IDATE 1000402214815 EVENT (PROVE-LEMMA REMAINDER-TIMES-EXP2-2 (REWRITE) (EQUAL (REMAINDER (TIMES (EXP (QUOTE 2) I) X) (EXP (QUOTE 2) J)) (TIMES (REMAINDER X (EXP (QUOTE 2) (DIFFERENCE J I))) (EXP (QUOTE 2) I))) ((USE (REMAINDER-TIMES-EXP2-1)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . REMAINDER-TIMES-EXP2-2) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES-EXP2-1 . REMAINDER-TIMES-EXP2-2) (IMMEDIATE-DEPENDENTS0 EXP . REMAINDER-TIMES-EXP2-2) (LEMMAS REMAINDER . REMAINDER-TIMES-EXP2-2))))) (PUT1-LST (QUOTE REMAINDER-TIMES-EXP2-1) (QUOTE (IDATE 1000402214815 IMMEDIATE-DEPENDENTS0 (REMAINDER-REMAINDER-EXP2 REMAINDER-TIMES-EXP2-3 REMAINDER-TIMES-EXP2-2) EVENT (PROVE-LEMMA REMAINDER-TIMES-EXP2-1 (REWRITE) (EQUAL (REMAINDER (TIMES X (EXP (QUOTE 2) I)) (EXP (QUOTE 2) J)) (TIMES (REMAINDER X (EXP (QUOTE 2) (DIFFERENCE J I))) (EXP (QUOTE 2) I)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1-SUB1 . REMAINDER-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . REMAINDER-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY1 . REMAINDER-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-REMAINDER . REMAINDER-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . REMAINDER-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 TIMES-1 . REMAINDER-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 REMAINDER-1 . REMAINDER-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . REMAINDER-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . REMAINDER-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . REMAINDER-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . REMAINDER-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . REMAINDER-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . REMAINDER-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . REMAINDER-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . REMAINDER-TIMES-EXP2-1) (IMMEDIATE-DEPENDENTS0 EXP . REMAINDER-TIMES-EXP2-1) (LEMMAS REMAINDER . REMAINDER-TIMES-EXP2-1))))) (PUT1-LST (QUOTE LESSP-PLUS-EXP2) (QUOTE (IDATE 1000402214815 EVENT (PROVE-LEMMA LESSP-PLUS-EXP2 (REWRITE) (IMPLIES (LESSP X (EXP (QUOTE 2) I)) (EQUAL (LESSP (PLUS X (EXP (QUOTE 2) I)) (EXP (QUOTE 2) N)) (LESSP I N))) ((USE (LESSP-PLUS-TIMES-EXP2 (Y (QUOTE 1)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-1 . LESSP-PLUS-EXP2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . LESSP-PLUS-EXP2) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-1 . LESSP-PLUS-EXP2) (IMMEDIATE-DEPENDENTS0 LESSP-PLUS-TIMES-EXP2 . LESSP-PLUS-EXP2) (IMMEDIATE-DEPENDENTS0 EXP . LESSP-PLUS-EXP2) (LEMMAS LESSP . LESSP-PLUS-EXP2))))) (PUT1-LST (QUOTE LESSP-PLUS-TIMES-EXP2) (QUOTE (IDATE 1000402214815 IMMEDIATE-DEPENDENTS0 (REMAINDER-REMAINDER-EXP2 LESSP-PLUS-EXP2) EVENT (PROVE-LEMMA LESSP-PLUS-TIMES-EXP2 (REWRITE) (IMPLIES (LESSP X (EXP (QUOTE 2) I)) (EQUAL (LESSP (PLUS X (TIMES Y (EXP (QUOTE 2) I))) (EXP (QUOTE 2) N)) (IF (ZEROP Y) (LESSP X (EXP (QUOTE 2) N)) (LESSP Y (EXP (QUOTE 2) (DIFFERENCE N I)))))) ((INDUCT (QUOT2-SUB12-INDUCT X Y* I N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-0 . LESSP-PLUS-TIMES-EXP2) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . LESSP-PLUS-TIMES-EXP2) (IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-PLUS-NEW . LESSP-PLUS-TIMES-EXP2) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . LESSP-PLUS-TIMES-EXP2) (IMMEDIATE-DEPENDENTS0 TIMES2-ADD1-LESSP-CANCEL . LESSP-PLUS-TIMES-EXP2) (IMMEDIATE-DEPENDENTS0 TIMES-EXP2-LESSP . LESSP-PLUS-TIMES-EXP2) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-TIMES . LESSP-PLUS-TIMES-EXP2) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . LESSP-PLUS-TIMES-EXP2) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . LESSP-PLUS-TIMES-EXP2) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . LESSP-PLUS-TIMES-EXP2) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP-0 . LESSP-PLUS-TIMES-EXP2) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-LESSP . LESSP-PLUS-TIMES-EXP2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1-SUB1 . LESSP-PLUS-TIMES-EXP2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . LESSP-PLUS-TIMES-EXP2) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . LESSP-PLUS-TIMES-EXP2) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY1 . LESSP-PLUS-TIMES-EXP2) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . LESSP-PLUS-TIMES-EXP2) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . LESSP-PLUS-TIMES-EXP2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . LESSP-PLUS-TIMES-EXP2) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . LESSP-PLUS-TIMES-EXP2) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . LESSP-PLUS-TIMES-EXP2) (IMMEDIATE-DEPENDENTS0 TIMES-1 . LESSP-PLUS-TIMES-EXP2) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . LESSP-PLUS-TIMES-EXP2) (IMMEDIATE-DEPENDENTS0 QUOT2-SUB12-INDUCT . LESSP-PLUS-TIMES-EXP2) (IMMEDIATE-DEPENDENTS0 EXP . LESSP-PLUS-TIMES-EXP2) (LEMMAS LESSP . LESSP-PLUS-TIMES-EXP2))))) (PUT1-LST (QUOTE *1*QUOT2-SUB12-INDUCT) (QUOTE (MAIN-EVENT QUOT2-SUB12-INDUCT))) (PUT1-LST (QUOTE QUOT2-SUB12-INDUCT) (QUOTE (TYPE-PRESCRIPTION-LST ((QUOT2-SUB12-INDUCT 2 NIL NIL NIL NIL)) TOTALP-LST ((QUOT2-SUB12-INDUCT . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (X Y I J) (IF (EQUAL I (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP I) (QUOT2-SUB12-INDUCT (QUOTIENT X (QUOTE 2)) (QUOTIENT Y (QUOTE 2)) (SUB1 I) (SUB1 J)) (QUOTE *1*TRUE)))) LISP-CODE *1*QUOT2-SUB12-INDUCT SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP I)) NIL) (TESTS-AND-CASES ((NOT (ZEROP I))) (((QUOTIENT X (QUOTE 2)) (QUOTIENT Y (QUOTE 2)) (SUB1 I) (SUB1 J))))) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (I) (COUNT I) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402214814 CONTROLLER-POCKETS (4) SATELLITES (*1*QUOT2-SUB12-INDUCT) IMMEDIATE-DEPENDENTS0 (LESSP-PLUS-TIMES-EXP2) EVENT (DEFN QUOT2-SUB12-INDUCT (X Y I J) (IF (ZEROP I) (QUOTE *1*TRUE) (QUOT2-SUB12-INDUCT (QUOTIENT X (QUOTE 2)) (QUOTIENT Y (QUOTE 2)) (SUB1 I) (SUB1 J)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . QUOT2-SUB12-INDUCT) (DCELL . *1*QUOT2-SUB12-INDUCT))))) (PUT1-LST (QUOTE TIMES-DISTRIBUTES-PLUS-OFF) (QUOTE (IDATE 1000402214814 EVENT (TOGGLE TIMES-DISTRIBUTES-PLUS-OFF TIMES-DISTRIBUTES-PLUS T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-PLUS . TIMES-DISTRIBUTES-PLUS-OFF) (DISABLED-LEMMAS NIL TIMES-DISTRIBUTES-PLUS TIMES-DISTRIBUTES-PLUS-OFF . T))))) (PUT1-LST (QUOTE TIMES-DISTRIBUTES-PLUS-NEW) (QUOTE (IDATE 1000402214814 IMMEDIATE-DEPENDENTS0 (LESSP-PLUS-TIMES-EXP2) EVENT (PROVE-LEMMA TIMES-DISTRIBUTES-PLUS-NEW (REWRITE) (EQUAL (PLUS (TIMES X Y) (TIMES X Z)) (TIMES X (PLUS Y Z)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-PLUS . TIMES-DISTRIBUTES-PLUS-NEW) (LEMMAS PLUS . TIMES-DISTRIBUTES-PLUS-NEW))))) (PUT1-LST (QUOTE QUOTIENT-QUOTIENT) (QUOTE (IDATE 1000402214814 IMMEDIATE-DEPENDENTS0 (LOG-QUOTIENT-EXP) EVENT (PROVE-LEMMA QUOTIENT-QUOTIENT (REWRITE) (EQUAL (QUOTIENT (QUOTIENT X Z) Y) (QUOTIENT X (TIMES Z Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY1 . QUOTIENT-QUOTIENT) (IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-PLUS . QUOTIENT-QUOTIENT) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES . QUOTIENT-QUOTIENT) (IMMEDIATE-DEPENDENTS0 TIMES-PLUS-LESSP . QUOTIENT-QUOTIENT) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . QUOTIENT-QUOTIENT) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES . QUOTIENT-QUOTIENT) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-PLUS . QUOTIENT-QUOTIENT) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . QUOTIENT-QUOTIENT) (IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . QUOTIENT-QUOTIENT) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . QUOTIENT-QUOTIENT) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . QUOTIENT-QUOTIENT) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . QUOTIENT-QUOTIENT) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . QUOTIENT-QUOTIENT) (LEMMAS QUOTIENT . QUOTIENT-QUOTIENT))))) (PUT1-LST (QUOTE QUOTIENT-TIMES-LESSP) (QUOTE (IDATE 1000402214814 IMMEDIATE-DEPENDENTS0 (MOVEM-PRE-RNLST MOVEM-LEN MOVEM-RNLST LOGOR LOGAND LOG-LEQ QUOTIENT2-INDUCT LOG-QUOTIENT-EXP LOG-EQUAL-0 LOG LESSP-PLUS-TIMES-EXP2) EVENT (PROVE-LEMMA QUOTIENT-TIMES-LESSP (REWRITE) (EQUAL (LESSP (QUOTIENT X Z) Y) (IF (ZEROP Z) (NOT (ZEROP Y)) (LESSP X (TIMES Z Y))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-PLUS-LESSP . QUOTIENT-TIMES-LESSP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . QUOTIENT-TIMES-LESSP) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . QUOTIENT-TIMES-LESSP) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . QUOTIENT-TIMES-LESSP) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . QUOTIENT-TIMES-LESSP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . QUOTIENT-TIMES-LESSP) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . QUOTIENT-TIMES-LESSP) (LEMMAS LESSP . QUOTIENT-TIMES-LESSP))))) (PUT1-LST (QUOTE REMAINDER-PLUS-CANCEL) (QUOTE (IDATE 1000402214814 EVENT (PROVE-LEMMA REMAINDER-PLUS-CANCEL (REWRITE) (EQUAL (EQUAL (REMAINDER (PLUS I J) N) (REMAINDER (PLUS I K) N)) (EQUAL (REMAINDER J N) (REMAINDER K N))) ((INDUCT (PLUS I J)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-SUB1 . REMAINDER-PLUS-CANCEL) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-PLUS . REMAINDER-PLUS-CANCEL) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . REMAINDER-PLUS-CANCEL) (IMMEDIATE-DEPENDENTS0 REMAINDER-ADD1 . REMAINDER-PLUS-CANCEL) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . REMAINDER-PLUS-CANCEL) (LEMMAS EQUAL . REMAINDER-PLUS-CANCEL))))) (PUT1-LST (QUOTE REMAINDER-PLUS-CANCEL0) (QUOTE (IDATE 1000402214812 EVENT (PROVE-LEMMA REMAINDER-PLUS-CANCEL0 (REWRITE) (EQUAL (EQUAL (REMAINDER (PLUS I J) N) I) (IF (ZEROP N) (AND (NUMBERP I) (ZEROP J)) (IF (LESSP I N) (AND (NUMBERP I) (EQUAL (REMAINDER J N) (QUOTE 0))) (QUOTE *1*FALSE)))) ((DISABLE REMAINDER-LESSP-LINEAR))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-ADD1 . REMAINDER-PLUS-CANCEL0) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS2 . REMAINDER-PLUS-CANCEL0) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . REMAINDER-PLUS-CANCEL0) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . REMAINDER-PLUS-CANCEL0) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-PLUS . REMAINDER-PLUS-CANCEL0) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . REMAINDER-PLUS-CANCEL0) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . REMAINDER-PLUS-CANCEL0) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS1 . REMAINDER-PLUS-CANCEL0) (LEMMAS EQUAL . REMAINDER-PLUS-CANCEL0))))) (PUT1-LST (QUOTE REMAINDER-EXP) (QUOTE (IDATE 1000402214812 EVENT (PROVE-LEMMA REMAINDER-EXP (REWRITE) (IMPLIES (LESSP (QUOTE 1) I) (EQUAL (REMAINDER (EXP I J) (EXP I K)) (IF (LESSP J K) (EXP I J) (QUOTE 0))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-1 . REMAINDER-EXP) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . REMAINDER-EXP) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . REMAINDER-EXP) (IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-REMAINDER . REMAINDER-EXP) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-1 . REMAINDER-EXP) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . REMAINDER-EXP) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . REMAINDER-EXP) (IMMEDIATE-DEPENDENTS0 REMAINDER-ADD1 . REMAINDER-EXP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . REMAINDER-EXP) (IMMEDIATE-DEPENDENTS0 EXP . REMAINDER-EXP) (LEMMAS REMAINDER . REMAINDER-EXP))))) (PUT1-LST (QUOTE QUOTIENT-EXP) (QUOTE (IDATE 1000402214812 EVENT (PROVE-LEMMA QUOTIENT-EXP (REWRITE) (IMPLIES (LESSP (QUOTE 1) I) (EQUAL (QUOTIENT (EXP I J) (EXP I K)) (IF (LESSP J K) (QUOTE 0) (EXP I (DIFFERENCE J K)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ZERO . QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-X-X . QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1-SUB1 . QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-CANCEL . QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 TIMES-1 . QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-1 . QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 EXP-LESSP . QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EQUAL-0 . QUOTIENT-EXP) (IMMEDIATE-DEPENDENTS0 EXP . QUOTIENT-EXP) (LEMMAS QUOTIENT . QUOTIENT-EXP))))) (PUT1-LST (QUOTE QUOTIENT-DISTRIBUTES-TIMES2-ADD1) (QUOTE (IDATE 1000402214811 EVENT (PROVE-LEMMA QUOTIENT-DISTRIBUTES-TIMES2-ADD1 (REWRITE) (EQUAL (QUOTIENT (ADD1 (TIMES (QUOTE 2) Y)) (TIMES (QUOTE 2) Z)) (QUOTIENT Y Z))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP-LINEAR . QUOTIENT-DISTRIBUTES-TIMES2-ADD1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . QUOTIENT-DISTRIBUTES-TIMES2-ADD1) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . QUOTIENT-DISTRIBUTES-TIMES2-ADD1) (IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-REMAINDER . QUOTIENT-DISTRIBUTES-TIMES2-ADD1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES-CANCEL . QUOTIENT-DISTRIBUTES-TIMES2-ADD1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-ADD1 . QUOTIENT-DISTRIBUTES-TIMES2-ADD1) (LEMMAS QUOTIENT . QUOTIENT-DISTRIBUTES-TIMES2-ADD1))))) (PUT1-LST (QUOTE REMAINDER-DISTRIBUTES-TIMES2-ADD1) (QUOTE (IDATE 1000402214811 EVENT (PROVE-LEMMA REMAINDER-DISTRIBUTES-TIMES2-ADD1 (REWRITE) (EQUAL (REMAINDER (ADD1 (TIMES (QUOTE 2) Y)) (TIMES (QUOTE 2) Z)) (ADD1 (TIMES (QUOTE 2) (REMAINDER Y Z))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP-LINEAR . REMAINDER-DISTRIBUTES-TIMES2-ADD1) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . REMAINDER-DISTRIBUTES-TIMES2-ADD1) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-TIMES . REMAINDER-DISTRIBUTES-TIMES2-ADD1) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . REMAINDER-DISTRIBUTES-TIMES2-ADD1) (IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-REMAINDER . REMAINDER-DISTRIBUTES-TIMES2-ADD1) (IMMEDIATE-DEPENDENTS0 REMAINDER-ADD1 . REMAINDER-DISTRIBUTES-TIMES2-ADD1) (LEMMAS REMAINDER . REMAINDER-DISTRIBUTES-TIMES2-ADD1))))) (PUT1-LST (QUOTE QUOTIENT-CROCK-OFF) (QUOTE (IDATE 1000402214811 EVENT (TOGGLE QUOTIENT-CROCK-OFF QUOTIENT-CROCK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-CROCK . QUOTIENT-CROCK-OFF) (DISABLED-LEMMAS NIL QUOTIENT-CROCK QUOTIENT-CROCK-OFF . T))))) (PUT1-LST (QUOTE REMAINDER-CROCK-OFF) (QUOTE (IDATE 1000402214811 EVENT (TOGGLE REMAINDER-CROCK-OFF REMAINDER-CROCK T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-CROCK . REMAINDER-CROCK-OFF) (DISABLED-LEMMAS NIL REMAINDER-CROCK REMAINDER-CROCK-OFF . T))))) (PUT1-LST (QUOTE QUOTIENT-TIMES-CANCEL) (QUOTE (IDATE 1000402214811 IMMEDIATE-DEPENDENTS0 (QUOTIENT-TIMES-EXP2-1 QUOTIENT-EXP QUOTIENT-DISTRIBUTES-TIMES2-ADD1) EVENT (PROVE-LEMMA QUOTIENT-TIMES-CANCEL (REWRITE) (EQUAL (QUOTIENT (TIMES X Y) (TIMES X Z)) (IF (ZEROP X) (QUOTE 0) (QUOTIENT Y Z)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY1 . QUOTIENT-TIMES-CANCEL) (IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-PLUS . QUOTIENT-TIMES-CANCEL) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . QUOTIENT-TIMES-CANCEL) (IMMEDIATE-DEPENDENTS0 QUOTIENT-CROCK . QUOTIENT-TIMES-CANCEL) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-TIMES2 . QUOTIENT-TIMES-CANCEL) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . QUOTIENT-TIMES-CANCEL) (IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . QUOTIENT-TIMES-CANCEL) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . QUOTIENT-TIMES-CANCEL) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . QUOTIENT-TIMES-CANCEL) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . QUOTIENT-TIMES-CANCEL) (LEMMAS QUOTIENT . QUOTIENT-TIMES-CANCEL))))) (PUT1-LST (QUOTE QUOTIENT-CROCK) (QUOTE (IDATE 1000402214811 IMMEDIATE-DEPENDENTS0 (QUOTIENT-CROCK-OFF QUOTIENT-TIMES-CANCEL) EVENT (PROVE-LEMMA QUOTIENT-CROCK (REWRITE) (IMPLIES (LESSP Y Z) (EQUAL (QUOTIENT (TIMES Y X) (TIMES X Z)) (QUOTE 0))) ((USE (QUOTIENT-EXIT (I (TIMES X Y)) (J (TIMES X Z)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-TIMES . QUOTIENT-CROCK) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . QUOTIENT-CROCK) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . QUOTIENT-CROCK) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EQUAL-0 . QUOTIENT-CROCK) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . QUOTIENT-CROCK) (LEMMAS QUOTIENT . QUOTIENT-CROCK))))) (PUT1-LST (QUOTE TIMES-DISTRIBUTES-REMAINDER) (QUOTE (IDATE 1000402214811 IMMEDIATE-DEPENDENTS0 (REMAINDER-TIMES-EXP2-1 REMAINDER-EXP QUOTIENT-DISTRIBUTES-TIMES2-ADD1 REMAINDER-DISTRIBUTES-TIMES2-ADD1) EVENT (PROVE-LEMMA TIMES-DISTRIBUTES-REMAINDER (REWRITE) (EQUAL (REMAINDER (TIMES X Y) (TIMES X Z)) (TIMES X (REMAINDER Y Z)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY1 . TIMES-DISTRIBUTES-REMAINDER) (IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-PLUS . TIMES-DISTRIBUTES-REMAINDER) (IMMEDIATE-DEPENDENTS0 REMAINDER-CROCK . TIMES-DISTRIBUTES-REMAINDER) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-TIMES2 . TIMES-DISTRIBUTES-REMAINDER) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-TIMES . TIMES-DISTRIBUTES-REMAINDER) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . TIMES-DISTRIBUTES-REMAINDER) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . TIMES-DISTRIBUTES-REMAINDER) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . TIMES-DISTRIBUTES-REMAINDER) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . TIMES-DISTRIBUTES-REMAINDER) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . TIMES-DISTRIBUTES-REMAINDER) (LEMMAS REMAINDER . TIMES-DISTRIBUTES-REMAINDER))))) (PUT1-LST (QUOTE REMAINDER-CROCK) (QUOTE (IDATE 1000402214811 IMMEDIATE-DEPENDENTS0 (REMAINDER-CROCK-OFF TIMES-DISTRIBUTES-REMAINDER) EVENT (PROVE-LEMMA REMAINDER-CROCK (REWRITE) (IMPLIES (LESSP Y Z) (EQUAL (REMAINDER (TIMES Y X) (TIMES X Z)) (TIMES Y X))) ((USE (REMAINDER-EXIT (I (TIMES Y X)) (J (TIMES X Z)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . REMAINDER-CROCK) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-TIMES . REMAINDER-CROCK) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . REMAINDER-CROCK) (IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-DIFFERENCE . REMAINDER-CROCK) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . REMAINDER-CROCK) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . REMAINDER-CROCK) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . REMAINDER-CROCK) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . REMAINDER-CROCK) (LEMMAS REMAINDER . REMAINDER-CROCK))))) (PUT1-LST (QUOTE REMAINDER-PLUS-REMAINDER) (QUOTE (IDATE 1000402214811 EVENT (PROVE-LEMMA REMAINDER-PLUS-REMAINDER (REWRITE) (EQUAL (REMAINDER (PLUS (REMAINDER X Z) (REMAINDER Y Z)) Z) (REMAINDER (PLUS X Y) Z))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . REMAINDER-PLUS-REMAINDER) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-REMAINDER1 . REMAINDER-PLUS-REMAINDER) (LEMMAS REMAINDER . REMAINDER-PLUS-REMAINDER))))) (PUT1-LST (QUOTE REMAINDER-PLUS-REMAINDER2) (QUOTE (IDATE 1000402214811 EVENT (PROVE-LEMMA REMAINDER-PLUS-REMAINDER2 (REWRITE) (EQUAL (REMAINDER (PLUS X (PLUS Y (REMAINDER Z K))) K) (REMAINDER (PLUS X (PLUS Y Z)) K))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-ADD1-1 . REMAINDER-PLUS-REMAINDER2) (IMMEDIATE-DEPENDENTS0 REMAINDER-ADD1 . REMAINDER-PLUS-REMAINDER2) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-REMAINDER1 . REMAINDER-PLUS-REMAINDER2) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY1 . REMAINDER-PLUS-REMAINDER2) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-PLUS . REMAINDER-PLUS-REMAINDER2) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . REMAINDER-PLUS-REMAINDER2) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS1 . REMAINDER-PLUS-REMAINDER2) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . REMAINDER-PLUS-REMAINDER2) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-PLUS . REMAINDER-PLUS-REMAINDER2) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . REMAINDER-PLUS-REMAINDER2) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . REMAINDER-PLUS-REMAINDER2) (LEMMAS REMAINDER . REMAINDER-PLUS-REMAINDER2))))) (PUT1-LST (QUOTE REMAINDER-DIFFERENCE-REMAINDER1) (QUOTE (IDATE 1000402214809 EVENT (PROVE-LEMMA REMAINDER-DIFFERENCE-REMAINDER1 (REWRITE) (IMPLIES (IF (LESSP X Y) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (EQUAL (REMAINDER (DIFFERENCE X (REMAINDER Y Z)) Z) (REMAINDER (DIFFERENCE X Y) Z)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE2 . REMAINDER-DIFFERENCE-REMAINDER1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE1 . REMAINDER-DIFFERENCE-REMAINDER1) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . REMAINDER-DIFFERENCE-REMAINDER1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . REMAINDER-DIFFERENCE-REMAINDER1) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . REMAINDER-DIFFERENCE-REMAINDER1) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . REMAINDER-DIFFERENCE-REMAINDER1) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . REMAINDER-DIFFERENCE-REMAINDER1) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . REMAINDER-DIFFERENCE-REMAINDER1) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . REMAINDER-DIFFERENCE-REMAINDER1) (LEMMAS REMAINDER . REMAINDER-DIFFERENCE-REMAINDER1))))) (PUT1-LST (QUOTE REMAINDER-PLUS-REMAINDER1) (QUOTE (IDATE 1000402214809 IMMEDIATE-DEPENDENTS0 (REMAINDER-PLUS-REMAINDER REMAINDER-PLUS-REMAINDER2) EVENT (PROVE-LEMMA REMAINDER-PLUS-REMAINDER1 (REWRITE) (EQUAL (REMAINDER (PLUS X (REMAINDER Y Z)) Z) (REMAINDER (PLUS X Y) Z))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . REMAINDER-PLUS-REMAINDER1) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY1 . REMAINDER-PLUS-REMAINDER1) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-PLUS-TIMES2 . REMAINDER-PLUS-REMAINDER1) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-PLUS . REMAINDER-PLUS-REMAINDER1) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . REMAINDER-PLUS-REMAINDER1) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . REMAINDER-PLUS-REMAINDER1) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS1 . REMAINDER-PLUS-REMAINDER1) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . REMAINDER-PLUS-REMAINDER1) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . REMAINDER-PLUS-REMAINDER1) (LEMMAS REMAINDER . REMAINDER-PLUS-REMAINDER1))))) (PUT1-LST (QUOTE QUOTIENT-SHRINK-FAST) (QUOTE (IDATE 1000402214809 IMMEDIATE-DEPENDENTS0 (LOG-LEQ) EVENT (PROVE-LEMMA QUOTIENT-SHRINK-FAST (REWRITE) (NOT (LESSP X (TIMES Y (QUOTIENT X Y))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ZERO . QUOTIENT-SHRINK-FAST) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . QUOTIENT-SHRINK-FAST) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . QUOTIENT-SHRINK-FAST) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . QUOTIENT-SHRINK-FAST) (LINEAR-LEMMAS TIMES . QUOTIENT-SHRINK-FAST))))) (PUT1-LST (QUOTE TIMES-PLUS-LESSP) (QUOTE (IDATE 1000402214809 IMMEDIATE-DEPENDENTS0 (QUOTIENT-QUOTIENT QUOTIENT-TIMES-LESSP) EVENT (PROVE-LEMMA TIMES-PLUS-LESSP (REWRITE) (IMPLIES (LESSP X D) (EQUAL (LESSP (PLUS X (TIMES B D)) (TIMES C D)) (LESSP B C))) ((ENABLE TIMES))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . TIMES-PLUS-LESSP) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . TIMES-PLUS-LESSP) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-PLUS . TIMES-PLUS-LESSP) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY1 . TIMES-PLUS-LESSP) (IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-0 . TIMES-PLUS-LESSP) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . TIMES-PLUS-LESSP) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . TIMES-PLUS-LESSP) (LEMMAS LESSP . TIMES-PLUS-LESSP))))) (PUT1-LST (QUOTE QUOTIENT-ADD1) (QUOTE (IDATE 1000402214809 IMMEDIATE-DEPENDENTS0 (QUOTIENT-DISTRIBUTES-TIMES2-ADD1) EVENT (PROVE-LEMMA QUOTIENT-ADD1 (REWRITE) (EQUAL (QUOTIENT (ADD1 M) N) (IF (ZEROP N) (QUOTE 0) (IF (EQUAL (REMAINDER M N) (SUB1 N)) (ADD1 (QUOTIENT M N)) (QUOTIENT M N))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-LESSP1 . QUOTIENT-ADD1) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . QUOTIENT-ADD1) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-PLUS . QUOTIENT-ADD1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . QUOTIENT-ADD1) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . QUOTIENT-ADD1) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES . QUOTIENT-ADD1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-X-X . QUOTIENT-ADD1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES . QUOTIENT-ADD1) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . QUOTIENT-ADD1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-ADD1 . QUOTIENT-ADD1) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . QUOTIENT-ADD1) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . QUOTIENT-ADD1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-1 . QUOTIENT-ADD1) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . QUOTIENT-ADD1) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . QUOTIENT-ADD1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . QUOTIENT-ADD1) (LEMMAS QUOTIENT . QUOTIENT-ADD1))))) (PUT1-LST (QUOTE REMAINDER-ADD1) (QUOTE (IDATE 1000402214808 IMMEDIATE-DEPENDENTS0 (REMAINDER-PLUS-CANCEL REMAINDER-PLUS-CANCEL0 REMAINDER-EXP REMAINDER-DISTRIBUTES-TIMES2-ADD1 REMAINDER-PLUS-REMAINDER2) EVENT (PROVE-LEMMA REMAINDER-ADD1 (REWRITE) (EQUAL (REMAINDER (ADD1 M) N) (IF (ZEROP N) (ADD1 M) (IF (EQUAL (REMAINDER M N) (SUB1 N)) (QUOTE 0) (ADD1 (REMAINDER M N)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-LESSP1 . REMAINDER-ADD1) (IMMEDIATE-DEPENDENTS0 REMAINDER-1 . REMAINDER-ADD1) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . REMAINDER-ADD1) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES . REMAINDER-ADD1) (IMMEDIATE-DEPENDENTS0 REMAINDER-X-X . REMAINDER-ADD1) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-ADD1 . REMAINDER-ADD1) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . REMAINDER-ADD1) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . REMAINDER-ADD1) (IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . REMAINDER-ADD1) (IMMEDIATE-DEPENDENTS0 REMAINDER-QUOTIENT-ELIM . REMAINDER-ADD1) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . REMAINDER-ADD1) (LEMMAS REMAINDER . REMAINDER-ADD1))))) (PUT1-LST (QUOTE REMAINDER-QUOTIENT-ELIM) (QUOTE (IDATE 1000402214808 IMMEDIATE-DEPENDENTS0 (LOG-QUOTIENT-EXP REMAINDER-REMAINDER-EXP2 QUOTIENT-TIMES-EXP2-1 REMAINDER-TIMES-EXP2-1 LESSP-PLUS-TIMES-EXP2 QUOTIENT-QUOTIENT QUOTIENT-TIMES-LESSP QUOTIENT-TIMES-CANCEL TIMES-DISTRIBUTES-REMAINDER REMAINDER-PLUS-REMAINDER2 REMAINDER-DIFFERENCE-REMAINDER1 REMAINDER-PLUS-REMAINDER1 QUOTIENT-SHRINK-FAST QUOTIENT-ADD1 REMAINDER-ADD1) EVENT (PROVE-LEMMA REMAINDER-QUOTIENT-ELIM (ELIM) (IMPLIES (AND (NOT (ZEROP Y)) (NUMBERP X)) (EQUAL (PLUS (REMAINDER X Y) (TIMES Y (QUOTIENT X Y))) X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ADD1 . REMAINDER-QUOTIENT-ELIM) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . REMAINDER-QUOTIENT-ELIM) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS2 . REMAINDER-QUOTIENT-ELIM) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY1 . REMAINDER-QUOTIENT-ELIM) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . REMAINDER-QUOTIENT-ELIM) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . REMAINDER-QUOTIENT-ELIM) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . REMAINDER-QUOTIENT-ELIM) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . REMAINDER-QUOTIENT-ELIM) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . REMAINDER-QUOTIENT-ELIM) (ELIMINATE-DESTRUCTORS-DESTS . REMAINDER) (ELIMINATE-DESTRUCTORS-SEQ . REMAINDER) (ELIMINATE-DESTRUCTORS-DESTS . QUOTIENT) (ELIMINATE-DESTRUCTORS-SEQ . QUOTIENT))))) (PUT1-LST (QUOTE REMAINDER-QUOTIENT) (QUOTE (IDATE 1000402214808 EVENT (PROVE-LEMMA REMAINDER-QUOTIENT (REWRITE) (EQUAL (PLUS (TIMES Y (QUOTIENT X Y)) (REMAINDER X Y)) (FIX X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ADD1 . REMAINDER-QUOTIENT) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . REMAINDER-QUOTIENT) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS2 . REMAINDER-QUOTIENT) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY1 . REMAINDER-QUOTIENT) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . REMAINDER-QUOTIENT) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . REMAINDER-QUOTIENT) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . REMAINDER-QUOTIENT) (IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . REMAINDER-QUOTIENT) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . REMAINDER-QUOTIENT) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . REMAINDER-QUOTIENT) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . REMAINDER-QUOTIENT) (LEMMAS PLUS . REMAINDER-QUOTIENT))))) (PUT1-LST (QUOTE QUOTIENT-SUB1) (QUOTE (IDATE 1000402214808 EVENT (PROVE-LEMMA QUOTIENT-SUB1 (REWRITE) (EQUAL (QUOTIENT (SUB1 M) N) (IF (EQUAL (REMAINDER M N) (QUOTE 0)) (SUB1 (QUOTIENT M N)) (QUOTIENT M N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . QUOTIENT-SUB1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EQUAL-0 . QUOTIENT-SUB1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . QUOTIENT-SUB1) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . QUOTIENT-SUB1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-X . QUOTIENT-SUB1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1-SUB1 . QUOTIENT-SUB1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-LESSP1 . QUOTIENT-SUB1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-LEQ . QUOTIENT-SUB1) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . QUOTIENT-SUB1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . QUOTIENT-SUB1) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . QUOTIENT-SUB1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . QUOTIENT-SUB1) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . QUOTIENT-SUB1) (LEMMAS QUOTIENT . QUOTIENT-SUB1))))) (PUT1-LST (QUOTE REMAINDER-SUB1) (QUOTE (IDATE 1000402214806 IMMEDIATE-DEPENDENTS0 (REMAINDER-PLUS-CANCEL) EVENT (PROVE-LEMMA REMAINDER-SUB1 (REWRITE) (EQUAL (REMAINDER (SUB1 M) N) (IF (ZEROP N) (SUB1 M) (IF (EQUAL (REMAINDER M N) (QUOTE 0)) (IF (ZEROP M) (QUOTE 0) (SUB1 N)) (SUB1 (REMAINDER M N)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-X . REMAINDER-SUB1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1-SUB1 . REMAINDER-SUB1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . REMAINDER-SUB1) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . REMAINDER-SUB1) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . REMAINDER-SUB1) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . REMAINDER-SUB1) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . REMAINDER-SUB1) (LEMMAS REMAINDER . REMAINDER-SUB1))))) (PUT1-LST (QUOTE QUOTIENT-DIFFERENCE-OFF) (QUOTE (IDATE 1000402214805 EVENT (TOGGLE QUOTIENT-DIFFERENCE-OFF QUOTIENT-DIFFERENCE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-DIFFERENCE . QUOTIENT-DIFFERENCE-OFF) (DISABLED-LEMMAS NIL QUOTIENT-DIFFERENCE QUOTIENT-DIFFERENCE-OFF . T))))) (PUT1-LST (QUOTE REMAINDER-DIFFERENCE-OFF) (QUOTE (IDATE 1000402214805 EVENT (TOGGLE REMAINDER-DIFFERENCE-OFF REMAINDER-DIFFERENCE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-DIFFERENCE . REMAINDER-DIFFERENCE-OFF) (DISABLED-LEMMAS NIL REMAINDER-DIFFERENCE REMAINDER-DIFFERENCE-OFF . T))))) (PUT1-LST (QUOTE QUOTIENT-DIFFERENCE-TIMES2) (QUOTE (IDATE 1000402214805 EVENT (PROVE-LEMMA QUOTIENT-DIFFERENCE-TIMES2 (REWRITE) (EQUAL (QUOTIENT (DIFFERENCE X (TIMES Y Z)) Y) (IF (LESSP X (TIMES Y Z)) (QUOTE 0) (DIFFERENCE (QUOTIENT X Y) (FIX Z))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . QUOTIENT-DIFFERENCE-TIMES2) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . QUOTIENT-DIFFERENCE-TIMES2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . QUOTIENT-DIFFERENCE-TIMES2) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES . QUOTIENT-DIFFERENCE-TIMES2) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES . QUOTIENT-DIFFERENCE-TIMES2) (IMMEDIATE-DEPENDENTS0 QUOTIENT-DIFFERENCE . QUOTIENT-DIFFERENCE-TIMES2) (LEMMAS QUOTIENT . QUOTIENT-DIFFERENCE-TIMES2))))) (PUT1-LST (QUOTE QUOTIENT-DIFFERENCE-TIMES1) (QUOTE (IDATE 1000402214805 EVENT (PROVE-LEMMA QUOTIENT-DIFFERENCE-TIMES1 (REWRITE) (EQUAL (QUOTIENT (DIFFERENCE X (TIMES Y Z)) Z) (IF (LESSP X (TIMES Y Z)) (QUOTE 0) (DIFFERENCE (QUOTIENT X Z) (FIX Y))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . QUOTIENT-DIFFERENCE-TIMES1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . QUOTIENT-DIFFERENCE-TIMES1) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . QUOTIENT-DIFFERENCE-TIMES1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . QUOTIENT-DIFFERENCE-TIMES1) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES . QUOTIENT-DIFFERENCE-TIMES1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES . QUOTIENT-DIFFERENCE-TIMES1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-DIFFERENCE . QUOTIENT-DIFFERENCE-TIMES1) (LEMMAS QUOTIENT . QUOTIENT-DIFFERENCE-TIMES1))))) (PUT1-LST (QUOTE QUOTIENT-DIFFERENCE) (QUOTE (IDATE 1000402214805 IMMEDIATE-DEPENDENTS0 (QUOTIENT-DIFFERENCE-OFF QUOTIENT-DIFFERENCE-TIMES2 QUOTIENT-DIFFERENCE-TIMES1) EVENT (PROVE-LEMMA QUOTIENT-DIFFERENCE (REWRITE) (IMPLIES (EQUAL (REMAINDER Y Z) (QUOTE 0)) (EQUAL (QUOTIENT (DIFFERENCE X Y) Z) (IF (LESSP X Y) (QUOTE 0) (DIFFERENCE (QUOTIENT X Z) (QUOTIENT Y Z)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . QUOTIENT-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 QUOTIENT-LEQ . QUOTIENT-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE2 . QUOTIENT-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 REMAINDER-X-X . QUOTIENT-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 QUOTIENT-X-X . QUOTIENT-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . QUOTIENT-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . QUOTIENT-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 QUOTIENT-DIFFERENCE-PLUS1 . QUOTIENT-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . QUOTIENT-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EQUAL-0 . QUOTIENT-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . QUOTIENT-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . QUOTIENT-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . QUOTIENT-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . QUOTIENT-DIFFERENCE) (LEMMAS QUOTIENT . QUOTIENT-DIFFERENCE))))) (PUT1-LST (QUOTE QUOTIENT-DIFFERENCE-PLUS2) (QUOTE (IDATE 1000402214805 EVENT (PROVE-LEMMA QUOTIENT-DIFFERENCE-PLUS2 (REWRITE) (IMPLIES (AND (NOT (LESSP Y Z)) (EQUAL (REMAINDER X W) (QUOTE 0))) (EQUAL (QUOTIENT (DIFFERENCE (PLUS X Y) Z) W) (PLUS (QUOTIENT (DIFFERENCE Y Z) W) (QUOTIENT X W)))) ((USE (QUOTIENT-DIFFERENCE-PLUS1 (X Y) (Y X))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . QUOTIENT-DIFFERENCE-PLUS2) (IMMEDIATE-DEPENDENTS0 QUOTIENT-DIFFERENCE-PLUS1 . QUOTIENT-DIFFERENCE-PLUS2) (LEMMAS QUOTIENT . QUOTIENT-DIFFERENCE-PLUS2))))) (PUT1-LST (QUOTE QUOTIENT-DIFFERENCE-PLUS1) (QUOTE (IDATE 1000402214804 IMMEDIATE-DEPENDENTS0 (QUOTIENT-DIFFERENCE QUOTIENT-DIFFERENCE-PLUS2) EVENT (PROVE-LEMMA QUOTIENT-DIFFERENCE-PLUS1 (REWRITE) (IMPLIES (AND (NOT (LESSP X Z)) (EQUAL (REMAINDER Y W) (QUOTE 0))) (EQUAL (QUOTIENT (DIFFERENCE (PLUS X Y) Z) W) (PLUS (QUOTIENT (DIFFERENCE X Z) W) (QUOTIENT Y W))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . QUOTIENT-DIFFERENCE-PLUS1) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . QUOTIENT-DIFFERENCE-PLUS1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . QUOTIENT-DIFFERENCE-PLUS1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-ADD1 . QUOTIENT-DIFFERENCE-PLUS1) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . QUOTIENT-DIFFERENCE-PLUS1) (LEMMAS QUOTIENT . QUOTIENT-DIFFERENCE-PLUS1))))) (PUT1-LST (QUOTE QUOTIENT-PLUS-ADD1) (QUOTE (IDATE 1000402214804 IMMEDIATE-DEPENDENTS0 (QUOTIENT-ADD1 QUOTIENT-DIFFERENCE-PLUS1) EVENT (PROVE-LEMMA QUOTIENT-PLUS-ADD1 (REWRITE) (IMPLIES (EQUAL (REMAINDER I J) (QUOTE 0)) (EQUAL (QUOTIENT (ADD1 (PLUS X I)) J) (PLUS (QUOTIENT (ADD1 X) J) (QUOTIENT I J)))) ((USE (QUOTIENT-PLUS-PLUS (X (QUOTE 1)) (Y X))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . QUOTIENT-PLUS-ADD1) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . QUOTIENT-PLUS-ADD1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-PLUS . QUOTIENT-PLUS-ADD1) (LEMMAS QUOTIENT . QUOTIENT-PLUS-ADD1))))) (PUT1-LST (QUOTE QUOTIENT-PLUS-PLUS) (QUOTE (IDATE 1000402214803 IMMEDIATE-DEPENDENTS0 (QUOTIENT-QUOTIENT QUOTIENT-PLUS-ADD1) EVENT (PROVE-LEMMA QUOTIENT-PLUS-PLUS (REWRITE) (IMPLIES (EQUAL (REMAINDER I J) (QUOTE 0)) (EQUAL (QUOTIENT (PLUS X (PLUS Y I)) J) (PLUS (QUOTIENT (PLUS X Y) J) (QUOTIENT I J))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . QUOTIENT-PLUS-PLUS) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY1 . QUOTIENT-PLUS-PLUS) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS2 . QUOTIENT-PLUS-PLUS) (LEMMAS QUOTIENT . QUOTIENT-PLUS-PLUS))))) (PUT1-LST (QUOTE QUOTIENT-PLUS-TIMES2) (QUOTE (IDATE 1000402214803 IMMEDIATE-DEPENDENTS0 (QUOTIENT-TIMES-CANCEL) EVENT (PROVE-LEMMA QUOTIENT-PLUS-TIMES2 (REWRITE) (EQUAL (QUOTIENT (PLUS X (TIMES Z Y)) Y) (PLUS (QUOTIENT X Y) (IF (ZEROP Y) (QUOTE 0) (FIX Z))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . QUOTIENT-PLUS-TIMES2) (IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . QUOTIENT-PLUS-TIMES2) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . QUOTIENT-PLUS-TIMES2) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS-TIMES1 . QUOTIENT-PLUS-TIMES2) (LEMMAS QUOTIENT . QUOTIENT-PLUS-TIMES2))))) (PUT1-LST (QUOTE QUOTIENT-PLUS-TIMES1) (QUOTE (IDATE 1000402214803 IMMEDIATE-DEPENDENTS0 (QUOTIENT-PLUS-TIMES2) EVENT (PROVE-LEMMA QUOTIENT-PLUS-TIMES1 (REWRITE) (EQUAL (QUOTIENT (PLUS X (TIMES Y Z)) Y) (PLUS (QUOTIENT X Y) (IF (ZEROP Y) (QUOTE 0) (FIX Z))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES . QUOTIENT-PLUS-TIMES1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-TIMES . QUOTIENT-PLUS-TIMES1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS1 . QUOTIENT-PLUS-TIMES1) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-PLUS . QUOTIENT-PLUS-TIMES1) (LEMMAS QUOTIENT . QUOTIENT-PLUS-TIMES1))))) (PUT1-LST (QUOTE QUOTIENT-TIMES) (QUOTE (IDATE 1000402214803 IMMEDIATE-DEPENDENTS0 (LOG-TIMES-EXP-1 LOG-TIMES-EXP LOG-EXP QUOTIENT-TIMES-EXP2-4 QUOTIENT-TIMES-EXP2-3 QUOTIENT-TIMES-EXP2-1 QUOTIENT-QUOTIENT QUOTIENT-ADD1 QUOTIENT-DIFFERENCE-TIMES2 QUOTIENT-DIFFERENCE-TIMES1 QUOTIENT-PLUS-TIMES1) EVENT (PROVE-LEMMA QUOTIENT-TIMES (REWRITE) (AND (EQUAL (QUOTIENT (TIMES X Y) Y) (IF (ZEROP Y) (QUOTE 0) (FIX X))) (EQUAL (QUOTIENT (TIMES Y X) Y) (IF (ZEROP Y) (QUOTE 0) (FIX X)))) ((INDUCT (TIMES X Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ADD1 . QUOTIENT-TIMES) (IMMEDIATE-DEPENDENTS0 REMAINDER-X-X . QUOTIENT-TIMES) (IMMEDIATE-DEPENDENTS0 QUOTIENT-X-X . QUOTIENT-TIMES) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . QUOTIENT-TIMES) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS2 . QUOTIENT-TIMES) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . QUOTIENT-TIMES) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . QUOTIENT-TIMES) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-TIMES . QUOTIENT-TIMES) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . QUOTIENT-TIMES) (IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . QUOTIENT-TIMES) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . QUOTIENT-TIMES) (LEMMAS QUOTIENT . QUOTIENT-TIMES) (LEMMAS QUOTIENT . QUOTIENT-TIMES))))) (PUT1-LST (QUOTE QUOTIENT-PLUS2) (QUOTE (IDATE 1000402214803 IMMEDIATE-DEPENDENTS0 (QUOTIENT-PLUS-PLUS QUOTIENT-TIMES) EVENT (PROVE-LEMMA QUOTIENT-PLUS2 (REWRITE) (IMPLIES (EQUAL (REMAINDER I J) (QUOTE 0)) (EQUAL (QUOTIENT (PLUS I X) J) (PLUS (QUOTIENT I J) (QUOTIENT X J)))) ((USE (QUOTIENT-PLUS1)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . QUOTIENT-PLUS2) (IMMEDIATE-DEPENDENTS0 QUOTIENT-PLUS1 . QUOTIENT-PLUS2) (LEMMAS QUOTIENT . QUOTIENT-PLUS2))))) (PUT1-LST (QUOTE QUOTIENT-PLUS1) (QUOTE (IDATE 1000402214803 IMMEDIATE-DEPENDENTS0 (QUOTIENT-PLUS-TIMES1 QUOTIENT-PLUS2) EVENT (PROVE-LEMMA QUOTIENT-PLUS1 (REWRITE) (IMPLIES (EQUAL (REMAINDER I J) (QUOTE 0)) (EQUAL (QUOTIENT (PLUS X I) J) (PLUS (QUOTIENT X J) (QUOTIENT I J))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS1 . QUOTIENT-PLUS1) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1-1 . QUOTIENT-PLUS1) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . QUOTIENT-PLUS1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . QUOTIENT-PLUS1) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . QUOTIENT-PLUS1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . QUOTIENT-PLUS1) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . QUOTIENT-PLUS1) (LEMMAS QUOTIENT . QUOTIENT-PLUS1))))) (PUT1-LST (QUOTE REMAINDER-DIFFERENCE-TIMES2) (QUOTE (IDATE 1000402214803 EVENT (PROVE-LEMMA REMAINDER-DIFFERENCE-TIMES2 (REWRITE) (EQUAL (REMAINDER (DIFFERENCE X (TIMES Y Z)) Y) (IF (LESSP X (TIMES Y Z)) (QUOTE 0) (REMAINDER X Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES . REMAINDER-DIFFERENCE-TIMES2) (IMMEDIATE-DEPENDENTS0 REMAINDER-DIFFERENCE . REMAINDER-DIFFERENCE-TIMES2) (LEMMAS REMAINDER . REMAINDER-DIFFERENCE-TIMES2))))) (PUT1-LST (QUOTE REMAINDER-DIFFERENCE-TIMES1) (QUOTE (IDATE 1000402214803 EVENT (PROVE-LEMMA REMAINDER-DIFFERENCE-TIMES1 (REWRITE) (EQUAL (REMAINDER (DIFFERENCE X (TIMES Y Z)) Z) (IF (LESSP X (TIMES Y Z)) (QUOTE 0) (REMAINDER X Z)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES . REMAINDER-DIFFERENCE-TIMES1) (IMMEDIATE-DEPENDENTS0 REMAINDER-DIFFERENCE . REMAINDER-DIFFERENCE-TIMES1) (LEMMAS REMAINDER . REMAINDER-DIFFERENCE-TIMES1))))) (PUT1-LST (QUOTE REMAINDER-DIFFERENCE) (QUOTE (IDATE 1000402214803 IMMEDIATE-DEPENDENTS0 (REMAINDER-DIFFERENCE-OFF REMAINDER-DIFFERENCE-TIMES2 REMAINDER-DIFFERENCE-TIMES1) EVENT (PROVE-LEMMA REMAINDER-DIFFERENCE (REWRITE) (IMPLIES (EQUAL (REMAINDER Y Z) (QUOTE 0)) (EQUAL (REMAINDER (DIFFERENCE X Y) Z) (IF (LESSP X Y) (QUOTE 0) (REMAINDER X Z))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE2 . REMAINDER-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 REMAINDER-X-X . REMAINDER-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-DIFFERENCE1 . REMAINDER-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . REMAINDER-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . REMAINDER-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . REMAINDER-DIFFERENCE) (LEMMAS REMAINDER . REMAINDER-DIFFERENCE))))) (PUT1-LST (QUOTE REMAINDER-PLUS-PLUS-TIMES2) (QUOTE (IDATE 1000402214802 IMMEDIATE-DEPENDENTS0 (REMAINDER-PLUS-REMAINDER1) EVENT (PROVE-LEMMA REMAINDER-PLUS-PLUS-TIMES2 (REWRITE) (EQUAL (REMAINDER (PLUS X (PLUS W (TIMES Z Y))) Y) (REMAINDER (PLUS X W) Y))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . REMAINDER-PLUS-PLUS-TIMES2) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY1 . REMAINDER-PLUS-PLUS-TIMES2) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-PLUS-TIMES1 . REMAINDER-PLUS-PLUS-TIMES2) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . REMAINDER-PLUS-PLUS-TIMES2) (LEMMAS REMAINDER . REMAINDER-PLUS-PLUS-TIMES2))))) (PUT1-LST (QUOTE REMAINDER-PLUS-PLUS-TIMES1) (QUOTE (IDATE 1000402214802 IMMEDIATE-DEPENDENTS0 (REMAINDER-PLUS-PLUS-TIMES2) EVENT (PROVE-LEMMA REMAINDER-PLUS-PLUS-TIMES1 (REWRITE) (EQUAL (REMAINDER (PLUS X (PLUS W (TIMES Y Z))) Y) (REMAINDER (PLUS X W) Y))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY1 . REMAINDER-PLUS-PLUS-TIMES1) (IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES . REMAINDER-PLUS-PLUS-TIMES1) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-PLUS . REMAINDER-PLUS-PLUS-TIMES1) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . REMAINDER-PLUS-PLUS-TIMES1) (LEMMAS REMAINDER . REMAINDER-PLUS-PLUS-TIMES1))))) (PUT1-LST (QUOTE REMAINDER-PLUS-DIFFERENCE2) (QUOTE (IDATE 1000402214802 EVENT (PROVE-LEMMA REMAINDER-PLUS-DIFFERENCE2 (REWRITE) (IMPLIES (AND (NOT (LESSP Y Z)) (EQUAL (REMAINDER X W) (QUOTE 0))) (EQUAL (REMAINDER (DIFFERENCE (PLUS X Y) Z) W) (REMAINDER (DIFFERENCE Y Z) W)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS1 . REMAINDER-PLUS-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE1 . REMAINDER-PLUS-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . REMAINDER-PLUS-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . REMAINDER-PLUS-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . REMAINDER-PLUS-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . REMAINDER-PLUS-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-EQUAL-CANCEL-1 . REMAINDER-PLUS-DIFFERENCE2) (LEMMAS REMAINDER . REMAINDER-PLUS-DIFFERENCE2))))) (PUT1-LST (QUOTE REMAINDER-PLUS-DIFFERENCE1) (QUOTE (IDATE 1000402214802 IMMEDIATE-DEPENDENTS0 (REMAINDER-DIFFERENCE) EVENT (PROVE-LEMMA REMAINDER-PLUS-DIFFERENCE1 (REWRITE) (IMPLIES (AND (NOT (LESSP X Z)) (EQUAL (REMAINDER Y W) (QUOTE 0))) (EQUAL (REMAINDER (DIFFERENCE (PLUS X Y) Z) W) (REMAINDER (DIFFERENCE X Z) W)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . REMAINDER-PLUS-DIFFERENCE1) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . REMAINDER-PLUS-DIFFERENCE1) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-ADD1 . REMAINDER-PLUS-DIFFERENCE1) (LEMMAS REMAINDER . REMAINDER-PLUS-DIFFERENCE1))))) (PUT1-LST (QUOTE REMAINDER-PLUS-ADD1) (QUOTE (IDATE 1000402214802 IMMEDIATE-DEPENDENTS0 (REMAINDER-ADD1 REMAINDER-PLUS-DIFFERENCE1) EVENT (PROVE-LEMMA REMAINDER-PLUS-ADD1 (REWRITE) (IMPLIES (EQUAL (REMAINDER I J) (QUOTE 0)) (EQUAL (REMAINDER (ADD1 (PLUS X I)) J) (REMAINDER (ADD1 X) J))) ((USE (REMAINDER-PLUS-PLUS (X (QUOTE 1)) (Y X))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . REMAINDER-PLUS-ADD1) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . REMAINDER-PLUS-ADD1) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-PLUS . REMAINDER-PLUS-ADD1) (LEMMAS REMAINDER . REMAINDER-PLUS-ADD1))))) (PUT1-LST (QUOTE REMAINDER-PLUS-PLUS) (QUOTE (IDATE 1000402214802 IMMEDIATE-DEPENDENTS0 (REMAINDER-REMAINDER-EXP2 REMAINDER-PLUS-REMAINDER2 REMAINDER-PLUS-PLUS-TIMES1 REMAINDER-PLUS-ADD1) EVENT (PROVE-LEMMA REMAINDER-PLUS-PLUS (REWRITE) (IMPLIES (EQUAL (REMAINDER I J) (QUOTE 0)) (EQUAL (REMAINDER (PLUS X (PLUS Y I)) J) (REMAINDER (PLUS X Y) J)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . REMAINDER-PLUS-PLUS) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY1 . REMAINDER-PLUS-PLUS) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS2 . REMAINDER-PLUS-PLUS) (LEMMAS REMAINDER . REMAINDER-PLUS-PLUS))))) (PUT1-LST (QUOTE REMAINDER-PLUS-TIMES2) (QUOTE (IDATE 1000402214802 IMMEDIATE-DEPENDENTS0 (REMAINDER-REMAINDER-EXP2 TIMES-DISTRIBUTES-REMAINDER) EVENT (PROVE-LEMMA REMAINDER-PLUS-TIMES2 (REWRITE) (EQUAL (REMAINDER (PLUS X (TIMES Z Y)) Y) (REMAINDER X Y))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . REMAINDER-PLUS-TIMES2) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS-TIMES1 . REMAINDER-PLUS-TIMES2) (LEMMAS REMAINDER . REMAINDER-PLUS-TIMES2))))) (PUT1-LST (QUOTE REMAINDER-PLUS-TIMES1) (QUOTE (IDATE 1000402214802 IMMEDIATE-DEPENDENTS0 (REMAINDER-PLUS-TIMES2) EVENT (PROVE-LEMMA REMAINDER-PLUS-TIMES1 (REWRITE) (EQUAL (REMAINDER (PLUS X (TIMES Y Z)) Y) (REMAINDER X Y))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-TIMES . REMAINDER-PLUS-TIMES1) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS1 . REMAINDER-PLUS-TIMES1) (LEMMAS REMAINDER . REMAINDER-PLUS-TIMES1))))) (PUT1-LST (QUOTE REMAINDER-TIMES) (QUOTE (IDATE 1000402214802 IMMEDIATE-DEPENDENTS0 (QUOTIENT-QUOTIENT QUOTIENT-ADD1 REMAINDER-ADD1 QUOTIENT-DIFFERENCE-TIMES2 QUOTIENT-DIFFERENCE-TIMES1 QUOTIENT-PLUS-TIMES1 REMAINDER-DIFFERENCE-TIMES2 REMAINDER-DIFFERENCE-TIMES1 REMAINDER-PLUS-PLUS-TIMES1 REMAINDER-PLUS-TIMES1) EVENT (PROVE-LEMMA REMAINDER-TIMES (REWRITE) (AND (EQUAL (REMAINDER (TIMES X Y) Y) (QUOTE 0)) (EQUAL (REMAINDER (TIMES Y X) Y) (QUOTE 0))) ((INDUCT (TIMES X Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ADD1 . REMAINDER-TIMES) (IMMEDIATE-DEPENDENTS0 REMAINDER-X-X . REMAINDER-TIMES) (IMMEDIATE-DEPENDENTS0 REMAINDER-PLUS2 . REMAINDER-TIMES) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . REMAINDER-TIMES) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . REMAINDER-TIMES) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . REMAINDER-TIMES) (LEMMAS REMAINDER . REMAINDER-TIMES) (LEMMAS REMAINDER . REMAINDER-TIMES))))) (PUT1-LST (QUOTE REMAINDER-PLUS2) (QUOTE (IDATE 1000402214802 IMMEDIATE-DEPENDENTS0 (REMAINDER-PLUS-PLUS REMAINDER-TIMES) EVENT (PROVE-LEMMA REMAINDER-PLUS2 (REWRITE) (IMPLIES (EQUAL (REMAINDER I J) (QUOTE 0)) (EQUAL (REMAINDER (PLUS I X) J) (REMAINDER X J)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS1 . REMAINDER-PLUS2) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . REMAINDER-PLUS2) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . REMAINDER-PLUS2) (LEMMAS REMAINDER . REMAINDER-PLUS2))))) (PUT1-LST (QUOTE REMAINDER-PLUS1) (QUOTE (IDATE 1000402214802 IMMEDIATE-DEPENDENTS0 (REMAINDER-REMAINDER-EXP2 REMAINDER-PLUS-CANCEL0 REMAINDER-PLUS-REMAINDER2 REMAINDER-PLUS-REMAINDER1 REMAINDER-PLUS-TIMES1) EVENT (PROVE-LEMMA REMAINDER-PLUS1 (REWRITE) (IMPLIES (EQUAL (REMAINDER I J) (QUOTE 0)) (EQUAL (REMAINDER (PLUS X I) J) (REMAINDER X J)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS1 . REMAINDER-PLUS1) (IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . REMAINDER-PLUS1) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . REMAINDER-PLUS1) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . REMAINDER-PLUS1) (LEMMAS REMAINDER . REMAINDER-PLUS1))))) (PUT1-LST (QUOTE REMAINDER-WRT-2) (QUOTE (IDATE 1000402214802 IMMEDIATE-DEPENDENTS0 (REMAINDER-TIMES-EXP2-3) EVENT (PROVE-LEMMA REMAINDER-WRT-2 (REWRITE) (LESSP (REMAINDER N (QUOTE 2)) (QUOTE 2))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . REMAINDER-WRT-2) (LINEAR-LEMMAS REMAINDER . REMAINDER-WRT-2))))) (PUT1-LST (QUOTE QUOTIENT-LEQ) (QUOTE (IDATE 1000402214802 IMMEDIATE-DEPENDENTS0 (LOGEOR QUOTIENT-SUB1 QUOTIENT-DIFFERENCE) EVENT (PROVE-LEMMA QUOTIENT-LEQ (REWRITE) (NOT (LESSP I (QUOTIENT I J)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . QUOTIENT-LEQ) (IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . QUOTIENT-LEQ) (LINEAR-LEMMAS QUOTIENT . QUOTIENT-LEQ))))) (PUT1-LST (QUOTE QUOTIENT-LESSP-LINEAR) (QUOTE (IDATE 1000402214801 IMMEDIATE-DEPENDENTS0 (LOGEOR) EVENT (PROVE-LEMMA QUOTIENT-LESSP-LINEAR (REWRITE) (IMPLIES (AND (NOT (ZEROP X)) (LESSP (QUOTE 1) Y)) (LESSP (QUOTIENT X Y) X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-LESSP . QUOTIENT-LESSP-LINEAR) (LINEAR-LEMMAS QUOTIENT . QUOTIENT-LESSP-LINEAR))))) (PUT1-LST (QUOTE REMAINDER-LESSP-LINEAR) (QUOTE (IDATE 1000402214801 IMMEDIATE-DEPENDENTS0 (QUOTIENT-DISTRIBUTES-TIMES2-ADD1 REMAINDER-DISTRIBUTES-TIMES2-ADD1) EVENT (PROVE-LEMMA REMAINDER-LESSP-LINEAR (REWRITE) (IMPLIES (NOT (ZEROP Y)) (LESSP (REMAINDER X Y) Y))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-LESSP . REMAINDER-LESSP-LINEAR) (LINEAR-LEMMAS REMAINDER . REMAINDER-LESSP-LINEAR))))) (PUT1-LST (QUOTE QUOTIENT-LESSP) (QUOTE (IDATE 1000402214801 IMMEDIATE-DEPENDENTS0 (QUOTIENT-LESSP-LINEAR) EVENT (PROVE-LEMMA QUOTIENT-LESSP (REWRITE) (EQUAL (LESSP (QUOTIENT M N) M) (AND (NOT (ZEROP M)) (OR (ZEROP N) (NOT (EQUAL N (QUOTE 1))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . QUOTIENT-LESSP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EQUAL-0 . QUOTIENT-LESSP) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . QUOTIENT-LESSP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . QUOTIENT-LESSP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-1 . QUOTIENT-LESSP) (IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . QUOTIENT-LESSP) (LEMMAS LESSP . QUOTIENT-LESSP))))) (PUT1-LST (QUOTE REMAINDER-LESSP) (QUOTE (IDATE 1000402214801 IMMEDIATE-DEPENDENTS0 (LOG-QUOTIENT-EXP REMAINDER-REMAINDER-EXP2 QUOTIENT-TIMES-EXP2-1 REMAINDER-TIMES-EXP2-1 LESSP-PLUS-TIMES-EXP2 QUOTIENT-QUOTIENT QUOTIENT-TIMES-LESSP REMAINDER-PLUS-CANCEL0 QUOTIENT-TIMES-CANCEL TIMES-DISTRIBUTES-REMAINDER REMAINDER-PLUS-REMAINDER2 REMAINDER-DIFFERENCE-REMAINDER1 REMAINDER-PLUS-REMAINDER1 QUOTIENT-SHRINK-FAST QUOTIENT-ADD1 REMAINDER-ADD1 REMAINDER-WRT-2 REMAINDER-LESSP-LINEAR) EVENT (PROVE-LEMMA REMAINDER-LESSP (REWRITE GENERALIZE) (EQUAL (LESSP (REMAINDER X Y) Y) (NOT (ZEROP Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . REMAINDER-LESSP) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . REMAINDER-LESSP) (GENERALIZE-LEMMAS NIL . REMAINDER-LESSP) (LEMMAS LESSP . REMAINDER-LESSP))))) (PUT1-LST (QUOTE QUOTIENT-GENERALIZE-OFF) (QUOTE (IDATE 1000402214801 EVENT (TOGGLE QUOTIENT-GENERALIZE-OFF QUOTIENT-GENERALIZE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-GENERALIZE . QUOTIENT-GENERALIZE-OFF) (DISABLED-LEMMAS NIL QUOTIENT-GENERALIZE QUOTIENT-GENERALIZE-OFF . T))))) (PUT1-LST (QUOTE QUOTIENT-GENERALIZE) (QUOTE (IDATE 1000402214801 IMMEDIATE-DEPENDENTS0 (QUOTIENT-GENERALIZE-OFF) EVENT (PROVE-LEMMA QUOTIENT-GENERALIZE (GENERALIZE) (EQUAL (EQUAL (QUOTIENT M N) (QUOTE 0)) (IF (OR (ZEROP M) (ZEROP N)) (QUOTE *1*TRUE) (LESSP M N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-EQUAL-0 . QUOTIENT-GENERALIZE) (GENERALIZE-LEMMAS NIL . QUOTIENT-GENERALIZE))))) (PUT1-LST (QUOTE QUOTIENT-2X-ADD1) (QUOTE (IDATE 1000402214801 EVENT (PROVE-LEMMA QUOTIENT-2X-ADD1 (REWRITE) (EQUAL (QUOTIENT (PLUS X (ADD1 X)) (QUOTE 2)) (FIX X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . QUOTIENT-2X-ADD1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1 . QUOTIENT-2X-ADD1) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . QUOTIENT-2X-ADD1) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1-1 . QUOTIENT-2X-ADD1) (LEMMAS QUOTIENT . QUOTIENT-2X-ADD1))))) (PUT1-LST (QUOTE REMAINDER-2X-ADD1) (QUOTE (IDATE 1000402214801 EVENT (PROVE-LEMMA REMAINDER-2X-ADD1 (REWRITE) (EQUAL (REMAINDER (PLUS X (ADD1 X)) (QUOTE 2)) (QUOTE 1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . REMAINDER-2X-ADD1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1 . REMAINDER-2X-ADD1) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . REMAINDER-2X-ADD1) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1-1 . REMAINDER-2X-ADD1) (LEMMAS REMAINDER . REMAINDER-2X-ADD1))))) (PUT1-LST (QUOTE QUOTIENT-2X) (QUOTE (IDATE 1000402214801 EVENT (PROVE-LEMMA QUOTIENT-2X (REWRITE) (EQUAL (QUOTIENT (PLUS X X) (QUOTE 2)) (FIX X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . QUOTIENT-2X) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1 . QUOTIENT-2X) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . QUOTIENT-2X) (LEMMAS QUOTIENT . QUOTIENT-2X))))) (PUT1-LST (QUOTE REMAINDER-2X) (QUOTE (IDATE 1000402214801 EVENT (PROVE-LEMMA REMAINDER-2X (REWRITE) (EQUAL (REMAINDER (PLUS X X) (QUOTE 2)) (QUOTE 0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . REMAINDER-2X) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1 . REMAINDER-2X) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . REMAINDER-2X) (LEMMAS REMAINDER . REMAINDER-2X))))) (PUT1-LST (QUOTE QUOTIENT-EQUAL-0) (QUOTE (IDATE 1000402214801 IMMEDIATE-DEPENDENTS0 (QUOTIENT-TIMES-EXP2-4 QUOTIENT-EXP QUOTIENT-CROCK QUOTIENT-SUB1 QUOTIENT-DIFFERENCE QUOTIENT-LESSP QUOTIENT-GENERALIZE) EVENT (PROVE-LEMMA QUOTIENT-EQUAL-0 (REWRITE) (EQUAL (EQUAL (QUOTIENT M N) (QUOTE 0)) (OR (ZEROP M) (OR (ZEROP N) (LESSP M N))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-X . QUOTIENT-EQUAL-0) (IMMEDIATE-DEPENDENTS0 QUOTIENT-X-X . QUOTIENT-EQUAL-0) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . QUOTIENT-EQUAL-0) (IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . QUOTIENT-EQUAL-0) (LEMMAS EQUAL . QUOTIENT-EQUAL-0))))) (PUT1-LST (QUOTE QUOTIENT-X-X) (QUOTE (IDATE 1000402214801 IMMEDIATE-DEPENDENTS0 (QUOTIENT-EXP QUOTIENT-ADD1 QUOTIENT-DIFFERENCE QUOTIENT-TIMES QUOTIENT-EQUAL-0) EVENT (PROVE-LEMMA QUOTIENT-X-X (REWRITE) (EQUAL (QUOTIENT X X) (IF (ZEROP X) (QUOTE 0) (QUOTE 1)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . QUOTIENT-X-X) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-X . QUOTIENT-X-X) (LEMMAS QUOTIENT . QUOTIENT-X-X))))) (PUT1-LST (QUOTE REMAINDER-X-X) (QUOTE (IDATE 1000402214801 IMMEDIATE-DEPENDENTS0 (REMAINDER-ADD1 QUOTIENT-DIFFERENCE QUOTIENT-TIMES REMAINDER-DIFFERENCE REMAINDER-TIMES) EVENT (PROVE-LEMMA REMAINDER-X-X (REWRITE) (EQUAL (REMAINDER X X) (QUOTE 0))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-0 . REMAINDER-X-X) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-X . REMAINDER-X-X) (LEMMAS REMAINDER . REMAINDER-X-X))))) (PUT1-LST (QUOTE QUOTIENT-1) (QUOTE (IDATE 1000402214801 IMMEDIATE-DEPENDENTS0 (LOG-QUOTIENT-EXP QUOTIENT-TIMES-EXP2-1 QUOTIENT-EXP QUOTIENT-ADD1 QUOTIENT-LESSP) EVENT (PROVE-LEMMA QUOTIENT-1 (REWRITE) (AND (EQUAL (QUOTIENT (QUOTE 1) X) (IF (EQUAL X (QUOTE 1)) (QUOTE 1) (QUOTE 0))) (EQUAL (QUOTIENT M (QUOTE 1)) (FIX M))) ((EXPAND (QUOTIENT (QUOTE 1) X)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1 . QUOTIENT-1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-EXIT . QUOTIENT-1) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . QUOTIENT-1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . QUOTIENT-1) (IMMEDIATE-DEPENDENTS0 QUOTIENT-0 . QUOTIENT-1) (LEMMAS QUOTIENT . QUOTIENT-1) (LEMMAS QUOTIENT . QUOTIENT-1))))) (PUT1-LST (QUOTE REMAINDER-1) (QUOTE (IDATE 1000402214801 IMMEDIATE-DEPENDENTS0 (REMAINDER-REMAINDER-2 REMAINDER-REMAINDER-EXP2 REMAINDER-TIMES-EXP2-3 REMAINDER-TIMES-EXP2-1 REMAINDER-EXP REMAINDER-ADD1) EVENT (PROVE-LEMMA REMAINDER-1 (REWRITE) (AND (EQUAL (REMAINDER (QUOTE 1) X) (IF (EQUAL X (QUOTE 1)) (QUOTE 0) (QUOTE 1))) (EQUAL (REMAINDER X (QUOTE 1)) (QUOTE 0))) ((EXPAND (REMAINDER (QUOTE 1) X)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 REMAINDER-EXIT . REMAINDER-1) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . REMAINDER-1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . REMAINDER-1) (IMMEDIATE-DEPENDENTS0 REMAINDER-0 . REMAINDER-1) (LEMMAS REMAINDER . REMAINDER-1) (LEMMAS REMAINDER . REMAINDER-1))))) (PUT1-LST (QUOTE QUOTIENT-0) (QUOTE (IDATE 1000402214801 IMMEDIATE-DEPENDENTS0 (LOG-QUOTIENT-EXP QUOTIENT-TIMES-EXP2-1 QUOTIENT-QUOTIENT QUOTIENT-TIMES-LESSP QUOTIENT-EXP QUOTIENT-DISTRIBUTES-TIMES2-ADD1 QUOTIENT-TIMES-CANCEL QUOTIENT-ADD1 REMAINDER-QUOTIENT QUOTIENT-SUB1 QUOTIENT-DIFFERENCE-TIMES2 QUOTIENT-DIFFERENCE-TIMES1 QUOTIENT-DIFFERENCE QUOTIENT-DIFFERENCE-PLUS1 QUOTIENT-PLUS-TIMES2 QUOTIENT-TIMES QUOTIENT-PLUS1 QUOTIENT-LEQ QUOTIENT-LESSP QUOTIENT-EQUAL-0 QUOTIENT-X-X QUOTIENT-1) EVENT (PROVE-LEMMA QUOTIENT-0 (REWRITE) (AND (EQUAL (QUOTIENT (QUOTE 0) X) (QUOTE 0)) (EQUAL (QUOTIENT X (QUOTE 0)) (QUOTE 0)))) LOCAL-UNDO-TUPLES ((LEMMAS QUOTIENT . QUOTIENT-0) (LEMMAS QUOTIENT . QUOTIENT-0))))) (PUT1-LST (QUOTE REMAINDER-0) (QUOTE (IDATE 1000402214801 IMMEDIATE-DEPENDENTS0 (REMAINDER-REMAINDER-EXP2 REMAINDER-TIMES-EXP2-1 REMAINDER-PLUS-CANCEL REMAINDER-PLUS-CANCEL0 REMAINDER-EXP REMAINDER-DISTRIBUTES-TIMES2-ADD1 TIMES-DISTRIBUTES-REMAINDER REMAINDER-CROCK REMAINDER-PLUS-REMAINDER2 REMAINDER-DIFFERENCE-REMAINDER1 REMAINDER-PLUS-REMAINDER1 REMAINDER-ADD1 REMAINDER-QUOTIENT QUOTIENT-SUB1 REMAINDER-SUB1 QUOTIENT-DIFFERENCE QUOTIENT-DIFFERENCE-PLUS1 QUOTIENT-PLUS1 REMAINDER-DIFFERENCE REMAINDER-PLUS-DIFFERENCE2 REMAINDER-PLUS-DIFFERENCE1 REMAINDER-TIMES REMAINDER-PLUS2 REMAINDER-PLUS1 REMAINDER-LESSP REMAINDER-X-X REMAINDER-1) EVENT (PROVE-LEMMA REMAINDER-0 (REWRITE) (AND (EQUAL (REMAINDER (QUOTE 0) X) (QUOTE 0)) (EQUAL (REMAINDER X (QUOTE 0)) (FIX X)))) LOCAL-UNDO-TUPLES ((LEMMAS REMAINDER . REMAINDER-0) (LEMMAS REMAINDER . REMAINDER-0))))) (PUT1-LST (QUOTE QUOTIENT-EXIT) (QUOTE (IDATE 1000402214801 IMMEDIATE-DEPENDENTS0 (LOG-QUOTIENT-EXP QUOTIENT-TIMES-EXP2-3 QUOTIENT-TIMES-EXP2-1 LESSP-PLUS-TIMES-EXP2 QUOTIENT-QUOTIENT QUOTIENT-TIMES-LESSP QUOTIENT-CROCK QUOTIENT-ADD1 REMAINDER-QUOTIENT-ELIM REMAINDER-QUOTIENT QUOTIENT-SUB1 QUOTIENT-DIFFERENCE QUOTIENT-PLUS1 QUOTIENT-LEQ QUOTIENT-LESSP QUOTIENT-EQUAL-0 QUOTIENT-1) EVENT (PROVE-LEMMA QUOTIENT-EXIT (REWRITE) (IMPLIES (LESSP I J) (EQUAL (QUOTIENT I J) (QUOTE 0)))) LOCAL-UNDO-TUPLES ((LEMMAS QUOTIENT . QUOTIENT-EXIT))))) (PUT1-LST (QUOTE REMAINDER-EXIT) (QUOTE (IDATE 1000402214801 IMMEDIATE-DEPENDENTS0 (REMAINDER-REMAINDER-EXP2 REMAINDER-TIMES-EXP2-3 REMAINDER-TIMES-EXP2-1 REMAINDER-PLUS-CANCEL0 REMAINDER-CROCK REMAINDER-DIFFERENCE-REMAINDER1 QUOTIENT-ADD1 REMAINDER-ADD1 REMAINDER-QUOTIENT-ELIM REMAINDER-QUOTIENT QUOTIENT-SUB1 REMAINDER-SUB1 QUOTIENT-DIFFERENCE QUOTIENT-PLUS1 REMAINDER-DIFFERENCE REMAINDER-PLUS-DIFFERENCE2 REMAINDER-PLUS2 REMAINDER-PLUS1 REMAINDER-LESSP REMAINDER-1) EVENT (PROVE-LEMMA REMAINDER-EXIT (REWRITE) (IMPLIES (LESSP I J) (EQUAL (REMAINDER I J) (FIX I)))) LOCAL-UNDO-TUPLES ((LEMMAS REMAINDER . REMAINDER-EXIT))))) (PUT1-LST (QUOTE TIMES-EXP2-LESSP) (QUOTE (IDATE 1000402214801 IMMEDIATE-DEPENDENTS0 (LESSP-PLUS-TIMES-EXP2) EVENT (PROVE-LEMMA TIMES-EXP2-LESSP (REWRITE) (EQUAL (LESSP (TIMES I (EXP (QUOTE 2) J)) (EXP (QUOTE 2) K)) (LESSP I (EXP (QUOTE 2) (DIFFERENCE K J))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1-SUB1 . TIMES-EXP2-LESSP) (IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . TIMES-EXP2-LESSP) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY1 . TIMES-EXP2-LESSP) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-TIMES . TIMES-EXP2-LESSP) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . TIMES-EXP2-LESSP) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP-0 . TIMES-EXP2-LESSP) (IMMEDIATE-DEPENDENTS0 TIMES-1 . TIMES-EXP2-LESSP) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . TIMES-EXP2-LESSP) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . TIMES-EXP2-LESSP) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . TIMES-EXP2-LESSP) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . TIMES-EXP2-LESSP) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . TIMES-EXP2-LESSP) (IMMEDIATE-DEPENDENTS0 EXP . TIMES-EXP2-LESSP) (LEMMAS LESSP . TIMES-EXP2-LESSP))))) (PUT1-LST (QUOTE TIMES-OFF) (QUOTE (IDATE 1000402214801 EVENT (TOGGLE TIMES-OFF TIMES T) LOCAL-UNDO-TUPLES ((DISABLED-LEMMAS NIL TIMES TIMES-OFF . T))))) (PUT1-LST (QUOTE EXP-LESSP) (QUOTE (IDATE 1000402214801 IMMEDIATE-DEPENDENTS0 (QUOTIENT-EXP) EVENT (PROVE-LEMMA EXP-LESSP (REWRITE) (EQUAL (LESSP (EXP X Y) (EXP X Z)) (IF (ZEROP X) (AND (NOT (ZEROP Y)) (ZEROP Z)) (IF (EQUAL X (QUOTE 1)) (QUOTE *1*FALSE) (LESSP Y Z))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . EXP-LESSP) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . EXP-LESSP) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-TIMES . EXP-LESSP) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . EXP-LESSP) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP-1 . EXP-LESSP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . EXP-LESSP) (IMMEDIATE-DEPENDENTS0 EXP-OF-0 . EXP-LESSP) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . EXP-LESSP) (IMMEDIATE-DEPENDENTS0 EXP-OF-1 . EXP-LESSP) (IMMEDIATE-DEPENDENTS0 EXP . EXP-LESSP) (LEMMAS LESSP . EXP-LESSP))))) (PUT1-LST (QUOTE EXP-OF-2-1) (QUOTE (IDATE 1000402214801 IMMEDIATE-DEPENDENTS0 (LESSP-PLUS-EXP2) EVENT (PROVE-LEMMA EXP-OF-2-1 (REWRITE) (EQUAL (LESSP (QUOTE 1) (EXP (QUOTE 2) N)) (NOT (ZEROP N)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . EXP-OF-2-1) (IMMEDIATE-DEPENDENTS0 TIMES-1 . EXP-OF-2-1) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . EXP-OF-2-1) (IMMEDIATE-DEPENDENTS0 EXP-OF-2-0 . EXP-OF-2-1) (IMMEDIATE-DEPENDENTS0 EXP . EXP-OF-2-1) (LEMMAS LESSP . EXP-OF-2-1))))) (PUT1-LST (QUOTE EXP-OF-2-0) (QUOTE (IDATE 1000402214801 IMMEDIATE-DEPENDENTS0 (LOG-QUOTIENT-EXP REMAINDER-REMAINDER-EXP2 QUOTIENT-TIMES-EXP2-1 REMAINDER-TIMES-EXP2-1 LESSP-PLUS-TIMES-EXP2 TIMES-EXP2-LESSP EXP-LESSP EXP-OF-2-1) EVENT (PROVE-LEMMA EXP-OF-2-0 (REWRITE) (IMPLIES (NOT (ZEROP M)) (NOT (LESSP (EXP M N) (QUOTE 1))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . EXP-OF-2-0) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . EXP-OF-2-0) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . EXP-OF-2-0) (IMMEDIATE-DEPENDENTS0 EXP . EXP-OF-2-0) (LINEAR-LEMMAS EXP . EXP-OF-2-0))))) (PUT1-LST (QUOTE EXP-EXP) (QUOTE (IDATE 1000402214801 EVENT (PROVE-LEMMA EXP-EXP (REWRITE) (EQUAL (EXP (EXP X Y) Z) (EXP X (TIMES Y Z)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EXP-PLUS . EXP-EXP) (IMMEDIATE-DEPENDENTS0 EXP-TIMES . EXP-EXP) (IMMEDIATE-DEPENDENTS0 EXP-OF-1 . EXP-EXP) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . EXP-EXP) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . EXP-EXP) (IMMEDIATE-DEPENDENTS0 EXP . EXP-EXP) (LEMMAS EXP . EXP-EXP))))) (PUT1-LST (QUOTE EXP-TIMES) (QUOTE (IDATE 1000402214801 IMMEDIATE-DEPENDENTS0 (EXP-EXP) EVENT (PROVE-LEMMA EXP-TIMES (REWRITE) (EQUAL (EXP (TIMES X Y) Z) (TIMES (EXP X Z) (EXP Y Z)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ASSOCIATIVITY . EXP-TIMES) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY1 . EXP-TIMES) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . EXP-TIMES) (IMMEDIATE-DEPENDENTS0 EXP . EXP-TIMES) (LEMMAS EXP . EXP-TIMES))))) (PUT1-LST (QUOTE EXP-PLUS) (QUOTE (IDATE 1000402214801 IMMEDIATE-DEPENDENTS0 (EXP-EXP) EVENT (PROVE-LEMMA EXP-PLUS (REWRITE) (EQUAL (TIMES (EXP X Y) (EXP X Z)) (EXP X (PLUS Y Z)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . EXP-PLUS) (IMMEDIATE-DEPENDENTS0 TIMES-ASSOCIATIVITY . EXP-PLUS) (IMMEDIATE-DEPENDENTS0 TIMES-1 . EXP-PLUS) (IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . EXP-PLUS) (IMMEDIATE-DEPENDENTS0 EXP . EXP-PLUS) (LEMMAS TIMES . EXP-PLUS))))) (PUT1-LST (QUOTE EXP-OF-1) (QUOTE (IDATE 1000402214801 IMMEDIATE-DEPENDENTS0 (EXP-LESSP EXP-EXP) EVENT (PROVE-LEMMA EXP-OF-1 (REWRITE) (EQUAL (EXP (QUOTE 1) K) (QUOTE 1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . EXP-OF-1) (IMMEDIATE-DEPENDENTS0 EXP . EXP-OF-1) (LEMMAS EXP . EXP-OF-1))))) (PUT1-LST (QUOTE EXP-OF-0) (QUOTE (IDATE 1000402214801 IMMEDIATE-DEPENDENTS0 (EXP-LESSP) EVENT (PROVE-LEMMA EXP-OF-0 (REWRITE) (EQUAL (EXP (QUOTE 0) K) (IF (ZEROP K) (QUOTE 1) (QUOTE 0)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ZERO . EXP-OF-0) (IMMEDIATE-DEPENDENTS0 EXP . EXP-OF-0) (LEMMAS EXP . EXP-OF-0))))) (PUT1-LST (QUOTE *1*EXP) (QUOTE (MAIN-EVENT EXP))) (PUT1-LST (QUOTE EXP) (QUOTE (TYPE-PRESCRIPTION-LST ((EXP 4 NIL NIL)) LEMMAS ((REWRITE-RULE EXP-EXP NIL (EQUAL (EXP (EXP X Y) Z) (EXP X (TIMES Y Z))) NIL) (REWRITE-RULE EXP-TIMES NIL (EQUAL (EXP (TIMES X Y) Z) (TIMES (EXP X Z) (EXP Y Z))) NIL) (REWRITE-RULE EXP-OF-1 NIL (EQUAL (EXP (QUOTE 1) K) (QUOTE 1)) NIL) (REWRITE-RULE EXP-OF-0 NIL (EQUAL (EXP (QUOTE 0) K) (IF (EQUAL K (QUOTE 0)) (QUOTE 1) (IF (NUMBERP K) (QUOTE 0) (QUOTE 1)))) NIL)) TOTALP-LST ((EXP . T)) LINEAR-LEMMAS ((LINEAR-LEMMA EXP-OF-2-0 ((NUMBERP M) (NOT (EQUAL M (QUOTE 0)))) (NOT (LESSP (EXP M N) (QUOTE 1))) (EXP M N))) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (X Y) (IF (EQUAL Y (QUOTE 0)) (QUOTE 1) (IF (NUMBERP Y) (TIMES X (EXP X (SUB1 Y))) (QUOTE 1)))) LISP-CODE *1*EXP SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP Y)) NIL) (TESTS-AND-CASES ((NOT (ZEROP Y))) ((X (SUB1 Y))))) LEVEL-NO 3 JUSTIFICATIONS ((JUSTIFICATION (Y) (COUNT Y) LESSP (ZEROP COUNT-NUMBERP LESSP-SUB1))) IDATE 1000402214801 CONTROLLER-POCKETS (2) SATELLITES (*1*EXP) IMMEDIATE-DEPENDENTS0 (GCD-EXAMPLE ROXR DIVU-V MULU-V OP-LEN INT-TO-NAT NAT-TO-INT INT-RANGEP UINT-RANGEP NAT-RANGEP ASR ASL LSL EXT APP SUB LOGNOT TAIL HEAD LOG-QUOTIENT-EXP LOG-TIMES-EXP LOG-EXP REMAINDER-REMAINDER-2 REMAINDER-REMAINDER-EXP2 QUOTIENT-TIMES-EXP2-4 QUOTIENT-TIMES-EXP2-3 QUOTIENT-TIMES-EXP2-2 QUOTIENT-TIMES-EXP2-1 REMAINDER-TIMES-EXP2-4 REMAINDER-TIMES-EXP2-3 REMAINDER-TIMES-EXP2-2 REMAINDER-TIMES-EXP2-1 LESSP-PLUS-EXP2 LESSP-PLUS-TIMES-EXP2 REMAINDER-EXP QUOTIENT-EXP TIMES-EXP2-LESSP EXP-LESSP EXP-OF-2-1 EXP-OF-2-0 EXP-EXP EXP-TIMES EXP-PLUS EXP-OF-1 EXP-OF-0) EVENT (DEFN EXP (X Y) (IF (ZEROP Y) (QUOTE 1) (TIMES X (EXP X (SUB1 Y))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . EXP) (DCELL . *1*EXP))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-EQUAL-TIMES) (QUOTE (IDATE 1000402214759 IMMEDIATE-DEPENDENTS0 (QUOTIENT-TIMES-EXP2-1 REMAINDER-DISTRIBUTES-TIMES2-ADD1 TIMES-DISTRIBUTES-REMAINDER) EVENT (PROVE-LEMMA CORRECTNESS-OF-CANCEL-EQUAL-TIMES ((META EQUAL)) (EQUAL (EVAL$ (QUOTE *1*TRUE) X A) (EVAL$ (QUOTE *1*TRUE) (CANCEL-EQUAL-TIMES X) A))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 ZEROP-MAKES-EQUAL-TRUE-BRIDGE . CORRECTNESS-OF-CANCEL-EQUAL-TIMES) (IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT2 . CORRECTNESS-OF-CANCEL-EQUAL-TIMES) (IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT1 . CORRECTNESS-OF-CANCEL-EQUAL-TIMES) (IMMEDIATE-DEPENDENTS0 EVAL$-EQUAL-TIMES-TREE-BAGDIFF . CORRECTNESS-OF-CANCEL-EQUAL-TIMES) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . CORRECTNESS-OF-CANCEL-EQUAL-TIMES) (IMMEDIATE-DEPENDENTS0 EVAL$-TIMES-FRINGE-MEMBER-ZERO . CORRECTNESS-OF-CANCEL-EQUAL-TIMES) (IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . CORRECTNESS-OF-CANCEL-EQUAL-TIMES) (IMMEDIATE-DEPENDENTS0 NUMBERP-EVAL$-TIMES . CORRECTNESS-OF-CANCEL-EQUAL-TIMES) (IMMEDIATE-DEPENDENTS0 TIMES-TREE-TIMES-FRINGE . CORRECTNESS-OF-CANCEL-EQUAL-TIMES) (IMMEDIATE-DEPENDENTS0 EQUAL-1-TIMES-TREE-DELETE . CORRECTNESS-OF-CANCEL-EQUAL-TIMES) (IMMEDIATE-DEPENDENTS0 CANCEL-EQUAL-TIMES . CORRECTNESS-OF-CANCEL-EQUAL-TIMES) (LEMMAS EQUAL . CORRECTNESS-OF-CANCEL-EQUAL-TIMES))))) (PUT1-LST (QUOTE *1*CANCEL-EQUAL-TIMES) (QUOTE (MAIN-EVENT CANCEL-EQUAL-TIMES))) (PUT1-LST (QUOTE CANCEL-EQUAL-TIMES) (QUOTE (TYPE-PRESCRIPTION-LST ((CANCEL-EQUAL-TIMES 16 T)) TOTALP-LST ((CANCEL-EQUAL-TIMES . T)) SDEFN (LAMBDA (X) (IF (EQUAL (CAR X) (QUOTE EQUAL)) (IF (EQUAL (CAR (CAR (CDR X))) (QUOTE TIMES)) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE TIMES)) (IF (LISTP (BAGINT (TIMES-FRINGE (CAR (CDR X))) (TIMES-FRINGE (CAR (CDR (CDR X)))))) (CONS (QUOTE IF) (CONS (AND-NOT-ZEROP-TREE (BAGINT (TIMES-FRINGE (CAR (CDR X))) (TIMES-FRINGE (CAR (CDR (CDR X)))))) (CONS (CONS (QUOTE EQUAL) (CONS (TIMES-TREE (BAGDIFF (TIMES-FRINGE (CAR (CDR X))) (BAGINT (TIMES-FRINGE (CAR (CDR X))) (TIMES-FRINGE (CAR (CDR (CDR X))))))) (CONS (TIMES-TREE (BAGDIFF (TIMES-FRINGE (CAR (CDR (CDR X)))) (BAGINT (TIMES-FRINGE (CAR (CDR X))) (TIMES-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (QUOTE ((TRUE)))))) X) (IF (LISTP (CAR (CDR X))) (IF (MEMBER (CAR (CDR (CDR X))) (TIMES-FRINGE (CAR (CDR X)))) (CONS (QUOTE AND) (CONS (CONS (QUOTE NUMBERP) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (CONS (CONS (QUOTE OR) (CONS (CONS (QUOTE EQUAL) (CONS (CAR (CDR (CDR X))) (QUOTE ((QUOTE 0))))) (CONS (CONS (QUOTE EQUAL) (CONS (TIMES-TREE (DELETE (CAR (CDR (CDR X))) (TIMES-FRINGE (CAR (CDR X))))) (QUOTE ((QUOTE 1))))) (QUOTE NIL)))) (QUOTE NIL)))) X) X)) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE TIMES)) (IF (MEMBER (CAR (CDR X)) (TIMES-FRINGE (CAR (CDR (CDR X))))) (CONS (QUOTE AND) (CONS (CONS (QUOTE NUMBERP) (CONS (CAR (CDR X)) (QUOTE NIL))) (CONS (CONS (QUOTE OR) (CONS (CONS (QUOTE EQUAL) (CONS (CAR (CDR X)) (QUOTE ((QUOTE 0))))) (CONS (CONS (QUOTE EQUAL) (CONS (TIMES-TREE (DELETE (CAR (CDR X)) (TIMES-FRINGE (CAR (CDR (CDR X)))))) (QUOTE ((QUOTE 1))))) (QUOTE NIL)))) (QUOTE NIL)))) X) X) X)) X)) LISP-CODE *1*CANCEL-EQUAL-TIMES SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402214756 SATELLITES (*1*CANCEL-EQUAL-TIMES) IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-EQUAL-TIMES) EVENT (DEFN CANCEL-EQUAL-TIMES (X) (IF (EQUAL (CAR X) (QUOTE EQUAL)) (IF (AND (EQUAL (CAR (CAR (CDR X))) (QUOTE TIMES)) (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE TIMES))) (IF (LISTP (BAGINT (TIMES-FRINGE (CAR (CDR X))) (TIMES-FRINGE (CAR (CDR (CDR X)))))) (CONS (QUOTE IF) (CONS (AND-NOT-ZEROP-TREE (BAGINT (TIMES-FRINGE (CAR (CDR X))) (TIMES-FRINGE (CAR (CDR (CDR X)))))) (CONS (CONS (QUOTE EQUAL) (CONS (TIMES-TREE (BAGDIFF (TIMES-FRINGE (CAR (CDR X))) (BAGINT (TIMES-FRINGE (CAR (CDR X))) (TIMES-FRINGE (CAR (CDR (CDR X))))))) (CONS (TIMES-TREE (BAGDIFF (TIMES-FRINGE (CAR (CDR (CDR X)))) (BAGINT (TIMES-FRINGE (CAR (CDR X))) (TIMES-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (QUOTE ((TRUE)))))) X) (IF (AND (LISTP (CAR (CDR X))) (AND (EQUAL (CAR (CAR (CDR X))) (QUOTE TIMES)) (MEMBER (CAR (CDR (CDR X))) (TIMES-FRINGE (CAR (CDR X)))))) (CONS (QUOTE AND) (CONS (CONS (QUOTE NUMBERP) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (CONS (CONS (QUOTE OR) (CONS (CONS (QUOTE EQUAL) (CONS (CAR (CDR (CDR X))) (QUOTE ((QUOTE 0))))) (CONS (CONS (QUOTE EQUAL) (CONS (TIMES-TREE (DELETE (CAR (CDR (CDR X))) (TIMES-FRINGE (CAR (CDR X))))) (QUOTE ((QUOTE 1))))) (QUOTE NIL)))) (QUOTE NIL)))) (IF (AND (LISTP (CAR (CDR (CDR X)))) (AND (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE TIMES)) (MEMBER (CAR (CDR X)) (TIMES-FRINGE (CAR (CDR (CDR X))))))) (CONS (QUOTE AND) (CONS (CONS (QUOTE NUMBERP) (CONS (CAR (CDR X)) (QUOTE NIL))) (CONS (CONS (QUOTE OR) (CONS (CONS (QUOTE EQUAL) (CONS (CAR (CDR X)) (QUOTE ((QUOTE 0))))) (CONS (CONS (QUOTE EQUAL) (CONS (TIMES-TREE (DELETE (CAR (CDR X)) (TIMES-FRINGE (CAR (CDR (CDR X)))))) (QUOTE ((QUOTE 1))))) (QUOTE NIL)))) (QUOTE NIL)))) X))) X)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE . CANCEL-EQUAL-TIMES) (IMMEDIATE-DEPENDENTS0 BAGDIFF . CANCEL-EQUAL-TIMES) (IMMEDIATE-DEPENDENTS0 TIMES-TREE . CANCEL-EQUAL-TIMES) (IMMEDIATE-DEPENDENTS0 AND-NOT-ZEROP-TREE . CANCEL-EQUAL-TIMES) (IMMEDIATE-DEPENDENTS0 TIMES-FRINGE . CANCEL-EQUAL-TIMES) (IMMEDIATE-DEPENDENTS0 BAGINT . CANCEL-EQUAL-TIMES) (DCELL . *1*CANCEL-EQUAL-TIMES))))) (PUT1-LST (QUOTE EQUAL-1-TIMES-TREE-DELETE) (QUOTE (IDATE 1000402214756 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-EQUAL-TIMES) EVENT (PROVE-LEMMA EQUAL-1-TIMES-TREE-DELETE (REWRITE) (IMPLIES (MEMBER W X) (EQUAL (EQUAL (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (DELETE W X)) A) (QUOTE 1)) (IF (ZEROP (EVAL$ (QUOTE *1*TRUE) W A)) (EQUAL-1-EVAL$-TIMES-TREE-DELETE-END W X A) (EQUAL (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE X) A) (EVAL$ (QUOTE *1*TRUE) W A)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-TIMES-MEMBER . EQUAL-1-TIMES-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-CANCEL0 . EQUAL-1-TIMES-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 EQUAL-1-EVAL$-TIMES-TREE-DELETE-END . EQUAL-1-TIMES-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 DELETE . EQUAL-1-TIMES-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 TIMES-TREE . EQUAL-1-TIMES-TREE-DELETE) (LEMMAS EQUAL . EQUAL-1-TIMES-TREE-DELETE))))) (PUT1-LST (QUOTE *1*EQUAL-1-EVAL$-TIMES-TREE-DELETE-END) (QUOTE (MAIN-EVENT EQUAL-1-EVAL$-TIMES-TREE-DELETE-END))) (PUT1-LST (QUOTE EQUAL-1-EVAL$-TIMES-TREE-DELETE-END) (QUOTE (TYPE-PRESCRIPTION-LST ((EQUAL-1-EVAL$-TIMES-TREE-DELETE-END 3 NIL NIL NIL)) TOTALP-LST ((EQUAL-1-EVAL$-TIMES-TREE-DELETE-END)) SDEFN (LAMBDA (W X A) (EQUAL (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (DELETE W X)) A) (QUOTE 1))) LISP-CODE *1*EQUAL-1-EVAL$-TIMES-TREE-DELETE-END SUBRP *1*FALSE LEVEL-NO 4 IDATE 1000402214756 SATELLITES (*1*EQUAL-1-EVAL$-TIMES-TREE-DELETE-END) IMMEDIATE-DEPENDENTS0 (EQUAL-1-TIMES-TREE-DELETE) EVENT (DEFN EQUAL-1-EVAL$-TIMES-TREE-DELETE-END (W X A) (EQUAL (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (DELETE W X)) A) (QUOTE 1))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE . EQUAL-1-EVAL$-TIMES-TREE-DELETE-END) (IMMEDIATE-DEPENDENTS0 TIMES-TREE . EQUAL-1-EVAL$-TIMES-TREE-DELETE-END) (DCELL . *1*EQUAL-1-EVAL$-TIMES-TREE-DELETE-END))))) (PUT1-LST (QUOTE ZEROP-MAKES-EQUAL-TRUE-BRIDGE) (QUOTE (IDATE 1000402214756 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-EQUAL-TIMES) EVENT (PROVE-LEMMA ZEROP-MAKES-EQUAL-TRUE-BRIDGE (REWRITE) (IMPLIES (NOT (EVAL$ (QUOTE *1*TRUE) (AND-NOT-ZEROP-TREE (BAGINT (TIMES-FRINGE (CONS (QUOTE TIMES) X)) (TIMES-FRINGE (CONS (QUOTE TIMES) Y)))) A)) (EQUAL (EQUAL (TIMES (EVAL$ (QUOTE *1*TRUE) (CAR X) A) (EVAL$ (QUOTE *1*TRUE) (CAR (CDR X)) A)) (TIMES (EVAL$ (QUOTE *1*TRUE) (CAR Y) A) (EVAL$ (QUOTE *1*TRUE) (CAR (CDR Y)) A))) (QUOTE *1*TRUE))) ((USE (ZEROP-MAKES-TIMES-TREE-ZERO (X (BAGINT (TIMES-FRINGE (CONS (QUOTE TIMES) X)) (TIMES-FRINGE (CONS (QUOTE TIMES) Y)))) (Y (TIMES-FRINGE (CONS (QUOTE TIMES) X)))) (ZEROP-MAKES-TIMES-TREE-ZERO (X (BAGINT (TIMES-FRINGE (CONS (QUOTE TIMES) X)) (TIMES-FRINGE (CONS (QUOTE TIMES) Y)))) (Y (TIMES-FRINGE (CONS (QUOTE TIMES) Y))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT1 . ZEROP-MAKES-EQUAL-TRUE-BRIDGE) (IMMEDIATE-DEPENDENTS0 TIMES-TREE-TIMES-FRINGE . ZEROP-MAKES-EQUAL-TRUE-BRIDGE) (IMMEDIATE-DEPENDENTS0 EVAL$-TIMES-TREE-APPEND . ZEROP-MAKES-EQUAL-TRUE-BRIDGE) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . ZEROP-MAKES-EQUAL-TRUE-BRIDGE) (IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT2 . ZEROP-MAKES-EQUAL-TRUE-BRIDGE) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . ZEROP-MAKES-EQUAL-TRUE-BRIDGE) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . ZEROP-MAKES-EQUAL-TRUE-BRIDGE) (IMMEDIATE-DEPENDENTS0 ZEROP-MAKES-TIMES-TREE-ZERO . ZEROP-MAKES-EQUAL-TRUE-BRIDGE) (IMMEDIATE-DEPENDENTS0 TIMES-FRINGE . ZEROP-MAKES-EQUAL-TRUE-BRIDGE) (IMMEDIATE-DEPENDENTS0 BAGINT . ZEROP-MAKES-EQUAL-TRUE-BRIDGE) (IMMEDIATE-DEPENDENTS0 AND-NOT-ZEROP-TREE . ZEROP-MAKES-EQUAL-TRUE-BRIDGE) (LEMMAS EQUAL . ZEROP-MAKES-EQUAL-TRUE-BRIDGE))))) (PUT1-LST (QUOTE EVAL$-EQUAL-TIMES-TREE-BAGDIFF) (QUOTE (IDATE 1000402214756 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-EQUAL-TIMES) EVENT (PROVE-LEMMA EVAL$-EQUAL-TIMES-TREE-BAGDIFF (REWRITE) (IMPLIES (AND (EVAL$ (QUOTE *1*TRUE) (AND-NOT-ZEROP-TREE X) A) (AND (SUBBAGP X Y) (SUBBAGP X Z))) (EQUAL (EQUAL (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (BAGDIFF Y X)) A) (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (BAGDIFF Z X)) A)) (EQUAL (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE Y) A) (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE Z) A))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-TIMES-MEMBER . EVAL$-EQUAL-TIMES-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 EVAL$-TIMES-TREE-NUMBERP . EVAL$-EQUAL-TIMES-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-CANCEL . EVAL$-EQUAL-TIMES-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 SUBBAGP-CDR2 . EVAL$-EQUAL-TIMES-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 BAGDIFF . EVAL$-EQUAL-TIMES-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 TIMES-TREE . EVAL$-EQUAL-TIMES-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 SUBBAGP . EVAL$-EQUAL-TIMES-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 AND-NOT-ZEROP-TREE . EVAL$-EQUAL-TIMES-TREE-BAGDIFF) (LEMMAS EQUAL . EVAL$-EQUAL-TIMES-TREE-BAGDIFF))))) (PUT1-LST (QUOTE LESSP-1-TIMES-TREE-DELETE-OFF) (QUOTE (IDATE 1000402214755 EVENT (TOGGLE LESSP-1-TIMES-TREE-DELETE-OFF LESSP-1-TIMES-TREE-DELETE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-1-TIMES-TREE-DELETE . LESSP-1-TIMES-TREE-DELETE-OFF) (DISABLED-LEMMAS NIL LESSP-1-TIMES-TREE-DELETE LESSP-1-TIMES-TREE-DELETE-OFF . T))))) (PUT1-LST (QUOTE AND-NOT-ZEROP-TREE-DELETE-OFF) (QUOTE (IDATE 1000402214755 EVENT (TOGGLE AND-NOT-ZEROP-TREE-DELETE-OFF AND-NOT-ZEROP-TREE-DELETE T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 AND-NOT-ZEROP-TREE-DELETE . AND-NOT-ZEROP-TREE-DELETE-OFF) (DISABLED-LEMMAS NIL AND-NOT-ZEROP-TREE-DELETE AND-NOT-ZEROP-TREE-DELETE-OFF . T))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-LESSP-TIMES) (QUOTE (IDATE 1000402214755 IMMEDIATE-DEPENDENTS0 (LOG-TIMES-EXP-1 LOG-TIMES-EXP LOG-EXP LESSP-PLUS-TIMES-EXP2 QUOTIENT-CROCK REMAINDER-CROCK QUOTIENT-TIMES TIMES-EXP2-LESSP EXP-LESSP) EVENT (PROVE-LEMMA CORRECTNESS-OF-CANCEL-LESSP-TIMES ((META LESSP)) (EQUAL (EVAL$ (QUOTE *1*TRUE) X A) (EVAL$ (QUOTE *1*TRUE) (CANCEL-LESSP-TIMES X) A))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 AND-NOT-ZEROP-TREE-DELETE . CORRECTNESS-OF-CANCEL-LESSP-TIMES) (IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT2 . CORRECTNESS-OF-CANCEL-LESSP-TIMES) (IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT1 . CORRECTNESS-OF-CANCEL-LESSP-TIMES) (IMMEDIATE-DEPENDENTS0 EVAL$-LESSP-TIMES-TREE-BAGDIFF . CORRECTNESS-OF-CANCEL-LESSP-TIMES) (IMMEDIATE-DEPENDENTS0 ZEROP-MAKES-LESSP-FALSE-BRIDGE . CORRECTNESS-OF-CANCEL-LESSP-TIMES) (IMMEDIATE-DEPENDENTS0 EVAL$-TIMES-FRINGE-MEMBER-ZERO . CORRECTNESS-OF-CANCEL-LESSP-TIMES) (IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . CORRECTNESS-OF-CANCEL-LESSP-TIMES) (IMMEDIATE-DEPENDENTS0 NUMBERP-EVAL$-TIMES . CORRECTNESS-OF-CANCEL-LESSP-TIMES) (IMMEDIATE-DEPENDENTS0 TIMES-TREE-TIMES-FRINGE . CORRECTNESS-OF-CANCEL-LESSP-TIMES) (IMMEDIATE-DEPENDENTS0 LESSP-1-TIMES-TREE-DELETE . CORRECTNESS-OF-CANCEL-LESSP-TIMES) (IMMEDIATE-DEPENDENTS0 CANCEL-LESSP-TIMES . CORRECTNESS-OF-CANCEL-LESSP-TIMES) (LEMMAS LESSP . CORRECTNESS-OF-CANCEL-LESSP-TIMES))))) (PUT1-LST (QUOTE *1*CANCEL-LESSP-TIMES) (QUOTE (MAIN-EVENT CANCEL-LESSP-TIMES))) (PUT1-LST (QUOTE CANCEL-LESSP-TIMES) (QUOTE (TYPE-PRESCRIPTION-LST ((CANCEL-LESSP-TIMES 16 T)) TOTALP-LST ((CANCEL-LESSP-TIMES . T)) SDEFN (LAMBDA (X) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE LESSP)) (IF (EQUAL (CAR (CAR (CDR X))) (QUOTE TIMES)) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE TIMES)) (IF (LISTP (BAGINT (TIMES-FRINGE (CAR (CDR X))) (TIMES-FRINGE (CAR (CDR (CDR X)))))) (CONS (QUOTE AND) (CONS (AND-NOT-ZEROP-TREE (BAGINT (TIMES-FRINGE (CAR (CDR X))) (TIMES-FRINGE (CAR (CDR (CDR X)))))) (CONS (CONS (QUOTE LESSP) (CONS (TIMES-TREE (BAGDIFF (TIMES-FRINGE (CAR (CDR X))) (BAGINT (TIMES-FRINGE (CAR (CDR X))) (TIMES-FRINGE (CAR (CDR (CDR X))))))) (CONS (TIMES-TREE (BAGDIFF (TIMES-FRINGE (CAR (CDR (CDR X)))) (BAGINT (TIMES-FRINGE (CAR (CDR X))) (TIMES-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (QUOTE NIL)))) X) (IF (LISTP (CAR (CDR X))) (IF (MEMBER (CAR (CDR (CDR X))) (TIMES-FRINGE (CAR (CDR X)))) (CONS (QUOTE AND) (CONS (CONS (QUOTE NOT) (CONS (CONS (QUOTE ZEROP) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (QUOTE NIL))) (CONS (CONS (QUOTE NOT) (CONS (AND-NOT-ZEROP-TREE (DELETE (CAR (CDR (CDR X))) (TIMES-FRINGE (CAR (CDR X))))) (QUOTE NIL))) (QUOTE NIL)))) X) X)) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE TIMES)) (IF (MEMBER (CAR (CDR X)) (TIMES-FRINGE (CAR (CDR (CDR X))))) (CONS (QUOTE AND) (CONS (CONS (QUOTE NOT) (CONS (CONS (QUOTE ZEROP) (CONS (CAR (CDR X)) (QUOTE NIL))) (QUOTE NIL))) (CONS (CONS (QUOTE LESSP) (CONS (QUOTE (QUOTE 1)) (CONS (TIMES-TREE (DELETE (CAR (CDR X)) (TIMES-FRINGE (CAR (CDR (CDR X)))))) (QUOTE NIL)))) (QUOTE NIL)))) X) X) X)) X) X)) LISP-CODE *1*CANCEL-LESSP-TIMES SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402214753 SATELLITES (*1*CANCEL-LESSP-TIMES) IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-LESSP-TIMES) EVENT (DEFN CANCEL-LESSP-TIMES (X) (IF (AND (LISTP X) (EQUAL (CAR X) (QUOTE LESSP))) (IF (AND (EQUAL (CAR (CAR (CDR X))) (QUOTE TIMES)) (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE TIMES))) (IF (LISTP (BAGINT (TIMES-FRINGE (CAR (CDR X))) (TIMES-FRINGE (CAR (CDR (CDR X)))))) (CONS (QUOTE AND) (CONS (AND-NOT-ZEROP-TREE (BAGINT (TIMES-FRINGE (CAR (CDR X))) (TIMES-FRINGE (CAR (CDR (CDR X)))))) (CONS (CONS (QUOTE LESSP) (CONS (TIMES-TREE (BAGDIFF (TIMES-FRINGE (CAR (CDR X))) (BAGINT (TIMES-FRINGE (CAR (CDR X))) (TIMES-FRINGE (CAR (CDR (CDR X))))))) (CONS (TIMES-TREE (BAGDIFF (TIMES-FRINGE (CAR (CDR (CDR X)))) (BAGINT (TIMES-FRINGE (CAR (CDR X))) (TIMES-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (QUOTE NIL)))) X) (IF (AND (LISTP (CAR (CDR X))) (AND (EQUAL (CAR (CAR (CDR X))) (QUOTE TIMES)) (MEMBER (CAR (CDR (CDR X))) (TIMES-FRINGE (CAR (CDR X)))))) (CONS (QUOTE AND) (CONS (CONS (QUOTE NOT) (CONS (CONS (QUOTE ZEROP) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (QUOTE NIL))) (CONS (CONS (QUOTE NOT) (CONS (AND-NOT-ZEROP-TREE (DELETE (CAR (CDR (CDR X))) (TIMES-FRINGE (CAR (CDR X))))) (QUOTE NIL))) (QUOTE NIL)))) (IF (AND (LISTP (CAR (CDR (CDR X)))) (AND (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE TIMES)) (MEMBER (CAR (CDR X)) (TIMES-FRINGE (CAR (CDR (CDR X))))))) (CONS (QUOTE AND) (CONS (CONS (QUOTE NOT) (CONS (CONS (QUOTE ZEROP) (CONS (CAR (CDR X)) (QUOTE NIL))) (QUOTE NIL))) (CONS (CONS (QUOTE LESSP) (CONS (QUOTE (QUOTE 1)) (CONS (TIMES-TREE (DELETE (CAR (CDR X)) (TIMES-FRINGE (CAR (CDR (CDR X)))))) (QUOTE NIL)))) (QUOTE NIL)))) X))) X)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE . CANCEL-LESSP-TIMES) (IMMEDIATE-DEPENDENTS0 BAGDIFF . CANCEL-LESSP-TIMES) (IMMEDIATE-DEPENDENTS0 TIMES-TREE . CANCEL-LESSP-TIMES) (IMMEDIATE-DEPENDENTS0 AND-NOT-ZEROP-TREE . CANCEL-LESSP-TIMES) (IMMEDIATE-DEPENDENTS0 TIMES-FRINGE . CANCEL-LESSP-TIMES) (IMMEDIATE-DEPENDENTS0 BAGINT . CANCEL-LESSP-TIMES) (DCELL . *1*CANCEL-LESSP-TIMES))))) (PUT1-LST (QUOTE EVAL$-TIMES-FRINGE-MEMBER-ZERO) (QUOTE (IDATE 1000402214753 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-EQUAL-TIMES CORRECTNESS-OF-CANCEL-LESSP-TIMES) EVENT (PROVE-LEMMA EVAL$-TIMES-FRINGE-MEMBER-ZERO (REWRITE) (IMPLIES (AND (MEMBER E (TIMES-FRINGE (CONS (QUOTE TIMES) X))) (ZEROP (EVAL$ (QUOTE *1*TRUE) E A))) (EQUAL (TIMES (EVAL$ (QUOTE *1*TRUE) (CAR X) A) (EVAL$ (QUOTE *1*TRUE) (CAR (CDR X)) A)) (QUOTE 0))) ((USE (EVAL$-TIMES-MEMBER (X (TIMES-FRINGE (CONS (QUOTE TIMES) X))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-TIMES-TREE-NUMBERP . EVAL$-TIMES-FRINGE-MEMBER-ZERO) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . EVAL$-TIMES-FRINGE-MEMBER-ZERO) (IMMEDIATE-DEPENDENTS0 TIMES-TREE-TIMES-FRINGE . EVAL$-TIMES-FRINGE-MEMBER-ZERO) (IMMEDIATE-DEPENDENTS0 EVAL$-TIMES-TREE-APPEND . EVAL$-TIMES-FRINGE-MEMBER-ZERO) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . EVAL$-TIMES-FRINGE-MEMBER-ZERO) (IMMEDIATE-DEPENDENTS0 EVAL$-TIMES-MEMBER . EVAL$-TIMES-FRINGE-MEMBER-ZERO) (IMMEDIATE-DEPENDENTS0 TIMES-FRINGE . EVAL$-TIMES-FRINGE-MEMBER-ZERO) (LEMMAS TIMES . EVAL$-TIMES-FRINGE-MEMBER-ZERO))))) (PUT1-LST (QUOTE LESSP-1-TIMES-TREE-DELETE) (QUOTE (IDATE 1000402214753 IMMEDIATE-DEPENDENTS0 (LESSP-1-TIMES-TREE-DELETE-OFF CORRECTNESS-OF-CANCEL-LESSP-TIMES) EVENT (PROVE-LEMMA LESSP-1-TIMES-TREE-DELETE (REWRITE) (IMPLIES (MEMBER W X) (EQUAL (LESSP (QUOTE 1) (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (DELETE W X)) A)) (IF (ZEROP (EVAL$ (QUOTE *1*TRUE) W A)) (LESSP-1-TIMES-TREE-DELETE-END W X A) (LESSP (EVAL$ (QUOTE *1*TRUE) W A) (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE X) A)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-TIMES-MEMBER . LESSP-1-TIMES-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 EVAL$-TIMES-TREE-NUMBERP . LESSP-1-TIMES-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP-CANCEL0 . LESSP-1-TIMES-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 LESSP-1-TIMES-TREE-DELETE-END . LESSP-1-TIMES-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 DELETE . LESSP-1-TIMES-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 TIMES-TREE . LESSP-1-TIMES-TREE-DELETE) (LEMMAS LESSP . LESSP-1-TIMES-TREE-DELETE))))) (PUT1-LST (QUOTE *1*LESSP-1-TIMES-TREE-DELETE-END) (QUOTE (MAIN-EVENT LESSP-1-TIMES-TREE-DELETE-END))) (PUT1-LST (QUOTE LESSP-1-TIMES-TREE-DELETE-END) (QUOTE (TYPE-PRESCRIPTION-LST ((LESSP-1-TIMES-TREE-DELETE-END 3 NIL NIL NIL)) TOTALP-LST ((LESSP-1-TIMES-TREE-DELETE-END)) SDEFN (LAMBDA (W X A) (LESSP (QUOTE 1) (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (DELETE W X)) A))) LISP-CODE *1*LESSP-1-TIMES-TREE-DELETE-END SUBRP *1*FALSE LEVEL-NO 4 IDATE 1000402214753 SATELLITES (*1*LESSP-1-TIMES-TREE-DELETE-END) IMMEDIATE-DEPENDENTS0 (LESSP-1-TIMES-TREE-DELETE) EVENT (DEFN LESSP-1-TIMES-TREE-DELETE-END (W X A) (LESSP (QUOTE 1) (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (DELETE W X)) A))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE . LESSP-1-TIMES-TREE-DELETE-END) (IMMEDIATE-DEPENDENTS0 TIMES-TREE . LESSP-1-TIMES-TREE-DELETE-END) (DCELL . *1*LESSP-1-TIMES-TREE-DELETE-END))))) (PUT1-LST (QUOTE AND-NOT-ZEROP-TREE-LESSP-OFF) (QUOTE (IDATE 1000402214753 EVENT (TOGGLE AND-NOT-ZEROP-TREE-LESSP-OFF AND-NOT-ZEROP-TREE-LESSP T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 AND-NOT-ZEROP-TREE-LESSP . AND-NOT-ZEROP-TREE-LESSP-OFF) (DISABLED-LEMMAS NIL AND-NOT-ZEROP-TREE-LESSP AND-NOT-ZEROP-TREE-LESSP-OFF . T))))) (PUT1-LST (QUOTE AND-NOT-ZEROP-TREE-DELETE) (QUOTE (IDATE 1000402214753 IMMEDIATE-DEPENDENTS0 (AND-NOT-ZEROP-TREE-DELETE-OFF CORRECTNESS-OF-CANCEL-LESSP-TIMES) EVENT (PROVE-LEMMA AND-NOT-ZEROP-TREE-DELETE (REWRITE) (IMPLIES (MEMBER W X) (EQUAL (EVAL$ (QUOTE *1*TRUE) (AND-NOT-ZEROP-TREE (DELETE W X)) A) (IF (ZEROP (EVAL$ (QUOTE *1*TRUE) W A)) (EVAL$-AND-NOT-ZEROP-TREE-END W X A) (NOT (LESSP (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE X) A) (EVAL$ (QUOTE *1*TRUE) W A))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-TIMES-TREE-NUMBERP . AND-NOT-ZEROP-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . AND-NOT-ZEROP-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 AND-NOT-ZEROP-TREE-LESSP . AND-NOT-ZEROP-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 EVAL$-TIMES-MEMBER . AND-NOT-ZEROP-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP-CANCEL0 . AND-NOT-ZEROP-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 TIMES-TREE . AND-NOT-ZEROP-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 EVAL$-AND-NOT-ZEROP-TREE-END . AND-NOT-ZEROP-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 DELETE . AND-NOT-ZEROP-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 AND-NOT-ZEROP-TREE . AND-NOT-ZEROP-TREE-DELETE) (LEMMAS EVAL$ . AND-NOT-ZEROP-TREE-DELETE))))) (PUT1-LST (QUOTE *1*EVAL$-AND-NOT-ZEROP-TREE-END) (QUOTE (MAIN-EVENT EVAL$-AND-NOT-ZEROP-TREE-END))) (PUT1-LST (QUOTE EVAL$-AND-NOT-ZEROP-TREE-END) (QUOTE (TYPE-PRESCRIPTION-LST ((EVAL$-AND-NOT-ZEROP-TREE-END -1 NIL NIL NIL)) TOTALP-LST ((EVAL$-AND-NOT-ZEROP-TREE-END)) SDEFN (LAMBDA (W X A) (EVAL$ (QUOTE *1*TRUE) (AND-NOT-ZEROP-TREE (DELETE W X)) A)) LISP-CODE *1*EVAL$-AND-NOT-ZEROP-TREE-END SUBRP *1*FALSE LEVEL-NO 4 IDATE 1000402214753 SATELLITES (*1*EVAL$-AND-NOT-ZEROP-TREE-END) IMMEDIATE-DEPENDENTS0 (AND-NOT-ZEROP-TREE-DELETE) EVENT (DEFN EVAL$-AND-NOT-ZEROP-TREE-END (W X A) (EVAL$ (QUOTE *1*TRUE) (AND-NOT-ZEROP-TREE (DELETE W X)) A)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE . EVAL$-AND-NOT-ZEROP-TREE-END) (IMMEDIATE-DEPENDENTS0 AND-NOT-ZEROP-TREE . EVAL$-AND-NOT-ZEROP-TREE-END) (DCELL . *1*EVAL$-AND-NOT-ZEROP-TREE-END))))) (PUT1-LST (QUOTE AND-NOT-ZEROP-TREE-LESSP) (QUOTE (IDATE 1000402214753 IMMEDIATE-DEPENDENTS0 (AND-NOT-ZEROP-TREE-LESSP-OFF AND-NOT-ZEROP-TREE-DELETE) EVENT (PROVE-LEMMA AND-NOT-ZEROP-TREE-LESSP (REWRITE) (EQUAL (EVAL$ (QUOTE *1*TRUE) (AND-NOT-ZEROP-TREE X) A) (NOT (LESSP (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE X) A) (QUOTE 1))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ZERO . AND-NOT-ZEROP-TREE-LESSP) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . AND-NOT-ZEROP-TREE-LESSP) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . AND-NOT-ZEROP-TREE-LESSP) (IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . AND-NOT-ZEROP-TREE-LESSP) (IMMEDIATE-DEPENDENTS0 EVAL$-TIMES-TREE-NUMBERP . AND-NOT-ZEROP-TREE-LESSP) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . AND-NOT-ZEROP-TREE-LESSP) (IMMEDIATE-DEPENDENTS0 TIMES-TREE . AND-NOT-ZEROP-TREE-LESSP) (IMMEDIATE-DEPENDENTS0 AND-NOT-ZEROP-TREE . AND-NOT-ZEROP-TREE-LESSP) (LEMMAS EVAL$ . AND-NOT-ZEROP-TREE-LESSP))))) (PUT1-LST (QUOTE ZEROP-MAKES-LESSP-FALSE-BRIDGE) (QUOTE (IDATE 1000402214753 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-LESSP-TIMES) EVENT (PROVE-LEMMA ZEROP-MAKES-LESSP-FALSE-BRIDGE (REWRITE) (IMPLIES (NOT (EVAL$ (QUOTE *1*TRUE) (AND-NOT-ZEROP-TREE (BAGINT (TIMES-FRINGE (CONS (QUOTE TIMES) X)) (TIMES-FRINGE (CONS (QUOTE TIMES) Y)))) A)) (EQUAL (LESSP (TIMES (EVAL$ (QUOTE *1*TRUE) (CAR X) A) (EVAL$ (QUOTE *1*TRUE) (CAR (CDR X)) A)) (TIMES (EVAL$ (QUOTE *1*TRUE) (CAR Y) A) (EVAL$ (QUOTE *1*TRUE) (CAR (CDR Y)) A))) (QUOTE *1*FALSE))) ((USE (ZEROP-MAKES-TIMES-TREE-ZERO (X (BAGINT (TIMES-FRINGE (CONS (QUOTE TIMES) X)) (TIMES-FRINGE (CONS (QUOTE TIMES) Y)))) (Y (TIMES-FRINGE (CONS (QUOTE TIMES) X)))) (ZEROP-MAKES-TIMES-TREE-ZERO (X (BAGINT (TIMES-FRINGE (CONS (QUOTE TIMES) X)) (TIMES-FRINGE (CONS (QUOTE TIMES) Y)))) (Y (TIMES-FRINGE (CONS (QUOTE TIMES) Y))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT1 . ZEROP-MAKES-LESSP-FALSE-BRIDGE) (IMMEDIATE-DEPENDENTS0 TIMES-TREE-TIMES-FRINGE . ZEROP-MAKES-LESSP-FALSE-BRIDGE) (IMMEDIATE-DEPENDENTS0 EVAL$-TIMES-TREE-APPEND . ZEROP-MAKES-LESSP-FALSE-BRIDGE) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . ZEROP-MAKES-LESSP-FALSE-BRIDGE) (IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT2 . ZEROP-MAKES-LESSP-FALSE-BRIDGE) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . ZEROP-MAKES-LESSP-FALSE-BRIDGE) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . ZEROP-MAKES-LESSP-FALSE-BRIDGE) (IMMEDIATE-DEPENDENTS0 ZEROP-MAKES-TIMES-TREE-ZERO . ZEROP-MAKES-LESSP-FALSE-BRIDGE) (IMMEDIATE-DEPENDENTS0 TIMES-FRINGE . ZEROP-MAKES-LESSP-FALSE-BRIDGE) (IMMEDIATE-DEPENDENTS0 BAGINT . ZEROP-MAKES-LESSP-FALSE-BRIDGE) (IMMEDIATE-DEPENDENTS0 AND-NOT-ZEROP-TREE . ZEROP-MAKES-LESSP-FALSE-BRIDGE) (LEMMAS LESSP . ZEROP-MAKES-LESSP-FALSE-BRIDGE))))) (PUT1-LST (QUOTE EVAL$-LESSP-TIMES-TREE-BAGDIFF) (QUOTE (IDATE 1000402214753 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-LESSP-TIMES) EVENT (PROVE-LEMMA EVAL$-LESSP-TIMES-TREE-BAGDIFF (REWRITE) (IMPLIES (AND (EVAL$ (QUOTE *1*TRUE) (AND-NOT-ZEROP-TREE X) A) (AND (SUBBAGP X Y) (SUBBAGP X Z))) (EQUAL (LESSP (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (BAGDIFF Y X)) A) (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (BAGDIFF Z X)) A)) (LESSP (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE Y) A) (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE Z) A))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-TIMES-MEMBER . EVAL$-LESSP-TIMES-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 TIMES-LESSP-CANCEL . EVAL$-LESSP-TIMES-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 SUBBAGP-CDR2 . EVAL$-LESSP-TIMES-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 BAGDIFF . EVAL$-LESSP-TIMES-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 TIMES-TREE . EVAL$-LESSP-TIMES-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 SUBBAGP . EVAL$-LESSP-TIMES-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 AND-NOT-ZEROP-TREE . EVAL$-LESSP-TIMES-TREE-BAGDIFF) (LEMMAS LESSP . EVAL$-LESSP-TIMES-TREE-BAGDIFF))))) (PUT1-LST (QUOTE TIMES-TREE-TIMES-FRINGE) (QUOTE (IDATE 1000402214752 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-EQUAL-TIMES ZEROP-MAKES-EQUAL-TRUE-BRIDGE CORRECTNESS-OF-CANCEL-LESSP-TIMES EVAL$-TIMES-FRINGE-MEMBER-ZERO ZEROP-MAKES-LESSP-FALSE-BRIDGE) EVENT (PROVE-LEMMA TIMES-TREE-TIMES-FRINGE (REWRITE) (EQUAL (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (TIMES-FRINGE X)) A) (FIX (EVAL$ (QUOTE *1*TRUE) X A))) ((INDUCT (TIMES-FRINGE X)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-TIMES-TREE-APPEND . TIMES-TREE-TIMES-FRINGE) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . TIMES-TREE-TIMES-FRINGE) (IMMEDIATE-DEPENDENTS0 CADR-EVAL$-LIST . TIMES-TREE-TIMES-FRINGE) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . TIMES-TREE-TIMES-FRINGE) (IMMEDIATE-DEPENDENTS0 NUMBERP-EVAL$-TIMES . TIMES-TREE-TIMES-FRINGE) (IMMEDIATE-DEPENDENTS0 TIMES-FRINGE . TIMES-TREE-TIMES-FRINGE) (IMMEDIATE-DEPENDENTS0 TIMES-TREE . TIMES-TREE-TIMES-FRINGE) (LEMMAS EVAL$ . TIMES-TREE-TIMES-FRINGE))))) (PUT1-LST (QUOTE EVAL$-TIMES-TREE-APPEND) (QUOTE (IDATE 1000402214752 IMMEDIATE-DEPENDENTS0 (ZEROP-MAKES-EQUAL-TRUE-BRIDGE EVAL$-TIMES-FRINGE-MEMBER-ZERO ZEROP-MAKES-LESSP-FALSE-BRIDGE TIMES-TREE-TIMES-FRINGE) EVENT (PROVE-LEMMA EVAL$-TIMES-TREE-APPEND (REWRITE) (EQUAL (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (APPEND X Y)) A) (TIMES (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE X) A) (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE Y) A)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-CANCEL0 . EVAL$-TIMES-TREE-APPEND) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY1 . EVAL$-TIMES-TREE-APPEND) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . EVAL$-TIMES-TREE-APPEND) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-CANCEL . EVAL$-TIMES-TREE-APPEND) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . EVAL$-TIMES-TREE-APPEND) (IMMEDIATE-DEPENDENTS0 EVAL$-TIMES-TREE-NUMBERP . EVAL$-TIMES-TREE-APPEND) (IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . EVAL$-TIMES-TREE-APPEND) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-1 . EVAL$-TIMES-TREE-APPEND) (IMMEDIATE-DEPENDENTS0 TIMES-1 . EVAL$-TIMES-TREE-APPEND) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . EVAL$-TIMES-TREE-APPEND) (IMMEDIATE-DEPENDENTS0 TIMES-TREE . EVAL$-TIMES-TREE-APPEND) (LEMMAS EVAL$ . EVAL$-TIMES-TREE-APPEND))))) (PUT1-LST (QUOTE ZEROP-MAKES-TIMES-TREE-ZERO) (QUOTE (IDATE 1000402214751 IMMEDIATE-DEPENDENTS0 (ZEROP-MAKES-EQUAL-TRUE-BRIDGE ZEROP-MAKES-LESSP-FALSE-BRIDGE) EVENT (PROVE-LEMMA ZEROP-MAKES-TIMES-TREE-ZERO (REWRITE) (IMPLIES (AND (NOT (EVAL$ (QUOTE *1*TRUE) (AND-NOT-ZEROP-TREE X) A)) (SUBBAGP X Y)) (EQUAL (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE Y) A) (QUOTE 0)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . ZEROP-MAKES-TIMES-TREE-ZERO) (IMMEDIATE-DEPENDENTS0 EVAL$-TIMES-TREE-NUMBERP . ZEROP-MAKES-TIMES-TREE-ZERO) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . ZEROP-MAKES-TIMES-TREE-ZERO) (IMMEDIATE-DEPENDENTS0 EVAL$-TIMES-MEMBER . ZEROP-MAKES-TIMES-TREE-ZERO) (IMMEDIATE-DEPENDENTS0 TIMES-TREE . ZEROP-MAKES-TIMES-TREE-ZERO) (IMMEDIATE-DEPENDENTS0 SUBBAGP . ZEROP-MAKES-TIMES-TREE-ZERO) (IMMEDIATE-DEPENDENTS0 AND-NOT-ZEROP-TREE . ZEROP-MAKES-TIMES-TREE-ZERO) (LEMMAS EVAL$ . ZEROP-MAKES-TIMES-TREE-ZERO))))) (PUT1-LST (QUOTE EVAL$-TIMES-MEMBER) (QUOTE (IDATE 1000402214751 IMMEDIATE-DEPENDENTS0 (EQUAL-1-TIMES-TREE-DELETE EVAL$-EQUAL-TIMES-TREE-BAGDIFF EVAL$-TIMES-FRINGE-MEMBER-ZERO LESSP-1-TIMES-TREE-DELETE AND-NOT-ZEROP-TREE-DELETE EVAL$-LESSP-TIMES-TREE-BAGDIFF ZEROP-MAKES-TIMES-TREE-ZERO) EVENT (PROVE-LEMMA EVAL$-TIMES-MEMBER (REWRITE) (IMPLIES (MEMBER E X) (EQUAL (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE X) A) (TIMES (EVAL$ (QUOTE *1*TRUE) E A) (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (DELETE E X)) A))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY1 . EVAL$-TIMES-MEMBER) (IMMEDIATE-DEPENDENTS0 DELETE-NON-MEMBER . EVAL$-TIMES-MEMBER) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . EVAL$-TIMES-MEMBER) (IMMEDIATE-DEPENDENTS0 TIMES-1 . EVAL$-TIMES-MEMBER) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . EVAL$-TIMES-MEMBER) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-CANCEL . EVAL$-TIMES-MEMBER) (IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . EVAL$-TIMES-MEMBER) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-CANCEL0 . EVAL$-TIMES-MEMBER) (IMMEDIATE-DEPENDENTS0 EVAL$-TIMES-TREE-NUMBERP . EVAL$-TIMES-MEMBER) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . EVAL$-TIMES-MEMBER) (IMMEDIATE-DEPENDENTS0 DELETE . EVAL$-TIMES-MEMBER) (IMMEDIATE-DEPENDENTS0 TIMES-TREE . EVAL$-TIMES-MEMBER) (LEMMAS EVAL$ . EVAL$-TIMES-MEMBER))))) (PUT1-LST (QUOTE EVAL$-TIMES-TREE-NUMBERP) (QUOTE (IDATE 1000402214748 IMMEDIATE-DEPENDENTS0 (EVAL$-EQUAL-TIMES-TREE-BAGDIFF EVAL$-TIMES-FRINGE-MEMBER-ZERO LESSP-1-TIMES-TREE-DELETE AND-NOT-ZEROP-TREE-DELETE AND-NOT-ZEROP-TREE-LESSP EVAL$-TIMES-TREE-APPEND ZEROP-MAKES-TIMES-TREE-ZERO EVAL$-TIMES-MEMBER) EVENT (PROVE-LEMMA EVAL$-TIMES-TREE-NUMBERP (REWRITE) (NUMBERP (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE X) A))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . EVAL$-TIMES-TREE-NUMBERP) (IMMEDIATE-DEPENDENTS0 TIMES-TREE . EVAL$-TIMES-TREE-NUMBERP) (LEMMAS NUMBERP . EVAL$-TIMES-TREE-NUMBERP))))) (PUT1-LST (QUOTE NUMBERP-EVAL$-TIMES) (QUOTE (IDATE 1000402214748 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-EQUAL-TIMES CORRECTNESS-OF-CANCEL-LESSP-TIMES TIMES-TREE-TIMES-FRINGE) EVENT (PROVE-LEMMA NUMBERP-EVAL$-TIMES (REWRITE) (IMPLIES (EQUAL (CAR X) (QUOTE TIMES)) (NUMBERP (EVAL$ (QUOTE *1*TRUE) X A)))) LOCAL-UNDO-TUPLES ((LEMMAS NUMBERP . NUMBERP-EVAL$-TIMES))))) (PUT1-LST (QUOTE *1*AND-NOT-ZEROP-TREE) (QUOTE (MAIN-EVENT AND-NOT-ZEROP-TREE))) (PUT1-LST (QUOTE AND-NOT-ZEROP-TREE) (QUOTE (TYPE-PRESCRIPTION-LST ((AND-NOT-ZEROP-TREE 16 NIL)) TOTALP-LST ((AND-NOT-ZEROP-TREE . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (X) (IF (LISTP X) (IF (LISTP (CDR X)) (CONS (QUOTE AND) (CONS (CONS (QUOTE NOT) (CONS (CONS (QUOTE ZEROP) (CONS (CAR X) (QUOTE NIL))) (QUOTE NIL))) (CONS (AND-NOT-ZEROP-TREE (CDR X)) (QUOTE NIL)))) (CONS (QUOTE NOT) (CONS (CONS (QUOTE ZEROP) (CONS (CAR X) (QUOTE NIL))) (QUOTE NIL)))) (QUOTE (TRUE)))) LISP-CODE *1*AND-NOT-ZEROP-TREE SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP X)) NIL) (TESTS-AND-CASES ((NOT (NLISTP X)) (NLISTP (CDR X))) NIL) (TESTS-AND-CASES ((NOT (NLISTP X)) (NOT (NLISTP (CDR X)))) (((CDR X))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (CDR-LESSP NLISTP ZERO CDR-LESSEQP))) IDATE 1000402214748 CONTROLLER-POCKETS (1) SATELLITES (*1*AND-NOT-ZEROP-TREE) IMMEDIATE-DEPENDENTS0 (CANCEL-EQUAL-TIMES ZEROP-MAKES-EQUAL-TRUE-BRIDGE EVAL$-EQUAL-TIMES-TREE-BAGDIFF CANCEL-LESSP-TIMES AND-NOT-ZEROP-TREE-DELETE EVAL$-AND-NOT-ZEROP-TREE-END AND-NOT-ZEROP-TREE-LESSP ZEROP-MAKES-LESSP-FALSE-BRIDGE EVAL$-LESSP-TIMES-TREE-BAGDIFF ZEROP-MAKES-TIMES-TREE-ZERO) EVENT (DEFN AND-NOT-ZEROP-TREE (X) (IF (NLISTP X) (QUOTE (TRUE)) (IF (NLISTP (CDR X)) (CONS (QUOTE NOT) (CONS (CONS (QUOTE ZEROP) (CONS (CAR X) (QUOTE NIL))) (QUOTE NIL))) (CONS (QUOTE AND) (CONS (CONS (QUOTE NOT) (CONS (CONS (QUOTE ZEROP) (CONS (CAR X) (QUOTE NIL))) (QUOTE NIL))) (CONS (AND-NOT-ZEROP-TREE (CDR X)) (QUOTE NIL))))))) LOCAL-UNDO-TUPLES ((DCELL . *1*AND-NOT-ZEROP-TREE))))) (PUT1-LST (QUOTE *1*TIMES-TREE) (QUOTE (MAIN-EVENT TIMES-TREE))) (PUT1-LST (QUOTE TIMES-TREE) (QUOTE (TYPE-PRESCRIPTION-LST ((TIMES-TREE 16 NIL)) TOTALP-LST ((TIMES-TREE . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (X) (IF (LISTP X) (IF (LISTP (CDR X)) (IF (LISTP (CDR (CDR X))) (CONS (QUOTE TIMES) (CONS (CAR X) (CONS (TIMES-TREE (CDR X)) (QUOTE NIL)))) (CONS (QUOTE TIMES) (CONS (CAR X) (CONS (CAR (CDR X)) (QUOTE NIL))))) (CONS (QUOTE FIX) (CONS (CAR X) (QUOTE NIL)))) (QUOTE (QUOTE 1)))) LISP-CODE *1*TIMES-TREE SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP X)) NIL) (TESTS-AND-CASES ((NOT (NLISTP X)) (NLISTP (CDR X))) NIL) (TESTS-AND-CASES ((NOT (NLISTP X)) (NOT (NLISTP (CDR X))) (NLISTP (CDR (CDR X)))) NIL) (TESTS-AND-CASES ((NOT (NLISTP X)) (NOT (NLISTP (CDR X))) (NOT (NLISTP (CDR (CDR X))))) (((CDR X))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (CDR-LESSP NLISTP ZERO CDR-LESSEQP))) IDATE 1000402214748 CONTROLLER-POCKETS (1) SATELLITES (*1*TIMES-TREE) IMMEDIATE-DEPENDENTS0 (CANCEL-EQUAL-TIMES EQUAL-1-TIMES-TREE-DELETE EQUAL-1-EVAL$-TIMES-TREE-DELETE-END EVAL$-EQUAL-TIMES-TREE-BAGDIFF CANCEL-LESSP-TIMES LESSP-1-TIMES-TREE-DELETE LESSP-1-TIMES-TREE-DELETE-END AND-NOT-ZEROP-TREE-DELETE AND-NOT-ZEROP-TREE-LESSP EVAL$-LESSP-TIMES-TREE-BAGDIFF TIMES-TREE-TIMES-FRINGE EVAL$-TIMES-TREE-APPEND ZEROP-MAKES-TIMES-TREE-ZERO EVAL$-TIMES-MEMBER EVAL$-TIMES-TREE-NUMBERP) EVENT (DEFN TIMES-TREE (X) (IF (NLISTP X) (QUOTE (QUOTE 1)) (IF (NLISTP (CDR X)) (CONS (QUOTE FIX) (CONS (CAR X) (QUOTE NIL))) (IF (NLISTP (CDR (CDR X))) (CONS (QUOTE TIMES) (CONS (CAR X) (CONS (CAR (CDR X)) (QUOTE NIL)))) (CONS (QUOTE TIMES) (CONS (CAR X) (CONS (TIMES-TREE (CDR X)) (QUOTE NIL)))))))) LOCAL-UNDO-TUPLES ((DCELL . *1*TIMES-TREE))))) (PUT1-LST (QUOTE *1*TIMES-FRINGE) (QUOTE (MAIN-EVENT TIMES-FRINGE))) (PUT1-LST (QUOTE TIMES-FRINGE) (QUOTE (TYPE-PRESCRIPTION-LST ((TIMES-FRINGE 16 NIL)) TOTALP-LST ((TIMES-FRINGE . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (X) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE TIMES)) (APPEND (TIMES-FRINGE (CAR (CDR X))) (TIMES-FRINGE (CAR (CDR (CDR X))))) (CONS X (QUOTE NIL))) (CONS X (QUOTE NIL)))) LISP-CODE *1*TIMES-FRINGE SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((AND (LISTP X) (EQUAL (CAR X) (QUOTE TIMES)))) (((CAR (CDR (CDR X)))) ((CAR (CDR X))))) (TESTS-AND-CASES ((NOT (AND (LISTP X) (EQUAL (CAR X) (QUOTE TIMES))))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (CDR-LESSP AND ZERO CDR-LESSEQP CAR-LESSEQP))) IDATE 1000402214748 CONTROLLER-POCKETS (1) SATELLITES (*1*TIMES-FRINGE) IMMEDIATE-DEPENDENTS0 (CANCEL-EQUAL-TIMES ZEROP-MAKES-EQUAL-TRUE-BRIDGE CANCEL-LESSP-TIMES EVAL$-TIMES-FRINGE-MEMBER-ZERO ZEROP-MAKES-LESSP-FALSE-BRIDGE TIMES-TREE-TIMES-FRINGE) EVENT (DEFN TIMES-FRINGE (X) (IF (AND (LISTP X) (EQUAL (CAR X) (QUOTE TIMES))) (APPEND (TIMES-FRINGE (CAR (CDR X))) (TIMES-FRINGE (CAR (CDR (CDR X))))) (CONS X (QUOTE NIL)))) LOCAL-UNDO-TUPLES ((DCELL . *1*TIMES-FRINGE))))) (PUT1-LST (QUOTE TIMES2-ADD1-LESSP-CANCEL) (QUOTE (IDATE 1000402214748 IMMEDIATE-DEPENDENTS0 (LESSP-PLUS-TIMES-EXP2) EVENT (PROVE-LEMMA TIMES2-ADD1-LESSP-CANCEL (REWRITE) (EQUAL (LESSP (ADD1 (TIMES (QUOTE 2) I)) (TIMES (QUOTE 2) J)) (LESSP I J))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . TIMES2-ADD1-LESSP-CANCEL) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . TIMES2-ADD1-LESSP-CANCEL) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . TIMES2-ADD1-LESSP-CANCEL) (IMMEDIATE-DEPENDENTS0 TIMES-1 . TIMES2-ADD1-LESSP-CANCEL) (IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-0 . TIMES2-ADD1-LESSP-CANCEL) (LEMMAS LESSP . TIMES2-ADD1-LESSP-CANCEL))))) (PUT1-LST (QUOTE TIMES-DISTRIBUTES-DIFFERENCE1) (QUOTE (IDATE 1000402214748 EVENT (PROVE-LEMMA TIMES-DISTRIBUTES-DIFFERENCE1 (REWRITE) (EQUAL (DIFFERENCE (TIMES Y X) (TIMES Z X)) (TIMES X (DIFFERENCE Y Z)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . TIMES-DISTRIBUTES-DIFFERENCE1) (IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-DIFFERENCE . TIMES-DISTRIBUTES-DIFFERENCE1) (LEMMAS DIFFERENCE . TIMES-DISTRIBUTES-DIFFERENCE1))))) (PUT1-LST (QUOTE TIMES-DISTRIBUTES-DIFFERENCE) (QUOTE (IDATE 1000402214748 IMMEDIATE-DEPENDENTS0 (REMAINDER-CROCK TIMES-DISTRIBUTES-DIFFERENCE1) EVENT (PROVE-LEMMA TIMES-DISTRIBUTES-DIFFERENCE (REWRITE) (EQUAL (DIFFERENCE (TIMES X Y) (TIMES X Z)) (TIMES X (DIFFERENCE Y Z))) ((INDUCT (DIFFERENCE Y Z)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS . TIMES-DISTRIBUTES-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 TIMES-ADD1 . TIMES-DISTRIBUTES-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . TIMES-DISTRIBUTES-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . TIMES-DISTRIBUTES-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . TIMES-DISTRIBUTES-DIFFERENCE) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . TIMES-DISTRIBUTES-DIFFERENCE) (LEMMAS DIFFERENCE . TIMES-DISTRIBUTES-DIFFERENCE))))) (PUT1-LST (QUOTE TIMES-LESSP-LINEAR) (QUOTE (IDATE 1000402214747 EVENT (PROVE-LEMMA TIMES-LESSP-LINEAR (REWRITE) (IMPLIES (NOT (LESSP I J)) (NOT (LESSP (TIMES A I) (TIMES A J))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-LESSP-CANCEL . TIMES-LESSP-LINEAR) (LINEAR-LEMMAS TIMES . TIMES-LESSP-LINEAR) (LINEAR-LEMMAS TIMES . TIMES-LESSP-LINEAR))))) (PUT1-LST (QUOTE TIMES-LESSP-CANCEL-1) (QUOTE (IDATE 1000402214747 EVENT (PROVE-LEMMA TIMES-LESSP-CANCEL-1 (REWRITE) (EQUAL (LESSP (TIMES X Y) (PLUS X (TIMES X Z))) (AND (NOT (ZEROP X)) (IF (LESSP Z Y) (QUOTE *1*FALSE) (QUOTE *1*TRUE))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . TIMES-LESSP-CANCEL-1) (IMMEDIATE-DEPENDENTS0 TIMES-1 . TIMES-LESSP-CANCEL-1) (IMMEDIATE-DEPENDENTS0 PLUS-ADD1 . TIMES-LESSP-CANCEL-1) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . TIMES-LESSP-CANCEL-1) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . TIMES-LESSP-CANCEL-1) (LEMMAS LESSP . TIMES-LESSP-CANCEL-1))))) (PUT1-LST (QUOTE EQUAL-IFF-OFF) (QUOTE (IDATE 1000402214747 EVENT (TOGGLE EQUAL-IFF-OFF EQUAL-IFF T) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 EQUAL-IFF . EQUAL-IFF-OFF) (DISABLED-LEMMAS NIL EQUAL-IFF EQUAL-IFF-OFF . T))))) (PUT1-LST (QUOTE TIMES-LESSP-CANCEL) (QUOTE (IDATE 1000402214747 IMMEDIATE-DEPENDENTS0 (TA-LEMMA-2 TA-LEMMA-1 EVAL$-LESSP-TIMES-TREE-BAGDIFF TIMES-LESSP-LINEAR) EVENT (PROVE-LEMMA TIMES-LESSP-CANCEL (REWRITE) (EQUAL (LESSP (TIMES X Y) (TIMES X Z)) (AND (NOT (ZEROP X)) (LESSP Y Z)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . TIMES-LESSP-CANCEL) (IMMEDIATE-DEPENDENTS0 TIMES-1 . TIMES-LESSP-CANCEL) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . TIMES-LESSP-CANCEL) (IMMEDIATE-DEPENDENTS0 BOOLEAN . TIMES-LESSP-CANCEL) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . TIMES-LESSP-CANCEL) (LEMMAS LESSP . TIMES-LESSP-CANCEL))))) (PUT1-LST (QUOTE TIMES-LESSP-CANCEL0) (QUOTE (IDATE 1000402214747 IMMEDIATE-DEPENDENTS0 (LESSP-1-TIMES-TREE-DELETE AND-NOT-ZEROP-TREE-DELETE) EVENT (PROVE-LEMMA TIMES-LESSP-CANCEL0 (REWRITE) (AND (EQUAL (LESSP (TIMES X Y) X) (AND (NOT (ZEROP X)) (ZEROP Y))) (EQUAL (LESSP X (TIMES X Y)) (AND (NOT (ZEROP X)) (AND (NOT (ZEROP Y)) (NOT (EQUAL Y (QUOTE 1)))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-1 . TIMES-LESSP-CANCEL0) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . TIMES-LESSP-CANCEL0) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . TIMES-LESSP-CANCEL0) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . TIMES-LESSP-CANCEL0) (IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-0 . TIMES-LESSP-CANCEL0) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . TIMES-LESSP-CANCEL0) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . TIMES-LESSP-CANCEL0) (IMMEDIATE-DEPENDENTS0 BOOLEAN . TIMES-LESSP-CANCEL0) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . TIMES-LESSP-CANCEL0) (LEMMAS LESSP . TIMES-LESSP-CANCEL0) (LEMMAS LESSP . TIMES-LESSP-CANCEL0))))) (PUT1-LST (QUOTE TIMES-LESSP-1) (QUOTE (IDATE 1000402214747 IMMEDIATE-DEPENDENTS0 (EXP-LESSP) EVENT (PROVE-LEMMA TIMES-LESSP-1 (REWRITE) (EQUAL (LESSP (QUOTE 1) (TIMES X Y)) (AND (NOT (ZEROP X)) (AND (NOT (ZEROP Y)) (NOT (AND (EQUAL X (QUOTE 1)) (EQUAL Y (QUOTE 1)))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . TIMES-LESSP-1) (IMMEDIATE-DEPENDENTS0 TIMES-1 . TIMES-LESSP-1) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . TIMES-LESSP-1) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . TIMES-LESSP-1) (IMMEDIATE-DEPENDENTS0 BOOLEAN . TIMES-LESSP-1) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . TIMES-LESSP-1) (LEMMAS LESSP . TIMES-LESSP-1))))) (PUT1-LST (QUOTE TIMES-LESSP-0) (QUOTE (IDATE 1000402214747 IMMEDIATE-DEPENDENTS0 (LESSP-PLUS-TIMES-EXP2 TIMES-EXP2-LESSP) EVENT (PROVE-LEMMA TIMES-LESSP-0 (REWRITE) (EQUAL (LESSP (QUOTE 0) (TIMES X Y)) (AND (LESSP (QUOTE 0) X) (LESSP (QUOTE 0) Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . TIMES-LESSP-0) (IMMEDIATE-DEPENDENTS0 BOOLEAN . TIMES-LESSP-0) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . TIMES-LESSP-0) (LEMMAS LESSP . TIMES-LESSP-0))))) (PUT1-LST (QUOTE TIMES-EQUAL-CANCEL) (QUOTE (IDATE 1000402214747 IMMEDIATE-DEPENDENTS0 (EVAL$-EQUAL-TIMES-TREE-BAGDIFF EVAL$-TIMES-TREE-APPEND EVAL$-TIMES-MEMBER) EVENT (PROVE-LEMMA TIMES-EQUAL-CANCEL (REWRITE) (EQUAL (EQUAL (TIMES X Y) (TIMES X Z)) (OR (ZEROP X) (EQUAL (FIX Y) (FIX Z)))) ((INDUCT (DIFFERENCE Y Z)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . TIMES-EQUAL-CANCEL) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-PLUS . TIMES-EQUAL-CANCEL) (IMMEDIATE-DEPENDENTS0 TIMES-ADD1 . TIMES-EQUAL-CANCEL) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . TIMES-EQUAL-CANCEL) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . TIMES-EQUAL-CANCEL) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . TIMES-EQUAL-CANCEL) (IMMEDIATE-DEPENDENTS0 BOOLEAN . TIMES-EQUAL-CANCEL) (IMMEDIATE-DEPENDENTS0 EQUAL-IFF . TIMES-EQUAL-CANCEL) (LEMMAS EQUAL . TIMES-EQUAL-CANCEL))))) (PUT1-LST (QUOTE TIMES-EQUAL-CANCEL0) (QUOTE (IDATE 1000402214747 IMMEDIATE-DEPENDENTS0 (EQUAL-1-TIMES-TREE-DELETE EVAL$-TIMES-TREE-APPEND EVAL$-TIMES-MEMBER) EVENT (PROVE-LEMMA TIMES-EQUAL-CANCEL0 (REWRITE) (AND (EQUAL (EQUAL (TIMES X Y) Y) (AND (NUMBERP Y) (IF (EQUAL Y (QUOTE 0)) (QUOTE *1*TRUE) (EQUAL X (QUOTE 1))))) (EQUAL (EQUAL (TIMES Y X) Y) (AND (NUMBERP Y) (IF (EQUAL Y (QUOTE 0)) (QUOTE *1*TRUE) (EQUAL X (QUOTE 1))))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-EQUAL-PLUS . TIMES-EQUAL-CANCEL0) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . TIMES-EQUAL-CANCEL0) (IMMEDIATE-DEPENDENTS0 TIMES-EQUAL-0 . TIMES-EQUAL-CANCEL0) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . TIMES-EQUAL-CANCEL0) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . TIMES-EQUAL-CANCEL0) (LEMMAS EQUAL . TIMES-EQUAL-CANCEL0) (LEMMAS EQUAL . TIMES-EQUAL-CANCEL0))))) (PUT1-LST (QUOTE EQUAL-IFF) (QUOTE (IDATE 1000402214746 IMMEDIATE-DEPENDENTS0 (EQUAL-IFF-OFF TIMES-LESSP-CANCEL TIMES-LESSP-CANCEL0 TIMES-LESSP-1 TIMES-LESSP-0 TIMES-EQUAL-CANCEL) EVENT (PROVE-LEMMA EQUAL-IFF (REWRITE) (IMPLIES (AND (BOOLEAN P) (BOOLEAN Q)) (EQUAL (EQUAL P Q) (IFF P Q)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 BOOLEAN . EQUAL-IFF) (LEMMAS EQUAL . EQUAL-IFF))))) (PUT1-LST (QUOTE *1*BOOLEAN) (QUOTE (MAIN-EVENT BOOLEAN))) (PUT1-LST (QUOTE BOOLEAN) (QUOTE (TYPE-PRESCRIPTION-LST ((BOOLEAN 3 NIL)) TOTALP-LST ((BOOLEAN . T)) SDEFN (LAMBDA (X) (IF (TRUEP X) (QUOTE *1*TRUE) (FALSEP X))) LISP-CODE *1*BOOLEAN SUBRP *1*FALSE LEVEL-NO 0 IDATE 1000402214746 SATELLITES (*1*BOOLEAN) IMMEDIATE-DEPENDENTS0 (TIMES-LESSP-CANCEL TIMES-LESSP-CANCEL0 TIMES-LESSP-1 TIMES-LESSP-0 TIMES-EQUAL-CANCEL EQUAL-IFF) EVENT (DEFN BOOLEAN (X) (OR (TRUEP X) (FALSEP X))) LOCAL-UNDO-TUPLES ((DCELL . *1*BOOLEAN))))) (PUT1-LST (QUOTE TIMES-ASSOCIATIVITY) (QUOTE (IDATE 1000402214746 IMMEDIATE-DEPENDENTS0 (LOG-QUOTIENT-EXP QUOTIENT-TIMES-EXP2-4 QUOTIENT-TIMES-EXP2-3 REMAINDER-TIMES-EXP2-4 EXP-TIMES EXP-PLUS) EVENT (PROVE-LEMMA TIMES-ASSOCIATIVITY (REWRITE) (EQUAL (TIMES (TIMES X Y) Z) (TIMES X (TIMES Y Z)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . TIMES-ASSOCIATIVITY) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY1 . TIMES-ASSOCIATIVITY) (LEMMAS TIMES . TIMES-ASSOCIATIVITY))))) (PUT1-LST (QUOTE TIMES-ADD1-SUB1) (QUOTE (IDATE 1000402214746 EVENT (PROVE-LEMMA TIMES-ADD1-SUB1 (REWRITE) (EQUAL (ADD1 (TIMES A (SUB1 B))) (IF (OR (ZEROP A) (ZEROP B)) (QUOTE 1) (DIFFERENCE (TIMES A B) (SUB1 A))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . TIMES-ADD1-SUB1) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . TIMES-ADD1-SUB1) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . TIMES-ADD1-SUB1) (LEMMAS ADD1 . TIMES-ADD1-SUB1))))) (PUT1-LST (QUOTE TIMES-1) (QUOTE (IDATE 1000402214746 IMMEDIATE-DEPENDENTS0 (LOG-TIMES-EXP TIMES-LESSP QUOTIENT-TIMES-EXP2-4 QUOTIENT-TIMES-EXP2-3 QUOTIENT-TIMES-EXP2-1 REMAINDER-TIMES-EXP2-4 REMAINDER-TIMES-EXP2-3 REMAINDER-TIMES-EXP2-1 LESSP-PLUS-EXP2 LESSP-PLUS-TIMES-EXP2 QUOTIENT-EXP TIMES-EXP2-LESSP EXP-OF-2-1 EXP-PLUS EVAL$-TIMES-TREE-APPEND EVAL$-TIMES-MEMBER TIMES2-ADD1-LESSP-CANCEL TIMES-LESSP-CANCEL-1 TIMES-LESSP-CANCEL TIMES-LESSP-CANCEL0 TIMES-LESSP-1) EVENT (PROVE-LEMMA TIMES-1 (REWRITE) (EQUAL (TIMES (QUOTE 1) X) (FIX X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . TIMES-1) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . TIMES-1) (LEMMAS TIMES . TIMES-1))))) (PUT1-LST (QUOTE TIMES-EQUAL-1) (QUOTE (IDATE 1000402214746 IMMEDIATE-DEPENDENTS0 (QUOTIENT-TIMES-EXP2-4 REMAINDER-EXP EVAL$-TIMES-TREE-APPEND) EVENT (PROVE-LEMMA TIMES-EQUAL-1 (REWRITE) (EQUAL (EQUAL (TIMES X Y) (QUOTE 1)) (AND (EQUAL X (QUOTE 1)) (EQUAL Y (QUOTE 1)))) ((INDUCT (TIMES X Y)) (ENABLE-THEORY GROUND-ZERO) (DISABLE-THEORY T))) LOCAL-UNDO-TUPLES ((LEMMAS EQUAL . TIMES-EQUAL-1))))) (PUT1-LST (QUOTE TIMES-EQUAL-0) (QUOTE (IDATE 1000402214746 IMMEDIATE-DEPENDENTS0 (LOG-QUOTIENT-EXP QUOTIENT-TIMES-EXP2-4 REMAINDER-TIMES-EXP2-1 LESSP-PLUS-TIMES-EXP2 QUOTIENT-QUOTIENT QUOTIENT-TIMES-LESSP QUOTIENT-DISTRIBUTES-TIMES2-ADD1 REMAINDER-DISTRIBUTES-TIMES2-ADD1 QUOTIENT-TIMES-CANCEL QUOTIENT-CROCK REMAINDER-CROCK TIMES-PLUS-LESSP TIMES-EXP2-LESSP EXP-LESSP EXP-OF-2-0 CORRECTNESS-OF-CANCEL-EQUAL-TIMES ZEROP-MAKES-EQUAL-TRUE-BRIDGE EVAL$-TIMES-FRINGE-MEMBER-ZERO AND-NOT-ZEROP-TREE-LESSP ZEROP-MAKES-LESSP-FALSE-BRIDGE EVAL$-TIMES-TREE-APPEND EVAL$-TIMES-MEMBER TIMES-DISTRIBUTES-DIFFERENCE TIMES-LESSP-CANCEL0 TIMES-LESSP-0 TIMES-EQUAL-CANCEL TIMES-EQUAL-CANCEL0) EVENT (PROVE-LEMMA TIMES-EQUAL-0 (REWRITE) (EQUAL (EQUAL (TIMES X Y) (QUOTE 0)) (OR (ZEROP X) (ZEROP Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . TIMES-EQUAL-0) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . TIMES-EQUAL-0) (IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-0 . TIMES-EQUAL-0) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . TIMES-EQUAL-0) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . TIMES-EQUAL-0) (LEMMAS EQUAL . TIMES-EQUAL-0))))) (PUT1-LST (QUOTE TIMES-COMMUTATIVITY1) (QUOTE (IDATE 1000402214746 IMMEDIATE-DEPENDENTS0 (LOG-TIMES-EXP QUOTIENT-TIMES-EXP2-4 QUOTIENT-TIMES-EXP2-3 QUOTIENT-TIMES-EXP2-1 REMAINDER-TIMES-EXP2-4 REMAINDER-TIMES-EXP2-1 LESSP-PLUS-TIMES-EXP2 QUOTIENT-QUOTIENT QUOTIENT-TIMES-CANCEL TIMES-DISTRIBUTES-REMAINDER TIMES-EXP2-LESSP EXP-TIMES EVAL$-TIMES-TREE-APPEND EVAL$-TIMES-MEMBER TIMES-ASSOCIATIVITY) EVENT (PROVE-LEMMA TIMES-COMMUTATIVITY1 (REWRITE) (EQUAL (TIMES X (TIMES Y Z)) (TIMES Y (TIMES X Z)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-DISTRIBUTES-PLUS . TIMES-COMMUTATIVITY1) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . TIMES-COMMUTATIVITY1) (IMMEDIATE-DEPENDENTS0 TIMES-COMMUTATIVITY . TIMES-COMMUTATIVITY1) (LEMMAS TIMES . TIMES-COMMUTATIVITY1))))) (PUT1-LST (QUOTE TIMES-COMMUTATIVITY) (QUOTE (IDATE 1000402214746 IMMEDIATE-DEPENDENTS0 (LOG-QUOTIENT-EXP LOG-TIMES-EXP-1 LOG-TIMES-EXP TIMES-LESSP REMAINDER-REMAINDER-EXP2 QUOTIENT-TIMES-EXP2-4 QUOTIENT-TIMES-EXP2-3 QUOTIENT-TIMES-EXP2-2 QUOTIENT-TIMES-EXP2-1 REMAINDER-TIMES-EXP2-4 REMAINDER-TIMES-EXP2-3 REMAINDER-TIMES-EXP2-2 REMAINDER-TIMES-EXP2-1 LESSP-PLUS-TIMES-EXP2 QUOTIENT-QUOTIENT QUOTIENT-TIMES-LESSP REMAINDER-EXP QUOTIENT-EXP QUOTIENT-TIMES-CANCEL QUOTIENT-CROCK TIMES-DISTRIBUTES-REMAINDER REMAINDER-CROCK REMAINDER-DIFFERENCE-REMAINDER1 REMAINDER-PLUS-REMAINDER1 QUOTIENT-SHRINK-FAST REMAINDER-QUOTIENT-ELIM REMAINDER-QUOTIENT QUOTIENT-DIFFERENCE-TIMES1 QUOTIENT-PLUS-TIMES2 QUOTIENT-TIMES REMAINDER-PLUS-PLUS-TIMES2 REMAINDER-PLUS-TIMES2 REMAINDER-TIMES TIMES-EXP2-LESSP EXP-PLUS ZEROP-MAKES-EQUAL-TRUE-BRIDGE AND-NOT-ZEROP-TREE-LESSP ZEROP-MAKES-LESSP-FALSE-BRIDGE TIMES-TREE-TIMES-FRINGE EVAL$-TIMES-TREE-APPEND ZEROP-MAKES-TIMES-TREE-ZERO EVAL$-TIMES-MEMBER TIMES-DISTRIBUTES-DIFFERENCE1 TIMES-DISTRIBUTES-DIFFERENCE TIMES-LESSP-CANCEL0 TIMES-LESSP-1 TIMES-EQUAL-CANCEL TIMES-EQUAL-CANCEL0 TIMES-ASSOCIATIVITY TIMES-ADD1-SUB1 TIMES-EQUAL-0 TIMES-COMMUTATIVITY1) EVENT (PROVE-LEMMA TIMES-COMMUTATIVITY (REWRITE) (EQUAL (TIMES X Z) (TIMES Z X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ADD1 . TIMES-COMMUTATIVITY) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . TIMES-COMMUTATIVITY) (LEMMAS TIMES . TIMES-COMMUTATIVITY))))) (PUT1-LST (QUOTE TIMES-ADD1) (QUOTE (IDATE 1000402214746 IMMEDIATE-DEPENDENTS0 (REMAINDER-QUOTIENT-ELIM REMAINDER-QUOTIENT QUOTIENT-TIMES REMAINDER-TIMES TIMES-DISTRIBUTES-DIFFERENCE TIMES-EQUAL-CANCEL TIMES-COMMUTATIVITY) EVENT (PROVE-LEMMA TIMES-ADD1 (REWRITE) (EQUAL (TIMES X (ADD1 Y)) (PLUS X (TIMES X Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 TIMES-ZERO . TIMES-ADD1) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . TIMES-ADD1) (LEMMAS TIMES . TIMES-ADD1))))) (PUT1-LST (QUOTE TIMES-DISTRIBUTES-PLUS) (QUOTE (IDATE 1000402214746 IMMEDIATE-DEPENDENTS0 (TIMES-DISTRIBUTES-PLUS-OFF TIMES-DISTRIBUTES-PLUS-NEW QUOTIENT-QUOTIENT QUOTIENT-TIMES-CANCEL TIMES-DISTRIBUTES-REMAINDER TIMES-COMMUTATIVITY1) EVENT (PROVE-LEMMA TIMES-DISTRIBUTES-PLUS (REWRITE) (EQUAL (TIMES X (PLUS Y Z)) (PLUS (TIMES X Y) (TIMES X Z)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-ASSOCIATIVITY . TIMES-DISTRIBUTES-PLUS) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY1 . TIMES-DISTRIBUTES-PLUS) (IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-0 . TIMES-DISTRIBUTES-PLUS) (IMMEDIATE-DEPENDENTS0 TIMES-ZERO . TIMES-DISTRIBUTES-PLUS) (LEMMAS TIMES . TIMES-DISTRIBUTES-PLUS))))) (PUT1-LST (QUOTE TIMES-ZERO) (QUOTE (IDATE 1000402214746 IMMEDIATE-DEPENDENTS0 (LOG-QUOTIENT-EXP LOG-TIMES-EXP TIMES-LESSP REMAINDER-REMAINDER-EXP2 QUOTIENT-TIMES-EXP2-4 QUOTIENT-TIMES-EXP2-1 REMAINDER-TIMES-EXP2-4 REMAINDER-TIMES-EXP2-3 REMAINDER-TIMES-EXP2-1 LESSP-PLUS-TIMES-EXP2 QUOTIENT-QUOTIENT REMAINDER-EXP QUOTIENT-EXP QUOTIENT-TIMES-CANCEL TIMES-DISTRIBUTES-REMAINDER REMAINDER-CROCK QUOTIENT-SHRINK-FAST TIMES-PLUS-LESSP REMAINDER-QUOTIENT-ELIM REMAINDER-QUOTIENT QUOTIENT-DIFFERENCE-TIMES2 QUOTIENT-DIFFERENCE-TIMES1 QUOTIENT-TIMES REMAINDER-TIMES EXP-LESSP EXP-EXP EXP-OF-0 ZEROP-MAKES-EQUAL-TRUE-BRIDGE EVAL$-TIMES-FRINGE-MEMBER-ZERO AND-NOT-ZEROP-TREE-LESSP ZEROP-MAKES-LESSP-FALSE-BRIDGE TIMES-TREE-TIMES-FRINGE EVAL$-TIMES-TREE-APPEND ZEROP-MAKES-TIMES-TREE-ZERO EVAL$-TIMES-MEMBER TIMES-DISTRIBUTES-DIFFERENCE TIMES-LESSP-CANCEL-1 TIMES-LESSP-CANCEL TIMES-LESSP-CANCEL0 TIMES-LESSP-1 TIMES-EQUAL-CANCEL TIMES-EQUAL-CANCEL0 TIMES-ADD1-SUB1 TIMES-1 TIMES-EQUAL-0 TIMES-COMMUTATIVITY1 TIMES-COMMUTATIVITY TIMES-ADD1 TIMES-DISTRIBUTES-PLUS) EVENT (PROVE-LEMMA TIMES-ZERO (REWRITE) (IMPLIES (OR (ZEROP X) (ZEROP Y)) (EQUAL (TIMES X Y) (QUOTE 0)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . TIMES-ZERO) (LEMMAS TIMES . TIMES-ZERO))))) (PUT1-LST (QUOTE PLUS-LESSP-CANCEL-2) (QUOTE (IDATE 1000402214746 EVENT (PROVE-LEMMA PLUS-LESSP-CANCEL-2 (REWRITE) (EQUAL (LESSP (PLUS Y X) (PLUS X Z)) (LESSP Y Z))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . PLUS-LESSP-CANCEL-2) (IMMEDIATE-DEPENDENTS0 CORRECTNESS-OF-CANCEL-LESSP-PLUS . PLUS-LESSP-CANCEL-2) (LEMMAS LESSP . PLUS-LESSP-CANCEL-2))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-LESSP-PLUS) (QUOTE (IDATE 1000402214746 IMMEDIATE-DEPENDENTS0 (TIMES-PLUS-LESSP PLUS-LESSP-CANCEL-2) EVENT (PROVE-LEMMA CORRECTNESS-OF-CANCEL-LESSP-PLUS ((META LESSP)) (EQUAL (EVAL$ (QUOTE *1*TRUE) X A) (EVAL$ (QUOTE *1*TRUE) (CANCEL-LESSP-PLUS X) A)) ((DISABLE EVAL$))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT1 . CORRECTNESS-OF-CANCEL-LESSP-PLUS) (IMMEDIATE-DEPENDENTS0 PLUS-TREE-BAGDIFF . CORRECTNESS-OF-CANCEL-LESSP-PLUS) (IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT2 . CORRECTNESS-OF-CANCEL-LESSP-PLUS) (IMMEDIATE-DEPENDENTS0 BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GEQ . CORRECTNESS-OF-CANCEL-LESSP-PLUS) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-LESSP-CANCEL . CORRECTNESS-OF-CANCEL-LESSP-PLUS) (IMMEDIATE-DEPENDENTS0 MEMBER-IMPLIES-PLUS-TREE-GREATEREQP . CORRECTNESS-OF-CANCEL-LESSP-PLUS) (IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . CORRECTNESS-OF-CANCEL-LESSP-PLUS) (IMMEDIATE-DEPENDENTS0 NUMBERP-EVAL$-PLUS . CORRECTNESS-OF-CANCEL-LESSP-PLUS) (IMMEDIATE-DEPENDENTS0 PLUS-TREE-PLUS-FRINGE . CORRECTNESS-OF-CANCEL-LESSP-PLUS) (IMMEDIATE-DEPENDENTS0 PLUS-TREE-DELETE . CORRECTNESS-OF-CANCEL-LESSP-PLUS) (IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . CORRECTNESS-OF-CANCEL-LESSP-PLUS) (IMMEDIATE-DEPENDENTS0 CANCEL-LESSP-PLUS . CORRECTNESS-OF-CANCEL-LESSP-PLUS) (LEMMAS LESSP . CORRECTNESS-OF-CANCEL-LESSP-PLUS))))) (PUT1-LST (QUOTE *1*CANCEL-LESSP-PLUS) (QUOTE (MAIN-EVENT CANCEL-LESSP-PLUS))) (PUT1-LST (QUOTE CANCEL-LESSP-PLUS) (QUOTE (TYPE-PRESCRIPTION-LST ((CANCEL-LESSP-PLUS 16 T)) TOTALP-LST ((CANCEL-LESSP-PLUS . T)) SDEFN (LAMBDA (X) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE LESSP)) (IF (LISTP (CAR (CDR X))) (IF (EQUAL (CAR (CAR (CDR X))) (QUOTE PLUS)) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE PLUS)) (CONS (QUOTE LESSP) (CONS (PLUS-TREE (BAGDIFF (PLUS-FRINGE (CAR (CDR X))) (BAGINT (PLUS-FRINGE (CAR (CDR X))) (PLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (PLUS-TREE (BAGDIFF (PLUS-FRINGE (CAR (CDR (CDR X)))) (BAGINT (PLUS-FRINGE (CAR (CDR X))) (PLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (IF (MEMBER (CAR (CDR (CDR X))) (PLUS-FRINGE (CAR (CDR X)))) (QUOTE (QUOTE *1*FALSE)) X)) (IF (MEMBER (CAR (CDR (CDR X))) (PLUS-FRINGE (CAR (CDR X)))) (QUOTE (QUOTE *1*FALSE)) X)) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE PLUS)) (IF (MEMBER (CAR (CDR X)) (PLUS-FRINGE (CAR (CDR (CDR X))))) (CONS (QUOTE NOT) (CONS (CONS (QUOTE ZEROP) (CONS (PLUS-TREE (DELETE (CAR (CDR X)) (PLUS-FRINGE (CAR (CDR (CDR X)))))) (QUOTE NIL))) (QUOTE NIL))) X) X) X)) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE PLUS)) (IF (MEMBER (CAR (CDR X)) (PLUS-FRINGE (CAR (CDR (CDR X))))) (CONS (QUOTE NOT) (CONS (CONS (QUOTE ZEROP) (CONS (PLUS-TREE (DELETE (CAR (CDR X)) (PLUS-FRINGE (CAR (CDR (CDR X)))))) (QUOTE NIL))) (QUOTE NIL))) X) X) X)) X) X)) LISP-CODE *1*CANCEL-LESSP-PLUS SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402214745 SATELLITES (*1*CANCEL-LESSP-PLUS) IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-LESSP-PLUS) EVENT (DEFN CANCEL-LESSP-PLUS (X) (IF (AND (LISTP X) (EQUAL (CAR X) (QUOTE LESSP))) (IF (AND (LISTP (CAR (CDR X))) (AND (EQUAL (CAR (CAR (CDR X))) (QUOTE PLUS)) (AND (LISTP (CAR (CDR (CDR X)))) (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE PLUS))))) (CONS (QUOTE LESSP) (CONS (PLUS-TREE (BAGDIFF (PLUS-FRINGE (CAR (CDR X))) (BAGINT (PLUS-FRINGE (CAR (CDR X))) (PLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (PLUS-TREE (BAGDIFF (PLUS-FRINGE (CAR (CDR (CDR X)))) (BAGINT (PLUS-FRINGE (CAR (CDR X))) (PLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (IF (AND (LISTP (CAR (CDR X))) (AND (EQUAL (CAR (CAR (CDR X))) (QUOTE PLUS)) (MEMBER (CAR (CDR (CDR X))) (PLUS-FRINGE (CAR (CDR X)))))) (QUOTE (QUOTE *1*FALSE)) (IF (AND (LISTP (CAR (CDR (CDR X)))) (AND (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE PLUS)) (MEMBER (CAR (CDR X)) (PLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (QUOTE NOT) (CONS (CONS (QUOTE ZEROP) (CONS (PLUS-TREE (DELETE (CAR (CDR X)) (PLUS-FRINGE (CAR (CDR (CDR X)))))) (QUOTE NIL))) (QUOTE NIL))) X))) X)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE . CANCEL-LESSP-PLUS) (IMMEDIATE-DEPENDENTS0 BAGINT . CANCEL-LESSP-PLUS) (IMMEDIATE-DEPENDENTS0 PLUS-FRINGE . CANCEL-LESSP-PLUS) (IMMEDIATE-DEPENDENTS0 BAGDIFF . CANCEL-LESSP-PLUS) (IMMEDIATE-DEPENDENTS0 PLUS-TREE . CANCEL-LESSP-PLUS) (DCELL . *1*CANCEL-LESSP-PLUS))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS) (QUOTE (IDATE 1000402214745 IMMEDIATE-DEPENDENTS0 (REMAINDER-DIFFERENCE-REMAINDER1 REMAINDER-QUOTIENT-ELIM REMAINDER-QUOTIENT TIMES-DISTRIBUTES-DIFFERENCE) EVENT (PROVE-LEMMA CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS ((META DIFFERENCE)) (EQUAL (EVAL$ (QUOTE *1*TRUE) X A) (EVAL$ (QUOTE *1*TRUE) (CANCEL-DIFFERENCE-PLUS X) A)) ((DISABLE EVAL$))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT1 . CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS) (IMMEDIATE-DEPENDENTS0 PLUS-TREE-BAGDIFF . CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS) (IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT2 . CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS) (IMMEDIATE-DEPENDENTS0 BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GEQ . CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS-CANCEL0 . CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS1 . CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE2 . CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS) (IMMEDIATE-DEPENDENTS0 NUMBERP-EVAL$-PLUS . CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS) (IMMEDIATE-DEPENDENTS0 PLUS-TREE-DELETE . CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS) (IMMEDIATE-DEPENDENTS0 PLUS-TREE-PLUS-FRINGE . CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS) (IMMEDIATE-DEPENDENTS0 MEMBER-IMPLIES-PLUS-TREE-GREATEREQP . CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS) (IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS) (IMMEDIATE-DEPENDENTS0 CANCEL-DIFFERENCE-PLUS . CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS) (LEMMAS DIFFERENCE . CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS))))) (PUT1-LST (QUOTE *1*CANCEL-DIFFERENCE-PLUS) (QUOTE (MAIN-EVENT CANCEL-DIFFERENCE-PLUS))) (PUT1-LST (QUOTE CANCEL-DIFFERENCE-PLUS) (QUOTE (TYPE-PRESCRIPTION-LST ((CANCEL-DIFFERENCE-PLUS 16 T)) TOTALP-LST ((CANCEL-DIFFERENCE-PLUS . T)) SDEFN (LAMBDA (X) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE DIFFERENCE)) (IF (LISTP (CAR (CDR X))) (IF (EQUAL (CAR (CAR (CDR X))) (QUOTE PLUS)) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE PLUS)) (CONS (QUOTE DIFFERENCE) (CONS (PLUS-TREE (BAGDIFF (PLUS-FRINGE (CAR (CDR X))) (BAGINT (PLUS-FRINGE (CAR (CDR X))) (PLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (PLUS-TREE (BAGDIFF (PLUS-FRINGE (CAR (CDR (CDR X)))) (BAGINT (PLUS-FRINGE (CAR (CDR X))) (PLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (IF (MEMBER (CAR (CDR (CDR X))) (PLUS-FRINGE (CAR (CDR X)))) (PLUS-TREE (DELETE (CAR (CDR (CDR X))) (PLUS-FRINGE (CAR (CDR X))))) X)) (IF (MEMBER (CAR (CDR (CDR X))) (PLUS-FRINGE (CAR (CDR X)))) (PLUS-TREE (DELETE (CAR (CDR (CDR X))) (PLUS-FRINGE (CAR (CDR X))))) X)) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE PLUS)) (IF (MEMBER (CAR (CDR X)) (PLUS-FRINGE (CAR (CDR (CDR X))))) (QUOTE (QUOTE 0)) X) X) X)) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE PLUS)) (IF (MEMBER (CAR (CDR X)) (PLUS-FRINGE (CAR (CDR (CDR X))))) (QUOTE (QUOTE 0)) X) X) X)) X) X)) LISP-CODE *1*CANCEL-DIFFERENCE-PLUS SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402214745 SATELLITES (*1*CANCEL-DIFFERENCE-PLUS) IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS) EVENT (DEFN CANCEL-DIFFERENCE-PLUS (X) (IF (AND (LISTP X) (EQUAL (CAR X) (QUOTE DIFFERENCE))) (IF (AND (LISTP (CAR (CDR X))) (AND (EQUAL (CAR (CAR (CDR X))) (QUOTE PLUS)) (AND (LISTP (CAR (CDR (CDR X)))) (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE PLUS))))) (CONS (QUOTE DIFFERENCE) (CONS (PLUS-TREE (BAGDIFF (PLUS-FRINGE (CAR (CDR X))) (BAGINT (PLUS-FRINGE (CAR (CDR X))) (PLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (PLUS-TREE (BAGDIFF (PLUS-FRINGE (CAR (CDR (CDR X)))) (BAGINT (PLUS-FRINGE (CAR (CDR X))) (PLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (IF (AND (LISTP (CAR (CDR X))) (AND (EQUAL (CAR (CAR (CDR X))) (QUOTE PLUS)) (MEMBER (CAR (CDR (CDR X))) (PLUS-FRINGE (CAR (CDR X)))))) (PLUS-TREE (DELETE (CAR (CDR (CDR X))) (PLUS-FRINGE (CAR (CDR X))))) (IF (AND (LISTP (CAR (CDR (CDR X)))) (AND (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE PLUS)) (MEMBER (CAR (CDR X)) (PLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE (QUOTE 0)) X))) X)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE . CANCEL-DIFFERENCE-PLUS) (IMMEDIATE-DEPENDENTS0 BAGINT . CANCEL-DIFFERENCE-PLUS) (IMMEDIATE-DEPENDENTS0 PLUS-FRINGE . CANCEL-DIFFERENCE-PLUS) (IMMEDIATE-DEPENDENTS0 BAGDIFF . CANCEL-DIFFERENCE-PLUS) (IMMEDIATE-DEPENDENTS0 PLUS-TREE . CANCEL-DIFFERENCE-PLUS) (DCELL . *1*CANCEL-DIFFERENCE-PLUS))))) (PUT1-LST (QUOTE CORRECTNESS-OF-CANCEL-EQUAL-PLUS) (QUOTE (IDATE 1000402214745 IMMEDIATE-DEPENDENTS0 (REMAINDER-PLUS-CANCEL REMAINDER-PLUS-CANCEL0 REMAINDER-PLUS-REMAINDER2 REMAINDER-PLUS-REMAINDER1 QUOTIENT-ADD1 QUOTIENT-PLUS-TIMES1 TIMES-EQUAL-CANCEL TIMES-EQUAL-CANCEL0) EVENT (PROVE-LEMMA CORRECTNESS-OF-CANCEL-EQUAL-PLUS ((META EQUAL)) (EQUAL (EVAL$ (QUOTE *1*TRUE) X A) (EVAL$ (QUOTE *1*TRUE) (CANCEL-EQUAL-PLUS X) A)) ((DISABLE EVAL$))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT1 . CORRECTNESS-OF-CANCEL-EQUAL-PLUS) (IMMEDIATE-DEPENDENTS0 PLUS-TREE-BAGDIFF . CORRECTNESS-OF-CANCEL-EQUAL-PLUS) (IMMEDIATE-DEPENDENTS0 SUBBAGP-BAGINT2 . CORRECTNESS-OF-CANCEL-EQUAL-PLUS) (IMMEDIATE-DEPENDENTS0 BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GEQ . CORRECTNESS-OF-CANCEL-EQUAL-PLUS) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-EQUAL-CANCEL-1 . CORRECTNESS-OF-CANCEL-EQUAL-PLUS) (IMMEDIATE-DEPENDENTS0 NUMBERP-EVAL$-PLUS . CORRECTNESS-OF-CANCEL-EQUAL-PLUS) (IMMEDIATE-DEPENDENTS0 MEMBER-IMPLIES-PLUS-TREE-GREATEREQP . CORRECTNESS-OF-CANCEL-EQUAL-PLUS) (IMMEDIATE-DEPENDENTS0 EVAL$-QUOTE . CORRECTNESS-OF-CANCEL-EQUAL-PLUS) (IMMEDIATE-DEPENDENTS0 MEMBER-IMPLIES-NUMBERP . CORRECTNESS-OF-CANCEL-EQUAL-PLUS) (IMMEDIATE-DEPENDENTS0 PLUS-TREE-PLUS-FRINGE . CORRECTNESS-OF-CANCEL-EQUAL-PLUS) (IMMEDIATE-DEPENDENTS0 PLUS-TREE-DELETE . CORRECTNESS-OF-CANCEL-EQUAL-PLUS) (IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . CORRECTNESS-OF-CANCEL-EQUAL-PLUS) (IMMEDIATE-DEPENDENTS0 CANCEL-EQUAL-PLUS . CORRECTNESS-OF-CANCEL-EQUAL-PLUS) (LEMMAS EQUAL . CORRECTNESS-OF-CANCEL-EQUAL-PLUS))))) (PUT1-LST (QUOTE *1*CANCEL-EQUAL-PLUS) (QUOTE (MAIN-EVENT CANCEL-EQUAL-PLUS))) (PUT1-LST (QUOTE CANCEL-EQUAL-PLUS) (QUOTE (TYPE-PRESCRIPTION-LST ((CANCEL-EQUAL-PLUS 16 T)) TOTALP-LST ((CANCEL-EQUAL-PLUS . T)) SDEFN (LAMBDA (X) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE EQUAL)) (IF (LISTP (CAR (CDR X))) (IF (EQUAL (CAR (CAR (CDR X))) (QUOTE PLUS)) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE PLUS)) (CONS (QUOTE EQUAL) (CONS (PLUS-TREE (BAGDIFF (PLUS-FRINGE (CAR (CDR X))) (BAGINT (PLUS-FRINGE (CAR (CDR X))) (PLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (PLUS-TREE (BAGDIFF (PLUS-FRINGE (CAR (CDR (CDR X)))) (BAGINT (PLUS-FRINGE (CAR (CDR X))) (PLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (IF (MEMBER (CAR (CDR (CDR X))) (PLUS-FRINGE (CAR (CDR X)))) (CONS (QUOTE IF) (CONS (CONS (QUOTE NUMBERP) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (PLUS-TREE (DELETE (CAR (CDR (CDR X))) (PLUS-FRINGE (CAR (CDR X))))) (QUOTE ((QUOTE 0))))) (QUOTE ((QUOTE *1*FALSE)))))) X)) (IF (MEMBER (CAR (CDR (CDR X))) (PLUS-FRINGE (CAR (CDR X)))) (CONS (QUOTE IF) (CONS (CONS (QUOTE NUMBERP) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (PLUS-TREE (DELETE (CAR (CDR (CDR X))) (PLUS-FRINGE (CAR (CDR X))))) (QUOTE ((QUOTE 0))))) (QUOTE ((QUOTE *1*FALSE)))))) X)) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE PLUS)) (IF (MEMBER (CAR (CDR X)) (PLUS-FRINGE (CAR (CDR (CDR X))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE NUMBERP) (CONS (CAR (CDR X)) (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (QUOTE (QUOTE 0)) (CONS (PLUS-TREE (DELETE (CAR (CDR X)) (PLUS-FRINGE (CAR (CDR (CDR X)))))) (QUOTE NIL)))) (QUOTE ((QUOTE *1*FALSE)))))) X) X) X)) (IF (LISTP (CAR (CDR (CDR X)))) (IF (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE PLUS)) (IF (MEMBER (CAR (CDR X)) (PLUS-FRINGE (CAR (CDR (CDR X))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE NUMBERP) (CONS (CAR (CDR X)) (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (QUOTE (QUOTE 0)) (CONS (PLUS-TREE (DELETE (CAR (CDR X)) (PLUS-FRINGE (CAR (CDR (CDR X)))))) (QUOTE NIL)))) (QUOTE ((QUOTE *1*FALSE)))))) X) X) X)) X) X)) LISP-CODE *1*CANCEL-EQUAL-PLUS SUBRP *1*FALSE LEVEL-NO 2 IDATE 1000402214744 SATELLITES (*1*CANCEL-EQUAL-PLUS) IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-EQUAL-PLUS) EVENT (DEFN CANCEL-EQUAL-PLUS (X) (IF (AND (LISTP X) (EQUAL (CAR X) (QUOTE EQUAL))) (IF (AND (LISTP (CAR (CDR X))) (AND (EQUAL (CAR (CAR (CDR X))) (QUOTE PLUS)) (AND (LISTP (CAR (CDR (CDR X)))) (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE PLUS))))) (CONS (QUOTE EQUAL) (CONS (PLUS-TREE (BAGDIFF (PLUS-FRINGE (CAR (CDR X))) (BAGINT (PLUS-FRINGE (CAR (CDR X))) (PLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (PLUS-TREE (BAGDIFF (PLUS-FRINGE (CAR (CDR (CDR X)))) (BAGINT (PLUS-FRINGE (CAR (CDR X))) (PLUS-FRINGE (CAR (CDR (CDR X))))))) (QUOTE NIL)))) (IF (AND (LISTP (CAR (CDR X))) (AND (EQUAL (CAR (CAR (CDR X))) (QUOTE PLUS)) (MEMBER (CAR (CDR (CDR X))) (PLUS-FRINGE (CAR (CDR X)))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE NUMBERP) (CONS (CAR (CDR (CDR X))) (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (PLUS-TREE (DELETE (CAR (CDR (CDR X))) (PLUS-FRINGE (CAR (CDR X))))) (QUOTE ((QUOTE 0))))) (QUOTE ((QUOTE *1*FALSE)))))) (IF (AND (LISTP (CAR (CDR (CDR X)))) (AND (EQUAL (CAR (CAR (CDR (CDR X)))) (QUOTE PLUS)) (MEMBER (CAR (CDR X)) (PLUS-FRINGE (CAR (CDR (CDR X))))))) (CONS (QUOTE IF) (CONS (CONS (QUOTE NUMBERP) (CONS (CAR (CDR X)) (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (QUOTE (QUOTE 0)) (CONS (PLUS-TREE (DELETE (CAR (CDR X)) (PLUS-FRINGE (CAR (CDR (CDR X)))))) (QUOTE NIL)))) (QUOTE ((QUOTE *1*FALSE)))))) X))) X)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE . CANCEL-EQUAL-PLUS) (IMMEDIATE-DEPENDENTS0 BAGINT . CANCEL-EQUAL-PLUS) (IMMEDIATE-DEPENDENTS0 PLUS-FRINGE . CANCEL-EQUAL-PLUS) (IMMEDIATE-DEPENDENTS0 BAGDIFF . CANCEL-EQUAL-PLUS) (IMMEDIATE-DEPENDENTS0 PLUS-TREE . CANCEL-EQUAL-PLUS) (DCELL . *1*CANCEL-EQUAL-PLUS))))) (PUT1-LST (QUOTE LISTP-EVAL$) (QUOTE (IDATE 1000402214744 EVENT (PROVE-LEMMA LISTP-EVAL$ (REWRITE) (EQUAL (LISTP (EVAL$ (QUOTE LIST) X A)) (LISTP X))) LOCAL-UNDO-TUPLES ((LEMMAS LISTP . LISTP-EVAL$))))) (PUT1-LST (QUOTE EVAL$-QUOTE) (QUOTE (IDATE 1000402214744 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-EQUAL-TIMES CORRECTNESS-OF-CANCEL-LESSP-TIMES AND-NOT-ZEROP-TREE-LESSP EVAL$-TIMES-TREE-APPEND EVAL$-TIMES-MEMBER EVAL$-TIMES-TREE-NUMBERP CORRECTNESS-OF-CANCEL-LESSP-PLUS CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS CORRECTNESS-OF-CANCEL-EQUAL-PLUS) EVENT (PROVE-LEMMA EVAL$-QUOTE (REWRITE) (EQUAL (EVAL$ (QUOTE *1*TRUE) (CONS (QUOTE QUOTE) ARGS) A) (CAR ARGS))) LOCAL-UNDO-TUPLES ((LEMMAS EVAL$ . EVAL$-QUOTE))))) (PUT1-LST (QUOTE CADR-EVAL$-LIST) (QUOTE (IDATE 1000402214744 IMMEDIATE-DEPENDENTS0 (TIMES-TREE-TIMES-FRINGE) EVENT (PROVE-LEMMA CADR-EVAL$-LIST (REWRITE) (AND (EQUAL (CAR (EVAL$ (QUOTE LIST) X A)) (EVAL$ (QUOTE *1*TRUE) (CAR X) A)) (EQUAL (CDR (EVAL$ (QUOTE LIST) X A)) (IF (LISTP X) (EVAL$ (QUOTE LIST) (CDR X) A) (QUOTE 0))))) LOCAL-UNDO-TUPLES ((LEMMAS CDR . CADR-EVAL$-LIST) (LEMMAS CAR . CADR-EVAL$-LIST))))) (PUT1-LST (QUOTE MEMBER-IMPLIES-NUMBERP) (QUOTE (IDATE 1000402214744 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-EQUAL-PLUS) EVENT (PROVE-LEMMA MEMBER-IMPLIES-NUMBERP (REWRITE) (IMPLIES (AND (MEMBER C (PLUS-FRINGE X)) (NUMBERP (EVAL$ (QUOTE *1*TRUE) C A))) (NUMBERP (EVAL$ (QUOTE *1*TRUE) X A))) ((INDUCT (PLUS-FRINGE X)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NUMBERP-EVAL$-PLUS . MEMBER-IMPLIES-NUMBERP) (IMMEDIATE-DEPENDENTS0 PLUS-FRINGE . MEMBER-IMPLIES-NUMBERP) (LEMMAS NUMBERP . MEMBER-IMPLIES-NUMBERP))))) (PUT1-LST (QUOTE PLUS-TREE-PLUS-FRINGE) (QUOTE (IDATE 1000402214744 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-LESSP-PLUS CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS CORRECTNESS-OF-CANCEL-EQUAL-PLUS) EVENT (PROVE-LEMMA PLUS-TREE-PLUS-FRINGE (REWRITE) (EQUAL (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE (PLUS-FRINGE X)) A) (FIX (EVAL$ (QUOTE *1*TRUE) X A))) ((INDUCT (PLUS-FRINGE X)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-CANCEL0 . PLUS-TREE-PLUS-FRINGE) (IMMEDIATE-DEPENDENTS0 NUMBERP-EVAL$-BRIDGE . PLUS-TREE-PLUS-FRINGE) (IMMEDIATE-DEPENDENTS0 EVAL$-PLUS-TREE-APPEND . PLUS-TREE-PLUS-FRINGE) (IMMEDIATE-DEPENDENTS0 NUMBERP-EVAL$-PLUS . PLUS-TREE-PLUS-FRINGE) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . PLUS-TREE-PLUS-FRINGE) (IMMEDIATE-DEPENDENTS0 PLUS-FRINGE . PLUS-TREE-PLUS-FRINGE) (IMMEDIATE-DEPENDENTS0 PLUS-TREE . PLUS-TREE-PLUS-FRINGE) (LEMMAS EVAL$ . PLUS-TREE-PLUS-FRINGE))))) (PUT1-LST (QUOTE EVAL$-PLUS-TREE-APPEND) (QUOTE (IDATE 1000402214744 IMMEDIATE-DEPENDENTS0 (PLUS-TREE-PLUS-FRINGE) EVENT (PROVE-LEMMA EVAL$-PLUS-TREE-APPEND (REWRITE) (EQUAL (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE (APPEND X Y)) A) (PLUS (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE X) A) (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE Y) A)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY1 . EVAL$-PLUS-TREE-APPEND) (IMMEDIATE-DEPENDENTS0 NUMBERP-EVAL$-BRIDGE . EVAL$-PLUS-TREE-APPEND) (IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-CANCEL0 . EVAL$-PLUS-TREE-APPEND) (IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-CANCEL . EVAL$-PLUS-TREE-APPEND) (IMMEDIATE-DEPENDENTS0 NUMBERP-EVAL$-PLUS-TREE . EVAL$-PLUS-TREE-APPEND) (IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-0 . EVAL$-PLUS-TREE-APPEND) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . EVAL$-PLUS-TREE-APPEND) (IMMEDIATE-DEPENDENTS0 PLUS-TREE . EVAL$-PLUS-TREE-APPEND) (LEMMAS EVAL$ . EVAL$-PLUS-TREE-APPEND))))) (PUT1-LST (QUOTE BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GEQ) (QUOTE (IDATE 1000402214743 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-LESSP-PLUS CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS CORRECTNESS-OF-CANCEL-EQUAL-PLUS) EVENT (PROVE-LEMMA BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GEQ (REWRITE) (IMPLIES (AND (SUBBAGP Y (PLUS-FRINGE Z)) (EQUAL (EVAL$ (QUOTE *1*TRUE) Z A) (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE (PLUS-FRINGE Z)) A))) (EQUAL (LESSP (EVAL$ (QUOTE *1*TRUE) Z A) (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE Y) A)) (QUOTE *1*FALSE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-IMPLIES-PLUS-TREE-GEQ . BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GEQ) (IMMEDIATE-DEPENDENTS0 PLUS-TREE . BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GEQ) (IMMEDIATE-DEPENDENTS0 PLUS-FRINGE . BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GEQ) (IMMEDIATE-DEPENDENTS0 SUBBAGP . BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GEQ) (LEMMAS LESSP . BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GEQ))))) (PUT1-LST (QUOTE NUMBERP-EVAL$-BRIDGE) (QUOTE (IDATE 1000402214743 IMMEDIATE-DEPENDENTS0 (PLUS-TREE-PLUS-FRINGE EVAL$-PLUS-TREE-APPEND) EVENT (PROVE-LEMMA NUMBERP-EVAL$-BRIDGE (REWRITE) (IMPLIES (EQUAL (EVAL$ (QUOTE *1*TRUE) Z A) (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE X) A)) (NUMBERP (EVAL$ (QUOTE *1*TRUE) Z A)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 NUMBERP-EVAL$-PLUS-TREE . NUMBERP-EVAL$-BRIDGE) (IMMEDIATE-DEPENDENTS0 PLUS-TREE . NUMBERP-EVAL$-BRIDGE) (LEMMAS NUMBERP . NUMBERP-EVAL$-BRIDGE))))) (PUT1-LST (QUOTE PLUS-TREE-BAGDIFF) (QUOTE (IDATE 1000402214743 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-LESSP-PLUS CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS CORRECTNESS-OF-CANCEL-EQUAL-PLUS) EVENT (PROVE-LEMMA PLUS-TREE-BAGDIFF (REWRITE) (IMPLIES (SUBBAGP X Y) (EQUAL (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE (BAGDIFF Y X)) A) (DIFFERENCE (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE Y) A) (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE X) A))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . PLUS-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 SUBBAGP-IMPLIES-PLUS-TREE-GEQ . PLUS-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . PLUS-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 SUBBAGP-CDR2 . PLUS-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 NUMBERP-EVAL$-PLUS-TREE . PLUS-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 PLUS-TREE-DELETE . PLUS-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-DIFFERENCE1 . PLUS-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 BAGDIFF . PLUS-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 PLUS-TREE . PLUS-TREE-BAGDIFF) (IMMEDIATE-DEPENDENTS0 SUBBAGP . PLUS-TREE-BAGDIFF) (LEMMAS EVAL$ . PLUS-TREE-BAGDIFF))))) (PUT1-LST (QUOTE SUBBAGP-IMPLIES-PLUS-TREE-GEQ) (QUOTE (IDATE 1000402214742 IMMEDIATE-DEPENDENTS0 (BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GEQ PLUS-TREE-BAGDIFF) EVENT (PROVE-LEMMA SUBBAGP-IMPLIES-PLUS-TREE-GEQ (REWRITE) (IMPLIES (SUBBAGP X Y) (NOT (LESSP (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE Y) A) (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE X) A))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-CDR2 . SUBBAGP-IMPLIES-PLUS-TREE-GEQ) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . SUBBAGP-IMPLIES-PLUS-TREE-GEQ) (IMMEDIATE-DEPENDENTS0 MEMBER-IMPLIES-PLUS-TREE-GREATEREQP . SUBBAGP-IMPLIES-PLUS-TREE-GEQ) (IMMEDIATE-DEPENDENTS0 PLUS-TREE-DELETE . SUBBAGP-IMPLIES-PLUS-TREE-GEQ) (IMMEDIATE-DEPENDENTS0 PLUS-TREE . SUBBAGP-IMPLIES-PLUS-TREE-GEQ) (IMMEDIATE-DEPENDENTS0 SUBBAGP . SUBBAGP-IMPLIES-PLUS-TREE-GEQ) (LINEAR-LEMMAS EVAL$ . SUBBAGP-IMPLIES-PLUS-TREE-GEQ) (LINEAR-LEMMAS EVAL$ . SUBBAGP-IMPLIES-PLUS-TREE-GEQ))))) (PUT1-LST (QUOTE PLUS-TREE-DELETE) (QUOTE (IDATE 1000402214742 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-LESSP-PLUS CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS CORRECTNESS-OF-CANCEL-EQUAL-PLUS PLUS-TREE-BAGDIFF SUBBAGP-IMPLIES-PLUS-TREE-GEQ) EVENT (PROVE-LEMMA PLUS-TREE-DELETE (REWRITE) (EQUAL (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE (DELETE X Y)) A) (IF (MEMBER X Y) (DIFFERENCE (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE Y) A) (EVAL$ (QUOTE *1*TRUE) X A)) (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE Y) A)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-CANCEL . PLUS-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-0 . PLUS-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . PLUS-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-CANCEL0 . PLUS-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 MEMBER-IMPLIES-PLUS-TREE-GREATEREQP . PLUS-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . PLUS-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-EQUAL-CANCEL-0 . PLUS-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 NUMBERP-EVAL$-PLUS-TREE . PLUS-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-PLUS-CANCEL0 . PLUS-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-X . PLUS-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . PLUS-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 DELETE-NON-MEMBER . PLUS-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 DELETE . PLUS-TREE-DELETE) (IMMEDIATE-DEPENDENTS0 PLUS-TREE . PLUS-TREE-DELETE) (LEMMAS EVAL$ . PLUS-TREE-DELETE))))) (PUT1-LST (QUOTE MEMBER-IMPLIES-PLUS-TREE-GREATEREQP) (QUOTE (IDATE 1000402214740 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-LESSP-PLUS CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS CORRECTNESS-OF-CANCEL-EQUAL-PLUS SUBBAGP-IMPLIES-PLUS-TREE-GEQ PLUS-TREE-DELETE) EVENT (PROVE-LEMMA MEMBER-IMPLIES-PLUS-TREE-GREATEREQP (REWRITE) (IMPLIES (MEMBER X Y) (NOT (LESSP (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE Y) A) (EVAL$ (QUOTE *1*TRUE) X A))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-TREE . MEMBER-IMPLIES-PLUS-TREE-GREATEREQP) (LINEAR-LEMMAS EVAL$ . MEMBER-IMPLIES-PLUS-TREE-GREATEREQP) (LINEAR-LEMMAS EVAL$ . MEMBER-IMPLIES-PLUS-TREE-GREATEREQP))))) (PUT1-LST (QUOTE NUMBERP-EVAL$-PLUS-TREE) (QUOTE (IDATE 1000402214740 IMMEDIATE-DEPENDENTS0 (EVAL$-PLUS-TREE-APPEND NUMBERP-EVAL$-BRIDGE PLUS-TREE-BAGDIFF PLUS-TREE-DELETE) EVENT (PROVE-LEMMA NUMBERP-EVAL$-PLUS-TREE (REWRITE) (NUMBERP (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE L) A))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-TREE . NUMBERP-EVAL$-PLUS-TREE) (LEMMAS NUMBERP . NUMBERP-EVAL$-PLUS-TREE))))) (PUT1-LST (QUOTE NUMBERP-EVAL$-PLUS) (QUOTE (IDATE 1000402214740 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-LESSP-PLUS CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS CORRECTNESS-OF-CANCEL-EQUAL-PLUS MEMBER-IMPLIES-NUMBERP PLUS-TREE-PLUS-FRINGE) EVENT (PROVE-LEMMA NUMBERP-EVAL$-PLUS (REWRITE) (IMPLIES (EQUAL (CAR X) (QUOTE PLUS)) (NUMBERP (EVAL$ (QUOTE *1*TRUE) X A)))) LOCAL-UNDO-TUPLES ((LEMMAS NUMBERP . NUMBERP-EVAL$-PLUS))))) (PUT1-LST (QUOTE *1*PLUS-TREE) (QUOTE (MAIN-EVENT PLUS-TREE))) (PUT1-LST (QUOTE PLUS-TREE) (QUOTE (TYPE-PRESCRIPTION-LST ((PLUS-TREE 16 NIL)) TOTALP-LST ((PLUS-TREE . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (L) (IF (LISTP L) (IF (LISTP (CDR L)) (IF (LISTP (CDR (CDR L))) (CONS (QUOTE PLUS) (CONS (CAR L) (CONS (PLUS-TREE (CDR L)) (QUOTE NIL)))) (CONS (QUOTE PLUS) (CONS (CAR L) (CONS (CAR (CDR L)) (QUOTE NIL))))) (CONS (QUOTE FIX) (CONS (CAR L) (QUOTE NIL)))) (QUOTE (QUOTE 0)))) LISP-CODE *1*PLUS-TREE SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP L)) NIL) (TESTS-AND-CASES ((NOT (NLISTP L)) (NLISTP (CDR L))) NIL) (TESTS-AND-CASES ((NOT (NLISTP L)) (NOT (NLISTP (CDR L))) (NLISTP (CDR (CDR L)))) NIL) (TESTS-AND-CASES ((NOT (NLISTP L)) (NOT (NLISTP (CDR L))) (NOT (NLISTP (CDR (CDR L))))) (((CDR L))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (L) (COUNT L) LESSP (CDR-LESSP NLISTP ZERO CDR-LESSEQP))) IDATE 1000402214740 CONTROLLER-POCKETS (1) SATELLITES (*1*PLUS-TREE) IMMEDIATE-DEPENDENTS0 (CANCEL-LESSP-PLUS CANCEL-DIFFERENCE-PLUS CANCEL-EQUAL-PLUS PLUS-TREE-PLUS-FRINGE EVAL$-PLUS-TREE-APPEND BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GEQ NUMBERP-EVAL$-BRIDGE PLUS-TREE-BAGDIFF SUBBAGP-IMPLIES-PLUS-TREE-GEQ PLUS-TREE-DELETE MEMBER-IMPLIES-PLUS-TREE-GREATEREQP NUMBERP-EVAL$-PLUS-TREE) EVENT (DEFN PLUS-TREE (L) (IF (NLISTP L) (QUOTE (QUOTE 0)) (IF (NLISTP (CDR L)) (CONS (QUOTE FIX) (CONS (CAR L) (QUOTE NIL))) (IF (NLISTP (CDR (CDR L))) (CONS (QUOTE PLUS) (CONS (CAR L) (CONS (CAR (CDR L)) (QUOTE NIL)))) (CONS (QUOTE PLUS) (CONS (CAR L) (CONS (PLUS-TREE (CDR L)) (QUOTE NIL)))))))) LOCAL-UNDO-TUPLES ((DCELL . *1*PLUS-TREE))))) (PUT1-LST (QUOTE *1*PLUS-FRINGE) (QUOTE (MAIN-EVENT PLUS-FRINGE))) (PUT1-LST (QUOTE PLUS-FRINGE) (QUOTE (TYPE-PRESCRIPTION-LST ((PLUS-FRINGE 16 NIL)) TOTALP-LST ((PLUS-FRINGE . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (X) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE PLUS)) (APPEND (PLUS-FRINGE (CAR (CDR X))) (PLUS-FRINGE (CAR (CDR (CDR X))))) (CONS X (QUOTE NIL))) (CONS X (QUOTE NIL)))) LISP-CODE *1*PLUS-FRINGE SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((AND (LISTP X) (EQUAL (CAR X) (QUOTE PLUS)))) (((CAR (CDR (CDR X)))) ((CAR (CDR X))))) (TESTS-AND-CASES ((NOT (AND (LISTP X) (EQUAL (CAR X) (QUOTE PLUS))))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (CDR-LESSP AND ZERO CDR-LESSEQP CAR-LESSEQP))) IDATE 1000402214740 CONTROLLER-POCKETS (1) SATELLITES (*1*PLUS-FRINGE) IMMEDIATE-DEPENDENTS0 (CANCEL-LESSP-PLUS CANCEL-DIFFERENCE-PLUS CANCEL-EQUAL-PLUS MEMBER-IMPLIES-NUMBERP PLUS-TREE-PLUS-FRINGE BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GEQ) EVENT (DEFN PLUS-FRINGE (X) (IF (AND (LISTP X) (EQUAL (CAR X) (QUOTE PLUS))) (APPEND (PLUS-FRINGE (CAR (CDR X))) (PLUS-FRINGE (CAR (CDR (CDR X))))) (CONS X (QUOTE NIL)))) LOCAL-UNDO-TUPLES ((DCELL . *1*PLUS-FRINGE))))) (PUT1-LST (QUOTE DIFFERENCE-LESSP-CANCEL) (QUOTE (IDATE 1000402214740 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-LESSP-PLUS) EVENT (PROVE-LEMMA DIFFERENCE-LESSP-CANCEL (REWRITE) (EQUAL (LESSP (DIFFERENCE A C) (DIFFERENCE B C)) (IF (IF (LESSP A C) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (LESSP A B) (LESSP C B)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1-SUB1 . DIFFERENCE-LESSP-CANCEL) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . DIFFERENCE-LESSP-CANCEL) (IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . DIFFERENCE-LESSP-CANCEL) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . DIFFERENCE-LESSP-CANCEL) (IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . DIFFERENCE-LESSP-CANCEL) (LEMMAS LESSP . DIFFERENCE-LESSP-CANCEL))))) (PUT1-LST (QUOTE DIFFERENCE-EQUAL-CANCEL-1) (QUOTE (IDATE 1000402214740 IMMEDIATE-DEPENDENTS0 (REMAINDER-PLUS-DIFFERENCE2 CORRECTNESS-OF-CANCEL-EQUAL-PLUS) EVENT (PROVE-LEMMA DIFFERENCE-EQUAL-CANCEL-1 (REWRITE) (EQUAL (EQUAL (DIFFERENCE X Z) (DIFFERENCE Y Z)) (IF (LESSP X Z) (NOT (LESSP Z Y)) (IF (LESSP Y Z) (NOT (LESSP Z X)) (EQUAL (FIX X) (FIX Y)))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-X-X . DIFFERENCE-EQUAL-CANCEL-1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . DIFFERENCE-EQUAL-CANCEL-1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE=0 . DIFFERENCE-EQUAL-CANCEL-1) (LEMMAS EQUAL . DIFFERENCE-EQUAL-CANCEL-1))))) (PUT1-LST (QUOTE DIFFERENCE-EQUAL-CANCEL-0) (QUOTE (IDATE 1000402214740 IMMEDIATE-DEPENDENTS0 (PLUS-TREE-DELETE) EVENT (PROVE-LEMMA DIFFERENCE-EQUAL-CANCEL-0 (REWRITE) (EQUAL (EQUAL X (DIFFERENCE X Y)) (AND (NUMBERP X) (OR (EQUAL X (QUOTE 0)) (ZEROP Y))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . DIFFERENCE-EQUAL-CANCEL-0) (LEMMAS EQUAL . DIFFERENCE-EQUAL-CANCEL-0))))) (PUT1-LST (QUOTE DIFFERENCE=0) (QUOTE (IDATE 1000402214740 IMMEDIATE-DEPENDENTS0 (LOG-QUOTIENT-EXP QUOTIENT-TIMES-EXP2-1 REMAINDER-TIMES-EXP2-1 LESSP-PLUS-EXP2 LESSP-PLUS-TIMES-EXP2 QUOTIENT-EXP QUOTIENT-SUB1 REMAINDER-SUB1 QUOTIENT-DIFFERENCE QUOTIENT-LESSP TIMES-EXP2-LESSP CORRECTNESS-OF-CANCEL-LESSP-PLUS CORRECTNESS-OF-CANCEL-EQUAL-PLUS PLUS-TREE-DELETE DIFFERENCE-LESSP-CANCEL DIFFERENCE-EQUAL-CANCEL-1) EVENT (PROVE-LEMMA DIFFERENCE=0 (REWRITE) (EQUAL (EQUAL (QUOTE 0) (DIFFERENCE X Y)) (NOT (LESSP Y X)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . DIFFERENCE=0) (LEMMAS EQUAL . DIFFERENCE=0))))) (PUT1-LST (QUOTE DIFFERENCE-LESSP1) (QUOTE (IDATE 1000402214740 IMMEDIATE-DEPENDENTS0 (QUOTIENT-ADD1 REMAINDER-ADD1 QUOTIENT-SUB1) EVENT (PROVE-LEMMA DIFFERENCE-LESSP1 (REWRITE) (IMPLIES (LESSP X Z) (EQUAL (LESSP (DIFFERENCE X Y) Z) (QUOTE *1*TRUE)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . DIFFERENCE-LESSP1) (LEMMAS LESSP . DIFFERENCE-LESSP1))))) (PUT1-LST (QUOTE DIFFERENCE-LESSP) (QUOTE (IDATE 1000402214740 EVENT (PROVE-LEMMA DIFFERENCE-LESSP (REWRITE) (EQUAL (LESSP (DIFFERENCE M N) M) (AND (NOT (ZEROP M)) (NOT (ZEROP N))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . DIFFERENCE-LESSP) (LEMMAS LESSP . DIFFERENCE-LESSP))))) (PUT1-LST (QUOTE DIFFERENCE-PLUS-CANCEL-ADD1) (QUOTE (IDATE 1000402214740 EVENT (PROVE-LEMMA DIFFERENCE-PLUS-CANCEL-ADD1 (REWRITE) (EQUAL (DIFFERENCE (PLUS Y X) (ADD1 Y)) (SUB1 X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . DIFFERENCE-PLUS-CANCEL-ADD1) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . DIFFERENCE-PLUS-CANCEL-ADD1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . DIFFERENCE-PLUS-CANCEL-ADD1) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . DIFFERENCE-PLUS-CANCEL-ADD1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1 . DIFFERENCE-PLUS-CANCEL-ADD1) (LEMMAS DIFFERENCE . DIFFERENCE-PLUS-CANCEL-ADD1))))) (PUT1-LST (QUOTE DIFFERENCE-PLUS-CANCEL1) (QUOTE (IDATE 1000402214740 EVENT (PROVE-LEMMA DIFFERENCE-PLUS-CANCEL1 (REWRITE) (EQUAL (DIFFERENCE (PLUS X Y) (PLUS X Z)) (DIFFERENCE Y Z))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-LESSP-CANCEL-1 . DIFFERENCE-PLUS-CANCEL1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . DIFFERENCE-PLUS-CANCEL1) (LEMMAS DIFFERENCE . DIFFERENCE-PLUS-CANCEL1))))) (PUT1-LST (QUOTE DIFFERENCE-DIFFERENCE2) (QUOTE (IDATE 1000402214740 IMMEDIATE-DEPENDENTS0 (REMAINDER-DIFFERENCE-REMAINDER1 QUOTIENT-DIFFERENCE REMAINDER-DIFFERENCE CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS) EVENT (PROVE-LEMMA DIFFERENCE-DIFFERENCE2 (REWRITE) (IMPLIES (NOT (LESSP Y Z)) (EQUAL (DIFFERENCE X (DIFFERENCE Y Z)) (DIFFERENCE (PLUS X Z) Y))) ((INDUCT (DIFFERENCE Y Z)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1-SUB1 . DIFFERENCE-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . DIFFERENCE-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . DIFFERENCE-DIFFERENCE2) (IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-0 . DIFFERENCE-DIFFERENCE2) (LEMMAS DIFFERENCE . DIFFERENCE-DIFFERENCE2))))) (PUT1-LST (QUOTE DIFFERENCE-DIFFERENCE1) (QUOTE (IDATE 1000402214740 IMMEDIATE-DEPENDENTS0 (REMAINDER-DIFFERENCE-REMAINDER1 REMAINDER-PLUS-DIFFERENCE2 PLUS-TREE-BAGDIFF) EVENT (PROVE-LEMMA DIFFERENCE-DIFFERENCE1 (REWRITE) (EQUAL (DIFFERENCE (DIFFERENCE X Y) Z) (DIFFERENCE X (PLUS Y Z)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . DIFFERENCE-DIFFERENCE1) (LEMMAS DIFFERENCE . DIFFERENCE-DIFFERENCE1))))) (PUT1-LST (QUOTE DIFFERENCE-PLUS2) (QUOTE (IDATE 1000402214739 IMMEDIATE-DEPENDENTS0 (REMAINDER-PLUS-CANCEL0 REMAINDER-QUOTIENT-ELIM REMAINDER-QUOTIENT) EVENT (PROVE-LEMMA DIFFERENCE-PLUS2 (REWRITE) (IMPLIES (NOT (LESSP Y Z)) (EQUAL (PLUS X (DIFFERENCE Y Z)) (DIFFERENCE (PLUS X Y) Z)))) LOCAL-UNDO-TUPLES ((LEMMAS PLUS . DIFFERENCE-PLUS2))))) (PUT1-LST (QUOTE DIFFERENCE-PLUS1) (QUOTE (IDATE 1000402214739 IMMEDIATE-DEPENDENTS0 (QUOTIENT-PLUS1 REMAINDER-PLUS-DIFFERENCE2 REMAINDER-PLUS2 REMAINDER-PLUS1 CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS) EVENT (PROVE-LEMMA DIFFERENCE-PLUS1 (REWRITE) (IMPLIES (NOT (LESSP X Y)) (EQUAL (PLUS (DIFFERENCE X Y) Z) (DIFFERENCE (PLUS X Z) Y)))) LOCAL-UNDO-TUPLES ((LEMMAS PLUS . DIFFERENCE-PLUS1))))) (PUT1-LST (QUOTE DIFFERENCE-PLUS-CANCEL0) (QUOTE (IDATE 1000402214739 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS PLUS-TREE-DELETE) EVENT (PROVE-LEMMA DIFFERENCE-PLUS-CANCEL0 (REWRITE) (AND (EQUAL (DIFFERENCE (PLUS X Y) X) (FIX Y)) (EQUAL (DIFFERENCE (PLUS Y X) X) (FIX Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . DIFFERENCE-PLUS-CANCEL0) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-0 . DIFFERENCE-PLUS-CANCEL0) (LEMMAS DIFFERENCE . DIFFERENCE-PLUS-CANCEL0) (LEMMAS DIFFERENCE . DIFFERENCE-PLUS-CANCEL0))))) (PUT1-LST (QUOTE DIFFERENCE-X-X) (QUOTE (IDATE 1000402214739 IMMEDIATE-DEPENDENTS0 (QUOTIENT-SUB1 REMAINDER-SUB1 QUOTIENT-EQUAL-0 QUOTIENT-X-X REMAINDER-X-X PLUS-TREE-DELETE DIFFERENCE-EQUAL-CANCEL-1) EVENT (PROVE-LEMMA DIFFERENCE-X-X (REWRITE) (EQUAL (DIFFERENCE X X) (QUOTE 0))) LOCAL-UNDO-TUPLES ((LEMMAS DIFFERENCE . DIFFERENCE-X-X))))) (PUT1-LST (QUOTE DIFFERENCE-0) (QUOTE (IDATE 1000402214739 IMMEDIATE-DEPENDENTS0 (LOG-QUOTIENT-EXP REMAINDER-REMAINDER-EXP2 QUOTIENT-TIMES-EXP2-3 QUOTIENT-TIMES-EXP2-1 REMAINDER-TIMES-EXP2-3 REMAINDER-TIMES-EXP2-1 LESSP-PLUS-TIMES-EXP2 QUOTIENT-EXP REMAINDER-CROCK REMAINDER-DIFFERENCE-REMAINDER1 QUOTIENT-SUB1 QUOTIENT-DIFFERENCE-TIMES2 QUOTIENT-DIFFERENCE-TIMES1 QUOTIENT-DIFFERENCE QUOTIENT-TIMES REMAINDER-DIFFERENCE REMAINDER-PLUS-DIFFERENCE2 QUOTIENT-1 REMAINDER-1 TIMES-EXP2-LESSP TIMES-DISTRIBUTES-DIFFERENCE CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS PLUS-TREE-BAGDIFF PLUS-TREE-DELETE DIFFERENCE-LESSP-CANCEL DIFFERENCE-EQUAL-CANCEL-1 DIFFERENCE-EQUAL-CANCEL-0 DIFFERENCE=0 DIFFERENCE-LESSP1 DIFFERENCE-LESSP DIFFERENCE-PLUS-CANCEL-ADD1 DIFFERENCE-PLUS-CANCEL1 DIFFERENCE-DIFFERENCE2 DIFFERENCE-DIFFERENCE1 DIFFERENCE-PLUS-CANCEL0) EVENT (PROVE-LEMMA DIFFERENCE-0 (REWRITE) (IMPLIES (IF (LESSP Y X) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (EQUAL (DIFFERENCE X Y) (QUOTE 0)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . DIFFERENCE-0) (LEMMAS DIFFERENCE . DIFFERENCE-0))))) (PUT1-LST (QUOTE DIFFERENCE-SUB1-SUB1) (QUOTE (IDATE 1000402214739 IMMEDIATE-DEPENDENTS0 (QUOTIENT-TIMES-EXP2-1 REMAINDER-TIMES-EXP2-1 LESSP-PLUS-TIMES-EXP2 QUOTIENT-EXP QUOTIENT-SUB1 REMAINDER-SUB1 TIMES-EXP2-LESSP DIFFERENCE-LESSP-CANCEL DIFFERENCE-DIFFERENCE2) EVENT (PROVE-LEMMA DIFFERENCE-SUB1-SUB1 (REWRITE) (EQUAL (SUB1 (DIFFERENCE X (SUB1 Y))) (IF (ZEROP Y) (SUB1 X) (IF (LESSP X Y) (QUOTE 0) (DIFFERENCE X Y))))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . DIFFERENCE-SUB1-SUB1) (IMMEDIATE-DEPENDENTS0 DIFFERENCE-SUB1 . DIFFERENCE-SUB1-SUB1) (IMMEDIATE-DEPENDENTS0 SUB1-OF-1 . DIFFERENCE-SUB1-SUB1) (LEMMAS SUB1 . DIFFERENCE-SUB1-SUB1))))) (PUT1-LST (QUOTE DIFFERENCE-SUB1) (QUOTE (IDATE 1000402214739 IMMEDIATE-DEPENDENTS0 (QUOTIENT-TIMES-EXP2-3 QUOTIENT-2X-ADD1 REMAINDER-2X-ADD1 QUOTIENT-2X REMAINDER-2X QUOTIENT-1 DIFFERENCE-PLUS-CANCEL-ADD1 DIFFERENCE-SUB1-SUB1) EVENT (PROVE-LEMMA DIFFERENCE-SUB1 (REWRITE) (EQUAL (DIFFERENCE X (QUOTE 1)) (SUB1 X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . DIFFERENCE-SUB1) (LEMMAS DIFFERENCE . DIFFERENCE-SUB1))))) (PUT1-LST (QUOTE SUB1-OF-1) (QUOTE (IDATE 1000402214739 IMMEDIATE-DEPENDENTS0 (LOG-QUOTIENT-EXP LOG-TIMES-EXP LOG-EXP QUOTIENT-TIMES-EXP2-4 LESSP-PLUS-TIMES-EXP2 REMAINDER-EXP QUOTIENT-EXP TIMES-PLUS-LESSP QUOTIENT-ADD1 REMAINDER-ADD1 REMAINDER-SUB1 QUOTIENT-TIMES QUOTIENT-LESSP TIMES-EXP2-LESSP EXP-OF-2-1 TIMES2-ADD1-LESSP-CANCEL TIMES-LESSP-CANCEL-1 TIMES-LESSP-CANCEL TIMES-LESSP-CANCEL0 TIMES-LESSP-1 TIMES-EQUAL-CANCEL TIMES-EQUAL-CANCEL0 TIMES-ADD1-SUB1 TIMES-EQUAL-0 DIFFERENCE-LESSP-CANCEL DIFFERENCE-PLUS-CANCEL-ADD1 DIFFERENCE-SUB1-SUB1) EVENT (PROVE-LEMMA SUB1-OF-1 (REWRITE) (EQUAL (EQUAL (SUB1 X) (QUOTE 0)) (OR (ZEROP X) (EQUAL X (QUOTE 1))))) LOCAL-UNDO-TUPLES ((LEMMAS EQUAL . SUB1-OF-1))))) (PUT1-LST (QUOTE PLUS-EQUAL-0) (QUOTE (IDATE 1000402214739 IMMEDIATE-DEPENDENTS0 (LOG-TIMES-EXP LESSP-PLUS-TIMES-EXP2 TIMES-PLUS-LESSP TIMES2-ADD1-LESSP-CANCEL TIMES-LESSP-CANCEL0 TIMES-EQUAL-0 TIMES-DISTRIBUTES-PLUS EVAL$-PLUS-TREE-APPEND PLUS-TREE-DELETE DIFFERENCE-DIFFERENCE2) EVENT (PROVE-LEMMA PLUS-EQUAL-0 (REWRITE) (EQUAL (EQUAL (PLUS X Y) (QUOTE 0)) (AND (ZEROP X) (ZEROP Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . PLUS-EQUAL-0) (LEMMAS EQUAL . PLUS-EQUAL-0))))) (PUT1-LST (QUOTE PLUS-LESSP-CANCEL-ADD1) (QUOTE (IDATE 1000402214739 EVENT (PROVE-LEMMA PLUS-LESSP-CANCEL-ADD1 (REWRITE) (EQUAL (LESSP (PLUS Y X) (ADD1 Y)) (ZEROP X))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-SUB1 . PLUS-LESSP-CANCEL-ADD1) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . PLUS-LESSP-CANCEL-ADD1) (LEMMAS LESSP . PLUS-LESSP-CANCEL-ADD1))))) (PUT1-LST (QUOTE PLUS-LESSP-CANCEL-1) (QUOTE (IDATE 1000402214739 IMMEDIATE-DEPENDENTS0 (TA-LEMMA-2 TA-LEMMA-1 DIFFERENCE-PLUS-CANCEL1) EVENT (PROVE-LEMMA PLUS-LESSP-CANCEL-1 (REWRITE) (EQUAL (LESSP (PLUS X Y) (PLUS X Z)) (LESSP Y Z))) LOCAL-UNDO-TUPLES ((LEMMAS LESSP . PLUS-LESSP-CANCEL-1))))) (PUT1-LST (QUOTE PLUS-LESSP-CANCEL-0) (QUOTE (IDATE 1000402214739 EVENT (PROVE-LEMMA PLUS-LESSP-CANCEL-0 (REWRITE) (EQUAL (LESSP X (PLUS X Y)) (NOT (ZEROP Y)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 LESSP-OF-1 . PLUS-LESSP-CANCEL-0) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . PLUS-LESSP-CANCEL-0) (LEMMAS LESSP . PLUS-LESSP-CANCEL-0))))) (PUT1-LST (QUOTE PLUS-EQUAL-CANCEL) (QUOTE (IDATE 1000402214739 IMMEDIATE-DEPENDENTS0 (EVAL$-PLUS-TREE-APPEND PLUS-TREE-DELETE) EVENT (PROVE-LEMMA PLUS-EQUAL-CANCEL (REWRITE) (EQUAL (EQUAL (PLUS X Y) (PLUS X Z)) (EQUAL (FIX Y) (FIX Z)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 PLUS-EQUAL-CANCEL0 . PLUS-EQUAL-CANCEL) (IMMEDIATE-DEPENDENTS0 PLUS-COMMUTATIVITY . PLUS-EQUAL-CANCEL) (LEMMAS EQUAL . PLUS-EQUAL-CANCEL))))) (PUT1-LST (QUOTE PLUS-EQUAL-CANCEL0) (QUOTE (IDATE 1000402214739 IMMEDIATE-DEPENDENTS0 (PLUS-TREE-PLUS-FRINGE EVAL$-PLUS-TREE-APPEND PLUS-TREE-DELETE PLUS-EQUAL-CANCEL) EVENT (PROVE-LEMMA PLUS-EQUAL-CANCEL0 (REWRITE) (EQUAL (EQUAL (PLUS X Y) X) (AND (NUMBERP X) (ZEROP Y)))) LOCAL-UNDO-TUPLES ((LEMMAS EQUAL . PLUS-EQUAL-CANCEL0))))) (PUT1-LST (QUOTE PLUS-ASSOCIATIVITY) (QUOTE (IDATE 1000402214739 IMMEDIATE-DEPENDENTS0 (REMAINDER-REMAINDER-EXP2 TIMES-DISTRIBUTES-PLUS) EVENT (PROVE-LEMMA PLUS-ASSOCIATIVITY (REWRITE) (EQUAL (PLUS (PLUS X Y) Z) (PLUS X (PLUS Y Z)))) LOCAL-UNDO-TUPLES ((LEMMAS PLUS . PLUS-ASSOCIATIVITY))))) (PUT1-LST (QUOTE PLUS-COMMUTATIVITY1) (QUOTE (IDATE 1000402214739 IMMEDIATE-DEPENDENTS0 (REMAINDER-PLUS-REMAINDER2 REMAINDER-PLUS-REMAINDER1 TIMES-PLUS-LESSP REMAINDER-QUOTIENT-ELIM REMAINDER-QUOTIENT QUOTIENT-PLUS-PLUS REMAINDER-PLUS-PLUS-TIMES2 REMAINDER-PLUS-PLUS-TIMES1 REMAINDER-PLUS-PLUS TIMES-DISTRIBUTES-PLUS EVAL$-PLUS-TREE-APPEND) EVENT (PROVE-LEMMA PLUS-COMMUTATIVITY1 (REWRITE) (EQUAL (PLUS X (PLUS Y Z)) (PLUS Y (PLUS X Z)))) LOCAL-UNDO-TUPLES ((LEMMAS PLUS . PLUS-COMMUTATIVITY1))))) (PUT1-LST (QUOTE PLUS-COMMUTATIVITY) (QUOTE (IDATE 1000402214739 IMMEDIATE-DEPENDENTS0 (REMAINDER-REMAINDER-EXP2 LESSP-PLUS-TIMES-EXP2 REMAINDER-PLUS-CANCEL REMAINDER-PLUS-CANCEL0 REMAINDER-PLUS-REMAINDER REMAINDER-PLUS-REMAINDER2 REMAINDER-PLUS-REMAINDER1 TIMES-PLUS-LESSP QUOTIENT-ADD1 REMAINDER-QUOTIENT-ELIM REMAINDER-QUOTIENT QUOTIENT-DIFFERENCE QUOTIENT-DIFFERENCE-PLUS2 QUOTIENT-DIFFERENCE-PLUS1 QUOTIENT-PLUS-ADD1 QUOTIENT-PLUS-PLUS QUOTIENT-PLUS-TIMES2 QUOTIENT-PLUS2 QUOTIENT-PLUS1 REMAINDER-PLUS-PLUS-TIMES2 REMAINDER-PLUS-PLUS-TIMES1 REMAINDER-PLUS-DIFFERENCE2 REMAINDER-PLUS-ADD1 REMAINDER-PLUS-PLUS REMAINDER-PLUS1 QUOTIENT-2X-ADD1 REMAINDER-2X-ADD1 QUOTIENT-2X REMAINDER-2X TIMES2-ADD1-LESSP-CANCEL TIMES-LESSP-CANCEL-1 TIMES-1 TIMES-EQUAL-0 TIMES-ADD1 TIMES-ZERO PLUS-LESSP-CANCEL-2 PLUS-TREE-PLUS-FRINGE EVAL$-PLUS-TREE-APPEND PLUS-TREE-BAGDIFF SUBBAGP-IMPLIES-PLUS-TREE-GEQ PLUS-TREE-DELETE DIFFERENCE-PLUS-CANCEL-ADD1 DIFFERENCE-DIFFERENCE2 DIFFERENCE-PLUS-CANCEL0 PLUS-EQUAL-0 PLUS-LESSP-CANCEL-ADD1 PLUS-LESSP-CANCEL-0 PLUS-EQUAL-CANCEL) EVENT (PROVE-LEMMA PLUS-COMMUTATIVITY (REWRITE) (EQUAL (PLUS X Y) (PLUS Y X))) LOCAL-UNDO-TUPLES ((LEMMAS PLUS . PLUS-COMMUTATIVITY))))) (PUT1-LST (QUOTE PLUS-ADD1-1) (QUOTE (IDATE 1000402214739 IMMEDIATE-DEPENDENTS0 (REMAINDER-PLUS-REMAINDER2 QUOTIENT-PLUS1 QUOTIENT-2X-ADD1 REMAINDER-2X-ADD1) EVENT (PROVE-LEMMA PLUS-ADD1-1 (REWRITE) (EQUAL (PLUS X (ADD1 Y)) (ADD1 (PLUS X Y)))) LOCAL-UNDO-TUPLES ((LEMMAS PLUS . PLUS-ADD1-1))))) (PUT1-LST (QUOTE PLUS-ADD1) (QUOTE (IDATE 1000402214739 IMMEDIATE-DEPENDENTS0 (LESSP-PLUS-TIMES-EXP2 QUOTIENT-ADD1 QUOTIENT-SUB1 QUOTIENT-DIFFERENCE QUOTIENT-PLUS-ADD1 QUOTIENT-TIMES REMAINDER-PLUS-ADD1 TIMES-LESSP-CANCEL-1) EVENT (PROVE-LEMMA PLUS-ADD1 (REWRITE) (EQUAL (PLUS (QUOTE 1) X) (ADD1 X))) LOCAL-UNDO-TUPLES ((LEMMAS PLUS . PLUS-ADD1))))) (PUT1-LST (QUOTE LESSP-SUB1) (QUOTE (IDATE 1000402214739 IMMEDIATE-DEPENDENTS0 (MAP-UPDATE STEPN MOVEP-READ MOVEP-READP MOVEP-WRITE MOVEP-WRITEP READM-MEM WRITE-MEM WRITE-MEMP PC-READ-MEM READ-MEM PC-READ-MEMP READ-MEMP PUT-NTH GET-NTH WRITE READ WRITEP PC-READP READP SETN LOG-QUOTIENT-EXP LOG-TIMES-EXP LOG-EXP QUOT2-SUB12-INDUCT REMAINDER-EXP QUOTIENT-ADD1 REMAINDER-ADD1 EXP-LESSP EXP-OF-2-1 EXP-OF-2-0 EXP-EXP EXP-TIMES EXP-PLUS EXP-OF-1 EXP PLUS-LESSP-CANCEL-ADD1) EVENT (PROVE-LEMMA LESSP-SUB1 (REWRITE) (EQUAL (LESSP (SUB1 X) X) (NOT (ZEROP X)))) LOCAL-UNDO-TUPLES ((LEMMAS LESSP . LESSP-SUB1))))) (PUT1-LST (QUOTE LESSP-OF-1) (QUOTE (IDATE 1000402214739 IMMEDIATE-DEPENDENTS0 (REMAINDER-REMAINDER-2 REMAINDER-REMAINDER-EXP2 QUOTIENT-TIMES-EXP2-4 QUOTIENT-TIMES-EXP2-3 LESSP-PLUS-TIMES-EXP2 QUOTIENT-EXP QUOTIENT-SUB1 REMAINDER-SUB1 QUOTIENT-DIFFERENCE-PLUS1 REMAINDER-PLUS-DIFFERENCE1 QUOTIENT-2X-ADD1 REMAINDER-2X-ADD1 QUOTIENT-2X REMAINDER-2X QUOTIENT-1 REMAINDER-1 TIMES-EXP2-LESSP EXP-LESSP EXP-OF-2-0 AND-NOT-ZEROP-TREE-DELETE AND-NOT-ZEROP-TREE-LESSP TIMES2-ADD1-LESSP-CANCEL TIMES-LESSP-CANCEL0 DIFFERENCE-LESSP-CANCEL DIFFERENCE-PLUS-CANCEL-ADD1 DIFFERENCE-0 DIFFERENCE-SUB1-SUB1 DIFFERENCE-SUB1 PLUS-LESSP-CANCEL-0) EVENT (PROVE-LEMMA LESSP-OF-1 (REWRITE) (EQUAL (LESSP X (QUOTE 1)) (ZEROP X))) LOCAL-UNDO-TUPLES ((LEMMAS LESSP . LESSP-OF-1))))) (PUT1-LST (QUOTE SUBBAGP-BAGINT2) (QUOTE (IDATE 1000402214739 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-EQUAL-TIMES ZEROP-MAKES-EQUAL-TRUE-BRIDGE CORRECTNESS-OF-CANCEL-LESSP-TIMES ZEROP-MAKES-LESSP-FALSE-BRIDGE CORRECTNESS-OF-CANCEL-LESSP-PLUS CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS CORRECTNESS-OF-CANCEL-EQUAL-PLUS) EVENT (PROVE-LEMMA SUBBAGP-BAGINT2 (REWRITE) (SUBBAGP (BAGINT X Y) Y)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-CDR2 . SUBBAGP-BAGINT2) (IMMEDIATE-DEPENDENTS0 BAGINT . SUBBAGP-BAGINT2) (IMMEDIATE-DEPENDENTS0 SUBBAGP . SUBBAGP-BAGINT2) (LEMMAS SUBBAGP . SUBBAGP-BAGINT2))))) (PUT1-LST (QUOTE SUBBAGP-BAGINT1) (QUOTE (IDATE 1000402214739 IMMEDIATE-DEPENDENTS0 (CORRECTNESS-OF-CANCEL-EQUAL-TIMES ZEROP-MAKES-EQUAL-TRUE-BRIDGE CORRECTNESS-OF-CANCEL-LESSP-TIMES ZEROP-MAKES-LESSP-FALSE-BRIDGE CORRECTNESS-OF-CANCEL-LESSP-PLUS CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS CORRECTNESS-OF-CANCEL-EQUAL-PLUS) EVENT (PROVE-LEMMA SUBBAGP-BAGINT1 (REWRITE) (SUBBAGP (BAGINT X Y) X)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-CDR2 . SUBBAGP-BAGINT1) (IMMEDIATE-DEPENDENTS0 DELETE . SUBBAGP-BAGINT1) (IMMEDIATE-DEPENDENTS0 BAGINT . SUBBAGP-BAGINT1) (IMMEDIATE-DEPENDENTS0 SUBBAGP . SUBBAGP-BAGINT1) (LEMMAS SUBBAGP . SUBBAGP-BAGINT1))))) (PUT1-LST (QUOTE SUBBAGP-CDR2) (QUOTE (IDATE 1000402214739 IMMEDIATE-DEPENDENTS0 (EVAL$-EQUAL-TIMES-TREE-BAGDIFF EVAL$-LESSP-TIMES-TREE-BAGDIFF PLUS-TREE-BAGDIFF SUBBAGP-IMPLIES-PLUS-TREE-GEQ SUBBAGP-BAGINT2 SUBBAGP-BAGINT1) EVENT (PROVE-LEMMA SUBBAGP-CDR2 (REWRITE) (IMPLIES (SUBBAGP X (CDR Y)) (SUBBAGP X Y))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE . SUBBAGP-CDR2) (IMMEDIATE-DEPENDENTS0 DELETE-NON-MEMBER . SUBBAGP-CDR2) (IMMEDIATE-DEPENDENTS0 SUBBAGP-CDR1 . SUBBAGP-CDR2) (IMMEDIATE-DEPENDENTS0 SUBBAGP . SUBBAGP-CDR2) (LEMMAS SUBBAGP . SUBBAGP-CDR2))))) (PUT1-LST (QUOTE SUBBAGP-CDR1) (QUOTE (IDATE 1000402214739 IMMEDIATE-DEPENDENTS0 (SUBBAGP-CDR2) EVENT (PROVE-LEMMA SUBBAGP-CDR1 (REWRITE) (IMPLIES (SUBBAGP X Y) (SUBBAGP (CDR X) Y))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 SUBBAGP-DELETE . SUBBAGP-CDR1) (IMMEDIATE-DEPENDENTS0 SUBBAGP . SUBBAGP-CDR1) (LEMMAS SUBBAGP . SUBBAGP-CDR1))))) (PUT1-LST (QUOTE SUBBAGP-DELETE) (QUOTE (IDATE 1000402214739 IMMEDIATE-DEPENDENTS0 (SUBBAGP-CDR1) EVENT (PROVE-LEMMA SUBBAGP-DELETE (REWRITE) (IMPLIES (SUBBAGP X (DELETE U Y)) (SUBBAGP X Y))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 MEMBER-DELETE . SUBBAGP-DELETE) (IMMEDIATE-DEPENDENTS0 DELETE-COMMUTATIVITY . SUBBAGP-DELETE) (IMMEDIATE-DEPENDENTS0 DELETE . SUBBAGP-DELETE) (IMMEDIATE-DEPENDENTS0 SUBBAGP . SUBBAGP-DELETE) (LEMMAS SUBBAGP . SUBBAGP-DELETE))))) (PUT1-LST (QUOTE DELETE-COMMUTATIVITY) (QUOTE (IDATE 1000402214739 IMMEDIATE-DEPENDENTS0 (SUBBAGP-DELETE) EVENT (PROVE-LEMMA DELETE-COMMUTATIVITY (REWRITE) (EQUAL (DELETE X (DELETE Y Z)) (DELETE Y (DELETE X Z)))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE-NON-MEMBER . DELETE-COMMUTATIVITY) (IMMEDIATE-DEPENDENTS0 DELETE . DELETE-COMMUTATIVITY) (LEMMAS DELETE . DELETE-COMMUTATIVITY))))) (PUT1-LST (QUOTE MEMBER-DELETE) (QUOTE (IDATE 1000402214739 IMMEDIATE-DEPENDENTS0 (SUBBAGP-DELETE) EVENT (PROVE-LEMMA MEMBER-DELETE (REWRITE) (IMPLIES (MEMBER X (DELETE U V)) (MEMBER X V))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE-NON-MEMBER . MEMBER-DELETE) (IMMEDIATE-DEPENDENTS0 DELETE . MEMBER-DELETE) (LEMMAS MEMBER . MEMBER-DELETE))))) (PUT1-LST (QUOTE DELETE-NON-MEMBER) (QUOTE (IDATE 1000402214739 IMMEDIATE-DEPENDENTS0 (EVAL$-TIMES-MEMBER PLUS-TREE-DELETE SUBBAGP-CDR2 DELETE-COMMUTATIVITY MEMBER-DELETE) EVENT (PROVE-LEMMA DELETE-NON-MEMBER (REWRITE) (IMPLIES (NOT (MEMBER X Y)) (EQUAL (DELETE X Y) Y))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE . DELETE-NON-MEMBER) (LEMMAS DELETE . DELETE-NON-MEMBER))))) (PUT1-LST (QUOTE *1*BAGINT) (QUOTE (MAIN-EVENT BAGINT))) (PUT1-LST (QUOTE BAGINT) (QUOTE (TYPE-PRESCRIPTION-LST ((BAGINT 24 NIL NIL)) TOTALP-LST ((BAGINT . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE QUESTIONABLE) SDEFN (LAMBDA (X Y) (IF (LISTP X) (IF (MEMBER (CAR X) Y) (CONS (CAR X) (BAGINT (CDR X) (DELETE (CAR X) Y))) (BAGINT (CDR X) Y)) (QUOTE NIL))) LISP-CODE *1*BAGINT SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP X) (MEMBER (CAR X) Y)) (((CDR X) (DELETE (CAR X) Y)))) (TESTS-AND-CASES ((LISTP X) (NOT (MEMBER (CAR X) Y))) (((CDR X) Y))) (TESTS-AND-CASES ((NOT (LISTP X))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (ZERO CDR-LESSP))) IDATE 1000402214739 CONTROLLER-POCKETS (1) SATELLITES (*1*BAGINT) IMMEDIATE-DEPENDENTS0 (CANCEL-EQUAL-TIMES ZEROP-MAKES-EQUAL-TRUE-BRIDGE CANCEL-LESSP-TIMES ZEROP-MAKES-LESSP-FALSE-BRIDGE CANCEL-LESSP-PLUS CANCEL-DIFFERENCE-PLUS CANCEL-EQUAL-PLUS SUBBAGP-BAGINT2 SUBBAGP-BAGINT1) EVENT (DEFN BAGINT (X Y) (IF (LISTP X) (IF (MEMBER (CAR X) Y) (CONS (CAR X) (BAGINT (CDR X) (DELETE (CAR X) Y))) (BAGINT (CDR X) Y)) (QUOTE NIL))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE . BAGINT) (DCELL . *1*BAGINT))))) (PUT1-LST (QUOTE *1*BAGDIFF) (QUOTE (MAIN-EVENT BAGDIFF))) (PUT1-LST (QUOTE BAGDIFF) (QUOTE (TYPE-PRESCRIPTION-LST ((BAGDIFF -1 T NIL)) TOTALP-LST ((BAGDIFF . T)) QUICK-BLOCK-INFO (QUESTIONABLE SELF-REFLEXIVE) SDEFN (LAMBDA (X Y) (IF (LISTP Y) (IF (MEMBER (CAR Y) X) (BAGDIFF (DELETE (CAR Y) X) (CDR Y)) (BAGDIFF X (CDR Y))) X)) LISP-CODE *1*BAGDIFF SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP Y) (MEMBER (CAR Y) X)) (((DELETE (CAR Y) X) (CDR Y)))) (TESTS-AND-CASES ((LISTP Y) (NOT (MEMBER (CAR Y) X))) ((X (CDR Y)))) (TESTS-AND-CASES ((NOT (LISTP Y))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (Y) (COUNT Y) LESSP (ZERO CDR-LESSP))) IDATE 1000402214739 CONTROLLER-POCKETS (2) SATELLITES (*1*BAGDIFF) IMMEDIATE-DEPENDENTS0 (CANCEL-EQUAL-TIMES EVAL$-EQUAL-TIMES-TREE-BAGDIFF CANCEL-LESSP-TIMES EVAL$-LESSP-TIMES-TREE-BAGDIFF CANCEL-LESSP-PLUS CANCEL-DIFFERENCE-PLUS CANCEL-EQUAL-PLUS PLUS-TREE-BAGDIFF) EVENT (DEFN BAGDIFF (X Y) (IF (LISTP Y) (IF (MEMBER (CAR Y) X) (BAGDIFF (DELETE (CAR Y) X) (CDR Y)) (BAGDIFF X (CDR Y))) X)) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE . BAGDIFF) (DCELL . *1*BAGDIFF))))) (PUT1-LST (QUOTE *1*SUBBAGP) (QUOTE (MAIN-EVENT SUBBAGP))) (PUT1-LST (QUOTE SUBBAGP) (QUOTE (TYPE-PRESCRIPTION-LST ((SUBBAGP 3 NIL NIL)) LEMMAS ((REWRITE-RULE SUBBAGP-BAGINT2 NIL (SUBBAGP (BAGINT X Y) Y) NIL) (REWRITE-RULE SUBBAGP-BAGINT1 NIL (SUBBAGP (BAGINT X Y) X) NIL) (REWRITE-RULE SUBBAGP-CDR2 ((SUBBAGP X (CDR Y))) (SUBBAGP X Y) NIL) (REWRITE-RULE SUBBAGP-CDR1 ((SUBBAGP X Y)) (SUBBAGP (CDR X) Y) NIL) (REWRITE-RULE SUBBAGP-DELETE ((SUBBAGP X (DELETE U Y))) (SUBBAGP X Y) NIL)) TOTALP-LST ((SUBBAGP . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (X Y) (IF (LISTP X) (IF (MEMBER (CAR X) Y) (SUBBAGP (CDR X) (DELETE (CAR X) Y)) (QUOTE *1*FALSE)) (QUOTE *1*TRUE))) LISP-CODE *1*SUBBAGP SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP X) (MEMBER (CAR X) Y)) (((CDR X) (DELETE (CAR X) Y)))) (TESTS-AND-CASES ((LISTP X) (NOT (MEMBER (CAR X) Y))) NIL) (TESTS-AND-CASES ((NOT (LISTP X))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (ZERO CDR-LESSP))) IDATE 1000402214739 CONTROLLER-POCKETS (1) SATELLITES (*1*SUBBAGP) IMMEDIATE-DEPENDENTS0 (EVAL$-EQUAL-TIMES-TREE-BAGDIFF EVAL$-LESSP-TIMES-TREE-BAGDIFF ZEROP-MAKES-TIMES-TREE-ZERO BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GEQ PLUS-TREE-BAGDIFF SUBBAGP-IMPLIES-PLUS-TREE-GEQ SUBBAGP-BAGINT2 SUBBAGP-BAGINT1 SUBBAGP-CDR2 SUBBAGP-CDR1 SUBBAGP-DELETE) EVENT (DEFN SUBBAGP (X Y) (IF (LISTP X) (IF (MEMBER (CAR X) Y) (SUBBAGP (CDR X) (DELETE (CAR X) Y)) (QUOTE *1*FALSE)) (QUOTE *1*TRUE))) LOCAL-UNDO-TUPLES ((IMMEDIATE-DEPENDENTS0 DELETE . SUBBAGP) (DCELL . *1*SUBBAGP))))) (PUT1-LST (QUOTE *1*DELETE) (QUOTE (MAIN-EVENT DELETE))) (PUT1-LST (QUOTE DELETE) (QUOTE (TYPE-PRESCRIPTION-LST ((DELETE -1 NIL T)) LEMMAS ((REWRITE-RULE DELETE-COMMUTATIVITY NIL (EQUAL (DELETE X (DELETE Y Z)) (DELETE Y (DELETE X Z))) ((X . Y))) (REWRITE-RULE DELETE-NON-MEMBER ((NOT (MEMBER X Y))) (EQUAL (DELETE X Y) Y) NIL)) TOTALP-LST ((DELETE . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (X Y) (IF (LISTP Y) (IF (EQUAL X (CAR Y)) (CDR Y) (CONS (CAR Y) (DELETE X (CDR Y)))) Y)) LISP-CODE *1*DELETE SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP Y) (EQUAL X (CAR Y))) NIL) (TESTS-AND-CASES ((LISTP Y) (NOT (EQUAL X (CAR Y)))) ((X (CDR Y)))) (TESTS-AND-CASES ((NOT (LISTP Y))) NIL)) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (Y) (COUNT Y) LESSP (ZERO CDR-LESSP))) IDATE 1000402214739 CONTROLLER-POCKETS (2) SATELLITES (*1*DELETE) IMMEDIATE-DEPENDENTS0 (CANCEL-EQUAL-TIMES EQUAL-1-TIMES-TREE-DELETE EQUAL-1-EVAL$-TIMES-TREE-DELETE-END CANCEL-LESSP-TIMES LESSP-1-TIMES-TREE-DELETE LESSP-1-TIMES-TREE-DELETE-END AND-NOT-ZEROP-TREE-DELETE EVAL$-AND-NOT-ZEROP-TREE-END EVAL$-TIMES-MEMBER CANCEL-LESSP-PLUS CANCEL-DIFFERENCE-PLUS CANCEL-EQUAL-PLUS PLUS-TREE-DELETE SUBBAGP-BAGINT1 SUBBAGP-CDR2 SUBBAGP-DELETE DELETE-COMMUTATIVITY MEMBER-DELETE DELETE-NON-MEMBER BAGINT BAGDIFF SUBBAGP) EVENT (DEFN DELETE (X Y) (IF (LISTP Y) (IF (EQUAL X (CAR Y)) (CDR Y) (CONS (CAR Y) (DELETE X (CDR Y)))) Y)) LOCAL-UNDO-TUPLES ((DCELL . *1*DELETE))))) (PUT1-LST (QUOTE *1*SUBSET) (QUOTE (MAIN-EVENT SUBSET))) (PUT1-LST (QUOTE SUBSET) (QUOTE (TYPE-PRESCRIPTION-LST ((SUBSET 3 NIL NIL)) TOTALP-LST ((SUBSET . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (X Y) (IF (LISTP X) (IF (MEMBER (CAR X) Y) (SUBSET (CDR X) Y) (QUOTE *1*FALSE)) (QUOTE *1*TRUE))) LISP-CODE *1*SUBSET SUBRP *1*FALSE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP X) (MEMBER (CAR X) Y)) (((CDR X) Y))) (TESTS-AND-CASES ((LISTP X) (NOT (MEMBER (CAR X) Y))) NIL) (TESTS-AND-CASES ((NOT (LISTP X))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (ZERO CDR-LESSP))) IDATE 1000402214739 CONTROLLER-POCKETS (1) SATELLITES (*1*SUBSET) EVENT (DEFN SUBSET (X Y) (IF (LISTP X) (IF (MEMBER (CAR X) Y) (SUBSET (CDR X) Y) (QUOTE *1*FALSE)) (QUOTE *1*TRUE))) LOCAL-UNDO-TUPLES ((DCELL . *1*SUBSET))))) (PUT1-LST (QUOTE *1*IDENTITY) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE IDENTITY) (QUOTE (TYPE-PRESCRIPTION-LST ((IDENTITY 0 T)) TOTALP-LST ((IDENTITY . T)) SDEFN (LAMBDA (X) X) LISP-CODE *1*IDENTITY SUBRP *1*TRUE LEVEL-NO 0 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE REWRITE-EVAL$) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE REWRITE-CAR-V&C$) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE REWRITE-V&C-APPLY$) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE REWRITE-V&C$) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE REWRITE-APPLY-SUBR) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE REWRITE-APPLY$) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE REWRITE-CAR-V&C-APPLY$) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*FOR) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE FOR) (QUOTE (TYPE-PRESCRIPTION-LST ((FOR -1 NIL NIL NIL NIL T NIL)) TOTALP-LST ((FOR)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE UNCHANGING UNCHANGING UNCHANGING UNCHANGING) SDEFN (LAMBDA (VAR RANGE CONDITION OP BODY ALIST) (IF (LISTP RANGE) (IF (EVAL$ (QUOTE *1*TRUE) CONDITION (CONS (CONS VAR (CAR RANGE)) ALIST)) (QUANTIFIER-OPERATION OP (EVAL$ (QUOTE *1*TRUE) BODY (CONS (CONS VAR (CAR RANGE)) ALIST)) (FOR VAR (CDR RANGE) CONDITION OP BODY ALIST)) (FOR VAR (CDR RANGE) CONDITION OP BODY ALIST)) (QUANTIFIER-INITIAL-VALUE OP))) LISP-CODE *1*FOR SUBRP *1*FALSE BODY (IF (NLISTP RANGE) (QUANTIFIER-INITIAL-VALUE OP) (IF (EVAL$ (QUOTE *1*TRUE) CONDITION (CONS (CONS VAR (CAR RANGE)) ALIST)) (QUANTIFIER-OPERATION OP (EVAL$ (QUOTE *1*TRUE) BODY (CONS (CONS VAR (CAR RANGE)) ALIST)) (FOR VAR (CDR RANGE) CONDITION OP BODY ALIST)) (FOR VAR (CDR RANGE) CONDITION OP BODY ALIST))) INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP RANGE)) NIL) (TESTS-AND-CASES ((NOT (NLISTP RANGE)) (EVAL$ (QUOTE *1*TRUE) CONDITION (CONS (CONS VAR (CAR RANGE)) ALIST))) ((VAR (CDR RANGE) CONDITION OP BODY ALIST))) (TESTS-AND-CASES ((NOT (NLISTP RANGE)) (NOT (EVAL$ (QUOTE *1*TRUE) CONDITION (CONS (CONS VAR (CAR RANGE)) ALIST)))) ((VAR (CDR RANGE) CONDITION OP BODY ALIST)))) LEVEL-NO 5 JUSTIFICATIONS ((JUSTIFICATION (RANGE) (COUNT RANGE) LESSP (CDR-LESSP NLISTP ZERO CDR-LESSEQP))) CONTROLLER-POCKETS (2) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*QUANTIFIER-OPERATION) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE QUANTIFIER-OPERATION) (QUOTE (TYPE-PRESCRIPTION-LST ((QUANTIFIER-OPERATION 23 NIL T T)) TOTALP-LST ((QUANTIFIER-OPERATION . T)) SDEFN (LAMBDA (FN ARG REST) (IF (EQUAL FN (QUOTE ADD-TO-SET)) (ADD-TO-SET ARG REST) (IF (EQUAL FN (QUOTE ALWAYS)) (IF ARG (IF REST (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (IF (EQUAL FN (QUOTE APPEND)) (APPEND ARG REST) (IF (EQUAL FN (QUOTE COLLECT)) (CONS ARG REST) (IF (EQUAL FN (QUOTE COUNT)) (IF ARG (ADD1 REST) REST) (IF (EQUAL FN (QUOTE DO-RETURN)) ARG (IF (EQUAL FN (QUOTE EXISTS)) (IF ARG (QUOTE *1*TRUE) (IF REST (QUOTE *1*TRUE) (QUOTE *1*FALSE))) (IF (EQUAL FN (QUOTE MAX)) (MAX ARG REST) (IF (EQUAL FN (QUOTE SUM)) (PLUS ARG REST) (IF (EQUAL FN (QUOTE MULTIPLY)) (TIMES ARG REST) (IF (EQUAL FN (QUOTE UNION)) (UNION ARG REST) (QUOTE 0))))))))))))) LISP-CODE *1*QUANTIFIER-OPERATION SUBRP *1*TRUE LEVEL-NO 2 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*UNION) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE UNION) (QUOTE (TYPE-PRESCRIPTION-LST ((UNION 16 NIL T)) TOTALP-LST ((UNION . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (X Y) (IF (LISTP X) (IF (MEMBER (CAR X) Y) (UNION (CDR X) Y) (CONS (CAR X) (UNION (CDR X) Y))) Y)) LISP-CODE *1*UNION SUBRP *1*TRUE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP X) (MEMBER (CAR X) Y)) (((CDR X) Y))) (TESTS-AND-CASES ((LISTP X) (NOT (MEMBER (CAR X) Y))) (((CDR X) Y))) (TESTS-AND-CASES ((NOT (LISTP X))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (ZERO CDR-LESSP))) CONTROLLER-POCKETS (1) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE NUMBERP-MAX) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*MAX) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE MAX) (QUOTE (TYPE-PRESCRIPTION-LST ((NUMBERP-MAX 4 NIL NIL) (MAX 4 NIL T)) TOTALP-LST ((MAX . T)) SDEFN (LAMBDA (X Y) (IF (LESSP X Y) Y (IF (NUMBERP X) X (QUOTE 0)))) LISP-CODE *1*MAX SUBRP *1*TRUE LEVEL-NO 0 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*APPEND) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE APPEND) (QUOTE (TYPE-PRESCRIPTION-LST ((APPEND 16 NIL T)) TOTALP-LST ((APPEND . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (X Y) (IF (LISTP X) (CONS (CAR X) (APPEND (CDR X) Y)) Y)) LISP-CODE *1*APPEND SUBRP *1*TRUE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP X)) (((CDR X) Y))) (TESTS-AND-CASES ((NOT (LISTP X))) NIL)) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (ZERO CDR-LESSP))) CONTROLLER-POCKETS (1) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*ADD-TO-SET) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE ADD-TO-SET) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD-TO-SET 16 NIL T)) TOTALP-LST ((ADD-TO-SET . T)) SDEFN (LAMBDA (X SET) (IF (MEMBER X SET) SET (CONS X SET))) LISP-CODE *1*ADD-TO-SET SUBRP *1*TRUE LEVEL-NO 1 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*QUANTIFIER-INITIAL-VALUE) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE QUANTIFIER-INITIAL-VALUE) (QUOTE (TYPE-PRESCRIPTION-LST ((QUANTIFIER-INITIAL-VALUE -1 NIL)) TOTALP-LST ((QUANTIFIER-INITIAL-VALUE . T)) SDEFN (LAMBDA (FN) (CDR (ASSOC FN (QUOTE ((ADD-TO-SET) (ALWAYS . *1*TRUE) (APPEND) (COLLECT) (COUNT . 0) (DO-RETURN) (EXISTS . *1*FALSE) (MAX . 0) (SUM . 0) (MULTIPLY . 1) (UNION)))))) LISP-CODE *1*QUANTIFIER-INITIAL-VALUE SUBRP *1*TRUE LEVEL-NO 1 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE NOT-SUBRP-APPLY-SUBR) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE SUBRP-BODY) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE SUBRP-FORMALS) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE NOT-LITATOM-BODY) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE NOT-LITATOM-FORMALS) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE NOT-LITATOM-SUBRP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*EVAL$) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE EVAL$) (QUOTE (TYPE-PRESCRIPTION-LST ((EVAL$ -1 NIL T NIL)) LEMMAS ((REWRITE-RULE AND-NOT-ZEROP-TREE-DELETE ((MEMBER W X)) (EQUAL (EVAL$ (QUOTE *1*TRUE) (AND-NOT-ZEROP-TREE (DELETE W X)) A) (IF (EQUAL (EVAL$ (QUOTE *1*TRUE) W A) (QUOTE 0)) (EVAL$-AND-NOT-ZEROP-TREE-END W X A) (IF (NUMBERP (EVAL$ (QUOTE *1*TRUE) W A)) (IF (LESSP (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE X) A) (EVAL$ (QUOTE *1*TRUE) W A)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (EVAL$-AND-NOT-ZEROP-TREE-END W X A)))) NIL) (REWRITE-RULE AND-NOT-ZEROP-TREE-LESSP NIL (EQUAL (EVAL$ (QUOTE *1*TRUE) (AND-NOT-ZEROP-TREE X) A) (IF (LESSP (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE X) A) (QUOTE 1)) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) NIL) (REWRITE-RULE TIMES-TREE-TIMES-FRINGE NIL (EQUAL (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (TIMES-FRINGE X)) A) (IF (NUMBERP (EVAL$ (QUOTE *1*TRUE) X A)) (EVAL$ (QUOTE *1*TRUE) X A) (QUOTE 0))) NIL) (REWRITE-RULE EVAL$-TIMES-TREE-APPEND NIL (EQUAL (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (APPEND X Y)) A) (TIMES (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE X) A) (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE Y) A))) NIL) (REWRITE-RULE ZEROP-MAKES-TIMES-TREE-ZERO ((NOT (EVAL$ (QUOTE *1*TRUE) (AND-NOT-ZEROP-TREE X) A)) (SUBBAGP X Y)) (EQUAL (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE Y) A) (QUOTE 0)) NIL) (REWRITE-RULE EVAL$-TIMES-MEMBER ((MEMBER E X)) (EQUAL (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE X) A) (TIMES (EVAL$ (QUOTE *1*TRUE) E A) (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (DELETE E X)) A))) NIL) (REWRITE-RULE EVAL$-QUOTE NIL (EQUAL (EVAL$ (QUOTE *1*TRUE) (CONS (QUOTE QUOTE) ARGS) A) (CAR ARGS)) NIL) (REWRITE-RULE PLUS-TREE-PLUS-FRINGE NIL (EQUAL (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE (PLUS-FRINGE X)) A) (IF (NUMBERP (EVAL$ (QUOTE *1*TRUE) X A)) (EVAL$ (QUOTE *1*TRUE) X A) (QUOTE 0))) NIL) (REWRITE-RULE EVAL$-PLUS-TREE-APPEND NIL (EQUAL (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE (APPEND X Y)) A) (PLUS (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE X) A) (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE Y) A))) NIL) (REWRITE-RULE PLUS-TREE-BAGDIFF ((SUBBAGP X Y)) (EQUAL (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE (BAGDIFF Y X)) A) (DIFFERENCE (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE Y) A) (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE X) A))) NIL) (REWRITE-RULE PLUS-TREE-DELETE NIL (EQUAL (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE (DELETE X Y)) A) (IF (MEMBER X Y) (DIFFERENCE (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE Y) A) (EVAL$ (QUOTE *1*TRUE) X A)) (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE Y) A))) NIL)) TOTALP-LST ((EVAL$)) LINEAR-LEMMAS ((LINEAR-LEMMA SUBBAGP-IMPLIES-PLUS-TREE-GEQ ((SUBBAGP X Y)) (NOT (LESSP (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE Y) A) (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE X) A))) (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE X) A)) (LINEAR-LEMMA SUBBAGP-IMPLIES-PLUS-TREE-GEQ ((SUBBAGP X Y)) (NOT (LESSP (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE Y) A) (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE X) A))) (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE Y) A)) (LINEAR-LEMMA MEMBER-IMPLIES-PLUS-TREE-GREATEREQP ((MEMBER X Y)) (NOT (LESSP (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE Y) A) (EVAL$ (QUOTE *1*TRUE) X A))) (EVAL$ (QUOTE *1*TRUE) X A)) (LINEAR-LEMMA MEMBER-IMPLIES-PLUS-TREE-GREATEREQP ((MEMBER X Y)) (NOT (LESSP (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE Y) A) (EVAL$ (QUOTE *1*TRUE) X A))) (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE Y) A))) QUICK-BLOCK-INFO (QUESTIONABLE SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (FLG X A) (IF (EQUAL FLG (QUOTE LIST)) (IF (LISTP X) (CONS (EVAL$ (QUOTE *1*TRUE) (CAR X) A) (EVAL$ (QUOTE LIST) (CDR X) A)) (QUOTE NIL)) (IF (LITATOM X) (CDR (ASSOC X A)) (IF (LISTP X) (IF (EQUAL (CAR X) (QUOTE QUOTE)) (CAR (CDR X)) (APPLY$ (CAR X) (EVAL$ (QUOTE LIST) (CDR X) A))) X)))) LISP-CODE *1*EVAL$ SUBRP *1*FALSE BODY (IF (EQUAL FLG (QUOTE LIST)) (IF (NLISTP X) (QUOTE NIL) (CONS (EVAL$ (QUOTE *1*TRUE) (CAR X) A) (EVAL$ (QUOTE LIST) (CDR X) A))) (IF (LITATOM X) (CDR (ASSOC X A)) (IF (NLISTP X) X (IF (EQUAL (CAR X) (QUOTE QUOTE)) (CAR (CDR X)) (APPLY$ (CAR X) (EVAL$ (QUOTE LIST) (CDR X) A)))))) INDUCTION-MACHINE ((TESTS-AND-CASES ((EQUAL FLG (QUOTE LIST)) (NLISTP X)) NIL) (TESTS-AND-CASES ((EQUAL FLG (QUOTE LIST)) (NOT (NLISTP X))) (((QUOTE LIST) (CDR X) A) ((QUOTE *1*TRUE) (CAR X) A))) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE LIST))) (LITATOM X)) NIL) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE LIST))) (NOT (LITATOM X)) (NLISTP X)) NIL) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE LIST))) (NOT (LITATOM X)) (NOT (NLISTP X)) (EQUAL (CAR X) (QUOTE QUOTE))) NIL) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE LIST))) (NOT (LITATOM X)) (NOT (NLISTP X)) (NOT (EQUAL (CAR X) (QUOTE QUOTE)))) (((QUOTE LIST) (CDR X) A)))) LEVEL-NO 4 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (CAR-LESSP CAR-LESSEQP CDR-LESSP NLISTP ZERO CDR-LESSEQP))) CONTROLLER-POCKETS (2) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*APPLY$) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE APPLY$) (QUOTE (TYPE-PRESCRIPTION-LST ((APPLY$ -1 NIL NIL)) TOTALP-LST ((APPLY$)) SDEFN (LAMBDA (FN ARGS) (CAR (V&C-APPLY$ FN (PAIRLIST ARGS (QUOTE 0))))) LISP-CODE *1*APPLY$ SUBRP *1*FALSE BODY (CAR (V&C-APPLY$ FN (PAIRLIST ARGS (QUOTE 0)))) LEVEL-NO 3 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*V&C-APPLY$) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE V&C-APPLY$) (QUOTE (TYPE-PRESCRIPTION-LST ((V&C-APPLY$ 17 NIL NIL)) TOTALP-LST ((V&C-APPLY$)) SDEFN (LAMBDA (FN ARGS) (IF (EQUAL FN (QUOTE IF)) (IF (CAR ARGS) (IF (CAR (CAR ARGS)) (FIX-COST (CAR (CDR ARGS)) (ADD1 (CDR (CAR ARGS)))) (FIX-COST (CAR (CDR (CDR ARGS))) (ADD1 (CDR (CAR ARGS))))) (QUOTE *1*FALSE)) (IF (MEMBER (QUOTE *1*FALSE) ARGS) (QUOTE *1*FALSE) (IF (SUBRP FN) (CONS (APPLY-SUBR FN (STRIP-CARS ARGS)) (ADD1 (SUM-CDRS ARGS))) (FIX-COST (V&C$ (QUOTE *1*TRUE) (BODY FN) (PAIRLIST (FORMALS FN) (STRIP-CARS ARGS))) (ADD1 (SUM-CDRS ARGS))))))) LISP-CODE *1*V&C-APPLY$ SUBRP *1*FALSE BODY (IF (EQUAL FN (QUOTE IF)) (IF (CAR ARGS) (FIX-COST (IF (CAR (CAR ARGS)) (CAR (CDR ARGS)) (CAR (CDR (CDR ARGS)))) (ADD1 (CDR (CAR ARGS)))) (QUOTE *1*FALSE)) (IF (MEMBER (QUOTE *1*FALSE) ARGS) (QUOTE *1*FALSE) (IF (SUBRP FN) (CONS (APPLY-SUBR FN (STRIP-CARS ARGS)) (ADD1 (SUM-CDRS ARGS))) (FIX-COST (V&C$ (QUOTE *1*TRUE) (BODY FN) (PAIRLIST (FORMALS FN) (STRIP-CARS ARGS))) (ADD1 (SUM-CDRS ARGS)))))) LEVEL-NO 3 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*V&C$) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE V&C$) (QUOTE (TYPE-PRESCRIPTION-LST ((V&C$ 25 NIL NIL NIL)) TOTALP-LST ((V&C$)) QUICK-BLOCK-INFO (QUESTIONABLE SELF-REFLEXIVE QUESTIONABLE) SDEFN (LAMBDA (FLG X VA) (IF (EQUAL FLG (QUOTE LIST)) (IF (NLISTP X) (QUOTE NIL) (CONS (V&C$ (QUOTE *1*TRUE) (CAR X) VA) (V&C$ (QUOTE LIST) (CDR X) VA))) (IF (LITATOM X) (CONS (CDR (ASSOC X VA)) (QUOTE 0)) (IF (NLISTP X) (CONS X (QUOTE 0)) (IF (EQUAL (CAR X) (QUOTE QUOTE)) (CONS (CAR (CDR X)) (QUOTE 0)) (V&C-APPLY$ (CAR X) (V&C$ (QUOTE LIST) (CDR X) VA))))))) LISP-CODE *1*V&C$ SUBRP *1*FALSE BODY (IF (EQUAL FLG (QUOTE LIST)) (IF (NLISTP X) (QUOTE NIL) (CONS (V&C$ (QUOTE *1*TRUE) (CAR X) VA) (V&C$ (QUOTE LIST) (CDR X) VA))) (IF (LITATOM X) (CONS (CDR (ASSOC X VA)) (QUOTE 0)) (IF (NLISTP X) (CONS X (QUOTE 0)) (IF (EQUAL (CAR X) (QUOTE QUOTE)) (CONS (CAR (CDR X)) (QUOTE 0)) (IF (EQUAL (CAR X) (QUOTE IF)) (IF (V&C$ (QUOTE *1*TRUE) (CAR (CDR X)) VA) (FIX-COST (IF (CAR (V&C$ (QUOTE *1*TRUE) (CAR (CDR X)) VA)) (V&C$ (QUOTE *1*TRUE) (CAR (CDR (CDR X))) VA) (V&C$ (QUOTE *1*TRUE) (CAR (CDR (CDR (CDR X)))) VA)) (ADD1 (CDR (V&C$ (QUOTE *1*TRUE) (CAR (CDR X)) VA)))) (QUOTE *1*FALSE)) (IF (MEMBER (QUOTE *1*FALSE) (V&C$ (QUOTE LIST) (CDR X) VA)) (QUOTE *1*FALSE) (IF (SUBRP (CAR X)) (CONS (APPLY-SUBR (CAR X) (STRIP-CARS (V&C$ (QUOTE LIST) (CDR X) VA))) (ADD1 (SUM-CDRS (V&C$ (QUOTE LIST) (CDR X) VA)))) (FIX-COST (V&C$ (QUOTE *1*TRUE) (BODY (CAR X)) (PAIRLIST (FORMALS (CAR X)) (STRIP-CARS (V&C$ (QUOTE LIST) (CDR X) VA)))) (ADD1 (SUM-CDRS (V&C$ (QUOTE LIST) (CDR X) VA))))))))))) INDUCTION-MACHINE ((TESTS-AND-CASES ((EQUAL FLG (QUOTE LIST)) (NLISTP X)) NIL) (TESTS-AND-CASES ((EQUAL FLG (QUOTE LIST)) (NOT (NLISTP X))) (((QUOTE LIST) (CDR X) VA) ((QUOTE *1*TRUE) (CAR X) VA))) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE LIST))) (LITATOM X)) NIL) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE LIST))) (NOT (LITATOM X)) (NLISTP X)) NIL) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE LIST))) (NOT (LITATOM X)) (NOT (NLISTP X)) (EQUAL (CAR X) (QUOTE QUOTE))) NIL) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE LIST))) (NOT (LITATOM X)) (NOT (NLISTP X)) (NOT (EQUAL (CAR X) (QUOTE QUOTE))) (EQUAL (CAR X) (QUOTE IF)) (V&C$ (QUOTE *1*TRUE) (CAR (CDR X)) VA)) (((QUOTE *1*TRUE) (CAR (CDR (CDR (CDR X)))) VA) ((QUOTE *1*TRUE) (CAR (CDR (CDR X))) VA) ((QUOTE *1*TRUE) (CAR (CDR X)) VA))) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE LIST))) (NOT (LITATOM X)) (NOT (NLISTP X)) (NOT (EQUAL (CAR X) (QUOTE QUOTE))) (EQUAL (CAR X) (QUOTE IF)) (NOT (V&C$ (QUOTE *1*TRUE) (CAR (CDR X)) VA))) (((QUOTE *1*TRUE) (CAR (CDR X)) VA))) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE LIST))) (NOT (LITATOM X)) (NOT (NLISTP X)) (NOT (EQUAL (CAR X) (QUOTE QUOTE))) (NOT (EQUAL (CAR X) (QUOTE IF))) (MEMBER (QUOTE *1*FALSE) (V&C$ (QUOTE LIST) (CDR X) VA))) (((QUOTE LIST) (CDR X) VA))) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE LIST))) (NOT (LITATOM X)) (NOT (NLISTP X)) (NOT (EQUAL (CAR X) (QUOTE QUOTE))) (NOT (EQUAL (CAR X) (QUOTE IF))) (NOT (MEMBER (QUOTE *1*FALSE) (V&C$ (QUOTE LIST) (CDR X) VA))) (SUBRP (CAR X))) (((QUOTE LIST) (CDR X) VA))) (TESTS-AND-CASES ((NOT (EQUAL FLG (QUOTE LIST))) (NOT (LITATOM X)) (NOT (NLISTP X)) (NOT (EQUAL (CAR X) (QUOTE QUOTE))) (NOT (EQUAL (CAR X) (QUOTE IF))) (NOT (MEMBER (QUOTE *1*FALSE) (V&C$ (QUOTE LIST) (CDR X) VA))) (NOT (SUBRP (CAR X)))) (((QUOTE *1*TRUE) (BODY (CAR X)) (PAIRLIST (FORMALS (CAR X)) (STRIP-CARS (V&C$ (QUOTE LIST) (CDR X) VA)))) ((QUOTE LIST) (CDR X) VA)))) LEVEL-NO 3 CONTROLLER-POCKETS (2) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*SUM-CDRS) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE SUM-CDRS) (QUOTE (TYPE-PRESCRIPTION-LST ((SUM-CDRS 4 NIL)) TOTALP-LST ((SUM-CDRS . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (L) (IF (LISTP L) (PLUS (CDR (CAR L)) (SUM-CDRS (CDR L))) (QUOTE 0))) LISP-CODE *1*SUM-CDRS SUBRP *1*TRUE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP L)) NIL) (TESTS-AND-CASES ((NOT (NLISTP L))) (((CDR L))))) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (L) (COUNT L) LESSP (CDR-LESSP NLISTP ZERO CDR-LESSEQP))) CONTROLLER-POCKETS (1) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*STRIP-CARS) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE STRIP-CARS) (QUOTE (TYPE-PRESCRIPTION-LST ((STRIP-CARS 24 NIL)) TOTALP-LST ((STRIP-CARS . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (L) (IF (LISTP L) (CONS (CAR (CAR L)) (STRIP-CARS (CDR L))) (QUOTE NIL))) LISP-CODE *1*STRIP-CARS SUBRP *1*TRUE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP L)) NIL) (TESTS-AND-CASES ((NOT (NLISTP L))) (((CDR L))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (L) (COUNT L) LESSP (CDR-LESSP NLISTP ZERO CDR-LESSEQP))) CONTROLLER-POCKETS (1) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*FIX-COST) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE FIX-COST) (QUOTE (TYPE-PRESCRIPTION-LST ((FIX-COST 17 NIL NIL)) TOTALP-LST ((FIX-COST . T)) SDEFN (LAMBDA (X N) (IF X (CONS (CAR X) (PLUS N (CDR X))) (QUOTE *1*FALSE))) LISP-CODE *1*FIX-COST SUBRP *1*TRUE LEVEL-NO 1 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*BODY) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE BODY) (QUOTE (TYPE-PRESCRIPTION-LST ((BODY -1 NIL)) LEMMAS ((REWRITE-RULE SUBRP-BODY ((SUBRP FN)) (EQUAL (BODY FN) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE NOT-LITATOM-BODY ((NOT (LITATOM FN))) (EQUAL (BODY FN) (QUOTE *1*FALSE)) NIL)) TOTALP-LST ((BODY . T)) LISP-CODE *1*BODY SUBRP *1*TRUE LEVEL-NO 0 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*FORMALS) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE FORMALS) (QUOTE (TYPE-PRESCRIPTION-LST ((FORMALS -1 NIL)) LEMMAS ((REWRITE-RULE SUBRP-FORMALS ((SUBRP FN)) (EQUAL (FORMALS FN) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE NOT-LITATOM-FORMALS ((NOT (LITATOM FN))) (EQUAL (FORMALS FN) (QUOTE *1*FALSE)) NIL)) TOTALP-LST ((FORMALS . T)) LISP-CODE *1*FORMALS SUBRP *1*TRUE LEVEL-NO 0 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*APPLY-SUBR) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE APPLY-SUBR) (QUOTE (TYPE-PRESCRIPTION-LST ((APPLY-SUBR -1 NIL NIL)) LEMMAS ((REWRITE-RULE NOT-SUBRP-APPLY-SUBR ((NOT (SUBRP FN))) (EQUAL (APPLY-SUBR FN X) (QUOTE *1*FALSE)) NIL)) TOTALP-LST ((APPLY-SUBR . T)) LISP-CODE *1*APPLY-SUBR SUBRP *1*TRUE LEVEL-NO 0 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE SUBRP-BOOLEAN) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*SUBRP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE SUBRP) (QUOTE (TYPE-PRESCRIPTION-LST ((SUBRP-BOOLEAN 3 NIL) (SUBRP -1 NIL)) LEMMAS ((REWRITE-RULE NOT-LITATOM-SUBRP ((NOT (LITATOM FN))) (EQUAL (SUBRP FN) (QUOTE *1*FALSE)) NIL)) TOTALP-LST ((SUBRP . T)) LISP-CODE *1*SUBRP SUBRP *1*TRUE LEVEL-NO 0 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*PAIRLIST) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE PAIRLIST) (QUOTE (TYPE-PRESCRIPTION-LST ((PAIRLIST 24 NIL NIL)) TOTALP-LST ((PAIRLIST . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (X Y) (IF (LISTP X) (CONS (CONS (CAR X) (CAR Y)) (PAIRLIST (CDR X) (CDR Y))) (QUOTE NIL))) LISP-CODE *1*PAIRLIST SUBRP *1*TRUE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP X)) (((CDR X) (CDR Y)))) (TESTS-AND-CASES ((NOT (LISTP X))) NIL)) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (ZERO CDR-LESSP))) CONTROLLER-POCKETS (1) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*ASSOC) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE ASSOC) (QUOTE (TYPE-PRESCRIPTION-LST ((ASSOC -1 NIL NIL)) TOTALP-LST ((ASSOC . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (X L) (IF (LISTP L) (IF (EQUAL X (CAR (CAR L))) (CAR L) (ASSOC X (CDR L))) (QUOTE *1*FALSE))) LISP-CODE *1*ASSOC SUBRP *1*TRUE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP L)) NIL) (TESTS-AND-CASES ((NOT (NLISTP L)) (EQUAL X (CAR (CAR L)))) NIL) (TESTS-AND-CASES ((NOT (NLISTP L)) (NOT (EQUAL X (CAR (CAR L))))) ((X (CDR L))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (L) (COUNT L) LESSP (CDR-LESSP NLISTP ZERO CDR-LESSEQP))) CONTROLLER-POCKETS (2) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*ORDINALP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE ORDINALP) (QUOTE (TYPE-PRESCRIPTION-LST ((ORDINALP 3 NIL)) TOTALP-LST ((ORDINALP . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE) SDEFN (LAMBDA (X) (IF (LISTP X) (IF (ORDINALP (CAR X)) (IF (EQUAL (CAR X) (QUOTE 0)) (QUOTE *1*FALSE) (IF (ORDINALP (CDR X)) (IF (LISTP (CDR X)) (IF (ORD-LESSP (CAR X) (CAR (CDR X))) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (QUOTE *1*FALSE))) (QUOTE *1*FALSE)) (NUMBERP X))) LISP-CODE *1*ORDINALP SUBRP *1*TRUE INDUCTION-MACHINE ((TESTS-AND-CASES ((LISTP X)) (((CDR X)) ((CAR X)))) (TESTS-AND-CASES ((NOT (LISTP X))) NIL)) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (CAR-LESSP ZERO CDR-LESSP))) CONTROLLER-POCKETS (1) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*ORD-LESSP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE ORD-LESSP) (QUOTE (TYPE-PRESCRIPTION-LST ((ORD-LESSP 3 NIL NIL)) TOTALP-LST ((ORD-LESSP . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (X Y) (IF (LISTP X) (IF (LISTP Y) (IF (ORD-LESSP (CAR X) (CAR Y)) (QUOTE *1*TRUE) (IF (EQUAL (CAR X) (CAR Y)) (IF (ORD-LESSP (CDR X) (CDR Y)) (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) (QUOTE *1*FALSE)) (IF (LISTP Y) (QUOTE *1*TRUE) (LESSP X Y)))) LISP-CODE *1*ORD-LESSP SUBRP *1*TRUE INDUCTION-MACHINE ((TESTS-AND-CASES ((NOT (LISTP X)) (NOT (LISTP Y))) NIL) (TESTS-AND-CASES ((NOT (LISTP X)) (LISTP Y)) NIL) (TESTS-AND-CASES ((LISTP X) (NOT (LISTP Y))) NIL) (TESTS-AND-CASES ((LISTP X) (LISTP Y) (ORD-LESSP (CAR X) (CAR Y))) (((CAR X) (CAR Y)))) (TESTS-AND-CASES ((LISTP X) (LISTP Y) (NOT (ORD-LESSP (CAR X) (CAR Y)))) (((CAR X) (CAR Y)) ((CDR X) (CDR Y))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (CDR-LESSP ZERO CAR-LESSP)) (JUSTIFICATION (Y) (COUNT Y) LESSP (CDR-LESSP ZERO CAR-LESSP))) CONTROLLER-POCKETS (1 2) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*IFF) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE IFF) (QUOTE (TYPE-PRESCRIPTION-LST ((IFF 3 NIL NIL)) TOTALP-LST ((IFF . T)) SDEFN (LAMBDA (P Q) (IF P (IF Q (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (IF Q (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) LISP-CODE *1*IFF SUBRP *1*TRUE LEVEL-NO 0 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*MEMBER) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE MEMBER) (QUOTE (TYPE-PRESCRIPTION-LST ((MEMBER 3 NIL NIL)) LEMMAS ((REWRITE-RULE MEMBER-DELETE ((MEMBER X (DELETE U V))) (MEMBER X V) NIL)) TOTALP-LST ((MEMBER . T)) QUICK-BLOCK-INFO (UNCHANGING SELF-REFLEXIVE) SDEFN (LAMBDA (X LST) (IF (LISTP LST) (IF (EQUAL X (CAR LST)) (QUOTE *1*TRUE) (MEMBER X (CDR LST))) (QUOTE *1*FALSE))) LISP-CODE *1*MEMBER SUBRP *1*TRUE INDUCTION-MACHINE ((TESTS-AND-CASES ((NLISTP LST)) NIL) (TESTS-AND-CASES ((NOT (NLISTP LST)) (EQUAL X (CAR LST))) NIL) (TESTS-AND-CASES ((NOT (NLISTP LST)) (NOT (EQUAL X (CAR LST)))) ((X (CDR LST))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (LST) (COUNT LST) LESSP (CDR-LESSP NLISTP ZERO CDR-LESSEQP))) CONTROLLER-POCKETS (2) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*REMAINDER) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE REMAINDER) (QUOTE (TYPE-PRESCRIPTION-LST ((REMAINDER 4 NIL NIL)) LEMMAS ((REWRITE-RULE REMAINDER-REMAINDER-2 NIL (EQUAL (REMAINDER (REMAINDER X (EXP (QUOTE 2) I)) (QUOTE 2)) (IF (EQUAL I (QUOTE 0)) (QUOTE 0) (IF (NUMBERP I) (REMAINDER X (QUOTE 2)) (QUOTE 0)))) NIL) (REWRITE-RULE REMAINDER-REMAINDER-EXP2 NIL (EQUAL (REMAINDER (REMAINDER X (EXP (QUOTE 2) I)) (EXP (QUOTE 2) J)) (IF (LESSP I J) (REMAINDER X (EXP (QUOTE 2) I)) (REMAINDER X (EXP (QUOTE 2) J)))) NIL) (REWRITE-RULE REMAINDER-TIMES-EXP2-4 NIL (EQUAL (REMAINDER (TIMES X (TIMES Y (EXP (QUOTE 2) I))) (QUOTE 2)) (IF (EQUAL I (QUOTE 0)) (REMAINDER (TIMES X Y) (QUOTE 2)) (IF (NUMBERP I) (QUOTE 0) (REMAINDER (TIMES X Y) (QUOTE 2))))) NIL) (REWRITE-RULE REMAINDER-TIMES-EXP2-4 NIL (EQUAL (REMAINDER (TIMES X (TIMES (EXP (QUOTE 2) I) Y)) (QUOTE 2)) (IF (EQUAL I (QUOTE 0)) (REMAINDER (TIMES X Y) (QUOTE 2)) (IF (NUMBERP I) (QUOTE 0) (REMAINDER (TIMES X Y) (QUOTE 2))))) NIL) (REWRITE-RULE REMAINDER-TIMES-EXP2-3 NIL (EQUAL (REMAINDER (TIMES (EXP (QUOTE 2) I) X) (QUOTE 2)) (IF (EQUAL I (QUOTE 0)) (REMAINDER X (QUOTE 2)) (IF (NUMBERP I) (QUOTE 0) (REMAINDER X (QUOTE 2))))) NIL) (REWRITE-RULE REMAINDER-TIMES-EXP2-3 NIL (EQUAL (REMAINDER (TIMES X (EXP (QUOTE 2) I)) (QUOTE 2)) (IF (EQUAL I (QUOTE 0)) (REMAINDER X (QUOTE 2)) (IF (NUMBERP I) (QUOTE 0) (REMAINDER X (QUOTE 2))))) NIL) (REWRITE-RULE REMAINDER-TIMES-EXP2-2 NIL (EQUAL (REMAINDER (TIMES (EXP (QUOTE 2) I) X) (EXP (QUOTE 2) J)) (TIMES (REMAINDER X (EXP (QUOTE 2) (DIFFERENCE J I))) (EXP (QUOTE 2) I))) NIL) (REWRITE-RULE REMAINDER-TIMES-EXP2-1 NIL (EQUAL (REMAINDER (TIMES X (EXP (QUOTE 2) I)) (EXP (QUOTE 2) J)) (TIMES (REMAINDER X (EXP (QUOTE 2) (DIFFERENCE J I))) (EXP (QUOTE 2) I))) NIL) (REWRITE-RULE REMAINDER-EXP ((LESSP (QUOTE 1) I)) (EQUAL (REMAINDER (EXP I J) (EXP I K)) (IF (LESSP J K) (EXP I J) (QUOTE 0))) NIL) (REWRITE-RULE REMAINDER-DISTRIBUTES-TIMES2-ADD1 NIL (EQUAL (REMAINDER (ADD1 (TIMES (QUOTE 2) Y)) (TIMES (QUOTE 2) Z)) (ADD1 (TIMES (QUOTE 2) (REMAINDER Y Z)))) NIL) (REWRITE-RULE TIMES-DISTRIBUTES-REMAINDER NIL (EQUAL (REMAINDER (TIMES X Y) (TIMES X Z)) (TIMES X (REMAINDER Y Z))) NIL) (REWRITE-RULE REMAINDER-CROCK ((LESSP Y Z)) (EQUAL (REMAINDER (TIMES Y X) (TIMES X Z)) (TIMES Y X)) NIL) (REWRITE-RULE REMAINDER-PLUS-REMAINDER NIL (EQUAL (REMAINDER (PLUS (REMAINDER X Z) (REMAINDER Y Z)) Z) (REMAINDER (PLUS X Y) Z)) NIL) (REWRITE-RULE REMAINDER-PLUS-REMAINDER2 NIL (EQUAL (REMAINDER (PLUS X (PLUS Y (REMAINDER Z K))) K) (REMAINDER (PLUS X (PLUS Y Z)) K)) NIL) (REWRITE-RULE REMAINDER-DIFFERENCE-REMAINDER1 ((NOT (LESSP X Y))) (EQUAL (REMAINDER (DIFFERENCE X (REMAINDER Y Z)) Z) (REMAINDER (DIFFERENCE X Y) Z)) NIL) (REWRITE-RULE REMAINDER-PLUS-REMAINDER1 NIL (EQUAL (REMAINDER (PLUS X (REMAINDER Y Z)) Z) (REMAINDER (PLUS X Y) Z)) NIL) (REWRITE-RULE REMAINDER-ADD1 NIL (EQUAL (REMAINDER (ADD1 M) N) (IF (EQUAL N (QUOTE 0)) (ADD1 M) (IF (NUMBERP N) (IF (EQUAL (REMAINDER M N) (SUB1 N)) (QUOTE 0) (ADD1 (REMAINDER M N))) (ADD1 M)))) NIL) (REWRITE-RULE REMAINDER-SUB1 NIL (EQUAL (REMAINDER (SUB1 M) N) (IF (EQUAL N (QUOTE 0)) (SUB1 M) (IF (NUMBERP N) (IF (EQUAL (REMAINDER M N) (QUOTE 0)) (IF (EQUAL M (QUOTE 0)) (QUOTE 0) (IF (NUMBERP M) (SUB1 N) (QUOTE 0))) (SUB1 (REMAINDER M N))) (SUB1 M)))) NIL) (REWRITE-RULE REMAINDER-DIFFERENCE-TIMES2 NIL (EQUAL (REMAINDER (DIFFERENCE X (TIMES Y Z)) Y) (IF (LESSP X (TIMES Y Z)) (QUOTE 0) (REMAINDER X Y))) NIL) (REWRITE-RULE REMAINDER-DIFFERENCE-TIMES1 NIL (EQUAL (REMAINDER (DIFFERENCE X (TIMES Y Z)) Z) (IF (LESSP X (TIMES Y Z)) (QUOTE 0) (REMAINDER X Z))) NIL) (REWRITE-RULE REMAINDER-DIFFERENCE ((EQUAL (REMAINDER Y Z) (QUOTE 0))) (EQUAL (REMAINDER (DIFFERENCE X Y) Z) (IF (LESSP X Y) (QUOTE 0) (REMAINDER X Z))) NIL) (REWRITE-RULE REMAINDER-PLUS-PLUS-TIMES2 NIL (EQUAL (REMAINDER (PLUS X (PLUS W (TIMES Z Y))) Y) (REMAINDER (PLUS X W) Y)) NIL) (REWRITE-RULE REMAINDER-PLUS-PLUS-TIMES1 NIL (EQUAL (REMAINDER (PLUS X (PLUS W (TIMES Y Z))) Y) (REMAINDER (PLUS X W) Y)) NIL) (REWRITE-RULE REMAINDER-PLUS-DIFFERENCE2 ((NOT (LESSP Y Z)) (EQUAL (REMAINDER X W) (QUOTE 0))) (EQUAL (REMAINDER (DIFFERENCE (PLUS X Y) Z) W) (REMAINDER (DIFFERENCE Y Z) W)) NIL) (REWRITE-RULE REMAINDER-PLUS-DIFFERENCE1 ((NOT (LESSP X Z)) (EQUAL (REMAINDER Y W) (QUOTE 0))) (EQUAL (REMAINDER (DIFFERENCE (PLUS X Y) Z) W) (REMAINDER (DIFFERENCE X Z) W)) NIL) (REWRITE-RULE REMAINDER-PLUS-ADD1 ((EQUAL (REMAINDER I J) (QUOTE 0))) (EQUAL (REMAINDER (ADD1 (PLUS X I)) J) (REMAINDER (ADD1 X) J)) NIL) (REWRITE-RULE REMAINDER-PLUS-PLUS ((EQUAL (REMAINDER I J) (QUOTE 0))) (EQUAL (REMAINDER (PLUS X (PLUS Y I)) J) (REMAINDER (PLUS X Y) J)) NIL) (REWRITE-RULE REMAINDER-PLUS-TIMES2 NIL (EQUAL (REMAINDER (PLUS X (TIMES Z Y)) Y) (REMAINDER X Y)) NIL) (REWRITE-RULE REMAINDER-PLUS-TIMES1 NIL (EQUAL (REMAINDER (PLUS X (TIMES Y Z)) Y) (REMAINDER X Y)) NIL) (REWRITE-RULE REMAINDER-TIMES NIL (EQUAL (REMAINDER (TIMES Y X) Y) (QUOTE 0)) NIL) (REWRITE-RULE REMAINDER-TIMES NIL (EQUAL (REMAINDER (TIMES X Y) Y) (QUOTE 0)) NIL) (REWRITE-RULE REMAINDER-PLUS2 ((EQUAL (REMAINDER I J) (QUOTE 0))) (EQUAL (REMAINDER (PLUS I X) J) (REMAINDER X J)) NIL) (REWRITE-RULE REMAINDER-PLUS1 ((EQUAL (REMAINDER I J) (QUOTE 0))) (EQUAL (REMAINDER (PLUS X I) J) (REMAINDER X J)) NIL) (REWRITE-RULE REMAINDER-2X-ADD1 NIL (EQUAL (REMAINDER (PLUS X (ADD1 X)) (QUOTE 2)) (QUOTE 1)) NIL) (REWRITE-RULE REMAINDER-2X NIL (EQUAL (REMAINDER (PLUS X X) (QUOTE 2)) (QUOTE 0)) NIL) (REWRITE-RULE REMAINDER-X-X NIL (EQUAL (REMAINDER X X) (QUOTE 0)) NIL) (REWRITE-RULE REMAINDER-1 NIL (EQUAL (REMAINDER X (QUOTE 1)) (QUOTE 0)) NIL) (REWRITE-RULE REMAINDER-1 NIL (EQUAL (REMAINDER (QUOTE 1) X) (IF (EQUAL X (QUOTE 1)) (QUOTE 0) (QUOTE 1))) NIL) (REWRITE-RULE REMAINDER-0 NIL (EQUAL (REMAINDER X (QUOTE 0)) (IF (NUMBERP X) X (QUOTE 0))) NIL) (REWRITE-RULE REMAINDER-0 NIL (EQUAL (REMAINDER (QUOTE 0) X) (QUOTE 0)) NIL) (REWRITE-RULE REMAINDER-EXIT ((LESSP I J)) (EQUAL (REMAINDER I J) (IF (NUMBERP I) I (QUOTE 0))) NIL)) TOTALP-LST ((REMAINDER . T)) LINEAR-LEMMAS ((LINEAR-LEMMA REMAINDER-WRT-2 NIL (LESSP (REMAINDER N (QUOTE 2)) (QUOTE 2)) (REMAINDER N (QUOTE 2))) (LINEAR-LEMMA REMAINDER-LESSP-LINEAR ((NUMBERP Y) (NOT (EQUAL Y (QUOTE 0)))) (LESSP (REMAINDER X Y) Y) (REMAINDER X Y))) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (I J) (IF (EQUAL J (QUOTE 0)) (IF (NUMBERP I) I (QUOTE 0)) (IF (NUMBERP J) (IF (LESSP I J) (IF (NUMBERP I) I (QUOTE 0)) (REMAINDER (DIFFERENCE I J) J)) (IF (NUMBERP I) I (QUOTE 0))))) LISP-CODE *1*REMAINDER SUBRP *1*TRUE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP J)) NIL) (TESTS-AND-CASES ((NOT (ZEROP J)) (LESSP I J)) NIL) (TESTS-AND-CASES ((NOT (ZEROP J)) (NOT (LESSP I J))) (((DIFFERENCE I J) J)))) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (I) (COUNT I) LESSP (ZERO COUNT-NOT-LESSP ZEROP COUNT-NUMBERP))) ELIMINATE-DESTRUCTORS-SEQ (REWRITE-RULE REMAINDER-QUOTIENT-ELIM ((NUMBERP Y) (NOT (EQUAL Y (QUOTE 0))) (NUMBERP X)) (EQUAL (PLUS (REMAINDER X Y) (TIMES Y (QUOTIENT X Y))) X) NIL) ELIMINATE-DESTRUCTORS-DESTS ((REMAINDER X Y) (QUOTIENT X Y)) CONTROLLER-POCKETS (1) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*QUOTIENT) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE QUOTIENT) (QUOTE (TYPE-PRESCRIPTION-LST ((QUOTIENT 4 NIL NIL)) LEMMAS ((REWRITE-RULE QUOTIENT-TIMES-EXP2-4 NIL (EQUAL (QUOTIENT (TIMES X (TIMES Y (EXP (QUOTE 2) I))) (QUOTE 2)) (IF (EQUAL I (QUOTE 0)) (QUOTIENT (TIMES X Y) (QUOTE 2)) (IF (NUMBERP I) (TIMES X (TIMES Y (EXP (QUOTE 2) (SUB1 I)))) (QUOTIENT (TIMES X Y) (QUOTE 2))))) NIL) (REWRITE-RULE QUOTIENT-TIMES-EXP2-4 NIL (EQUAL (QUOTIENT (TIMES X (TIMES (EXP (QUOTE 2) I) Y)) (QUOTE 2)) (IF (EQUAL I (QUOTE 0)) (QUOTIENT (TIMES X Y) (QUOTE 2)) (IF (NUMBERP I) (TIMES X (TIMES Y (EXP (QUOTE 2) (SUB1 I)))) (QUOTIENT (TIMES X Y) (QUOTE 2))))) NIL) (REWRITE-RULE QUOTIENT-TIMES-EXP2-3 NIL (EQUAL (QUOTIENT (TIMES (EXP (QUOTE 2) I) X) (QUOTE 2)) (IF (EQUAL I (QUOTE 0)) (QUOTIENT X (QUOTE 2)) (IF (NUMBERP I) (TIMES X (EXP (QUOTE 2) (SUB1 I))) (QUOTIENT X (QUOTE 2))))) NIL) (REWRITE-RULE QUOTIENT-TIMES-EXP2-3 NIL (EQUAL (QUOTIENT (TIMES X (EXP (QUOTE 2) I)) (QUOTE 2)) (IF (EQUAL I (QUOTE 0)) (QUOTIENT X (QUOTE 2)) (IF (NUMBERP I) (TIMES X (EXP (QUOTE 2) (SUB1 I))) (QUOTIENT X (QUOTE 2))))) NIL) (REWRITE-RULE QUOTIENT-TIMES-EXP2-2 NIL (EQUAL (QUOTIENT (TIMES (EXP (QUOTE 2) I) X) (EXP (QUOTE 2) J)) (IF (LESSP I J) (QUOTIENT X (EXP (QUOTE 2) (DIFFERENCE J I))) (TIMES X (EXP (QUOTE 2) (DIFFERENCE I J))))) NIL) (REWRITE-RULE QUOTIENT-TIMES-EXP2-1 NIL (EQUAL (QUOTIENT (TIMES X (EXP (QUOTE 2) I)) (EXP (QUOTE 2) J)) (IF (LESSP I J) (QUOTIENT X (EXP (QUOTE 2) (DIFFERENCE J I))) (TIMES X (EXP (QUOTE 2) (DIFFERENCE I J))))) NIL) (REWRITE-RULE QUOTIENT-QUOTIENT NIL (EQUAL (QUOTIENT (QUOTIENT X Z) Y) (QUOTIENT X (TIMES Z Y))) NIL) (REWRITE-RULE QUOTIENT-EXP ((LESSP (QUOTE 1) I)) (EQUAL (QUOTIENT (EXP I J) (EXP I K)) (IF (LESSP J K) (QUOTE 0) (EXP I (DIFFERENCE J K)))) NIL) (REWRITE-RULE QUOTIENT-DISTRIBUTES-TIMES2-ADD1 NIL (EQUAL (QUOTIENT (ADD1 (TIMES (QUOTE 2) Y)) (TIMES (QUOTE 2) Z)) (QUOTIENT Y Z)) NIL) (REWRITE-RULE QUOTIENT-TIMES-CANCEL NIL (EQUAL (QUOTIENT (TIMES X Y) (TIMES X Z)) (IF (EQUAL X (QUOTE 0)) (QUOTE 0) (IF (NUMBERP X) (QUOTIENT Y Z) (QUOTE 0)))) NIL) (REWRITE-RULE QUOTIENT-CROCK ((LESSP Y Z)) (EQUAL (QUOTIENT (TIMES Y X) (TIMES X Z)) (QUOTE 0)) NIL) (REWRITE-RULE QUOTIENT-ADD1 NIL (EQUAL (QUOTIENT (ADD1 M) N) (IF (EQUAL N (QUOTE 0)) (QUOTE 0) (IF (NUMBERP N) (IF (EQUAL (REMAINDER M N) (SUB1 N)) (ADD1 (QUOTIENT M N)) (QUOTIENT M N)) (QUOTE 0)))) NIL) (REWRITE-RULE QUOTIENT-SUB1 NIL (EQUAL (QUOTIENT (SUB1 M) N) (IF (EQUAL (REMAINDER M N) (QUOTE 0)) (SUB1 (QUOTIENT M N)) (QUOTIENT M N))) NIL) (REWRITE-RULE QUOTIENT-DIFFERENCE-TIMES2 NIL (EQUAL (QUOTIENT (DIFFERENCE X (TIMES Y Z)) Y) (IF (LESSP X (TIMES Y Z)) (QUOTE 0) (IF (NUMBERP Z) (DIFFERENCE (QUOTIENT X Y) Z) (DIFFERENCE (QUOTIENT X Y) (QUOTE 0))))) NIL) (REWRITE-RULE QUOTIENT-DIFFERENCE-TIMES1 NIL (EQUAL (QUOTIENT (DIFFERENCE X (TIMES Y Z)) Z) (IF (LESSP X (TIMES Y Z)) (QUOTE 0) (IF (NUMBERP Y) (DIFFERENCE (QUOTIENT X Z) Y) (DIFFERENCE (QUOTIENT X Z) (QUOTE 0))))) NIL) (REWRITE-RULE QUOTIENT-DIFFERENCE ((EQUAL (REMAINDER Y Z) (QUOTE 0))) (EQUAL (QUOTIENT (DIFFERENCE X Y) Z) (IF (LESSP X Y) (QUOTE 0) (DIFFERENCE (QUOTIENT X Z) (QUOTIENT Y Z)))) NIL) (REWRITE-RULE QUOTIENT-DIFFERENCE-PLUS2 ((NOT (LESSP Y Z)) (EQUAL (REMAINDER X W) (QUOTE 0))) (EQUAL (QUOTIENT (DIFFERENCE (PLUS X Y) Z) W) (PLUS (QUOTIENT (DIFFERENCE Y Z) W) (QUOTIENT X W))) NIL) (REWRITE-RULE QUOTIENT-DIFFERENCE-PLUS1 ((NOT (LESSP X Z)) (EQUAL (REMAINDER Y W) (QUOTE 0))) (EQUAL (QUOTIENT (DIFFERENCE (PLUS X Y) Z) W) (PLUS (QUOTIENT (DIFFERENCE X Z) W) (QUOTIENT Y W))) NIL) (REWRITE-RULE QUOTIENT-PLUS-ADD1 ((EQUAL (REMAINDER I J) (QUOTE 0))) (EQUAL (QUOTIENT (ADD1 (PLUS X I)) J) (PLUS (QUOTIENT (ADD1 X) J) (QUOTIENT I J))) NIL) (REWRITE-RULE QUOTIENT-PLUS-PLUS ((EQUAL (REMAINDER I J) (QUOTE 0))) (EQUAL (QUOTIENT (PLUS X (PLUS Y I)) J) (PLUS (QUOTIENT (PLUS X Y) J) (QUOTIENT I J))) NIL) (REWRITE-RULE QUOTIENT-PLUS-TIMES2 NIL (EQUAL (QUOTIENT (PLUS X (TIMES Z Y)) Y) (IF (EQUAL Y (QUOTE 0)) (PLUS (QUOTIENT X Y) (QUOTE 0)) (IF (NUMBERP Y) (IF (NUMBERP Z) (PLUS (QUOTIENT X Y) Z) (PLUS (QUOTIENT X Y) (QUOTE 0))) (PLUS (QUOTIENT X Y) (QUOTE 0))))) NIL) (REWRITE-RULE QUOTIENT-PLUS-TIMES1 NIL (EQUAL (QUOTIENT (PLUS X (TIMES Y Z)) Y) (IF (EQUAL Y (QUOTE 0)) (PLUS (QUOTIENT X Y) (QUOTE 0)) (IF (NUMBERP Y) (IF (NUMBERP Z) (PLUS (QUOTIENT X Y) Z) (PLUS (QUOTIENT X Y) (QUOTE 0))) (PLUS (QUOTIENT X Y) (QUOTE 0))))) NIL) (REWRITE-RULE QUOTIENT-TIMES NIL (EQUAL (QUOTIENT (TIMES Y X) Y) (IF (EQUAL Y (QUOTE 0)) (QUOTE 0) (IF (NUMBERP Y) (IF (NUMBERP X) X (QUOTE 0)) (QUOTE 0)))) NIL) (REWRITE-RULE QUOTIENT-TIMES NIL (EQUAL (QUOTIENT (TIMES X Y) Y) (IF (EQUAL Y (QUOTE 0)) (QUOTE 0) (IF (NUMBERP Y) (IF (NUMBERP X) X (QUOTE 0)) (QUOTE 0)))) NIL) (REWRITE-RULE QUOTIENT-PLUS2 ((EQUAL (REMAINDER I J) (QUOTE 0))) (EQUAL (QUOTIENT (PLUS I X) J) (PLUS (QUOTIENT I J) (QUOTIENT X J))) NIL) (REWRITE-RULE QUOTIENT-PLUS1 ((EQUAL (REMAINDER I J) (QUOTE 0))) (EQUAL (QUOTIENT (PLUS X I) J) (PLUS (QUOTIENT X J) (QUOTIENT I J))) NIL) (REWRITE-RULE QUOTIENT-2X-ADD1 NIL (EQUAL (QUOTIENT (PLUS X (ADD1 X)) (QUOTE 2)) (IF (NUMBERP X) X (QUOTE 0))) NIL) (REWRITE-RULE QUOTIENT-2X NIL (EQUAL (QUOTIENT (PLUS X X) (QUOTE 2)) (IF (NUMBERP X) X (QUOTE 0))) NIL) (REWRITE-RULE QUOTIENT-X-X NIL (EQUAL (QUOTIENT X X) (IF (EQUAL X (QUOTE 0)) (QUOTE 0) (IF (NUMBERP X) (QUOTE 1) (QUOTE 0)))) NIL) (REWRITE-RULE QUOTIENT-1 NIL (EQUAL (QUOTIENT M (QUOTE 1)) (IF (NUMBERP M) M (QUOTE 0))) NIL) (REWRITE-RULE QUOTIENT-1 NIL (EQUAL (QUOTIENT (QUOTE 1) X) (IF (EQUAL X (QUOTE 1)) (QUOTE 1) (QUOTE 0))) NIL) (REWRITE-RULE QUOTIENT-0 NIL (EQUAL (QUOTIENT X (QUOTE 0)) (QUOTE 0)) NIL) (REWRITE-RULE QUOTIENT-0 NIL (EQUAL (QUOTIENT (QUOTE 0) X) (QUOTE 0)) NIL) (REWRITE-RULE QUOTIENT-EXIT ((LESSP I J)) (EQUAL (QUOTIENT I J) (QUOTE 0)) NIL)) TOTALP-LST ((QUOTIENT . T)) LINEAR-LEMMAS ((LINEAR-LEMMA QUOTIENT-LEQ NIL (NOT (LESSP I (QUOTIENT I J))) (QUOTIENT I J)) (LINEAR-LEMMA QUOTIENT-LESSP-LINEAR ((NUMBERP X) (NOT (EQUAL X (QUOTE 0))) (LESSP (QUOTE 1) Y)) (LESSP (QUOTIENT X Y) X) (QUOTIENT X Y))) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (I J) (IF (EQUAL J (QUOTE 0)) (QUOTE 0) (IF (NUMBERP J) (IF (LESSP I J) (QUOTE 0) (ADD1 (QUOTIENT (DIFFERENCE I J) J))) (QUOTE 0)))) LISP-CODE *1*QUOTIENT SUBRP *1*TRUE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP J)) NIL) (TESTS-AND-CASES ((NOT (ZEROP J)) (LESSP I J)) NIL) (TESTS-AND-CASES ((NOT (ZEROP J)) (NOT (LESSP I J))) (((DIFFERENCE I J) J)))) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (I) (COUNT I) LESSP (ZERO COUNT-NOT-LESSP ZEROP COUNT-NUMBERP))) ELIMINATE-DESTRUCTORS-SEQ (REWRITE-RULE REMAINDER-QUOTIENT-ELIM ((NUMBERP Y) (NOT (EQUAL Y (QUOTE 0))) (NUMBERP X)) (EQUAL (PLUS (REMAINDER X Y) (TIMES Y (QUOTIENT X Y))) X) NIL) ELIMINATE-DESTRUCTORS-DESTS ((QUOTIENT X Y) (REMAINDER X Y)) CONTROLLER-POCKETS (1) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*TIMES) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE TIMES) (QUOTE (TYPE-PRESCRIPTION-LST ((TIMES 4 NIL NIL)) LEMMAS ((REWRITE-RULE EXP-PLUS NIL (EQUAL (TIMES (EXP X Y) (EXP X Z)) (EXP X (PLUS Y Z))) NIL) (REWRITE-RULE EVAL$-TIMES-FRINGE-MEMBER-ZERO ((MEMBER E (TIMES-FRINGE (CONS (QUOTE TIMES) X))) (ZEROP (EVAL$ (QUOTE *1*TRUE) E A))) (EQUAL (TIMES (EVAL$ (QUOTE *1*TRUE) (CAR X) A) (EVAL$ (QUOTE *1*TRUE) (CAR (CDR X)) A)) (QUOTE 0)) NIL) (REWRITE-RULE TIMES-ASSOCIATIVITY NIL (EQUAL (TIMES (TIMES X Y) Z) (TIMES X (TIMES Y Z))) NIL) (REWRITE-RULE TIMES-1 NIL (EQUAL (TIMES (QUOTE 1) X) (IF (NUMBERP X) X (QUOTE 0))) NIL) (REWRITE-RULE TIMES-COMMUTATIVITY1 NIL (EQUAL (TIMES X (TIMES Y Z)) (TIMES Y (TIMES X Z))) ((X . Y))) (REWRITE-RULE TIMES-COMMUTATIVITY NIL (EQUAL (TIMES X Z) (TIMES Z X)) ((X . Z))) (REWRITE-RULE TIMES-ADD1 NIL (EQUAL (TIMES X (ADD1 Y)) (PLUS X (TIMES X Y))) NIL) (REWRITE-RULE TIMES-DISTRIBUTES-PLUS NIL (EQUAL (TIMES X (PLUS Y Z)) (PLUS (TIMES X Y) (TIMES X Z))) NIL) (REWRITE-RULE TIMES-ZERO ((OR (ZEROP X) (ZEROP Y))) (EQUAL (TIMES X Y) (QUOTE 0)) NIL)) TOTALP-LST ((TIMES . T)) LINEAR-LEMMAS ((LINEAR-LEMMA QUOTIENT-SHRINK-FAST NIL (NOT (LESSP X (TIMES Y (QUOTIENT X Y)))) (TIMES Y (QUOTIENT X Y))) (LINEAR-LEMMA TIMES-LESSP-LINEAR ((NOT (LESSP I J))) (NOT (LESSP (TIMES A I) (TIMES A J))) (TIMES A I)) (LINEAR-LEMMA TIMES-LESSP-LINEAR ((NOT (LESSP I J))) (NOT (LESSP (TIMES A I) (TIMES A J))) (TIMES A J))) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (I J) (IF (EQUAL I (QUOTE 0)) (QUOTE 0) (IF (NUMBERP I) (PLUS J (TIMES (SUB1 I) J)) (QUOTE 0)))) LISP-CODE *1*TIMES SUBRP *1*TRUE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP I)) NIL) (TESTS-AND-CASES ((NOT (ZEROP I))) (((SUB1 I) J)))) LEVEL-NO 2 JUSTIFICATIONS ((JUSTIFICATION (I) (COUNT I) LESSP (ZERO ZEROP COUNT-NUMBERP))) CONTROLLER-POCKETS (1) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*DIFFERENCE) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE DIFFERENCE) (QUOTE (TYPE-PRESCRIPTION-LST ((DIFFERENCE 4 NIL NIL)) LEMMAS ((REWRITE-RULE TIMES-DISTRIBUTES-DIFFERENCE1 NIL (EQUAL (DIFFERENCE (TIMES Y X) (TIMES Z X)) (TIMES X (DIFFERENCE Y Z))) NIL) (REWRITE-RULE TIMES-DISTRIBUTES-DIFFERENCE NIL (EQUAL (DIFFERENCE (TIMES X Y) (TIMES X Z)) (TIMES X (DIFFERENCE Y Z))) NIL) (REWRITE-RULE CORRECTNESS-OF-CANCEL-DIFFERENCE-PLUS NIL *1*CANCEL-DIFFERENCE-PLUS NIL) (REWRITE-RULE DIFFERENCE-PLUS-CANCEL-ADD1 NIL (EQUAL (DIFFERENCE (PLUS Y X) (ADD1 Y)) (SUB1 X)) NIL) (REWRITE-RULE DIFFERENCE-PLUS-CANCEL1 NIL (EQUAL (DIFFERENCE (PLUS X Y) (PLUS X Z)) (DIFFERENCE Y Z)) NIL) (REWRITE-RULE DIFFERENCE-DIFFERENCE2 ((NOT (LESSP Y Z))) (EQUAL (DIFFERENCE X (DIFFERENCE Y Z)) (DIFFERENCE (PLUS X Z) Y)) NIL) (REWRITE-RULE DIFFERENCE-DIFFERENCE1 NIL (EQUAL (DIFFERENCE (DIFFERENCE X Y) Z) (DIFFERENCE X (PLUS Y Z))) NIL) (REWRITE-RULE DIFFERENCE-PLUS-CANCEL0 NIL (EQUAL (DIFFERENCE (PLUS Y X) X) (IF (NUMBERP Y) Y (QUOTE 0))) NIL) (REWRITE-RULE DIFFERENCE-PLUS-CANCEL0 NIL (EQUAL (DIFFERENCE (PLUS X Y) X) (IF (NUMBERP Y) Y (QUOTE 0))) NIL) (REWRITE-RULE DIFFERENCE-X-X NIL (EQUAL (DIFFERENCE X X) (QUOTE 0)) NIL) (REWRITE-RULE DIFFERENCE-0 ((NOT (LESSP Y X))) (EQUAL (DIFFERENCE X Y) (QUOTE 0)) NIL) (REWRITE-RULE DIFFERENCE-SUB1 NIL (EQUAL (DIFFERENCE X (QUOTE 1)) (SUB1 X)) NIL)) TOTALP-LST ((DIFFERENCE . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (I J) (IF (EQUAL I (QUOTE 0)) (QUOTE 0) (IF (NUMBERP I) (IF (EQUAL J (QUOTE 0)) I (IF (NUMBERP J) (DIFFERENCE (SUB1 I) (SUB1 J)) I)) (QUOTE 0)))) LISP-CODE *1*DIFFERENCE SUBRP *1*TRUE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP I)) NIL) (TESTS-AND-CASES ((NOT (ZEROP I)) (ZEROP J)) NIL) (TESTS-AND-CASES ((NOT (ZEROP I)) (NOT (ZEROP J))) (((SUB1 I) (SUB1 J))))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (I) (COUNT I) LESSP (ZERO ZEROP COUNT-NUMBERP)) (JUSTIFICATION (J) (COUNT J) LESSP (ZERO ZEROP COUNT-NUMBERP))) CONTROLLER-POCKETS (1 2) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE COUNT-MINUS) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE NEGATIVE-GUTS-ELIM) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE MINUS-NEGATIVE-GUTS) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE MINUS-EQUAL) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE NEGATIVE-GUTS-LESSEQP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE NEGATIVE-GUTS-LESSP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE NEGATIVE-GUTS-TYPE-RESTRICTION) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE NEGATIVE-GUTS-NNEGATIVEP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE NEGATIVE-GUTS-MINUS) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*NEGATIVE-GUTS) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE NEGATIVE-GUTS) (QUOTE (TYPE-PRESCRIPTION-LST ((MINUS 4 NIL)) LEMMAS ((REWRITE-RULE NEGATIVE-GUTS-NNEGATIVEP ((NOT (NEGATIVEP X))) (EQUAL (NEGATIVE-GUTS X) (QUOTE 0)) NIL) (REWRITE-RULE NEGATIVE-GUTS-MINUS NIL (EQUAL (NEGATIVE-GUTS (MINUS NEGATIVE-GUTS)) (IF (NUMBERP NEGATIVE-GUTS) NEGATIVE-GUTS (QUOTE 0))) NIL)) TOTALP-LST ((MINUS . T)) LISP-CODE *1*NEGATIVE-GUTS SUBRP *1*TRUE ELIMINATE-DESTRUCTORS-SEQ (REWRITE-RULE NEGATIVE-GUTS-ELIM ((NEGATIVEP X)) (EQUAL (MINUS (NEGATIVE-GUTS X)) X) NIL) ELIMINATE-DESTRUCTORS-DESTS ((NEGATIVE-GUTS X)) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*NEGATIVEP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE NEGATIVEP) (QUOTE (TYPE-PRESCRIPTION-LST ((MINUS 3 NIL)) TOTALP-LST ((MINUS . T)) LISP-CODE *1*NEGATIVEP SUBRP *1*TRUE MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*MINUS) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE MINUS) (QUOTE (TYPE-PRESCRIPTION-LST ((MINUS 32 NIL)) LEMMAS ((REWRITE-RULE MINUS-NEGATIVE-GUTS NIL (EQUAL (MINUS (NEGATIVE-GUTS X)) (IF (NEGATIVEP X) X (QUOTE (*1*QUOTE MINUS 0)))) NIL) (REWRITE-RULE NEGATIVE-GUTS-TYPE-RESTRICTION ((NOT (NUMBERP NEGATIVE-GUTS))) (EQUAL (MINUS NEGATIVE-GUTS) (QUOTE (*1*QUOTE MINUS 0))) NIL)) TOTALP-LST ((MINUS . T)) LISP-CODE *1*MINUS SUBRP *1*TRUE TYPE-RESTRICTIONS ((TYPE-RESTRICTION (NUMBERP X) 4 (QUOTE 0))) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*NLISTP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE NLISTP) (QUOTE (TYPE-PRESCRIPTION-LST ((NLISTP 3 NIL)) TOTALP-LST ((NLISTP . T)) SDEFN (LAMBDA (X) (IF (LISTP X) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) LISP-CODE *1*NLISTP SUBRP *1*TRUE LEVEL-NO 0 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE COUNT-CONS) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE CAR-CDR-ELIM) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE CONS-CAR-CDR) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE CONS-EQUAL) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE CDR-LESSEQP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE CDR-LESSP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE CDR-NLISTP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE CDR-CONS) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE CAR-LESSEQP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE CAR-LESSP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE CAR-NLISTP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE CAR-CONS) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*CDR) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE CDR) (QUOTE (TYPE-PRESCRIPTION-LST ((CONS -1 NIL)) LEMMAS ((REWRITE-RULE CADR-EVAL$-LIST NIL (EQUAL (CDR (EVAL$ (QUOTE LIST) X A)) (IF (LISTP X) (EVAL$ (QUOTE LIST) (CDR X) A) (QUOTE 0))) NIL) (REWRITE-RULE CDR-NLISTP ((NOT (LISTP X))) (EQUAL (CDR X) (QUOTE 0)) NIL) (REWRITE-RULE CDR-CONS NIL (EQUAL (CDR (CONS CAR CDR)) CDR) NIL)) TOTALP-LST ((CONS . T)) LISP-CODE *1*CDR SUBRP *1*TRUE ELIMINATE-DESTRUCTORS-SEQ (REWRITE-RULE CAR-CDR-ELIM ((LISTP X)) (EQUAL (CONS (CAR X) (CDR X)) X) NIL) ELIMINATE-DESTRUCTORS-DESTS ((CDR X) (CAR X)) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*CAR) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE CAR) (QUOTE (TYPE-PRESCRIPTION-LST ((CONS -1 NIL)) LEMMAS ((REWRITE-RULE CADR-EVAL$-LIST NIL (EQUAL (CAR (EVAL$ (QUOTE LIST) X A)) (EVAL$ (QUOTE *1*TRUE) (CAR X) A)) NIL) (REWRITE-RULE CAR-NLISTP ((NOT (LISTP X))) (EQUAL (CAR X) (QUOTE 0)) NIL) (REWRITE-RULE CAR-CONS NIL (EQUAL (CAR (CONS CAR CDR)) CAR) NIL)) TOTALP-LST ((CONS . T)) LISP-CODE *1*CAR SUBRP *1*TRUE ELIMINATE-DESTRUCTORS-SEQ (REWRITE-RULE CAR-CDR-ELIM ((LISTP X)) (EQUAL (CONS (CAR X) (CDR X)) X) NIL) ELIMINATE-DESTRUCTORS-DESTS ((CAR X) (CDR X)) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*LISTP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE LISTP) (QUOTE (TYPE-PRESCRIPTION-LST ((CONS 3 NIL)) LEMMAS ((REWRITE-RULE LISTP-EVAL$ NIL (EQUAL (LISTP (EVAL$ (QUOTE LIST) X A)) (LISTP X)) NIL)) TOTALP-LST ((CONS . T)) LISP-CODE *1*LISTP SUBRP *1*TRUE MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*CONS) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE CONS) (QUOTE (TYPE-PRESCRIPTION-LST ((CONS 16 NIL NIL)) LEMMAS ((REWRITE-RULE CONS-CAR-CDR NIL (EQUAL (CONS (CAR X) (CDR X)) (IF (LISTP X) X (QUOTE (0 . 0)))) NIL)) TOTALP-LST ((CONS . T)) LISP-CODE *1*CONS SUBRP *1*TRUE TYPE-RESTRICTIONS ((TYPE-RESTRICTION (QUOTE *1*TRUE) -1 (QUOTE 0)) (TYPE-RESTRICTION (QUOTE *1*TRUE) -1 (QUOTE 0))) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE COUNT-PACK) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE UNPACK-ELIM) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE PACK-UNPACK) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE PACK-EQUAL) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE UNPACK-LESSEQP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE UNPACK-LESSP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE UNPACK-NLITATOM) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE UNPACK-PACK) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*UNPACK) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE UNPACK) (QUOTE (TYPE-PRESCRIPTION-LST ((PACK -1 NIL)) LEMMAS ((REWRITE-RULE UNPACK-NLITATOM ((NOT (LITATOM X))) (EQUAL (UNPACK X) (QUOTE 0)) NIL) (REWRITE-RULE UNPACK-PACK NIL (EQUAL (UNPACK (PACK UNPACK)) UNPACK) NIL)) TOTALP-LST ((PACK . T)) LISP-CODE *1*UNPACK SUBRP *1*TRUE ELIMINATE-DESTRUCTORS-SEQ (REWRITE-RULE UNPACK-ELIM ((LITATOM X)) (EQUAL (PACK (UNPACK X)) X) NIL) ELIMINATE-DESTRUCTORS-DESTS ((UNPACK X)) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*LITATOM) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE LITATOM) (QUOTE (TYPE-PRESCRIPTION-LST ((PACK 3 NIL)) TOTALP-LST ((PACK . T)) LISP-CODE *1*LITATOM SUBRP *1*TRUE MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*PACK) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE PACK) (QUOTE (TYPE-PRESCRIPTION-LST ((PACK 8 NIL)) LEMMAS ((REWRITE-RULE PACK-UNPACK NIL (EQUAL (PACK (UNPACK X)) (IF (LITATOM X) X (QUOTE (*1*QUOTE PACK 0)))) NIL)) TOTALP-LST ((PACK . T)) LISP-CODE *1*PACK SUBRP *1*TRUE TYPE-RESTRICTIONS ((TYPE-RESTRICTION (QUOTE *1*TRUE) -1 (QUOTE 0))) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE COUNT-NOT-LESSP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE COUNT-NUMBERP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*PLUS) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE PLUS) (QUOTE (TYPE-PRESCRIPTION-LST ((PLUS 4 NIL NIL)) LEMMAS ((REWRITE-RULE TIMES-DISTRIBUTES-PLUS-NEW NIL (EQUAL (PLUS (TIMES X Y) (TIMES X Z)) (TIMES X (PLUS Y Z))) NIL) (REWRITE-RULE REMAINDER-QUOTIENT NIL (EQUAL (PLUS (TIMES Y (QUOTIENT X Y)) (REMAINDER X Y)) (IF (NUMBERP X) X (QUOTE 0))) NIL) (REWRITE-RULE DIFFERENCE-PLUS2 ((NOT (LESSP Y Z))) (EQUAL (PLUS X (DIFFERENCE Y Z)) (DIFFERENCE (PLUS X Y) Z)) NIL) (REWRITE-RULE DIFFERENCE-PLUS1 ((NOT (LESSP X Y))) (EQUAL (PLUS (DIFFERENCE X Y) Z) (DIFFERENCE (PLUS X Z) Y)) NIL) (REWRITE-RULE PLUS-ASSOCIATIVITY NIL (EQUAL (PLUS (PLUS X Y) Z) (PLUS X (PLUS Y Z))) NIL) (REWRITE-RULE PLUS-COMMUTATIVITY1 NIL (EQUAL (PLUS X (PLUS Y Z)) (PLUS Y (PLUS X Z))) ((X . Y))) (REWRITE-RULE PLUS-COMMUTATIVITY NIL (EQUAL (PLUS X Y) (PLUS Y X)) ((X . Y))) (REWRITE-RULE PLUS-ADD1-1 NIL (EQUAL (PLUS X (ADD1 Y)) (ADD1 (PLUS X Y))) NIL) (REWRITE-RULE PLUS-ADD1 NIL (EQUAL (PLUS (QUOTE 1) X) (ADD1 X)) NIL)) TOTALP-LST ((PLUS . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE UNCHANGING) SDEFN (LAMBDA (X Y) (IF (EQUAL X (QUOTE 0)) (IF (NUMBERP Y) Y (QUOTE 0)) (IF (NUMBERP X) (ADD1 (PLUS (SUB1 X) Y)) (IF (NUMBERP Y) Y (QUOTE 0))))) LISP-CODE *1*PLUS SUBRP *1*TRUE INDUCTION-MACHINE ((TESTS-AND-CASES ((ZEROP X)) NIL) (TESTS-AND-CASES ((NOT (ZEROP X))) (((SUB1 X) Y)))) LEVEL-NO 1 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (SUB1-LESSP ZEROP ZERO SUB1-LESSEQP))) CONTROLLER-POCKETS (1) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*FIX) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE FIX) (QUOTE (TYPE-PRESCRIPTION-LST ((FIX 4 NIL)) TOTALP-LST ((FIX . T)) SDEFN (LAMBDA (X) (IF (NUMBERP X) X (QUOTE 0))) LISP-CODE *1*FIX SUBRP *1*TRUE LEVEL-NO 0 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*ZEROP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE ZEROP) (QUOTE (TYPE-PRESCRIPTION-LST ((ZEROP 3 NIL)) TOTALP-LST ((ZEROP . T)) SDEFN (LAMBDA (X) (IF (EQUAL X (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP X) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) LISP-CODE *1*ZEROP SUBRP *1*TRUE LEVEL-NO 0 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*GEQ) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE GEQ) (QUOTE (TYPE-PRESCRIPTION-LST ((GEQ 3 NIL NIL)) TOTALP-LST ((GEQ . T)) SDEFN (LAMBDA (X Y) (IF (LESSP X Y) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) LISP-CODE *1*GEQ SUBRP *1*TRUE LEVEL-NO 0 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*LEQ) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE LEQ) (QUOTE (TYPE-PRESCRIPTION-LST ((LEQ 3 NIL NIL)) TOTALP-LST ((LEQ . T)) SDEFN (LAMBDA (X Y) (IF (LESSP Y X) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) LISP-CODE *1*LEQ SUBRP *1*TRUE LEVEL-NO 0 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*GREATERP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE GREATERP) (QUOTE (TYPE-PRESCRIPTION-LST ((GREATERP 3 NIL NIL)) TOTALP-LST ((GREATERP . T)) SDEFN (LAMBDA (X Y) (LESSP Y X)) LISP-CODE *1*GREATERP SUBRP *1*TRUE LEVEL-NO 0 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*LESSP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE LESSP) (QUOTE (TYPE-PRESCRIPTION-LST ((LESSP 3 NIL NIL)) LEMMAS ((REWRITE-RULE TIMES-LESSP ((NOT (LESSP Z X))) (EQUAL (LESSP X (TIMES Y Z)) (IF (EQUAL Y (QUOTE 0)) (QUOTE *1*FALSE) (IF (NUMBERP Y) (IF (EQUAL Z (QUOTE 0)) (QUOTE *1*FALSE) (IF (NUMBERP Z) (IF (EQUAL Y (QUOTE 1)) (LESSP X Z) (QUOTE *1*TRUE)) (QUOTE *1*FALSE))) (QUOTE *1*FALSE)))) NIL) (REWRITE-RULE LESSP-PLUS-EXP2 ((LESSP X (EXP (QUOTE 2) I))) (EQUAL (LESSP (PLUS X (EXP (QUOTE 2) I)) (EXP (QUOTE 2) N)) (LESSP I N)) NIL) (REWRITE-RULE LESSP-PLUS-TIMES-EXP2 ((LESSP X (EXP (QUOTE 2) I))) (EQUAL (LESSP (PLUS X (TIMES Y (EXP (QUOTE 2) I))) (EXP (QUOTE 2) N)) (IF (EQUAL Y (QUOTE 0)) (LESSP X (EXP (QUOTE 2) N)) (IF (NUMBERP Y) (LESSP Y (EXP (QUOTE 2) (DIFFERENCE N I))) (LESSP X (EXP (QUOTE 2) N))))) NIL) (REWRITE-RULE QUOTIENT-TIMES-LESSP NIL (EQUAL (LESSP (QUOTIENT X Z) Y) (IF (EQUAL Z (QUOTE 0)) (IF (EQUAL Y (QUOTE 0)) (QUOTE *1*FALSE) (NUMBERP Y)) (IF (NUMBERP Z) (LESSP X (TIMES Z Y)) (IF (EQUAL Y (QUOTE 0)) (QUOTE *1*FALSE) (NUMBERP Y))))) NIL) (REWRITE-RULE TIMES-PLUS-LESSP ((LESSP X D)) (EQUAL (LESSP (PLUS X (TIMES B D)) (TIMES C D)) (LESSP B C)) NIL) (REWRITE-RULE QUOTIENT-LESSP NIL (EQUAL (LESSP (QUOTIENT M N) M) (IF (EQUAL M (QUOTE 0)) (QUOTE *1*FALSE) (IF (NUMBERP M) (IF (EQUAL N (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP N) (IF (EQUAL N (QUOTE 1)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (QUOTE *1*TRUE))) (QUOTE *1*FALSE)))) NIL) (REWRITE-RULE REMAINDER-LESSP NIL (EQUAL (LESSP (REMAINDER X Y) Y) (IF (EQUAL Y (QUOTE 0)) (QUOTE *1*FALSE) (NUMBERP Y))) NIL) (REWRITE-RULE TIMES-EXP2-LESSP NIL (EQUAL (LESSP (TIMES I (EXP (QUOTE 2) J)) (EXP (QUOTE 2) K)) (LESSP I (EXP (QUOTE 2) (DIFFERENCE K J)))) NIL) (REWRITE-RULE EXP-LESSP NIL (EQUAL (LESSP (EXP X Y) (EXP X Z)) (IF (EQUAL X (QUOTE 0)) (IF (EQUAL Y (QUOTE 0)) (QUOTE *1*FALSE) (IF (NUMBERP Y) (IF (EQUAL Z (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP Z) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (QUOTE *1*FALSE))) (IF (NUMBERP X) (IF (EQUAL X (QUOTE 1)) (QUOTE *1*FALSE) (LESSP Y Z)) (IF (EQUAL Y (QUOTE 0)) (QUOTE *1*FALSE) (IF (NUMBERP Y) (IF (EQUAL Z (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP Z) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (QUOTE *1*FALSE)))))) NIL) (REWRITE-RULE EXP-OF-2-1 NIL (EQUAL (LESSP (QUOTE 1) (EXP (QUOTE 2) N)) (IF (EQUAL N (QUOTE 0)) (QUOTE *1*FALSE) (NUMBERP N))) NIL) (REWRITE-RULE CORRECTNESS-OF-CANCEL-LESSP-TIMES NIL *1*CANCEL-LESSP-TIMES NIL) (REWRITE-RULE LESSP-1-TIMES-TREE-DELETE ((MEMBER W X)) (EQUAL (LESSP (QUOTE 1) (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (DELETE W X)) A)) (IF (EQUAL (EVAL$ (QUOTE *1*TRUE) W A) (QUOTE 0)) (LESSP-1-TIMES-TREE-DELETE-END W X A) (IF (NUMBERP (EVAL$ (QUOTE *1*TRUE) W A)) (LESSP (EVAL$ (QUOTE *1*TRUE) W A) (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE X) A)) (LESSP-1-TIMES-TREE-DELETE-END W X A)))) NIL) (REWRITE-RULE ZEROP-MAKES-LESSP-FALSE-BRIDGE ((NOT (EVAL$ (QUOTE *1*TRUE) (AND-NOT-ZEROP-TREE (BAGINT (TIMES-FRINGE (CONS (QUOTE TIMES) X)) (TIMES-FRINGE (CONS (QUOTE TIMES) Y)))) A))) (EQUAL (LESSP (TIMES (EVAL$ (QUOTE *1*TRUE) (CAR X) A) (EVAL$ (QUOTE *1*TRUE) (CAR (CDR X)) A)) (TIMES (EVAL$ (QUOTE *1*TRUE) (CAR Y) A) (EVAL$ (QUOTE *1*TRUE) (CAR (CDR Y)) A))) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE EVAL$-LESSP-TIMES-TREE-BAGDIFF ((EVAL$ (QUOTE *1*TRUE) (AND-NOT-ZEROP-TREE X) A) (SUBBAGP X Y) (SUBBAGP X Z)) (EQUAL (LESSP (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (BAGDIFF Y X)) A) (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (BAGDIFF Z X)) A)) (LESSP (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE Y) A) (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE Z) A))) NIL) (REWRITE-RULE TIMES2-ADD1-LESSP-CANCEL NIL (EQUAL (LESSP (ADD1 (TIMES (QUOTE 2) I)) (TIMES (QUOTE 2) J)) (LESSP I J)) NIL) (REWRITE-RULE TIMES-LESSP-CANCEL-1 NIL (EQUAL (LESSP (TIMES X Y) (PLUS X (TIMES X Z))) (IF (EQUAL X (QUOTE 0)) (QUOTE *1*FALSE) (IF (NUMBERP X) (IF (LESSP Z Y) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (QUOTE *1*FALSE)))) NIL) (REWRITE-RULE TIMES-LESSP-CANCEL NIL (EQUAL (LESSP (TIMES X Y) (TIMES X Z)) (IF (EQUAL X (QUOTE 0)) (QUOTE *1*FALSE) (IF (NUMBERP X) (LESSP Y Z) (QUOTE *1*FALSE)))) NIL) (REWRITE-RULE TIMES-LESSP-CANCEL0 NIL (EQUAL (LESSP X (TIMES X Y)) (IF (EQUAL X (QUOTE 0)) (QUOTE *1*FALSE) (IF (NUMBERP X) (IF (EQUAL Y (QUOTE 0)) (QUOTE *1*FALSE) (IF (NUMBERP Y) (IF (EQUAL Y (QUOTE 1)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (QUOTE *1*FALSE))) (QUOTE *1*FALSE)))) NIL) (REWRITE-RULE TIMES-LESSP-CANCEL0 NIL (EQUAL (LESSP (TIMES X Y) X) (IF (EQUAL X (QUOTE 0)) (QUOTE *1*FALSE) (IF (NUMBERP X) (IF (EQUAL Y (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP Y) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (QUOTE *1*FALSE)))) NIL) (REWRITE-RULE TIMES-LESSP-1 NIL (EQUAL (LESSP (QUOTE 1) (TIMES X Y)) (IF (EQUAL X (QUOTE 0)) (QUOTE *1*FALSE) (IF (NUMBERP X) (IF (EQUAL Y (QUOTE 0)) (QUOTE *1*FALSE) (IF (NUMBERP Y) (IF (EQUAL X (QUOTE 1)) (IF (EQUAL Y (QUOTE 1)) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (QUOTE *1*TRUE)) (QUOTE *1*FALSE))) (QUOTE *1*FALSE)))) NIL) (REWRITE-RULE TIMES-LESSP-0 NIL (EQUAL (LESSP (QUOTE 0) (TIMES X Y)) (IF (LESSP (QUOTE 0) X) (LESSP (QUOTE 0) Y) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE PLUS-LESSP-CANCEL-2 NIL (EQUAL (LESSP (PLUS Y X) (PLUS X Z)) (LESSP Y Z)) NIL) (REWRITE-RULE CORRECTNESS-OF-CANCEL-LESSP-PLUS NIL *1*CANCEL-LESSP-PLUS NIL) (REWRITE-RULE BRIDGE-TO-SUBBAGP-IMPLIES-PLUS-TREE-GEQ ((SUBBAGP Y (PLUS-FRINGE Z)) (EQUAL (EVAL$ (QUOTE *1*TRUE) Z A) (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE (PLUS-FRINGE Z)) A))) (EQUAL (LESSP (EVAL$ (QUOTE *1*TRUE) Z A) (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE Y) A)) (QUOTE *1*FALSE)) NIL) (REWRITE-RULE DIFFERENCE-LESSP-CANCEL NIL (EQUAL (LESSP (DIFFERENCE A C) (DIFFERENCE B C)) (IF (LESSP A C) (LESSP C B) (LESSP A B))) NIL) (REWRITE-RULE DIFFERENCE-LESSP1 ((LESSP X Z)) (EQUAL (LESSP (DIFFERENCE X Y) Z) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE DIFFERENCE-LESSP NIL (EQUAL (LESSP (DIFFERENCE M N) M) (IF (EQUAL M (QUOTE 0)) (QUOTE *1*FALSE) (IF (NUMBERP M) (IF (EQUAL N (QUOTE 0)) (QUOTE *1*FALSE) (NUMBERP N)) (QUOTE *1*FALSE)))) NIL) (REWRITE-RULE PLUS-LESSP-CANCEL-ADD1 NIL (EQUAL (LESSP (PLUS Y X) (ADD1 Y)) (IF (EQUAL X (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP X) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) NIL) (REWRITE-RULE PLUS-LESSP-CANCEL-1 NIL (EQUAL (LESSP (PLUS X Y) (PLUS X Z)) (LESSP Y Z)) NIL) (REWRITE-RULE PLUS-LESSP-CANCEL-0 NIL (EQUAL (LESSP X (PLUS X Y)) (IF (EQUAL Y (QUOTE 0)) (QUOTE *1*FALSE) (NUMBERP Y))) NIL) (REWRITE-RULE LESSP-SUB1 NIL (EQUAL (LESSP (SUB1 X) X) (IF (EQUAL X (QUOTE 0)) (QUOTE *1*FALSE) (NUMBERP X))) NIL) (REWRITE-RULE LESSP-OF-1 NIL (EQUAL (LESSP X (QUOTE 1)) (IF (EQUAL X (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP X) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) NIL)) TOTALP-LST ((LESSP . T)) QUICK-BLOCK-INFO (SELF-REFLEXIVE SELF-REFLEXIVE) SDEFN (LAMBDA (X Y) (IF (EQUAL Y (QUOTE 0)) (QUOTE *1*FALSE) (IF (NUMBERP Y) (IF (EQUAL X (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP X) (LESSP (SUB1 X) (SUB1 Y)) (QUOTE *1*TRUE))) (QUOTE *1*FALSE)))) LISP-CODE *1*LESSP SUBRP *1*TRUE INDUCTION-MACHINE ((TESTS-AND-CASES ((OR (EQUAL Y (QUOTE 0)) (NOT (NUMBERP Y)))) NIL) (TESTS-AND-CASES ((NOT (OR (EQUAL Y (QUOTE 0)) (NOT (NUMBERP Y)))) (OR (EQUAL X (QUOTE 0)) (NOT (NUMBERP X)))) NIL) (TESTS-AND-CASES ((NOT (OR (EQUAL Y (QUOTE 0)) (NOT (NUMBERP Y)))) (NOT (OR (EQUAL X (QUOTE 0)) (NOT (NUMBERP X))))) (((SUB1 X) (SUB1 Y))))) LEVEL-NO 0 JUSTIFICATIONS ((JUSTIFICATION (X) (COUNT X) LESSP (SUB1-LESSP NOT OR ZERO SUB1-LESSEQP)) (JUSTIFICATION (Y) (COUNT Y) LESSP (SUB1-LESSP NOT OR ZERO SUB1-LESSEQP))) CONTROLLER-POCKETS (1 2) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE COUNT-ADD1) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE SUB1-ELIM) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE ADD1-SUB1) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE ADD1-EQUAL) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE SUB1-LESSEQP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE SUB1-LESSP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE SUB1-TYPE-RESTRICTION) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE SUB1-NNUMBERP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE SUB1-ADD1) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*ZERO) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE ZERO) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD1 4)) TOTALP-LST ((ADD1 . T)) LISP-CODE *1*ZERO SUBRP *1*TRUE MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*SUB1) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE SUB1) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD1 4 NIL)) LEMMAS ((REWRITE-RULE DIFFERENCE-SUB1-SUB1 NIL (EQUAL (SUB1 (DIFFERENCE X (SUB1 Y))) (IF (EQUAL Y (QUOTE 0)) (SUB1 X) (IF (NUMBERP Y) (IF (LESSP X Y) (QUOTE 0) (DIFFERENCE X Y)) (SUB1 X)))) NIL) (REWRITE-RULE SUB1-NNUMBERP ((NOT (NUMBERP X))) (EQUAL (SUB1 X) (QUOTE 0)) NIL) (REWRITE-RULE SUB1-ADD1 NIL (EQUAL (SUB1 (ADD1 SUB1)) (IF (NUMBERP SUB1) SUB1 (QUOTE 0))) NIL)) TOTALP-LST ((ADD1 . T)) LISP-CODE *1*SUB1 SUBRP *1*TRUE ELIMINATE-DESTRUCTORS-SEQ (REWRITE-RULE SUB1-ELIM ((NUMBERP X) (NOT (EQUAL X (QUOTE 0)))) (EQUAL (ADD1 (SUB1 X)) X) NIL) ELIMINATE-DESTRUCTORS-DESTS ((SUB1 X)) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*NUMBERP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE NUMBERP) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD1 3 NIL)) LEMMAS ((REWRITE-RULE EVAL$-TIMES-TREE-NUMBERP NIL (NUMBERP (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE X) A)) NIL) (REWRITE-RULE NUMBERP-EVAL$-TIMES ((EQUAL (CAR X) (QUOTE TIMES))) (NUMBERP (EVAL$ (QUOTE *1*TRUE) X A)) NIL) (REWRITE-RULE MEMBER-IMPLIES-NUMBERP ((MEMBER C (PLUS-FRINGE X)) (NUMBERP (EVAL$ (QUOTE *1*TRUE) C A))) (NUMBERP (EVAL$ (QUOTE *1*TRUE) X A)) NIL) (REWRITE-RULE NUMBERP-EVAL$-BRIDGE ((EQUAL (EVAL$ (QUOTE *1*TRUE) Z A) (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE X) A))) (NUMBERP (EVAL$ (QUOTE *1*TRUE) Z A)) NIL) (REWRITE-RULE NUMBERP-EVAL$-PLUS-TREE NIL (NUMBERP (EVAL$ (QUOTE *1*TRUE) (PLUS-TREE L) A)) NIL) (REWRITE-RULE NUMBERP-EVAL$-PLUS ((EQUAL (CAR X) (QUOTE PLUS))) (NUMBERP (EVAL$ (QUOTE *1*TRUE) X A)) NIL)) TOTALP-LST ((ADD1 . T)) LISP-CODE *1*NUMBERP SUBRP *1*TRUE MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*ADD1) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE ADD1) (QUOTE (TYPE-PRESCRIPTION-LST ((ADD1 4 NIL)) LEMMAS ((REWRITE-RULE TIMES-ADD1-SUB1 NIL (EQUAL (ADD1 (TIMES A (SUB1 B))) (IF (EQUAL A (QUOTE 0)) (QUOTE 1) (IF (NUMBERP A) (IF (EQUAL B (QUOTE 0)) (QUOTE 1) (IF (NUMBERP B) (DIFFERENCE (TIMES A B) (SUB1 A)) (QUOTE 1))) (QUOTE 1)))) NIL) (REWRITE-RULE ADD1-SUB1 NIL (EQUAL (ADD1 (SUB1 X)) (IF (NUMBERP X) (IF (EQUAL X (QUOTE 0)) (QUOTE 1) X) (QUOTE 1))) NIL) (REWRITE-RULE SUB1-TYPE-RESTRICTION ((NOT (NUMBERP SUB1))) (EQUAL (ADD1 SUB1) (QUOTE 1)) NIL)) TOTALP-LST ((ADD1 . T)) LISP-CODE *1*ADD1 SUBRP *1*TRUE TYPE-RESTRICTIONS ((TYPE-RESTRICTION (NUMBERP X) 4 (ZERO))) MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*IMPLIES) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE IMPLIES) (QUOTE (TYPE-PRESCRIPTION-LST ((IMPLIES 3 NIL NIL)) TOTALP-LST ((IMPLIES . T)) SDEFN (LAMBDA (P Q) (IF P (IF Q (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*TRUE))) LISP-CODE *1*IMPLIES SUBRP *1*TRUE LEVEL-NO 0 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*OR) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE OR) (QUOTE (TYPE-PRESCRIPTION-LST ((OR 3 NIL NIL)) TOTALP-LST ((OR . T)) SDEFN (LAMBDA (P Q) (IF P (QUOTE *1*TRUE) (IF Q (QUOTE *1*TRUE) (QUOTE *1*FALSE)))) LISP-CODE *1*OR SUBRP *1*TRUE LEVEL-NO 0 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*AND) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE AND) (QUOTE (TYPE-PRESCRIPTION-LST ((AND 3 NIL NIL)) TOTALP-LST ((AND . T)) SDEFN (LAMBDA (P Q) (IF P (IF Q (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (QUOTE *1*FALSE))) LISP-CODE *1*AND SUBRP *1*TRUE LEVEL-NO 0 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*NOT) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE NOT) (QUOTE (TYPE-PRESCRIPTION-LST ((NOT 3 NIL)) TOTALP-LST ((NOT . T)) SDEFN (LAMBDA (P) (IF P (QUOTE *1*FALSE) (QUOTE *1*TRUE))) LISP-CODE *1*NOT SUBRP *1*TRUE LEVEL-NO 0 MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*TRUEP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE TRUEP) (QUOTE (TYPE-PRESCRIPTION-LST ((TRUE 3 NIL)) TOTALP-LST ((TRUE . T)) LISP-CODE *1*TRUEP SUBRP *1*TRUE MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*TRUE) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE TRUE) (QUOTE (TYPE-PRESCRIPTION-LST ((TRUE 2)) TOTALP-LST ((TRUE . T)) LISP-CODE *1*TRUE SUBRP *1*TRUE MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*FALSEP) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE FALSEP) (QUOTE (TYPE-PRESCRIPTION-LST ((FALSE 3 NIL)) TOTALP-LST ((FALSE . T)) LISP-CODE *1*FALSEP SUBRP *1*TRUE MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*FALSE) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE FALSE) (QUOTE (TYPE-PRESCRIPTION-LST ((FALSE 1)) TOTALP-LST ((FALSE . T)) LISP-CODE *1*FALSE SUBRP *1*TRUE MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*COUNT) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE COUNT) (QUOTE (TYPE-PRESCRIPTION-LST ((GROUND-ZERO 4 NIL)) LEMMAS ((REWRITE-RULE COUNT-MINUS NIL (EQUAL (COUNT (MINUS NEGATIVE-GUTS)) (IF (NUMBERP NEGATIVE-GUTS) (ADD1 (COUNT NEGATIVE-GUTS)) (QUOTE 1))) NIL) (REWRITE-RULE COUNT-CONS NIL (EQUAL (COUNT (CONS CAR CDR)) (ADD1 (PLUS (COUNT CAR) (COUNT CDR)))) NIL) (REWRITE-RULE COUNT-PACK NIL (EQUAL (COUNT (PACK UNPACK)) (ADD1 (COUNT UNPACK))) NIL) (REWRITE-RULE COUNT-NUMBERP ((NUMBERP I)) (EQUAL (COUNT I) I) NIL) (REWRITE-RULE COUNT-ADD1 NIL (EQUAL (COUNT (ADD1 SUB1)) (IF (NUMBERP SUB1) (ADD1 (COUNT SUB1)) (QUOTE 1))) NIL)) TOTALP-LST ((GROUND-ZERO . T)) LINEAR-LEMMAS ((LINEAR-LEMMA NEGATIVE-GUTS-LESSEQP NIL (NOT (LESSP (COUNT X) (COUNT (NEGATIVE-GUTS X)))) (COUNT (NEGATIVE-GUTS X))) (LINEAR-LEMMA NEGATIVE-GUTS-LESSP ((NEGATIVEP X)) (LESSP (COUNT (NEGATIVE-GUTS X)) (COUNT X)) (COUNT (NEGATIVE-GUTS X))) (LINEAR-LEMMA CDR-LESSEQP NIL (NOT (LESSP (COUNT X) (COUNT (CDR X)))) (COUNT (CDR X))) (LINEAR-LEMMA CDR-LESSP ((LISTP X)) (LESSP (COUNT (CDR X)) (COUNT X)) (COUNT (CDR X))) (LINEAR-LEMMA CAR-LESSEQP NIL (NOT (LESSP (COUNT X) (COUNT (CAR X)))) (COUNT (CAR X))) (LINEAR-LEMMA CAR-LESSP ((LISTP X)) (LESSP (COUNT (CAR X)) (COUNT X)) (COUNT (CAR X))) (LINEAR-LEMMA UNPACK-LESSEQP NIL (NOT (LESSP (COUNT X) (COUNT (UNPACK X)))) (COUNT (UNPACK X))) (LINEAR-LEMMA UNPACK-LESSP ((LITATOM X)) (LESSP (COUNT (UNPACK X)) (COUNT X)) (COUNT (UNPACK X))) (LINEAR-LEMMA COUNT-NOT-LESSP NIL (NOT (LESSP (COUNT I) I)) (COUNT I)) (LINEAR-LEMMA SUB1-LESSEQP NIL (NOT (LESSP (COUNT X) (COUNT (SUB1 X)))) (COUNT (SUB1 X))) (LINEAR-LEMMA SUB1-LESSP ((NUMBERP X) (NOT (EQUAL X (QUOTE 0)))) (LESSP (COUNT (SUB1 X)) (COUNT X)) (COUNT (SUB1 X)))) LISP-CODE *1*COUNT SUBRP *1*TRUE MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE QUOTE) (QUOTE (SUBRP *1*FALSE MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*EQUAL) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE EQUAL) (QUOTE (TYPE-PRESCRIPTION-LST ((GROUND-ZERO 3 NIL NIL)) LEMMAS ((REWRITE-RULE LOG-EQUAL-0 NIL (EQUAL (EQUAL (LOG B X) (QUOTE 0)) (IF (EQUAL B (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP B) (IF (EQUAL B (QUOTE 1)) (QUOTE *1*TRUE) (LESSP X B)) (QUOTE *1*TRUE)))) NIL) (REWRITE-RULE REMAINDER-PLUS-CANCEL NIL (EQUAL (EQUAL (REMAINDER (PLUS I J) N) (REMAINDER (PLUS I K) N)) (EQUAL (REMAINDER J N) (REMAINDER K N))) NIL) (REWRITE-RULE REMAINDER-PLUS-CANCEL0 NIL (EQUAL (EQUAL (REMAINDER (PLUS I J) N) I) (IF (EQUAL N (QUOTE 0)) (IF (NUMBERP I) (IF (EQUAL J (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP J) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (QUOTE *1*FALSE)) (IF (NUMBERP N) (IF (LESSP I N) (IF (NUMBERP I) (EQUAL (REMAINDER J N) (QUOTE 0)) (QUOTE *1*FALSE)) (QUOTE *1*FALSE)) (IF (NUMBERP I) (IF (EQUAL J (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP J) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (QUOTE *1*FALSE))))) NIL) (REWRITE-RULE QUOTIENT-EQUAL-0 NIL (EQUAL (EQUAL (QUOTIENT M N) (QUOTE 0)) (IF (EQUAL M (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP M) (IF (EQUAL N (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP N) (LESSP M N) (QUOTE *1*TRUE))) (QUOTE *1*TRUE)))) NIL) (REWRITE-RULE CORRECTNESS-OF-CANCEL-EQUAL-TIMES NIL *1*CANCEL-EQUAL-TIMES NIL) (REWRITE-RULE EQUAL-1-TIMES-TREE-DELETE ((MEMBER W X)) (EQUAL (EQUAL (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (DELETE W X)) A) (QUOTE 1)) (IF (EQUAL (EVAL$ (QUOTE *1*TRUE) W A) (QUOTE 0)) (EQUAL-1-EVAL$-TIMES-TREE-DELETE-END W X A) (IF (NUMBERP (EVAL$ (QUOTE *1*TRUE) W A)) (EQUAL (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE X) A) (EVAL$ (QUOTE *1*TRUE) W A)) (EQUAL-1-EVAL$-TIMES-TREE-DELETE-END W X A)))) NIL) (REWRITE-RULE ZEROP-MAKES-EQUAL-TRUE-BRIDGE ((NOT (EVAL$ (QUOTE *1*TRUE) (AND-NOT-ZEROP-TREE (BAGINT (TIMES-FRINGE (CONS (QUOTE TIMES) X)) (TIMES-FRINGE (CONS (QUOTE TIMES) Y)))) A))) (EQUAL (EQUAL (TIMES (EVAL$ (QUOTE *1*TRUE) (CAR X) A) (EVAL$ (QUOTE *1*TRUE) (CAR (CDR X)) A)) (TIMES (EVAL$ (QUOTE *1*TRUE) (CAR Y) A) (EVAL$ (QUOTE *1*TRUE) (CAR (CDR Y)) A))) (QUOTE *1*TRUE)) NIL) (REWRITE-RULE EVAL$-EQUAL-TIMES-TREE-BAGDIFF ((EVAL$ (QUOTE *1*TRUE) (AND-NOT-ZEROP-TREE X) A) (SUBBAGP X Y) (SUBBAGP X Z)) (EQUAL (EQUAL (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (BAGDIFF Y X)) A) (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE (BAGDIFF Z X)) A)) (EQUAL (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE Y) A) (EVAL$ (QUOTE *1*TRUE) (TIMES-TREE Z) A))) NIL) (REWRITE-RULE TIMES-EQUAL-CANCEL NIL (EQUAL (EQUAL (TIMES X Y) (TIMES X Z)) (IF (EQUAL X (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP X) (IF (NUMBERP Y) (IF (NUMBERP Z) (EQUAL Y Z) (EQUAL Y (QUOTE 0))) (IF (NUMBERP Z) (EQUAL (QUOTE 0) Z) (QUOTE *1*TRUE))) (QUOTE *1*TRUE)))) NIL) (REWRITE-RULE TIMES-EQUAL-CANCEL0 NIL (EQUAL (EQUAL (TIMES Y X) Y) (IF (NUMBERP Y) (IF (EQUAL Y (QUOTE 0)) (QUOTE *1*TRUE) (EQUAL X (QUOTE 1))) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE TIMES-EQUAL-CANCEL0 NIL (EQUAL (EQUAL (TIMES X Y) Y) (IF (NUMBERP Y) (IF (EQUAL Y (QUOTE 0)) (QUOTE *1*TRUE) (EQUAL X (QUOTE 1))) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE EQUAL-IFF ((BOOLEAN P) (BOOLEAN Q)) (EQUAL (EQUAL P Q) (IF P (IF Q (QUOTE *1*TRUE) (QUOTE *1*FALSE)) (IF Q (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) NIL) (REWRITE-RULE TIMES-EQUAL-1 NIL (EQUAL (EQUAL (TIMES X Y) (QUOTE 1)) (IF (EQUAL X (QUOTE 1)) (EQUAL Y (QUOTE 1)) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE TIMES-EQUAL-0 NIL (EQUAL (EQUAL (TIMES X Y) (QUOTE 0)) (IF (EQUAL X (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP X) (IF (EQUAL Y (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP Y) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (QUOTE *1*TRUE)))) NIL) (REWRITE-RULE CORRECTNESS-OF-CANCEL-EQUAL-PLUS NIL *1*CANCEL-EQUAL-PLUS NIL) (REWRITE-RULE DIFFERENCE-EQUAL-CANCEL-1 NIL (EQUAL (EQUAL (DIFFERENCE X Z) (DIFFERENCE Y Z)) (IF (LESSP X Z) (IF (LESSP Z Y) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (LESSP Y Z) (IF (LESSP Z X) (QUOTE *1*FALSE) (QUOTE *1*TRUE)) (IF (NUMBERP X) (IF (NUMBERP Y) (EQUAL X Y) (EQUAL X (QUOTE 0))) (IF (NUMBERP Y) (EQUAL (QUOTE 0) Y) (QUOTE *1*TRUE)))))) NIL) (REWRITE-RULE DIFFERENCE-EQUAL-CANCEL-0 NIL (EQUAL (EQUAL X (DIFFERENCE X Y)) (IF (NUMBERP X) (IF (EQUAL X (QUOTE 0)) (QUOTE *1*TRUE) (IF (EQUAL Y (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP Y) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE DIFFERENCE=0 NIL (EQUAL (EQUAL (QUOTE 0) (DIFFERENCE X Y)) (IF (LESSP Y X) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) NIL) (REWRITE-RULE SUB1-OF-1 NIL (EQUAL (EQUAL (SUB1 X) (QUOTE 0)) (IF (EQUAL X (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP X) (EQUAL X (QUOTE 1)) (QUOTE *1*TRUE)))) NIL) (REWRITE-RULE PLUS-EQUAL-0 NIL (EQUAL (EQUAL (PLUS X Y) (QUOTE 0)) (IF (EQUAL X (QUOTE 0)) (IF (EQUAL Y (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP Y) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (IF (NUMBERP X) (QUOTE *1*FALSE) (IF (EQUAL Y (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP Y) (QUOTE *1*FALSE) (QUOTE *1*TRUE)))))) NIL) (REWRITE-RULE PLUS-EQUAL-CANCEL NIL (EQUAL (EQUAL (PLUS X Y) (PLUS X Z)) (IF (NUMBERP Y) (IF (NUMBERP Z) (EQUAL Y Z) (EQUAL Y (QUOTE 0))) (IF (NUMBERP Z) (EQUAL (QUOTE 0) Z) (QUOTE *1*TRUE)))) NIL) (REWRITE-RULE PLUS-EQUAL-CANCEL0 NIL (EQUAL (EQUAL (PLUS X Y) X) (IF (NUMBERP X) (IF (EQUAL Y (QUOTE 0)) (QUOTE *1*TRUE) (IF (NUMBERP Y) (QUOTE *1*FALSE) (QUOTE *1*TRUE))) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE MINUS-EQUAL NIL (EQUAL (EQUAL (MINUS NEGATIVE-GUTS) (MINUS NEGATIVE-GUTS-)) (IF (NUMBERP NEGATIVE-GUTS) (IF (NUMBERP NEGATIVE-GUTS-) (EQUAL NEGATIVE-GUTS NEGATIVE-GUTS-) (EQUAL NEGATIVE-GUTS (QUOTE 0))) (IF (NUMBERP NEGATIVE-GUTS-) (EQUAL (QUOTE 0) NEGATIVE-GUTS-) (QUOTE *1*TRUE)))) NIL) (REWRITE-RULE CONS-EQUAL NIL (EQUAL (EQUAL (CONS CAR CDR) (CONS CAR- CDR-)) (IF (EQUAL CAR CAR-) (EQUAL CDR CDR-) (QUOTE *1*FALSE))) NIL) (REWRITE-RULE PACK-EQUAL NIL (EQUAL (EQUAL (PACK UNPACK) (PACK UNPACK-)) (EQUAL UNPACK UNPACK-)) NIL) (REWRITE-RULE ADD1-EQUAL NIL (EQUAL (EQUAL (ADD1 SUB1) (ADD1 SUB1-)) (IF (NUMBERP SUB1) (IF (NUMBERP SUB1-) (EQUAL SUB1 SUB1-) (EQUAL SUB1 (QUOTE 0))) (IF (NUMBERP SUB1-) (EQUAL (QUOTE 0) SUB1-) (QUOTE *1*TRUE)))) NIL)) TOTALP-LST ((GROUND-ZERO . T)) LISP-CODE *1*EQUAL SUBRP *1*TRUE MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE *1*IF-ERROR) (QUOTE (MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE IF) (QUOTE (TYPE-PRESCRIPTION-LST ((GROUND-ZERO 0 NIL T T)) TOTALP-LST ((GROUND-ZERO . T)) LISP-CODE *1*IF-ERROR SUBRP *1*TRUE MAIN-EVENT GROUND-ZERO))) (PUT1-LST (QUOTE GROUND-ZERO) (QUOTE (IDATE 1000402214739 SATELLITES (*1*IDENTITY IDENTITY REWRITE-EVAL$ REWRITE-CAR-V&C$ REWRITE-V&C-APPLY$ REWRITE-V&C$ REWRITE-APPLY-SUBR REWRITE-APPLY$ REWRITE-CAR-V&C-APPLY$ *1*FOR FOR *1*QUANTIFIER-OPERATION QUANTIFIER-OPERATION *1*UNION UNION NUMBERP-MAX *1*MAX MAX *1*APPEND APPEND *1*ADD-TO-SET ADD-TO-SET *1*QUANTIFIER-INITIAL-VALUE QUANTIFIER-INITIAL-VALUE NOT-SUBRP-APPLY-SUBR SUBRP-BODY SUBRP-FORMALS NOT-LITATOM-BODY NOT-LITATOM-FORMALS NOT-LITATOM-SUBRP *1*EVAL$ EVAL$ *1*APPLY$ APPLY$ *1*V&C-APPLY$ V&C-APPLY$ *1*V&C$ V&C$ *1*SUM-CDRS SUM-CDRS *1*STRIP-CARS STRIP-CARS *1*FIX-COST FIX-COST *1*BODY BODY *1*FORMALS FORMALS *1*APPLY-SUBR APPLY-SUBR SUBRP-BOOLEAN *1*SUBRP SUBRP *1*PAIRLIST PAIRLIST *1*ASSOC ASSOC *1*ORDINALP ORDINALP *1*ORD-LESSP ORD-LESSP *1*IFF IFF *1*MEMBER MEMBER *1*REMAINDER REMAINDER *1*QUOTIENT QUOTIENT *1*TIMES TIMES *1*DIFFERENCE DIFFERENCE COUNT-MINUS NEGATIVE-GUTS-ELIM MINUS-NEGATIVE-GUTS MINUS-EQUAL NEGATIVE-GUTS-LESSEQP NEGATIVE-GUTS-LESSP NEGATIVE-GUTS-TYPE-RESTRICTION NEGATIVE-GUTS-NNEGATIVEP NEGATIVE-GUTS-MINUS *1*NEGATIVE-GUTS NEGATIVE-GUTS *1*NEGATIVEP NEGATIVEP *1*MINUS MINUS *1*NLISTP NLISTP COUNT-CONS CAR-CDR-ELIM CONS-CAR-CDR CONS-EQUAL CDR-LESSEQP CDR-LESSP CDR-NLISTP CDR-CONS CAR-LESSEQP CAR-LESSP CAR-NLISTP CAR-CONS *1*CDR CDR *1*CAR CAR *1*LISTP LISTP *1*CONS CONS COUNT-PACK UNPACK-ELIM PACK-UNPACK PACK-EQUAL UNPACK-LESSEQP UNPACK-LESSP UNPACK-NLITATOM UNPACK-PACK *1*UNPACK UNPACK *1*LITATOM LITATOM *1*PACK PACK COUNT-NOT-LESSP COUNT-NUMBERP *1*PLUS PLUS *1*FIX FIX *1*ZEROP ZEROP *1*GEQ GEQ *1*LEQ LEQ *1*GREATERP GREATERP *1*LESSP LESSP COUNT-ADD1 SUB1-ELIM ADD1-SUB1 ADD1-EQUAL SUB1-LESSEQP SUB1-LESSP SUB1-TYPE-RESTRICTION SUB1-NNUMBERP SUB1-ADD1 *1*ZERO ZERO *1*SUB1 SUB1 *1*NUMBERP NUMBERP *1*ADD1 ADD1 *1*IMPLIES IMPLIES *1*OR OR *1*AND AND *1*NOT NOT *1*TRUEP TRUEP *1*TRUE TRUE *1*FALSEP FALSEP *1*FALSE FALSE *1*COUNT COUNT QUOTE *1*EQUAL EQUAL *1*IF-ERROR IF) EVENT (BOOT-STRAP NQTHM)))) (PUT1-LST (QUOTE *1*GREATERP) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (*1*LESSP *3*Y *3*X))))) (PUT1-LST (QUOTE *1*LEQ) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (*1*NOT (*1*LESSP *3*Y *3*X)))))) (PUT1-LST (QUOTE *1*GEQ) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (*1*NOT (*1*LESSP *3*X *3*Y)))))) (PUT1-LST (QUOTE *1*MEMBER) (QUOTE (SEXPR (LAMBDA (*3*X *3*LST) (COND ((NOT (EQ (*1*NLISTP *3*LST) *1*F)) (QUOTE *1*FALSE)) ((EQUAL *3*X (*1*CAR *3*LST)) (QUOTE *1*TRUE)) (T (*1*MEMBER *3*X (*1*CDR *3*LST)))))))) (PUT1-LST (QUOTE *1*IFF) (QUOTE (SEXPR (LAMBDA (*3*P *3*Q) (COND ((NOT (EQ *3*P *1*F)) (COND ((NOT (EQ *3*Q *1*F)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) ((NOT (EQ *3*Q *1*F)) (QUOTE *1*FALSE)) (T (QUOTE *1*TRUE))))))) (PUT1-LST (QUOTE *1*ORD-LESSP) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (LET NIL (COND ((NOT (EQ (*1*NOT (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (COND ((NOT (EQ (*1*NOT (COND ((AND (CONSP *3*Y) (NOT (EQ (CAR *3*Y) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (*1*LESSP *3*X *3*Y)) (T (QUOTE *1*TRUE)))) ((NOT (EQ (*1*NOT (COND ((AND (CONSP *3*Y) (NOT (EQ (CAR *3*Y) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (QUOTE *1*FALSE)) ((NOT (EQ (*1*ORD-LESSP (CAR *3*X) (CAR *3*Y)) *1*F)) (QUOTE *1*TRUE)) (T (*1*AND (COND ((EQUAL (CAR *3*X) (CAR *3*Y)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*ORD-LESSP (CDR *3*X) (CDR *3*Y)))))))))) (PUT1-LST (QUOTE *1*ORDINALP) (QUOTE (SEXPR (LAMBDA (*3*X) (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (*1*AND (*1*ORDINALP (CAR *3*X)) (*1*AND (*1*NOT (COND ((EQUAL (CAR *3*X) (QUOTE 0)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (*1*AND (*1*ORDINALP (CDR *3*X)) (*1*OR (*1*NLISTP (CDR *3*X)) (*1*NOT (*1*ORD-LESSP (CAR *3*X) (*1*CAR (CDR *3*X))))))))) (T (*1*NUMBERP *3*X))))))) (PUT1-LST (QUOTE *1*ASSOC) (QUOTE (SEXPR (LAMBDA (X L) (*1**ASSOC X L))))) (PUT1-LST (QUOTE *1*PAIRLIST) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (CONS (CONS (CAR *3*X) (*1*CAR *3*Y)) (*1*PAIRLIST (CDR *3*X) (*1*CDR *3*Y)))) (T (QUOTE NIL))))))) (PUT1-LST (QUOTE *1*SUBRP) (QUOTE (SEXPR (LAMBDA (X) (*1**SUBRP X))))) (PUT1-LST (QUOTE *1*APPLY-SUBR) (QUOTE (SEXPR (LAMBDA (FN ARGS) (*1**APPLY-SUBR FN ARGS))))) (PUT1-LST (QUOTE *1*FORMALS) (QUOTE (SEXPR (LAMBDA (FN) (*1**FORMALS FN))))) (PUT1-LST (QUOTE *1*BODY) (QUOTE (SEXPR (LAMBDA (FN) (*1**BODY FN))))) (PUT1-LST (QUOTE *1*FIX-COST) (QUOTE (SEXPR (LAMBDA (*3*X *3*N) (COND ((NOT (EQ *3*X *1*F)) (CONS (*1*CAR *3*X) (*1*PLUS *3*N (*1*CDR *3*X)))) (T (QUOTE *1*FALSE))))))) (PUT1-LST (QUOTE *1*STRIP-CARS) (QUOTE (SEXPR (LAMBDA (*3*L) (COND ((NOT (EQ (*1*NLISTP *3*L) *1*F)) (QUOTE NIL)) (T (CONS (*1*CAR (*1*CAR *3*L)) (*1*STRIP-CARS (*1*CDR *3*L))))))))) (PUT1-LST (QUOTE *1*SUM-CDRS) (QUOTE (SEXPR (LAMBDA (*3*L) (COND ((NOT (EQ (*1*NLISTP *3*L) *1*F)) (QUOTE 0)) (T (*1*PLUS (*1*CDR (*1*CAR *3*L)) (*1*SUM-CDRS (*1*CDR *3*L))))))))) (PUT1-LST (QUOTE *1*V&C$) (QUOTE (SEXPR (LAMBDA (*3*FLG *3*X *3*VA) (LET ((REDUCE-TERM-CLOCK (1- REDUCE-TERM-CLOCK))) (COND ((INT= 0 REDUCE-TERM-CLOCK) (IPRINC (QUOTE V&C$) COMMENT-WINDOW) (IPRINC (QUOTE | aborted. |) COMMENT-WINDOW) (THROW (QUOTE REDUCE-TERM) (QUOTE *1*FAILED))) (T (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X))) (COND ((EQ *3*FLG (QUOTE LIST)) (COND ((NOT (EQ (*1*NLISTP *3*X) *1*F)) (QUOTE NIL)) (T (CONS (*1*V&C$ (QUOTE *1*TRUE) (*1*CAR *3*X) *3*VA) (*1*V&C$ (QUOTE LIST) (*1*CDR *3*X) *3*VA))))) ((NOT (EQ (*1*LITATOM *3*X) *1*F)) (CONS (*1*CDR (*1*ASSOC *3*X *3*VA)) (QUOTE 0))) ((NOT (EQ (*1*NLISTP *3*X) *1*F)) (CONS *3*X (QUOTE 0))) ((EQ (SETQ *2*TEMP5 (*1*CAR *3*X)) (QUOTE QUOTE)) (CONS (*1*CAR (*1*CDR *3*X)) (QUOTE 0))) ((EQ *2*TEMP5 (QUOTE IF)) (COND ((NOT (EQ (SETQ *2*TEMP1 (*1*V&C$ (QUOTE *1*TRUE) (SETQ *2*TEMP2 (*1*CAR (SETQ *2*TEMP3 (*1*CDR *3*X)))) *3*VA)) *1*F)) (*1*FIX-COST (COND ((NOT (EQ (*1*CAR *2*TEMP1) *1*F)) (*1*V&C$ (QUOTE *1*TRUE) (*1*CAR (*1*CDR *2*TEMP3)) *3*VA)) (T (*1*V&C$ (QUOTE *1*TRUE) (*1*CAR (*1*CDR (*1*CDR *2*TEMP3))) *3*VA))) (*1*ADD1 (*1*CDR *2*TEMP1)))) (T (QUOTE *1*FALSE)))) ((NOT (EQ (*1*MEMBER (QUOTE *1*FALSE) (SETQ *2*TEMP4 (*1*V&C$ (QUOTE LIST) (SETQ *2*TEMP3 (*1*CDR *3*X)) *3*VA))) *1*F)) (QUOTE *1*FALSE)) ((NOT (EQ (*1*SUBRP *2*TEMP5) *1*F)) (CONS (*1*APPLY-SUBR *2*TEMP5 (*1*STRIP-CARS *2*TEMP4)) (*1*ADD1 (*1*SUM-CDRS *2*TEMP4)))) (T (*1*FIX-COST (*1*V&C$ (QUOTE *1*TRUE) (*1*BODY *2*TEMP5) (*1*PAIRLIST (*1*FORMALS *2*TEMP5) (*1*STRIP-CARS *2*TEMP4))) (*1*ADD1 (*1*SUM-CDRS *2*TEMP4))))))))))))) (PUT1-LST (QUOTE *1*V&C-APPLY$) (QUOTE (SEXPR (LAMBDA (*3*FN *3*ARGS) (LET ((REDUCE-TERM-CLOCK (1- REDUCE-TERM-CLOCK))) (COND ((INT= 0 REDUCE-TERM-CLOCK) (IPRINC (QUOTE V&C-APPLY$) COMMENT-WINDOW) (IPRINC (QUOTE | aborted. |) COMMENT-WINDOW) (THROW (QUOTE REDUCE-TERM) (QUOTE *1*FAILED))) (T (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((EQ *3*FN (QUOTE IF)) (COND ((NOT (EQ (SETQ *2*TEMP1 (*1*CAR *3*ARGS)) *1*F)) (*1*FIX-COST (COND ((NOT (EQ (*1*CAR *2*TEMP1) *1*F)) (*1*CAR (*1*CDR *3*ARGS))) (T (*1*CAR (*1*CDR (*1*CDR *3*ARGS))))) (*1*ADD1 (*1*CDR *2*TEMP1)))) (T (QUOTE *1*FALSE)))) ((NOT (EQ (*1*MEMBER (QUOTE *1*FALSE) *3*ARGS) *1*F)) (QUOTE *1*FALSE)) ((NOT (EQ (*1*SUBRP *3*FN) *1*F)) (CONS (*1*APPLY-SUBR *3*FN (*1*STRIP-CARS *3*ARGS)) (*1*ADD1 (*1*SUM-CDRS *3*ARGS)))) (T (*1*FIX-COST (*1*V&C$ (QUOTE *1*TRUE) (*1*BODY *3*FN) (*1*PAIRLIST (*1*FORMALS *3*FN) (*1*STRIP-CARS *3*ARGS))) (*1*ADD1 (*1*SUM-CDRS *3*ARGS))))))))))))) (PUT1-LST (QUOTE *1*EVAL$) (QUOTE (SEXPR (LAMBDA (FLG X VA) (COND ((EQ FLG (QUOTE LIST)) (*1**EVLIST$ X VA)) (T (*1**EVAL$ X VA))))))) (PUT1-LST (QUOTE *1*QUANTIFIER-INITIAL-VALUE) (QUOTE (SEXPR (LAMBDA (*3*FN) (*1*CDR (*1*ASSOC *3*FN (QUOTE ((ADD-TO-SET) (ALWAYS . *1*TRUE) (APPEND) (COLLECT) (COUNT . 0) (DO-RETURN) (EXISTS . *1*FALSE) (MAX . 0) (SUM . 0) (MULTIPLY . 1) (UNION))))))))) (PUT1-LST (QUOTE *1*ADD-TO-SET) (QUOTE (SEXPR (LAMBDA (*3*X *3*SET) (COND ((NOT (EQ (*1*MEMBER *3*X *3*SET) *1*F)) *3*SET) (T (CONS *3*X *3*SET))))))) (PUT1-LST (QUOTE *1*APPEND) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (CONS (CAR *3*X) (*1*APPEND (CDR *3*X) *3*Y))) (T *3*Y)))))) (PUT1-LST (QUOTE *1*MAX) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (COND ((NOT (EQ (*1*LESSP *3*X *3*Y) *1*F)) *3*Y) (T (*1*FIX *3*X))))))) (PUT1-LST (QUOTE *1*UNION) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (LET NIL (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (COND ((NOT (EQ (*1*MEMBER (CAR *3*X) *3*Y) *1*F)) (*1*UNION (CDR *3*X) *3*Y)) (T (CONS (CAR *3*X) (*1*UNION (CDR *3*X) *3*Y))))) (T *3*Y))))))) (PUT1-LST (QUOTE *1*QUANTIFIER-OPERATION) (QUOTE (SEXPR (LAMBDA (*3*FN *3*ARG *3*REST) (COND ((EQ *3*FN (QUOTE ADD-TO-SET)) (*1*ADD-TO-SET *3*ARG *3*REST)) ((EQ *3*FN (QUOTE ALWAYS)) (*1*AND *3*ARG *3*REST)) ((EQ *3*FN (QUOTE APPEND)) (*1*APPEND *3*ARG *3*REST)) ((EQ *3*FN (QUOTE COLLECT)) (CONS *3*ARG *3*REST)) ((EQ *3*FN (QUOTE COUNT)) (COND ((NOT (EQ *3*ARG *1*F)) (*1*ADD1 *3*REST)) (T *3*REST))) ((EQ *3*FN (QUOTE DO-RETURN)) *3*ARG) ((EQ *3*FN (QUOTE EXISTS)) (*1*OR *3*ARG *3*REST)) ((EQ *3*FN (QUOTE MAX)) (*1*MAX *3*ARG *3*REST)) ((EQ *3*FN (QUOTE SUM)) (*1*PLUS *3*ARG *3*REST)) ((EQ *3*FN (QUOTE MULTIPLY)) (*1*TIMES *3*ARG *3*REST)) ((EQ *3*FN (QUOTE UNION)) (*1*UNION *3*ARG *3*REST)) (T (QUOTE 0))))))) (PUT1-LST (QUOTE *1*FOR) (QUOTE (SEXPR (LAMBDA (*3*VAR *3*RANGE *3*CONDITION *3*OP *3*BODY *3*ALIST) (LET ((REDUCE-TERM-CLOCK (1- REDUCE-TERM-CLOCK))) (COND ((INT= 0 REDUCE-TERM-CLOCK) (IPRINC (QUOTE FOR) COMMENT-WINDOW) (IPRINC (QUOTE | aborted. |) COMMENT-WINDOW) (THROW (QUOTE REDUCE-TERM) (QUOTE *1*FAILED))) (T (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*RANGE) *1*F)) (*1*QUANTIFIER-INITIAL-VALUE *3*OP)) ((NOT (EQ (*1*EVAL$ (QUOTE *1*TRUE) *3*CONDITION (SETQ *2*TEMP1 (CONS (CONS *3*VAR (*1*CAR *3*RANGE)) *3*ALIST))) *1*F)) (*1*QUANTIFIER-OPERATION *3*OP (*1*EVAL$ (QUOTE *1*TRUE) *3*BODY *2*TEMP1) (*1*FOR *3*VAR (*1*CDR *3*RANGE) *3*CONDITION *3*OP *3*BODY *3*ALIST))) (T (*1*FOR *3*VAR (*1*CDR *3*RANGE) *3*CONDITION *3*OP *3*BODY *3*ALIST))))))))))) (PUT1-LST (QUOTE *1*IDENTITY) (QUOTE (SEXPR (LAMBDA (*3*X) *3*X)))) (PUT1-LST (QUOTE *1*SUBSET) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (COND ((NOT (EQ (*1*MEMBER (CAR *3*X) *3*Y) *1*F)) (*1*SUBSET (CDR *3*X) *3*Y)) (T (QUOTE *1*FALSE)))) (T (QUOTE *1*TRUE))))))) (PUT1-LST (QUOTE *1*DELETE) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (COND ((AND (CONSP *3*Y) (NOT (EQ (CAR *3*Y) (QUOTE *1*QUOTE)))) (COND ((EQUAL *3*X (CAR *3*Y)) (CDR *3*Y)) (T (CONS (CAR *3*Y) (*1*DELETE *3*X (CDR *3*Y)))))) (T *3*Y)))))) (PUT1-LST (QUOTE *1*SUBBAGP) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (COND ((NOT (EQ (*1*MEMBER (CAR *3*X) *3*Y) *1*F)) (*1*SUBBAGP (CDR *3*X) (*1*DELETE (CAR *3*X) *3*Y))) (T (QUOTE *1*FALSE)))) (T (QUOTE *1*TRUE))))))) (PUT1-LST (QUOTE *1*BAGDIFF) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (COND ((AND (CONSP *3*Y) (NOT (EQ (CAR *3*Y) (QUOTE *1*QUOTE)))) (COND ((NOT (EQ (*1*MEMBER (CAR *3*Y) *3*X) *1*F)) (*1*BAGDIFF (*1*DELETE (CAR *3*Y) *3*X) (CDR *3*Y))) (T (*1*BAGDIFF *3*X (CDR *3*Y))))) (T *3*X)))))) (PUT1-LST (QUOTE *1*BAGINT) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (COND ((NOT (EQ (*1*MEMBER (CAR *3*X) *3*Y) *1*F)) (CONS (CAR *3*X) (*1*BAGINT (CDR *3*X) (*1*DELETE (CAR *3*X) *3*Y)))) (T (*1*BAGINT (CDR *3*X) *3*Y)))) (T (QUOTE NIL))))))) (PUT1-LST (QUOTE *1*PLUS-FRINGE) (QUOTE (SEXPR (LAMBDA (*3*X) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*AND (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQ (*1*CAR *3*X) (QUOTE PLUS)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (*1*APPEND (*1*PLUS-FRINGE (*1*CAR (SETQ *2*TEMP1 (*1*CDR *3*X)))) (*1*PLUS-FRINGE (*1*CAR (*1*CDR *2*TEMP1))))) (T (CONS *3*X (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*PLUS-TREE) (QUOTE (SEXPR (LAMBDA (*3*L) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*L) *1*F)) (QUOTE (QUOTE 0))) ((NOT (EQ (*1*NLISTP (SETQ *2*TEMP1 (*1*CDR *3*L))) *1*F)) (CONS (QUOTE FIX) (CONS (*1*CAR *3*L) (QUOTE NIL)))) ((NOT (EQ (*1*NLISTP (*1*CDR *2*TEMP1)) *1*F)) (CONS (QUOTE PLUS) (CONS (*1*CAR *3*L) (CONS (*1*CAR *2*TEMP1) (QUOTE NIL))))) (T (CONS (QUOTE PLUS) (CONS (*1*CAR *3*L) (CONS (*1*PLUS-TREE *2*TEMP1) (QUOTE NIL))))))))))) (PUT1-LST (QUOTE *1*CANCEL-EQUAL-PLUS) (QUOTE (SEXPR (LAMBDA (*3*X) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X)) (*2*TEMP9 (QUOTE *1*X)) (*2*TEMP10 (QUOTE *1*X)) (*2*TEMP11 (QUOTE *1*X)) (*2*TEMP12 (QUOTE *1*X))) (COND ((NOT (EQ (*1*AND (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQ (*1*CAR *3*X) (QUOTE EQUAL)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (COND ((NOT (EQ (*1*AND (SETQ *2*TEMP12 (COND ((AND (CONSP (SETQ *2*TEMP11 (*1*CAR (SETQ *2*TEMP10 (*1*CDR *3*X))))) (NOT (EQ (CAR *2*TEMP11) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (*1*AND (SETQ *2*TEMP9 (COND ((EQ (SETQ *2*TEMP8 (*1*CAR *2*TEMP11)) (QUOTE PLUS)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (*1*AND (SETQ *2*TEMP7 (COND ((AND (CONSP (SETQ *2*TEMP6 (*1*CAR (*1*CDR *2*TEMP10)))) (NOT (EQ (CAR *2*TEMP6) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (SETQ *2*TEMP5 (COND ((EQ (SETQ *2*TEMP4 (*1*CAR *2*TEMP6)) (QUOTE PLUS)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))) *1*F)) (CONS (QUOTE EQUAL) (CONS (*1*PLUS-TREE (*1*BAGDIFF (SETQ *2*TEMP3 (*1*PLUS-FRINGE *2*TEMP11)) (SETQ *2*TEMP2 (*1*BAGINT *2*TEMP3 (SETQ *2*TEMP1 (*1*PLUS-FRINGE *2*TEMP6)))))) (CONS (*1*PLUS-TREE (*1*BAGDIFF *2*TEMP1 *2*TEMP2)) (QUOTE NIL))))) ((NOT (EQ (*1*AND *2*TEMP12 (*1*AND *2*TEMP9 (*1*MEMBER *2*TEMP6 (SETQ *2*TEMP3 (*1*PLUS-FRINGE *2*TEMP11))))) *1*F)) (CONS (QUOTE IF) (CONS (CONS (QUOTE NUMBERP) (CONS *2*TEMP6 (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (*1*PLUS-TREE (*1*DELETE *2*TEMP6 *2*TEMP3)) (QUOTE ((QUOTE 0))))) (QUOTE ((QUOTE *1*FALSE))))))) ((NOT (EQ (*1*AND *2*TEMP7 (*1*AND *2*TEMP5 (*1*MEMBER *2*TEMP11 (SETQ *2*TEMP1 (*1*PLUS-FRINGE *2*TEMP6))))) *1*F)) (CONS (QUOTE IF) (CONS (CONS (QUOTE NUMBERP) (CONS *2*TEMP11 (QUOTE NIL))) (CONS (CONS (QUOTE EQUAL) (CONS (QUOTE (QUOTE 0)) (CONS (*1*PLUS-TREE (*1*DELETE *2*TEMP11 *2*TEMP1)) (QUOTE NIL)))) (QUOTE ((QUOTE *1*FALSE))))))) (T *3*X))) (T *3*X))))))) (PUT1-LST (QUOTE *1*CANCEL-DIFFERENCE-PLUS) (QUOTE (SEXPR (LAMBDA (*3*X) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X)) (*2*TEMP9 (QUOTE *1*X)) (*2*TEMP10 (QUOTE *1*X)) (*2*TEMP11 (QUOTE *1*X)) (*2*TEMP12 (QUOTE *1*X))) (COND ((NOT (EQ (*1*AND (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQ (*1*CAR *3*X) (QUOTE DIFFERENCE)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (COND ((NOT (EQ (*1*AND (SETQ *2*TEMP12 (COND ((AND (CONSP (SETQ *2*TEMP11 (*1*CAR (SETQ *2*TEMP10 (*1*CDR *3*X))))) (NOT (EQ (CAR *2*TEMP11) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (*1*AND (SETQ *2*TEMP9 (COND ((EQ (SETQ *2*TEMP8 (*1*CAR *2*TEMP11)) (QUOTE PLUS)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (*1*AND (SETQ *2*TEMP7 (COND ((AND (CONSP (SETQ *2*TEMP6 (*1*CAR (*1*CDR *2*TEMP10)))) (NOT (EQ (CAR *2*TEMP6) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (SETQ *2*TEMP5 (COND ((EQ (SETQ *2*TEMP4 (*1*CAR *2*TEMP6)) (QUOTE PLUS)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))) *1*F)) (CONS (QUOTE DIFFERENCE) (CONS (*1*PLUS-TREE (*1*BAGDIFF (SETQ *2*TEMP3 (*1*PLUS-FRINGE *2*TEMP11)) (SETQ *2*TEMP2 (*1*BAGINT *2*TEMP3 (SETQ *2*TEMP1 (*1*PLUS-FRINGE *2*TEMP6)))))) (CONS (*1*PLUS-TREE (*1*BAGDIFF *2*TEMP1 *2*TEMP2)) (QUOTE NIL))))) ((NOT (EQ (*1*AND *2*TEMP12 (*1*AND *2*TEMP9 (*1*MEMBER *2*TEMP6 (SETQ *2*TEMP3 (*1*PLUS-FRINGE *2*TEMP11))))) *1*F)) (*1*PLUS-TREE (*1*DELETE *2*TEMP6 *2*TEMP3))) ((NOT (EQ (*1*AND *2*TEMP7 (*1*AND *2*TEMP5 (*1*MEMBER *2*TEMP11 (*1*PLUS-FRINGE *2*TEMP6)))) *1*F)) (QUOTE (QUOTE 0))) (T *3*X))) (T *3*X))))))) (PUT1-LST (QUOTE *1*CANCEL-LESSP-PLUS) (QUOTE (SEXPR (LAMBDA (*3*X) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X)) (*2*TEMP9 (QUOTE *1*X)) (*2*TEMP10 (QUOTE *1*X)) (*2*TEMP11 (QUOTE *1*X)) (*2*TEMP12 (QUOTE *1*X))) (COND ((NOT (EQ (*1*AND (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQ (*1*CAR *3*X) (QUOTE LESSP)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (COND ((NOT (EQ (*1*AND (SETQ *2*TEMP12 (COND ((AND (CONSP (SETQ *2*TEMP11 (*1*CAR (SETQ *2*TEMP10 (*1*CDR *3*X))))) (NOT (EQ (CAR *2*TEMP11) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (*1*AND (SETQ *2*TEMP9 (COND ((EQ (SETQ *2*TEMP8 (*1*CAR *2*TEMP11)) (QUOTE PLUS)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (*1*AND (SETQ *2*TEMP7 (COND ((AND (CONSP (SETQ *2*TEMP6 (*1*CAR (*1*CDR *2*TEMP10)))) (NOT (EQ (CAR *2*TEMP6) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (SETQ *2*TEMP5 (COND ((EQ (SETQ *2*TEMP4 (*1*CAR *2*TEMP6)) (QUOTE PLUS)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))) *1*F)) (CONS (QUOTE LESSP) (CONS (*1*PLUS-TREE (*1*BAGDIFF (SETQ *2*TEMP3 (*1*PLUS-FRINGE *2*TEMP11)) (SETQ *2*TEMP2 (*1*BAGINT *2*TEMP3 (SETQ *2*TEMP1 (*1*PLUS-FRINGE *2*TEMP6)))))) (CONS (*1*PLUS-TREE (*1*BAGDIFF *2*TEMP1 *2*TEMP2)) (QUOTE NIL))))) ((NOT (EQ (*1*AND *2*TEMP12 (*1*AND *2*TEMP9 (*1*MEMBER *2*TEMP6 (*1*PLUS-FRINGE *2*TEMP11)))) *1*F)) (QUOTE (QUOTE *1*FALSE))) ((NOT (EQ (*1*AND *2*TEMP7 (*1*AND *2*TEMP5 (*1*MEMBER *2*TEMP11 (SETQ *2*TEMP1 (*1*PLUS-FRINGE *2*TEMP6))))) *1*F)) (CONS (QUOTE NOT) (CONS (CONS (QUOTE ZEROP) (CONS (*1*PLUS-TREE (*1*DELETE *2*TEMP11 *2*TEMP1)) (QUOTE NIL))) (QUOTE NIL)))) (T *3*X))) (T *3*X))))))) (PUT1-LST (QUOTE *1*BOOLEAN) (QUOTE (SEXPR (LAMBDA (*3*X) (*1*OR (*1*TRUEP *3*X) (*1*FALSEP *3*X)))))) (PUT1-LST (QUOTE *1*TIMES-FRINGE) (QUOTE (SEXPR (LAMBDA (*3*X) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*AND (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQ (*1*CAR *3*X) (QUOTE TIMES)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (*1*APPEND (*1*TIMES-FRINGE (*1*CAR (SETQ *2*TEMP1 (*1*CDR *3*X)))) (*1*TIMES-FRINGE (*1*CAR (*1*CDR *2*TEMP1))))) (T (CONS *3*X (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*TIMES-TREE) (QUOTE (SEXPR (LAMBDA (*3*X) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*X) *1*F)) (QUOTE (QUOTE 1))) ((NOT (EQ (*1*NLISTP (SETQ *2*TEMP1 (*1*CDR *3*X))) *1*F)) (CONS (QUOTE FIX) (CONS (*1*CAR *3*X) (QUOTE NIL)))) ((NOT (EQ (*1*NLISTP (*1*CDR *2*TEMP1)) *1*F)) (CONS (QUOTE TIMES) (CONS (*1*CAR *3*X) (CONS (*1*CAR *2*TEMP1) (QUOTE NIL))))) (T (CONS (QUOTE TIMES) (CONS (*1*CAR *3*X) (CONS (*1*TIMES-TREE *2*TEMP1) (QUOTE NIL))))))))))) (PUT1-LST (QUOTE *1*AND-NOT-ZEROP-TREE) (QUOTE (SEXPR (LAMBDA (*3*X) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NLISTP *3*X) *1*F)) (QUOTE (TRUE))) ((NOT (EQ (*1*NLISTP (SETQ *2*TEMP1 (*1*CDR *3*X))) *1*F)) (CONS (QUOTE NOT) (CONS (CONS (QUOTE ZEROP) (CONS (*1*CAR *3*X) (QUOTE NIL))) (QUOTE NIL)))) (T (CONS (QUOTE AND) (CONS (CONS (QUOTE NOT) (CONS (CONS (QUOTE ZEROP) (CONS (*1*CAR *3*X) (QUOTE NIL))) (QUOTE NIL))) (CONS (*1*AND-NOT-ZEROP-TREE *2*TEMP1) (QUOTE NIL))))))))))) (PUT1-LST (QUOTE *1*EVAL$-AND-NOT-ZEROP-TREE-END) (QUOTE (SEXPR (LAMBDA (*3*W *3*X *3*A) (LET ((REDUCE-TERM-CLOCK (1- REDUCE-TERM-CLOCK))) (COND ((INT= 0 REDUCE-TERM-CLOCK) (IPRINC (QUOTE EVAL$-AND-NOT-ZEROP-TREE-END) COMMENT-WINDOW) (IPRINC (QUOTE | aborted. |) COMMENT-WINDOW) (THROW (QUOTE REDUCE-TERM) (QUOTE *1*FAILED))) (T (*1*EVAL$ (QUOTE *1*TRUE) (*1*AND-NOT-ZEROP-TREE (*1*DELETE *3*W *3*X)) *3*A)))))))) (PUT1-LST (QUOTE *1*LESSP-1-TIMES-TREE-DELETE-END) (QUOTE (SEXPR (LAMBDA (*3*W *3*X *3*A) (LET ((REDUCE-TERM-CLOCK (1- REDUCE-TERM-CLOCK))) (COND ((INT= 0 REDUCE-TERM-CLOCK) (IPRINC (QUOTE LESSP-1-TIMES-TREE-DELETE-END) COMMENT-WINDOW) (IPRINC (QUOTE | aborted. |) COMMENT-WINDOW) (THROW (QUOTE REDUCE-TERM) (QUOTE *1*FAILED))) (T (*1*LESSP (QUOTE 1) (*1*EVAL$ (QUOTE *1*TRUE) (*1*TIMES-TREE (*1*DELETE *3*W *3*X)) *3*A))))))))) (PUT1-LST (QUOTE *1*CANCEL-LESSP-TIMES) (QUOTE (SEXPR (LAMBDA (*3*X) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X)) (*2*TEMP9 (QUOTE *1*X)) (*2*TEMP10 (QUOTE *1*X))) (COND ((NOT (EQ (*1*AND (COND ((AND (CONSP *3*X) (NOT (EQ (CAR *3*X) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQ (*1*CAR *3*X) (QUOTE LESSP)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (COND ((NOT (EQ (*1*AND (SETQ *2*TEMP10 (COND ((EQ (SETQ *2*TEMP9 (*1*CAR (SETQ *2*TEMP8 (*1*CAR (SETQ *2*TEMP7 (*1*CDR *3*X)))))) (QUOTE TIMES)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (SETQ *2*TEMP6 (COND ((EQ (SETQ *2*TEMP5 (*1*CAR (SETQ *2*TEMP4 (*1*CAR (*1*CDR *2*TEMP7))))) (QUOTE TIMES)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))) *1*F)) (COND ((AND (CONSP (SETQ *2*TEMP3 (*1*BAGINT (SETQ *2*TEMP2 (*1*TIMES-FRINGE *2*TEMP8)) (SETQ *2*TEMP1 (*1*TIMES-FRINGE *2*TEMP4))))) (NOT (EQ (CAR *2*TEMP3) (QUOTE *1*QUOTE)))) (CONS (QUOTE AND) (CONS (*1*AND-NOT-ZEROP-TREE *2*TEMP3) (CONS (CONS (QUOTE LESSP) (CONS (*1*TIMES-TREE (*1*BAGDIFF *2*TEMP2 *2*TEMP3)) (CONS (*1*TIMES-TREE (*1*BAGDIFF *2*TEMP1 *2*TEMP3)) (QUOTE NIL)))) (QUOTE NIL))))) (T *3*X))) ((NOT (EQ (*1*AND (COND ((AND (CONSP *2*TEMP8) (NOT (EQ (CAR *2*TEMP8) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND *2*TEMP10 (*1*MEMBER *2*TEMP4 (SETQ *2*TEMP2 (*1*TIMES-FRINGE *2*TEMP8))))) *1*F)) (CONS (QUOTE AND) (CONS (CONS (QUOTE NOT) (CONS (CONS (QUOTE ZEROP) (CONS *2*TEMP4 (QUOTE NIL))) (QUOTE NIL))) (CONS (CONS (QUOTE NOT) (CONS (*1*AND-NOT-ZEROP-TREE (*1*DELETE *2*TEMP4 *2*TEMP2)) (QUOTE NIL))) (QUOTE NIL))))) ((NOT (EQ (*1*AND (COND ((AND (CONSP *2*TEMP4) (NOT (EQ (CAR *2*TEMP4) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND *2*TEMP6 (*1*MEMBER *2*TEMP8 (SETQ *2*TEMP1 (*1*TIMES-FRINGE *2*TEMP4))))) *1*F)) (CONS (QUOTE AND) (CONS (CONS (QUOTE NOT) (CONS (CONS (QUOTE ZEROP) (CONS *2*TEMP8 (QUOTE NIL))) (QUOTE NIL))) (CONS (CONS (QUOTE LESSP) (CONS (QUOTE (QUOTE 1)) (CONS (*1*TIMES-TREE (*1*DELETE *2*TEMP8 *2*TEMP1)) (QUOTE NIL)))) (QUOTE NIL))))) (T *3*X))) (T *3*X))))))) (PUT1-LST (QUOTE *1*EQUAL-1-EVAL$-TIMES-TREE-DELETE-END) (QUOTE (SEXPR (LAMBDA (*3*W *3*X *3*A) (LET ((REDUCE-TERM-CLOCK (1- REDUCE-TERM-CLOCK))) (COND ((INT= 0 REDUCE-TERM-CLOCK) (IPRINC (QUOTE EQUAL-1-EVAL$-TIMES-TREE-DELETE-END) COMMENT-WINDOW) (IPRINC (QUOTE | aborted. |) COMMENT-WINDOW) (THROW (QUOTE REDUCE-TERM) (QUOTE *1*FAILED))) (T (COND ((EQUAL (*1*EVAL$ (QUOTE *1*TRUE) (*1*TIMES-TREE (*1*DELETE *3*W *3*X)) *3*A) (QUOTE 1)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))))))))) (PUT1-LST (QUOTE *1*CANCEL-EQUAL-TIMES) (QUOTE (SEXPR (LAMBDA (*3*X) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X)) (*2*TEMP9 (QUOTE *1*X)) (*2*TEMP10 (QUOTE *1*X))) (COND ((EQ (*1*CAR *3*X) (QUOTE EQUAL)) (COND ((NOT (EQ (*1*AND (SETQ *2*TEMP10 (COND ((EQ (SETQ *2*TEMP9 (*1*CAR (SETQ *2*TEMP8 (*1*CAR (SETQ *2*TEMP7 (*1*CDR *3*X)))))) (QUOTE TIMES)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (SETQ *2*TEMP6 (COND ((EQ (SETQ *2*TEMP5 (*1*CAR (SETQ *2*TEMP4 (*1*CAR (*1*CDR *2*TEMP7))))) (QUOTE TIMES)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))) *1*F)) (COND ((AND (CONSP (SETQ *2*TEMP3 (*1*BAGINT (SETQ *2*TEMP2 (*1*TIMES-FRINGE *2*TEMP8)) (SETQ *2*TEMP1 (*1*TIMES-FRINGE *2*TEMP4))))) (NOT (EQ (CAR *2*TEMP3) (QUOTE *1*QUOTE)))) (CONS (QUOTE IF) (CONS (*1*AND-NOT-ZEROP-TREE *2*TEMP3) (CONS (CONS (QUOTE EQUAL) (CONS (*1*TIMES-TREE (*1*BAGDIFF *2*TEMP2 *2*TEMP3)) (CONS (*1*TIMES-TREE (*1*BAGDIFF *2*TEMP1 *2*TEMP3)) (QUOTE NIL)))) (QUOTE ((TRUE))))))) (T *3*X))) ((NOT (EQ (*1*AND (COND ((AND (CONSP *2*TEMP8) (NOT (EQ (CAR *2*TEMP8) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND *2*TEMP10 (*1*MEMBER *2*TEMP4 (SETQ *2*TEMP2 (*1*TIMES-FRINGE *2*TEMP8))))) *1*F)) (CONS (QUOTE AND) (CONS (CONS (QUOTE NUMBERP) (CONS *2*TEMP4 (QUOTE NIL))) (CONS (CONS (QUOTE OR) (CONS (CONS (QUOTE EQUAL) (CONS *2*TEMP4 (QUOTE ((QUOTE 0))))) (CONS (CONS (QUOTE EQUAL) (CONS (*1*TIMES-TREE (*1*DELETE *2*TEMP4 *2*TEMP2)) (QUOTE ((QUOTE 1))))) (QUOTE NIL)))) (QUOTE NIL))))) ((NOT (EQ (*1*AND (COND ((AND (CONSP *2*TEMP4) (NOT (EQ (CAR *2*TEMP4) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AND *2*TEMP6 (*1*MEMBER *2*TEMP8 (SETQ *2*TEMP1 (*1*TIMES-FRINGE *2*TEMP4))))) *1*F)) (CONS (QUOTE AND) (CONS (CONS (QUOTE NUMBERP) (CONS *2*TEMP8 (QUOTE NIL))) (CONS (CONS (QUOTE OR) (CONS (CONS (QUOTE EQUAL) (CONS *2*TEMP8 (QUOTE ((QUOTE 0))))) (CONS (CONS (QUOTE EQUAL) (CONS (*1*TIMES-TREE (*1*DELETE *2*TEMP8 *2*TEMP1)) (QUOTE ((QUOTE 1))))) (QUOTE NIL)))) (QUOTE NIL))))) (T *3*X))) (T *3*X))))))) (PUT1-LST (QUOTE *1*EXP) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (COND ((NOT (EQ (*1*ZEROP *3*Y) *1*F)) (QUOTE 1)) (T (*1*TIMES *3*X (*1*EXP *3*X (*1*SUB1 *3*Y))))))))) (PUT1-LST (QUOTE *1*QUOT2-SUB12-INDUCT) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y *3*I *3*J) (COND ((NOT (EQ (*1*ZEROP *3*I) *1*F)) (QUOTE *1*TRUE)) (T (*1*QUOT2-SUB12-INDUCT (*1*QUOTIENT *3*X (QUOTE 2)) (*1*QUOTIENT *3*Y (QUOTE 2)) (*1*SUB1 *3*I) (*1*SUB1 *3*J)))))))) (PUT1-LST (QUOTE *1*LOG) (QUOTE (SEXPR (LAMBDA (*3*B *3*X) (COND ((NOT (EQ (*1*OR (*1*ZEROP *3*B) (COND ((EQUAL *3*B (QUOTE 1)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (QUOTE 0)) ((NOT (EQ (*1*LESSP *3*X *3*B) *1*F)) (QUOTE 0)) (T (*1*ADD1 (*1*LOG *3*B (*1*QUOTIENT *3*X *3*B))))))))) (PUT1-LST (QUOTE *1*QUOTIENT2-INDUCT) (QUOTE (SEXPR (LAMBDA (*3*B *3*X *3*Y) (COND ((NOT (EQ (*1*OR (*1*ZEROP *3*B) (COND ((EQUAL *3*B (QUOTE 1)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (QUOTE 0)) ((NOT (EQ (*1*OR (*1*ZEROP *3*X) (*1*ZEROP *3*Y)) *1*F)) (QUOTE 0)) (T (*1*QUOTIENT2-INDUCT *3*B (*1*QUOTIENT *3*X *3*B) (*1*QUOTIENT *3*Y *3*B)))))))) (PUT1-LST (QUOTE *1*B) (QUOTE (SEXPR (LAMBDA NIL (QUOTE 8))))) (PUT1-LST (QUOTE *1*W) (QUOTE (SEXPR (LAMBDA NIL (QUOTE 16))))) (PUT1-LST (QUOTE *1*L) (QUOTE (SEXPR (LAMBDA NIL (QUOTE 32))))) (PUT1-LST (QUOTE *1*Q) (QUOTE (SEXPR (LAMBDA NIL (QUOTE 64))))) (PUT1-LST (QUOTE *1*BSZ) (QUOTE (SEXPR (LAMBDA NIL (QUOTE 1))))) (PUT1-LST (QUOTE *1*WSZ) (QUOTE (SEXPR (LAMBDA NIL (QUOTE 2))))) (PUT1-LST (QUOTE *1*LSZ) (QUOTE (SEXPR (LAMBDA NIL (QUOTE 4))))) (PUT1-LST (QUOTE *1*QSZ) (QUOTE (SEXPR (LAMBDA NIL (QUOTE 8))))) (PUT1-LST (QUOTE *1*READ-SIGNAL) (QUOTE (SEXPR (LAMBDA NIL (QUOTE READ_UNAVAILABLE_MEMORY))))) (PUT1-LST (QUOTE *1*WRITE-SIGNAL) (QUOTE (SEXPR (LAMBDA NIL (QUOTE WRITE_ROM_OR_UNAVAILABLE_MEMORY))))) (PUT1-LST (QUOTE *1*RESERVED-SIGNAL) (QUOTE (SEXPR (LAMBDA NIL (QUOTE MOTOROLA_RESERVED_FOR_FUTURE_DEVELOPMENT))))) (PUT1-LST (QUOTE *1*PC-SIGNAL) (QUOTE (SEXPR (LAMBDA NIL (QUOTE PC_OUTSIDE_ROM))))) (PUT1-LST (QUOTE *1*PC-ODD-SIGNAL) (QUOTE (SEXPR (LAMBDA NIL (QUOTE PC_AT_ODD_ADDRESS))))) (PUT1-LST (QUOTE *1*MODE-SIGNAL) (QUOTE (SEXPR (LAMBDA NIL (QUOTE ILLEGAL_ADDRESSING_MODE_IN_CURRENT_INSTRUCTION))))) (PUT1-LST (QUOTE *1*BITP) (QUOTE (SEXPR (LAMBDA (*3*X) (*1*OR (COND ((EQUAL *3*X (QUOTE 0)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQUAL *3*X (QUOTE 1)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))))))) (PUT1-LST (QUOTE *1*B1) (QUOTE (SEXPR (LAMBDA NIL (QUOTE 1))))) (PUT1-LST (QUOTE *1*B0) (QUOTE (SEXPR (LAMBDA NIL (QUOTE 0))))) (PUT1-LST (QUOTE *1*B0P) (QUOTE (SEXPR (LAMBDA (*3*X) (COND ((EQUAL *3*X (*1*B0)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))) (PUT1-LST (QUOTE *1*B1P) (QUOTE (SEXPR (LAMBDA (*3*X) (*1*NOT (COND ((EQUAL *3*X (*1*B0)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))))))) (PUT1-LST (QUOTE *1*FIX-BIT) (QUOTE (SEXPR (LAMBDA (*3*C) (COND ((NOT (EQ (*1*B0P *3*C) *1*F)) (*1*B0)) (T (*1*B1))))))) (PUT1-LST (QUOTE *1*B-NOT) (QUOTE (SEXPR (LAMBDA (*3*X) (COND ((NOT (EQ (*1*B0P *3*X) *1*F)) (*1*B1)) (T (*1*B0))))))) (PUT1-LST (QUOTE *1*B-AND) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (LET NIL (COND ((NOT (EQ (*1*B0P *3*X) *1*F)) (*1*B0)) ((NOT (EQ (*1*B0P *3*Y) *1*F)) (*1*B0)) (T (*1*B1)))))))) (PUT1-LST (QUOTE *1*B-OR) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (LET NIL (COND ((NOT (EQ (*1*B0P *3*X) *1*F)) (COND ((NOT (EQ (*1*B0P *3*Y) *1*F)) (*1*B0)) (T (*1*B1)))) (T (*1*B1)))))))) (PUT1-LST (QUOTE *1*B-NOR) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (LET NIL (COND ((NOT (EQ (*1*B0P *3*X) *1*F)) (COND ((NOT (EQ (*1*B0P *3*Y) *1*F)) (*1*B1)) (T (*1*B0)))) (T (*1*B0)))))))) (PUT1-LST (QUOTE *1*B-NAND) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (LET NIL (COND ((NOT (EQ (*1*B0P *3*X) *1*F)) (*1*B1)) ((NOT (EQ (*1*B0P *3*Y) *1*F)) (*1*B1)) (T (*1*B0)))))))) (PUT1-LST (QUOTE *1*B-EOR) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (LET NIL (COND ((NOT (EQ (*1*B0P *3*X) *1*F)) (COND ((NOT (EQ (*1*B0P *3*Y) *1*F)) (*1*B0)) (T (*1*B1)))) ((NOT (EQ (*1*B0P *3*Y) *1*F)) (*1*B1)) (T (*1*B0)))))))) (PUT1-LST (QUOTE *1*B-EQUAL) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (COND ((NOT (EQ (*1*B0P *3*X) *1*F)) (*1*B0P *3*Y)) (T (*1*B1P *3*Y))))))) (PUT1-LST (QUOTE *1*BCAR) (QUOTE (SEXPR (LAMBDA (*3*X) (*1*REMAINDER *3*X (QUOTE 2)))))) (PUT1-LST (QUOTE *1*BCDR) (QUOTE (SEXPR (LAMBDA (*3*X) (*1*QUOTIENT *3*X (QUOTE 2)))))) (PUT1-LST (QUOTE *1*HEAD) (QUOTE (SEXPR (LAMBDA (*3*X *3*N) (*1*REMAINDER *3*X (*1*EXP (QUOTE 2) *3*N)))))) (PUT1-LST (QUOTE *1*TAIL) (QUOTE (SEXPR (LAMBDA (*3*X *3*N) (*1*QUOTIENT *3*X (*1*EXP (QUOTE 2) *3*N)))))) (PUT1-LST (QUOTE *1*LOGNOT) (QUOTE (SEXPR (LAMBDA (*3*N *3*X) (*1*SUB1 (*1*DIFFERENCE (*1*EXP (QUOTE 2) *3*N) (*1*HEAD *3*X *3*N))))))) (PUT1-LST (QUOTE *1*LOGAND) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (COND ((NOT (EQ (*1*OR (*1*ZEROP *3*X) (*1*ZEROP *3*Y)) *1*F)) (QUOTE 0)) (T (*1*PLUS (*1*B-AND (*1*BCAR *3*X) (*1*BCAR *3*Y)) (*1*TIMES (QUOTE 2) (*1*LOGAND (*1*BCDR *3*X) (*1*BCDR *3*Y)))))))))) (PUT1-LST (QUOTE *1*LOGOR) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (COND ((NOT (EQ (*1*ZEROP *3*X) *1*F)) (*1*FIX *3*Y)) ((NOT (EQ (*1*ZEROP *3*Y) *1*F)) (*1*FIX *3*X)) (T (*1*PLUS (*1*B-OR (*1*BCAR *3*X) (*1*BCAR *3*Y)) (*1*TIMES (QUOTE 2) (*1*LOGOR (*1*BCDR *3*X) (*1*BCDR *3*Y)))))))))) (PUT1-LST (QUOTE *1*LOGEOR) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (COND ((NOT (EQ (*1*AND (*1*ZEROP *3*X) (*1*ZEROP *3*Y)) *1*F)) (QUOTE 0)) (T (*1*PLUS (*1*B-EOR (*1*BCAR *3*X) (*1*BCAR *3*Y)) (*1*TIMES (QUOTE 2) (*1*LOGEOR (*1*BCDR *3*X) (*1*BCDR *3*Y)))))))))) (PUT1-LST (QUOTE *1*BITN) (QUOTE (SEXPR (LAMBDA (*3*X *3*N) (*1*BCAR (*1*TAIL *3*X *3*N)))))) (PUT1-LST (QUOTE *1*MBIT) (QUOTE (SEXPR (LAMBDA (*3*X *3*N) (*1*BITN *3*X (*1*SUB1 *3*N)))))) (PUT1-LST (QUOTE *1*BITS) (QUOTE (SEXPR (LAMBDA (*3*X *3*I *3*J) (*1*HEAD (*1*TAIL *3*X *3*I) (*1*ADD1 (*1*DIFFERENCE *3*J *3*I))))))) (PUT1-LST (QUOTE *1*SETN) (QUOTE (SEXPR (LAMBDA (*3*X *3*N *3*C) (LET NIL (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (*1*PLUS (*1*FIX-BIT *3*C) (*1*TIMES (QUOTE 2) (*1*BCDR *3*X)))) (T (*1*PLUS (*1*BCAR *3*X) (*1*TIMES (QUOTE 2) (*1*SETN (*1*BCDR *3*X) (*1*SUB1 *3*N) *3*C)))))))))) (PUT1-LST (QUOTE *1*ADDER) (QUOTE (SEXPR (LAMBDA (*3*N *3*C *3*X *3*Y) (*1*HEAD (*1*PLUS *3*C (*1*PLUS *3*X *3*Y)) *3*N))))) (PUT1-LST (QUOTE *1*ADD) (QUOTE (SEXPR (LAMBDA (*3*N *3*X *3*Y) (*1*HEAD (*1*PLUS *3*X *3*Y) *3*N))))) (PUT1-LST (QUOTE *1*SUBTRACTER) (QUOTE (SEXPR (LAMBDA (*3*N *3*C *3*X *3*Y) (*1*ADDER *3*N (*1*B-NOT *3*C) *3*Y (*1*LOGNOT *3*N *3*X)))))) (PUT1-LST (QUOTE *1*SUB) (QUOTE (SEXPR (LAMBDA (*3*N *3*X *3*Y) (*1*HEAD (*1*PLUS *3*Y (*1*DIFFERENCE (*1*EXP (QUOTE 2) *3*N) (*1*HEAD *3*X *3*N))) *3*N))))) (PUT1-LST (QUOTE *1*APP) (QUOTE (SEXPR (LAMBDA (*3*N *3*X *3*Y) (*1*PLUS (*1*HEAD *3*X *3*N) (*1*TIMES *3*Y (*1*EXP (QUOTE 2) *3*N))))))) (PUT1-LST (QUOTE *1*REPLACE) (QUOTE (SEXPR (LAMBDA (*3*N *3*X *3*Y) (*1*APP *3*N *3*X (*1*TAIL *3*Y *3*N)))))) (PUT1-LST (QUOTE *1*EXT) (QUOTE (SEXPR (LAMBDA (*3*N *3*X *3*SIZE) (COND ((NOT (EQ (*1*LESSP *3*N *3*SIZE) *1*F)) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*X (*1*SUB1 *3*N))) *1*F)) (*1*HEAD *3*X *3*N)) (T (*1*APP *3*N *3*X (*1*SUB1 (*1*EXP (QUOTE 2) (*1*DIFFERENCE *3*SIZE *3*N))))))) (T (*1*HEAD *3*X *3*SIZE))))))) (PUT1-LST (QUOTE *1*LSL) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*X *3*CNT) (*1*HEAD (*1*TIMES *3*X (*1*EXP (QUOTE 2) *3*CNT)) *3*LEN))))) (PUT1-LST (QUOTE *1*ASL) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*X *3*CNT) (*1*HEAD (*1*TIMES *3*X (*1*EXP (QUOTE 2) *3*CNT)) *3*LEN))))) (PUT1-LST (QUOTE *1*LSR) (QUOTE (SEXPR (LAMBDA (*3*X *3*CNT) (*1*TAIL *3*X *3*CNT))))) (PUT1-LST (QUOTE *1*ASR) (QUOTE (SEXPR (LAMBDA (*3*N *3*X *3*CNT) (LET NIL (COND ((NOT (EQ (*1*LESSP *3*X (*1*EXP (QUOTE 2) (*1*SUB1 *3*N))) *1*F)) (*1*TAIL *3*X *3*CNT)) ((NOT (EQ (*1*LESSP *3*N *3*CNT) *1*F)) (*1*SUB1 (*1*EXP (QUOTE 2) *3*N))) (T (*1*APP (*1*DIFFERENCE *3*N *3*CNT) (*1*TAIL *3*X *3*CNT) (*1*SUB1 (*1*EXP (QUOTE 2) *3*CNT)))))))))) (PUT1-LST (QUOTE *1*NEGP) (QUOTE (SEXPR (LAMBDA (*3*I) (*1*AND (*1*NEGATIVEP *3*I) (*1*NOT (COND ((EQUAL *3*I (QUOTE (*1*QUOTE MINUS 0))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))))) (PUT1-LST (QUOTE *1*INTEGERP) (QUOTE (SEXPR (LAMBDA (*3*X) (*1*OR (*1*NUMBERP *3*X) (*1*NEGP *3*X)))))) (PUT1-LST (QUOTE *1*FIX-INT) (QUOTE (SEXPR (LAMBDA (*3*X) (COND ((NOT (EQ (*1*INTEGERP *3*X) *1*F)) *3*X) (T (QUOTE 0))))))) (PUT1-LST (QUOTE *1*IZEROP) (QUOTE (SEXPR (LAMBDA (*3*X) (COND ((EQUAL (*1*FIX-INT *3*X) (QUOTE 0)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))) (PUT1-LST (QUOTE *1*ABS) (QUOTE (SEXPR (LAMBDA (*3*X) (COND ((NOT (EQ (*1*NEGP *3*X) *1*F)) (*1*NEGATIVE-GUTS *3*X)) (T (*1*FIX *3*X))))))) (PUT1-LST (QUOTE *1*ILESSP) (QUOTE (SEXPR (LAMBDA (*3*I *3*J) (LET NIL (COND ((NOT (EQ (*1*NEGP *3*I) *1*F)) (COND ((NOT (EQ (*1*NEGP *3*J) *1*F)) (*1*LESSP (*1*NEGATIVE-GUTS *3*J) (*1*NEGATIVE-GUTS *3*I))) (T (QUOTE *1*TRUE)))) ((NOT (EQ (*1*NEGP *3*J) *1*F)) (QUOTE *1*FALSE)) (T (*1*LESSP *3*I *3*J)))))))) (PUT1-LST (QUOTE *1*ILEQ) (QUOTE (SEXPR (LAMBDA (*3*I *3*J) (*1*NOT (*1*ILESSP *3*J *3*I)))))) (PUT1-LST (QUOTE *1*IPLUS) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NEGP *3*X) *1*F)) (COND ((NOT (EQ (*1*NEGP *3*Y) *1*F)) (*1*MINUS (*1*PLUS (*1*NEGATIVE-GUTS *3*X) (*1*NEGATIVE-GUTS *3*Y)))) ((NOT (EQ (*1*LESSP *3*Y (SETQ *2*TEMP2 (*1*NEGATIVE-GUTS *3*X))) *1*F)) (*1*MINUS (*1*DIFFERENCE *2*TEMP2 *3*Y))) (T (*1*DIFFERENCE *3*Y *2*TEMP2)))) ((NOT (EQ (*1*NEGP *3*Y) *1*F)) (COND ((NOT (EQ (*1*LESSP *3*X (SETQ *2*TEMP1 (*1*NEGATIVE-GUTS *3*Y))) *1*F)) (*1*MINUS (*1*DIFFERENCE *2*TEMP1 *3*X))) (T (*1*DIFFERENCE *3*X *2*TEMP1)))) (T (*1*PLUS *3*X *3*Y)))))))) (PUT1-LST (QUOTE *1*INEG) (QUOTE (SEXPR (LAMBDA (*3*X) (COND ((NOT (EQ (*1*IZEROP *3*X) *1*F)) (QUOTE 0)) ((NOT (EQ (*1*NEGP *3*X) *1*F)) (*1*NEGATIVE-GUTS *3*X)) (T (*1*MINUS *3*X))))))) (PUT1-LST (QUOTE *1*IDIFFERENCE) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (*1*IPLUS *3*X (*1*INEG *3*Y)))))) (PUT1-LST (QUOTE *1*ITIMES) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (LET NIL (COND ((NOT (EQ (*1*NEGP *3*X) *1*F)) (COND ((NOT (EQ (*1*NEGP *3*Y) *1*F)) (*1*TIMES (*1*NEGATIVE-GUTS *3*X) (*1*NEGATIVE-GUTS *3*Y))) (T (*1*FIX-INT (*1*MINUS (*1*TIMES (*1*NEGATIVE-GUTS *3*X) *3*Y)))))) ((NOT (EQ (*1*NEGP *3*Y) *1*F)) (*1*FIX-INT (*1*MINUS (*1*TIMES *3*X (*1*NEGATIVE-GUTS *3*Y))))) (T (*1*TIMES *3*X *3*Y)))))))) (PUT1-LST (QUOTE *1*IREMAINDER) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (LET NIL (COND ((NOT (EQ (*1*NEGP *3*X) *1*F)) (*1*FIX-INT (*1*MINUS (*1*REMAINDER (*1*NEGATIVE-GUTS *3*X) (*1*ABS *3*Y))))) (T (*1*REMAINDER *3*X (*1*ABS *3*Y))))))))) (PUT1-LST (QUOTE *1*IQUOTIENT) (QUOTE (SEXPR (LAMBDA (*3*X *3*Y) (LET NIL (COND ((NOT (EQ (*1*NEGP *3*X) *1*F)) (COND ((NOT (EQ (*1*NEGP *3*Y) *1*F)) (*1*QUOTIENT (*1*NEGATIVE-GUTS *3*X) (*1*NEGATIVE-GUTS *3*Y))) (T (*1*FIX-INT (*1*MINUS (*1*QUOTIENT (*1*NEGATIVE-GUTS *3*X) *3*Y)))))) ((NOT (EQ (*1*NEGP *3*Y) *1*F)) (*1*FIX-INT (*1*MINUS (*1*QUOTIENT *3*X (*1*NEGATIVE-GUTS *3*Y))))) (T (*1*QUOTIENT *3*X *3*Y)))))))) (PUT1-LST (QUOTE *1*NAT-RANGEP) (QUOTE (SEXPR (LAMBDA (*3*NAT *3*N) (*1*LESSP *3*NAT (*1*EXP (QUOTE 2) *3*N)))))) (PUT1-LST (QUOTE *1*UINT-RANGEP) (QUOTE (SEXPR (LAMBDA (*3*X *3*N) (*1*LESSP *3*X (*1*EXP (QUOTE 2) *3*N)))))) (PUT1-LST (QUOTE *1*NAT-TO-UINT) (QUOTE (SEXPR (LAMBDA (*3*X) (*1*FIX *3*X))))) (PUT1-LST (QUOTE *1*UINT-TO-NAT) (QUOTE (SEXPR (LAMBDA (*3*X) (*1*FIX *3*X))))) (PUT1-LST (QUOTE *1*INT-RANGEP) (QUOTE (SEXPR (LAMBDA (*3*INT *3*N) (LET NIL (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (COND ((EQUAL (*1*FIX-INT *3*INT) (QUOTE 0)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) ((NOT (EQ (*1*NEGATIVEP *3*INT) *1*F)) (COND ((NOT (EQ (*1*LESSP (*1*EXP (QUOTE 2) (*1*SUB1 *3*N)) (*1*NEGATIVE-GUTS *3*INT)) *1*F)) (QUOTE *1*FALSE)) (T (QUOTE *1*TRUE)))) (T (*1*LESSP *3*INT (*1*EXP (QUOTE 2) (*1*SUB1 *3*N)))))))))) (PUT1-LST (QUOTE *1*NAT-TO-INT) (QUOTE (SEXPR (LAMBDA (*3*X *3*N) (COND ((NOT (EQ (*1*LESSP *3*X (*1*EXP (QUOTE 2) (*1*SUB1 *3*N))) *1*F)) (*1*FIX *3*X)) (T (*1*MINUS (*1*DIFFERENCE (*1*EXP (QUOTE 2) *3*N) *3*X)))))))) (PUT1-LST (QUOTE *1*INT-TO-NAT) (QUOTE (SEXPR (LAMBDA (*3*X *3*SIZE) (COND ((NOT (EQ (*1*NEGATIVEP *3*X) *1*F)) (*1*DIFFERENCE (*1*EXP (QUOTE 2) *3*SIZE) (*1*NEGATIVE-GUTS *3*X))) (T (*1*FIX *3*X))))))) (PUT1-LST (QUOTE *1*VALUE-FIELD) (QUOTE (SEXPR (LAMBDA (*3*BT) (COND ((AND (CONSP *3*BT) (NOT (EQ (CAR *3*BT) (QUOTE *1*QUOTE)))) (CAR *3*BT)) (T (QUOTE 0))))))) (PUT1-LST (QUOTE *1*BRANCH0) (QUOTE (SEXPR (LAMBDA (*3*BT) (COND ((AND (CONSP *3*BT) (NOT (EQ (CAR *3*BT) (QUOTE *1*QUOTE)))) (*1*CAR (CDR *3*BT))) (T (QUOTE NIL))))))) (PUT1-LST (QUOTE *1*BRANCH1) (QUOTE (SEXPR (LAMBDA (*3*BT) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*AND (COND ((AND (CONSP *3*BT) (NOT (EQ (CAR *3*BT) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((AND (CONSP (SETQ *2*TEMP1 (*1*CDR *3*BT))) (NOT (EQ (CAR *2*TEMP1) (QUOTE *1*QUOTE)))) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (*1*CDR *2*TEMP1)) (T (QUOTE NIL)))))))) (PUT1-LST (QUOTE *1*MAKE-BT) (QUOTE (SEXPR (LAMBDA (*3*VALUE *3*BR0 *3*BR1) (CONS *3*VALUE (CONS *3*BR0 *3*BR1)))))) (PUT1-LST (QUOTE *1*READP) (QUOTE (SEXPR (LAMBDA (*3*X *3*N *3*MAP) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*MEMBER (QUOTE UNAVAILABLE) (*1*VALUE-FIELD *3*MAP)) *1*F)) (QUOTE *1*FALSE)) ((NOT (EQ (*1*OR (*1*NLISTP *3*MAP) (*1*ZEROP *3*N)) *1*F)) (QUOTE *1*TRUE)) ((NOT (EQ (*1*B0P (*1*BITN *3*X (SETQ *2*TEMP1 (*1*SUB1 *3*N)))) *1*F)) (*1*READP *3*X *2*TEMP1 (*1*BRANCH0 *3*MAP))) (T (*1*READP *3*X *2*TEMP1 (*1*BRANCH1 *3*MAP))))))))) (PUT1-LST (QUOTE *1*PC-READP) (QUOTE (SEXPR (LAMBDA (*3*X *3*N *3*MAP) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*MEMBER (QUOTE UNAVAILABLE) (SETQ *2*TEMP2 (*1*VALUE-FIELD *3*MAP))) *1*F)) (QUOTE *1*FALSE)) ((NOT (EQ (*1*MEMBER (QUOTE ROM) *2*TEMP2) *1*F)) (*1*READP *3*X *3*N *3*MAP)) ((NOT (EQ (*1*OR (*1*NLISTP *3*MAP) (*1*ZEROP *3*N)) *1*F)) (QUOTE *1*FALSE)) ((NOT (EQ (*1*B0P (*1*BITN *3*X (SETQ *2*TEMP1 (*1*SUB1 *3*N)))) *1*F)) (*1*PC-READP *3*X *2*TEMP1 (*1*BRANCH0 *3*MAP))) (T (*1*PC-READP *3*X *2*TEMP1 (*1*BRANCH1 *3*MAP))))))))) (PUT1-LST (QUOTE *1*WRITEP) (QUOTE (SEXPR (LAMBDA (*3*X *3*N *3*MAP) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*OR (*1*MEMBER (QUOTE UNAVAILABLE) (SETQ *2*TEMP2 (*1*VALUE-FIELD *3*MAP))) (*1*MEMBER (QUOTE ROM) *2*TEMP2)) *1*F)) (QUOTE *1*FALSE)) ((NOT (EQ (*1*OR (*1*NLISTP *3*MAP) (*1*ZEROP *3*N)) *1*F)) (QUOTE *1*TRUE)) ((NOT (EQ (*1*B0P (*1*BITN *3*X (SETQ *2*TEMP1 (*1*SUB1 *3*N)))) *1*F)) (*1*WRITEP *3*X *2*TEMP1 (*1*BRANCH0 *3*MAP))) (T (*1*WRITEP *3*X *2*TEMP1 (*1*BRANCH1 *3*MAP))))))))) (PUT1-LST (QUOTE *1*READ) (QUOTE (SEXPR (LAMBDA (*3*X *3*N *3*BT) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (*1*VALUE-FIELD *3*BT)) ((NOT (EQ (*1*B0P (*1*BITN *3*X (SETQ *2*TEMP1 (*1*SUB1 *3*N)))) *1*F)) (*1*READ *3*X *2*TEMP1 (*1*BRANCH0 *3*BT))) (T (*1*READ *3*X *2*TEMP1 (*1*BRANCH1 *3*BT))))))))) (PUT1-LST (QUOTE *1*PC-READ) (QUOTE (SEXPR (LAMBDA (*3*X *3*N *3*BT) (*1*READ *3*X *3*N *3*BT))))) (PUT1-LST (QUOTE *1*WRITE) (QUOTE (SEXPR (LAMBDA (*3*VALUE *3*X *3*N *3*BT) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (*1*MAKE-BT *3*VALUE (*1*BRANCH0 *3*BT) (*1*BRANCH1 *3*BT))) ((NOT (EQ (*1*B0P (*1*BITN *3*X (SETQ *2*TEMP1 (*1*SUB1 *3*N)))) *1*F)) (*1*MAKE-BT (*1*VALUE-FIELD *3*BT) (*1*WRITE *3*VALUE *3*X *2*TEMP1 (*1*BRANCH0 *3*BT)) (*1*BRANCH1 *3*BT))) (T (*1*MAKE-BT (*1*VALUE-FIELD *3*BT) (*1*BRANCH0 *3*BT) (*1*WRITE *3*VALUE *3*X *2*TEMP1 (*1*BRANCH1 *3*BT)))))))))) (PUT1-LST (QUOTE *1*GET-NTH) (QUOTE (SEXPR (LAMBDA (*3*N *3*LST) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (*1*CAR *3*LST)) (T (*1*GET-NTH (*1*SUB1 *3*N) (*1*CDR *3*LST)))))))) (PUT1-LST (QUOTE *1*PUT-NTH) (QUOTE (SEXPR (LAMBDA (*3*VALUE *3*N *3*LST) (LET NIL (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (CONS *3*VALUE (*1*CDR *3*LST))) (T (CONS (*1*CAR *3*LST) (*1*PUT-NTH *3*VALUE (*1*SUB1 *3*N) (*1*CDR *3*LST)))))))))) (PUT1-LST (QUOTE *1*OP-SZ) (QUOTE (SEXPR (LAMBDA (*3*OPLEN) (*1*QUOTIENT *3*OPLEN (*1*B)))))) (PUT1-LST (QUOTE *1*READ-RN) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*RN *3*REGS) (*1*HEAD (*1*GET-NTH *3*RN *3*REGS) *3*OPLEN))))) (PUT1-LST (QUOTE *1*WRITE-RN) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*VALUE *3*RN *3*REGS) (*1*PUT-NTH (*1*REPLACE *3*OPLEN *3*VALUE (*1*GET-NTH *3*RN *3*REGS)) *3*RN *3*REGS))))) (PUT1-LST (QUOTE *1*MC-STATE) (QUOTE (SEXPR (LAMBDA (*3*STATUS *3*REGS *3*PC *3*CCR *3*MEM) (CONS *3*STATUS (CONS *3*REGS (CONS *3*PC (CONS *3*CCR (CONS *3*MEM (QUOTE NIL)))))))))) (PUT1-LST (QUOTE *1*MC-STATUS) (QUOTE (SEXPR (LAMBDA (*3*S) (*1*CAR *3*S))))) (PUT1-LST (QUOTE *1*MC-RFILE) (QUOTE (SEXPR (LAMBDA (*3*S) (*1*CAR (*1*CDR *3*S)))))) (PUT1-LST (QUOTE *1*MC-PC) (QUOTE (SEXPR (LAMBDA (*3*S) (*1*HEAD (*1*CAR (*1*CDR (*1*CDR *3*S))) (*1*L)))))) (PUT1-LST (QUOTE *1*MC-CCR) (QUOTE (SEXPR (LAMBDA (*3*S) (*1*HEAD (*1*CAR (*1*CDR (*1*CDR (*1*CDR *3*S)))) (*1*B)))))) (PUT1-LST (QUOTE *1*MC-MEM) (QUOTE (SEXPR (LAMBDA (*3*S) (*1*CAR (*1*CDR (*1*CDR (*1*CDR (*1*CDR *3*S))))))))) (PUT1-LST (QUOTE *1*LEN) (QUOTE (SEXPR (LAMBDA (*3*LST) (COND ((NOT (EQ (*1*NLISTP *3*LST) *1*F)) (QUOTE 0)) (T (*1*ADD1 (*1*LEN (*1*CDR *3*LST))))))))) (PUT1-LST (QUOTE *1*MC-HALTP) (QUOTE (SEXPR (LAMBDA (*3*S) (*1*NOT (COND ((EQ (*1*MC-STATUS *3*S) (QUOTE RUNNING)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))))))) (PUT1-LST (QUOTE *1*BYTE-READP) (QUOTE (SEXPR (LAMBDA (*3*X *3*MEM) (*1*READP *3*X (QUOTE 32) (*1*CAR *3*MEM)))))) (PUT1-LST (QUOTE *1*READ-MEMP) (QUOTE (SEXPR (LAMBDA (*3*X *3*MEM *3*K) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ZEROP *3*K) *1*F)) (QUOTE *1*TRUE)) (T (*1*AND (*1*BYTE-READP (*1*ADD (QUOTE 32) *3*X (SETQ *2*TEMP1 (*1*SUB1 *3*K))) *3*MEM) (*1*READ-MEMP *3*X *3*MEM *2*TEMP1))))))))) (PUT1-LST (QUOTE *1*WORD-READP) (QUOTE (SEXPR (LAMBDA (*3*X *3*MEM) (*1*READ-MEMP *3*X *3*MEM (*1*WSZ)))))) (PUT1-LST (QUOTE *1*LONG-READP) (QUOTE (SEXPR (LAMBDA (*3*X *3*MEM) (*1*READ-MEMP *3*X *3*MEM (*1*LSZ)))))) (PUT1-LST (QUOTE *1*PC-BYTE-READP) (QUOTE (SEXPR (LAMBDA (*3*X *3*MEM) (*1*PC-READP *3*X (QUOTE 32) (*1*CAR *3*MEM)))))) (PUT1-LST (QUOTE *1*PC-READ-MEMP) (QUOTE (SEXPR (LAMBDA (*3*X *3*MEM *3*K) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ZEROP *3*K) *1*F)) (QUOTE *1*TRUE)) (T (*1*AND (*1*PC-BYTE-READP (*1*ADD (QUOTE 32) *3*X (SETQ *2*TEMP1 (*1*SUB1 *3*K))) *3*MEM) (*1*PC-READ-MEMP *3*X *3*MEM *2*TEMP1))))))))) (PUT1-LST (QUOTE *1*PC-WORD-READP) (QUOTE (SEXPR (LAMBDA (*3*X *3*MEM) (*1*PC-READ-MEMP *3*X *3*MEM (*1*WSZ)))))) (PUT1-LST (QUOTE *1*PC-LONG-READP) (QUOTE (SEXPR (LAMBDA (*3*X *3*MEM) (*1*PC-READ-MEMP *3*X *3*MEM (*1*LSZ)))))) (PUT1-LST (QUOTE *1*BYTE-READ) (QUOTE (SEXPR (LAMBDA (*3*X *3*MEM) (*1*HEAD (*1*READ *3*X (QUOTE 32) (*1*CDR *3*MEM)) (*1*B)))))) (PUT1-LST (QUOTE *1*READ-MEM) (QUOTE (SEXPR (LAMBDA (*3*X *3*MEM *3*K) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ZEROP *3*K) *1*F)) (QUOTE 0)) (T (*1*APP (*1*B) (*1*BYTE-READ (*1*ADD (QUOTE 32) *3*X (SETQ *2*TEMP1 (*1*SUB1 *3*K))) *3*MEM) (*1*READ-MEM *3*X *3*MEM *2*TEMP1))))))))) (PUT1-LST (QUOTE *1*WORD-READ) (QUOTE (SEXPR (LAMBDA (*3*X *3*MEM) (*1*READ-MEM *3*X *3*MEM (*1*WSZ)))))) (PUT1-LST (QUOTE *1*LONG-READ) (QUOTE (SEXPR (LAMBDA (*3*X *3*MEM) (*1*READ-MEM *3*X *3*MEM (*1*LSZ)))))) (PUT1-LST (QUOTE *1*PC-BYTE-READ) (QUOTE (SEXPR (LAMBDA (*3*PC *3*MEM) (*1*HEAD (*1*PC-READ *3*PC (QUOTE 32) (*1*CDR *3*MEM)) (*1*B)))))) (PUT1-LST (QUOTE *1*PC-READ-MEM) (QUOTE (SEXPR (LAMBDA (*3*PC *3*MEM *3*K) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ZEROP *3*K) *1*F)) (QUOTE 0)) (T (*1*APP (*1*B) (*1*PC-BYTE-READ (*1*ADD (QUOTE 32) *3*PC (SETQ *2*TEMP1 (*1*SUB1 *3*K))) *3*MEM) (*1*PC-READ-MEM *3*PC *3*MEM *2*TEMP1))))))))) (PUT1-LST (QUOTE *1*PC-WORD-READ) (QUOTE (SEXPR (LAMBDA (*3*PC *3*MEM) (*1*PC-READ-MEM *3*PC *3*MEM (*1*WSZ)))))) (PUT1-LST (QUOTE *1*PC-LONG-READ) (QUOTE (SEXPR (LAMBDA (*3*PC *3*MEM) (*1*PC-READ-MEM *3*PC *3*MEM (*1*LSZ)))))) (PUT1-LST (QUOTE *1*S_RN) (QUOTE (SEXPR (LAMBDA (*3*INS) (*1*BITS *3*INS (QUOTE 0) (QUOTE 2)))))) (PUT1-LST (QUOTE *1*S_MODE) (QUOTE (SEXPR (LAMBDA (*3*INS) (*1*BITS *3*INS (QUOTE 3) (QUOTE 5)))))) (PUT1-LST (QUOTE *1*D_MODE) (QUOTE (SEXPR (LAMBDA (*3*INS) (*1*BITS *3*INS (QUOTE 6) (QUOTE 8)))))) (PUT1-LST (QUOTE *1*D_RN) (QUOTE (SEXPR (LAMBDA (*3*INS) (*1*BITS *3*INS (QUOTE 9) (QUOTE 11)))))) (PUT1-LST (QUOTE *1*OPMODE-FIELD) (QUOTE (SEXPR (LAMBDA (*3*INS) (*1*BITS *3*INS (QUOTE 6) (QUOTE 8)))))) (PUT1-LST (QUOTE *1*COND-FIELD) (QUOTE (SEXPR (LAMBDA (*3*INS) (*1*BITS *3*INS (QUOTE 8) (QUOTE 11)))))) (PUT1-LST (QUOTE *1*OP-LEN) (QUOTE (SEXPR (LAMBDA (*3*INS) (*1*TIMES (*1*B) (*1*EXP (QUOTE 2) (*1*BITS *3*INS (QUOTE 6) (QUOTE 7)))))))) (PUT1-LST (QUOTE *1*BYTE-WRITEP) (QUOTE (SEXPR (LAMBDA (*3*X *3*MEM) (*1*WRITEP *3*X (QUOTE 32) (*1*CAR *3*MEM)))))) (PUT1-LST (QUOTE *1*WRITE-MEMP) (QUOTE (SEXPR (LAMBDA (*3*X *3*MEM *3*K) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ZEROP *3*K) *1*F)) (QUOTE *1*TRUE)) (T (*1*AND (*1*BYTE-WRITEP (*1*ADD (QUOTE 32) *3*X (SETQ *2*TEMP1 (*1*SUB1 *3*K))) *3*MEM) (*1*WRITE-MEMP *3*X *3*MEM *2*TEMP1))))))))) (PUT1-LST (QUOTE *1*BYTE-WRITE) (QUOTE (SEXPR (LAMBDA (*3*VALUE *3*X *3*MEM) (CONS (*1*CAR *3*MEM) (*1*WRITE (*1*HEAD *3*VALUE (*1*B)) *3*X (QUOTE 32) (*1*CDR *3*MEM))))))) (PUT1-LST (QUOTE *1*WRITE-MEM) (QUOTE (SEXPR (LAMBDA (*3*VALUE *3*X *3*MEM *3*K) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ZEROP *3*K) *1*F)) *3*MEM) (T (*1*WRITE-MEM (*1*TAIL *3*VALUE (*1*B)) *3*X (*1*BYTE-WRITE *3*VALUE (*1*ADD (QUOTE 32) *3*X (SETQ *2*TEMP1 (*1*SUB1 *3*K))) *3*MEM) *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*CCR-C) (QUOTE (SEXPR (LAMBDA (*3*CCR) (*1*BITN *3*CCR (QUOTE 0)))))) (PUT1-LST (QUOTE *1*CCR-V) (QUOTE (SEXPR (LAMBDA (*3*CCR) (*1*BITN *3*CCR (QUOTE 1)))))) (PUT1-LST (QUOTE *1*CCR-Z) (QUOTE (SEXPR (LAMBDA (*3*CCR) (*1*BITN *3*CCR (QUOTE 2)))))) (PUT1-LST (QUOTE *1*CCR-N) (QUOTE (SEXPR (LAMBDA (*3*CCR) (*1*BITN *3*CCR (QUOTE 3)))))) (PUT1-LST (QUOTE *1*CCR-X) (QUOTE (SEXPR (LAMBDA (*3*CCR) (*1*BITN *3*CCR (QUOTE 4)))))) (PUT1-LST (QUOTE *1*CVZNX) (QUOTE (SEXPR (LAMBDA (*3*C *3*V *3*Z *3*N *3*X) (*1*PLUS (*1*FIX-BIT *3*C) (*1*PLUS (*1*TIMES (QUOTE 2) (*1*FIX-BIT *3*V)) (*1*PLUS (*1*TIMES (QUOTE 4) (*1*FIX-BIT *3*Z)) (*1*PLUS (*1*TIMES (QUOTE 8) (*1*FIX-BIT *3*N)) (*1*TIMES (QUOTE 16) (*1*FIX-BIT *3*X)))))))))) (PUT1-LST (QUOTE *1*SET-CVZNX) (QUOTE (SEXPR (LAMBDA (*3*CVZNX *3*CCR) (*1*REPLACE (QUOTE 5) *3*CVZNX *3*CCR))))) (PUT1-LST (QUOTE *1*SET-C) (QUOTE (SEXPR (LAMBDA (*3*C *3*CCR) (*1*SET-CVZNX (*1*CVZNX *3*C (*1*CCR-V *3*CCR) (*1*CCR-Z *3*CCR) (*1*CCR-N *3*CCR) (*1*CCR-X *3*CCR)) *3*CCR))))) (PUT1-LST (QUOTE *1*SET-V) (QUOTE (SEXPR (LAMBDA (*3*V *3*CCR) (*1*SET-CVZNX (*1*CVZNX (*1*CCR-C *3*CCR) *3*V (*1*CCR-Z *3*CCR) (*1*CCR-N *3*CCR) (*1*CCR-X *3*CCR)) *3*CCR))))) (PUT1-LST (QUOTE *1*SET-Z) (QUOTE (SEXPR (LAMBDA (*3*Z *3*CCR) (*1*SET-CVZNX (*1*CVZNX (*1*CCR-C *3*CCR) (*1*CCR-V *3*CCR) *3*Z (*1*CCR-N *3*CCR) (*1*CCR-X *3*CCR)) *3*CCR))))) (PUT1-LST (QUOTE *1*SET-N) (QUOTE (SEXPR (LAMBDA (*3*N *3*CCR) (*1*SET-CVZNX (*1*CVZNX (*1*CCR-C *3*CCR) (*1*CCR-V *3*CCR) (*1*CCR-Z *3*CCR) *3*N (*1*CCR-X *3*CCR)) *3*CCR))))) (PUT1-LST (QUOTE *1*SET-X) (QUOTE (SEXPR (LAMBDA (*3*X *3*CCR) (*1*SET-CVZNX (*1*CVZNX (*1*CCR-C *3*CCR) (*1*CCR-V *3*CCR) (*1*CCR-Z *3*CCR) (*1*CCR-N *3*CCR) *3*X) *3*CCR))))) (PUT1-LST (QUOTE *1*HALT) (QUOTE (SEXPR (LAMBDA (*3*SIGNAL *3*S) (*1*MC-STATE *3*SIGNAL (*1*MC-RFILE *3*S) (*1*MC-PC *3*S) (*1*MC-CCR *3*S) (*1*MC-MEM *3*S)))))) (PUT1-LST (QUOTE *1*UPDATE-RFILE) (QUOTE (SEXPR (LAMBDA (*3*NEW-RFILE *3*S) (*1*MC-STATE (*1*MC-STATUS *3*S) *3*NEW-RFILE (*1*MC-PC *3*S) (*1*MC-CCR *3*S) (*1*MC-MEM *3*S)))))) (PUT1-LST (QUOTE *1*UPDATE-PC) (QUOTE (SEXPR (LAMBDA (*3*NEW-PC *3*S) (*1*MC-STATE (*1*MC-STATUS *3*S) (*1*MC-RFILE *3*S) *3*NEW-PC (*1*MC-CCR *3*S) (*1*MC-MEM *3*S)))))) (PUT1-LST (QUOTE *1*UPDATE-CCR) (QUOTE (SEXPR (LAMBDA (*3*NEW-CCR *3*S) (*1*MC-STATE (*1*MC-STATUS *3*S) (*1*MC-RFILE *3*S) (*1*MC-PC *3*S) (*1*SET-CVZNX *3*NEW-CCR (*1*MC-CCR *3*S)) (*1*MC-MEM *3*S)))))) (PUT1-LST (QUOTE *1*UPDATE-MEM) (QUOTE (SEXPR (LAMBDA (*3*NEW-MEM *3*S) (*1*MC-STATE (*1*MC-STATUS *3*S) (*1*MC-RFILE *3*S) (*1*MC-PC *3*S) (*1*MC-CCR *3*S) *3*NEW-MEM))))) (PUT1-LST (QUOTE *1*READ-DN) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*DN *3*S) (*1*READ-RN *3*OPLEN *3*DN (*1*MC-RFILE *3*S)))))) (PUT1-LST (QUOTE *1*READ-AN) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*AN *3*S) (*1*READ-RN *3*OPLEN (*1*PLUS (QUOTE 8) *3*AN) (*1*MC-RFILE *3*S)))))) (PUT1-LST (QUOTE *1*WRITE-DN) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*VALUE *3*DN *3*S) (*1*UPDATE-RFILE (*1*WRITE-RN *3*OPLEN *3*VALUE *3*DN (*1*MC-RFILE *3*S)) *3*S))))) (PUT1-LST (QUOTE *1*WRITE-AN) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*VALUE *3*AN *3*S) (*1*UPDATE-RFILE (*1*WRITE-RN *3*OPLEN *3*VALUE (*1*PLUS (QUOTE 8) *3*AN) (*1*MC-RFILE *3*S)) *3*S))))) (PUT1-LST (QUOTE *1*SP) (QUOTE (SEXPR (LAMBDA NIL (QUOTE 7))))) (PUT1-LST (QUOTE *1*READ-SP) (QUOTE (SEXPR (LAMBDA (*3*S) (*1*READ-AN (*1*L) (*1*SP) *3*S))))) (PUT1-LST (QUOTE *1*WRITE-SP) (QUOTE (SEXPR (LAMBDA (*3*VALUE *3*S) (*1*WRITE-AN (*1*L) *3*VALUE (*1*SP) *3*S))))) (PUT1-LST (QUOTE *1*PUSH-SP) (QUOTE (SEXPR (LAMBDA (*3*OPSZ *3*VALUE *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*WRITE-MEMP (SETQ *2*TEMP2 (*1*SUB (*1*L) *3*OPSZ (*1*READ-SP *3*S))) (SETQ *2*TEMP1 (*1*MC-MEM *3*S)) *3*OPSZ) *1*F)) (*1*UPDATE-MEM (*1*WRITE-MEM *3*VALUE *2*TEMP2 *2*TEMP1 *3*OPSZ) (*1*WRITE-SP *2*TEMP2 *3*S))) (T (*1*HALT (*1*WRITE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*OPERAND) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*ADDR *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((EQ (SETQ *2*TEMP1 (*1*CAR *3*ADDR)) (QUOTE D)) (*1*READ-DN *3*OPLEN (*1*CDR *3*ADDR) *3*S)) ((EQ *2*TEMP1 (QUOTE A)) (*1*READ-AN *3*OPLEN (*1*CDR *3*ADDR) *3*S)) ((EQ *2*TEMP1 (QUOTE M)) (*1*READ-MEM (*1*CDR *3*ADDR) (*1*MC-MEM *3*S) (*1*OP-SZ *3*OPLEN))) (T (*1*CDR *3*ADDR)))))))) (PUT1-LST (QUOTE *1*POST-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*RN *3*ADDR) (LET NIL (COND ((NOT (EQ (*1*AND (COND ((EQUAL *3*RN (*1*SP)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQUAL *3*OPLEN (*1*B)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (*1*ADD (*1*L) *3*ADDR (*1*WSZ))) (T (*1*ADD (*1*L) *3*ADDR (*1*OP-SZ *3*OPLEN))))))))) (PUT1-LST (QUOTE *1*PRE-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*RN *3*ADDR) (LET NIL (COND ((NOT (EQ (*1*AND (COND ((EQUAL *3*RN (*1*SP)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQUAL *3*OPLEN (*1*B)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (*1*SUB (*1*L) (*1*WSZ) *3*ADDR)) (T (*1*SUB (*1*L) (*1*OP-SZ *3*OPLEN) *3*ADDR)))))))) (PUT1-LST (QUOTE *1*DN-DIRECT) (QUOTE (SEXPR (LAMBDA (*3*RN *3*S) (CONS *3*S (CONS (QUOTE D) *3*RN)))))) (PUT1-LST (QUOTE *1*AN-DIRECT) (QUOTE (SEXPR (LAMBDA (*3*RN *3*S) (CONS *3*S (CONS (QUOTE A) *3*RN)))))) (PUT1-LST (QUOTE *1*ADDR-INDIRECT) (QUOTE (SEXPR (LAMBDA (*3*RN *3*S) (CONS *3*S (CONS (QUOTE M) (*1*READ-AN (*1*L) *3*RN *3*S))))))) (PUT1-LST (QUOTE *1*ADDR-POSTINC) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*RN *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (CONS (*1*WRITE-AN (SETQ *2*TEMP2 (*1*L)) (*1*POST-EFFECT *3*OPLEN *3*RN (SETQ *2*TEMP1 (*1*READ-AN *2*TEMP2 *3*RN *3*S))) *3*RN *3*S) (CONS (QUOTE M) *2*TEMP1))))))) (PUT1-LST (QUOTE *1*ADDR-PREDEC) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*RN *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (CONS (*1*WRITE-AN (SETQ *2*TEMP2 (*1*L)) (SETQ *2*TEMP1 (*1*PRE-EFFECT *3*OPLEN *3*RN (*1*READ-AN *2*TEMP2 *3*RN *3*S))) *3*RN *3*S) (CONS (QUOTE M) *2*TEMP1))))))) (PUT1-LST (QUOTE *1*ADDR-DISP) (QUOTE (SEXPR (LAMBDA (*3*PC *3*RN *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*PC-WORD-READP *3*PC (SETQ *2*TEMP2 (*1*MC-MEM *3*S))) *1*F)) (CONS (*1*UPDATE-PC (*1*ADD (SETQ *2*TEMP1 (*1*L)) *3*PC (*1*WSZ)) *3*S) (CONS (QUOTE M) (*1*ADD *2*TEMP1 (*1*READ-AN *2*TEMP1 *3*RN *3*S) (*1*EXT (*1*W) (*1*PC-WORD-READ *3*PC *2*TEMP2) *2*TEMP1))))) (T (CONS (*1*HALT (*1*PC-SIGNAL) *3*S) (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*INDEX-RN) (QUOTE (SEXPR (LAMBDA (*3*INDEXWD) (*1*BITS *3*INDEXWD (QUOTE 12) (QUOTE 14)))))) (PUT1-LST (QUOTE *1*INDEX-REGISTER) (QUOTE (SEXPR (LAMBDA (*3*INDEXWD *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INDEXWD (QUOTE 15))) *1*F)) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INDEXWD (QUOTE 11))) *1*F)) (*1*EXT (SETQ *2*TEMP1 (*1*W)) (*1*READ-DN *2*TEMP1 (*1*INDEX-RN *3*INDEXWD) *3*S) (*1*L))) (T (*1*READ-DN (*1*L) (*1*INDEX-RN *3*INDEXWD) *3*S)))) ((NOT (EQ (*1*B0P (*1*BITN *3*INDEXWD (QUOTE 11))) *1*F)) (*1*EXT (SETQ *2*TEMP1 (*1*W)) (*1*READ-AN *2*TEMP1 (*1*INDEX-RN *3*INDEXWD) *3*S) (*1*L))) (T (*1*READ-AN (*1*L) (*1*INDEX-RN *3*INDEXWD) *3*S)))))))) (PUT1-LST (QUOTE *1*IR-SCALED) (QUOTE (SEXPR (LAMBDA (*3*INDEXWD *3*S) (*1*ASL (*1*L) (*1*INDEX-REGISTER *3*INDEXWD *3*S) (*1*BITS *3*INDEXWD (QUOTE 9) (QUOTE 10))))))) (PUT1-LST (QUOTE *1*ADDR-INDEX-DISP) (QUOTE (SEXPR (LAMBDA (*3*PC *3*RN *3*INDEXWD *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (CONS (*1*UPDATE-PC *3*PC *3*S) (CONS (QUOTE M) (*1*ADD (SETQ *2*TEMP2 (*1*L)) (*1*ADD *2*TEMP2 (*1*READ-AN *2*TEMP2 *3*RN *3*S) (*1*EXT (SETQ *2*TEMP1 (*1*B)) (*1*HEAD *3*INDEXWD *2*TEMP1) *2*TEMP2)) (*1*IR-SCALED *3*INDEXWD *3*S))))))))) (PUT1-LST (QUOTE *1*ADDR-INDEX-BD) (QUOTE (SEXPR (LAMBDA (*3*PC *3*ADDR *3*INDEXWD *3*S) (CONS (*1*UPDATE-PC *3*PC *3*S) (CONS (QUOTE M) (*1*ADD (*1*L) *3*ADDR (*1*IR-SCALED *3*INDEXWD *3*S)))))))) (PUT1-LST (QUOTE *1*MEM-INDIRECT) (QUOTE (SEXPR (LAMBDA (*3*PC *3*ADDR *3*OLEN *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*LONG-READP *3*ADDR (SETQ *2*TEMP3 (*1*MC-MEM *3*S))) *1*F)) (COND ((NOT (EQ (*1*PC-READ-MEMP *3*PC *2*TEMP3 (SETQ *2*TEMP2 (*1*OP-SZ *3*OLEN))) *1*F)) (CONS (*1*UPDATE-PC (*1*ADD (SETQ *2*TEMP1 (*1*L)) *3*PC *2*TEMP2) *3*S) (CONS (QUOTE M) (*1*ADD *2*TEMP1 (*1*LONG-READ *3*ADDR *2*TEMP3) (*1*EXT *3*OLEN (*1*PC-READ-MEM *3*PC *2*TEMP3 *2*TEMP2) *2*TEMP1))))) (T (CONS (*1*HALT (*1*PC-SIGNAL) *3*S) (QUOTE NIL))))) (T (CONS (*1*HALT (*1*READ-SIGNAL) *3*S) (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*MEM-POSTINDEX) (QUOTE (SEXPR (LAMBDA (*3*PC *3*ADDR *3*INDEXWD *3*OLEN *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*LONG-READP *3*ADDR (SETQ *2*TEMP3 (*1*MC-MEM *3*S))) *1*F)) (COND ((NOT (EQ (*1*PC-READ-MEMP *3*PC *2*TEMP3 (SETQ *2*TEMP2 (*1*OP-SZ *3*OLEN))) *1*F)) (CONS (*1*UPDATE-PC (*1*ADD (SETQ *2*TEMP1 (*1*L)) *3*PC *2*TEMP2) *3*S) (CONS (QUOTE M) (*1*ADD *2*TEMP1 (*1*ADD *2*TEMP1 (*1*LONG-READ *3*ADDR *2*TEMP3) (*1*IR-SCALED *3*INDEXWD *3*S)) (*1*EXT *3*OLEN (*1*PC-READ-MEM *3*PC *2*TEMP3 *2*TEMP2) *2*TEMP1))))) (T (CONS (*1*HALT (*1*PC-SIGNAL) *3*S) (QUOTE NIL))))) (T (CONS (*1*HALT (*1*READ-SIGNAL) *3*S) (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*MEM-PREINDEX) (QUOTE (SEXPR (LAMBDA (*3*PC *3*ADDR *3*INDEXWD *3*OLEN *3*S) (*1*MEM-INDIRECT *3*PC (*1*ADD (*1*L) *3*ADDR (*1*IR-SCALED *3*INDEXWD *3*S)) *3*OLEN *3*S))))) (PUT1-LST (QUOTE *1*I-IS) (QUOTE (SEXPR (LAMBDA (*3*INDEXWD) (*1*BITS *3*INDEXWD (QUOTE 0) (QUOTE 2)))))) (PUT1-LST (QUOTE *1*ADDR-INDEX3) (QUOTE (SEXPR (LAMBDA (*3*PC *3*ADDR *3*INDEXWD *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INDEXWD (QUOTE 6))) *1*F)) (COND ((NOT (EQ (*1*LESSP (SETQ *2*TEMP1 (*1*I-IS *3*INDEXWD)) (QUOTE 4)) *1*F)) (COND ((NOT (EQ (*1*LESSP *2*TEMP1 (QUOTE 2)) *1*F)) (COND ((EQUAL *2*TEMP1 (QUOTE 0)) (*1*ADDR-INDEX-BD *3*PC *3*ADDR *3*INDEXWD *3*S)) (T (*1*MEM-PREINDEX *3*PC *3*ADDR *3*INDEXWD (QUOTE 0) *3*S)))) ((EQUAL *2*TEMP1 (QUOTE 2)) (*1*MEM-PREINDEX *3*PC *3*ADDR *3*INDEXWD (*1*W) *3*S)) (T (*1*MEM-PREINDEX *3*PC *3*ADDR *3*INDEXWD (*1*L) *3*S)))) ((NOT (EQ (*1*LESSP *2*TEMP1 (QUOTE 6)) *1*F)) (COND ((EQUAL *2*TEMP1 (QUOTE 4)) (CONS (*1*HALT (*1*RESERVED-SIGNAL) *3*S) (QUOTE NIL))) (T (*1*MEM-POSTINDEX *3*PC *3*ADDR *3*INDEXWD (QUOTE 0) *3*S)))) ((EQUAL *2*TEMP1 (QUOTE 6)) (*1*MEM-POSTINDEX *3*PC *3*ADDR *3*INDEXWD (*1*W) *3*S)) (T (*1*MEM-POSTINDEX *3*PC *3*ADDR *3*INDEXWD (*1*L) *3*S)))) ((NOT (EQ (*1*LESSP (SETQ *2*TEMP1 (*1*I-IS *3*INDEXWD)) (QUOTE 4)) *1*F)) (COND ((NOT (EQ (*1*LESSP *2*TEMP1 (QUOTE 2)) *1*F)) (COND ((EQUAL *2*TEMP1 (QUOTE 0)) (CONS (*1*UPDATE-PC *3*PC *3*S) (CONS (QUOTE M) *3*ADDR))) (T (*1*MEM-INDIRECT *3*PC *3*ADDR (QUOTE 0) *3*S)))) ((EQUAL *2*TEMP1 (QUOTE 2)) (*1*MEM-INDIRECT *3*PC *3*ADDR (*1*W) *3*S)) (T (*1*MEM-INDIRECT *3*PC *3*ADDR (*1*L) *3*S)))) (T (CONS (*1*HALT (*1*RESERVED-SIGNAL) *3*S) (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*BD-SZ) (QUOTE (SEXPR (LAMBDA (*3*INDEXWD) (*1*BITS *3*INDEXWD (QUOTE 4) (QUOTE 5)))))) (PUT1-LST (QUOTE *1*ADDR-INDEX2) (QUOTE (SEXPR (LAMBDA (*3*PC *3*ADDR *3*INDEXWD *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*LESSP (SETQ *2*TEMP3 (*1*BD-SZ *3*INDEXWD)) (QUOTE 2)) *1*F)) (COND ((EQUAL *2*TEMP3 (QUOTE 0)) (CONS (*1*HALT (*1*RESERVED-SIGNAL) *3*S) (QUOTE NIL))) (T (*1*ADDR-INDEX3 *3*PC *3*ADDR *3*INDEXWD *3*S)))) ((EQUAL *2*TEMP3 (QUOTE 2)) (COND ((NOT (EQ (*1*PC-WORD-READP *3*PC (SETQ *2*TEMP2 (*1*MC-MEM *3*S))) *1*F)) (*1*ADDR-INDEX3 (*1*ADD (SETQ *2*TEMP1 (*1*L)) *3*PC (*1*WSZ)) (*1*ADD *2*TEMP1 *3*ADDR (*1*EXT (*1*W) (*1*PC-WORD-READ *3*PC *2*TEMP2) *2*TEMP1)) *3*INDEXWD *3*S)) (T (CONS (*1*HALT (*1*PC-SIGNAL) *3*S) (QUOTE NIL))))) ((NOT (EQ (*1*PC-LONG-READP *3*PC (SETQ *2*TEMP2 (*1*MC-MEM *3*S))) *1*F)) (*1*ADDR-INDEX3 (*1*ADD (SETQ *2*TEMP1 (*1*L)) *3*PC (*1*LSZ)) (*1*ADD *2*TEMP1 *3*ADDR (*1*PC-LONG-READ *3*PC *2*TEMP2)) *3*INDEXWD *3*S)) (T (CONS (*1*HALT (*1*PC-SIGNAL) *3*S) (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*BS-REGISTER) (QUOTE (SEXPR (LAMBDA (*3*RN *3*INDEXWD *3*S) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INDEXWD (QUOTE 7))) *1*F)) (*1*READ-AN (*1*L) *3*RN *3*S)) (T (QUOTE 0))))))) (PUT1-LST (QUOTE *1*ADDR-INDEX1) (QUOTE (SEXPR (LAMBDA (*3*PC *3*RN *3*INDEXWD *3*S) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INDEXWD (QUOTE 8))) *1*F)) (*1*ADDR-INDEX-DISP *3*PC *3*RN *3*INDEXWD *3*S)) ((NOT (EQ (*1*B0P (*1*BITN *3*INDEXWD (QUOTE 3))) *1*F)) (*1*ADDR-INDEX2 *3*PC (*1*BS-REGISTER *3*RN *3*INDEXWD *3*S) *3*INDEXWD *3*S)) (T (CONS (*1*HALT (*1*RESERVED-SIGNAL) *3*S) (QUOTE NIL)))))))) (PUT1-LST (QUOTE *1*ADDR-INDEX) (QUOTE (SEXPR (LAMBDA (*3*PC *3*RN *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*PC-WORD-READP *3*PC (SETQ *2*TEMP1 (*1*MC-MEM *3*S))) *1*F)) (*1*ADDR-INDEX1 (*1*ADD (*1*L) *3*PC (*1*WSZ)) *3*RN (*1*PC-WORD-READ *3*PC *2*TEMP1) *3*S)) (T (CONS (*1*HALT (*1*PC-SIGNAL) *3*S) (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*ABSOLUTE-SHORT) (QUOTE (SEXPR (LAMBDA (*3*PC *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*PC-WORD-READP *3*PC (SETQ *2*TEMP2 (*1*MC-MEM *3*S))) *1*F)) (CONS (*1*UPDATE-PC (*1*ADD (SETQ *2*TEMP1 (*1*L)) *3*PC (*1*WSZ)) *3*S) (CONS (QUOTE M) (*1*EXT (*1*W) (*1*PC-WORD-READ *3*PC *2*TEMP2) *2*TEMP1)))) (T (CONS (*1*HALT (*1*PC-SIGNAL) *3*S) (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*ABSOLUTE-LONG) (QUOTE (SEXPR (LAMBDA (*3*PC *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*PC-LONG-READP *3*PC (SETQ *2*TEMP1 (*1*MC-MEM *3*S))) *1*F)) (CONS (*1*UPDATE-PC (*1*ADD (*1*L) *3*PC (*1*LSZ)) *3*S) (CONS (QUOTE M) (*1*PC-LONG-READ *3*PC *2*TEMP1)))) (T (CONS (*1*HALT (*1*PC-SIGNAL) *3*S) (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*PC-DISP) (QUOTE (SEXPR (LAMBDA (*3*PC *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*PC-WORD-READP *3*PC (SETQ *2*TEMP2 (*1*MC-MEM *3*S))) *1*F)) (CONS (*1*UPDATE-PC (*1*ADD (SETQ *2*TEMP1 (*1*L)) *3*PC (*1*WSZ)) *3*S) (CONS (QUOTE M) (*1*ADD *2*TEMP1 *3*PC (*1*EXT (*1*W) (*1*PC-WORD-READ *3*PC *2*TEMP2) *2*TEMP1))))) (T (CONS (*1*HALT (*1*PC-SIGNAL) *3*S) (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*PC-INDEX-DISP) (QUOTE (SEXPR (LAMBDA (*3*PC *3*INDEXWD *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (CONS (*1*UPDATE-PC (*1*ADD (SETQ *2*TEMP2 (*1*L)) *3*PC (*1*WSZ)) *3*S) (CONS (QUOTE M) (*1*ADD *2*TEMP2 (*1*ADD *2*TEMP2 *3*PC (*1*EXT (SETQ *2*TEMP1 (*1*B)) (*1*HEAD *3*INDEXWD *2*TEMP1) *2*TEMP2)) (*1*IR-SCALED *3*INDEXWD *3*S))))))))) (PUT1-LST (QUOTE *1*BS-PC) (QUOTE (SEXPR (LAMBDA (*3*PC *3*INDEXWD) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INDEXWD (QUOTE 7))) *1*F)) *3*PC) (T (QUOTE 0))))))) (PUT1-LST (QUOTE *1*PC-INDEX1) (QUOTE (SEXPR (LAMBDA (*3*PC *3*INDEXWD *3*S) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INDEXWD (QUOTE 8))) *1*F)) (*1*PC-INDEX-DISP *3*PC *3*INDEXWD *3*S)) ((NOT (EQ (*1*B0P (*1*BITN *3*INDEXWD (QUOTE 3))) *1*F)) (*1*ADDR-INDEX2 (*1*ADD (*1*L) *3*PC (*1*WSZ)) (*1*BS-PC *3*PC *3*INDEXWD) *3*INDEXWD *3*S)) (T (CONS (*1*HALT (*1*RESERVED-SIGNAL) *3*S) (QUOTE NIL)))))))) (PUT1-LST (QUOTE *1*PC-INDEX) (QUOTE (SEXPR (LAMBDA (*3*PC *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*PC-WORD-READP *3*PC (SETQ *2*TEMP1 (*1*MC-MEM *3*S))) *1*F)) (*1*PC-INDEX1 *3*PC (*1*PC-WORD-READ *3*PC *2*TEMP1) *3*S)) (T (CONS (*1*HALT (*1*PC-SIGNAL) *3*S) (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*IMMEDIATE) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*PC *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((EQUAL *3*OPLEN (*1*B)) (COND ((NOT (EQ (*1*PC-WORD-READP *3*PC (SETQ *2*TEMP3 (*1*MC-MEM *3*S))) *1*F)) (CONS (*1*UPDATE-PC (*1*ADD (SETQ *2*TEMP2 (*1*L)) *3*PC (*1*WSZ)) *3*S) (CONS (QUOTE I) (*1*PC-BYTE-READ (*1*ADD *2*TEMP2 *3*PC (*1*BSZ)) *2*TEMP3)))) (T (CONS (*1*HALT (*1*PC-SIGNAL) *3*S) (QUOTE NIL))))) ((NOT (EQ (*1*PC-READ-MEMP *3*PC (SETQ *2*TEMP3 (*1*MC-MEM *3*S)) (SETQ *2*TEMP1 (*1*OP-SZ *3*OPLEN))) *1*F)) (CONS (*1*UPDATE-PC (*1*ADD (*1*L) *3*PC *2*TEMP1) *3*S) (CONS (QUOTE I) (*1*PC-READ-MEM *3*PC *2*TEMP3 *2*TEMP1)))) (T (CONS (*1*HALT (*1*PC-SIGNAL) *3*S) (QUOTE NIL))))))))) (PUT1-LST (QUOTE *1*EFFEC-ADDR) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*MODE *3*RN *3*S) (LET NIL (COND ((NOT (EQ (*1*LESSP *3*MODE (QUOTE 4)) *1*F)) (COND ((NOT (EQ (*1*LESSP *3*MODE (QUOTE 2)) *1*F)) (COND ((EQUAL *3*MODE (QUOTE 0)) (*1*DN-DIRECT *3*RN *3*S)) (T (*1*AN-DIRECT *3*RN *3*S)))) ((EQUAL *3*MODE (QUOTE 2)) (*1*ADDR-INDIRECT *3*RN *3*S)) (T (*1*ADDR-POSTINC *3*OPLEN *3*RN *3*S)))) ((NOT (EQ (*1*LESSP *3*MODE (QUOTE 6)) *1*F)) (COND ((EQUAL *3*MODE (QUOTE 4)) (*1*ADDR-PREDEC *3*OPLEN *3*RN *3*S)) (T (*1*ADDR-DISP (*1*MC-PC *3*S) *3*RN *3*S)))) ((EQUAL *3*MODE (QUOTE 6)) (*1*ADDR-INDEX (*1*MC-PC *3*S) *3*RN *3*S)) ((NOT (EQ (*1*LESSP *3*RN (QUOTE 4)) *1*F)) (COND ((NOT (EQ (*1*LESSP *3*RN (QUOTE 2)) *1*F)) (COND ((EQUAL *3*RN (QUOTE 0)) (*1*ABSOLUTE-SHORT (*1*MC-PC *3*S) *3*S)) (T (*1*ABSOLUTE-LONG (*1*MC-PC *3*S) *3*S)))) ((EQUAL *3*RN (QUOTE 2)) (*1*PC-DISP (*1*MC-PC *3*S) *3*S)) (T (*1*PC-INDEX (*1*MC-PC *3*S) *3*S)))) (T (*1*IMMEDIATE *3*OPLEN (*1*MC-PC *3*S) *3*S)))))))) (PUT1-LST (QUOTE *1*ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*MODE *3*RN) (COND ((EQUAL *3*MODE (QUOTE 7)) (COND ((NOT (EQ (*1*LESSP (QUOTE 4) *3*RN) *1*F)) (QUOTE *1*FALSE)) (T (QUOTE *1*TRUE)))) (T (QUOTE *1*TRUE))))))) (PUT1-LST (QUOTE *1*DATA-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*MODE *3*RN) (COND ((EQUAL *3*MODE (QUOTE 7)) (COND ((NOT (EQ (*1*LESSP (QUOTE 4) *3*RN) *1*F)) (QUOTE *1*FALSE)) (T (QUOTE *1*TRUE)))) (T (*1*NOT (COND ((EQUAL *3*MODE (QUOTE 1)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))))))))) (PUT1-LST (QUOTE *1*MEMORY-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*MODE *3*RN) (COND ((EQUAL *3*MODE (QUOTE 7)) (COND ((NOT (EQ (*1*LESSP (QUOTE 4) *3*RN) *1*F)) (QUOTE *1*FALSE)) (T (QUOTE *1*TRUE)))) ((NOT (EQ (*1*LESSP *3*MODE (QUOTE 2)) *1*F)) (QUOTE *1*FALSE)) (T (QUOTE *1*TRUE))))))) (PUT1-LST (QUOTE *1*CONTROL-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*MODE *3*RN) (COND ((EQUAL *3*MODE (QUOTE 7)) (COND ((NOT (EQ (*1*LESSP (QUOTE 3) *3*RN) *1*F)) (QUOTE *1*FALSE)) (T (QUOTE *1*TRUE)))) (T (*1*OR (COND ((EQUAL *3*MODE (QUOTE 2)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((NOT (EQ (*1*LESSP *3*MODE (QUOTE 5)) *1*F)) (QUOTE *1*FALSE)) (T (QUOTE *1*TRUE)))))))))) (PUT1-LST (QUOTE *1*ALTERABLE-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*MODE *3*RN) (*1*OR (*1*NOT (COND ((EQUAL *3*MODE (QUOTE 7)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) (*1*OR (COND ((EQUAL *3*RN (QUOTE 0)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQUAL *3*RN (QUOTE 1)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))))) (PUT1-LST (QUOTE *1*DN-DIRECT-MODEP) (QUOTE (SEXPR (LAMBDA (*3*MODE) (COND ((EQUAL *3*MODE (QUOTE 0)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))) (PUT1-LST (QUOTE *1*AN-DIRECT-MODEP) (QUOTE (SEXPR (LAMBDA (*3*MODE) (COND ((EQUAL *3*MODE (QUOTE 1)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))) (PUT1-LST (QUOTE *1*POSTINC-MODEP) (QUOTE (SEXPR (LAMBDA (*3*MODE) (COND ((EQUAL *3*MODE (QUOTE 3)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))) (PUT1-LST (QUOTE *1*PREDEC-MODEP) (QUOTE (SEXPR (LAMBDA (*3*MODE) (COND ((EQUAL *3*MODE (QUOTE 4)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))))))) (PUT1-LST (QUOTE *1*IDATA-MODEP) (QUOTE (SEXPR (LAMBDA (*3*MODE *3*RN) (*1*AND (COND ((EQUAL *3*MODE (QUOTE 7)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (COND ((EQUAL *3*RN (QUOTE 4)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))))))) (PUT1-LST (QUOTE *1*BYTE-AN-DIRECT-MODEP) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*MODE) (*1*AND (COND ((EQUAL *3*OPLEN (*1*B)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*AN-DIRECT-MODEP *3*MODE)))))) (PUT1-LST (QUOTE *1*MC-INSTATE) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((EQ (*1*CAR (SETQ *2*TEMP2 (*1*CDR (SETQ *2*TEMP1 (*1*EFFEC-ADDR *3*OPLEN (*1*S_MODE *3*INS) (*1*S_RN *3*INS) *3*S))))) (QUOTE M)) (COND ((NOT (EQ (*1*READ-MEMP (*1*CDR *2*TEMP2) (*1*MC-MEM *3*S) (*1*OP-SZ *3*OPLEN)) *1*F)) *2*TEMP1) (T (CONS (*1*HALT (*1*READ-SIGNAL) *3*S) (QUOTE NIL))))) (T *2*TEMP1))))))) (PUT1-LST (QUOTE *1*D-MAPPING) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*V&CVZNX *3*ADDR *3*S) (*1*MC-STATE (*1*MC-STATUS *3*S) (*1*WRITE-RN *3*OPLEN (*1*CAR *3*V&CVZNX) *3*ADDR (*1*MC-RFILE *3*S)) (*1*MC-PC *3*S) (*1*SET-CVZNX (*1*CDR *3*V&CVZNX) (*1*MC-CCR *3*S)) (*1*MC-MEM *3*S)))))) (PUT1-LST (QUOTE *1*A-MAPPING) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*V&CVZNX *3*ADDR *3*S) (*1*MC-STATE (*1*MC-STATUS *3*S) (*1*WRITE-RN *3*OPLEN (*1*CAR *3*V&CVZNX) (*1*PLUS (QUOTE 8) *3*ADDR) (*1*MC-RFILE *3*S)) (*1*MC-PC *3*S) (*1*SET-CVZNX (*1*CDR *3*V&CVZNX) (*1*MC-CCR *3*S)) (*1*MC-MEM *3*S)))))) (PUT1-LST (QUOTE *1*M-MAPPING) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*V&CVZNX *3*ADDR *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*WRITE-MEMP *3*ADDR (SETQ *2*TEMP2 (*1*MC-MEM *3*S)) (SETQ *2*TEMP1 (*1*OP-SZ *3*OPLEN))) *1*F)) (*1*MC-STATE (*1*MC-STATUS *3*S) (*1*MC-RFILE *3*S) (*1*MC-PC *3*S) (*1*SET-CVZNX (*1*CDR *3*V&CVZNX) (*1*MC-CCR *3*S)) (*1*WRITE-MEM (*1*CAR *3*V&CVZNX) *3*ADDR *2*TEMP2 *2*TEMP1))) (T (*1*HALT (*1*WRITE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*MAPPING) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*V&CVZNX *3*S&ADDR) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((EQ (SETQ *2*TEMP2 (*1*CAR (SETQ *2*TEMP1 (*1*CDR *3*S&ADDR)))) (QUOTE D)) (*1*D-MAPPING *3*OPLEN *3*V&CVZNX (*1*CDR *2*TEMP1) (*1*CAR *3*S&ADDR))) ((EQ *2*TEMP2 (QUOTE A)) (*1*A-MAPPING *3*OPLEN *3*V&CVZNX (*1*CDR *2*TEMP1) (*1*CAR *3*S&ADDR))) (T (*1*M-MAPPING *3*OPLEN *3*V&CVZNX (*1*CDR *2*TEMP1) (*1*CAR *3*S&ADDR))))))))) (PUT1-LST (QUOTE *1*ADD-C) (QUOTE (SEXPR (LAMBDA (*3*N *3*SOPD *3*DOPD) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (*1*B-OR (*1*B-OR (*1*B-AND (SETQ *2*TEMP3 (*1*MBIT *3*SOPD *3*N)) (SETQ *2*TEMP2 (*1*MBIT *3*DOPD *3*N))) (*1*B-AND (SETQ *2*TEMP1 (*1*B-NOT (*1*MBIT (*1*ADD *3*N *3*SOPD *3*DOPD) *3*N))) *2*TEMP2)) (*1*B-AND *2*TEMP3 *2*TEMP1))))))) (PUT1-LST (QUOTE *1*ADD-V) (QUOTE (SEXPR (LAMBDA (*3*N *3*SOPD *3*DOPD) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (*1*B-OR (*1*B-AND (*1*B-AND (SETQ *2*TEMP3 (*1*MBIT *3*SOPD *3*N)) (SETQ *2*TEMP2 (*1*MBIT *3*DOPD *3*N))) (*1*B-NOT (SETQ *2*TEMP1 (*1*MBIT (*1*ADD *3*N *3*SOPD *3*DOPD) *3*N)))) (*1*B-AND (*1*B-AND (*1*B-NOT *2*TEMP3) (*1*B-NOT *2*TEMP2)) *2*TEMP1))))))) (PUT1-LST (QUOTE *1*ADD-Z) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*SOPD *3*DOPD) (COND ((EQUAL (*1*ADD *3*OPLEN *3*DOPD *3*SOPD) (QUOTE 0)) (*1*B1)) (T (*1*B0))))))) (PUT1-LST (QUOTE *1*ADD-N) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*SOPD *3*DOPD) (*1*MBIT (*1*ADD *3*OPLEN *3*DOPD *3*SOPD) *3*OPLEN))))) (PUT1-LST (QUOTE *1*ADD-CVZNX) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*SOPD *3*DOPD) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*CVZNX (SETQ *2*TEMP1 (*1*ADD-C *3*OPLEN *3*SOPD *3*DOPD)) (*1*ADD-V *3*OPLEN *3*SOPD *3*DOPD) (*1*ADD-Z *3*OPLEN *3*SOPD *3*DOPD) (*1*ADD-N *3*OPLEN *3*SOPD *3*DOPD) *2*TEMP1)))))) (PUT1-LST (QUOTE *1*ADD-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*SOPD *3*DOPD) (CONS (*1*ADD *3*OPLEN *3*DOPD *3*SOPD) (*1*ADD-CVZNX *3*OPLEN *3*SOPD *3*DOPD)))))) (PUT1-LST (QUOTE *1*ADD-ADDR-MODEP1) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*AND (*1*ADDR-MODEP (SETQ *2*TEMP1 (*1*S_MODE *3*INS)) (*1*S_RN *3*INS)) (*1*NOT (*1*BYTE-AN-DIRECT-MODEP *3*OPLEN *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*ADD-ADDR-MODEP2) (QUOTE (SEXPR (LAMBDA (*3*INS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*AND (*1*ALTERABLE-ADDR-MODEP (SETQ *2*TEMP2 (*1*S_MODE *3*INS)) (SETQ *2*TEMP1 (*1*S_RN *3*INS))) (*1*MEMORY-ADDR-MODEP *2*TEMP2 *2*TEMP1))))))) (PUT1-LST (QUOTE *1*ADD-INS1) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ADD-ADDR-MODEP1 *3*OPLEN *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*MC-INSTATE *3*OPLEN *3*INS *3*S))))) *1*F)) *2*TEMP3) (T (*1*D-MAPPING *3*OPLEN (*1*ADD-EFFECT *3*OPLEN (*1*OPERAND *3*OPLEN (*1*CDR *2*TEMP2) *3*S) (*1*READ-DN *3*OPLEN (SETQ *2*TEMP1 (*1*D_RN *3*INS)) *3*S)) *2*TEMP1 *2*TEMP3)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*ADD-MAPPING) (QUOTE (SEXPR (LAMBDA (*3*OPD *3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP2 (*1*CAR (SETQ *2*TEMP1 (*1*MC-INSTATE *3*OPLEN *3*INS *3*S))))) *1*F)) *2*TEMP2) (T (*1*MAPPING *3*OPLEN (*1*ADD-EFFECT *3*OPLEN *3*OPD (*1*OPERAND *3*OPLEN (*1*CDR *2*TEMP1) *3*S)) *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*ADD-INS2) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (COND ((NOT (EQ (*1*ADD-ADDR-MODEP2 *3*INS) *1*F)) (*1*ADD-MAPPING (*1*READ-DN *3*OPLEN (*1*D_RN *3*INS) *3*S) *3*OPLEN *3*INS *3*S)) (T (*1*HALT (*1*MODE-SIGNAL) *3*S))))))) (PUT1-LST (QUOTE *1*ADDA-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*INS) (*1*ADDR-MODEP (*1*S_MODE *3*INS) (*1*S_RN *3*INS)))))) (PUT1-LST (QUOTE *1*ADDA-INS) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ADDA-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP4 (*1*CAR (SETQ *2*TEMP3 (*1*MC-INSTATE *3*OPLEN *3*INS *3*S))))) *1*F)) *2*TEMP4) (T (*1*WRITE-AN (SETQ *2*TEMP2 (*1*L)) (*1*ADD *2*TEMP2 (*1*READ-AN *2*TEMP2 (SETQ *2*TEMP1 (*1*D_RN *3*INS)) *2*TEMP4) (*1*EXT *3*OPLEN (*1*OPERAND *3*OPLEN (*1*CDR *2*TEMP3) *3*S) *2*TEMP2)) *2*TEMP1 *2*TEMP4)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*ADDX-C) (QUOTE (SEXPR (LAMBDA (*3*N *3*X *3*SOPD *3*DOPD) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (*1*B-OR (*1*B-OR (*1*B-AND (SETQ *2*TEMP3 (*1*MBIT *3*SOPD *3*N)) (SETQ *2*TEMP2 (*1*MBIT *3*DOPD *3*N))) (*1*B-AND (SETQ *2*TEMP1 (*1*B-NOT (*1*MBIT (*1*ADDER *3*N *3*X *3*SOPD *3*DOPD) *3*N))) *2*TEMP2)) (*1*B-AND *2*TEMP3 *2*TEMP1))))))) (PUT1-LST (QUOTE *1*ADDX-V) (QUOTE (SEXPR (LAMBDA (*3*N *3*X *3*SOPD *3*DOPD) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (*1*B-OR (*1*B-AND (*1*B-AND (SETQ *2*TEMP3 (*1*MBIT *3*SOPD *3*N)) (SETQ *2*TEMP2 (*1*MBIT *3*DOPD *3*N))) (*1*B-NOT (SETQ *2*TEMP1 (*1*MBIT (*1*ADDER *3*N *3*X *3*SOPD *3*DOPD) *3*N)))) (*1*B-AND (*1*B-AND (*1*B-NOT *2*TEMP3) (*1*B-NOT *2*TEMP2)) *2*TEMP1))))))) (PUT1-LST (QUOTE *1*ADDX-Z) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*Z *3*X *3*SOPD *3*DOPD) (*1*B-AND *3*Z (COND ((EQUAL (*1*ADDER *3*OPLEN *3*X *3*DOPD *3*SOPD) (QUOTE 0)) (*1*B1)) (T (*1*B0)))))))) (PUT1-LST (QUOTE *1*ADDX-N) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*X *3*SOPD *3*DOPD) (*1*MBIT (*1*ADDER *3*OPLEN *3*X *3*DOPD *3*SOPD) *3*OPLEN))))) (PUT1-LST (QUOTE *1*ADDX-CVZNX) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*Z *3*X *3*SOPD *3*DOPD) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*CVZNX (SETQ *2*TEMP1 (*1*ADDX-C *3*OPLEN *3*X *3*SOPD *3*DOPD)) (*1*ADDX-V *3*OPLEN *3*X *3*SOPD *3*DOPD) (*1*ADDX-Z *3*OPLEN *3*Z *3*X *3*SOPD *3*DOPD) (*1*ADDX-N *3*OPLEN *3*X *3*SOPD *3*DOPD) *2*TEMP1)))))) (PUT1-LST (QUOTE *1*ADDX-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*SOPD *3*DOPD *3*CCR) (LET ((*2*TEMP1 (QUOTE *1*X))) (CONS (*1*ADDER *3*OPLEN (SETQ *2*TEMP1 (*1*CCR-X *3*CCR)) *3*DOPD *3*SOPD) (*1*ADDX-CVZNX *3*OPLEN (*1*CCR-Z *3*CCR) *2*TEMP1 *3*SOPD *3*DOPD))))))) (PUT1-LST (QUOTE *1*ADDX-INS1) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*D-MAPPING *3*OPLEN (*1*ADDX-EFFECT *3*OPLEN (*1*READ-DN *3*OPLEN (*1*S_RN *3*INS) *3*S) (*1*READ-DN *3*OPLEN (SETQ *2*TEMP1 (*1*D_RN *3*INS)) *3*S) (*1*MC-CCR *3*S)) *2*TEMP1 *3*S)))))) (PUT1-LST (QUOTE *1*ADDX-INS2) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X))) (COND ((NOT (EQ (*1*READ-MEMP (*1*CDR (SETQ *2*TEMP7 (*1*CDR (SETQ *2*TEMP6 (*1*ADDR-PREDEC *3*OPLEN (*1*S_RN *3*INS) *3*S))))) (SETQ *2*TEMP5 (*1*MC-MEM *3*S)) (SETQ *2*TEMP4 (*1*OP-SZ *3*OPLEN))) *1*F)) (COND ((NOT (EQ (*1*READ-MEMP (*1*CDR (SETQ *2*TEMP3 (*1*CDR (SETQ *2*TEMP2 (*1*ADDR-PREDEC *3*OPLEN (*1*D_RN *3*INS) (SETQ *2*TEMP1 (*1*CAR *2*TEMP6))))))) *2*TEMP5 *2*TEMP4) *1*F)) (*1*MAPPING *3*OPLEN (*1*ADDX-EFFECT *3*OPLEN (*1*OPERAND *3*OPLEN *2*TEMP7 *2*TEMP1) (*1*OPERAND *3*OPLEN *2*TEMP3 (*1*CAR *2*TEMP2)) (*1*MC-CCR *3*S)) *2*TEMP2)) (T (*1*HALT (*1*READ-SIGNAL) *3*S)))) (T (*1*HALT (*1*READ-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*ADD-GROUP) (QUOTE (SEXPR (LAMBDA (*3*OPMODE *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*LESSP *3*OPMODE (QUOTE 4)) *1*F)) (COND ((EQUAL *3*OPMODE (QUOTE 3)) (*1*ADDA-INS (*1*W) *3*INS *3*S)) (T (*1*ADD-INS1 (*1*OP-LEN *3*INS) *3*INS *3*S)))) ((EQUAL *3*OPMODE (QUOTE 7)) (*1*ADDA-INS (*1*L) *3*INS *3*S)) ((EQUAL (SETQ *2*TEMP1 (*1*S_MODE *3*INS)) (QUOTE 0)) (*1*ADDX-INS1 (*1*OP-LEN *3*INS) *3*INS *3*S)) ((EQUAL *2*TEMP1 (QUOTE 1)) (*1*ADDX-INS2 (*1*OP-LEN *3*INS) *3*INS *3*S)) (T (*1*ADD-INS2 (*1*OP-LEN *3*INS) *3*INS *3*S)))))))) (PUT1-LST (QUOTE *1*SUB-C) (QUOTE (SEXPR (LAMBDA (*3*N *3*SOPD *3*DOPD) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (*1*B-OR (*1*B-OR (*1*B-AND (SETQ *2*TEMP3 (*1*MBIT *3*SOPD *3*N)) (SETQ *2*TEMP2 (*1*B-NOT (*1*MBIT *3*DOPD *3*N)))) (*1*B-AND (SETQ *2*TEMP1 (*1*MBIT (*1*SUB *3*N *3*SOPD *3*DOPD) *3*N)) *2*TEMP2)) (*1*B-AND *2*TEMP3 *2*TEMP1))))))) (PUT1-LST (QUOTE *1*SUB-V) (QUOTE (SEXPR (LAMBDA (*3*N *3*SOPD *3*DOPD) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (*1*B-OR (*1*B-AND (*1*B-AND (*1*B-NOT (SETQ *2*TEMP3 (*1*MBIT *3*SOPD *3*N))) (SETQ *2*TEMP2 (*1*MBIT *3*DOPD *3*N))) (*1*B-NOT (SETQ *2*TEMP1 (*1*MBIT (*1*SUB *3*N *3*SOPD *3*DOPD) *3*N)))) (*1*B-AND (*1*B-AND *2*TEMP3 (*1*B-NOT *2*TEMP2)) *2*TEMP1))))))) (PUT1-LST (QUOTE *1*SUB-Z) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*SOPD *3*DOPD) (COND ((EQUAL (*1*SUB *3*OPLEN *3*SOPD *3*DOPD) (QUOTE 0)) (*1*B1)) (T (*1*B0))))))) (PUT1-LST (QUOTE *1*SUB-N) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*SOPD *3*DOPD) (*1*MBIT (*1*SUB *3*OPLEN *3*SOPD *3*DOPD) *3*OPLEN))))) (PUT1-LST (QUOTE *1*SUB-CVZNX) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*SOPD *3*DOPD) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*CVZNX (SETQ *2*TEMP1 (*1*SUB-C *3*OPLEN *3*SOPD *3*DOPD)) (*1*SUB-V *3*OPLEN *3*SOPD *3*DOPD) (*1*SUB-Z *3*OPLEN *3*SOPD *3*DOPD) (*1*SUB-N *3*OPLEN *3*SOPD *3*DOPD) *2*TEMP1)))))) (PUT1-LST (QUOTE *1*SUB-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*SOPD *3*DOPD) (CONS (*1*SUB *3*OPLEN *3*SOPD *3*DOPD) (*1*SUB-CVZNX *3*OPLEN *3*SOPD *3*DOPD)))))) (PUT1-LST (QUOTE *1*SUB-ADDR-MODEP1) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*AND (*1*ADDR-MODEP (SETQ *2*TEMP1 (*1*S_MODE *3*INS)) (*1*S_RN *3*INS)) (*1*NOT (*1*BYTE-AN-DIRECT-MODEP *3*OPLEN *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*SUB-ADDR-MODEP2) (QUOTE (SEXPR (LAMBDA (*3*INS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*AND (*1*ALTERABLE-ADDR-MODEP (SETQ *2*TEMP2 (*1*S_MODE *3*INS)) (SETQ *2*TEMP1 (*1*S_RN *3*INS))) (*1*MEMORY-ADDR-MODEP *2*TEMP2 *2*TEMP1))))))) (PUT1-LST (QUOTE *1*SUB-INS1) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*SUB-ADDR-MODEP1 *3*OPLEN *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*MC-INSTATE *3*OPLEN *3*INS *3*S))))) *1*F)) *2*TEMP3) (T (*1*D-MAPPING *3*OPLEN (*1*SUB-EFFECT *3*OPLEN (*1*OPERAND *3*OPLEN (*1*CDR *2*TEMP2) *3*S) (*1*READ-DN *3*OPLEN (SETQ *2*TEMP1 (*1*D_RN *3*INS)) *3*S)) *2*TEMP1 *2*TEMP3)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*SUB-MAPPING) (QUOTE (SEXPR (LAMBDA (*3*OPD *3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP2 (*1*CAR (SETQ *2*TEMP1 (*1*MC-INSTATE *3*OPLEN *3*INS *3*S))))) *1*F)) *2*TEMP2) (T (*1*MAPPING *3*OPLEN (*1*SUB-EFFECT *3*OPLEN *3*OPD (*1*OPERAND *3*OPLEN (*1*CDR *2*TEMP1) *3*S)) *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*SUB-INS2) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (COND ((NOT (EQ (*1*SUB-ADDR-MODEP2 *3*INS) *1*F)) (*1*SUB-MAPPING (*1*READ-DN *3*OPLEN (*1*D_RN *3*INS) *3*S) *3*OPLEN *3*INS *3*S)) (T (*1*HALT (*1*MODE-SIGNAL) *3*S))))))) (PUT1-LST (QUOTE *1*SUBA-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*INS) (*1*ADDR-MODEP (*1*S_MODE *3*INS) (*1*S_RN *3*INS)))))) (PUT1-LST (QUOTE *1*SUBA-INS) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X))) (COND ((NOT (EQ (*1*SUBA-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP4 (*1*CAR (SETQ *2*TEMP3 (*1*MC-INSTATE *3*OPLEN *3*INS *3*S))))) *1*F)) *2*TEMP4) (T (*1*WRITE-AN (SETQ *2*TEMP2 (*1*L)) (*1*SUB *2*TEMP2 (*1*EXT *3*OPLEN (*1*OPERAND *3*OPLEN (*1*CDR *2*TEMP3) *3*S) *2*TEMP2) (*1*READ-AN *2*TEMP2 (SETQ *2*TEMP1 (*1*D_RN *3*INS)) *2*TEMP4)) *2*TEMP1 *2*TEMP4)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*SUBX-C) (QUOTE (SEXPR (LAMBDA (*3*N *3*X *3*SOPD *3*DOPD) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (*1*B-OR (*1*B-OR (*1*B-AND (SETQ *2*TEMP3 (*1*MBIT *3*SOPD *3*N)) (SETQ *2*TEMP2 (*1*B-NOT (*1*MBIT *3*DOPD *3*N)))) (*1*B-AND (SETQ *2*TEMP1 (*1*MBIT (*1*SUBTRACTER *3*N *3*X *3*SOPD *3*DOPD) *3*N)) *2*TEMP2)) (*1*B-AND *2*TEMP3 *2*TEMP1))))))) (PUT1-LST (QUOTE *1*SUBX-V) (QUOTE (SEXPR (LAMBDA (*3*N *3*X *3*SOPD *3*DOPD) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (*1*B-OR (*1*B-AND (*1*B-AND (*1*B-NOT (SETQ *2*TEMP3 (*1*MBIT *3*SOPD *3*N))) (SETQ *2*TEMP2 (*1*MBIT *3*DOPD *3*N))) (*1*B-NOT (SETQ *2*TEMP1 (*1*MBIT (*1*SUBTRACTER *3*N *3*X *3*SOPD *3*DOPD) *3*N)))) (*1*B-AND (*1*B-AND *2*TEMP3 (*1*B-NOT *2*TEMP2)) *2*TEMP1))))))) (PUT1-LST (QUOTE *1*SUBX-Z) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*Z *3*X *3*SOPD *3*DOPD) (*1*B-AND *3*Z (COND ((EQUAL (*1*SUBTRACTER *3*OPLEN *3*X *3*SOPD *3*DOPD) (QUOTE 0)) (*1*B1)) (T (*1*B0)))))))) (PUT1-LST (QUOTE *1*SUBX-N) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*X *3*SOPD *3*DOPD) (*1*MBIT (*1*SUBTRACTER *3*OPLEN *3*X *3*SOPD *3*DOPD) *3*OPLEN))))) (PUT1-LST (QUOTE *1*SUBX-CVZNX) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*Z *3*X *3*SOPD *3*DOPD) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*CVZNX (SETQ *2*TEMP1 (*1*SUBX-C *3*OPLEN *3*X *3*SOPD *3*DOPD)) (*1*SUBX-V *3*OPLEN *3*X *3*SOPD *3*DOPD) (*1*SUBX-Z *3*OPLEN *3*Z *3*X *3*SOPD *3*DOPD) (*1*SUBX-N *3*OPLEN *3*X *3*SOPD *3*DOPD) *2*TEMP1)))))) (PUT1-LST (QUOTE *1*SUBX-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*SOPD *3*DOPD *3*CCR) (LET ((*2*TEMP1 (QUOTE *1*X))) (CONS (*1*SUBTRACTER *3*OPLEN (SETQ *2*TEMP1 (*1*CCR-X *3*CCR)) *3*SOPD *3*DOPD) (*1*SUBX-CVZNX *3*OPLEN (*1*CCR-Z *3*CCR) *2*TEMP1 *3*SOPD *3*DOPD))))))) (PUT1-LST (QUOTE *1*SUBX-INS1) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*D-MAPPING *3*OPLEN (*1*SUBX-EFFECT *3*OPLEN (*1*READ-DN *3*OPLEN (*1*S_RN *3*INS) *3*S) (*1*READ-DN *3*OPLEN (SETQ *2*TEMP1 (*1*D_RN *3*INS)) *3*S) (*1*MC-CCR *3*S)) *2*TEMP1 *3*S)))))) (PUT1-LST (QUOTE *1*SUBX-INS2) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X))) (COND ((NOT (EQ (*1*READ-MEMP (*1*CDR (SETQ *2*TEMP7 (*1*CDR (SETQ *2*TEMP6 (*1*ADDR-PREDEC *3*OPLEN (*1*S_RN *3*INS) *3*S))))) (SETQ *2*TEMP5 (*1*MC-MEM *3*S)) (SETQ *2*TEMP4 (*1*OP-SZ *3*OPLEN))) *1*F)) (COND ((NOT (EQ (*1*READ-MEMP (*1*CDR (SETQ *2*TEMP3 (*1*CDR (SETQ *2*TEMP2 (*1*ADDR-PREDEC *3*OPLEN (*1*D_RN *3*INS) (SETQ *2*TEMP1 (*1*CAR *2*TEMP6))))))) *2*TEMP5 *2*TEMP4) *1*F)) (*1*MAPPING *3*OPLEN (*1*SUBX-EFFECT *3*OPLEN (*1*OPERAND *3*OPLEN *2*TEMP7 *2*TEMP1) (*1*OPERAND *3*OPLEN *2*TEMP3 (*1*CAR *2*TEMP2)) (*1*MC-CCR *3*S)) *2*TEMP2)) (T (*1*HALT (*1*READ-SIGNAL) *3*S)))) (T (*1*HALT (*1*READ-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*SUB-GROUP) (QUOTE (SEXPR (LAMBDA (*3*OPMODE *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*LESSP *3*OPMODE (QUOTE 4)) *1*F)) (COND ((EQUAL *3*OPMODE (QUOTE 3)) (*1*SUBA-INS (*1*W) *3*INS *3*S)) (T (*1*SUB-INS1 (*1*OP-LEN *3*INS) *3*INS *3*S)))) ((EQUAL *3*OPMODE (QUOTE 7)) (*1*SUBA-INS (*1*L) *3*INS *3*S)) ((EQUAL (SETQ *2*TEMP1 (*1*S_MODE *3*INS)) (QUOTE 0)) (*1*SUBX-INS1 (*1*OP-LEN *3*INS) *3*INS *3*S)) ((EQUAL *2*TEMP1 (QUOTE 1)) (*1*SUBX-INS2 (*1*OP-LEN *3*INS) *3*INS *3*S)) (T (*1*SUB-INS2 (*1*OP-LEN *3*INS) *3*INS *3*S)))))))) (PUT1-LST (QUOTE *1*AND-Z) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*SOPD *3*DOPD) (PROGN *3*OPLEN (COND ((EQUAL (*1*LOGAND *3*SOPD *3*DOPD) (QUOTE 0)) (*1*B1)) (T (*1*B0)))))))) (PUT1-LST (QUOTE *1*AND-N) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*SOPD *3*DOPD) (*1*MBIT (*1*LOGAND *3*SOPD *3*DOPD) *3*OPLEN))))) (PUT1-LST (QUOTE *1*AND-CVZNX) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*SOPD *3*DOPD *3*CCR) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*CVZNX (SETQ *2*TEMP1 (*1*B0)) *2*TEMP1 (*1*AND-Z *3*OPLEN *3*SOPD *3*DOPD) (*1*AND-N *3*OPLEN *3*SOPD *3*DOPD) (*1*CCR-X *3*CCR))))))) (PUT1-LST (QUOTE *1*AND-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*SOPD *3*DOPD *3*CCR) (CONS (*1*LOGAND *3*SOPD *3*DOPD) (*1*AND-CVZNX *3*OPLEN *3*SOPD *3*DOPD *3*CCR)))))) (PUT1-LST (QUOTE *1*AND-ADDR-MODEP1) (QUOTE (SEXPR (LAMBDA (*3*INS) (*1*DATA-ADDR-MODEP (*1*S_MODE *3*INS) (*1*S_RN *3*INS)))))) (PUT1-LST (QUOTE *1*AND-ADDR-MODEP2) (QUOTE (SEXPR (LAMBDA (*3*INS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*AND (*1*ALTERABLE-ADDR-MODEP (SETQ *2*TEMP2 (*1*S_MODE *3*INS)) (SETQ *2*TEMP1 (*1*S_RN *3*INS))) (*1*MEMORY-ADDR-MODEP *2*TEMP2 *2*TEMP1))))))) (PUT1-LST (QUOTE *1*AND-INS1) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*AND-ADDR-MODEP1 *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*MC-INSTATE *3*OPLEN *3*INS *3*S))))) *1*F)) *2*TEMP3) (T (*1*D-MAPPING *3*OPLEN (*1*AND-EFFECT *3*OPLEN (*1*OPERAND *3*OPLEN (*1*CDR *2*TEMP2) *3*S) (*1*READ-DN *3*OPLEN (SETQ *2*TEMP1 (*1*D_RN *3*INS)) *3*S) (*1*MC-CCR *3*S)) *2*TEMP1 *2*TEMP3)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*AND-MAPPING) (QUOTE (SEXPR (LAMBDA (*3*SOPD *3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP2 (*1*CAR (SETQ *2*TEMP1 (*1*MC-INSTATE *3*OPLEN *3*INS *3*S))))) *1*F)) *2*TEMP2) (T (*1*MAPPING *3*OPLEN (*1*AND-EFFECT *3*OPLEN *3*SOPD (*1*OPERAND *3*OPLEN (*1*CDR *2*TEMP1) *3*S) (*1*MC-CCR *3*S)) *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*AND-INS2) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (COND ((NOT (EQ (*1*AND-ADDR-MODEP2 *3*INS) *1*F)) (*1*AND-MAPPING (*1*READ-DN *3*OPLEN (*1*D_RN *3*INS) *3*S) *3*OPLEN *3*INS *3*S)) (T (*1*HALT (*1*MODE-SIGNAL) *3*S))))))) (PUT1-LST (QUOTE *1*MULU) (QUOTE (SEXPR (LAMBDA (*3*N *3*X *3*Y *3*I) (PROGN *3*I (*1*HEAD (*1*TIMES *3*X *3*Y) *3*N)))))) (PUT1-LST (QUOTE *1*MULS) (QUOTE (SEXPR (LAMBDA (*3*N *3*X *3*Y *3*I) (*1*HEAD (*1*INT-TO-NAT (*1*ITIMES (*1*NAT-TO-INT *3*X *3*I) (*1*NAT-TO-INT *3*Y *3*I)) (*1*TIMES (QUOTE 2) *3*I)) *3*N))))) (PUT1-LST (QUOTE *1*MUL&DIV-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*INS) (*1*DATA-ADDR-MODEP (*1*S_MODE *3*INS) (*1*S_RN *3*INS)))))) (PUT1-LST (QUOTE *1*MULU-V) (QUOTE (SEXPR (LAMBDA (*3*N *3*SOPD *3*DOPD *3*I) (PROGN *3*I (COND ((NOT (EQ (*1*LESSP (*1*TIMES *3*SOPD *3*DOPD) (*1*EXP (QUOTE 2) *3*N)) *1*F)) (*1*B0)) (T (*1*B1)))))))) (PUT1-LST (QUOTE *1*MULU-Z) (QUOTE (SEXPR (LAMBDA (*3*N *3*SOPD *3*DOPD *3*I) (COND ((EQUAL (*1*MULU *3*N *3*SOPD *3*DOPD *3*I) (QUOTE 0)) (*1*B1)) (T (*1*B0))))))) (PUT1-LST (QUOTE *1*MULU-N) (QUOTE (SEXPR (LAMBDA (*3*N *3*SOPD *3*DOPD *3*I) (*1*MBIT (*1*MULU *3*N *3*SOPD *3*DOPD *3*I) *3*N))))) (PUT1-LST (QUOTE *1*MULU-CVZNX) (QUOTE (SEXPR (LAMBDA (*3*N *3*SOPD *3*DOPD *3*I *3*CCR) (*1*CVZNX (*1*B0) (*1*MULU-V *3*N *3*SOPD *3*DOPD *3*I) (*1*MULU-Z *3*N *3*SOPD *3*DOPD *3*I) (*1*MULU-N *3*N *3*SOPD *3*DOPD *3*I) (*1*CCR-X *3*CCR)))))) (PUT1-LST (QUOTE *1*MULU_W-INS) (QUOTE (SEXPR (LAMBDA (*3*SOPD *3*DN *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (*1*UPDATE-CCR (*1*MULU-CVZNX (SETQ *2*TEMP3 (*1*L)) *3*SOPD (SETQ *2*TEMP2 (*1*READ-DN (SETQ *2*TEMP1 (*1*W)) *3*DN *3*S)) *2*TEMP1 (*1*MC-CCR *3*S)) (*1*WRITE-DN *2*TEMP3 (*1*MULU *2*TEMP3 *3*SOPD *2*TEMP2 *2*TEMP1) *3*DN *3*S))))))) (PUT1-LST (QUOTE *1*MULS-V) (QUOTE (SEXPR (LAMBDA (*3*N *3*SOPD *3*DOPD *3*I) (COND ((NOT (EQ (*1*INT-RANGEP (*1*ITIMES (*1*NAT-TO-INT *3*SOPD *3*I) (*1*NAT-TO-INT *3*DOPD *3*I)) *3*N) *1*F)) (*1*B0)) (T (*1*B1))))))) (PUT1-LST (QUOTE *1*MULS-Z) (QUOTE (SEXPR (LAMBDA (*3*N *3*SOPD *3*DOPD *3*I) (COND ((EQUAL (*1*MULS *3*N *3*SOPD *3*DOPD *3*I) (QUOTE 0)) (*1*B1)) (T (*1*B0))))))) (PUT1-LST (QUOTE *1*MULS-N) (QUOTE (SEXPR (LAMBDA (*3*N *3*SOPD *3*DOPD *3*I) (*1*MBIT (*1*MULS *3*N *3*SOPD *3*DOPD *3*I) *3*N))))) (PUT1-LST (QUOTE *1*MULS-CVZNX) (QUOTE (SEXPR (LAMBDA (*3*N *3*SOPD *3*DOPD *3*I *3*CCR) (*1*CVZNX (*1*B0) (*1*MULS-V *3*N *3*SOPD *3*DOPD *3*I) (*1*MULS-Z *3*N *3*SOPD *3*DOPD *3*I) (*1*MULS-N *3*N *3*SOPD *3*DOPD *3*I) (*1*CCR-X *3*CCR)))))) (PUT1-LST (QUOTE *1*MULS_W-INS) (QUOTE (SEXPR (LAMBDA (*3*SOPD *3*DN *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (*1*UPDATE-CCR (*1*MULS-CVZNX (SETQ *2*TEMP3 (*1*L)) *3*SOPD (SETQ *2*TEMP2 (*1*READ-DN (SETQ *2*TEMP1 (*1*W)) *3*DN *3*S)) *2*TEMP1 (*1*MC-CCR *3*S)) (*1*WRITE-DN *2*TEMP3 (*1*MULS *2*TEMP3 *3*SOPD *2*TEMP2 *2*TEMP1) *3*DN *3*S))))))) (PUT1-LST (QUOTE *1*EXG-DRDR-INS) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (*1*WRITE-DN (SETQ *2*TEMP3 (*1*L)) (*1*READ-DN *2*TEMP3 (SETQ *2*TEMP2 (*1*S_RN *3*INS)) *3*S) (SETQ *2*TEMP1 (*1*D_RN *3*INS)) (*1*WRITE-DN *2*TEMP3 (*1*READ-DN *2*TEMP3 *2*TEMP1 *3*S) *2*TEMP2 *3*S))))))) (PUT1-LST (QUOTE *1*EXG-ARAR-INS) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (*1*WRITE-AN (SETQ *2*TEMP3 (*1*L)) (*1*READ-AN *2*TEMP3 (SETQ *2*TEMP2 (*1*S_RN *3*INS)) *3*S) (SETQ *2*TEMP1 (*1*D_RN *3*INS)) (*1*WRITE-AN *2*TEMP3 (*1*READ-AN *2*TEMP3 *2*TEMP1 *3*S) *2*TEMP2 *3*S))))))) (PUT1-LST (QUOTE *1*EXG-DRAR-INS) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (*1*WRITE-DN (SETQ *2*TEMP3 (*1*L)) (*1*READ-AN *2*TEMP3 (SETQ *2*TEMP2 (*1*S_RN *3*INS)) *3*S) (SETQ *2*TEMP1 (*1*D_RN *3*INS)) (*1*WRITE-AN *2*TEMP3 (*1*READ-DN *2*TEMP3 *2*TEMP1 *3*S) *2*TEMP2 *3*S))))))) (PUT1-LST (QUOTE *1*MUL_W-INS) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*MUL&DIV-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*MC-INSTATE (SETQ *2*TEMP1 (*1*W)) *3*INS *3*S))))) *1*F)) *2*TEMP3) ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 8))) *1*F)) (*1*MULU_W-INS (*1*OPERAND *2*TEMP1 (*1*CDR *2*TEMP2) *3*S) (*1*D_RN *3*INS) *2*TEMP3)) (T (*1*MULS_W-INS (*1*OPERAND *2*TEMP1 (*1*CDR *2*TEMP2) *3*S) (*1*D_RN *3*INS) *2*TEMP3)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*AND-GROUP) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((EQUAL *3*OPLEN (*1*Q)) (*1*MUL_W-INS *3*INS *3*S)) ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 8))) *1*F)) (*1*AND-INS1 *3*OPLEN *3*INS *3*S)) ((NOT (EQ (*1*LESSP (SETQ *2*TEMP1 (*1*S_MODE *3*INS)) (QUOTE 2)) *1*F)) (COND ((EQUAL *3*OPLEN (*1*B)) (*1*HALT (QUOTE ABCD-UNSPECIFIED) *3*S)) ((EQUAL *3*OPLEN (*1*W)) (COND ((EQUAL *2*TEMP1 (QUOTE 0)) (*1*EXG-DRDR-INS *3*INS *3*S)) (T (*1*EXG-ARAR-INS *3*INS *3*S)))) ((EQUAL *2*TEMP1 (QUOTE 0)) (*1*HALT (*1*RESERVED-SIGNAL) *3*S)) (T (*1*EXG-DRAR-INS *3*INS *3*S)))) (T (*1*AND-INS2 *3*OPLEN *3*INS *3*S)))))))) (PUT1-LST (QUOTE *1*OR-Z) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*SOPD *3*DOPD) (PROGN *3*OPLEN (COND ((EQUAL (*1*LOGOR *3*SOPD *3*DOPD) (QUOTE 0)) (*1*B1)) (T (*1*B0)))))))) (PUT1-LST (QUOTE *1*OR-N) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*SOPD *3*DOPD) (*1*B-OR (*1*MBIT *3*SOPD *3*OPLEN) (*1*MBIT *3*DOPD *3*OPLEN)))))) (PUT1-LST (QUOTE *1*OR-CVZNX) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*SOPD *3*DOPD *3*CCR) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*CVZNX (SETQ *2*TEMP1 (*1*B0)) *2*TEMP1 (*1*OR-Z *3*OPLEN *3*SOPD *3*DOPD) (*1*OR-N *3*OPLEN *3*SOPD *3*DOPD) (*1*CCR-X *3*CCR))))))) (PUT1-LST (QUOTE *1*OR-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*SOPD *3*DOPD *3*CCR) (CONS (*1*LOGOR *3*SOPD *3*DOPD) (*1*OR-CVZNX *3*OPLEN *3*SOPD *3*DOPD *3*CCR)))))) (PUT1-LST (QUOTE *1*OR-ADDR-MODEP1) (QUOTE (SEXPR (LAMBDA (*3*INS) (*1*DATA-ADDR-MODEP (*1*S_MODE *3*INS) (*1*S_RN *3*INS)))))) (PUT1-LST (QUOTE *1*OR-ADDR-MODEP2) (QUOTE (SEXPR (LAMBDA (*3*INS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*AND (*1*ALTERABLE-ADDR-MODEP (SETQ *2*TEMP2 (*1*S_MODE *3*INS)) (SETQ *2*TEMP1 (*1*S_RN *3*INS))) (*1*MEMORY-ADDR-MODEP *2*TEMP2 *2*TEMP1))))))) (PUT1-LST (QUOTE *1*OR-INS1) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*OR-ADDR-MODEP1 *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*MC-INSTATE *3*OPLEN *3*INS *3*S))))) *1*F)) *2*TEMP3) (T (*1*D-MAPPING *3*OPLEN (*1*OR-EFFECT *3*OPLEN (*1*OPERAND *3*OPLEN (*1*CDR *2*TEMP2) *3*S) (*1*READ-DN *3*OPLEN (SETQ *2*TEMP1 (*1*D_RN *3*INS)) *3*S) (*1*MC-CCR *3*S)) *2*TEMP1 *2*TEMP3)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*OR-MAPPING) (QUOTE (SEXPR (LAMBDA (*3*SOPD *3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP2 (*1*CAR (SETQ *2*TEMP1 (*1*MC-INSTATE *3*OPLEN *3*INS *3*S))))) *1*F)) *2*TEMP2) (T (*1*MAPPING *3*OPLEN (*1*OR-EFFECT *3*OPLEN *3*SOPD (*1*OPERAND *3*OPLEN (*1*CDR *2*TEMP1) *3*S) (*1*MC-CCR *3*S)) *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*OR-INS2) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (COND ((NOT (EQ (*1*OR-ADDR-MODEP2 *3*INS) *1*F)) (*1*OR-MAPPING (*1*READ-DN *3*OPLEN (*1*D_RN *3*INS) *3*S) *3*OPLEN *3*INS *3*S)) (T (*1*HALT (*1*MODE-SIGNAL) *3*S))))))) (PUT1-LST (QUOTE *1*IQUOT) (QUOTE (SEXPR (LAMBDA (*3*N *3*S *3*I *3*D *3*J) (*1*HEAD (*1*INT-TO-NAT (*1*IQUOTIENT (*1*NAT-TO-INT *3*D *3*J) (*1*NAT-TO-INT *3*S *3*I)) *3*J) *3*N))))) (PUT1-LST (QUOTE *1*IREM) (QUOTE (SEXPR (LAMBDA (*3*N *3*S *3*I *3*D *3*J) (*1*HEAD (*1*INT-TO-NAT (*1*IREMAINDER (*1*NAT-TO-INT *3*D *3*J) (*1*NAT-TO-INT *3*S *3*I)) *3*I) *3*N))))) (PUT1-LST (QUOTE *1*DIVS-V) (QUOTE (SEXPR (LAMBDA (*3*N *3*SOPD *3*I *3*DOPD *3*J) (COND ((NOT (EQ (*1*INT-RANGEP (*1*IQUOTIENT (*1*NAT-TO-INT *3*DOPD *3*J) (*1*NAT-TO-INT *3*SOPD *3*I)) *3*N) *1*F)) (*1*B0)) (T (*1*B1))))))) (PUT1-LST (QUOTE *1*DIVS-Z) (QUOTE (SEXPR (LAMBDA (*3*N *3*SOPD *3*I *3*DOPD *3*J) (COND ((EQUAL (*1*IQUOT *3*N *3*SOPD *3*I *3*DOPD *3*J) (QUOTE 0)) (*1*B1)) (T (*1*B0))))))) (PUT1-LST (QUOTE *1*DIVS-N) (QUOTE (SEXPR (LAMBDA (*3*N *3*SOPD *3*I *3*DOPD *3*J) (*1*MBIT (*1*IQUOT *3*N *3*SOPD *3*I *3*DOPD *3*J) *3*N))))) (PUT1-LST (QUOTE *1*DIVS-CVZNX) (QUOTE (SEXPR (LAMBDA (*3*N *3*SOPD *3*I *3*DOPD *3*J *3*CCR) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*CVZNX (SETQ *2*TEMP1 (*1*B0)) *2*TEMP1 (*1*DIVS-Z *3*N *3*SOPD *3*I *3*DOPD *3*J) (*1*DIVS-N *3*N *3*SOPD *3*I *3*DOPD *3*J) (*1*CCR-X *3*CCR))))))) (PUT1-LST (QUOTE *1*DIVS_W-INS) (QUOTE (SEXPR (LAMBDA (*3*SOPD *3*DN *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((EQUAL (*1*NAT-TO-INT *3*SOPD (SETQ *2*TEMP3 (*1*W))) (QUOTE 0)) (*1*HALT (QUOTE TRAP-EXCEPTION) *3*S)) ((NOT (EQ (*1*B0P (*1*DIVS-V *2*TEMP3 *3*SOPD *2*TEMP3 (SETQ *2*TEMP2 (*1*READ-DN (SETQ *2*TEMP1 (*1*L)) *3*DN *3*S)) *2*TEMP1)) *1*F)) (*1*UPDATE-CCR (*1*DIVS-CVZNX *2*TEMP3 *3*SOPD *2*TEMP3 *2*TEMP2 *2*TEMP1 (*1*MC-CCR *3*S)) (*1*WRITE-DN *2*TEMP1 (*1*APP *2*TEMP3 (*1*IQUOT *2*TEMP3 *3*SOPD *2*TEMP3 *2*TEMP2 *2*TEMP1) (*1*IREM *2*TEMP3 *3*SOPD *2*TEMP3 *2*TEMP2 *2*TEMP1)) *3*DN *3*S))) (T (*1*HALT (QUOTE DIVS-OVERFLOW) (*1*UPDATE-CCR (*1*SET-V (*1*B1) (*1*MC-CCR *3*S)) *3*S))))))))) (PUT1-LST (QUOTE *1*QUOT) (QUOTE (SEXPR (LAMBDA (*3*N *3*X *3*Y) (*1*HEAD (*1*QUOTIENT *3*Y *3*X) *3*N))))) (PUT1-LST (QUOTE *1*REM) (QUOTE (SEXPR (LAMBDA (*3*N *3*X *3*Y) (*1*HEAD (*1*REMAINDER *3*Y *3*X) *3*N))))) (PUT1-LST (QUOTE *1*DIVU-V) (QUOTE (SEXPR (LAMBDA (*3*N *3*SOPD *3*DOPD) (COND ((NOT (EQ (*1*LESSP (*1*QUOTIENT *3*DOPD *3*SOPD) (*1*EXP (QUOTE 2) *3*N)) *1*F)) (*1*B0)) (T (*1*B1))))))) (PUT1-LST (QUOTE *1*DIVU-Z) (QUOTE (SEXPR (LAMBDA (*3*N *3*SOPD *3*DOPD) (COND ((EQUAL (*1*QUOT *3*N *3*SOPD *3*DOPD) (QUOTE 0)) (*1*B1)) (T (*1*B0))))))) (PUT1-LST (QUOTE *1*DIVU-N) (QUOTE (SEXPR (LAMBDA (*3*N *3*SOPD *3*DOPD) (*1*MBIT (*1*QUOT *3*N *3*SOPD *3*DOPD) *3*N))))) (PUT1-LST (QUOTE *1*DIVU-CVZNX) (QUOTE (SEXPR (LAMBDA (*3*N *3*SOPD *3*DOPD *3*CCR) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*CVZNX (SETQ *2*TEMP1 (*1*B0)) *2*TEMP1 (*1*DIVU-Z *3*N *3*SOPD *3*DOPD) (*1*DIVU-N *3*N *3*SOPD *3*DOPD) (*1*CCR-X *3*CCR))))))) (PUT1-LST (QUOTE *1*DIVU_W-INS) (QUOTE (SEXPR (LAMBDA (*3*SOPD *3*DN *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((EQUAL (*1*NAT-TO-UINT *3*SOPD) (QUOTE 0)) (*1*HALT (QUOTE TRAP-EXCEPTION) *3*S)) ((NOT (EQ (*1*B0P (*1*DIVU-V (SETQ *2*TEMP3 (*1*W)) *3*SOPD (SETQ *2*TEMP2 (*1*READ-DN (SETQ *2*TEMP1 (*1*L)) *3*DN *3*S)))) *1*F)) (*1*UPDATE-CCR (*1*DIVU-CVZNX *2*TEMP3 *3*SOPD *2*TEMP2 (*1*MC-CCR *3*S)) (*1*WRITE-DN *2*TEMP1 (*1*APP *2*TEMP3 (*1*QUOT *2*TEMP3 *3*SOPD *2*TEMP2) (*1*REM *2*TEMP3 *3*SOPD *2*TEMP2)) *3*DN *3*S))) (T (*1*HALT (QUOTE DIVU-OVERFLOW) (*1*UPDATE-CCR (*1*SET-V (*1*B1) (*1*MC-CCR *3*S)) *3*S))))))))) (PUT1-LST (QUOTE *1*DIV_W-INS) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*MUL&DIV-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*MC-INSTATE (SETQ *2*TEMP1 (*1*W)) *3*INS *3*S))))) *1*F)) *2*TEMP3) ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 8))) *1*F)) (*1*DIVU_W-INS (*1*OPERAND *2*TEMP1 (*1*CDR *2*TEMP2) *3*S) (*1*D_RN *3*INS) *2*TEMP3)) (T (*1*DIVS_W-INS (*1*OPERAND *2*TEMP1 (*1*CDR *2*TEMP2) *3*S) (*1*D_RN *3*INS) *2*TEMP3)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*OR-GROUP) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (COND ((EQUAL *3*OPLEN (*1*Q)) (*1*DIV_W-INS *3*INS *3*S)) ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 8))) *1*F)) (*1*OR-INS1 *3*OPLEN *3*INS *3*S)) ((NOT (EQ (*1*LESSP (*1*S_MODE *3*INS) (QUOTE 2)) *1*F)) (*1*HALT (QUOTE SBCD-PACK-UNPK-UNSPECIFIED) *3*S)) (T (*1*OR-INS2 *3*OPLEN *3*INS *3*S))))))) (PUT1-LST (QUOTE *1*ROL) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*X *3*CNT) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*APP (SETQ *2*TEMP2 (*1*REMAINDER *3*CNT *3*LEN)) (*1*TAIL *3*X (SETQ *2*TEMP1 (*1*DIFFERENCE *3*LEN *2*TEMP2))) (*1*HEAD *3*X *2*TEMP1))))))) (PUT1-LST (QUOTE *1*ROR) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*X *3*CNT) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*APP (*1*DIFFERENCE *3*LEN (SETQ *2*TEMP1 (*1*REMAINDER *3*CNT *3*LEN))) (*1*TAIL *3*X *2*TEMP1) (*1*HEAD *3*X *2*TEMP1))))))) (PUT1-LST (QUOTE *1*S&R-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*INS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*AND (*1*MEMORY-ADDR-MODEP (SETQ *2*TEMP2 (*1*S_MODE *3*INS)) (SETQ *2*TEMP1 (*1*S_RN *3*INS))) (*1*ALTERABLE-ADDR-MODEP *2*TEMP2 *2*TEMP1))))))) (PUT1-LST (QUOTE *1*I-DATA) (QUOTE (SEXPR (LAMBDA (*3*N) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE 8)) (T *3*N)))))) (PUT1-LST (QUOTE *1*SR-CNT) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET NIL (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 5))) *1*F)) (*1*I-DATA (*1*D_RN *3*INS))) (T (*1*REMAINDER (*1*READ-DN (*1*B) (*1*D_RN *3*INS) *3*S) (QUOTE 64))))))))) (PUT1-LST (QUOTE *1*ROL-C) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*X *3*CNT) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((EQUAL *3*CNT (QUOTE 0)) (*1*B0)) ((NOT (EQ (*1*ZEROP (SETQ *2*TEMP1 (*1*REMAINDER *3*CNT *3*LEN))) *1*F)) (*1*BCAR *3*X)) (T (*1*BITN *3*X (*1*DIFFERENCE *3*LEN *2*TEMP1))))))))) (PUT1-LST (QUOTE *1*ROL-Z) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*X *3*CNT) (PROGN *3*LEN *3*CNT (COND ((EQUAL *3*X (QUOTE 0)) (*1*B1)) (T (*1*B0)))))))) (PUT1-LST (QUOTE *1*ROL-N) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*X *3*CNT) (*1*BITN *3*X (*1*SUB1 (*1*DIFFERENCE *3*LEN (*1*REMAINDER *3*CNT *3*LEN)))))))) (PUT1-LST (QUOTE *1*ROL-CVZNX) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT *3*CCR) (*1*CVZNX (*1*ROL-C *3*LEN *3*OPD *3*CNT) (*1*B0) (*1*ROL-Z *3*LEN *3*OPD *3*CNT) (*1*ROL-N *3*LEN *3*OPD *3*CNT) (*1*CCR-X *3*CCR)))))) (PUT1-LST (QUOTE *1*ROL-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT *3*CCR) (CONS (*1*ROL *3*LEN *3*OPD *3*CNT) (*1*ROL-CVZNX *3*LEN *3*OPD *3*CNT *3*CCR)))))) (PUT1-LST (QUOTE *1*REGISTER-ROL-INS) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*D-MAPPING *3*OPLEN (*1*ROL-EFFECT *3*OPLEN (*1*READ-DN *3*OPLEN (SETQ *2*TEMP1 (*1*S_RN *3*INS)) *3*S) (*1*SR-CNT *3*INS *3*S) (*1*MC-CCR *3*S)) *2*TEMP1 *3*S)))))) (PUT1-LST (QUOTE *1*ROR-C) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*X *3*CNT) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((EQUAL *3*CNT (QUOTE 0)) (*1*B0)) ((EQUAL (SETQ *2*TEMP1 (*1*REMAINDER *3*CNT *3*LEN)) (QUOTE 0)) (*1*BITN *3*X (*1*SUB1 *3*LEN))) (T (*1*BITN *3*X (*1*SUB1 *2*TEMP1))))))))) (PUT1-LST (QUOTE *1*ROR-Z) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT) (PROGN *3*LEN *3*CNT (COND ((EQUAL *3*OPD (QUOTE 0)) (*1*B1)) (T (*1*B0)))))))) (PUT1-LST (QUOTE *1*ROR-N) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*X *3*CNT) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ZEROP (SETQ *2*TEMP1 (*1*REMAINDER *3*CNT *3*LEN))) *1*F)) (*1*BITN *3*X (*1*SUB1 *3*LEN))) (T (*1*BITN *3*X (*1*SUB1 *2*TEMP1))))))))) (PUT1-LST (QUOTE *1*ROR-CVZNX) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT *3*CCR) (*1*CVZNX (*1*ROR-C *3*LEN *3*OPD *3*CNT) (*1*B0) (*1*ROR-Z *3*LEN *3*OPD *3*CNT) (*1*ROR-N *3*LEN *3*OPD *3*CNT) (*1*CCR-X *3*CCR)))))) (PUT1-LST (QUOTE *1*ROR-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*OPD *3*CNT *3*CCR) (CONS (*1*ROR *3*OPLEN *3*OPD *3*CNT) (*1*ROR-CVZNX *3*OPLEN *3*OPD *3*CNT *3*CCR)))))) (PUT1-LST (QUOTE *1*REGISTER-ROR-INS) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*D-MAPPING *3*OPLEN (*1*ROR-EFFECT *3*OPLEN (*1*READ-DN *3*OPLEN (SETQ *2*TEMP1 (*1*S_RN *3*INS)) *3*S) (*1*SR-CNT *3*INS *3*S) (*1*MC-CCR *3*S)) *2*TEMP1 *3*S)))))) (PUT1-LST (QUOTE *1*MEM-ROL-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*OPD *3*CCR) (*1*ROL-EFFECT (*1*W) *3*OPD (QUOTE 1) *3*CCR))))) (PUT1-LST (QUOTE *1*MEM-ROL-INS) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*S&R-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*MC-INSTATE (SETQ *2*TEMP1 (*1*W)) *3*INS *3*S))))) *1*F)) *2*TEMP3) (T (*1*MAPPING *2*TEMP1 (*1*MEM-ROL-EFFECT (*1*OPERAND *2*TEMP1 (*1*CDR *2*TEMP2) *3*S) (*1*MC-CCR *3*S)) *2*TEMP2)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*MEM-ROR-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*OPD *3*CCR) (*1*ROR-EFFECT (*1*W) *3*OPD (QUOTE 1) *3*CCR))))) (PUT1-LST (QUOTE *1*MEM-ROR-INS) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*S&R-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*MC-INSTATE (SETQ *2*TEMP1 (*1*W)) *3*INS *3*S))))) *1*F)) *2*TEMP3) (T (*1*MAPPING *2*TEMP1 (*1*MEM-ROR-EFFECT (*1*OPERAND *2*TEMP1 (*1*CDR *2*TEMP2) *3*S) (*1*MC-CCR *3*S)) *2*TEMP2)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*LSL-C) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT) (LET NIL (COND ((EQUAL *3*CNT (QUOTE 0)) (*1*B0)) ((NOT (EQ (*1*LESSP *3*LEN *3*CNT) *1*F)) (*1*B0)) (T (*1*BITN *3*OPD (*1*DIFFERENCE *3*LEN *3*CNT))))))))) (PUT1-LST (QUOTE *1*LSL-Z) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT) (COND ((EQUAL (*1*LSL *3*LEN *3*OPD *3*CNT) (QUOTE 0)) (*1*B1)) (T (*1*B0))))))) (PUT1-LST (QUOTE *1*LSL-N) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT) (*1*MBIT (*1*LSL *3*LEN *3*OPD *3*CNT) *3*LEN))))) (PUT1-LST (QUOTE *1*LSL-X) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT *3*CCR) (COND ((EQUAL *3*CNT (QUOTE 0)) (*1*CCR-X *3*CCR)) (T (*1*LSL-C *3*LEN *3*OPD *3*CNT))))))) (PUT1-LST (QUOTE *1*LSL-CVZNX) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT *3*CCR) (*1*CVZNX (*1*LSL-C *3*LEN *3*OPD *3*CNT) (*1*B0) (*1*LSL-Z *3*LEN *3*OPD *3*CNT) (*1*LSL-N *3*LEN *3*OPD *3*CNT) (*1*LSL-X *3*LEN *3*OPD *3*CNT *3*CCR)))))) (PUT1-LST (QUOTE *1*LSL-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT *3*CCR) (CONS (*1*LSL *3*LEN *3*OPD *3*CNT) (*1*LSL-CVZNX *3*LEN *3*OPD *3*CNT *3*CCR)))))) (PUT1-LST (QUOTE *1*REGISTER-LSL-INS) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*D-MAPPING *3*OPLEN (*1*LSL-EFFECT *3*OPLEN (*1*READ-DN *3*OPLEN (SETQ *2*TEMP1 (*1*S_RN *3*INS)) *3*S) (*1*SR-CNT *3*INS *3*S) (*1*MC-CCR *3*S)) *2*TEMP1 *3*S)))))) (PUT1-LST (QUOTE *1*LSR-C) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT) (LET NIL (COND ((EQUAL *3*CNT (QUOTE 0)) (*1*B0)) ((NOT (EQ (*1*LESSP *3*LEN *3*CNT) *1*F)) (*1*B0)) (T (*1*BITN *3*OPD (*1*SUB1 *3*CNT))))))))) (PUT1-LST (QUOTE *1*LSR-Z) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT) (PROGN *3*LEN (COND ((EQUAL (*1*LSR *3*OPD *3*CNT) (QUOTE 0)) (*1*B1)) (T (*1*B0)))))))) (PUT1-LST (QUOTE *1*LSR-N) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT) (*1*MBIT (*1*LSR *3*OPD *3*CNT) *3*LEN))))) (PUT1-LST (QUOTE *1*LSR-X) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT *3*CCR) (COND ((EQUAL *3*CNT (QUOTE 0)) (*1*CCR-X *3*CCR)) (T (*1*LSR-C *3*LEN *3*OPD *3*CNT))))))) (PUT1-LST (QUOTE *1*LSR-CVZNX) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT *3*CCR) (*1*CVZNX (*1*LSR-C *3*LEN *3*OPD *3*CNT) (*1*B0) (*1*LSR-Z *3*LEN *3*OPD *3*CNT) (*1*LSR-N *3*LEN *3*OPD *3*CNT) (*1*LSR-X *3*LEN *3*OPD *3*CNT *3*CCR)))))) (PUT1-LST (QUOTE *1*LSR-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT *3*CCR) (CONS (*1*LSR *3*OPD *3*CNT) (*1*LSR-CVZNX *3*LEN *3*OPD *3*CNT *3*CCR)))))) (PUT1-LST (QUOTE *1*REGISTER-LSR-INS) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*D-MAPPING *3*OPLEN (*1*LSR-EFFECT *3*OPLEN (*1*READ-DN *3*OPLEN (SETQ *2*TEMP1 (*1*S_RN *3*INS)) *3*S) (*1*SR-CNT *3*INS *3*S) (*1*MC-CCR *3*S)) *2*TEMP1 *3*S)))))) (PUT1-LST (QUOTE *1*MEM-LSL-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*OPD *3*CCR) (*1*LSL-EFFECT (*1*W) *3*OPD (QUOTE 1) *3*CCR))))) (PUT1-LST (QUOTE *1*MEM-LSL-INS) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*S&R-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*MC-INSTATE (SETQ *2*TEMP1 (*1*W)) *3*INS *3*S))))) *1*F)) *2*TEMP3) (T (*1*MAPPING *2*TEMP1 (*1*MEM-LSL-EFFECT (*1*OPERAND *2*TEMP1 (*1*CDR *2*TEMP2) *3*S) (*1*MC-CCR *3*S)) *2*TEMP2)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*MEM-LSR-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*OPD *3*CCR) (*1*LSR-EFFECT (*1*W) *3*OPD (QUOTE 1) *3*CCR))))) (PUT1-LST (QUOTE *1*MEM-LSR-INS) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*S&R-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*MC-INSTATE (SETQ *2*TEMP1 (*1*W)) *3*INS *3*S))))) *1*F)) *2*TEMP3) (T (*1*MAPPING *2*TEMP1 (*1*MEM-LSR-EFFECT (*1*OPERAND *2*TEMP1 (*1*CDR *2*TEMP2) *3*S) (*1*MC-CCR *3*S)) *2*TEMP2)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*ASL-C) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT) (*1*LSL-C *3*LEN *3*OPD *3*CNT))))) (PUT1-LST (QUOTE *1*ASL-V) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT) (COND ((NOT (EQ (*1*INT-RANGEP (*1*NAT-TO-INT *3*OPD *3*LEN) (*1*DIFFERENCE *3*LEN *3*CNT)) *1*F)) (*1*B0)) (T (*1*B1))))))) (PUT1-LST (QUOTE *1*ASL-Z) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT) (COND ((EQUAL (*1*ASL *3*LEN *3*OPD *3*CNT) (QUOTE 0)) (*1*B1)) (T (*1*B0))))))) (PUT1-LST (QUOTE *1*ASL-N) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT) (*1*MBIT (*1*ASL *3*LEN *3*OPD *3*CNT) *3*LEN))))) (PUT1-LST (QUOTE *1*ASL-X) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT *3*CCR) (COND ((EQUAL *3*CNT (QUOTE 0)) (*1*CCR-X *3*CCR)) (T (*1*ASL-C *3*LEN *3*OPD *3*CNT))))))) (PUT1-LST (QUOTE *1*ASL-CVZNX) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT *3*CCR) (*1*CVZNX (*1*ASL-C *3*LEN *3*OPD *3*CNT) (*1*ASL-V *3*LEN *3*OPD *3*CNT) (*1*ASL-Z *3*LEN *3*OPD *3*CNT) (*1*ASL-N *3*LEN *3*OPD *3*CNT) (*1*ASL-X *3*LEN *3*OPD *3*CNT *3*CCR)))))) (PUT1-LST (QUOTE *1*ASL-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT *3*CCR) (CONS (*1*ASL *3*LEN *3*OPD *3*CNT) (*1*ASL-CVZNX *3*LEN *3*OPD *3*CNT *3*CCR)))))) (PUT1-LST (QUOTE *1*REGISTER-ASL-INS) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*D-MAPPING *3*OPLEN (*1*ASL-EFFECT *3*OPLEN (*1*READ-DN *3*OPLEN (SETQ *2*TEMP1 (*1*S_RN *3*INS)) *3*S) (*1*SR-CNT *3*INS *3*S) (*1*MC-CCR *3*S)) *2*TEMP1 *3*S)))))) (PUT1-LST (QUOTE *1*ASR-C) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT) (COND ((EQUAL *3*CNT (QUOTE 0)) (*1*B0)) ((NOT (EQ (*1*LESSP *3*CNT *3*LEN) *1*F)) (*1*BITN *3*OPD (*1*SUB1 *3*CNT))) (T (*1*BITN *3*OPD (*1*SUB1 *3*LEN)))))))) (PUT1-LST (QUOTE *1*ASR-Z) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT) (COND ((EQUAL (*1*ASR *3*LEN *3*OPD *3*CNT) (QUOTE 0)) (*1*B1)) (T (*1*B0))))))) (PUT1-LST (QUOTE *1*ASR-N) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT) (*1*MBIT (*1*ASR *3*LEN *3*OPD *3*CNT) *3*LEN))))) (PUT1-LST (QUOTE *1*ASR-X) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT *3*CCR) (COND ((EQUAL *3*CNT (QUOTE 0)) (*1*CCR-X *3*CCR)) (T (*1*ASR-C *3*LEN *3*OPD *3*CNT))))))) (PUT1-LST (QUOTE *1*ASR-CVZNX) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT *3*CCR) (*1*CVZNX (*1*ASR-C *3*LEN *3*OPD *3*CNT) (*1*B0) (*1*ASR-Z *3*LEN *3*OPD *3*CNT) (*1*ASR-N *3*LEN *3*OPD *3*CNT) (*1*ASR-X *3*LEN *3*OPD *3*CNT *3*CCR)))))) (PUT1-LST (QUOTE *1*ASR-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT *3*CCR) (CONS (*1*ASR *3*LEN *3*OPD *3*CNT) (*1*ASR-CVZNX *3*LEN *3*OPD *3*CNT *3*CCR)))))) (PUT1-LST (QUOTE *1*REGISTER-ASR-INS) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*D-MAPPING *3*OPLEN (*1*ASR-EFFECT *3*OPLEN (*1*READ-DN *3*OPLEN (SETQ *2*TEMP1 (*1*S_RN *3*INS)) *3*S) (*1*SR-CNT *3*INS *3*S) (*1*MC-CCR *3*S)) *2*TEMP1 *3*S)))))) (PUT1-LST (QUOTE *1*MEM-ASL-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*OPD *3*CCR) (*1*ASL-EFFECT (*1*W) *3*OPD (QUOTE 1) *3*CCR))))) (PUT1-LST (QUOTE *1*MEM-ASL-INS) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*S&R-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*MC-INSTATE (SETQ *2*TEMP1 (*1*W)) *3*INS *3*S))))) *1*F)) *2*TEMP3) (T (*1*MAPPING *2*TEMP1 (*1*MEM-ASL-EFFECT (*1*OPERAND *2*TEMP1 (*1*CDR *2*TEMP2) *3*S) (*1*MC-CCR *3*S)) *2*TEMP2)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*MEM-ASR-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*OPD *3*CCR) (*1*ASR-EFFECT (*1*W) *3*OPD (QUOTE 1) *3*CCR))))) (PUT1-LST (QUOTE *1*MEM-ASR-INS) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*S&R-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*MC-INSTATE (SETQ *2*TEMP1 (*1*W)) *3*INS *3*S))))) *1*F)) *2*TEMP3) (T (*1*MAPPING *2*TEMP1 (*1*MEM-ASR-EFFECT (*1*OPERAND *2*TEMP1 (*1*CDR *2*TEMP2) *3*S) (*1*MC-CCR *3*S)) *2*TEMP2)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*ROXL) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT *3*X) (*1*BCDR (*1*ROL (*1*ADD1 *3*LEN) (*1*PLUS *3*X (*1*TIMES (QUOTE 2) *3*OPD)) *3*CNT)))))) (PUT1-LST (QUOTE *1*ROXR) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT *3*X) (*1*HEAD (*1*ROR (*1*ADD1 *3*LEN) (*1*PLUS *3*OPD (*1*TIMES *3*X (*1*EXP (QUOTE 2) *3*LEN))) *3*CNT) *3*LEN))))) (PUT1-LST (QUOTE *1*ROXL-C) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT *3*X) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((EQUAL (SETQ *2*TEMP1 (*1*REMAINDER *3*CNT (*1*ADD1 *3*LEN))) (QUOTE 0)) (*1*FIX-BIT *3*X)) (T (*1*BITN *3*OPD (*1*DIFFERENCE *3*LEN *2*TEMP1))))))))) (PUT1-LST (QUOTE *1*ROXL-Z) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT *3*X) (COND ((EQUAL (*1*ROXL *3*LEN *3*OPD *3*CNT *3*X) (QUOTE 0)) (*1*B1)) (T (*1*B0))))))) (PUT1-LST (QUOTE *1*ROXL-N) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT *3*X) (*1*BITN (*1*ROXL *3*LEN *3*OPD *3*CNT *3*X) (*1*SUB1 *3*LEN)))))) (PUT1-LST (QUOTE *1*ROXL-CVZNX) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT *3*X) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*CVZNX (SETQ *2*TEMP1 (*1*ROXL-C *3*LEN *3*OPD *3*CNT *3*X)) (*1*B0) (*1*ROXL-Z *3*LEN *3*OPD *3*CNT *3*X) (*1*ROXL-N *3*LEN *3*OPD *3*CNT *3*X) *2*TEMP1)))))) (PUT1-LST (QUOTE *1*ROXL-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT *3*CCR) (LET ((*2*TEMP1 (QUOTE *1*X))) (CONS (*1*ROXL *3*LEN *3*OPD *3*CNT (SETQ *2*TEMP1 (*1*CCR-X *3*CCR))) (*1*ROXL-CVZNX *3*LEN *3*OPD *3*CNT *2*TEMP1))))))) (PUT1-LST (QUOTE *1*REGISTER-ROXL-INS) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*D-MAPPING *3*OPLEN (*1*ROXL-EFFECT *3*OPLEN (*1*READ-DN *3*OPLEN (SETQ *2*TEMP1 (*1*S_RN *3*INS)) *3*S) (*1*SR-CNT *3*INS *3*S) (*1*MC-CCR *3*S)) *2*TEMP1 *3*S)))))) (PUT1-LST (QUOTE *1*ROXR-C) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT *3*X) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((EQUAL (SETQ *2*TEMP1 (*1*REMAINDER *3*CNT (*1*ADD1 *3*LEN))) (QUOTE 0)) (*1*FIX-BIT *3*X)) (T (*1*BITN *3*OPD (*1*SUB1 *2*TEMP1))))))))) (PUT1-LST (QUOTE *1*ROXR-Z) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT *3*X) (COND ((EQUAL (*1*ROXR *3*LEN *3*OPD *3*CNT *3*X) (QUOTE 0)) (*1*B1)) (T (*1*B0))))))) (PUT1-LST (QUOTE *1*ROXR-N) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT *3*X) (*1*BITN (*1*ROXR *3*LEN *3*OPD *3*CNT *3*X) (*1*SUB1 *3*LEN)))))) (PUT1-LST (QUOTE *1*ROXR-CVZNX) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT *3*X) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*CVZNX (SETQ *2*TEMP1 (*1*ROXR-C *3*LEN *3*OPD *3*CNT *3*X)) (*1*B0) (*1*ROXR-Z *3*LEN *3*OPD *3*CNT *3*X) (*1*ROXR-N *3*LEN *3*OPD *3*CNT *3*X) *2*TEMP1)))))) (PUT1-LST (QUOTE *1*ROXR-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*LEN *3*OPD *3*CNT *3*CCR) (LET ((*2*TEMP1 (QUOTE *1*X))) (CONS (*1*ROXR *3*LEN *3*OPD *3*CNT (SETQ *2*TEMP1 (*1*CCR-X *3*CCR))) (*1*ROXR-CVZNX *3*LEN *3*OPD *3*CNT *2*TEMP1))))))) (PUT1-LST (QUOTE *1*REGISTER-ROXR-INS) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*D-MAPPING *3*OPLEN (*1*ROXR-EFFECT *3*OPLEN (*1*READ-DN *3*OPLEN (SETQ *2*TEMP1 (*1*S_RN *3*INS)) *3*S) (*1*SR-CNT *3*INS *3*S) (*1*MC-CCR *3*S)) *2*TEMP1 *3*S)))))) (PUT1-LST (QUOTE *1*MEM-ROXL-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*OPD *3*CCR) (*1*ROXL-EFFECT (*1*W) *3*OPD (QUOTE 1) *3*CCR))))) (PUT1-LST (QUOTE *1*MEM-ROXL-INS) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*S&R-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*MC-INSTATE (SETQ *2*TEMP1 (*1*W)) *3*INS *3*S))))) *1*F)) *2*TEMP3) (T (*1*MAPPING *2*TEMP1 (*1*MEM-ROXL-EFFECT (*1*OPERAND *2*TEMP1 (*1*CDR *2*TEMP2) *3*S) (*1*MC-CCR *3*S)) *2*TEMP2)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*MEM-ROXR-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*OPD *3*CCR) (*1*ROXR-EFFECT (*1*W) *3*OPD (QUOTE 1) *3*CCR))))) (PUT1-LST (QUOTE *1*MEM-ROXR-INS) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*S&R-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*MC-INSTATE (SETQ *2*TEMP1 (*1*W)) *3*INS *3*S))))) *1*F)) *2*TEMP3) (T (*1*MAPPING *2*TEMP1 (*1*MEM-ROXR-EFFECT (*1*OPERAND *2*TEMP1 (*1*CDR *2*TEMP2) *3*S) (*1*MC-CCR *3*S)) *2*TEMP2)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*MEMORY-SHIFT-ROTATE) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET NIL (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 10))) *1*F)) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 9))) *1*F)) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 8))) *1*F)) (*1*MEM-ASR-INS *3*INS *3*S)) (T (*1*MEM-ASL-INS *3*INS *3*S)))) ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 8))) *1*F)) (*1*MEM-LSR-INS *3*INS *3*S)) (T (*1*MEM-LSL-INS *3*INS *3*S)))) ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 9))) *1*F)) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 8))) *1*F)) (*1*MEM-ROXR-INS *3*INS *3*S)) (T (*1*MEM-ROXL-INS *3*INS *3*S)))) ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 8))) *1*F)) (*1*MEM-ROR-INS *3*INS *3*S)) (T (*1*MEM-ROL-INS *3*INS *3*S)))))))) (PUT1-LST (QUOTE *1*REGISTER-SHIFT-ROTATE) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET NIL (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 4))) *1*F)) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 3))) *1*F)) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 8))) *1*F)) (*1*REGISTER-ASR-INS *3*OPLEN *3*INS *3*S)) (T (*1*REGISTER-ASL-INS *3*OPLEN *3*INS *3*S)))) ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 8))) *1*F)) (*1*REGISTER-LSR-INS *3*OPLEN *3*INS *3*S)) (T (*1*REGISTER-LSL-INS *3*OPLEN *3*INS *3*S)))) ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 3))) *1*F)) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 8))) *1*F)) (*1*REGISTER-ROXR-INS *3*OPLEN *3*INS *3*S)) (T (*1*REGISTER-ROXL-INS *3*OPLEN *3*INS *3*S)))) ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 8))) *1*F)) (*1*REGISTER-ROR-INS *3*OPLEN *3*INS *3*S)) (T (*1*REGISTER-ROL-INS *3*OPLEN *3*INS *3*S)))))))) (PUT1-LST (QUOTE *1*BF-SUBGROUP) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (PROGN *3*INS (*1*HALT (QUOTE I-WILL-DO-IT-LATER) *3*S)))))) (PUT1-LST (QUOTE *1*S&R-GROUP) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((EQUAL (SETQ *2*TEMP1 (*1*OP-LEN *3*INS)) (*1*Q)) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 11))) *1*F)) (*1*MEMORY-SHIFT-ROTATE *3*INS *3*S)) (T (*1*BF-SUBGROUP *3*INS *3*S)))) (T (*1*REGISTER-SHIFT-ROTATE *2*TEMP1 *3*INS *3*S)))))))) (PUT1-LST (QUOTE *1*MOVE-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (*1*AND (*1*ADDR-MODEP (SETQ *2*TEMP3 (*1*S_MODE *3*INS)) (*1*S_RN *3*INS)) (*1*AND (*1*DATA-ADDR-MODEP (SETQ *2*TEMP2 (*1*D_MODE *3*INS)) (SETQ *2*TEMP1 (*1*D_RN *3*INS))) (*1*AND (*1*ALTERABLE-ADDR-MODEP *2*TEMP2 *2*TEMP1) (*1*NOT (*1*BYTE-AN-DIRECT-MODEP *3*OPLEN *2*TEMP3)))))))))) (PUT1-LST (QUOTE *1*MOVE-Z) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*SOPD) (COND ((EQUAL (*1*HEAD *3*SOPD *3*OPLEN) (QUOTE 0)) (*1*B1)) (T (*1*B0))))))) (PUT1-LST (QUOTE *1*MOVE-N) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*SOPD) (*1*MBIT *3*SOPD *3*OPLEN))))) (PUT1-LST (QUOTE *1*MOVE-CVZNX) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*SOPD *3*CCR) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*CVZNX (SETQ *2*TEMP1 (*1*B0)) *2*TEMP1 (*1*MOVE-Z *3*OPLEN *3*SOPD) (*1*MOVE-N *3*OPLEN *3*SOPD) (*1*CCR-X *3*CCR))))))) (PUT1-LST (QUOTE *1*MOVE-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*SOPD *3*CCR) (CONS *3*SOPD (*1*MOVE-CVZNX *3*OPLEN *3*SOPD *3*CCR)))))) (PUT1-LST (QUOTE *1*MOVE-MAPPING) (QUOTE (SEXPR (LAMBDA (*3*SOPD *3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP2 (*1*CAR (SETQ *2*TEMP1 (*1*EFFEC-ADDR *3*OPLEN (*1*D_MODE *3*INS) (*1*D_RN *3*INS) *3*S))))) *1*F)) *2*TEMP2) (T (*1*MAPPING *3*OPLEN (*1*MOVE-EFFECT *3*OPLEN *3*SOPD (*1*MC-CCR *3*S)) *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*MOVE-INS) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*MOVE-ADDR-MODEP *3*OPLEN *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP2 (*1*CAR (SETQ *2*TEMP1 (*1*MC-INSTATE *3*OPLEN *3*INS *3*S))))) *1*F)) *2*TEMP2) (T (*1*MOVE-MAPPING (*1*OPERAND *3*OPLEN (*1*CDR *2*TEMP1) *3*S) *3*OPLEN *3*INS *2*TEMP2)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*MOVEA-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*INS) (*1*ADDR-MODEP (*1*S_MODE *3*INS) (*1*S_RN *3*INS)))))) (PUT1-LST (QUOTE *1*MOVEA-INS) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*MOVEA-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*MC-INSTATE *3*OPLEN *3*INS *3*S))))) *1*F)) *2*TEMP3) (T (*1*WRITE-AN (SETQ *2*TEMP1 (*1*L)) (*1*EXT *3*OPLEN (*1*OPERAND *3*OPLEN (*1*CDR *2*TEMP2) *3*S) *2*TEMP1) (*1*D_RN *3*INS) *2*TEMP3)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*MOVE-GROUP) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (COND ((EQUAL (*1*D_MODE *3*INS) (QUOTE 1)) (*1*MOVEA-INS *3*OPLEN *3*INS *3*S)) (T (*1*MOVE-INS *3*OPLEN *3*INS *3*S))))))) (PUT1-LST (QUOTE *1*LEA-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*INS) (*1*CONTROL-ADDR-MODEP (*1*S_MODE *3*INS) (*1*S_RN *3*INS)))))) (PUT1-LST (QUOTE *1*LEA-INS) (QUOTE (SEXPR (LAMBDA (*3*SMODE *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*LEA-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*EFFEC-ADDR (SETQ *2*TEMP1 (*1*L)) *3*SMODE (*1*S_RN *3*INS) *3*S))))) *1*F)) *2*TEMP3) (T (*1*WRITE-AN *2*TEMP1 (*1*CDR (*1*CDR *2*TEMP2)) (*1*D_RN *3*INS) *2*TEMP3)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*EXT-Z) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*OPD *3*SIZE) (COND ((EQUAL (*1*EXT *3*OPLEN *3*OPD *3*SIZE) (QUOTE 0)) (*1*B1)) (T (*1*B0))))))) (PUT1-LST (QUOTE *1*EXT-N) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*OPD *3*SIZE) (*1*MBIT (*1*EXT *3*OPLEN *3*OPD *3*SIZE) *3*SIZE))))) (PUT1-LST (QUOTE *1*EXT-CVZNX) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*OPD *3*SIZE *3*CCR) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*CVZNX (SETQ *2*TEMP1 (*1*B0)) *2*TEMP1 (*1*EXT-Z *3*OPLEN *3*OPD *3*SIZE) (*1*EXT-N *3*OPLEN *3*OPD *3*SIZE) (*1*CCR-X *3*CCR))))))) (PUT1-LST (QUOTE *1*EXT-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*OPD *3*SIZE *3*CCR) (CONS (*1*EXT *3*OPLEN *3*OPD *3*SIZE) (*1*EXT-CVZNX *3*OPLEN *3*OPD *3*SIZE *3*CCR)))))) (PUT1-LST (QUOTE *1*EXTB-INS) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (*1*D-MAPPING (SETQ *2*TEMP3 (*1*L)) (*1*EXT-EFFECT (SETQ *2*TEMP2 (*1*B)) (*1*READ-DN *2*TEMP2 (SETQ *2*TEMP1 (*1*S_RN *3*INS)) *3*S) *2*TEMP3 (*1*MC-CCR *3*S)) *2*TEMP1 *3*S)))))) (PUT1-LST (QUOTE *1*LEA-SUBGROUP) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((EQUAL (SETQ *2*TEMP1 (*1*S_MODE *3*INS)) (QUOTE 0)) (COND ((EQUAL (*1*BITS *3*INS (QUOTE 9) (QUOTE 11)) (QUOTE 4)) (*1*EXTB-INS *3*INS *3*S)) (T (*1*HALT (*1*RESERVED-SIGNAL) *3*S)))) (T (*1*LEA-INS *2*TEMP1 *3*INS *3*S)))))))) (PUT1-LST (QUOTE *1*CLR-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*INS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*AND (*1*DATA-ADDR-MODEP (SETQ *2*TEMP2 (*1*S_MODE *3*INS)) (SETQ *2*TEMP1 (*1*S_RN *3*INS))) (*1*ALTERABLE-ADDR-MODEP *2*TEMP2 *2*TEMP1))))))) (PUT1-LST (QUOTE *1*CLR-CVZNX) (QUOTE (SEXPR (LAMBDA (*3*CCR) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*CVZNX (SETQ *2*TEMP1 (*1*B0)) *2*TEMP1 (*1*B1) *2*TEMP1 (*1*CCR-X *3*CCR))))))) (PUT1-LST (QUOTE *1*CLR-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*CCR) (CONS (QUOTE 0) (*1*CLR-CVZNX *3*CCR)))))) (PUT1-LST (QUOTE *1*CLR-INS) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*CLR-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP2 (*1*CAR (SETQ *2*TEMP1 (*1*EFFEC-ADDR *3*OPLEN (*1*S_MODE *3*INS) (*1*S_RN *3*INS) *3*S))))) *1*F)) *2*TEMP2) (T (*1*MAPPING *3*OPLEN (*1*CLR-EFFECT (*1*MC-CCR *3*S)) *2*TEMP1)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*MOVE-FROM-CCR-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*INS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*AND (*1*DATA-ADDR-MODEP (SETQ *2*TEMP2 (*1*S_MODE *3*INS)) (SETQ *2*TEMP1 (*1*S_RN *3*INS))) (*1*ALTERABLE-ADDR-MODEP *2*TEMP2 *2*TEMP1))))))) (PUT1-LST (QUOTE *1*MOVE-FROM-CCR-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*CCR) (CONS *3*CCR *3*CCR))))) (PUT1-LST (QUOTE *1*MOVE-FROM-CCR-INS) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*MOVE-FROM-CCR-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*MC-INSTATE (SETQ *2*TEMP1 (*1*W)) *3*INS *3*S))))) *1*F)) *2*TEMP3) (T (*1*MAPPING *2*TEMP1 (*1*MOVE-FROM-CCR-EFFECT (*1*MC-CCR *3*S)) *2*TEMP2)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*CLR-SUBGROUP) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((EQUAL (SETQ *2*TEMP1 (*1*OP-LEN *3*INS)) (*1*Q)) (*1*MOVE-FROM-CCR-INS *3*INS *3*S)) (T (*1*CLR-INS *2*TEMP1 *3*INS *3*S)))))))) (PUT1-LST (QUOTE *1*NEGX-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*INS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*AND (*1*DATA-ADDR-MODEP (SETQ *2*TEMP2 (*1*S_MODE *3*INS)) (SETQ *2*TEMP1 (*1*S_RN *3*INS))) (*1*ALTERABLE-ADDR-MODEP *2*TEMP2 *2*TEMP1))))))) (PUT1-LST (QUOTE *1*NEGX-INS) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NEGX-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP2 (*1*CAR (SETQ *2*TEMP1 (*1*MC-INSTATE *3*OPLEN *3*INS *3*S))))) *1*F)) *2*TEMP2) (T (*1*MAPPING *3*OPLEN (*1*SUBX-EFFECT *3*OPLEN (*1*OPERAND *3*OPLEN (*1*CDR *2*TEMP1) *3*S) (QUOTE 0) (*1*MC-CCR *3*S)) *2*TEMP1)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*NEGX-SUBGROUP) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((EQUAL (SETQ *2*TEMP1 (*1*OP-LEN *3*INS)) (*1*Q)) (*1*HALT (QUOTE MOVE-FROM-SR-PRIVILEGED) *3*S)) (T (*1*NEGX-INS *2*TEMP1 *3*INS *3*S)))))))) (PUT1-LST (QUOTE *1*NEG-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*INS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*AND (*1*DATA-ADDR-MODEP (SETQ *2*TEMP2 (*1*S_MODE *3*INS)) (SETQ *2*TEMP1 (*1*S_RN *3*INS))) (*1*ALTERABLE-ADDR-MODEP *2*TEMP2 *2*TEMP1))))))) (PUT1-LST (QUOTE *1*NEG-INS) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NEG-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP2 (*1*CAR (SETQ *2*TEMP1 (*1*MC-INSTATE *3*OPLEN *3*INS *3*S))))) *1*F)) *2*TEMP2) (T (*1*MAPPING *3*OPLEN (*1*SUB-EFFECT *3*OPLEN (*1*OPERAND *3*OPLEN (*1*CDR *2*TEMP1) *3*S) (QUOTE 0)) *2*TEMP1)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*MOVE-TO-CCR-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*INS) (*1*DATA-ADDR-MODEP (*1*S_MODE *3*INS) (*1*S_RN *3*INS)))))) (PUT1-LST (QUOTE *1*MOVE-TO-CCR-INS) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*MOVE-TO-CCR-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*MC-INSTATE (SETQ *2*TEMP1 (*1*W)) *3*INS *3*S))))) *1*F)) *2*TEMP3) (T (*1*UPDATE-CCR (*1*HEAD (*1*OPERAND *2*TEMP1 (*1*CDR *2*TEMP2) *3*S) (*1*B)) *2*TEMP3)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*NEG-SUBGROUP) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((EQUAL (SETQ *2*TEMP1 (*1*OP-LEN *3*INS)) (*1*Q)) (*1*MOVE-TO-CCR-INS *3*INS *3*S)) (T (*1*NEG-INS *2*TEMP1 *3*INS *3*S)))))))) (PUT1-LST (QUOTE *1*PEA-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*INS) (*1*CONTROL-ADDR-MODEP (*1*S_MODE *3*INS) (*1*S_RN *3*INS)))))) (PUT1-LST (QUOTE *1*PEA-INS) (QUOTE (SEXPR (LAMBDA (*3*SMODE *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*PEA-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP2 (*1*CAR (SETQ *2*TEMP1 (*1*EFFEC-ADDR (*1*L) *3*SMODE (*1*S_RN *3*INS) *3*S))))) *1*F)) *2*TEMP2) (T (*1*PUSH-SP (*1*LSZ) (*1*CDR (*1*CDR *2*TEMP1)) *2*TEMP2)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*SWAP-Z) (QUOTE (SEXPR (LAMBDA (*3*OPD) (COND ((EQUAL (*1*FIX *3*OPD) (QUOTE 0)) (*1*B1)) (T (*1*B0))))))) (PUT1-LST (QUOTE *1*SWAP-N) (QUOTE (SEXPR (LAMBDA (*3*OPD) (*1*BITN *3*OPD (QUOTE 15)))))) (PUT1-LST (QUOTE *1*SWAP-CVZNX) (QUOTE (SEXPR (LAMBDA (*3*OPD *3*CCR) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*CVZNX (SETQ *2*TEMP1 (*1*B0)) *2*TEMP1 (*1*SWAP-Z *3*OPD) (*1*SWAP-N *3*OPD) (*1*CCR-X *3*CCR))))))) (PUT1-LST (QUOTE *1*SWAP-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*OPD *3*CCR) (LET ((*2*TEMP1 (QUOTE *1*X))) (CONS (*1*APP (SETQ *2*TEMP1 (*1*W)) (*1*TAIL *3*OPD *2*TEMP1) (*1*HEAD *3*OPD *2*TEMP1)) (*1*SWAP-CVZNX *3*OPD *3*CCR))))))) (PUT1-LST (QUOTE *1*SWAP-INS) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*D-MAPPING (SETQ *2*TEMP2 (*1*L)) (*1*SWAP-EFFECT (*1*READ-DN *2*TEMP2 (SETQ *2*TEMP1 (*1*S_RN *3*INS)) *3*S) (*1*MC-CCR *3*S)) *2*TEMP1 *3*S)))))) (PUT1-LST (QUOTE *1*PEA-SUBGROUP) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*LESSP (SETQ *2*TEMP1 (*1*S_MODE *3*INS)) (QUOTE 2)) *1*F)) (COND ((EQUAL *2*TEMP1 (QUOTE 0)) (*1*SWAP-INS *3*INS *3*S)) (T (*1*HALT (QUOTE BKPT-UNSPECIFIED) *3*S)))) (T (*1*PEA-INS *2*TEMP1 *3*INS *3*S)))))))) (PUT1-LST (QUOTE *1*EXT-INS) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X))) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 6))) *1*F)) (*1*D-MAPPING (SETQ *2*TEMP4 (*1*W)) (*1*EXT-EFFECT (SETQ *2*TEMP3 (*1*B)) (*1*READ-DN *2*TEMP3 (SETQ *2*TEMP2 (*1*S_RN *3*INS)) *3*S) *2*TEMP4 (*1*MC-CCR *3*S)) *2*TEMP2 *3*S)) (T (*1*D-MAPPING (SETQ *2*TEMP1 (*1*L)) (*1*EXT-EFFECT (SETQ *2*TEMP4 (*1*W)) (*1*READ-DN *2*TEMP4 (SETQ *2*TEMP2 (*1*S_RN *3*INS)) *3*S) *2*TEMP1 (*1*MC-CCR *3*S)) *2*TEMP2 *3*S)))))))) (PUT1-LST (QUOTE *1*READM-MEM) (QUOTE (SEXPR (LAMBDA (*3*OPSZ *3*ADDR *3*MEM *3*N) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE NIL)) (T (CONS (*1*READ-MEM *3*ADDR *3*MEM *3*OPSZ) (*1*READM-MEM *3*OPSZ (*1*ADD (*1*L) *3*ADDR *3*OPSZ) *3*MEM (*1*SUB1 *3*N))))))))) (PUT1-LST (QUOTE *1*WRITEM-MEM) (QUOTE (SEXPR (LAMBDA (*3*OPSZ *3*VLST *3*ADDR *3*MEM) (COND ((AND (CONSP *3*VLST) (NOT (EQ (CAR *3*VLST) (QUOTE *1*QUOTE)))) (*1*WRITEM-MEM *3*OPSZ (CDR *3*VLST) (*1*ADD (*1*L) *3*ADDR *3*OPSZ) (*1*WRITE-MEM (CAR *3*VLST) *3*ADDR *3*MEM *3*OPSZ))) (T *3*MEM)))))) (PUT1-LST (QUOTE *1*READM-RN) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*RNLST *3*RFILE) (COND ((AND (CONSP *3*RNLST) (NOT (EQ (CAR *3*RNLST) (QUOTE *1*QUOTE)))) (CONS (*1*READ-RN *3*OPLEN (CAR *3*RNLST) *3*RFILE) (*1*READM-RN *3*OPLEN (CDR *3*RNLST) *3*RFILE))) (T (QUOTE NIL))))))) (PUT1-LST (QUOTE *1*WRITEM-RN) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*VLST *3*RNLST *3*RFILE) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((AND (CONSP *3*RNLST) (NOT (EQ (CAR *3*RNLST) (QUOTE *1*QUOTE)))) (*1*WRITEM-RN *3*OPLEN (*1*CDR *3*VLST) (CDR *3*RNLST) (*1*WRITE-RN (SETQ *2*TEMP1 (*1*L)) (*1*EXT *3*OPLEN (*1*CAR *3*VLST) *2*TEMP1) (CAR *3*RNLST) *3*RFILE))) (T *3*RFILE))))))) (PUT1-LST (QUOTE *1*MOVEM-RNLST) (QUOTE (SEXPR (LAMBDA (*3*MASK *3*I) (LET NIL (COND ((NOT (EQ (*1*ZEROP *3*MASK) *1*F)) (QUOTE NIL)) ((NOT (EQ (*1*B0P (*1*BCAR *3*MASK)) *1*F)) (*1*MOVEM-RNLST (*1*BCDR *3*MASK) (*1*ADD1 *3*I))) (T (CONS *3*I (*1*MOVEM-RNLST (*1*BCDR *3*MASK) (*1*ADD1 *3*I)))))))))) (PUT1-LST (QUOTE *1*MOVEM-LEN) (QUOTE (SEXPR (LAMBDA (*3*MASK) (LET NIL (COND ((NOT (EQ (*1*ZEROP *3*MASK) *1*F)) (QUOTE 0)) ((NOT (EQ (*1*B0P (*1*BCAR *3*MASK)) *1*F)) (*1*MOVEM-LEN (*1*BCDR *3*MASK))) (T (*1*ADD1 (*1*MOVEM-LEN (*1*BCDR *3*MASK)))))))))) (PUT1-LST (QUOTE *1*WRITEMP) (QUOTE (SEXPR (LAMBDA (*3*MASK *3*OPLEN *3*ADDR *3*MEM) (*1*WRITE-MEMP *3*ADDR *3*MEM (*1*TIMES (*1*OP-SZ *3*OPLEN) (*1*MOVEM-LEN *3*MASK))))))) (PUT1-LST (QUOTE *1*MOVEM-PRE-RNLST) (QUOTE (SEXPR (LAMBDA (*3*MASK *3*I *3*LST) (LET NIL (COND ((NOT (EQ (*1*ZEROP *3*MASK) *1*F)) *3*LST) ((NOT (EQ (*1*B0P (*1*BCAR *3*MASK)) *1*F)) (*1*MOVEM-PRE-RNLST (*1*BCDR *3*MASK) (*1*SUB1 *3*I) *3*LST)) (T (*1*MOVEM-PRE-RNLST (*1*BCDR *3*MASK) (*1*SUB1 *3*I) (CONS *3*I *3*LST))))))))) (PUT1-LST (QUOTE *1*MOVEM-PREDEC) (QUOTE (SEXPR (LAMBDA (*3*MASK *3*OPLEN *3*RN *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (CONS (*1*WRITE-AN (SETQ *2*TEMP2 (*1*L)) (*1*PRE-EFFECT *3*OPLEN *3*RN (SETQ *2*TEMP1 (*1*READ-AN *2*TEMP2 *3*RN *3*S))) *3*RN *3*S) (CONS (QUOTE M) (*1*SUB *2*TEMP2 (*1*TIMES (*1*OP-SZ *3*OPLEN) (*1*MOVEM-LEN *3*MASK)) *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*MOVEM-RN-EA-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*INS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*AND (*1*ALTERABLE-ADDR-MODEP (SETQ *2*TEMP2 (*1*S_MODE *3*INS)) (SETQ *2*TEMP1 (*1*S_RN *3*INS))) (*1*CONTROL-ADDR-MODEP *2*TEMP2 *2*TEMP1))))))) (PUT1-LST (QUOTE *1*MOVEM-RN-EA-INS) (QUOTE (SEXPR (LAMBDA (*3*MASK *3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X)) (*2*TEMP9 (QUOTE *1*X))) (COND ((NOT (EQ (*1*PREDEC-MODEP (SETQ *2*TEMP9 (*1*S_MODE *3*INS))) *1*F)) (COND ((NOT (EQ (*1*WRITEMP *3*MASK *3*OPLEN (SETQ *2*TEMP8 (*1*CDR (*1*CDR (SETQ *2*TEMP7 (*1*MOVEM-PREDEC *3*MASK *3*OPLEN (SETQ *2*TEMP6 (*1*S_RN *3*INS)) *3*S))))) (SETQ *2*TEMP5 (*1*MC-MEM *3*S))) *1*F)) (*1*WRITE-AN (*1*L) *2*TEMP8 *2*TEMP6 (*1*UPDATE-MEM (*1*WRITEM-MEM (*1*OP-SZ *3*OPLEN) (*1*READM-RN *3*OPLEN (*1*MOVEM-PRE-RNLST *3*MASK (QUOTE 15) (QUOTE NIL)) (*1*MC-RFILE (SETQ *2*TEMP4 (*1*CAR *2*TEMP7)))) *2*TEMP8 *2*TEMP5) *2*TEMP4))) (T (*1*HALT (*1*WRITE-SIGNAL) *3*S)))) ((NOT (EQ (*1*MOVEM-RN-EA-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*EFFEC-ADDR *3*OPLEN *2*TEMP9 (SETQ *2*TEMP6 (*1*S_RN *3*INS)) *3*S))))) *1*F)) *2*TEMP3) ((NOT (EQ (*1*WRITEMP *3*MASK *3*OPLEN (SETQ *2*TEMP1 (*1*CDR (*1*CDR *2*TEMP2))) (SETQ *2*TEMP5 (*1*MC-MEM *3*S))) *1*F)) (*1*UPDATE-MEM (*1*WRITEM-MEM (*1*OP-SZ *3*OPLEN) (*1*READM-RN *3*OPLEN (*1*MOVEM-RNLST *3*MASK (QUOTE 0)) (*1*MC-RFILE *3*S)) *2*TEMP1 *2*TEMP5) *2*TEMP3)) (T (*1*HALT (*1*WRITE-SIGNAL) *3*S)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*EXT-SUBGROUP) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((EQUAL (*1*S_MODE *3*INS) (QUOTE 0)) (*1*EXT-INS *3*INS *3*S)) ((NOT (EQ (*1*PC-WORD-READP (SETQ *2*TEMP3 (*1*MC-PC *3*S)) (SETQ *2*TEMP2 (*1*MC-MEM *3*S))) *1*F)) (*1*MOVEM-RN-EA-INS (*1*PC-WORD-READ *2*TEMP3 *2*TEMP2) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 6))) *1*F)) (*1*W)) (T (SETQ *2*TEMP1 (*1*L)))) *3*INS (*1*UPDATE-PC (*1*ADD (COND ((NOT (EQ *2*TEMP1 (QUOTE *1*X))) *2*TEMP1) (T (*1*L))) *2*TEMP3 (*1*WSZ)) *3*S))) (T (*1*HALT (*1*PC-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*TST-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS) (LET NIL (COND ((EQUAL *3*OPLEN (*1*B)) (*1*DATA-ADDR-MODEP (*1*S_MODE *3*INS) (*1*S_RN *3*INS))) (T (*1*ADDR-MODEP (*1*S_MODE *3*INS) (*1*S_RN *3*INS))))))))) (PUT1-LST (QUOTE *1*TST-INS) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*TST-ADDR-MODEP *3*OPLEN *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP2 (*1*CAR (SETQ *2*TEMP1 (*1*MC-INSTATE *3*OPLEN *3*INS *3*S))))) *1*F)) *2*TEMP2) (T (*1*UPDATE-CCR (*1*MOVE-CVZNX *3*OPLEN (*1*OPERAND *3*OPLEN (*1*CDR *2*TEMP1) *3*S) (*1*MC-CCR *3*S)) *2*TEMP2)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*TAS-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*INS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*AND (*1*DATA-ADDR-MODEP (SETQ *2*TEMP2 (*1*S_MODE *3*INS)) (SETQ *2*TEMP1 (*1*S_RN *3*INS))) (*1*ALTERABLE-ADDR-MODEP *2*TEMP2 *2*TEMP1))))))) (PUT1-LST (QUOTE *1*TAS-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*OPD *3*CCR) (CONS (*1*SETN *3*OPD (QUOTE 7) (*1*B1)) (*1*MOVE-CVZNX (*1*B) *3*OPD *3*CCR)))))) (PUT1-LST (QUOTE *1*TAS-INS) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*TAS-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*MC-INSTATE (SETQ *2*TEMP1 (*1*B)) *3*INS *3*S))))) *1*F)) *2*TEMP3) (T (*1*MAPPING *2*TEMP1 (*1*TAS-EFFECT (*1*OPERAND *2*TEMP1 (*1*CDR *2*TEMP2) *3*S) (*1*MC-CCR *3*S)) *2*TEMP2)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*TST-SUBGROUP) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((EQUAL (SETQ *2*TEMP1 (*1*OP-LEN *3*INS)) (*1*Q)) (COND ((EQUAL (*1*HEAD *3*INS (QUOTE 6)) (QUOTE 60)) (*1*HALT (QUOTE ILLEGAL-UNSPECIFIED) *3*S)) (T (*1*TAS-INS *3*INS *3*S)))) (T (*1*TST-INS *2*TEMP1 *3*INS *3*S)))))))) (PUT1-LST (QUOTE *1*DIVSL_L) (QUOTE (SEXPR (LAMBDA (*3*SOPD *3*DOPD *3*DQ *3*DR *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*B0P (*1*DIVS-V (SETQ *2*TEMP1 (*1*L)) *3*SOPD *2*TEMP1 *3*DOPD *2*TEMP1)) *1*F)) (*1*UPDATE-CCR (*1*DIVS-CVZNX *2*TEMP1 *3*SOPD *2*TEMP1 *3*DOPD *2*TEMP1 (*1*MC-CCR *3*S)) (*1*WRITE-DN *2*TEMP1 (*1*IQUOT *2*TEMP1 *3*SOPD *2*TEMP1 *3*DOPD *2*TEMP1) *3*DQ (*1*WRITE-DN *2*TEMP1 (*1*IREM *2*TEMP1 *3*SOPD *2*TEMP1 *3*DOPD *2*TEMP1) *3*DR *3*S)))) (T (*1*HALT (QUOTE DIVS-OVERFLOW) (*1*UPDATE-CCR (*1*SET-V (*1*B1) (*1*MC-CCR *3*S)) *3*S))))))))) (PUT1-LST (QUOTE *1*DIVS_L) (QUOTE (SEXPR (LAMBDA (*3*SOPD *3*DOPD_LOW *3*DQ *3*DR *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*B0P (*1*DIVS-V (SETQ *2*TEMP3 (*1*L)) *3*SOPD *2*TEMP3 (SETQ *2*TEMP2 (*1*APP *2*TEMP3 *3*DOPD_LOW (*1*READ-DN *2*TEMP3 *3*DR *3*S))) (SETQ *2*TEMP1 (*1*Q)))) *1*F)) (*1*UPDATE-CCR (*1*DIVS-CVZNX *2*TEMP3 *3*SOPD *2*TEMP3 *2*TEMP2 *2*TEMP1 (*1*MC-CCR *3*S)) (*1*WRITE-DN *2*TEMP3 (*1*IQUOT *2*TEMP3 *3*SOPD *2*TEMP3 *2*TEMP2 *2*TEMP1) *3*DQ (*1*WRITE-DN *2*TEMP3 (*1*IREM *2*TEMP3 *3*SOPD *2*TEMP3 *2*TEMP2 *2*TEMP1) *3*DR *3*S)))) (T (*1*HALT (QUOTE DIVS-OVERFLOW) (*1*UPDATE-CCR (*1*SET-V (*1*B1) (*1*MC-CCR *3*S)) *3*S))))))))) (PUT1-LST (QUOTE *1*DIVUL_L) (QUOTE (SEXPR (LAMBDA (*3*SOPD *3*DOPD *3*DQ *3*DR *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*UPDATE-CCR (*1*DIVU-CVZNX (SETQ *2*TEMP1 (*1*L)) *3*SOPD *3*DOPD (*1*MC-CCR *3*S)) (*1*WRITE-DN *2*TEMP1 (*1*QUOT *2*TEMP1 *3*SOPD *3*DOPD) *3*DQ (*1*WRITE-DN *2*TEMP1 (*1*REM *2*TEMP1 *3*SOPD *3*DOPD) *3*DR *3*S)))))))) (PUT1-LST (QUOTE *1*DIVU_L) (QUOTE (SEXPR (LAMBDA (*3*SOPD *3*DOPD_LOW *3*DQ *3*DR *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*B0P (*1*DIVU-V (SETQ *2*TEMP2 (*1*L)) *3*SOPD (SETQ *2*TEMP1 (*1*APP *2*TEMP2 *3*DOPD_LOW (*1*READ-DN *2*TEMP2 *3*DR *3*S))))) *1*F)) (*1*UPDATE-CCR (*1*DIVU-CVZNX *2*TEMP2 *3*SOPD *2*TEMP1 (*1*MC-CCR *3*S)) (*1*WRITE-DN *2*TEMP2 (*1*QUOT *2*TEMP2 *3*SOPD *2*TEMP1) *3*DQ (*1*WRITE-DN *2*TEMP2 (*1*REM *2*TEMP2 *3*SOPD *2*TEMP1) *3*DR *3*S)))) (T (*1*HALT (QUOTE DIVU-OVERFLOW) (*1*UPDATE-CCR (*1*SET-V (*1*B1) (*1*MC-CCR *3*S)) *3*S))))))))) (PUT1-LST (QUOTE *1*DQ) (QUOTE (SEXPR (LAMBDA (*3*WORD) (*1*BITS *3*WORD (QUOTE 12) (QUOTE 14)))))) (PUT1-LST (QUOTE *1*DR) (QUOTE (SEXPR (LAMBDA (*3*WORD) (*1*BITS *3*WORD (QUOTE 0) (QUOTE 2)))))) (PUT1-LST (QUOTE *1*DIV_L-INS) (QUOTE (SEXPR (LAMBDA (*3*SOPD *3*WORD *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*WORD (QUOTE 11))) *1*F)) (COND ((EQUAL (*1*NAT-TO-UINT *3*SOPD) (QUOTE 0)) (*1*HALT (QUOTE TRAP-EXCEPTION) *3*S)) ((NOT (EQ (*1*B0P (*1*BITN *3*WORD (QUOTE 10))) *1*F)) (*1*DIVUL_L *3*SOPD (*1*READ-DN (*1*L) (SETQ *2*TEMP1 (*1*DQ *3*WORD)) *3*S) *2*TEMP1 (*1*DR *3*WORD) *3*S)) (T (*1*DIVU_L *3*SOPD (*1*READ-DN (*1*L) (SETQ *2*TEMP1 (*1*DQ *3*WORD)) *3*S) *2*TEMP1 (*1*DR *3*WORD) *3*S)))) ((EQUAL (*1*NAT-TO-INT *3*SOPD (SETQ *2*TEMP2 (*1*L))) (QUOTE 0)) (*1*HALT (QUOTE TRAP-EXCEPTION) *3*S)) ((NOT (EQ (*1*B0P (*1*BITN *3*WORD (QUOTE 10))) *1*F)) (*1*DIVSL_L *3*SOPD (*1*READ-DN *2*TEMP2 (SETQ *2*TEMP1 (*1*DQ *3*WORD)) *3*S) *2*TEMP1 (*1*DR *3*WORD) *3*S)) (T (*1*DIVS_L *3*SOPD (*1*READ-DN *2*TEMP2 (SETQ *2*TEMP1 (*1*DQ *3*WORD)) *3*S) *2*TEMP1 (*1*DR *3*WORD) *3*S)))))))) (PUT1-LST (QUOTE *1*MULU_L_DL) (QUOTE (SEXPR (LAMBDA (*3*SOPD *3*DOPD *3*DL *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*UPDATE-CCR (*1*MULU-CVZNX (SETQ *2*TEMP1 (*1*L)) *3*SOPD *3*DOPD *2*TEMP1 (*1*MC-CCR *3*S)) (*1*WRITE-DN *2*TEMP1 (*1*MULU *2*TEMP1 *3*SOPD *3*DOPD *2*TEMP1) *3*DL *3*S))))))) (PUT1-LST (QUOTE *1*MULU_L_DLDH) (QUOTE (SEXPR (LAMBDA (*3*SOPD *3*DOPD *3*DL *3*DH *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((EQUAL *3*DL *3*DH) (*1*HALT (QUOTE MC-UNDEFINED) *3*S)) (T (*1*UPDATE-CCR (*1*MULU-CVZNX (SETQ *2*TEMP3 (*1*Q)) *3*SOPD *3*DOPD (SETQ *2*TEMP2 (*1*L)) (*1*MC-CCR *3*S)) (*1*WRITE-DN *2*TEMP2 (*1*TAIL (SETQ *2*TEMP1 (*1*MULU *2*TEMP3 *3*SOPD *3*DOPD *2*TEMP2)) *2*TEMP2) *3*DH (*1*WRITE-DN *2*TEMP2 (*1*HEAD *2*TEMP1 *2*TEMP2) *3*DL *3*S)))))))))) (PUT1-LST (QUOTE *1*MULS_L_DL) (QUOTE (SEXPR (LAMBDA (*3*SOPD *3*DOPD *3*DL *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*UPDATE-CCR (*1*MULS-CVZNX (SETQ *2*TEMP1 (*1*L)) *3*SOPD *3*DOPD *2*TEMP1 (*1*MC-CCR *3*S)) (*1*WRITE-DN *2*TEMP1 (*1*MULS *2*TEMP1 *3*SOPD *3*DOPD *2*TEMP1) *3*DL *3*S))))))) (PUT1-LST (QUOTE *1*MULS_L_DLDH) (QUOTE (SEXPR (LAMBDA (*3*SOPD *3*DOPD *3*DL *3*DH *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((EQUAL *3*DL *3*DH) (*1*HALT (QUOTE MC-UNDEFINED) *3*S)) (T (*1*UPDATE-CCR (*1*MULS-CVZNX (SETQ *2*TEMP3 (*1*Q)) *3*SOPD *3*DOPD (SETQ *2*TEMP2 (*1*L)) (*1*MC-CCR *3*S)) (*1*WRITE-DN *2*TEMP2 (*1*TAIL (SETQ *2*TEMP1 (*1*MULS *2*TEMP3 *3*SOPD *3*DOPD *2*TEMP2)) *2*TEMP2) *3*DH (*1*WRITE-DN *2*TEMP2 (*1*HEAD *2*TEMP1 *2*TEMP2) *3*DL *3*S)))))))))) (PUT1-LST (QUOTE *1*DL) (QUOTE (SEXPR (LAMBDA (*3*WORD) (*1*BITS *3*WORD (QUOTE 12) (QUOTE 14)))))) (PUT1-LST (QUOTE *1*DH) (QUOTE (SEXPR (LAMBDA (*3*WORD) (*1*BITS *3*WORD (QUOTE 0) (QUOTE 2)))))) (PUT1-LST (QUOTE *1*MUL_L-INS) (QUOTE (SEXPR (LAMBDA (*3*SOPD *3*WORD *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*WORD (QUOTE 11))) *1*F)) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*WORD (QUOTE 10))) *1*F)) (*1*MULU_L_DL *3*SOPD (*1*READ-DN (*1*L) (SETQ *2*TEMP1 (*1*DL *3*WORD)) *3*S) *2*TEMP1 *3*S)) (T (*1*MULU_L_DLDH *3*SOPD (*1*READ-DN (*1*L) (SETQ *2*TEMP1 (*1*DL *3*WORD)) *3*S) *2*TEMP1 (*1*DH *3*WORD) *3*S)))) ((NOT (EQ (*1*B0P (*1*BITN *3*WORD (QUOTE 10))) *1*F)) (*1*MULS_L_DL *3*SOPD (*1*READ-DN (*1*L) (SETQ *2*TEMP1 (*1*DL *3*WORD)) *3*S) *2*TEMP1 *3*S)) (T (*1*MULS_L_DLDH *3*SOPD (*1*READ-DN (*1*L) (SETQ *2*TEMP1 (*1*DL *3*WORD)) *3*S) *2*TEMP1 (*1*DH *3*WORD) *3*S)))))))) (PUT1-LST (QUOTE *1*MUL-DIV_L-INS) (QUOTE (SEXPR (LAMBDA (*3*WORD *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*AND (*1*B0P (*1*BITN *3*WORD (QUOTE 15))) (COND ((EQUAL (*1*BITS *3*WORD (QUOTE 3) (QUOTE 9)) (QUOTE 0)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE)))) *1*F)) (COND ((NOT (EQ (*1*MUL&DIV-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*MC-INSTATE (SETQ *2*TEMP1 (*1*L)) *3*INS *3*S))))) *1*F)) *2*TEMP3) ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 6))) *1*F)) (*1*MUL_L-INS (*1*OPERAND *2*TEMP1 (*1*CDR *2*TEMP2) *2*TEMP3) *3*WORD *2*TEMP3)) (T (*1*DIV_L-INS (*1*OPERAND *2*TEMP1 (*1*CDR *2*TEMP2) *2*TEMP3) *3*WORD *2*TEMP3)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))) (T (*1*HALT (*1*RESERVED-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*MOVEM-EA-RN-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*INS) (*1*CONTROL-ADDR-MODEP (*1*S_MODE *3*INS) (*1*S_RN *3*INS)))))) (PUT1-LST (QUOTE *1*READMP) (QUOTE (SEXPR (LAMBDA (*3*MASK *3*OPLEN *3*ADDR *3*MEM) (*1*READ-MEMP *3*ADDR *3*MEM (*1*TIMES (*1*OP-SZ *3*OPLEN) (*1*MOVEM-LEN *3*MASK))))))) (PUT1-LST (QUOTE *1*MOVEM-EA-RN-INS) (QUOTE (SEXPR (LAMBDA (*3*MASK *3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X)) (*2*TEMP5 (QUOTE *1*X)) (*2*TEMP6 (QUOTE *1*X)) (*2*TEMP7 (QUOTE *1*X)) (*2*TEMP8 (QUOTE *1*X)) (*2*TEMP9 (QUOTE *1*X)) (*2*TEMP10 (QUOTE *1*X))) (COND ((NOT (EQ (*1*POSTINC-MODEP (SETQ *2*TEMP10 (*1*S_MODE *3*INS))) *1*F)) (COND ((NOT (EQ (*1*READMP *3*MASK *3*OPLEN (SETQ *2*TEMP9 (*1*READ-AN (SETQ *2*TEMP8 (*1*L)) (SETQ *2*TEMP7 (*1*S_RN *3*INS)) *3*S)) (SETQ *2*TEMP6 (*1*MC-MEM *3*S))) *1*F)) (*1*WRITE-AN *2*TEMP8 (*1*ADD *2*TEMP8 *2*TEMP9 (*1*TIMES (SETQ *2*TEMP5 (*1*OP-SZ *3*OPLEN)) (SETQ *2*TEMP4 (*1*MOVEM-LEN *3*MASK)))) *2*TEMP7 (*1*UPDATE-RFILE (*1*WRITEM-RN *3*OPLEN (*1*READM-MEM *2*TEMP5 *2*TEMP9 *2*TEMP6 *2*TEMP4) (*1*MOVEM-RNLST *3*MASK (QUOTE 0)) (*1*MC-RFILE *3*S)) *3*S))) (T (*1*HALT (*1*READ-SIGNAL) *3*S)))) ((NOT (EQ (*1*MOVEM-EA-RN-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*EFFEC-ADDR *3*OPLEN *2*TEMP10 (SETQ *2*TEMP7 (*1*S_RN *3*INS)) *3*S))))) *1*F)) *2*TEMP3) ((NOT (EQ (*1*READMP *3*MASK *3*OPLEN (SETQ *2*TEMP1 (*1*CDR (*1*CDR *2*TEMP2))) (SETQ *2*TEMP6 (*1*MC-MEM *3*S))) *1*F)) (*1*UPDATE-RFILE (*1*WRITEM-RN *3*OPLEN (*1*READM-MEM (*1*OP-SZ *3*OPLEN) *2*TEMP1 *2*TEMP6 (*1*MOVEM-LEN *3*MASK)) (*1*MOVEM-RNLST *3*MASK (QUOTE 0)) (*1*MC-RFILE *3*S)) *2*TEMP3)) (T (*1*HALT (*1*READ-SIGNAL) *3*S)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*MOVEM-EA-RN-SUBGROUP) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*PC-WORD-READP (SETQ *2*TEMP3 (*1*MC-PC *3*S)) (SETQ *2*TEMP2 (*1*MC-MEM *3*S))) *1*F)) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 7))) *1*F)) (*1*MUL-DIV_L-INS (*1*PC-WORD-READ *2*TEMP3 *2*TEMP2) *3*INS (*1*UPDATE-PC (*1*ADD (*1*L) *2*TEMP3 (*1*WSZ)) *3*S))) (T (*1*MOVEM-EA-RN-INS (*1*PC-WORD-READ *2*TEMP3 *2*TEMP2) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 6))) *1*F)) (*1*W)) (T (SETQ *2*TEMP1 (*1*L)))) *3*INS (*1*UPDATE-PC (*1*ADD (COND ((NOT (EQ *2*TEMP1 (QUOTE *1*X))) *2*TEMP1) (T (*1*L))) *2*TEMP3 (*1*WSZ)) *3*S))))) (T (*1*HALT (*1*PC-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*LINK-MAPPING) (QUOTE (SEXPR (LAMBDA (*3*AN *3*DISP *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X))) (COND ((NOT (EQ (*1*WRITE-MEMP (SETQ *2*TEMP4 (*1*SUB (SETQ *2*TEMP3 (*1*L)) (SETQ *2*TEMP2 (*1*LSZ)) (*1*READ-SP *3*S))) (SETQ *2*TEMP1 (*1*MC-MEM *3*S)) *2*TEMP2) *1*F)) (*1*UPDATE-MEM (*1*WRITE-MEM (*1*READ-AN *2*TEMP3 *3*AN *3*S) *2*TEMP4 *2*TEMP1 *2*TEMP2) (*1*WRITE-SP (*1*ADD *2*TEMP3 *2*TEMP4 *3*DISP) (*1*WRITE-AN *2*TEMP3 *2*TEMP4 *3*AN *3*S)))) (T (*1*HALT (*1*WRITE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*LINK_L-INS) (QUOTE (SEXPR (LAMBDA (*3*AN *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*PC-LONG-READP (SETQ *2*TEMP2 (*1*MC-PC *3*S)) (SETQ *2*TEMP1 (*1*MC-MEM *3*S))) *1*F)) (*1*LINK-MAPPING *3*AN (*1*PC-LONG-READ *2*TEMP2 *2*TEMP1) (*1*UPDATE-PC (*1*ADD (*1*L) *2*TEMP2 (*1*LSZ)) *3*S))) (T (*1*HALT (*1*PC-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*LINK_W-INS) (QUOTE (SEXPR (LAMBDA (*3*AN *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*PC-WORD-READP (SETQ *2*TEMP3 (*1*MC-PC *3*S)) (SETQ *2*TEMP2 (*1*MC-MEM *3*S))) *1*F)) (*1*LINK-MAPPING *3*AN (*1*EXT (*1*W) (*1*PC-WORD-READ *2*TEMP3 *2*TEMP2) (SETQ *2*TEMP1 (*1*L))) (*1*UPDATE-PC (*1*ADD *2*TEMP1 *2*TEMP3 (*1*WSZ)) *3*S))) (T (*1*HALT (*1*PC-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*UNLK-INS) (QUOTE (SEXPR (LAMBDA (*3*AN *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*LONG-READP (SETQ *2*TEMP3 (*1*READ-AN (SETQ *2*TEMP2 (*1*L)) *3*AN *3*S)) (SETQ *2*TEMP1 (*1*MC-MEM *3*S))) *1*F)) (*1*WRITE-AN *2*TEMP2 (*1*LONG-READ *2*TEMP3 *2*TEMP1) *3*AN (*1*WRITE-SP (*1*ADD *2*TEMP2 *2*TEMP3 (*1*LSZ)) *3*S))) (T (*1*HALT (*1*READ-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*UNLK-SUBGROUP) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET NIL (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 4))) *1*F)) (*1*HALT (QUOTE TRAP-UNSPECIFIED) *3*S)) ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 3))) *1*F)) (*1*LINK_W-INS (*1*S_RN *3*INS) *3*S)) (T (*1*UNLK-INS (*1*S_RN *3*INS) *3*S)))))))) (PUT1-LST (QUOTE *1*NOP-INS) (QUOTE (SEXPR (LAMBDA (*3*S) *3*S)))) (PUT1-LST (QUOTE *1*RTD-MAPPING) (QUOTE (SEXPR (LAMBDA (*3*SP *3*DISP *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*LONG-READP *3*SP (SETQ *2*TEMP2 (*1*MC-MEM *3*S))) *1*F)) (*1*UPDATE-PC (*1*LONG-READ *3*SP *2*TEMP2) (*1*WRITE-SP (*1*ADD (SETQ *2*TEMP1 (*1*L)) (*1*ADD *2*TEMP1 *3*SP (*1*LSZ)) (*1*EXT (*1*W) *3*DISP *2*TEMP1)) *3*S))) (T (*1*HALT (*1*READ-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*RTD-INS) (QUOTE (SEXPR (LAMBDA (*3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*PC-WORD-READP (SETQ *2*TEMP2 (*1*MC-PC *3*S)) (SETQ *2*TEMP1 (*1*MC-MEM *3*S))) *1*F)) (*1*RTD-MAPPING (*1*READ-SP *3*S) (*1*PC-WORD-READ *2*TEMP2 *2*TEMP1) *3*S)) (T (*1*HALT (*1*PC-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*RTS-INS) (QUOTE (SEXPR (LAMBDA (*3*S) (*1*RTD-MAPPING (*1*READ-SP *3*S) (QUOTE 0) *3*S))))) (PUT1-LST (QUOTE *1*RTR-INS) (QUOTE (SEXPR (LAMBDA (*3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*WORD-READP (SETQ *2*TEMP2 (*1*READ-SP *3*S)) (SETQ *2*TEMP1 (*1*MC-MEM *3*S))) *1*F)) (*1*RTD-MAPPING (*1*ADD (*1*L) *2*TEMP2 (*1*WSZ)) (QUOTE 0) (*1*UPDATE-CCR (*1*WORD-READ *2*TEMP2 *2*TEMP1) *3*S))) (T (*1*HALT (*1*READ-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*BVS) (QUOTE (SEXPR (LAMBDA (*3*V) (*1*FIX-BIT *3*V))))) (PUT1-LST (QUOTE *1*TRAPV-INS) (QUOTE (SEXPR (LAMBDA (*3*S) (COND ((NOT (EQ (*1*B1P (*1*BVS (*1*CCR-V (*1*MC-CCR *3*S)))) *1*F)) (*1*HALT (QUOTE TRAPV-EXCEPTION) *3*S)) (T *3*S)))))) (PUT1-LST (QUOTE *1*NOP-SUBGROUP) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET NIL (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 2))) *1*F)) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 1))) *1*F)) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 0))) *1*F)) (*1*HALT (QUOTE RESET-PRIVILEGED) *3*S)) (T (*1*NOP-INS *3*S)))) ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 0))) *1*F)) (*1*HALT (QUOTE STOP-PRIVILEGED) *3*S)) (T (*1*HALT (QUOTE RTE-PRIVILEGED) *3*S)))) ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 1))) *1*F)) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 0))) *1*F)) (*1*RTD-INS *3*S)) (T (*1*RTS-INS *3*S)))) ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 0))) *1*F)) (*1*TRAPV-INS *3*S)) (T (*1*RTR-INS *3*S)))))))) (PUT1-LST (QUOTE *1*JMP-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*INS) (*1*CONTROL-ADDR-MODEP (*1*S_MODE *3*INS) (*1*S_RN *3*INS)))))) (PUT1-LST (QUOTE *1*JMP-MAPPING) (QUOTE (SEXPR (LAMBDA (*3*ADDR *3*S) (COND ((NOT (EQ (*1*MC-HALTP *3*S) *1*F)) *3*S) (T (*1*UPDATE-PC *3*ADDR *3*S))))))) (PUT1-LST (QUOTE *1*JMP-INS) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*JMP-ADDR-MODEP *3*INS) *1*F)) (*1*JMP-MAPPING (*1*CDR (*1*CDR (SETQ *2*TEMP1 (*1*EFFEC-ADDR (*1*L) (*1*S_MODE *3*INS) (*1*S_RN *3*INS) *3*S)))) (*1*CAR *2*TEMP1))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*JSR-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*INS) (*1*CONTROL-ADDR-MODEP (*1*S_MODE *3*INS) (*1*S_RN *3*INS)))))) (PUT1-LST (QUOTE *1*JSR-INS) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*JSR-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP2 (*1*CAR (SETQ *2*TEMP1 (*1*EFFEC-ADDR (*1*L) (*1*S_MODE *3*INS) (*1*S_RN *3*INS) *3*S))))) *1*F)) *2*TEMP2) (T (*1*JMP-MAPPING (*1*CDR (*1*CDR *2*TEMP1)) (*1*PUSH-SP (*1*LSZ) (*1*MC-PC *2*TEMP2) *2*TEMP2))))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*NOT-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*INS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*AND (*1*DATA-ADDR-MODEP (SETQ *2*TEMP2 (*1*S_MODE *3*INS)) (SETQ *2*TEMP1 (*1*S_RN *3*INS))) (*1*ALTERABLE-ADDR-MODEP *2*TEMP2 *2*TEMP1))))))) (PUT1-LST (QUOTE *1*NOT-Z) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*OPD) (COND ((EQUAL (*1*LOGNOT *3*OPLEN *3*OPD) (QUOTE 0)) (*1*B1)) (T (*1*B0))))))) (PUT1-LST (QUOTE *1*NOT-N) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*OPD) (*1*MBIT (*1*LOGNOT *3*OPLEN *3*OPD) *3*OPLEN))))) (PUT1-LST (QUOTE *1*NOT-CVZNX) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*OPD *3*CCR) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*CVZNX (SETQ *2*TEMP1 (*1*B0)) *2*TEMP1 (*1*NOT-Z *3*OPLEN *3*OPD) (*1*NOT-N *3*OPLEN *3*OPD) (*1*CCR-X *3*CCR))))))) (PUT1-LST (QUOTE *1*NOT-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*OPD *3*CCR) (CONS (*1*LOGNOT *3*OPLEN *3*OPD) (*1*NOT-CVZNX *3*OPLEN *3*OPD *3*CCR)))))) (PUT1-LST (QUOTE *1*NOT-INS) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*NOT-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP2 (*1*CAR (SETQ *2*TEMP1 (*1*MC-INSTATE *3*OPLEN *3*INS *3*S))))) *1*F)) *2*TEMP2) (T (*1*MAPPING *3*OPLEN (*1*NOT-EFFECT *3*OPLEN (*1*OPERAND *3*OPLEN (*1*CDR *2*TEMP1) *3*S) (*1*MC-CCR *3*S)) *2*TEMP1)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*NOT-SUBGROUP) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((EQUAL (SETQ *2*TEMP1 (*1*OP-LEN *3*INS)) (*1*Q)) (*1*HALT (QUOTE MOVE-TO-SR-PRIVILEGED) *3*S)) (T (*1*NOT-INS *2*TEMP1 *3*INS *3*S)))))))) (PUT1-LST (QUOTE *1*MISC-GROUP) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET NIL (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 8))) *1*F)) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 11))) *1*F)) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 10))) *1*F)) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 9))) *1*F)) (*1*NEGX-SUBGROUP *3*INS *3*S)) (T (*1*CLR-SUBGROUP *3*INS *3*S)))) ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 9))) *1*F)) (*1*NEG-SUBGROUP *3*INS *3*S)) (T (*1*NOT-SUBGROUP *3*INS *3*S)))) ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 10))) *1*F)) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 9))) *1*F)) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 7))) *1*F)) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 6))) *1*F)) (COND ((NOT (EQ (*1*AND (*1*B0P (*1*BITN *3*INS (QUOTE 5))) (*1*AND (*1*B0P (*1*BITN *3*INS (QUOTE 4))) (*1*B1P (*1*BITN *3*INS (QUOTE 3))))) *1*F)) (*1*LINK_L-INS (*1*S_RN *3*INS) *3*S)) (T (*1*HALT (QUOTE NBCD-UNSPECIFIED) *3*S)))) (T (*1*PEA-SUBGROUP *3*INS *3*S)))) (T (*1*EXT-SUBGROUP *3*INS *3*S)))) (T (*1*TST-SUBGROUP *3*INS *3*S)))) ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 9))) *1*F)) (*1*MOVEM-EA-RN-SUBGROUP *3*INS *3*S)) ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 7))) *1*F)) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 6))) *1*F)) (*1*HALT (*1*RESERVED-SIGNAL) *3*S)) ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 5))) *1*F)) (*1*UNLK-SUBGROUP *3*INS *3*S)) ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 4))) *1*F)) (*1*HALT (QUOTE MOVE-USP-UNSPECIFIED) *3*S)) ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 3))) *1*F)) (*1*NOP-SUBGROUP *3*INS *3*S)) (T (*1*HALT (QUOTE MOVEC-UNSPECIFIED) *3*S)))) ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 6))) *1*F)) (*1*JSR-INS *3*INS *3*S)) (T (*1*JMP-INS *3*INS *3*S)))) ((NOT (EQ (*1*AND (*1*B1P (*1*BITN *3*INS (QUOTE 6))) (*1*B1P (*1*BITN *3*INS (QUOTE 7)))) *1*F)) (*1*LEA-SUBGROUP *3*INS *3*S)) (T (*1*HALT (QUOTE CHK-UNSPECIFIED) *3*S)))))))) (PUT1-LST (QUOTE *1*BCS) (QUOTE (SEXPR (LAMBDA (*3*C) (*1*FIX-BIT *3*C))))) (PUT1-LST (QUOTE *1*BEQ) (QUOTE (SEXPR (LAMBDA (*3*Z) (*1*FIX-BIT *3*Z))))) (PUT1-LST (QUOTE *1*BMI) (QUOTE (SEXPR (LAMBDA (*3*N) (*1*FIX-BIT *3*N))))) (PUT1-LST (QUOTE *1*BLE) (QUOTE (SEXPR (LAMBDA (*3*V *3*Z *3*N) (*1*B-OR *3*Z (*1*B-OR (*1*B-AND *3*N (*1*B-NOT *3*V)) (*1*B-AND (*1*B-NOT *3*N) *3*V))))))) (PUT1-LST (QUOTE *1*BGT) (QUOTE (SEXPR (LAMBDA (*3*V *3*Z *3*N) (*1*B-AND (*1*B-OR (*1*B-AND *3*N *3*V) (*1*B-AND (*1*B-NOT *3*N) (*1*B-NOT *3*V))) (*1*B-NOT *3*Z)))))) (PUT1-LST (QUOTE *1*BLT) (QUOTE (SEXPR (LAMBDA (*3*V *3*N) (*1*B-OR (*1*B-AND *3*N (*1*B-NOT *3*V)) (*1*B-AND (*1*B-NOT *3*N) *3*V)))))) (PUT1-LST (QUOTE *1*BGE) (QUOTE (SEXPR (LAMBDA (*3*V *3*N) (*1*B-OR (*1*B-AND *3*N *3*V) (*1*B-AND (*1*B-NOT *3*N) (*1*B-NOT *3*V))))))) (PUT1-LST (QUOTE *1*BLS) (QUOTE (SEXPR (LAMBDA (*3*C *3*Z) (*1*B-OR *3*C *3*Z))))) (PUT1-LST (QUOTE *1*BHI) (QUOTE (SEXPR (LAMBDA (*3*C *3*Z) (*1*B-AND (*1*B-NOT *3*C) (*1*B-NOT *3*Z)))))) (PUT1-LST (QUOTE *1*BRANCH-CC) (QUOTE (SEXPR (LAMBDA (*3*COND *3*CCR) (LET NIL (COND ((NOT (EQ (*1*LESSP *3*COND (QUOTE 8)) *1*F)) (COND ((NOT (EQ (*1*LESSP *3*COND (QUOTE 4)) *1*F)) (COND ((NOT (EQ (*1*LESSP *3*COND (QUOTE 2)) *1*F)) (COND ((EQUAL *3*COND (QUOTE 0)) (*1*B1)) (T (*1*B0)))) ((EQUAL *3*COND (QUOTE 2)) (*1*BHI (*1*CCR-C *3*CCR) (*1*CCR-Z *3*CCR))) (T (*1*BLS (*1*CCR-C *3*CCR) (*1*CCR-Z *3*CCR))))) ((NOT (EQ (*1*LESSP *3*COND (QUOTE 6)) *1*F)) (COND ((EQUAL *3*COND (QUOTE 4)) (*1*B-NOT (*1*BCS (*1*CCR-C *3*CCR)))) (T (*1*BCS (*1*CCR-C *3*CCR))))) ((EQUAL *3*COND (QUOTE 6)) (*1*B-NOT (*1*BEQ (*1*CCR-Z *3*CCR)))) (T (*1*BEQ (*1*CCR-Z *3*CCR))))) ((NOT (EQ (*1*LESSP *3*COND (QUOTE 12)) *1*F)) (COND ((NOT (EQ (*1*LESSP *3*COND (QUOTE 10)) *1*F)) (COND ((EQUAL *3*COND (QUOTE 8)) (*1*B-NOT (*1*BVS (*1*CCR-V *3*CCR)))) (T (*1*BVS (*1*CCR-V *3*CCR))))) ((EQUAL *3*COND (QUOTE 10)) (*1*B-NOT (*1*BMI (*1*CCR-N *3*CCR)))) (T (*1*BMI (*1*CCR-N *3*CCR))))) ((NOT (EQ (*1*LESSP *3*COND (QUOTE 14)) *1*F)) (COND ((EQUAL *3*COND (QUOTE 12)) (*1*BGE (*1*CCR-V *3*CCR) (*1*CCR-N *3*CCR))) (T (*1*BLT (*1*CCR-V *3*CCR) (*1*CCR-N *3*CCR))))) ((EQUAL *3*COND (QUOTE 14)) (*1*BGT (*1*CCR-V *3*CCR) (*1*CCR-Z *3*CCR) (*1*CCR-N *3*CCR))) (T (*1*BLE (*1*CCR-V *3*CCR) (*1*CCR-Z *3*CCR) (*1*CCR-N *3*CCR))))))))) (PUT1-LST (QUOTE *1*BSR-INS) (QUOTE (SEXPR (LAMBDA (*3*PC *3*DISP *3*S) (*1*PUSH-SP (*1*LSZ) *3*PC (*1*UPDATE-PC (*1*ADD (*1*L) (*1*MC-PC *3*S) *3*DISP) *3*S)))))) (PUT1-LST (QUOTE *1*BCC-RA-SR) (QUOTE (SEXPR (LAMBDA (*3*PC *3*COND *3*DISP *3*S) (LET NIL (COND ((EQUAL *3*COND (QUOTE 0)) (*1*UPDATE-PC (*1*ADD (*1*L) (*1*MC-PC *3*S) *3*DISP) *3*S)) ((EQUAL *3*COND (QUOTE 1)) (*1*BSR-INS *3*PC *3*DISP *3*S)) ((NOT (EQ (*1*B0P (*1*BRANCH-CC *3*COND (*1*MC-CCR *3*S))) *1*F)) (*1*UPDATE-PC *3*PC *3*S)) (T (*1*UPDATE-PC (*1*ADD (*1*L) (*1*MC-PC *3*S) *3*DISP) *3*S)))))))) (PUT1-LST (QUOTE *1*BCC-GROUP) (QUOTE (SEXPR (LAMBDA (*3*DISP *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((EQUAL *3*DISP (QUOTE 0)) (COND ((NOT (EQ (*1*PC-WORD-READP (SETQ *2*TEMP3 (*1*MC-PC *3*S)) (SETQ *2*TEMP2 (*1*MC-MEM *3*S))) *1*F)) (*1*BCC-RA-SR (*1*ADD (SETQ *2*TEMP1 (*1*L)) *2*TEMP3 (*1*WSZ)) (*1*COND-FIELD *3*INS) (*1*EXT (*1*W) (*1*PC-WORD-READ *2*TEMP3 *2*TEMP2) *2*TEMP1) *3*S)) (T (*1*HALT (*1*PC-SIGNAL) *3*S)))) ((EQUAL *3*DISP (QUOTE 255)) (COND ((NOT (EQ (*1*PC-LONG-READP (SETQ *2*TEMP3 (*1*MC-PC *3*S)) (SETQ *2*TEMP2 (*1*MC-MEM *3*S))) *1*F)) (*1*BCC-RA-SR (*1*ADD (*1*L) *2*TEMP3 (*1*LSZ)) (*1*COND-FIELD *3*INS) (*1*PC-LONG-READ *2*TEMP3 *2*TEMP2) *3*S)) (T (*1*HALT (*1*PC-SIGNAL) *3*S)))) (T (*1*BCC-RA-SR (*1*MC-PC *3*S) (*1*COND-FIELD *3*INS) (*1*EXT (*1*B) *3*DISP (*1*L)) *3*S)))))))) (PUT1-LST (QUOTE *1*SCC-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*INS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*AND (*1*DATA-ADDR-MODEP (SETQ *2*TEMP2 (*1*S_MODE *3*INS)) (SETQ *2*TEMP1 (*1*S_RN *3*INS))) (*1*ALTERABLE-ADDR-MODEP *2*TEMP2 *2*TEMP1))))))) (PUT1-LST (QUOTE *1*SCC-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*COND *3*CCR) (CONS (COND ((NOT (EQ (*1*B0P (*1*BRANCH-CC *3*COND *3*CCR)) *1*F)) (QUOTE 0)) (T (QUOTE 255))) *3*CCR))))) (PUT1-LST (QUOTE *1*SCC-INS) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*SCC-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*MC-INSTATE (SETQ *2*TEMP1 (*1*B)) *3*INS *3*S))))) *1*F)) *2*TEMP3) (T (*1*MAPPING *2*TEMP1 (*1*SCC-EFFECT (*1*COND-FIELD *3*INS) (*1*MC-CCR *3*S)) *2*TEMP2)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*DBCC-LOOP) (QUOTE (SEXPR (LAMBDA (*3*RN *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X)) (*2*TEMP4 (QUOTE *1*X))) (COND ((EQUAL (*1*NAT-TO-INT (SETQ *2*TEMP4 (*1*SUB (SETQ *2*TEMP3 (*1*W)) (QUOTE 1) (*1*READ-DN *2*TEMP3 *3*RN *3*S))) *2*TEMP3) (QUOTE -1)) (*1*UPDATE-PC (*1*ADD (*1*L) (*1*MC-PC *3*S) (*1*WSZ)) (*1*WRITE-DN *2*TEMP3 *2*TEMP4 *3*RN *3*S))) (T (*1*UPDATE-PC (*1*ADD (SETQ *2*TEMP2 (*1*L)) (SETQ *2*TEMP1 (*1*MC-PC *3*S)) (*1*EXT *2*TEMP3 (*1*PC-WORD-READ *2*TEMP1 (*1*MC-MEM *3*S)) *2*TEMP2)) (*1*WRITE-DN *2*TEMP3 *2*TEMP4 *3*RN *3*S))))))))) (PUT1-LST (QUOTE *1*DBCC-INS) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*PC-WORD-READP (SETQ *2*TEMP1 (*1*MC-PC *3*S)) (*1*MC-MEM *3*S)) *1*F)) (COND ((NOT (EQ (*1*B0P (*1*BRANCH-CC (*1*COND-FIELD *3*INS) (*1*MC-CCR *3*S))) *1*F)) (*1*DBCC-LOOP (*1*S_RN *3*INS) *3*S)) (T (*1*UPDATE-PC (*1*ADD (*1*L) *2*TEMP1 (*1*WSZ)) *3*S)))) (T (*1*HALT (*1*PC-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*ADDQ-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*AND (*1*ALTERABLE-ADDR-MODEP (SETQ *2*TEMP1 (*1*S_MODE *3*INS)) (*1*S_RN *3*INS)) (*1*NOT (*1*BYTE-AN-DIRECT-MODEP *3*OPLEN *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*ADDQ-INS) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ADDQ-ADDR-MODEP *3*OPLEN *3*INS) *1*F)) (COND ((NOT (EQ (*1*AN-DIRECT-MODEP (*1*S_MODE *3*INS)) *1*F)) (*1*WRITE-AN (SETQ *2*TEMP2 (*1*L)) (*1*ADD *2*TEMP2 (*1*READ-AN *2*TEMP2 (SETQ *2*TEMP1 (*1*S_RN *3*INS)) *3*S) (*1*I-DATA (*1*D_RN *3*INS))) *2*TEMP1 *3*S)) (T (*1*ADD-MAPPING (*1*I-DATA (*1*D_RN *3*INS)) *3*OPLEN *3*INS *3*S)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*SUBQ-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*AND (*1*ALTERABLE-ADDR-MODEP (SETQ *2*TEMP1 (*1*S_MODE *3*INS)) (*1*S_RN *3*INS)) (*1*NOT (*1*BYTE-AN-DIRECT-MODEP *3*OPLEN *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*SUBQ-INS) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*SUBQ-ADDR-MODEP *3*OPLEN *3*INS) *1*F)) (COND ((NOT (EQ (*1*AN-DIRECT-MODEP (*1*S_MODE *3*INS)) *1*F)) (*1*WRITE-AN (SETQ *2*TEMP2 (*1*L)) (*1*SUB *2*TEMP2 (*1*I-DATA (*1*D_RN *3*INS)) (*1*READ-AN *2*TEMP2 (SETQ *2*TEMP1 (*1*S_RN *3*INS)) *3*S)) *2*TEMP1 *3*S)) (T (*1*SUB-MAPPING (*1*I-DATA (*1*D_RN *3*INS)) *3*OPLEN *3*INS *3*S)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*SCC-GROUP) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((EQUAL (SETQ *2*TEMP2 (*1*OP-LEN *3*INS)) (*1*Q)) (COND ((EQUAL (SETQ *2*TEMP1 (*1*S_MODE *3*INS)) (QUOTE 1)) (*1*DBCC-INS *3*INS *3*S)) ((NOT (EQ (*1*AND (COND ((EQUAL *2*TEMP1 (QUOTE 7)) (QUOTE *1*TRUE)) (T (QUOTE *1*FALSE))) (*1*LESSP (QUOTE 1) (*1*S_RN *3*INS))) *1*F)) (*1*HALT (QUOTE TRAPCC-UNSPECIFIED) *3*S)) (T (*1*SCC-INS *3*INS *3*S)))) ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 8))) *1*F)) (*1*ADDQ-INS *2*TEMP2 *3*INS *3*S)) (T (*1*SUBQ-INS *2*TEMP2 *3*INS *3*S)))))))) (PUT1-LST (QUOTE *1*MOVEQ-INS) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 8))) *1*F)) (*1*D-MAPPING (SETQ *2*TEMP2 (*1*L)) (*1*MOVE-EFFECT *2*TEMP2 (*1*EXT (SETQ *2*TEMP1 (*1*B)) (*1*HEAD *3*INS *2*TEMP1) *2*TEMP2) (*1*MC-CCR *3*S)) (*1*D_RN *3*INS) *3*S)) (T (*1*HALT (*1*RESERVED-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*CMP-CVZNX) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*SOPD *3*DOPD *3*CCR) (*1*CVZNX (*1*SUB-C *3*OPLEN *3*SOPD *3*DOPD) (*1*SUB-V *3*OPLEN *3*SOPD *3*DOPD) (*1*SUB-Z *3*OPLEN *3*SOPD *3*DOPD) (*1*SUB-N *3*OPLEN *3*SOPD *3*DOPD) (*1*CCR-X *3*CCR)))))) (PUT1-LST (QUOTE *1*CMP-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*AND (*1*ADDR-MODEP (SETQ *2*TEMP1 (*1*S_MODE *3*INS)) (*1*S_RN *3*INS)) (*1*NOT (*1*BYTE-AN-DIRECT-MODEP *3*OPLEN *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*CMP-INS) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*CMP-ADDR-MODEP *3*OPLEN *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP2 (*1*CAR (SETQ *2*TEMP1 (*1*MC-INSTATE *3*OPLEN *3*INS *3*S))))) *1*F)) *2*TEMP2) (T (*1*UPDATE-CCR (*1*CMP-CVZNX *3*OPLEN (*1*OPERAND *3*OPLEN (*1*CDR *2*TEMP1) *2*TEMP2) (*1*READ-DN *3*OPLEN (*1*D_RN *3*INS) *3*S) (*1*MC-CCR *3*S)) *2*TEMP2)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*CMPA-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*INS) (*1*ADDR-MODEP (*1*S_MODE *3*INS) (*1*S_RN *3*INS)))))) (PUT1-LST (QUOTE *1*CMPA-INS) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*CMPA-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*MC-INSTATE *3*OPLEN *3*INS *3*S))))) *1*F)) *2*TEMP3) (T (*1*UPDATE-CCR (*1*CMP-CVZNX (SETQ *2*TEMP1 (*1*L)) (*1*EXT *3*OPLEN (*1*OPERAND *3*OPLEN (*1*CDR *2*TEMP2) *3*S) *2*TEMP1) (*1*READ-AN *2*TEMP1 (*1*D_RN *3*INS) *2*TEMP3) (*1*MC-CCR *3*S)) *2*TEMP3)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*EOR-Z) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*SOPD *3*DOPD) (PROGN *3*OPLEN (COND ((EQUAL (*1*LOGEOR *3*SOPD *3*DOPD) (QUOTE 0)) (*1*B1)) (T (*1*B0)))))))) (PUT1-LST (QUOTE *1*EOR-N) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*SOPD *3*DOPD) (*1*B-EOR (*1*MBIT *3*SOPD *3*OPLEN) (*1*MBIT *3*DOPD *3*OPLEN)))))) (PUT1-LST (QUOTE *1*EOR-CVZNX) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*SOPD *3*DOPD *3*CCR) (LET ((*2*TEMP1 (QUOTE *1*X))) (*1*CVZNX (SETQ *2*TEMP1 (*1*B0)) *2*TEMP1 (*1*EOR-Z *3*OPLEN *3*SOPD *3*DOPD) (*1*EOR-N *3*OPLEN *3*SOPD *3*DOPD) (*1*CCR-X *3*CCR))))))) (PUT1-LST (QUOTE *1*EOR-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*SOPD *3*DOPD *3*CCR) (CONS (*1*LOGEOR *3*SOPD *3*DOPD) (*1*EOR-CVZNX *3*OPLEN *3*SOPD *3*DOPD *3*CCR)))))) (PUT1-LST (QUOTE *1*EOR&EORI-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*INS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*AND (*1*DATA-ADDR-MODEP (SETQ *2*TEMP2 (*1*S_MODE *3*INS)) (SETQ *2*TEMP1 (*1*S_RN *3*INS))) (*1*ALTERABLE-ADDR-MODEP *2*TEMP2 *2*TEMP1))))))) (PUT1-LST (QUOTE *1*EOR-MAPPING) (QUOTE (SEXPR (LAMBDA (*3*SOPD *3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP2 (*1*CAR (SETQ *2*TEMP1 (*1*MC-INSTATE *3*OPLEN *3*INS *3*S))))) *1*F)) *2*TEMP2) (T (*1*MAPPING *3*OPLEN (*1*EOR-EFFECT *3*OPLEN *3*SOPD (*1*OPERAND *3*OPLEN (*1*CDR *2*TEMP1) *3*S) (*1*MC-CCR *3*S)) *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*EOR-INS) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (COND ((NOT (EQ (*1*EOR&EORI-ADDR-MODEP *3*INS) *1*F)) (*1*EOR-MAPPING (*1*READ-DN *3*OPLEN (*1*D_RN *3*INS) *3*S) *3*OPLEN *3*INS *3*S)) (T (*1*HALT (*1*MODE-SIGNAL) *3*S))))))) (PUT1-LST (QUOTE *1*CMPM-MAPPING) (QUOTE (SEXPR (LAMBDA (*3*ADDR *3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*READ-MEMP (*1*CDR (SETQ *2*TEMP2 (*1*CDR (SETQ *2*TEMP1 (*1*ADDR-POSTINC *3*OPLEN (*1*D_RN *3*INS) *3*S))))) (*1*MC-MEM *3*S) (*1*OP-SZ *3*OPLEN)) *1*F)) (*1*UPDATE-CCR (*1*CMP-CVZNX *3*OPLEN (*1*OPERAND *3*OPLEN *3*ADDR *3*S) (*1*OPERAND *3*OPLEN *2*TEMP2 *3*S) (*1*MC-CCR *3*S)) (*1*CAR *2*TEMP1))) (T (*1*HALT (*1*READ-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*CMPM-INS) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*READ-MEMP (*1*CDR (SETQ *2*TEMP2 (*1*CDR (SETQ *2*TEMP1 (*1*ADDR-POSTINC *3*OPLEN (*1*S_RN *3*INS) *3*S))))) (*1*MC-MEM *3*S) (*1*OP-SZ *3*OPLEN)) *1*F)) (*1*CMPM-MAPPING *2*TEMP2 *3*OPLEN *3*INS (*1*CAR *2*TEMP1))) (T (*1*HALT (*1*READ-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*CMP-GROUP) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET NIL (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 8))) *1*F)) (COND ((EQUAL *3*OPLEN (*1*Q)) (*1*CMPA-INS (*1*W) *3*INS *3*S)) (T (*1*CMP-INS *3*OPLEN *3*INS *3*S)))) ((EQUAL *3*OPLEN (*1*Q)) (*1*CMPA-INS (*1*L) *3*INS *3*S)) ((EQUAL (*1*S_MODE *3*INS) (QUOTE 1)) (*1*CMPM-INS *3*OPLEN *3*INS *3*S)) (T (*1*EOR-INS *3*OPLEN *3*INS *3*S)))))))) (PUT1-LST (QUOTE *1*MOVEP-WRITEP) (QUOTE (SEXPR (LAMBDA (*3*ADDR *3*MEM *3*N) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE *1*TRUE)) (T (*1*AND (*1*BYTE-WRITEP (*1*ADD (*1*L) *3*ADDR (*1*TIMES (QUOTE 2) (SETQ *2*TEMP1 (*1*SUB1 *3*N)))) *3*MEM) (*1*MOVEP-WRITEP *3*ADDR *3*MEM *2*TEMP1))))))))) (PUT1-LST (QUOTE *1*MOVEP-WRITE) (QUOTE (SEXPR (LAMBDA (*3*VALUE *3*ADDR *3*MEM *3*N) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) *3*MEM) (T (*1*MOVEP-WRITE (*1*TAIL *3*VALUE (*1*B)) *3*ADDR (*1*BYTE-WRITE *3*VALUE (*1*ADD (*1*L) *3*ADDR (*1*TIMES (QUOTE 2) (SETQ *2*TEMP1 (*1*SUB1 *3*N)))) *3*MEM) *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*MOVEP-TO-MEM) (QUOTE (SEXPR (LAMBDA (*3*ADDR *3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*MOVEP-WRITEP *3*ADDR (SETQ *2*TEMP2 (*1*MC-MEM *3*S)) (SETQ *2*TEMP1 (*1*OP-SZ *3*OPLEN))) *1*F)) (*1*UPDATE-MEM (*1*MOVEP-WRITE (*1*READ-DN *3*OPLEN (*1*D_RN *3*INS) *3*S) *3*ADDR *2*TEMP2 *2*TEMP1) *3*S)) (T (*1*HALT (*1*WRITE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*MOVEP-READP) (QUOTE (SEXPR (LAMBDA (*3*ADDR *3*MEM *3*N) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE *1*TRUE)) (T (*1*AND (*1*BYTE-READP *3*ADDR *3*MEM) (*1*MOVEP-READP (*1*ADD (*1*L) *3*ADDR (*1*WSZ)) *3*MEM (*1*SUB1 *3*N))))))))) (PUT1-LST (QUOTE *1*MOVEP-READ) (QUOTE (SEXPR (LAMBDA (*3*ADDR *3*MEM *3*N) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (QUOTE 0)) (T (*1*APP (*1*B) (*1*BYTE-READ (*1*ADD (*1*L) *3*ADDR (*1*TIMES (QUOTE 2) (SETQ *2*TEMP1 (*1*SUB1 *3*N)))) *3*MEM) (*1*MOVEP-READ *3*ADDR *3*MEM *2*TEMP1))))))))) (PUT1-LST (QUOTE *1*MOVEP-TO-REG) (QUOTE (SEXPR (LAMBDA (*3*ADDR *3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*MOVEP-READP *3*ADDR (SETQ *2*TEMP2 (*1*MC-MEM *3*S)) (SETQ *2*TEMP1 (*1*OP-SZ *3*OPLEN))) *1*F)) (*1*WRITE-DN *3*OPLEN (*1*MOVEP-READ *3*ADDR *2*TEMP2 *2*TEMP1) (*1*D_RN *3*INS) *3*S)) (T (*1*HALT (*1*READ-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*EVENP) (QUOTE (SEXPR (LAMBDA (*3*X) (*1*B0P (*1*BCAR *3*X)))))) (PUT1-LST (QUOTE *1*MOVEP-ADDR) (QUOTE (SEXPR (LAMBDA (*3*S&ADDR) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*EVENP (SETQ *2*TEMP1 (*1*CDR (*1*CDR *3*S&ADDR)))) *1*F)) *2*TEMP1) (T (*1*ADD (*1*L) *2*TEMP1 (*1*BSZ))))))))) (PUT1-LST (QUOTE *1*MOVEP-INS) (QUOTE (SEXPR (LAMBDA (*3*OPMODE *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP2 (*1*CAR (SETQ *2*TEMP1 (*1*ADDR-DISP (*1*MC-PC *3*S) (*1*S_RN *3*INS) *3*S))))) *1*F)) *2*TEMP2) ((NOT (EQ (*1*LESSP *3*OPMODE (QUOTE 6)) *1*F)) (COND ((EQUAL *3*OPMODE (QUOTE 4)) (*1*MOVEP-TO-REG (*1*MOVEP-ADDR *2*TEMP1) (*1*W) *3*INS *2*TEMP2)) (T (*1*MOVEP-TO-REG (*1*MOVEP-ADDR *2*TEMP1) (*1*L) *3*INS *2*TEMP2)))) ((EQUAL *3*OPMODE (QUOTE 6)) (*1*MOVEP-TO-MEM (*1*MOVEP-ADDR *2*TEMP1) (*1*W) *3*INS *2*TEMP2)) (T (*1*MOVEP-TO-MEM (*1*MOVEP-ADDR *2*TEMP1) (*1*L) *3*INS *2*TEMP2)))))))) (PUT1-LST (QUOTE *1*BXXX-OPLEN) (QUOTE (SEXPR (LAMBDA (*3*SMODE) (COND ((NOT (EQ (*1*DN-DIRECT-MODEP *3*SMODE) *1*F)) (*1*L)) (T (*1*B))))))) (PUT1-LST (QUOTE *1*BXXX-NUM) (QUOTE (SEXPR (LAMBDA (*3*SMODE *3*BNUM) (COND ((NOT (EQ (*1*DN-DIRECT-MODEP *3*SMODE) *1*F)) (*1*HEAD *3*BNUM (QUOTE 5))) (T (*1*HEAD *3*BNUM (QUOTE 3)))))))) (PUT1-LST (QUOTE *1*BXXX-OPD) (QUOTE (SEXPR (LAMBDA (*3*SMODE *3*S&ADDR) (LET NIL (COND ((NOT (EQ (*1*DN-DIRECT-MODEP *3*SMODE) *1*F)) (*1*READ-DN (*1*L) (*1*CDR (*1*CDR *3*S&ADDR)) (*1*CAR *3*S&ADDR))) (T (*1*OPERAND (*1*B) (*1*CDR *3*S&ADDR) (*1*CAR *3*S&ADDR))))))))) (PUT1-LST (QUOTE *1*BCHG-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*INS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*AND (*1*DATA-ADDR-MODEP (SETQ *2*TEMP2 (*1*S_MODE *3*INS)) (SETQ *2*TEMP1 (*1*S_RN *3*INS))) (*1*ALTERABLE-ADDR-MODEP *2*TEMP2 *2*TEMP1))))))) (PUT1-LST (QUOTE *1*BCHG-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*BNUM *3*OPD *3*CCR) (LET ((*2*TEMP1 (QUOTE *1*X))) (CONS (*1*SETN *3*OPD *3*BNUM (SETQ *2*TEMP1 (*1*B-NOT (*1*BITN *3*OPD *3*BNUM)))) (*1*SET-Z *2*TEMP1 *3*CCR))))))) (PUT1-LST (QUOTE *1*BCHG-INS) (QUOTE (SEXPR (LAMBDA (*3*BNUM *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*BCHG-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*MC-INSTATE (*1*B) *3*INS *3*S))))) *1*F)) *2*TEMP3) (T (*1*MAPPING (*1*BXXX-OPLEN (SETQ *2*TEMP1 (*1*S_MODE *3*INS))) (*1*BCHG-EFFECT (*1*BXXX-NUM *2*TEMP1 *3*BNUM) (*1*BXXX-OPD *2*TEMP1 *2*TEMP2) (*1*MC-CCR *3*S)) *2*TEMP2)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*BCLR-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*INS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*AND (*1*DATA-ADDR-MODEP (SETQ *2*TEMP2 (*1*S_MODE *3*INS)) (SETQ *2*TEMP1 (*1*S_RN *3*INS))) (*1*ALTERABLE-ADDR-MODEP *2*TEMP2 *2*TEMP1))))))) (PUT1-LST (QUOTE *1*BCLR-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*BNUM *3*OPD *3*CCR) (CONS (*1*SETN *3*OPD *3*BNUM (*1*B0)) (*1*SET-Z (*1*B-NOT (*1*BITN *3*OPD *3*BNUM)) *3*CCR)))))) (PUT1-LST (QUOTE *1*BCLR-INS) (QUOTE (SEXPR (LAMBDA (*3*BNUM *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*BCLR-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*MC-INSTATE (*1*B) *3*INS *3*S))))) *1*F)) *2*TEMP3) (T (*1*MAPPING (*1*BXXX-OPLEN (SETQ *2*TEMP1 (*1*S_MODE *3*INS))) (*1*BCLR-EFFECT (*1*BXXX-NUM *2*TEMP1 *3*BNUM) (*1*BXXX-OPD *2*TEMP1 *2*TEMP2) (*1*MC-CCR *3*S)) *2*TEMP2)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*BSET-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*INS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*AND (*1*DATA-ADDR-MODEP (SETQ *2*TEMP2 (*1*S_MODE *3*INS)) (SETQ *2*TEMP1 (*1*S_RN *3*INS))) (*1*ALTERABLE-ADDR-MODEP *2*TEMP2 *2*TEMP1))))))) (PUT1-LST (QUOTE *1*BSET-EFFECT) (QUOTE (SEXPR (LAMBDA (*3*BNUM *3*OPD *3*CCR) (CONS (*1*SETN *3*OPD *3*BNUM (*1*B1)) (*1*SET-Z (*1*B-NOT (*1*BITN *3*OPD *3*BNUM)) *3*CCR)))))) (PUT1-LST (QUOTE *1*BSET-INS) (QUOTE (SEXPR (LAMBDA (*3*BNUM *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*BSET-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*MC-INSTATE (*1*B) *3*INS *3*S))))) *1*F)) *2*TEMP3) (T (*1*MAPPING (*1*BXXX-OPLEN (SETQ *2*TEMP1 (*1*S_MODE *3*INS))) (*1*BSET-EFFECT (*1*BXXX-NUM *2*TEMP1 *3*BNUM) (*1*BXXX-OPD *2*TEMP1 *2*TEMP2) (*1*MC-CCR *3*S)) *2*TEMP2)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*BTST-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*INS) (*1*DATA-ADDR-MODEP (*1*S_MODE *3*INS) (*1*S_RN *3*INS)))))) (PUT1-LST (QUOTE *1*BTST-INS) (QUOTE (SEXPR (LAMBDA (*3*BNUM *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*BTST-ADDR-MODEP *3*INS) *1*F)) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP3 (*1*CAR (SETQ *2*TEMP2 (*1*MC-INSTATE (*1*B) *3*INS *3*S))))) *1*F)) *2*TEMP3) (T (*1*UPDATE-CCR (*1*SET-Z (*1*B-NOT (*1*BITN (*1*BXXX-OPD (SETQ *2*TEMP1 (*1*S_MODE *3*INS)) *2*TEMP2) (*1*BXXX-NUM *2*TEMP1 *3*BNUM))) (*1*MC-CCR *3*S)) *2*TEMP3)))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*BIT-INS) (QUOTE (SEXPR (LAMBDA (*3*BNUM *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*LESSP (SETQ *2*TEMP1 (*1*BITS *3*INS (QUOTE 6) (QUOTE 7))) (QUOTE 2)) *1*F)) (COND ((EQUAL *2*TEMP1 (QUOTE 0)) (*1*BTST-INS *3*BNUM *3*INS *3*S)) (T (*1*BCHG-INS *3*BNUM *3*INS *3*S)))) ((EQUAL *2*TEMP1 (QUOTE 2)) (*1*BCLR-INS *3*BNUM *3*INS *3*S)) (T (*1*BSET-INS *3*BNUM *3*INS *3*S)))))))) (PUT1-LST (QUOTE *1*D-BIT-SUBGROUP) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (COND ((EQUAL (*1*S_MODE *3*INS) (QUOTE 1)) (*1*MOVEP-INS (*1*OPMODE-FIELD *3*INS) *3*INS *3*S)) (T (*1*BIT-INS (*1*READ-DN (*1*L) (*1*D_RN *3*INS) *3*S) *3*INS *3*S))))))) (PUT1-LST (QUOTE *1*S-BIT-SUBGROUP) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X)) (*2*TEMP3 (QUOTE *1*X))) (COND ((NOT (EQ (*1*PC-WORD-READP (SETQ *2*TEMP3 (*1*MC-PC *3*S)) (SETQ *2*TEMP2 (*1*MC-MEM *3*S))) *1*F)) (COND ((EQUAL (*1*PC-BYTE-READ *2*TEMP3 *2*TEMP2) (QUOTE 0)) (*1*BIT-INS (*1*PC-BYTE-READ (*1*ADD (SETQ *2*TEMP1 (*1*L)) *2*TEMP3 (*1*BSZ)) *2*TEMP2) *3*INS (*1*UPDATE-PC (*1*ADD *2*TEMP1 *2*TEMP3 (*1*WSZ)) *3*S))) (T (*1*HALT (*1*RESERVED-SIGNAL) *3*S)))) (T (*1*HALT (*1*PC-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*ORI-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*INS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*AND (*1*DATA-ADDR-MODEP (SETQ *2*TEMP2 (*1*S_MODE *3*INS)) (SETQ *2*TEMP1 (*1*S_RN *3*INS))) (*1*ALTERABLE-ADDR-MODEP *2*TEMP2 *2*TEMP1))))))) (PUT1-LST (QUOTE *1*ORI-INS) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP2 (*1*CAR (SETQ *2*TEMP1 (*1*IMMEDIATE *3*OPLEN (*1*MC-PC *3*S) *3*S))))) *1*F)) *2*TEMP2) ((NOT (EQ (*1*ORI-ADDR-MODEP *3*INS) *1*F)) (*1*OR-MAPPING (*1*CDR (*1*CDR *2*TEMP1)) *3*OPLEN *3*INS *2*TEMP2)) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*ORI-TO-CCR-INS) (QUOTE (SEXPR (LAMBDA (*3*PC *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*PC-WORD-READP *3*PC (SETQ *2*TEMP2 (*1*MC-MEM *3*S))) *1*F)) (COND ((EQUAL (*1*PC-BYTE-READ *3*PC *2*TEMP2) (QUOTE 0)) (*1*UPDATE-CCR (*1*LOGOR (*1*PC-BYTE-READ (*1*ADD (SETQ *2*TEMP1 (*1*L)) *3*PC (*1*BSZ)) *2*TEMP2) (*1*MC-CCR *3*S)) (*1*UPDATE-PC (*1*ADD *2*TEMP1 *3*PC (*1*WSZ)) *3*S))) (T (*1*HALT (*1*RESERVED-SIGNAL) *3*S)))) (T (*1*HALT (*1*PC-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*ORI-SUBGROUP) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (COND ((EQUAL *3*OPLEN (*1*Q)) (*1*HALT (QUOTE CMP2-CHK2-UNSPECIFIED) *3*S)) ((EQUAL (*1*HEAD *3*INS (QUOTE 6)) (QUOTE 60)) (COND ((EQUAL *3*OPLEN (*1*B)) (*1*ORI-TO-CCR-INS (*1*MC-PC *3*S) *3*S)) ((EQUAL *3*OPLEN (*1*W)) (*1*HALT (QUOTE ORI-TO-SR-PRIVILEGED) *3*S)) (T (*1*HALT (*1*RESERVED-SIGNAL) *3*S)))) (T (*1*ORI-INS *3*OPLEN *3*INS *3*S))))))) (PUT1-LST (QUOTE *1*ANDI-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*INS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*AND (*1*DATA-ADDR-MODEP (SETQ *2*TEMP2 (*1*S_MODE *3*INS)) (SETQ *2*TEMP1 (*1*S_RN *3*INS))) (*1*ALTERABLE-ADDR-MODEP *2*TEMP2 *2*TEMP1))))))) (PUT1-LST (QUOTE *1*ANDI-INS) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*MC-HALTP *3*S) *1*F)) (*1*CAR (*1*IMMEDIATE *3*OPLEN (*1*MC-PC *3*S) *3*S))) ((NOT (EQ (*1*ANDI-ADDR-MODEP *3*INS) *1*F)) (*1*AND-MAPPING (*1*CDR (*1*CDR (SETQ *2*TEMP1 (*1*IMMEDIATE *3*OPLEN (*1*MC-PC *3*S) *3*S)))) *3*OPLEN *3*INS (*1*CAR *2*TEMP1))) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*ANDI-TO-CCR-INS) (QUOTE (SEXPR (LAMBDA (*3*PC *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*PC-WORD-READP *3*PC (SETQ *2*TEMP2 (*1*MC-MEM *3*S))) *1*F)) (COND ((EQUAL (*1*PC-BYTE-READ *3*PC *2*TEMP2) (QUOTE 0)) (*1*UPDATE-CCR (*1*LOGAND (*1*PC-BYTE-READ (*1*ADD (SETQ *2*TEMP1 (*1*L)) *3*PC (*1*BSZ)) *2*TEMP2) (*1*MC-CCR *3*S)) (*1*UPDATE-PC (*1*ADD *2*TEMP1 *3*PC (*1*WSZ)) *3*S))) (T (*1*HALT (*1*RESERVED-SIGNAL) *3*S)))) (T (*1*HALT (*1*PC-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*ANDI-SUBGROUP) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (COND ((EQUAL *3*OPLEN (*1*Q)) (*1*HALT (QUOTE CMP2-CHK2-UNSPECIFIED) *3*S)) ((EQUAL (*1*HEAD *3*INS (QUOTE 6)) (QUOTE 60)) (COND ((EQUAL *3*OPLEN (*1*B)) (*1*ANDI-TO-CCR-INS (*1*MC-PC *3*S) *3*S)) ((EQUAL *3*OPLEN (*1*W)) (*1*HALT (QUOTE ANDI-TO-SR-UNSPECIFIED) *3*S)) (T (*1*HALT (*1*RESERVED-SIGNAL) *3*S)))) (T (*1*ANDI-INS *3*OPLEN *3*INS *3*S))))))) (PUT1-LST (QUOTE *1*SUBI-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*INS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*AND (*1*DATA-ADDR-MODEP (SETQ *2*TEMP2 (*1*S_MODE *3*INS)) (SETQ *2*TEMP1 (*1*S_RN *3*INS))) (*1*ALTERABLE-ADDR-MODEP *2*TEMP2 *2*TEMP1))))))) (PUT1-LST (QUOTE *1*SUBI-INS) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP2 (*1*CAR (SETQ *2*TEMP1 (*1*IMMEDIATE *3*OPLEN (*1*MC-PC *3*S) *3*S))))) *1*F)) *2*TEMP2) ((NOT (EQ (*1*SUBI-ADDR-MODEP *3*INS) *1*F)) (*1*SUB-MAPPING (*1*CDR (*1*CDR *2*TEMP1)) *3*OPLEN *3*INS *2*TEMP2)) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*SUBI-SUBGROUP) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (COND ((EQUAL *3*OPLEN (*1*Q)) (*1*HALT (QUOTE CMP2-CHK2-UNSPECIFIED) *3*S)) (T (*1*SUBI-INS *3*OPLEN *3*INS *3*S))))))) (PUT1-LST (QUOTE *1*ADDI-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*INS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*AND (*1*DATA-ADDR-MODEP (SETQ *2*TEMP2 (*1*S_MODE *3*INS)) (SETQ *2*TEMP1 (*1*S_RN *3*INS))) (*1*ALTERABLE-ADDR-MODEP *2*TEMP2 *2*TEMP1))))))) (PUT1-LST (QUOTE *1*ADDI-INS) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP2 (*1*CAR (SETQ *2*TEMP1 (*1*IMMEDIATE *3*OPLEN (*1*MC-PC *3*S) *3*S))))) *1*F)) *2*TEMP2) ((NOT (EQ (*1*ADDI-ADDR-MODEP *3*INS) *1*F)) (*1*ADD-MAPPING (*1*CDR (*1*CDR *2*TEMP1)) *3*OPLEN *3*INS *2*TEMP2)) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*ADDI-SUBGROUP) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (COND ((EQUAL *3*OPLEN (*1*Q)) (*1*HALT (QUOTE RTM-CALLM-UNSPECIFIED) *3*S)) (T (*1*ADDI-INS *3*OPLEN *3*INS *3*S))))))) (PUT1-LST (QUOTE *1*EORI-INS) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP2 (*1*CAR (SETQ *2*TEMP1 (*1*IMMEDIATE *3*OPLEN (*1*MC-PC *3*S) *3*S))))) *1*F)) *2*TEMP2) ((NOT (EQ (*1*EOR&EORI-ADDR-MODEP *3*INS) *1*F)) (*1*EOR-MAPPING (*1*CDR (*1*CDR *2*TEMP1)) *3*OPLEN *3*INS *2*TEMP2)) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*EORI-TO-CCR-INS) (QUOTE (SEXPR (LAMBDA (*3*PC *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*PC-WORD-READP *3*PC (SETQ *2*TEMP2 (*1*MC-MEM *3*S))) *1*F)) (COND ((EQUAL (*1*PC-BYTE-READ *3*PC *2*TEMP2) (QUOTE 0)) (*1*UPDATE-CCR (*1*LOGEOR (*1*PC-BYTE-READ (*1*ADD (SETQ *2*TEMP1 (*1*L)) *3*PC (*1*BSZ)) *2*TEMP2) (*1*MC-CCR *3*S)) (*1*UPDATE-PC (*1*ADD *2*TEMP1 *3*PC (*1*WSZ)) *3*S))) (T (*1*HALT (*1*RESERVED-SIGNAL) *3*S)))) (T (*1*HALT (*1*PC-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*EORI-SUBGROUP) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (COND ((EQUAL *3*OPLEN (*1*Q)) (*1*HALT (QUOTE CAS-CAS2-UNSPECIFIED) *3*S)) ((EQUAL (*1*HEAD *3*INS (QUOTE 6)) (QUOTE 60)) (COND ((EQUAL *3*OPLEN (*1*B)) (*1*EORI-TO-CCR-INS (*1*MC-PC *3*S) *3*S)) ((EQUAL *3*OPLEN (*1*W)) (*1*HALT (QUOTE EORI-TO-SR-UNSPECIFIED) *3*S)) (T (*1*HALT (*1*RESERVED-SIGNAL) *3*S)))) (T (*1*EORI-INS *3*OPLEN *3*INS *3*S))))))) (PUT1-LST (QUOTE *1*CMPI-ADDR-MODEP) (QUOTE (SEXPR (LAMBDA (*3*INS) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (*1*AND (*1*DATA-ADDR-MODEP (SETQ *2*TEMP2 (*1*S_MODE *3*INS)) (SETQ *2*TEMP1 (*1*S_RN *3*INS))) (*1*NOT (*1*IDATA-MODEP *2*TEMP2 *2*TEMP1)))))))) (PUT1-LST (QUOTE *1*CMPI-MAPPING) (QUOTE (SEXPR (LAMBDA (*3*IDATA *3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP2 (*1*CAR (SETQ *2*TEMP1 (*1*MC-INSTATE *3*OPLEN *3*INS *3*S))))) *1*F)) *2*TEMP2) (T (*1*UPDATE-CCR (*1*CMP-CVZNX *3*OPLEN *3*IDATA (*1*OPERAND *3*OPLEN (*1*CDR *2*TEMP1) *3*S) (*1*MC-CCR *3*S)) *2*TEMP2)))))))) (PUT1-LST (QUOTE *1*CMPI-INS) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X)) (*2*TEMP2 (QUOTE *1*X))) (COND ((NOT (EQ (*1*MC-HALTP (SETQ *2*TEMP2 (*1*CAR (SETQ *2*TEMP1 (*1*IMMEDIATE *3*OPLEN (*1*MC-PC *3*S) *3*S))))) *1*F)) *2*TEMP2) ((NOT (EQ (*1*CMPI-ADDR-MODEP *3*INS) *1*F)) (*1*CMPI-MAPPING (*1*CDR (*1*CDR *2*TEMP1)) *3*OPLEN *3*INS *2*TEMP2)) (T (*1*HALT (*1*MODE-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*CMPI-SUBGROUP) (QUOTE (SEXPR (LAMBDA (*3*OPLEN *3*INS *3*S) (COND ((EQUAL *3*OPLEN (*1*Q)) (*1*HALT (QUOTE CAS-CAS2-UNSPECIFIED) *3*S)) (T (*1*CMPI-INS *3*OPLEN *3*INS *3*S))))))) (PUT1-LST (QUOTE *1*BIT-GROUP) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET NIL (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 8))) *1*F)) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 11))) *1*F)) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 10))) *1*F)) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 9))) *1*F)) (*1*ORI-SUBGROUP (*1*OP-LEN *3*INS) *3*INS *3*S)) (T (*1*ANDI-SUBGROUP (*1*OP-LEN *3*INS) *3*INS *3*S)))) ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 9))) *1*F)) (*1*SUBI-SUBGROUP (*1*OP-LEN *3*INS) *3*INS *3*S)) (T (*1*ADDI-SUBGROUP (*1*OP-LEN *3*INS) *3*INS *3*S)))) ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 10))) *1*F)) (COND ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 9))) *1*F)) (*1*S-BIT-SUBGROUP *3*INS *3*S)) (T (*1*EORI-SUBGROUP (*1*OP-LEN *3*INS) *3*INS *3*S)))) ((NOT (EQ (*1*B0P (*1*BITN *3*INS (QUOTE 9))) *1*F)) (*1*CMPI-SUBGROUP (*1*OP-LEN *3*INS) *3*INS *3*S)) (T (*1*HALT (QUOTE MOVES-CAS-CAS2-UNSPECIFIED) *3*S)))) (T (*1*D-BIT-SUBGROUP *3*INS *3*S)))))))) (PUT1-LST (QUOTE *1*OPCODE-FIELD) (QUOTE (SEXPR (LAMBDA (*3*INS) (*1*BITS *3*INS (QUOTE 12) (QUOTE 15)))))) (PUT1-LST (QUOTE *1*EXECUTE-INS) (QUOTE (SEXPR (LAMBDA (*3*INS *3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*LESSP (SETQ *2*TEMP1 (*1*OPCODE-FIELD *3*INS)) (QUOTE 8)) *1*F)) (COND ((NOT (EQ (*1*LESSP *2*TEMP1 (QUOTE 4)) *1*F)) (COND ((NOT (EQ (*1*LESSP *2*TEMP1 (QUOTE 2)) *1*F)) (COND ((EQUAL *2*TEMP1 (QUOTE 0)) (*1*BIT-GROUP *3*INS *3*S)) (T (*1*MOVE-INS (*1*B) *3*INS *3*S)))) ((EQUAL *2*TEMP1 (QUOTE 2)) (*1*MOVE-GROUP (*1*L) *3*INS *3*S)) (T (*1*MOVE-GROUP (*1*W) *3*INS *3*S)))) ((NOT (EQ (*1*LESSP *2*TEMP1 (QUOTE 6)) *1*F)) (COND ((EQUAL *2*TEMP1 (QUOTE 4)) (*1*MISC-GROUP *3*INS *3*S)) (T (*1*SCC-GROUP *3*INS *3*S)))) ((EQUAL *2*TEMP1 (QUOTE 6)) (*1*BCC-GROUP (*1*HEAD *3*INS (*1*B)) *3*INS *3*S)) (T (*1*MOVEQ-INS *3*INS *3*S)))) ((NOT (EQ (*1*LESSP *2*TEMP1 (QUOTE 12)) *1*F)) (COND ((NOT (EQ (*1*LESSP *2*TEMP1 (QUOTE 10)) *1*F)) (COND ((EQUAL *2*TEMP1 (QUOTE 8)) (*1*OR-GROUP (*1*OP-LEN *3*INS) *3*INS *3*S)) (T (*1*SUB-GROUP (*1*OPMODE-FIELD *3*INS) *3*INS *3*S)))) ((EQUAL *2*TEMP1 (QUOTE 10)) (*1*HALT (*1*RESERVED-SIGNAL) *3*S)) (T (*1*CMP-GROUP (*1*OP-LEN *3*INS) *3*INS *3*S)))) ((NOT (EQ (*1*LESSP *2*TEMP1 (QUOTE 14)) *1*F)) (COND ((EQUAL *2*TEMP1 (QUOTE 12)) (*1*AND-GROUP (*1*OP-LEN *3*INS) *3*INS *3*S)) (T (*1*ADD-GROUP (*1*OPMODE-FIELD *3*INS) *3*INS *3*S)))) ((EQUAL *2*TEMP1 (QUOTE 14)) (*1*S&R-GROUP *3*INS *3*S)) (T (*1*HALT (QUOTE COPROCESSOR-UNSPECIFIED) *3*S)))))))) (PUT1-LST (QUOTE *1*CURRENT-INS) (QUOTE (SEXPR (LAMBDA (*3*PC *3*S) (*1*PC-WORD-READ *3*PC (*1*MC-MEM *3*S)))))) (PUT1-LST (QUOTE *1*STEPI) (QUOTE (SEXPR (LAMBDA (*3*S) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*EVENP (SETQ *2*TEMP1 (*1*MC-PC *3*S))) *1*F)) (COND ((NOT (EQ (*1*PC-WORD-READP *2*TEMP1 (*1*MC-MEM *3*S)) *1*F)) (*1*EXECUTE-INS (*1*CURRENT-INS *2*TEMP1 *3*S) (*1*UPDATE-PC (*1*ADD (*1*L) *2*TEMP1 (*1*WSZ)) *3*S))) (T (*1*HALT (*1*PC-SIGNAL) *3*S)))) (T (*1*HALT (*1*PC-ODD-SIGNAL) *3*S)))))))) (PUT1-LST (QUOTE *1*STEPN) (QUOTE (SEXPR (LAMBDA (*3*S *3*N) (COND ((NOT (EQ (*1*OR (*1*MC-HALTP *3*S) (*1*ZEROP *3*N)) *1*F)) *3*S) (T (*1*STEPN (*1*STEPI *3*S) (*1*SUB1 *3*N)))))))) (PUT1-LST (QUOTE *1*CONS-KEY-LST) (QUOTE (SEXPR (LAMBDA (*3*KEY *3*LST) (COND ((NOT (EQ (*1*MEMBER *3*KEY *3*LST) *1*F)) *3*LST) (T (CONS *3*KEY *3*LST))))))) (PUT1-LST (QUOTE *1*KEY-FIELD) (QUOTE (SEXPR (LAMBDA (*3*MAP) (COND ((AND (CONSP *3*MAP) (NOT (EQ (CAR *3*MAP) (QUOTE *1*QUOTE)))) (CAR *3*MAP)) (T (QUOTE NIL))))))) (PUT1-LST (QUOTE *1*MAKE-MAP) (QUOTE (SEXPR (LAMBDA (*3*KEY *3*MAP) (*1*MAKE-BT (*1*CONS-KEY-LST *3*KEY (*1*KEY-FIELD *3*MAP)) (*1*BRANCH0 *3*MAP) (*1*BRANCH1 *3*MAP)))))) (PUT1-LST (QUOTE *1*MAP-UPDATE) (QUOTE (SEXPR (LAMBDA (*3*KEY *3*X *3*N *3*MAP) (LET ((*2*TEMP1 (QUOTE *1*X))) (COND ((NOT (EQ (*1*ZEROP *3*N) *1*F)) (*1*MAKE-MAP *3*KEY *3*MAP)) ((NOT (EQ (*1*B0P (*1*BITN *3*X (SETQ *2*TEMP1 (*1*SUB1 *3*N)))) *1*F)) (*1*MAKE-BT (*1*KEY-FIELD *3*MAP) (*1*MAP-UPDATE *3*KEY *3*X *2*TEMP1 (*1*BRANCH0 *3*MAP)) (*1*BRANCH1 *3*MAP))) (T (*1*MAKE-BT (*1*KEY-FIELD *3*MAP) (*1*BRANCH0 *3*MAP) (*1*MAP-UPDATE *3*KEY *3*X *2*TEMP1 (*1*BRANCH1 *3*MAP)))))))))) (PUT1-LST (QUOTE *1*LOAD-LST-MEM) (QUOTE (SEXPR (LAMBDA (*3*OPSZ *3*LST *3*ADDR *3*MEM) (COND ((AND (CONSP *3*LST) (NOT (EQ (CAR *3*LST) (QUOTE *1*QUOTE)))) (*1*LOAD-LST-MEM *3*OPSZ (CDR *3*LST) (*1*ADD (QUOTE 32) *3*ADDR *3*OPSZ) (*1*WRITE-MEM (CAR *3*LST) *3*ADDR *3*MEM *3*OPSZ))) (T *3*MEM))))))