1 ;;; BINOUT: 主プログラムから渡された1語の内容を、
3 ;;; 八鍬幸信『基本情報処理試験 らくらく突破 CASL II』172ページ
14 MWORD DC #0000,#0001,#09CD,#8001
23 LAD GR2,0 ; 出力ポインタの初期化
25 LD GR4,GR1 ; 全ビット = 0?
27 LOOP1 JMI ONE ; 先行するビット処理
31 LOOP2 JMI ONE ; 符号ビットの判定
32 ZERO LAD GR0,48 ; '0'→GR0
34 ONE LAD GR0,49 ; '1'→GR1