"EDIPRINT" SISTEMA DE EDIÇÃO E FORMATAÇÃO DE TEXTOS :

ANA MARIA MOURA MENDES

TESE SUBMETIDA AO CORPO DOCENTE DA COORDENAÇÃO DOS PROG=S DE

P~S-GRADUAÇÃO DE ENGENHARIA DA UNIVERSIDADE FEDERAL DO RIO DE JA - NEIRO COMO PARTE DOS REQUISITOS NECESS~RIOS PARA OBTENÇÃODOGRAU

EM CIÊNCIAS (M.Sc.)

Aprovada por:

RIO DE JANEIRO, RJ - BRASIL MkRÇD D-E 1479

. ii.

f n d i c e .................................................... i i

F i c h a c a t a l o g r á f i c a ....................................... i v

~ e d i c a t ó r i a v

A g r a d e c i m e n t o s .............................................. v i

Resumo .................................................... v i i

A b s t r a c t ................................................. v i i i

I - INTRODUÇÃO 1.1 O b j e t i v o s d o T r a b a l h o ................................. 1

1 . 2 E t a p a s d o S i s t e m a ....................................... 1

1 . 3 F l u x o g r a m a G e r a l ...................................... 4

11 - UTILIZAÇÃO DO SISTEMA - 2 . 1 N o r m a s d e u t i l i z a ç a o d o s i s t e m a ....................... 5

- 2 . 2 D e s c r i ç a o d o s p r o c e d i m e n t o s ........................... 7

- 2 . 2 . 1 C r i a ç a o d o A r q u i v o F o n t e ........................ 7

2 . 2 . 2 Comandos p a r a u t i l i z a ç ã o d o E d i t o r d e T e x t o ..... 8

2 . 2 . 3 Comandos p a r a u t i l i z a ç ã o d o E d i t o r d e ~ e l a t ó r i o . . 1 6

2 . 2 . 4 N o r m a s g e r a i s p a r a c o d i f i c a ç ã o d o s c o m a n d o s ..... 20 - 2 . 2 . 5 P r o c e d i m e n t o d e I m p r e s s a o ....................... 2 3 -

2 . 3 O b s e r v a ç o e s G e r a i s .................................... 2 3

I11 - DETALHAMENTO DO SISTEMA 3 . 1 P r o g r a m a s u p e r v i s o r EPRIN ............................. 2 5

- 3 . 2 C r i a ç a o d o A r q u i v o F o n t e .............................. 2 5

3 . 2 . 1 A r q u i v o s U t i l i z a d o s . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 2 5

3 . 2 . 2 ~ e s c r i ~ ã o d o s P r o c e d i m e n t o s d e C r i a ç ã o d o A r q - F o n t e . . 28

3 .3 E d i t o r d e T e x t o ....................................... 2 8

3 . 3 . 1 D e s c r i ç ã o d o s P r o c e d i m e n t o s U t i l i z a d o s .......... 29

3 . 4 E d i t o r d e ~ e l a t ó r i o .................................... 3 5

3 . 4 . 1 A r q u i v o s U t i l i z a d o s ............................. 3 5

3 . 4 . 2 D e s c r i ç ã o d o s P r o c e d i m e n t o s U t i l i z a d o s .,.,...... 3 6

3 . 5 I m p r e s s a o d o A r q u i v o F o n t e ............................. 3 8

IV - IMPLEMENTAÇÃO DO SISTEMA ............................. 4 0

. iii.

VII- APÊNDICE -

A - I R o t i n a s d e C r i a ç a o d o A r q u i v o ......................... 4 8

E P R I N , C R I A , I N C L U , C O P I A , LOCK, UNLOCK,

A - I 1 R o t i n a s d o E d i t o r d e T e x t o ........................... 5 1

T E X T O , APAGA, E L I M I , D E L E T , I N S E R , L O C A L ,

S U B S T , RENUM, BLOCO, S T R I N , B U S C A , ACHAR,

COMD1, COMD2, COMD3, SOMD4, C L E A N , A P R E G ,

T E S T A , A G R U P , C R I T I .

A-111 R o t i n a s d o E d i t o r d e ~ e l a t Ó ~ i o ....................... 6 2

R E L A T , P E S Q , ROUT, P U L A , BRANC, COLUM,

T I T L E , NEWP, P A G E , TERMO, GRAVA, C A B E ,

L E R E G , CONCA, ORDEN, E S C R , P R O C , PROC1,

S E P A R , T R A N S , COMPA, P O N T , I M P L , I N I C l ,

F I N A L , L I S T A , T E S T E .

A - I V R o t i n a s d e I m p r e s s ã o d o A r q u i v o ...................... 7,9

I M P R

. iv.

FICHA CATALOGRAFICA

MENDES, ANA MARIA MOURA

"EDIPRINT" Sistema - de edição - e formatação - de Textos: Desenvolvi-

mento e implementação no computador IBM - 1130 1 Rio de Janeiro I 1979.

viii, 79p 29.7cm (COPPE - UFRJ , M. Sc. Engenharia de Sistemas, 1979)

Tese - Univ. Fed. Rio de Janeiro - COPPE - UFRJ

1. EDIÇÃO DE TEXTOS VIA COMPUTADOR I COPPE/UFRJ

I1 TÍTULO (série)

À m i n h a f i l h i n h a D a n i e l l e ,

a o meu m a r i d o ,

a o s meus p a i s ,

d e d i c o e s t e t r a b a l h o .

Ao P r o f . G u i l h e r m e C h a g a s R o d r i g u e s , c u j o i n t e r e s s e e

d e d i c a ç ã o a l i a d o s a uma o r i e n t a ç ã o s e g u r a , c o n t r i b u i r a m d e m a n e i - r a d e c i s i v a p a r a o s r e s u l t a d o s a q u i a l c a n ç a d o s .

A W a l t e r L u c i o B a r b o s a d o NPD - UFPb p e l a s v a l i o s a s s u -

g e s t õ e s e p e l o a p o i o t é c n i c o r e c e b i d o a o l o n g o d o t r a b a l h o .

A Hermes P e s s o a F i l h o , c h e f e d o NPD - UFPb p o r t o d a c o - l a b o r a ç ã o e a j u d a m a t e r i a l r e c e b i d a s j u n t o a UFpb.

Ao meu m a r i d o p e l a d e d i c a ç ã o e a p o i o d u r a n t e a s h o r a s

d e t r a b a l h o p a s s a d a s a o meu l a d o .

A t o d o s o s c o l e g a s , o p e r a d o r e s e p e r f u r a d o r e s d o N Ú c l e o

d e P r o c e s s a m e n t o d e Dados d a UFPb, p o r t o d a a c o l a b o r a ç ã o d i r e t a

ou i n d i r e t a m e n t e p r e s t a d a .

Aos P r o f s . I v a n d a C o s t a M a r q u e s e N e l s o n M a c u l a n F i -

l h o p e l a s v a l i o s a s s u g e s t õ e s e p o r s u a p a r t i c i p a ç ã o n a b a n c a e x a -

m i n a d o r a .

A CAPES p e l o s u p o r t e f i n a n c e i r o r e c e b i d o .

RESUMO

O p r e s e n t e t r a b a l h o v i s a o d e s e n v o l v i m e n t o d e um s i s -

t e m a p a r a e d i ç ã o d e t e x t o s e r e l a t ó r i o s d o t a d o d e v e r s a t i l i d a d e ,

r a p i d e z e e f i c i ê n c i a , p a r a um c o m p u t a d o r d e p e q u e n o p o r t e - I B M -

- 1 1 3 0 . O s i s t e m a EDIPRINT o p e r a OFFLINE e e s t á c o n s t i t u í d o p o r 4

p r o c e d i m e n t o s : C r i a ç ã o e I m p r e s s ã o d e a r q u i v o s , E d i t o r d e T e x t o e

E d i t o r d e R e l a t ó r i o . 4 través d e comandos e s p e c z f i c o s d o E d i t o r d e T e x t o e

p o s s í v e l r e a l i z a r a t u a l i z a ç õ e s d e r e g i s t r o s ( a l t e r a r , i n s e r i r ou

a p a g a r ) d i r e t a m e n t e n o s a r q u i v o s sem q u e p a r a i s t o s e j a n e c e s s á -

r i o r e g r a v a r t o d a a m a s s a d e d a d o s no s i s t e m a .

O E d i t o r d e R e l a t ó r i o p e r m i t e q u e o t e x t o g r a v a d o no

a r q u i v o s e j a e m i t i d o em um p a d r ã o p r é - d e t e r m i n a d o p e l o u s u á r i o , e m uma o u m a i s c o p i a s s u c e s s i v a s , a p a r t i r d e comandos c o n t i d o s

no t e x t o q u e p o s s i b i l i t a m a f o r m a t a ç ã o d e s e j a d a .

O s c o m a n d o s u t i l i z a d o s s ã o s i m p l e s (mnemôn icos d e l o u

2 c a r a c t e r e s ) e d e f á c i l u t i l i z a ç ã o , d e modo a p e r m i t i r q u e 0 s i s - t e m a s e j a u t i l i z a d o n a e l a b o r a ç ã o d e q u a l q u e r t i p o d e t e x t o mes-

mo p o r a q u e l e s q u e t e n h a m p o u c o s c o n h e c i m e n t o s d e c o m p u t a ç ã o .

ABSTRACT

T h i s t h e s i s h a s a s i t s o b j e c t t h e d e v e l o p m e n t o f a

s y s t e m t h a t e d i t s t e x t a n d r e p o r t s a n d w h i c h b r i n g s v e r s a t i l i t y ,

q u i c k n e s s a n d e f f i c i e n c y , f o r a s m a l l c o n f i g u r a t i o n c o m p u t e r -

- IBM-1130. T h e EDPRINT s y s t e m w o r k s o f f l i n e a n d h a s 4 p r o c e d u r e s :

G e n e r a t i o n a n d P r i n t o £ d a t a s e t s , T e x t a n d R e p o r t E d i t o r .

I t i s p o s s i b l e t h r o u g h s p e c i f i c i n s t r u c t i o n s o f t h e

T e x t E d i t o r t o c h a n g e t h e r e g i s t e r s ( a l t e r , i n s e r t o r e r a s e )

d i r e c t l y i n t h e d a t a s e t s w i t h o u t b e i n g n e c e s s a r y t o r e c o r d a 1 1

d a t a a g a i n .

The R e p o r t E d i t o r p e r m i t s t h e t e x t r e c o r d e d i n t h e d a t a

s e t t o b e p r i n t e d i n a s t a n d a r d way p r e v i o u s l y d e t e r m i n e d by t h e

u s e r , i n o n e o r m o r e s u c c e s s i v e c o p i e s , f r o m t h e commands i n t h e

t e x t w h i c h g i v e t h e d e s i r e d f o r m a t .

The commands u s e d a r e s i m p l e (mnemonics of 1 o r 2

c a r a c t e r s ) a n d e a s y t o m a n i p u l a t e , m a k i n g i t p o s s i b l e f o r t h e

s y s t e m t o b e u s e d i n o r g a n i z a t i o n o f a n y k i n d o f r e p o r t , e v e n by

t h o s e who h a v e l i t t l e c o m p u t e r e x p e r i e n c e .

1.1 - OBJETIVOS DO T R A B A L H O

O s i s t e m a EDIPRINT d e s e n v o l v i d o n e s t e t r a b a l h o tem p o r

o b j e t i v o a i m p r e s s ã o d e t e x t o s p o r c o m p u t a d o r em um p a d r ã o p r é d e -

t e r m i n a d o p e l o u s u á r i o , a p a r t i r d e um t e x t o q u a l q u e r f o r n e c i d o

em f o r m a t o l i v r e , a t r a v é s d e c a r t õ e s p e r f u r a d o s .

O EDIPRINT e s t á c o n s t i t u í d o b a s i c a m e n t e p o r d o i s s u b -

s i s t e m a s d i s t i n t o s , d e n o m i n a d o s r e s p e c t i v a m e n t e E d i t o r d e T e x t o e

E d i t o r d e ~ e l a t ó r i o . O E d i t o r d e T e x t o p e r m i t e a l t e r a r um t e x t o

g r a v a d o a t r a v é s de comandos e s p e c í f i c o s , q u e p o s s i b i l i t a m i n s e -

r i r , m o d i f i c a r o u a p a g a r t r e c h o s d i r e t a m e n t e no a r q u i v o , s e m q u e

p a r a i s t o s e j a n e c e s s á r i o r e g r a v a r t o d o o t e x t o n o v a m e n t e .

O E d i t o r d e ~ e l a t ó r i o p e r m i t e i m p r i m i r t e x t o s em um p a - d r ã o p r e v i a m e n t e e s c o l h i d o , a p a r t i r d e um t e x t o f o r n e c i d o i n i -

c i a l m e n t e a o s i s t e m a em um f o r m a t o q u a l q u e r . O EDIPRINT p e r m i t e

a l é m d i s t o c r i a r e i m p r i m i r a r q u i v o s c o n t e n d o t e x t o s a s e r e m e d i - t a d o s .

O EDIPRINT f o i d e s e n v o l v i d o v i s a n d o a u x i l i a r o u s u á r i o

n a r e a l i z a ç ã o d e t r a b a l h o s d e d o ~ u m e n t a ~ ã o . E l e p e r m i t e e l a b o r a r

e e m i t i r t e x t o s d i d á t i c o s e c i e n t í f i c o s , r e l a t ó r i o s e d o c u m e n t o s

com g r a n d e r a p i d e z .

D u r a n t e o d e s e n v o l v i m e n t o d o t r a b a l h o p r o c u r o u - s e i m -

p l e m e n t a r o s comandos d e m a n e i r a a t o r n a r a u t i l i z a ç ã o d o s i s t e -

ma a m a i s s i m p l e s e cômoda p o s s í v e l p a r a o u s u á r i o , o b j e t i v a n d o -

- s e com i s t o t o r n á - l o a c e s s í v e l mesmo à q u e l e s q u e t e n h a m r e d u z i -

d o s c o n h e c i m e n t o s d e c o m p u t a ç ã o .

O EDIPRINT e m b o r a t e n h a s i d o p r o j e t a d o p a r a o IBM-1130

- s i s t e m a e x i s t e n t e n o ~ Ú c l e o d e P r o c e s s a m e n t o d e Dados (NPD) d e

J . P e s s o a - UFPb, o n d e o t r a b a l h o f o i d e s e n v o l v i d o - p o d e r á com

p e q u e n a s m o d i f i c a ç Õ e s s e r e x t e n d i d o a q u a l q u e r o u t r o c o m p u t a d o r ,

d e s d e q u e e s t e t e n h a o c o m p i l a d o r F o r t r a n . C o n s i d e r a ç õ e s a r e s -

p e i t o d e s t e a s s u n t o s ã o f e i t a s n a p a r t e f i n a l do t r a b a l h o .

1 . 2 - ETAPAS D O SISTEMA

O s i s t e m a EDIPRINT e s t á c o n s t i t u í d o p o r q u a t r o b l o c o s

i n t e r l i g a d o s e n t r e s i ( F i g . I . I ) , c u j a s f u n ç õ e s e n c o n t r a m - s e e s -

(*( FONTE

FIG. 1.1 - FLUXOGRAMA GERAL DO

Ed. Texto +

€01 PRINT

p e c i f i c a d a s a s e g u i r :

1 - c r i a ç ã o d o A r q u i v o F o n t e

2 - E d i t o r d e T e x t o

3 - E d i t o r d e R e l a t ó r i o

4 - I m p r e s s ã o d o A r q u i v o F o n t e

E s t e b l o c o p e r m i t e q u e o t e x t o , i n i c i a l m e n t e d i s p o s t o

em um p a d r ã o q u a l q u e r , s e j a f o r n e c i d o a o s i s t e m a a t r a v é s d e c a r -

t õ e s p e r f u r a d o s e a r m a z e n a d o em um a r q u i v o em d i s c o . T a l a r q u i v o

é d e n o m i n a d o F o n t e , e c o n t e m a s i n f o r m a ç õ e s q u e d e v e r ã o s e r i m -

p r e s s a s n o r e l a t ó r i o s e g u n d o o p a d r ã o d e s e j a d o .

EDITOR DE TEXTO

O E d i t o r d e T e x t o p e r m i t e a t u a l i z a r o a r q u i v o F o n t e a

p a r t i r d e m o d i f i c a ç Õ e s e f e t u a d a s n o t e x t o . e través d e comandosde

e d i ç ã o ( s e ç ã o 2 . 2 . 3 . l ) é p o s s í v e l i n s e r i r , a p a g a r , s u b s t i t u i r , r e - n u m e r a r r e g i s t r o s e l o c a l i z a r s e q u ê n c i a s d e c a r a c t e r e s i n c l u z d a s

n o s mesmos.

O E d i t o r de R e l a t ó r i o é r e s p o n s á v e l p e l a e d i ç ã o d o t e x

t o no p a d r ã o d e s a z d a d e s e j a d o . O s comandos d e e d i ç ã o f a z e m p a r -

t e d a s i n f o r m a ç õ e s c o n t i d a s n o a r q u i v o F o n t e , e s ã o a n a l i s a d o s a

c a d a r e g i s t r o l i d o . Confo rme o comando d e e s p e c i f i c a ç ã o e n c o n t r a - d o no t e x t o , o e d i t o r e x e c u t a d e t e r m i n a d a s e q u ê n c i a d e o p e r a ç õ e s

r e l a c i o n a d a s a o mesmo.

I M P R E S S Ã O D O ARQUIVO FONTE

través do b l o c o d e i m p r e s s ã o d o a r q u i v o F o n t e , o u su -

a r i o c e r t i f i c a - s e d a e x a t i d ã o d a s i n f o r m a ç õ e s g r a v a d a s , e s e a-

p ó s a a t u a l i z a ç ã o d o a r q u i v o , a s a l t e r a ç õ e s e f e t u a d a s f o r a m i m -

p l e m e n t a d a s d e m a n e i r a c o r r e t a . A i m p r e s s ã o d o a r q u i v o F o n t e f o r -

n e c e o número do r e g i s t r o ( o u número d a l i n h a ) em o rdem c r e s c e n -

t e e o t e x t o c o n t i d o n a q u e l e r e g i s t r o .

1 . 3 - FLUXOGRAMA GERAL D O EDIPRINT

O EDIPRINT é c o n t r o l a d o p o r um p r o g r a m a s u p e r v i s o r de -

n o m i n a d o EPRIN, c u j a f u n ç ã o é a n a l i s a r a s o p ç õ e s e s c o l h i d a s p e l o

u s u á r i o , e d e s v i a r o comando d o s i s t e m a p a r a um d o s q u a t r o p r o c e -

d i m e n t o s p o s s T v e i s : c r i a ç ã o , E d i t o r d e T e x t o , E d i t o r de ~ e l a t ó -

r i o e I m p r e s s ã o d o a r q u i v o . ( F i g . I . 1 ) .

O s i s t e m a p r e v ê s i t u a ç õ e s em q u e o u s u á r i o modi - -

f i c a r o s e u t e x t o r e a l i z a n d o c o r r e ç õ e s , i n s e r ç o e s e s u p r e s s õ e s d e

t e x t o s , sem q u e p a r a i s s o s e j a n e c e s s á r i o r e g r a v a r t o d a a m a s s a

d e d a d o s i n i c i a l , com a s d e v i d a s a l t e r a ç õ e s .

O u s u á r i o a o u t i l i z a r o EDIPRINT p o d e r á r e a l i z a r a s s e -

g u i n t e s t a r e f a s :

1. O B T E R UM TEXTO EM UM PADRÃO PRÉ-ESTABELECIDO:

P a r a i s t o e l e d e v e r á e n t r a r com o t e x t o d i s p o s t o em um

p a d r ã o q u a l q u e r a t r a v é s d e c a r t õ e s p e r f u r a d o s . D e v e r ã o s e r i n c l u - -r i d o s n o t e x t o o s comandos n e c e s s á r i o s p a r a a f o r m a t a ç ã o do r e l a -

t ó r i o n o p a d r ã o f i n a l d e s a T d a . T a i s comandos d e e d i ç ã o s e r ã o a-

n a l i s a d o s p o s t e r i o r m e n t e no p a r á g r a f o 2 . 2 . 3 .

2. ATUALIZAR O A R Q U I V O FONTE

E p o s s í v e l m a n t e r um a r q u i v o g r a v a d o n o s i s t e m a e u t i -

l i z á - l o com o Ú n i c o o b j e t i v o d e r e a l i z a r a t u a l i z a ç õ e s . N e s t e ca-

s o , o u s u á r i o d e v e r á f o r n e c e r a p e n a s OS comandos 3 n e c e s s á r i o s

c o r r e ç ã o d o t e x t o no a r q u i v o , q u e s e r ã o a n a l i s a d o s p e l o E d i t o r d e

T e x t o , e i m p l e m e n t a d o s p e l o s i s t e m a .

E p o s s í v e l m o d i f i c a r s e m p r e q u e n e c e s s á r i o um t e x t o i-

n i c i a l g r a v a d o n o a r q u i v o F o n t e , e a p ó s c a d a a l t e r a ç ã o imprimi-

- l o em um f o r m a t o d e s a z d a d e s e j a d o .

SISTEMA

Um e s q u e m a m a i s d e t a l h a d o d a e s t r u t u r a i n t e g r a l do EDI - PRINT e n c o n t r a - s e d i s p o s t o n a f i g u r a 11.1.

P a r a a c e s s a r o s i s t e m a EDIPRINT o u s u á r i o d e v e r á e n t r a r

i n i c i a l m e n t e com o s s e g u i n t e s c a r t õ e s p e r f u r a d o s a p a r t i r d a l a .

c o l u n a :

l a . c o l .

/ / V J O B

o n d e :

0 - z e r o

M - e s p a ç o em b r a n c o

9 A A l . . . .0AA4 - s ã o d i s c o s u t i l i z a d o s p e l o s i s t e m a

través do c a r t ã o / / XEQ EPRIN o p r o g r a m a s u p e r v i s o r ' EPRIN é c a r r e g a d o n a m e m ó r i a j u n t a m e n t e com t o d o s os s u b p r o g r a m a s

a e l e r e f e r e n c i a d o s . De a c o r d o com a o p ç ã o f o r n e c i d a n o c a r t ã o se

g u i n t e , o p r o g r a m a s u p e r v i s o r d e s v i a r á o comando p a r a o b l o c o c o r -

r e s p o n d e n t e , o n d e a t a r e f a s o l i c i t a d a é e x e c u t a d a .

Ao u t i l i z a r o EDIPRINT o u s u á r i o p o d e r á o p t a r p o r u m ai

m a i s d o s s e g u i n t e s p r o c e d i m e n t o s :

T - EDITOR DE TEXTO

R - EDITOR DE RELATQRIO

C - C R I A Ç Ã O D O ARQUIVO FONTE

I - I M P R E S S Ã O DO A R Q U I V O FONTE

E i m p o r t a n t e o b s e r v a r q u e o s q u a t r o p r o c e d i m e n t o s a c i -

m a podem s e r e x e c u t a d o s d e n t r o d e um mesmo p r o c e s s o - SOB - e n - a

t r e t a n t o , e i m p r e s c i n d í v e l q u e o u s u á r i o c r i e um a r q u i v o F o n t e ' ( p r o c e d i m e n t o C ) a n t e s d e o p t a r p o r q u a l q u e r o u t r o passo .Uma v e z

c r i a d o t a l a r q u i v o , o s d e m a i s p r o c e d i m e n t o s p o d e r ã o s e r s o l i c i t a - d o s em q u a l q u e r o c a s i ã o b a s t a n d o q u e o u s u á r i o r e f e r e n c i e o nome

I 1 t C I

I L Supervisar - ~elator;o r

I I I EPRIN ;-. Ed.RelatorÍo * saida C L Fim 1

I I I

C I I t

Fonte Ed. Texto

FIG. li. 1 , DETALHAMENTO DOS BLOCOS (PROCEDIMENTOS) QUE COMPOEM

O SISTEMA EDIPRINT

d o a r q u i v o p r e v i a m e n t e g r a v a d o n o s i s t e m a .

P a r a s o l i c i t a r q u a l q u e r um d o s p r o c e d i m e n t o s d e s c r i t o s ,

o u s u á r i o d e v e r á u t i l i z a r c a r t õ e s p e r f u r a d o s n o s e g u i n t e f o r m a t o :

o n d e :

n - i n d i c a a o p ç ã o e s c o l h i d a T, R , C o u I ( d e f i n i d o em

2 . 1 )

NOME - nome d e s i g n a d o p a r a o a r q u i v o , c o n t e n d o no m á x i - mo 8 c a r a c t e r e s a l f a n u m é r i c o s .

F e i t a a e s c o l h a do p r o c e d i m e n t o d e s e j a d o , o u s u á r i o d e - v e r á f o r n e c e r a s e g u i r o s c a r t õ e s d e d a d o s r e l a t i v o s à q u e l e i tem.

Cada p r o c e d i m e n t o q u e o u s u á r i o d e s e j e e x e c u t a r i m p l i c a r á a s e > e n - t r a r com um n o v o c a r t ã o do t i p o ( 1 1 . 1 ) .

A c o n d i ç ã o d e t é r m i n o d e p r o c e d i m e n t o p a r a o s i s t e m a é

d a d o a t r a v é s d e um c a r t ã o / / p e r f u r a d o n a s c o l u n a s 1 e 2 r e s p e c -

t i v a m e n t e .

O s i s t e m a e m i t i r á m e n s a g e n s e x p l i c a t i v a s d e e r r o c a s o

a s i n t a x e d e q u a l q u e r comando s e j a d i f e r e n t e d a e s t a b e l e c i d a n a

d e f i n i ç ã o do mesmo.

2 . 2 - D E S C R I Ç Ã O DOS PROCEDIMENTOS

2 . 2 . 1 - C R I A Ç Ã O DO A R Q U I V O FONTE

Ao e s ! c o l h e r a o p ç ã o C , o u s u á r i o e s t a r á r e c o r r e n d o i n i - c i a l m e n t e a o EDIPRINT com o o b j e t i v o d e c r i a r um a r q u i v o F o n t e .

O s c a r t õ e s c o n t e n d o a s i n f o r m a ç õ e s q u e s e r a o e d i t a d a s

d e v e r ã o s e r f o r n e c i d o s l o g o a p ó s o c a r t ã o * C , nome do arquivo,^^

g u i n d o - s e d e um / * n a s c o l u n a s 1 e 2 r e s p e c t i v a m e n t e , p a r a i n d i -

c a r a o s i s t e m a f i m d e e n t r a d a d e d a d o s .

EXEMPLO:

l a . c o l .

/ / J O B

/ / XEQ EPRIN

*C,nome a r q . (-11 2 )

c a r t õ e s d e d a d o s c o n t e n d o o t e x t o em f o r - ............ m a t o l i v r e ............

/ * f i m d e e n t r a d a d e d a d o s

/ / f i m d e p r o c e d i m e n t o s

No p r o c e d i e m n t o d e c r i a ç ã o d e v e - s e t o m a r o c u i d a d o com

a e s c o l h a d o nome d o a r q u i v o . C o m o o e s p a ç o r e s e r v a d o p a r a a c r i a - #

ç ã o d o s mesmos e Ú n i c a n o d i s c o p a r a t o d o s o s u s u á r i o s , um mesmo

NOME n ã o p o d e r á c o n s t a r d u a s v e z e s no a r q u i v o . C a s o i s t o o c o r r a ,

o s i s t e m a e m i t i r á mensagem d e e r r o d o t i p o : "J; e x i s t e a r q u i v o

com e s s e nome u t i l i z e um o u t r o " .

A t r a v é s d o E d i t o r d e T e x t o o u s u á r i o a l t e r a r i n

f o r m a ç õ e s c o n t i d a s no a r q u i v o F o n t e u t i l i z a n d o o p r o c e d i m e n t o T ,

f o r n e c i d o a o s i s t e m a d e f o r m a s e m e l h a n t e a o i t e m a n t e r i o r . O u s u -

; r i o d e v e r á o b r i g a t o r i a m e n t e s e r e f e r e n c i a r a um a r q u i v o p r e v i a -

m e n t e g r a v a d o d e a c o r d o com a s e s p e c i f i c a ç Õ e s d e f e n d i d a s no p a r á -

g r a f o 2 . 2 . 1 .

2 . 2 . 2 . 1 - FACILIDADES D O EDITOR

- O EDIPRINT p e r m i t e e f e t u a r a s s e g u i n t e s o p e r a ç o e s n o s

r e g i s t r o s :

1 - A p a g a r o t e x t o X no r e g i s t r o Y (.ou m a i s r e g i s t r o s )

2 - E l i m i n a r no r e g i s t r o X a p a r t i r d o t e x t o A a t é o t e x t o B no

r e g i s t r o Y

3 - S u b s t i t u i r I c a d e i a 1 I p o r 1 c a d e i a 2 1 no r e g i s t r o X ( o u

m a i s r e g i s t r o s )

CADEIA: s e q u ê n c i a d e c a r a c t e r e s

4 - L o c a l i z a r c a d e i a s d e c a r a c t e r e s , a p o n t a n d o o número d o r e g i s -

t r o em q u e s e e n c o n t r a m

5 - Remover r e g i s t r o X ( o u m a i s r e g i s t r o s )

6 - I n s e r i r r e g i s t r o s u t i l i z a n d o a n u m e r a ç ã o p a d r ã o do s i s t e m a

( d e 1 0 0 em 1 0 0 ) ou o u t r a e s p e c i f i c a d a p e l o u s u á r i o

7 - R e n u m e r a r r e g i s t r o s

As f a c i l i d a d e s d e s c r i t a s c o b r e m a m a i o r p a r t e d a s ope t - a 7 ,r çÕes n o r m a l m e n t e e f e t u a d a s p e l o s s i s t e m a s d e e d i ç ã o d e t e x t o .

E s t a s o p ç õ e s d e v e r ã o s e r e s p e c i f i c a d a s i m e d i a t a m e n t e a p ó s o c a r -

t ã o * T , nome do a r q , p o i s c o n t e m a s a l t e r a ç õ e s a s e r e m e f e t u a d a s

no a r q u i v o . O c a r t ã o s e g u i n t e 2 s a l t e r a ç õ e s d e v e r á s e r um / * n a s

c o l u n a s 1 e 2 r e s p e c t i v a m e n t e .

D u r a n t e a f a s e d e i m p l e m e n t a ç ã o , l e v o u - s e em c o n s i d e r a - ç ã o a s i m p l i c i d a d e d o s comandos , d e modo a f a c i l i t a r a i n t e r a ç ã o

e n t r e o u s u á r i o e o s i s t e m a . P a r a i s s o f o r a m e s t a b e l e c i d a s mnemÔ - n i c o s d e um s ó c a r a c t e r p a r a a r e p r e s e n t a ç ã o d o s comandos d e e d i -

ç ã o r e l a c i o n a d o s a s e g u i r :

Comando

A p a g a r

E l i m i n a r

S u b s t i t u i r

L o c a l i z a r

D e l e t a r ( = r e m o v e r )

I n s e r i r

R e n u m e r a r R

O s comandos a n t e r i o r e s s ã o r e c o n h e c i d o s p o r comandos de

e d i ç ã o s e m p r e q u e v i e r e m p r e c e d i d o s do c a r a c t e r " / " n a l a . c o l u -

n a .

< C A D E I A 3 > : : = <CADEIAl><CADEIA><DELIMITADOR>

<NOMERO> : : = < D Í GITO> I < N O M E R ~ J > < D Í G I T O >

< T E X T O > : : = <NOMERO>-<NÚMERO> ,<NOMERO> , < N ~ M E R O >

< C A D E I A l > : := <DELIMITADOR><CADEIA><DELIMITADOR>

<CADEIA> : : = < C A R A C T E R > I <CADEIA><CARACTER>

< D E L I M I T A D O R > : : = I < ~ c I + I & I * I ) I = / : < D Í G I T O > : : = 0 1 1 1 2 1 3 1 4 1 5 1 6 1 7 1 8 1 9

<CARACTER> : : = ( C O N J U N T O DE C A R A C T E R E S E B C D I C >

< L E T R A > : : = A I B I C I D ] E I F ~ G ] H I I ] J I K I L I M I N ~ O I P I Q ~ R ~ S ~ T I U ~ V ~ W ] X ~

