; ; Build the Font Loader Utility ; ; You may build either the regular LFNT task, with ; user-interactive support, or the special CT*OS ; version with spawn-only support. ; .enable substitution .ask SILENTVER Build the silent version .open lfcnd.h .enable data /* * LFNT conditionals */ .disable data .ift SILENTVER .goto silent .enable data #define INTERACTIVE .disable data .silent: .close run $cc/command="cc lfnt" .if ne 1 .goto error run $as/command="as -d lfnt" .if ne 1 .goto error .sets task "lfnt" .sets libs "[1,5]ctex/lb," .ift SILENTVER .sets task "silfnt" .ift SILENTVER .sets libs "" .open lfnt.pab .enable data 'task'/cp/mm=lfnt,[1,5]cx/lb,'libs'[1,5]cr/lb / wndws = 4 stack = 2000 .disable data .ift SILENTVER .data libr = rmsres:ro .ift SILENTVER .data // .ift SILENTVER .goto build .enable data clstr = rmsres,posres:ro ; extsct = mn$buf:2400 extsct = mm$buf:1000 extsct = dm$buf:0 extsct = hl$buf:3000 extsct = fl$buf:0 ; Use decimal here units = 9 ; Use octal here gbldef = mn$lun:11 gbldef = hl$lun:7 gbldef = ms$lun:0 gbldef = mb$lun:10 gbldef = tt$lun:1 gbldef = tt$efn:1 gbldef = wc$lun:0 ; Use decimal here asg = ti:1:2:3 asg = lb:4:5:6:7:8:9 // .disable data .build: .close link @lfnt.pab .if ne 1 .goto error delete lfnt.obj;*,lfnt.pab;*,lfcnd.h;* purge 'task'.tsk .exit .error: ; ; There has been an error, correct the problem ; and try again. ; .exit