* SCRIMAGE MAKPO - ðOCTPOEHéE OâPAúA üKPAHA 7920 MAGE0001 * * * ðOCìEäHññ KOPPEKTéPOBKA: äATA 27.06.89 BPEMñ 11.07 * æOKõC MAGE0002 * ìEHéHçPAä éBã çõT OTä. 07 ìATùûKO T: 310-98-12 MAGE0003 MACRO MAGE0004 &NAME SCRIMAGE MAGE0005 LCLC &AX1,&AX2,&TAB,&ATX MAGE0006 LCLA &A,&AB1,&AB2,&AT,&I,&J MAGE0007 LCLB &F1BIT,&F2BIT,&F3BIT MAGE0008 .* MAGE0009 &TAB SETC '40C1C2C3C4C5C6C7C8C94A4B4C4D4E4F50D1D2D3D4D5D6D7D8D95A5B*MAGE0010 5C5D5E5F6061E2E3E4E5E6E7E8E96A6B6C6D6E6FF0F1F2F3F4F5F6F7*MAGE0011 F8F97A7B7C7D7E7F' MAGE0012 &NAME DS 0C OâPAú üKPAHA - MK SCRIMAGE MAGE0013 .*--------------------------------------------------------------------- MAGE0014 .NEXTI AIF (N'&SYSLIST LE &I).END MAGE0015 &I SETA &I+1 MAGE0016 .* MAGE0017 AIF ('&SYSLIST(&I)'(1,1) EQ '''').CCONST MAGE0018 AIF ('&SYSLIST(&I)'(1,1) EQ '!').FIELD MAGE0019 AIF ('&SYSLIST(&I)' EQ '_').CURSOR MAGE0020 AIF ('&SYSLIST(&I)' EQ '/').PROGTAB MAGE0021 .* MAGE0022 AIF (K'&SYSLIST(&I) LT 2).BUFADR ?????? MAGE0023 AIF ('&SYSLIST(&I)'(1,2) EQ 'X''' OR '&SYSLIST(&I)'(1,2) EQ *MAGE0024 'C''').ICONST MAGE0025 AGO .BUFADR MAGE0026 .*--------------------------------------------------------------------- MAGE0027 .ICONST DC &SYSLIST(&I) MAGE0028 AGO .NEXTI MAGE0029 .*--------------------------------------------------------------------- MAGE0030 .CCONST DC C&SYSLIST(&I) MAGE0031 AGO .NEXTI MAGE0032 .*--------------------------------------------------------------------- MAGE0033 .CURSOR DC X'13' õCTAHOBéTø KõPCOP MAGE0034 AGO .NEXTI MAGE0035 .*--------------------------------------------------------------------- MAGE0036 .PROGTAB DC X'05' ðPOçPAMMHAñ TAâõìñãéñ MAGE0037 AGO .NEXTI MAGE0038 .*--------------------------------------------------------------------- MAGE0039 .FIELD ANOP MAGE0040 &J SETA 1 MAGE0041 &AT SETA 0 MAGE0042 &F1BIT SETB 0 MAGE0043 &F2BIT SETB 0 MAGE0044 &F3BIT SETB 0 MAGE0045 .FLOOP AIF (K'&SYSLIST(&I) LE &J).FIELDDC MAGE0046 &J SETA &J+1 MAGE0047 .* MAGE0048 AIF ('&SYSLIST(&I)'(&J,1) NE 'N').F1P MAGE0049 &AT SETA &AT+16 MAGE0050 AGO .F1 MAGE0051 .F1P AIF ('&SYSLIST(&I)'(&J,1) NE 'P').F1A MAGE0052 &AT SETA &AT+32 MAGE0053 AGO .F1 MAGE0054 .F1A AIF ('&SYSLIST(&I)'(&J,1) NE 'A').F2F MAGE0055 &AT SETA &AT+48 MAGE0056 AGO .F1 MAGE0057 .F2F AIF ('&SYSLIST(&I)'(&J,1) NE 'F').F2H MAGE0058 &AT SETA &AT+4 MAGE0059 AGO .F2 MAGE0060 .F2H AIF ('&SYSLIST(&I)'(&J,1) NE 'H').F2U MAGE0061 &AT SETA &AT+8 MAGE0062 AGO .F2 MAGE0063 .F2U AIF ('&SYSLIST(&I)'(&J,1) NE 'U').F3M MAGE0064 &AT SETA &AT+12 MAGE0065 AGO .F2 MAGE0066 .F3M AIF ('&SYSLIST(&I)'(&J,1) NE 'M').FERR MAGE0067 &AT SETA &AT+1 MAGE0068 AGO .F3 MAGE0069 .FERR MNOTE 8,'SCRIMAGE: HEðOHñTHùê CéMBOì &J B OðéCAHéé &SYSLIST(&I)' MAGE0070 AGO .FLOOP MAGE0071 .F1 AIF (&F1BIT).FMEXCL MAGE0072 &F1BIT SETB 1 MAGE0073 AGO .FLOOP MAGE0074 .F2 AIF (&F2BIT).FMEXCL MAGE0075 &F2BIT SETB 1 MAGE0076 AGO .FLOOP MAGE0077 .F3 AIF (&F3BIT).FMEXCL MAGE0078 &F3BIT SETB 1 MAGE0079 AGO .FLOOP MAGE0080 .FMEXCL MNOTE 8,'SCRIMAGE: CéMBOì &J B OðéCAHéé &SYSLIST(&I) HE COçìAC*MAGE0081 õETCñ C ðPEäùäõýéMé' MAGE0082 AGO .FLOOP MAGE0083 .FIELDDC ANOP MAGE0084 &AT SETA &AT*2+1 MAGE0085 &ATX SETC '&TAB'(&AT,2) MAGE0086 DC X'1D,&ATX' HAþAìO ðOìñ MAGE0087 AGO .NEXTI MAGE0088 .*--------------------------------------------------------------------- MAGE0089 .BUFADR ANOP MAGE0090 AIF ('&SYSLIST(&I,2)' NE '').L2 MAGE0091 &A SETA &SYSLIST(&I,1) MAGE0092 AGO .CHECKAD MAGE0093 .L2 AIF (&SYSLIST(&I,1) GT 23 OR &SYSLIST(&I,1) LT 0 OR &SYSLIST*MAGE0094 (&I,2) GT 79 OR &SYSLIST(&I,2) LT 0).MNOTE MAGE0095 &A SETA &SYSLIST(&I,1)*80+&SYSLIST(&I,2) MAGE0096 .CHECKAD AIF (&A GE 0 AND &A LE 1919).CONVADR MAGE0097 .MNOTE MNOTE 8,'SCRIMAGE: AäPEC úAäAH HEBEPHO - &SYSLIST(&I)' MAGE0098 AGO .NEXTI MAGE0099 .CONVADR ANOP MAGE0100 &AB1 SETA &A/64 MAGE0101 &AB2 SETA &A-&AB1*64 MAGE0102 &AB1 SETA &AB1*2+1 MAGE0103 &AB2 SETA &AB2*2+1 MAGE0104 &AX1 SETC '&TAB'(&AB1,2) MAGE0105 &AX2 SETC '&TAB'(&AB2,2) MAGE0106 AIF (N'&SYSLIST(&I) LE 2).SETADR MAGE0107 AIF ('&SYSLIST(&I,3)' EQ 'CLR').CLEARTO MAGE0108 DC X'3C,&AX1,&AX2',&SYSLIST(&I,3) úAðOìHEHéE CéMBOìOM MAGE0109 AGO .NEXTI MAGE0110 .CLEARTO DC X'12,&AX8,&AX2' CTéPAHéE HEúAýéýEHHOçO äO AäPECA MAGE0111 AGO .NEXTI MAGE0112 .SETADR DC X'11,&AX1,&AX2' õCTAHOBKA AäPECA âõæEPA MAGE0113 AGO .NEXTI MAGE0114 .*--------------------------------------------------------------------- MAGE0115 .* MAGE0116 .* MAGE0117 .* MAGE0118 .* MAGE0119 .END MEND MAGE0120