From 5d41f32f8e26c4f3d6e0186d960a5f3b98dcab27 Mon Sep 17 00:00:00 2001 From: j8takagi Date: Sun, 6 Dec 2009 12:02:30 +0900 Subject: [PATCH] =?utf8?q?-32768=E3=80=9C32767=E3=81=AE=E6=95=B0=E5=80=A4?= =?utf8?q?=E3=82=92=E5=87=BA=E5=8A=9B=E3=81=99=E3=82=8B=E3=82=A2=E3=82=BB?= =?utf8?q?=E3=83=B3=E3=83=96=E3=83=A9=E3=83=97=E3=83=AD=E3=82=B0=E3=83=A9?= =?utf8?q?=E3=83=A0outi.casl=E3=82=92=E4=BF=AE=E6=AD=A3=E3=81=97=E3=80=81?= =?utf8?q?=E3=83=86=E3=82=B9=E3=83=88=E3=82=92=E8=BF=BD=E5=8A=A0?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- as/outi.casl | 253 ++++++++++------------------- as/outi_call.casl | 18 ++- test/astest/List.mk | 1 + test/astest/outi/0.txt | 327 ++++++++++++++++++++++++++++++++++++++ test/astest/outi/Makefile | 5 + 5 files changed, 427 insertions(+), 177 deletions(-) create mode 100644 test/astest/outi/0.txt create mode 100644 test/astest/outi/Makefile diff --git a/as/outi.casl b/as/outi.casl index a56a9db..41b2fec 100644 --- a/as/outi.casl +++ b/as/outi.casl @@ -1,178 +1,87 @@ ;GR1に格納された数値を表示 -OUTI START - PUSH 0,GR2 - PUSH 0,GR3 - PUSH 0,GR4 - LAD GR0,0 - LAD GR2,0 - AND GR1,GR1 - JZE INEXT - JPL ILOOP - LAD GR0,1 - CALL INV -ILOOP CPL GR1,TEN - JMI INEXT - CALL DIV10 - ADDL GR4,ZCHAR - ST GR4,STR,GR2 - LAD GR2,1,GR2 - LD GR1,GR3 - JUMP ILOOP -INEXT ADDL GR1,ZCHAR - ST GR1,STR,GR2 - LAD GR2,1,GR2 - CPL GR0,=1 - JNZ PRT - LD GR1,MINUS - ST GR1,STR,GR2 - LAD GR2,1,GR2 -PRT ST GR2,LEN - LAD GR1,STR - LD GR2,LEN - CALL REV - OUT STR,LEN - POP GR4 - POP GR3 - POP GR2 - RET -TEN DC 10 -ZCHAR DC '0' -MINUS DC '-' -STR DS 6 -LEN DS 1 - END +OUTI START + PUSH 0,GR2 + PUSH 0,GR3 + PUSH 0,GR4 + LAD GR0,0 ; 負数フラグ。GR1が負数の場合、GR0は1 + LAD GR2,0 + AND GR1,GR1 + JZE INEXT ; GR1が0の場合 + JPL ILOOP ; GR1が正数の場合 + LAD GR0,1 ; GR1が負数の場合、負数フラグ設定 + CALL INV ; 負数を正数に変換 +ILOOP CPL GR1,TEN + JMI INEXT ; GR1が10未満の場合は、ループ終了 + CALL DIV10 ; (GR1 / 10)の商をGR3、剰余をGR4に格納 + ADDL GR4,ZCHAR ; (GR1 / 10)の剰余を文字に変換 + ST GR4,STR,GR2 ; 文字をメモリに格納 + LAD GR2,1,GR2 ; GR2をインクリメント + LD GR1,GR3 ; (GR1 / 10)の商をGR1に格納 + JUMP ILOOP +INEXT ADDL GR1,ZCHAR ; ループ終了後の剰余を文字に変換 + ST GR1,STR,GR2 ; 文字をメモリに格納 + LAD GR2,1,GR2 ; GR2をインクリメント + CPL GR0,=1 ; 負数フラグ判定 + JNZ PRT + LD GR1,='-' ; 負数フラグがオンの場合、「-」をロード + ST GR1,STR,GR2 ; 「-」をメモリに格納 + LAD GR2,1,GR2 ; GR2をインクリメント +PRT ST GR2,LEN ; GR2をメモリに格納 + LAD GR1,STR ; GR1に文字列のアドレスを格納 + CALL REV ; アドレスがGR1、長さがGR2の文字列を逆順に並べ替える + OUT STR,LEN ; 文字列を印字 + POP GR4 + POP GR3 + POP GR2 + RET +TEN DC 10 +ZCHAR DC '0' +STR DS 6 +LEN DS 1 + END ;GR1を10で割ったときの商をGR3、剰余をGR4に格納 -DIV10 LD GR4,GR1 - LAD GR3,0 -DLOOP CPL GR4,TEN - JMI DFIN - SUBL GR4,TEN - LAD GR3,1,GR3 - JUMP DLOOP -DFIN RET - END +DIV10 LD GR4,GR1 ; GR1の値をGR4にコピー + LAD GR3,0 +DLOOP CPL GR4,TEN + JMI DFIN ; GR4が10未満の場合は終了 + SUBL GR4,TEN ; GR4 <- GR4 - 10 + LAD GR3,1,GR3 ; GR3をインクリメント + JUMP DLOOP +DFIN RET + END ;アドレスがGR1、長さがGR2の文字列を逆順に並べ替える ;例: 12345 -> 54321 -REV START - PUSH 0,GR3 - PUSH 0,GR4 - PUSH 0,GR5 - LAD GR3,1 -RPU CPL GR2,GR3 - JMI RNEXT - LD GR4,GR1 - ADDL GR4,GR3 - LD GR4,-1,GR4 - PUSH 0,GR4 - LAD GR3,1,GR3 - JUMP RPU -RNEXT LAD GR3,1 -RPO CPL GR2,GR3 - JMI RFIN - POP GR4 - LD GR5,GR1 - ADDL GR5,GR3 - ST GR4,-1,GR5 - LAD GR3,1,GR3 - JUMP RPO -RFIN POP GR5 - POP GR4 - POP GR3 - RET - END +REV START + PUSH 0,GR3 + PUSH 0,GR4 + PUSH 0,GR5 + LAD GR3,1 +RPU CPL GR2,GR3 + JMI RNEXT + LD GR4,GR1 + ADDL GR4,GR3 + LD GR4,-1,GR4 + PUSH 0,GR4 + LAD GR3,1,GR3 + JUMP RPU +RNEXT LAD GR3,1 +RPO CPL GR2,GR3 + JMI RFIN + POP GR4 + LD GR5,GR1 + ADDL GR5,GR3 + ST GR4,-1,GR5 + LAD GR3,1,GR3 + JUMP RPO +RFIN POP GR5 + POP GR4 + POP GR3 + RET + END ;GR1の内容をマイナス値にする ;例: 10 -> -10, -20 -> 20 -INV START - XOR GR1,=#FFFF - LAD GR1,1,GR1 - RET - END -;GR1に格納された数値を表示 -OUTI START - PUSH 0,GR2 - PUSH 0,GR3 - PUSH 0,GR4 - LAD GR0,0 - LAD GR2,0 - AND GR1,GR1 - JZE INEXT - JPL ILOOP - LAD GR0,1 - CALL INV -ILOOP CPL GR1,TEN - JMI INEXT - CALL DIV10 - ADDL GR4,ZCHAR - ST GR4,STR,GR2 - LAD GR2,1,GR2 - LD GR1,GR3 - JUMP ILOOP -INEXT ADDL GR1,ZCHAR - ST GR1,STR,GR2 - LAD GR2,1,GR2 - CPL GR0,=1 - JNZ PRT - LD GR1,MINUS - ST GR1,STR,GR2 - LAD GR2,1,GR2 -PRT ST GR2,LEN - LAD GR1,STR - LD GR2,LEN - CALL REV - OUT STR,LEN - POP GR4 - POP GR3 - POP GR2 - RET -TEN DC 10 -ZCHAR DC '0' -MINUS DC '-' -STR DS 6 -LEN DS 1 - END -;GR1を10で割ったときの商をGR3、剰余をGR4に格納 -DIV10 LD GR4,GR1 - LAD GR3,0 -DLOOP CPL GR4,TEN - JMI DFIN - SUBL GR4,TEN - LAD GR3,1,GR3 - JUMP DLOOP -DFIN RET - END -;アドレスがGR1、長さがGR2の文字列を逆順に並べ替える -;例: 12345 -> 54321 -REV START - PUSH 0,GR3 - PUSH 0,GR4 - PUSH 0,GR5 - LAD GR3,1 -RPU CPL GR2,GR3 - JMI RNEXT - LD GR4,GR1 - ADDL GR4,GR3 - LD GR4,-1,GR4 - PUSH 0,GR4 - LAD GR3,1,GR3 - JUMP RPU -RNEXT LAD GR3,1 -RPO CPL GR2,GR3 - JMI RFIN - POP GR4 - LD GR5,GR1 - ADDL GR5,GR3 - ST GR4,-1,GR5 - LAD GR3,1,GR3 - JUMP RPO -RFIN POP GR5 - POP GR4 - POP GR3 - RET - END -;GR1の内容をマイナス値にする -;例: 10 -> -10, -20 -> 20 -INV START - XOR GR1,=#FFFF - LAD GR1,1,GR1 - RET - END +INV START + XOR GR1,=#FFFF + LAD GR1,1,GR1 + RET + END diff --git a/as/outi_call.casl b/as/outi_call.casl index bcfaf67..e96a938 100644 --- a/as/outi_call.casl +++ b/as/outi_call.casl @@ -1,6 +1,14 @@ ; need outi.casl -MAIN START - LAD GR1,#8000 - CALL OUTI -FIN RET - END +MAIN START + LAD GR2,0 + LD GR3,CNT +LOOP LD GR1,VAL,GR2 + CALL OUTI + LAD GR2,1,GR2 + CPA GR2,GR3 + JZE FIN + JUMP LOOP +FIN RET + END +VAL DC #0000,#0001,#0002,#0010,#0100,#1000,#7FFF,#FFFF,#FFFE,#FFF0,#FF00,#F000,#8001,#8000 +CNT DC 14 diff --git a/test/astest/List.mk b/test/astest/List.mk index 9dc62b4..5a37868 100644 --- a/test/astest/List.mk +++ b/test/astest/List.mk @@ -46,3 +46,4 @@ count_call2 \ count_call \ div10_test \ div2 \ +outi \ diff --git a/test/astest/outi/0.txt b/test/astest/outi/0.txt new file mode 100644 index 0000000..6b53479 --- /dev/null +++ b/test/astest/outi/0.txt @@ -0,0 +1,327 @@ + +Assemble ../../../as/outi_call.casl (0) + +Assemble ../../../as/outi.casl (0) + +Label:::: +VAL ---> #0010 +STR ---> #006F +DFIN ---> #0083 +RNEXT ---> #0099 +CNT ---> #001E +DIV10 ---> #0076 +RFIN ---> #00A7 +ILOOP ---> #0032 +REV ---> #0084 +PRT ---> #0051 +LOOP ---> #0004 +ZCHAR ---> #006E +MAIN ---> #0000 +INEXT ---> #0041 +INV ---> #00AB +RPO ---> #009B +RPU ---> #008C +OUTI ---> #001F +DLOOP ---> #0079 +FIN ---> #000F +LEN ---> #0075 +TEN ---> #006D + +Assemble ../../../as/outi_call.casl (1) +../../../as/outi_call.casl:1:; need outi.casl +../../../as/outi_call.casl:2:MAIN START +../../../as/outi_call.casl:3: LAD GR2,0 + #0000 #1220 + #0001 #0000 +../../../as/outi_call.casl:4: LD GR3,CNT + #0002 #1030 + #0003 #001E +../../../as/outi_call.casl:5:LOOP LD GR1,VAL,GR2 + #0004 #1012 + #0005 #0010 +../../../as/outi_call.casl:6: CALL OUTI + #0006 #8000 + #0007 #001F +../../../as/outi_call.casl:7: LAD GR2,1,GR2 + #0008 #1222 + #0009 #0001 +../../../as/outi_call.casl:8: CPA GR2,GR3 + #000A #4423 +../../../as/outi_call.casl:9: JZE FIN + #000B #6300 + #000C #000F +../../../as/outi_call.casl:10: JUMP LOOP + #000D #6400 + #000E #0004 +../../../as/outi_call.casl:11:FIN RET + #000F #8100 +../../../as/outi_call.casl:12: END +../../../as/outi_call.casl:13:VAL DC #0000,#0001,#0002,#0010,#0100,#1000,#7FFF,#FFFF,#FFFE,#FFF0,#FF00,#F000,#8001,#8000 + #0010 #0000 + #0011 #0001 + #0012 #0002 + #0013 #0010 + #0014 #0100 + #0015 #1000 + #0016 #7FFF + #0017 #FFFF + #0018 #FFFE + #0019 #FFF0 + #001A #FF00 + #001B #F000 + #001C #8001 + #001D #8000 +../../../as/outi_call.casl:14:CNT DC 14 + #001E #000E + +Assemble ../../../as/outi.casl (1) +../../../as/outi.casl:1:;GR1に格納された数値を表示 +../../../as/outi.casl:2:OUTI START +../../../as/outi.casl:3: PUSH 0,GR2 + #001F #7002 + #0020 #0000 +../../../as/outi.casl:4: PUSH 0,GR3 + #0021 #7003 + #0022 #0000 +../../../as/outi.casl:5: PUSH 0,GR4 + #0023 #7004 + #0024 #0000 +../../../as/outi.casl:6: LAD GR0,0 ; 負数フラグ。GR1が負数の場合、GR0は1 + #0025 #1200 + #0026 #0000 +../../../as/outi.casl:7: LAD GR2,0 + #0027 #1220 + #0028 #0000 +../../../as/outi.casl:8: AND GR1,GR1 + #0029 #3411 +../../../as/outi.casl:9: JZE INEXT ; GR1が0の場合 + #002A #6300 + #002B #0041 +../../../as/outi.casl:10: JPL ILOOP ; GR1が正数の場合 + #002C #6500 + #002D #0032 +../../../as/outi.casl:11: LAD GR0,1 ; GR1が負数の場合、負数フラグ設定 + #002E #1200 + #002F #0001 +../../../as/outi.casl:12: CALL INV ; 負数を正数に変換 + #0030 #8000 + #0031 #00AB +../../../as/outi.casl:13:ILOOP CPL GR1,TEN + #0032 #4110 + #0033 #006D +../../../as/outi.casl:14: JMI INEXT ; GR1が10未満の場合は、ループ終了 + #0034 #6100 + #0035 #0041 +../../../as/outi.casl:15: CALL DIV10 ; (GR1 / 10)の商をGR3、剰余をGR4に格納 + #0036 #8000 + #0037 #0076 +../../../as/outi.casl:16: ADDL GR4,ZCHAR ; (GR1 / 10)の剰余を文字に変換 + #0038 #2240 + #0039 #006E +../../../as/outi.casl:17: ST GR4,STR,GR2 ; 文字をメモリに格納 + #003A #1142 + #003B #006F +../../../as/outi.casl:18: LAD GR2,1,GR2 ; GR2をインクリメント + #003C #1222 + #003D #0001 +../../../as/outi.casl:19: LD GR1,GR3 ; (GR1 / 10)の商をGR1に格納 + #003E #1413 +../../../as/outi.casl:20: JUMP ILOOP + #003F #6400 + #0040 #0032 +../../../as/outi.casl:21:INEXT ADDL GR1,ZCHAR ; ループ終了後の剰余を文字に変換 + #0041 #2210 + #0042 #006E +../../../as/outi.casl:22: ST GR1,STR,GR2 ; 文字をメモリに格納 + #0043 #1112 + #0044 #006F +../../../as/outi.casl:23: LAD GR2,1,GR2 ; GR2をインクリメント + #0045 #1222 + #0046 #0001 +../../../as/outi.casl:24: CPL GR0,=1 ; 負数フラグ判定 + #00B0 #0001 + #0047 #4100 + #0048 #00B0 +../../../as/outi.casl:25: JNZ PRT + #0049 #6200 + #004A #0051 +../../../as/outi.casl:26: LD GR1,='-' ; 負数フラグがオンの場合、「-」をロード + #00B1 #002D + #004B #1010 + #004C #00B1 +../../../as/outi.casl:27: ST GR1,STR,GR2 ; 「-」をメモリに格納 + #004D #1112 + #004E #006F +../../../as/outi.casl:28: LAD GR2,1,GR2 ; GR2をインクリメント + #004F #1222 + #0050 #0001 +../../../as/outi.casl:29:PRT ST GR2,LEN ; GR2をメモリに格納 + #0051 #1120 + #0052 #0075 +../../../as/outi.casl:30: LAD GR1,STR ; GR1に文字列のアドレスを格納 + #0053 #1210 + #0054 #006F +../../../as/outi.casl:31: CALL REV ; アドレスがGR1、長さがGR2の文字列を逆順に並べ替える + #0055 #8000 + #0056 #0084 +../../../as/outi.casl:32: OUT STR,LEN ; 文字列を印字 + #0057 #7001 + #0058 #0000 + #0059 #7002 + #005A #0000 + #005B #1210 + #005C #006F + #005D #1020 + #005E #0075 + #005F #F000 + #0060 #0002 + #0061 #1210 + #0062 #00B2 + #00B2 #000A + #0063 #1220 + #0064 #0001 + #0065 #F000 + #0066 #0002 + #0067 #7120 + #0068 #7110 +../../../as/outi.casl:33: POP GR4 + #0069 #7140 +../../../as/outi.casl:34: POP GR3 + #006A #7130 +../../../as/outi.casl:35: POP GR2 + #006B #7120 +../../../as/outi.casl:36: RET + #006C #8100 +../../../as/outi.casl:37:TEN DC 10 + #006D #000A +../../../as/outi.casl:38:ZCHAR DC '0' + #006E #0030 +../../../as/outi.casl:39:STR DS 6 + #006F #0000 + #0070 #0000 + #0071 #0000 + #0072 #0000 + #0073 #0000 + #0074 #0000 +../../../as/outi.casl:40:LEN DS 1 + #0075 #0000 +../../../as/outi.casl:41: END +../../../as/outi.casl:42:;GR1を10で割ったときの商をGR3、剰余をGR4に格納 +../../../as/outi.casl:43:DIV10 LD GR4,GR1 ; GR1の値をGR4にコピー + #0076 #1441 +../../../as/outi.casl:44: LAD GR3,0 + #0077 #1230 + #0078 #0000 +../../../as/outi.casl:45:DLOOP CPL GR4,TEN + #0079 #4140 + #007A #006D +../../../as/outi.casl:46: JMI DFIN ; GR4が10未満の場合は終了 + #007B #6100 + #007C #0083 +../../../as/outi.casl:47: SUBL GR4,TEN ; GR4 <- GR4 - 10 + #007D #2340 + #007E #006D +../../../as/outi.casl:48: LAD GR3,1,GR3 ; GR3をインクリメント + #007F #1233 + #0080 #0001 +../../../as/outi.casl:49: JUMP DLOOP + #0081 #6400 + #0082 #0079 +../../../as/outi.casl:50:DFIN RET + #0083 #8100 +../../../as/outi.casl:51: END +../../../as/outi.casl:52:;アドレスがGR1、長さがGR2の文字列を逆順に並べ替える +../../../as/outi.casl:53:;例: 12345 -> 54321 +../../../as/outi.casl:54:REV START +../../../as/outi.casl:55: PUSH 0,GR3 + #0084 #7003 + #0085 #0000 +../../../as/outi.casl:56: PUSH 0,GR4 + #0086 #7004 + #0087 #0000 +../../../as/outi.casl:57: PUSH 0,GR5 + #0088 #7005 + #0089 #0000 +../../../as/outi.casl:58: LAD GR3,1 + #008A #1230 + #008B #0001 +../../../as/outi.casl:59:RPU CPL GR2,GR3 + #008C #4523 +../../../as/outi.casl:60: JMI RNEXT + #008D #6100 + #008E #0099 +../../../as/outi.casl:61: LD GR4,GR1 + #008F #1441 +../../../as/outi.casl:62: ADDL GR4,GR3 + #0090 #2643 +../../../as/outi.casl:63: LD GR4,-1,GR4 + #0091 #1044 + #0092 #FFFF +../../../as/outi.casl:64: PUSH 0,GR4 + #0093 #7004 + #0094 #0000 +../../../as/outi.casl:65: LAD GR3,1,GR3 + #0095 #1233 + #0096 #0001 +../../../as/outi.casl:66: JUMP RPU + #0097 #6400 + #0098 #008C +../../../as/outi.casl:67:RNEXT LAD GR3,1 + #0099 #1230 + #009A #0001 +../../../as/outi.casl:68:RPO CPL GR2,GR3 + #009B #4523 +../../../as/outi.casl:69: JMI RFIN + #009C #6100 + #009D #00A7 +../../../as/outi.casl:70: POP GR4 + #009E #7140 +../../../as/outi.casl:71: LD GR5,GR1 + #009F #1451 +../../../as/outi.casl:72: ADDL GR5,GR3 + #00A0 #2653 +../../../as/outi.casl:73: ST GR4,-1,GR5 + #00A1 #1145 + #00A2 #FFFF +../../../as/outi.casl:74: LAD GR3,1,GR3 + #00A3 #1233 + #00A4 #0001 +../../../as/outi.casl:75: JUMP RPO + #00A5 #6400 + #00A6 #009B +../../../as/outi.casl:76:RFIN POP GR5 + #00A7 #7150 +../../../as/outi.casl:77: POP GR4 + #00A8 #7140 +../../../as/outi.casl:78: POP GR3 + #00A9 #7130 +../../../as/outi.casl:79: RET + #00AA #8100 +../../../as/outi.casl:80: END +../../../as/outi.casl:81:;GR1の内容をマイナス値にする +../../../as/outi.casl:82:;例: 10 -> -10, -20 -> 20 +../../../as/outi.casl:83:INV START +../../../as/outi.casl:84: XOR GR1,=#FFFF + #00B3 #FFFF + #00AB #3210 + #00AC #00B3 +../../../as/outi.casl:85: LAD GR1,1,GR1 + #00AD #1211 + #00AE #0001 +../../../as/outi.casl:86: RET + #00AF #8100 +../../../as/outi.casl:87: END +0 +1 +2 +16 +256 +4096 +32767 +-1 +-2 +-16 +-256 +-4096 +-32767 +-32768 diff --git a/test/astest/outi/Makefile b/test/astest/outi/Makefile new file mode 100644 index 0000000..ab1d8b0 --- /dev/null +++ b/test/astest/outi/Makefile @@ -0,0 +1,5 @@ +UNITNAME = outi +ASFILE = ../../../as/outi_call.casl ../../../as/outi.casl +CASL2FLAG = -al +# INFILE = +include ../Test.mk -- 2.18.0