Tietokoneen toiminta, kesä 2000
0 10000000 11000000000000000000000 0 10000010 10010000000000000000000
program CAse_case(input,output); var Eksponentti, Arvo : Integer; BEGIN Readln(Arvo,Eksponentti); case Eksponentti of 0: Arvo := 1; 1: ; 2: Arvo := SQR(Arvo); 3: Arvo := Arvo * SQR(Arvo); end; Writeln(Arvo) END. Eksponentti DS 1 Arvo DS 1 BEGIN IN R1,=KBD STORE R1,Arvo IN R2,=KBD STORE R2,Eksponentti JNEG R2,Virhe COMP R2,=3 JGRE Virhe JUMP @Case(R2) Case DC Case0 DC Case1 DC Case2 DC Case3 Case0 LOAD R3,=1 JUMP Esac Case2 LOAD R3,Arvo MUL R3,R3 JUMP Esac Case3 LOAD R3,Arvo MUL R3,R3 MUL R3,Arvo Esac STORE R3,Arvo Case1 LOAD R3,Arvo OUT R3,=CRT END SVC SP,=HALT Virhe SVC SP,=HALT