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

Text File | 1979-12-31 | 896b | 21 lines

Procedure Inverse;

Begin
  Inline($3E/1/       {       LD     A,1        }
         $D3/$0B/     {       OUT    (11),A     }
         $11/$F800/   {       LD     DE,0F800H  }
         $21/$F000/   {       LD     HL,0F000H  }
         1/$800/      {       LD     BC,00800H  }
         $7E/         { LOOP  LD     A,(HL)     }
         $2F/         {       CPL               }
         $12/         {       LD     (DE),A     }
         $13/         {       INC    DE         }
         $23/         {       INC    HL         }
         $0B/         {       DEC    BC         }
         $79/         {       LD     A,C        }
         $B0/         {       OR     B          }
         $20/$F6/     {       JR     NZ,LOOP    }
         $AF/         {       XOR    A          }
         $D3/$0B);    {       OUT    (11),A     }
End;