IETS

(GIN Macro)

Defined in: MACROSAJE

Used in: EDITAR867, EDITET7, EDITOR867, FFFNORM7

IETS.mac.txt

 2#N8 ...[??? IETS SECT COMM FGN 8 DOC   
 2#PQ    #   
 2*9B    #MAC  IETS                         [IETS - TABLE SETUP MACRO. THIS MACRO
 2*P2    #DEF 25?=1?                        [INSERTS THE VALUE OF %B MODULO *77  
 2B8L    #LIS  0 
 2BN=    #STR %C                            [FROM THE START OF THE TABLE IS GIVEN
 2C7W    #DEF 21?=%C                        [BY %A, EXPRESSED AS THE NUMBER OF   
 2CMG    #STR %B                            [SIX BIT FIELDS. %A MAY BE EITHER AN 
 2D76    #DEF 22?=%B                        [OCTAL NUMBER OR A CHARACTER. IF IT  
 2DLQ    #SKI 22?/64                        [IS A CHARACTER ITS NUMERIC VALUE IS 
 2F6B    ! IETS ADDRESS OUT OF RANGE !      [TAKEN. IF %C IS OMITTED IT IS ASSUM 
 2FL2    #STR #,%A                          [ED THAT THE MACRO HAS BEEN USED 
 2G5L     4H000%A                           [PREVIOUSLY AND THE SAME %C APPLIES; 
 2GK=    #STR #,%A                          [SIMILARLY FOR %B. FOR ANY ONE TABLE 
 2H4W    #STR                               [THERE MUST ONLY BE ONE OF ANY %A
 2HJG     %A                                [BECAUSE #FID ADDS IN. THE TABLE AT  
 2J46    #DEF 24?=0?-1                      [%C MUST BE PREVIOUSLY ZEROISED. 
 2JHQ    #DEF 20?=34?+24?+0]                [THIS MACRO SUPPRESSES MOST OF THE   
 2K3B    #DEF 23?=20?/4*4                   [LISTING BECAUSE IF IT DIDNT THE 
 2KH2    #TRA 20?/4+21?+1                   [LISTING WOULD BE VERY MESS INDEED.  
 2L2L    #LIS 25?                           [NOTE THE CUNNING MANIPULATION OF
 2LG=    #FID 20?-23?*6 20?-23?*6+5 22?     [QUERY VARIABLES. THIS AVOIDS AN 
 2L^W    #TRA 24?                           [INTERLUDE, WHICH WOULD BE VERY  
 2MFG    #NOR                               [INEFFICIENT.