.TITLE GTSK .IDENT /06JA84/ ; File:[22,310]GTSK.MAC ; Author: Phil Hannay - cloned from GETTAS in PASTUL incorporating ; new record type "Task_info_rec" rather than 16 word ; array. ; ; Last Edit: ; .REM | PROCEDURE GTSK(VAR Task_info: Task_info_rec); External; {*USER* Pascal-3 procedure to return information about the task. Such useful tidbits are returned in "Task_info" like task name, task partition name, default uic, priority, operating system, SST table location and size, number of luns, size of window zero, and protection uic. The directive status is available in global variable $DSW. Note that this routine uses a record type "Task_info_rec" that is defined in the include file LB:[22,320]GTSK.TYP. The GTSK.TYP file must be included whenever GTSK.EXT is included and must precede the EXT file. This routine directly calls the GTSK$ executive call. The executive status can can be accessed in global variable $DSW. } | ; ; Assemble with PASMAC.MAC as prefix file. ; .MCALL GTSK$S PROC GTSK PARAM INF, ADDRESS ;Task_info_rec type record (16 words) SAVE ;WE WILL USE R0 SO PRESERVE IT BEGIN MOV SP,R0 ;PRESERVE STACK REFERENCE GTSK$S INF(0) ENDPR .END