ftp.barnyard.co.uk/2015.02.ftp.barnyard.co.uk.tar/ftp.barnyard.co.uk/cpm/walnut-creek-CDROM/MBUG/MBUG099.ARC/DOT.I

Text File | 1979-12-31 | 5KB | 90 lines

Procedure Dot(X,Y : Integer; F : Operation);

Var
  PCG : Byte;

Begin
if ((X>=0) and (X<512) and (Y>=0) and (Y<256)) then
  begin
  Inline($2A/Y/               {          LD       HL,(Y)    }
         $7D/                 {          LD       A,L       }
         $CB/$3F/             {          SRL      A         }
         $CB/$3F/             {          SRL      A         }
         $CB/$3F/             {          SRL      A         }
         $CB/$3F/             {          SRL      A         }
         $CB/$3F/             {          SRL      A         }
         $F5/                 {          PUSH     AF        }
         $7D/                 {          LD       A,L       }
         $E6/$0F/             {          AND      15        }
         $F5/                 {          PUSH     AF        }

         $ED/$4B/X/           {          LD       BC,(X)    }
         $79/                 {          LD       A,C       }
         $E6/7/               {          AND      7         }
         $F5/                 {          PUSH     AF        }
         $CB/$18/             {          RR       B         }
         $CB/$19/             {          RR       C         }
         $CB/$39/             {          SRL      C         }
         $CB/$39/             {          SRL      C         }

         $7D/                 {          LD       A,L       }
         $E6/$F0/             {          AND      240       }
         $6F/                 {          LD       L,A       }
         $29/                 {          ADD      HL,HL     }
         $29/                 {          ADD      HL,HL     }
         $EB/                 {          EX       DE,HL     }
         $21/$C0/$F3/         {          LD       HL,$F3C0  }
         $ED/$52/             {          SBC      HL,DE     }
         6/0/                 {          LD       B,0       }
         9/                   {          ADD      HL,BC     }
         $7E/                 {          LD       A,(HL)    }
         $32/PCG/             {          LD       (PCG),A   }

         $C1/                 {          POP      BC        }
         4/                   {          INC      B         }
         $E/0/                {          LD       C,0       }
         $37/                 {          SCF                }
         $CB/$19/             {LOOP      RR       C         }
         $10/$FC/             {          DJNZ     LOOP      }

         $E1/                 {          POP      HL        }
         $3E/$0F/             {          LD       A,15      }
         $94/                 {          SUB      H         }
         $5F/                 {          LD       E,A       }

         $E1/                 {          POP      HL        }
         $3E/$87/             {          LD       A,135     }
         $94/                 {          SUB      H         }
         $D3/$1C/             {          OUT      (28),A    }

         $2A/PCG/             {          LD       HL,(PCG)  }
         $26/0/               {          LD       H,0       }
         $29/                 {          ADD      HL,HL     }
         $29/                 {          ADD      HL,HL     }
         $29/                 {          ADD      HL,HL     }
         $29/                 {          ADD      HL,HL     }
         $16/$F0/             {          LD       D,$F0     }
         $19/                 {          ADD      HL,DE     }

         $3A/F/               {          LD       A,(F)     }
         $FE/0/               {          CP       0         }
         $28/8/               {          JR       Z,RESET   }
         $FE/1/               {          CP       1         }
         $28/$0B/             {          JR       Z,SET     }
         $7E/                 {          LD       A,(HL)    }
         $A9/                 {          XOR      C         }
         $18/9/               {          JR       CLEAN     }
         $79/                 {RESET     LD       A,C       }
         $2F/                 {          CPL                }
         $4F/                 {          LD       C,A       }
         $7E/                 {          LD       A,(HL)    }
         $A1/                 {          AND      C         }
         $18/$02/             {          JR       CLEAN     }
         $7E/                 {SET       LD       A,(HL)    }
         $B1/                 {          OR       C         }
         $77/                 {CLEAN     LD       (HL),A    }
         $3E/$80/             {          LD       A,128     }
         $D3/$1C);            {          OUT      (28),A    }
  end;
End;