{ Testiranje eprom emulatorja skupaj z 8031AH mikroprocesor,
  frekvenca 2 MHz,
  ojacevalec Porta 1 je 74LS245
  na izhode LS245 je prikljuceno  8 LED diod za indikacijo delovanja.
  LED diode po dve skupaj rotirati v levi smeri.
  Avtor: Leon Kos, (061)791084 maja 1989.


LOC   OBJ    LINE   SOURCE

0000  74FC   1              MOV A, #252       ; v akumulator vstavi 11111100B
0002  F590   2   ZANKA:     MOV P1,A          ; prikazi na portu 1 vrednost A
0004  23     3              RL A              ; rotiraj akumulator levo
0005  79FF   4              MOV R1,#255       ; nastavi dolzino zakasnitve
0007  7AFF   5   LOOP1:     MOV R2,#255       ; in se ena zanka za cakanje
0009  DAFE   6   LOOP2:     DJNZ R2,LOOP2     ; zakasni v prvi zanki
000B  D9FA   7              DJNZ R1,LOOP1     ; in se v glavni zanki
000D  80F3   8              SJMP ZANKA        ; skozi na zacetek
             9   END

}


uses crt,multiio;

const pulzi8031:array [0 .. 14] of byte =
                       ( $74, $FC,
                         $F5, $90,
                         $23,
                         $79, $FF,
                         $7A, $FF,
                         $DA, $FE,
                         $D9, $FA,
                         $80, $F3  );


var
   addr:word;

begin

  SetStatusABC(Output,Output,Output);
  SetStatusDEF(Output,Output,Output);

  for addr := 0 to 14 do
    MemWrite(addr,pulzi8031[addr]);

end.