{ 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.