Please title this page. (8x4.htm)

		DEVICE	SX28L,OSCHS3
		RESET	Start
		FREQ 	50_000_000

Vert		equ	$08
NewScr		equ	$09
NewLine		equ	$0A
NewChar		equ	$0B
CharAcr		equ	$0C
;Char		equ	$0D
Temp		equ	$0E
Start		mov	rc, #%00000000	;Set port C output latch to zero
		mov	!rc,#%00111111	;Set port C.bit7 to output direction
		mov	rc, #%01000000
		mov	!rb,#%00000000
;33 Blanking
MAIN
mov	Temp,#18
Blanking
call nop99
call nop99
call nop99
call nop99
call nop99
call nop99
call nop99
call nop35
call Hsync
djnz Temp,Blanking
mov	NewScr,#4
Screen
mov	Temp,#9
Blanking3
call nop99
call nop99
call nop99
call nop99
call nop99
call nop99
call nop99
call nop35
call Hsync
djnz Temp,Blanking3
mov	NewLine,#9
Line
mov	NewChar,#5
BChar
mov	CharAcr,#8
call	nop80
CharLen
mov	RB,#0
mov	W,CharAcr	;2
jmp	@GC		;6
Here
rl 	RB		;1
call 	nop5		;20
rl 	RB		;1
call 	nop5		;20
rl 	RB		;1
call 	nop5		;20
rl 	RB		;1
call 	nop5		;20
rl 	RB		;1
call 	nop5		;20
rl 	RB		;1
call 	nop5		;20
rl 	RB		;1
call 	nop5		;20
rl 	RB		;1
nop
nop
nop
djnz	CharAcr,Charlen
call 	nop70		;20
call	HSYNC
djnz	NewChar,Bchar
djnz	NewLine,Line
djnz	NewScr,Screen
mov	Temp,#19
Blanking2
call nop99
call nop99
call nop99
call nop99
call nop99
call nop99
call nop99
call nop35
call Hsync
djnz Temp,Blanking2
jmp VSYNC

HSYNC
mov	rc, #%00000000
call NOP50
mov	rc, #%01000000
ret
VSYNC
mov	Vert,#6
Pre
call 	Hsync
;342 NOPs
call nop99
call nop99
call nop99
call nop41
djnz	Vert,Pre

mov	Vert,#6
mov	rc, #%00000000
Mid
call 	Bsync
;342 NOPs
call nop99
call nop99
call nop99
call nop41
djnz	Vert,Mid

mov	Vert,#7
Post
call 	Hsync
;342 NOPs
call nop99
call nop99
call nop99
call nop41
djnz	Vert,Post
jmp main

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


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	NOP
NOP4	RET
org	200h
GC
call Newsub
add	w,NewLine	;2
jmp @CG
NewSub
jmp 	PC+W		;2
nop
retw	90,18,126,153,234,99,72,108
retw	90,18,126,153,234,99,72,72
retw	90,18,126,153,234,99,72,108
retw	90,18,126,153,234,99,72,72
org	400h
CG
call	A
mov	RB,W		;1
jmp	@Here
A
jmp 	PC+W		;2
nop
;Character Set Data
retw 	68,68,68,124,124,68,68,40,16 		;A
retw 	120,68,68,68,120,68,68,68,120		;B
retw 	28,34,64,64,64,64,64,34,28 		;C
retw 	120,68,66,66,66,66,66,68,120		;D
retw 	124,64,64,64,120,64,64,64,124		;E
retw 	64,64,64,64,120,64,64,64,124		;F
retw 	28,34,66,66,78,64,64,34,28 		;G
retw	66,66,66,66,126,66,66,66,66		;H
retw	124,16,16,16,16,16,16,16,124		;I
retw	60,66,2,2,2,2,2,2,2			;J
retw	66,68,72,80,96,80,72,68,66		;K
retw	124,64,64,64,64,64,64,64,64		;L
retw	65,65,65,65,65,73,85,99,65		;M
retw	65,67,69,69,73,81,81,97,65		;N
retw	60,66,66,66,66,66,66,66,60		;O
retw	64,64,64,64,124,66,66,66,124		;P
retw	2,60,74,66,66,66,66,66,60		;Q
retw	66,66,66,68,124,66,66,66,124		;R
retw	56,4,4,4,56,64,64,64,56			;S
retw	16,16,16,16,16,16,16,16,254		;T
retw	60,66,66,66,66,66,66,66,66		;U
retw	16,40,68,130,130,130,130,130,130	;V
retw	65,99,85,73,65,65,65,65,65		;W
retw	65,65,34,20,8,20,34,65,65		;X
retw	8,8,8,8,8,20,34,65,65			;Y
retw	127,64,32,16,8,4,2,1,127		;Z
retw 	0,0,0,0,0,0,0,0,0	 		;Space