+++ /dev/null
-../../../../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