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 BINOUT.OBUF ---> #0060
   7 BINOUT.ZERO ---> #002D
   8 BINOUT.OUT1 ---> #0041
   9 BINOUT.OUT2 ---> #0047
  10 BINOUT.STORE ---> #0033
  11 MAIN.MLOOP ---> #0002
  12 BINOUT.NZERO ---> #0071
  13 BINOUT.LOOP1 ---> #0023
  14 BINOUT.LOOP2 ---> #002B
  15 MAIN.MFIN ---> #000E
  16 MAIN ---> #0000
  17 BINOUT.OLNG ---> #0070
  18 MAIN.MWORD ---> #000F
  19 MAIN.MLEN ---> #0013
  20 BINOUT ---> #0014
  21 BINOUT.ONE ---> #0031
  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   #1220
 150         #0050   #0070
 151         #0051   #F000
 152         #0052   #0002
 153         #0053   #1210
 154         #0054   #0072
 155         #0072   #000A
 156         #0055   #1220
 157         #0056   #0073
 158         #0073   #0001
 159         #0057   #F000
 160         #0058   #0002
 161         #0059   #7120
 162         #005A   #7110
 163 ../../../../as/YAKUWA/binout.casl:   47:        POP     GR4             ; レジスタの復元
 164         #005B   #7140
 165 ../../../../as/YAKUWA/binout.casl:   48:        POP     GR3             ; ↓
 166         #005C   #7130
 167 ../../../../as/YAKUWA/binout.casl:   49:        POP     GR2             ; ↓
 168         #005D   #7120
 169 ../../../../as/YAKUWA/binout.casl:   50:        POP     GR1             ; ↓
 170         #005E   #7110
 171 ../../../../as/YAKUWA/binout.casl:   51:        RET
 172         #005F   #8100
 173 ../../../../as/YAKUWA/binout.casl:   52:OBUF    DS      16
 174         #0060   #0000
 175         #0061   #0000
 176         #0062   #0000
 177         #0063   #0000
 178         #0064   #0000
 179         #0065   #0000
 180         #0066   #0000
 181         #0067   #0000
 182         #0068   #0000
 183         #0069   #0000
 184         #006A   #0000
 185         #006B   #0000
 186         #006C   #0000
 187         #006D   #0000
 188         #006E   #0000
 189         #006F   #0000
 190 ../../../../as/YAKUWA/binout.casl:   53:OLNG    DS      1
 191         #0070   #0000
 192 ../../../../as/YAKUWA/binout.casl:   54:NZERO   DC      0
 193         #0071   #0000
 194 ../../../../as/YAKUWA/binout.casl:   55:        END
 195 0
 196 1
 197 100111001101
 198 1000000000000001