Mercurial > hg > Members > kono > os9 > sbc09
comparison os9/mc09/mc2.c @ 105:6eef99bb4771
fix runtime
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Sat, 29 Dec 2018 12:25:26 +0900 |
parents | 096b3fc7aa66 |
children | 6566b9f47f4a |
comparison
equal
deleted
inserted
replaced
104:096b3fc7aa66 | 105:6eef99bb4771 |
---|---|
1856 {char *s; | 1856 {char *s; |
1857 int i,l,lb; | 1857 int i,l,lb; |
1858 s=(char *)cadr(e1); | 1858 s=(char *)cadr(e1); |
1859 lb=fwdlabel(); | 1859 lb=fwdlabel(); |
1860 if ((l = caddr(e1)) < 128) | 1860 if ((l = caddr(e1)) < 128) |
1861 printf("\tLEAX\t2,PC\n\tBRA\t_%d\n",lb); | 1861 printf("\tLEAX\t*+5,PCR\n\tBRA\t_%d\n",lb); |
1862 else | 1862 else |
1863 printf("\tLEAX\t3,PC\n\tLBRA\t_%d\n",lb); | 1863 printf("\tLEAX\t*+6,PCR\n\tLBRA\t_%d\n",lb); |
1864 do | 1864 do |
1865 { printf("\tFCB\t%d",*s++); | 1865 { printf("\tFCB\t%d",*s++); |
1866 for (i=8; --l && --i;) printf(",%d",*s++); | 1866 for (i=8; --l && --i;) printf(",%d",*s++); |
1867 printf("\n"); | 1867 printf("\n"); |
1868 } | 1868 } |