opt.f

   1
   2 lib/ext/spf-asm.f
   3 lib/ext/disasm.f
   4
   5 MODULE: ASSEMBLER
   6 MODULE: ASM-HIDDEN
   7 EXPORT
   8 : FIN-CODE END-ASM ?FINISHED ?UNRES ?CSP RESTORE-CURRENT CODE-ALIGN EXIT-ASSEMBLER ;
   9 ;MODULE
  10 ;MODULE
  11
  12 : test ( a u -- )
  13   2>R
  14   ALSO ASSEMBLER
  15   !CSP
  16   ASSEMBLER::INIT-ASM
  17   2R> EVALUATE
  18   ASSEMBLER::FIN-CODE
  19   PREVIOUS ;
  20
  21 : q S" MOV ECX, # 8 CDQ IDIV ECX " ;
  22
  23 \ : q 8 / ;