y l z

- O b s : A i m p r e s s ã o do c o n j u n t o d e c a r a c t e r e s E B C D I C é r e s t r i t a a

c a d e i a d e i m p r e s s ã o u t i l i z a d a p e l a i m p r e s s o r a , e p o r e s t e mo

t i v o nem t o d o s o s s I m b o l o s podem s e r i m p r e s s o s .

1. BLOCO DE REGISTROS

s ã o c o m b i n a ç õ e s d a s e s t r u t u r a s :

n - n k x + k

O c a r á t e r ' - ' i n d i c a q u e uma d e t e r m i n a d a o p e r a ç ã o s e r á d

e f e t u a d a a p a r t i r do r e g i s t r o nk a t e o r e g i s t r o nx+k . E s t a e s t r u - t u r a d e v e r á s e r p r e c e d i d a e s e g u i d a d e v I r g u l a ( , ) , s e m p r e em o r - dem c r e s c e n t e d o s n ú m e r o s d e r e g i s t r o s . E v e d a d a a u t i l i z a ç ã o d e

n - n - n . X Y Z

O c a r a c t e r ' , ' i n d i c a q u e uma d e t e r m i n a d a o p e r a ç ã o s e r á

e f e t u a d a a p e n a s n o s r e g i s t r o s n e n k x+k ' As o p e r a ç õ e s e f e t u a d a s p e l a m a i o r i a d o s comandos podem

s e r r e a l i z a d a s s o b r e d i v e r s a s c o m b i n a ç õ e s e n t r e s i d a s e s t r u t u r a s

1 1 . 4 e 1 1 . 5 , l i m i t a n d o - s e a p e n a s a o t amanho do c a r t ã o . A Ún ica ex -

c e ç ã o s e f a z a o comando r e n u m e r a r , c u j a e s t r u t u r a n - n k x+k o b e d e

c e a o f o r m a t o e s t a b e l e c i d o n a d e s c r i ç ã o d o mesmo.

E x e m p l o :

DxxxxD A

O t e x t o A s e r á a p a g a d o d o r e g i s t r o n a o n f 10 n o s r e -

g i i s t r o s n 1 6 ' n23 e d o n a o n

4 o 45 '

2. DELIMITADOR

Chama-se D e l i m i t a d o r (D) a um c a r a c t e r d o c o n j u n t o de-

t e r m i n a d o p o r :

Q u a l q u e r um d o s c a r a c t e r e s d o c o n j u n t o D p o d e r á s e r u-

t i l i z a d o n a e s t r u t u r a d o s comandos d e s d e q u e o b e d e ç a , a s s e g u i n -

t e s r e s t r i ç õ e s :

a - E n t r e c a d a t e x t o o c a r a c t e r u t i l i z a d o d e v e s e r o

mesmo. I s t o e q u i v a l e a d i z e r q u e p a r a a e x e c u ç ã o de

um comando, o d e l i m i t a d o r e s c o l h i d o d e v e s e r m a n t i - do s e m p r e e n t r e o s t e x t o s d a q u e l e comando.

b - O s c a r a c t e r e s &,<, X,#,@, : p o d e r ã o s e r u t i l i z a d o s co -

mo d e l i m i t a d o r e s , mas q u a n d o p r e s e n t e s em um t e x t o -

n a o s e r ã o i m p r e s s o s d e v i d o a r e s t r i ç õ e s d a c a d e i a

d e i m p r e s s ã o d a IBM-1403, i m p r e s s o r a u t i l i z a d a n o

c o m p u t a d o r IBM-1130 d i s p o n í v e l no ~ Ú c l e o d e Compu-

t a ç ã o d a UFPb.

3 . CARACTER ESPECIAL

Chama-se c a r a c t e r e s p e c i a l a um c a r a c t e r do c o n j u n t o ' (E ) d e t e r m i n a d o p o r :

$ - c a r a c t e r b r a n c o

Nenhum d o s e l e m e n t o s de E p o d e s e r u t i l i z a d o como d e l i - m i t a d o r n a s i n t a x e d e um comando.

2 . 2 . 2 . 4 - FORMATO D E CHAMADA DOS COMANDOS

Todos o s comandos d e v e r ã o s e r p e r f u r a d o s a p a r t i r d a

c o l u n a 1, l i m i t a n d o - s e à s 80 c o l u n a s c o r r e s p o n d e n t e s a um c a r t ã o .

S e um Ú n i c o c a r t ã o n ã o f o r s u f i c i e n t e p a r a c o n t e r o comando, e s -

t e p o d e r á s e r r e p e t i d o n o ( s ) c a r t ã o ( Õ e s ) s e g u i n t e ( s ) com o r e s t a n - t e d a s i n f o r m a ç õ e s . A l a . c o l u n a d e v e r á c o n t e r s e m p r e o c a r a c t e r

' I ' , s e g u i d o do mnemônico c o r r e s p o n d e n t e ao comando s o l i c i t a d o .

E s t e comando i n d i c a q u e o s t e x t o s e n t r e d e l i i m i t a d o ~ e s

s e r ã o a p a g a d o s a p a r t i r do r e g i s t r o n a t é o r e g i s t r o n .E p e r k x + k

m i t i d a a u t i l i z a ç ã o d e B l o c o s d e R e g i s t r o s .

/En DxxxxxxDn DxxxxxxD A

x + k

E s t e comando i n d i c a q u e t o d o o c o n t e ú d o e n t r e o t e x t o A

no r e g i s t r o n e o t e x t o B ( i n t e r v a l o f e c h a d o ) n o r e g i s t r o n k x + k

s e r á e l i m i n a d o . N ~ O é p e r m i t i d a a u t i l i z a ç ã o d e B l o c o s d e R e g i s -

t r o s .

O t e x t o A s e r á s u b s t i t u I d o p e l o t e x t o B em t o d a e s t r u -

t u r a d e t e r m i n a d a p e l o s b l o c o s d e r e g i s t r o . S e o t e x t o B f o r maior

d a q u e o t e x t o A , a p o n t o d e n ã o c a b e r n o mesmo r e g i s t r o , um no-

v o r e g i s t r o é i n c l u í d o , e o número do mesmo s e r á i g u a l a m é d i a - a

r i t m é t i c a e n t r e o s r e g a s t r o s a n t e r i o r e Se n ã o f o r p o s -

s z v e l i n s e r í - 1 0 d e v i d o a i n c o m p a t i b i l i d a d e n a n u m e r a ç ã o d o a r q u i - v o , o s i s t e m a e m i t e mensagem d e e r r o .

E s t e comando l o c a l i z a a s d i v e r s a s c a d e i a s e n t r e d e l i m i -

t a d o r e s , i n d i c a n d o o número do r e g i s t r o em q u e s e e n c o n t r a m . Ca-

s o a ( s ) m e s m a ( s ) n ã o s e j a ( m ) e n c o n t r a d a ( s ) , o s i s t e m a e n v i a men-

s a g e m a v i s a n d o q u e d e t e r m i n a d a ( s ) c a d e i a ( s ) n ã o f o i ( r a m ) l o c a l i -

z a d a ( ~ ) .

O o b j e t i v o d e s t e comando é f a z e r com q u e t o d o s o s r e -

g i s t r o s c o n t i d o s n a e s t r u t u r a d e b l o c o s e j a m r e m o v i d o s d o a r q u i -

v o F o n t e . C a s o a l g u m r e g i s t r o c o n t i d o n a e s t r u t u r a d e b l o c o s n ã o

e x i s t a n o a r q u i v o , o p r o g r a m a a c u s a t a l o c o r r ê n c i a e n ã o ) e f e t u a - a o p e r a ç a o .

6 . O C O M A N D O / I APRESENTA 2 MODALIDADES:

a - / I n ( 1 1 . 1 3 )

E s t e comando é r e s p o n s á v e l p e l a i n s e r ç ã o d e r e g i s t r o s

a d i c i o n a i s a o a r q u i v o .

O v a l o r n i n d i c a o número a p a r t i r do q u a l o s r e g i s t r o s

s e r ã o i n s e r i d o s com o i n c r e m e n t o p a d r ã o d e 1 0 0 . Logo a p ó s o co-

mando devem s e r c o l o c a d o s c a r t õ e s com o s r e g i s t r o s a s e r e m i n s e -

r i d o s . O f i n a l d o s r e g i s t r o s é r e c o n h e c i d o p o r um c a r t ã o com / * n a s c o l u n a s 1 e 2 .

E s t e comando é s e m e l h a n t e a e s t r u t u r a a n t e r i o r com a d i - f e r e n ç a d e q u e a n u m e r a ç ã o d o l? r e g i s t r o i n s e r i d o r e c e b e o v a -

l o r n . e o s d e m a i s s ã o i n c r e m e n t a d o s d e n . 1

Em ambos o s c a s o s ( 1 1 . 1 3 e 1 1 . 1 4 ) o s i s t e m a e m i t e men-

s a g e m d e e r r o c a s o a n u m e r a ç a o s e j a i n c o m p a t í v e l com a do a r q u i -

v o . O r e g i s t r o q u e p r o v o c o u t a l o c o r r ê n c i a n ã o é i n s e r i d o .

O comando / R r e n u m e r a r e g i s t r o s a p a r t i r d e n a t é a- k t i n g i r o r e g i s t r o n O r e g i s t r o n p a s s a r á a t e r o número d e r e

1 ' k - g i s t r o n ( o u número d e l i n h a ) e a p a r t i r d a í o s d e m a i s r e g i s t r o s i s e r ã o i n c r e m e n t a d o s d e n a t é q u e o r e g i s t r o n s e j a a t i n g i d o . C a

j 1 - - s o a n u m e r a ç a o s e t o r n e i n c o m p a t í v e l com a do a r q u i v o , o s i s t e m a

e m i t e mensagem d e e r r o . S e i s t o o c o r r e r , o r e g i s t r o q u e p r o v o c o u

t a l i n c o m p a t i b i l i d a d e n ã o é r e n u m e r a d o . O comando em q u e s t ã o s ó

a d m i t e a e s t r u t u r a d e b l ò c o n k-nl , o n d e n < n k 1'

2 . 2 . 2 . 5 - EXEMPLO DE UM PROCEDIMENTO DE CHAMADA PARAO EDITOR DE

TEXTO :

C o n s i d e r e o a r q u i v o f o n t e d e n o m i n a d o TESTE a s e r a l t e -

r a d o p e l o E d i t o r d e T e x t o a n t e s d a e m i s s ã o do r e l a t ó r i o no padrão

d e s a í d a s o l i c i t a d o .

c o l . 1 c o l . 11

/ / ~ J ~ B ~ @ A A ~ ~ ~ A A ~ ~ ~ A A ~ ~ ~ A A ~ .................. I n í c i o do p r o c e s s o

/ / M X E Q ~ E P R I N . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . Chama s i s t e m a EDI - PRINI

*T, TESTE . ... ... .. ... .. ... .... .. .. .,,...... .. Chama e d . t e x t o p a -

r a a l t e r a r o a r q .

TESTE

/A400-600,800,1000ZCOMPILADORZ .............. Apaga o t e x t o ' C O M - PILADOR' n o s r e g i s - t r o s d e 400 a 6 0 0 ,

n o r e g i s t r o 800 e

n o 1 0 0 0

.............................. /L+BRANCO+CEU+ L o c a l i z a o s t e x t o s

e n t r e ' + I no a r q u i -

/ 1 6 5 0 $ 1 0 .................................... I n s e r e r e g i s t r o s com

i n c r e m e n t o d e 1 0 em

10 a p a r t i r d o reg.

650

ABCDEFGH .................................... E q u i v a l e ao reg . ,650

I JKLMNOPQRSTU ............................... E q u i v a l e ao reg. 660

V X Z ......................................... E q u i v a l e ao reg . 670

/ * .......................................... Fim d e d a d o s

/D1100-1300 ................................. R e g i s t r o s entíre ,1100

e 1300 s e r ã o remo-

v i d o s do a r q u i v o ' TESTE

/S300=FORTRAN=COBOL'. ........................ Subs t i t u i no reg.300

FORTRAN p o r C O B O L

/ E ~ O O * C A R A C T E R * ~ O O O J ; V T R G U L A * ................ E l i m i n a t o d o o c o n - t eÚdo e n t r e c a r a c -

t e r ( r e g . 8 0 0 ) e v í r -

g u l a ( r e g . 1 0 0 0 )

/ * .......................................... Fim d e c o r r e ç õ e s

*I,TESTE .................................... I m p r i m e a r q u i v o

*R,TESTE .................................... Impr ime r e l a t ó r i o

no f o r m a t o s o l i c i -

t a d o

/ / .......................................... Fim d e p r o c e s s o

O EDIPRINT e m i t i r á m e n s a g e n s e x p l i c a t i v a s d e e r r o s c a -

s o e s t e s o c o r r a m n a s i n t a x e d o s comandos .

O E d i t o r d e R e l a t ó r i o p e r m i t e q u e o u s u á r i o o b t e n h a a

i m p r e s s ã o d e um t e x t o em um p a d r ã o d e s a í d a p r é - e s t a b e l e c i d o .

Os d a d o s g r a v a d o s i n i c i a l m e n t e n o a r q u i v o P o n t e ' ( em

f o r m a t o l i v r e ) d e v e r ã o c o n t e r t o d o s o s comandos n e c e s s á r i o s p a r a

a i m p r e s s ã o do t e x t o n o p a d r ã o d e s a í d a d e s e j a d o . Quando o u s u á -

r i o s o l i c i t a r o p r o c e d i m e n t o R a t r a v é s d o c a r t ã o *R,nome do arq. ,

o EDITOR d e R E L A T Ó R I O é chamado p a r a a n a l i s a r o s comandos d e e d i -

ç ã o c o n t i d o s n o s r e g i s t r o s d o a r q u i v o s o l i c i t a d o .

2 . 2 . 3 . 1 - COMANDOS DE E D I Ç Ã O

Os comandos d e e d i ç ã o f o r a m e s t a b e l e c i d o s s e g u n d o um pa -

d r ã o s i m p l e s , v i s a n d o f a c i l i t a r a s u a u t i l i z a G ã o p o r p a r t e d o s - u

s u á r i o s .

O f o r m a t o d o c a r t ã o d e e s p e c i f i c a ç ã o é o s e g u i n t e :

o n d e :

$ - c a r a c t e r e s p e c i a l q u e i n d i c a comando d e e d i ç ã o

XX - c a r a c t e r e s l i t e r a i s q u e i d e n t i f i c a m um comando d e

e d i ç ã o

n - a p r e s e n t a 4 e s p e c i f i c a ç Õ e s d i s t i n t a s :

l j - c a r a c t e r b r a n c o

X

X , Y

x , y , z , o n d e x , y , z r e p r e s e n t a m n ú m e r o s

2 . 2 . 3 . 2 - D E S C R I Ç Ã O DOS COMANDOS

1 - $ I R . . . . .- . $ F R

I R e FR i n d i c a m r e s p e c t i v a m e n t e i n í c i o e f i m d e r o d a p é .

O c o n t e ú d o e n t r e e s t e s 2 comandos s e r á i m p r e s s o n o f i n a l da pá -

g i n a , n o l o c a l d e t e r m i n a d o p a r a a i m p r e s s ã o do r o d a p é ( c o m a n - d o s d e c o n t r o l e - s e ç ã o 2 . 2 . 3 . 4 )

2 - $ I T x , y . . . . . . $FT

I T e FT i n d i c a m r e s p e c t i v a m e n t e i n z c i o e f i m d e t í t u l o .

O c o n t e ú d o e n t r e e s t e s 2 comandos s e r á i m p r e s s o no i n í c i o d e

c a d a p á g i n a , x l i n h a s a p ó s a i m p r e s s ã o d a n u m e r a ç ã o d a mesma,

a p a r t i r da margem e s q u e r d a d e t e r m i n a d a p o r y .

3 - $ P E . . . . . . $ R E

PE e RE i n d i c a m r e s p e c t i v a m e n t e p a r a d a d e e d i ç ã o e I r e i n í c i o

d e e d i ç ã o .

O c o n t e ú d o e n t r e o s 2 comandos s e r á i m p r e s s o e x a t a m e n t e como

s e e n c o n t r a n o t e x t o . Nenhum comando d e e d i ç ã o e x i s t e n t e en-

t r e e l e s s e r á a n a l i s a d o p e l o EDITOR d e R E L A T Ó R I O .

4 - $PLx

I n d i c a q u e s e r ã o s a l t a d a s x l i n h a s a p a r t i r d a l i n h a a t u a l im - p r e s s a .

5 - $ P I . . . . . . $RI

R I e R I i n d i c a m r e s p e c t i v a m e n t e p a r a d a d e i m p r e s s ã o e r e i n í -

c i o d e i m p r e s s ã o . Todo t e x t o c o n t i d o e n t r e e s t e s 2 comandos -

n a o s e r á i m p r e s s o .

6 - $NCx,y , z

E s t e comando i n d i c a q u e a s p r ó x i m a s x l i n h a s s e r ã o i m p r e s s a s

a p a r t i r d a c o l u n a y a t é a c o l u n a z do r e l a t ó r i o . Quando x=O

o comando r e d e f i n e a s m a r g e n s d i r e i t a e e s q u e r d a ( i t e m 4 - s e ç ã o

2 . 2 . 3 . 4 ) .

7 - $NPX

E s t e comando i n d i c a mudança de p a r á g r a f o a p a r t i r d a . c o l . u n a

x . Quando x n ã o v i e r e s p e c i f i c a d o o p a r á g r a f o c o n t i n u a i mes -

mo d e f i n i d o p e l o s i s t e m a ou p e l o u s u á r i o

8 - $ 1 0 . . . $FO

I 0 e FO i n d i c a m r e s p e c t i v a m e n t e i n í c i o e f i m d e " o v e r p r i n t " - ( i m p r e s s a 0 em n e g r i t o ) . O c o n t e ú d o e x i s t e n t e e n t r e o s 2 co-

mandos s e r á i m p r e s s o em n e g r i t o .

9 - $AP

E s t e comando i n d i c a q u e a l e t r a s e g u i n t e v i r á a c e n t u a d a ( a-

c e n t o g r a v e ou a g u d o ) .

10 - $CE

E s t e comando i n d i c a q u e a l e t r a C a s e g u i r s e r á i m p r e s s a com

c e d i l h a .

11 - $ 1 1 . $ F I

I1 e F I i n d i c a m r e s p e c t i v a m e n t e i n í c i o e f i m d e í n d i c e . 0 c o n - t e Ú d o e x i s t e n t e e n t r e o s 2 comandos c o n s t a r á a p e n a s n o í n d i -

c e p o r p á g i n a , n ã o s a i n d o n o t e x t o e d i t a d o . No f i n a l d a e d i -

ç ã o uma p á g i n a é s a l t a d a , p o r é m s e m s e r n u m e r a d a , e o í n d i c e

é i m p r e s s o .

12 - $IX . . . . . . $FX

I X e FX i n d i c a m r e s p e c t i v a m e n t e i n í c i o e f i m d e r e f e r ê n c i a ' c r u z a d a . T o d o c o n t e ú d o e x i s t e n t e e n t r e e s t e s 2 comandos c o n s

t a r á também n o í n d i c e d e p a l a v r a c h a v e , q u e s e r á i m p r e s s o n o - f i n a l d a e d i ç ã o do r e l a t ó r i o a p o s a m u d a n ç a d e p á g i n a , e em

ordem a l f a b é t i c a . A p á g i n a é n u m e r a d a , e c a d a l i n h a i m p r e s s a

d o " i d i c e é a c o m p a n h a d a d o número d a p á g i n a o n d e o t e x t o s e

e n c o n t r a .

1 3 - $BRx

E s t e comando p e r m i t e q u e s e j a m d e i x a d o s x e s p a ç o s em b r a n c o

a n t e s q u e a p r ó x i m a s e q u ê n c i a d e c a r a c t e r e s s e j a i m p r e s s a n a

1 i n h a .

14 - $MP

E s t e comando p e r m i t e q u e s e j a e f e t u a d a mudança d e p á g i n a .

2 . 2 . 3 . 3 - DADOS DE CONTROLE

E p o s s í v e l e s t a b e l e c e r p a r â m e t r o s n o EDIPRINT q u e p e r - maneçam c o n s t a n t e s d u r a n t e t o d a a f a s e d e e d i ç ã o d e um r e l a t ó -

r i o . T a i s p a r â m e t r o s , d e n o m i n a d o s d a d o s d e c o n t r o l e , q u a n d o f o r -

n e c i d o s s ó p o d e r ã o s e r m o d i f i c a d o s a t r a v é s d e comandos d e e d i -

ç ã o c o n t i d o s n o t e x t o . C a s o n ã o s e j a m f o r n e c i d o s i n i c i a l m e n t e , s e - r ã o a s s u m i d o s v a l o r e s p e l o s i s t e m a ( s e ç ã o 2 . 2 . 4 . 1 )

O f o r m a t o d e t a i s c a r t õ e s d e c o n t r o l e é dado p e l a e s p e - c i f i c a ç ã o ( 1 1 . 1 7 ) a s e g u i r :

n : Número c o r r e s p o n d e n t e a e n t r a d a do c a r t ã o d e

c o n t r o l e , s e g u i d o d o c a r a c t e r I - ' .

n v a r i a d e 1 a 1 4 e é p e r f u r a d o a p a r t i r d a

c o l u n a 1. -

Os n ú m e r o s d e um sÕ c a r a c t e r ( d e 1 a 9 ) s a o

p e r f u r a d o s n a 2 a . c o l u n a , f i c a n d o a la.em bran - c o . Os d e m a i s ( 1 0 a 1 4 ) s ã o p e r f u r a d o s a p a r - t i r d a l a . c o l u n a .

n1 , n 2 , n 3 : V a l o r e s n u m é r i c o s q u e e s p e c i f i c a m os d a d o s de

c o n t r o l e .

Nem t o d o s o s c a r t õ e s d e c o n t r o l e n e c e s s i t a m

d o s 3 p a r â m e t r o s ( s e ç ã o 2 . 2 . 4 . 1 ) , v a r i a n d o ' c o n f o r m e a e s p e c i f i c a ç ã o d e c a d a um.

1- n 1

n d e t e r m i n a o numero d e c ó p i a s d o r e l a t ó r i o f i n a l d e 1

s a í d a .

2-n 1

n e s p e c i f i c a o número d e l i n h a s em b r a n c o e n t r e c a d a 1

l i n h a i m p r e s s a .

3-n1,n2,nt3 numera p á g i n a s em a l g a r i s m o s a r á b i c o s d e a c o r d o com o s

p a r â m e t r o s :

n l : número d a l i n h a o n d e o número d a p á g i m a s e r á i m p r e s -

n 2 : número d a c o l u n a o n d e o número d a p á g i n a s e r á i m -

p r e s s o .

n3 : d e t e r m i n a o número d a p á g i n a i n i c i a l a p a r t i r do qual - a n u m e r a ç a o i r á c o m e ç a r .

4-n n 1' 2

n e n d e t e r m i n a m o p o s i c i o n a m e n t o d a s m a r g e n s e s q u e r 1 2 -

d a e d i r e i t a r e s p e c t i v a m e n t e .

5 -n l n 2 d e t e r m i n a o p o s i c i o n a m e n t o d a i m p r e s s ã o do r o d a p é na li - n h a n e margem e s q u e r d a n a c o l u n a n 1 2 "

6-n n 1' 2 e s p e c i f i c a a i m p r e s s ã o d o r e l a t ó r i o s o m e n t e d a l i n h a n 1 a t é a l i n h a n E s t a o p ç ã o s ó é v á l i d a s e o u s u á r i o s o

2 ' - l i c i t a r c ó p i a em d i s c o d o r e l a t ó r i o e d i t a d o ( o p ç ã o 1 1 )

7-n 1 n1 d e t e r m i n a o número d e l i n h a s p o r p á g i n a .

8-n 1

n d e t e r m i n a a l i n h a t o p o , i s t o é, a l i n h a em q u e ser: 1

i m p r e s s a a p r i m e i - i a f r a s e do r e l a t ó r i o .

9 -n 1

n e s p e c i f i c a a c o l u n a c o r r e s p o n d e n t e a o p o n t o p a r á g r a 1 -

f o .

10 -n l S e n = O a s a í d a é f e i t a p e l a i m p r e s s o r a 1 4 0 3 . 1

S e n =1 a s a í d a é f e i t a p e l a c o n s o l e . 1

11-n 1 S e nl=O a s a í d a d o r e l a t ó r i o e d i t a d o n ã o é g r a v a d a em

d i s c o .

S e n =1 a s a í d a d o r e l a t ó r i o e d i t a d o é g r a v a d a em d i s - 1 c o .

12-n 1

S e n: =1 o í n d i c e é l i s t a d o no f i n a l d a e d i ç ã o . 1

S e nl=O o í n d i c e n ã o é l i s t a d o .

1 3 - n l S e n l = l o í n d i c e d e p a l a v r a c h a v e é l i s t a d o no f i n a l d a

e d i ç ã o .

S e n = O o í n d i c e d e p a l a v r a c h a v e n ã o é l i s t a d o . 1

14-n 1

S e n =1 n ã o h á s e p a r a ç ã o d e s í l a b a s n o r e l a t ó r i o f i n a l . 1

S e n = O h á s e p a r a ç ã o d e s í l a b a s no r e l a t ó r i o s e m p r e q u e 1

n e c e s s á r i o .

2 . 2 . 4 - NORMAS GERAIS PARA C O D I F I C A Ç Ã O DOS COMANDOS

O s comandos d e e d i ç ã o s ã o g r a v a d o s j u n t a m e n t e com t e x -

t o a s e r f o r m a t a d o d u r a n t e a f a s e d e c r i a ç ã o do a r q u i v o F o n t e .

EXEMPLO:

O COMPILADOR TRANSFORMA O PROGRAMA FONTE EM LINGUAGEM

D E M A Q U I N A . E S T A E A CHAMADA FASE DE C O M P I E A Ç Ã O .

S e d e s e j a r m o s q u e o t e x t o a n t e r i o r s e j a i m p r e s s o 2 l i-

n h a s a p a r t i r d a Ú l t i m a l i n h a i m p r e s s a , em n e g r i t o e em um p a r á -

g r a f o d i f e r e n t e do p a d r ã o , d e v e r e m o s e n t r a r com o s e g u i n t e tex to :

$PL2$NP20$IO O COMPILADOR TRANSFORMA O PROGRAMA FONTE

EM LINGUAGEM DE M$APAQUINA$FO . ESTA $ A P E .A CHAMADA FA

SE DE $IOCOMPILA$CECAO$FO.

O s e s p a ç o s em b r a n c o e x i s t e n t e s n o t e x t o n ã o s e r ã o c o n -

s e r v a d o s , a menos q u e s e j a m s o l i c i t a d o s a t r a v é s d o comando $BR.

2 . 2 . 4 . 1 - C O M A N D O DE CONTROLE

O s c a r t õ e s d e c o n t r o l e s e g u e m i m e d i a t a m e n t e o c a r t ã o d e

chamada d o EDITOR d e R E L A T Ó R I O a t r a v é s d o c a r t ã o *R,nome a r q . , ~

ma o rdem q u a l q u e r .

O u s u á r i o d e v e r á e s p e c i f i c a r a p e n a s o s c o n t r o l e s que de -

s e j a r , já q u e o EDIPRINT e s t a b e l e c e v a l o r e s a t o d o s o s i t e n s que

n ã o f o r e m f o r n e c i d o s .

O n ú m e r o máximo d e l i n h a s i m p r e s s a s em uma f o l h a d e r e -

l a t ó r i o é 6 0 , e c a d a l i n h a p e r m i t e a i m p r e s s ã o d e a t é no máximo

1 2 0 c a r a c t e r e s .

O s v a l o r e s e s t a b e l e c i d o s p e l o s i s t e m a q u a n d o os c a r t õ e s

