DEVICE	SX28L,OSCXT2
		RESET	Start
		FREQ 12_000_000


Count	equ	$09
Temp	equ	$0A
Line	equ	$0B
VS	equ	$0C
Rotate	equ	$0D
watch 	$0D,8,udec
Start		mov	rc, #%00000000	;Set port C output latch to zero
		mov	!rc,#%00111111	;Set port C.bit7 to output direction
		mov	rc, #%01000000
Main
mov 	Line,#11	;2
Once
mov	VS, #23		;2
jmp gCall

HLine
nop
nop
nop
nop
nop
nop
gCall call    nop37		;45
mov 	Temp,#8		;2
mov	W,Line		;1
call	A		;6
mov	Rotate,W	;1

PixelPrint
movb	RC.7,Rotate.7	;4
rl	Rotate		;1
djnz 	Temp,PixelPrint ;2-4
mov	rc, #%01000000
call	nop56		;57
call 	Hsync		;16
djnz 	VS,HLine	;2-4
djnz 	Line,Once	;2-4
jmp 	Vsync


A	
jmp 	PC+W		;2
nop
;retw 	0,68,68,68,124,124,68,68,40,16,0 	;A
;retw 	0,120,68,68,68,120,68,68,68,120,0	;B
;retw 	0,28,34,64,64,64,64,64,34,28,0 		;C
;retw 	0,120,68,66,66,66,66,66,68,120,0	;D
;retw 	0,124,64,64,64,120,64,64,64,124,0	;E
;retw 	0,64,64,64,64,120,64,64,64,124,0	;F
;retw 	0,28,34,66,66,78,64,64,34,28,0 		;G
;retw	0,66,66,66,66,126,66,66,66,66,0		;H
;retw	0,56,16,16,16,16,16,16,16,56,0		;I
;retw	0,60,66,2,2,2,2,2,2,2,0			;J
;retw	0,66,68,72,80,96,80,72,68,66,0		;K
;retw	0,124,64,64,64,64,64,64,64,64,0		;L
retw	0,65,65,65,65,65,73,85,99,65,0		;M
;retw	0,65,67,69,69,73,81,81,97,65,0		;N
;retw	0,60,66,66,66,66,66,66,66,60,0		;O
;retw	0,64,64,64,64,124,66,66,66,124,0	;P
;retw	0,2,60,74,66,66,66,66,66,60,0		;Q
;retw	0,66,66,66,68,124,66,66,66,124,0	;R
;retw	0,56,4,4,4,56,64,64,64,56,0		;S
;retw	0,16,16,16,16,16,16,16,16,254,0		;T
;retw	0,60,66,66,66,66,66,66,66,66,0		;U
;retw	0,16,40,68,130,130,130,130,130,130,0	;V
;retw	0,65,99,85,73,65,65,65,65,65,0		;W
;retw	0,65,65,34,20,8,20,34,65,65,0		;X
;retw	0,8,8,8,8,8,20,34,65,65,0		;Y
;retw	0,127,64,32,16,8,4,2,1,127,0		;Z

HSYNC
mov	rc, #%00000000
call NOP10
mov	rc, #%01000000
ret

NOP99	NOP
NOP98	NOP
NOP97	NOP
NOP96	NOP
NOP95	NOP
NOP94	NOP
NOP93	NOP
NOP92	NOP
NOP91	NOP
NOP90	NOP
NOP89	NOP
NOP88	NOP
NOP87	NOP
NOP86	NOP
NOP85	NOP
NOP84	NOP
NOP83	NOP
NOP82	NOP
NOP81	NOP
NOP80	NOP
NOP79	NOP
NOP78	NOP
NOP77	NOP
NOP76	NOP
NOP75	NOP
NOP74	NOP
NOP73	NOP
NOP72	NOP
NOP71	NOP
NOP70	NOP
NOP69	NOP
NOP68	NOP
NOP67	NOP
NOP66	NOP
NOP65	NOP
NOP64	NOP
NOP63	NOP
NOP62	NOP
NOP61	NOP
NOP60	NOP
NOP59	NOP
NOP58	NOP
NOP57	NOP
NOP56	NOP
NOP55	NOP
NOP54	NOP
NOP53	NOP
NOP52	NOP
NOP51	NOP
NOP50	NOP
NOP49	NOP
NOP48	NOP
NOP47	NOP
NOP46	NOP
NOP45	NOP
NOP44	NOP
NOP43	NOP
NOP42	NOP
NOP41	NOP
NOP40	NOP
NOP39	NOP
NOP38	NOP
NOP37	NOP
NOP36	NOP
NOP35	NOP
NOP34	NOP
NOP33	NOP
NOP32	NOP
NOP31	NOP
NOP30	NOP
NOP29	NOP
NOP28	NOP
NOP27	NOP
NOP26	NOP
NOP25	NOP
NOP24	NOP
NOP23	NOP
NOP22	NOP
NOP21	NOP
NOP20	NOP
NOP19	NOP
NOP18	NOP
NOP17	NOP
NOP16	NOP
NOP15	NOP
NOP14	NOP
NOP13	NOP
NOP12	NOP
NOP11	NOP
NOP10	NOP
NOP9	NOP
NOP8	NOP
NOP7	NOP
NOP6	NOP
NOP5	RET

BSYNC
mov	rc, #%01000000
call NOP8
mov	rc, #%00000000
ret

VSYNC
;Pre =
call HSYNC
call NOP80
call HSYNC
call NOP80
call HSYNC
call NOP80
call HSYNC
call NOP80
call HSYNC
call NOP80
call HSYNC
call NOP80
;Vertsync
mov	rc, #%00000000
call NOP78
call BSYNC
call NOP80
call BSYNC
call NOP80
call BSYNC
call NOP80
call BSYNC
call NOP80
call BSYNC
call NOP80
call BSYNC
;Post =
call HSYNC
call NOP80
call HSYNC
call NOP80
call HSYNC
call NOP80
call HSYNC
call NOP80
call HSYNC
call NOP80
call HSYNC
call NOP80
call HSYNC
call NOP80

jmp  Main