Program 1: this program is to display numbers on 7-segment displays using ports ; B and P. PTP DDRP ptj ddrj EQU EQU equ equ $0258 $025A $0268 $026A PTB DDRB EQU EQU $01 $03 org $1500 movb #$FF, DDRB movb #$3F, DDRP movb #$FF, ddrj forever loopi ldx #DispTab movb #$FF, ptj movb 1, x+, PTB movb 1, x+, PTP jsr delay cpx #DispTab+8 bne loopi bra forever DispTab dc.b dc.b dc.b dc.b $30, $0e $5B, $0d $4F, $ Ob $66, $07 #3 #2000 delay ldab out_loop ldy inner_loop psha pula dbne dbne rts end y, inner_loop b, out_loop ; This program is to shift a number on the 7-segment displays by ; changing the time delay. Check the time delay subroutine carefully. PTP DDRP ptj ddrj EQU EQU equ equ $0258 $025A $268 $26A PTB DDRB EQU EQU $01 $03 org $1500 movb #$FF, DDRB movb #$3F, DDRP movb #$FF, ddrj forever ldx #Displab movb #$FF, ptj loopi movb 1, x+, PTB movb 1,x+, PTP jsr delay cpx #Disptab+8 bne loopi bra forever DispTab dc.b dc.b dc.b dc.b $3f, $0e $35, $0d $35, $ Ob $3f, $07 delay ldab #50 out_loop ldy #20000 inner_loop psha pula dbne y, inner_loop dbne b, out_loop rts end ; Now, it is your turn to program. Please make a program, based on the ; existing ones above, to display a shifting letter "L". Program 1: this program is to display numbers on 7-segment displays using ports ; B and P. PTP DDRP ptj ddrj EQU EQU equ equ $0258 $025A $0268 $026A PTB DDRB EQU EQU $01 $03 org $1500 movb #$FF, DDRB movb #$3F, DDRP movb #$FF, ddrj forever loopi ldx #DispTab movb #$FF, ptj movb 1, x+, PTB movb 1, x+, PTP jsr delay cpx #DispTab+8 bne loopi bra forever DispTab dc.b dc.b dc.b dc.b $30, $0e $5B, $0d $4F, $ Ob $66, $07 #3 #2000 delay ldab out_loop ldy inner_loop psha pula dbne dbne rts end y, inner_loop b, out_loop ; This program is to shift a number on the 7-segment displays by ; changing the time delay. Check the time delay subroutine carefully. PTP DDRP ptj ddrj EQU EQU equ equ $0258 $025A $268 $26A PTB DDRB EQU EQU $01 $03 org $1500 movb #$FF, DDRB movb #$3F, DDRP movb #$FF, ddrj forever ldx #Displab movb #$FF, ptj loopi movb 1, x+, PTB movb 1,x+, PTP jsr delay cpx #Disptab+8 bne loopi bra forever DispTab dc.b dc.b dc.b dc.b $3f, $0e $35, $0d $35, $ Ob $3f, $07 delay ldab #50 out_loop ldy #20000 inner_loop psha pula dbne y, inner_loop dbne b, out_loop rts end ; Now, it is your turn to program. Please make a program, based on the ; existing ones above, to display a shifting letter "L