--- /dev/null
+;; outd_q15.caslを呼び出し、33個の数値を表示する
+MAIN START
+ LAD GR2,0
+LOOP LD GR1,VAL,GR2
+ CALL OUTD
+ LAD GR2,1,GR2
+ CPA GR2,CNT
+ JZE FIN
+ JUMP LOOP
+FIN RET
+VAL DC #7FFF,#4000,#2000,#1000
+ DC #0800,#0400,#0200,#0100
+ DC #0080,#0040,#0020,#0010
+ DC #0008,#0004,#0002,#0001
+ DC #8000
+ DC #8001,#C000,#E000,#F000
+ DC #F800,#FC00,#FE00,#FF00
+ DC #FF80,#FFC0,#FFE0,#FFF0
+ DC #FFF8,#FFFC,#FFFE,#FFFF
+CNT DC 33
+ END