Код:

$regfile = "8H1K08.DAT"
$crystal = 35000000
$ramsize = 1024
$map
$large

Dim Log_in As Single
Dim Log_out As Integer

Log_in = 0.0005
Do
   Gosub L10
   Print "in=" ; Log_in ; " out=" ; Log_out
   Log_in = Log_in * 1.25
Loop

L10:

   $asm
      lcall log10_unpack
      jc log10_set_zero
      lcall log10_calc_full_opt
      lcall log10_write_long
      ret
   Log10_set_zero:
      mov {Log_out+0}, #0
      mov {Log_out+1}, #0
      ret
   Log10_unpack:
      mov a, {Log_in+3}
      jb acc.7, log10_unpack_err
      mov r4, a
      mov a, {Log_in+2}
      mov r6, a
      rlc a
      mov a, r4
      rlc a
      jz log10_unpack_err
      clr c
      subb a, #127
      mov r5, a
      mov a, r6
      anl a, #127
      mov r3, a
      mov a, {Log_in+1}
      mov r2, a
      clr c
      ret
   Log10_unpack_err:
      setb c
      ret
   Log10_calc_full_opt:
      mov dptr, #log10_tab
      mov a, r3
      rl a
      add a, dpl
      mov dpl, a
      mov a, dph
      addc a, #0
      mov dph, a
      clr a
      movc a, @a+dptr
      mov r4, a
      inc dptr
      clr a
      movc a, @a+dptr
      mov r6, a
      inc dptr
      clr a
      movc a, @a+dptr
      mov r7, a
      inc dptr
      clr a
      movc a, @a+dptr
      mov r0, a
      clr c
      mov a, r7
      subb a, r4
      mov r7, a
      mov a, r0
      subb a, r6
      mov r0, a
      mov a, r2
      mov b, r7
      mul ab
      mov a, r2
      mov b, r7
      mul ab
      jnb acc.7, log10_noround
      inc b
   Log10_noround:
      mov r1, b
      mov a, r4
      add a, r1
      mov r4, a
      mov a, r6
      addc a, #0
      mov r6, a
      mov a, r5
      jnb acc.7, log10_pos_exp
      push r4
      push r6
      cpl a
      inc a
      mov b, #194
      mul ab
      mov r1, a
      mov a, b
      mov r2, #0
      xch a, r0
      mov a, r5
      cpl a
      inc a
      mov b, #11
      mul ab
      add a, r0
      mov r2, a
      mov a, r5
      cpl a
      inc a
      mov b, #3
      div ab
      mov r0, a
      clr c
      mov a, r1
      subb a, r0
      mov r1, a
      mov a, r2
      subb a, #0
      mov r2, a
      clr c
      mov a, r1
      cpl a
      add a, #1
      mov r1, a
      mov a, r2
      cpl a
      addc a, #0
      mov r2, a
      pop r6
      pop r4
      sjmp log10_sum
   Log10_pos_exp:
      mov b, #194
      mul ab
      mov r1, a
      mov a, b
      mov r2, #0
      xch a, r0
      mov a, r5
      mov b, #11
      mul ab
      add a, r0
      mov r2, a
      mov a, r5
      mov b, #3
      div ab
      add a, r1
      mov r1, a
      mov a, r2
      addc a, #0
      mov r2, a
   Log10_sum:
      mov a, r4
      add a, r1
      mov r1, a
      mov a, r6
      addc a, r2
      mov r2, a
      mov a, r5
      jb acc.7, log10_chk_neg
      mov a, r2
      jb acc.7, log10_calc_zero
      sjmp log10_calc_exit
   Log10_chk_neg:
      mov a, r2
      jnb acc.7, log10_calc_zero
      sjmp log10_calc_exit
   Log10_calc_zero:
      mov r1, #0
      mov r2, #0
   Log10_calc_exit:
      ret
   Log10_write_long:
      mov {Log_out+0}, r1
      mov {Log_out+1}, r2
      ret
   Log10_tab:
      db   0,0,  34,0,  67,0, 101,0, 134,0, 166,0, 199,0, 231,0
      db   7,1,  39,1,  71,1, 102,1, 133,1, 164,1, 195,1, 225,1
      db   0,2,  30,2,  59,2,  89,2, 119,2, 148,2, 177,2, 206,2
      db 234,2,   7,3,  35,3,  63,3,  91,3, 119,3, 146,3, 174,3
      db 201,3, 228,3, 255,3,  26,4,  52,4,  79,4, 105,4, 131,4
      db 157,4, 183,4, 208,4, 234,4,   3,5,  28,5,  53,5,  78,5
      db 103,5, 128,5, 152,5, 176,5, 201,5, 225,5, 249,5,  16,6
      db  40,6,  64,6,  87,6, 110,6, 133,6, 157,6, 179,6, 202,6
      db 225,6, 247,6,  14,7,  36,7,  58,7,  81,7, 103,7, 124,7
      db 146,7, 168,7, 189,7, 211,7, 232,7, 253,7,  19,8,  40,8
      db  61,8,  81,8, 102,8, 123,8, 143,8, 164,8, 184,8, 204,8
      db 224,8, 244,8,   8,9,  28,9,  48,9,  68,9,  87,9, 107,9
      db 126,9, 146,9, 165,9, 184,9, 203,9, 222,9, 241,9,   4,10
      db  23,10, 41,10, 60,10, 79,10, 97,10,115,10,134,10,152,10
      db 170,10,188,10,206,10,224,10,242,10,  4,11, 21,11, 39,11
      db  56,11, 74,11, 91,11,109,11,126,11,143,11,160,11,177,11
      db 194,11
   $end Asm

