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

De Garoa Hacker Clube
< Montador do Patinho Feio
Revisão de 22h02min de 27 de novembro de 2015 por Juca (discussão | contribs) (→‎DIV)
(dif) ← Edição anterior | Revisão atual (dif) | Versão posterior → (dif)
Ir para navegação Ir para pesquisar

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

DIY  000  ENT
SAA  ***  EXT
NOM  ***  EXT
NAM  ***  EXT
TAB  ***  EXT
ARF  ***  EXT
SGL  ***  EXT
COM  ***  EXT
SOI  ***  EXT
CAF  ***  EXT
SHL  ***  EXT
TAC  ***  EXT
SHR  ***  EXT
PON  ***  EXT
RET  ***  EXT
OFW  012  ABS
ZEO  017  ABS
FOO  01A  ABS
ACF  00A  ABS
MAT  00E  ABS
DFT  01E  ABS
GUI  016
GOG  078
SOS  05A
MOE  030
YES  045
GOL  06E


/00 SI

PASSO2
   1               @BLT    
   2  000                  SUBR    DIV
   3               *
   4               *  DIV  -  ROTINA DE DIVISAO EM PONTO FLUTUANTE
   5               *                   ACF = ACF/MANT
   6               *
   7  000                  EXT     DIV
   8  000                  EXT     SALVA
   9  000                  EXT     NORM
  10  000                  EXT     NADABEM
  11  000                  EXT     TAB
  12  000                  EXT     ARMACF
  13  000                  EXT     SGNAL
  14  000                  EXT     COMPLEM
  15  000                  EXT     SOMATRI
  16  000                  EXT     CARACF
  17  000                  EXT     SHIFTL
  18  000                  EXT     TAC
  19  000                  EXT     SHIFTR
  20  000                  EXT     POESIN
  21  000                  EXT     REST
  22  012          OFLOW   EQU     /012
  23  017          ZERO    EQU     /017
  24  01A          F       EQU     /01A
  25  00A          ACF     EQU     /00A
  26  00E          MANT    EQU     /00E
  27  01E          DFLOAT  EQU     /01E
  28               *
  29  000 00 00    DIV     PLA     0
  30  002 F0 00 X          PUG     SALVA   SALVA ACC,EXT,INDICE,T,V
  31