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