zad 5.0 lab 5

Goal DATA 30h
Max EQU 16

CSEG AT 0
AJMP reset
CSEG AT 23h
AJMP przerw
CSEG AT 30h

reset:
MOV SCON, #50h
MOV TMOD, #20h
MOV TH1, #0FDh
SETB TR1
CLR TI
SETB ES
SETB EA

MOV R0, #Goal

loop:
JMP $

przerw:
JB TI, skipti
MOV A, SBUF

MOV @R0, A
INC R0
CJNE R0, #(Goal+Max), skipri
MOV R0, #Goal
skipri:
CLR RI
skipti:
CLR TI
RETI

END