Montador do Patinho Feio/Apêndices/Exemplos de Programas Relocáveis

Apêndice H: Exemplos de Progamas Relocáveis:

COSEN

CON  000  ENT
SUB  ***  EXT
ARF  ***  EXT
CAF  ***  EXT
SEN  ***  EXT
MAT  00E  ABS
PIS  012
ACF  00A  ABS
OFW  012  ABS



/00 SI

PASSO2


   1               @BLT
   2  000                  SUBR    COSEN
   3               * ROTINA QUE CALCULA O COSENO NO PATINHO
   4               * PELA FORMULA COS(X)= SEN(PI/2 - X)
   5               *
   6  000                  EXT     COSEN
   7  000                  EXT     SUB
   8  000                  EXT     ARMACF
   9  000                  EXT     CARACF
  10  000                  EXT     SEN
  11  000 00 00    COSEN   PLA     0
  12  002 F0 00 X          PUG     ARMACF
  13  004 01               DEFC    1
  14  005 00 0E            DEFE    MANT
  15  007 F0 00 X          PUG     CARACF
  16  009 01               DEFC    1
  17  00A 00 12 R          DEFE    PISDOIS
  18  00C F0 00 X          PUG     SUB
  19  00E F0 00 X          PUG     SEN
  20  010 00 00 R          PLA     COSEN
  21  00A          ACF     EQU     /00A
  22  00E          MANT    EQU     /00E
  23  012          OFLOW   EQU     /012
  24  012 64       PISDOIS DEFC    /64
  25  013 87               DEFC    /87
  26  014 D0               DEFC    /D0
  27  015 01               DEFC    /01
  28  000

DIV

   1                    @BLT    
   2  000                       SUBR    DIV
   3                    *
   4                    *  DIV  -  ROTINA DE DIVISAO EM PONTO FLUTUANTE
   5                    *                   ACF = ACF/MANT
   6                    *
   7  000