d e c o n t r o l e c o r r e s p o n d e n t e s n ã o s ã o f o r n e c i d o s p e l o u s u á r i o a t e n - dem às e s p e c i f i c a ç Õ e s d e uma f o l h a i m p r e s s a n o f o r m a t o A4. Os v a - l o r e s s ã o r e l a c i o n a d o s a b a i x o :

1-1 (nenhuma o u t r a c ó p i a é e m i t i d a a l é m d o r e l a t ó r i o f i n a l )

2 -1 ( e s p a ç o s i m p l e s e n t r e uma l i n h a e o u t r a ) - 3 - 3 , 9 3 , 1 ( n u m e r a ç a o n a l i n h a 3 c o l u n a 9 3 , a p a r t i r d e 1 )

4 - 3 0 , 9 3 (margem e s q u e r d a n a c o l u n a 3 0 , d i r e i t a n a c o l u n a 9 3 )

5 - 4 2 , 3 0 ( r o d a p é i n i c i a n a l i n h a 42 , c o l u n a 3 0 )

( t o d o t e x t o é i m p r e s s o )

( n ú m e r o máximo d e l i n h a s p o r p á g i n a )

( t o p o d a p á g i n a n a l i n h a 5 )

( p a r á g r a f o n a c o l u n a 3 5 )

( s a z d a p e l a i m p r e s s o r a )

( a s a í d a do r e l a t ó r i o n ã o é g r a v a d a )

( o í n d i c e p o r p á g i n a n ã o é l i s t a d o )

( o z n d i c e p o r p a l a v r a c h a v e n ã o é l i s t a d o )

( s e p a r a s i l a b i a s s e m p r e q u e n e c e s s á r i o )

O s i s t e m a e m i t i r á m e n s a g e n s s e m p r e que o u s u á r i o come-

t e r q u a l q u e r um d o s s e g u i n t e s t i p o s d e i n c o r r e ç õ e s :

1. E r r o s d e S i n t a x e

a - n v a r i a d e 1 a 14 e d e v e s e r s e g u i d o do c a r a c t e r I - ' . Os nÚ:

m e r o s d e 1 s ó c a r a c t e r ( 1 a 9 ) s ã o p e r f u r a d o s a p a r t i r d a c o l u n a

2 , f i c a n d o a l a . em b r a n c o . Os d e m a i s ( d e 1 0 a 1 4 ) s ã o p e r f u r a d o s

a p a r t i r d a 2 a . c o l u n a .

b - N ~ O d e v e e x i s t i r b r a n c o s e n t r e o s c a r a c t e r e s q u e e s p e c i f i c a m

o s d a d o s no c a r t ã o d e c o n t r o l e .

d

c - S o m e n t e o c a r t ã o d e c o n t r o l e 3 p o s s u i 3 e s p e c i f i c a ç Õ e s nume-

r i c a s .

d - S o m e n t e o s c a r t õ e s d e c o n t r o l e 4 , 5 e 6 p o s s u e m 2 e s p e c i f i c a - -

ç o e s n u m é r i c a s .

e - Os c a r t õ e s d e c o n t r o l e de 7 a 14 p o s s u e m a p e n a s 1 e s p e c i f i c a - -

ç a o n u m é r i c a , s e n d o q u e d e 1 0 a 1 4 s ó podem t e r i n f o r m a ç õ e s O ou

2 . L i m i t e d e v a r i a ç ã o d e ~ a r â m e t r o s

a - O número máximo d e l i n h a s p e r m i t i d o p o r p á g i n a é 6 0 . S e u l -

t r a p a s s a r e s t e l i m i t e a t r a v é s d e c a r t õ e s d e c o n t r o l e o p r o g r a m a

a c u s a e r r o . S e i s t o o c o r r e r a t r a v é s d e um comando d e e d i ç ã o con-

t i d o no t e x t o , s a l t a o número d e l i n h a s n e c e s s á r i a s a t é c o m p l e t a r

o l i m i t e d e l i n h a s d e t e r m i n a d o p o r p á g i n a .

b - O l i m i t e máximo p e r m i t i d o p a r a margem e s q u e r d a é 120 . S e u l - t r a p a s s a r e s t e l i m i t e a t r a v é s d e c a r t õ e s d e c o n t r o l e o p r o g r a m a

a c u s a e r r o . S e i s t o o c o r r e r a t r a v é s d e comandos d e e d i ç ã o c o n t i - d o s n o t e x t o , l i m i t a a margem d i r e i t a p a r a 1 2 0 .

O l i m i t e mínimo p a r a a margem e s q u e r d a é 1, e o mesmo p r o c e d i m e n - t o a n t e r i o r é t omado : a o i n v é s d e 1 2 0 o v a l o r f i n a l é 1.

2 . 2 . 5 - PROCEDIMENTO DE I M P R E S S Ã O

E s t e p r o c e d i m e n t o , o b t i d o a p a r t i r d o c a r t ã o * I , nome

d o a r q u i v o , p e r m i t e a o u s u á r i o c e r t i f i c a r - s e d a e x a t i d ã o d a s i n -

f o r m a ç õ e s c o n t i d a s no a r q u i v o F o n t e . E s t e p r o c e d i m e n t o s e r

s o l i c i t a d o a p ó s a c r i a ç ã o d e um a r q u i v o ou q u a n d o a l t e r a ç õ e s f o -

r em e f e t u a d a s no mesmo a t r a v é s d o EDITOR d e TEXTO.

A i m p r e s s ã o do a r q u i v o d e v e r á f o r n e c e r a s s e g u i n t e s i n - f ormaçÕes :

- nome d o a r q u i v o

- número do r e g i s t r o em o rdem c r e s c e n t e

- c o n t e ú d o d o r e g i s t r o

C a s o o nome do a r q u i v o s o l i c i t a d o n ã o s e j a e n c o n t r a d o , d

o p r o g r a m a a c u s a r a e r r o .

O r e l a t ó r i o f i n a l p o d e r á s e r o b t i d o também a t r a v é s d e

um a r q u i v o a u x i l i a r d e n o m i n a d o "BACK-uP". T a l a r q u i v o é Ü n i c o p a -

r a t o d o s o s u s u á r i o s e s e r á m a n t i d o n o s i s t e m a a t é q u e , em o u t r o

p r o c e s s o , o mesmo s e j a s o l i c i t a d o p o r o u t r o u s u á r i o .

O o b j e t i v o d o "BACK-UP" é p e r m i t i r a e m i s s ã o d e c ó p i a s

s u c e s s i v a s d o r e l a t ó r i o f i n a l , s em q u e p a r a i s t o , o EDITOR d e RE - L A T Ó R I O p r e c i s e p r o c e s s a r o t e x t o a c a d a c ó p i a d e s e j a d a . E s S t a é a

r a z ã o p e l a q u a l t a l a r q u i v o n ã o d e v e s e r s o l i c i t a d o q u a n d o o u s u - 4

a r i o d e s e j a r a p e n a s uma c ó p i a d o t e x t o e d i t a d o .

O a r q u i v o g e r a l q u e a r m a z e n a o s a r q u i v o s F o n t e d e t o d o s

o s u s u á r i o s do s i s t e m a tem t a m a n h o l i m i t a d o . Quando e s t e p o n t o é

a t i n g i d o , o EDIPRINT e m i t e mensagem d e t a l o c o r r ê n c i a , e au toma-

t i c a m e n t e l i s t a o s nomes d e t o d o s o s a r q u i v o s F o n t e g r a v a d o s n o

s i s t e m a . Cabe a o u s u á r i o a t a r e f a d e d e t e r m i n a r o s que não são mais

u t i l i z a d o s e r e m o v ê - l o s do s i s t e m a a t r a v é s d o E d i t o r de Texto,com

o o b j e t i v o d e i n s e r i r o p r ó p r i o a r q u i v o n o s i s t e m a . I s t o é r e a l i - z a d o a t r a v é s d o comando D e l e t a r , q u e p e r m i t e r e m o v e r t o d o s o s r e -

g i s t r o s d o a r q u i v o .

I11 - DETALHAMENTO DO SISTEMA

3 . 1 - PROGRAMA SUPERVISOR EPRIN

O p r o g r a m a s u p e r v i s o r EPRIN t e m p o r o b j e t i v o a n a l i s a r

a s o p ç õ e s f o r n e c i d a s a t r a v é s do c a r t ã o *n,nome a r q . , . e d e s v i a r o

comando do s i s t e m a p a r a e x e c u t a r c a d a t a r e f a c o r r e s p o n d e n t e . Con -

f o r m e já f o i v i s t o a n t e r i o r m e n t e , p a r a n= T , R , C , I o s p r o c e d i m e n -

t o s s o l i c i t a d o s s ã o r e s p e c t i v a m e n t e : E d i t o r d e T e x t o , E d i t o r d e

~ e l a t ó r i o , c r i a ç ã o e I m p r e s s ã o do a r q u i v o . ( V i d e ~ p ê n d i c e 1 . 1 )

3 . 2 - C R I A Ç Ã O D O A R Q U I V O FONTE

A r q u i v o F o n t e é o r e s u l t a d o d a g r a v a ç ã o do c o n j u n t o d e

i n f o r m a ç õ e s f o r n e c i d a s a o s i s t e m a q u e e v e n t u a l m e n t e s e r - e

d i t a d o s e a s s i m o u s u á r i o o d e s e j a r . No p r o c e d i m e n t o d e c r i a ç ã o

o s d a d o s s ã o l i d o s e a u t o m a t i c a m e n t e g r a v a d o s em d i s c o , p a r a u t i - l i z a ç ã o p o s t e r i o r d o s p r o c e d i m e n t o s r e l a t i v o s a o E d i t o r de T e x t o ,

d e ~ e l a t ó r i o o u I m p r e s s ã o .

O p r o c e d i m e n t o d e c r i a ç ã o d o a r q u i v o F o n t e é i m p r e s c i n - d z v e l p a r a q u e q u a l q u e r um d o s p r o c e d i m e n t o s a n t e r i o r m e n t e c i t a -

d o s p o s s a m s e r e x e c u t a d o s . O a r q u i v o F o n t e r e c e b e um >nome f o r n e -

c i d o a t r a v é s d o c a r t ã o "C,nome a r q . , q u e d e v e r á s e r r e f e r e n c i a d o

s e m p r e q u e o a r q u i v o f o r i m p r e s s o o u e d i t a d o .

3 . 2 . 1 - ARQUIVOS UTILIZADOS

Denomina - se r e s e r v a t ó r i o d e n ó s a uma á r e a f i x a em d i s - co f o r m a d a d e r e g i s t r o s v a z i o s , a p a r t i r d o s q u a i s o s d i v e r s o s ar

q u i v o s F o n t e d o s u s u á r i o s s ã o f o r m a d o s . O r e s e r v a t ó r i o d e n Ó s , t a m - bém chamado d e e s p a ç o d i s p o n í v e l , é c o n s t i t u r d o d e r e g i s t r o s c o n

t e n d o 4 4 p a l a v r a s c a d a um.

I n i c i a l m e n t e o r e s e r v a t ó r i o d e n ó s a p r e s e n t a uma e s t r u -

t u r a d e l i s t a l i n e a r , o n d e c a d a n ó a p o n t a s e m p r e p a r a o e n d e r e ç o

d o r e g i s t r o s e g u i n t e , e o a l t i m o p a r a z e r o . E s t e p r o c e d i m e n t o é r e a

l i z a d o uma Ú n i c a v e z em t o d o o s i s t e m a . D I S P é o p o n t e i r o q u e i n d i - c a s e m p r e o 19 r e g i s t r o d i s p o n E v e 1 , d e n o m i n a d o topo do r e s e r v a t ó r i o .

Quando um r e g i s t r o é s o l i c i t a d o , o s i s t e m a f o r n e c e a q u e - l e c u j o e n d e r e ç o é a p o n t a d o p o r DISP. O p o n t e i r o p a s s a r á e n t ã o a

a p o n t a r o r e g i s t r o s e g u i n t e . P o r o u t r o l a d o , q u a n d o um r e g i s t r o

f o r r e m o v i d o d o a r q u i v o e l e s e r á d e v o l v i d o p a r a o r e s e r v a t Ó t i o , e

DISP p a s s a r á a a p o n t á - l o .

3 . 2 . 1 . 2 - A R Q U I V O FONTE

A r q u i v o F o n t e é t o d o a r q u i v o c r i a d o p e l o u s u á r i o com o

nome f o r n e c i d o a t r a v é s do c a r t ã o *C,nome a r q . , q u e d e v e r á s e r r e - f e r e n c i a d o s e m p r e q u e o u s u á r i o s o l i c i t a r o s p r o c e d i m e n t o s d e I m - p r e s s a o , E d i t o r d e T e x t o o u d e R e l a t ó r i o .

Os r e g i s t r o s q u e compõem o a r q u i v o F o n t e s ã o r e t i r a d o s

do r e s e r v a t ó r i o d e n ó s e e n c a d e a d o s em uma e s t r u t u r a de l i s t a c i r - c u l a r d u p l a m e n t e l i g a d a .

I n i c i a l m e n t e o 1 9 r e g i s t r o a p o n t a s e m p r e p a r a e l e mes-

mo, e 2 m e d i d a q u e n o v o s r e g i s t r o s s ã o i n s e r i d o s n o a r q u i v o , e s -

t e s v ã o s e n d o e n c a d e a d o s c i r c u l a r m e n t e n a l i s t a .

Cada r e g i s t r o é f o r m a d o d e 44 p a l a v r a s d i s t r i b u í d a s em

4 campos d i s t i n t o s :

campo 1: c o n s t i t u í d o d e 2 p a l a v r a s , e s t e campo a r m a z e -

n a a n u m e r a ç a o l ó g i c a d e c a d a r e g i s t r o , também

chamado d e número d e l i n h a . I n i c i a l m e n t e o a r - 4

q u i v o e c r i a d o com uma n u m e r a ç ã o p a d r ã o , a n d e

a d i f e r e n ç a e n t r e o número l ó g i c o d e um r e g i s - t r o e d e s e u r e g i s t r o a n t e r i o r é 1 0 0 .

campo 2 : c o n s t i t u i d o d e 1 p a l a v r a , i n d i c a o e n d e r e ç o db

p r ó x i m o r e g i s t r o n o a r q u i v o .

campo 3 : c o n s t i t u í d o d e 1 p a l a v r a , i n d i c a o e n d e r e ç o Q

r e g i s t r o a n t e r i o r n o a r q u i v o .

campo 4 : a s 40 p a l a v r a s r e s e r v a d a s p a r a e s t e campo a r -

mazenam o c o n t e ú d o d e um c a r t ã o ( 86 co l iunas )

com a s i n f o r m a ç õ e s i n s e r i d a s n o f o r m a t o A2 ( 2

c a r a c t e r e s p o r p a l a v r a ) . O t e x t o a q u i a r m a z e -

n a d o d e v e r á c o n t e r a s e s p e c i f i c a ç Õ e s dos coman -

d o s d e e d i ç ã o , c a s o o u s u á r i o d e s e j e u t i l i z a r

o E d i , t o r d e ~ e l a t ó r i o p a r a f o r m a t á - l o .

3 . 2 . 1 . 3 - TABELA DE ÍNDICES

A T a b e l a d e T n d i c e s t e m p o r o b j e t i v o o t i m i z a r o p r o c e s - s o d e b u s c a d e r e g i s t r o s n o a r q u i v o F o n t e , t o r n a n d o e s t a t a r e f a

m a i s r á p i d a e e f i c i e n t e .

A t a b e l a é c o n s t i t u í d a p o r r e g i s t r o s d e 44 p a l a v r a s - - r e t i r a d o s a p a r t i r do r e s e r v a t ó r i o d e n ó s - e d i s p o s t o s em uma

l i s t a c i r c u l a r d u p l a m e n t e l i g a d a . Cada r e g i s t r o é d i v i d i d o em 2

campos d i s t i n t o s :

campo 1: c o n s t i t u z d o p o r 2 p a l a v r a s , i n d i c a , r e s p e c t i -

v a m e n t e o e n d e r e ç o d o r e g i s t r o a n t e r i o r e s e -

g u i n t e n a t a b e l a .

campo 2 : a s 4 2 p a l a v r a s d e s t e campo s u b d i v i d e m - s e em1 14

subcampos d e 3 p a l a v r a s c a d a um, d i s t r i b u í d o s

d a s e g u i n t e f o r m a :

a l a . p a l a v r a c o n t e m o e n d e r e ç o do r e g i s t r o i m

a r q u i v o F o n t e , c u j o número d e l i n h a é f o r n e c i - d o p e l a s 2 p a l a v r a s s e g u i n t e s .

D u r a n t e a f a s e d e c r i a ç ã o do a r q u i v o F o n t e c a d a r e g i s -

t r o d a t a b e l a d e í n d i c e s é p r e e n c h i d a a t é o 1 0 9 s u b c a m p o . 0 ~ 4 Ú 1 - -

t i m o s f i c a m s e m p r e v a z i a s , r e s e r v a d o s p a r a f u t u r a s i n s e r ç o e s d e

r e g i s t r o s no a r q u i v o F o n t e . I n i c i a l m e n t e , o 1 9 r e g i s t r o d a t a b e -

l a c o n t e m o s n ú m e r o s d e l i n h a q u e v a r i a m e n t r e 1 0 0 e 1 0 0 0 , o 2 9

e n t r e 1 1 0 0 e 2 0 0 0 , e t c .

3 . 2 . 1 . 4 - D E R E . T Ó R I O DE ARQUIVOS

O o b j e t i v o d o D i r e t ó r i o é r e l a c i o n a r o s nomes d o s a r q u i -

v o s F o n t e g r a v a d o s n o s i s t e m a . C a d a r e g i s t r o é c o n s t i t u 2 d o d e 2

campos num t o t a l d e 5 p a l a v r a s .

campo 1: c o n s t i t u í d o d e 1 p a l a v r a , a p o n t a o e n d e r e ç o do

r e g i s t r o i n i c i a l d a t a b e l a d e í n d i c e s c o r r e s -

p o n d e n t e ao a r q u i v o F o n t e s o l i c i t a d o .

campo 2 : c o n s t i t u í d o d e 4 p a l a v r a s , c o n t e m o nome do a r - q u i v o F o n t e g r a v a d o n o f o r m a t o A2 ( 2 c a r a c t e -

r e s p o r p a l a v r a ) .

O ~ i r e t ó r i o d e a r q u i v o s é g r a v a d o numa á r e a s e p a r a d a em

d i s c d , e o m é t o d o d e p r o c u r a u t i l i z a d o e s e q u e n c i a l . ~ p Ó s a g r a - a

v a ç ã o d e um r e g i s t r o ris d l i r e t ó r i o , o r e g i s t r o s e g u i n t e e , zera ldo

p a r a i n d i c a r o p r ó x i m o r e g i s t r o d i s p o n í v e l .

O l ? r e g i s t r o d o a r q u i v o é u t i l i z a d o p a r a c o n t e r o en-

d e r e ç o d o l ? r e g i s t r o d i s p o n í v e l do r e s e r v a t ó r i o d e n ó s . Sempre

q u e um r e g i s t r o é s o l i c i t a d o o u d e v o l v i d o a o r e s e r v a t ó r i o e s t e cam - p o é a t u a l i z a d o .

3 . 2 . 2 - D E S C R I Ç Ã O DOS PROCEDIMENTOS DE C R I A Ç Ã O DO ARQUIVO FONTE

Quando a o p ç ã o *C,nome a r q . é r e c o n h e c i d a p e l o s i s t e m a ,

o p r o g r a m a s u p e r v i s o r EPRIN ( ~ ~ ê n d i c e 1 . 1 ) d e s v i a o comando p a r a

a r o t i n a r e s p o n s á v e l p e l a c r i a ç ã o d o a r q u i v o F o n t e . C R I A ( k p ê n d i - c e 1 . 2 ) é a r o t i n a c a p a z d e e f e t u a r e s t e p r o c e s s o . A c a d a p a s s o

1; um c a r t ã o com a s i n f o r m a ç õ e s a s e r e m i n s e r i d a s , r e t i r a n ó d o

r e s e r v a t ó r i o e chama a r o t i n a I N C L U ( ~ ~ ê n d i c e 1 . 3 ) q u e e f e t u a a

i n c l u s ã o d o r e g i s t r o n o a r q u i v o F o n t e e g r a v a o e n d e r e ç o e nÚme-

r o d a l i n h a c o r r e s p o n d e n t e no t a b e l a d e í n d i c e s . Quando o 1 9 s u b

campo é p r e e n c h i d o , um o u t r o n ó d o r e s e r v a t ó r i o é r e t i r a d o , p a r a

a i n c l u s ã o d e um n o v o r e g i s t r o n a t a b e l a d e í n d i c e s . I n i c i a l m e n -

t e a n u m e r a ç ã o do a r q u i v o F o n t e é f e i t a d e 1 0 0 em 1 0 0 podendo s e r

a l t e r a d a p o s t e r i o r m e n t e a t r a v é s do EDITOR DE TEXTO. ~ p Ó s a í n c l u -

s ã o d e r e g i s t r o s , a r o t i n a INCLU e f e t u a o a j u s t e de p o n t e i r o s n o

a r q u i v o F o n t e e T a b e l a d e f n d i c e s , r e t o r n a n d o 2 r o t i n a C R I A q u e

r e a l i z a r á o mesmo p r o c e d i m e n t o p a r a o p r ó x i m o c a r t ã o l i d o .

3 . 3 - EDITOR DE TEXTO

T e n d o s i d o a n a l i s a d a a o p ç ã o *T,nome a r q . , o p r o g r a m a

s u p e r v i s o r EPRIN d e s v i a o comando d o s i s t e m a p a r a o EDITOR DE TEX - TO.

Denomina - se TEXTO ( ~ ~ z n d i c e 1 1 . 1 ) 2 r o t i n a p r i n c i p a l d o

- EDITOR DE TEXTO c u j o o b j e t i v o e a n a l i s a r o s comandos de e d i ç ã o so -

l i c i t a d o s ( s e ç ã o 2 . 2 . 2 . 4 ) e d e s v i a r o f l u x o do s i s t e m a p a r a as r o -

t i n a s c o r r e s p o n d e n t e s ( F I G . 1 1 1 . 1 )

3 . 3 . 1 . 1 - COMANDO APAGAR (/An-nx+RxxxxxD)

A r o t i n a APAGA ( ~ p ê n d i c e 1 1 . 2 ) tem p o r o b j e t i v o a p a g a r

o s t e x t o s e n t r e d e l i m i t a d o r e s n o s r e g i s t r o s c o n t i d o s n o s b l o c o s

d e r e g i s t r o s . A l a . e t a p a do p r o c e d i m e n t o é a e x e c u ç ã o d a s r o t i -

n a s BLOCO ( ~ p ê n d i c e 1 1 . 9 ) e STRIN ( ~ ~ ê n d i c e 1 1 . 1 0 ) r e s p o n s á v e i s

p e l a s e p a r a ç ã o d o s b l o c o s d e r e g i s t r o s e d o s t e x t o s e n t r e d e l i m i -

t a d o r e s r e s p e c t i v a m e n t e . A 2 a . e t a p a , e x e c u t a d a p e l a r o t i n a 1 C O M D 1

( ~ p ê n d i c e I I . l 3 ) , r e f e r e - s e a l o c a l i z a ç ã o d o s r e g i s t r o s o u nÚme-

r o s d e l i n h a , já s e p a r a d o s p o r BLOCO, a t r a v é s d a s r o t i n a s BUSCA

( ~ ~ ê n d i c e 1 1 . 1 1 ) e A C H A R ( ~ ~ ê n d i c e 1 1 . 1 2 ) . A l a . p r o c u r a o r e g i s -

t r o n a t a b e l a d e í n d i c e s o n d e o número d a l i n h a e s t á g r a v a d o . A

2 a . r o t i n a percor re os s u b c a m p o s d a q u e l e r e g i s t r o n a t a b e l a , a t é e n -

c o n t r a r o número d e s e j a d o , l o c a l i z a n d o o s e u e n d e r e ç o no a r q u i v o - F o n t e . F i n a l m e n t e , a 3 a . e t a p a r e f e r e - s e a r e m o ç a 0 d o ( s ) t e x t o ( s )

gaardado\ (s ) p o r STRIN, n o r e g i s t r o r e c é m e n c o n t r a d o . E s t a t a r e f a é

e x e c u t a d a p e l a r o t i n a CLEAN ( ~ ~ ê n d i c e I I . 1 7 ) , c u j a f u n ç ã o é p e s -

q u i s a r o t e x t o no r e g i s t r o - r o t i n a TESTA ( ~ ~ ê n d i c e 1 1 . 1 9 ) - p r e

e n c h e n d o - o com b r a n c o s , e r e a r r u m a r o r e g i s t r o , i s t o é, d e s l o c a r

o c o n t e ú d o 2 d i r e i t a do t e x t o l o c a l i z a d o p a r a 2 e s q u e r d a , a p a r -

t i r d o p o n t o i n i c i a l d o mesmo.

3 . 3 . 1 . 2 - COMANDO ELIMINAR ( / E n k D x x x ~ ~ : ~ n p ~ ~ X ~ ~ D ) A x+kg

A r o t i n a ELIMI ( ~ ~ ê n d i c e 1 1 . 3 ) t e m p o r o b j e t i v o e l i m i -

n a r o c o n t e ú d o e x i s t e n t e e n t r e o s t e x t o s A e B a p a r t i r do r e g i s -

t r o n k a t é o n x + k ' I n i c i a l m e n t e a s r o t i n a s BLOCO e STRIN s ã o e x e -

c u t a d a s 2 v e z e s c o n s e c u t i v a m e n t e , com o o b j e t i v o d e s e p a r a r o r e -

g i s t r o n e o t e x t o A e o r e g i s t r o n k e o t e x t o B . ' A r o t i n a x+k

COMD3 ( ~ ~ ê n d i c e 1 1 . 1 5 ) é r e s p o n s á v e l p e l a r emosão d o s t e x t o s n o s

r e g i s t r o s . E s t a o p e r a ç ã o é e x e c u t a d a d a s e g u i n t e f o r m a : p r o c u r a o

r e g i s t r o n a t r a v é s d a s r o t i n a s ACHAR e BUSCA, l o c a l i z a n d o o t e x k - t o A n o mesmo. S e o r e g i s t r o n f o r i g u a l a o n p r o c u r a o t e x

x+k k ' -

Fonte i*'

Apagar --i_

. = Ed. Texto C correções -

substituir € E P R I N

4 Remover I Registros