Return

Код:

$regfile = "8H1K08.DAT"
$crystal = 35000000
$ramsize = 1024
$map
$large
Dim Shaitanama(4) As Byte
Dim X As Single
Dim N As Byte
X = 0.0350603

For N = 1 To 7
   X = X + 0.0000005
Next N

!mov {Shaitanama}, {x}
!mov {Shaitanama+1}, {x+1}
!mov {Shaitanama+2}, {x+2}
!mov {Shaitanama+3}, {x+3}
Print X ; " " ; Shaitanama(1) ; " " ; Shaitanama(2) ; " " ; Shaitanama(3) ; " " ; Shaitanama(4)

X = 0.0350637
!mov {Shaitanama}, {x}
!mov {Shaitanama+1}, {x+1}
!mov {Shaitanama+2}, {x+2}
!mov {Shaitanama+3}, {x+3}
Print X ; " " ; Shaitanama(1) ; " " ; Shaitanama(2) ; " " ; Shaitanama(3) ; " " ; Shaitanama(4)

X = X * 100
Print "x100 " ; X

Stop

Код:

$regfile = "8H1K08.DAT"
$crystal = 35000000
$ramsize = 1024
$map
$large
Dim X_s As Single
Dim X_str As Xram String * 20
Dim X_e_str As Xram String * 8
Dim X_spc As String * 10
Dim X_len As Byte
Start Timer1
Do

   Gosub Sub_x_rand
   '============================================================================
   X_str = Str(x_s)                                           'ÈÑÕÎÄÍÀß ÑÒÐÎÊÀ X_str
   Gosub Exp_str                                              'ÐÅÇÓËÜÒÀÒ Â X_e_str
   '============================================================================
   X_len = Len(x_str) : X_len = 15 - X_len
   Print X_s ;
   Print Spc(x_len) ;
   Print "'" ;
   Print X_str ; "'";
   Print Spc(x_len) ;
   Print " -> '" ;
   Print X_e_str ; "'"

Loop

