6301 Cross-Assembler V2.1-A   LOG2.MIC       03.01.1991    12:33:50    Page: 1
2.6. Logarithmus/antilogarithmus zur Basis 2


LINE#  LOC    CODE                              SOURCE


   1  2000                       .list
   2  2000                       .file
   3  2000                       .title  2.6. Logarithmus/antilogarithmus zur Basis 2
   4  2000               
   5  2000   C6 4D       start   ldab    #77
   6  2002   8D 0D               bsr     log2            ; LD(77) berechnen
   7  2004   18                  xgdx
   8  2005   3C                  pshx                    ; Ergebnis im Stack retten
   9  2006   C6 03               ldab    #3
  10  2008   8D 07               bsr     log2            ; LD(3) berechnen
  11  200A   30                  tsx
  12  200B   E3 00               addd    ,x              ; LD(3) + LD(77)
  13  200D   38                  pulx                    ; Stack s„ubern
  14  200E   8D 08               bsr     alog2           ; Anti-Logarithmus bilden
  15  2010   3F                  swi                     ; Programmende
  16  2011               
  17  2011               ;*************************************
  18  2011               ;  LOG2 zerst”rt F,A,B / A,B = LD(B)
  19  2011               ;*************************************
  20  2011               
  21  2011   86 08       log2    ldaa    #8              ; maximale Vorzahl fr 8 Bit
  22  2013   4A          1$      deca                    ; Vorzahl vermindern
  23  2014   58                  aslb                    ; Mantisse schieben
  24  2015   24 FC               bcc     1$
  25  2017   39                  rts
  26  2018               
  27  2018               ;*************************************
  28  2018               ;  ALOG2 zerst”rt F,A,B / D = 2^(A,B)
  29  2018               ;*************************************
  30  2018               
  31  2018   80 08       alog2   suba    #8              ; gr”žte Vorzahl kann 7 sein!
  32  201A   0D                  sec
  33  201B   56                  rorb                    ; h”chstes Bit immer setzen
  34  201C   4C          1$      inca                    ; Vorzahl = 0 ?
  35  201D   27 03               beq     2$
  36  201F   54                  lsrb                    ; Mantisse schieben
  37  2020   20 FA               bra     1$
  38  2022               
  39  2022   39          2$      rts
  40  2023               
  41  2023                       .end

Assembly successful, no errors detected.
Output-filename I:\TPACKER\LOG2.HX2
Elapsed time: 1.2 sec.