(GIN Macro)
Defined in: MACROSAJE
Used in: EDITAR867, EDITET7, EDITOR867, FFFNORM7
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.