;------------------------------------------------------------
;  Datei:           blink.asm
;  Beschreibung:    Blinker an P1.0
;
;  Prozessor:       80C49, 2KiB ROM
;  Taktfrequenz:    2 MHz
;
;  erzeugt von:     8048 Assembler (48as.exe)
;  erzeugt am:      26.03.2023
;  geändert am:     15.04.2023
;  Autor:           E.Mueller
;------------------------------------------------------------

var_a equ r0
var_b equ r1


  ORG 0
    JMP     start
  ORG 3
    retr
  ORG 7
    retr

start: SEL     RB0
       mov     a,#0

haupt:
       outl    p1,a
       cpl     a
       anl     a,#01h
       call    warte_500ms
       jmp     haupt


warte_500ms:
       ;Initalisieren (Takt: 2MHz)
       mov     var_a,#0
       mov     var_b,#130
warte_500ms_1:
       ;Zählen
       djnz    var_a,warte_500ms_1
       djnz    var_b,warte_500ms_1
       ret


  END
