Mudanças entre as edições de "Montador do Patinho Feio/Apêndices/Exemplos de Programas Relocáveis"

De Garoa Hacker Clube
Ir para navegação Ir para pesquisar
(Criou página com '== Apêndice H: Exemplos de Progamas Relocáveis: == === COSEN === <pre> CON 000 ENT SUB *** EXT ARF *** EXT CAF *** EXT SEN *** EXT MAT 00E ABS PIS 012 ACF 00A...')
 
 
Linha 52: Linha 52:
 
=== DIV ===
  
=== DIV ===
 
<pre>
  
<pre>
  +
DIY 000 ENT
⚫
1 @BLT
 
  +
SAA *** EXT
⚫
2 000 SUBR DIV
  
  +
NOM *** EXT
⚫
3 *
  
  +
NAM *** EXT
⚫
4 * DIV - ROTINA DE DIVISAO EM PONTO FLUTUANTE
  
  +
TAB *** EXT
⚫
5 * ACF = ACF/MANT
  
  +
ARF *** EXT
⚫
6 *
  
−
7 000
 +
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
 
</pre>
  
</pre>

Edição atual tal como às 22h02min de 27 de novembro de 2015

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
Disponível em “https://garoa.net.br/mediawiki/index.php?title=Montador_do_Patinho_Feio/Apêndices/Exemplos_de_Programas_Relocáveis&oldid=20512”