“ 
明日が締め切り日。まあ何とかなるでしょう。

ふと思い立って、四半世紀ぶりにＺ８０のマシン語を書いてみました。
ＰＣ－８８０１のグラフィック画面消去です。

     XOR A
     LD B，3
     LD C，5Ch
     DI
loop:OUT (C)，A
     LD HL，0C000h
loop2:LD (HL)，A
     INC HL
     JR NC，loop2
     INC C
     DJNZ loop
     OUT (5Fh)，A
     EI

あれ・・・？ フラグとか、ラベルの位置とか、これで良かったっけな？(^^;)
試しにツイッターに書いてみたら、中年プログラマの連中がみんなして添削
してくれました。

     XOR A
     LD BC，035Ch
     DI
l1:  OUT (C)，A
     LD HL，0C000h
l2:  LD (HL)，A
     INC HL
     CP H
     JR NZ，l2
     INC C
     DJNZ l1
     OUT (5Fh)，A
     EI

HLレジスタをインクリメントしても、キャリーフラグは立たないようです。
そうだっけ。でも大体合ってた。
日記帳