10 ! SAMPLE USE OF DIRECTIVE MACRO TO DO GTSK$ DIRECTIVE
20 DIM DP%(3),BU%(16)
30 LOAD "LB:[1,202]DIRECT.ATK"
35 AD%=0
40 CALL "GETADR"(BU%(1),AD%)
50 DP%(0)=63+2*256
60 DP%(1)=AD%
65 ST%=0
70 CALL "DIRECT"(DP%,ST%)
90 PRINT "TASK NAME     ";R5A$(BU%(1));R5A$(BU%(2))
95 PRINT "PART NAME     ";R5A$(BU%(3));R5A$(BU%(4))
100 PRINT "REQ. NAME     ";R5A$(BU%(5));R5A$(BU%(6))
105 PRINT "PRIORITY      ";BU%(7)
107 U1=INT(BU%(8)/256) : U2=INT(BU%(8)-U1*256)
108 IF U1<0 THEN LET U1=-U1
110 PRINT "UIC           ";OCT$(U1);",";OCT$(U2)
115 PRINT "# OF LUNS     ";BU%(9)
120 PRINT "MACHINE       ";BU%(10)
125 PRINT "STD FLAGS     ";OCT$(BU%(11))
130 PRINT "SST TABLE     ";OCT$(BU%(12))
135 PRINT "SST SIZE      ";OCT$(BU%(13))
140 PRINT "TASK SIZE     ";OCT$(BU%(14))
141 ! NOW GET TI INFO
142 PRINT
145 DP%(0)=5+3*256
150 DP%(1)=2	!LUN
155 CALL "GETADR"(BU%(1),DP%(2))
160 CALL "DIRECT"(DP%,ST%)
165 PRINT "TASK TI       ";
170 C1=INT(BU%(1)/256) : C2=INT(BU%(1)-C1*256)
175 C3=INT(BU%(2)/256) : C4=INT(BU%(2)-C3*256)
180 PRINT CHR$(C1);CHR$(C2);OCT$(C4)