Чт июл 20, 2017 10:21:36
$regfile = "m128def.dat"
$crystal = 1000000
Config Porte.2 = Output
D3310dc Alias Porte.2
Config Porte.1 = Output
D3310ce Alias Porte.1
Config Spi = Soft , Din = None , Dout = Porte.0 , Ss = None , Clock = Portb.1 ,
Spiinit
$include "3310init.bas"
Call D3310init
Do
Call D3310clear
Call D3310position(4 , 0)
Call D3310print( "Hello, world!")
Call D3310position(8 , 1)
Call D3310print( "cxem.net")
Waitms 5000
Loop
End
$include "3310end.bas"
Чт июл 20, 2017 10:33:37
Чт июл 20, 2017 11:08:13
$regfile = "m128def.dat"
$Crystal=1000000
$hwstack=40
$swstack=16
$framesize=32