home *** CD-ROM | disk | FTP | other *** search
/ APDL Maze Games / Maze_Games_Collection.iso / !Install / DATA / 225 (.txt) < prev    next >
Encoding:
RISC OS BBC BASIC V Source  |  2006-05-12  |  785 b   |  36 lines
  1.  >!Daleth.Resources.Time
  2.  Time file for Daleth
  3.  Version 1.10 Last Update 05/03/94
  4.  AMF the Doomwatcher 1994
  5.  blk% &100
  6.  "OS_ReadVarVal","Daleth$Dir",blk%,256,0,3 
  7.  ,,I%:blk%?I%=13
  8. $blk%,6) <>"HostFS" 
  9.  "XOS_CLI","cache off"
  10.  code 4096
  11.  pass=0 
  12. P%=code:[OPT pass
  13.     .loop
  14. &STMFD R13!,{R0-R12,R14}:MOV R12,#0
  15. .looping
  16. 9MOV R0,R0:ADD R12,R12,#1:CMP R12,#4096*64:BLT looping
  17. LDMFD R13!,{R0-R12,PC}
  18. )time=
  19.  I%=1 
  20. :timec1=
  21. -time
  22. time=
  23. loop:timec2=
  24. -time
  25.  timec2<0.1 
  26.  timec2=0.1
  27. timedelay=0
  28. patch%=4096*64/timec2
  29. patch2%=patch%*2-15888
  30. timedelay+=patch2%
  31. 'patch3%=2*patch%-(timec1*patch%/50)
  32. timedelay+=patch3%
  33.  timedelay<0 
  34.  timedelay=0
  35. !&1FFFC=timedelay
  36.