+++ /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