home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / crossplatform / emulators / Atari / c64.lzh / C64 / SRC / EMULATOR.S < prev    next >
Text File  |  1986-02-06  |  38KB  |  1,840 lines
  1. ********************************************************************************
  2.  
  3. *                                                                              *
  4.  
  5. *                              c64-eMULATOR v3.0                               *
  6.  
  7. *                             {CBM-X} 1987 BY uWE sEIMET                             *
  8.  
  9. *                             bUCHENLOCHSTRAE 29                              *
  10.  
  11. *                             6750 kAISERSLAUTERN                              *
  12.  
  13. *                                                                              *
  14.  
  15. *                       lINKREIHENFOLGE: c64.o,vc.o,emulator.o                 *
  16.  
  17. *                                                                              *
  18.  
  19. ********************************************************************************
  20.  
  21.  
  22.  
  23.  
  24.  
  25.       GLOBL OP
  26.  
  27.       GLOBL C64
  28.  
  29.       GLOBL AREA
  30.  
  31.       GLOBL SWLO
  32.  
  33.       GLOBL SWHI
  34.  
  35.       GLOBL OPS
  36.  
  37.       GLOBL ITRET
  38.  
  39.  
  40.  
  41.  
  42.  
  43.       TEXT
  44.  
  45.  
  46.  
  47. OP:
  48.  
  49.       DC OP00-OP,STO81-OP,OP00-OP,OP00-OP,OP84-OP,OP85-OP,OP86-OP,OP00-OP
  50.  
  51.       DC OP88-OP,OP00-OP,OP8A-OP,OP00-OP,STO8C-OP,STO8D-OP,STO8E-OP,OP00-OP
  52.  
  53.       DC OP90-OP,STO91-OP,OP00-OP,OP00-OP,OP94-OP,OP95-OP,OP96-OP,OP00-OP
  54.  
  55.       DC OP98-OP,STO99-OP,OP9A-OP,OP00-OP,OP00-OP,STO9D-OP,OP00-OP,OP00-OP
  56.  
  57.       DC OPA0-OP,OPA1-OP,OPA2-OP,OP00-OP,OPA4-OP,OPA5-OP,OPA6-OP,OP00-OP
  58.  
  59.       DC OPA8-OP,OPA9-OP,OPAA-OP,OP00-OP,OPAC-OP,OPAD-OP,OPAE-OP,OP00-OP
  60.  
  61.       DC OPB0-OP,OPB1-OP,OP00-OP,OP00-OP,OPB4-OP,OPB5-OP,OPB6-OP,OP00-OP
  62.  
  63.       DC OPB8-OP,OPB9-OP,OPBA-OP,OP00-OP,OPBC-OP,OPBD-OP,OPBE-OP,OP00-OP
  64.  
  65.       DC OPC0-OP,OPC1-OP,OP00-OP,OP00-OP,OPC4-OP,OPC5-OP,OPC6-OP,OP00-OP
  66.  
  67.       DC OPC8-OP,OPC9-OP,OPCA-OP,OP00-OP,OPCC-OP,OPCD-OP,OPCE-OP,OP00-OP
  68.  
  69.       DC OPD0-OP,OPD1-OP,OP00-OP,OP00-OP,OP00-OP,OPD5-OP,OPD6-OP,OP00-OP
  70.  
  71.       DC OPD8-OP,OPD9-OP,OP00-OP,OP00-OP,OP00-OP,OPDD-OP,OPDE-OP,OP00-OP
  72.  
  73.       DC OPE0-OP,OPE1-OP,OP00-OP,OP00-OP,OPE4-OP,OPE5-OP,OPE6-OP,OP00-OP
  74.  
  75.       DC OPE8-OP,OPE9-OP,OPEA-OP,OP00-OP,OPEC-OP,OPED-OP,OPEE-OP,OP00-OP
  76.  
  77.       DC OPF0-OP,OPF1-OP,OP00-OP,OP00-OP,OP00-OP,OPF5-OP,OPF6-OP,OP00-OP
  78.  
  79.       DC OPF8-OP,OPF9-OP,OP00-OP,OP00-OP,OP00-OP,OPFD-OP,OPFE-OP,OP00-OP
  80.  
  81.       DC OP00-OP,OP01-OP,OP00-OP,OP00-OP,OP00-OP,OP05-OP,OP06-OP,OP00-OP
  82.  
  83.       DC OP08-OP,OP09-OP,OP0A-OP,OP00-OP,OP00-OP,OP0D-OP,OP0E-OP,OP00-OP
  84.  
  85.       DC OP10-OP,ORA11-OP,OP00-OP,OP00-OP,OP00-OP,OP15-OP,OP16-OP,OP00-OP
  86.  
  87.       DC OP18-OP,OP19-OP,OP00-OP,OP00-OP,OP00-OP,OP1D-OP,OP1E-OP,OP00-OP
  88.  
  89.       DC OP20-OP,OP21-OP,OP00-OP,OP00-OP,OP24-OP,OP25-OP,OP26-OP,OP00-OP
  90.  
  91.       DC OP28-OP,OP29-OP,OP2A-OP,OP00-OP,OP2C-OP,OP2D-OP,OP2E-OP,OP00-OP
  92.  
  93.       DC OP30-OP,AND31-OP,OP00-OP,OP00-OP,OP00-OP,OP35-OP,OP36-OP,OP00-OP
  94.  
  95.       DC OP38-OP,OP39-OP,OP00-OP,OP00-OP,OP00-OP,OP3D-OP,OP3E-OP,OP00-OP
  96.  
  97.       DC OP40-OP,OP41-OP,OP00-OP,OP00-OP,OP00-OP,OP45-OP,OP46-OP,OP00-OP
  98.  
  99.       DC OP48-OP,OP49-OP,OP4A-OP,OP00-OP,OP4C-OP,OP4D-OP,OP4E-OP,OP00-OP
  100.  
  101.       DC OP50-OP,EOR51-OP,OP00-OP,OP00-OP,OP00-OP,OP55-OP,OP56-OP,OP00-OP
  102.  
  103.       DC OP58-OP,OP59-OP,OP00-OP,OP00-OP,OP00-OP,OP5D-OP,OP5E-OP,OP00-OP
  104.  
  105.       DC OP60-OP,OP61-OP,OP00-OP,OP00-OP,OP00-OP,OP65-OP,OP66-OP,OP00-OP
  106.  
  107.       DC OP68-OP,OP69-OP,OP6A-OP,OP00-OP,OP6C-OP,OP6D-OP,OP6E-OP,OP00-OP
  108.  
  109.       DC OP70-OP,OP71-OP,OP00-OP,OP00-OP,OP00-OP,OP75-OP,OP76-OP,OP00-OP
  110.  
  111.       DC OP78-OP,OP79-OP,OP00-OP,OP00-OP,OP00-OP,OP7D-OP,OP00-OP,OP00-OP
  112.  
  113.  
  114.  
  115. OP00:
  116.  
  117.       SUB.L A6,A5
  118.  
  119.       MOVE A5,-(A2)
  120.  
  121.       MOVE.B (A2)+,(A4)
  122.  
  123.       MOVE.B (A2)+,-(A4)
  124.  
  125.       MOVE.B D4,-(A4)
  126.  
  127.       TST.B -(A4)
  128.  
  129.       MOVE C64+$FFFE,D2
  130.  
  131.       ROR #8,D2
  132.  
  133.       LEA (A6,D2.L),A5
  134.  
  135.       LEA L00+2(PC),A0
  136.  
  137.       MOVE.B (A5)+,(A0)
  138.  
  139. L00:  JMP 0(A3)
  140.  
  141.  
  142.  
  143. OP01:
  144.  
  145.       MOVE.B (A5)+,D3
  146.  
  147.       ADD.B D6,D3
  148.  
  149.       MOVE.B (A6,D3.L),-(A2)
  150.  
  151.       MOVE.B 1(A6,D3.L),-(A2)
  152.  
  153.       MOVE (A2)+,D2
  154.  
  155.       MOVE D4,CCR
  156.  
  157.       OR.B (A6,D2.L),D5
  158.  
  159.       MOVE SR,D4
  160.  
  161.       MOVE.B (A5)+,L01-OP01+$0102(A3)
  162.  
  163. L01:  JMP 0(A3)
  164.  
  165.  
  166.  
  167. OP05:
  168.  
  169.       MOVE.B (A5)+,D3
  170.  
  171.       MOVE D4,CCR
  172.  
  173.       OR.B (A6,D3.L),D5
  174.  
  175.       MOVE SR,D4
  176.  
  177.       MOVE.B (A5)+,L05-OP05+$0502(A3)
  178.  
  179. L05:  JMP 0(A3)
  180.  
  181.  
  182.  
  183. OP06:
  184.  
  185.       MOVE.B (A5)+,D3
  186.  
  187.       MOVE.B (A6,D3.L),D2
  188.  
  189.       ADD.B D2,(A6,D3.L)
  190.  
  191.       MOVE SR,D4
  192.  
  193.       MOVE.B (A5)+,L06-OP06+$0602(A3)
  194.  
  195. L06:  JMP 0(A3)
  196.  
  197.  
  198.  
  199. OP08:
  200.  
  201.       MOVE.B D4,(A4)
  202.  
  203.       TST.B -(A4)
  204.  
  205.       MOVE.B (A5)+,L08-OP08+$0802(A3)
  206.  
  207. L08:  JMP 0(A3)
  208.  
  209.  
  210.  
  211. OP09:
  212.  
  213.       MOVE D4,CCR
  214.  
  215.       OR.B (A5)+,D5
  216.  
  217.       MOVE SR,D4
  218.  
  219.       MOVE.B (A5)+,L09-OP09+$0902(A3)
  220.  
  221. L09:  JMP 0(A3)
  222.  
  223.  
  224.  
  225. OP0A:
  226.  
  227.       ADD.B D5,D5
  228.  
  229.       MOVE SR,D4
  230.  
  231.       MOVE.B (A5)+,L0A-OP0A+$0A02(A3)
  232.  
  233. L0A:  JMP 0(A3)
  234.  
  235.  
  236.  
  237. OP0D:
  238.  
  239.       MOVE.B (A5)+,-(A2)
  240.  
  241.       MOVE.B (A5)+,-(A2)
  242.  
  243.       MOVE (A2)+,D2
  244.  
  245.       MOVE D4,CCR
  246.  
  247.       OR.B (A6,D2.L),D5
  248.  
  249.       MOVE SR,D4
  250.  
  251.       MOVE.B (A5)+,L0D-OP0D+$0D02(A3)
  252.  
  253. L0D:  JMP 0(A3)
  254.  
  255.  
  256.  
  257. OP0E:
  258.  
  259.       MOVE.B (A5)+,-(A2)
  260.  
  261.       MOVE.B (A5)+,-(A2)
  262.  
  263.       MOVE (A2)+,D2
  264.  
  265.       MOVE.B (A6,D2.L),D3
  266.  
  267.       ADD.B D3,(A6,D2.L)
  268.  
  269.       MOVE SR,D4
  270.  
  271.       MOVE.B (A5)+,L0E-OP0E+$0E02(A3)
  272.  
  273. L0E:  JMP 0(A3)
  274.  
  275.  
  276.  
  277. OP10:
  278.  
  279.       MOVE.B (A5)+,D2
  280.  
  281.       BTST #3,D4
  282.  
  283.       BNE RT10
  284.  
  285.       EXT D2
  286.  
  287.       ADD D2,A5
  288.  
  289. RT10: MOVE.B (A5)+,L10-OP10+$1002(A3)
  290.  
  291. L10:  JMP 0(A3)
  292.  
  293.  
  294.  
  295. OP11:
  296.  
  297.       MOVE.B (A5)+,D3
  298.  
  299.       MOVE.B (A6,D3.L),-(A2)
  300.  
  301.       MOVE.B 1(A6,D3.L),-(A2)
  302.  
  303.       MOVE (A2)+,D2
  304.  
  305.       ADD D7,D2
  306.  
  307.       MOVE D4,CCR
  308.  
  309.       OR.B (A6,D2.L),D5
  310.  
  311.       MOVE SR,D4
  312.  
  313.       MOVE.B (A5)+,L11-OP11+$1102(A3)
  314.  
  315. L11:  JMP 0(A3)
  316.  
  317.  
  318.  
  319. ORA11:
  320.  
  321.       MOVE.B (A5)+,D3
  322.  
  323.       MOVE.B (A6,D3.L),-(A2)
  324.  
  325.       MOVE.B 1(A6,D3.L),-(A2)
  326.  
  327.       MOVE (A2)+,D2
  328.  
  329.       ADD D7,D2
  330.  
  331.       CMP #$D000,D2
  332.  
  333.       BCS OR
  334.  
  335.       SUB #$D000,D2
  336.  
  337.       LEA GRBSS,A0
  338.  
  339.       MOVE D4,CCR
  340.  
  341.       OR.B (A0,D2.L),D5
  342.  
  343.       MOVE SR,D4
  344.  
  345.       MOVE.B (A5)+,L11B-ORA11+$1102(A3)
  346.  
  347. L11B: JMP 0(A3)
  348.  
  349. OR:   MOVE D4,CCR
  350.  
  351.       OR.B (A6,D2.L),D5
  352.  
  353.       MOVE SR,D4
  354.  
  355.       MOVE.B (A5)+,L11C-ORA11+$1102(A3)
  356.  
  357. L11C: JMP 0(A3)
  358.  
  359.  
  360.  
  361. OP15:
  362.  
  363.       MOVE.B (A5)+,D3
  364.  
  365.       ADD.B D6,D3
  366.  
  367.       MOVE D4,CCR
  368.  
  369.       OR.B (A6,D3.L),D5
  370.  
  371.       MOVE SR,D4
  372.  
  373.       MOVE.B (A5)+,L15-OP15+$1502(A3)
  374.  
  375. L15:  JMP 0(A3)
  376.  
  377.  
  378.  
  379. OP16:
  380.  
  381.       MOVE.B (A5)+,D3
  382.  
  383.       ADD.B D6,D3
  384.  
  385.       MOVE.B (A6,D3.L),D2
  386.  
  387.       ADD.B D2,(A6,D3.L)
  388.  
  389.       MOVE SR,D4
  390.  
  391.       MOVE.B (A5)+,L16-OP16+$1602(A3)
  392.  
  393. L16:  JMP 0(A3)
  394.  
  395.  
  396.  
  397. OP18:
  398.  
  399.       AND.B #$EE,D4
  400.  
  401.       MOVE.B (A5)+,L18-OP18+$1802(A3)
  402.  
  403. L18:  JMP 0(A3)
  404.  
  405.  
  406.  
  407. OP19:
  408.  
  409.       MOVE.B (A5)+,-(A2)
  410.  
  411.       MOVE.B (A5)+,-(A2)
  412.  
  413.       MOVE (A2)+,D2
  414.  
  415.       ADD D7,D2
  416.  
  417.       MOVE D4,CCR
  418.  
  419.       OR.B (A6,D2.L),D5
  420.  
  421.       MOVE SR,D4
  422.  
  423.       MOVE.B (A5)+,L19-OP19+$1902(A3)
  424.  
  425. L19:  JMP 0(A3)
  426.  
  427.  
  428.  
  429. OP1D:
  430.  
  431.       MOVE.B (A5)+,-(A2)
  432.  
  433.       MOVE.B (A5)+,-(A2)
  434.  
  435.       MOVE (A2)+,D2
  436.  
  437.       ADD D6,D2
  438.  
  439.       MOVE D4,CCR
  440.  
  441.       OR.B (A6,D2.L),D5
  442.  
  443.       MOVE SR,D4
  444.  
  445.       MOVE.B (A5)+,L1D-OP1D+$1D02(A3)
  446.  
  447. L1D:  JMP 0(A3)
  448.  
  449.  
  450.  
  451. OP1E:
  452.  
  453.       MOVE.B (A5)+,-(A2)
  454.  
  455.       MOVE.B (A5)+,-(A2)
  456.  
  457.       MOVE (A2)+,D2
  458.  
  459.       ADD D6,D2
  460.  
  461.       MOVE.B (A6,D2.L),D3
  462.  
  463.       ADD.B D3,(A6,D2.L)
  464.  
  465.       MOVE SR,D4
  466.  
  467.       MOVE.B (A5)+,L1E-OP1E+$1E02(A3)
  468.  
  469. L1E:  JMP 0(A3)
  470.  
  471.  
  472.  
  473. OP20:
  474.  
  475.       MOVE.B (A5)+,-(A2)
  476.  
  477.       MOVE.B (A5),-(A2)
  478.  
  479.       MOVE (A2)+,D2
  480.  
  481.       SUB.L A6,A5
  482.  
  483.       MOVE A5,-(A2)
  484.  
  485.       MOVE.B (A2)+,(A4)
  486.  
  487.       MOVE.B (A2)+,-(A4)
  488.  
  489.       TST.B -(A4)
  490.  
  491.       CMP #$FF81,D2
  492.  
  493.       BCC JR64
  494.  
  495.       LEA (A6,D2.L),A5
  496.  
  497.       MOVE.B (A5)+,L20-OP20+$2002(A3)
  498.  
  499. L20:  JMP 0(A3)
  500.  
  501. JR64: JMP JMP64
  502.  
  503.  
  504.  
  505. OP21:
  506.  
  507.       MOVE.B (A5)+,D3
  508.  
  509.       ADD.B D6,D3
  510.  
  511.       MOVE.B (A6,D3.L),-(A2)
  512.  
  513.       MOVE.B 1(A6,D3.L),-(A2)
  514.  
  515.       MOVE (A2)+,D2
  516.  
  517.       MOVE D4,CCR
  518.  
  519.       AND.B (A6,D2.L),D5
  520.  
  521.       MOVE SR,D4
  522.  
  523.       MOVE.B (A5)+,L21-OP21+$2102(A3)
  524.  
  525. L21:  JMP 0(A3)
  526.  
  527.  
  528.  
  529. OP24:
  530.  
  531.       MOVE.B (A5)+,D3
  532.  
  533.       MOVE.B (A6,D3.L),D2
  534.  
  535.       MOVE.B D5,D3
  536.  
  537.       MOVE D4,CCR
  538.  
  539.       AND.B D2,D3
  540.  
  541.       MOVE SR,D4
  542.  
  543.       AND.B #$F5,D4
  544.  
  545.       BTST #6,D2
  546.  
  547.       BEQ L241
  548.  
  549.       OR #$02,D4
  550.  
  551. L241: TST.B D2
  552.  
  553.       BPL L242
  554.  
  555.       OR #$08,D4
  556.  
  557. L242: MOVE.B (A5)+,L24-OP24+$2402(A3)
  558.  
  559. L24:  JMP 0(A3)
  560.  
  561.  
  562.  
  563. OP25:
  564.  
  565.       MOVE.B (A5)+,D3
  566.  
  567.       MOVE D4,CCR
  568.  
  569.       AND.B (A6,D3.L),D5
  570.  
  571.       MOVE SR,D4
  572.  
  573.       MOVE.B (A5)+,L25-OP25+$2502(A3)
  574.  
  575. L25:  JMP 0(A3)
  576.  
  577.  
  578.  
  579. OP26:
  580.  
  581.       MOVE.B (A5)+,D3
  582.  
  583.       MOVE.B (A6,D3.L),D2
  584.  
  585.       MOVE D4,CCR
  586.  
  587.       ROXL.B #1,D2
  588.  
  589.       MOVE SR,D4
  590.  
  591.       MOVE.B D2,(A6,D3.L)
  592.  
  593.       MOVE.B (A5)+,L26-OP26+$2602(A3)
  594.  
  595. L26:  JMP 0(A3)
  596.  
  597.  
  598.  
  599. OP28:
  600.  
  601.       TST.B (A4)+
  602.  
  603.       MOVE.B (A4),D4
  604.  
  605.       MOVE.B (A5)+,L28-OP28+$2802(A3)
  606.  
  607. L28:  JMP 0(A3)
  608.  
  609.  
  610.  
  611. OP29:
  612.  
  613.       MOVE D4,CCR
  614.  
  615.       AND.B (A5)+,D5
  616.  
  617.       MOVE SR,D4
  618.  
  619.       MOVE.B (A5)+,L29-OP29+$2902(A3)
  620.  
  621. L29:  JMP 0(A3)
  622.  
  623.  
  624.  
  625. OP2A:
  626.  
  627.       MOVE D4,CCR
  628.  
  629.       ROXL.B #1,D5
  630.  
  631.       MOVE SR,D4
  632.  
  633.       MOVE.B (A5)+,L2A-OP2A+$2A02(A3)
  634.  
  635. L2A:  JMP 0(A3)
  636.  
  637.  
  638.  
  639. OP2C:
  640.  
  641.       MOVE.B (A5)+,-(A2)
  642.  
  643.       MOVE.B (A5)+,-(A2)
  644.  
  645.       MOVE (A2)+,D2
  646.  
  647.       MOVE.B (A6,D2.L),D2
  648.  
  649.       MOVE.B D2,D3
  650.  
  651.       MOVE D4,CCR
  652.  
  653.       AND.B D5,D3
  654.  
  655.       MOVE SR,D4
  656.  
  657.       AND.B #$F5,D4
  658.  
  659.       BTST #6,D2
  660.  
  661.       BEQ L2C1
  662.  
  663.       OR #$02,D4
  664.  
  665. L2C1: TST.B D2
  666.  
  667.       BPL L2C2
  668.  
  669.       OR #$08,D4
  670.  
  671. L2C2: MOVE.B (A5)+,L2C-OP2C+$2C02(A3)
  672.  
  673. L2C:  JMP 0(A3)
  674.  
  675.  
  676.  
  677. OP2D:
  678.  
  679.       MOVE.B (A5)+,-(A2)
  680.  
  681.       MOVE.B (A5)+,-(A2)
  682.  
  683.       MOVE (A2)+,D2
  684.  
  685.       MOVE D4,CCR
  686.  
  687.       AND.B (A6,D2.L),D5
  688.  
  689.       MOVE SR,D4
  690.  
  691.       MOVE.B (A5)+,L2D-OP2D+$2D02(A3)
  692.  
  693. L2D:  JMP 0(A3)
  694.  
  695.  
  696.  
  697. OP2E:
  698.  
  699.       MOVE.B (A5)+,-(A2)
  700.  
  701.       MOVE.B (A5)+,-(A2)
  702.  
  703.       MOVE (A2)+,D2
  704.  
  705.       MOVE.B (A6,D2.L),D3
  706.  
  707.       MOVE D4,CCR
  708.  
  709.       ROXL.B #1,D3
  710.  
  711.       MOVE SR,D4
  712.  
  713.       MOVE.B D3,(A6,D2.L)
  714.  
  715.       MOVE.B (A5)+,L2E-OP2E+$2E02(A3)
  716.  
  717. L2E:  JMP 0(A3)
  718.  
  719.  
  720.  
  721. OP30:
  722.  
  723.       MOVE.B (A5)+,D2
  724.  
  725.       BTST #3,D4
  726.  
  727.       BEQ RT30
  728.  
  729.       EXT D2
  730.  
  731.       ADD D2,A5
  732.  
  733. RT30: MOVE.B (A5)+,L30-OP30+$3002(A3)
  734.  
  735. L30:  JMP 0(A3)
  736.  
  737.  
  738.  
  739. OP31:
  740.  
  741.       MOVE.B (A5)+,D3
  742.  
  743.       MOVE.B (A6,D3.L),-(A2)
  744.  
  745.       MOVE.B 1(A6,D3.L),-(A2)
  746.  
  747.       MOVE (A2)+,D2
  748.  
  749.       ADD D7,D2
  750.  
  751.       MOVE D4,CCR
  752.  
  753.       AND.B (A6,D2.L),D5
  754.  
  755.       MOVE SR,D4
  756.  
  757.       MOVE.B (A5)+,L31-OP31+$3102(A3)
  758.  
  759. L31:  JMP 0(A3)
  760.  
  761.  
  762.  
  763. AND31:
  764.  
  765.       MOVE.B (A5)+,D3
  766.  
  767.       MOVE.B (A6,D3.L),-(A2)
  768.  
  769.       MOVE.B 1(A6,D3.L),-(A2)
  770.  
  771.       MOVE (A2)+,D2
  772.  
  773.       ADD D7,D2
  774.  
  775.       CMP #$D000,D2
  776.  
  777.       BCS AND
  778.  
  779.       SUB #$D000,D2
  780.  
  781.       LEA GRBSS,A0
  782.  
  783.       MOVE D4,CCR
  784.  
  785.       AND.B (A0,D2.L),D5
  786.  
  787.       MOVE SR,D4
  788.  
  789.       MOVE.B (A5)+,L31B-AND31+$3102(A3)
  790.  
  791. L31B: JMP 0(A3)
  792.  
  793. AND:  MOVE D4,CCR
  794.  
  795.       AND.B (A6,D2.L),D5
  796.  
  797.       MOVE SR,D4
  798.  
  799.       MOVE.B (A5)+,L31C-AND31+$3102(A3)
  800.  
  801. L31C: JMP 0(A3)
  802.  
  803.  
  804.  
  805. OP35:
  806.  
  807.       MOVE.B (A5)+,D3
  808.  
  809.       ADD.B D6,D3
  810.  
  811.       MOVE D4,CCR
  812.  
  813.       AND.B (A6,D3.L),D5
  814.  
  815.       MOVE SR,D4
  816.  
  817.       MOVE.B (A5)+,L35-OP35+$3502(A3)
  818.  
  819. L35:  JMP 0(A3)
  820.  
  821.  
  822.  
  823. OP36:
  824.  
  825.       MOVE.B (A5)+,D3
  826.  
  827.       ADD D6,D3
  828.  
  829.       MOVE.B (A6,D3.L),D2
  830.  
  831.       MOVE D4,CCR
  832.  
  833.       ROXL.B #1,D2
  834.  
  835.       MOVE SR,D4
  836.  
  837.       MOVE.B D2,(A6,D3.L)
  838.  
  839.       MOVE.B (A5)+,L36-OP36+$3602(A3)
  840.  
  841. L36:  JMP 0(A3)
  842.  
  843.  
  844.  
  845. OP38:
  846.  
  847.       OR.B D1,D4
  848.  
  849.       MOVE.B (A5)+,L38-OP38+$3802(A3)
  850.  
  851. L38:  JMP 0(A3)
  852.  
  853.  
  854.  
  855. OP39:
  856.  
  857.       MOVE.B (A5)+,-(A2)
  858.  
  859.       MOVE.B (A5)+,-(A2)
  860.  
  861.       MOVE (A2)+,D2
  862.  
  863.       ADD D7,D2
  864.  
  865.       MOVE D4,CCR
  866.  
  867.       AND.B (A6,D2.L),D5
  868.  
  869.       MOVE SR,D4
  870.  
  871.       MOVE.B (A5)+,L39-OP39+$3902(A3)
  872.  
  873. L39:  JMP 0(A3)
  874.  
  875.  
  876.  
  877. OP3D:
  878.  
  879.       MOVE.B (A5)+,-(A2)
  880.  
  881.       MOVE.B (A5)+,-(A2)
  882.  
  883.       MOVE (A2)+,D2
  884.  
  885.       ADD D6,D2
  886.  
  887.       MOVE D4,CCR
  888.  
  889.       AND.B (A6,D2.L),D5
  890.  
  891.       MOVE SR,D4
  892.  
  893.       MOVE.B (A5)+,L3D-OP3D+$3D02(A3)
  894.  
  895. L3D:  JMP 0(A3)
  896.  
  897.  
  898.  
  899. OP3E:
  900.  
  901.       MOVE.B (A5)+,-(A2)
  902.  
  903.       MOVE.B (A5)+,-(A2)
  904.  
  905.       MOVE (A2)+,D2
  906.  
  907.       ADD D6,D2
  908.  
  909.       MOVE.B (A6,D2.L),D3
  910.  
  911.       MOVE D4,CCR
  912.  
  913.       ROXL.B #1,D3
  914.  
  915.       MOVE SR,D4
  916.  
  917.       MOVE.B D3,(A6,D2.L)
  918.  
  919.       MOVE.B (A5)+,L3E-OP3E+$3E02(A3)
  920.  
  921. L3E:  JMP 0(A3)
  922.  
  923.  
  924.  
  925. OP40:
  926.  
  927.       TST.B (A4)+
  928.  
  929.       MOVE.B (A4)+,D4
  930.  
  931.       MOVE.B (A4)+,-(A2)
  932.  
  933.       MOVE.B (A4),-(A2)
  934.  
  935.       MOVE (A2)+,D2
  936.  
  937.       LEA (A6,D2.L),A5
  938.  
  939.       MOVE.B (A5)+,L40-OP40+$4002(A3)
  940.  
  941. L40:  JMP 0(A3)
  942.  
  943.  
  944.  
  945. OP41:
  946.  
  947.       MOVE.B (A5)+,D3
  948.  
  949.       ADD.B D6,D3
  950.  
  951.       MOVE.B (A6,D3.L),-(A2)
  952.  
  953.       MOVE.B 1(A6,D3.L),-(A2)
  954.  
  955.       MOVE (A2)+,D2
  956.  
  957.       MOVE.B (A6,D2.L),D3
  958.  
  959.       MOVE D4,CCR
  960.  
  961.       EOR.B D3,D5
  962.  
  963.       MOVE SR,D4
  964.  
  965.       MOVE.B (A5)+,L41-OP41+$4102(A3)
  966.  
  967. L41:  JMP 0(A3)
  968.  
  969.  
  970.  
  971. OP45:
  972.  
  973.       MOVE.B (A5)+,D3
  974.  
  975.       MOVE.B (A6,D3.L),D3
  976.  
  977.       MOVE D4,CCR
  978.  
  979.       EOR.B D3,D5
  980.  
  981.       MOVE SR,D4
  982.  
  983.       MOVE.B (A5)+,L45-OP45+$4502(A3)
  984.  
  985. L45:  JMP 0(A3)
  986.  
  987.  
  988.  
  989. OP46:
  990.  
  991.       MOVE.B (A5)+,D3
  992.  
  993.       MOVE.B (A6,D3.L),D2
  994.  
  995.       LSR.B #1,D2
  996.  
  997.       MOVE SR,D4
  998.  
  999.       MOVE.B D2,(A6,D3.L)
  1000.  
  1001.       MOVE.B (A5)+,L46-OP46+$4602(A3)
  1002.  
  1003. L46:  JMP 0(A3)
  1004.  
  1005.  
  1006.  
  1007. OP48:
  1008.  
  1009.       MOVE.B D5,(A4)
  1010.  
  1011.       TST.B -(A4)
  1012.  
  1013.       MOVE.B (A5)+,L48-OP48+$4802(A3)
  1014.  
  1015. L48:  JMP 0(A3)
  1016.  
  1017.  
  1018.  
  1019. OP49:
  1020.  
  1021.       MOVE.B (A5)+,D3
  1022.  
  1023.       MOVE D4,CCR
  1024.  
  1025.       EOR.B D3,D5
  1026.  
  1027.       MOVE SR,D4
  1028.  
  1029.       MOVE.B (A5)+,L49-OP49+$4902(A3)
  1030.  
  1031. L49:  JMP 0(A3)
  1032.  
  1033.  
  1034.  
  1035. OP4A:
  1036.  
  1037.       LSR.B #1,D5
  1038.  
  1039.       MOVE SR,D4
  1040.  
  1041.       MOVE.B (A5)+,L4A-OP4A+$4A02(A3)
  1042.  
  1043. L4A:  JMP 0(A3)
  1044.  
  1045.  
  1046.  
  1047. OP4C:
  1048.  
  1049.       MOVE.B (A5),-(A2)
  1050.  
  1051.       MOVE.B 1(A5),-(A2)
  1052.  
  1053.       MOVE (A2)+,D2
  1054.  
  1055.       CMP #$FF81,D2
  1056.  
  1057.       BCC JP64
  1058.  
  1059.       LEA (A6,D2.L),A5
  1060.  
  1061.       MOVE.B (A5)+,L4C-OP4C+$4C02(A3)
  1062.  
  1063. L4C:  JMP 0(A3)
  1064.  
  1065. JP64: JMP JMP64
  1066.  
  1067.  
  1068.  
  1069. OP4D:
  1070.  
  1071.       MOVE.B (A5)+,-(A2)
  1072.  
  1073.       MOVE.B (A5)+,-(A2)
  1074.  
  1075.       MOVE (A2)+,D2
  1076.  
  1077.       MOVE.B (A6,D2.L),D3
  1078.  
  1079.       MOVE D4,CCR
  1080.  
  1081.       EOR.B D3,D5
  1082.  
  1083.       MOVE SR,D4
  1084.  
  1085.       MOVE.B (A5)+,L4D-OP4D+$4D02(A3)
  1086.  
  1087. L4D:  JMP 0(A3)
  1088.  
  1089.  
  1090.  
  1091. OP4E:
  1092.  
  1093.       MOVE.B (A5)+,-(A2)
  1094.  
  1095.       MOVE.B (A5)+,-(A2)
  1096.  
  1097.       MOVE (A2)+,D2
  1098.  
  1099.       MOVE.B (A6,D2.L),D3
  1100.  
  1101.       LSR.B #1,D3
  1102.  
  1103.       MOVE SR,D4
  1104.  
  1105.       MOVE.B D3,(A6,D2.L)
  1106.  
  1107.       MOVE.B (A5)+,L4E-OP4E+$4E02(A3)
  1108.  
  1109. L4E:  JMP 0(A3)
  1110.  
  1111.  
  1112.  
  1113. OP50:
  1114.  
  1115.       MOVE.B (A5)+,D2
  1116.  
  1117.       BTST #1,D4
  1118.  
  1119.       BNE RT50
  1120.  
  1121.       EXT D2
  1122.  
  1123.       ADD D2,A5
  1124.  
  1125. RT50: MOVE.B (A5)+,L50-OP50+$5002(A3)
  1126.  
  1127. L50:  JMP 0(A3)
  1128.  
  1129.  
  1130.  
  1131. OP51:
  1132.  
  1133.       MOVE.B (A5)+,D3
  1134.  
  1135.       MOVE.B (A6,D3.L),-(A2)
  1136.  
  1137.       MOVE.B 1(A6,D3.L),-(A2)
  1138.  
  1139.       MOVE (A2)+,D2
  1140.  
  1141.       ADD D7,D2
  1142.  
  1143.       MOVE.B (A6,D2.L),D3
  1144.  
  1145.       MOVE D4,CCR
  1146.  
  1147.       EOR.B D3,D5
  1148.  
  1149.       MOVE SR,D4
  1150.  
  1151.       MOVE.B (A5)+,L51-OP51+$5102(A3)
  1152.  
  1153. L51:  JMP 0(A3)
  1154.  
  1155.  
  1156.  
  1157. EOR51:
  1158.  
  1159.       MOVE.B (A5)+,D3
  1160.  
  1161.       MOVE.B (A6,D3.L),-(A2)
  1162.  
  1163.       MOVE.B 1(A6,D3.L),-(A2)
  1164.  
  1165.       MOVE (A2)+,D2
  1166.  
  1167.       ADD D7,D2
  1168.  
  1169.       CMP #$D000,D2
  1170.  
  1171.       BCS EOR
  1172.  
  1173.       SUB #$D000,D2
  1174.  
  1175.       LEA GRBSS,A0
  1176.  
  1177.       MOVE.B (A0,D2.L),D3
  1178.  
  1179.       MOVE D4,CCR
  1180.  
  1181.       EOR.B D3,D5
  1182.  
  1183.       MOVE SR,D4
  1184.  
  1185.       MOVE.B (A5)+,L51B-EOR51+$5102(A3)
  1186.  
  1187. L51B: JMP 0(A3)
  1188.  
  1189. EOR:  MOVE.B (A6,D2.L),D3
  1190.  
  1191.       MOVE D4,CCR
  1192.  
  1193.       EOR.B D3,D5
  1194.  
  1195.       MOVE SR,D4
  1196.  
  1197.       MOVE.B (A5)+,L51C-EOR51+$5102(A3)
  1198.  
  1199. L51C: JMP 0(A3)
  1200.  
  1201.  
  1202.  
  1203. OP55:
  1204.  
  1205.       MOVE.B (A5)+,D3
  1206.  
  1207.       ADD.B D6,D3
  1208.  
  1209.       MOVE.B (A6,D3.L),D3
  1210.  
  1211.       MOVE D4,CCR
  1212.  
  1213.       EOR.B D3,D5
  1214.  
  1215.       MOVE SR,D4
  1216.  
  1217.       MOVE.B (A5)+,L55-OP55+$5502(A3)
  1218.  
  1219. L55:  JMP 0(A3)
  1220.  
  1221.  
  1222.  
  1223. OP56:
  1224.  
  1225.       MOVE.B (A5)+,D3
  1226.  
  1227.       ADD.B D6,D3
  1228.  
  1229.       MOVE.B (A6,D3.L),D2
  1230.  
  1231.       LSR.B #1,D2
  1232.  
  1233.       MOVE SR,D4
  1234.  
  1235.       MOVE.B D2,(A6,D3.L)
  1236.  
  1237.       MOVE.B (A5)+,L56-OP56+$5602(A3)
  1238.  
  1239. L56:  JMP 0(A3)
  1240.  
  1241.  
  1242.  
  1243. OP58:
  1244.  
  1245.       BCLR #31,D4
  1246.  
  1247.       MOVE.B (A5)+,L58-OP58+$5802(A3)
  1248.  
  1249. L58:  JMP 0(A3)
  1250.  
  1251.  
  1252.  
  1253. OP59:
  1254.  
  1255.       MOVE.B (A5)+,-(A2)
  1256.  
  1257.       MOVE.B (A5)+,-(A2)
  1258.  
  1259.       MOVE (A2)+,D2
  1260.  
  1261.       ADD D7,D2
  1262.  
  1263.       MOVE.B (A6,D2.L),D3
  1264.  
  1265.       MOVE D4,CCR
  1266.  
  1267.       EOR.B D3,D5
  1268.  
  1269.       MOVE SR,D4
  1270.  
  1271.       MOVE.B (A5)+,L59-OP59+$5902(A3)
  1272.  
  1273. L59:  JMP 0(A3)
  1274.  
  1275.  
  1276.  
  1277. OP5D:
  1278.  
  1279.       MOVE.B (A5)+,-(A2)
  1280.  
  1281.       MOVE.B (A5)+,-(A2)
  1282.  
  1283.       MOVE (A2)+,D2
  1284.  
  1285.       ADD D6,D2
  1286.  
  1287.       MOVE.B (A6,D2.L),D3
  1288.  
  1289.       MOVE D4,CCR
  1290.  
  1291.       EOR.B D3,D5
  1292.  
  1293.       MOVE SR,D4
  1294.  
  1295.       MOVE.B (A5)+,L5D-OP5D+$5D02(A3)
  1296.  
  1297. L5D:  JMP 0(A3)
  1298.  
  1299.  
  1300.  
  1301. OP5E:
  1302.  
  1303.       MOVE.B (A5)+,-(A2)
  1304.  
  1305.       MOVE.B (A5)+,-(A2)
  1306.  
  1307.       MOVE (A2)+,D2
  1308.  
  1309.       ADD D6,D2
  1310.  
  1311.       MOVE.B (A6,D2.L),D3
  1312.  
  1313.       LSR.B #1,D3
  1314.  
  1315.       MOVE SR,D4
  1316.  
  1317.       MOVE.B D3,(A6,D2.L)
  1318.  
  1319.       MOVE.B (A5)+,L5E-OP5E+$5E02(A3)
  1320.  
  1321. L5E:  JMP 0(A3)
  1322.  
  1323.  
  1324.  
  1325. OP60:
  1326.  
  1327.       TST.B (A4)+
  1328.  
  1329.       MOVE.B (A4)+,-(A2)
  1330.  
  1331.       MOVE.B (A4),-(A2)
  1332.  
  1333.       MOVE (A2)+,D2
  1334.  
  1335.       LEA 1(A6,D2.L),A5
  1336.  
  1337.       MOVE.B (A5)+,L60-OP60+$6002(A3)
  1338.  
  1339. L60:  JMP 0(A3)
  1340.  
  1341.  
  1342.  
  1343. OP61:
  1344.  
  1345.       MOVE.B (A5)+,D3
  1346.  
  1347.       ADD.B D6,D3
  1348.  
  1349.       MOVE.B (A6,D3.L),-(A2)
  1350.  
  1351.       MOVE.B 1(A6,D3.L),-(A2)
  1352.  
  1353.       MOVE (A2)+,D2
  1354.  
  1355.       MOVE.B (A6,D2.L),D3
  1356.  
  1357.       MOVE D4,CCR
  1358.  
  1359.       BTST D1,D4
  1360.  
  1361.       BNE DC61
  1362.  
  1363.       ADDX.B D3,D5
  1364.  
  1365.       MOVE SR,D4
  1366.  
  1367.       MOVE.B (A5)+,L61-OP61+$6102(A3)
  1368.  
  1369. L61:  JMP 0(A3)
  1370.  
  1371. DC61: OR #$04,CCR
  1372.  
  1373.       ABCD D3,D5
  1374.  
  1375.       MOVE SR,D4
  1376.  
  1377.       MOVE.B (A5)+,D61-OP61+$6102(A3)
  1378.  
  1379. D61:  JMP 0(A3)
  1380.  
  1381.  
  1382.  
  1383. OP65:
  1384.  
  1385.       MOVE.B (A5)+,D3
  1386.  
  1387.       MOVE.B (A6,D3.L),D3
  1388.  
  1389.       MOVE D4,CCR
  1390.  
  1391.       BTST D1,D4
  1392.  
  1393.       BNE DC65
  1394.  
  1395.       ADDX.B D3,D5
  1396.  
  1397.       MOVE SR,D4
  1398.  
  1399.       MOVE.B (A5)+,L65-OP65+$6502(A3)
  1400.  
  1401. L65:  JMP 0(A3)
  1402.  
  1403. DC65: OR #$04,CCR
  1404.  
  1405.       ABCD D3,D5
  1406.  
  1407.       MOVE SR,D4
  1408.  
  1409.       MOVE.B (A5)+,D65-OP65+$6502(A3)
  1410.  
  1411. D65:  JMP 0(A3)
  1412.  
  1413.  
  1414.  
  1415. OP66:
  1416.  
  1417.       MOVE.B (A5)+,D3
  1418.  
  1419.       MOVE.B (A6,D3.L),D2
  1420.  
  1421.       MOVE D4,CCR
  1422.  
  1423.       ROXR.B #1,D2
  1424.  
  1425.       MOVE SR,D4
  1426.  
  1427.       MOVE.B D2,(A6,D3.L)
  1428.  
  1429.       MOVE.B (A5)+,L66-OP66+$6602(A3)
  1430.  
  1431. L66:  JMP 0(A3)
  1432.  
  1433.  
  1434.  
  1435. OP68:
  1436.  
  1437.       TST.B (A4)+
  1438.  
  1439.       MOVE D4,CCR
  1440.  
  1441.       MOVE.B (A4),D5
  1442.  
  1443.       MOVE SR,D4
  1444.  
  1445.       MOVE.B (A5)+,L68-OP68+$6802(A3)
  1446.  
  1447. L68:  JMP 0(A3)
  1448.  
  1449.  
  1450.  
  1451. OP69:
  1452.  
  1453.       MOVE.B (A5)+,D3
  1454.  
  1455.       MOVE D4,CCR
  1456.  
  1457.       BTST D1,D4
  1458.  
  1459.       BNE DC69
  1460.  
  1461.       ADDX.B D3,D5
  1462.  
  1463.       MOVE SR,D4
  1464.  
  1465.       MOVE.B (A5)+,L69-OP69+$6902(A3)
  1466.  
  1467. L69:  JMP 0(A3)
  1468.  
  1469. DC69: OR #$04,CCR
  1470.  
  1471.       ABCD D3,D5
  1472.  
  1473.       MOVE SR,D4
  1474.  
  1475.       MOVE.B (A5)+,D69-OP69+$6902(A3)
  1476.  
  1477. D69:  JMP 0(A3)
  1478.  
  1479.  
  1480.  
  1481. OP6A:
  1482.  
  1483.       MOVE D4,CCR
  1484.  
  1485.       ROXR.B #1,D5
  1486.  
  1487.       MOVE SR,D4
  1488.  
  1489.       MOVE.B (A5)+,L6A-OP6A+$6A02(A3)
  1490.  
  1491. L6A:  JMP 0(A3)
  1492.  
  1493.  
  1494.  
  1495. OP6C:
  1496.  
  1497.       MOVE.B (A5)+,-(A2)
  1498.  
  1499.       MOVE.B (A5),-(A2)
  1500.  
  1501.       MOVE (A2)+,D2
  1502.  
  1503.       CMP.B #$FF,D2
  1504.  
  1505.       BNE OP6C1
  1506.  
  1507.       MOVE.L D2,D0
  1508.  
  1509.       CLR.B D0
  1510.  
  1511.       MOVE.B (A6,D0.L),-(SP)
  1512.  
  1513.       BRA OP6C2
  1514.  
  1515. OP6C1:MOVE.B 1(A6,D2.L),-(SP)
  1516.  
  1517. OP6C2:MOVE.B (A6,D2.L),1(SP)
  1518.  
  1519.       MOVE (SP)+,D2
  1520.  
  1521.       LEA (A6,D2.L),A5
  1522.  
  1523.       MOVE.B (A5)+,L6C-OP6C+$6C02(A3)
  1524.  
  1525. L6C:  JMP 0(A3)
  1526.  
  1527.  
  1528.  
  1529. OP6D:
  1530.  
  1531.       MOVE.B (A5)+,-(A2)
  1532.  
  1533.       MOVE.B (A5)+,-(A2)
  1534.  
  1535.       MOVE (A2)+,D2
  1536.  
  1537.       MOVE.B (A6,D2.L),D3
  1538.  
  1539.       MOVE D4,CCR
  1540.  
  1541.       BTST D1,D4
  1542.  
  1543.       BNE DC6D
  1544.  
  1545. NDCAD:ADDX.B D3,D5
  1546.  
  1547.       MOVE SR,D4
  1548.  
  1549.       MOVE.B (A5)+,L6D-OP6D+$6D02(A3)
  1550.  
  1551. L6D:  JMP 0(A3)
  1552.  
  1553. DC6D: OR #$04,CCR
  1554.  
  1555.       ABCD D3,D5
  1556.  
  1557.       MOVE SR,D4
  1558.  
  1559.       MOVE.B (A5)+,D6D-OP6D+$6D02(A3)
  1560.  
  1561. D6D:  JMP 0(A3)
  1562.  
  1563.  
  1564.  
  1565. OP6E:
  1566.  
  1567.       MOVE.B (A5)+,-(A2)
  1568.  
  1569.       MOVE.B (A5)+,-(A2)
  1570.  
  1571.       MOVE (A2)+,D2
  1572.  
  1573.       MOVE.B (A6,D2.L),D3
  1574.  
  1575.       MOVE D4,CCR
  1576.  
  1577.       ROXR.B #1,D3
  1578.  
  1579.       MOVE SR,D4
  1580.  
  1581.       MOVE.B D3,(A6,D2.L)
  1582.  
  1583.       MOVE.B (A5)+,L6E-OP6E+$6E02(A3)
  1584.  
  1585. L6E:  JMP 0(A3)
  1586.  
  1587.  
  1588.  
  1589. OP70:
  1590.  
  1591.       MOVE.B (A5)+,D2
  1592.  
  1593.       BTST #1,D4
  1594.  
  1595.       BEQ RT70
  1596.  
  1597.       EXT D2
  1598.  
  1599.       ADD D2,A5
  1600.  
  1601. RT70: MOVE.B (A5)+,L70-OP70+$7002(A3)
  1602.  
  1603. L70:  JMP 0(A3)
  1604.  
  1605.  
  1606.  
  1607. OP71:
  1608.  
  1609.       MOVE.B (A5)+,D3
  1610.  
  1611.       MOVE.B (A6,D3.L),-(A2)
  1612.  
  1613.       MOVE.B 1(A6,D3.L),-(A2)
  1614.  
  1615.       MOVE (A2)+,D2
  1616.  
  1617.       ADD D7,D2
  1618.  
  1619.       MOVE.B (A6,D2.L),D3
  1620.  
  1621.       MOVE D4,CCR
  1622.  
  1623.       BTST D1,D4
  1624.  
  1625.       BNE DC71
  1626.  
  1627.       ADDX.B D3,D5
  1628.  
  1629.       MOVE SR,D4
  1630.  
  1631.       MOVE.B (A5)+,L71-OP71+$7102(A3)
  1632.  
  1633. L71:  JMP 0(A3)
  1634.  
  1635. DC71: OR #$04,CCR
  1636.  
  1637.       ABCD D3,D5
  1638.  
  1639.       MOVE SR,D4
  1640.  
  1641.       MOVE.B (A5)+,D71-OP71+$7102(A3)
  1642.  
  1643. D71:  JMP 0(A3)
  1644.  
  1645.  
  1646.  
  1647. OP75:
  1648.  
  1649.       MOVE.B (A5)+,D3
  1650.  
  1651.       ADD.B D6,D3
  1652.  
  1653.       MOVE.B (A6,D3.L),D3
  1654.  
  1655.       MOVE D4,CCR
  1656.  
  1657.       BTST D1,D4
  1658.  
  1659.       BNE DC75
  1660.  
  1661.       ADDX.B D3,D5
  1662.  
  1663.       MOVE SR,D4
  1664.  
  1665.       MOVE.B (A5)+,L75-OP75+$7502(A3)
  1666.  
  1667. L75:  JMP 0(A3)
  1668.  
  1669. DC75: OR #$04,CCR
  1670.  
  1671.       ABCD D3,D5
  1672.  
  1673.       MOVE SR,D4
  1674.  
  1675.       MOVE.B (A5)+,D75-OP75+$7502(A3)
  1676.  
  1677. D75:  JMP 0(A3)
  1678.  
  1679.  
  1680.  
  1681. OP76:
  1682.  
  1683.       MOVE.B (A5)+,D3
  1684.  
  1685.       ADD.B D6,D3
  1686.  
  1687.       MOVE.B (A6,D3.L),D2
  1688.  
  1689.       MOVE D4,CCR
  1690.  
  1691.       ROXR.B #1,D2
  1692.  
  1693.       MOVE SR,D4
  1694.  
  1695.       MOVE.B D2,(A6,D3.L)
  1696.  
  1697.       MOVE.B (A5)+,L76-OP76+$7602(A3)
  1698.  
  1699. L76:  JMP 0(A3)
  1700.  
  1701.  
  1702.  
  1703. OP78:
  1704.  
  1705.       BSET #31,D4
  1706.  
  1707.       MOVE.B (A5)+,L78-OP78+$7802(A3)
  1708.  
  1709. L78:  JMP 0(A3)
  1710.  
  1711.  
  1712.  
  1713. OP79:
  1714.  
  1715.       MOVE.B (A5)+,-(A2)
  1716.  
  1717.       MOVE.B (A5)+,-(A2)
  1718.  
  1719.       MOVE (A2)+,D2
  1720.  
  1721.       ADD D7,D2
  1722.  
  1723.       MOVE.B (A6,D2.L),D3
  1724.  
  1725.       MOVE D4,CCR
  1726.  
  1727.       BTST D1,D4
  1728.  
  1729.       BNE DC79
  1730.  
  1731.       ADDX.B D3,D5
  1732.  
  1733.       MOVE SR,D4
  1734.  
  1735.       MOVE.B (A5)+,L79-OP79+$7902(A3)
  1736.  
  1737. L79:  JMP 0(A3)
  1738.  
  1739. DC79: OR #$04,CCR
  1740.  
  1741.       ABCD D3,D5
  1742.  
  1743.       MOVE SR,D4
  1744.  
  1745.       MOVE.B (A5)+,D79-OP79+$7902(A3)
  1746.  
  1747. D79:  JMP 0(A3)
  1748.  
  1749.  
  1750.  
  1751. OP7D:
  1752.  
  1753.       MOVE.B (A5)+,-(A2)
  1754.  
  1755.       MOVE.B (A5)+,-(A2)
  1756.  
  1757.       MOVE (A2)+,D2
  1758.  
  1759.       ADD D6,D2
  1760.  
  1761.       MOVE.B (A6,D2.L),D3
  1762.  
  1763.       MOVE D4,CCR
  1764.  
  1765.       BTST D1,D4
  1766.  
  1767.       BNE DC7D
  1768.  
  1769.       ADDX.B D3,D5
  1770.  
  1771.       MOVE SR,D4
  1772.  
  1773.       MOVE.B (A5)+,L7D-OP7D+$7D02(A3)
  1774.  
  1775. L7D:  JMP 0(A3)
  1776.  
  1777. DC7D: OR #$04,CCR
  1778.  
  1779.       ABCD D3,D5
  1780.  
  1781.       MOVE SR,D4
  1782.  
  1783.       MOVE.B (A5)+,D7D-OP7D+$7D02(A3)
  1784.  
  1785. D7D:  JMP 0(A3)
  1786.  
  1787.  
  1788.  
  1789. OP81:
  1790.  
  1791.       MOVE.B (A5)+,D3
  1792.  
  1793.       ADD.B D6,D3
  1794.  
  1795.       MOVE.B (A6,D3.L),-(A2)
  1796.  
  1797.       MOVE.B 1(A6,D3.L),-(A2)
  1798.  
  1799.       MOVE (A2)+,D2
  1800.  
  1801.       MOVE.B D5,(A6,D2.L)
  1802.  
  1803.       MOVE.B (A5)+,L81-OP81+$8102(A3)
  1804.  
  1805. L81:  JMP 0(A3)
  1806.  
  1807.  
  1808.  
  1809. STO81:
  1810.  
  1811.       MOVE.B (A5)+,D3
  1812.  
  1813.       ADD.B D6,D3
  1814.  
  1815.       MOVE.B (A6,D3.L),-(A2)
  1816.  
  1817.       MOVE.B 1(A6,D3.L),-(A2)
  1818.  
  1819.       MOVE (A2)+,D2
  1820.  
  1821. STOA: MOVE D5,-(SP)
  1822.  
  1823. STO:  CMP #$D000,D2
  1824.  
  1825.       BCC GRAP
  1826.  
  1827. GRAP2:MOVE.B D5,(A6,D2.L)
  1828.  
  1829.       MOVE.L D2,D0
  1830.  
  1831.       MOVE.B $0288(A6),D2
  1832.  
  1833.       ASL #8,D2
  1834.  
  1835.       SUB D2,D0
  1836.  
  1837.       BCS C81
  1838.  
  1839.       CMP #1000,D0
  1840.  
  1841.       BCC C81
  1842.  
  1843.       JMP ITS
  1844.  
  1845. ITRET:MOVEQ #$10,D1
  1846.  
  1847. C81:  MOVE (SP)+,D5
  1848.  
  1849.       LEA L81B(PC),A0
  1850.  
  1851.       MOVE.B (A5)+,2(A0)
  1852.  
  1853. L81B: JMP 0(A3)
  1854.  
  1855. GRAP: SUB #$D000,D2
  1856.  
  1857.       CMP #$1000,D2
  1858.  
  1859.       BCC GRAP1
  1860.  
  1861.       BTST #2,$01(A6)
  1862.  
  1863.       BEQ GRAP1
  1864.  
  1865.       ADD #$D000,D2
  1866.  
  1867.       MOVE.B D5,(A6,D2.L)
  1868.  
  1869.       BRA C81
  1870.  
  1871. GRAP1:LEA GRBSS,A0
  1872.  
  1873.       MOVE.B D5,(A0,D2.L)
  1874.  
  1875.       BTST #5,C64+$D011                 *gRAFIK-mODUS?
  1876.  
  1877.       BEQ C81                           *NEIN-
  1878.  
  1879.       SUB #$1000,D2
  1880.  
  1881.       CMP #8000,D2
  1882.  
  1883.       BCC C81
  1884.  
  1885.       JMP GRAPH
  1886.  
  1887.  
  1888.  
  1889. OP84:
  1890.  
  1891.       MOVE.B (A5)+,D3
  1892.  
  1893.       MOVE.B D7,(A6,D3.L)
  1894.  
  1895.       MOVE.B (A5)+,L84-OP84+$8402(A3)
  1896.  
  1897. L84:  JMP 0(A3)
  1898.  
  1899.  
  1900.  
  1901. OP85:
  1902.  
  1903.       MOVE.B (A5)+,D3
  1904.  
  1905.       MOVE.B D5,(A6,D3.L)
  1906.  
  1907.       MOVE.B (A5)+,L85-OP85+$8502(A3)
  1908.  
  1909. L85:  JMP 0(A3)
  1910.  
  1911.  
  1912.  
  1913. OP86:
  1914.  
  1915.       MOVE.B (A5)+,D3
  1916.  
  1917.       MOVE.B D6,(A6,D3.L)
  1918.  
  1919.       MOVE.B (A5)+,L86-OP86+$8602(A3)
  1920.  
  1921. L86:  JMP 0(A3)
  1922.  
  1923.  
  1924.  
  1925. OP88:
  1926.  
  1927.       SUBQ.B #1,D7
  1928.  
  1929.       MOVE D4,CCR
  1930.  
  1931.       TST.B D7
  1932.  
  1933.       MOVE SR,D4
  1934.  
  1935.       MOVE.B (A5)+,L88-OP88+$8802(A3)
  1936.  
  1937. L88:  JMP 0(A3)
  1938.  
  1939.  
  1940.  
  1941. OP8A:
  1942.  
  1943.       MOVE D4,CCR
  1944.  
  1945.       MOVE.B D6,D5
  1946.  
  1947.       MOVE SR,D4
  1948.  
  1949.       MOVE.B (A5)+,L8A-OP8A+$8A02(A3)
  1950.  
  1951. L8A:  JMP 0(A3)
  1952.  
  1953.  
  1954.  
  1955. OP8C:
  1956.  
  1957.       MOVE.B (A5)+,-(A2)
  1958.  
  1959.       MOVE.B (A5)+,-(A2)
  1960.  
  1961.       MOVE (A2)+,D2
  1962.  
  1963.       MOVE.B D7,(A6,D2.L)
  1964.  
  1965.       MOVE.B (A5)+,L8C-OP8C+$8C02(A3)
  1966.  
  1967. L8C:  JMP 0(A3)
  1968.  
  1969.  
  1970.  
  1971. STO8C:
  1972.  
  1973.       MOVE.B (A5)+,-(A2)
  1974.  
  1975.       MOVE.B (A5)+,-(A2)
  1976.  
  1977.       MOVE (A2)+,D2
  1978.  
  1979.       MOVE D5,-(SP)
  1980.  
  1981.       MOVE.B D7,D5
  1982.  
  1983.       JMP STO
  1984.  
  1985.  
  1986.  
  1987. OP8D:
  1988.  
  1989.       MOVE.B (A5)+,-(A2)
  1990.  
  1991.       MOVE.B (A5)+,-(A2)
  1992.  
  1993.       MOVE (A2)+,D2
  1994.  
  1995.       MOVE.B D5,(A6,D2.L)
  1996.  
  1997.       MOVE.B (A5)+,L8D-OP8D+$8D02(A3)
  1998.  
  1999. L8D:  JMP 0(A3)
  2000.  
  2001.       
  2002.  
  2003. STO8D:
  2004.  
  2005.       MOVE.B (A5)+,-(A2)
  2006.  
  2007.       MOVE.B (A5)+,-(A2)
  2008.  
  2009.       MOVE (A2)+,D2
  2010.  
  2011.       JMP STOA
  2012.  
  2013.  
  2014.  
  2015. OP8E:
  2016.  
  2017.       MOVE.B (A5)+,-(A2)
  2018.  
  2019.       MOVE.B (A5)+,-(A2)
  2020.  
  2021.       MOVE (A2)+,D2
  2022.  
  2023.       MOVE.B D6,(A6,D2.L)
  2024.  
  2025.       MOVE.B (A5)+,L8E-OP8E+$8E02(A3)
  2026.  
  2027. L8E:  JMP 0(A3)
  2028.  
  2029.  
  2030.  
  2031. STO8E:
  2032.  
  2033.       MOVE.B (A5)+,-(A2)
  2034.  
  2035.       MOVE.B (A5)+,-(A2)
  2036.  
  2037.       MOVE (A2)+,D2
  2038.  
  2039.       MOVE D5,-(SP)
  2040.  
  2041.       MOVE.B D6,D5
  2042.  
  2043.       JMP STO
  2044.  
  2045.  
  2046.  
  2047. OP90:
  2048.  
  2049.       MOVE.B (A5)+,D2
  2050.  
  2051.       BTST #4,D4
  2052.  
  2053.       BNE RT90
  2054.  
  2055.       EXT D2
  2056.  
  2057.       ADD D2,A5
  2058.  
  2059. RT90: MOVE.B (A5)+,L90-OP90+$9002(A3)
  2060.  
  2061. L90:  JMP 0(A3)
  2062.  
  2063.  
  2064.  
  2065. OP91:
  2066.  
  2067.       MOVE.B (A5)+,D3
  2068.  
  2069.       MOVE.B (A6,D3.L),-(A2)
  2070.  
  2071.       MOVE.B 1(A6,D3.L),-(A2)
  2072.  
  2073.       MOVE (A2)+,D2
  2074.  
  2075.       ADD D7,D2
  2076.  
  2077.       MOVE.B D5,(A6,D2.L)
  2078.  
  2079.       MOVE.B (A5)+,L91-OP91+$9102(A3)
  2080.  
  2081. L91:  JMP 0(A3)
  2082.  
  2083.  
  2084.  
  2085. STO91:
  2086.  
  2087.       MOVE.B (A5)+,D3
  2088.  
  2089.       MOVE.B (A6,D3.L),-(A2)
  2090.  
  2091.       MOVE.B 1(A6,D3.L),-(A2)
  2092.  
  2093.       MOVE (A2)+,D2
  2094.  
  2095.       ADD D7,D2
  2096.  
  2097.       JMP STOA
  2098.  
  2099.  
  2100.  
  2101. OP94:
  2102.  
  2103.       MOVE.B (A5)+,D3
  2104.  
  2105.       ADD.B D6,D3
  2106.  
  2107.       MOVE.B D7,(A6,D3.L)
  2108.  
  2109.       MOVE.B (A5)+,L94-OP94+$9402(A3)
  2110.  
  2111. L94:  JMP 0(A3)
  2112.  
  2113.  
  2114.  
  2115. OP95:
  2116.  
  2117.       MOVE.B (A5)+,D3
  2118.  
  2119.       ADD.B D6,D3
  2120.  
  2121.       MOVE.B D5,(A6,D3.L)
  2122.  
  2123.       MOVE.B (A5)+,L95-OP95+$9502(A3)
  2124.  
  2125. L95:  JMP 0(A3)
  2126.  
  2127.  
  2128.  
  2129. OP96:
  2130.  
  2131.       MOVE.B (A5)+,D3
  2132.  
  2133.       ADD.B D7,D3
  2134.  
  2135.       MOVE.B D6,(A6,D3.L)
  2136.  
  2137.       MOVE.B (A5)+,L96-OP96+$9602(A3)
  2138.  
  2139. L96:  JMP 0(A3)
  2140.  
  2141.  
  2142.  
  2143. OP98:
  2144.  
  2145.       MOVE D4,CCR
  2146.  
  2147.       MOVE.B D7,D5
  2148.  
  2149.       MOVE SR,D4
  2150.  
  2151.       MOVE.B (A5)+,L98-OP98+$9802(A3)
  2152.  
  2153. L98:  JMP 0(A3)
  2154.  
  2155.  
  2156.  
  2157. OP99:
  2158.  
  2159.       MOVE.B (A5)+,-(A2)
  2160.  
  2161.       MOVE.B (A5)+,-(A2)
  2162.  
  2163.       MOVE (A2)+,D2
  2164.  
  2165.       ADD D7,D2
  2166.  
  2167.       MOVE.B D5,(A6,D2.L)
  2168.  
  2169.       MOVE.B (A5)+,L99-OP99+$9902(A3)
  2170.  
  2171. L99:  JMP 0(A3)
  2172.  
  2173.  
  2174.  
  2175. STO99:
  2176.  
  2177.       MOVE.B (A5)+,-(A2)
  2178.  
  2179.       MOVE.B (A5)+,-(A2)
  2180.  
  2181.       MOVE (A2)+,D2
  2182.  
  2183.       ADD D7,D2
  2184.  
  2185.       JMP STOA
  2186.  
  2187.  
  2188.  
  2189. OP9A:
  2190.  
  2191.       LEA $0100(A6),A4
  2192.  
  2193.       ADD.L D6,A4
  2194.  
  2195.       MOVE.B (A5)+,L9A-OP9A+$9A02(A3)
  2196.  
  2197. L9A:  JMP 0(A3)
  2198.  
  2199.  
  2200.  
  2201. OP9D:
  2202.  
  2203.       MOVE.B (A5)+,-(A2)
  2204.  
  2205.       MOVE.B (A5)+,-(A2)
  2206.  
  2207.       MOVE (A2)+,D2
  2208.  
  2209.       ADD D6,D2
  2210.  
  2211.       MOVE.B D5,(A6,D2.L)
  2212.  
  2213.       MOVE.B (A5)+,L9D-OP9D+$9D02(A3)
  2214.  
  2215. L9D:  JMP 0(A3)
  2216.  
  2217.  
  2218.  
  2219. STO9D:
  2220.  
  2221.       MOVE.B (A5)+,-(A2)
  2222.  
  2223.       MOVE.B (A5)+,-(A2)
  2224.  
  2225.       MOVE (A2)+,D2
  2226.  
  2227.       ADD D6,D2
  2228.  
  2229.       JMP STOA
  2230.  
  2231.  
  2232.  
  2233. OPA0:
  2234.  
  2235.       MOVE D4,CCR
  2236.  
  2237.       MOVE.B (A5)+,D7
  2238.  
  2239.       MOVE SR,D4
  2240.  
  2241.       MOVE.B (A5)+,LA0-OPA0+$A002(A3)
  2242.  
  2243. LA0:  JMP 0(A3)
  2244.  
  2245.  
  2246.  
  2247. OPA1:
  2248.  
  2249.       MOVE.B (A5)+,D3
  2250.  
  2251.       ADD.B D6,D3
  2252.  
  2253.       MOVE.B (A6,D3.L),-(A2)
  2254.  
  2255.       MOVE.B 1(A6,D3.L),-(A2)
  2256.  
  2257.       MOVE (A2)+,D2
  2258.  
  2259.       MOVE D4,CCR
  2260.  
  2261.       MOVE.B (A6,D2.L),D5
  2262.  
  2263.       MOVE SR,D4
  2264.  
  2265.       MOVE.B (A5)+,LA1-OPA1+$A102(A3)
  2266.  
  2267. LA1:  JMP 0(A3)
  2268.  
  2269.  
  2270.  
  2271. OPA2:
  2272.  
  2273.       MOVE D4,CCR
  2274.  
  2275.       MOVE.B (A5)+,D6
  2276.  
  2277.       MOVE SR,D4
  2278.  
  2279.       MOVE.B (A5)+,LA2-OPA2+$A202(A3)
  2280.  
  2281. LA2:  JMP 0(A3)
  2282.  
  2283.  
  2284.  
  2285. OPA4:
  2286.  
  2287.       MOVE.B (A5)+,D3
  2288.  
  2289.       MOVE D4,CCR
  2290.  
  2291.       MOVE.B (A6,D3.L),D7
  2292.  
  2293.       MOVE SR,D4
  2294.  
  2295.       MOVE.B (A5)+,LA4-OPA4+$A402(A3)
  2296.  
  2297. LA4:  JMP 0(A3)
  2298.  
  2299.  
  2300.  
  2301. OPA5:
  2302.  
  2303.       MOVE.B (A5)+,D3
  2304.  
  2305.       MOVE D4,CCR
  2306.  
  2307.       MOVE.B (A6,D3.L),D5
  2308.  
  2309.       MOVE SR,D4
  2310.  
  2311.       MOVE.B (A5)+,LA5-OPA5+$A502(A3)
  2312.  
  2313. LA5:  JMP 0(A3)
  2314.  
  2315.  
  2316.  
  2317. OPA6:
  2318.  
  2319.       MOVE.B (A5)+,D3
  2320.  
  2321.       MOVE D4,CCR
  2322.  
  2323.       MOVE.B (A6,D3.L),D6
  2324.  
  2325.       MOVE SR,D4
  2326.  
  2327.       MOVE.B (A5)+,LA6-OPA6+$A602(A3)
  2328.  
  2329. LA6:  JMP 0(A3)
  2330.  
  2331.  
  2332.  
  2333. OPA8:
  2334.  
  2335.       MOVE D4,CCR
  2336.  
  2337.       MOVE.B D5,D7
  2338.  
  2339.       MOVE SR,D4
  2340.  
  2341.       MOVE.B (A5)+,LA8-OPA8+$A802(A3)
  2342.  
  2343. LA8:  JMP 0(A3)
  2344.  
  2345.  
  2346.  
  2347. OPA9:
  2348.  
  2349.       MOVE D4,CCR
  2350.  
  2351.       MOVE.B (A5)+,D5
  2352.  
  2353.       MOVE SR,D4
  2354.  
  2355.       MOVE.B (A5)+,LA9-OPA9+$A902(A3)
  2356.  
  2357. LA9:  JMP 0(A3)
  2358.  
  2359.  
  2360.  
  2361. OPAA:
  2362.  
  2363.       MOVE D4,CCR
  2364.  
  2365.       MOVE.B D5,D6
  2366.  
  2367.       MOVE SR,D4
  2368.  
  2369.       MOVE.B (A5)+,LAA-OPAA+$AA02(A3)
  2370.  
  2371. LAA:  JMP 0(A3)
  2372.  
  2373.  
  2374.  
  2375. OPAC:
  2376.  
  2377.       MOVE.B (A5)+,-(A2)
  2378.  
  2379.       MOVE.B (A5)+,-(A2)
  2380.  
  2381.       MOVE (A2)+,D2
  2382.  
  2383.       MOVE D4,CCR
  2384.  
  2385.       MOVE.B (A6,D2.L),D7
  2386.  
  2387.       MOVE SR,D4
  2388.  
  2389.       MOVE.B (A5)+,LAC-OPAC+$AC02(A3)
  2390.  
  2391. LAC:  JMP 0(A3)
  2392.  
  2393.  
  2394.  
  2395. OPAD:
  2396.  
  2397.       MOVE.B (A5)+,-(A2)
  2398.  
  2399.       MOVE.B (A5)+,-(A2)
  2400.  
  2401.       MOVE (A2)+,D2
  2402.  
  2403.       MOVE D4,CCR
  2404.  
  2405.       MOVE.B (A6,D2.L),D5
  2406.  
  2407.       MOVE SR,D4
  2408.  
  2409.       MOVE.B (A5)+,LAD-OPAD+$AD02(A3)
  2410.  
  2411. LAD:  JMP 0(A3)
  2412.  
  2413.  
  2414.  
  2415. OPAE:
  2416.  
  2417.       MOVE.B (A5)+,-(A2)
  2418.  
  2419.       MOVE.B (A5)+,-(A2)
  2420.  
  2421.       MOVE (A2)+,D2
  2422.  
  2423.       MOVE D4,CCR
  2424.  
  2425.       MOVE.B (A6,D2.L),D6
  2426.  
  2427.       MOVE SR,D4
  2428.  
  2429.       MOVE.B (A5)+,LAE-OPAE+$AE02(A3)
  2430.  
  2431. LAE:  JMP 0(A3)
  2432.  
  2433.  
  2434.  
  2435. OPB0:
  2436.  
  2437.       MOVE.B (A5)+,D2
  2438.  
  2439.       BTST #4,D4
  2440.  
  2441.       BEQ RTB0
  2442.  
  2443.       EXT D2
  2444.  
  2445.       ADD D2,A5
  2446.  
  2447. RTB0: MOVE.B (A5)+,LB0-OPB0+$B002(A3)
  2448.  
  2449. LB0:  JMP 0(A3)
  2450.  
  2451.  
  2452.  
  2453. OPB1:
  2454.  
  2455.       MOVE.B (A5)+,D3
  2456.  
  2457.       MOVE.B (A6,D3.L),-(A2)
  2458.  
  2459.       MOVE.B 1(A6,D3.L),-(A2)
  2460.  
  2461.       MOVE (A2)+,D2
  2462.  
  2463.       ADD D7,D2
  2464.  
  2465.       MOVE D4,CCR
  2466.  
  2467.       MOVE.B (A6,D2.L),D5
  2468.  
  2469.       MOVE SR,D4
  2470.  
  2471.       MOVE.B (A5)+,LB1-OPB1+$B102(A3)
  2472.  
  2473. LB1:  JMP 0(A3)
  2474.  
  2475.  
  2476.  
  2477. OPB4:
  2478.  
  2479.       MOVE.B (A5)+,D3
  2480.  
  2481.       ADD.B D6,D3
  2482.  
  2483.       MOVE D4,CCR
  2484.  
  2485.       MOVE.B (A6,D3.L),D7
  2486.  
  2487.       MOVE SR,D4
  2488.  
  2489.       MOVE.B (A5)+,LB4-OPB4+$B402(A3)
  2490.  
  2491. LB4:  JMP 0(A3)
  2492.  
  2493.  
  2494.  
  2495. OPB5:
  2496.  
  2497.       MOVE.B (A5)+,D3
  2498.  
  2499.       ADD.B D6,D3
  2500.  
  2501.       MOVE D4,CCR
  2502.  
  2503.       MOVE.B (A6,D3.L),D5
  2504.  
  2505.       MOVE SR,D4
  2506.  
  2507.       MOVE.B (A5)+,LB5-OPB5+$B502(A3)
  2508.  
  2509. LB5:  JMP 0(A3)
  2510.  
  2511.  
  2512.  
  2513. OPB6:
  2514.  
  2515.       MOVE.B (A5)+,D3
  2516.  
  2517.       ADD.B D7,D3
  2518.  
  2519.       MOVE D4,CCR
  2520.  
  2521.       MOVE.B (A6,D3.L),D6
  2522.  
  2523.       MOVE SR,D4
  2524.  
  2525.       MOVE.B (A5)+,LB6-OPB6+$B602(A3)
  2526.  
  2527. LB6:  JMP 0(A3)
  2528.  
  2529.  
  2530.  
  2531. OPB8:
  2532.  
  2533.       AND.B #$FD,D4
  2534.  
  2535.       MOVE.B (A5)+,LB8-OPB8+$B802(A3)
  2536.  
  2537. LB8:  JMP 0(A3)
  2538.  
  2539.  
  2540.  
  2541. OPB9:
  2542.  
  2543.       MOVE.B (A5)+,-(A2)
  2544.  
  2545.       MOVE.B (A5)+,-(A2)
  2546.  
  2547.       MOVE (A2)+,D2
  2548.  
  2549.       ADD D7,D2
  2550.  
  2551.       MOVE D4,CCR
  2552.  
  2553.       MOVE.B (A6,D2.L),D5
  2554.  
  2555.       MOVE SR,D4
  2556.  
  2557.       MOVE.B (A5)+,LB9-OPB9+$B902(A3)
  2558.  
  2559. LB9:  JMP 0(A3)
  2560.  
  2561.  
  2562.  
  2563. OPBA:
  2564.  
  2565.       MOVE.L A4,D6
  2566.  
  2567.       SUB.L #C64+$0100,D6
  2568.  
  2569.       MOVE D4,CCR
  2570.  
  2571.       TST.B D6
  2572.  
  2573.       MOVE SR,D4
  2574.  
  2575.       MOVE.B (A5)+,LBA-OPBA+$BA02(A3)
  2576.  
  2577. LBA:  JMP 0(A3)
  2578.  
  2579.  
  2580.  
  2581. OPBC:
  2582.  
  2583.       MOVE.B (A5)+,-(A2)
  2584.  
  2585.       MOVE.B (A5)+,-(A2)
  2586.  
  2587.       MOVE (A2)+,D2
  2588.  
  2589.       ADD D6,D2
  2590.  
  2591.       MOVE.B (A6,D2.L),D7
  2592.  
  2593.       MOVE.B (A5)+,LBC-OPBC+$BC02(A3)
  2594.  
  2595. LBC:  JMP 0(A3)
  2596.  
  2597.  
  2598.  
  2599. OPBD:
  2600.  
  2601.       MOVE.B (A5)+,-(A2)
  2602.  
  2603.       MOVE.B (A5)+,-(A2)
  2604.  
  2605.       MOVE (A2)+,D2
  2606.  
  2607.       ADD D6,D2
  2608.  
  2609.       MOVE D4,CCR
  2610.  
  2611.       MOVE.B (A6,D2.L),D5
  2612.  
  2613.       MOVE SR,D4
  2614.  
  2615.       MOVE.B (A5)+,LBD-OPBD+$BD02(A3)
  2616.  
  2617. LBD:  JMP 0(A3)
  2618.  
  2619.  
  2620.  
  2621. OPBE:
  2622.  
  2623.       MOVE.B (A5)+,-(A2)
  2624.  
  2625.       MOVE.B (A5)+,-(A2)
  2626.  
  2627.       MOVE (A2)+,D2
  2628.  
  2629.       ADD D7,D2
  2630.  
  2631.       MOVE D4,CCR
  2632.  
  2633.       MOVE.B (A6,D2.L),D6
  2634.  
  2635.       MOVE SR,D4
  2636.  
  2637.       MOVE.B (A5)+,LBE-OPBE+$BE02(A3)
  2638.  
  2639. LBE:  JMP 0(A3)
  2640.  
  2641.  
  2642.  
  2643. OPC0:
  2644.  
  2645.       MOVE D7,D3
  2646.  
  2647.       SUB.B (A5)+,D3
  2648.  
  2649.       MOVE SR,D4
  2650.  
  2651.       EOR D1,D4
  2652.  
  2653.       MOVE.B (A5)+,LC0-OPC0+$C002(A3)
  2654.  
  2655. LC0:  JMP 0(A3)
  2656.  
  2657.  
  2658.  
  2659. OPC1:
  2660.  
  2661.       MOVE.B (A5)+,D3
  2662.  
  2663.       ADD.B D6,D3
  2664.  
  2665.       MOVE.B (A6,D3.L),-(A2)
  2666.  
  2667.       MOVE.B 1(A6,D3.L),-(A2)
  2668.  
  2669.       MOVE (A2)+,D2
  2670.  
  2671.       MOVE D5,D3
  2672.  
  2673.       SUB.B (A6,D2.L),D3
  2674.  
  2675.       MOVE SR,D4
  2676.  
  2677.       EOR D1,D4
  2678.  
  2679.       MOVE.B (A5)+,LC1-OPC1+$C102(A3)
  2680.  
  2681. LC1:  JMP 0(A3)
  2682.  
  2683.  
  2684.  
  2685. OPC4:
  2686.  
  2687.       MOVE.B (A5)+,D3
  2688.  
  2689.       MOVE D7,D2
  2690.  
  2691.       SUB.B (A6,D3.L),D2
  2692.  
  2693.       MOVE SR,D4
  2694.  
  2695.       EOR D1,D4
  2696.  
  2697.       MOVE.B (A5)+,LC4-OPC4+$C402(A3)
  2698.  
  2699. LC4:  JMP 0(A3)
  2700.  
  2701.  
  2702.  
  2703. OPC5:
  2704.  
  2705.       MOVE.B (A5)+,D3
  2706.  
  2707.       MOVE D5,D2
  2708.  
  2709.       SUB.B (A6,D3.L),D2
  2710.  
  2711.       MOVE SR,D4
  2712.  
  2713.       EOR D1,D4
  2714.  
  2715.       MOVE.B (A5)+,LC5-OPC5+$C502(A3)
  2716.  
  2717. LC5:  JMP 0(A3)
  2718.  
  2719.  
  2720.  
  2721. OPC6:
  2722.  
  2723.       MOVE.B (A5)+,D3
  2724.  
  2725.       SUBQ.B #1,(A6,D3.L)
  2726.  
  2727.       MOVE D4,CCR
  2728.  
  2729.       TST.B (A6,D3.L)
  2730.  
  2731.       MOVE SR,D4
  2732.  
  2733.       MOVE.B (A5)+,LC6-OPC6+$C602(A3)
  2734.  
  2735. LC6:  JMP 0(A3)
  2736.  
  2737.  
  2738.  
  2739. OPC8:
  2740.  
  2741.       ADDQ.B #1,D7
  2742.  
  2743.       MOVE D4,CCR
  2744.  
  2745.       TST.B D7
  2746.  
  2747.       MOVE SR,D4
  2748.  
  2749.       MOVE.B (A5)+,LC8-OPC8+$C802(A3)
  2750.  
  2751. LC8:  JMP 0(A3)
  2752.  
  2753.  
  2754.  
  2755. OPC9:
  2756.  
  2757.       MOVE D5,D3
  2758.  
  2759.       SUB.B (A5)+,D3
  2760.  
  2761.       MOVE SR,D4
  2762.  
  2763.       EOR D1,D4
  2764.  
  2765.       MOVE.B (A5)+,LC9-OPC9+$C902(A3)
  2766.  
  2767. LC9:  JMP 0(A3)
  2768.  
  2769.  
  2770.  
  2771. OPCA:
  2772.  
  2773.       SUBQ.B #1,D6
  2774.  
  2775.       MOVE D4,CCR
  2776.  
  2777.       TST.B D6
  2778.  
  2779.       MOVE SR,D4
  2780.  
  2781.       MOVE.B (A5)+,LCA-OPCA+$CA02(A3)
  2782.  
  2783. LCA:  JMP 0(A3)
  2784.  
  2785.  
  2786.  
  2787. OPCC:
  2788.  
  2789.       MOVE.B (A5)+,-(A2)
  2790.  
  2791.       MOVE.B (A5)+,-(A2)
  2792.  
  2793.       MOVE (A2)+,D2
  2794.  
  2795.       MOVE D7,D3
  2796.  
  2797.       SUB.B (A6,D2.L),D3
  2798.  
  2799.       MOVE SR,D4
  2800.  
  2801.       EOR D1,D4
  2802.  
  2803.       MOVE.B (A5)+,LCC-OPCC+$CC02(A3)
  2804.  
  2805. LCC:  JMP 0(A3)
  2806.  
  2807.  
  2808.  
  2809. OPCD:
  2810.  
  2811.       MOVE.B (A5)+,-(A2)
  2812.  
  2813.       MOVE.B (A5)+,-(A2)
  2814.  
  2815.       MOVE (A2)+,D2
  2816.  
  2817.       MOVE D5,D3
  2818.  
  2819.       SUB.B (A6,D2.L),D3
  2820.  
  2821.       MOVE SR,D4
  2822.  
  2823.       EOR D1,D4
  2824.  
  2825.       MOVE.B (A5)+,LCD-OPCD+$CD02(A3)
  2826.  
  2827. LCD:  JMP 0(A3)
  2828.  
  2829.  
  2830.  
  2831. OPCE:
  2832.  
  2833.       MOVE.B (A5)+,-(A2)
  2834.  
  2835.       MOVE.B (A5)+,-(A2)
  2836.  
  2837.       MOVE (A2)+,D2
  2838.  
  2839.       SUBQ.B #1,(A6,D2.L)
  2840.  
  2841.       MOVE D4,CCR
  2842.  
  2843.       TST.B (A6,D2.L)
  2844.  
  2845.       MOVE SR,D4
  2846.  
  2847.       MOVE.B (A5)+,LCE-OPCE+$CE02(A3)
  2848.  
  2849. LCE:  JMP 0(A3)
  2850.  
  2851.  
  2852.  
  2853. OPD0:
  2854.  
  2855.       MOVE.B (A5)+,D2
  2856.  
  2857.       BTST #2,D4
  2858.  
  2859.       BNE RTD0
  2860.  
  2861.       EXT D2
  2862.  
  2863.       ADD D2,A5
  2864.  
  2865. RTD0: MOVE.B (A5)+,LD0-OPD0+$D002(A3)
  2866.  
  2867. LD0:  JMP 0(A3)
  2868.  
  2869.  
  2870.  
  2871. OPD1:
  2872.  
  2873.       MOVE.B (A5)+,D3
  2874.  
  2875.       MOVE.B (A6,D3.L),-(A2)
  2876.  
  2877.       MOVE.B 1(A6,D3.L),-(A2)
  2878.  
  2879.       MOVE (A2)+,D2
  2880.  
  2881.       ADD D7,D2
  2882.  
  2883.       MOVE D5,D3
  2884.  
  2885.       SUB.B (A6,D2.L),D3
  2886.  
  2887.       MOVE SR,D4
  2888.  
  2889.       EOR D1,D4
  2890.  
  2891.       MOVE.B (A5)+,LD1-OPD1+$D102(A3)
  2892.  
  2893. LD1:  JMP 0(A3)
  2894.  
  2895.  
  2896.  
  2897. OPD5:
  2898.  
  2899.       MOVE.B (A5)+,D3
  2900.  
  2901.       ADD.B D6,D3
  2902.  
  2903.       MOVE D5,D2
  2904.  
  2905.       SUB.B (A6,D3.L),D2
  2906.  
  2907.       MOVE SR,D4
  2908.  
  2909.       EOR D1,D4
  2910.  
  2911.       MOVE.B (A5)+,LD5-OPD5+$D502(A3)
  2912.  
  2913. LD5:  JMP 0(A3)
  2914.  
  2915.  
  2916.  
  2917. OPD6:
  2918.  
  2919.       MOVE.B (A5)+,D3
  2920.  
  2921.       ADD.B D6,D3
  2922.  
  2923.       SUBQ.B #1,(A6,D3.L)
  2924.  
  2925.       MOVE D4,CCR
  2926.  
  2927.       TST.B (A6,D3.L)
  2928.  
  2929.       MOVE SR,D4
  2930.  
  2931.       MOVE.B (A5)+,LD6-OPD6+$D602(A3)
  2932.  
  2933. LD6:  JMP 0(A3)
  2934.  
  2935.  
  2936.  
  2937. OPD8:
  2938.  
  2939.       BCLR D1,D4
  2940.  
  2941.       MOVE.B (A5)+,LD8-OPD8+$D802(A3)
  2942.  
  2943. LD8:  JMP 0(A3)
  2944.  
  2945.  
  2946.  
  2947. OPD9:
  2948.  
  2949.       MOVE.B (A5)+,-(A2)
  2950.  
  2951.       MOVE.B (A5)+,-(A2)
  2952.  
  2953.       MOVE (A2)+,D2
  2954.  
  2955.       ADD D7,D2
  2956.  
  2957.       MOVE D5,D3
  2958.  
  2959.       SUB.B (A6,D2.L),D3
  2960.  
  2961.       MOVE SR,D4
  2962.  
  2963.       EOR D1,D4
  2964.  
  2965.       MOVE.B (A5)+,LD9-OPD9+$D902(A3)
  2966.  
  2967. LD9:  JMP 0(A3)
  2968.  
  2969.  
  2970.  
  2971. OPDD:
  2972.  
  2973.       MOVE.B (A5)+,-(A2)
  2974.  
  2975.       MOVE.B (A5)+,-(A2)
  2976.  
  2977.       MOVE (A2)+,D2
  2978.  
  2979.       ADD D6,D2
  2980.  
  2981.       MOVE D5,D3
  2982.  
  2983.       SUB.B (A6,D2.L),D3
  2984.  
  2985.       MOVE SR,D4
  2986.  
  2987.       EOR D1,D4
  2988.  
  2989.       MOVE.B (A5)+,LDD-OPDD+$DD02(A3)
  2990.  
  2991. LDD:  JMP 0(A3)
  2992.  
  2993.  
  2994.  
  2995. OPDE:
  2996.  
  2997.       MOVE.B (A5)+,-(A2)
  2998.  
  2999.       MOVE.B (A5)+,-(A2)
  3000.  
  3001.       MOVE (A2)+,D2
  3002.  
  3003.       ADD D6,D2
  3004.  
  3005.       SUBQ.B #1,(A6,D2.L)
  3006.  
  3007.       MOVE D4,CCR
  3008.  
  3009.       TST.B (A6,D2.L)
  3010.  
  3011.       MOVE SR,D4
  3012.  
  3013.       MOVE.B (A5)+,LDE-OPDE+$DE02(A3)
  3014.  
  3015. LDE:  JMP 0(A3)
  3016.  
  3017.  
  3018.  
  3019. OPE0:
  3020.  
  3021.       MOVE D6,D3
  3022.  
  3023.       SUB.B (A5)+,D3
  3024.  
  3025.       MOVE SR,D4
  3026.  
  3027.       EOR D1,D4
  3028.  
  3029.       MOVE.B (A5)+,LE0-OPE0+$E002(A3)
  3030.  
  3031. LE0:  JMP 0(A3)
  3032.  
  3033.  
  3034.  
  3035. OPE1:
  3036.  
  3037.       MOVE.B (A5)+,D3
  3038.  
  3039.       ADD.B D6,D3
  3040.  
  3041.       MOVE.B (A6,D3.L),-(A2)
  3042.  
  3043.       MOVE.B 1(A6,D3.L),-(A2)
  3044.  
  3045.       MOVE (A2)+,D2
  3046.  
  3047.       MOVE.B (A6,D2.L),D3
  3048.  
  3049.       EOR D1,D4
  3050.  
  3051.       MOVE D4,CCR
  3052.  
  3053.       BTST D1,D4
  3054.  
  3055.       BNE DCE1
  3056.  
  3057.       SUBX.B D3,D5
  3058.  
  3059.       MOVE SR,D4
  3060.  
  3061.       EOR D1,D4
  3062.  
  3063.       MOVE.B (A5)+,LE1-OPE1+$E102(A3)
  3064.  
  3065. LE1:  JMP 0(A3)
  3066.  
  3067. DCE1: OR #$04,CCR
  3068.  
  3069.       SBCD D3,D5
  3070.  
  3071.       MOVE SR,D4
  3072.  
  3073.       EOR D1,D4
  3074.  
  3075.       MOVE.B (A5)+,DE1-OPE1+$E102(A3)
  3076.  
  3077. DE1:  JMP 0(A3)
  3078.  
  3079.  
  3080.  
  3081. OPE4:
  3082.  
  3083.       MOVE.B (A5)+,D3
  3084.  
  3085.       MOVE D6,D2
  3086.  
  3087.       SUB.B (A6,D3.L),D2
  3088.  
  3089.       MOVE SR,D4
  3090.  
  3091.       EOR D1,D4
  3092.  
  3093.       MOVE.B (A5)+,LE4-OPE4+$E402(A3)
  3094.  
  3095. LE4:  JMP 0(A3)
  3096.  
  3097.  
  3098.  
  3099. OPE5:
  3100.  
  3101.       MOVE.B (A5)+,D3
  3102.  
  3103.       MOVE.B (A6,D3.L),D3
  3104.  
  3105.       EOR D1,D4
  3106.  
  3107.       MOVE D4,CCR
  3108.  
  3109.       BTST D1,D4
  3110.  
  3111.       BNE DCE5
  3112.  
  3113.       SUBX.B D3,D5
  3114.  
  3115.       MOVE SR,D4
  3116.  
  3117.       EOR D1,D4
  3118.  
  3119.       MOVE.B (A5)+,LE5-OPE5+$E502(A3)
  3120.  
  3121. LE5:  JMP 0(A3)
  3122.  
  3123. DCE5: OR #$04,CCR
  3124.  
  3125.       SBCD D3,D5
  3126.  
  3127.       MOVE SR,D4
  3128.  
  3129.       EOR D1,D4
  3130.  
  3131.       MOVE.B (A5)+,DE5-OPE5+$E502(A3)
  3132.  
  3133. DE5:  JMP 0(A3)
  3134.  
  3135.  
  3136.  
  3137. OPE6:
  3138.  
  3139.       MOVE.B (A5)+,D3
  3140.  
  3141.       ADDQ.B #1,(A6,D3.L)
  3142.  
  3143.       MOVE D4,CCR
  3144.  
  3145.       TST.B (A6,D3.L)
  3146.  
  3147.       MOVE SR,D4
  3148.  
  3149.       MOVE.B (A5)+,LE6-OPE6+$E602(A3)
  3150.  
  3151. LE6:  JMP 0(A3)
  3152.  
  3153.  
  3154.  
  3155. OPE8:
  3156.  
  3157.       ADDQ.B #1,D6
  3158.  
  3159.       MOVE D4,CCR
  3160.  
  3161.       TST.B D6
  3162.  
  3163.       MOVE SR,D4
  3164.  
  3165.       MOVE.B (A5)+,LE8-OPE8+$E802(A3)
  3166.  
  3167. LE8:  JMP 0(A3)
  3168.  
  3169.  
  3170.  
  3171. OPE9:
  3172.  
  3173.       MOVE.B (A5)+,D3
  3174.  
  3175.       EOR D1,D4
  3176.  
  3177.       MOVE D4,CCR
  3178.  
  3179.       BTST D1,D4
  3180.  
  3181.       BNE DCE9
  3182.  
  3183.       SUBX.B D3,D5
  3184.  
  3185.       MOVE SR,D4
  3186.  
  3187.       EOR D1,D4
  3188.  
  3189.       MOVE.B (A5)+,LE9-OPE9+$E902(A3)
  3190.  
  3191. LE9:  JMP 0(A3)
  3192.  
  3193. DCE9: OR #$04,CCR
  3194.  
  3195.       SBCD D3,D5
  3196.  
  3197.       MOVE SR,D4
  3198.  
  3199.       EOR D1,D4
  3200.  
  3201.       MOVE.B (A5)+,DE9-OPE9+$E902(A3)
  3202.  
  3203. DE9:  JMP 0(A3)
  3204.  
  3205.  
  3206.  
  3207. OPEA:
  3208.  
  3209.       MOVE.B (A5)+,LEA-OPEA+$EA02(A3)
  3210.  
  3211. LEA:  JMP 0(A3)
  3212.  
  3213.  
  3214.  
  3215. OPEC:
  3216.  
  3217.       MOVE.B (A5)+,-(A2)
  3218.  
  3219.       MOVE.B (A5)+,-(A2)
  3220.  
  3221.       MOVE (A2)+,D2
  3222.  
  3223.       MOVE D6,D3
  3224.  
  3225.       SUB.B (A6,D2.L),D3
  3226.  
  3227.       MOVE SR,D4
  3228.  
  3229.       EOR D1,D4
  3230.  
  3231.       MOVE.B (A5)+,LEC-OPEC+$EC02(A3)
  3232.  
  3233. LEC:  JMP 0(A3)
  3234.  
  3235.  
  3236.  
  3237. OPED:
  3238.  
  3239.       MOVE.B (A5)+,-(A2)
  3240.  
  3241.       MOVE.B (A5)+,-(A2)
  3242.  
  3243.       MOVE (A2)+,D2
  3244.  
  3245.       MOVE.B (A6,D2.L),D3
  3246.  
  3247.       EOR D1,D4
  3248.  
  3249.       MOVE D4,CCR
  3250.  
  3251.       BTST D1,D4
  3252.  
  3253.       BNE DCED
  3254.  
  3255. NDCSB:SUBX.B D3,D5
  3256.  
  3257.       MOVE SR,D4
  3258.  
  3259.       EOR D1,D4
  3260.  
  3261.       MOVE.B (A5)+,LED-OPED+$ED02(A3)
  3262.  
  3263. LED:  JMP 0(A3)
  3264.  
  3265. DCED: OR #$04,CCR
  3266.  
  3267.       SBCD D3,D5
  3268.  
  3269.       MOVE SR,D4
  3270.  
  3271.       EOR D1,D4
  3272.  
  3273.       MOVE.B (A5)+,DED-OPED+$ED02(A3)
  3274.  
  3275. DED:  JMP 0(A3)
  3276.  
  3277.  
  3278.  
  3279. OPEE:
  3280.  
  3281.       MOVE.B (A5)+,-(A2)
  3282.  
  3283.       MOVE.B (A5)+,-(A2)
  3284.  
  3285.       MOVE (A2)+,D2
  3286.  
  3287.       ADDQ.B #1,(A6,D2.L)
  3288.  
  3289.       MOVE D4,CCR
  3290.  
  3291.       TST.B (A6,D2.L)
  3292.  
  3293.       MOVE SR,D4
  3294.  
  3295.       MOVE.B (A5)+,LEE-OPEE+$EE02(A3)
  3296.  
  3297. LEE:  JMP 0(A3)
  3298.  
  3299.  
  3300.  
  3301. OPF0:
  3302.  
  3303.       MOVE.B (A5)+,D2
  3304.  
  3305.       BTST #2,D4
  3306.  
  3307.       BEQ RTF0
  3308.  
  3309.       EXT D2
  3310.  
  3311.       ADD D2,A5
  3312.  
  3313. RTF0: MOVE.B (A5)+,LF0-OPF0+$F002(A3)
  3314.  
  3315. LF0:  JMP 0(A3)
  3316.  
  3317.  
  3318.  
  3319. OPF1:
  3320.  
  3321.       MOVE.B (A5)+,D3
  3322.  
  3323.       MOVE.B (A6,D3.L),-(A2)
  3324.  
  3325.       MOVE.B 1(A6,D3.L),-(A2)
  3326.  
  3327.       MOVE (A2)+,D2
  3328.  
  3329.       ADD D7,D2
  3330.  
  3331.       MOVE.B (A6,D2.L),D3
  3332.  
  3333.       EOR D1,D4
  3334.  
  3335.       MOVE D4,CCR
  3336.  
  3337.       BTST D1,D4
  3338.  
  3339.       BNE DCF1
  3340.  
  3341.       SUBX.B D3,D5
  3342.  
  3343.       MOVE SR,D4
  3344.  
  3345.       EOR D1,D4
  3346.  
  3347.       MOVE.B (A5)+,LF1-OPF1+$F102(A3)
  3348.  
  3349. LF1:  JMP 0(A3)
  3350.  
  3351. DCF1: OR #$04,CCR
  3352.  
  3353.       SBCD D3,D5
  3354.  
  3355.       MOVE SR,D4
  3356.  
  3357.       EOR D1,D4
  3358.  
  3359.       MOVE.B (A5)+,DF1-OPF1+$F102(A3)
  3360.  
  3361. DF1:  JMP 0(A3)
  3362.  
  3363.  
  3364.  
  3365. OPF5:
  3366.  
  3367.       MOVE.B (A5)+,D3
  3368.  
  3369.       ADD.B D6,D3
  3370.  
  3371.       MOVE.B (A6,D3.L),D3
  3372.  
  3373.       EOR D1,D4
  3374.  
  3375.       MOVE D4,CCR
  3376.  
  3377.       BTST D1,D4
  3378.  
  3379.       BNE DCF5
  3380.  
  3381.       SUBX.B D3,D5
  3382.  
  3383.       MOVE SR,D4
  3384.  
  3385.       EOR D1,D4
  3386.  
  3387.       MOVE.B (A5)+,LF5-OPF5+$F502(A3)
  3388.  
  3389. LF5:  JMP 0(A3)
  3390.  
  3391. DCF5: OR #$04,CCR
  3392.  
  3393.       SBCD D3,D5
  3394.  
  3395.       MOVE SR,D4
  3396.  
  3397.       EOR D1,D4
  3398.  
  3399.       MOVE.B (A5)+,DF5-OPF5+$F502(A3)
  3400.  
  3401. DF5:  JMP 0(A3)
  3402.  
  3403.  
  3404.  
  3405. OPF6:
  3406.  
  3407.       MOVE.B (A5)+,D3
  3408.  
  3409.       ADD.B D6,D3
  3410.  
  3411.       ADDQ.B #1,(A6,D3.L)
  3412.  
  3413.       MOVE D4,CCR
  3414.  
  3415.       TST.B (A6,D3.L)
  3416.  
  3417.       MOVE SR,D4
  3418.  
  3419.       MOVE.B (A5)+,LF6-OPF6+$F602(A3)
  3420.  
  3421. LF6:  JMP 0(A3)
  3422.  
  3423.  
  3424.  
  3425. OPF8:
  3426.  
  3427.       BSET D1,D4
  3428.  
  3429.       MOVE.B (A5)+,LF8-OPF8+$F802(A3)
  3430.  
  3431. LF8:  JMP 0(A3)
  3432.  
  3433.  
  3434.  
  3435. OPF9:
  3436.  
  3437.       MOVE.B (A5)+,-(A2)
  3438.  
  3439.       MOVE.B (A5)+,-(A2)
  3440.  
  3441.       MOVE (A2)+,D2
  3442.  
  3443.       ADD D7,D2
  3444.  
  3445.       MOVE.B (A6,D2.L),D3
  3446.  
  3447.       EOR D1,D4
  3448.  
  3449.       MOVE D4,CCR
  3450.  
  3451.       BTST D1,D4
  3452.  
  3453.       BNE DCF9
  3454.  
  3455.       SUBX.B D3,D5
  3456.  
  3457.       MOVE SR,D4
  3458.  
  3459.       EOR D1,D4
  3460.  
  3461.       MOVE.B (A5)+,LF9-OPF9+$F902(A3)
  3462.  
  3463. LF9:  JMP 0(A3)
  3464.  
  3465. DCF9: OR #$04,CCR
  3466.  
  3467.       SBCD D3,D5
  3468.  
  3469.       MOVE SR,D4
  3470.  
  3471.       EOR D1,D4
  3472.  
  3473.       MOVE.B (A5)+,DF9-OPF9+$F902(A3)
  3474.  
  3475. DF9:  JMP 0(A3)
  3476.  
  3477.  
  3478.  
  3479. OPFD:
  3480.  
  3481.       MOVE.B (A5)+,-(A2)
  3482.  
  3483.       MOVE.B (A5)+,-(A2)
  3484.  
  3485.       MOVE (A2)+,D2
  3486.  
  3487.       ADD D6,D2
  3488.  
  3489.       MOVE.B (A6,D2.L),D3
  3490.  
  3491.       EOR D1,D4
  3492.  
  3493.       MOVE D4,CCR
  3494.  
  3495.       BTST D1,D4
  3496.  
  3497.       BNE DCFD
  3498.  
  3499.       SUBX.B D3,D5
  3500.  
  3501.       MOVE SR,D4
  3502.  
  3503.       EOR D1,D4
  3504.  
  3505.       MOVE.B (A5)+,LFD-OPFD+$FD02(A3)
  3506.  
  3507. LFD:  JMP 0(A3)
  3508.  
  3509. DCFD: OR #$04,CCR
  3510.  
  3511.       SBCD D3,D5
  3512.  
  3513.       MOVE SR,D4
  3514.  
  3515.       EOR D1,D4
  3516.  
  3517.       MOVE.B (A5)+,DFD-OPFD+$FD02(A3)
  3518.  
  3519. DFD:  JMP 0(A3)
  3520.  
  3521.  
  3522.  
  3523. OPFE:
  3524.  
  3525.       MOVE.B (A5)+,-(A2)
  3526.  
  3527.       MOVE.B (A5)+,-(A2)
  3528.  
  3529.       MOVE (A2)+,D2
  3530.  
  3531.       ADD D6,D2
  3532.  
  3533.       ADDQ.B #1,(A6,D2.L)
  3534.  
  3535.       MOVE D4,CCR
  3536.  
  3537.       TST.B (A6,D2.L)
  3538.  
  3539.       MOVE SR,D4
  3540.  
  3541.       MOVE.B (A5)+,LFE-OPFE+$FE02(A3)
  3542.  
  3543. LFE:  JMP 0(A3)
  3544.  
  3545.  
  3546.  
  3547.  
  3548.  
  3549. SWLO:
  3550.  
  3551.         MOVEM.L A0-A3/D0-D3,-(SP)
  3552.  
  3553.         MOVE.L OPAGE,A0
  3554.  
  3555.         LEA SAVNR+6,A1
  3556.  
  3557.         LEA SAV81,A2
  3558.  
  3559.         LEA OP,A3
  3560.  
  3561.         MOVEQ #6,D3
  3562.  
  3563. SWLO2:  MOVE (A2),D0
  3564.  
  3565.         MOVE 2(A2),(A2)+
  3566.  
  3567.         MOVE D0,(A2)+
  3568.  
  3569.         MOVE (A1)+,D1
  3570.  
  3571.         MOVEQ #16,D2
  3572.  
  3573. SWLO1:  MOVE.L (A3,D0),(A0,D1)
  3574.  
  3575.         ADDQ #4,D0
  3576.  
  3577.         ADDQ #4,D1
  3578.  
  3579.         DBF D2,SWLO1
  3580.  
  3581.         DBF D3,SWLO2
  3582.  
  3583.         MOVEM.L (SP)+,A0-A3/D0-D3
  3584.  
  3585.         RTS
  3586.  
  3587.  
  3588.  
  3589. SWHI:
  3590.  
  3591.         MOVEM.L A0-A3/D0-D3,-(SP)
  3592.  
  3593.         MOVE.L OPAGE,A0
  3594.  
  3595.         LEA SAVNR,A1
  3596.  
  3597.         LEA SAV11,A2
  3598.  
  3599.         LEA OP,A3
  3600.  
  3601.         MOVEQ #2,D3
  3602.  
  3603. SWHI2:  MOVE (A2),D0
  3604.  
  3605.         MOVE 2(A2),(A2)+
  3606.  
  3607.         MOVE D0,(A2)+
  3608.  
  3609.         MOVE (A1)+,D1
  3610.  
  3611.         MOVEQ #16,D2
  3612.  
  3613. SWHI1:  MOVE.L (A3,D0),(A0,D1)
  3614.  
  3615.         ADDQ #4,D0
  3616.  
  3617.         ADDQ #4,D1
  3618.  
  3619.         DBF D2,SWHI1
  3620.  
  3621.         DBF D3,SWHI2
  3622.  
  3623.         MOVEM.L (SP)+,A0-A3/D0-D3
  3624.  
  3625.         RTS
  3626.  
  3627.  
  3628.  
  3629.  
  3630.  
  3631. SAV11:  DC OP11-OP,ORA11-OP
  3632.  
  3633. SAV31:  DC OP31-OP,AND31-OP
  3634.  
  3635. SAV51:  DC OP51-OP,EOR51-OP
  3636.  
  3637. SAV81:  DC OP81-OP,STO81-OP
  3638.  
  3639. SAV8D:  DC OP8D-OP,STO8D-OP
  3640.  
  3641. SAV91:  DC OP91-OP,STO91-OP
  3642.  
  3643. SAV99:  DC OP99-OP,STO99-OP
  3644.  
  3645. SAV9D:  DC OP9D-OP,STO9D-OP
  3646.  
  3647. SAV8E:  DC OP8E-OP,STO8E-OP
  3648.  
  3649. SAV8C:  DC OP8C-OP,STO8C-OP
  3650.  
  3651.  
  3652.  
  3653. SAVNR:  DC $1100,$3100,$5100,$8100,$8D00,$9100,$9900,$9D00,$8E00,$8C00
  3654.  
  3655.  
  3656.  
  3657.  
  3658.  
  3659.       BSS
  3660.  
  3661.  
  3662.  
  3663.       DS.B 2
  3664.  
  3665. AREA: DS.B 1
  3666.  
  3667.  
  3668.  
  3669.       EVEN
  3670.  
  3671.  
  3672.  
  3673. OPS:  DS.B 65536
  3674.  
  3675.  
  3676.  
  3677. C64:  DS.B 65536
  3678.  
  3679.