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
file: /Techref/member/GFH--441/files/8x4.htm, 4KB, , updated: 2001/2/12 13:05, local time: 2024/12/21 23:57,
owner: GFH--441,
|
| ©2024 These pages are served without commercial sponsorship. (No popup ads, etc...).Bandwidth abuse increases hosting cost forcing sponsorship or shutdown. This server aggressively defends against automated copying for any reason including offline viewing, duplication, etc... Please respect this requirement and DO NOT RIP THIS SITE. Questions? <A HREF="http://sxlist.com/techref/member/GFH--441/files/8x4.htm"> member GFH--441 files 8x4</A> |
Did you find what you needed?
|