I n s e r i r -[?

Renumerar -u FIG. IE. 1, FLUXOGRAMA GERAL DO E D I T O R DE T E X T O

t o B no mesmo r e g i s t r o , c o l o c a b r a n c o s no c o n t e ú d o e n t r e o s t e x -

t o s A e B , r e a r r u m a n d o - o d e m a n e i r a s e m e l h a n t e a o i t e m a n t e r i o r

( F I G . 111. 2 ) . S e n f o r d i f e r e n t e d e n p r o c u r a o t e x t o B n o x+k k 7 r e g i s t r o n e c o l o c a b r a n c o s n o r e g i s t r o n a p a r t i r do t l e x t o A

x+k k a t é o f i n a l do mesmo e no r e g i s t r o n a t é a t i n g i r o f i i n a l do

x+k t e x t o B . R e a r r u m a o s r e g i s t r o s n e n

k x + k ' e s e p o s s í v e l remove r e

g i s t r o s d e s n e c e s s á r i o s do a r q u i v o ( F I G . 111 - 3 e 1 1 1 . 4 ) .

3 . 3 . 1 . 3 - COMANDO DELETAR ( / D x ~ - x ~ + ~ )

A r o t i n a DELET ( ~ ~ ê n d i c e 1 1 1 . 4 ) é r e s p o n s á v e l p e l a r e -

moção d o s r e g i s t r o s a g r u p a d o s n o s b l o c o s d e r e g i s t r o s . A l a . e t a - p a do p r o c e d i m e n t o é a s e p a r a ç ã o d o s b l o c o s d e r e g i s t r o s a t r a v é s

d a r o t i n a BLOCO. A 2 a . e t a p a , e f e t u a d a p e l a r o t i n a APREG ( ~ ~ ê n d i - c e I I . 1 8 ) , t em p o r o b j e t i v o l o c a l i z a r c a d a r e g i s t r o ( r o t i n a s ACHAR

e BUSCA), e r e m o v ê - l o d o a r q u i v o F o n t e . P a r a c a d a r e g i s t r o remo-

v i d o um n ó é d e v o l v i d o a o r e s e r v a t ó r i o , e a e n t r a d a c o r r e s p o n d e n - t e à q u e l e r e g i s t r o n o t a b e l a d e í n d i c e s também é a p a g a d a . No c a -

s o d e um a r q u i v o i n t e i r o s e r r e m o v i d o do s i s t e m a , o s e u nome tam - bém d e i x a r á d e c o n s t a r n o d i r e t ó r i o d e a r q u i v o s .

3 . 3 . 1 . 4 - COMANDO INSERIR (TIPO 1: / l n i ; TIPO 2: / l n i $ n . ) J

A r o t i n a INSER ( ~ ~ ê n d i c e 1 1 . 5 ) tem p o r o b j e t i v o i n c l u i r

n o v o s r e g i s t r o s em um a r q u i v o j á e x i s t e n t e n o s i s t e m a . S e o co- - mando f o r d o t i p o 1, a n u m e r a ç a o e n t r e o s n o v o s r e g i s t r o s t 8 e r á um

i n c r e m e n t o d e 1 0 0 . S e f o r d o t i p o 2 , o i n c r e m e n t o s e r á d e n . A j

l a . e t a p a d o p r o c e d i m e n t o é a chamada d a r o t i n a BLOCO, q u e g u a r -

d a o s v a l o r e s n (TIPO 1 ) ou n i e n : (TIPO 2 ) . A i a . e t a p a r e f e - i :I - r e - s e a l o c a l i z a ç ã o d a p o s i ç ã o em q u e f i c a r á s i t u a d o o n ú m e r o d e

l i n h a n i n a t a b e l a d e í n d i c e s . E s t a o p e r a ç ã o , e f e t u a d a p e l a r o t i -

n a BUSCA ( ~ ~ ê n d i c e 1 1 . 1 1 ) p r o c u r a o e n d e r e ç o d a l a . e n t r a d a s u p e - r i o r a n . q u e c o r r e s p o n d e r á n o a r q u i v o F o n t e a o s e u p r ó x i m o r e -

1 , g i s t r o . A 3 a . e t a p a é a s o l i c i t a ç ã o d e n ó d o r e s e r v a t ó r i o p a r a a

i n c l u s ã o d a i n f o r m a ç ã o d e c a d a c a r t ã o l i d o a t r a v é s da r o t i r i a INCLU

já m e n c i o n a d a ( s e ç ã o 3 . 2 . 2 ) . A q u e l e s r e g i s t r o s c u j o s n f m e r o s d e - l i n h a s e t o r n e m i n c o m p a t í v e i s com a n u m e r a ç a o do a r q u i v o n ã o s e -

r ã o i n s d r l d o s .

............ X X X X X X X X .............. X x x x X X X x I

inicio 19 t e x t o final 2% t e x t o

FIG. IIL. 2 - COMANDO ELIMINAR: TEXTOS SITUADOS NO MESMO REGISTRO

J ~ X X X X X X X X X X X X - I Se A , AI. A' ocupará

inicio 19 t e x t o o lugar dt A e o r t g . 6 0 s t r6 eliminado

final 20 t e x t o

FIG, m. 3 - TEXTOS EM REGISTROS C O N S E C U T I V O S

X X X X X x x x x x x

início 12 t e x t o

I X X X X .............................. X X X X I 0 s r e g . 5 5 eliminados

X X X X ................................ x x x x

final 29 t e x t o

6 5

e 6 0 serão

X X X X X X

3 . 3 . 1 . 5 - COMANDO LOCALIZAR (/LDxxxxxDxxxxxD ...)

A r o t i n a LOCAL ( ~ ~ ê n d i c e 1 1 . 6 ) tem p o r o b j e t i v o l o c a l i - z a r n o a r q u i v o F o n t e o(s) t e x t o ( s ) e x i s t e n t e ( s ) no comando que e s - t á ( ã o ) e n t r e d e l i m i t a d o r e s . I n i c i a l m e n t e a r o t i n a STRIN é e x e c u -

t a d a p a r a s e p a r a r e g u a r d a r e s t e s t e x t o s , que s ã o em s e g u i d a com - p a r a d o s com c a d a r e g i s t r o l i d o d o a r q u i v o F o n t e . S e a lgum t e x t o

f o r l o c a l i z a d o , o s i s t e m a a p o n t a r á o t e x t o e o número do r e g i s -

t r o o n d e o mesmo f o i e n c o n t r a d o .

3 . 3 . 1 . 6 - C O M A N D O SUBSTITUIR ( / S n x - n ~ x x x x x D x x x x x D ) x+ A B

A r o t i n a SUBST ( ~ ~ e n d i c e 1 1 . 7 ) tem p o r o b j e t i v o s u b s t i - t u i r o t e x t o A p e l o t e x t o B em t o d o s os r e g i s t r o s c o n t i d o s n o s b l o - c o s d e r e g i s t r o s . A l a . e t a p a d o p r o c e d i m e n t o é a chamada d a s r o - t i n a s BLOCO e STRIN, q u e g u a r d a m o s n ú m e r o s d e l i n h a e t e x t o s A

e B r e s p e c t i v a m e n t e . A 2 a . e t a p a é r e a l i z a d a p e l a r o t i n a COMD2 (A - * ê n d i c e 1 1 . 1 4 ) , q u e é r e s p o n s á v e l p e l a s u b s t i t u i ç ã o d o s r e g i s t r o s

e s u b s t i t u i ç ã o d o s t e x t o s A p o r B n o s mesmos. rês s ã o o s c a s o s ~

c o n s i d e r a d o s p e l a r o t i n a :

1 - S e o t e x t o A f o r do mesmo t amanho q u e o t e x t o B (FIG. 1 1 1 . 5 ) :

A s u b s t i t u i ç ã o d o s t e x t o s é f e i t a em c a d a r e g i s t r o g u a r d a d o

p o r B L O C O , q u e é l o c a l i z a d o n o a r q u i v o FONTE a t r a v é s d a s r o - t i n a s ACHAR e BUSCA.

2 - S e o t e x t o A f o r m a i o r do q u e o t e x t o B ( F I G . 1 1 1 . 6 ) : d

O p r o c e d i m e n t o a n t e r i o r e e f e t u a d o , mas como e t a p a f i n a l o r e - g i s t r o é r e a r r u m a d o , d e s l o c a n d o - s e t o d o o t e x t o 2 d i r e i t a d e

A p a r a a s p o s i ç õ e s m a i s 2 e s q u e r d a , a p a r t i r do f i n a l d o t e x - t o B , p r e e n c h e n d o - s e com b r a n c o s a s p o s i ç õ e s q u e f i c a r a m va-

g a s .

3 - S e o t e x t o A f o r menor d o q u e o t e x t o B ( F I G . 1 1 1 . 7 ) :

A s u b s t i t u i ç ã o é f e i t a d e m a n e i r a s e m e l h a n t e a o s p r o c e d i m e n -

t o s a n t e r i o r e s , mas q u a n d o o mesmo r e g i s t r o n ã o é s u f i c i e n t e

p a r a c o n t e r t o d o o t e x t o B , o u q u a n d o , a p ó s a s u b s t i t u i ç ã o de

A p o r B o r e s t a n t e d o r e g i s t r o ( g u a r d a d o a n t e s d a s u b s t i t u i -

ç ã o ) a p a r t i r d e A n ã o c o u b e r t o d o n a q u e l a l i n h a , t o r n a - s e '

.......... ABCD. . . . . A E F G .. . . . . . . . . . ............ e . . . . . .

antes ( texto A ' BCD) depois (texto B = E F 6 1

FIG. JJI. 5 - TAMANHO TEXTO A = TAMANHO TEXTO B

antes (texto A: OBJETO) depois ( tekt0 B = FONTE )

FIG. R I . 6 - TAMARHO TEXTO A > TAMANHO TEXTO B

50 I...... Atravçs de um com~ i iado r c nccer rar io I --

antes ( t ex to A = e )

5 5 ma a l inguagem de a l to nivel em I i n g u o g

5 0 ..Atraves de u m compilador que t rans fo r ....

depois ( texto B - que transforma o linguagem

de a l t o nível em l inguagem de máqu ina e

6 0

FIG. E. 7, TAMANHO TEXTO A <TEXTO B : INCLUSÁO

DE NOVO REGISTRO

............ em de maquina, e necessario

n e c e s s á r i o a i n c l u s ã o d e m a i s um r e g i s t r o n o a r q u i v o F o n t e , q u e _ é

f e i t a a t r a v é s d a r o t i n a INSER j á m e n c i o n a d a a n t e r i o r m e n t e ( s e ç ã o

3 . 3 . 1 . 4 ) . O número d e s t e novo r e g i s t r o s e r á d a d o p e l a m é d i a a r i t - m é t i c a e n t r e o s r e g i s t r o s a n t e r i o r e p o s t e r i o r a o mesmo.

3 . 3 . 1 . 7 - C O M A N D O RENUMERAR ( / ~ n ~ - n ~ , n ~ , n . ) J

A r o t i n a RENUM ( ~ ~ ê n d i c e 1 1 . 8 ) t e m p o r o b j e t i v o renume - ra r o s r e g i s t r o s d e n a n l , p a s s a n d o n a r e c e b e r o v a l o r n e a

k k i p a r t i r d a í o s p r ó x i m o s r e g i s t r o s s ã o n u m e r a d o s com o a c r é s c i m o de

n a t é q u e o v a l o r n s e j a a t i n g i d o . j 1

I n i c i a l m e n t e a r o t i n a BLOCO é e x e c u t a d a a f i m d e g u a r -

d a r os n ú m e r o s d e l i n h a f o r n e c i d o s p e l o comando. A r o t i n a COMD4

( ~ ~ ê n d i c e 1 1 . 1 6 ) e s t a b e l e c e a n o v a n u m e r a ç ã o p a r a c a d a r e g i s t r o

l o c a l i z a d o ( r o t i n a s A C H A R e BUSCA), v e r i f i c a a c o m p a t i b i l i d a d e '

d e s t a n u m e r a ç ã o n o a r q u i v o - c a s o e s t a n ã o s e j a c o m p a t í v e l , a q u e - l e r e g i s t r o n ã o é r e n u m e r a d o - e a l t e r a a n u m e r a ç ã o do r e g i s t r o

também n a t a b e l a d e z n d i c e s .

3 . 4 - EDITOR DE R E L A T Ó R I O

3 . 4 . 1 - ARQUIVOS UTILIZADOS

3 . 4 . 1 . 1 - A R Q U I V O "BACK-uP"

Back-up é o nome d o a r q u i v o u t i l i z a d o p a r a c o n t e r a c; - p i a d o r e l a t ó r i o f o r m a t a d o , e pode s e r s o l i c i t a d o a t r a v é s d e c o -

mandos d e c o n t r o l e ( s e ç ã o 2 . 2 . 3 . 4 ) . d d

T a l a r q u i v o é u n i c o p a r a t o d o s os u s u á r i o s e s e r a man-

t i d o p o r t empo l i m i t a d o , a t é q u e um o u t r o u s u á r i o u t i l i z e o s i s -

t e m a p a r a e m i t i r um r e l a t ó r i o . O o b j e t i v o p r i n c i p a l d a c r i a ç ã o ' d e s t e a r q u i v o é p o s s i b i l i t a r a e d i ç ã o d e v á r i a s c ó p i a s s u c e s s i v a s

d o r e l a t ó r i o f i n a l , sem q u e p a r a i s t o o s i s t e m a t e n h a q u e s e r p r o - c e s s a d o n o v a m e n t e a c a d a c ó p i a .

a

C a d a r e g i s t r o e c o n s t i t u z d o d e 1 2 0 p a l a v r a s c o r r e s p o n -

d e n d o a um número máximo d e 2 r e g i s t r o s p o r s e t o r , e o m é t o d o d e *

a c e s s o a o a r q u i v o e s e q u e n c i a l .

3 . 4 . 1 . 2 - A R Q U I V O DE RODAPES

O a r q u i v o d e r o d a p é s t e m p o r o b j e t i v o r e u n i r o s r o d a p é s

c o r r e s p o n d e n t e s a c a d a p á g i n a - a t r a v é s d o s comandos $ I R e $FR - - e a o f i n a l d a s mesmas i m p r i m í - 1 0 s n a l i n h a e s p e c i f i c a d a p e l o ' s i s t e m a ou p e l o s c a r t õ e s d e c o n t r o l e ( s e ç ã o 2 . 2 . 3 . 4 ) . E s t e a r q u i - v o é Ú n i c o p a r a t o d o s o s u s u á r i o s , e é d e s t r u z d o s e m p r e a p ó s a ' i m p r e s s ã o d e a l g u m r o d a p é . Cada r e g i s t r o é c o n s t i t u í d o d e 1 2 0 p a - l a v r a s c o r r e s p o n d e n d o a um n ú m e r o máximo d e 2 r e g i s t r o s p o r s e - - t o r . O m é t o d o d e a c e s s o a o a r q u i v o e s e q u e n c i a l .

3 . 4 . 1 . 3 - A R Q U I V O D E ÍNDICES

O u s u á r i o o r g a n i z a r um I n d i c e p o r p á g i n a s e u t i -

l i z a r o comando $ 1 1 i n c l u í d o n o t e x t o q u e f a r á p a r t e d a q u e l e I n -

d i c e . Todo c o n t e ú d o e x i s t e n t e e n t r e $ 1 1 e $ F I s e r á g r a v a d o em uma a

a r e a em d i s c o d e n o m i n a d o a r q u i v o d e í n d i c e s , q u e s ó p o d e r á s e r i m - - p r e s s o no f i n a l d a f o r m a t a ç ã o d o r e l a t ó r i o . O a r q u i v o e u n i c o p a -

r a t o d o s o s u s u á r i o s , e s e r á m a n t i d o no s i s t e m a a t é q u e o u t r o u-

s u á r i o u t i l i z e o E d i t o r d e ~ e l a t ó r i o . Cada r e g i s t r o d o a r q u i v o é

c o n s t i t u y d o d e 120 p a l a v r a s , c o r r e s p o n d e n d o a um número máximo d e

2 r e g i s t r o s p o r s e t o r . O m é t o d o d e a c e s s o a o a r q u i v o é s e q u e n c i a l .

O s i s t e m a p e r m i t e a o u s u á r i o a e l a b o r a ç ã o d e um í n d i c e

d e p a l a v r a s c h a v e s também d e n o m i n a d o r e f e r ê n c i a c r u z a d a , q u e é i m -

p r e s s o em o rdem a l f a b é t i c a a p ó s a i m p r e s s ã o d o r e l a t ó r i o no f o r -

m a t o f i n a l . Toda a i n f o r m a ç ã o e x i s t e n t e e n t r e o comando $IX e $ F X

e g r a v a d a n e s t e a r q u i v o , j u n t a m e n t e com o n ú m e r o d a p á g i n a emque - s e e n c o n t r a . O a r q u i v o é Ú n i c o p a r a t o d o s o s u s u á r i o s , e e d e s -

t r u z d o s e m p r e q u e o E d i t o r d e R e l a t ó r i o f o r u t i l i z a d o . Cada r e -

g i s t r o c o n s t i t u í d o d e 1 2 0 p a l a v r a s , c o r r e s p o n d e n d o a um n ú m e r o

máximo d e 2 r e g i s t r o s p o r s e t o r . O m é t o d o d e a c e s s o ao a r q u i v o é

d i r e t o .

3 . 4 . 2 - D E S C R I Ç Ã O DOS PROCEDIMENTOS UTILIZADOS

A chamada p a r a o EDITOR DE R E L A T Ó R I O é f e i t a a t r a v é s do

c a r t ã o nome a r q . , a n a l i s a d o p e l o p r o g r a m a s u p e r v i s o r EPRIN. ' Quando a o p ç ã o R é s o l i c i t a d a , a r o t i n a RELAT ( A p ê n d i c e 1 I I . l ) a s - sume o c o n t r o l e do s i s t e m a . E l a tem p o r o b j e t i v o c r i t i c a r e g u a r - d a r a s i n f o r m a ç õ e s c o n t i d a s n o s c a r t õ e s d e c o n t r o l e q u e devem s e -

g u i r i m e d i a t a m e n t e o c a r t ã o ' *R,nome a r q . . A p a r t i r d a í t e m i n í -

c i o a f o r m a t a ç ã o do t e x t o a t r a v é s d a a n á l i s e d a s i n f o r m a ç õ e s c o n - t i d a s em c a d a r e g i s t r o do a r q u i v o F o n t e ( r o t i n a PESQ - ~ ~ ê r i d i c e

1 1 1 . 2 ) . Ao a t i n g i r o f i n a l d e r e g i s t r o , t o d o o c o n t e ú d o a p a r -

t i r d a l a . p o s i ç ã o do r e g i s t r o o u a p a r t i r do Ú l t i m o comando a - a

c h a d o s ã o j o g a d a s p a r a uma á r e a a u x i l i a r d e 1 2 0 - nume-

r o máximo d e c a r a c t e r e s p e r m i t i d o s em uma l i n h a d e i m p r e s s ã o p a -

r a i m p r e s s ã o p o s t e r i o r - e é f e i t a a a n á l i s e do r e g i s t r o . a

S e m p r e q u e um " $ " e r e c o n h e c i d o no t e x t o , a s p o s i g Õ e s

a n t e r i o r e s a p a r t i r d o Ú l t i m o comando e n c o n t r a d o também s ã o j o g a - d a s p a r a a mesma á r e a a u x i l i a r , e a r o t i n a ROUT ( A p ê n d i c e 1 1 1 . 3 )

a s s u m e o c o n t r o l e d o s i s t e m a com o o b j e t i v o d e r e c o n h e c e r o p o s -

s í v e l ( à s v e z e s o "$" p o d e s e r a p e n a s um c a r a c t e r s o l t o n o t e x t o )

comando d e e d i ç ã o c o r r e s p o n d e n t e à q u e l e "$" e n c o n t r a d 0 . A FIG.111.

8) a p r e s e n t a um e s q u e m a c o n t e n d o t o d a s a s f a c i l i d a d e s d o EDITOR

DE RELATÓRIO. P a r a c a d a comando d e e d i ç ã o um p r o c e d i m e n t o d i f e - - r e n t e é e x e c u t a d o , a s v e z e s a t r a v é s d e r o t i n a s e s p e c í f i c a s - PULA

( ~ ~ ê n d i c e 1 1 1 . 4 ) no c a s o d o comando $PLx s e r r e c o n h e c i d o ; B M N C

( A p ê n d i c e I I I . 5 ) , s e o comando f o r $BRx; COLUM ( A p ê n d i c e I I I . ~ ) ,

s e o comando f o r $NCxyyy z ; TITLE ( A p ê n d i c e 1 1 1 . 7 ) ~ s e o comando

f o r $ I T x , y , z ; NEWP ( A p ê n d i c e I I I . 8 ) , s e o comando f o r $NP ( ou ' $NPx) ; PAGE ( A p ê n d i c e I I I . 9 ) , s e o comando f o r $MP - o u t r a s v e -

z e s n a p r ó p r i a r o t i n a ROUT, q u a n d o v a r i á v e i s ( o u c h a v e s ) r e c e b e m

v a l o r e s O o u 1 p a r a i n d i c a r q u e o s i s t e m a e s t á s o b d e t e r m i n a d o co - mando. Podemos c i t a r p o r e x e m p l o o c a s o d o s comandos $ C E ( c & d i -

l h a ) , $AP ( a c e n t u a ç ã o ) , $ 1 0 ( i n í c i o de " o v e r p r i n t " ) , $PE ( s u s p e n -

d e a e d i ç ã o ) , $ P I ( s u s p e n d e a i m p r e s s ã o ) , $11 ( i n T c i o d e í n d i c e ) ,

$IX ( i n z c i o d e r e f e r ê n c i a c r u z a d a ) , $ I R ( i n í c i o d e r o d a p ; ) , $ F I

( f i m d e í n d i c e ) , $FO ( f i m d e " o v e r p r i n t " ) , $FR ( f i m de r o d a p é ) , $FT ( f i m d e t í t u l o ) , $FX ( f i m d e r e f e r ê n c i a c r u z a d a ) , q u e s e en-

q u a d r a m n e s t a c a t e g o r i a .

A á r e a a u x i l i a r d e 1 2 0 p o s i ç õ e s c o n t e m t o d a s a s i n f o r - -

maçoes d o r e g i s t r o já p a d r o n i z a d a s n o f o r m a t o f i n a l d e e d i ç ã 0 . E ~ - t a l i n h a é i m p r e s s a s e m p r e q u e o l i m i t e máximo d a margem d i r e i t a

f o a a t i n g i d o , ou q u a n d o a l g u m d o s comandos $PLx, $NCx,y , z , $NPx,

$MP, $ I T x , y f o r r e c o n h e c i d o n o r e g i s t r o q u e e s t á s e n d o a n a l i s a d o .

P o r o c a s i ã o d a i m p r e s s ã o d a l i n h a , o s i s t e m a t e s t a s e e x i s t e con - d i ç õ e s p a r a h a v e r s e p a r a ç ã o d e s í l a b a s , e em c a s o a f i r m a t i v o , e l e

v e r i f i c a s e o u s u á r i o s o l i c i t o u t a l p r o c e d i m e n t o , p o i s d o c o n t r á - r i o e s t a o p e r a ç ã o n ã o é r e a l i z a d a .

Ao f i n a l d e c a d a p á g i n a o s i s t e m a t e s t a s e n e l a e x i s t e

a l g u m r o d a p é . Em c a s o p o s i t i v o o mesmo é i m p r e s s o a n t e s q u e s e j a

e f e t u a d a a m u d a n ç a d e p á g i n a . Quando i s t o o c o r r e a n o v a p á g i n a é n u m e r a d a , e s e h o u v e p r e s e n ç a d e t í t u l o s , e s t e s s ã o i m p r e s s o s an - t e s q u e a l a . l i n h a d a p á g i n a s e j a i m p r e s s a .

F e i t a a a n á l i s e do Ú l t i m o r e g i s t r o do a r q u i v o F o n t e , o

s i s t e m a e n t r a n a s u a f a s e f i n a l d e e d i ç ã o (TERMO - ~ ~ ê n d i c e 111.

1 0 ) , a t r a v é s d a i m p r e s s ã o do í n d i c e p o r p á g i n a e do I n d i c e d e p a - l a v r a c h a v e (em ordem a l f a b é t i c a ) , c a s o o u s u á r i o o s t e n h a s o l i -

c i t a d o . A i m p r e s s ã o d e c ó p i a s s u c e s s i v a s d o t e x t o f o r m a t a d o tam-

bém é f e i t a n e s t a o c a s i ã o .

E s t e p r o c e d i m e n t o , s o l i c i t a d o a t r a v é s do c a r t ã o * I , n o -

me a r q . , p e r m i t e q u e a r o t i n a IMPR ( ~ ~ ê n d i c e I V . l ) a s s u m a o coman - d o do s i s t e m a , com o o b j e t i v o d e i m p r i m i r o c o n t e ú d o do a r q h i v o

F o n t e s e q u e n c i a l m e n t e em o r d e m c r e s c e n t e p o r n ú m e r o d e l i n h a .

(3 Fonte

F1G.m. 8 - FLUXOGRAMA GERAL D O

EDITOR DE R E L A T ~ R I O

+ EPRIN

Suspende

S a l t a -4-1

* b

Impressão parcial

~d.~elatÓrio

L Impressao

N egr ito

lnbice por - I P a ~ l n a / I I re f . cruz. I

I sa l ta 1 Espaços

em Branco

Mudança

pagina

IV - IMPLEMENTAÇÃO DO SISTEMA

O EDIPRINT f o i d e s e n v o l v i d o n o ~ Ú c l e o d e P r o c e s s a m e n t o

d e Dados - NPD - d a UFPb, c u j o e q u i p a m e n t o d i s p o n í v e l e s t á c o n s - t i t u í d o d e um c o m p u t a d o r IBM-1130, com uma c o n f i g u r a ç ã o d e 1 6 k p a -

l a v r a s d e m e m ó r i a , a s s o c i a d o a uma c o n s o l e , u n i d a d e d e e n t r a d a

q u e s e r v e como l e i t o r a e p e r f u r a d o r a d e c a r t õ e s m o d e l o 1 4 4 2 , d u a s

i m p r e s s o r a s m o d e l o s 1 4 0 3 e 1 1 3 2 e uma u n i d a d e d e d i s c o modelo,2311.

Das l i n g u a g e n s d e p r o g r a m a ç ã o d i s p o n ? v e i s n o IBM-1130 - COBOL (des -

t i n a d o a a p l i c a ç ã o c o m e r c i a l ) , FORTRAN ( s u b c o n j u n t o d o FORTRAN ' IV) e ASSEMBLER - o FORTRAN f o i a l i n g u a g e m e s c o l h i d a p a r a a i m -

p l e m e n t a ç ã o do s i s t e m a , d e v i d o 2s f a c i l i d a d e s q u e a p r e s e n t a uma

l i n g u a g e m d e a l t o n í v e l ( r a p i d e z d e p r o g r a m a ç ã o , menor i n t e r a ç ã o

do u s u á r i o com a m á q u i n a ) d i r i g i d a a o u s o c i e n t í f i c o , em r e l a ç ã o

a o ASSEMBLER, l i n g u a g e m c o n s i d e r a d a d e b a i x o n í v e l . A p e s a r d a u- - t i l i z a ç ã o d o ASSEMBLER t o r n a r a e x e c u ç a o do s i s t e m a m a i s r á p i d a ,

a t o r n a r i a b a s t a n t e d e p e n d e n t e d a m á q u i n a , a e l a b o r a ç ã o e d e p u r a - ç ã o d o s p r o g r a m a s s e t o r n a r i a m a i s l e n t a , r e q u e r e n d o um vo lume ' a i n d a bem m a i o r do q u e o a t u a l , a p r o x i m a d a m e n t e 5 0 0 0 c a r t õ e s .

A m a i o r d i f i c u l d a d e e n c o n t r a d a d u r a n t e a f a s e f i n a l d e

i m p l e m e n t a ç ã o do EDIPRINT f o i com r e l a ç ã o a c a p a c i d a d e de memória, -

q u e n a o e r a s u f i c i e n t e p a r a c o n t e r t o d o o s i s t e m a . E m c o n s e q u ê n -

c i a d i s t o , o EDIPRINT t e v e d e s o f r e r v á r i a s e s o m e n t e

a t r a v é s d e e n c a d e a m e n t o s d e p r o g r a m a s f o i p o s s í v e l e x e c u t a r com A

e x i t o t o d a s a s e t a p a s d o s i s t e m a . O EDIPRINT e s t á d i v i d i d o em 6

m ó d u l o s ( p a r t i ç õ e s ) - EPRIN, TEXTO, RELAT, IMPR, PESQ, TERMO - i n - t e r l i g a d o s a o s i s t e m a a t r a v é s d a e s t r u t u r a d e LINK d a s e g u i n t e ma - n e i r a :

EPRIN: 4800 p a l a v r a s

Tem p o r o b j e t i v o r e c o n h e c e r a o p ç ã o f o r n e c i d a p e l o u s u - á r i o a t r a v é s do c a r t ã o *n,nome a r q . e d e s v i a r o coman-

do d o s i s t e m a p a r a o b l o c o c o r r e s p o n d e n t e à q u e l e p r o c e - d i m e n t o . Chama o s m ó d u l o s : TEXTO, RELAT e IMPR.

TEXTO: 1 1 2 0 0 p a l a v r a s

Tem p o r o b j e t i v o a n a l i s a r o s c a r t õ e s c o n t e n d o o s coman -

d o s d e e d i ç ã o d e t e x t o e c h a m a r a r o t i n a especifica a

c a d a comando.

RE LAT : 4100 p a l a v r a s .

Tem p o r o b j e t i v o a n a l i s a r e g u a r d a r a s i n f o r m a ç õ e s f o r -

n e c i d a s a t r a v é s d o s c a r t õ e s d e c o n t r o l e . Chama o módu-

10 PESQ.

IMPR: 3500 p a l a v r a s .

Tem p o r o b j e t i v o i m p r i m i r o número d e l i n h a e o t e x t o

c o r r e s p o n d e n t e do a r q u i v o F o n t e .

PESQ: 1 6 3 0 0 p a l a v r a s .

Tem p o r o b j e t i v o a f o r m a t a r o t e x t o a t r a v é s d a a n á l i s e

do a r q u i v o F o n t e , v e r i f i c a n d o a c a d a p o s i ç ã o d o r e g i s -

t r o a p r e s e n ç a d e a l g u m $ - c a r a c t e r í s t i c a d e um coman - do d e f o r m a t a ç ã o d e t e x t o . Chama o módu lo T E R M O .

TERMO : 9900 p a l a v r a s .

Tem p o r o b j e t i v o f i n a l i z a r a f o r m a t a ç ã o do t e x t o a t r a -

v é s d a i m p r e s s ã o d o í n d i c e p o r p á g i n a e d e r e f e r ê n c i a

c r u z a d a .

D e v i d o a o s p o u c o s r e c u r s o s q u e a l i n g u a g e m FORTRAN a-

p r e s e n t a p a r a p r o c e s s a m e n t o d e c a d e i a s em c o m p a r a ç ã o a l i n g u a g e n s

t a i s como o P L / 1 e AIGOL, a l g u n s t r e c h o s d e a l g o r i t m o s , q u e n e s -

t a s l i n g u a g e n s s e r i a m e x e c u t a d a s com n o máximo 2 comandos , p r e c i - s a r a m com o FORTRAN, de m a i s comandos p a r a e x e c u t a r o mesmo p r o -

c e d i m e n t o . I s t o f e z com q u e o s i s t e m a f i c a s s e bem e x t e n s o . A l g u n s

t r e c h o s d e p r o g r a m a s f o r a m s i m p l i f i c a d o s com a u t i l i z a ç ã o d e pa-

c o t e s d e s u b r o t i n a s d e n o m i n a d a s CSP - C o m m e r c i a l Subxoutine Package

- d e s e n v o l v i d a s p e l a I B M .

O EDIPRINT f o i i m p l e m e n t a d o em a p r o x i m a d a m e n t e 9 meses.

Dos 5 d i s c o s d i s p o n í v e i s , a p e n a s 3 f o r a m u t i l i z a d o s : o 1 9 c o n t e m

o m o n i t o r e t o d a s as r o t i n a s d o s i s t e m a , a p r o x i m a d a m e n t e 6 0 . O 29 * e r e s e r v a d o p a r a a g r a v a ç ã o d e t o d o s o s a r q u i v o s F o n t e d o s u s u á -

r i o s e o 3 9 c o n t e m o s a r q u i v o s a u x i l i a r e s : "back -up" , r o d a p é s , r e -r f e r ê n c i a c r u z a d a , i n d i c e s e d i r e t ó r i o d e a r q u i v o s . O 49 e 5 0 s ã o

,.. r e s e r v a d o s p a r a f u t u r a s e x p a n s o e s do s i s t e m a .

A chamada p a r a o s i s t e m a é f e i t a a t r a v é s do p rog rama s u - p e r v i s o r EPRIN, q u e e s t á g r a v a d o em imagem d e m e m ó r i a (STORECI). - A g r a n d e v a n t a g e m d e s t e p r o c e d i m e n t o é a r a p i d e z com q u e Q l e e

t r a z i d o p a r a a m e m ó r i a n o momento em q u e o u s u á r i o e n t r a com o

c a r t ã o / / XEQ EPRIN. A t r a n s f o r m a ç ã o do p r o g r a m a p a r a a imagem ' d e memór ia é f e i t a uma Ú n i c a v e z d u r a n t e a f a s e d e mon tagem,e a s

s i m g u a r d a d o n o momento d a g r a v a ç ã o do p r o g r a m a .

A á r e a r e s e r v a d a p a r a a g r a v a ç ã o d o s a r q u i v o s F o n t e d e 4

t o d o s o s u s u á r i o s , também d e n o m i n a d o r e s e r v a t ó r i o d e n ó s , e mon-

t a d a uma Ú n i c a v e z em t o d o o s i s t e m a . N e s t a e t a p a , t o d o s o s r e -

g i s t r o s ( o u n ó s ) s ã o d i s p o s t o s em uma e s t r u t u r a d e l i s t a l i n e a r -

m e n t e l i g a d a e é f e i t a também a i n i c i a l i z a ç ã o d o d i r e t ó r i o d e a r - q u i v o s .

O s i s t e m a p r e v ê a s i t u a ç ã o em q u e a t e c l a INTREQ d a c o n -

s o l e p o s s a s e r a p e r t a d a n o momento em q u e uma a t u a l i z a ç ã o e s t á

s e n d o p r o c e s s a d a p e l o E d i t o r d e T e x t o . A s r o t i n a s LOCK e UNLOCK

( ~ ~ ê n d i c e s 1 . 5 , 1 . 6 ) f o r a m c r i a d a s com o o b j e t i v o d e i m p e d i r q u e

o p r o g r a m a s e j a i n t e r r o m p i d o n e s t a o c a s i ã o . P o r o u t r o l a d o , h á p e -

r i g o d e um a r q u i v o s e r d e s t r u í d o n e s t a f a s e , em d e c o r r ê n c i a d a

f a l t a d e e n e r g i a . N e s t e c a s o , o r e s e r v a t ó r i o d e v e r á s e r r e i n i c i a - l i z a d o e o a r q u i v o F o n t e c r i a d o n o v a m e n t e . No c a p z t u l o V v o l t a r e - mos a a b o r d a r o p r o b l e m a d a s e g u r a n ç a do a r q u i v o F o n t e .

~ t é o momento o s s i s t e m a s d e s e n v o l v i d o s e i m p l e m e n t a -

d o s p a r a o IBM-1130, com a mesma c o n f i g u r a ç ã o d e m e m ó r i a - 16K p a -

l a v r a s - s ã o s i s t e m a s d e E d i t o r e s d e T e x t o s 2 9 5 . E s t e s f o r a m tam-

bém i m p l e m e n t a d o s em c o m p u t a d o r e s m a i o r e s (IBM1360, 1370) e s a o

b a s t a n t e u t i l i z a d o s a t r a v é s d e s i s t e m a s ONLINE (TSO - TIME SHARING

OPTION) . O EDIPRINT f o i o 1 9 s i s t e m a c r i a d o p a r a o IBM-1130,den -

t r o d e uma c o n f i g u r a ç ã o d e memór ia r e d u z i d a , c a p a z d e c r i a r , a l -

t e r a r e l o g o a p ó s f o r m a t a r um d e t e r m i n a d o t e x t o em um p a d r ã o p r é

- d e t e r m i n a d o , c o n t i d o em um a r q u i v o q u a l q u e r d e n t r o do s i s t e m a . S e u f u n c i o n a m e n t o é OFFLINE, e a l é m d e s e r d e f á c i l u t i l i z a ç ã o , a p r e s e n t a g r a n d e v e r s a t i l i d a d e : o u s u á r i o p o d e r á em um s ó p a s s o

(JOB) e f e t u a r um o u m a i s p r o c e d i m e n t o s ( c r i a r , i m p r i m i r , a l t e r a r

e f o r m a t a r o a r q u i v o ) i n ú m e r a s v e z e s .

A g r a n d e p r e o c u p a ç ã o f o i o b t e r um m é t o d o d e a c e s s o rã- p i d o a o s a r q u i v o s d e modo a r e d u z i r o t empo d e e x e c u ç ã o do s i s t e - ma. O u t r a c a r a c t e r z s t i c a i m p o r t a n t e é o b a i x o c u s t o q u e e s t e po-

d e r á p r o p o r c i o n a r em r e l a ç ã o a d e s p e s a s d e g r á f i c a e s e c r e t a r i a

com a i m p r e s s ã o d e t e x t o s d i d á t i c o s , ou q u a l q u e r o u t r o t i p o de do - c u m e n t a ç ã o .

A p e s a r do s i s t e m a t e r s i d o d e s e n v o l v i d o p a r a o IBM-1130,

l e v o u - s e em c o n s i d e r a ç ã o a s u a i n d e p e n d ê n c i a em r e l a ç ã o à m á q u i -

n a , d e m a n e i r a a p e r m i t i r a s u a i m p l e m e n t a ç ã o em o u t r o s computa-

d o r e s . I s t o s e r á p o s s í v e l d e s d e q u e o c o m p u t a d o r t e n h a o c o m p i l a - d o s FORTRAN e a p r e s e n t e uma c o n f i g u r a ç ã o mín ima c o m p a t í v e l com o

IBM-1130 u t i l i z a d o . Algumas l i g e i r a s m o d i f i c a ç õ e s d e v e r ã o s e r f e i - t a s :

- i m p l e m e n t a ç ã o d e r o t i n a s q u e desempenhem a s mesmas ' f u n ç õ e s d a s r o t i n a s M O V E , FILL, NCOMP, PACK e UNPACK

(CSP-IBM) c a s o a s mesmas n ã o e x i s t a m n a q u e l e c o m p u t a -

d o r .

- a s r o t i n a s LOCK e UNLOCK, d e s e n v o l v i d a s n o ASSEMBLER

do IBM-1130 como m e d i d a d e s e g u r a n ç a p a r a o s i s t e m a

d e v e r ã o s e r c o n v e r t i d a s p a r a o ASSEMBLER do computa -

d o r u t i l i z a d o .

F u t u r a s e x p a n s õ e s p o d e r ã o s e r f e i t a s no EDIPRINT, e a 1 - gumas s u g e s t õ e s s ã o d a d a s a s e g u i r :

- T o r n a r p o s s í v e l a s u a i m p l e m e n t a ç ã o em um o u t r o com-

p u t a d o r a t r a v é s d e um s i s t e m a ONLINE. 1s t o é p o s s í v e l

com a c r i a ç ã o d e m a i s um comando q u e p e r m i t a a ~ d i -

ç ã o do t e x t o a t r a v é s d e um t e r m i n a l d e v í d e o . S e r i a

c o n v e n i e n t e também a u t i l i z a ç ã o d e uma c o n f i g u r a ç ã o

m a i o r d e m e m ó r i a , o q u e a c a r r e t a r i a em um m a i o r r e n -

d i m e n t o p a r a o s i s t e m a .

P e r m i t i r a i m p r e s s ã o d e t e x t o s em l e t r a s m i n ú s c u l a s ,

t e n d o em l e t r a s m a i ú s c u l a s a p e n a s nomes ou a

l a . l e t r a a p ó s um s í m b o l o c a r a c t e r í s t i c o d e p o n t u a - -

ç a o . E s t a n o v a o p ç ã o d e v e r á r e q u e r e r 3 n o v o s comandos

d e e d i ç ã o d o t i p o : $M1 - a p e n a s o c a r a c t e r s e g u i n t e

a o comando d e v e r á s e r i m p r e s s o em l e t r a maiÚscui la ;

$IM - i n í c i o d e m a i ú s c u l a ; $FM - f i m d e m a i Ú s c u l a . É

n e c e s s á r i o também q u e a c a d e i a d e i m p r e s s ã o do p e r i -

f é r i c o d e s a í d a u t i l i z a d o p e r m i t a a i m p r e s s ã o d e be-

t ras m i n ú s cu l a s .

A l g u n s p r o c e d i m e n t o s f o r a m e s q u e m a t i z a d o s como s o l u ç Õ e s

v i á v e i s q u e p e r m i t a m o f e r e c e r m a i o r s e g u r a n ç a a o s i s t e m a :

- C r i a ç ã o d e um a r q u i v o d e n o m i n a d o d e h i s t ó r i c o , i n i c i - a l m e n t e i g u a l a o F o n t e , q u e p e r m i t a g r a v a r numa á r e a

c o n t z g u a d e n t r o d o p r ó p r i o a r q u i v o c a d a a l t e r a ç ã o e -

f e t u a d a p e l o E d i t o r d e T e x t o . E m c a s o d e f a l h a n o s i s - t e m a ( f a l t a d e e n e r g i a , p o r e x e m p l o ) d u n a n t e uma a -

t u a l i z a ç ã o o s comandos a l i g r a v a d o s p o d e r ã o s e r r e e -

x e c u t a d o s p e l o e d i t o r d i r e t a m e n t e s o b r e o t e x t o con-

t i d o n e s t e a r q u i v o , q u e e v e n t u a l m e n t e p o d e r á s e r a t u

a l i z a d o .

- C r i a ç ã o d e um u t i l i t á r i o q u e p e r m i t a r e c u p e r a r um ar - q u i v o F o n t e em c a s o d e f a l h a n o s i s t e m a . Como a e s -

t r u t u r a do a r q u i v o é c i r c u l a r d u p l a m e n t e l i g a d a , s e -

r i a r e z o a v e l m e n t e s i m p l e s r e c o n s t i t u í - l o q u a n d o a p e -

n a s um p o n t e i r o f o s s e d e s t r u í d o . O p r o c e d i m e n t o u t i -

l i z a d o p e l o u t i l i t á r i o s e r i a p e r c o r r e r o a r q u i v o n o s

2 s e n t i d o s - do Ú l t i m o r e g i s t r o p a r a o 1 9 , e d e s t e ' p a r a o Ú l t i m o - a t é l o c a l i z a r o p o n t e i r o destruido.

- E n t r e t a n t o , a mesma f a l h a n o s i s t e m a p o d e comprome-

t e r m a i s d e 1 r e g i s t r o , e a t é mesmo um s e t o r i n t e i r o -

d o a r q u i v o . N a t u r a l m e n t e o u t i l i t á r i o a n t e r i o r ' n a o

p e r m i t i r á r e c o n s t i t u i r o a r q u i v o d a m a n e i r a em que .os

r e g i s t r o s e s t ã o l i g a d o s i n i c i a l m e n t e n o r e s e r v a t ó r i o ,

i s t o é, n ó s e n c a d e a d o s s e q u e n c i a l m e n t e . P o r é m , s e e l e s

f o r e m e n c a d e a d o s d e 8 em 8 ( 1 s e t o r = 320 p a l a v r a s - 8 r e g i s t r o s d e 44 p a l ) , d e modo q u e 1 s e t o r a p o n t e ' s e m p r e p a r a o p r ó x i m o , s e r á p o s s í v e l r e c o n s t i t u i r o

s e t o r i n t e i r o a t r a v é s d e um u t i l i t á r i o e s p e c í f i c o .

Uma e t a p a d o E D I P R I N T q u e p o d e c o m p r o m e t e r o s i s t e m a ' e s t á r e l a c i o n a d o com o a r q u i v o d e r e f e r ê n c i a c r u z a d a : o desempe-

nho do a l g o r i t m o d e o r d e n a ç ã o f i c a r á m u i t o l e n t o s e o a r q u i v o f o r

m u i t o g r a n d e ( m a i s d e 250 r e f e r ê n c i a s ) . Como ,a s o l u ç ã o p a r a o pro - b l e m a n ã o é i m e d i a t a , e o s i s t e m a a i n d a s e e n c o n t r a em f a s e e x p e - r i m e n t a l , e s t a e t a p a p o d e r á s e r o t i m i z a d a f u t u r a m e n t e , s e n e c e s -

s á r i o , já q u e I n d i c e s d e r e f e r ê n c i a c r u z a d a n ã o s ã o comumente u-

t i l i z a d o s em c a r t a s , r e l a t ó r i o s e a p o s t i l a s .

0 1 - A p p l i e d D a t a R e s e a r c h - ETC E x t e n d e d T e x t C o m p o s i t o r - U s e r

G u i d e , A p p l i e d D a t a R e s e a r c h I n c . Nov, 1 9 7 6 .

0 2 - B e n j a m i n , A . J . - An E x t e n s i b l e E d i t o r f o r a S m a l l M a c h i n e

w i t h D i s k S t o r a g e C o m m u n i c a t i o n s . o f t h e ACM 8 ( - 1 5 ) :

742-744 Aug, 1 9 7 2 1

0 3 - B e r n s , G . M . - T h e FORMAT P r o g r a m I E E E T r a n s o n Eng. w r i t i n g

a n d S p e e c h 2 ( 1 1 ) : 8 5 - 9 1 , Aug, 1 9 6 8 .

0 4 - B e r n s , G . M . - D e s c r i p t i o n o f t h e FORMAT, a t e x t - p r o c e s s i n g

p r o g r a m - C o m m u n i c a t i o n s of t h e ACM 3 ( 1 2 ) : 1 4 1 - 1 4 6 Mar ,

1 9 6 9 .

0 5 - B o u r n e , S .R. - A D e s i g n f o r a T e x t E d i t o r

S o f t w a r e - P r a t i c e a n d E x p e r i e n c e ( 1 ) : 73 -81 , 1 9 7 1 .

06 - B r a t m a n , H . e t a 1 1 - P r o g r a m C o m p o s i t i o n a n d E d i t i n g w i t h a n

o n - l i n e d i s p l a y F a l l J o i n t Compute r C o n f e r e n c e , 1 9 6 8 p p

1 3 4 9 - 1 3 6 0 .

07 - D e u t s c h , L . P . , Lampson, B . W . - An O n l i n e E d i t o r - C o m m . A C M ,

1 0 ( 1 2 ) D e c , 1 9 6 7 .

0 8 - E l l i o t , W . D . e t a 1 1 - C o m p u t e r A s s i s t e d T r a c i n o f T e x t

E v o l u t i o n F a l l J o i n t Compute r C o n f e r e n c e , 1 9 7 1 p p 533-

- 5 4 0 .

0 9 - H a z e l , P . - A G e n e r a l - P u r p o s e T e x t E d i t o r f o r 0 ~ 1 3 6 0

S o f t w a r e - P r a t i c e a n d E x p e r i e n c e ( 4 ) : 389-399 , 1 9 7 4 .

1 0 - I B M - S y s t e m / 3 6 0 T e x t P r o c e s s o r - Hyphenating/36OApplication D e s c r i p t i o n E20-0257 , I B M C o r p . T e c h . P u b l i c a t i o n s .

11 - I B M - P r o g r a m m e r ' s a n d O p e r a t o r ' s G u i d e , V e r s i o n 2 - I B M

C o r p . T e c h . P u b l i c a t i o n s

1 2 - I B M - I B M 1 1 3 0 S u b r o u t i n e L i b r a r y - I B M Corp .Tech .Pub1 ica t ions

G C 26-5929-6 .

13 - I B M - 1 1 3 0 C o m m e r c i a l S u b r o u t i n e P a c k a g e - P r o g r a m R e f e r e n c e

Manua l ( 1 1 3 0 ) - S E - 2 5 x ) , V e r s i o n 3 , M o d i f i c a t i o n 1-1968. .

1 4 - K n o t t G . D . , A n d e r s o n , W . J . - A T a b l e - M a r k i n g L a n g u a g e P r o c o f

t h e IEEE.

1 5 - Lampson , B . W . , L i c h t e n b e r g e r , W . W . - A U s e r ~ a c h i n e i n a

Time - S h a r i n g S y s t e m - P r o c . IEEE, 54 ( .12 ) : 1766-1775

Dec , 1 9 6 6 .

1 6 - M a d n i c k , S .E . - S t r i n g P r o c e s s i n g T e c h n i q u e s C o m m u n i c a t i o n s

o£ t h e ACM 2 ( 1 0 ) : 420-424 J u l , 1 9 6 7 .

17 - Madnick, S.E. e Moulton, A. - Script, An 0n-line Manuscript Processing System IEEE Trans.on Eng.Writing and Speech

2(11): 92-100 Aug, 1968.

18 - NCE - CANDE - Comande e Edite publicação do NCE-UFRJ. 19 - Poole, M.D. - Implementation o£ an Editing AlgorithmAllowing

Repeating Corrections.

Software - Pratice and Experience (1): 373-381, 1971.

20 - Rich, R.P., Stone, A.G. -Method for Hyphenating at the end

o£ a Printed Line Communications o£ the ACM 7(8): 444-

-445 July, 1965.

21 - Van Dam, A. e Rice, D.E. - On-line Text Editing: A Survey

Computing Surveys 3(3): 93-114 Sep, 1971.

22 - Walter, O.G. - Typesetting - Scientific American, 220(5):

61-69 May, 1969.

1.1 - PROGRAMA SUPERVISOR EPRIN

O b j e t i v o : A n a l i s a r a s o p ç õ e s f o r n e c i d a s a t r a v é s d o c a r t ã o * n , n o -

me a r q . e d e s v i a r o comando do s i s t e m a p a r a o p r o c e d i -

m e n t o c o r r e s p o n d e n t e .

1 - Le c a r t ã o *n,nome a r q .

2 - S e f o r / / f i m d e p r o c e s s o .

3 - s e n ã o , c r i t i c a a s i n t a x e do comando, e m i t i n d o m e n s a g e n s c a s o

o c o r r a m e r r o s d e s i n t a x e .

4 - S e n = C

4 . 1 - V e r i f i c a s e o nome j á c o n s t a n o d i r e t ó r i o d e a r q u i v o s .

Em c a s o a f i r m a t i v o , e m i t e mensagem d e e r r o e v a i p a r a

1.

4 . 2 - Chama r o t i n a C R I A ( ~ ~ ê n d i c e 1 . 2 ) e v a i p a r a 1.

5 - V e r i f i c a s e o nome c o n s t a n o d i r e t ó r i o . Em c a s o n e g a t i v o o ' p r o g r a m a e m i t e mensagem de e r r o e v a i p a r a 1 .

6 - S e n = T, R o u I chama-se r e s p e c t i v a m e n t e TEXTO ( ~ ~ ê n d i c e 11.

11, RELAT ( ~ ~ ê n d i c e I I I . l ) , IMPR ( ~ ~ ê n d i c e I V . 1 ) e v a i p a r a

1 S.

1 . 2 - R O T I N A C R I A

O b j e t i v o : C r i a o a r q u i v o F o n t e e t a b e l a d e í n d i c e s c o r r e s p o n d e n -

t e n o s i s t e m a .

1 - Le c a r t ã o c o n t e n d o a s i n f o r m a ç õ e s em f o r m a t o l i v r e e compac-

t a - o p a r a o f o r m a t o A2.

2 - Se f o r / * r e t o r n a .

3 - Le 1 9 r e g i s t r o d i s p o n í v e l d o r e s e r v a t ó r i o . S e d e r o v e r f l o w , e m i t e mensagem d e e r r o , chama r o t i n a COPIA ( ~ ~ ê n d i c e I . 4 ) q u e

l i s t a o s nomes d o s a r q u i v o s do d i r e t ó r i o e r e t o a n a . S e n ã o , - a

p o n t a p r ó x i m o r e g i s t r o .

4 - S e p r e c i s a r i n s e r i r n o v o r e g i s t r o n a t a b e l a d e z n d i c e s :

4 . 1 - A l o c a o r e g i s t r o p a r a a t a b e l a d e í n d i c e s .

4 . 2 - E x e c u t a r p a s s o 3 .

5 - A l o c a r e g i s t r o p a r a o a r q u i v o F o n t e .

6 - Se c o r r e s p o n d e r a o l? c a r t ã o i n s e r i d o , c o m p a c t a e g r a v a nome

d o a r q u i v o n o d i r e t ó r i o .

7 - I n c r e m e n t a o número d e c a r t õ e s i n s e r i d o s ( INCR) , n? do s u b -

campo p r e e n c h i d o n a t a b e l a e e s t a b e l e c e o número d e L i n h a '

(= INCR*100) .

8 - Chama r o t i n a I N C L U ( ~ ~ ê n d i c e 1 . 3 ) p a r a e f e t u a r a i n c l u s ã o ' d o s r e g i s t r o s e v a i p a r a 1.

1 . 3 - ROTINA INCLU

O b j e t i v o : I n c l u i r r e g i s t r o no a r q u i v o F o n t e e t a b e l a d e í n d i c e s ;

1 - Chama r o t i n a LOCK ( ~ ~ ê n d i c e 1 . 5 ) p a r a i m p e d i r q u e o s i s t e m a

s e j a c o r t a d o .

2 - S e e s t i v e r p r e e n c h e n d o um subcampo d i f e r e n t e d o 1 9 r e g i s t r o

d a t a b e l a d e í n d i c e s v a i p a r a 5 .

3 - S e c o r r e s p o n d e r a o l? c a r t ã o i n s e r i d o :

3 . 1 - F a z o 1 9 r e g i s t r o d a t a b e l a a p o n t a r p a r a e l e mesmo.

3 . 2 - V a i p a r a 5 .

4 - s e n ã o , a t u a l i z a p o n t e i r o s n a t a b e l a d e I n d i c e s .

5 - G r a v a r e g i s t r o e a t u a l i z a p o n t e i r o s n o a r q u i v o F o n t e .

6 - L o c a l i z a o l ? subcampo v a g o n o r e g i s t r o r e f e r e n t e a t a b e l a de -. i n d i c e s e g r a v a o n? d a l i n h a e o s e u e n d e r e ç o c o r r e s p o n d e n -

t e ( n o a r q u i v o F o n t e ) .

7 - Chama r o t i n a UNLOCK ( ~ ~ ê n d i c e I . 6 ) e r e t o r n a .

1 . 4 - ROTINA COPIA

O b j e t i v o : L i s t a r o s nomes d e t o d o s o s a r q u i v o s g r a v a d o s n o s i s t e -

m a .

1 - I P - 1

2 - I P - I P + l , l e r e g i s t r o I P do d i r e t ó r i o . 3 - S e f o r ' 0 0 0 0 \ e t o r n a . 4 - D e s c o m p a c t a o nome p a r a f o r m a t o A l , impr ime-o e v a i p a r a 2 .

1 . 5 - ROTINA L O C K

O b j e t i v o : I m p e d i r q u e o p r o g r a m a s e j a c o r t a d o a t r a v é s d a t e c l a '

INTREQ ( d a c o n s o l e ) no momento em q u e s a o f e i t a s a t u a -

l i z a ç õ e s no a r q u i v o F o n t e e t a b e l a d e í n d i c e s .

1 - S a l v a e n d e r e ç o d a r o t i n a q u e c o r t a o p r o g r a m a .

2 - M o d i f i c a o n ú c l e o r e s i d e n t e p a r a r e t o r n a r n o c a s o d a . t e o l a

INTREQ s e r a p e r t a d a .

3 - R e t o r n a .

I . 6 - R O T I N A U N L O C K

O b j e t i v o : D e v o l v e r a I L S Q 4 ( n í v e l d e i n t e r r u p ç ã o ) o e n d e r e ç o guar - d a d o p e l a r o t i n a L O C K .

1 - R e c u p e r a e n d e r e ç o s a l v a d o p e l a r o t i n a L O C K .

2 - R e t o r n a .

11.1 - ROTINA TEXTO

O b j e t i v o : A n a l i s a r o s c a r t õ e s d e a t u a l i z a ç z o e t r a n s f e r i r o . oo-

mando do s i s t e m a p a r a c a d a p r o c e d i m e n t o especifico.

1 - Le c a r t ã o d e a t u a l i z a ç ã o .

2 - S e p o r / * r e t o r n a .

3 - S e a l a . p o s i ç ã o f o r / e a 2 a . A , E , D , I , L , S o u R , ( c h a m a

r e s p e c t i v a m e n t e a s r o t i n a s APAGA ( A p ê n d i c e 1 1 . 2 ) ~ ELIMI ( A-

p ê n d i c e I I . 3 ) , DELE'X ( A p ê n d i c e I I . 4 ) , INSER ( A p ê n d i c e 11.5) , LOCAL ( A p ê n d i c e I I . 6 ) , SUBST ( A p ê n d i c e 1 1 . 7 ) e R E N U M ( ~ ~ ê n d i - c e 1 1 . 8 ) r e s p e c t i v a m e n t e . V a i p a r a 1.

4 - E m i t e mensagem d e e r r o d e s i n t a x e e v a i p a r a 1.

1 1 . 2 - ROTINA APAGA

O b j e t i v o : A p a g a r t e x t o s c o n t i d o s n o s n ú m e r o s d e l i n h a a g r u p a d o s '

n o s b l o c o s d e r e g i s t r o s .

1 - P o s i c i o n a p o n t e i r o p a r a a 3 a . p o s i ç ã o do c a r t ã o c o r r e s p o n d e n -

t e ao l ? c a r a c t e r d e p o i s d o comando d e e d i ç ã o ( / A ) .

2 - Chama r o t i n a BLOCO ( ~ ~ ê n d i c e 1 1 . 9 ) e s e t i v e r h a v i d o a l g u m ' e r r o d e s i n t a x e r e t o r n a .

3 - Chama r o t i n a STRIN ( A p ê n d i c e 1 1 . 1 0 ) e s e t i v e r h a v i d o a l g u m

e r r o d e s i n t a x e r e t o r n a . 4 - Chama r o t i n a C O M D 1 ( A p ê n d i c e 1 1 . 1 3 ) e r e t o r n a .

1 1 . 3 - ROTINA ELIMI

O b j e t i v o : Remover a p a r t i r do l? t e x t o do comando n o r e g i s t r o n k a t é o 20 t e x t o n o r e g i s t r o n x + k 0

- 1 - P o s i c i o n a p o n t e i r o p a r a a l a . p o s i ç a o n o c a r t ã o d e p o i s d o co -

mando /E . 2 - L M Y - 1

3 - Chama r o t i n a BLOCO e s e t i v e r h a v i d o a l g u m e r r o d e s i n t a x e ' r e t o r n a .

4 - Chama r o t i n a STR.IN e s e t i v e r h a v i d o a l g u m e r r o d e s i n t a x e '

r e t o r n a .

5 - LM -LM+l; s e LM <3 v a i p a r a 3 .

6 - Chama r o t i n a COMD3 ( A p ê n d i c e 1 1 . 1 5 ) e r e t o r n a .

I I . . 4 - ROTINA DELET

O b j e t i v o : Remover r e g i s t r o s d e um a r q u i v o F o n t e .

1 - P o s i c i o n a p o n t e i r o p a r a a l a . p o s i ç ã o do c a r t ã o d e p o i s d o c o -

mando / D . 2 - Chama r o t i n a BLOCO e s e t i v e r h a v i d o e r r o d e s i n t a x e r e t o r n a .

3 - Chama r o t i n a C O M D 1 ( A p ê n d i c e 1 1 . 1 3 ) e r e t o r n a .

1 1 . 5 - ROTINA INSER

O b j e t i v o : I n s e r i r r e g i s t r o s em um a r q u i v o F o n t e .

1 - S e o r e g i s t r o a s e r i n s e r i d o é d e c o r r ê n c i a d e uma s u b s t i t u i -

ç ã o d e t e x t o s ( i . e , s e um t e x t o A f o i s u b s t i t u F d o p o r B , e B

n ã o c o u b e n o r e g i s t r o ) v a i p a r a 4 ,

2 - P o s i c i o n a p o n t e i r o p a r a a l a . p o s i ç ã o do c a r t ã o d e p o i s d o c o -

mando / I .

3 - Chama r o t i n a BLOCO; s e t i v e r h a v i d o e r r o r e t o r n a .

4 - Chama r o t i n a BUSCA ( A p ê n d i c e 1 1 . 1 1 ) p a r a l o c a l i z a r o r e g i s -

t r o n a t a b e l a o n d e d e v e r á c o n s t a r o n o v o n ú m e r o d e l i n h a .

5 - P r o c u r a n e s t e r e g i s t r o o subcampo a d e q u a d o ( d e a c o r d o com o

n? d e l i n h a ) p a r a a n o v a e n t r a d a . Se e s t e c o r r e s p o n d e r a um

subcampo v a g o v a i p a r a 7 .

6 - T e s t a c o m p a t i b i l i d a d e do novo r e g i s t r o com a n u m e r a ç ã o d o a r -

q u i v o , s e e s t e f o r i n c o m p a t l v e l , e m i t e mensagem d e e r r o e r e - t o r n a .

7 - S a l v a c o n t e ú d o a p a r t i r d o s u b c a m p o o n d e a n o v a l i n h a s e r á '

g r a v a d a . .

8 - S e o s i s t e m a n ã o e s t i v e r s o b o comando / I v a i p a r a 1 2 .

9 - Le c a r t ã o c o n t e n d o o novo r e g i s t r o e c o m p a c t a - o p a r a o f o r m a - t o A2.

1 0 - S e f o r I * . 1 0 . 1 - G r a v a o c o n t e ú d o s a l v o a asso 7 ) a p ó s a Ú l t i m a e n t r a -

d a n a t a b e l a , S e e s t e r e g i s t r o n ã o f o r s u f i c i e n t e pa -

r a c o n t e r t o d a a i n f o r m a ç ã o um novo r e g i s t r o n a t a b e - l a é i n s e r i d o com o o b j e t i v o d e c o n t e r o r e s t a n t e q u e

n ã o c o u b e n o r e g i s t r o a n t e r i o r .

1 0 . 2 - R e t o r n a .

11 - E s t a b e l e c e o número do n o v o r e g i s t r o ; e x e c u t a p a s s o 6 .

1 2 - R e t i r a nó d o r e s e r v a t Ó r i o e chama r o t i n a INCLU p a r a i n c l u -

s ã o do n o v o r e g i s t r o . 1 3 - S e e s t i v e r s o b a ç ã o d o comando / I v a i p a r a 9 ,

r a 1 0 . 1 .

1 1 . 6 - ROTINA LOCAL

O b j e t i v o : L o c a l i z a r o número ' d o s r e g i s t r o s onde e s t ã o g r a v a d o s o s

t e x t o s e n t r e d e l i m i t a d o r e s .

1 - P o s i c i o n a p o n t e i r o p a r a a l a . p o s i ç ã o d o c a r t ã o d e p o i s do c o - mando / L .

2 - Chama r o t i n a STRIN, e s e t i v e r h a v i d o e r r o r e t o r n a .

3 - A p o n t a o l? r e g i s t r o d o a r q u i v o F o n t e .

4 - L e r e g i s t r o e d e s c o m p a c t a - o p a r a o f o r m a t o A l .

5 - P a r a c a d a t e x t o a s e r l o c a l i z a d o chama r o t i n a TESTA ( ~ ~ ê n d i -

c e 1 1 . 1 9 ) .

6 - A p o n t a p r ó x i m o r e g i s t r o . E n q u a n t o n ã o h o u v e r p e r c o r r i d o t o d o

a r q u i v o v a i p a r a 4 .

7 - I n d i c a o s t e x t o s n ã o l o c a l i z a d o s e r e t o r n a .

1 1 . 7 - ROTINA SUBST

O b j e t i v o : S u b s t i t u i r um d e t e r m i n a d o t e x t o p o r o u t r o n o s

d e l i n h a a g r u p a d o s p e l o s b l o c o s d e r e g i s t r o s .

1 - P o s i c i o n a p o n t e i r o p a r a a l a . p o s i ç ã o d o c a r t ã o d e p o i s do co -

mando / S .

2 - Chama r o t i n a BLOCO, e s e t i v e r h a v i d o e r r o r e t o r n a .

3 - Chama r o t i n a STRIN, e s e t i v e r havGdo e r r o r e t o r n a .

4 - Chama r o t i n a C O M D 1 e r e t o r n a .

1 1 . 8 - ROTINA R E N U M

O b j e t i v o s Renumera o s r e g i s t r o s d e um a r q u i v o .

1 - P o s i c i o n a p o n t e i r o p a r a a l a . p o s i ç ã o d o c a r t ã o d e p o i s d o c o - mando / R .

2 - Chama r o t i n a BLOCO, e s e t i v e r h a v i d o e r r o r e t o r n a ,

3 - Chama r o t i n a COMD4 ( A p ê n d i c e 1 1 . 1 6 ) e r e t o r n a .

1 1 . 9 - ROTINA BLOCO

O b j e t i v o : I d e n t i f i c a r e g u a r d a r o s n ú m e r o s d e l i n h a a g r u p a d o s em

c a d a b l o c o d e r e g i s t r o .

1 - T e s t a s e a p o s i ç ã o p r é - d e t e r m i n a d a d o c a r t ã o q u e c o n t e m o c o - d

mando d e e d i ç ã o e um c a r a c t e r n u m é r i c o , s e n ã o f o r o p r o g r a -

ma e m i t e e r r o d e s i n t a x e e r e t o r n a . 2 - Chama r o t i n a AGRUP ( A p ê n d i c e 1 1 . 2 0 ) q u e r e c o n h e c e o n 9 d o r e -

g i s t r o , e s e t i v e r h a v i d o e r r o r e t o r n a .

3 - T e s t a o 19 c a r a c t e r d e p o i s do número do Ú l t i m o r e g i s t r o en-

c o n t r a d o . E s t e número é g u a r d a d o em uma t a b e l a d e a c o r d o com

o s e g u i n t e e s q u e m a :

- S e o c a r a c t e r f o r ' - ' um z e r o é c o l o c a d o n a l a . c o l u n a d a - t a b e l a e o número e n c o n t r a d o a n t e s d o I - ' e d e p o i s s a o guar - d a d o s n a s c o l u n a s 2 e 3 r e s p e c t i v a m e n t e . Va i p a r a 1 .

Exemplo : /A100-500 O 1 0 0 500 # - S e o c a r a c t e r f o r ' ,h o Ú l t i m o c a r a c t e r também, o n-1 e

c o l o c a d o e o número a n t e r i o r a ' , I é g u a r d a d o n a 2 a . c o l u -

n a . Po rém, s e o c a r a c t e r f o r ' , ' e o Ú l t i m o f o r ' - ' , 0 n 9 a

a n t e r i o r a o ' - ' e g u a r d a d o n a p r ó x i m a l i n h a d a t a b e l a .

Exemplo : 1. / ~ 1 0 0 , 5 0 0 1 L00 1 1 0 0

2 , /A100,500-10010 1 500 O 500 1 0 0 0

Ex. 1 Ex. 2

- S e f o r ' $ ' o n 9 2 é c o l o c a d o n a l a . c o l u n a d e TAB . Exemplo : / 1 5 0 $ 1 0 2 50 1 0

- S e f o r ' V ' , v e r i f i c a s e n a l a . c o l u n a e x i s t e um 2 . S e e x i s - t i r c o l o c a o número do r e g i s t r o e n c o n t r a d o n a 3 a . c o l u n a e

r e t o r n a . S e n ã o , c o l o c a - o n a c o l u n a 2 e r e t o r n a .

4 - T e s t a s e a q u e l a p o s i ç ã o c o r r e s p o n d e a a l g u m d e l i m i t a d o r . S e

n ã o f o r e m i t e mensagem d e e r r o e r e t o r n a .

5 - C o l o c a o Ú l t i m o n ú m e r o e n c o n t r a d o n a t a b e l a d e a c o r d o com o

p a s s o 3 e r e t o r n a .

1 1 . 1 0 - ROTINA STRIN

O b j e t i v o : G u a r d a r c a d a t e x t o e n t r e d e l i m i t a d o r e s .

1 - I n c r e m e n t a d e 1 p o s i ç ã o o p o n t e i r o q u e p e r c o r r e r o c a r t ã o '

c o n t e n d o o comando d e a t u a l i z a ç ã o . S e p o s i ç ã o > 8 0 e o 20 d e l i - m i t a d o r n ã o t i v e r s i d o e n c o n t r a d o , e m i t e mensagem d e e r r o e

r e t o r n a .

2 - S e a p o s i ç ã o c o r r e s p o n d e r a um b r a n c o e n ã o h o u v e r m a i s t e x -

t o n o c a r t ã o r e t o r n a .

3 - S e a p o s i ç ã o c o r r e s p o n d e r a um d e l i m i t a d o r , e s e e s t e f o r i-

g u a l a o l ? já e n c o n t r a d o , g u a r d a o t e x t o em uma á r e a a u x i l i ' a r .

4 - V a i p a r a 1.

11.11 - ROTINA BUSCA

O b j e t i v o : L o c a l i z a r o r e g i s t r o n a t a b e l a d e z n d i c e s onde um de -

t e r m i n a d o n ú m e r o d e l i n h a d e v e r á s e r e n c o n t r a d o , o u no

c a s o d e i n s e r ç ã o , o n d e o mesmo d e v e r á s e r p o s i c i o n a d o .

1 - A p o n t a r e g i s t r o i n i c i a l d a t a b e l a .

2 - Le r e g i s t r o .

3 - E n q u a n t o o n ? d e l i n h a d o 1 9 subcampo f o r menor do q u e o va-

l o r p e s q u i s a d o , a p o n t a o p r ó x i m o r e g i s t r o . S e e s t e já c o r r e s -

p o n d e r a o r e g i s t r o i n i c i a l , r e t o r n a e s t e v a l o r a o p r o g r a m a ' p r i n c i p a l . S e n ã o , v a i p a r a 2 .

4 - A p o n t a r e g i s t r o a n t e r i o r e r e t o r n a .

1 1 . 1 2 - ROTINA ACHAR

O b j e t i v o : D e t e r m i n a r o e n d e r e ç o d o r e g i s t r o d e s e j a d o no a r q u i v o

F o n t e .

1 - Chama r o t i n a BUSCA ( r o t i n a a n t e r i o r )

2 - P e r c o r r e c a d a subcampo d o r e g i s t r o n a t a b e l a ( d e t e r m i n a d o p o r

BUSCA) a t é e n c o n t r a r o número d e l i n h a d e s e j a d o . A p o n t a o e n - d e r e ç o q u e e s t á g r a v a d o n a l a . p a l a v r a d a q u e l e s u b c a m p o .

3 - S e e s t i v e r s o b a ç ã o d o s comandos DELETAR ou RENUMERAR r e t o r -

n a .

4 - Le o r e g i s t r o n o a r q u i v o F o n t e , d e s c o m p a c t a o t e x t o 15 g r a v a - do p a r a o f o r m a t o A 1 e r e t o r n a .

1 1 . 1 3 - ROTINA COMD1

O b j e t i v o : F a z e r com q u e o comando s e j a p r o c e s s a d o em c a d a b l o c o

d e r e g i s t r o c o n t i d o n o c a r t ã o d e d a d o s .

A p o n t a l a , l i n h a d a t a b e l a g u a r d a d o p e l a r o t i n a BLOCO.

Chama r o t i n a CRITI ( ~ ~ ê n d i c e 1 1 . 2 1 ) p a r a c r i t i c a r a c o m p a t i -

b i l i d a d e d o s r e g i s t r o s n a t a b e l a .

A p o n t a r e g i s t r o a s e r l o c a l i z a d o e chama r o t i n a ACHAR.Se n ã o

a c h a r o r e g i s t r o , e n v i a mensagem d e e r r o e r e t o r n a .

S e e s t i v e r s o b a ç ã o d o comando / D (DELETAR) , chama r o t i n a A-

PREG e r e t o r n a .

P a r a c a d a t e x t o g u a r d a d o p e l a r o t i n a STRIN e x e c u t a :

5 . 1 - Chama r o t i n a TESTA ( ~ p ê n d i c e 1 1 . 1 9 ) e s e h o u v e r e r r o ' r e t o r n a .

5 .2 - S e e s t i v e r s o b a ç ã o do comando / A (APAGAR) chama r o t i -

n a CLEAN ( ~ ~ ê n d i c e I I . 1 7 ) , c o m p a c t a e g r a v a r e g i s t r o . V a i p a r a 5 .

5 . 3 - S e e s t i v e r s o b a ç ã o d o comando /S (SUBSTITUIR) chama ' r o t i n a COMD2 ( ~ ~ ê n d i c e 1 1 . 1 4 ) .

S e a l a . p o s i ç ã o d a l i n h a c o r r e s p o n d e n t e n a t a b e l a f o r 1, a-

p o n t a a p r ó x i m a l i n h a d a t a b e l a , e s e a i n d a h o u v e r r e g i s t r o s

v a i p a r a 2. S e n ã o , r e t o r n a .

S e a l a . p o s i ç ã o d a l i n h a c o r r e s p o n d e n t e n a t a b e l a f o r 0, a-

p o n t a o p r ó x i m o r e g i s t r o n o a r q u i v o F o n t e e e n q u a n t o o n ? de

l i n h a n ã o c o r r e s p o n d e r a o número g u a r d a d o n a 3 a . p o s l i ç ã o d a

t a b e l a :

7 . 1 - Le r e g i s t r o e d e s c o m p a c t a - o p a r a o f o r m a t o A l .

7 .2 - E x e c u t a p a s s o 5.

A p o n t a p r ó x i m a l i n h a d a t a b e l a e v a i p a r a 2.

1 1 . 1 4 - ROTINA COMD2.

O b j e t i v o : E f e t u a r a s u b s t i t u i ç ã o do t e x t o n o s r e g i s t r o s c o r r e s p m - d e n t e s f o r n e c i d o s p e l o s b l o c o s d e r e g i s t r o s .

1 - Compara o t a m a n h o do l ? e 20 t e x t o s c o n t i d o s n o c a r t ã o d e d a -

do S.

2 - S e o s 2 t e x t o s f o r e m do mesmo t a m a n h o :

2 . 1 - S u b s t i t u i r um t e x t o p e l o o u t r o n a p o s i ç ã o a d e q u a d a d o

r e g i s t r o f o r n e c i d a g e l a r o t i n a TESTA.

2 . 2 - C o m p a c t a r e g i s t r o , g r a v a - o d e v o l t a n o a r q u i v o F o n t e e

r e t o r n a .

3 - S e o 1 9 t e x t o f o r m a i o r d o q u e o 29 :

3 . 1 - S u b s t i t u i r o 1 9 t e x t o p e l o 2 9 , e r e a r r u m a o r e g i s t r o ' - d e s l b c a n d o a s p o s i ç õ e s a d i r e i t a d o t e x t o a n t i g o ( 1 9 )

p a r a 5 e s q u e r d a d o a t u a l e p r e e n c h e n d o com b r a n c o s a s

p o s i ç õ e s q u e f i c a r a m v a g a s .

3 .2 - E x e c u t a p a s s o 2 . 2 . 4 - S e o 1 9 t e x t o f o r menor d o q u e o 29:

4 . 1 - S u b s t i t u i r o l ? t e x t o p e l o 2 0 , m a s s e o 2 0 t e x t o n ã o ' c o u b e r t o d o n a q u e l e r e g i s t r o :

4 . 1 . 1 - Compacta-o e g r a v a - o d e v o l t a n o a r q u i v o , e s t a - b e l e c e o n? d e l i n h a p a r a a i n c l u s ã o d e um no-

v o r e g i s t r o , chama a r o t i n a INSER e r e t o r n a .

4 . 2 - S u b s t i t u i o 1 9 t e x t o p e l o 2 9 , m a s s e d u r a n t e a r e a r r u r - m a ç a o do r e g i s t r o o c o n t e ú d o do r e g i s t r o a p a r t i r c d o '

t e x t o a n t i g o n ã o c o u b e r t o d o n a q u e l e r e g i s t r o > e x e c u t a

p a s s o 4 . 1 . 1 .

1 1 - 1 5 - ROTINA COMD3

O b j e t i v o : E l i m i n a r o t e x t o c o n t i d o n o c a r t ã o d e d a d o s n o s r e g i s -

t r o s e s p e c i f i c a d o s p e l o comando /E .

- C

1 - T e s t a s e o l ? r e g i s t r o c o n t i d o n o c a r t a o e menor do q u e 29 . S e f o r e n v i a mensagem d e e r r o e r e t o r n a . Caso c o n t r á r i o , a -

p o n t a r e g i s t r o n k ' 2 - Chama r o t i n a ACHAR ( ~ ~ ê n d i c e I1 - 2 2 ) p a r a l o c a l i z a r o . r e g i s -

t r o e c a s o o mesmo n ã o s e j a e n c o n t r a d o e n v i a mensagem d e e r -

r o e r e t o r n a .

3 - Chama r o t i n a TESTA p a r a l o c a l i z a r o l ? t e x t o n o r e g i s t r o n k .

S e h o u v e r e r r o r e t o r n a .

4 - S e o r e g i s t r o n =n chama r o t i n a TESTA p a r a l o c a l i z a r o 20 k x + k ' t e x t o n o r e g i s t r o .

4 . 1 - C o l o c a b r a n c o s n a s p o s i ç õ e s e n t r e o l? e 29 t e x t o , r e a r - ruma r e g i s t r o , d e s v i a n d o a s p o s i ç õ e s 2 d i r e i t a do 29

t e x t o p a r a a s p o s i ç õ e s a p a r t i r d o l ? t e x t o e c o l o c a

b r a n c o s n a s p o s i ç õ e s q u e f i c a r e m v a g a s .

4 . 2 - Compac ta r e g i s t r o e g r a v a - o no a r q u i v o ; r e t o r n a .

5 - A p o n t a r e g i s t r o n x + k ' e x e c u t a p a s s o 2 e chama r o t i n a TESTA ' p a r a l o c a l i z a r o 20 t e x t o n o r e g i s t r o n

x i k * 6 - C o l o c a b r a n c o s a p a r t i r d o l? t e x t o a t é o f i n a l d o r e g i s t r o

n e também a p a r t i r d a l a . p o s i ç ã o d o r e g i s t r o n k

a t é o x + k

f i n a l d o 20 t e x t o . D e s l o c a a s p o s i ç õ e s 2 d i r e i t a do 20 t e x t o - p a r a o r e g i s t r o n a p a r t i r d a l a . p o s i ç ã o v a g a a d i r e i t a

k ' c o r r e s p o n d e n t e a o l ? t e x t o .

7 - S e o c o n t e ú d o d o r e g i s t r o n c o u b e r t o d o no r e g i s t r o n x + k k '

c o m p a c t a - o e g r a v a - o no a r q u i v o . Chama r o t i n a APREG ( ~ ~ ê n d i -

c e 1 1 . 1 8 ) p a r a r e m o v e r t o d o s o s r e g i s t r o s n e n t r e ; n <n<nx+k; k r e t o r n a .

8 - S e o c o n t e ú d o d o r e g i s t r o n n ã o c o u b e r t o d o no r e g i s t r o x + k

nk:

8 . 1 - Compacta-o e g r a v a - o n o a r q u i v o .

8 . 2 - C o l o c a o r e s t a n t e no r e g i s t r o s e g u i n t e , e x e c u t a p a s - s o 8 . 1 e chama a r o t i n a APREG p a r a r e m o v e r o s r e g i s t r o s

r e t o r n a . n e n t r e : n k + l < n l n x + k y

1 1 . 1 6 - ROTINA COMD4

O b j e t i v o : E f e t u a r a r e n u m e r a ç ã o d o s r e g i s t r o s c o n f o r m e a s e s p e c i - f i c a ç õ e s c o n t i d a s no comando.

1 - Chama r o t i n a CRITI ( ~ ~ ê n d i c e 1 1 . 2 1 ) p a r a v e r i f i c a r a c o m p a t i - b i l i d a d e d o s n ú m e r o s d e l i n h a f o r n e c i d o s no c a r t ã o . S e hou-

v e r e r r o e n v i a mensagem e r e t o r n a .

2 - Chama r o t i n a A C H A R ( ~ ~ ê n d i c e 1 1 . 1 2 ) p a r a l o c a l i z a r o r e g i s t r o

i n i c i a l a s e r r e n u m e r a d o . S e n ã o e n c o n t r a r r e t o r n a . 4

3 - E s t a b e l e c e a n o v a n u m e r a ç ã o e v e r i f i c a s e e s t á e c o m p a t I v e l - com a n u m e r a ç a o d o a r q u i v o . Se f o r o r e g i s t r o n ã o é r e n u r n e r a - d o e r e t o r n a .

4 - G r a v a r e g i s t r o com a n o v a n u m e r a ç a o e a t u a l i z a a s u a a n t i g a -

n u m e r a ç a o n a t a b e l a d e í n d i c e s .

5 - A p o n t a o p r ó x i m o r e g i s t r o . S e o n? d e l i n h a d e s t e f o r maior do que

o Ú l t i m o r e g i s t r o d o comando a s e r r e n u m e r a d o r e t o r n a . Caso

c o n t r á r i o v a i p a r a 3 .

1 1 . 1 7 - ROTINA CLEAN

O b j e t i v o : A p a g a r um d e t e r m i n a d o t e x t o n o a r q u i v o .

- .- 1 - D e s l o c a a s p o s i ç õ e s a d i r e i t a d o t e x t o e l i m i n a d o p a r a a e s -

q u e r d a a p a r t i r d a s u a p o s i ç ã o i n i c i a l .

2 - P r e e n c h e a s p o s i ç õ e s v a g a s com b r a n c o s e r e t o r n a ,

1 1 . 1 8 - R O T I N A APREG

O b j e t i v o : Remover r e g i s t r o s d o a r q u i v o F o n t e .

1 - S e a r o t i n a e s t i v e r a t u a n d o s o b r e uma e s t r u t u r a de b l o c o d o

t i p o n , n v a i p a r a 4 . x x+k

2 - Chama r o t i n a ACHAR ( ~ ~ ê n d i c e 1 1 . 1 2 ) p a r a l o c a l i z a r o r e g i s t r o

n ( e s t r u t u r a n -n ) . x a k x x + k

3 - S e um a r q u i v o i n t e i r o e s t i v e r s e n d o r e m o v i d o , r e t i r a o s e u ' nome do d i r e t ó r i o .

4 - Remove r e g i s t r o ( s ) do a r q u i v o F o n t e d e v o l v e n d o - o ( s ) n Ó ( s )

c o r r e s p o n d e n t e ( s ) a o r e s e r v a t ó r i o , a t u a l i z a p o n t e i r o s n o a r -

q u i v o e r e t i r a d a t a b e l a d e í n d i c e s o ( ~ ) n Ú m e r o ( s ) d o ( ~ ) r e -

g i s t r o ( ~ ) r e m o v i d o ( s ) n o a r q u i v o F o n t e , i s t o é, c o l o c a b r a n -

c o s n o s s u b c a m p o s c o r r e s p o n d e n t e s . R e a r r u m a c a d a r e g i s t r o d a

t a b e l a , e s e o número d e r e g i s t r o s r e m o v i d o s do F o n t e c o r r e s - p o n d e r a 1 r e g i s t r o i n t e i r o d a t a b e l a , d e v o l v e a q u e l e n ó a o

r e s e r v a t ó r i o , r e t i r a - o d a t a b e l a d e I n d i c e s e a t u a l i z a s e u s

p o n t e i r o s , r e t o s n a ,

1 1 . 1 9 - ROTINA TESTA

O b j e t i v o : P r o c u r a r um d e t e r m i n a d o t e x t o em um r e g i s t r o d o a r q u i -

v o .

1 - A p o n t a l a . p o s i G ã o do t e x t o ( = T e x t o 1 ) n o r e g i s t r o e do t e x -

t o a s e r l o c a l i z a d o ( t e x t o 2).

2 - S e o comando em a ç ã o do /L ( l o c a l i z a r ) :

2 . 1 - S e a p o s i ç ã o do t e x t o n o r e g i s t r o c o r r e s p o n d e r a um ' b r a n c o :

2 . 1 . 1 - S e o mesmo o c o r r e r o T e x t o 2 v a i p a r a 4 ,

2 . 1 . 2 - A p o n t a p o s i ç ã o do t e x t o 1 e v a i p a r a ' 2 . 1 .

3 - Compara t e x t o 1 com t e x t o 2 :

3 . 1 - S e f o r i g u a l v a i p a r a 4 .

3 . 2 - s e n ã o , a p o n t a p r ó x i m a p o s i ç ã o do t e x t o 1. S e f o r m a i o r

d o q u e 8 0 :

3 . 1 . 1 - S e e s t i v e r s o b a a ç ã o d o comando / L r e t o r n a

3 . 2 . 2 - E n v i a mensagem d e q u e o t e x t o n ã o f o i e n c o n t r a - d o e r e t o r n a .

4 - A p o n t a p r ó x i m a p o s i ç ã o d o t e x t o 1. S e f o r menor o u i g u a l a 80:

4 . 1 - A p o n t a a p r ó x i m a p o s i ç ã o do t e x t o 2 . S e t o d o o t e x t o 2

já t i v e r s i d o l o c a l i z a d o r e t o r n a , f o r n e c e n d o c a s o e s t e - j a s o b a a ç ã o do comando / L , o n 9 d o r e g i s t r o em q u e ''

e s t e s e e n c o n t r a ,

4 . 2 - V a i p a r a 2 .

5 - S e n ã o e s t i v e r s o b a ç ã o d o comando /L e x e c u t a 3 . 2 . 2 . C a s o l c o n - t r á r i o , v e r i f i c a s e o r e s t a n t e do t e x t o c o n t i n u a no r e g i s t r o

s e g u i n t e .

1 1 . 2 0 - R O T I N A AGRUP

O b j e t i v o : I d e n t i f i c a r c a d a c a r a c t e r n u m é r i c o c o n t i d o n o s b l o c o s

d e r e g i s t r o a t é e n c o n t r a r um d e l i m i t a d o r ou um cara lc -

t e r e s p e c i a l ( ' , ' , ' - ' , ' $ I , ' V ' ) .

1 - S e a p o s i ç ã o c o r r e s p o n d e n t e no c a x t ã o f o r um c a r a c t e r e s p e -

c i a l o p r o g r a m a a c u s a e r r o e r e t o r n a

2 - S e f o r um c a r a c t e r n u m é r i c o , g u a r d a - o em um v e t o r a u x i l i a r , a - p o n t a a p r ó x i m a p o s i ç ã o n o c a r t ã o e t e s t a d e n o v o ,

3 - Forma o n ú m e r o a p a r t i r d o s c a r a c t e r e s a r m a z e n a d o s n o v e t o r ,

e r e t o r n a .

1 1 . 2 1 - ROTINA CRITI

O b j e t i v o : C r i t i c a r o s r e g i s t r o s a r m a z e n a d o s p e l a r o t i n a BLOCO.

1 - S e a e s t r u t u r a do b l o c o d e r e g i s t r o a n a l i s a d o f o r do t i p o '

n k > nx+k ) r e t o r n a .

2 - s e n ã o , t e s t a s e n S e i s t o n ã o o c o r r e r a c u s a e r r o . X

3 - R e t o m a .

111.1 - ROTINA RELAT

O b j e t i v o : C r i t i c a r e g u a r d a r a s i n f o r m a ç õ e s c o n t i d a s n o s c a r t õ e s

d e c o n t r o l e .

1 - Le c a r t ã o de c o n t r o l e .

2 - S e f o r I * : 2 . 1 - T e s t a s e a s i n f o r m a ç õ e s c o n t i d a s n o s c a r t õ e s d e c o n t r o -

l e d e 10 à 1 4 s ã o e x c l u s i v a m e n t e O ou 1. S e n ã o f o z e m ,

e n v i a mensagem de e r r o e r e t o x n a .

2 . 2 - S e o n ? d e l i n h a s p o r p á g i n a f o r menor do q u e o n ú m e r o

d a l i n h a d e t e r m i n a d o p a r a i n í c i o d e r o d a p ; , e n v i a men-

s a g e m d e e r r o e r e t o r n a . 2 . 3 - Chama r o t i n a PESQ ( ~ ~ ê n d i c e 1 1 1 . 2 ) p a r a f o r m a t a ç ã o do

t e x t o e r e t o r n a .

3 - I d e n t i f i c a número d e c o n t r o l e . S e f o r d i f e r e n t e d a s 1 4 e n t r a - d a s p e r m i t i d a s ( s a b e n d o - s e q u e o s c a r t õ e s d e c o n t r o l e d e 1 a

9 começam n a 2 a . c o l u n a e d e 10 a 14 a p a r t i r d a l a . ) e n v i a

mensagem d e e r r o e r e t o r n a . 4 - S e o c a r a c t e r s e g u i n t e a o n ? d e c o n t r o l e f o r d i f e r e n t e de ' - '

a c u s a e r r o e v a i p a r a 1.

5 - A p o n t a p r ó x i m a p o s i ç ã o d o c a r t ã o . E n q u a n t o e s t a p o s i ç ã o c o r -

r e s p o n d e r , a um c a r a c t e r n u m é r i c o e x e c u t a 5 .

6 - S e f o r d i f e r e n t e d e b r a n c o ou v í r g u l a , a c u s a e r r o d e s i n t a x e

e r e t o r n a . Chama r o t i n a C O N C A ( ~ ~ ê n d i c e 1 1 1 . 1 4 ) p a r a d a r m a r

o n ú m e r o c o n t i d o ( i n f o r m a ç ã o ) n a q u e l e c a r t ã o d e c o n t r o l e

7 - S e f o r b r a n c o e o n? d e c o n t r o l e p e r m i t i r a p e n a s 1 informação:

7 . 1 - G u a r d a i n f o r m a ç ã o e t e s t a s e é a d e q u a d a a o n ? d e oon-

t r o l e c o r r e s p o n d e n t e . C a s o n ã o s e j a e n v i a mensagem d e

e r r o e v a i p a r a 1.

7 . 2 - V a i p a r a 1.

8 - S e f o r ' ,' chama r o t i n a C O N C A . T e s t a s e o n ? d e c o n t r o l e p e r - m i t e m a i s d e uma i n f o r m a ç ã o . C a s o c o n t r á r i o , a c u s a e r r o e ' v a i p a r a I .

E x e c u t a 7 . 1 e v a i p a r a 5 .

9 - S e f o r b r a n c o e p e r m i t i r m a i s d e 2 i n f o r m a ç õ e s , t e s t a s e o n? )

d e c o n t r o l e é 3 . S e n ã o f o r a c u s a e r r o e v a i p a r a 1.

G u a r d a i n f o r m a ç ã o e v a i p a r a 1.

1 1 1 . 2 - ROTINA PESQ

O b j e t i v o : R e c o n h e c e r o c a r a c t e r ' $ ' n o r e g i s t r o r e f e r e n t e a o co-

mando de f o r m a t a ç ã o do t e x t o e c o m a n d a r a s u a execução .

A t r i b u i v a l o r e s a o s comandos d e c o n t r o l e c a s o l e s t e s

n ã o t e n h a m s i d o f o r n e c i d o s a t r a v é s d e c a r t õ e s . Chama r o t i n a

I N I C 1 ( ~ p ê n d i c e 1 1 1 . 2 4 ) p a r a i n i c i a l i z a r a p á g i n a , A p o n t a o

1 9 r e g i s t r o d o a r q u i v o .

Le r e g i s t r o e d e s c o m p a c t a - o p a r a f o r m a t o A l . A p o n t a l a . p o s i

ç ã o d o r e g i s t r o .

M a r c a e s t a p o s i ç ã o .

S e f o r i g u a l a $ :

4 . 1 - S e e s t i v e r s o b a ç ã o d o comando $ P I ( p a r a i m p r e s s ã o ) e u

s e o . I $ ' c o r r e s p o n d e r a l a . p o s i ç ã o do r e g i s t r o v a i p a - r a 8 . 1 .

4 .2 - s e n ã o , v a i p a r a 6 .

A p o n t a p r ó x i m a p o s i ç ã o . S e f o r menor q u e 8 1 v a i p a r a 4 . Caso

c o n t r á r i o :

5 . 1 - S e e s t i v e r com a i m p r e s s ã o s u p r i m i d a :

5 . 1 . 1 - Chama r o t i n a LEREG ( ~ ~ ê n d i c e 1 1 1 . 1 3 ) p a r a l e r

o p r ó x i m o r e g i s t r o e s e já h o u v e r p e r c o r r i d o ' t o d o o a r q u i v o chama TERMO ( ~ ~ ê n d i c e 1 1 1 . 1 0 ) e

r e t o r n a .

5 . 1 . 2 - V a i p a r a 3 .

S e o t e x t o com a e d i ç ã o s u p r i m i d a , r e d e f i n e margem e s q u e r d a .

V e r i f i c a s e a s p o s i ç õ e s a p a r t i r d a p o s i ç ã o m a r c a d a a t é a p o

s i ç ã o a t u a l cabem n a á r e a a u x i l i a r d e s a í d a q u e c o n t e m o t e x - #

t o f o r m a t a d o . S e c o u b e r , t r a n s f e r e a s p o s i ç õ e s p a r a e s t a a -

r e a a p a r t i r d a margem e s q u e r d a d e t e r m i n a d a . S e h o u v e r i m - - p r e s s a 0 em n e g r i t o , e s t e s c a r a c t e r e s também s ã o t r a n s f e r i d o s

p a r a uma á r e a d e t e r m i n a d a . A c e r t a margem e s q u e r d a .

S e a p o s i ç ã o f o r m a i o r q u e 8 1 e x e c u t a 5 . 1 . 1 . Se a p o s i ç ã o

c o r r e s p o n d e r a um $ :

8 . 1 - Chama r o t i n a ROUT ( ~ ~ ê n d i c e 1 1 1 . 3 ) .

S e j á e s t i v e r p e r c o r r i d o t o d o o a r q u i v o chama TERMO ( A - p ê n d i c e 1 1 1 . 1 0 ) e r e t o r n a .

9 - A p o n t a p o s i ç ã o e e x e c u t a 5 . 1 . 1 . S e e s t a p o s i ç ã o f o r

$ v a i p a r a 8 . 1 .

10 ;- V a i p a r a 3 .

1 1 1 . 3 - ROTINA ROUT

O b j e t i v o : R e c o n h e c e r c a d a comando d e e d i ç ã o e c h a m a r o procedi me^ - t o a d e q u a d o p a r a e x e c u ç ã o d o mesmo.

1 - A p o n t a a p r ó x i m a p o s i ç ã o n o r e g i s t r o e chama r o t i n a LEREG (A -

p ê n d i c e 1 1 1 . 1 3 ) p a r a v e r s e a t i n g i u f i n a l d e r e g i s t r o .

2 - S e o comando c o m e ç a r p o r I , M , N , P , F e R, e x e c u t a p a s s o l e

a s e g u i r o s p a s s o s 2 . 1 , 2 . 2 , 2 . 3 , 2 . 4 , 2 . 5 e 2 .6 r e s p e c t i v a -

m e n t e .

2 . 1 - S e o 20 c a r a c t e r do comando f o r X , I , R , O , T e x e c u t a

p a s s o s 2 . 1 . 1 , 2 . 1 . 2 , 2 . 1 . 3 , 2 . 1 . 4 , 2 . 1 . 5 r e s p e c t i v a m e n - t e . C a s o c o n t r á r i o , chama r o t i n a COMPA ( ~ ~ ê n d i c e I I I :3L)

S e d a q u e l a p o s i ç ã o a t é o f i n a l d o r e g i s t r o s ó e x i s t i r '

c a r a c t e r b r a n c o v a i p a r a 2 . 1 , s e n ã o r e t o r n a ( n e s s e ca-

s o o $ a c h a d o n ã o f a z p a r t e d e um comando) .

2 . 1 . 1 - M a r c a a p o s i ç ã o q u e o p r ó x i m o c a r a c t e r v a i t e r

n a á r e a a u x i l i a r d e s a r d a e r e t o r n a .

2 . 1 . 2 - S e o c o n t e ú d o d a á r e a a u x i l i a r a i n d a n ã o f o i i m -

p r e s s o , chama r o t i n a IMPL ( ~ ~ ê n d i c e 1 1 1 . 2 3 ) .

2 . 1 . 2 . 1 - R e t o r n a .

2 . 1 . 3 - E x e c u t a p r o c e d i m e n t o 2 . 1 . 2 , r e d e f i n e margem e s - q u e r d a p a r a a p o s i ç ã o c o r r e s p o n d e n t e a i m p r e s -

s ã o d o r o d a p é e r e t o r n a .

2 . 1 . 4 - L i g a uma c h a v e p a r a i n d i c a r q u e e x i s t e i m p r e s -

s ã o em n e g r i t o e r e t o r n a .

2 . 1 . 5 - I n i c i a l i z a a r q u i v o d e t z t u l o s , chama r o t i n a ' TITLE ( ~ ~ ê n d i c e 1 1 1 . 7 ) e r e t o r n a .

2 . 2 - S e o 20 c a r a c t e r do comando f o r P : e x e c u t a 2 . 1 . 2 ; cha -

m a r o t i n a PAGE e r e t o r n a . S e n ã o , chama r o t i n a COMPA (A - p ê n d i c e 1 1 1 . 2 1 ) . S e d a q u e l a p o s i ç ã o a t é o f i n a l d o r e -

g i s t r o s ó t i v e r c a r a c t e r b r a n c o v a i p a r a 2 . 2 . C a s o c o n - t r á r i o , r e t o r n a .

2 . 3 - S e o 20 c a r a c t e r do comando c o m e ç a r p o r C ou P , chama

r e s p e c t i v a m e n t e r o t i n a s COLUM ( ~ ~ ê n d i c e 1 1 1 . 6 ) o u NEWP

( ~ ~ ê n d i c e 1 1 1 . 8 ) e r e t o r n a .

2 . 4 - S e o 2 0 c a r a c t e r c o m e ç a r p o r L , I ou E e x e c u t a 2 . 4 . 1 , 2 . 4 . 2 e 2 . 4 . 3 r e s p e c t i v a m e n t e . S e n ã o f o r nenhum dos 3

s ~ m b o l o s chama r o t i n a COMPA. S e d a q u e l a p o s i ç ã o a t é o

f i n a l do r e g i s t r o s ó e x i s t i r c a r a c t e r b r a n c o t e s t a 2 . 4

d e n o v o . C a s o c o n t r á r i o , r e t o r n a .

2 . 4 . 1 - Chama r o t i n a PULA ( ~ ~ ê n d i c e 1 1 1 . 4 ) e r e t o r n a .

2 . 4 . 2 - I n d i c a q u e a i m p r e s s ã o d o t e x t o ; s e r á s u s p e n s a

e r e t o r n a .

2 . 4 . 3 - E x e c u t a 2 . 1 . 2 ; a p o n t a p o n t e i r o d o r e g i s t r o pa-

r a a Ú l t i m a p o s i ç ã o chama r o t i n a LEREG, r e d e f i - n e margem e s q u e r d a e r e t o r n a .

2 . 5 - S e o 20 c a r a c t e r c o m e ç a r p o r 0 , T, i, X , R e x e c u t a . ' 2 . 5 . 1 , 2 . 5 . 2 , 2 . 5 . 3 , 2 . 5 . 4 e 2 . 5 . 5 r e s p e c t i v a m e n t e . S e

n ã o f o r , chama r o t i n a COMPA. S e d a q u e l a p o s i ç ã o a t é o

f i n a l do r e g i s t r o s ó e x i s t i r c a r a c t e r b r a n c o t e s t a 2 . 5

n o v a m e n t e . Caso c o n t r á r i o , r e t o r n a .

2 . 5 . 1 - I n d i c a f i m d e o v e r p r i n t e r e t o r n a .

2 . 5 . 2 - Chama r o t i n a IMPL ( ~ ~ ê n d i c e I I I . 2 3 ) , m a r c a f i m

d e t í t u l o e r e t o r n a .

2 . 5 . 3 - Chama r o t i n a IMPL, m a r c a f i m d e í n d i c e e r e t o r -

n a .

2 . 5 . 4 - G u a r d a i n f o r m a ç ã o r e l a t i v a a o í n d i c e d e r e f e -

r ê n c i a c r u z a d a , chama r o t i n a GRAVA ( ~ ~ ê n d i c e ' 1 1 1 . 1 1 ) e r e t o r n a .

2 . 5 . 5 - Chama r o t i n a IMPL, m a r c a f i m d e r o d a p é e r e t o r - n a .

2 . 6 - S e o 29 c a r a c t e r f o r d i f e r e n t e d e I ou E :

2 . 6 . 1 - Chama r o t i n a COMPA. Se d a q u e l a p o s i ç ã o a t é o ' f i n a l do ' r e g i s t r o s ó t i v e r c a r a c t e r b r a n c o v 0 1 - t a a t e s t a r 2 . 6 . S e n ã o , r e t o r n a .

,.. 2 . 6 . 2 - Caso c o n t r á r i o , r e i n i c i a i m p r e s s a 0 e e d i ç ã o '

r e s p e c t i v a m e n t e e r e t o r n a .

3 - S e o comando n ã o c o m e ç a r p o r A , B o u C , chama COMPA. S e da-

q u e l a p o s i ç ã o a t é o f i n a l d o r e g i s t r o s ó e x i s t i r c a r a c t e r ' b r a n c o e x e c u t a p a s s o 3 n o v a m e n t e . S e n ã o , r e t o r n a .

C a s o c o n t r á r i o , e x e c u t a p a s s o s 3 . 1 , 3 .2 e 3 . 3 r e s p e c t i v a m e n -

t e .

3 . 1 - S e o 20 c a r a c t e w c o m e ç a r p o r P c o l o c a em uma á r e a a u x i -

l i a r o c a r a c t e r ' i ' r e l a t i v o a a c e n t u a ç ã o e r e t o r n a .

3 . 2 - S e o 20 c a r a c t e r c o m e ç a r p o r R chama r o t i n a BRANC ( A-

p ê n d i c e 1 1 1 . 5 ) e r e t o r n a .

3 . 3 - S e o 20 c a r a c t e r c o m e ç a r p o r E c o l o c a em uma á r e a a u x i - l i a r o c a r a c t e r ' , \ r e l a t i v o a c e d i l h a e r e t o r n a .

1 1 1 . 4 - ROTINA PULA

O b j e t i v o : S a l t a r o número d e l i n h a ( s ) e s t a b e l e c i d o p e l o comando

$P Ln.

1 - I m p r i m e o c o n t e ú d o d a á r e a a u x i l i a r - r o t i n a IMPL ( ~ ~ ê n d i c e '

1 1 1 . 2 3 ) - c a s o e s t a a i n d a n ã o t e n h a s i d o i m p r e s s a .

2 - A p o n t a p o s i ç ã o no r e g i s t r o e chama r o t i n a LEREG ( A-

p ê n d i c e 1 1 1 . 1 3 ) . S e j á h o u v e r p e r c o r r i d o t o d o a r q u i v o r e t o r -

n a .

3 - T e s t a s e a q u e l a p o s i ç ã o c o r r e s p o n d e a um c a r a c t e r n u m é r i c o . Em c a s o a f i r m a t i v o g u a r d a - o e v a i p a r a 2 . C a s o c o n t r á r i o :

3 . 1 - Chama r o t i n a COMPA ( ~ ~ ê n d i c e 1 1 1 . 2 1 ) . S e d a q u e l a p o s i -

ç ã o a t é o f i n a l do r e g i s t r o s ó e x i s t i r b r a n c o s :

3 . 1 . 1 - S e a i n d a n ã o h o u v e r r e c o n h e c i d o nenhum c a r a c t e r

n u m é r i c o v a i p a r a 2 .

3 . 1 . 2 - T r a n s f e r e o s c a r a c t e r e s n u m é r i c o s p o s t e r i o r e s ' a

a o comando no r e g i s t r o a n t e r i o r p a r a uma a r e a '

a u x i l i a r e v a i p a r a 2 , c o n t i n u a n d o a p e s q u i s a .

4 - S e a e t a p a 3 . 1 . 2 f o i e x e c u t a d a , a g r u p a t o d o s o s c a r a c t e r e s ' n u m é r i c o s e n c o n t r a d o s e v a i p a r a 5 .

C a s o c o n t r á r i o , s e o 1 9 c a r a c t e r d i f e r e n t e de b r a n c o , p o s t e - 4 -

r i o r a o comando n ã o f o r n u m é r i c o , e p o r q u e n a o f o i e n c o n t r a -

do o n ? d e l i n h a s a s e r s a l t a d a e r e t o r n a .

5 - Chama r o t i n a C O N C A ( ~ p ê n d i c e 1 1 1 . 1 4 ) p a r a a g r u p a r o s c a r a c t e - x e s e n c o n t r a d o s e f o r m a r o ( n ú m e r o n a b a s e 1 0 .

6 - S e o número d e l i n h a s a s e r e m s a l t a d a s n a p á g i n a u l t r a p a s s a -

rem o l i m i t e máximo d e l i n h a p o r p á g i n a :

6 . 1 - S e e x i s t i r r o d a p é n a q u e l a p á g i n a chama r o t i n a ESCR (A-

p ê n d i c e 1 1 1 . 1 6 ) p a r a i m p r i m í - l o .

7 - S a l t a número d e l i n h a s . P a r a c a d a l i n h a s a l t a d a e x e c u t a ( 7 . 1

e 7 . 2 ) :

7 . 1 - Se u l t r a p a s s a r o n ? máximo d e l i n h a s p o r p á g i n a chama

r o t i n a PAGE ( ~ ~ ê n d i c e 1 1 1 . 9 ) e v a i p a r a 8 .

7 . 2 - Chama r o t i n a PROC1 ( ~ ~ ê n d i c e 1 1 1 . 1 8 ) .

8 - A p o h t a p o s i ç ã o a n t e r i o r no r e g i s t r o e r e t o r n a .

1 1 1 . 5 - ROTINA BRANC

O b j e t i v o : D e i x a r n e s p a ç o s em b r a n c o e n t r e um t e x t o e o u t r o em - u

ma l i n h a c o n f o r m e a e s p e c i f i c a ç ~ o d a d a p e l o comando ' $BRn.

1 - A p o n t a p o s i ç ã o n o r e g i s t r o e chama r o t i n a LEREG ( A-

p ê n d i c e 1 1 1 . 1 3 ) . S e j á h o u v e r p e r c o r r i d o t o d o o a r q u i v o r e -

t o r n a .

2 - T e s t a s e a q u e l a p o s i ç ã o c o r r e s p o n d e a um c a r a c t e r n u m é r i c o . Em c a s o a f i r m a t i v o g u a r d a - o e v a i p a r a 1.

s e n ã o chama r o t i n a COMPA ( ~ ~ ê n d i c e 1 1 1 . 2 1 ) . S e d a q u e l a p o s i -

ç ã o a t é o f i n a l d o r e g i s t r o s ó e x i s t i r b r a n c o s :

2 . 1 - S e a i n d a n ã o h o u v e r r e c o n h e c i d o nenhum número v a i p a r a

1.

2 . 2 - T r a n s f e r e o s c a r a c t e r e s n u m é r i c o s s e g u i n t e s a o comando

c o n t i d o s no r e g i s t r o a n t e r i o r p a r a uma á r e a a u x i l i a r e

v a i p a r a 1.

3 - Se a e t a p a 2 . 2 f o i e x e c u t a d a , a g r u p a t o d o s o s c a r a c t e r e s nu-

m é r i c o s - e n c o n t r a d o s e v a i p a r a 4 . C a s o c o n t r á r i o , s e o 1 9 ' c a r a c t e r d i f e r e n t e d e b r a n c o , p o s t e r i o r a o comando n ã o f o r ' n u m é r i c o r e t o r n a .

4 - Chama r o t i n a C O N C A ( ~ ~ ê n d i c e 1 1 1 . 1 4 ) . #

5 - Chama r o t i n a CABE ( ~ ~ ê n d i c e 1 1 1 . 1 2 ) p a r a t e s t a r s e -o numero

d e e s p a ç o s a s e r d e i x a d o s em b r a n c o cabem n a q u e l a l i n h a , s e

n ã o c o u b e r e m v a i p a r a 7 .

6 - C a s o c o n t r á r i o , a c e r t a margem e s q u e r d a a p a r t i r d e o n d e o p r Õ - ximo c a r a c t e r s e r á mov ido n a á r e a a u x i l i a r d e s a í d a .

7 - A p o n t a p o s i ç ã o a n t e r i o r n o r e g i s t r o e r e t o r n a .

1 1 1 . 6 - ROTINA COLUM

O B j e t i v o : A l t e r a r a s m a r g e n s d i r e i t a e e s q u e r d a e s t a b e l e c i d o pe-

l o comando $NCx,y , z ,

1 - I m p r i m e o c o n t e ú d o d a á r e a a u x i l i a r - r o t i n a IMPL ( A p ê n d i c e

1 1 1 . 2 3 ) - c a s o e s t a a i n d a n ã o t e n h a s i d o i m p r e s s a .

2 - A p o n t a p o s i ç ã o n o r e g i s t r o e chama r o t i n a LEREG ( 8-

p ê n d i c e 1 1 1 . 1 3 ) . S e j á h o u v e r p e r c o r r i d o t o d o o a r q u i v o r e -

t o r n a .

3 - T e s t a s e a q u e l a p o s i ç ã o c o r r e s p o n d e a um c a r a c t e r n u m é r i c o . Em c a s o p o s i t i v o v a i p a r a 2 . Caso c o n t r á r i o s

3 . 1 - Chama r o t i n a COMPA ( A p ê n d i c e 1 1 1 . 2 1 ) . S e d a q u e l a p o s i -

ção a t é o f i n a l do r e g i s t r o s ó e x i s t i r b r a n c o s :

3 . 1 . 1 - S e a l a . p o s i ç ã o d o r e g i s t r o s e g u i n t e f o r v í r -

g u l a :

3 . 1 . 1 . 1 - Reune o s c a r a c t e r e s n u m é r i c o s p o s t e -

r i o r e s a o comando c o n t i d o s no r e g i s -

t r o a n t e r i o r e v a i p a r a 2 .

3 . 1 . 2 - S e a i n d a n ã o h o u v e r r e c o n h e c i d o nenhum n ú m e r o ,

v a i p a r a 2 . S e n ã o e x e c u t a 3.1.1.1.

4 - S e a e t a p a 3 . 1 . 1 . 1 f o i e x e c u t a d a a g r u p a t o d o s o s c a r a c t e r e s '

n u m é r i c o s c o n t i d o s n o comando e v a i p a r a 6 .

5 - S e o 1 9 c a r a c t e r d i f e r e n t e d e b r a n c o , s e g u i n t e a o comando ou

a uma v z r g u l a c o n t i d a n a s i n t a x e d o mesmo n ã o f o r n u m é r i c o e

r e t o r n a .

6 - Chama r o t i n a C O N C A ( A p ê n d i c e 1 1 1 . 1 4 ) . S e o número f o r m a d o c o r - r e s p o n d e r a x o u y , e s t a b e l e c e o número d e l i n h a s ( = x ) e a

margem e s q u e r d a ( = Y ) . S e a p o s i ç ã o c o r r e s p o n d e r a uma v í r g u -

l a v a i p a r a 2 . C a s o c o n t r á r i o r e t o r n a .

7 - Se c o r r e s p o n d e r a o z , e s t a b e l e c e a margem d i r e i t a , a p o n t a po - s i ç ã o a n t e r i o r no r e g i s t r o e r e t o r n a .

1 1 1 . 7 - R O T I N A TITLE

O b j e t i v o : I m p r i m i r o t z t u l o n o t o p o d e um p á g i n a a p a r t i r d a s e s - p e c i f i c a ç õ e s f o r n e c i d a s a p a r t i r d o comando $ I T x , y .

P a s s o s 1, 2 , 3 , 4 e 5 i d ê n t i c o s a o s d a r o t i n a a n t e r i o r .

6 - Chama r o t i n a C O N C A . S e o n ú m e r o f o r m a d o c o r r e s p o n d e r a o x , e s - t a b e l e c e o número de l i n h a s a p a r t i r do q u a l o t í t u l o s e r á ' i m p r e s s o . S e a p o s i ç ã o n o r e g i s t r o c o r r e s p o n d e r a v Z r g u l a , v a i

p a r a 1. S e n ã o , r e t o r n a .

7 - S e o n ú m e r o f o r m a d o c o r r e s p o n d e r a y , e s t a b e l e c e a margem e s -

q u e r d a p a r a i m p r e s s ã o d o t c t u l o , a p o n t a p o s i ç ã o a n t e r i o r n o

r e g i s t r o e r e t o r n a .

1 1 1 . 8 - ROTINA NEWP

O b j e t i v o : E s t a b e l e c e r um novo p a r á g r a f o p a r a a p?ox ima l i n h a a " s e r i m p r e s s a ( $ N P n ) .

1 - I m p r i m e o c o n t e ú d o d a á r e a a u x i l i a r ( r o t i n a IMPL) c a s o e s t a

a i n d a n ã o t e n h a s i d o i m p r e s s a .

2 - A p o n t a p r Ó x i m a p o s i ç ã o no r e g i s t r o . Se j á h o u v e r p e r c o r r i d o '

t o d o o a r q u i v o r e t o r n a .

3 - T e s t a s e a q u e l a p o s i ç ã o c o r r e s p o n d e a um c a r a c t e r n u m é r i c o

E m c a s o p o s i t i v o g u a r d a - o e v a i p a r a 2 . C a s o c o n t r á r i o :

3 . 1 - Chama r o t i n a COMPA ( ~ ~ ê n d i c e I I I . 2 1 ) , Se d a q u e l a p o s i -

ç ã o a t é o f i n a l d o r e g i s t r o s ó e x i s t i r b r a n c o s :

3 . 1 . 1 - S e a i n d a n ã o t i v e r f o r m a d o nenhum número v a i ' p a r a 2 .

3 . 1 . 2 - s e n ã o , t r a n s f e r e p a r a uma á r e a a u x i l i a r a s po-

s i ç õ e s n u m é r i c a s c o n t i d a s n o r e g i s t r o a n t e r i o r

q u e s e g u e m o comando $NP e v a i p a r a 2 .

4 - S e o p a s s o 3 . 1 . 1 t i v e r s i d o e x e c u t a d o a g r u p a t o d o s o s c a r a c -

t e r e s e n c o n t r a d o s a p ó s o comando e v a i p a r a 6 .

5 - S e nenhum número t i v e r s i d o e n c o n t r a d o a p ó s o comando, o p a -

r á g r a f o c o n t i n u a s e n d o o mesmo j á d e f i n i d o a n t e r i o r m e n t e (a-

t r a v é s d o s c a r t õ e s d e c o n t r o l e ou p e l o s i s t e m a ) e v a i

p a r a 7 .

6 - Chama r o t i n a C O N C A . S e e s t i v e r s o b a ç ã o do comando $NCx,y , z ,

a margem e s q u e r d a c o n t i n u a s e n d o a mesma p o r e l e e s t i p u l a d a .

C a s o c o n t r á r i o e l a é a l t e r a d a p a r a n .

7 - A p o n t a p o s i ç ã o a n t e r i o x do r e g i s t r o e r e t o r n a .

1 1 1 . 9 - ROTINA PAGE

O b j e t i v o : E f e t u a r mudança d e p á g i n a .

1 - S e e x i s t i r r o d a p é n a q u e l a p á g i n a , p o s i c i o n a l i n h a p a r a a po-

s i ç ã o q u e m a r c a o i n z r i o d e r o d a p é . P a r a c a d a l i n h a q u e f o r

s a l t a d a , chama r o t i n a PROCI ( ~ p ê n d i c e 1 1 1 . 1 8 ) p a r a t e s t a r s e

o u s u á r i o s o l i c i t o u a r q u i v o b a c k u p . Chama r o t i n a ESCR ( ~ p ê n - dite 1 1 1 . 1 6 ) p a r a i m p r i m i r o r o d a p é .

2 - Chama r o t i n a I N I C 1 ( . ~ p ê n d i c e 1 1 1 . 2 4 ) p a r a i n i c i a l i z a r n o v a

p á g i n a . S e h o u v e r i m p r e s s ã o d o t i t u l o , p o s i c i o n a l i n h a p a r a

i m p r e s s ã o d o mesmo. P a r a c a d a l i n h a s a l t a d a , chama PROC1.Cha - ma ESCR p a r a i m p r i m i r o t í t u l o .

3 - E s t a b e l e c e l i n h a t o p o ( l a . l i n h a d a p á g i n a ) e p a r a c a d a li-

n h a s a l t a d a chama r o t i n a PROC1.

1 1 1 . 1 0 - ROTINA TERMO

O b j e t i v o : E f e t u a r a i m p r e s s ã o d o í n d i c e p o r p á g i n a e d e r e f e r ê n -

c i a c r u z a d a .

1 - I m p r i m e o c o n t e c d o d a á r e a a u x i l i a r ( . r o t i n a IMPL) c a s o e s t a

a i n d a n ã o t e n h a s i d o i m p r e s s a .

2 - C a s o e x i s t a r o d a p é n a Ú l t i m a p á g i n a i m p r e s s a , chama r o t i n a - ESCR p a r a e f e t u a r a i m p r e s s a o .

3 - Chama r o t i n a FINAL ( ~ p ê n d i c e 1 1 1 . 2 5 ) p a r a i m p r i m i r os í n d i c e s

4 - S e o u s u á r i o h o u v e r s o l i c i t a d o m a i s d e 1 c ó p i a d o a r q u i v o

" b a c k u p " , chama a s r o t i n a s ESCR e FINAL r e s p e c t i v a m e n t e pa -

r a c a d a c ó p i a e d i t a d a .

5 - R e t o r n a .

111.11 - ROTINA GRAVA

O b j e t i v o : G r a v a r a s i n f o r m a ç õ e s r e l a t i v a s a o s a r q u i v o s d e í n d i ~

c e , r o d a p é s , r e f e r ê n c i a c r u z a d a e t í t u l o s .

1 - P r o c u r a no a r q u i v o s o l i c i t a d o o l? r e g i s t r o d i s p o n í v e l p a r a -

g r a v a ç a o .

2 - Chama r o t i n a PROC ( ~ ~ ê n d i c e 1 1 1 . 1 7 ) p a r a g r a v a s ã o d e a c e n t o s ,

c e d i l h a s ou o v e r p r i n t .

3 - C o l o c a f l a g a p ó s o Ú l t i m o r e g i s t r o g r a v a d o no a r q u i v o .

1 1 1 . 1 2 - ROTINA C A B E

O b j e t i v o : V e r i f i c a r s e é p o s s í y e l t r a n s f e r i r t o d a s a s p o s i ç õ e s d

p a r a a a r e a a u x i l i a r d e s a í d a .

1 - S e a p o s i ç ã o a t u a l a c r e s c i d a d o número d e p o s i ç õ e s a s e r e m

t r a n s f e r i d a s n ã o u l t r a p a s s a r a margem d i r e i t a e s t a b e l e c i d a , r e t o r n a .

2 - C a s o c o n ' t r á r i o , t r a n s f e r e p a r a a á r e a d e s a í d a a p e n a s o nÚme -

r o d e p o s i ç õ e s q u e f a l t a m p a r a c o m p l e t a r a t é a s u a margem d i - r e i t a .

3 - Chama r o t i n a IMPL ( ~ ~ ê n d i c e 1 1 1 . 2 3 ) p a r a e f e t u a r a i m p r e s s ã o .

4 - T r a n s f e r e p a r a a á r e a d e s a í d a o r e s t a n t e d a s p o s i ç õ e s q u e ' n ã o c o u b e r a m no p a s s o 2 , r e t i r a n d o p o s i ç õ e s em b r a n c o d e s n e -

c e s s á r i a s .

5 - S e d u r a n t e a t r a n s f e r ê n c i a a á r e a d e s a í d a a i n d a n ã o f o r s u -

f i c i e n t e p a r a c o n t e r t o d o o t e x t o , o s p a s s o s 2 , 3 e 4 s ã o e -

x e c u t a d o s n o v a m e n t e . - 6 - A t u a l i z a o p o n t e i r o q u e m a r c a a p o s i ç ã o n a a r e a d e s a í d a a '

p a r t i r d o q u a l o p r ó x i m o c a r a c t e r s e r á mov ido e r e t o r n a .

1 1 1 . 1 3 - ROTINA LEREG

O b j e t i v o : T e s t a r s e j á a t i n g i u f i n a l d e r e g i s t r o e a v i s a r q u a n d o

o a r q u i v o F o n t e j á f o i t o t a l m e n t e p e r c o r r i d o .

1 - Se o p o n t e i r o q u e p e r c o r r e c a d a r e g i s t r o f o r m a i o r d o q u e 80 ,

a p o n t a p r ó x i m o r e g i s t r o . Se e s t e f o r i g u a l a o r e g i s t r o ' i n i - - c i a l d o a r q u i v o , e p o r q u e o mesmo j á f o i t o d o p e r c o r r i d o . Re - t o r n a .

2 - Le r e g i s t r o , d e s c o m p a c t a - o p a r a o f o r m a t o A 1 e r e t o r n a .

1 1 1 . 1 4 - R O T I N A C O N C A

O b j e t i v o : T r a n s f o r m a r o c o n j u n t o d e c a r a c t e r e s n u m é r i c o s p a r a um

número n a b a s e 1 0 .

1 - NUM- O

2 - P a r a c a d a d I g i t o : formato

N U M c N U M + ( d - 4 0 3 2 / 3 ) * 1 O n

n : p o t ê n c i a d e 1 0 e q u i v a l e n t e a c a s a d e c i m a l q u e o c u p a .

1 1 1 . 1 5 - R O T I N A O R D E N

O b j e t i v o : I m p r i m i r em o rdem a l f a b é t i c a o a r q u i v o d e r e f e r ê n c i a '

c r u z a d a .

1 - C o n t a número d e r e g i s t r o s g r a v a d o s (MAX) no a r q u i v o ( sem c o n - t a r com o FLAGJ ; I+ O .

2 - IÍ-I+1; s e I>MAX v a i p a r a 7 .

s e n ã o l e r e g i s t r o ; Se o s 2 p r i m e i r o s c a r a c t e r e s c o r r e s p o n d e -

rem a $1, $ 2 ou $ 3 v a i p a r a 2 .

3 - 5 2 - I + 1 .

4 - Le r e g i s t r o 5 2 . Se o s 2 p r i m e i r o s c a r a c t e r e s c o r r e s p o n d e r e m a

$ 1 , $2 ou $ 3 , v a i p a r a 6 .

5 - Compara o c o n t e ú d o d o r e g i s t r o I com o d o r e g i s t r o 5 2 . S e a

c h a v e d o l ? ( a s 5 p r i m e i r a s l e t r a s s ã o c o m p a r a d a s d a s e g u i n -

t e f o r m a : s e a l a . l e t r a d o r e g i s t r o I f o r i g u a l a l a . d o r e -

g i s t r o 5 2 , a 2 a . l e t r a é c o m p a r a d a , e a s s i m s u c e s s i v a m e n t e )

f o r s u p e r i o r a d o 2 0 , o s 2 r e g i s t r o s t r o c a m d e p o s i ç ã o e n t r e

s i n o a r q u i v o . (Obs : Sempre q u e o r e g i s t r o s e g u i n t e a I o u J 2

c o m e ç a r p o r $1, $ 2 ou $3, e s t e s acompanham também o s r e s p e c -

t i v o s r e g i s t r o s I e 5 2 d u r a n t e a t r o c a , i s t o é, c o n t i n u a m

s e n d o o s r e g i s t r o s s e g u i n t e s a I e 5 2 no a r q u i v o ) .

6 - J 2 & 5 2 + 1 ; s e J2>MAX-1 v a i p a r a 2 , s e n ã o v a i p a r a 4 .

7 - A p o n t a l ? r e g i s t r o d o a r q u i v o .

8 - Le r e g i s t r o , s e c o m e ç a r p o r $ chama r o t i n a PONT ( ~ ~ ê n d i c e ' 1 1 1 . 2 2 ) e v a i p a r a 9 . S e n ã o , i m p r i m e r e g i s t r o ( t e x t o s i g u a i s

s ã o i m p r e s s o s a p e n a s 1 v e z a c r e s c i d o s d o s d i v e r s o s n ú m e r o s

d e p á g i n a ) . Se a t i n g i r o número máximo d e l i n h a s p o r p á g i n a ,

chama r o t i n a PAGE ( ~ ~ ê n d i c e 1 1 1 . 9 ) .

9 - A p o n t a p r ó x i m o r e g i s t r o . Se e s t e f o r s u p e r i o r a MAX r e t o r n a .

C a s o c o n t r á r i o v a i p a r a 8 .

1 1 1 . 1 6 - ROTINA ESCR

4

O b j e t i v o : I m p r i m i r o s a r q u i v o s " b a c k u p " , i n d i c e , t í t u l o s e r o d a -

p é s q u a n d o e s t e s f o r e m s o l i c i t a d o s .

1 - I - t O

2 - 1- I + 1 ; l e r e g i s t r o I ; s e f o r i g u a l a o FLAG:

2 . 1 - S e o a r q u i v o i m p r e s s o f o r o d e r o d a p é s , i n i c i a l i z a a r -

q u i v o .

2 . 2 - R e t o r n a .

3 - S e o r e g i s t r o c o m e ç a r p o r $ v a i p a r a 7 .

3 . 1 - s e n ã o , s e c o m e ç a r p o r 'PPPP ' muda d e p á g i n a .

3 . 2 - S e o a r q u i v o s o l i c i t a d o f o r o b a c k u p v a i p a r a 2 .

3 . 3 - s e n ã o , chama r o t i n a I N I C 1 ( ~ ~ ê n d i c e 1 1 1 . 2 4 ) e v a i p a r a

2.

4 - S e a l i n h a a t u a l i m p r e s s a u l t r a p a s s a r o l i m i t e d e l i n h a s p o r

p á g i n a :

4 . 1 - Se o a r q u i v o f o r d e r o d a p é s v a i p a r a 8 .

4 . 2 - S e o a r q u i v o f o r o " b a c k up" : muda d e p á g i n a e v a i pa -

4 . 3 - Chama r o t i n a I N I C 1 e v a i p a r a 6 .

5 - Se o a r q u i v o i m p r e s s o f o r o "back -up" e o u s u á r i o t i v e r s o l i - c i t a d o i m p r e s s ã o p a r c i a l , v e r i f i c a s e a l i n h a a t u a l d e v e s e r

i m p r e s s a . Em c a s o n e g a t i v o , v a i p a r a 2 .

6 - I m p r i m e i n f o r m a ç ã o , a p o n t a a p r ó x i m a l i n h a d a p á g i n a e v a i ' p a r a 2 .

7 - Chama r o t i n a PONT ( ~ ~ ê n d i c e 1 1 1 . 2 2 ) p a r a i m p r i m i r c e d i l h a s , 1 1 o v e r p r i n t " e a c e n t o s . Se o $ a c h a d o f i z e r p a r t e d o t e x t o , ' v a i p a r a 6 . C a s o c o n t r á r i o :

7 . 1 - S e a G l t i m a l i n h a i m p r e s s a f o r a Ú l t i m a d a p á g i n a .

S e o a r q u i v o f o r " b a c k - u p " , muda d e p á g i n a e v a i p a r a

2 .

s e n ã o , chama r o t i n a I N I C 1 e v a i p a r a 2 .

7 . 2 - C a s o c o n t r á r i o , v a i p a r a 2 .

8 - T r a t a m e n t o p a r a i m p r e s s ã o d o r o d a p é : -

C o n t a o número d e l i n h a s q u e a i n d a f a l t a m p a r a a i m p r e s s a 0 ' d o r o d a p é . I n i c i a l i z a n o v a p á g i n a ( r o t i n a I N I C l ) , e a p o n t a a

p o s i ç ã o d a l i n h a n e c e s s á r i a p a r a c o m p l e t a r a i m p r e s s ã o d o r o - d a p é ( c o n t a n d o d e b a i x o p a r a c i m a , a p a r t i r d a Ú l t i m a l i n h a

d e t e r m i n a d a p a r a a i m p r e s s ã o d o r o d a p é , o número d e l i n h a s ' q u e a i n d a f a l t a m p a r a c o m p l e t a r a s u a i m p r e s s ã o ) . P a r a c a d a

l i n h a s a l t a d a n a p á g i n a , a r o t i n a PROC1 é e x e c u t a d a . V a i p a r a

2 .

1 1 1 . 1 7 - ROTINA PBOC

O b j e t i v o : D e t e r m i n a r q u a n d o a i n f o r m a ç ã o d e um d e t e r m i n a d o r e g i s -

t r o c o n t e m c e d i l h a s , a c e n t o s ou o v e r p r i n t . o c ó d i g o e s - t a b e l e c i d o é o s e g u i n t e :

$ l n . . . ( p a r a c e d i l h a s * )

$ 2 n . . . ( p a r a a a c e n t u a ç ã o )

$ 3 n . . . ( - o v e r p r i n t )

n : i n d i c a a s p o s 2 ç Õ e s o n d e i s t o s e v e r i f i c a no r e g i s -

t r o .

1 - S e n ã o e x i s t i r a c e n t o s , c e d i l h a s e i n f o r m a ç ã o em " o v e r p r i n t "

r e t o r n a .

2 - T e s t a c a d a p o s i ç ã o d a á r e a r e s e r v a d a p a r a c e d i l h a ( é a mesma

p a r a a c e n t o ) . Sempre q u e e n c o n t r a r v í r g u l a o u a p ó s t r o f e g u a r - d a o número d a p o s i ç ã o em á r e a s s e p a r a d a s ( á r e a 1 p a r a c e d i -

l h a s e á r e a 2 p a r a a c e n t o s ) .

3 - E x e c u t a o mesmo p r o c e d i m e n t o n a á r e a d e " o v e r p r i n t f f ( á r e a 3 ) .

4 - G r a v a no r e g i s t r o s e g u i n t e d o a r q u i v o $ 1 s e g u i d o d a á r e a 1,

$ 2 s e g u i d o d a á r e a 2 e $3 s e g u i d o d a á r e a 3 . R e t o r n a .

1 1 1 . 1 8 - R O T I N A PROC1

O b j e t i v o : T e s t a r s e e x i s t e ou n ã o g r a v a ç ã o no a r q u i v o b a c k - u p .

1 - S e o u s u á r i o n ã o h o u v e r s o l i c i t a d o a r q u i v o b a c k - u p r e t o r n a .

2 - C a s o c o n t r á r i o chama r o t i n a GRAVA ( ~ ~ ê n d i c e 1 1 1 . 1 1 ) e r e t o r -

n a .

1 1 1 . 1 9 - ROTINA SEPAR

O b j e t i v o : E f e t u a r a s e p a r a ç ã o d e s í l a b a s d e a c o r d o com a s e g u i n -

t e r e g r a : q u a l q u e r 2 c o n s o a n t e s no f i n a l d a l i n h a d e v e - r ã o s e r s e p a r a d o s , e x c e t o o s g r u p o s - B R , BL, BS, C R , C L , C H , D R , FR, FL, G R , G L , G U , LH, M N , NS, N H , PS , PR,

P L , Q U , TR.

1 - Marca Ú l t i m a p o s i ç ã o d a margem d i r e i t a p r é - e s t a b e l e c i d a .

2 - S e f o r c ó n s o a n t e :

2 . 1 - S e a p o s i ç ã o a n t e r i o r n ã o f o r c o n s o a n t e v a i p a r a 3 . Se- -

n a o :

2 . 1 . 1 - S e a s 2 p o s i ç õ e s p e r t e n c e r e m a o g r u p o a c i m a e s -

p e c i f i c a d 0 , t r a n s f e r e a p a r t i r d a p o s i ç ã o a t u a l '

a t é o f i n a l d a l i n h a p a r a uma á r e a a u x i l i a r , p r e

e n c h e n d o com b r a n c o s a s p o s i ç õ e s a n t e r i o r e s .

V a i p a r a 2 . 2 .

2 . 1 . 2 - s e n ã o , t r a n s f e r e a p a r t i r d a p r ó x i m a p o s i ç ã o a - t é o f i n a l d a l i n h a p a r a uma á r e a a u x i l i a r , p r e

e n c h e n d o a s p o s i ç õ e s a n t e r i o r e s com b r a n c o s .

2 . 2 - C o n t a o número d e p o s i ç õ e s t r a n s f e r i d a s e o número d e

i n t e r v a l c s d a l i n h a .

2 . 3 - Chama r o t i n a TRANS ( A p ê n d i c e 1 1 1 . 2 0 ) p a r a i n s e r i r p o s i - s Õ e s em b r a n c o em c a d a i n t e r v a l o d a l i n h a r e f e r e n t e s a o

número d e p o s i ç õ e s t r a n s f e r i d a s . S e o número d e p o s i -

ç õ e s t r a n s f e r i d a s f o r s u p e r i o r a o número d e i n t e r v a l o s

e x e c u t a 2 . 3 n o v a m e n t e .

2 . 4 - Chama r o t i n a LISTA ( A p ê n d i c e 1 1 1 . 2 6 ) e r o t i n a TESTE (A - p ê n d i c e 1 1 1 . 2 7 ) . T r a n s f e r e a s p o s i ç õ e s g u a r d a d a s p o r ' 2 . 1 . 1 ou 2 . 1 . 2 p a r a a á r e a a u x i l i a r d e s a z d a ( c o r r e s p o n - d e a l i n h a ) , a t u a l i z a n d o o p o n t e i r o q u e i n d i c a

a margem e s q u e r d a , a p a r t i r d e o n d e o s p r ó x i m o s c a r a c -

t e r e s s e r ã o t r a n s f e r i d o s n e s t a á r e a em o u t r o s p r o c e d i -

m e n t o s . R e t o r n a .

3 - S e a p o s i ç ã o c o r r e s p o n d e r a um b r a n c o , v a i p a r a 2 . 1 . 2 .

s e n ã o , s e o u s u á r i o n ã o d e s e j a r s e p a r a ç ã o d e s í l a b a s :

3 . 1 - S e a p o s i ç ã o a t u a l j á c o r r e s p o n d e r a l a . p o s i ç ã o d a l i - n h a (margem e s q u e r d a ) , chama r o t i n a s LISTA, TESTE,e r e - t o r n a ( a l i n h a s e r á i m p r e s s a d o j e i t o q u e s e e n c o n t r a ) .

4 - M a r c a p o s i ç ã o a n t e r i o r e v a i p a r a 2 .

1 1 1 . 2 0 - ROTINA TRANS

O b j e t i v o : D i s t r i b u i r o número d e p o s i ç õ e s em b r a n c o r e f e r e n t e à s

p o s i ç Õ e s t r a n s f e r i d a s e n t r e o s i n t e r v a l o s d a l i n h a .

1 - C o n t a o número d e i n t e r v a l o s a s e r e m a l t e r a d o s a p a r t i r d o ' Ú l t i m o i n t e r v a l o d a l i n h a . M a r c a e s t a p o s i ç ã o .

2 - A p a r t i r d a p o s i ç ã o m a r c a d a , p a r a c a d a i n t e r v a l o q u e e n c o n - t r a r a t é o f i n a l d a l i n h a , a c r e s c e n t a o número d e b r a n c o s n e - c e s s ã r i o s (mesma q u a n t i d a d e p a r a c a d a i n t e r v a l o ) p a r a p r e e n -

c h e r a l i n h a a t é margem d i r e i t a e s t a b e l e c i d a . R e t o r n a .

1 1 1 . 2 1 - ROTINA COMPA

O b j e t i y o : T e s t a r s e e x i s t e a p o s s i b . i l i ' d a d e d e p a r t e d e iim c o m a n ~

d o e s t a r p r e s e n t e em um registro, e a p ó s v á r i a s p o s i ?

ç Õ e s em b r a n c o , o r e s t a n t e d o comando s s s e e n c o n t r a r '

no p r ó x i m o r e g i s t r o .

1 - S e a p o s i ç ã o d o r e g i s t r o n ã o f o r b r a n c o r e t o r n a .

2 - s e n ã o , s e o c o n t e ú d o a p a r t i r d a p o s i ç ã o a t u a l a t ê o f i n a l ' do r e g i s t r o f o r b r a n c o , chama r o t i n a LEREG ( . ~ ~ ê n d i c e 111.131.

S e n ã o h o u v e r p e r c o r r i d o t o d o o a r q u i v o m a r c a p o s i ç ã o i n i c i -

a l d o r e g i s t r o .

3 - R e t o r n a .

1 1 1 . 2 2 - ROTINA PONT

O b j e t i v o : I m p r i m i r a s c e d i l h a s , a c e n t o s e o v e r p r i n t n a l i n h a j á

i m p r e s s a .

1 - A p o n t a p r ó x i m a p o s i ç ã o no r e g i s t r o .

2 - S e f o r d i f e r e n t e d e 1, 2 ou 3 , r e t o r n a .

3 - C a s o c o n t r á r i o e x e c u t a 3 .1 , 3 . 2 e 3 .3 r e s p e c t i v a m e n t e .

3 .1 - G u a r d a numa á r e a a u x i l i a r ( á r e a 1 ) n a p o s i ç ã o r e f e r e n -

c i a d a p o r $ l n ... a v í r g u l a r e f e r e n t e a c e d i l h a . V a i p a -

r a 4 .

3 . 2 - G u a r d a numa á r e a a u x i l i a r ( á r e a 2 ) n a p o s i ç ã o r e f e r e n -

c i a d a p o r $ 2 n ... o a p ó s t r o f e r e f e r e n t e a o a c e n t o . V a i

p a r a 4 .

3.3 - G u a r d a numa á r e a a u x i l i a r ( á r e a 3 ) o c o n t e ú d o e x i s t e n -

t e n a p o s i ç ã o r e f e r e n c i a d a p o r $ 3 n . . . d e n t r o do r e g i s -

t r o .

4 - A p o n t a p r ó x i m a p o s i ç ã o . Se f o r $ v a i p a r a 2 .

S e f o r b r a n c o i m p r i m e á r e a s 1, 2 e 3 e r e t o r n a .

s e n ã o v a i p a r a 3 .

1 1 1 . 2 3 - R O T I N A I M P L

O b j e t i v o : Comandar a i m p r e s s ã o d a l i n h a d o r e l a t o r i o j á f o r m a t a -

d a .

1 - S e e s t i v e r s o b a ç ã o d o s comandos i n z c i o d e t z t u l o ou i n T c i o

d e r o d a p é v a l p a r a 4 .

2 - A p o n t a p r ó x i m a l i n h a d a p á g i n a . Se u l t r a p a s s a r o l i m i t e d e ' l i n h a s p o r p á g i n a , chama r o t i n a PAGE ( .Apêndice 1 1 1 . 9 ) .

3 - S e e s t i v e r com a e d i ç ã o s u p r i m i d a , chama r o t i n a LISTA (.Apên-

d i c e 1 1 1 . 2 6 1 , TESTE ( A p ê n d i c e 1 1 1 . 2 7 ) e r e t o r n a .

4 - S e o u s u á r i o n ã o d e s e j a r s e p a r a ç ã o d e s z l a b a s v a i p a r a 5 . 1 .

5 - S e a Ú l t i m a p o s i ç ã o r e l a t i v a a margem d i r e i t a e s t a b e l e c i d a ' f o r um a l g a r i s m o , ou um s I m b o l o q u a l q u e r ( . exce to l e t r a s ) :

5 . 1 - Chama r o t i n a SEPAR ( A p ê n d i c e 111.19-) p a r a t r a n s f e r i r

t o d a a p a l a v r a p a r a a l i n h a s e g u i n t e a p a r t i r d o 1 9 ' b r a n c o 2 e s q u e r d a e n c o n t r a d o . R e t o r n a .

6 - Chama r o t i n a SEPAR e r e t o r n a .

1 1 1 . 2 4 - ROTINA I N I C 1

O b j e t i v o : I n i c i a l i z a r uma n o v a p á g i n a .

1 - Muda d e p á g i n a .

2 - S e o a r q u i v o b a c k - u p t i v e r s i d o s o l i c i t a d o chama r o t i n a GRA-

V A ( .Apêndice 1 1 1 . 1 1 ) .

3 - P o s i c i o n a l i n h a p a r a n u m e r a ç ã o :

3 . 1 - P a r a c a d a l i n h a s a l t a d a chama r o t i n a PROC1 ( A p ê n d i c e

1 1 1 . 1 8 ) .

4 - Numera p á g i n a e e x e c u t a 2 .

5 - A p o n t a pgox ima l i n h a d a p á g i n a e r e t o r n a .

1 1 1 . 2 5 - R O T I N A FINAL

.c O b j e t i v o : Comandar a i m p r e s s ã o d o i n d i c e p o r p á g i n a e d e r e f e r ê n

tia c r u z a d a .

1 - S e a i m p r e s s ã o d o I n d i c e t i v e r s i d o s o l i c i t a d a , chama r o t i n a

PAGE ( ~ p ê n d i c e 1 1 1 . 9 ) e ESCR ( A p ê n d i c e 1 1 1 . 1 6 ) .

2 - S e a i m p r e s s ã o d o I n d i c e d e r e f e r ê n c i a c r u z a d a t i v e r s i d o s o - l i c i t a d a chama r o t i n a PAGE e ORDEN ( A p ê n d i c e 1 1 1 . 1 5 )

3 - R e t o r n a .

I T I . 2 6 - R O T T N A LISTA

Objetivo: I m p r i m i r a l i h h a do relatório j z no f o r m a t o f i n a l d e e - d i ç ã o .

1 - S e e s t i v e r com a e d i ç ã o s u p r i m i d a v a i p a r a 4 .

2 - C o r t a b r a n c o s e m e x c e s s o d a l i n h a .

3 - S e e s t i v e r s o b a ç ã o d o comando d e i n í c i o d e t T t u l o , i n f c i o ' d e r o d a p é ou i n 7 c i o d e í n d i c e , chama r o t i n a GRAVA ( ~ ~ ê n d i c e

1 1 1 . 1 1 ) e v a i p a r a 7 .

4 - I m p r i m e a l i n h a f o r m a t a d a , c e d i l h a s e o v e r p r i n t . S e o a r q u i -

v o b a c k - u p t i v e r s i d o s o l i c i t a d o chama r o t i n a GRAVA.

5 - S e e s t i v e r s o b a ç ã o d o comando $ N C x , y , z , i n c r e m e n t a um c o n t a - d o r d e l i n h a s e s p e c í f i c o . Se e s t e f o r s u p e r i o r a x , - o coman-

d o n ã o f i c a f o r a d e a ç ã o .

6 - E s t a b e l e c e e s p a ç o e n t r e c a d a l i n h a , c a s o e s t e s e j a d i f e r e n t e

d e 1. P a r a c a d a l i n h a s a l t a d a : t e s t a s e j á c o m p l e t o u o l i m i -

t e d a p á g i n a . Em c a s o a f i r m a t i v o , chama r o t i n a PAGE; chama ' r o t i n a PROC1.

7 - S e e s t i v e r s o b a ç ã o d o comando d e f i m d e r e f e r ê n c i a c r u z a d a :

7 . 1 - Chama r o t i n a GRAVA p a r a g r a v a r a s p o s i ç õ e s r e l a t i v a s ' a o I n d i c e d e r e f e r ê n c i a c r u z a d a n a á r e a a u x i l i a r .

8 - R e t o r n a .

1 1 1 . 2 7 - ROTINA TESTE

O b j e t i v o : R e d e f i n i r a margem e s q u e r d a a p ó s a i m p r e s s ã o d e uma l i - n h a .

1 - S e e s t i v e r s o b a ç ã o d o comando d e i n í c i o d e r o d a p é , d e f i n e a

margem e s q u e r d a p a r a a p o s i ç ã o f o r n e c i d a p e l o c a r t ã o d e c o n -

t r o l e ou p e l o s i s t e m a . R e t o r n a .

2 - S e e s t i v e r s o b a ç ã o d o comando $ N C x , y , z , a margem e s q u e r d a ' r e c e b e o v a l o r y e r e t o r n a .

3 - S e e s t i v e r s o b a ç ã o d o comando $ I T x , y a margem e s q u e r d a r e c e -

b e o v a l o r x e r e t o r n a .

4 - A margem e s q u e r d a r e c e b e o v a l o r f o r n e c i d o p e l o s i s t e m a ou - a

t r a v é s d o s c a r t õ e s d e c o n t r o l e . R e t o r n a .

I V . l - R O T I N A IMPR

O b j e t i v o : E f e t u a r a i m p r e s s ã o do a r q u l v o F o n t e s o l i c i t a d o .

1 - Muda d e p á g i n a .

2 - I m p r i m e nome do a r q u i v o e a p o n t a r e g i s t r o i n i c i a l .

3 - L e r e g i s t r o , d e s c o m p a c t a - o p a r a o f o r m a t o A 1 e i m p r i m e o nÚ-

m e r o d a l i n h a e o s e u c o n t e ú d o .

4 - A p o n t a r e g i s t r o . Se j á h o u v e r i m p r e s s o t o d o a r q u i v o

r e t o r n a . S e n ã o , v a i p a r a 3 .

...

HC

I.

P

CY

,

or

Z

zo

n

rm

-

n

c

-o m

o

mn

B

om

O

~D

O

DV

, .A

ovi

D

ur

-O

WOD

P

m w

o

ua

rn

+

oo

D

mr

z P

DOA

OO

P

f,

Viv

iP

~r

no

z P

*

o

rc

o

Vi -

rn D

vi

orn

to2

C

O

ZO

O

no

P

31

O

P

Vi T)

rn v

> o

vic

z

nm

-

CV

iC

rn

orn

P

P~

0

-

* +

0

0

C

23

O D

m

z

-I

rn

D

r

I P

I Y D I C E 1 - C O h C E I T C S G E R A I S ................................... 1.1. IhTRCDIJCAO 1 ........................ 1.2.ANALOGIA E C O N C E I T U A C A O 2 1 . 2 . 1 . A k A L n G I A COM A M A Q U I N A C E CALCULAR DE MESA e... 04 1 .3 .UNIDACFS B A S I C A S CE UM COCPUTADOR D I G I T A L ........ 5 1 .3 .1 .VElCULOS M A I S COMUNS D E ENTRADA E S A I D A ......v. 8 ....... 1 . 3 . 2 . U k I D 4 D E S D E ENTRACA E S A I D A . ............10

N O M E 00 A R Q U I V O - T E S T 9

T t X 1 0

I N P 3 G I - E S P E C I F I C A B C E C O C S P R O P K I A M E N T E D I T A S . C O N V F R S A ( 1 D F 0 4 0 0 S N U M S A P E K I C O S

6 P L Z ã Y P O S V A L O R E S C 0 5 O A C O h D E E N T U A D A OU COS R E S U L T A D O S N A S A B A P I D A O E U M

P R O C r S S A K F k T O , E M S U A S F C R h A S E X T E X N A S , P O D E R A O S E R D O $ I X T I P O R E A L S F X O U

B I X I N T E I R O S F X C O R O J B A P A E S T U D A M O S . E S T A S I h F O K M A B C E C O E S D E V E M S E R D E V I D A M E N T E

C O D I F I C A D A S E A G R U P A D A S E M UM C E R l n C A M P O D F C O M P R I M E N T O D E T E K M 1 N A D O . A L B A P

EM D I S T O ,O C A S C C A S C U A N T I C A O E S R E A I S QUE N A 0 T R A Z E M O P O N T O q S A P E P R E C I S O

S A B E ? O N D E E S T B A P A O P O N T O O E C I M A L E S E A Q U A N T I D A D E F O R M U I T O G R A N D E U M A

M A N t I R A C O M P A C T A E E L E G A N T E D E R E P R E S E N T % J P A - L A . T O D A E S T A I N F U R M A B C E C A O

D E V E S E R E X T R E G U E AO ~ I X C O M P I L A D O K R F X q U S A h D O - S E P A R A I S S O O S C S A P O D I G O S D E

C O N V c R S A G , O U T I P C O E ESPECIFICA%CECAOqCONTIOO3 N A D E C L A K A S C E C A O S I X F O K M A

T B F X . L E M R K A P G S Q U E P A R A C A D A á I X V 4 1 4 I B A P A V E L B F X N A L I S T A D E U M A D E C L A R A $ C

E L A 0 6 I X R E A D ã F X E B I X W R I T E B F X D E V E C O K R E S P C N D E R A U M D E S T E S 6 1 X C S A P O D I G O S

f F X N d D E C L A R A C C E C A O F O R M A 1 C O R R E S P O ? I D E N T E . O S C S A P O D I G O S OU E S P E C I F I C A S

C E C O E S S A O O S S E G b I N T E S % N P 4 C I W b N P W E W . O ~ ~ F ~ O F W ~ D S N P ~ O I . 1 . F S P E

C I F I C f i B C F C A O I W t N P O 'I' S I G N I F I C A QUE A 6 I X V A R I B A P A V E L T F X D A L I S T A A S E R L I

C A , I M P R E S S A CU P E R F U R A D A S A P E 00 T I P O I N T E I R O - ã N P 3 0 I - 2 - F O R T R A N B S A P A S I C D

B N P A T B A P E A Q U I F O I E S T U D A D O O C O N J U N T O D E C E C L A K A S C E C O E S Q U E S E D I Z C O N S

T I T U I R O B L X B I O F O R T R A k H ã A P A S I C U % F O % F X . C O M O QUE F O I A P R E S F N T A D O A T S A P E ES

1 S C O .

Z C O C I .

TE CADBAP I T U L O . 0 L E I TOK JBAPA 1 EM F E R R A M E N T A N E C E S S S A P A K I A P A R A R E S O L V E R

C E R T O S T I P O S D E P K O H L E M A S . B h P L 1 T 2 9 3 0 8 A P I N C I C E A L F A H % A l ' E T I C O b F T

I - E S P t C I F I C 4 G O E S P R C P R I AMEAITE D I T A S . C O N V E R S A C D E D A D O S h U M C R I C O S

C S V A L n K E S U U S O A D O S C E c N T R A D A OU ù O S & C S U L T A D O S N A S A l U A D F U M P R C C E 5 S A V E P I T C > E M S l j A S F C R M t I S E X I e R N A S , P O D E R A O SER DO T I P O k E h L G U I P i T f l H t J COMO JA F S T U C A M O S - E S T A S I Y F O R N A C O E S D E V E M S E U C F V I D A v E N T E C O I Z I F I C A C A S E A G K U P A C A S E M U h C E K T C l C A M P O D E COM- P R I V E h T O C E T E K M I p d A C O . A L E M D I S T C .O C A S O D A S O U A N T I D A D E S K L A I S C U L N A 0 T R A T F M C P 0 N T C . E P R F C I S O S A t i c R O N D E E S T A O P O N T O C E C I M P L € S F A O U A L T I C A C E F O R K U I TO G K A N U E UMA M P N E I K A C O M P A C T A E E L E G A N T E D E R E P R E S E N T A - L A . T O C A E S T A I N F U R M A G A O D E V E SER EN>- T R E G U E , A O C ? K P I L A U O K , I I S A N D O - S E P A R A I S S O OS C C I D I G O S D E C O N V F K - S A O v O U T I P O C E E S P E C I F I C A C A O I C O N T I D O S NA D F C L A R A C A U F O K M A T - L E M - i 3 K A M 6 S QUE Q A U A C A G A V A U I A V E L K4 L I S T A DE U M A D E C L A R A G A O R E A D E W R I T E C E V E C C K R E S P O N D E R A U M D E S T E S C Q D I G O S N A C E C L A R A C A O F O R - WAT C C R R E S P 1 N D E N T E . O S C Q 0 , I G O S OU E S P E C I F I C A C O E S SAO O S S E G U I N - T E S

I W EW .D FW.D

1 . 1 . E S P E C I F I C A S A C I li4 C * I ' S I G N I F I C A Q U E A V A K I A V E L D A L I S T A A S E R L I D A v I M P R E S -

S A C U P E H F U 9 P D A E C 0 T I P O I R T E I R O . I - 2 - F O R T R A X H A S I C U

A T E AQ!J I F O I E S T U D A D O U C C N J U N T O D E D E C L A R A C O E S QUE S E D I Z C C N S T I T U I R C F O R T R A N B A S I C O . C O M D QUE F O I A P R E S E h T A D O ATE E S T E C A P I T U L O 1 0 L E I T O R J A T E k F E R R A M E N T A N E C E S S A R I A P A R A R E S O L V E R C E R T O S T I P O S D E P R G B L E M A S .