Exp_str:

   $asm
         MOV   R0, #0
         MOV   R7, #0
         MOV   R4, #255
         MOV   R6, #0
         MOV   R2, #48
         MOV   R3, #48
         MOV   R5, #0
         MOV   R1, #0
         MOV   DPTR, #{X_str}
         MOVX  A, @DPTR
         CJNE  A, #45, exp_str_st
         INC   R7
      exp_str_st:
         MOV   A, R7
         ADD   A, DPL
         MOV   DPL, A
         MOV   A, DPH
         ADDC  A, #0
         MOV   DPH, A
      exp_str_sl:
         MOVX  A, @DPTR
         JZ    exp_str_sd
         CJNE  A, #46, exp_str_cd
         MOV   R4, R0
         SJMP  exp_str_sn
      Exp_str_cd:
         CLR   C
         SUBB  A, #48
         JC    exp_str_sn
         MOVX  A, @DPTR
         SUBB  A, #58
         JNC   exp_str_sn
         MOVX  A, @DPTR
         MOV   B, A
         CJNE  R6, #0, exp_str_chk_d2
         CJNE  A, #48, exp_str_fd1
         SJMP  exp_str_sn
      exp_str_fd1:
         MOV   R2, B
         MOV   R5, R0
         MOV   R6, #1
         SJMP  exp_str_sn
      exp_str_chk_d2:
         CJNE  R6, #1, exp_str_chk_d3
         MOV   R3, B
         MOV   R6, #2
         SJMP  exp_str_sn
      exp_str_chk_d3:
         CJNE  R6, #2, exp_str_sn
         CLR   C
         MOV   A, B
         SUBB  A, #53
         JC    exp_str_skip_rnd
         MOV   R1, #1
      exp_str_skip_rnd:
         MOV   R6, #3
         SJMP  exp_str_sn
      exp_str_sn:
         INC   DPTR
         INC   R0
         SJMP  exp_str_sl
      Exp_str_sd:
         CJNE  R6, #0, exp_str_calc_exp
         MOV   R2, #48
         MOV   R3, #48
         MOV   R4, #0
         SJMP  exp_str_wo
      Exp_str_calc_exp:
         CJNE  R1, #1, exp_str_exp_logic
         MOV   A, R3
         CJNE  A, #57, exp_str_rnd_inc
         MOV   R3, #48
         MOV   A, R2
         CJNE  A, #57, exp_str_rnd_carry
         MOV   R2, #49
         MOV   A, R4
         INC   A
         MOV   R4, A
         SJMP  exp_str_exp_logic
      exp_str_rnd_inc:
         INC   A
         MOV   R3, A
         SJMP  exp_str_exp_logic
      exp_str_rnd_carry:
         INC   A
         MOV   R2, A
         SJMP  exp_str_exp_logic
      Exp_str_exp_logic:
         MOV   A, R4
         CJNE  A, #255, exp_str_ce
         MOV   R4, R0
      exp_str_ce:
         MOV   A, R4
         CLR   C
         SUBB  A, R5
         MOV   R4, A
         JNB   Acc.7, exp_str_epa
         SJMP  exp_str_wo
      exp_str_epa:
         DEC   A
         MOV   R4, A
      exp_str_wo:
         MOV   DPTR, #{X_str}
         MOVX  A, @DPTR
         MOV   DPTR, #{X_e_str}
         CJNE  A, #45, exp_str_wd1
         MOV   A, #45
         MOVX  @DPTR, A
         INC   DPTR
      exp_str_wd1:
         MOV   A, R2
         MOVX  @DPTR, A
         INC   DPTR
         MOV   A, #46
         MOVX  @DPTR, A
         INC   DPTR
         MOV   A, R3
         MOVX  @DPTR, A
         INC   DPTR
         MOV   A, #69
         MOVX  @DPTR, A
         INC   DPTR
         MOV   A, R4
         JNB   Acc.7, exp_str_esp
         MOV   A, #45
         MOVX  @DPTR, A
         INC   DPTR
         MOV   A, R4
         CPL   A
         INC   A
         SJMP  exp_str_wev
      exp_str_esp:
         MOV   A, #43
         MOVX  @DPTR, A
         INC   DPTR
         MOV   A, R4
      exp_str_wev:
         MOV   B, #10
         DIV   AB
         ADD   A, #48
         MOVX  @DPTR, A
         INC   DPTR
         MOV   A, B
         ADD   A, #48
         MOVX  @DPTR, A
         INC   DPTR
         CLR   A
         MOVX  @DPTR, A
   $end Asm

Return

Sub_x_rand:

   $asm
      mov a, th1
      Swap A
      mov {x_s+1}, a
      mov a, tl1
      mov r7, a
      anl a, #7
      add a, #60
      mov c, F0
      mov acc.7, c
      cpl F0
      mov {x_s+3}, a
      mov a, r7
      Swap A
      mov {x_s+2}, a
      mov a, r7
      rl a
      mov {x_s}, a
   $end Asm

Return

Код:

$regfile = "8H1K08.DAT"
$crystal = 35000000
$ramsize = 1024
$map
$large
Dim X As Single : X = -7.85398
Dim X_b(4) As Byte
Dim Res_sin_i As Integer
Dim Res_cos_i As Integer
Dim Res_tan_l As Long
Dim I As Word

