ein paar mehr Änderungen

This commit is contained in:
Johannes Theiner 2018-12-12 17:21:16 +01:00
parent 0edbf6ab02
commit 449c594f19

View File

@ -16,7 +16,6 @@ tcountv dw 100 * twait ; Impulszaehler fuer Verzoegerung * 10ms
; Rueckwaertszaehler
frei db 'frei ', 0 ; Texte
belegt db 'belegt ', 0
dir db 20
; Konstanten
divider equ 0 ; Platzhalter fuer Ihre Zeitkonstante1
@ -54,13 +53,13 @@ keybd equ 80h ; SBC-86 Tastatur
gokey equ 11h ; Taste "GO"
outkey equ 15h ; Taste "OUT"
sseg7 equ 9eh ; Segmentanzeige 7
tcpwm equ 184 ; 1843200 Hz / 184 = ca. 10000 Hz = 0.1 ms
tcpwm equ 184 ; 1843200 Hz / ??? = ca. 10000 Hz = 0.1 ms
; Taktzyklus
; Zeitkonstante fuer PWM-Interrupt
tpwm equ 200 ; Periodendauer des PWM-Signals * 0.1 ms
tlinks equ 10 ; Impulsdauer fuer "ZU" * 0.1 ms
trechts equ 20 ; Impulsdauer fuer "AUF" * 0.1 ms
tcwait equ 18432 ; 1843200 Hz / 18432 = 100 Hz => 10 ms
tcwait equ 18432 ; 1843200 Hz / ????? = 100 Hz => 10 ms
; Zeitkonstante fuer Wartezeitinterrupt
twait equ 1 ; Wartezeit fuer offenen Vereinzeler (s)
shcnt equ 4 ; Shiftcount Anzahl Teile
@ -86,7 +85,7 @@ start:
again:
; Ihr Programmcode...
;Ausgabe der Status Variable
mov ax, [status]
out leds, ax
@ -122,13 +121,15 @@ ifzero:
ifbelowzero:
mov dx, pieces << shcnt
and dx, 10000010b
and dx, 10000001b
mov [status], dx
jmp again
jmp again
; Initialisierung Controller und Interruptsystem
init:
@ -195,23 +196,20 @@ init:
isr_opentimer: ; Timer fuer Vereinzeler (Zeit fuer Oeffnung)
push ax
;Zeit abgelaufen ?
mov ah, [divider]
mov al, [status]
test al, 00000010b
jz isr_opentimer_out
inc byte [divider]
cmp byte [divider], tcountv
jne isr_opentimer_out
inc ah
cmp ah, [tcountv]
jnz isr_opentimer_out
mov ax, [status]
and ax, 11111110b
mov [status], ax
mov ah, 0
mov byte[dir], trechts
and al, 0xfd
; Ihr Programmcode
isr_opentimer_out: ; Ausgang aus dem Service
mov [status], al
mov [divider], ah
mov al, eoi ; EOI an PIC
out ocw_2_3, al
pop ax
@ -227,25 +225,15 @@ isr_lt: ; Lichttaster
times shcnt shl al, 1
and byte [status], 00001111b
or [status], al
mov [status], al
and al, 11111101b
cmp al, 0b
jz left
cmp al, 10b
je right
left:
mov byte[dir], tlinks
jmp isr_lt_out
right:
mov byte[dir], trechts
jmp isr_lt_out
; Ihr Programmcode
isr_lt_out: ; Ausgang aus dem Service
or byte [status], 00000010b
or al, 00000001b
mov [status], al
mov [status], al
mov al, eoi ; EOI an PIC
out ocw_2_3, al
pop ax
@ -253,24 +241,56 @@ isr_lt_out: ; Ausgang aus dem Service
isr_servotimer: ; Timer fuer Servo (Vereinzeler)
push ax
mov ah, [tcounts]
inc ah
cmp ah, [dir]
jnz auf
out ppi_a, al
push cx
auf:
cmp ah, tpwm
jnz isr_servotimer_out
mov al, ppi_pa6
mov al, [tcounts]
inc al
mov [tcounts], al
;send zero all the time
push ax
mov al, 0
out ppi_a, al
pop ax
mov cl, tpwm
mov ah, [status]
cmp ah, 0x0
jz left
jnz right
jmp isr_servotimer_out
left: cmp al, tlinks
jne cycle
in al, ppi_a
and al, ~ppi_pa6
out ppi_a, al
jmp cycle
right: cmp al, trechts
jne cycle
in al, ppi_a
and al, ~ppi_pa6
out ppi_a, al
cycle: cmp al, tpwm
jnz isr_servotimer_out
in al, ppi_a
or al, ppi_pa6
out ppi_a, al
; Ihr Programmcode
isr_servotimer_out: ; Ausgang aus dem Service
mov byte[tcounts], 0
mov al, eoi ; EOI an PIC
out ocw_2_3, al
pop cx
pop ax
iret