         org   $1000
         clv
         cld
         cli
         clc
         lda   #$80
         lda   #$01
         sed
         sei
         sec
         lda   #$ff
         adc   #$00
         lda   #$00
         pha
         plp
         clv
         bvc   L101A

         dfb   $70
         dfb   $02
         dfb   $00
         dfb   $00

L101A    clc
         bcc   :L101F

         dfb   $00
         dfb   $00

:L101F   sec
         bcs   :L1024

         dfb   $00
         dfb   $00

:L1024   lda   #$01
         bne   :L102A

         dfb   $00
         dfb   $db

:L102A   lda   #$00
         beq   :L1030

         dfb   $00
         dfb   $db

:L1030   bpl   :L1034

         dfb   $00
         dfb   $db

:L1034   lda   #$80
         bmi   :L103A

         dfb   $00
         dfb   $db

:L103A   lda   #$ff
         and   #$00
         beq   :L1042

         dfb   $00
         dfb   $db

:L1042   lda   #$00
         ldx   #$80
         and   #$ff
         beq   :L104C
         bne   :L104C

:L104C   lda   #$ff
         ldx   #$00
         and   #$7f
         beq   :L1056
         bne   :L1056

:L1056   bpl   :L105A

         dfb   $00
         dfb   $db

:L105A   lda   #$ff
         and   #$80
         bpl   :L1064
         bmi   :L1064

         dfb   $00
         dfb   $db

:L1064   lda   #$00
         ldx   #$80
         bne   :L106C

         dfb   $00
         dfb   $db

:L106C   ora   #$00
         beq   :L1072
         bne   :L1072

:L1072   ora   #$01
         bne   :L1078

         dfb   $00
         dfb   $db

:L1078   lda   #$00
         ldx   #$80
         bmi   :L1080

         dfb   $00
         dfb   $db

:L1080   ora   #$7f
         bpl   :L1088
         bmi   :L1088

         dfb   $00
         dfb   $db

:L1088   ora   #$80
         bmi   :L108E

         dfb   $00
         dfb   $db

:L108E   lda   :L108E
         sec
         ror   A
         bmi   :L1097

         dfb   $00
         dfb   $dc

:L1097   clc
         ror   A
         bpl   :L109D

         dfb   $00
         dfb   $dc

:L109D   lda   #$00
         sec
         rol   A
         bne   :L10A5

         dfb   $00
         dfb   $dc

:L10A5   lda   #$ff
         lsr   A
         bpl   :L10AC

         dfb   $00
         dfb   $dd

:L10AC   clc
         php
         sec
         plp
         bcc   :L10B3
         nop
:L10B3   sec
         bcs   :L10B7

:L10B6   clc
:L10B7   lda   $33
         beq   :L10B6
         bcs   :L10BF
         lda   $44
:L10BF   nop
         rts

