test/integration/CASL2/binout/0.txt

   1 ../../../../casl2 -la ../../../../as/YAKUWA/binout.casl
   2
   3 Assemble ../../../../as/YAKUWA/binout.casl (0)
   4
   5 Label::::
   6 LOOP1 ---> #0023
   7 LOOP2 ---> #002B
   8 ONE ---> #0031
   9 OLNG ---> #0070
  10 MLOOP ---> #0002
  11 MFIN ---> #000E
  12 MLEN ---> #0013
  13 OBUF ---> #0060
  14 ZERO ---> #002D
  15 MAIN ---> #0000
  16 STORE ---> #0033
  17 OUT1 ---> #0041
  18 OUT2 ---> #0047
  19 MWORD ---> #000F
  20 BINOUT ---> #0014
  21 NZERO ---> #0071
  22
  23 Assemble ../../../../as/YAKUWA/binout.casl (1)
  24 ../../../../as/YAKUWA/binout.casl:1:;;; BINOUT: 主プログラムから渡された1語の内容を、
  25 ../../../../as/YAKUWA/binout.casl:2:;;;         ゼロ抑制を行った2進表記で出力する
  26 ../../../../as/YAKUWA/binout.casl:3:;;;     八鍬幸信『基本情報処理試験 らくらく突破 CASL II』172ページ
  27 ../../../../as/YAKUWA/binout.casl:4:;;; BINOUTを呼び出す
  28 ../../../../as/YAKUWA/binout.casl:5:MAIN    START
  29 ../../../../as/YAKUWA/binout.casl:6:        LAD     GR2,0
  30         #0000   #1220
  31         #0001   #0000
  32 ../../../../as/YAKUWA/binout.casl:7:MLOOP   CPA     GR2,MLEN
  33         #0002   #4020
  34         #0003   #0013
  35 ../../../../as/YAKUWA/binout.casl:8:        JZE     MFIN
  36         #0004   #6300
  37         #0005   #000E
  38 ../../../../as/YAKUWA/binout.casl:9:        LD      GR1,MWORD,GR2
  39         #0006   #1012
  40         #0007   #000F
  41 ../../../../as/YAKUWA/binout.casl:10:        CALL    BINOUT
  42         #0008   #8000
  43         #0009   #0014
  44 ../../../../as/YAKUWA/binout.casl:11:        LAD     GR2,1,GR2
  45         #000A   #1222
  46         #000B   #0001
  47 ../../../../as/YAKUWA/binout.casl:12:        JUMP    MLOOP
  48         #000C   #6400
  49         #000D   #0002
  50 ../../../../as/YAKUWA/binout.casl:13:MFIN    RET
  51         #000E   #8100
  52 ../../../../as/YAKUWA/binout.casl:14:MWORD   DC      #0000,#0001,#09CD,#8001
  53         #000F   #0000
  54         #0010   #0001
  55         #0011   #09CD
  56         #0012   #8001
  57 ../../../../as/YAKUWA/binout.casl:15:MLEN    DC      4
  58         #0013   #0004
  59 ../../../../as/YAKUWA/binout.casl:16:        END
  60 ../../../../as/YAKUWA/binout.casl:17:;;; BINOUT
  61 ../../../../as/YAKUWA/binout.casl:18:BINOUT  START
  62 ../../../../as/YAKUWA/binout.casl:19:        PUSH    0,GR1           ; レジスタの退避
  63         #0014   #7001
  64         #0015   #0000
  65 ../../../../as/YAKUWA/binout.casl:20:        PUSH    0,GR2           ; ↓
  66         #0016   #7002
  67         #0017   #0000
  68 ../../../../as/YAKUWA/binout.casl:21:        PUSH    0,GR3           ; ↓
  69         #0018   #7003
  70         #0019   #0000
  71 ../../../../as/YAKUWA/binout.casl:22:        PUSH    0,GR4           ; ↓
  72         #001A   #7004
  73         #001B   #0000
  74 ../../../../as/YAKUWA/binout.casl:23:        LAD     GR2,0           ; 出力ポインタの初期化
  75         #001C   #1220
  76         #001D   #0000
  77 ../../../../as/YAKUWA/binout.casl:24:        LAD     GR3,15          ; カウンタの初期化
  78         #001E   #1230
  79         #001F   #000F
  80 ../../../../as/YAKUWA/binout.casl:25:        LD      GR4,GR1         ; 全ビット = 0？
  81         #0020   #1441
  82 ../../../../as/YAKUWA/binout.casl:26:        JZE     OUT1
  83         #0021   #6300
  84         #0022   #0041
  85 ../../../../as/YAKUWA/binout.casl:27:LOOP1   JMI     ONE             ; 先行するビット処理
  86         #0023   #6100
  87         #0024   #0031
  88 ../../../../as/YAKUWA/binout.casl:28:        LAD     GR3,-1,GR3      ; ↓
  89         #0025   #1233
  90         #0026   #FFFF
  91 ../../../../as/YAKUWA/binout.casl:29:        SLL     GR1,1           ; ↓
  92         #0027   #5210
  93         #0028   #0001
  94 ../../../../as/YAKUWA/binout.casl:30:        JUMP    LOOP1
  95         #0029   #6400
  96         #002A   #0023
  97 ../../../../as/YAKUWA/binout.casl:31:LOOP2   JMI     ONE             ; 符号ビットの判定
  98         #002B   #6100
  99         #002C   #0031
 100 ../../../../as/YAKUWA/binout.casl:32:ZERO    LAD     GR0,48          ; '0'→GR0
 101         #002D   #1200
 102         #002E   #0030
 103 ../../../../as/YAKUWA/binout.casl:33:        JUMP    STORE
 104         #002F   #6400
 105         #0030   #0033
 106 ../../../../as/YAKUWA/binout.casl:34:ONE     LAD     GR0,49          ; '1'→GR1
 107         #0031   #1200
 108         #0032   #0031
 109 ../../../../as/YAKUWA/binout.casl:35:STORE   ST      GR0,OBUF,GR2
 110         #0033   #1102
 111         #0034   #0060
 112 ../../../../as/YAKUWA/binout.casl:36:        LAD     GR2,1,GR2
 113         #0035   #1222
 114         #0036   #0001
 115 ../../../../as/YAKUWA/binout.casl:37:        LAD     GR3,-1,GR3
 116         #0037   #1233
 117         #0038   #FFFF
 118 ../../../../as/YAKUWA/binout.casl:38:        CPA     GR3,NZERO
 119         #0039   #4030
 120         #003A   #0071
 121 ../../../../as/YAKUWA/binout.casl:39:        JMI     OUT2            ; 全ビット終了？
 122         #003B   #6100
 123         #003C   #0047
 124 ../../../../as/YAKUWA/binout.casl:40:        SLL     GR1,1
 125         #003D   #5210
 126         #003E   #0001
 127 ../../../../as/YAKUWA/binout.casl:41:        JUMP    LOOP2
 128         #003F   #6400
 129         #0040   #002B
 130 ../../../../as/YAKUWA/binout.casl:42:OUT1    LAD     GR0,48
 131         #0041   #1200
 132         #0042   #0030
 133 ../../../../as/YAKUWA/binout.casl:43:        ST      GR0,OBUF,GR2
 134         #0043   #1102
 135         #0044   #0060
 136 ../../../../as/YAKUWA/binout.casl:44:        LAD     GR2,1,GR2
 137         #0045   #1222
 138         #0046   #0001
 139 ../../../../as/YAKUWA/binout.casl:45:OUT2    ST      GR2,OLNG
 140         #0047   #1120
 141         #0048   #0070
 142 ../../../../as/YAKUWA/binout.casl:46:        OUT     OBUF,OLNG
 143         #0049   #7001
 144         #004A   #0000
 145         #004B   #7002
 146         #004C   #0000
 147         #004D   #1210
 148         #004E   #0060
 149         #004F   #1020
 150         #0050   #0070
 151         #0051   #F000
 152         #0052   #0002
 153         #0053   #1210
 154         #0054   #0072
 155         #0072   #000A
 156         #0055   #1220
 157         #0056   #0001
 158         #0057   #F000
 159         #0058   #0002
 160         #0059   #7120
 161         #005A   #7110
 162 ../../../../as/YAKUWA/binout.casl:47:        POP     GR4             ; レジスタの復元
 163         #005B   #7140
 164 ../../../../as/YAKUWA/binout.casl:48:        POP     GR3             ; ↓
 165         #005C   #7130
 166 ../../../../as/YAKUWA/binout.casl:49:        POP     GR2             ; ↓
 167         #005D   #7120
 168 ../../../../as/YAKUWA/binout.casl:50:        POP     GR1             ; ↓
 169         #005E   #7110
 170 ../../../../as/YAKUWA/binout.casl:51:        RET
 171         #005F   #8100
 172 ../../../../as/YAKUWA/binout.casl:52:OBUF    DS      16
 173         #0060   #0000
 174         #0061   #0000
 175         #0062   #0000
 176         #0063   #0000
 177         #0064   #0000
 178         #0065   #0000
 179         #0066   #0000
 180         #0067   #0000
 181         #0068   #0000
 182         #0069   #0000
 183         #006A   #0000
 184         #006B   #0000
 185         #006C   #0000
 186         #006D   #0000
 187         #006E   #0000
 188         #006F   #0000
 189 ../../../../as/YAKUWA/binout.casl:53:OLNG    DS      1
 190         #0070   #0000
 191 ../../../../as/YAKUWA/binout.casl:54:NZERO   DC      0
 192         #0071   #0000
 193 ../../../../as/YAKUWA/binout.casl:55:        END
 194 0
 195 1
 196 100111001101
 197 1000000000000001