For I = 1 To 65535
   !mov {x_b},{x}
   !mov {x_b+1},{x+1}
   !mov {x_b+2},{x+2}
   !mov {x_b+3},{x+3}
   Gosub Trig
   Print X ; " : bytes(" ; X_b(1) ; "  " ; X_b(2) ; "  " ; X_b(3) ; "  " ; X_b(4) ; ") | sin " ; Res_sin_i ; " | cos " ; Res_cos_i ; " | tan " ; Res_tan_l
   X = X + 0.00024
Next I

Stop

Trig:
   '837
$asm
         clr f0
         clr f1
         mov a, {X+3}
         mov r7, a
         mov a, {X+2}
         mov r6, a
         mov a, {X+1}
         mov r5, a
         mov a, {X}
         mov r4, a
         mov a, r7
         jnb acc.7, trig_spin
         setb f0
         anl a, #127
         mov r7, a
         sjmp trig_sexp
      trig_spin:
         clr f0
      trig_sexp:
         mov a, r6
         rlc a
         mov a, r7
         rlc a
         jnz trig_snz
         mov {&h18}, #0
         mov {&h19}, #0
         mov {&h1A}, #0
         mov {&h1E}, #0
         ljmp trig_sinit
      trig_snz:
         clr c
         subb a, #126
         mov r0, a
         mov a, r6
         anl a, #127
         orl a, #128
         mov r6, a
         mov r7, #0
         mov a, r0
         jz trig_ssav
         jnb acc.7, trig_sshl
         cpl a
         inc a
         mov r0, a
      trig_sshr:
         clr c
         mov a, r7
         rrc a
         mov r7, a
         mov a, r6
         rrc a
         mov r6, a
         mov a, r5
         rrc a
         mov r5, a
         mov a, r4
         rrc a
         mov r4, a
         djnz r0, trig_sshr
         sjmp trig_ssav
      trig_sshl:
         clr c
         mov a, r4
         rlc a
         mov r4, a
         mov a, r5
         rlc a
         mov r5, a
         mov a, r6
         rlc a
         mov r6, a
         mov a, r7
         rlc a
         mov r7, a
         djnz r0, trig_sshl
      trig_ssav:
         mov {&h18}, r4
         mov {&h19}, r5
         mov {&h1A}, r6
         mov {&h1E}, r7
         lcall trig_sscl
         clr f1
         mov a, {&h1A}
         jb acc.7, trig_srdpi
         sjmp trig_schpi
      trig_srdpi:
         clr c
         mov a, {&h18}
         subb a, #0
         mov {&h18}, a
         mov a, {&h19}
         subb a, #0
         mov {&h19}, a
         mov a, {&h1A}
         subb a, #128
         mov {&h1A}, a
         cpl f0
         cpl f1
      trig_schpi:
         mov a, {&h1A}
         jb acc.6, trig_srhpi
         sjmp trig_sinit
      trig_srhpi:
         clr c
         mov a, #0
         subb a, {&h18}
         mov {&h18}, a
         mov a, #0
         subb a, {&h19}
         mov {&h19}, a
         mov a, #128
         subb a, {&h1A}
         mov {&h1A}, a
         cpl f1
      trig_sinit:
         mov {&h08}, #64
         mov {&h09}, #186
         mov {&h0A}, #77
         mov {&h10}, #0
         mov {&h11}, #0
         mov {&h12}, #0
         mov r3, #0
      trig_sloop:
         lcall trig_sldat
         lcall trig_sshx
         lcall trig_sshy
         lcall trig_score
         inc r3
         mov a, r3
         cjne a, #22, trig_sloop
         lcall trig_tcalc
         ljmp trig_sfin
      trig_sscl:
         mov a, {&h19}
         mov b, #96
         mul ab
         mov r6, a
         mov r7, b
         mov a, {&h18}
         mov b, #190
         mul ab
         add a, r6
         mov a, r7
         addc a, b
         mov r4, a
         mov r6, r4
         mov r7, #0
         mov a, {&h1A}
         mov b, #96
         mul ab
         add a, r6
         mov r6, a
         mov a, b
         addc a, r7
         mov r7, a
         mov a, {&h19}
         mov b, #190
         mul ab
         add a, r6
         mov r6, a
         mov a, b
         addc a, r7
         mov r7, a
         mov a, {&h18}
         mov b, #40
         mul ab
         add a, r6
         mov r6, a
         mov a, b
         addc a, r7
         mov r4, a
         mov r6, r4
         mov r7, #0
         mov a, {&h1E}
         mov b, #96
         mul ab
         add a, r6
         mov r6, a
         mov a, b
         addc a, r7
         mov r7, a
         mov a, {&h1A}
         mov b, #190
         mul ab
         add a, r6
         mov r6, a
         mov a, b
         addc a, r7
         mov r7, a
         mov a, {&h19}
         mov b, #40
         mul ab
         add a, r6
         mov {&h18}, a
         mov a, b
         addc a, r7
         mov r4, a
         mov r6, r4
         mov r7, #0
         mov a, {&h1E}
         mov b, #190
         mul ab
         add a, r6
         mov r6, a
         mov a, b
         addc a, r7
         mov r7, a
         mov a, {&h1A}
         mov b, #40
         mul ab
         add a, r6
         mov {&h19}, a
         mov a, b
         addc a, r7
         mov r4, a
         mov r6, r4
         mov a, {&h1E}
         mov b, #40
         mul ab
         add a, r6
         mov {&h1A}, a
         ret
      trig_sldat:
         mov dptr, #trig_stab
         mov a, r3
         mov b, #3
         mul ab
         add a, dpl
         mov dpl, a
         mov a, dph
         addc a, #0
         mov dph, a
         clr a
         movc a, @a+dptr
         mov {&h1B}, a
         inc dptr
         clr a
         movc a, @a+dptr
         mov {&h1C}, a
         inc dptr
         clr a
         movc a, @a+dptr
         mov {&h1D}, a
         ret
      trig_sshx:
         mov r4, {&h08}
         mov r5, {&h09}
         mov r6, {&h0A}
         mov a, r3
         jz trig_ssxdn
         mov r7, a
      trig_ssxlp:
         mov a, r6
         rlc a
         mov a, r6
         rrc a
         mov r6, a
         mov a, r5
         rrc a
         mov r5, a
         mov a, r4
         rrc a
         mov r4, a
         djnz r7, trig_ssxlp
      trig_ssxdn:
         ret
      trig_sshy:
         mov r0, {&h10}
         mov r1, {&h11}
         mov r2, {&h12}
         mov a, r3
         jz trig_ssydn
         mov r7, a
      trig_ssylp:
         mov a, r2
         rlc a
         mov a, r2
         rrc a
         mov r2, a
         mov a, r1
         rrc a
         mov r1, a
         mov a, r0
         rrc a
         mov r0, a
         djnz r7, trig_ssylp
      trig_ssydn:
         ret
      trig_score:
         mov a, {&h1A}
         jnb acc.7, trig_scpos
      trig_scneg:
         clr c
         mov a, {&h08}
         addc a, r0
         mov {&h08}, a
         mov a, {&h09}
         addc a, r1
         mov {&h09}, a
         mov a, {&h0A}
         addc a, r2
         mov {&h0A}, a
         clr c
         mov a, {&h10}
         subb a, r4
         mov {&h10}, a
         mov a, {&h11}
         subb a, r5
         mov {&h11}, a
         mov a, {&h12}
         subb a, r6
         mov {&h12}, a
         clr c
         mov a, {&h18}
         addc a, {&h1B}
         mov {&h18}, a
         mov a, {&h19}
         addc a, {&h1C}
         mov {&h19}, a
         mov a, {&h1A}
         addc a, {&h1D}
         mov {&h1A}, a
         ret
      trig_scpos:
         clr c
         mov a, {&h08}
         subb a, r0
         mov {&h08}, a
         mov a, {&h09}
         subb a, r1
         mov {&h09}, a
         mov a, {&h0A}
         subb a, r2
         mov {&h0A}, a
         clr c
         mov a, {&h10}
         addc a, r4
         mov {&h10}, a
         mov a, {&h11}
         addc a, r5
         mov {&h11}, a
         mov a, {&h12}
         addc a, r6
         mov {&h12}, a
         clr c
         mov a, {&h18}
         subb a, {&h1B}
         mov {&h18}, a
         mov a, {&h19}
         subb a, {&h1C}
         mov {&h19}, a
         mov a, {&h1A}
         subb a, {&h1D}
         mov {&h1A}, a
         ret
      trig_sfin:
         mov a, {&h11}
         mov {Res_sin_i}, a
         mov a, {&h12}
         mov {Res_sin_i+1}, a
         jnb f0, trig_sfssp
         clr c
         mov a, #0
         subb a, {Res_sin_i}
         mov {Res_sin_i}, a
         mov a, #0
         subb a, {Res_sin_i+1}
         mov {Res_sin_i+1}, a
      trig_sfssp:
         mov a, {&h09}
         mov {Res_cos_i}, a
         mov a, {&h0A}
         mov {Res_cos_i+1}, a
         jnb f1, trig_sexit
         clr c
         mov a, #0
         subb a, {Res_cos_i}
         mov {Res_cos_i}, a
         mov a, #0
         subb a, {Res_cos_i+1}
         mov {Res_cos_i+1}, a
      trig_sexit:
         ret
      trig_stab:
         db 0,0,32
         db 5,228,18
         db 56,251,9
         db 18,17,5
         db 13,139,2
         db 216,69,1
         db 246,162,0
         db 124,81,0
         db 190,40,0
         db 95,20,0
         db 48,10,0
         db 24,5,0
         db 140,2,0
         db 70,1,0
         db 163,0,0
         db 81,0,0
         db 41,0,0
         db 20,0,0
         db 10,0,0
         db 5,0,0
         db 3,0,0
         db 1,0,0
   trig_tcalc:
         mov a, {&h08}
         orl a, {&h09}
         orl a, {&h0A}
         jz trig_tovf
         mov {&h13}, #0 : mov {&h14}, #0
         mov {&h15}, {&h12} : mov {&h16}, {&h11} : mov {&h17}, {&h10}
         mov {Res_tan_l}, #0 : mov {Res_tan_l+1}, #0
         mov {Res_tan_l+2}, #0 : mov {Res_tan_l+3}, #0
         mov r0, #31
   trig_tloop:
         mov a, {Res_tan_l+3}
         jb acc.6, trig_tovf
         acall trig_tstep
         mov a, {Res_tan_l}   : rlc a : mov {Res_tan_l}, a
         mov a, {Res_tan_l+1} : rlc a : mov {Res_tan_l+1}, a
         mov a, {Res_tan_l+2} : rlc a : mov {Res_tan_l+2}, a
         mov a, {Res_tan_l+3} : rlc a : mov {Res_tan_l+3}, a
         djnz r0, trig_tloop
         sjmp trig_tasgn
   trig_tovf:
         mov {Res_tan_l}, #255 : mov {Res_tan_l+1}, #255
         mov {Res_tan_l+2}, #255 : mov {Res_tan_l+3}, #127
   trig_tasgn:
         mov c, F0
         jnb F1, trig_tchkng
         cpl c
   trig_tchkng:
         jnc trig_tfexit
         clr a : clr c
         mov a, {Res_tan_l}   : cpl a : add a, #1 : mov {Res_tan_l}, a
         mov a, {Res_tan_l+1} : cpl a : addc a, #0 : mov {Res_tan_l+1}, a
         mov a, {Res_tan_l+2} : cpl a : addc a, #0 : mov {Res_tan_l+2}, a
         mov a, {Res_tan_l+3} : cpl a : addc a, #0 : mov {Res_tan_l+3}, a
         ret
   trig_tstep:
         clr c
         mov a, {&h17} : rlc a : mov {&h17}, a
         mov a, {&h16} : rlc a : mov {&h16}, a
         mov a, {&h15} : rlc a : mov {&h15}, a
         mov a, {&h14} : rlc a : mov {&h14}, a
         mov a, {&h13} : rlc a : mov {&h13}, a
         clr c
         mov a, {&h15} : subb a, {&h08} : mov r1, a
         mov a, {&h14} : subb a, {&h09} : mov r2, a[url=https://upforme.ru/uploads/0000/25/b8/2167/498985.png][img]https://upforme.ru/uploads/0000/25/b8/2167/t498985.png[/img][/url]

         mov a, {&h13} : subb a, {&h0A}
         jnc trig_tstepok
         clr c : ret
   trig_tstepok:
         mov {&h15}, r1 : mov {&h14}, r2 : mov {&h13}, a
         setb c : ret
   Trig_tfexit:
         ret

$end Asm

Return