! ASSEMBLE MISC ROUTINES
MAC RDAST=RDAST
MAC WRITE=WRITE
MAC CLEAR=CLEAR
MAC POSITN=POSITN
MAC KOMSTR=KOMSTR
MAC STRMOV=STRMOV
!
! BUILD GLOBAL COMMON
!TR4/TEXT:LEDFORD LEDFORD
F4P LEDFORD,LEDFORD/-SP=LEDFORD
TKB @LEDFORBLD
;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
TKB @MTREKBLD
;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
TKB @PLAYERBLD
;LINK/MU/OPTIONS PLAYER,RDAST,WRITE,CLEAR,POSITN,KOMSTR,STRMOV
;COMMON=LEDFOR:RW
;/
/