X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?p=YACASL2.git;a=blobdiff_plain;f=as%2Fyakuwa%2Fbinout_test%2F1.txt;fp=as%2Fyakuwa%2Fbinout_test%2F1.txt;h=79aa0e77114a0ddcfc19a2debba258c93c89b0a2;hp=0000000000000000000000000000000000000000;hb=955b8eab6e12f9d9704d7f9bd1f12613a57a6ca0;hpb=4fe8479d27f535a0ff44c9f6ce270249934e980f diff --git a/as/yakuwa/binout_test/1.txt b/as/yakuwa/binout_test/1.txt new file mode 100644 index 0000000..79aa0e7 --- /dev/null +++ b/as/yakuwa/binout_test/1.txt @@ -0,0 +1,198 @@ +../../../../casl2 -la ../../../../as/YAKUWA/binout.casl + +Assemble ../../../../as/YAKUWA/binout.casl (0) + +Label:::: +BINOUT.OBUF ---> #0060 +BINOUT.ZERO ---> #002D +BINOUT.OUT1 ---> #0041 +BINOUT.OUT2 ---> #0047 +BINOUT.STORE ---> #0033 +MAIN.MLOOP ---> #0002 +BINOUT.NZERO ---> #0071 +BINOUT.LOOP1 ---> #0023 +BINOUT.LOOP2 ---> #002B +MAIN.MFIN ---> #000E +MAIN ---> #0000 +BINOUT.OLNG ---> #0070 +MAIN.MWORD ---> #000F +MAIN.MLEN ---> #0013 +BINOUT ---> #0014 +BINOUT.ONE ---> #0031 + +Assemble ../../../../as/YAKUWA/binout.casl (1) +../../../../as/YAKUWA/binout.casl: 1:;;; BINOUT: 主プログラムから渡された1語の内容を、 +../../../../as/YAKUWA/binout.casl: 2:;;; ゼロ抑制を行った2進表記で出力する +../../../../as/YAKUWA/binout.casl: 3:;;; 八鍬幸信『基本情報処理試験 らくらく突破 CASL II』172ページ +../../../../as/YAKUWA/binout.casl: 4:;;; BINOUTを呼び出す +../../../../as/YAKUWA/binout.casl: 5:MAIN START +../../../../as/YAKUWA/binout.casl: 6: LAD GR2,0 + #0000 #1220 + #0001 #0000 +../../../../as/YAKUWA/binout.casl: 7:MLOOP CPA GR2,MLEN + #0002 #4020 + #0003 #0013 +../../../../as/YAKUWA/binout.casl: 8: JZE MFIN + #0004 #6300 + #0005 #000E +../../../../as/YAKUWA/binout.casl: 9: LD GR1,MWORD,GR2 + #0006 #1012 + #0007 #000F +../../../../as/YAKUWA/binout.casl: 10: CALL BINOUT + #0008 #8000 + #0009 #0014 +../../../../as/YAKUWA/binout.casl: 11: LAD GR2,1,GR2 + #000A #1222 + #000B #0001 +../../../../as/YAKUWA/binout.casl: 12: JUMP MLOOP + #000C #6400 + #000D #0002 +../../../../as/YAKUWA/binout.casl: 13:MFIN RET + #000E #8100 +../../../../as/YAKUWA/binout.casl: 14:MWORD DC #0000,#0001,#09CD,#8001 + #000F #0000 + #0010 #0001 + #0011 #09CD + #0012 #8001 +../../../../as/YAKUWA/binout.casl: 15:MLEN DC 4 + #0013 #0004 +../../../../as/YAKUWA/binout.casl: 16: END +../../../../as/YAKUWA/binout.casl: 17:;;; BINOUT +../../../../as/YAKUWA/binout.casl: 18:BINOUT START +../../../../as/YAKUWA/binout.casl: 19: PUSH 0,GR1 ; レジスタの退避 + #0014 #7001 + #0015 #0000 +../../../../as/YAKUWA/binout.casl: 20: PUSH 0,GR2 ; ↓ + #0016 #7002 + #0017 #0000 +../../../../as/YAKUWA/binout.casl: 21: PUSH 0,GR3 ; ↓ + #0018 #7003 + #0019 #0000 +../../../../as/YAKUWA/binout.casl: 22: PUSH 0,GR4 ; ↓ + #001A #7004 + #001B #0000 +../../../../as/YAKUWA/binout.casl: 23: LAD GR2,0 ; 出力ポインタの初期化 + #001C #1220 + #001D #0000 +../../../../as/YAKUWA/binout.casl: 24: LAD GR3,15 ; カウンタの初期化 + #001E #1230 + #001F #000F +../../../../as/YAKUWA/binout.casl: 25: LD GR4,GR1 ; 全ビット = 0？ + #0020 #1441 +../../../../as/YAKUWA/binout.casl: 26: JZE OUT1 + #0021 #6300 + #0022 #0041 +../../../../as/YAKUWA/binout.casl: 27:LOOP1 JMI ONE ; 先行するビット処理 + #0023 #6100 + #0024 #0031 +../../../../as/YAKUWA/binout.casl: 28: LAD GR3,-1,GR3 ; ↓ + #0025 #1233 + #0026 #FFFF +../../../../as/YAKUWA/binout.casl: 29: SLL GR1,1 ; ↓ + #0027 #5210 + #0028 #0001 +../../../../as/YAKUWA/binout.casl: 30: JUMP LOOP1 + #0029 #6400 + #002A #0023 +../../../../as/YAKUWA/binout.casl: 31:LOOP2 JMI ONE ; 符号ビットの判定 + #002B #6100 + #002C #0031 +../../../../as/YAKUWA/binout.casl: 32:ZERO LAD GR0,48 ; '0'→GR0 + #002D #1200 + #002E #0030 +../../../../as/YAKUWA/binout.casl: 33: JUMP STORE + #002F #6400 + #0030 #0033 +../../../../as/YAKUWA/binout.casl: 34:ONE LAD GR0,49 ; '1'→GR1 + #0031 #1200 + #0032 #0031 +../../../../as/YAKUWA/binout.casl: 35:STORE ST GR0,OBUF,GR2 + #0033 #1102 + #0034 #0060 +../../../../as/YAKUWA/binout.casl: 36: LAD GR2,1,GR2 + #0035 #1222 + #0036 #0001 +../../../../as/YAKUWA/binout.casl: 37: LAD GR3,-1,GR3 + #0037 #1233 + #0038 #FFFF +../../../../as/YAKUWA/binout.casl: 38: CPA GR3,NZERO + #0039 #4030 + #003A #0071 +../../../../as/YAKUWA/binout.casl: 39: JMI OUT2 ; 全ビット終了？ + #003B #6100 + #003C #0047 +../../../../as/YAKUWA/binout.casl: 40: SLL GR1,1 + #003D #5210 + #003E #0001 +../../../../as/YAKUWA/binout.casl: 41: JUMP LOOP2 + #003F #6400 + #0040 #002B +../../../../as/YAKUWA/binout.casl: 42:OUT1 LAD GR0,48 + #0041 #1200 + #0042 #0030 +../../../../as/YAKUWA/binout.casl: 43: ST GR0,OBUF,GR2 + #0043 #1102 + #0044 #0060 +../../../../as/YAKUWA/binout.casl: 44: LAD GR2,1,GR2 + #0045 #1222 + #0046 #0001 +../../../../as/YAKUWA/binout.casl: 45:OUT2 ST GR2,OLNG + #0047 #1120 + #0048 #0070 +../../../../as/YAKUWA/binout.casl: 46: OUT OBUF,OLNG + #0049 #7001 + #004A #0000 + #004B #7002 + #004C #0000 + #004D #1210 + #004E #0060 + #004F #1220 + #0050 #0070 + #0051 #F000 + #0052 #0002 + #0053 #1210 + #0054 #0072 + #0072 #000A + #0055 #1220 + #0056 #0073 + #0073 #0001 + #0057 #F000 + #0058 #0002 + #0059 #7120 + #005A #7110 +../../../../as/YAKUWA/binout.casl: 47: POP GR4 ; レジスタの復元 + #005B #7140 +../../../../as/YAKUWA/binout.casl: 48: POP GR3 ; ↓ + #005C #7130 +../../../../as/YAKUWA/binout.casl: 49: POP GR2 ; ↓ + #005D #7120 +../../../../as/YAKUWA/binout.casl: 50: POP GR1 ; ↓ + #005E #7110 +../../../../as/YAKUWA/binout.casl: 51: RET + #005F #8100 +../../../../as/YAKUWA/binout.casl: 52:OBUF DS 16 + #0060 #0000 + #0061 #0000 + #0062 #0000 + #0063 #0000 + #0064 #0000 + #0065 #0000 + #0066 #0000 + #0067 #0000 + #0068 #0000 + #0069 #0000 + #006A #0000 + #006B #0000 + #006C #0000 + #006D #0000 + #006E #0000 + #006F #0000 +../../../../as/YAKUWA/binout.casl: 53:OLNG DS 1 + #0070 #0000 +../../../../as/YAKUWA/binout.casl: 54:NZERO DC 0 + #0071 #0000 +../../../../as/YAKUWA/binout.casl: 55: END +0 +1 +100111001101 +1000000000000001