third.asm

本人自己编写的AD公司开发环境下的矩阵转换程序。

.SEGMENT/DM dm_data;
.VAR BIN[16]=1,2,3,4,2,3,4,5,3,4,5,6,4,5,6,7;
.VAR AOUT[16];
.ENDSEG;

.SEGMENT/PM pm_data;
.VAR CIN[16]=2,4,6,8,4,6,8,10,3,3,4,5,1,2,3,4;
.ENDSEG;

.SEGMENT/PM pm_rsti;
     DMWAIT=0x21;
     PMWAIT=0x21;
     JUMP start;
.ENDSEG;

.SEGMENT/PM pm_code;
start:      M1=1;
            M2=-4;
            M3=4;
            M9=1;
            M10=-4;
            B1=BIN;
            L1=@BIN;
            I2=AOUT;
            B9=CIN;
            L9=@CIN;
            R3=0;
            LCNTR=4,DO LOOP3 UNTIL LCE;
            LCNTR=4,DO LOOP2 UNTIL LCE;
            R4=0;
            LCNTR=4,DO LOOP1 UNTIL LCE;         
            R1=DM(I1,M1),R2=PM(I9,M9);
            R3=R1*R2(UUI);
LOOP1:      R4=R4+R3;
            DM(I2,M1)=R4; 
LOOP2:      R1=DM(I1,M2);
            R1=DM(I1,M3);
LOOP3:       R2=CIN;         
end:        IDLE;
.ENDSEG;