--- /dev/null
+../../../../casl2 -la ../../../../as/YAKUWA/binout.casl
+
+Assemble ../../../../as/YAKUWA/binout.casl (0)
+
+Label::::
+LOOP1 ---> #0023
+LOOP2 ---> #002B
+ONE ---> #0031
+OLNG ---> #0070
+MLOOP ---> #0002
+MFIN ---> #000E
+MLEN ---> #0013
+OBUF ---> #0060
+ZERO ---> #002D
+MAIN ---> #0000
+STORE ---> #0033
+OUT1 ---> #0041
+OUT2 ---> #0047
+MWORD ---> #000F
+BINOUT ---> #0014
+NZERO ---> #0071
+
+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 #1020
+ #0050 #0070
+ #0051 #F000
+ #0052 #0002
+ #0053 #1210
+ #0054 #0072
+ #0072 #000A
+ #0055 #1220
+ #0056 #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
projects / YACASL2.git / blobdiff