.TITLE GIN General Information (DEC undocumented) .IDENT "10My85" .ENABL LC .PSECT C$CODE ;+ ; Index GIN General Information ; ; Usage ; ; #include ; #define SIZE ... ; word parblk[SIZE]; /* GIN parameter block */ ; parblk[0] = SIZE<<8; /* fill in length for this GIN */ ; parblk[1] = MYSUBFUNCTION; /* say what we want */ ; parblk[...] = ... /* fill in any other args */ ; word status; /* Returned $DSW */ ; ; status = gin(parblk); ; ; [end] ;- ; Edits: ; 10My85 PF000 create. ; .mcall dir$ gin:: mov 2(sp),-(sp) ; address of DPB movb #169.,@(sp) ; code for GIN dir$ ; do it mov $dsw,r0 ; report it return .end