例如初始化程序
//‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐
子Writecom
P1 = A 'move data to port 1
Set P3.0 'set I/D for instruction
Reset P3.1 'reset /CS
Reset P3.4 'reset /WR
Set P3.1 'set /CS
Set P3.4 'set /WR
END SUB
子Writedata
P1 = A 'move data to port 1
Reset P3.0 'reset I/D for instruction
Reset P3.1
Reset P3.4 'toggle /CS and /WR
Set P3.1
Set P3.4
END SUB
//‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐
初始化子
Set P3.6
Set P3.7
Reset P3.3 'reset FS
A = &H00
呼叫Writedata
Call Writedata 'text address = 0000h
A = &H40
叫Writecom “文家的地址集
A = &H00
呼叫Writedata
A = &H40 'graphic home address = 4000h
呼叫Writedata
A = &H42
叫Writecom “图形家庭住址集
A = &H1E
呼叫Writedata
A = &H00 'text area address = 001Eh
呼叫Writedata
A = &H41
叫Writecom “文本区域控制设定
A = &H1E
呼叫Writedata
A = &H00 'graphic area = 001Eh
呼叫Writedata
A = &H43
叫Writecom “图形面积控制集
A = &H80
叫Writecom “集显模式
END SUB
[8]