TypeOfMem:
   addq.b #1,TDNestCnt(a6)
   lea MemList(a6),a0
   moveq.l #0,d0
.l1:
   move.l (a0),a0
   tst.l (a0)
    beq.b .l2
   cmpa.l $14(a0),a1
    bcs.b .l1
   cmpa.l $18(a0),a1
    bcc.b .l1
   move.w $e(a0),d0
.l2:
   subq.b #1,TDNestCnt(A6)
    bge.b .l3
   tst.b IDNestCnt(a6)
    bge.b .l3
   tst.b SysFlags(a6)
   bmi.b .l4
.l3:
   rts

.l4:
   move.l a5,-(a7)
   lea .l5(pc),a5
    jsr _LVOSupervisor(a6)
   movea.l (a7)+,a5
   rts

.l5:
   btst 5,(a7)
    bne.b .l6
   jmp _LVOSchedule(a6)
.l6:
   rts
