Montador do Patinho Feio/Apêndices/Exemplos de Programas Relocáveis
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