$NOPAGING
$MOD252
;**********************************************************************
;*
;* 8051 with 11,0592 MHz crystal ..
;*
;**********************************************************************
Port DATA 80h ; P0
;----------------------------------------------------------------------
ORG 0000h
;----------------------------------------------------------------------
Start:
Line_1_2_3: LCALL Equalizing_Pulse
LCALL Equalizing_Pulse
LCALL Equalizing_Pulse
LCALL Equalizing_Pulse
LCALL Equalizing_Pulse
LCALL Equalizing_Pulse
Line_4_5_6: LCALL Serration_Pulse
LCALL Serration_Pulse
LCALL Serration_Pulse
LCALL Serration_Pulse
LCALL Serration_Pulse
LCALL Serration_Pulse
Line_7_8_9: LCALL Equalizing_Pulse
LCALL Equalizing_Pulse
LCALL Equalizing_Pulse
LCALL Equalizing_Pulse
LCALL Equalizing_Pulse
LCALL Equalizing_Pulse
Line_10: MOV R1, #250
Main_Loop1:
MOV Port, #1 ; Start with black ..
NOP
NOP
MOV Port, #0 ; Horizontal sinchronization ..
MOV Port, #1 ; Back to black ..
NOP
NOP
MOV Port, #2 ; Start gray ..
MOV R0, #21
Delay1: DJNZ R0, Delay1
DJNZ R1, Main_Loop1
Line_260: MOV R1, #250
Main_Loop2:
MOV Port, #1 ; Start with black ..
NOP
NOP
MOV Port, #0 ; Horizontal sinchronization ..
MOV Port, #1 ; Back to black ..
NOP
NOP
MOV Port, #2 ; Start gray ..
MOV R0, #21
Delay2: DJNZ R0, Delay2
DJNZ R1, Main_Loop2
Line_510: MOV R1, #115
Main_Loop3:
MOV Port, #1 ; Start with black ..
NOP
NOP
MOV Port, #0 ; Horizontal sinchronization ..
MOV Port, #1 ; Back to black ..
NOP
NOP
MOV Port, #2 ; Start gray ..
MOV R0, #21
Delay3: DJNZ R0, Delay3
DJNZ R1, Main_Loop3
LJMP Start
;----------------------------------------------------------------------
;Synchro pulses
;----------------------------------------------------------------------
Equalizing_Pulse:
MOV Port, #1 ; Start with black ..
MOV R0, #12
Delay4: DJNZ R0, Delay4
MOV Port, #0 ; Horizontal sinchronization ..
MOV Port, #1 ; Back to black ..
RET
Serration_Pulse:
MOV Port, #0
MOV R0, #12
Delay5: DJNZ R0, Delay5
MOV Port, #1
MOV Port, #0
RET
;-----------------------------------------------------------------------
END