橡Pascal-Tの挙動を調べる

Size: px

Start display at page:

Download "橡Pascal-Tの挙動を調べる"

まさとしなかきむら
5 years ago
Views:

2 PROGRAM SAMPLE01(INPUT, OUTPUT); BEGIN END.

3 PROGRAM SAMPLE02(INPUT, OUTPUT); VAR X, Y, Z : INTEGER; BEGIN X := 1; Y := 2; Z := X + Y; WRITELN(Z); END.

8 #!/usr/local/bin/perl #PASCAL-T OBJECT MAC FILE TO JAPANESE CONVERTOR #MADE BY Keiichi SATO (eucalyptus.) 1998 #USAGE:mac2jpn.pl objectmacrofile # / if (!open(input,"$argv[0]")){ print "ERROR n"; print " mac2jpn.pl PASCAL-T n"; = <INPUT>; close(in); print "Content-type: text/html n n"; print "<html><title>dec PDP-11 to </title><body> n"; print "<table border= "1 "><tr><td> </td><td> </td></tr> n"; # foreach $line (@SOURCE_FILE) { # chop $line; # print "<tr><td>$line</td><td>"; # ( info ) $temp = index ("$line",".mcall"); &init_out;next; $temp = index ("$line",".blkw"); next; # $temp = index("$line",": "); if ("$temp" ne "-1"){ ($label,$temp)=split(/:/,$line); print " $label<br> n"; # :) $temp = length($label); $temp = $temp + 2; for(0..$temp){ $line = " $line"; # ($temp,$line)=split(/ ($op,$line)=split(/ /,$line); /,$line); # # $temp_ = index("$line",","); if ("$temp_" ne "-1"){ ($d1,$d2)=split(/,/,$line); $r_input = "$d1"; &r_sym; $d1 = "$r_sum";

9 $r_input = "$d2"; &r_sym; $d2 = "$r_sum"; if ("$temp_" eq "-1"){ $d1 = "$line"; $r_input = "$d1"; &r_sym; $d1 = "$r_sum"; {&op_out; # print "</td></tr> n"; print "</table><br> n"; print "<div align= "right ">MADE BY EUCALYPTUS. 1998</div></body></html> n"; exit; ### #info sub init_out{ print "PASCAL-T OBJECT MAC FILE TO JAPANESE CONVERTOR<br> n"; print "MADE BY Keiichi SATO(eucalyptus.) 1998<br> n"; print "PROGRAM SOURCE : "; print $ARGV[0]; print "<br>"; # sub r_sym{ # $temp = index("$r_input","#"); if ("$temp" ne "-1"){ ($temp2,$temp3)=split(/,/,$r_input); ($temp4,$temp2)=split(/#/,$r_input); $temp = index("$r_input","."); if ("$temp" ne "-1"){chop($temp2) $r_sum = " $temp2 "; # $temp = index("$r_input","("); if ("$temp" ne "-1"){ ($temp2,$temp4)=split(/ (/,$r_input); ($temp5,$temp3)=split(/ )/,$temp4); $temp = index("$temp2","."); if ("$temp" ne "-1"){ chop($temp2); if ("$temp5" eq "R0"){$temp5 = "0 "; if ("$temp5" eq "R1"){$temp5 = "1 "; if ("$temp5" eq "R2"){$temp5 = "2 "; if ("$temp5" eq "R3"){$temp5 = "3 "; if ("$temp5" eq "R4"){$temp5 = "4 "; if ("$temp5" eq "R5"){$temp5 = "5 "; if ("$temp5" eq "SP"){$temp5 = " "; if ("$temp5" eq "PC"){$temp5 = " "; if ("$temp2" eq ""){ $r_sum = "$temp5"; if ("$temp2" ne ""){ $temp = index("$temp2","-"); if ("$temp" eq "-1"){ $r_sum = "$temp5+$temp2"; if ("$temp" ne "-1"){ $r_sum = "$temp5$temp2"; # if ($r_input eq "R0"){$r_sum = "0 "; if ($r_input eq "R1"){$r_sum = "1 "; if ($r_input eq "R2"){$r_sum = "2 ";

10 if ($r_input eq "R3"){$r_sum = "3 "; if ($r_input eq "R4"){$r_sum = "4 "; if ($r_input eq "R5"){$r_sum = "5 "; if ($r_input eq "SP"){$r_sum = " "; if ($r_input eq "PC"){$r_sum = " "; # $r_sum = "$r_input"; # / sub op_out{ #MOV $temp = index("$op","mov"); print "$d1 $d2 "; #CLR $temp = index("$op","clr"); print "$d1 "; #BIC $temp = index("$op","bic"); print "$d1 $d2 $d2 "; #BIS $temp = index("$op","bis"); print "$d1 $d2 $d2 "; #XOR $temp = index("$op","xor"); print "$d1 $d2 $d2 "; #NEG $temp = index("$op","neg"); print "$d1 "; #ADD $temp = index("$op","add"); print "$d1 $d2 $d2 "; #SUB $temp = index("$op","sub"); print "$d1 $d2 $d2 "; #MUL $temp = index("$op","mul");

11 print "$d1 $d2 $d2 "; #DIV $temp = index("$op","div"); print "$d1 $d2 $d2 "; #TST $temp = index("$op","tst"); print "$d1 0 N 0 Z "; #CMP $temp = index("$op","tst"); print "($d1)- ($d2) 0 N 0 Z "; #BEQ $temp = index("$op","beq"); print "N $d1 "; #BNE $temp = index("$op","bbe"); print "N $d1 "; #BLT $temp = index("$op","blt"); print "N C $d1 "; #BLE $temp = index("$op","ble"); print "N C $d1 "; #BGT $temp = index("$op","bgt"); print "N C $d1 "; #BGE $temp = index("$op","bge"); print "N C $d1 "; #BR $temp = index("$op","br"); print "N $d1 ";

12 #JMP $temp = index("$op","jmp"); print "$d1 ";

10/ / /30 3. ( ) 11/ 6 4. UNIX + C socket 11/13 5. ( ) C 11/20 6. http, CGI Perl 11/27 7. ( ) Perl 12/ 4 8. Windows Winsock 12/11 9. JAV

10/ / /30 3. ( ) 11/ 6 4. UNIX + C socket 11/13 5. ( ) C 11/20 6. http, CGI Perl 11/27 7. ( ) Perl 12/ 4 8. Windows Winsock 12/11 9. JAV tutimura@mist.i.u-tokyo.ac.jp kaneko@ipl.t.u-tokyo.ac.jp http://www.misojiro.t.u-tokyo.ac.jp/ tutimura/sem3/ 2002 11 20 p.1/34 10/16 1. 10/23 2. 10/30 3. ( ) 11/ 6 4. UNIX + C socket 11/13 5. ( ) C 11/20

橡Pascal-Tの挙動を調べる

橡Pascal-Tの挙動を調べる