1: !Es soll eine Kommazahl erzeugt werden;
1: !Format Big Endian, Siemens;
1: !Das erste Bit DI[233];
1: R[151]=(233);
1: !Bit 0-22 Mantisse;
1: !Bit 23-30 Exponent;
1: !Bit 31 Vorzeichen;
1: !*****************************;
1: !Exponent;
1: !Entweder GI, oder so;
1: !Anfang;
1: R[153]=(0);
1: !Exponent Bit0;
1: R[152]=(R[151]+23);
1: IF(DI[R[152]]=ON),R[153]=(R[153]+1);
1: !Exponent Bit1;
1: R[152]=(R[151]+24);
1: IF(DI[R[152]]=ON),R[153]=(R[153]+2);
1: !Exponent Bit2;
1: R[152]=(R[151]+25);
1: IF(DI[R[152]]=ON),R[153]=(R[153]+4);
1: !Exponent Bit3;
1: R[152]=(R[151]+26);
1: IF(DI[R[152]]=ON),R[153]=(R[153]+8);
1: !Exponent Bit4;
1: R[152]=(R[151]+27);
1: IF(DI[R[152]]=ON),R[153]=(R[153]+16);
1: !Exponent Bit5;
1: R[152]=(R[151]+28);
1: IF(DI[R[152]]=ON),R[153]=(R[153]+32);
1: !Exponent Bit6;
1: R[152]=(R[151]+29);
1: IF(DI[R[152]]=ON),R[153]=(R[153]+64);
1: !Exponent Bit7;
1: R[152]=(R[151]+30);
1: IF(DI[R[152]]=ON),R[153]=(R[153]+128);
1: !Bsp. 1000 0011=131;
1: !Umwandeln in Binärstellen;
1: R[153]=(R[153]-127);
1: !Bsp. 131-127=4;
1: !*****************************;
1: !Vorkommazahl;
1: !*****************************;
1: !Mantisse mit 23 Bit-Auflösung;
1: !Anfang;
1: R[154]=(0);
1: !Fest-Zahl 0 ?;
1: IF(R[153]=(-127)),R[154]=(0);
1: IF(R[153]=(-127)),JMP LBL[1000];
1: !Fest-Zahl 1 ?;
1: IF(R[153]=0),R[154]=(1);
1: IF(R[153]=0),JMP LBL[1000];
1: !Mantisse Bit0;
1: R[152]=(R[151]+23-R[153]);
1: IF((DI[R[152]]=ON AND R[153]>=1) OR (R[153]=0)),R[154]=(R[154]+1);
1: IF(R[152]>=R[151]+23),JMP LBL[1000];
1: !Mantisse Bit1;
1: R[152]=(R[152]+1);
1: IF((DI[R[152]]=ON AND R[153]>=2) OR (R[153]=1)),R[154]=(R[154]+2);
1: IF(R[152]>=R[151]+23),JMP LBL[1000];
1: !Mantisse Bit2;
1: R[152]=(R[152]+1);
1: IF((DI[R[152]]=ON AND R[153]>=3) OR (R[153]=2)),R[154]=(R[154]+4);
1: IF(R[152]>=R[151]+23),JMP LBL[1000];
1: !Mantisse Bit3;
1: R[152]=(R[152]+1);
1: IF((DI[R[152]]=ON AND R[153]>=4) OR (R[153]=3)),R[154]=(R[154]+8);
1: IF(R[152]>=R[151]+23),JMP LBL[1000];
1: !Mantisse Bit4;
1: R[152]=(R[152]+1);
1: IF((DI[R[152]]=ON AND R[153]>=5) OR (R[153]=4)),R[154]=(R[154]+16);
1: IF(R[152]>=R[151]+23),JMP LBL[1000];
1: !Mantisse Bit5;
1: R[152]=(R[152]+1);
1: IF((DI[R[152]]=ON AND R[153]>=6) OR (R[153]=5)),R[154]=(R[154]+32);
1: IF(R[152]>=R[151]+23),JMP LBL[1000];
1: !Mantisse Bit6;
1: R[152]=(R[152]+1);
1: IF((DI[R[152]]=ON AND R[153]>=7) OR (R[153]=6)),R[154]=(R[154]+64);
1: IF(R[152]>=R[151]+23),JMP LBL[1000];
1: !Mantisse Bit7;
1: R[152]=(R[152]+1);
1: IF((DI[R[152]]=ON AND R[153]>=8) OR (R[153]=7)),R[154]=(R[154]+128);
1: IF(R[152]>=R[151]+23),JMP LBL[1000];
1: !Mantisse Bit8;
1: R[152]=(R[152]+1);
1: IF((DI[R[152]]=ON AND R[153]>=9) OR (R[153]=8)),R[154]=(R[154]+256);
1: IF(R[152]>=R[151]+23),JMP LBL[1000];
1: !Mantisse Bit9;
1: R[152]=(R[152]+1);
1: IF((DI[R[152]]=ON AND R[153]>=10) OR (R[153]=9)),R[154]=(R[154]+512);
1: IF(R[152]>=R[151]+23),JMP LBL[1000];
1: !Mantisse Bit10;
1: R[152]=(R[152]+1);
1: IF((DI[R[152]]=ON AND R[153]>=11) OR (R[153]=10)),R[154]=(R[154]+1024);
1: IF(R[152]>=R[151]+23),JMP LBL[1000];
1: !Mantisse Bit11;
1: R[152]=(R[152]+1);
1: IF((DI[R[152]]=ON AND R[153]>=12) OR (R[153]=11)),R[154]=(R[154]+2048);
1: IF(R[152]>=R[151]+23),JMP LBL[1000];
1: !Mantisse Bit12;
1: R[152]=(R[152]+1);
1: IF((DI[R[152]]=ON AND R[153]>=13) OR (R[153]=12)),R[154]=(R[154]+4096);
1: IF(R[152]>=R[151]+23),JMP LBL[1000];
1: !Mantisse Bit13;
1: R[152]=(R[152]+1);
1: IF((DI[R[152]]=ON AND R[153]>=14) OR (R[153]=13)),R[154]=(R[154]+8192);
1: IF(R[152]>=R[151]+23),JMP LBL[1000];
1: !Mantisse Bit14;
1: R[152]=(R[152]+1);
1: IF((DI[R[152]]=ON AND R[153]>=15) OR (R[153]=14)),R[154]=(R[154]+16384);
1: IF(R[152]>=R[151]+23),JMP LBL[1000];
1: !Mantisse Bit15;
1: R[152]=(R[152]+1);
1: IF((DI[R[152]]=ON AND R[153]>=16) OR (R[153]=15)),R[154]=(R[154]+32768);
1: IF(R[152]>=R[151]+23),JMP LBL[1000];
1: !Mantisse Bit16;
1: R[152]=(R[152]+1);
1: IF((DI[R[152]]=ON AND R[153]>=17) OR (R[153]=16)),R[154]=(R[154]+65536);
1: IF(R[152]>=R[151]+23),JMP LBL[1000];
1: !Mantisse Bit17;
1: R[152]=(R[152]+1);
1: IF((DI[R[152]]=ON AND R[153]>=18) OR (R[153]=17)),R[154]=(R[154]+131072);
1: IF(R[152]>=R[151]+23),JMP LBL[1000];
1: !Mantisse Bit18;
1: R[152]=(R[152]+1);
1: IF((DI[R[152]]=ON AND R[153]>=19) OR (R[153]=18)),R[154]=(R[154]+262144);
1: IF(R[152]>=R[151]+23),JMP LBL[1000];
1: !Mantisse Bit19;
1: R[152]=(R[152]+1);
1: IF((DI[R[152]]=ON AND R[153]>=20) OR (R[153]=19)),R[154]=(R[154]+524288);
1: IF(R[152]>=R[151]+23),JMP LBL[1000];
1: !Mantisse Bit20;
1: R[152]=(R[152]+1);
1: IF((DI[R[152]]=ON AND R[153]>=21) OR (R[153]=20)),R[154]=(R[154]+1048576);
1: IF(R[152]>=R[151]+23),JMP LBL[1000];
1: !Mantisse Bit21;
1: R[152]=(R[152]+1);
1: IF((DI[R[152]]=ON AND R[153]>=22) OR (R[153]=21)),R[154]=(R[154]+2097152);
1: IF(R[152]>=R[151]+23),JMP LBL[1000];
1: !Mantisse Bit22;
1: R[152]=(R[152]+1);
1: IF((DI[R[152]]=ON AND R[153]>=23) OR (R[153]=22)),R[154]=(R[154]+4194304);
1: IF(R[152]>=R[151]+23),JMP LBL[1000];
1: !Mantisse Bit23;
1: R[152]=(R[152]+1);
1: IF((DI[R[152]]=ON AND R[153]>=24) OR (R[153]=23)),R[154]=(R[154]+8388608);
1: IF(R[152]>=R[151]+23),JMP LBL[1000];
1: LBL[1000];
1: !*****************************;
1: !Nachkommazahl;
1: !*****************************;
1: ;
1: ;
Alles anzeigen