movlw b'10101111' movwf DISPSA movlw b'10000111' movwf DISPSB ;Haupt routine call init movlw b'01000001' ;A movwf DDATENA call ausg_ls movlw b'01000010' ;B movwf DDATENA call ausg_ls movlw b'01000011' ;C movwf DDATENA call ausg_ls movlw b'01000100' ;D movwf DDATENA call ausg_ls movlw b'01000101' ;E movwf DDATENA call ausg_ls movlw b'01000110' ;F movwf DDATENA call ausg_ls movlw b'01000111' ;G movwf DDATENA call ausg_ls movlw b'01001000' ;H movwf DDATENA call ausg_ls movlw b'01001001' ;I movwf DDATENA call ausg_ls movlw b'01001010' ;J movwf DDATENA call ausg_ls movlw b'01001011' ;K movwf DDATENA call ausg_ls movlw b'01001100' ;L movwf DDATENA call ausg_ls movlw b'01001101' ;M movwf DDATENA call ausg_ls movlw b'01001110' ;N movwf DDATENA call ausg_ls movlw b'01001111' ;O movwf DDATENA call ausg_ls ;??????????????????????????????????????????????????????? ab hir klapts nicht mehr movlw b'01010000' ;P movwf DDATENA call ausg_ls movlw b'01010001' ;Q movwf DDATENA call ausg_ls movlw b'01010010' ;R movwf DDATENA call ausg_ls movlw b'01010011' ;S movwf DDATENA call ausg_ls movlw b'01010100' ;T movwf DDATENA call ausg_ls movlw b'01010101' ;U movwf DDATENA call ausg_ls movlw b'01010110' ;V movwf DDATENA call ausg_ls movlw b'01010111' ;W movwf DDATENA call ausg_ls movlw b'01011000' ;X movwf DDATENA call ausg_ls movlw b'01011001' ;Y movwf DDATENA call ausg_ls movlw b'01011010' ;Z movwf DDATENA call ausg_ls main b main ausg_a movfw DATEN movwf PORTB bsf PORTB,E nop bcf PORTB,E call ms call ms return ausg_s movfw DATEN movwf TDATEN call ausg_sa swapf DATEN,w movwf TDATEN call ausg_sa return ausg_sa bcf TDATEN,RS bcf TDATEN,RW bcf TDATEN,E movfw TDATEN movwf PORTB bsf PORTB,E nop bcf PORTB,E call ms call ms return ausg_d movfw DATEN movwf TDATEN call ausg_da swapf DATEN,w movwf TDATEN call ausg_da return ausg_da bsf TDATEN,RS bcf TDATEN,RW bcf TDATEN,E movfw TDATEN movwf PORTB bsf PORTB,E nop bcf PORTB,E call ys50 return ;Ausgaberotine für Laufschrift ausg_ls incf DISPSA,f incf DISPSB,f movfw DISPSA ;Springen movwf DATEN call ausg_s movlw b'00000110' ;Display not shift movwf DATEN call ausg_s movfw DDATENA ;ausgabe erste 8 Stellen movwf DATEN call ausg_d movfw DISPSB ;Springen movwf DATEN call ausg_s movlw b'00000111' ;Display not shift movwf DATEN call ausg_s movfw DDATENI ;ausgabe zweiten 8 Stellen movwf DATEN call ausg_d movfw DDATENH movwf DDATENI movfw DDATENG movwf DDATENH movfw DDATENF movwf DDATENG movfw DDATENE movwf DDATENF movfw DDATEND movwf DDATENE movfw DDATENC movwf DDATEND movfw DDATENB movwf DDATENC movfw DDATENA movwf DDATENB movlw d'2' movwf DELAY call delay return