08/11/08 18:02:45
MAIN: LD BC,SW
IN A,(BC)
XXX ; Aregの反転。負論理のことが多いのでここで反転
CP 055H
JP Z,ALLBLINK
CP 010H
JP C,UNDER ; 10Hを引いてキャリー＝0F以下。>>402では10より大、0Fより小と言って
; いるが、10/0Fと等しいときの処理が読みとれないので10以上と未満と解釈する。
LOOP1: ; ここが10H以上のとき。
LD A,0FFH
LD BC,LED
OUT (BC),A ; LEDにFF（All Off）をライト
CALL DELAY ; 後で作る。たぶん１秒ぐらい
LD A,0
LD BC,LED
OUT (BC),A ; LEDに00（All On）をライト
CALL DELAY
JP LOOP1
コンプリメントのニーモニックが判らなくてｺﾞﾒﾝ。読む人はザイログ慣れてるでしょうから補って。