! ASSEMBLE MISC ROUTINES
MAC/LI:RDAST RDAST
MAC/LI:WRITE WRITE
MAC/LI:CLEAR CLEAR
MAC/LI:POSITN POSITN
MAC/LI:KOMSTR KOMSTR
MAC/LI:STRMOV STRMOV
!
! BUILD GLOBAL COMMON
!TR4/TEXT:LEDFORD LEDFORD
F4P LEDFORD,LEDFORD/-SP=LEDFORD
LINK/TASK:[1,1]LEDFOR/POS/SYMBOLS:[1,1]LEDFOR/NOHEAD/OPT LEDFORD
STACK=0
UNITS=0
UIC=[1,1]
/
!
! BUILD THE REAL-TIME DRIVER
!TR4/TEXT:LEDFORD/LIST:MTREK MTREK
F4P MTREK,MTREK/-SP=MTREK
LINK/OPTIONS MTREK,KOMSTR,STRMOV
COMMON=LEDFOR:RW
/
!
! BUILD THE PLAYER TASK
!TR4/TEXT:LEDFORD/LIST:PLAYER PLAYER
F4P PLAYER,PLAYER/-SP=PLAYER/CO:10
LINK/MU/OPTIONS PLAYER,RDAST,WRITE,CLEAR,POSITN,KOMSTR,STRMOV
COMMON=LEDFOR:RW
/