; INIDM   OBJECT TO MACRO CONVERSION  V01.1   29-MAR-87 14:23
        .TITLE  INIDM 
        .IDENT  /00.03 /
;        .PSECT  IMPURE,D,LCL,RW,CON
	.MCALL	GPRT$,GTSK$,DIR$
SIZE:   .LIMIT
C04: GPRT$	,C20		;.WORD   2101
			        ;.WORD   0
        			;.WORD   0
		        	;.WORD   C20
C14: GTSK$	C20		;.WORD   1077
        			;.WORD   C20
C20:	.BLKW	20
;        .PSECT  PURE$I,I,LCL,RO,CON
$INIDM::
        MOV     SIZE+2,R2
        ADD     #3,R2
        BIC     #3,R2
        CLR     R1
        JSR     PC,$EXTSK
	DIR$	#C04
        MOV     R0,-(SP)
        MOV     $DSW,R0
	DIR$	#C14
        ADD     C20+G.TSTS,R0
        CMP     R2,R0
        BCS     70$
        CLR     @(SP)+
        MOV     R0,R1
        SUB     C20+G.TSTS,R0
        CLR     R2
        RTS     PC
70$:    SUB     C20+G.TSTS,R0
        MOV     R2,@(SP)+
        MOV     R2,-(SP)
        CLR     (R2)+
        MOV     C20+G.TSTS,(R2)
        SUB     R0,(SP)
        MOV     R0,R1
        ADD     (R2),R1
        SUB     (SP)+,(R2)
        MOV     (R2),R2
        RTS     PC
        .END