--- /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
projects / YACASL2.git / blobdiff