TriOS-alt/zubehör/game boulderdash/sourcen/Regnatix-Code/test_rnd.spin

28 lines
600 B
Plaintext
Raw Normal View History

2010-04-16 00:25:58 +02:00
CON
_CLKMODE = XTAL1 + PLL16X
_XINFREQ = 5_000_000
OBJ
ios: "ios"
deb: "pterm"
PUB main | a,b,c
deb.Start(115200) ' Start des Debug-Terminals
deb.Str(string(deb#cs,"Debugterminal gestartet..."))
ios.start
ios.startram 'code f<>r test im ram, sollte bei bin-datei auskommentiert werden
ios.print(string("Debugterminal gestartet..."))
waitcnt(clkfreq*3+cnt)
repeat 100
a?
a := a & $FF
ios.printdec(a)
ios.print(string(" : "))
repeat